|
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$BCOR«
└─⟦551e4a452⟧ Bits:30009187 5703-sc1.V14.ccp
└─⟦2a281693d⟧
└─⟦this⟧ »S$BCOR«
└─⟦f5e77a403⟧ Bits:30009188 5703-sc1.V14.scp
└─⟦decd4c985⟧
└─⟦this⟧ »S$BCOR«
* BCORE OPTIONS
LINK
$BCOR &CORE-
GBLB &COREG,&SUPVG,&CORCT,&CORMC,&MODX
TABLE &CORE
8K 002000
12K 003000
16K 004000
24K 006000
32K 008000
64K 010000
'E'
TEXT
AIF (&SUPVG).C
MNOTE '0,'IS'
MEXIT
.C AIF (&CORE NE 'E').A
MNOTE '0,'IR'
MEXIT
.A AIF (&CORE EQ '002000').B
&CORCT SETB 1
&CORMC SETB 1
.B ANOP
&SUPVG SETB 0
&COREG SETB 1
// CONFG M,FD,&CORE
AIF (&CORE EQ '010000').D
// CONFG M,F9,80
INCLD $@SPV3
MEXIT
.D ANOP
// CONFG M,F9,40
INCLD $@SPV4
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-P,NAME-$@SPD8,NEWNAME-$$SPD8
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-P,NAME-$@CEFE,NEWNAME-$$CEFE
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-P,NAME-$XCSOM,NEWNAME-$$CSOM
// COPY FROM-R1,TO-F1,LIBRARY-O,RETAIN-P,NAME-$XCSUM,NEWNAME-$$CSUM
&MODX SETB 1
MEND