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
|
||||
sma cla " skip if minus & clear AC
|
||||
jmp 1f " AC positive
|
||||
lacq
|
||||
als 9 " get char in high 9 bits, zero in low
|
||||
llss 27 " get char in high 9 bits, zero in low
|
||||
dac i sctal " store word
|
||||
lrss 9 " shift char back down
|
||||
jmp i putsc " return
|
||||
|
||||
Reference in New Issue
Block a user