|
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: 2032 (0x7f0)
Types: s3xseg
Names: »S$GETB«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$GETB«
MACRO 00010000
&ID $GETB &DTF-,&REJECT-,&OPC-N 00020000
TABLE &OPC 00350000
N TABDF ET 00360000
BLK TABDF BK 00370000
TABDF '''OPC' 00380000
TEXT 00390000
* BSCA GET LINKAGE RELEASE-7 D 00400000
SPACE 00410000
AIF (T'&ID EQ '').A 00420000
&ID EQU * 00430000
.A AIF (T'&DTF EQ '').G 00440000
LA &DTF,$DTF LOAD XR2 WITH DTF ADDR. 00450000
.G CLI $BDCMP(,$DTF),$BCREQ LAST OP DONE ? 00460000
JE $E1&SYSNDX NO-GO POST REQUEST IGNORED. 00470000
TBN $BDATR(,$DTF),$BCOPN OPENED ? 00480000
TBN $BDATT(,$DTF),$BCINP GET FILE ? 00490000
JF $E2&SYSNDX NO-GO POST PERM'T ERROR. 00500000
ST $SV&SYSNDX+3,$BBAC1 SAVE REGISTER. 00510000
L $BDIOB(,$DTF),$IOB LOAD THE IOB REGISTER. 00520000
TBF $BIFLA(,$IOB),$BIFST ERROR FREE, -----------------| 00530000
$SV&SYSNDX LA *-*,$BBAC1 RELOAD REGISTER. | 00540000
TBN $BDATT(,$DTF),$BCCNV AND CONVERSATIONAL ? <-------| 00550000
JF $GT&SYSNDX NO-GO PROCESS THE GET. 00560000
TBN $BDOPC(,$DTF),$BOPUT LAST OPERATION A PUT, 00570000
CLI $BDCMP(,$DTF),$BCCRP AND NO CONV. REPLY PENDING ? 00580000
JC $E3&SYSNDX,$TRU+$EQ YES-GO POST INVALID CALL. 00590000
$GT&SYSNDX MVI $BDOPC(,$DTF),$BOG&OPC SET OP CODE FOR GET FUNCTION. 00600000
B $$BSMS GO TO BSCA DATA MANAG MENT. 00610000
ST $S1&SYSNDX+3,$BBAC1 SAVE XR1. 00620000
L $BDIOB(,$DTF),$IOB LOAD IOB ADDR IN SR1. 00630000
CLI $BICMP(,$IOB),$BCCAL Q INVALID CALL POSTED IN IOB? 00640000
$S1&SYSNDX LA *-*,$BBAC1 RESTORE XR1. 00650000
JE $E3&SYSNDX YES-GO TO SET INVALID REQUEST. 00660000
J $XT&SYSNDX GO EXIT. 00670000
$E1&SYSNDX MVI $BDCMP(,$DTF),$BCIGN SET REQUEST IGNORED. 00680000
J $RJ&SYSNDX GO EXIT. 00690000
$E2&SYSNDX MVI $BDCMP(,$DTF),$BCUER SET USER ERROR. 00700000
J $RJ&SYSNDX GO EXIT. 00710000
$E3&SYSNDX MVI $BDCMP(,$DTF),$BCCAL SET INVALID REQUEST. 00720000
$RJ&SYSNDX EQU * 00730000
AIF (T'&REJECT EQ '').J 00740000
B &REJECT GO HANDLE REJECTED COMMAND. 00750000
.J ANOP 00760000
$XT&SYSNDX EQU * 00770000
MEND 00780000
CORDING AREA 004