; VMW Productions HIRES viewer
;
; by deater (Vince Weaver) <vince@deater.net>

.include "zp.inc"
.include "hardware.inc"

hires_start:

	;===================
	; Init RTS disk code
	;===================

	jsr	rts_init

	;===================
	; set graphics mode
	;===================
	jsr	HOME

	bit	HIRES
	bit	FULLGR
	bit	SET_GR
	bit	PAGE0

	;===================
	; Load graphics
	;===================
load_loop:

	;=============================

	lda	#<bbl_filename
	sta	OUTL
	lda	#>bbl_filename
	sta	OUTH

	jsr	load_image

	jsr	wait_until_keypress

	;=============================

	lda	#<bbl2_filename
	sta	OUTL
	lda	#>bbl2_filename
	sta	OUTH

	jsr	load_image

	jsr	wait_until_keypress

	;=============================

	lda	#<grl_filename
	sta	OUTL
	lda	#>grl_filename
	sta	OUTH

	jsr	load_image

	jsr	wait_until_keypress

	;=============================

	;=============================

	lda	#<obg_filename
	sta	OUTL
	lda	#>obg_filename
	sta	OUTH

	jsr	load_image

	jsr	wait_until_keypress

	;=============================

	lda	#<fup_filename
	sta	OUTL
	lda	#>fup_filename
	sta	OUTH

	jsr	load_image

	jsr	wait_until_keypress

	;=============================

	;=============================

	lda	#<witch_filename
	sta	OUTL
	lda	#>witch_filename
	sta	OUTH

	jsr	load_image

	jsr	wait_until_keypress

	;=============================




	jmp	load_loop


	;==========================
	; Load Image
	;===========================

load_image:
	jsr	opendir_filename	; open and read entire file into memory

	; size in ldsizeh:ldsizel (f1/f0)

	comp_data	= $a000
	out_addr	= $2000


	jsr	full_decomp

	rts

.align $100
	.include	"wait_keypress.s"
	.include	"zx02_optim.s"
	.include	"rts.s"


; filename to open is 30-character Apple text:
bbl_filename:	; .byte "BBL.ZX02",0
	.byte 'B'|$80,'B'|$80,'L'|$80,'.'|$80,'Z'|$80,'X'|$80,'0'|$80
	.byte '2'|$80,$00

bbl2_filename:	; .byte "BBL2.ZX02",0
	.byte 'B'|$80,'B'|$80,'L'|$80,'2'|$80,'.'|$80,'Z'|$80,'X'|$80
	.byte '0'|$80,'2'|$80,$00

grl_filename:	; .byte "GRL.ZX02",0
	.byte 'G'|$80,'R'|$80,'L'|$80,'.'|$80,'Z'|$80,'X'|$80
	.byte '0'|$80,'2'|$80,$00

obg_filename:	; .byte "OBG.ZX02",0
	.byte 'O'|$80,'B'|$80,'G'|$80,'.'|$80,'Z'|$80,'X'|$80
	.byte '0'|$80,'2'|$80,$00

fup_filename:	; .byte "FUP.ZX02",0
	.byte 'F'|$80,'U'|$80,'P'|$80,'.'|$80,'Z'|$80,'X'|$80
	.byte '0'|$80,'2'|$80,$00

witch_filename:	; .byte "WITCH.ZX02",0
	.byte 'W'|$80,'I'|$80,'T'|$80,'C'|$80,'H'|$80
	.byte '.'|$80,'Z'|$80,'X'|$80,'0'|$80,'2'|$80,$00