dos33fsprogs/demos/megademo/leaving.s
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

569 lines
11 KiB
ArmAsm

; Leaving house
; Simple Text/GR split
; STATE??? Wait 1 s
; STATE??? Open door
; STATE1 = Walk over to bird (3s? 20steps? so at ~5Hz? 12 ticks per step?)
; 56789012345678901234
; STATE2 = get on bird
; STATE3 = ride off on bird
; Some zero-page action
TFV_X = 0
TFV_Y = 1
leaving_home:
;===================
; init screen
bit KEYRESET
setup_leaving:
;===================
; init vars
lda #0
sta FRAME
sta FRAMEH
sta TFV_X
lda #8
sta DRAW_PAGE
; lda #22
; sta TFV_Y
;=============================
; Load graphic page0
lda #$0c
sta BASH
lda #$00
sta BASL ; load image to $c00
lda #<leaving
sta GBASL
lda #>leaving
sta GBASH
jsr load_rle_gr
lda #$a0
ldy #10
jsr clear_page_loop ; make top 6 lines spaces
lda #0
sta DRAW_PAGE
bit PAGE0
sei ; disable interrupt music
;==============================
; 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
jsr gr_copy_to_current ; 6+ 9292
; now we have 322 left
; GR part
bit LORES ; 4
bit SET_GR ; 4
bit FULLGR ; 4
jsr draw_moon_sky ; 6+54
; 322 - 12 = 310
; - 3 for jmp
; 307 - 60 for sky = 247
; Try X=9 Y=6 cycles=307
; Try X=7 Y=6 cycles=247
ldy #6 ; 2
lvloopA:ldx #7 ; 2
lvloopB:dex ; 2
bne lvloopB ; 2nt/3
dey ; 2
bne lvloopA ; 2nt/3
jmp lv_begin_loop
.align $100
;================================================
; Leaving 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
; want 12*4 = 48 lines of TEXT = 3120-4=3116
; want 136-48 = 88 lines of undisturbed LORES = 5720 - 4 = 5716
; lores lines 20-33 (80 - 135) are changing
; so don't do much then
; want 192-136=56 lines of LORES = 3640
lv_begin_loop:
; 3120
; -4 set_text
; -25 inc frame
; -17 set state
; -11 move
; -8 check if done
;-1038 play music
;=======
; 2017
bit SET_TEXT ; 4
; Update frame count
; no carry: 13+(12) = 25
; carry: 13+12 = 25
inc FRAME ; 5
lda FRAME ; 3
cmp #12 ; 2
bne lv_waste_12 ; 3
;============
; 13
; -1
lda #0 ; 2
sta FRAME ; 3
inc FRAMEH ; 5
jmp lv_no_carry ; 3
;============
; 12
lv_waste_12:
lda $0 ; 3
lda $0 ; 3
lda $0 ; 3
lda $0 ; 3
lv_no_carry:
;=================
; check if done
;=================
lda FRAMEH ; 3
cmp #35 ; 2
bne lv_not_done ; 3
jmp lv_all_done
lv_not_done:
;===========
; 8
; Set the state
; STATE0 = 5+4+(5)+3 = 17
; STATE2 = 5+5+4+3 = 17
; STATE4 = 5+5+2+3+(2) =17
cmp #5 ; 2
bcs lv_state_notzero ; bge ; 3
lv_state_zero:
; -1
lda $0 ; nop ; 3
nop ; 2
ldx #0 ; 2
jmp lv_set_state ; 3
lv_state_notzero:
cmp #25 ; 2
bcs lv_state_four ; bge ; 3
lv_state_two:
; -1
ldx #2 ; 2
jmp lv_set_state ; 3
lv_state_four:
nop ; 2
ldx #4 ; 2
lv_set_state:
stx STATE ; 3
;=====
; Move
; if move, 6+5=11
; if not move, 6+5=11
lda FRAME ; only ove if FRAME==0 ; 3
beq lv_move ; 3
lv_nomove: ; -1
lda $0 ;nop ; 3
jmp lv_done_move ; 3
lv_move:
inc TFV_X ; 5
lv_done_move:
jsr play_music
; Try X=10 Y=36 cycles=2017
; Try X=86 Y=7 cycles=3053 R2
ldy #36 ; 2
lvloop8:ldx #10 ; 2
lvloop9:dex ; 2
bne lvloop9 ; 2nt/3
dey ; 2
bne lvloop8 ; 2nt/3
;==========================
; Set graphics mode, delay until done displaying the yard
;==========================
bit SET_GR ; 4
; Try X=75 Y=15 cycles=5716
ldy #15 ; 2
lvloop6:ldx #75 ; 2
lvloop7:dex ; 2
bne lvloop7 ; 2nt/3
dey ; 2
bne lvloop6 ; 2nt/3
;===============================
; Draw the Yard
;===============================
draw_the_yard:
jsr erase_yard ; 6+1249
;===============================
; Draw one of three states
;===============================
; STATE0 = draw nothing
; STATE2 = draw open door + walking TFV+susie
; STATE4 = draw TFV on bird
; Set up jump table that runs same speed on 6502 and 65c02
ldy STATE ; 3
lda lv_jump_table+1,y ; 4
pha ; 3
lda lv_jump_table,y ; 4
pha ; 3
rts ; 6
;=============
; 23
lv_jump_table:
.word (lv_state0-1)
.word (lv_state2-1)
.word (lv_state4-1)
lv_back_from_jumptable:
;======================================================
; We have 4550 cycles in the vblank, use them wisely
;======================================================
; do_nothing should be 3640 (bottom of GR screen)
; 4550 (vblank)
; -1255 (clear yard)
; -23 (setup jump table)
; -5259 (in state code)
; -10 keypress
; ===========
; 1643
; Try X=163 Y=2 cycles=1643
ldy #2 ; 2
lvloop1:ldx #163 ; 2
lvloop2:dex ; 2
bne lvloop2 ; 2nt/3
dey ; 2
bne lvloop1 ; 2nt/3
lda KEYPRESS ; 4
bpl lv_no_keypress ; 3
jmp lv_all_done
lv_no_keypress:
jmp lv_begin_loop ; 3
lv_all_done:
bit KEYRESET ; clear keypress ; 4
cli ; re-enable interrupt music
rts ; 6
;=====================
; State0 : do nothing
;=====================
; Delay 5259
; -2072
; -3
;===========
; 3184
lv_state0:
; draw bird
lda #>bird_stand_right_sprite ; 2
sta INH ; 3
lda #<bird_stand_right_sprite ; 2
sta INL ; 3
lda #24 ; 2
sta XPOS ; 3
lda #20 ; 2
sta YPOS ; 3
jsr put_sprite ; 6
;=========
; 26 + 2046 = 2072
; Try X=211 Y=3 cycles=3184
ldy #3 ; 2
lvloopT:ldx #211 ; 2
lvloopU:dex ; 2
bne lvloopU ; 2nt/3
dey ; 2
bne lvloopT ; 2nt/3
jmp lv_back_from_jumptable ; 3
;======================================================
; State2 : draw walking
;======================================================
; 1490 = 1471+19 (draw tfv)
; 33 (draw susie)
; 2072 (draw bird)
; 1661 (draw door)
; 3 (return)
;==========
; 5259
lv_state2:
lda TFV_X ; 3
sta XPOS ; 3
lda #22 ; 2
sta YPOS ; 3
lda FRAMEH ; 3
and #$1 ; 2
beq lv_walk ; 3
;===========
; 19
lv_stand:
; draw deater standing ; -1
lda #>tfv_stand_right ; 2
sta INH ; 3
lda #<tfv_stand_right ; 2
sta INL ; 3
jsr put_sprite ; 6
; need to waste 61 cycles
lda #34 ; 2
jsr delay_a ; 25+34 = 59
jmp lv_susie ; 3
;=========
; 18 + 1392 = 1410
lv_walk:
; draw deater walking
lda #>tfv_walk_right ; 2
sta INH ; 3
lda #<tfv_walk_right ; 2
sta INL ; 3
jsr put_sprite ; 6
;=========
; 16 + 1455 = 1471
; draw susie
; 33 cycles
lv_susie:
; draw susie at TFV_X-5, IFF TFV_X>10
lda TFV_X ; 3
sec ; 2
sbc #5 ; 2
tax ; 2
cpx #5 ; 2
bcs lv_yes_susie ; bge ; 3
;============
; 14
lv_no_susie:
; -1
inc TFV_Y ; 5
dec TFV_Y ; 5
nop ; 2
nop ; 2
lda $0 ; 3
jmp lv_done_susie ; 3
;============
; 19
lv_yes_susie:
lda #0 ; 2
sta $450,X ; 5
sta $451,X ; 5
lda #$0f ; 2
sta $452,X ; 5
lv_done_susie:
;===========
; 19
; draw bird
lda #>bird_stand_right_sprite ; 2
sta INH ; 3
lda #<bird_stand_right_sprite ; 2
sta INL ; 3
lda #24 ; 2
sta XPOS ; 3
lda #20 ; 2
sta YPOS ; 3
jsr put_sprite ; 6
;=========
; 26 + 2046 = 2072
lv_draw_door:
; draw door
lda #>door_sprite ; 2
sta INH ; 3
lda #<door_sprite ; 2
sta INL ; 3
lda #5 ; 2
sta XPOS ; 3
lda #22 ; 2
sta YPOS ; 3
jsr put_sprite ; 6
;=========
; 26 + 1635 = 1661
jmp lv_back_from_jumptable ; 3
;======================================================
; State4 : on bird
;======================================================
; 5259
; -2227 = 2208+19 (draw bird)
; -1661 (draw door)
; -6 (return)
;==========
; 1365
lv_state4:
lda TFV_X ; 3
sta XPOS ; 3
lda #20 ; 2
sta YPOS ; 3
lda FRAMEH ; 3
and #$1 ; 2
beq lv_bwalk ; 3
;===========
; 19
lv_bstand:
; draw bird/rider standing ; -1
lda #>bird_rider_stand_right ; 2
sta INH ; 3
lda #<bird_rider_stand_right ; 2
sta INL ; 3
jsr put_sprite ; 6
jmp lv_done_bwalk ; 3
;=========
; 18 + 2190 = 2208
lv_bwalk:
; draw bird/rider walking
lda #>bird_rider_walk_right ; 2
sta INH ; 3
lda #<bird_rider_walk_right ; 2
sta INL ; 3
jsr put_sprite ; 6
nop
inc TFV_Y
inc TFV_Y
inc TFV_Y
;=========
; 16 + 2175
lv_done_bwalk:
; delay
; Try X=67 Y=4 cycles=1365
ldy #4 ; 2
lvloopV:ldx #67 ; 2
lvloopW:dex ; 2
bne lvloopW ; 2nt/3
dey ; 2
bne lvloopV ; 2nt/3
jmp lv_draw_door
;======================
; erase yard
;======================
; 1209 cycles
; 4+ 31*[35 + 5 ] + 5 = 1249
erase_yard:
lda #$44 ; green ; 2
ldx #30 ; 9 - 40 ; 2
yard_loop:
sta $528+9,X ; 20 ; 5
sta $5a8+9,X ; 22 ; 5
sta $628+9,X ; 24 ; 5
sta $6a8+9,X ; 26 ; 5
sta $728+9,X ; 28 ; 5
sta $7a8+9,X ; 30 ; 5
sta $450+9,X ; 32 ; 5
dex ; 2
bpl yard_loop ; 3
; -1
rts ; 6