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