MatthiasQuintern/6502-OS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix skip io1

Browse Source
This commit is contained in:
matthias@arch 2023-12-22 02:17:53 +01:00
parent 6c9a8bbc04
commit 1a5fc8cc1b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
main.s65
View File

@ -65,7 +65,7 @@ irq:
@irq_io1:
lda IO1 + IO::IFR
sta irq_via_ifr
bbr7 irq_via_ifr,@irq_io1 ; skip
bbr7 irq_via_ifr,@irq_io2 ; skip
bbs2 irq_via_ifr,@irq_kb1 ; shit reg -> first 8 bits
bbs5 irq_via_ifr,@irq_kb2 ; timer -> last 3 bits
@irq_io2:
@ -82,7 +82,8 @@ irq:
lda #$ff
sta IO1 + IO::IFR
sta IO2 + IO::IFR
bra @irq_return
rti
; bra @irq_return
@irq_keypad:
jsr kp::read_irq
bra @irq_return
@ -90,11 +91,11 @@ irq:
jsr spi_p::read
bra @irq_return
@irq_kb1:
Print "$3000"
PrintNC "<30>"
jsr $3000
bra @irq_return
@irq_kb2:
Print "$3100"
PrintNC "<31>"
jsr $3100
bra @irq_return
; @irq_dht: