fixes
sop.s supercedes (most of) sx.s
This commit is contained in:
+1
-1
@@ -212,7 +212,7 @@ dspnl: 0
|
|||||||
jmp dspnl i
|
jmp dspnl i
|
||||||
1:
|
1:
|
||||||
lac o2000
|
lac o2000
|
||||||
wbi "** ??
|
wbl
|
||||||
isz dspput
|
isz dspput
|
||||||
jmp dspput i
|
jmp dspput i
|
||||||
|
|
||||||
|
|||||||
+1
-1
@@ -266,7 +266,7 @@ ttyrestart: 0
|
|||||||
jms wakeup
|
jms wakeup
|
||||||
dac sfiles+6
|
dac sfiles+6
|
||||||
cla
|
cla
|
||||||
wbi
|
wbl
|
||||||
jmp piret "** END CROSSED OUT
|
jmp piret "** END CROSSED OUT
|
||||||
|
|
||||||
1: crsf
|
1: crsf
|
||||||
|
|||||||
+3
-3
@@ -38,7 +38,7 @@
|
|||||||
jmp 1b " 0 count means pause
|
jmp 1b " 0 count means pause
|
||||||
dac xx
|
dac xx
|
||||||
isz ii
|
isz ii
|
||||||
iac ii
|
lac ii
|
||||||
jms iget
|
jms iget
|
||||||
jms copyz; inode; 12
|
jms copyz; inode; 12
|
||||||
jms getw " flags
|
jms getw " flags
|
||||||
@@ -95,8 +95,8 @@ getw: 0
|
|||||||
omq
|
omq
|
||||||
lmq
|
lmq
|
||||||
jms getc
|
jms getc
|
||||||
omg
|
omq
|
||||||
lmg
|
lmq
|
||||||
add sum
|
add sum
|
||||||
dac sum
|
dac sum
|
||||||
lacq
|
lacq
|
||||||
|
|||||||
-24
@@ -1,28 +1,4 @@
|
|||||||
" For now, this stuff is defined so that
|
" For now, this stuff is defined so that
|
||||||
" the assembler doesn't complain about it
|
" the assembler doesn't complain about it
|
||||||
|
|
||||||
" illegible
|
|
||||||
idunno=-1
|
|
||||||
wbi=-1
|
|
||||||
|
|
||||||
" disk I/O instructions?
|
|
||||||
dscs=-1
|
|
||||||
dslw=-1
|
|
||||||
dslm=-1
|
|
||||||
dsld=-1
|
|
||||||
dsls=-1
|
|
||||||
dssf=-1
|
|
||||||
dsrs=-1
|
|
||||||
|
|
||||||
" display I/O instructions?
|
|
||||||
dprs=-1
|
|
||||||
dprc=-1
|
|
||||||
dpsf=-1
|
|
||||||
dpcf=-1
|
|
||||||
|
|
||||||
" printer I/O instructions?
|
|
||||||
lpsf=-1
|
|
||||||
lpcf=-1
|
|
||||||
lpb=-1
|
|
||||||
|
|
||||||
o7000: 07000
|
o7000: 07000
|
||||||
|
|||||||
Reference in New Issue
Block a user