76 lines
1.1 KiB
ArmAsm
76 lines
1.1 KiB
ArmAsm
"** 12-92-119.pdf page 19
|
|
" space travel 5
|
|
|
|
dsplanet: 0 " display planet center
|
|
tad points " add points address to ac (planet index)
|
|
dac 9f+t
|
|
lac i 9f+t
|
|
dac i clistp " set planet brightness
|
|
lac o246256
|
|
dac i clistp
|
|
lac o253052
|
|
dac i clistp
|
|
lac o246036
|
|
dac i clistp
|
|
jmp dsplanet i
|
|
|
|
dispname: 0 " display planet name
|
|
tad names " add names address to ac (planet index)
|
|
dac 9f+t
|
|
lac i 9f+t
|
|
tad dm1
|
|
dac 8
|
|
law 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 " display scale
|
|
lac scale " AC = scale
|
|
sma
|
|
jmp 1f " if (scale < 0) {
|
|
lac o55 "-
|
|
dac dssca " dssca[0] = '-'
|
|
-1
|
|
tad scale
|
|
cma " AC = -AC
|
|
jmp 2f
|
|
1: " } else {
|
|
"** 12-92-119.pdf page 20
|
|
lac o53 "+
|
|
dac dssca " dssca[0] = '+'
|
|
lac scale
|
|
2: " }
|
|
cll; idiv; 10
|
|
tad o60
|
|
dac dssca+2 " dssca[2] = (AC % 10) + '0'
|
|
lacq
|
|
tad o60
|
|
dac dssca+1 " dssca[1] = (AC / 10) + '0'
|
|
jmp i dspsca
|