|
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$DTRK«
└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
└─⟦cfce0a73a⟧
└─⟦this⟧ »S$DTRK«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTRK«
* LAST CHANGE V8M0 TAPE UNIT SEVEN TRACK SPEC
LINK
$DTRK &TRACK7-
GBLB &TDENG,&TDNG,&TSUPG,&TNUM1,&TNUM2,&TDENG
TABLE &TRACK7
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 (&TDENG).A
MNOTE '0,'IS'
MEXIT
.A AIF (&TRACK7 NE 'E').B
MNOTE '0,'IR'
MEXIT
.B AIF (&TRACK7 EQ '0').S
AIF (&TSUPG).C
MNOTE '0,'IC'
MEXIT
.C AIF (&TDNG NE '1').D
MNOTE '0,'IC'
MEXIT
.D AIF (&TNUM1).H
AIF (&TNUM2).J
AIF (&TRACK7 GE '02').R
AIF (&TRACK7 LT '00').R
AGO .T
.J AIF (&TRACK7 GE '04').R
AIF (&TRACK7 LT '00').R
AGO .T
.H AIF (&TNUM2).T
AIF (&TRACK7 GE '08').R
AIF (&TRACK7 LT '00').R
AGO .T
.R MNOTE '0,'IC'
MEXIT
.T ANOP
// CONFG M,47,&TRACK7
.S ANOP
&TDNG SETB 1
&TDENG SETB 0
MEND
ÐÐÐÐÐÐÐÐÐÐÐÐÐÐ=®®®®®®®®®®®®®®:ÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞææææææææææææææææææææææææææææ
æææææææææææææææææææææææææææææææææææææææææææææææ2ggggggggggggg¯¯¯¯¯¯¯¯¯¯¯¯¯½ØØØØØØØØØØØØØØØØØ2°°°
°¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝ222222}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
iiiiiiiiiii2gggggggggggggggggggggggýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýÔ222222}giiiiiiiiiiiii
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiii¨RRRRRRRRRRR222222}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
ii2