mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-31 10:13:35 +00:00
157 lines
2.4 KiB
ArmAsm
157 lines
2.4 KiB
ArmAsm
; 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
|
|
|