|
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$WTT«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$WTT«
MACRO 00010000
&LABEL $WTT &DTF-,&EOF-,&ERR-,&EOT- 00100000
TEXT 00110000
* BASIC TAPE WAIT LINKAGE RELEASE-7 00120000
AIF (T'&LABEL EQ 'O').A 00130000
&LABEL EQU * LABLE 00140000
.A AIF (T'&DTF EQ 'O').AA 00150000
LA &DTF,$DTF LOAD ADDRESS OF DTF 00160000
.AA B DMBTWT BRANCH TO BASIC TAPE TO WAIT 00170000
AIF (T'&ERR EQ 'O').B 00180000
CLI $TDCMP(,$DTF),X'41' TEST FOR CONTROLED CANCLE 00190000
BE &ERR BRANCH TO CONTROLED CANCLE 00200000
.B AIF (T'&EOF EQ 'O').C 00210000
CLI $TDCMP(,$DTF),X'42' TEST FOR END OF FILE 00220000
BE &EOF BRANCH TO END OF FILE ROUTINE 00230000
.C AIF (T'&EOT EQ 'O').D 00240000
CLI $TDCMP(,$DTF),X'70' TEST FOR END OF TAPE 00250000
BE &EOT BRANCH TO END OF TAPE ROUTINE 00260000
.D ANOP 00270000
MEND 00280000
R END OF FILE 00220000
aaaaaaaaaBBBBBBBBBBBBBBBBBBBBBBBBBBBB}gaÅBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô
ôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}}}}}}}}}}}}}}}}
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}ØØØØØØØØØØØØØØØØØØØØØØØØØØØØ
ØØØØØØØl@ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ} EQU 1 REGISTER EQUATE FO
R TRANS LIST 00350000 EXTRN $$MLCC TRANSLATE MODULE N
AME 00360000 EXTRN MLTCC1 TRANSLATE ENTRY PO
INT 00370000 .MEND ANOP