mirror of
https://github.com/livingcomputermuseum/pdp7-unix.git
synced 2026-02-11 02:40:46 +00:00
I've commented out some of the code in s7.s to try and disable the
Graphics-2 I/O operations.
This commit is contained in:
74
src/sys/s7.s
74
src/sys/s7.s
@@ -5,26 +5,26 @@ pibreak: " priority interrupt break processing "chain"
|
||||
dac .ac " save interrupt AC
|
||||
"** CROSSED OUT....
|
||||
|
||||
dpsf
|
||||
jmp 1f
|
||||
" dpsf " Warren commented this code out to try and
|
||||
" jmp 1f " disable the Graphics-2 I/O
|
||||
|
||||
dpcf
|
||||
dprs
|
||||
dac dpstat
|
||||
sma ral
|
||||
jmp 2f
|
||||
dprc
|
||||
dac dpchar
|
||||
-1
|
||||
dac dpread
|
||||
lac dpstat
|
||||
ral
|
||||
2:
|
||||
sma
|
||||
jmp piret
|
||||
-1
|
||||
dac dpwrite
|
||||
jmp piret "** END OF CROSSOUT
|
||||
" dpcf
|
||||
" dprs
|
||||
" dac dpstat
|
||||
" sma ral
|
||||
" jmp 2f
|
||||
" dprc
|
||||
" dac dpchar
|
||||
" -1
|
||||
" dac dpread
|
||||
" lac dpstat
|
||||
" ral
|
||||
" 2:
|
||||
" sma
|
||||
" jmp piret
|
||||
" -1
|
||||
" dac dpwrite
|
||||
" jmp piret "** END OF CROSSOUT
|
||||
|
||||
1: clsf " clock overflow (line frequency ticks)?
|
||||
jmp 1f " no
|
||||
@@ -88,24 +88,26 @@ cnop: " fetched as constant in iread
|
||||
dac .dspb
|
||||
jmp piret
|
||||
dsprestart:
|
||||
lac d1
|
||||
dac .dspb " set .dsbp = 1
|
||||
lac dspbufp " load display buf pointer
|
||||
beg " start display processor
|
||||
-10
|
||||
dac .dsptm " set .dsptm = -10 (10 ticks)
|
||||
jmp piret
|
||||
" Warren commented this out to try and
|
||||
" disable the Graphics-2 I/O
|
||||
" lac d1
|
||||
" dac .dspb " set .dsbp = 1
|
||||
" lac dspbufp " load display buf pointer
|
||||
" beg " start display processor
|
||||
" -10
|
||||
" dac .dsptm " set .dsptm = -10 (10 ticks)
|
||||
" jmp piret
|
||||
|
||||
1: sna ral " dataphone flag set (bit 7)??
|
||||
jmp .+3 " no
|
||||
raef " XXX: fix comment
|
||||
jmp piret " return
|
||||
sma " light pen flags (bit 2)
|
||||
jmp 1f " no
|
||||
lda " G-2: load display address
|
||||
dac .lpba " save
|
||||
rlpd " G-2: resume after light pen stop
|
||||
jmp piret
|
||||
" 1: sna ral " dataphone flag set (bit 7)??
|
||||
" jmp .+3 " no
|
||||
" raef " XXX: fix comment
|
||||
" jmp piret " return
|
||||
" sma " light pen flags (bit 2)
|
||||
" jmp 1f " no
|
||||
" lda " G-2: load display address
|
||||
" dac .lpba " save
|
||||
" rlpd " G-2: resume after light pen stop
|
||||
" jmp piret
|
||||
|
||||
1: ksf " (TTY) keyboard flag set?
|
||||
jmp 1f " no
|
||||
|
||||
Reference in New Issue
Block a user