|
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$BBSC«
└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
└─⟦2a281693d⟧
└─⟦this⟧ »S$BBSC«
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
└─⟦decd4c985⟧
└─⟦this⟧ »S$BBSC«
* BBSCA OPTIONS
LINK
$BBSC &BSCA-
GBLB &OUTP,&BSCAG,&BSCAE,&MODX
TABLE &BSCA
NO 00
YES 'S'
'E'
TEXT
AIF (&OUTP).A
MNOTE '0,'IS'
MEXIT
.A AIF (&BSCA NE 'E').R
MNOTE '0,'IR'
MEXIT
.R ANOP
&BSCAG SETB 1
&OUTP SETB 0
AIF (&MODX).L
AIF (&BSCA NE '00').K
// CONFG M,24,00
MEXIT
.K ANOP
// CONFG M,25,01
AGO .M
.L ANOP
// CONFG M,25,0B
// CONFG M,48,80
// CONFG M,49,02
.M ANOP
&BSCAE SETB 1
// CONFG M,24,80
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@BS.ALL,NEWNAME-$$BS
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$@BS.ALL,NEWNAME-$$BS
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@DLGT,NEWNAME-$$DLGT
MEND