|
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$BCRT«
└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
└─⟦2a281693d⟧
└─⟦this⟧ »S$BCRT«
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
└─⟦decd4c985⟧
└─⟦this⟧ »S$BCRT«
* BCRT OPTIONS
LINK
$BCRT &CRT-
GBLB &BSCAG,&CORCT,&CRTG
TABLE &CRT
NO 00
YES 80
'E'
TEXT
AIF (&BSCAG).A
MNOTE '0,'IS'
MEXIT
.A AIF (&CRT NE 'E').B
MNOTE '0,'IR'
MEXIT
.B AIF (&CRT EQ '00').F
AIF (&CORCT).D
MNOTE '0,'IC'
MEXIT
.D ANOP
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@SLT.ALL,NEWNAME-$$SLT
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STOT,NEWNAME-$$STOT
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STOX,NEWNAME-$$STOX
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STIT,NEWNAME-$$STIT
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@STIX,NEWNAME-$$STIX
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@DLGU,NEWNAME-$$DLGU
&CORCT SETB 0
.F ANOP
// CONFG M,28,&CRT
&BSCAG SETB 0
&CRTG SETB 1
MEND
aaaaaaaaaBBBBBBBBBBBBBBBBBBBB}gaÅBBBBBBBBBBBBBBBBBBBBBBBBBRACKS-20,RETAIN-S
// FILE NAME-$SOURCE,UNIT-F1,PACK-F1F1F1,TRACKS-20,RETAIN-S
// RUN
CKS-20,RETAIN-S // FILE NAME-$SOURCE,UNI
T-F1,PACK-F1F1F1,TRACKS-2