|
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: 1524 (0x5f4)
Types: s3xseg
Names: »S$DCRD«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DCRD«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DCRD«
* DCARD OPTIONS
LINK
$DCRD &CARD-
GBLB &CARDG,&LINEG,&F2G,&CG
TABLE &CARD
MFCU 80
MFCU,1442 88
1442 81
NO 0
'E'
TABLE &SET
80
TEXT
AIF (&LINEG).B
MNOTE '0,'IS'
MEXIT
.B AIF (&CARD NE 'E').A
MNOTE '0,'IR'
MEXIT
.A ANOP
&LINEG SETB 0
&CARDG SETB 1
AIF (&CARD EQ '80').E
AIF (&CARD EQ '81').F
AIF (&CARD EQ '0').BA1
// CONFG M,00,&SET
.F ANOP
&F2G SETB 1
// CONFG M,0C,&SET
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$@AR.ALL,NEWNAME-$$AR
AGO .B
.E ANOP
// CONFG M,00,&CARD
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$CLER
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$DLGQ
.B ANOP
AIF (&CARD EQ '81').BA2
&CG SETB 1
AGO .B1
.BA1 ANOP
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$OPMF
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$CLM1
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$CLER
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$DLGQ
.BA2 ANOP
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$DLGY
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$CLE1
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$CLE2
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$CLE3
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$MF.ALL
// DELETE FROM-F1,RETAIN-P,LIBRARY-R,NAME-$$MF.ALL
.B1 MEND