|
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$DTDN«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DTDN«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTDN«
* TAPE UNIT DENSITY SPECIFICATION
LINK
$DTDN &DUALDN-
GBLB &TDENG,&TUNTG,&TSUPG,&TNUM1,&TNUM2,&TDNG
TABLE &DUALDN
NO 0
T1 01
T2 02
T3 04
T4 08
T1,T2 03
T1,T3 05
T1,T4 09
T2,T3 06
T2,T4 '0A'
T3,T4 '0C'
T1,T2,T3 07
T1,T2,T4 '0B'
T1,T3,T4 '0D'
T2,T3,T4 '0E'
T1,T2,T3,T4 '0F'
'E'
TEXT
AIF (&TUNTG).A
MNOTE '0,'IS'
MEXIT
.A AIF (&DUALDN NE 'E').B
MNOTE '0,'IR'
MEXIT
.B AIF (&DUALDN EQ '0').S
AIF (&TSUPG).C
MNOTE '0,'IC'
MEXIT
.C ANOP
&TDNG SETB 1
AIF (&TNUM1).H
AIF (&TNUM2).J
AIF (&DUALDN GE '02').R
AIF (&DUALDN LT '00').R
AGO .T
.J AIF (&DUALDN GE '04').R
AIF (&DUALDN LT '00').R
AGO .T
.H AIF (&TNUM2).T
AIF (&DUALDN GE '08').R
AIF (&DUALDN LT '00').R
AGO .T
.R MNOTE '0,'IC'
MEXIT
.T ANOP
// CONFG M,46,&DUALDN
.S ANOP
&TUNTG SETB 0
&TDENG SETB 1
MEND
TE 00760000 D