| ; | |
| ; Clock tick code for Contiki (Apple2 version) | |
| ; | |
| .constructor inittick | |
| .export _tick | |
| .segment "INIT" | |
| inittick: | |
| ; Switch in ROM | |
| bit $C082 | |
| ; Check for IIgs | |
| sec | |
| jsr $FE1F | |
| bcs done | |
| ; Check for fast speed | |
| bit $C036 | |
| bpl done | |
| ; Adjust tick (5/14 = 1.0MHz/2.8MHz) | |
| lda #5 | |
| sta _tick | |
| ; Switch in LC bank 2 for R/O | |
| done: bit $C080 | |
| rts | |
| .data | |
| _tick: .byte 14 |