101 lines
1.7 KiB
ArmAsm
101 lines
1.7 KiB
ArmAsm
; VMW Productions GR/ZX02 viewer
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
WHICH = $E0
|
|
|
|
lores_start:
|
|
|
|
;===================
|
|
; Init RTS disk code
|
|
;===================
|
|
|
|
jsr rts_init
|
|
|
|
;===================
|
|
; set graphics mode
|
|
;===================
|
|
jsr HOME
|
|
|
|
bit LORES
|
|
bit FULLGR
|
|
bit SET_GR
|
|
bit PAGE1
|
|
|
|
lda #0
|
|
sta WHICH
|
|
|
|
;===================
|
|
; Load graphics
|
|
;===================
|
|
load_loop:
|
|
|
|
;=============================
|
|
|
|
ldx WHICH
|
|
|
|
lda filenames_low,X
|
|
sta OUTL
|
|
lda filenames_high,X
|
|
sta OUTH
|
|
|
|
jsr load_image
|
|
|
|
wait_until_keypress:
|
|
lda KEYPRESS ; 4
|
|
bpl wait_until_keypress ; 3
|
|
bit KEYRESET ; clear the keyboard buffer
|
|
|
|
cmp #$88 ; left button
|
|
bne inc_which
|
|
|
|
dec WHICH
|
|
bpl which_ok
|
|
|
|
ldx #(MAX_FILES-1)
|
|
bne store_which ; bra
|
|
|
|
inc_which:
|
|
inc WHICH
|
|
ldx WHICH
|
|
cpx #MAX_FILES
|
|
bcc which_ok ; blt
|
|
|
|
ldx #0
|
|
store_which:
|
|
stx WHICH
|
|
|
|
which_ok:
|
|
jmp load_loop
|
|
|
|
;==========================
|
|
; Load Image
|
|
;===========================
|
|
|
|
load_image:
|
|
bit PAGE2
|
|
|
|
jsr opendir_filename ; open and read entire file into memory
|
|
|
|
lda #<$A000
|
|
sta zx_src_l+1
|
|
|
|
lda #>$A000
|
|
sta zx_src_h+1
|
|
|
|
lda #$08
|
|
|
|
jsr zx02_full_decomp
|
|
|
|
bit PAGE2
|
|
|
|
rts
|
|
|
|
|
|
|
|
.include "zx02_optim.s"
|
|
.include "rts.s"
|