fix some compilation errors in ttt{1,2}.s and un.s

Fixes issue #85.
This commit is contained in:
Sebastian Rasmussen
2019-10-19 03:44:28 +02:00
parent c13761e821
commit 4ff5d2bcf8
3 changed files with 18 additions and 18 deletions
+11 -11
View File
@@ -17,13 +17,13 @@ t = 0
law dbuf law dbuf
sys capt sys capt
law 16 law 16
sys syloc sys sysloc
tad d1 tad d1
dac lpadr dac lpadr
law 13 law 13
sys sysloc sys sysloc
dac pbadr dac pbadr
dxm lpadr i dzm lpadr i
loop: loop:
jms move jms move
jms must; jmp loop jms must; jmp loop
@@ -103,7 +103,7 @@ move: 0
jms mark; 512 jms mark; 512
jmp move i jmp move i
dsmove: dspmove:
jms getpb jms getpb
sza sza
jmp pbhit jmp pbhit
@@ -128,7 +128,7 @@ lphit:
dac blk2 i dac blk2 i
dac 9f+t i dac 9f+t i
1: 1:
dzm lpaddr i dzm lpadr i
lacq lacq
cma cma
tad sbufp tad sbufp
@@ -362,7 +362,7 @@ try: 0
lac 9f+t+4 lac 9f+t+4
sna sna
jmp 1f jmp 1f
lsz try isz try
jmp try i jmp try i
" save " save
@@ -500,7 +500,7 @@ heur: 0
tad force tad force
dac lforce dac lforce
-1000 -1000
dac lrpi dac lpri
-64 -64
dac 9f+t dac 9f+t
lac boardp lac boardp
@@ -517,14 +517,14 @@ heur: 0
jmp 4f jmp 4f
lac pri lac pri
cma cma
tad lrpi tad lpri
sma cma sma cma
jmp 3f-1 jmp 3f-1
sza sza
jmp 2f jmp 2f
isz prob isz prob
-1 -1
cll; idiv; prob;., cll; idiv; prob;..
lacq lacq
lrss 6 lrss 6
dac force dac force
@@ -554,11 +554,11 @@ heur: 0
jmp 1b jmp 1b
lac lmov lac lmov
jms mark; 1 jms mark; 1
jmp heiur i jmp heur i
4: 4:
lac 9f+t+1 lac 9f+t+1
"** 14-148-165.pdf page 10 "** 14-148-165.pdf page 10
jsm mark; 1 jms mark; 1
jmp heur i jmp heur i
t = t+2 t = t+2
@@ -718,7 +718,7 @@ t = t+1
getpb: 0 getpb: 0
sys time sys time
lac pbar i lac pbadr i
and o2000 and o2000
sza sza
sys exit sys exit
+4 -4
View File
@@ -2,12 +2,12 @@
" ttt2 " ttt2
boardp: board boardp: board
shufp: sbuf sbufp: sbuf
qdt: <dt> qdt: <dt>
imaxin: -4000 imaxin: -4000
noblink: 060000 noblink: 060000
blinkpar: 070000 blinkpar: 070000
setxy: setx setxv: setx
setyv: sety setyv: sety
o12: 012 o12: 012
o14: 014 o14: 014
@@ -21,7 +21,7 @@ o4000: 04000
o2: 2 o2: 2
o1000: 01000 o1000: 01000
d1: 1 d1: 1
dm60: -060 om60: -060
o77: 077 o77: 077
line: line:
tb = tad board-1 tb = tad board-1
@@ -191,7 +191,7 @@ oh:
dnop dnop
dnop dnop
dot: dot:
ipenb lpenb
vx 0200 vx 0200
vy 040 iv vy 040 iv
vx 05 vx 05
+1 -1
View File
@@ -24,7 +24,7 @@
lac t1 lac t1
tad d6 tad d6
dac t1 dac t1
isz ca1 isz c1
jmp 1b jmp 1b
sys exit sys exit