MACRO 00001000
SVCSECT &SECT 00002000
PUSH PRINT 00002200
AIF ('&SYSPARM' NE 'SUP').ACC01 00002400
PRINT OFF,NOGEN 00002600
.ACC01 ANOP 00002800
AIF ('&SECT' EQ 'CSECT').CSECT 00003000
SVCSECT DSECT 00004000
AGO .CONT 00005000
.CSECT ANOP 00006000
SVCSECT DS 0D 00007000
ENTRY SVCSECT 00008000
.CONT ANOP 00009000
* 00010000
USVCTBL DS 0F __________ A 'HANDLE' FOR THE FOLLOWING ... 00011000
* 00012000
* KEEP NEXT FOUR IN ORDER .... 00013000
JNUMB DC F'0' ________ NO. OF DBL-WORDS IN SVC-NUMBER TABLE 00014000
JFIRST DC A(*-*) ______ ADDRESS OF FIRST ITEM (IF ANY) IN TABLE 00015000
JF4 DC F'4' ________ (FOR BXLE) 00016000
JLAST DC A(*-*) ______ ADDRESS OF LAST ITEM IN TABLE 00017000
* 00018000
* START-UP FLAGS -- INDICATE WHAT MODE THE CALLEE IS TO BE STARTED UP. 00019000
SFLAG DC BL1'0' FLAG BYTE 00020000
SFSYS EQU X'80' SYSTEM FLAG -- SVC PROTECT KEY *00021000
IS ZERO 00022000
SFTRN EQU X'40' TRANSIENT AREA ROUTINE -- SYSTEM*00023000
MASK IS OFF 00024000
SFNUC EQU X'20' NUCLEUS ROUTINE -- SYS MASK OFF 00025000
SFREN EQU X'01' ILLEGAL RE-ENTRY FLAG 00026000
SPACE 00027000
DC X'00' UNUSED 00028000
SVCAB DC H'0' SVC ABEND CODE, IF ANY 00029000
CURRALOC DC A(0) CURRENT ALLOCATED SAVE AREA 00030000
LASTALOC DC A(0) LAST ALLOCATED SAVE AREA 00031000
DEPTH DC F'0' NESTED SVC DEPTH 00032000
SPACE 2 00033000
* 00034000
* INFORMATION FOR SVCTRACE 00035000
ADMSOVS DC A(0) ADDRESS OF DMSOVS 00036000
OVBPF DC BL2'0' 'BEFORE PRINT' FLAGS 00037000
OVBTF DC BL2'0' 'BEFORE TYPE' FLAGS 00038000
OVAPF DC BL2'0' 'AFTER PRINT' FLAGS 00039000
OVATF DC BL2'0' 'AFTER TYPE' FLAGS 00040000
SPACE 00041000
* DEFINITIONS OF FLAGS FOR EACH PAIR OF FLAG BYTES. 00042000
OVF1ON EQU X'80' THIS OPTION IS ON 00043000
OVF1GB EQU X'40' GPRS BEFORE CALL WANTED 00044000
OVF1GA EQU X'20' GPRS AFTER CALL WANTED 00045000
OVF1GS EQU X'10' GPRS RETURNED FROM SVC CALLEE 00046000
OVF1PA EQU X'08' PARAMETER LIST WANTED 00047000
OVF1F EQU X'04' FLOATING POINT REGS WANTED 00048000
OVF1FS EQU X'01' FPRS RETURNED FROM SVC CALLEE 00049000
SPACE 00050000
OVF2ST EQU X'80' 'STOP' WANTED 00051000
OVF2CM EQU X'40' CMS SVC TRACE WANTED 00052000
OVF2NR EQU X'20' NORMAL RETURN CMS SVC'S WANTED 00053000
OVF2OS EQU X'10' OS SVC'S WANTED 00054000
OVF2WA EQU X'08' 'WAIT' CMS SVC'S WANTED 00055000
SPACE 00056000
OVSTAT DC B'0' CURRENT STATUS OF SVCTRACE 00057000
OVSON EQU X'80' OVERRIDES ARE ON 00058000
OVSPREV EQU X'40' 'SVCTRACE SAME' IS LEGAL 00059000
OVSAFT EQU X'20' 'AFTER' BIT, SET BY DMSITS 00060000
OVSHO EQU X'10' 'HALT OVERRIDES' FLAG 00061000
OVSSO EQU X'08' 'SUSPEND OVERRIDES' FLAG 00062000
SPACE 00063000
DC XL3'0' UNUSED 00064000
* 00065000
SVCSAVE DC 18F'0' - INTSVC WORK AREA 00066000
NRMSAV DC 28D'0' ______ NORMAL STANDARD INFORMATION 00067000
* 00068000
DC F'0' UNUSED 00069000
SVCOUNT DC F'0' CURRENT SVC COUNT 00070000
SVCSTOP DC F'0' FOR DMSITS DEBUGGING 00071000
SVLAD DS F SAVE REG 14 FOR DMSLAD 00072000
SVLADW DS F SAVE REG 14 FOR DMSLADW 00073000
SVLFS DS F SAVE REG 14 FOR DMSLFS 00074000
LOADLIST DC CL8'LOAD' 00075100
LOADNAME DC CL8' ' 00075200
DC CL8'(' 00075300
DC CL8'ORIGIN' 00075400
LOADSTRT DC CL8'0' 00075500
DC 8X'FF' 00075600
* 00075700
DC 2F'0' RESERVED FOR FUTURE USE 00075800
* 00076000
* KEEP NEXT FIVE IN ORDER ..... 00077000
DS 0F 00078000
MODLIST DC CL8'LOADMOD ' ROUTINE NAME 00079000
DUMCOM DC CL8' ' MODULE 'FILENAME' FILLED IN HERE 00080000
SSMON DC X'FF' _______ 'FENCE' AND ALLOWS ALL INTERRUPTS. 00081000
ZERO3 DC AL3(0) ______ THREE-BYTE ZERO 00082000
* 00083000
TRANSRT DC CL8' ' HOLDS FILENAME OF TRANSIENT ROUTINE 00084000
TRANMSK DC AL1(X'FF') 00085000
ADTRANS DC VL3(TRANSAR) 00086000
TEMP02 DC D'0' ________ (FOR 'CVD' & OTHER SCRATCH-USE) 00087000
DC 4F'0' - RESERVED FOR FUTURE USE 00088000
* 00089000
DS 0D 00090000
RGPRS DS 0F RETURNED GPRS 00091000
RGPR0 DS F R0 00092000
RGPR1 DS F R1 00093000
RGPR2 DS F R2 00094000
RGPR3 DS F R3 00095000
RGPR4 DS F R4 00096000
RGPF5 DS F R5 00097000
RGPR6 DS F R6 00098000
RGPR7 DS F R7 00099000
RGPR8 DS F R8 00100000
RGPR9 DS F R9 00101000
RGPR10 DS F R10 00102000
RGPR11 DS F R11 00103000
RGPR12 DS F R12 00104000
RGPR13 DS F R13 00105000
RGPR14 DS F R14 00106000
RGPR15 DS F R15 00107000
RFPRS DS 0D RETURNED FLOATING POINT REGS 00108000
RFPR0 DS D FPR0 00109000
RFPR2 DS D FPR2 00110000
RFPR4 DS D FPR4 00111000
RFPR6 DS D FPR6 00112000
SPACE 00113000
NRMUSAV DS 12D 'NRMSAV' USER SAVE AREA 00114000
* 00115000
EJECT 00116000
POP PRINT 00116100
MEND 00117000