MACRO 00001000
USERSAVE &SECT 00002000
PUSH PRINT 00003000
AIF ('&SYSPARM' NE 'SUP').ACC01 00004000
PRINT OFF,NOGEN 00005000
.ACC01 ANOP 00006000
AIF ('&SECT' EQ 'CSECT').CSECT 00007000
USERSAVE DSECT 00008000
AGO .CONT 00009000
.CSECT ANOP 00010000
* The user save area is passed to programs via R13. 00012000
USERSAVE DS 0D user save area 00013000
.CONT ANOP 00014000
DS 12D reserved for user 00011000
USERSIZE EQU *-USERSAVE size of reserved area 00015000
USERINFO DS D information passed to user 00016000
USECTYP DS X CALLTYP value 00017000
USEUFLG DS X UFLAGS value 00018000
DS 2X reserved for IBM use 00019000
USEMFLG DS X miscellaneous bits 00020000
DS 3X reserved for IBM use 00021000
USERSAVL EQU (*-USERSAVE+7)/8 00022000
USECMS EQU X'80' invoked by CMSCALL 00023000
USEA31 EQU X'40' caller's AMODE is 31 00024000
USESCBLK EQU X'20' SCBLOCK is available in R2 00025000
USEPLIST EQU X'10' extended PLIST available in R0 00026000
* only valid if invoked by CMSCALL 00027000
USEAR EQU X'08' caller was in AR-mode at CMSCALL 00028000
POP PRINT 00029000
MEND 00030000