|
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$PUTK«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$PUTK«
MACRO 00010000
&LABEL $PUTK &DTF-,&ERR- 00020000
TEXT 00310000
AIF (T'&LABEL EQ 'O').A 00320000
&LABEL EQU * 00330000
.A ANOP 00340000
AIF (T'&DTF EQ 'O').B 00350000
LA &DTF,$DTF POINT REGISTER 2 AT THE DTF. 00360000
.B ANOP 00370000
MVI $DFOPC(,$DTF),X'40' INDICATE 'PUT' IN THE DTF. 00380000
B $$CPOP CALL DATA MANAGEMENT TO PUT 00390000
* A RECORD. 00400000
AIF (T'&ERR EQ 'O').C 00410000
CLI $DFCMP(,$DTF),X'41' Q WAS THERE A PERMANENT ERROR? 00420000
BE &ERR YES, GO TO THE ERROR ROUTINE. 00430000
.C ANOP 00440000
MEND 00450000