Size now 696 bytes
This commit is contained in:
parent
7f7854dbcf
commit
7a2e60dc5e
|
@ -8,7 +8,7 @@
|
||||||
|
|
||||||
Linux Logo in 6502 assembly language.
|
Linux Logo in 6502 assembly language.
|
||||||
|
|
||||||
Size: 701 ($2BD) bytes
|
Size: 696 ($2B8) bytes
|
||||||
|
|
||||||
Features:
|
Features:
|
||||||
|
|
||||||
|
|
25
linuxlogo.s
25
linuxlogo.s
|
@ -34,7 +34,7 @@ MACHINEID2 = $FBC0
|
||||||
MACHINEID3 = $FBBF ; //c version
|
MACHINEID3 = $FBBF ; //c version
|
||||||
|
|
||||||
; Config
|
; Config
|
||||||
UnpackAddr = $200 ; $28 bytes at Keyboard buffer
|
UnpackAddr = $3FD0 ; Y=191, $28 bytes at Keyboard buffer
|
||||||
CONFIG_PROBE_CPUINFO = 1
|
CONFIG_PROBE_CPUINFO = 1
|
||||||
CONFIG_PRINT_CPUINFO = 1
|
CONFIG_PRINT_CPUINFO = 1
|
||||||
|
|
||||||
|
@ -156,11 +156,9 @@ Unpack
|
||||||
jsr AS_HGR ; *** DEBUG ***
|
jsr AS_HGR ; *** DEBUG ***
|
||||||
FIN
|
FIN
|
||||||
|
|
||||||
lda #8 ; $0428 (Text) + $1C00 => $2028 (HGR)
|
lda #7 ; will INC, $0428 (Text) + $1C00 => $2028 (HGR)
|
||||||
sta zCursorY ; Start Row=8
|
sta zCursorY ; Start Row=8
|
||||||
DrawRow
|
DrawRow
|
||||||
jsr GetDestAddr
|
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
tay
|
tay
|
||||||
tax ; DstOffset within page
|
tax ; DstOffset within page
|
||||||
|
@ -290,6 +288,8 @@ NoShiftSherlock
|
||||||
; Copy Buffer to HGR
|
; Copy Buffer to HGR
|
||||||
|
|
||||||
sty zSaveY
|
sty zSaveY
|
||||||
|
inc zCursorY
|
||||||
|
jsr GetDestAddr
|
||||||
|
|
||||||
ldx #7 ; Repeat each scanline 8 times
|
ldx #7 ; Repeat each scanline 8 times
|
||||||
Draw8Rows
|
Draw8Rows
|
||||||
|
@ -297,8 +297,14 @@ Draw8Rows
|
||||||
CopyScanLine
|
CopyScanLine
|
||||||
lda UnpackAddr,Y
|
lda UnpackAddr,Y
|
||||||
sta (zHgrPtr),Y
|
sta (zHgrPtr),Y
|
||||||
|
|
||||||
|
cpx #0 ; Clear source on last scanline copy
|
||||||
|
bne CopyNextByte
|
||||||
|
txa
|
||||||
|
sta UnpackAddr,Y
|
||||||
|
CopyNextByte
|
||||||
iny
|
iny
|
||||||
cpy #40
|
cpy #40 ; 280/7 = 40 bytes/scanline
|
||||||
bne CopyScanLine
|
bne CopyScanLine
|
||||||
|
|
||||||
clc ; y = y+1
|
clc ; y = y+1
|
||||||
|
@ -310,8 +316,6 @@ CopyScanLine
|
||||||
|
|
||||||
ldy zSaveY
|
ldy zSaveY
|
||||||
|
|
||||||
inc zCursorY
|
|
||||||
jsr GetDestAddr
|
|
||||||
lda zCursorY
|
lda zCursorY
|
||||||
cmp #$14 ; Y=$40 .. $A0, Rows $8..$13 (inclusive)
|
cmp #$14 ; Y=$40 .. $A0, Rows $8..$13 (inclusive)
|
||||||
bcs OuputDone
|
bcs OuputDone
|
||||||
|
@ -349,13 +353,6 @@ GetDestAddr
|
||||||
adc #$1c ; is Text Page $04 + $1C = HGR Page $20
|
adc #$1c ; is Text Page $04 + $1C = HGR Page $20
|
||||||
sta zHgrPtr+1
|
sta zHgrPtr+1
|
||||||
|
|
||||||
lda #0
|
|
||||||
ldx #40-1
|
|
||||||
ClearBuffer
|
|
||||||
sta UnpackAddr,X
|
|
||||||
dex
|
|
||||||
bpl ClearBuffer
|
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
; ------------------------------------------------------------------------
|
; ------------------------------------------------------------------------
|
||||||
|
|
BIN
ll_6502.dsk
BIN
ll_6502.dsk
Binary file not shown.
Loading…
Reference in New Issue