dos33fsprogs/xmas_2018/wreath.s

360 lines
5.9 KiB
ArmAsm
Raw Normal View History

;=====================================
; XMAS2018 -- Wreath Part
;=====================================
wreath:
;===================
; init screen
;===================
; init vars
lda #15
sta XPOS
lda #38
sta YPOS
lda #0
sta FRAME
; setup candle flames
lda #254
sta FLAME1
lda #252
sta FLAME2
lda #250
sta FLAME3
lda #248
sta FLAME4
lda #246
sta FLAME5
;=============================
2018-12-18 18:43:56 +00:00
; Wreath image already loaded to $2000 (HGR Page 0)
;==============================
; setup graphics for vapor lock
;==============================
jsr vapor_lock ; 6
; vapor lock returns with us at beginning of hsync in line
; 114 (7410 cycles), so with 5070 lines to go
; so we have 5070 + 4550 = 9620 to kill
2018-12-21 14:55:06 +00:00
; clear page0 screen
2018-12-18 18:43:56 +00:00
2018-12-17 16:44:56 +00:00
jsr clear_top ; 6+5410
2018-12-11 22:01:18 +00:00
2018-12-21 14:55:06 +00:00
; Set graphics mode
2018-12-11 22:01:18 +00:00
; bit HIRES ; 4
bit SET_GR ; 4
bit FULLGR ; 4
2018-12-11 22:01:18 +00:00
; 9620
2018-12-17 16:44:56 +00:00
;-5416 clear gr page0 top
2018-12-11 22:01:18 +00:00
; -8 mode set
; - 3 for jmp
;=======
2018-12-17 16:44:56 +00:00
; 4193
2018-12-17 16:44:56 +00:00
; Try X=25 Y=32 cycles=4193
2018-12-17 16:44:56 +00:00
ldy #32 ; 2
wrloopA:ldx #25 ; 2
2018-12-12 17:33:05 +00:00
wrloopB:dex ; 2
bne wrloopB ; 2nt/3
dey ; 2
2018-12-12 17:33:05 +00:00
bne wrloopA ; 2nt/3
2018-12-11 21:39:28 +00:00
jmp wreath_begin_loop
2018-12-19 19:16:37 +00:00
.include "sprites.inc"
.align $100
;================================================
2018-12-11 21:39:28 +00:00
; Wreath Loop
;================================================
; each scan line 65 cycles
; 1 cycle each byte (40cycles) + 25 for horizontal
; Total of 12480 cycles to draw screen
; Vertical blank = 4550 cycles (70 scan lines)
; Total of 17030 cycles to get back to where was
2018-12-11 21:39:28 +00:00
wreath_begin_loop:
2018-12-11 21:39:28 +00:00
wreath_display_loop:
2018-12-11 22:01:18 +00:00
; (40*65)-4 = 2596
2018-12-11 22:01:18 +00:00
; 40 lines of LORES
bit LORES ; 4
2018-12-11 22:01:18 +00:00
; Try X=42 Y=12 cycles=2593 R3
2018-12-11 22:01:18 +00:00
lda $0 ; nop ; 3
2018-12-11 22:01:18 +00:00
ldy #12 ; 2
wrloopC:ldx #42 ; 2
2018-12-11 21:39:28 +00:00
wrloopD:dex ; 2
bne wrloopD ; 2nt/3
dey ; 2
2018-12-11 21:39:28 +00:00
bne wrloopC ; 2nt/3
2018-12-11 22:01:18 +00:00
; rest of screen is hires page0
; (152*65)-4 = 9876
2018-12-11 22:01:18 +00:00
bit HIRES ; 4
2018-12-11 22:01:18 +00:00
; Try X=13 Y=139 cycles=9870 R6
2018-12-11 22:01:18 +00:00
nop
nop
nop
2018-12-11 22:01:18 +00:00
ldy #139 ; 2
wrloopE:ldx #13 ; 2
2018-12-11 21:39:28 +00:00
wrloopF:dex ; 2
bne wrloopF ; 2nt/3
dey ; 2
2018-12-11 21:39:28 +00:00
bne wrloopE ; 2nt/3
;======================================================
; We have 4550 cycles in the vblank, use them wisely
;======================================================
; do_nothing should be 4550
; play music 1023
; sprites 10+(409*3+316*2)= 1869
; -38 frame adjust
2018-12-18 18:43:56 +00:00
; -7 end detect
2018-12-11 22:01:18 +00:00
; -10 keypress
; ===========
; 1603
2018-12-18 18:43:56 +00:00
inc FRAME ; 5
lda FRAME ; 3
and #63 ; 2
beq wframing ; 3
; -1
inc FLAME1 ; 5
dec FLAME1 ; 5
inc FLAME1 ; 5
dec FLAME1 ; 5
2018-12-18 18:43:56 +00:00
lda $0 ; 3
jmp done_wframing ; 3
wframing:
inc FLAME1 ; 5
inc FLAME2 ; 5
inc FLAME3 ; 5
inc FLAME4 ; 5
inc FLAME5 ; 5
2018-12-18 18:43:56 +00:00
done_wframing:
;=============
; 38
2018-12-18 18:43:56 +00:00
jsr play_music ; 6+1017
2018-12-16 03:47:11 +00:00
;========================
; draw sprites
;========================
2018-12-19 19:16:37 +00:00
lda FRAME ; 3
lsr ; 2
and #3 ; 2
sta FLAME_STATE ; 3
;===========
; 10
; Candle 1 (Hope)
2018-12-16 03:47:11 +00:00
lda #>wide_flame0 ; 2
sta INH ; 3
lda FLAME1 ; 3
bpl flame1_lit ; 3
; -1
lda $0 ; 3
lda #<wide_empty ; 2
jmp flame1_go ; 3
flame1_lit:
2018-12-19 19:16:37 +00:00
ldx FLAME_STATE ; 3
lda wide_lookup,X ; 4
flame1_go:
2018-12-16 03:47:11 +00:00
sta INL ; 3
2018-12-16 03:47:11 +00:00
lda #4 ; 2
sta XPOS ; 3
lda #4 ; 2
sta YPOS ; 3
jsr put_sprite_no_transparency ; 6+372
;===============
;tot= 409
; Candle 2 (Peace)
lda #>flame0 ; 2
sta INH ; 3
lda FLAME2 ; 3
bpl flame2_lit ; 3
; -1
lda $0 ; 3
lda #<empty ; 2
jmp flame2_go ; 3
flame2_lit:
2018-12-19 19:16:37 +00:00
ldx FLAME_STATE ; 3
lda flame_lookup,X ; 4
flame2_go:
sta INL ; 3
lda #14 ; 2
sta XPOS ; 3
lda #4 ; 2
sta YPOS ; 3
2018-12-18 19:57:44 +00:00
jsr put_sprite_no_transparency ; 6+279
;===============
; 316
; Candle 3 (Joy)
lda #>flame0 ; 2
sta INH ; 3
lda FLAME3 ; 3
bpl flame3_lit ; 3
; -1
lda $0 ; 3
lda #<empty ; 2
jmp flame3_go ; 3
flame3_lit:
2018-12-19 19:16:37 +00:00
ldx FLAME_STATE ; 3
lda flame_lookup,X ; 4
flame3_go:
sta INL ; 3
lda #31 ; 2
sta XPOS ; 3
lda #4 ; 2
sta YPOS ; 3
2018-12-18 19:57:44 +00:00
jsr put_sprite_no_transparency ; 6+279
;===============
; 316
; Candle 4 (Love)
2018-12-19 19:16:37 +00:00
lda #>wide_flame0 ; 2
sta INH ; 3
lda FLAME4 ; 3
bpl flame4_lit ; 3
; -1
lda $0 ; 3
lda #<wide_empty ; 2
jmp flame4_go ; 3
flame4_lit:
2018-12-19 19:16:37 +00:00
ldx FLAME_STATE ; 3
lda wide_lookup,X ; 4
flame4_go:
sta INL ; 3
lda #26 ; 2
sta XPOS ; 3
lda #4 ; 2
sta YPOS ; 3
2018-12-19 19:16:37 +00:00
jsr put_sprite_no_transparency ;31+372
;===============
; 409
; Candle 5 (Christmas)
lda #>wide_flame0 ; 2
sta INH ; 3
lda FLAME5 ; 3
bpl flame5_lit ; 3
; -1
lda $0 ; 3
lda #<wide_empty ; 2
jmp flame5_go ; 3
flame5_lit:
2018-12-19 19:16:37 +00:00
ldx FLAME_STATE ; 3
lda wide_lookup,X ; 4
flame5_go:
sta INL ; 3
lda #20 ; 2
sta XPOS ; 3
lda #4 ; 2
sta YPOS ; 3
2018-12-18 19:57:44 +00:00
jsr put_sprite_no_transparency ; 6+372
2018-12-16 03:47:11 +00:00
;===============
; 409
2018-12-16 03:47:11 +00:00
; Try X=159 Y=2 cycles=1603
2018-12-16 03:47:11 +00:00
2018-12-19 19:16:37 +00:00
ldy #2 ; 2
wrloop1:ldx #159 ; 2
2018-12-11 21:39:28 +00:00
wrloop2:dex ; 2
bne wrloop2 ; 2nt/3
dey ; 2
2018-12-11 21:39:28 +00:00
bne wrloop1 ; 2nt/3
2018-12-19 19:16:37 +00:00
lda FLAME1 ; 3
cmp #16 ; length of song? ; 2
2018-12-19 19:16:37 +00:00
beq wreath_done ; 3
; -1
;===============
; 7
; no keypress = 10+(24) = 34
lda KEYPRESS ; 4
2018-12-11 21:39:28 +00:00
bpl wr_no_keypress ; 3
; -1
jmp wreath_check_key ; 3
2018-12-11 21:39:28 +00:00
wr_no_keypress:
jmp wreath_display_loop ; 3
wreath_check_key:
cmp #'M'|$80
bne wreath_done
jsr mute_music
2018-12-18 18:43:56 +00:00
wreath_done:
bit KEYRESET ; clear keypress ; 4
rts ; 6
2018-12-21 14:55:06 +00:00
;.assert >wreath_begin_loop = >(wreath_done), error, "wreath crosses page"
2018-12-18 18:43:56 +00:00