|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Types: TextFile
Names: »REA00«
└─⟦c99ffa672⟧ Bits:30001786 SG0006 Floppy
└─⟦this⟧ »/REA00«
.TITL PHKAM
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'PHKAM'
LAB00:
LPZON: .TXT 'LPT<0><0><0>'
Z
0
1
65535
DEAD
1
1
0
LPS0
73
0
0
LPB0*2
LPB0*2
LPS0
132
0
.BLK ZAUX
LPS0: 0
0
0
0
LPS0
0
LPB0*2
LPB0: .BLK 66
.DUSR FD1=52
BIRTH: MOV 1,2
LDA 1,+7,2
STA 1,TRACK
LDA 2,LPZO1
LDA 0,.3
OPEN
LDA 0,.1B6
DOAS 0,FD1
SKPBZ FD1
JMP .-1
NTRACK: LDA 0,TRACK
LDA 3,.1B7
LDA 1,.1B6
ADD 3,1
ADD 0,1
DOAS 1,FD1
SKPBZ FD1
JMP .-1
OUTNL
LDA 1,FJOR
OUTEN
OUTSP
LDA 0,TX00B
OUTTE
LDA 0,TRACK
LDA 2,CUR
LDA 1,ARB2
BINDE
LDA 2,LPZO1
LDA 0,ARB2
INC 0,0
INC 0,0
INC 0,0
OUTTE
OUTNL
OUTNL
SUB 0,0
STA 0,SECTO
INC 0,0
STA 0,VIR
NSECT: ISZ SECTO
LDA 0,SECTO
LDA 1,SYVOG
SUB # 0,1,SNR
JMP NYTRA
LDA 0,VIR
DOAS 0,FD1
SKPBZ FD1
JMP .-1
LDA 2,CUR
LDA 1,ARB2
BINDE
LDA 2,LPZO1
LDA 0,ARB2
INC 0,0
INC 0,0
INC 0,0
OUTTE
LDA 1,KOLON
OUTEN
LDA 0,.64
STA 0,CH
NCHR: DIB 1,FD1
STA 1,MDL
DIB 1,FD1
LDA 0,.127
AND 0,1
SUB # 0,1,SNR
LDA 1,.32
LDA 0,.32
SG 1,0
MOV 0,1
OUTEN
LDA 1,MDL
LDA 0,.127
AND 0,1
SUB # 0,1,SNR
LDA 1,.32
LDA 0,.32
SG 1,0
MOV 0,1
OUTEN
DSZ CH
JMP NCHR
OUTNL
LDA 0,VIR
LDA 1,.7
ADD 1,0
LDA 1,SEKSO
SG 0,1
JMP .+3
SUB 1,0
JMP .-3
STA 0,VIR
JMP NSECT
SEKSO:26
MDL:0
KOLON: 58
VIR: 0
FJOR: 14
TRACK: 0
SECTO: 0
CH: 0
LPZO1: LPZON
SYVOG: 27
NYTRA: ISZ TRACK
LDA 0,TRACK
LDA 1,SYVOH
SUB 0,1,SNR
JMP DEAD
JMP NTRAC
SYVOH: 77
DEAD: LDA 2,CUR
STOPP
JMP .-2
ARB2: .+1*2
.BLK 5
TX00B: .+1*2
.TXT 'TRACK NO:<0>'
BUFF1: .+0
.-1
BUFF2
10
PCDS
0
0
0
0
0
BUFF2: .+0
.-1
0
10
PCDS
0
0
0
0
0
PCDS: .+0
.-1
0
0
.TXT 'PHKAM'
.+0
.-1
BUFF1
PGDS
0
0
33
DEAD
0
0
0
0
BIRTH*2
.BLK 8
.END PCDS
«ff»
«nul»