117 lines
1.4 KiB
ArmAsm
117 lines
1.4 KiB
ArmAsm
; Test if we can use LZ4 instead of RLE for compression of LORES images
|
|
;
|
|
;
|
|
|
|
.include "hardware.inc"
|
|
.include "zp.inc"
|
|
|
|
start:
|
|
|
|
;===========================
|
|
; Enable graphics
|
|
|
|
bit LORES
|
|
bit SET_GR
|
|
bit FULLGR
|
|
|
|
;===========================
|
|
; Setup pages
|
|
|
|
lda #4
|
|
sta DRAW_PAGE
|
|
lda #0
|
|
sta DISP_PAGE
|
|
|
|
|
|
;============================
|
|
; Test RLE version
|
|
|
|
jsr BELL
|
|
|
|
lda #1 ; 8
|
|
sta OFFSET
|
|
|
|
rle_outer_loop:
|
|
lda #1 ; 100
|
|
sta GAIT
|
|
rle_inner_loop:
|
|
|
|
lda #>(test_rle)
|
|
sta GBASH
|
|
lda #<(test_rle)
|
|
sta GBASL
|
|
|
|
lda #$0c ; load to $c00
|
|
|
|
jsr load_rle_gr
|
|
|
|
dec GAIT
|
|
bne rle_inner_loop
|
|
|
|
dec OFFSET
|
|
bne rle_outer_loop
|
|
|
|
|
|
jsr BELL
|
|
|
|
jsr gr_copy_to_current
|
|
jsr page_flip
|
|
|
|
uz_loop:
|
|
lda KEYPRESS
|
|
bpl uz_loop
|
|
bit KEYRESET
|
|
|
|
|
|
;======================
|
|
; clear between tests
|
|
|
|
lda DRAW_PAGE
|
|
pha
|
|
|
|
lda #$8 ; clear c00
|
|
sta DRAW_PAGE
|
|
jsr clear_top
|
|
jsr clear_bottom
|
|
|
|
pla
|
|
sta DRAW_PAGE
|
|
|
|
vz_loop:
|
|
lda KEYPRESS
|
|
bpl vz_loop
|
|
bit KEYRESET
|
|
|
|
|
|
;============================
|
|
; Test LZ4 version
|
|
|
|
; point to source
|
|
lda #<(test_lz4)
|
|
sta LZ4_SRC
|
|
lda #>(test_lz4)
|
|
sta LZ4_SRC+1
|
|
|
|
lda #$C ; page to write to
|
|
|
|
jsr lz4_decode
|
|
|
|
jsr gr_copy_to_current
|
|
jsr page_flip
|
|
|
|
forever:
|
|
jmp forever
|
|
|
|
|
|
|
|
.include "gr_unrle.s"
|
|
.include "gr_offsets.s"
|
|
.include "gr_pageflip.s"
|
|
.include "gr_copy.s"
|
|
.include "gr_fast_clear.s"
|
|
.include "lz4_decode.s"
|
|
|
|
.include "compress_test.inc"
|
|
|
|
|