|
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 - download
Length: 1027 (0x403)
Description: Bits:30000875 Assembler source, bootloader "DSC" disk ?
Types: 8-hole paper tape, TextFileEven
.LOC 22
.COUNT: 0
.FWA2: 541
.FWA: 141
.C7: 177400
C4: 000004
30
HAB: 0
0
0
0
STATUS: 002000
0
0
0
BEGIN: STA 0,FWA1
STA 1,FWA1+1
RESTART: LDA 0,SEEK-1
STA 0,HAB
JSR DEVSTART
.ENTRY: READS 0
LDA 2,.FWA
LDA 1,.C7
STA 0,0,2
INC 2,2
INC 1,1,SZR
JMP .-3
LDA 0,WRDA-1
STA 0,HAB
JSR DEVSTART
LDA 0,RDDA-1
STA 0,HAB
JSR DEVSTART
LDA 2,.FWA
LDA 3,.FWA2
LDA 0,.C7
STA 0,.COUNT
IGEN: LDA 0,0,2
LDA 1,0,3
SUB# 1,0,SZR
HALT
INC 2,2
INC 3,3
ISZ .COUNT
JMP IGEN
JMP RESTART
DEVSTART: LDA 0,HAB-1
DOB 0,20
LDA 1,C4
DOA 1,20
SKPDN 20
JMP .-1
JMP 0,3
;CHANNELPROGRAMSTART
.+1
WRDA: 154003
1000
141
154007
0
0
;NEW CHANNELPROGRAM
.+1
SEEK: 154002
0
136
154007
0
0
;NEXT CHANNELPROGRAM
.+1
RDDA: 154002
0
136
154001
1000
541
154007
0
0
FWA1: 0
0
0
.END
«ff»