|
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: 5120 (0x1400)
Types: TextFile
Names: »REA05«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy
└─ ⟦this⟧ »/REA05«
└─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy
└─ ⟦this⟧ »/REA05«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
└─ ⟦this⟧ »/REA05«
.TITL UR
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'UR<0><0><0>'
LAB00: 32
T29: 29
DEAD: LDA 2,CUR
STOPP
JMP .-2
TXTIM: .+1
.TXT 'TIME<0><0>'
STRAD:0
OTXT: STA 0,OT0
STA 1,OT1
STA 2,OT2
STA 3,OT3
STA 0,OT4
OT5: LDA 1,OT4
GETBY
MOV 0,0,SNR
JMP OT6
JSR OCHAR
ISZ OT4
JMP OT5
OT6: LDA 0,OT0
LDA 1,OT1
LDA 2,OT2
LDA 3,OT3
JMP +0,3
OT0:0
OT1:0
OT2:0
OT3:0
OT4:0
CNT:0
TALUD: LDA 2,TABE
ADD 1,2
LDA 2,+0,2
STA 3,GEM
STA 0,YKO
STA 2,TX
LDA 0,.6
JSR OCHAR
LDA 0,.7
STA 0,CNT
LOP: LDA 0,YKO
JSR OCHAR
LDA 0,TX
JSR OTXT
LDA 2,TX
LDA 1,T14
ADD 1,2
STA 2,TX
DSZ CNT
JMP LOP
JMP @ GEM
GEM:0
YKO:0
TX:0
T14: 14
TABE: .+1
TAL0*2
TAL1*2
TAL2*2
TAL3*2
TAL4*2
TAL5*2
TAL6*2
TAL7*2
TAL8*2
TAL9*2
INTX: .+1*2
.TXT '<12><6><71><11>##<6><71><13>##<0>'
REF:0
BIRTH:
LDA 1,PROCE
LDA 2,TXTIM
SEARCH
MOV # 2,2,SNR
JMP DEAD
STA 2,STRAD
DSZ STRAD
LDA 0,INTX
JSR OTXT
LOOP: LDA 0,T29
JSR OCHAR
LDA 2,.32
SUB 1,1
WAITI
LDA @ 1,STRAD
INC 1,1
INC 1,1
MOVZL 1,1
GETBY
LDA 1,REF
SNE 1,0
JMP LOOP
STA 0,REF
LDA @ 1,STRAD
MOVZL 1,1
GETBY
LDA 1,.48
SUB 1,0
MOV 0,1
LDA 0,TH10
JSR TALUD
LDA @ 1,STRAD
MOVZL 1,1
INC 1,1
GETBY
LDA 1,.48
SUB 1,0
MOV 0,1
LDA 0,TH1
JSR TALUD
LDA @ 1,STRAD
INC 1,1
MOVZL 1,1
INC 1,1
GETBY
LDA 1,.48
SUB 1,0
MOV 0,1
LDA 0,TM10
JSR TALUD
LDA @ 1,STRAD
INC 1,1
INC 1,1
MOVZL 1,1
GETBY
LDA 1,.48
SUB 1,0
MOV 0,1
LDA 0,TM1
JSR TALUD
JMP LOOP
TH10: 104
TH1: 120
TM10: 78
TM1: 94
OCHAR: STA 3,OCHA0
STA 2,OC2
STA 1,OC1
STA 0,OC0
LDA 1,.255
ANDS 1,0
LDA 1,.128
ADD 1,0
STA 0,MES1
RETRY: LDA 1,BUFF
LDA 2,TXAMX
SENDM
MOVZL # 2,2,SZC
JMP RETRY
WAITA
MOV 0,0,SZR
JMP RETRY
LDA 2,OC2
LDA 1,OC1
LDA 0,OC0
JMP @ OCHA0
TXAMX: .+1
.TXT 'AMX<0><0><0>'
OC0:0
OC1:0
OC2:0
OCHA0: 0
BUFF: .+1
9*256+7
1
.+2*2
0
MES1: 128
TAL0:
.TXT '<9>##########<6><0>'
.TXT '<10>## ##<6><0>'
.TXT '<11>## ##<6><0>'
.TXT '<12>## ##<6><0>'
.TXT '<13>## ##<6><0>'
.TXT '<14>## ##<6><0>'
.TXT '<15>##########<0>'
TAL1:
.TXT '<9> ##<6><0>'
.TXT '<10> ##<6><0>'
.TXT '<11> ##<6><0>'
.TXT '<12> ##<6><0>'
.TXT '<13> ##<6><0>'
.TXT '<14> ##<6><0>'
.TXT '<15> ##<0>'
TAL2:
.TXT '<9>##########<6><0>'
.TXT '<10> ##<6><0>'
.TXT '<11> ##<6><0>'
.TXT '<12>##########<6><0>'
.TXT '<13>## <6><0>'
.TXT '<14>## <6><0>'
.TXT '<15>##########<0>'
TAL3:
.TXT '<9>##########<6><0>'
.TXT '<10> ##<6><0>'
.TXT '<11> ##<6><0>'
.TXT '<12>##########<6><0>'
.TXT '<13> ##<6><0>'
.TXT '<14> ##<6><0>'
.TXT '<15>##########<0>'
TAL4:
.TXT '<9>## ##<6><0>'
.TXT '<10>## ##<6><0>'
.TXT '<11>## ##<6><0>'
.TXT '<12>##########<6><0>'
.TXT '<13> ##<6><0>'
.TXT '<14> ##<6><0>'
.TXT '<15> ##<0>'
TAL5:
.TXT '<9>##########<6><0>'
.TXT '<10>## <6><0>'
.TXT '<11>## <6><0>'
.TXT '<12>##########<6><0>'
.TXT '<13> ##<6><0>'
.TXT '<14> ##<6><0>'
.TXT '<15>##########<0>'
TAL6:
.TXT '<9>##########<6><0>'
.TXT '<10>## <6><0>'
.TXT '<11>## <6><0>'
.TXT '<12>##########<6><0>'
.TXT '<13>## ##<6><0>'
.TXT '<14>## ##<6><0>'
.TXT '<15>##########<0>'
TAL7:
.TXT '<9>##########<6><0>'
.TXT '<10> ##<6><0>'
.TXT '<11> ##<6><0>'
.TXT '<12> ##<6><0>'
.TXT '<13> ##<6><0>'
.TXT '<14> ##<6><0>'
.TXT '<15> ##<0>'
TAL8:
.TXT '<9>##########<6><0>'
.TXT '<10>## ##<6><0>'
.TXT '<11>## ##<6><0>'
.TXT '<12>##########<6><0>'
.TXT '<13>## ##<6><0>'
.TXT '<14>## ##<6><0>'
.TXT '<15>##########<0>'
TAL9:
.TXT '<9>##########<6><0>'
.TXT '<10>## ##<6><0>'
.TXT '<11>## ##<6><0>'
.TXT '<12>##########<6><0>'
.TXT '<13> ##<6><0>'
.TXT '<14> ##<6><0>'
.TXT '<15> ##<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 'UR<0><0><0>'
.+0
.-1
BUFF1
PGDS
0
0
1
DEAD
0
0
0
0
BIRTH*2
.END PCDS
«ff»
«nul»