mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-28 12:59:50 +00:00
fixes
sop.s supercedes (most of) sx.s
This commit is contained in:
@@ -212,7 +212,7 @@ dspnl: 0
|
||||
jmp dspnl i
|
||||
1:
|
||||
lac o2000
|
||||
wbi "** ??
|
||||
wbl
|
||||
isz dspput
|
||||
jmp dspput i
|
||||
|
||||
|
||||
@@ -266,7 +266,7 @@ ttyrestart: 0
|
||||
jms wakeup
|
||||
dac sfiles+6
|
||||
cla
|
||||
wbi
|
||||
wbl
|
||||
jmp piret "** END CROSSED OUT
|
||||
|
||||
1: crsf
|
||||
|
||||
@@ -38,7 +38,7 @@
|
||||
jmp 1b " 0 count means pause
|
||||
dac xx
|
||||
isz ii
|
||||
iac ii
|
||||
lac ii
|
||||
jms iget
|
||||
jms copyz; inode; 12
|
||||
jms getw " flags
|
||||
@@ -95,8 +95,8 @@ getw: 0
|
||||
omq
|
||||
lmq
|
||||
jms getc
|
||||
omg
|
||||
lmg
|
||||
omq
|
||||
lmq
|
||||
add sum
|
||||
dac sum
|
||||
lacq
|
||||
|
||||
24
scans/sx.s
24
scans/sx.s
@@ -1,28 +1,4 @@
|
||||
" For now, this stuff is defined so that
|
||||
" 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
|
||||
|
||||
Reference in New Issue
Block a user