.module clock | |
.area GSINIT | |
call __clock_init | |
.globl __clock_val | |
.globl __clock_init | |
.area _CODE | |
__clock_init:: | |
ld hl,#event_block | |
ld b,#0x01 | |
ld c,#0x00 | |
ld de,#event_routine | |
call #0xbce0 ;; KL NEW FAST TICKER | |
ret | |
event_routine:: | |
push hl | |
ld hl,(__clock_val) | |
inc hl | |
ld (__clock_val),hl | |
pop hl | |
ret | |
__clock_val:: .dw 0 | |
event_block:: | |
.ds 9 | |