cc65/libsrc/pce/clock.s

;
; clock_t clock (void);
;

        .include        "pce.inc"

        .export         _clock
        .importzp       sreg

.proc   _clock

        lda     tickcount+3
        sta     sreg+1
        lda     tickcount+2
        sta     sreg
        ldx     tickcount+1
        lda     tickcount
        rts

.endproc

        .constructor initclock, 24

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

style fixes 2015-08-29 13:58:57 +00:00			`.include "pce.inc"`
more hacking 2014-11-30 10:20:57 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`.export _clock`
			`.importzp sreg`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00			`.proc _clock`

style fixes 2015-08-29 13:58:57 +00: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 13:18:48 +00:00
			`.endproc`
make sure clocktick starts at zero 2015-07-16 14:54:40 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`.constructor initclock, 24`
make sure clocktick starts at zero 2015-07-16 14:54:40 +00:00
			`initclock:`
style fixes 2015-08-29 13:58:57 +00:00			`lda #0`
			`ldx #3`
			`@lp: sta tickcount,x`
			`dex`
			`bpl @lp`
			`rts`