ibm:vm370-lib:macro:subsect.macro_src
Table of Contents
SUBSECT Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- SUBSECT.MACRO.txt
- MACRO 00001000
- SUBSECT &SECT 00002000
- PUSH PRINT 00002200
- AIF ('&SYSPARM' NE 'SUP').ACC01 00002400
- PRINT OFF,NOGEN 00002600
- .ACC01 ANOP 00002800
- AIF ('&SECT' EQ 'CSECT').CSECT 00003000
- SUBSECT DSECT 00004000
- AGO .CONT 00005000
- .CSECT ANOP 00006000
- SUBSECT DS 0D 00007000
- ENTRY SUBSECT 00008000
- .CONT ANOP 00009000
- * 00010000
- * READY/TIME MESSAGE FORMATTING AREA 00011000
- * 00012000
- RMSGBUF DS 10F 00013000
- * 00014000
- * PLIST FOR GETTING TIMES FROM DMSINM 00015000
- * 00016000
- CMSTIM DS 0F 00017000
- DC CL8'CMSTIME' 00018000
- DS F - SPOT FOR VIRCPU 00019000
- DS F - SPOT FOR TOTCPU 00020000
- DS A - SPOT FOR ADDRESS OF TIME BUFFER 00021000
- DS F - OCCUPIED LENGTH (FILLED IN BY CMSTIME) 00022000
- * 00023000
- * PLIST FOR ACTLKP AS USED BY SUBSET 00024000
- * 00025000
- DS 0F 00026000
- STARS DC CL8'*' 00027000
- DC CL8'*' 00028000
- DC CL2'*' 00029000
- * 00030000
- * SUBSET ADDRESS STORAGE AREAS 00031000
- * 00032000
- DS 0F 00033000
- ASUBRET DS F 00034000
- STAESAV DS F 00035000
- SPIESAV DS F 00036000
- SWTCHSAV DS F 00037000
- ASUBFST DS F 00038000
- ASUBSTAT DS F 00039000
- * 00040000
- * WORK AREA FOR ERROR RETURN-CODE 00041000
- * 00042000
- ERRNUM DS D 00043000
- * 00044000
- * WORK AREA FOR DMSINM TO STORE DATE AND TIME 00045000
- * 00046000
- TIMBUF DS 4D 00047000
- EJECT 00048000
- POP PRINT 00048100
- MEND 00049000
ibm/vm370-lib/macro/subsect.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator