6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-11-19 06:31:31 +00:00
Code Issues Projects Releases Wiki Activity

some small fixes

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@227 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2000-07-29 21:25:43 +00:00
parent f9b58c50dd
commit 7fa0e2e8ee
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libsrc/atari/clock.s
View File

@ -1,7 +1,7 @@
; ;
; Ullrich von Bassewitz, 25.07.2000 ; Ullrich von Bassewitz, 25.07.2000
; ;
; Implemented using information from Sidney Cadot <sidney@janis.pds.twi.tudelft.nl ; Implemented using information from Sidney Cadot <sidney@janis.pds.twi.tudelft.nl>
; ;
; clock_t clock (void); ; clock_t clock (void);
; unsigned _clocks_per_sec (void); ; unsigned _clocks_per_sec (void);
@ -18,10 +18,11 @@
lda #0 ; Byte 3 is always zero lda #0 ; Byte 3 is always zero
sta sreg+1 sta sreg+1
php ; Save current I flag value php ; Save current I flag value
cli ; Disable interrupts sei ; Disable interrupts
lda RTCLOK+2
sta sreg
lda RTCLOK ; Read clock lda RTCLOK ; Read clock
ldx RTCLOK+1 ldx RTCLOK+1
ldy RTCLOK+2
plp ; Restore old I bit plp ; Restore old I bit
rts rts
@ -31,7 +32,7 @@
.proc __clocks_per_sec .proc __clocks_per_sec
lda #50 ; Assume PAL lda #50 ; Assume PAL
ldx PAL ldx PAL ; use hw register, PALNTS is only supported on XL/XE ROM
beq @L1 beq @L1
ldx #0 ldx #0
lda #60 lda #60