ibm:vm370-lib:macro:svcsect.macro_src
Table of Contents
SVCSECT Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- SVCSECT.MACRO.txt
- 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
ibm/vm370-lib/macro/svcsect.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator