6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-26 17:36:57 +00:00
Code Issues Projects Releases Wiki Activity

Sqeeze out two bytes of the code.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4165 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2009-09-13 13:39:27 +00:00
parent c9de0e6841
commit fe652c8206
1 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
libsrc/lynx/lynx-160-102-16.s
View File

@ -433,7 +433,7 @@ SETVIEWPAGE:
;
SETDRAWPAGE:
cmp #1
cmp #1
beq @L1 ; page == maxpages-1
lda #<$de20 ; page 0
ldx #>$de20
@ -464,25 +464,24 @@ VBL_INTERRUPT = TIMER2_INTERRUPT
SERIAL_INTERRUPT = TIMER4_INTERRUPT
IRQ:
lda INTSET ; Poll all pending interrupts
and #VBL_INTERRUPT
bne IRQVBL
clc ; Not a VBL interrupt - exit
rts
IRQVBL:
lda SWAPREQUEST
beq @L0
lda DRAWPAGE
jsr SETVIEWPAGE
lda DRAWPAGE
eor #1
sta DRAWPAGE
jsr SETDRAWPAGE
stz SWAPREQUEST
lda INTSET ; Poll all pending interrupts
and #VBL_INTERRUPT
beq IRQEND ; Exit if not a VBL interrupt
lda SWAPREQUEST
beq @L0
lda DRAWPAGE
jsr SETVIEWPAGE
lda DRAWPAGE
eor #1
sta DRAWPAGE
jsr SETDRAWPAGE
stz SWAPREQUEST
@L0:
jsr VBLHOOK
clc
rts
jsr VBLHOOK
IRQEND:
clc
rts
; ------------------------------------------------------------------------
; SETCOLOR: Set the drawing color (in A). The new color is already checked
@ -1003,7 +1002,7 @@ text_c:
; The Font
; 96 characters from ASCII 32 to 127
; 8 pixels wide, 8 pixels high
; bit value 0 = foreground, bit value 1 = background / transparent
; bit value 0 = foreground, bit value 1 = background / transparent
font:
; VERSAIL
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ;32