|
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$GETK«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$GETK«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$GETK«
MACRO 00010000
&LABEL $GETK &DTF-,&ERR-,&EOF- 00020000
TEXT 00340000
AIF (T'&LABEL EQ 'O').A 00350000
&LABEL EQU * 00360000
.A ANOP 00370000
AIF (T'&DTF EQ 'O').B 00380000
LA &DTF,$DTF POINT REGISTER 2 AT THE DTF. 00390000
.B ANOP 00400000
MVI $DFOPC(,$DTF),X'80' INDICATE 'GET' IN THE DTF. 00410000
B $$CPIP CALL DATA MANAGEMENT TO GET 00420000
* A RECORD. 00430000
AIF (T'&ERR EQ 'O').C 00440000
CLI $DFCMP(,$DTF),X'41' Q WAS THERE A PERMANENT ERROR? 00450000
BE &ERR YES, GO TO THE ERROR ROUTINE. 00460000
.C ANOP 00470000
CLI $DFCMP(,$DTF),X'42' Q WAS END OF FILE REACHED? 00480000
BE &EOF YES, GO TO THE EOF ROUTINE. 00490000
MEND 00500000