|
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: 1778 (0x6f2)
Types: s3xseg
Names: »S$DD48«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DD48«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DD48«
* DISK 5448 SUPPORT
LINK
$DD48 &D5448-
GBLB &D48G,&D45G,&S45G,&S5445,&SWDG
TABLE &D5448
NO '00'
YES '80'
'E'
TEXT
AIF (&D45G).A
MNOTE '0,'IS'
MEXIT
.A AIF (&D5448 NE 'E').B
MNOTE '0,'IR'
MEXIT
.B ANOP
AIF (&D5448 EQ '00').P1
AIF (&S45G EQ '1').D
AIF (&S5445 NE '1').F
.D ANOP
MNOTE '0,'IC'
MEXIT
.F ANOP
&SWDG SETB 1
// CONFG M,40,8003
// CONFG M,42,&D5448
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$DLGH
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$5CD.ALL,NEWNAME-$$CD
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$5IN.ALL,NEWNAME-$$IN
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$5OD.ALL,NEWNAME-$$OD
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$5SS.ALL,NEWNAME-$$SS
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$5TM.ALL,NEWNAME-$$TM
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-R,NAME-$5.ALL,NEWNAME-$$
// COPY FROM-R1,TO-F1,RETAIN-R,LIBRARY-R,NAME-$8.ALL,NEWNAME-$$
// COPY FROM-R1,TO-F1,RETAIN-R,LIBRARY-O,NAME-$8.ALL,NEWNAME-$$
// COPY FROM-R1,TO-F1,RETAIN-R,LIBRARY-O,NAME-$A8.ALL,NEWNAME-$AL
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$B8.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-R,LIBRARY-O,NAME-$I8.ALL,NEWNAME-$IN
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$L5.ALL,NEWNAME-$LA
// COPY FROM-R1,TO-F1,RETAIN-R,LIBRARY-O,NAME-$L8.ALL,NEWNAME-$LA
// COPY FROM-R1,TO-F1,RETAIN-P,LIBRARY-O,NAME-$PC.ALL
.P1 ANOP
&D45G SETB 0
&D48G SETB 1
MEND