mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-20 01:29:36 +00:00
65 lines
782 B
ArmAsm
65 lines
782 B
ArmAsm
|
; Yet Another HR project
|
||
|
;
|
||
|
; by deater (Vince Weaver) <vince@deater.net>
|
||
|
|
||
|
|
||
|
.include "zp.inc"
|
||
|
.include "hardware.inc"
|
||
|
|
||
|
|
||
|
hires_start:
|
||
|
|
||
|
;===================
|
||
|
; set graphics mode
|
||
|
;===================
|
||
|
jsr HOME
|
||
|
|
||
|
bit HIRES
|
||
|
bit FULLGR
|
||
|
bit SET_GR
|
||
|
bit PAGE0
|
||
|
|
||
|
|
||
|
;===================
|
||
|
; Load graphics
|
||
|
;===================
|
||
|
load_loop:
|
||
|
|
||
|
;=============================
|
||
|
|
||
|
|
||
|
;==========================
|
||
|
; Load Image
|
||
|
;===========================
|
||
|
|
||
|
load_image:
|
||
|
|
||
|
; size in ldsizeh:ldsizel (f1/f0)
|
||
|
|
||
|
; comp_data = $a000
|
||
|
out_addr = $2000
|
||
|
|
||
|
|
||
|
jsr full_decomp
|
||
|
|
||
|
rts
|
||
|
|
||
|
|
||
|
|
||
|
wait_until_keypress:
|
||
|
lda KEYPRESS ; 4
|
||
|
bpl wait_until_keypress ; 3
|
||
|
bit KEYRESET ; clear the keyboard buffer
|
||
|
|
||
|
which_ok:
|
||
|
jmp load_loop
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
.include "zx02_optim.s"
|
||
|
|
||
|
|
||
|
comp_data:
|
||
|
.incbin "graphics/strongbad_sample.hgr.zx02"
|