6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #199 from greg-king5/irq

Browse Source 
Fix source-code bugs that cause linking problems when set_irq() is used in a program.
This commit is contained in:
Oliver Schmidt 2015-08-27 11:35:48 +02:00
commit a468a2e109
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
libsrc/common/interrupt.s
View File

@ -1,5 +1,6 @@
;
; Oliver Schmidt, 2012-01-18
; 2012-01-18, Oliver Schmidt
; 2015-08-22, Greg King
;
; void __fastcall__ set_irq (irq_handler f, void *stack_addr, size_t stack_size);
; void reset_irq (void);
@ -7,8 +8,7 @@
.export _set_irq, _reset_irq
.interruptor clevel_irq, 1 ; Export as low priority IRQ handler
.import popax
.importzp __ZP_START__
.import popax, __ZP_START__
.include "zeropage.inc"
@ -31,6 +31,8 @@ zpsave: .res zpsavespace
; ---------------------------------------------------------------------------
.code
.proc _set_irq
; Keep clevel_irq from being called right now
@ -77,7 +79,7 @@ zpsave: .res zpsavespace
; Save our zero page locations
@L1: ldx #.sizeof(::zpsave)-1
@L2: lda __ZP_START__,x
@L2: lda <__ZP_START__,x
sta zpsave,x
dex
bpl @L2
@ -94,7 +96,7 @@ zpsave: .res zpsavespace
; Copy back our zero page content
ldx #.sizeof(::zpsave)-1
@L3: ldy zpsave,x
sty __ZP_START__,x
sty <__ZP_START__,x
dex
bpl @L3
@ -103,4 +105,3 @@ zpsave: .res zpsavespace
rts
.endproc