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

Saved even one more byte.

Browse Source
This commit is contained in:
IrgendwerA8
2018-05-26 19:53:44 +02:00
parent e77ac8a230
commit 49a9b88734
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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 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
inx ; X is now 1 inc CURS_FLAG ; Mark it as off
stx 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