Put back the original code from scans.
This commit is contained in:
+1
-2
@@ -324,8 +324,7 @@ putsc: 0
|
|||||||
dac i sctalp " save pointer
|
dac i sctalp " save pointer
|
||||||
sma cla " skip if minus & clear AC
|
sma cla " skip if minus & clear AC
|
||||||
jmp 1f " AC positive
|
jmp 1f " AC positive
|
||||||
lacq
|
llss 27 " get char in high 9 bits, zero in low
|
||||||
als 9 " get char in high 9 bits, zero in low
|
|
||||||
dac i sctal " store word
|
dac i sctal " store word
|
||||||
lrss 9 " shift char back down
|
lrss 9 " shift char back down
|
||||||
jmp i putsc " return
|
jmp i putsc " return
|
||||||
|
|||||||
Reference in New Issue
Block a user