cc65/libsrc/pce/clock.s

;
; clock_t clock (void);
;

        .export         _clock
        .constructor    initclock

        .forceimport    ticktock        ; make sure that tickcount changes
        .importzp       sreg

        .include        "extzp.inc"

.proc   _clock
        lda     tickcount+3
        sta     sreg+1
        lda     tickcount+2
        sta     sreg
        ldx     tickcount+1
        lda     tickcount
        rts
.endproc


; Make the process clock start at zero.

        .segment        "ONCE"
initclock:
        lda     #0
        ldx     #3
@lp:    sta     tickcount,x
        dex
        bpl     @lp
        rts
initial import, completely untested, does not compile yet 2014-11-29 14:18:48 +01:00			`;`
			`; clock_t clock (void);`
			`;`

style fixes 2015-08-29 15:58:57 +02:00			`.export _clock`
Fixed and improved some pce comments. 2015-11-17 09:14:15 -05:00			`.constructor initclock`
Style changes. 2015-10-02 10:50:22 -04:00
Fixed and improved some pce comments. 2015-11-17 09:14:15 -05:00			`.forceimport ticktock ; make sure that tickcount changes`
style fixes 2015-08-29 15:58:57 +02:00			`.importzp sreg`
Consistently place constructors (and their exclusive subroutines) in "INIT". 2015-10-09 21:44:20 +02:00
Style changes. 2015-10-02 10:50:22 -04:00			`.include "extzp.inc"`
initial import, completely untested, does not compile yet 2014-11-29 14:18:48 +01:00
more cleanup, joystick works again 2015-07-12 14:27:24 +02:00			`.proc _clock`
style fixes 2015-08-29 15:58:57 +02:00			`lda tickcount+3`
			`sta sreg+1`
			`lda tickcount+2`
			`sta sreg`
			`ldx tickcount+1`
			`lda tickcount`
			`rts`
initial import, completely untested, does not compile yet 2014-11-29 14:18:48 +01:00			`.endproc`
make sure clocktick starts at zero 2015-07-16 16:54:40 +02:00
Fixed and improved some pce comments. 2015-11-17 09:14:15 -05:00
			`; Make the process clock start at zero.`

Renamed INITBSS to INIT and INIT to ONCE. The way we want to use the INITBSS segment - and especially the fact that it won't have the type bss on all ROM based targets - means that the name INITBSS is misleading. After all INIT is the best name from my perspective as it serves several purposes and therefore needs a rather generic name. Unfortunately this means that the current INIT segment needs to be renamed too. Looking for a short (ideally 4 letter) name I came up with ONCE as it contains all code (and data) accessed only once during initialization. 2016-03-06 21:26:22 +01:00			`.segment "ONCE"`
make sure clocktick starts at zero 2015-07-16 16:54:40 +02:00			`initclock:`
style fixes 2015-08-29 15:58:57 +02:00			`lda #0`
			`ldx #3`
			`@lp: sta tickcount,x`
			`dex`
			`bpl @lp`
			`rts`