diff --git a/.Floppies/A2OSX.BOOT.po b/.Floppies/A2OSX.BOOT.po index 3955e38e..88731e98 100644 Binary files a/.Floppies/A2OSX.BOOT.po and b/.Floppies/A2OSX.BOOT.po differ diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index f53e70f8..496b82d4 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index 47d5df2f..6ea750b5 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/SYS/KERNEL.S.IRQ.txt b/SYS/KERNEL.S.IRQ.txt index 84219ca6..b753b31d 100644 --- a/SYS/KERNEL.S.IRQ.txt +++ b/SYS/KERNEL.S.IRQ.txt @@ -13,6 +13,8 @@ AUTO 4,1 *-------------------------------------- MSLOT .EQ $7f8 *-------------------------------------- +K.IrqHAuxLC.BRK jmp K.IrqHAuxLC.6 +*-------------------------------------- K.IrqHAuxLC cld sec @@ -21,7 +23,7 @@ K.IrqHAuxLC cld pla pha and #$10 BRK? - bne K.IrqHAuxLC.6 + bne K.IrqHAuxLC.BRK stx K.IrqHAuxLC.5+1 sty K.IrqHAuxLC.4+1 @@ -31,9 +33,6 @@ K.IrqHAuxLC cld lda $ff pha - lda MSLOT Save MSLOT - pha - lda RDREADAUX pha sta CLRREADAUX Make sure we can access Dev.Table @@ -42,28 +41,44 @@ K.IrqHAuxLC cld 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 + K.IrqHAuxLC.JSR jsr K.IrqH.DEV SELF MODIFIED - pla Must keep Carry - bpl K.IrqHAuxLC.10 - sta SETWRITEAUX + ldx #CLRCXROM + + pla Get CXROM State + bpl .3 + inx +.3 sta $C000,x -K.IrqHAuxLC.10 pla - bpl K.IrqHAuxLC.1 - sta SETREADAUX - -K.IrqHAuxLC.1 pla Get back MSLOT + pla Get back MSLOT sta MSLOT sta K.IrqHAuxLC.2+2 - and #$C0 + and #$F0 eor #$C0 ....mmm...not looking link Cn.... bne K.IrqHAuxLC.3 sta $CFFF Release $C800 K.IrqHAuxLC.2 lda $ff00 SELF MODIFIED -K.IrqHAuxLC.3 pla +K.IrqHAuxLC.3 pla Must keep Carry + bpl .1 + + sta SETWRITEAUX + +.1 pla + bpl .2 + + sta SETREADAUX + +.2 pla sta $ff pla sta $fe @@ -81,10 +96,10 @@ K.IrqHAuxLC.3 pla tsx lda $104,x get RTI PC LO - bne .1 + bne .3 dec $105,x adjust RTI PC HI -.1 dec $104,x back one byte, to make it a "RTS" return adddress +.3 dec $104,x back one byte, to make it a "RTS" return adddress lda $103,x get IRQ pushed P sta $101,x down 2 bytes