| .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 | |