cc65/libsrc/c128/isfast.s

;
; Marco van den Heuvel, 2018-03-19
;
; unsigned char isfast (void);
; /* Returns 1 if the CPU is in 2MHz mode. */
;

        .export         _isfast

        .include        "c128.inc"


.proc   _isfast

        lda     VIC_CLK_128
        and     #$01
        ldx     #$00
        rts

.endproc
Added isfast function which returns a 1 when the C128 is in 2MHz mode. 2018-03-20 20:11:24 +00:00			`;`
			`; Marco van den Heuvel, 2018-03-19`
			`;`
			`; unsigned char isfast (void);`
			`; /* Returns 1 if the CPU is in 2MHz mode. */`
			`;`

			`.export _isfast`

			`.include "c128.inc"`


			`.proc _isfast`

			`lda VIC_CLK_128`
			`and #$01`
Set X register to 0 so that 16bit promotion works as expected. 2018-03-20 21:05:55 +00:00			`ldx #$00`
Added isfast function which returns a 1 when the C128 is in 2MHz mode. 2018-03-20 20:11:24 +00:00			`rts`

			`.endproc`