mirror of
https://github.com/cc65/cc65.git
synced 2024-06-26 05:29:30 +00:00
Merge pull request #666 from IrgendwerA8/1_byte_donation_for_fabrizio
1 byte donation for Fabrizio ;)
This commit is contained in:
commit
19cd149be2
|
@ -60,8 +60,10 @@ L2: jsr KBDREAD ; Read char and return in A
|
||||||
|
|
||||||
.proc initkbd
|
.proc initkbd
|
||||||
|
|
||||||
ldy #15
|
ldy #7
|
||||||
@L1: lda fnkeys,y
|
@L1: lda fnkeys,y
|
||||||
|
sta FKEY_SPACE+8,y
|
||||||
|
lda #$01 ; Lower 8 places are all $01
|
||||||
sta FKEY_SPACE,y
|
sta FKEY_SPACE,y
|
||||||
dey
|
dey
|
||||||
bpl @L1
|
bpl @L1
|
||||||
|
@ -69,8 +71,7 @@ L2: jsr KBDREAD ; Read char and return in A
|
||||||
|
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
fnkeys: .byte $01, $01, $01, $01, $01, $01, $01, $01
|
fnkeys: .byte 133, 137, 134, 138, 135, 139, 136, 140
|
||||||
.byte 133, 137, 134, 138, 135, 139, 136, 140
|
|
||||||
|
|
||||||
|
|
||||||
.code
|
.code
|
||||||
|
|
|
@ -63,8 +63,10 @@ L2: sta ENABLE_ROM ; Bank in the ROM
|
||||||
|
|
||||||
.proc initkbd
|
.proc initkbd
|
||||||
|
|
||||||
ldy #15
|
ldy #7
|
||||||
@L1: lda fnkeys,y
|
@L1: lda fnkeys,y
|
||||||
|
sta FKEY_SPACE+8,y
|
||||||
|
lda #$01 ; Lower 8 places are all $01
|
||||||
sta FKEY_SPACE,y
|
sta FKEY_SPACE,y
|
||||||
dey
|
dey
|
||||||
bpl @L1
|
bpl @L1
|
||||||
|
@ -72,8 +74,7 @@ L2: sta ENABLE_ROM ; Bank in the ROM
|
||||||
|
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
fnkeys: .byte $01, $01, $01, $01, $01, $01, $01, $01
|
fnkeys: .byte 133, 137, 134, 138, 135, 139, 136, 140
|
||||||
.byte 133, 137, 134, 138, 135, 139, 136, 140
|
|
||||||
|
|
||||||
|
|
||||||
.segment "LOWCODE" ; Accesses the ROM - must go into low mem
|
.segment "LOWCODE" ; Accesses the ROM - must go into low mem
|
||||||
|
|
|
@ -40,8 +40,7 @@ L3: jsr KBDREAD ; Read char and return in A
|
||||||
bne seton ; Go set it on
|
bne seton ; Go set it on
|
||||||
lda CURS_FLAG ; Is the cursor currently off?
|
lda CURS_FLAG ; Is the cursor currently off?
|
||||||
bne crs9 ; Jump if yes
|
bne crs9 ; Jump if yes
|
||||||
lda #1
|
inc CURS_FLAG ; Mark it as off
|
||||||
sta CURS_FLAG ; Mark it as off
|
|
||||||
lda CURS_STATE ; Cursor currently displayed?
|
lda CURS_STATE ; Cursor currently displayed?
|
||||||
beq crs8 ; Jump if no
|
beq crs8 ; Jump if no
|
||||||
ldy CURS_X ; Get the character column
|
ldy CURS_X ; Get the character column
|
||||||
|
|
Loading…
Reference in New Issue
Block a user