Apple2: Fix permanently disabled IRQ
Regression introduced in 990d65e:
Pushing status, initializing IRQ handler (which enables IRQ)
then pulling status re-disables IRQ.
This commit is contained in:
committed by
Oliver Schmidt
parent
bc9ebfb077
commit
a028ac4140
@@ -56,9 +56,10 @@ init: ldx #zpspace-1
|
|||||||
bpl :-
|
bpl :-
|
||||||
|
|
||||||
; Check for ProDOS.
|
; Check for ProDOS.
|
||||||
ldy $BF00 ; MLI call entry point
|
lda $BF00 ; MLI call entry point
|
||||||
cpy #$4C ; Is MLI present? (JMP opcode)
|
sec
|
||||||
php ; Remember whether we're running ProDOS
|
sbc #$4C ; Is MLI present? (JMP opcode)
|
||||||
|
pha ; Backup the result for later
|
||||||
bne basic
|
bne basic
|
||||||
|
|
||||||
; Check the ProDOS system bit map.
|
; Check the ProDOS system bit map.
|
||||||
@@ -100,8 +101,8 @@ basic: lda HIMEM
|
|||||||
bit $C081
|
bit $C081
|
||||||
bit $C081
|
bit $C081
|
||||||
|
|
||||||
plp ; Are we running ProDOS?
|
pla ; If not running ProDOS, we need to patch 6502 vectors.
|
||||||
beq :+ ; Yes, no need to patch vectors
|
beq :+
|
||||||
|
|
||||||
lda #<reset_6502
|
lda #<reset_6502
|
||||||
ldx #>reset_6502
|
ldx #>reset_6502
|
||||||
|
|||||||
Reference in New Issue
Block a user