2023-09-17 05:10:45 +00:00
|
|
|
; Not actually 3D at all
|
|
|
|
|
; is really a lo-res shape plotter that can play movie-like things
|
|
|
|
|
|
|
|
|
|
; o/~ We went to Threed to see the Queen o/~
|
|
|
|
|
|
|
|
|
|
;
|
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
|
|
|
|
|
|
.include "../zp.inc"
|
|
|
|
|
.include "../hardware.inc"
|
2023-11-01 14:28:26 +00:00
|
|
|
.include "../qload2.inc"
|
|
|
|
|
;.include "music2.inc"
|
2023-09-17 05:10:45 +00:00
|
|
|
|
|
|
|
|
threed_start:
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;===================
|
2023-11-13 05:35:32 +00:00
|
|
|
; Setup graphics
|
2023-09-17 05:10:45 +00:00
|
|
|
;===================
|
2023-11-13 05:35:32 +00:00
|
|
|
|
2023-09-17 05:10:45 +00:00
|
|
|
bit SET_GR
|
|
|
|
|
bit LORES
|
|
|
|
|
bit FULLGR
|
2023-09-18 01:24:41 +00:00
|
|
|
bit PAGE1
|
2023-09-17 05:10:45 +00:00
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta DRAW_PAGE
|
|
|
|
|
|
2023-11-13 05:35:32 +00:00
|
|
|
bit KEYRESET
|
2023-09-17 05:10:45 +00:00
|
|
|
|
|
|
|
|
lda #num_scenes
|
|
|
|
|
sta SCENE_COUNT
|
|
|
|
|
|
|
|
|
|
lda #<frame15
|
|
|
|
|
sta INL
|
|
|
|
|
lda #>frame15
|
|
|
|
|
sta INH
|
|
|
|
|
|
|
|
|
|
scene_loop:
|
|
|
|
|
jsr draw_scene
|
|
|
|
|
|
2023-09-18 01:24:41 +00:00
|
|
|
;============================
|
|
|
|
|
; flip pages
|
|
|
|
|
;============================
|
|
|
|
|
lda DRAW_PAGE ; 3
|
|
|
|
|
beq was_page1 ; 2/3
|
|
|
|
|
was_page2:
|
|
|
|
|
bit PAGE2 ; 4
|
|
|
|
|
lda #$0 ; 2
|
|
|
|
|
beq done_pageflip ; 2/3
|
|
|
|
|
was_page1:
|
|
|
|
|
bit PAGE1 ; 4
|
|
|
|
|
lda #$4 ; 2
|
|
|
|
|
done_pageflip:
|
|
|
|
|
sta DRAW_PAGE ; 3
|
|
|
|
|
|
2023-10-04 05:23:02 +00:00
|
|
|
lda #12
|
|
|
|
|
sta IRQ_COUNTDOWN
|
2023-09-18 01:24:41 +00:00
|
|
|
|
2023-10-04 05:23:02 +00:00
|
|
|
wait_for_irq:
|
|
|
|
|
lda IRQ_COUNTDOWN
|
|
|
|
|
bne wait_for_irq
|
|
|
|
|
|
2023-11-13 05:35:32 +00:00
|
|
|
lda KEYPRESS
|
|
|
|
|
bmi done_threed
|
2023-09-18 01:24:41 +00:00
|
|
|
|
2023-09-17 05:10:45 +00:00
|
|
|
dec SCENE_COUNT
|
|
|
|
|
bne scene_loop
|
|
|
|
|
|
2023-11-13 05:35:32 +00:00
|
|
|
done_threed:
|
|
|
|
|
bit KEYRESET
|
2023-10-28 05:51:10 +00:00
|
|
|
|
|
|
|
|
rts
|
2023-09-17 05:10:45 +00:00
|
|
|
|
2023-11-13 05:35:32 +00:00
|
|
|
|
|
|
|
|
;===================================
|
|
|
|
|
|
|
|
|
|
; .include "../wait_keypress.s"
|
2023-09-17 05:10:45 +00:00
|
|
|
|
|
|
|
|
.include "draw_boxes.s"
|
|
|
|
|
.include "3d.inc"
|
|
|
|
|
|
