mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
1622 lines
24 KiB
ArmAsm
1622 lines
24 KiB
ArmAsm
; Uses the 40x48d page1/page2 every-1-scanline pageflip mode
|
|
|
|
; self modifying code to get some extra colors (pseudo 40x192 mode)
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
|
|
escape:
|
|
|
|
;==================
|
|
; setup music
|
|
|
|
; we are roughly at the beginning of pattern 0x19
|
|
|
|
; lda #19
|
|
; sta current_pattern_smc+1
|
|
; lda #0
|
|
; sta current_line_smc+1
|
|
|
|
|
|
lda #0
|
|
sta FRAME_PLAY_OFFSET
|
|
sta FRAME_PLAY_PAGE
|
|
sta FRAME_OFFSET
|
|
sta FRAME_PAGE
|
|
jsr update_pt3_play
|
|
|
|
; setup 4 frames
|
|
jsr pt3_write_lc_4
|
|
|
|
; FIXME
|
|
; jsr clear_ay_both
|
|
|
|
;===================
|
|
; init vars
|
|
|
|
lda #0
|
|
sta DRAW_PAGE
|
|
sta ZERO
|
|
sta YADD
|
|
sta LEVEL_DONE
|
|
sta FIRE_X
|
|
sta ASTEROID_SUBX
|
|
sta ASTEROID_EXPLODE
|
|
sta GAME_OVER
|
|
sta FIRE
|
|
sta BLAST1
|
|
sta BLAST2
|
|
sta SPRITE_XPOS
|
|
sta SPRITE_YPOS
|
|
sta FIRE_Y
|
|
sta KEYPTR
|
|
|
|
lda #$44
|
|
sta GREEN0
|
|
sta GREEN4
|
|
lda #$cc
|
|
sta GREEN1
|
|
sta GREEN3
|
|
lda #$ff
|
|
sta GREEN2
|
|
|
|
lda #36
|
|
sta ASTEROID_X
|
|
|
|
lda #12
|
|
sta ASTEROID_Y
|
|
|
|
lda #64
|
|
sta YPOS
|
|
|
|
lda #1
|
|
sta ASTEROID_SPEED
|
|
sta XPOS
|
|
sta KEY_COUNTDOWN
|
|
|
|
;==================
|
|
; setup graphics
|
|
|
|
jsr create_update_type2
|
|
jsr setup_update_type2
|
|
|
|
jsr play_frame_compressed ; catch up some music
|
|
|
|
;==========================================
|
|
; replace bottom with call to music player
|
|
|
|
; after 172 lines*65 = 11180+1237+6=12427 (want 12480) remain 57
|
|
; 172 lines*47=8084 = $9800+b794
|
|
|
|
; add "jsr play_frame_compressed" 6+1237 = 1243 -6 = 1237cycles
|
|
; add "rts" 6 cycles
|
|
; lda #30
|
|
; jsr delay_a 30+25+2=
|
|
|
|
|
|
; take off 6 as code we are skipping has the 6 jsr
|
|
ROOT = $B794
|
|
;ROOT = $200
|
|
|
|
lda #$a9
|
|
sta ROOT+0
|
|
lda #30
|
|
sta ROOT+1
|
|
|
|
lda #$20
|
|
sta ROOT+2
|
|
lda #<delay_a
|
|
sta ROOT+3
|
|
lda #>delay_a
|
|
sta ROOT+4
|
|
|
|
lda #$20
|
|
sta ROOT+5
|
|
lda #<play_frame_compressed
|
|
sta ROOT+6
|
|
lda #>play_frame_compressed
|
|
sta ROOT+7
|
|
|
|
lda #$60
|
|
sta ROOT+8
|
|
|
|
; lda #$4c
|
|
; sta ROOT+8
|
|
; lda #<after_sprites_display
|
|
; sta ROOT+9
|
|
; lda #>after_sprites_display
|
|
; sta ROOT+10
|
|
|
|
;=============================
|
|
; Load graphic page0
|
|
|
|
; lda #<earth_low
|
|
; sta GBASL
|
|
; lda #>earth_low
|
|
; sta GBASH
|
|
|
|
; lda #$c ; load to $c00
|
|
; jsr load_rle_gr
|
|
|
|
|
|
lda #4
|
|
sta DRAW_PAGE
|
|
jsr gr_clear_all
|
|
|
|
; jsr gr_copy_to_current ; copy to page1
|
|
|
|
|
|
|
|
; GR part
|
|
bit PAGE1
|
|
bit LORES ; 4
|
|
bit SET_GR ; 4
|
|
bit FULLGR ; 4
|
|
|
|
;=============================
|
|
; Load graphic page1
|
|
|
|
; lda #<earth_high
|
|
; sta GBASL
|
|
; lda #>earth_high
|
|
; sta GBASH
|
|
; lda #$c ; load to $c00
|
|
; jsr load_rle_gr
|
|
|
|
lda #0
|
|
sta DRAW_PAGE
|
|
jsr gr_clear_all
|
|
|
|
; jsr gr_copy_to_current
|
|
|
|
lda #8
|
|
sta DRAW_PAGE
|
|
jsr gr_clear_all
|
|
|
|
lda #<score_text2
|
|
sta OUTL
|
|
lda #>score_text2
|
|
sta OUTH
|
|
|
|
jsr move_and_print
|
|
|
|
; GR part
|
|
bit PAGE0
|
|
|
|
;==============================
|
|
; setup graphics for vapor lock
|
|
;==============================
|
|
|
|
jsr vapor_lock
|
|
|
|
; vapor lock returns with us at beginning of hsync in line
|
|
; 114 (7410 cycles), so with 5070 lines to go
|
|
|
|
; GR part
|
|
bit LORES ; 4
|
|
bit SET_GR ; 4
|
|
bit FULLGR ; 4
|
|
|
|
jsr gr_copy_to_current ; 6+ 9292
|
|
|
|
; 5070 + 4550 = 9620
|
|
; 9292
|
|
; 12
|
|
; 6
|
|
; ====
|
|
; 310
|
|
|
|
; - 3 for jmp
|
|
; 307
|
|
|
|
; Try X=9 Y=6 cycles=307
|
|
|
|
ldy #6 ; 2
|
|
loopQQ: ldx #9 ; 2
|
|
loopRR: dex ; 2
|
|
bne loopRR ; 2nt/3
|
|
dey ; 2
|
|
bne loopQQ ; 2nt/3
|
|
|
|
jmp sprites_display_loop ; 3
|
|
|
|
.align $100
|
|
|
|
;================================================
|
|
; Display 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
|
|
|
|
; We want to alternate between page1 and page2 every 65 cycles
|
|
; vblank = 4550 cycles to do scrolling
|
|
|
|
|
|
sprites_display_loop:
|
|
|
|
jsr $9800
|
|
;.include "sprites_screen.s"
|
|
|
|
after_sprites_display:
|
|
|
|
;======================================================
|
|
; We have 4550 cycles in the vblank, use them wisely
|
|
;======================================================
|
|
|
|
; 4550 -- VBLANK
|
|
; -12 -- call to graphics code
|
|
;-1835 -- draw ship (131*14)+1
|
|
; -829 -- erase ship (100*8)+(14*2)+1
|
|
; -167 -- erase fire
|
|
; -348 -- erase asteroid
|
|
; -31 -- move ship
|
|
; -17 -- move fire
|
|
; -56 -- collide asteroid/fire
|
|
; -40 -- collide ship
|
|
; -35 -- move asteroid
|
|
; -436 -- draw fire
|
|
; -337 -- draw asteroid
|
|
; -82 -- -61 -- keypress
|
|
; -33 -- handle fire press
|
|
; -51 -- exploding asteroid
|
|
; -47 -- sparkle
|
|
; -36 -- blast (18+18)
|
|
; -25 -- loop
|
|
; -3 -- alignment
|
|
;=======
|
|
; 130 151
|
|
; -46 nop sled
|
|
;===========
|
|
; 84 105
|
|
|
|
;================
|
|
; erase old ship
|
|
|
|
ldy YPOS ; 3 ; 0
|
|
jsr erase_line ; 6+94
|
|
|
|
iny ; 2 ; 1
|
|
jsr erase_line ; 6+94
|
|
|
|
iny ; 2 ; 2
|
|
jsr erase_line ; 6+94
|
|
|
|
iny ; 2 ; 3
|
|
jsr erase_line ; 6+94
|
|
|
|
; note, to be complete should erase all these
|
|
; only an issue if moving up/down really fast
|
|
|
|
iny ; 2 ; 4
|
|
; jsr erase_line ; 6+94
|
|
iny ; 2 ; 5
|
|
; jsr erase_line ; 6+94
|
|
iny ; 2 ; 6
|
|
; jsr erase_line ; 6+94
|
|
iny ; 2 ; 7
|
|
; jsr erase_line ; 6+94
|
|
iny ; 2 ; 8
|
|
; jsr erase_line ; 6+94
|
|
iny ; 2 ; 9
|
|
; jsr erase_line ; 6+94
|
|
iny ; 2 ; 10
|
|
jsr erase_line ; 6+94
|
|
iny ; 2 ; 11
|
|
jsr erase_line ; 6+94
|
|
iny ; 2 ; 12
|
|
jsr erase_line ; 6+94
|
|
iny ; 2 ; 13
|
|
jsr erase_line ; 6+94
|
|
|
|
;==========================
|
|
; erase the fire
|
|
;==========================
|
|
|
|
ldy FIRE_Y ; 3
|
|
iny ; 2
|
|
jsr erase_fire ; 6+71
|
|
iny ; 2
|
|
iny ; 2
|
|
iny ; 2
|
|
iny ; 2
|
|
jsr erase_fire ; 6+71
|
|
;========
|
|
; 167
|
|
|
|
; jsr erase_fire ; 6+71
|
|
; jsr erase_fire ; 6+71
|
|
; jsr erase_fire ; 6+71
|
|
;====
|
|
; 388
|
|
|
|
|
|
|
|
|
|
;=====================
|
|
; erase the asteroid
|
|
|
|
lda #$0 ; 2
|
|
sta DRAW_PAGE ; 3
|
|
|
|
lda #<void_p1 ; 2
|
|
sta INL ; 3
|
|
lda #>void_p1 ; 2
|
|
sta INH ; 3
|
|
lda ASTEROID_X ; 3
|
|
sta SPRITE_XPOS ; 3
|
|
lda ASTEROID_Y ; 3
|
|
sta SPRITE_YPOS ; 3
|
|
jsr put_sprite_fast ; 6+304
|
|
;======
|
|
; 337
|
|
|
|
|
|
;==========================
|
|
; move the asteroid
|
|
;==========================
|
|
; move none: 16 [12+7] = 35
|
|
; move ok: 16+12 [7] = 35
|
|
; move off screen: 16+12+7 = 35
|
|
; game over: who cares
|
|
move_asteroid:
|
|
clc ; 2
|
|
lda ASTEROID_SUBX ; 3
|
|
adc ASTEROID_SPEED ; 3
|
|
sta ASTEROID_SUBX ; 3
|
|
cmp #$12 ; 2
|
|
bcc no_new_asteroid2; 3 blt
|
|
;========
|
|
; 16
|
|
|
|
; -1
|
|
lda #0 ; 2
|
|
sta ASTEROID_SUBX ; 3
|
|
dec ASTEROID_X ; 5
|
|
bne no_new_asteroid ; 3
|
|
;=====
|
|
; 12
|
|
new_asteroid:
|
|
; -1
|
|
lda #7 ; 2
|
|
sta ASTEROID_EXPLODE ; 3
|
|
jmp done_move_asteroid ; 3
|
|
;===========
|
|
; 7
|
|
|
|
no_new_asteroid2:
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
nop ; 2
|
|
|
|
no_new_asteroid:
|
|
nop ; 2
|
|
nop ; 2
|
|
lda TEMP ; 3
|
|
;====
|
|
; 7
|
|
|
|
done_move_asteroid:
|
|
|
|
|
|
|
|
;==========================
|
|
; move the fire
|
|
;==========================
|
|
; no-fire: 6+7 = 13 [4]
|
|
; too-far: 6+4+7 = 17
|
|
; moving: 6+4+7 = 17
|
|
|
|
|
|
lda FIRE_X ; 3
|
|
beq no_fire ; 3
|
|
; -1
|
|
cmp #39 ; 2
|
|
bcs kill_fire ; bge 3
|
|
; -1
|
|
inc FIRE_X ; 5
|
|
jmp done_move_fire ; 3
|
|
no_fire:
|
|
nop
|
|
nop
|
|
kill_fire:
|
|
nop ; 2
|
|
lda #0 ; 2
|
|
sta FIRE_X ; 3
|
|
done_move_fire:
|
|
|
|
|
|
;==========================
|
|
; move the ship
|
|
; in bounds: 14+5 = 19 [12]
|
|
; too small: 14+10 = 24 [7]
|
|
; too big: 14+5+12 = 31
|
|
|
|
clc ; 2
|
|
lda YPOS ; 3
|
|
adc YADD ; 3
|
|
sta YPOS ; 3
|
|
bpl not_minus ; 3
|
|
|
|
minus:
|
|
; -1
|
|
lda #$0 ; 2
|
|
sta YPOS ; 3
|
|
sta YADD ; 3
|
|
jmp done_move_delay_7 ; 3
|
|
not_minus:
|
|
cmp #104 ; 2
|
|
bcc done_move_delay_12 ; blt ; 3
|
|
; -1
|
|
lda #$0 ; 2
|
|
sta YADD ; 3
|
|
lda #103 ; 2
|
|
sta YPOS ; 3
|
|
jmp done_move ; 3
|
|
done_move_delay_12:
|
|
lda TEMP ; 3
|
|
nop ; 2
|
|
done_move_delay_7:
|
|
lda TEMP ; 3
|
|
nop ; 2
|
|
nop ; 2
|
|
|
|
done_move:
|
|
|
|
|
|
nop_sled:
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
|
|
|
|
|
|
;==========================
|
|
; collision (fire/asteroid)
|
|
;==========================
|
|
; none: 13 [20+23]
|
|
; xmatch not y: 13+20 [23]
|
|
; explosion: 13+20+23 = 56
|
|
|
|
sec ; 2
|
|
lda ASTEROID_X ; 3
|
|
sbc FIRE_X ; 3
|
|
cmp #252 ; 2
|
|
bcc no_collide_x ; 3 ; blt
|
|
;===
|
|
; 13
|
|
|
|
; -1
|
|
lda FIRE_Y ; 3
|
|
lsr ; 2
|
|
lsr ; 2
|
|
clc ; 2
|
|
adc #$9 ; 2
|
|
sec ; 2
|
|
sbc ASTEROID_Y ; 3
|
|
cmp #4 ; 2
|
|
bcs no_collide_y ; 3 ; bge
|
|
;===
|
|
; 20
|
|
|
|
; -1
|
|
lda #1 ; 2
|
|
sta ASTEROID_EXPLODE ; 3
|
|
|
|
inc ASTEROID_SPEED ; 5
|
|
|
|
lda #0 ; 2
|
|
sta FIRE_X ; 3
|
|
|
|
inc $41D ; 6
|
|
|
|
jmp collision_done ; 3
|
|
;====
|
|
; 23
|
|
no_collide_x:
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
|
|
no_collide_y:
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
lda TEMP ; 3
|
|
|
|
collision_done:
|
|
|
|
|
|
;==========================
|
|
; collision (ship/asteroid)
|
|
;==========================
|
|
; none: 8 [20+12]
|
|
; xmatch not y: 8+20 [12]
|
|
; explosion: 8+20+12 = 40
|
|
ship_collision:
|
|
|
|
lda ASTEROID_X ; 3
|
|
cmp #$8 ; 2
|
|
bcs no_ship_collide_x ; 3 ; blt
|
|
;===
|
|
; 8
|
|
|
|
; -1
|
|
lda YPOS ; 3
|
|
lsr ; 2
|
|
lsr ; 2
|
|
clc ; 2
|
|
adc #10 ; 2
|
|
sec ; 2
|
|
sbc ASTEROID_Y ; 3
|
|
cmp #6 ; 2
|
|
bcs no_ship_collide_y ; 3 ; bge
|
|
;===
|
|
; 20
|
|
|
|
; -1
|
|
lda #1 ; 2
|
|
sta ASTEROID_EXPLODE ; 3
|
|
|
|
lda #1 ; 2
|
|
sta LEVEL_DONE ; 3
|
|
|
|
lda #1
|
|
sta GAME_OVER
|
|
|
|
jmp ship_collision_done ; 3
|
|
;====
|
|
; 12
|
|
no_ship_collide_x:
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
|
|
no_ship_collide_y:
|
|
lda TEMP ; 3
|
|
lda TEMP ; 3
|
|
lda TEMP ; 3
|
|
lda TEMP ; 3
|
|
|
|
ship_collision_done:
|
|
|
|
|
|
|
|
|
|
;==========================
|
|
; draw the ship
|
|
|
|
ldy YPOS ; 3
|
|
|
|
; line 0
|
|
ldx #0 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 129
|
|
|
|
; line 1
|
|
iny ; 2
|
|
ldx #7 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 2
|
|
iny ; 2
|
|
ldx #14 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 3
|
|
iny ; 2
|
|
ldx #21 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 4
|
|
iny ; 2
|
|
ldx #28 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 5
|
|
iny ; 2
|
|
ldx #35 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 6
|
|
iny ; 2
|
|
ldx #42 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 7
|
|
iny ; 2
|
|
ldx #49 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 8
|
|
iny ; 2
|
|
ldx #56 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 9
|
|
iny ; 2
|
|
ldx #63 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 10
|
|
iny ; 2
|
|
ldx #70 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 11
|
|
iny ; 2
|
|
ldx #77 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 12
|
|
iny ; 2
|
|
ldx #84 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
; line 13
|
|
iny ; 2
|
|
ldx #91 ; 2
|
|
jsr sprite_line ; 6+121
|
|
;====
|
|
; 131
|
|
|
|
|
|
|
|
|
|
;==========================
|
|
; draw the fire
|
|
;==========================
|
|
; 6+(61*7)+3 = 436
|
|
|
|
lda FIRE_X ; 3
|
|
beq no_draw_fire ; 3
|
|
; -1
|
|
ldy FIRE_Y ; 3
|
|
|
|
; line 0
|
|
ldx #0 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 1
|
|
iny ; 2
|
|
ldx #1 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 2
|
|
iny ; 2
|
|
ldx #2 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 3
|
|
iny ; 2
|
|
ldx #3 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 4
|
|
iny ; 2
|
|
ldx #4 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 5
|
|
iny ; 2
|
|
ldx #5 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 6
|
|
iny ; 2
|
|
ldx #5 ; zero again ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
jmp done_draw_fire ; 3
|
|
|
|
no_draw_fire:
|
|
|
|
; want 436, have 6+1+(61*7)=434
|
|
|
|
nop ; 2
|
|
|
|
ldy FIRE_Y ; 3
|
|
|
|
; line 0
|
|
ldx #5 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61+1
|
|
|
|
; line 1
|
|
iny ; 2
|
|
ldx #5 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 2
|
|
iny ; 2
|
|
ldx #5 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 3
|
|
iny ; 2
|
|
ldx #5 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 4
|
|
iny ; 2
|
|
ldx #5 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 5
|
|
iny ; 2
|
|
ldx #5 ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
; line 6
|
|
iny ; 2
|
|
ldx #5 ; zero again ; 2
|
|
jsr fire_line ; 6+51
|
|
;====
|
|
; 61
|
|
|
|
done_draw_fire:
|
|
|
|
|
|
;=====================
|
|
; draw the asteroid
|
|
draw_asteroid:
|
|
lda #$0 ; 2
|
|
sta DRAW_PAGE ; 3
|
|
|
|
lda ASTEROID_EXPLODE ; 3
|
|
and #$fe ; 2
|
|
tax ; 2
|
|
lda asteroid_lookup,X ; 4+
|
|
sta INL ; 3
|
|
lda asteroid_lookup+1,X ; 4+
|
|
sta INH ; 3
|
|
lda ASTEROID_X ; 3
|
|
sta SPRITE_XPOS ; 3
|
|
lda ASTEROID_Y ; 3
|
|
sta SPRITE_YPOS ; 3
|
|
jsr put_sprite_fast ; 6+304
|
|
;======
|
|
; 348
|
|
|
|
|
|
;=================
|
|
; BLAST1
|
|
;=================
|
|
; blast1: 6+7+5 = 18
|
|
; noblast1: 6+5+[7]
|
|
|
|
lda BLAST1 ; 3
|
|
beq no_blast1d ; 3
|
|
blast1:
|
|
; -1
|
|
inc ZERO ; 5
|
|
jmp no_blast1 ; 3
|
|
no_blast1d:
|
|
lda TEMP ; 3
|
|
nop ; 2
|
|
nop ; 2
|
|
|
|
no_blast1:
|
|
lda #0 ; 2
|
|
sta BLAST1 ; 3
|
|
|
|
|
|
;=================
|
|
; BLAST2
|
|
;=================
|
|
; blast2: 6+7+5 = 18
|
|
; noblast1: 6+5+[7]
|
|
|
|
lda BLAST2 ; 3
|
|
beq no_blast2d ; 3
|
|
blast2:
|
|
; -1
|
|
lda #0 ; 2
|
|
sta ZERO ; 3
|
|
jmp no_blast2 ; 3
|
|
no_blast2d:
|
|
lda TEMP
|
|
nop
|
|
nop
|
|
no_blast2:
|
|
lda #0 ; 2
|
|
sta BLAST2 ; 3
|
|
|
|
|
|
|
|
|
|
;==================
|
|
; sparkle flame
|
|
;==================
|
|
; 14+20+13 = 47
|
|
|
|
sparkle_flame:
|
|
inc FRAME ; 5
|
|
lda FRAME ; 3
|
|
and #$7 ; 2
|
|
asl ; 2
|
|
tay ; 2
|
|
|
|
; Set up jump table that runs same speed on 6502 and 65c02
|
|
lda jump_table+1,y ; 4
|
|
pha ; 3
|
|
lda jump_table,y ; 4
|
|
pha ; 3
|
|
rts ; 6
|
|
;=============
|
|
; 20
|
|
jump_table:
|
|
.word (sparkle1-1),(sparkle_motion-1),(sparkle2-1),(sparkle_motion-1)
|
|
.word (sparkle3-1),(sparkle_motion-1),(sparkle4-1),(sparkle_motion-1)
|
|
|
|
sparkle1:
|
|
lda ship_sprite_l9+0 ; 4
|
|
eor #$88 ; 2
|
|
sta ship_sprite_l9+0 ; 4
|
|
jmp done_sparkle ; 3
|
|
|
|
sparkle2:
|
|
lda ship_sprite_l9+1 ; 4
|
|
eor #$88 ; 2
|
|
sta ship_sprite_l9+1 ; 4
|
|
jmp done_sparkle ; 3
|
|
|
|
sparkle3:
|
|
lda ship_sprite_l8+0 ; 4
|
|
eor #$44 ; 2
|
|
sta ship_sprite_l8+0 ; 4
|
|
jmp done_sparkle ; 3
|
|
|
|
sparkle4:
|
|
lda ship_sprite_l10+0 ; 4
|
|
eor #$44 ; 2
|
|
sta ship_sprite_l10+0 ; 4
|
|
jmp done_sparkle ; 3
|
|
|
|
sparkle_motion:
|
|
lda TEMP ; 3
|
|
lda TEMP ; 3
|
|
nop
|
|
nop
|
|
jmp done_sparkle ; 3
|
|
|
|
done_sparkle:
|
|
|
|
|
|
|
|
|
|
pad_time2:
|
|
|
|
|
|
;============================
|
|
; WAIT for VBLANK to finish
|
|
;============================
|
|
|
|
escape_wait_loop:
|
|
|
|
; Try X=15 Y=1 cycles=82R2
|
|
; Try X=4 Y=4 cycles=105
|
|
|
|
nop
|
|
|
|
ldy #1 ; 2
|
|
loopY: ldx #15 ; 2
|
|
loopZ: dex ; 2
|
|
bne loopZ ; 2nt/3
|
|
dey ; 2
|
|
bne loopY ; 2nt/3
|
|
escape_wait_loop_end:
|
|
|
|
;===============
|
|
; check keypress
|
|
|
|
jsr escape_handle_keypress ; 6+55
|
|
|
|
;=================================
|
|
; handle fire
|
|
;=================================
|
|
; FIRE: 6+5+17+5 = 33
|
|
; FIRE but OUT: 6+5+5 = 16 [17]
|
|
; no FIRE: 6+5 = 11 [22]
|
|
; urgh pain to make this invariant
|
|
|
|
lda FIRE ; 3
|
|
beq no_firing2 ; 3
|
|
; -1
|
|
|
|
lda FIRE_X ; 3
|
|
bne no_firing ; 3
|
|
; -1
|
|
|
|
clc ; 2
|
|
lda YPOS ; 3
|
|
adc #10 ; 2
|
|
sta FIRE_Y ; 3
|
|
|
|
lda #7 ; 2
|
|
sta FIRE_X ; 3
|
|
|
|
jmp really_no_firing ; 3
|
|
|
|
no_firing2:
|
|
inc TEMP ; 5
|
|
no_firing:
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
nop ; 2
|
|
|
|
really_no_firing:
|
|
lda #0 ; 2
|
|
sta FIRE ; 3
|
|
|
|
|
|
alignment:
|
|
jmp blah ; 3
|
|
.align $100
|
|
|
|
blah:
|
|
;=================================
|
|
; handle exploding asteroid
|
|
;=================================
|
|
; none: 6 [12+33]
|
|
; exploding: 6+12 [33]
|
|
; done: 6+12+33 = 51
|
|
|
|
lda ASTEROID_EXPLODE ; 3
|
|
beq asteroid_no_explode ; 3
|
|
;==
|
|
; 6
|
|
|
|
; -1
|
|
inc ASTEROID_EXPLODE ; 5
|
|
lda ASTEROID_EXPLODE ; 3
|
|
cmp #9 ; 2
|
|
bne asteroid_not_done ; 3
|
|
;===
|
|
; 12
|
|
asteroid_done:
|
|
; -1
|
|
lda #0 ; 2
|
|
sta ASTEROID_EXPLODE ; 3
|
|
inc RANDOM_PTR ; 5
|
|
ldy RANDOM_PTR ; 3
|
|
lda random_values,Y ; 4
|
|
and #$1e ; 2
|
|
clc ; 2
|
|
adc #$4 ; 2
|
|
sta ASTEROID_Y ; 3
|
|
lda #36 ; 2
|
|
sta ASTEROID_X ; 3
|
|
jmp asteroid_done_done ; 3
|
|
;====
|
|
;33
|
|
asteroid_no_explode:
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
nop ; 2
|
|
asteroid_not_done:
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
inc TEMP ; 5
|
|
lda TEMP ; 3
|
|
asteroid_done_done:
|
|
|
|
|
|
;=========================
|
|
; check for end
|
|
;=========================
|
|
; not done = 6+3 = 9 + [16] = 25
|
|
; done = who cares
|
|
; dying = 6+4+12+3 = 25
|
|
|
|
lda LEVEL_DONE ; 3
|
|
beq final_loop_short ; 3
|
|
|
|
;-1
|
|
cmp #1 ;2
|
|
beq done_level ;3
|
|
|
|
;-1
|
|
dec LEVEL_DONE ; 5
|
|
inc XPOS ; 5
|
|
jmp final_loop ; 3
|
|
;=====
|
|
; 12
|
|
|
|
final_loop_short:
|
|
inc TEMP
|
|
inc TEMP
|
|
lda TEMP
|
|
lda TEMP
|
|
final_loop:
|
|
|
|
jmp sprites_display_loop ; 3
|
|
|
|
done_level:
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.align $100
|
|
;=======================
|
|
; handle keypress
|
|
;=======================
|
|
; separate function so we an align to avoid branches
|
|
; crossing page boundaries
|
|
;
|
|
.if 0
|
|
; OLD
|
|
; NONE = 6+7 = 13 [42]
|
|
; ESC = doesn't matter
|
|
; ' ' = 6+6+9+5+7 = 33 [22] [[20]]
|
|
; '.' = 6+6+9+5+5+7 = 48 [17] [[5]]
|
|
; ',' = 6+6+9+5+5+5+7 = 43 [12] [[5]]
|
|
; 'A' = 6+6+9+5+5+5+7+7 = 50 [5] [[7]]
|
|
; 'Z' = 6+6+9+5+5+5+7+5+7 = 55 [0] [[5]]
|
|
; unkno= 6+6+9+5+5+5+7+5+3+[4] = 55 [0]
|
|
.endif
|
|
|
|
; NEW
|
|
; NONE = 6+11 = 17 [59]
|
|
; ESC = doesn't matter
|
|
; ' ' = 6+11+25+5+7 = 54 [22] [[20]]
|
|
; '.' = 6+11+25+5+5+7 = 69 [17] [[5]]
|
|
; ',' = 6+11+25+5+5+5+7 = 64 [12] [[5]]
|
|
; 'A' = 6+11+25+5+5+5+7+7 = 71 [5] [[7]]
|
|
; 'Z' = 6+11+25+5+5+5+7+5+7 = 76 [0] [[5]]
|
|
; unkno= 6+11+25+5+5+5+7+5+3+[4]= 76 [0]
|
|
|
|
escape_handle_keypress:
|
|
|
|
; read from mem instead of keyboard
|
|
; none 11+
|
|
; yes: 11+20 = 31
|
|
|
|
dec KEY_COUNTDOWN ; 5
|
|
lda KEY_COUNTDOWN ; 3
|
|
bne key_delay_59 ; 3
|
|
;====
|
|
; 11
|
|
|
|
; -1
|
|
ldy KEYPTR ; 3
|
|
lda escape_keys+1,Y ; 4+
|
|
sta KEY_COUNTDOWN ; 3
|
|
lda escape_keys,Y ; 4+
|
|
iny ; 2
|
|
iny ; 2
|
|
sty KEYPTR ; 3
|
|
;====
|
|
; 20
|
|
; 5 (from below) instead of 9
|
|
|
|
|
|
.if 0
|
|
lda KEYPRESS ; 4
|
|
bpl key_delay_42 ; 3
|
|
; -1
|
|
|
|
bit KEYRESET ; clear strobe ; 4
|
|
.endif
|
|
|
|
cmp #27+$80 ; 2
|
|
bne key_not_escape ; 3
|
|
|
|
lda #32
|
|
sta LEVEL_DONE
|
|
|
|
rts
|
|
|
|
key_not_escape:
|
|
|
|
cmp #' '+$80 ; 2
|
|
bne key_not_space ; 3
|
|
; -1
|
|
lda #$ff ; 2
|
|
sta FIRE ; 3
|
|
jmp key_delay_22 ; 3
|
|
|
|
key_not_space:
|
|
cmp #'.'+$80 ; 2
|
|
bne key_not_period ; 3
|
|
; -1
|
|
lda #1 ; 2
|
|
sta BLAST1 ; 3
|
|
jmp key_delay_17 ; 3
|
|
|
|
key_not_period:
|
|
cmp #','+$80 ; 2
|
|
bne key_not_comma ; 3
|
|
; -1
|
|
lda #1 ; 2
|
|
sta BLAST2 ; 3
|
|
jmp key_delay_12 ; 3
|
|
|
|
key_not_comma:
|
|
and #$5f ; make uppercase ; 2
|
|
|
|
cmp #'A' ; 2
|
|
bne key_not_a ; 3
|
|
; -1
|
|
dec YADD ; 5
|
|
jmp key_delay_5 ; 3
|
|
|
|
key_not_a:
|
|
cmp #'Z' ; 2
|
|
bne key_not_z ; 3
|
|
; -1
|
|
inc YADD ; 5
|
|
jmp keypress_done ; 3
|
|
|
|
key_not_z:
|
|
nop ; 2
|
|
nop ; 2
|
|
jmp keypress_done ; 3
|
|
|
|
key_delay_59:
|
|
inc TEMP ; 5
|
|
dec TEMP ; 5
|
|
inc TEMP ; 5
|
|
dec TEMP ; 5
|
|
inc TEMP ; 5
|
|
dec TEMP ; 5
|
|
inc TEMP ; 5
|
|
nop ; 2
|
|
|
|
key_delay_22:
|
|
nop ; 2
|
|
lda TEMP ; 3
|
|
key_delay_17:
|
|
nop ; 2
|
|
lda TEMP ; 3
|
|
key_delay_12:
|
|
nop ; 2
|
|
nop ; 2
|
|
lda TEMP ; 3
|
|
|
|
key_delay_5:
|
|
nop ; 2
|
|
lda TEMP ; 3
|
|
|
|
keypress_done:
|
|
rts ; 6
|
|
|
|
|
|
|
|
;========================
|
|
; Draw a line of a sprite
|
|
;========================
|
|
; Y = y value
|
|
; x = location in sprite
|
|
; 17+11+(7*12)+3+6 = 121
|
|
sprite_line:
|
|
sty TEMPY ; 3
|
|
|
|
lda y_lookup2_l,Y ; 4
|
|
sta OUTL ; 3
|
|
lda y_lookup2_h,Y ; 4
|
|
sta OUTH ; 3
|
|
;=======
|
|
; 17
|
|
|
|
; XPOS
|
|
lda XPOS ; 3
|
|
ldy #0 ; 2
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 11
|
|
; COL0
|
|
ldy #2 ; 2
|
|
lda ship_sprite+0,X ; 4
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 12
|
|
|
|
; COL1
|
|
ldy #7 ; 2
|
|
lda ship_sprite+1,X ; 4
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 12
|
|
|
|
; COL2
|
|
ldy #12 ; 2
|
|
lda ship_sprite+2,X ; 4
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 12
|
|
|
|
; COL3
|
|
ldy #17 ; 2
|
|
lda ship_sprite+3,X ; 4
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 12
|
|
|
|
; COL4
|
|
ldy #22 ; 2
|
|
lda ship_sprite+4,X ; 4
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 12
|
|
|
|
; COL5
|
|
ldy #27 ; 2
|
|
lda ship_sprite+5,X ; 4
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 12
|
|
|
|
; COL6
|
|
ldy #32 ; 2
|
|
lda ship_sprite+6,X ; 4
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 12
|
|
|
|
ldy TEMPY ; 3
|
|
rts ; 6
|
|
|
|
|
|
;========================
|
|
; Erase a line of a sprite
|
|
;========================
|
|
; Y = y value
|
|
; 17+10+2+(7*8)+3+6 = 94
|
|
erase_line:
|
|
sty TEMPY ; 3
|
|
|
|
lda y_lookup2_l,Y ; 4
|
|
sta OUTL ; 3
|
|
lda y_lookup2_h,Y ; 4
|
|
sta OUTH ; 3
|
|
;=======
|
|
; 17
|
|
|
|
; XPOS
|
|
lda #1 ; xpos=1 ; 2
|
|
ldy #0 ; 2
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 10
|
|
|
|
lda #0 ; 2
|
|
|
|
; COL0
|
|
ldy #2 ; 2
|
|
sta (OUTL),Y ; 6
|
|
; COL1
|
|
ldy #7 ; 2
|
|
sta (OUTL),Y ; 6
|
|
; COL2
|
|
ldy #12 ; 2
|
|
sta (OUTL),Y ; 6
|
|
; COL3
|
|
ldy #17 ; 2
|
|
sta (OUTL),Y ; 6
|
|
; COL4
|
|
ldy #22 ; 2
|
|
sta (OUTL),Y ; 6
|
|
; COL5
|
|
ldy #27 ; 2
|
|
sta (OUTL),Y ; 6
|
|
; COL6
|
|
ldy #32 ; 2
|
|
sta (OUTL),Y ; 6
|
|
|
|
ldy TEMPY ; 3
|
|
rts ; 6
|
|
|
|
;========================
|
|
; Draw a line of a fire
|
|
;========================
|
|
; Y = y value
|
|
; x = location in sprite
|
|
; 17+11+14+9 = 51
|
|
fire_line:
|
|
sty TEMPY ; 3
|
|
|
|
lda y_lookup2_l,Y ; 4
|
|
sta OUTL ; 3
|
|
lda y_lookup2_h,Y ; 4
|
|
sta OUTH ; 3
|
|
;=======
|
|
; 17
|
|
|
|
; 38/40
|
|
; XPOS
|
|
lda FIRE_X ; 3
|
|
ldy #37 ; 2
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 11
|
|
; COL0
|
|
ldy #39 ; 2
|
|
txa ; 2
|
|
ora #$C0 ; 2 ; GREEN0 must live at C0
|
|
tax ; 2
|
|
sta (OUTL),Y ; 6
|
|
;=======
|
|
; 14
|
|
|
|
ldy TEMPY ; 3
|
|
rts ; 6
|
|
;=======
|
|
; 9
|
|
|
|
|
|
;========================
|
|
; Erase a line of a fire
|
|
;========================
|
|
; Y = y value
|
|
; 31+29+11 = 71
|
|
erase_fire:
|
|
sty TEMPY ; 3
|
|
|
|
tya ; 2
|
|
lsr ; 2
|
|
lsr ; 2
|
|
and #$fe ; 2
|
|
clc ; 2
|
|
adc #$8 ; 2
|
|
|
|
tay ; 2
|
|
|
|
lda gr_offsets,Y ; 4
|
|
sta OUTL ; 3
|
|
lda gr_offsets+1,Y ; 4
|
|
sta OUTH ; 3
|
|
;=======
|
|
; 31
|
|
|
|
ldy FIRE_X ; 3
|
|
lda #0 ; 2
|
|
sta (OUTL),Y ; 6
|
|
lda #$4 ; 2
|
|
clc ; 2
|
|
adc OUTH ; 3
|
|
sta OUTH ; 3
|
|
lda #0 ; 2
|
|
sta (OUTL),Y ; 6
|
|
;======
|
|
; 29
|
|
|
|
; ldx in smc should already be
|
|
; set to value from last draw?
|
|
|
|
; COL0
|
|
; ldy #6 ; 2
|
|
; lda (OUTL),Y ; 5+
|
|
; sta fz_smc+1 ; 5
|
|
; iny ; 2
|
|
; lda (OUTL),Y ; 5+
|
|
; sta fz_smc+2 ; 5
|
|
; lda #0 ; 2
|
|
;fz_smc:
|
|
; sta $c00,Y ; 5
|
|
;=======
|
|
; 31
|
|
|
|
ldy TEMPY ; 3
|
|
iny ; 2
|
|
rts ; 6
|
|
;=======
|
|
; 11
|
|
|
|
|
|
.align $100
|
|
random_values:
|
|
.incbin "random.data"
|
|
.include "offsets_table2.s"
|
|
.include "text_print.s"
|
|
.align $100
|
|
.include "gr_putsprite_fast.s"
|
|
|
|
;.assert >gr_offsets = >gr_offsets_done, error, "gr_offsets crosses page"
|
|
.assert >escape_wait_loop = >(escape_wait_loop_end-1), error, "escape_wait_loop crosses page"
|
|
|
|
.align $100
|
|
|
|
ship_sprite:
|
|
; l0: 0 1 2 3 4 5 6
|
|
.byte $00,$00,$00,$ff,$00,$00,$00
|
|
; l1:
|
|
.byte $00,$00,$00,$ff,$00,$00,$00
|
|
; l2:
|
|
.byte $00,$00,$00,$ff,$00,$00,$00
|
|
; l3:
|
|
.byte $00,$00,$00,$ff,$00,$00,$00
|
|
; l4:
|
|
.byte $00,$00,$00,$77,$00,$00,$00
|
|
; l5:
|
|
.byte $00,$00,$00,$ff,$ff,$22,$00
|
|
; l6:
|
|
.byte $00,$00,$22,$ff,$ff,$22,$00
|
|
; l7:
|
|
.byte $00,$dd,$66,$11,$22,$22,$00
|
|
; l8:
|
|
ship_sprite_l8:
|
|
.byte $dd,$99,$22,$44,$44,$22,$22
|
|
; l9:
|
|
ship_sprite_l9:
|
|
.byte $99,$11,$66,$ff,$ff,$22,$22
|
|
; l10:
|
|
ship_sprite_l10:
|
|
.byte $dd,$99,$22,$ff,$ff,$22,$22
|
|
; l11:
|
|
.byte $00,$dd,$66,$77,$77,$77,$ff
|
|
; l12:
|
|
.byte $00,$00,$22,$ff,$ff,$77,$ff
|
|
; l13:
|
|
.byte $00,$00,$00,$ff,$ff,$77,$ff
|
|
|
|
|
|
asteroid_inc_before:
|
|
.include "asteroid.inc"
|
|
asteroid_inc_after:
|
|
|
|
.assert >asteroid_inc_before = >asteroid_inc_after, error, "asteroid_inc crosses page"
|
|
|
|
score_before:
|
|
score_text2:
|
|
.byte 0,0
|
|
.asciiz "LEVEL:3 LIVES:1 SCORE:000000 HI:001978"
|
|
score_after:
|
|
|
|
.assert >score_before = >score_after, error, "score crosses page"
|
|
|
|
;.align $100
|
|
|
|
escape_keys_before:
|
|
escape_keys:
|
|
.byte 'A',5 ; up
|
|
.byte 'A',20 ; faster
|
|
.byte 'Z',5 ; slower
|
|
.byte 'Z',5 ; stop
|
|
.byte ' '+$80,20 ; shoot first asteroid
|
|
.byte 'Z',5 ; down
|
|
.byte 'Z',5 ; faster
|
|
.byte 'A',5 ; slower
|
|
.byte 'A',20 ; stop
|
|
.byte ' '+$80,20 ; shoot second asteroid
|
|
.byte 'Z',30 ; down
|
|
.byte '.'+$80,10 ; color1
|
|
.byte 'A',5 ; up
|
|
.byte 'A',30 ; up
|
|
.byte '.'+$80,20 ; color2
|
|
.byte 'Z',25 ; down
|
|
.byte 'Z',25 ; faster
|
|
.byte 'A',25 ; slower
|
|
.byte 'A',25 ; stop
|
|
.byte 'Z',5 ; down
|
|
.byte 'Z',10 ; faster
|
|
.byte ','+$80,30
|
|
.byte 'Z',40 ; faster
|
|
.byte 'A',25 ; slower
|
|
.byte 'A',25 ; stop
|
|
|
|
|
|
|
|
|
|
.byte 'A',5 ; down
|
|
.byte 'A',10 ; faster
|
|
.byte 'A',40 ; faster
|
|
.byte 'Z',25 ; slower
|
|
.byte 'Z',25 ; stop
|
|
.byte ' '+$80,30 ; shoot
|
|
.byte 'A',5 ; down
|
|
.byte 'A',10 ; faster
|
|
.byte 'A',40 ; faster
|
|
|
|
.byte 27+$80,2
|
|
|
|
.if 0
|
|
.byte 'Z',25 ; slower
|
|
.byte 'Z',25 ; stop
|
|
.byte 'Z',25 ; slower
|
|
.byte 'Z',45 ; stop
|
|
.byte 'A',5 ; down
|
|
.byte ' '+$80,30 ; shoot
|
|
.byte 'A',10 ; faster
|
|
.byte 'A',40 ; faster
|
|
.byte ','+$80,50
|
|
.byte 'Z',25 ; slower
|
|
.byte 'Z',25 ; stop
|
|
.byte 'Z',40 ; slower
|
|
.byte 'A',25 ; down
|
|
.byte 'A',10 ; faster
|
|
.byte 'A',25 ; faster
|
|
.byte 'Z',25 ; faster
|
|
.byte ' '+$80,30
|
|
.byte 27+$80,2
|
|
.endif
|
|
|
|
escape_keys_after:
|
|
|
|
.assert >escape_keys_before = >escape_keys_after, error, "keys crosses page"
|