sop.s supercedes (most of) sx.s
This commit is contained in:
Phil Budne
2016-02-26 16:25:53 -05:00
parent fc0d2c2b31
commit 378c361aab
4 changed files with 5 additions and 29 deletions
+1 -1
View File
@@ -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
View File
@@ -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
View File
@@ -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
View File
@@ -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