mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-13 15:27:39 +00:00
parent
c13761e821
commit
4ff5d2bcf8
22
scans/ttt1.s
22
scans/ttt1.s
@ -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
|
||||
|
||||
12
scans/ttt2.s
12
scans/ttt2.s
@ -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
|
||||
|
||||
@ -24,7 +24,7 @@
|
||||
lac t1
|
||||
tad d6
|
||||
dac t1
|
||||
isz ca1
|
||||
isz c1
|
||||
jmp 1b
|
||||
|
||||
sys exit
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user