1
0
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:
Warren Toomey
2016-03-13 14:36:33 +10:00
parent ba3b33d7da
commit 4860c0a8b0

View File

@@ -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