| oliverschmidt | 274cb0e | 2005-05-16 21:18:47 +0000 | [diff] [blame] | 1 | ; |
| 2 | ; Clock tick code for Contiki (Apple2 version) | ||||
| 3 | ; | ||||
| 4 | |||||
| 5 | .constructor inittick | ||||
| 6 | .export _tick | ||||
| 7 | |||||
| 8 | .segment "INIT" | ||||
| 9 | |||||
| 10 | inittick: | ||||
| 11 | ; Switch in ROM | ||||
| 12 | bit $C082 | ||||
| 13 | |||||
| 14 | ; Check for IIgs | ||||
| 15 | sec | ||||
| 16 | jsr $FE1F | ||||
| 17 | bcs done | ||||
| 18 | |||||
| 19 | ; Check for fast speed | ||||
| 20 | bit $C036 | ||||
| 21 | bpl done | ||||
| 22 | |||||
| 23 | ; Adjust tick (5/14 = 1.0MHz/2.8MHz) | ||||
| 24 | lda #5 | ||||
| 25 | sta _tick | ||||
| 26 | |||||
| 27 | ; Switch in LC bank 2 for R/O | ||||
| 28 | done: bit $C080 | ||||
| 29 | |||||
| 30 | rts | ||||
| 31 | |||||
| 32 | .data | ||||
| 33 | |||||
| 34 | _tick: .byte 14 | ||||