diff --git a/scans/ttt1.s b/scans/ttt1.s
index e0bd760..922c618 100644
--- a/scans/ttt1.s
+++ b/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
diff --git a/scans/ttt2.s b/scans/ttt2.s
index 941c70d..d4e46a0 100644
--- a/scans/ttt2.s
+++ b/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
diff --git a/scans/un.s b/scans/un.s
index 368dedd..b38177c 100644
--- a/scans/un.s
+++ b/scans/un.s
@@ -24,7 +24,7 @@
    lac t1
    tad d6
    dac t1
-   isz ca1
+   isz c1
    jmp 1b
 
    sys exit