|
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$WAIT«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$WAIT«
MACRO 00010000
&LABEL $WAIT &IOB-,&ERR- 00080000
TEXT 00090000
* WAIT FOR IOS COMPLETION RELEASE-7 00090001
AIF (T'&LABEL EQ 'O').A 00100000
&LABEL EQU * GENERATE USER LABEL 00110000
.A ANOP 00120000
AIF (T'&IOB EQ 'O').B 00130000
LA &IOB,$IOB SET ADDRESS OF IOB IN REGISTER 1 00140000
.B B 12 GO TO IOS WAIT ROUTINE 00150000
AIF (T'&ERR NE 'O').C 00160000
MNOTE 04,' NO DISK ERROR ADDRESS GIVEN ' 00170000
AGO .D 00180000
.C CLI $DICMP(,$IOB),X'41' WAS BUFFER IN ERROR 00190000
BE &ERR GO TO ERROR HANDLER 00200000
.D ANOP 00230000
MEND 00250000
giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii2ggggggggggggggg¾000000000______________________
_______________________________________2jjjjj}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
i2NE 00150000 AIF (T'&ERR NE 'O').C TEST FOR ERROR CHE
CKING 00160000 MNOTE 04,' NO DISK ERROR ADDRESS GIVEN '
00170000 AGO .D EXIT WITHOUT FURTH
ER