130 lines
2.2 KiB
ArmAsm

.include "../zp.inc"
.include "../hardware.inc"
.include "../qload.inc"
.include "../music.inc"
.include "../common_defines.inc"
; OK: was going to have hi-res top, scroll lo-res bottom
; vapor lock (but using IIe)
; problem is that won't work with 50Hz music / 60Hz screen
; I guess can try for smooth scroll bottom hires but do we have code for that?
; page flip $2000/$4000
; scroll text $6000, 160..192 = 32?
;
;
;
;
;=============================
; draw the atrus scene
;=============================
atrus_opener:
lda #0
bit SET_GR
bit HIRES
bit TEXTGR
bit PAGE1
;=================================
; intro
;=================================
lda #<atrus03_graphics
sta zx_src_l+1
lda #>atrus03_graphics
sta zx_src_h+1
lda #$20
jsr zx02_full_decomp
lda #<atrus_text
sta OUTL
lda #>atrus_text
sta OUTH
jsr move_and_print
jsr move_and_print
jsr move_and_print
jsr wait_until_keypress
;=================================
; scroller
;=================================
bit FULLGR
lda #<atrus10_graphics
sta zx_src_l+1
lda #>atrus10_graphics
sta zx_src_h+1
lda #$40 ; on both pages
jsr zx02_full_decomp
jsr do_scroll
jsr wait_until_keypress
;=================================
; book start
;=================================
lda #<atrus10_graphics
sta zx_src_l+1
lda #>atrus10_graphics
sta zx_src_h+1
lda #$20
jsr zx02_full_decomp
jsr wait_until_keypress
;=================================
; plasma
;=================================
lda #<atrus11_graphics
sta zx_src_l+1
lda #>atrus11_graphics
sta zx_src_h+1
lda #$20
jsr zx02_full_decomp
; load both pages as we page flip
lda #<atrus11_graphics
sta zx_src_l+1
lda #>atrus11_graphics
sta zx_src_h+1
lda #$40
jsr zx02_full_decomp
jsr plasma_debut
jsr wait_until_keypress
rts
atrus03_graphics:
.incbin "graphics/atrus03_iipix.hgr.zx02"
atrus10_graphics:
.incbin "graphics/atrus10_iipix.hgr.zx02"
atrus11_graphics:
.incbin "graphics/atrus11_iipix.hgr.zx02"
atrus_text:
.byte 7,20,"Thank God you've returned.",0
.byte 4,22,"I need... Wait, is this a demo?",0
.byte 9,23,"Sorry let me try again",0
;.include "../wait_keypress.s"
.include "plasma.s"
.include "font/large_font.inc"
.include "big_horiz_scroll.s"