|
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$DTUN«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DTUN«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTUN«
* TAPE UNIT SPECIFICATIONS
LINK
$DTUN &TAPES-
GBLB &TUNTG,&D48G,&TSUPG,&TNUM1,&TNUM2,&TCORG
TABLE &TAPES
NO 0
T1 8001
T1,T2 8002
T1,T2,T3 8004
T1,T2,T3,T4 8008
'E'
TEXT
AIF (&D48G).A
MNOTE '0,'IS'
MEXIT
.A AIF (&TAPES NE 'E').B
MNOTE '0,'IR'
MEXIT
.B AIF (&TAPES EQ '0').BB
AIF (&TCORG EQ '0').BB
MNOTE '0,'IC'
MEXIT
.BB ANOP
&D48G SETB 0
&TUNTG SETB 1
AIF (&TAPES NE '0').C
MEXIT
.C ANOP
// CONFG M,44,&TAPES
&TSUPG SETB 1
AIF (&TAPES EQ '8001').G
AIF (&TAPES EQ '8002').F
&TNUM1 SETB 1
AIF (&TAPES EQ '8004').G
.F ANOP
&TNUM2 SETB 1
.G ANOP
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$3.ALL,NEWNAME-$$
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$3.ALL,NEWNAME-$$
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$TINI.ALL
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$TVES
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$DCOP.ALL
MEND