|
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: 762 (0x2fa)
Types: s3xseg
Names: »S$LOGB«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$LOGB«
MACRO 00010000
&LABEL $LOGB &NUM-,&LEN- 00020000
LCLA &A1 00210000
TEXT 00220000
* ERROR LOGGING AREA. RELEASE-* 00220100
AIF (T'&LABEL EQ '').A 00230000
&LABEL EQU * 00240000
.A AIF (T'&NUM NE '').B 00250000
MNOTE 08,'B1023 MISSING REQUIRED OPERAND. NUM' 00260000
.B AIF (T'&LEN NE '').C 00270000
MNOTE 08,'B1024 MISSING REQUIRED OPERAND. LEN' 00280000
.C ANOP 00290000
&A1 SETA (&NUM*7)+(&NUM*&LEN) 00300000
DC AL2(&A1+4) LENGTH OF LOGGING AREA. 00310000
DC XL2'00' REQUIRED ZEROES 00320000
DC &A1.XL1'00' TERMINAL LOGGING AREA 00330000
MEND 00340000
_____________________________________________________________2jjjjj}giiiiiiiiiiiiiiiiiiiiiiiiiii
iiiiiiiiiiiiiiiiiiiiiii2