|
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: 2048 (0x800)
Types: TextFile
Names: »REA06«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy
└─⟦this⟧
└─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy
└─⟦this⟧
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
└─⟦this⟧
.TITL RETST
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'RETST'
LAB00:
ADRS: 0
T29: 29
T31: 31
T96:96
XKO: 0
YKO:0
DEAD: LDA 2,CUR
STOPP
JMP .-2
BIRTH: LDA 0,T29
JSR OCHAR
LDA 2,ADRS
MOVL # 2,2,SZC
JMP DEAD
LDA 1,+0,2
LDA 3,.255
MOVS 3,0
AND 1,3
ANDS 1,0
MOVZL 0,1
ADD 1,0
MOVZL 3,1
ADD 1,3
STA 0,YKO
STA 3,XKO
LDA 0,XKO
MOVR 0,1
MOVR 1,1
MOVR 1,1
MOVR 1,1
MOVR 1,1
LDA 0,T31
AND 0,1
LDA 0,.32
ADD 1,0
JSR OCHAR
LDA 1,XKO
LDA 0,T31
AND 0,1
LDA 0,T96
ADD 1,0
JSR OCHAR
LDA 1,YKO
MOVR 1,1
MOVR 1,1
MOVR 1,1
MOVR 1,1
MOVR 1,1
LDA 0,T31
AND 0,1
LDA 0,.32
ADD 1,0
JSR OCHAR
LDA 1,YKO
LDA 0,T31
AND 0,1
LDA 0,.64
ADD 1,0
STA 0,XKO
JSR OCHAR
SUB 0,0
JSR OCHAR
SUB 0,0
JSR OCHAR
LDA 0,XKO
JSR OCHAR
ISZ ADRS
JMP BIRTH
OCHAR: STA 3,OCHA0
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
JMP @ OCHA0
TXAMX: .+1
.TXT 'AMX<0><0><0>'
OCHA0: 0
BUFF: .+1
11*256+7
1
.+2*2
0
MES1: 128
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 'RETST'
.+0
.-1
BUFF1
PGDS
0
0
33
DEAD
0
0
0
0
BIRTH*2
.END PCDS
«ff»
«nul»