ibm:vm370-lib:macro:bgcom.macro_src
Table of Contents
BGCOM Source
References
- Fixes Applied : 0
- This Source Date : Monday, November 7, 1977
- Last Fix ID : [Unmodified]
Source Listing
- BGCOM.MACRO.txt
- MACRO 00001000
- BGCOM &SECT 00002000
- PUSH PRINT 00002100
- AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
- PRINT OFF,NOGEN 00002300
- .ACC01 ANOP 00002400
- AIF ('&SECT' EQ 'CSECT').CSECT 00003000
- BGCOM DSECT 00004000
- AGO .CONT 00005000
- .CSECT ANOP 00006000
- ENTRY BGCOM 00007000
- BGCOM DS 0D BACKGROUND COMM. REGION 00008000
- USING BGCOM,0 00009000
- .CONT ANOP 00010000
- JOBDATE DC C'00/00/00' . 00 JOB DATE 00011000
- PPBEG DC S(0) . 08 SUPERVISOR END 00012000
- EOSSP DC S(0) . 10 END OF STORAGE PROTECTION 00013000
- DC 11X'00' . 12 USER SCRATCH AREA 00014000
- UPSI DC X'00' . 23 UPSI BYTE 00015000
- COMNAME DC CL8'CMS/DOS' . 24 JOB NAME 00016000
- PPEND DC A(0) . 32 HIGHEST STORAGE ADDRESS OF PARTITION 00017000
- HIPHAS DC A(0) . 36 END ADDRESS OF LAST PHASE LOADED 00018000
- HIPROG DC A(0) . 40 END ADDRESS OF LONGEST PHASE LOADED 00019000
- LABLEN DC H'0' . 44 LENGTH OF PROBLEM PROGRAM LABEL AREA 00020000
- PIK DC X'0010' . 46 PROGRAM INTERRUPT KEY 00021000
- EOCADR DC A(0) . 48 END OF VIRTUAL STORAGE ADDRESS 00022000
- CONFIG DC B'11101000' . 52 MACHINE CONFIGURATION BYTE 00023000
- LTACT DC B'00010000' . 53 SYSTEM CONFIGURATION BYTE 00024000
- SOB1 DC B'11000100' . 54 STANDARD LANGUAGE TRANSLATOR OPTIONS 00025000
- SOB2 DC B'11011010' . 55 STANDARD SUPERVISOR OPTIONS 00026000
- JCSW1 DC B'10010000' . 56 JOB CONTROL BYTE 00027000
- JCSW2 DC B'00000000' . 57 LINKAGE CONTROL BYTE 00028000
- JCSW3 DC B'11000100' . 58 NON-STD LANGUAGE TRANSLATOR OPTIONS 00029000
- JCSW4 DC B'10000000' . 59 JOB DURATION INDICATOR BYTE 00030000
- DALC DC H'0' . 60 DISK ADDRESS OF VOLUME LABEL 00031000
- FOCLPT DC S(0) . 62 ADDRESS OF FOCL 00032000
- AIF ('&SECT' EQ 'CSECT').B1 00033000
- PUBPT DC S(0) . 64 ADDRESS OF PUB 00034000
- AGO .B2 00035000
- .B1 ANOP 00036000
- PUBPT DC S(PUBTAB) . 64 ADDRESS OF PUB 00037000
- .B2 ANOP 00038000
- FAVPT DC S(0) . 66 ADDRESS OF FAVP 00039000
- JIBPT DC S(0) . 68 ADDRESS OF JIB 00040000
- TEBPT DC S(0) . 70 ADDRESS OF TEB 00041000
- AIF ('&SECT' EQ 'CSECT').B3 00042000
- FICLPT DC S(0) . 72 ADDRESS OF FICL 00043000
- NICLPT DC S(0) . 74 ADDRESS OF NICL 00044000
- LUBPT DC S(0) . 76 ADDRESS OF LUB 00045000
- AGO .B4 00046000
- .B3 ANOP 00047000
- FICLPT DC S(FICL) . 72 ADDRESS OF FICL 00048000
- NICLPT DC S(NICL) . 74 ADDRESS OF NICL 00049000
- LUBPT DC S(LUBTAB) . 76 ADDRESS OF LUB 00050000
- .B4 ANOP 00051000
- SYSLINE DC AL1(56) . 78 SYSLST LINE COUNT 00052000
- SYSDATE DS 0CL9 . 79 SYSTEM DATE 00053000
- MMDD DC XL4'00' MMDD OR DDMM 00054000
- YYDDD DC XL5'00' YYDDD PORTION OF DATE 00055000
- LIOCSCOM DC 2X'00' 88 LIOCS COMMUNICATION BYTES 00056000
- AIF ('&SECT' EQ 'CSECT').B5 00057000
- PIBPT DC S(0) . 90 ADDRESS OF PIB 00058000
- AGO .B6 00059000
- .B5 ANOP 00060000
- PIBPT DC S(PIBTAB) . 90 ADDRESS OF PIB 00061000
- .B6 ANOP 00062000
- CHKPTID DC H'0' . 92 LAST CHECKPOINT NUMBER 00063000
- JOBZON DC S(0) . 94 JOB ZONE IN MINUTES 00064000
- DIBPT DC S(0) . 96 BACKGROUND DIB POINTER 00065000
- DC H'0' . 98 RESERVED 00066000
- AIF ('&SECT' EQ 'CSECT').B7 00067000
- PCPTR DC S(0) . 100 PC OPTION TABLE 00068000
- AGO .B8 00069000
- .B7 ANOP 00070000
- PCPTR DC S(PCTAB) . 100 PC OPTION TABLE 00071000
- .B8 ANOP 00072000
- ITPTR DC S(0) . 102 IT OPTION TABLE 00073000
- OCPT DC S(0) . 104 OC OPTION TABLE 00074000
- PWTIMS DC X'0000' . 106 KEY OF PROGRAM WITH IT SUPPORT 00075000
- DC H'0' . 108 RESERVED 00076000
- LTK DC S(0) . 110 LOGICAL TRANSIENT KEY 00077000
- SYSPAR DC F'0' . 112 ADDRESS OF SYSPARM 00078000
- JAPART DC F'0' . 116 ADDRESS OF JOB ACCOUNTING TABLE 00079000
- TODCOM DC A(0) . 120 ADDR OF TOD COMMUNICATIONS AREA 00080000
- AIF ('&SECT' EQ 'CSECT').B9 00081000
- PIB2PTR DC S(0) . 124 ADDRESS OF PIB EXTENSION 00082000
- AGO .B10 00083000
- .B9 ANOP 00084000
- PIB2PTR DC S(PIB2TAB) . 124 ADDRESS OF PIB EXTENSION 00085000
- .B10 ANOP 00086000
- PDTABB DC S(0) . 126 ADDR OF MICR DTF TABLE 00087000
- IJLQTTAD DC A(0) . 128 ADDR OF QTAM VECTOR TABLE 00088000
- AIF ('&SECT' EQ 'CSECT').B11 00089000
- BGCOMPT DC S(0) . 132 ADDRESS OF BACKGROUND COMREG 00090000
- AGO .B12 00091000
- .B11 ANOP 00092000
- BGCOMPT DC S(BGCOM) . 132 ADDRESS OF BACKGROUND COMREG 00093000
- .B12 ANOP 00094000
- OPTNBYTE DC X'00' . 134 OPTION INDICATOR BYTE 00095000
- RMSROPEN DC B'00000000' . 135 SYSTEM CONFIG BYTE 2 00096000
- COMEX DC A(0) . 136 PTR. TO SYSCOM OPTION TABLE 00097000
- STDOPT DC B'01000000' . 140 STANDARD JOB CONTROL OPTION BYTE 00098000
- TEMOPT DC B'01000000' . 141 TMPORARY JOB CONTROL OPTION BYTE 00099000
- DISKCONF DC X'00' . 142 DISK CONFIGURATION BYTE 00100000
- PROCNAM DC CL8' ' . 143 PROCEDURE NAME 00101000
- PSWTCH DC X'0' . 151 INTERFACE BYTE FOR CATAL. PROC. 00102000
- POVNAM DC CL7' ' . 152 SAVE AREA FOR STATEMENT NAME 00103000
- INSIZE DC X'0' . 159 81 BYTE SYSIN INDICATOR 00104000
- AIF ('&SECT' NE 'CSECT').END 00105000
- DROP 0 00106000
- .END ANOP 00107000
- EJECT 00108000
- POP PRINT 00108100
- MEND 00109000
ibm/vm370-lib/macro/bgcom.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator