|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3302 (0xce6)
Types: s3xseg
Names: »S$LOGD«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$LOGD«
MACRO 00010000
$LOGD &LABL-ALL,&TCB@-N 00180000
TEXT 00190000
* *** S Y S L O G O F F S E T S *** 00200000
SPACE 00210000
AIF (&LABL EQ 'OUT').GOUT 00220000
AIF (T'&LABL EQ 'O').GOPNS 00230000
AIF (&LABL EQ 'OPNS').GOPNS 00240000
$LGFUN EQU 0 FUNCTION CODE. 00250000
AIF (&LABL EQ 'MSG').GSEVE 00260000
AIF (&LABL NE 'ALL').GCC 00270000
.GSEVE ANOP 00280000
$LGDS EQU 1 DEFAULT/SEVERITY. 00290000
SPACE 00300000
$LGSE1 EQU X'00' SEVERITY 1 00310000
$LGSE2 EQU X'01' * 2 00320000
$LGSE4 EQU X'02' * 4 00330000
$LGSE8 EQU X'03' * 8 00340000
SPACE 00350000
.GCC ANOP 00360000
$LGCC EQU 3 COMPONENT IDENTIFICATION. 00370000
$LGHH EQU 5 MESSAGE IDENTIFICATION - PART 1. 00380000
AIF (&LABL EQ 'MSG').GOPNS 00390000
AIF (&LABL NE 'ALL').GWTO 00400000
.GOPNS ANOP 00410000
$LGDO EQU 6 RESPONSE + VALID OPTIONS 00420000
SPACE 00430000
$LGDE0 EQU X'80' DEFAULT OPTION OR RESPONSE OF 0 00440000
$LGDE1 EQU X'40' * 1 00450000
$LGDE2 EQU X'20' * 2 00460000
$LGDE3 EQU X'10' * 3 00470000
$LGOP0 EQU X'08' ALLOWABLE OPTION 0 00480000
$LGOP1 EQU X'04' * 1 00490000
$LGOP2 EQU X'02' * 2 00500000
$LGOP3 EQU X'01' * 3 00510000
AIF (T'&LABL EQ 'O').GXIT 00520000
AIF (&LABL EQ 'OPNS').GXIT 00530000
.GWTO ANOP 00540000
AIF (&LABL EQ 'WTO').GWTOR 00550000
AIF (&LABL EQ 'WTOR').GWTOR 00560000
SPACE 00570000
$LGII EQU 8 MESSAGE IDENTIFICATION - PART 2. 00580000
$LGCL EQU 7 TEXT LENGTH - FORMAT C 00590000
$LGCAA EQU 9 TEXT ADDRESS - FORMAT C 00600000
$LGDL EQU 9 TEXT LENGTH - FORMAT D 00610000
$LGDAA EQU 11 TEXT ADDRESS - FORMAT D 00620000
AIF (&LABL EQ 'WTO').GWTOR 00630000
AIF (&LABL EQ 'WTOR').GWTOR 00640000
AIF (&LABL NE 'ALL').GXIT 00650000
.GWTOR ANOP 00660000
$LGOTY EQU 6 WTO(R) TYPE FUNCTION. 00670000
$LGWTO EQU 6 WTO(R) TYPE FUNCTION. 00675000
AIF (&LABL EQ 'ALL').GALL 00680000
$LGII EQU 8 MESSAGE IDENTIFICATION - PART 2 00690000
.GALL ANOP 00700000
$LGOL EQU 9 TEXT LENGTH - WTO(R) 00710000
$LGOAA EQU 11 TEXT ADDRESS - WTO(R) 00720000
* LEFTMOST BYTE DISPLACEMENT TO THE00730000
$LGOEC EQU 12 ECB - WTO (1-CHAR RESP) 00740000
$LGI1E EQU 13 ADDRESS OF ECB (WTOW/WTOWH) 00750000
$LGI2E EQU 15 ADDRESS OF ECB (WTOW/WTOWH) / TCB00760000
$LGJ1E EQU 16 ADDRESS OF ECB (WTORW) 00770000
$LGJ2E EQU 18 ADDRESS OF ECB (WTORW) / TCB 00780000
AIF (&LABL EQ 'WTO').GXIT 00790000
$LGON EQU 12 REPLY LENGTH - WTOR 00800000
$LGO@@ EQU 14 REPLY ADDRESS - WTOR 00810000
AIF (&LABL NE 'ALL').GXIT 00820000
SPACE 00830000
.GOUT ANOP 00840000
$LGFUT EQU 0 OUTPUT ONLY FUNCTION CODE 00850000
$LGPGE EQU 1 * PAGE CONTROL OPTION 00860000
$LGLNG EQU 2 * BUFFER LENGTH 00870000
$LGADR EQU 4 * BUFFER ADDRESS 00880000
$LGCPL EQU 5 * CARRIAGE POSITION 00890000
$LGCPR EQU 6 * RESERVED. 00900000
.GXIT ANOP 00910000
AIF (&TCB@ NE 'Y').GEXIT 00920000
$LGATC EQU 8 TCB ADDRESS IN FORMAT A 00930000
$LGBTC EQU 10 * B 00940000
$LGCTC EQU 11 * C 00950000
$LGDTC EQU 13 * D 00960000
$LGITC EQU 13 * I (WTO) 00970000
$LGJTC EQU 16 * J (WTOR) 00980000
.GEXIT ANOP 00990000
MEND 01000000