|
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: 2286 (0x8ee)
Types: s3xseg
Names: »S$RFT«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$RFT«
MACRO 00010000
&ID $RFT &DTF-,&PARM-'''PARM',&FROM-,&REJECT-,&LEN- 00020000
TEXT 00400000
* BSCA REQUEST FOR TEST. RELEASE-7 A 00410000
SPACE 00420000
AIF (T'&ID EQ '').A 00430000
&ID EQU * 00440000
.A AIF (T'&DTF EQ '').C 00450000
LA &DTF,$DTF LOAD DTF ADDR. 00460000
.C ST $XT&SYSNDX+3,$BBAC1 SAVE REGISTER. 00470000
TBN $BDATT(,$DTF),$BCOUT PUT FILE ? 00480000
TBN $BDATR(,$DTF),$BCOPN OPENED ? 00490000
L $BDIOB(,$DTF),$IOB LOAD IOB ADDR. 00500000
TBN $BIFLA(,$IOB),$BIFST FIRST TIME ? 00510000
AIF (T'&LEN EQ '').E 00520000
CLC $RL&SYSNDX,$BDBKL(2,$DTF) RECORD LEN LESS THAN BLOCK LEN ? 00530000
AGO .G 00540000
.E CLC $BDREL(2,$DTF),$BDBKL(,$DTF) RECORD GREATER THAN BLOCK ? 00550000
.G JC $ER&SYSNDX,$FLS+$HI NOT PUT, FIRST OR RECL GT BLKL. 00560000
AIF (T'&LEN EQ '').N 00570000
MVC $BDREL(2,$DTF),$RL&SYSNDX FILL IN THE LENGTH. 00580000
.N AIF (T'&FROM EQ '').P 00590000
MVC $BDWKB(2,$DTF),$MG&SYSNDX FILL IN MESSAGE ADDR. 00600000
.P L $RF&SYSNDX,$BWK LOAD A WORK REGISTER. 00610000
TBF $BRCNT(,$BWK),$BHX0F COUNT = 00620000
TBF $BRCNT-1(,$BWK),$BHX0F DECIMAL ZERO ? 00630000
JT $ER&SYSNDX YES-REJECT RFT. 00640000
MVC $BDRFT(2,$DTF),$RF&SYSNDX FILL IN PARM LIST ADDR. 00650000
.R B $$BSMS CALL BSCA DATA MANAGEMENT. 00660000
L $BDWKA(,$DTF),$BWK LOAD WKA ADDR. 00670000
SBN $BWFG3(,$BWK),$BWRFT SET RFT IN PROCESS. 00680000
J $XT&SYSNDX JUMP TO END. 00690000
AIF (T'&LEN EQ '').T 00700000
$RL&SYSNDX DC AL2(&LEN) LENGTH OF MESSAGE. 00710000
AGO .U 00720000
.T MNOTE 04,'B5001 MISSING OPERAND. LEN' 00730000
.U AIF (T'&FROM EQ '').V 00740000
$MG&SYSNDX DC AL2(&FROM) ADDR. OF MESSAGE. 00750000
AGO .W 00760000
.V MNOTE 04,'B5002 MISSING OPERAND. FROM' 00770000
.W ANOP 00780000
$RF&SYSNDX DC AL2(&PARM) ADDR. OF PARM LIST. 00790000
$ER&SYSNDX MVI $BDCMP(,$DTF),$BCOLT SET REJECT RETURN CODE. 00800000
AIF (T'&REJECT EQ '').Z 00810000
B &REJECT EXIT TO REJECT RTN. 00820000
SPACE 00830000
.Z ANOP 00840000
$XT&SYSNDX LA *-*,$BBAC1 RELOAD REGISTER. 00850000
MEND 00860000
}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii2ggggggggggggggg¾000000000_________________
____________________________________________2jjjjj}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
iiiiii2E 2 00860000
MEND 00870000