Merge pull request #52 from philbudne/master
s7.s: fix sna/sma confusion that caused hangs in display PI code
This commit is contained in:
+3
-3
@@ -78,7 +78,7 @@ cnop: " fetched as constant in iread
|
|||||||
|
|
||||||
"** BEGIN CROSSED OUT
|
"** BEGIN CROSSED OUT
|
||||||
1: lds " load display status (see 03-scope.pdf pg 25)
|
1: lds " load display status (see 03-scope.pdf pg 25)
|
||||||
sma ral " edges flag??
|
sma ral " display trap set? (and rotate left)
|
||||||
jmp 1f " not set
|
jmp 1f " not set
|
||||||
cdf " clear display flags
|
cdf " clear display flags
|
||||||
lac .dspb
|
lac .dspb
|
||||||
@@ -99,11 +99,11 @@ dsprestart:
|
|||||||
dac .dsptm " set .dsptm = -10 (10 ticks)
|
dac .dsptm " set .dsptm = -10 (10 ticks)
|
||||||
jmp piret
|
jmp piret
|
||||||
|
|
||||||
1: sna ral " dataphone flag set (bit 7)??
|
1: sma ral " edges flag set?? (and rotate)
|
||||||
jmp .+3 " no
|
jmp .+3 " no
|
||||||
raef " "resume after edges flag"
|
raef " "resume after edges flag"
|
||||||
jmp piret " return
|
jmp piret " return
|
||||||
sma " light pen flags (bit 2)
|
sma " light pen flag?
|
||||||
jmp 1f " no
|
jmp 1f " no
|
||||||
lda " G-2: load display address
|
lda " G-2: load display address
|
||||||
dac .lpba " save
|
dac .lpba " save
|
||||||
|
|||||||
Reference in New Issue
Block a user