dos33fsprogs/ootw/compress_test.s
2019-02-25 21:01:06 -05:00

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"