mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-16 11:30:55 +00:00
83 lines
1.4 KiB
ArmAsm
83 lines
1.4 KiB
ArmAsm
.include "../zp.inc"
|
|
.include "../hardware.inc"
|
|
.include "../qload.inc"
|
|
.include "../music.inc"
|
|
|
|
|
|
|
|
;=============================
|
|
; draw some graphics
|
|
;=============================
|
|
|
|
graphics:
|
|
lda #0
|
|
|
|
bit SET_GR
|
|
bit HIRES
|
|
bit FULLGR
|
|
bit PAGE1
|
|
|
|
;=================================
|
|
; floater
|
|
;=================================
|
|
|
|
lda #<floater_graphics
|
|
sta zx_src_l+1
|
|
lda #>floater_graphics
|
|
sta zx_src_h+1
|
|
lda #$20
|
|
jsr zx02_full_decomp
|
|
|
|
jsr wait_until_keypress
|
|
|
|
|
|
;=================================
|
|
; World 233
|
|
;=================================
|
|
|
|
bit SET_GR
|
|
bit HIRES
|
|
bit FULLGR
|
|
sta AN3 ; set double hires
|
|
sta EIGHTYCOLON ; 80 column
|
|
sta SET80COL ; 80 store
|
|
|
|
bit PAGE1 ; start in page1
|
|
|
|
lda #<riven_233_graphics_bin
|
|
sta zx_src_l+1
|
|
lda #>riven_233_graphics_bin
|
|
sta zx_src_h+1
|
|
lda #$20
|
|
jsr zx02_full_decomp
|
|
|
|
; auxiliary part
|
|
bit PAGE2
|
|
lda #<riven_233_graphics_aux
|
|
sta zx_src_l+1
|
|
lda #>riven_233_graphics_aux
|
|
sta zx_src_h+1
|
|
lda #$20
|
|
jsr zx02_full_decomp
|
|
|
|
jsr wait_until_keypress
|
|
|
|
; disable 80column mode
|
|
sta SETAN3
|
|
jsr CLR80COL
|
|
jsr EIGHTYCOLOFF
|
|
|
|
rts
|
|
|
|
floater_graphics:
|
|
.incbin "graphics/floater_wide_steffest.hgr.zx02"
|
|
|
|
riven_233_graphics_aux:
|
|
.incbin "graphics/riven_233.aux.zx02"
|
|
|
|
riven_233_graphics_bin:
|
|
.incbin "graphics/riven_233.bin.zx02"
|
|
|
|
|
|
.include "../wait_keypress.s"
|