|
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: 1016 (0x3f8)
Types: s3xseg
Names: »S$GETT«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$GETT«
MACRO 00010000
&LABLE $GETT &DTF-,&ERR-,&EOF-,&CODE-,&RECFM- 00140000
TABLE &CODE 00150000
A TABDF A 00160000
E TABDF T 00170000
'' TABDF T 00180000
TEXT 00190000
* TAPE GET LINKAGE RELEASE-9 00200000
AIF (T'&LABLE EQ 'O').A 00210000
&LABLE EQU * 00220000
.A AIF (T'&DTF EQ 'O').D 00230000
LA &DTF,$DTF LOAD ADDRESS OF DTF 00240000
.D MVI $TDOPC(,$DTF),X'80' SET OP CODE TO GET RECORD 00250000
AIF (&RECFM EQ 'V').E 00260000
B $$CSI&CODE BRANCH TO DATA MANAGEMENT 00270000
AGO .F 00280000
.E B $$CS&CODE.I BRANCH TO DATA MANAGEMENT 00290000
.F AIF (T'&ERR EQ 'O').B 00300000
CLI $TDCMP(,$DTF),X'41' HARDWARE ERROR 00310000
BE &ERR YES GO TO ERROR ROUTINE 00320000
.B AIF (T'&EOF EQ 'O').C 00330000
CLI $TDCMP(,$DTF),X'42' END OF FILE 00340000
BE &EOF YES GO TO EOF ROUTINE 00350000
.C ANOP 00360000
MEND 00370000