mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
360 lines
5.9 KiB
ArmAsm
360 lines
5.9 KiB
ArmAsm
;=====================================
|
|
; 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
|
|
|
|
;=============================
|
|
; 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
|
|
|
|
; clear page0 screen
|
|
|
|
jsr clear_top ; 6+5410
|
|
|
|
; Set graphics mode
|
|
; bit HIRES ; 4
|
|
bit SET_GR ; 4
|
|
bit FULLGR ; 4
|
|
|
|
; 9620
|
|
;-5416 clear gr page0 top
|
|
; -8 mode set
|
|
; - 3 for jmp
|
|
;=======
|
|
; 4193
|
|
|
|
; Try X=25 Y=32 cycles=4193
|
|
|
|
ldy #32 ; 2
|
|
wrloopA:ldx #25 ; 2
|
|
wrloopB:dex ; 2
|
|
bne wrloopB ; 2nt/3
|
|
dey ; 2
|
|
bne wrloopA ; 2nt/3
|
|
|
|
jmp wreath_begin_loop
|
|
|
|
.include "sprites.inc"
|
|
|
|
.align $100
|
|
|
|
|
|
;================================================
|
|
; 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
|
|
|
|
wreath_begin_loop:
|
|
|
|
wreath_display_loop:
|
|
|
|
; (40*65)-4 = 2596
|
|
|
|
; 40 lines of LORES
|
|
bit LORES ; 4
|
|
|
|
; Try X=42 Y=12 cycles=2593 R3
|
|
|
|
lda $0 ; nop ; 3
|
|
|
|
ldy #12 ; 2
|
|
wrloopC:ldx #42 ; 2
|
|
wrloopD:dex ; 2
|
|
bne wrloopD ; 2nt/3
|
|
dey ; 2
|
|
bne wrloopC ; 2nt/3
|
|
|
|
|
|
; rest of screen is hires page0
|
|
; (152*65)-4 = 9876
|
|
|
|
bit HIRES ; 4
|
|
|
|
; Try X=13 Y=139 cycles=9870 R6
|
|
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
ldy #139 ; 2
|
|
wrloopE:ldx #13 ; 2
|
|
wrloopF:dex ; 2
|
|
bne wrloopF ; 2nt/3
|
|
dey ; 2
|
|
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
|
|
; -7 end detect
|
|
; -10 keypress
|
|
; ===========
|
|
; 1603
|
|
|
|
|
|
|
|
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
|
|
lda $0 ; 3
|
|
jmp done_wframing ; 3
|
|
wframing:
|
|
inc FLAME1 ; 5
|
|
inc FLAME2 ; 5
|
|
inc FLAME3 ; 5
|
|
inc FLAME4 ; 5
|
|
inc FLAME5 ; 5
|
|
|
|
done_wframing:
|
|
;=============
|
|
; 38
|
|
|
|
|
|
jsr play_music ; 6+1017
|
|
|
|
|
|
;========================
|
|
; draw sprites
|
|
;========================
|
|
|
|
lda FRAME ; 3
|
|
lsr ; 2
|
|
and #3 ; 2
|
|
sta FLAME_STATE ; 3
|
|
;===========
|
|
; 10
|
|
|
|
; Candle 1 (Hope)
|
|
|
|
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:
|
|
ldx FLAME_STATE ; 3
|
|
lda wide_lookup,X ; 4
|
|
flame1_go:
|
|
sta INL ; 3
|
|
|
|
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:
|
|
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
|
|
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:
|
|
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
|
|
jsr put_sprite_no_transparency ; 6+279
|
|
;===============
|
|
; 316
|
|
|
|
; Candle 4 (Love)
|
|
|
|
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:
|
|
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
|
|
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:
|
|
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
|
|
jsr put_sprite_no_transparency ; 6+372
|
|
;===============
|
|
; 409
|
|
|
|
|
|
; Try X=159 Y=2 cycles=1603
|
|
|
|
ldy #2 ; 2
|
|
wrloop1:ldx #159 ; 2
|
|
wrloop2:dex ; 2
|
|
bne wrloop2 ; 2nt/3
|
|
dey ; 2
|
|
bne wrloop1 ; 2nt/3
|
|
|
|
|
|
lda FLAME1 ; 3
|
|
cmp #16 ; length of song? ; 2
|
|
beq wreath_done ; 3
|
|
; -1
|
|
;===============
|
|
; 7
|
|
|
|
|
|
|
|
|
|
; no keypress = 10+(24) = 34
|
|
|
|
lda KEYPRESS ; 4
|
|
bpl wr_no_keypress ; 3
|
|
; -1
|
|
jmp wreath_check_key ; 3
|
|
wr_no_keypress:
|
|
jmp wreath_display_loop ; 3
|
|
|
|
wreath_check_key:
|
|
cmp #'M'|$80
|
|
bne wreath_done
|
|
|
|
jsr mute_music
|
|
|
|
wreath_done:
|
|
|
|
bit KEYRESET ; clear keypress ; 4
|
|
rts ; 6
|
|
|
|
|
|
;.assert >wreath_begin_loop = >(wreath_done), error, "wreath crosses page"
|
|
|