add space-travel-{1,2,3,4,5,6,7}.s

2019-10-18 18:56:32 +02:00
parent d849ccf658
commit 65199c07a0
8 changed files with 1426 additions and 0 deletions
@@ -0,0 +1,73 @@
+" 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