conio and most other stuff working now
This commit is contained in:
51
libsrc/gamate/irq.s
Normal file
51
libsrc/gamate/irq.s
Normal file
@@ -0,0 +1,51 @@
|
||||
;
|
||||
; IRQ handling (Gamate version)
|
||||
;
|
||||
|
||||
.export initirq, doneirq, IRQStub
|
||||
|
||||
.import __INTERRUPTOR_COUNT__, callirq_y
|
||||
|
||||
.include "gamate.inc"
|
||||
.include "extzp.inc"
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
.segment "INIT"
|
||||
|
||||
; a constructor
|
||||
;
|
||||
initirq:
|
||||
rts
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
.code
|
||||
|
||||
; a destructor
|
||||
;
|
||||
doneirq:
|
||||
rts
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
; 256*32 interrupts in about 1minute 60s = 136hz
|
||||
; -> guess 16384 clock cycles = 135,28hz (might be audio signal 1/512?)
|
||||
|
||||
IRQStub:
|
||||
pha
|
||||
tya
|
||||
pha
|
||||
|
||||
ldy #<(__INTERRUPTOR_COUNT__ * 2)
|
||||
beq @L1
|
||||
|
||||
txa
|
||||
pha
|
||||
|
||||
jsr callirq_y
|
||||
|
||||
pla
|
||||
tax
|
||||
|
||||
@L1: pla
|
||||
tay
|
||||
pla
|
||||
rts
|
||||
Reference in New Issue
Block a user