|
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$BCAR«
└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
└─⟦2a281693d⟧
└─⟦this⟧ »S$BCAR«
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
└─⟦decd4c985⟧
└─⟦this⟧ »S$BCAR«
* BCARD OPTIONS
LINK
$BCAR &CARD-
GBLB &INQG,&OUTG,&DREC @12
TABLE &CARD
NO 00
DREC 80
'E'
TEXT
AIF (&INQG).B
MNOTE '0,'IS'
MEXIT
.B AIF (&CARD NE 'E').F
MNOTE '0,'IR'
MEXIT
.F ANOP
&INQG SETB 0
&OUTG SETB 1
AIF (&CARD NE '80').G
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STF6,NEWNAME-$$STF6
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@RD.ALL,NEWNAME-$$RD
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STH.ALL,NEWNAME-$$STH
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STID,NEWNAME-$$STID
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@SLZ.ALL,NEWNAME-$$SLZ
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@DLGY,NEWNAME-$$DLGY
&DREC SETB 1 @12
.G ANOP
// CONFG M,20,&CARD
MEND