mirror of
https://github.com/GnoConsortium/gno.git
synced 2025-01-02 23:31:56 +00:00
85 lines
2.3 KiB
Plaintext
85 lines
2.3 KiB
Plaintext
|
Joe,
|
||
|
|
|
||
|
|
This is a primitive disassembly of the ROM 03 interrupt handler
|
||
|
|
firmware. You need to fix this up to look like the ROM 01 version
|
||
|
|
I have in SIM.ASM.
|
||
|
|
|
||
|
|
MasterIntHandler clc (E1/0010 JMPs here, FF/BC6C)
|
||
|
|
xce
|
||
|
|
LONG I,M
|
||
|
|
php
|
||
|
|
phb
|
||
|
|
Assume B=00E1
|
||
|
|
pea $E1E1
|
||
|
|
plb
|
||
|
|
sta |ASave ($108)
|
||
|
|
lda SHADOW shadow register
|
||
|
|
sta |ShadSave ($119)
|
||
|
|
ora #$8000
|
||
|
|
and #$9F3E
|
||
|
|
sta SHADOW shadow register
|
||
|
|
stx |XSave ($10a)
|
||
|
|
sty |YSave ($10c)
|
||
|
|
tdc
|
||
|
|
sta |DPSave ($110)
|
||
|
|
lda #$0000
|
||
|
|
tcd
|
||
|
|
SHORT I,M
|
||
|
|
bcc NotSure ; check emulation mode
|
||
|
|
lda $04,s
|
||
|
|
and #$10
|
||
|
|
adc #$70
|
||
|
|
NotSure bvs hmm2
|
||
|
|
lda #$03
|
||
|
|
sta SCCAREG SCC channel A cmd register
|
||
|
|
lda SCCAREG SCC channel A cmd register
|
||
|
|
bit |ATlkFlag
|
||
|
|
beq SerInt2
|
||
|
|
pha
|
||
|
|
and #$07
|
||
|
|
bne ChanB
|
||
|
|
lda SCCADATA SCC channel A data register
|
||
|
|
sta |SerIntData
|
||
|
|
lda SCCADATA SCC channel A data register
|
||
|
|
sta |SerIntData+1
|
||
|
|
jsl >IRQ_ATalk
|
||
|
|
bra Next
|
||
|
|
ChanB lda SCCBDATA SCC channel B data register
|
||
|
|
sta |SerIntData
|
||
|
|
lda SCCBDATA SCC channel B data register
|
||
|
|
sta |SerIntData+1
|
||
|
|
jsl >IRQ_ATalk
|
||
|
|
Next lda >$010101
|
||
|
|
sta |EmulStakSave
|
||
|
|
lda #$00
|
||
|
|
ror a
|
||
|
|
sta |$E10101
|
||
|
|
pla
|
||
|
|
bra Next2
|
||
|
|
SerInt2 pha
|
||
|
|
lda >$010101
|
||
|
|
sta |EmulStakSave
|
||
|
|
stz |$E10101
|
||
|
|
jsl >$E1021C MIDI?
|
||
|
|
pla
|
||
|
|
bcc $BD0C
|
||
|
|
clc
|
||
|
|
Next2 pha
|
||
|
|
and |SerFlag
|
||
|
|
beq NoSerial
|
||
|
|
jsl >IRQ_Serial
|
||
|
|
ror |$E10101
|
||
|
|
pla
|
||
|
|
lda |$E10101
|
||
|
|
bne NoMoreSer
|
||
|
|
LONG I,M
|
||
|
|
plb
|
||
|
|
jmp Exit
|
||
|
|
NoSerial pla
|
||
|
|
bne $BD07
|
||
|
|
NoMoreSer clv
|
||
|
|
hmm2 lda >$010101
|
||
|
|
sta |EmulStakSave
|
||
|
|
LONG I,M
|
||
|
|
....
|