74 lines
817 B
ArmAsm
74 lines
817 B
ArmAsm
" space travel 5
|
|
|
|
dsplanet: 0
|
|
tad points
|
|
dac 9f+t
|
|
lac i 9f+t
|
|
dac i clistp
|
|
lac o246256
|
|
dac i clistp
|
|
lac o253052
|
|
dac i clistp
|
|
lac o246036
|
|
dac i clistp
|
|
jmp dsplanet i
|
|
|
|
dispname: 0
|
|
tad names
|
|
dac 9f+t
|
|
lac i 9f+t
|
|
tad dm1
|
|
dac 8
|
|
iaw namedsp-1
|
|
dac 9
|
|
-10
|
|
dac 9f+t
|
|
1:
|
|
lac i 8
|
|
sna
|
|
jmp 2f
|
|
dac 9f+t+1
|
|
lrss 9
|
|
dac i 9
|
|
isz 9f+t
|
|
skp
|
|
jmp i dispname
|
|
lac 9f+t+1
|
|
and o177
|
|
sna
|
|
jmp 2f
|
|
dac i 9
|
|
isz 9f+t
|
|
jmp 1b
|
|
jmp i dispname
|
|
2:
|
|
dzm i 9
|
|
isz 9f+t
|
|
jmp 2b
|
|
jmp i dispname
|
|
|
|
t = t+2
|
|
|
|
dspsca: 0
|
|
lac scale
|
|
sma
|
|
jmp 1f
|
|
lac 055 "-
|
|
dac dssca
|
|
-1
|
|
tad scale
|
|
cma
|
|
jmp 2f
|
|
1:
|
|
lac o53 "+
|
|
dac dssca
|
|
lac scale
|
|
2:
|
|
cll; idiv; 10
|
|
tad o60
|
|
dac dssca+2
|
|
lacq
|
|
tad o60
|
|
dac dssca+1
|
|
jmp i dpssca
|