1
0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-13 15:27:39 +00:00

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

Fixes issue #85.
This commit is contained in:
Sebastian Rasmussen 2019-10-18 20:00:18 +02:00
parent c13761e821
commit 4ff5d2bcf8
3 changed files with 18 additions and 18 deletions

View File

@ -17,13 +17,13 @@ t = 0
law dbuf
sys capt
law 16
sys syloc
sys sysloc
tad d1
dac lpadr
law 13
sys sysloc
dac pbadr
dxm lpadr i
dzm lpadr i
loop:
jms move
jms must; jmp loop
@ -103,7 +103,7 @@ move: 0
jms mark; 512
jmp move i
dsmove:
dspmove:
jms getpb
sza
jmp pbhit
@ -128,7 +128,7 @@ lphit:
dac blk2 i
dac 9f+t i
1:
dzm lpaddr i
dzm lpadr i
lacq
cma
tad sbufp
@ -362,7 +362,7 @@ try: 0
lac 9f+t+4
sna
jmp 1f
lsz try
isz try
jmp try i
" save
@ -500,7 +500,7 @@ heur: 0
tad force
dac lforce
-1000
dac lrpi
dac lpri
-64
dac 9f+t
lac boardp
@ -517,14 +517,14 @@ heur: 0
jmp 4f
lac pri
cma
tad lrpi
tad lpri
sma cma
jmp 3f-1
sza
jmp 2f
isz prob
-1
cll; idiv; prob;.,
cll; idiv; prob;..
lacq
lrss 6
dac force
@ -554,11 +554,11 @@ heur: 0
jmp 1b
lac lmov
jms mark; 1
jmp heiur i
jmp heur i
4:
lac 9f+t+1
"** 14-148-165.pdf page 10
jsm mark; 1
jms mark; 1
jmp heur i
t = t+2
@ -718,7 +718,7 @@ t = t+1
getpb: 0
sys time
lac pbar i
lac pbadr i
and o2000
sza
sys exit

View File

@ -2,12 +2,12 @@
" ttt2
boardp: board
shufp: sbuf
sbufp: sbuf
qdt: <dt>
imaxin: -4000
noblink: 060000
blinkpar: 070000
setxy: setx
setxv: setx
setyv: sety
o12: 012
o14: 014
@ -21,7 +21,7 @@ o4000: 04000
o2: 2
o1000: 01000
d1: 1
dm60: -060
om60: -060
o77: 077
line:
tb = tad board-1
@ -178,8 +178,8 @@ ex:
dnop
oh:
vx 0100
vy020 iv
vx0140
vy 020 iv
vx 0140
vy 0 v
vx 040
vy 040 v
@ -191,7 +191,7 @@ oh:
dnop
dnop
dot:
ipenb
lpenb
vx 0200
vy 040 iv
vx 05

View File

@ -24,7 +24,7 @@
lac t1
tad d6
dac t1
isz ca1
isz c1
jmp 1b
sys exit