mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-02 16:31:31 +00:00
136 lines
3.1 KiB
ArmAsm
136 lines
3.1 KiB
ArmAsm
; The Cho lo-res movie
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
.include "../zp.inc"
|
|
.include "../hardware.inc"
|
|
.include "../qload.inc"
|
|
|
|
.include "disk00_defines.inc"
|
|
|
|
|
|
NUM_OVERLAYS = 41
|
|
|
|
|
|
cho_start:
|
|
|
|
;===================
|
|
; Setup lo-res graphics
|
|
;===================
|
|
|
|
; clear it first
|
|
|
|
; jsr clear_gr_all
|
|
|
|
bit SET_GR
|
|
bit LORES
|
|
bit FULLGR
|
|
bit PAGE1
|
|
|
|
lda #0
|
|
sta SCENE_COUNT
|
|
|
|
lda #4
|
|
sta DRAW_PAGE
|
|
|
|
bit KEYRESET
|
|
|
|
;===============================
|
|
;===============================
|
|
; cho walks in
|
|
;===============================
|
|
;===============================
|
|
|
|
lda #<captured_cage_bg
|
|
sta scene_bg_l_smc+1
|
|
|
|
lda #>captured_cage_bg
|
|
sta scene_bg_h_smc+1
|
|
|
|
lda #0
|
|
sta WHICH_OVERLAY
|
|
|
|
cho_loop:
|
|
|
|
jsr draw_scene
|
|
|
|
jsr flip_pages
|
|
|
|
inc WHICH_OVERLAY
|
|
lda WHICH_OVERLAY
|
|
cmp #NUM_OVERLAYS
|
|
beq done_cho
|
|
|
|
; in theory we are 500ms (10*50) long here...
|
|
|
|
ldx #7
|
|
jsr wait_a_bit
|
|
|
|
jmp cho_loop
|
|
|
|
|
|
done_cho:
|
|
|
|
|
|
;======================
|
|
; done, move on to next
|
|
;======================
|
|
|
|
bit KEYRESET
|
|
|
|
lda #LOAD_CHO
|
|
sta WHICH_LOAD
|
|
|
|
lda #$1
|
|
sta LEVEL_OVER
|
|
|
|
rts
|
|
|
|
.include "flip_pages.s"
|
|
.include "draw_scene.s"
|
|
|
|
frames_l:
|
|
.byte <empty ; 0
|
|
.byte <empty ; 1
|
|
.byte <empty ; 2
|
|
.byte <empty ; 3
|
|
.byte <empty ; 4
|
|
.byte <empty ; 5
|
|
.byte <cho_overlay006,<cho_overlay007,<cho_overlay008 ; 6,7,8
|
|
.byte <cho_overlay009,<cho_overlay010,<cho_overlay011 ; 9,10,11
|
|
.byte <cho_overlay012,<cho_overlay013,<cho_overlay014 ; 12,13,14
|
|
.byte <cho_overlay015,<cho_overlay016,<cho_overlay017 ; 15,16,17
|
|
.byte <cho_overlay018,<cho_overlay019,<cho_overlay020 ; 18,19,20
|
|
.byte <cho_overlay021,<cho_overlay022,<cho_overlay023 ; 21,22,23
|
|
.byte <cho_overlay024,<cho_overlay025,<cho_overlay026 ; 24,25,26
|
|
.byte <cho_overlay027,<cho_overlay028,<cho_overlay029 ; 27,28,29
|
|
.byte <cho_overlay030,<cho_overlay031,<cho_overlay032 ; 30,31,32
|
|
.byte <cho_overlay033,<cho_overlay034,<cho_overlay035 ; 33,34,35
|
|
.byte <cho_overlay036,<cho_overlay037,<cho_overlay038 ; 36,37,38
|
|
.byte <cho_overlay039,<cho_overlay040 ; 39,40,41
|
|
|
|
|
|
frames_h:
|
|
.byte >empty ; 0
|
|
.byte >empty ; 1
|
|
.byte >empty ; 2
|
|
.byte >empty ; 3
|
|
.byte >empty ; 4
|
|
.byte >empty ; 5
|
|
.byte >cho_overlay006,>cho_overlay007,>cho_overlay008 ; 6,7,8
|
|
.byte >cho_overlay009,>cho_overlay010,>cho_overlay011 ; 9,10,11
|
|
.byte >cho_overlay012,>cho_overlay013,>cho_overlay014 ; 12,13,14
|
|
.byte >cho_overlay015,>cho_overlay016,>cho_overlay017 ; 15,16,17
|
|
.byte >cho_overlay018,>cho_overlay019,>cho_overlay020 ; 18,19,20
|
|
.byte >cho_overlay021,>cho_overlay022,>cho_overlay023 ; 21,22,23
|
|
.byte >cho_overlay024,>cho_overlay025,>cho_overlay026 ; 24,25,26
|
|
.byte >cho_overlay027,>cho_overlay028,>cho_overlay029 ; 27,28,29
|
|
.byte >cho_overlay030,>cho_overlay031,>cho_overlay032 ; 30,31,32
|
|
.byte >cho_overlay033,>cho_overlay034,>cho_overlay035 ; 33,34,35
|
|
.byte >cho_overlay036,>cho_overlay037,>cho_overlay038 ; 36,37,38
|
|
.byte >cho_overlay039,>cho_overlay040 ; 39,40,41
|
|
|
|
cho_graphics:
|
|
.include "graphics_cho/cho_graphics.inc"
|
|
|