diff --git a/scans/sop.s b/scans/sop.s
index 22ca2a4..c8aacdf 100644
--- a/scans/sop.s
+++ b/scans/sop.s
@@ -25,26 +25,27 @@ sma = 0740100
 sza = 0740200
 snl = 0740400
 skp = 0741000
+spa = 0741100
 sna = 0741200
 szl = 0741400
 rtl = 0742010
 rtr = 0742020
-cil = 0744000
+cll = 0744000
 rcl = 0744010
 rcr = 0744020
-cia = 0750000
+cla = 0750000
 lrs = 0640500
 lrss = 0660500
 lls = 0640600
 llss = 0660600
 als = 0640700
 alss = 0660700
-mul = 0653323
+mul = 0653122
 idiv = 0653323
 lacq = 0641002
 clq = 0650000
-omq = 0650002
-cmq = 0650004
+omq = 0640002
+cmq = 0640004
 lmq = 0652000
 
 dscs = 0707141
@@ -60,7 +61,6 @@ ion = 0700042
 caf = 0703302
 clon = 0700044
 clsf = 0700001
-
 "** 01-s1.pdf page 63
 clof = 0700004
 ksf = 0700301
@@ -94,4 +94,3 @@ dpcf = 0704761
 dprc = 0704712
 crsf = 0706701
 crrb = 0706712
-
diff --git a/src/sys/sop.s b/src/sys/sop.s
index c941790..985eb53 100644
--- a/src/sys/sop.s
+++ b/src/sys/sop.s
@@ -45,7 +45,7 @@ idiv = 0653323			" EAE: integer divide
 lacq = 0641002			" EAE: load AC with MQ
 clq = 0650000			" EAE: clear MQ
 omq = 0640002			" EAE: OR MQ into AC
-cmq = 0650004			" EAE: complement MQ
+cmq = 0640004			" EAE: complement MQ
 lmq = 0652000			" EAE: load MQ from AC
 
 dscs = 0707141			" DSK: clear status register