|
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: 3048 (0xbe8)
Types: s3xseg
Names: »S$CANB«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$CANB«
MACRO 00010000
&LABEL $CANB &DTF- 00020000
TEXT 00190000
* CANCEL A GET REQUEST. RELEASE-4 00200000
AIF (T'&LABEL EQ '').A 00210000
&LABEL EQU * * 00220000
.A AIF (T'&DTF EQ '').B 00230000
LA &DTF,$BDTF --> DTF 00240000
.B TBN $BDDEV(,$BDTF),$BLIN2 Q IS THIS BSCA LINE 2? 00280000
JF $BH&SYSNDX NO - CONTINUE 00290000
MVI $BA&SYSNDX+1,$BIRVI+$BLIN2 SET CORRECT OP CODE. 00300000
$BH&SYSNDX ST $BE&SYSNDX+$BTRE,$BBAC1 SAVE XR1. 00310000
L $BDIOB(,$BDTF),$BIOB LOAD IOB ADDR IN XR1. 00320000
CLI $BDCMP(,$BDTF),$BCREQ Q HAS OPERATION BEEN REQUESTED? 00330000
JE $BG&SYSNDX YES-CONTINUE. 00340000
CLI $BDCMP(,$BDTF),$BCCMP Q NO COMPLETIONS POSTED? 00350000
$BG&SYSNDX TBN $BIFLA(,$BIOB),$BIFST Q FIRST TIME INDIC ON? 00360000
JC $BK&SYSNDX,$BTREQ YES-CONTINUE. 00370000
TBN $BDATR(,$BDTF),$BCMCN Q CONTROL STATION? 00380000
JC $BK&SYSNDX,$BTREQ YES-CONTINUE. 00390000
MVI $BDCMP(,$BDTF),$BCIGN NO-POST IGNORE REQUEST. 00400000
J $BF&SYSNDX RETURN. 00410000
$BK&SYSNDX EQU * * 00410900
TBN $BIOBQ(,$BIOB),$BLIN2 IS THIS LINE-2? 00411800
L $BDWKA(,$BDTF),$BWK LOAD WORKAREA@. 00412700
TBN $BWKMC(,$BWK),$BDAON IS IDA SUPPORTED? 00413600
JF $BL&SYSNDX NO - CONTINUE 00414500
SIO $B2SEC,$BTOSC START TWO SEC T.O. TO IDA. 00415400
SBN $BPOLD(,$BWK),$BPRES INDIC POLL CANCEL 00416300
J $BF&SYSNDX RETURN 00417200
$BL&SYSNDX EQU * * 00418100
L $BDIOB(,$BDTF),$BIOB LOAD IOB ADDR. 00419000
$BA&SYSNDX CLI $BIOBQ(,$BIOB),$BIRVI Q SWITCHED LINE NON-RCV INIT 00450000
TBN $BDATR(,$BDTF),$BCSWI Q OR CONTROL STATION ? 00460000
L $BDWKA(,$BDTF),$BWK LOAD WKA ADDR IN XR1. 00470000
JC $BD&SYSNDX,$BTRNQ YES-SKIP ENABLE / DISABL . 00480000
TBN $BDADD(,2),$BCAA1 Q ADD ON AREA SUPPORTED 00520000
CLC $BDARA(2,2),X'0000' Q AND AUTO-RES MODULE PRESENT ? 00530000
BC $BJ&SYSNDX,$BTRNQ NO DISABLE THE LINE. 00540000
SBN $BPOLD(,$BWK),$BPCNC SET ON INDIC TO CANCEL. 00580000
J $BF&SYSNDX RETURN. 00590000
$BI&SYSNDX EQU * * 00600000
SBN $BPOLD(,$BWK),$BPCNC SET ON INDIC TO CANCEL. 00610000
SBF $BWLGD(,$BWK),$BPATV SET OFF LINE ACTIVE. 00620000
J $BF&SYSNDX RETURN. 00630000
$BJ&SYSNDX EQU * * 00670000
MVC $BB&SYSNDX+$BONE,$BDDEV(1,$BDTF) MOVE Q-CODE TO DSBL INST 00680000
MVC $BC&SYSNDX+$BONE,$BDDEV(1,$BDTF) MOVE Q-CODE TO ENABL INST 00690000
$BB&SYSNDX EQU * * 00700000
SIO $BDISA,*-* DISABLE BSCA. 00710000
TBN $BDATR(,$BDTF),$BCSWI SWITCHED LINE RCV INITIAL ? 00750000
BT $BI&SYSNDX YES-GO SET CANCEL INDICATOR 00760000
$BC&SYSNDX EQU * * 00770000
SIO $BENAB,*-* ENABLE BSCA. 00780000
SBN $BPOLD(,$BWK),$BPCNC SET ON INDIC TO CANCEL. 00790000
$BD&SYSNDX EQU * * 00800000
SBN $BPOLD(,$BWK),$BPRES SET ON RESET POLL INDICATOR. 00810000
$BF&SYSNDX EQU * * 00820000
$BE&SYSNDX LA *-*,$BBAC1 RESTORE XR1. 00830000
MEND 00850000