]> git.sur5r.net Git - cc65/blob - libsrc/atari/clock.s
Don't add a mode when opening files for reading
[cc65] / libsrc / atari / clock.s
1 ;
2 ; Piotr Fusik, 04.11.2001
3 ; originally by Ullrich von Bassewitz and Sidney Cadot
4 ;
5 ; clock_t clock (void);
6 ; unsigned _clocks_per_sec (void);
7 ;
8
9         .export         _clock, __clocks_per_sec
10         .importzp       sreg
11
12         .include        "atari.inc"
13
14
15 .proc   _clock
16
17         ldx     #5              ; Synchronize with Antic, so the interrupt won't change RTCLOK
18         stx     WSYNC           ; while we're reading it. The synchronization is done same as
19 @L1:    dex                     ; in SETVBLV function in Atari OS.
20         bne     @L1
21         stx     sreg+1          ; Byte 3 is always zero
22         lda     RTCLOK+2
23         ldx     RTCLOK+1
24         ldy     RTCLOK
25         sty     sreg
26         rts
27
28 .endproc
29
30
31 .proc   __clocks_per_sec
32
33         lda     PAL             ; use hw register, PALNTS is only supported on XL/XE ROM
34         and     #$0e
35         bne     @NTSC
36         tax
37         lda     #50
38         rts
39 @NTSC:  ldx     #0
40         lda     #60
41         rts
42
43 .endproc