cc65/libsrc/pet/kbrepeat.s

;
; unsigned char __fastcall__ kbrepeat (unsigned char mode);
;
; 2017-06-16, Groepaz
; 2017-09-05, Greg King
;

        .export         _kbrepeat

        .include        "pet.inc"

_kbrepeat:
        ldx     #>$0000
        ldy     SCR_LINELEN
        cpy     #40 + 1
        bcc     L1              ; branch if screen is 40 columns wide

        ldy     KBDREPEAT80     ; get old value
        sta     KBDREPEAT80     ; store new value
        tya                     ; return old value
        rts

L1:     tay
        lda     KBDREPEAT40B    ; get REPEAT-key flag (used by some editor ROMs)
        lsr     a               ; move bit 0 into bit 7
        ror     a
        ora     KBDREPEAT40     ; combine with old key-REPEAT flags
        sty     KBDREPEAT40
        rts
Removed dysfunctional kbrepeatdelay() and kbrepeatrate(). As discussed in https://github.com/cc65/cc65/pull/452 after my premature merge the two functions in question don't work as expected. Additionally I adjusted several style deviations in the pull request in question. 2017-08-30 14:37:31 +00:00			`;`
			`; unsigned char __fastcall__ kbrepeat (unsigned char mode);`
Made the CBM Pet kbrepeat() work on both 40-column and 80-column machines. Put the kbrepeat() description in an alphabetical position in the function document. 2017-09-05 07:40:34 +00:00			`;`
			`; 2017-06-16, Groepaz`
			`; 2017-09-05, Greg King`
Removed dysfunctional kbrepeatdelay() and kbrepeatrate(). As discussed in https://github.com/cc65/cc65/pull/452 after my premature merge the two functions in question don't work as expected. Additionally I adjusted several style deviations in the pull request in question. 2017-08-30 14:37:31 +00:00			`;`
initial import from old sources 2016-02-28 21:13:05 +00:00
Made the CBM Pet kbrepeat() work on both 40-column and 80-column machines. Put the kbrepeat() description in an alphabetical position in the function document. 2017-09-05 07:40:34 +00:00			`.export _kbrepeat`
initial import from old sources 2016-02-28 21:13:05 +00:00
fixed some stuff, compiles again :) 2017-06-17 00:37:34 +00:00			`.include "pet.inc"`
initial import from old sources 2016-02-28 21:13:05 +00:00
			`_kbrepeat:`
Made the CBM Pet kbrepeat() work on both 40-column and 80-column machines. Put the kbrepeat() description in an alphabetical position in the function document. 2017-09-05 07:40:34 +00:00			`ldx #>$0000`
			`ldy SCR_LINELEN`
			`cpy #40 + 1`
			`bcc L1 ; branch if screen is 40 columns wide`

			`ldy KBDREPEAT80 ; get old value`
			`sta KBDREPEAT80 ; store new value`
			`tya ; return old value`
			`rts`

			`L1: tay`
			`lda KBDREPEAT40B ; get REPEAT-key flag (used by some editor ROMs)`
			`lsr a ; move bit 0 into bit 7`
			`ror a`
			`ora KBDREPEAT40 ; combine with old key-REPEAT flags`
			`sty KBDREPEAT40`
initial import from old sources 2016-02-28 21:13:05 +00:00			`rts`