|
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: 1270 (0x4f6)
Types: s3xseg
Names: »S$DDSK«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DDSK«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DDSK«
* DISK 5445 SUPPORT
LINK
$DDSK &D5445-
GBLB &DISKG,&D45G,&SWBG,&SWCG,&S45G
GBLB &DSDIO,&S5445
TABLE &D5445
NO '00'
D1 '01'
D1,D2 '03'
'E'
TEXT
AIF (&DISKG).A
MNOTE '0,'IS'
MEXIT
.A AIF (&D5445 NE 'E').B
MNOTE '0,'IR'
MEXIT
.B ANOP
AIF (&D5445 EQ '00').P1
AIF (&S45G NE '1').PP
MNOTE '0,'IC'
MEXIT
.PP ANOP
&DSDIO SETB 1
&SWBG SETB 1
&S5445 SETB 1
// CONFG M,40,80
// CONFG M,41,&D5445
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$5.ALL,NEWNAME-$$
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$5.ALL,NEWNAME-$$
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$A5.ALL,NEWNAME-$AL
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$B5.ALL,NEWNAME-$BU
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$C5.ALL,NEWNAME-$CO
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$D5.ALL,NEWNAME-$DE
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$I5.ALL,NEWNAME-$IN
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$L5.ALL,NEWNAME-$LA
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$VT.ALL
AIF (&D5445 EQ '01').P
&SWCG SETB 1
.P ANOP
.P1 ANOP
&DISKG SETB 0
&D45G SETB 1
.C MEND