]> git.sur5r.net Git - cc65/blob - libsrc/c128/isfast.s
Fixed 65C02 timing again.
[cc65] / libsrc / c128 / isfast.s
1 ;
2 ; Marco van den Heuvel, 2018-03-19
3 ;
4 ; unsigned char isfast (void);
5 ; /* Returns 1 if the CPU is in 2MHz mode. */
6 ;
7
8         .export         _isfast
9
10         .include        "c128.inc"
11
12
13 .proc   _isfast
14
15         lda     VIC_CLK_128
16         and     #$01
17         ldx     #$00
18         rts
19
20 .endproc
21