|
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: 2032 (0x7f0)
Types: s3xseg
Names: »S$DBSC«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DBSC«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DBSC«
* DBSCA OPTIONS
LINK
$DBSC &LINE-
GBLB &INQG,&BSCAG,&BSCAE,&BING
TABLE &LINE
NO 00
L1 8001
L1,L2 8002
ICA 8004 @12
L1,ICA 8005 @12
L1,DA 800A L1 AND LOCAL DISPLAY ADAPTER @13
DA 800B LOCAL DISPLAY ADAPTER @13
'E'
TEXT
AIF (&INQG).A
MNOTE '0,'IS'
MEXIT
.A AIF (&LINE NE 'E').R
MNOTE '0,'IR'
MEXIT
.R ANOP
&BSCAG SETB 1
&INQG SETB 0
AIF (&LINE NE '00').K
MEXIT
.K ANOP
AIF (&LINE NE '8001').B NOT LINE 1 @12
// CONFG M,24,8001
AGO .M @12
.B ANOP @12
AIF (&LINE NE '8002').C NOT LINE 2 @12
// CONFG M,24,8001
// CONFG M,48,8002
&BING SETB 1 LINE 2 INCLUDES CHECKED BY $DEND @12
AGO .M @12
.C ANOP @12
AIF (&LINE NE '8004').D NOT ICA @12
// CONFG M,24,8004
// CONFG M,48,8002
&BING SETB 1 LINE 2 INCLUDES CHECKED BY $DEND @12
AGO .M @12
.D ANOP @12
AIF (&LINE NE '8005').E NOT L1,ICA @13
// CONFG M,24,8005
// CONFG M,48,8002
&BING SETB 1 LINE 2 INCLUDES CHECKED BY $DEND @12
AGO .M @13
.E ANOP @13
AIF (&LINE NE '800B').F NOT LOCAL DISPLAY ADAPTER @13
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@MCRI,NEWNAME-$$MCRI
// CONFG M,24,800B @13
// CONFG M,48,8002 @13
&BING SETB 1 LINE 2 INCLUDES CHECKED BY $DEND @13
AGO .M @13
.F ANOP @13
AIF (&LINE NE '800A').M NOT L1,LOCAL DISPLAY ADAPTER @13
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$@MCRI,NEWNAME-$$MCRI
// CONFG M,24,800A @13
// CONFG M,48,8002 @13
&BING SETB 1 LINE 2 INCLUDES CHECKED BY $DEND @13
.M ANOP
&BSCAE SETB 1
// 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