6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-17 00:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #666 from IrgendwerA8/1_byte_donation_for_fabrizio

Browse Source 
1 byte donation for Fabrizio ;)
This commit is contained in:
Oliver Schmidt 2018-05-27 12:17:52 +02:00 committed by GitHub
commit 19cd149be2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libsrc/c16/cgetc.s
View File

@ -60,8 +60,10 @@ L2: jsr KBDREAD ; Read char and return in A
.proc initkbd
ldy #15
ldy #7
@L1: lda fnkeys,y
sta FKEY_SPACE+8,y
lda #$01 ; Lower 8 places are all $01
sta FKEY_SPACE,y
dey
bpl @L1
@ -69,8 +71,7 @@ L2: jsr KBDREAD ; Read char and return in A
.endproc
fnkeys: .byte $01, $01, $01, $01, $01, $01, $01, $01
.byte 133, 137, 134, 138, 135, 139, 136, 140
fnkeys: .byte 133, 137, 134, 138, 135, 139, 136, 140
.code

7
libsrc/plus4/cgetc.s
View File

@ -63,8 +63,10 @@ L2: sta ENABLE_ROM ; Bank in the ROM
.proc initkbd
ldy #15
ldy #7
@L1: lda fnkeys,y
sta FKEY_SPACE+8,y
lda #$01 ; Lower 8 places are all $01
sta FKEY_SPACE,y
dey
bpl @L1
@ -72,8 +74,7 @@ L2: sta ENABLE_ROM ; Bank in the ROM
.endproc
fnkeys: .byte $01, $01, $01, $01, $01, $01, $01, $01
.byte 133, 137, 134, 138, 135, 139, 136, 140
fnkeys: .byte 133, 137, 134, 138, 135, 139, 136, 140
.segment "LOWCODE" ; Accesses the ROM - must go into low mem

3
libsrc/vic20/cgetc.s
View File

@ -40,8 +40,7 @@ L3: jsr KBDREAD ; Read char and return in A
bne seton ; Go set it on
lda CURS_FLAG ; Is the cursor currently off?
bne crs9 ; Jump if yes
lda #1
sta CURS_FLAG ; Mark it as off
inc CURS_FLAG ; Mark it as off
lda CURS_STATE ; Cursor currently displayed?
beq crs8 ; Jump if no
ldy CURS_X ; Get the character column