; 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"