A2osX/SYS/KERNEL.S.IRQ.txt

140 lines
2.7 KiB
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
2019-05-25 19:24:07 +00:00
AUTO 3,1
*--------------------------------------
* called directly by IRQ Vector $FFFE in AuxLC
* Must keep:
* A,X,Y
* SETREADAUX
* if we are here, Aux ZP/Stack already On
* Exit with RTI
* if A2osX Drivers cannot clear IRQ,
* must call regular System Handler
*--------------------------------------
MSLOT .EQ $7f8
*--------------------------------------
2020-09-24 15:31:48 +00:00
*IRQ.BRK jmp IRQ.6
*--------------------------------------
2020-09-24 15:31:48 +00:00
IRQ.Handler cld
2020-09-24 15:31:48 +00:00
sta IRQ.6+1
pla
pha
and #$10 BRK?
2020-09-24 15:31:48 +00:00
* bne IRQ.BRK
2018-07-25 15:26:14 +00:00
bne *
2019-09-27 14:53:44 +00:00
2020-09-24 15:31:48 +00:00
stx IRQ.5+1
sty IRQ.4+1
2020-09-04 15:21:15 +00:00
2018-12-17 07:02:03 +00:00
lda RDPAGE2
pha
sta CLRPAGE2
2020-09-04 15:21:15 +00:00
lda RD80STORE
pha
lda RDREADAUX
pha
2018-07-11 15:13:29 +00:00
sta CLRREADAUX Make sure we can access FD.Table
lda RDWRITEAUX
pha
sta CLRWRITEAUX Driver may R/W in screen holes
lda MSLOT Save MSLOT
pha
lda RDCXROM
pha
sta CLRCXROM Enable access to slot C800 space
2019-10-03 06:25:27 +00:00
2020-09-24 15:31:48 +00:00
IRQ.JSR jsr CORE.IRQ.DEV SELF MODIFIED
2019-10-03 06:25:27 +00:00
ldx #CLRCXROM
pla Get CXROM State
bpl .3
2019-10-03 06:25:27 +00:00
inx
2019-10-03 06:25:27 +00:00
.3 sta $C000,x
pla Get back MSLOT
sta MSLOT
2020-09-24 15:31:48 +00:00
sta IRQ.2+2
and #$F0
2019-09-27 14:53:44 +00:00
eor #$C0 ....mmm...not looking like Cn....
2020-09-24 15:31:48 +00:00
bne IRQ.3
2019-09-27 14:53:44 +00:00
2019-10-03 06:25:27 +00:00
sta $CFFF Release $C800
2020-09-24 15:31:48 +00:00
IRQ.2 lda $ff00 SELF MODIFIED
2019-10-03 06:25:27 +00:00
2020-09-24 15:31:48 +00:00
IRQ.3 pla Must keep Carry
bpl .1
2019-10-03 06:25:27 +00:00
sta SETWRITEAUX
2019-10-03 06:25:27 +00:00
clv coming for AUX.....cancel switch
.1 pla
bpl .2
2019-10-03 06:25:27 +00:00
sta SETREADAUX
2019-10-03 06:25:27 +00:00
clv coming for AUX.....cancel switch
.2 pla
2018-12-17 07:02:03 +00:00
bpl .3
2020-09-04 15:21:15 +00:00
sta SET80STORE
.3 pla
bpl .30
2018-12-17 07:02:03 +00:00
sta SETPAGE2
2019-03-27 21:14:40 +00:00
2020-09-24 15:31:48 +00:00
.30 bvc IRQ.4 if not V, skip task switching
2019-09-27 14:53:44 +00:00
2019-10-03 06:25:27 +00:00
tsx Check Stack if before "dec IRQ.InKernel"
cpx #$fc $1ff-PChi-PClo-P = $1fc
bcs .8 in CORE.Run or CORE.Dispatch
2019-09-27 14:53:44 +00:00
2019-10-03 06:25:27 +00:00
lda $103,x
cmp /A2osX.SYSCALL
bcs .8 we are in kernel GP or LC
php
php make room for 2 additional bytes
tsx
2019-10-03 06:25:27 +00:00
lda $104,x get RTI PC LO
2018-12-17 07:02:03 +00:00
bne .4
2019-10-03 06:25:27 +00:00
dec $105,x adjust RTI PC HI
2018-12-17 07:02:03 +00:00
.4 dec $104,x back one byte, to make it a "RTS" return adddress
lda $103,x get IRQ pushed P
2019-10-03 06:25:27 +00:00
sta $101,x down 2 bytes
lda #A2osX.SLEEP make a RTI like "jsr A2osX.SLEEP"
sta $102,x
lda /A2osX.SLEEP with RTS=PC IRQ-1
sta $103,x
2019-10-03 06:25:27 +00:00
.5 lda #$60+'S'
2018-12-17 07:02:03 +00:00
eor SYS.BASL0+39
sta SYS.BASL0+39
2019-10-03 06:25:27 +00:00
.8 clc
2020-09-24 15:31:48 +00:00
IRQ.4 ldy #$ff Self Modified
IRQ.5 ldx #$ff Self Modified
IRQ.6 lda #$ff Self Modified
bcc IRQ.8
2019-10-03 06:25:27 +00:00
2020-09-25 12:05:23 +00:00
dec IRQ.Skip Make regular ProDOS IRQ manager skip A2osX
2020-09-24 15:31:48 +00:00
IRQ.JMP jmp $FFFF SELF MODIFIED Not handled, pass to ProDOS
2019-10-03 06:25:27 +00:00
2020-09-24 15:31:48 +00:00
IRQ.8 rti
*--------------------------------------
MAN
2018-11-17 17:17:13 +00:00
SAVE USR/SRC/SYS/KERNEL.S.IRQ
LOAD USR/SRC/SYS/KERNEL.S
ASM