mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2024-11-23 06:32:11 +00:00
4303 lines
74 KiB
ArmAsm
4303 lines
74 KiB
ArmAsm
|
|
; From: http://www.deater.net/weave/vmwprod/tb1/tb_6502.html
|
|
|
|
.segment "INIT"
|
|
.segment "ONCE"
|
|
; don't use $800-$1fff :(
|
|
.segment "STARTUP"
|
|
jmp Start
|
|
; use $4000- :)
|
|
.segment "CODE"
|
|
|
|
.define EQU =
|
|
|
|
; blt = bcc
|
|
; bge = bcs
|
|
|
|
;; ZERO PAGE
|
|
CH EQU $24
|
|
CV EQU $25
|
|
BASL EQU $28
|
|
BASH EQU $29
|
|
H2 EQU $2C
|
|
COLOR EQU $30
|
|
YSAV EQU $34
|
|
YSAV1 EQU $35
|
|
RANDOM_SEED EQU $43
|
|
|
|
;; Our Zero Page Allocations
|
|
|
|
PADDLE_STATUS EQU $CA
|
|
HISCORE_1 EQU $CB
|
|
HISCORE_2 EQU $CC
|
|
HISCORE_3 EQU $CD
|
|
HISCORE_H EQU $CE
|
|
HISCORE_L EQU $CF
|
|
|
|
BOSS_X EQU $D0
|
|
BOSS_XADD EQU $D1
|
|
BOSS_COUNT EQU $D2
|
|
BOSS_SMOKE EQU $D3
|
|
BOSS_EXPLODING EQU $D4
|
|
BOSS_WAITING EQU $D5
|
|
BOSS_HITS EQU $D6
|
|
BOSS_SHOOTING EQU $D7
|
|
|
|
ENEMIES_SPAWNED EQU $D8
|
|
ENEMY_TYPE EQU $D9
|
|
ENEMY_WAVE EQU $DA
|
|
CURRENT_INIT_X EQU $DB
|
|
CURRENT_ENEMY_KIND EQU $DC
|
|
TOTAL_ENEMIES_OUT EQU $DD
|
|
SCROLL EQU $DE
|
|
SOUND_ON EQU $DF
|
|
|
|
SHIPX EQU $E0
|
|
SHIPXADD EQU $E1
|
|
ENEMY_PL EQU $E2
|
|
ENEMY_PH EQU $E3
|
|
MISSILE_PL EQU $E4
|
|
MISSILE_PH EQU $E5
|
|
GR_PAGE EQU $E6
|
|
LEVEL EQU $E7
|
|
SHIELDS EQU $E8
|
|
SCOREL EQU $E9
|
|
SCOREH EQU $EA
|
|
BONUS_FLAGS EQU $EB
|
|
|
|
BCD_BYTEH EQU $EC
|
|
BCD_BYTE EQU $ED
|
|
|
|
COL_X1 EQU $EC
|
|
COL_X2 EQU $ED
|
|
COL_X3 EQU $EE
|
|
COL_X4 EQU $EF
|
|
|
|
ENEMY_EXPLODING EQU $F0
|
|
ENEMY_KIND EQU $F1
|
|
ENEMY_X EQU $F2
|
|
ENEMY_Y EQU $F3
|
|
ENEMY_XADD EQU $F4
|
|
ENEMY_YADD EQU $F5
|
|
ENEMY_XMIN EQU $F6
|
|
ENEMY_XMAX EQU $F7
|
|
|
|
BETWEEN_DELAY EQU $F8
|
|
ENEMY_WAIT EQU $F9
|
|
|
|
STRINGL EQU $FA
|
|
STRINGH EQU $FB
|
|
PARAM2 EQU $FC
|
|
RESULT EQU $FD
|
|
LASTKEY EQU $FE
|
|
TEMP EQU $FF
|
|
|
|
;; VECTORS
|
|
BASIC EQU $3D0 ;; VECTOR for return to Applesoft
|
|
|
|
KEYPRESS EQU $C000
|
|
KEYRESET EQU $C010
|
|
|
|
SPEAKER EQU $C030
|
|
|
|
;; SOFT SWITCHES
|
|
GR EQU $C050
|
|
TEXT EQU $C051
|
|
FULLGR EQU $C052
|
|
TEXTGR EQU $C053
|
|
PAGE0 EQU $C054
|
|
PAGE1 EQU $C055
|
|
LORES EQU $C056
|
|
HIRES EQU $C057
|
|
|
|
PADDLE_BUTTON0 EQU $C061
|
|
PADDL0 EQU $C064
|
|
PTRIG EQU $C070
|
|
|
|
;; MONITOR ROUTINES
|
|
HLINE EQU $F819 ;; HLINE Y,$2C at A
|
|
VLINE EQU $F828 ;; VLINE A,$2D at Y
|
|
CLRSCR EQU $F832 ;; Clear low-res screen
|
|
CLRTOP EQU $F836 ;; clear only top of low-res screen
|
|
SETCOL EQU $F864 ;; COLOR=A
|
|
BASCALC EQU $FBC1 ;;
|
|
HOME EQU $FC58 ;; Clear the text screen
|
|
WAIT EQU $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
|
SETINV EQU $FE80 ;; INVERSE
|
|
SETNORM EQU $FE84 ;; NORMAL
|
|
COUT1 EQU $FDF0 ;; output A to screen
|
|
|
|
|
|
;; GAME PARAMETERS
|
|
NUM_MISSILES EQU 2
|
|
NUM_ENEMIES EQU 6
|
|
UP_SHIELDS EQU 32
|
|
WAVE_SIZE EQU 16
|
|
WAVES_TILL_BOSS EQU 5
|
|
|
|
;; BONUS_FLAGS
|
|
PERFECT_SHIELDS EQU $80
|
|
PERFECT_KILLS EQU $40
|
|
PERFECT_AIM EQU $1
|
|
|
|
|
|
;==========================================================
|
|
; MAIN()
|
|
;==========================================================
|
|
|
|
|
|
;==============================
|
|
; back up part of the zero page
|
|
;==============================
|
|
Start:
|
|
lda #>zero_page_save
|
|
sta BASH
|
|
lda #<zero_page_save
|
|
sta BASL
|
|
|
|
ldy #0
|
|
save_zp_loop:
|
|
lda $C8,Y ; copy $C8-$FF
|
|
sta (BASL),Y ; to (zero_page_save)
|
|
iny
|
|
cpy #$38 ; we copy 56 bytes
|
|
bne save_zp_loop
|
|
|
|
lda #$ff
|
|
sta SOUND_ON
|
|
|
|
|
|
;==========================
|
|
; set graphics mode, page 0
|
|
;==========================
|
|
jsr HOME
|
|
jsr set_page0_gr
|
|
|
|
;=================
|
|
; clear the screen
|
|
;=================
|
|
jsr CLRTOP
|
|
|
|
;====================
|
|
; setup the high score
|
|
;=====================
|
|
|
|
lda #$01
|
|
sta HISCORE_H
|
|
lda #$00
|
|
sta HISCORE_L
|
|
sta PADDLE_STATUS
|
|
|
|
; modestly make me the high scorer
|
|
lda #$D6
|
|
sta HISCORE_1
|
|
lda #$CD
|
|
sta HISCORE_2
|
|
lda #$D7
|
|
sta HISCORE_3
|
|
|
|
lda #>(score_string+31)
|
|
sta STRINGH
|
|
lda #<(score_string+31)
|
|
sta STRINGL
|
|
jsr print_high_score
|
|
|
|
;=============
|
|
; put vmw logo
|
|
;=============
|
|
|
|
lda #$7 ; y=7
|
|
sta CV
|
|
lda #$8 ; x=8
|
|
sta CH
|
|
lda #>vmw_sprite
|
|
sta STRINGH
|
|
lda #<vmw_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the vmw sprite
|
|
|
|
;==================================
|
|
; Write "A VMW SOFTWARE PRODUCTION"
|
|
;==================================
|
|
|
|
lda #>vmw_string ; string = vmw_string
|
|
sta STRINGH
|
|
lda #<vmw_string
|
|
sta STRINGL
|
|
jsr print_text_xy ; print the string
|
|
|
|
;======================
|
|
; wait until keypressed
|
|
;======================
|
|
jsr wait_until_keypressed
|
|
|
|
|
|
|
|
;======================
|
|
; Opening Graphic
|
|
;======================
|
|
opener:
|
|
|
|
;=================
|
|
; clear the screen
|
|
;=================
|
|
jsr set_page0_gr
|
|
|
|
jsr HOME ; clear the screen
|
|
jsr CLRTOP
|
|
|
|
;=======================
|
|
; put opening graphic up
|
|
;=======================
|
|
lda #$0 ; y=0
|
|
sta CV
|
|
sta CH
|
|
lda #>opener_sprite
|
|
sta STRINGH
|
|
lda #<opener_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the opener sprite
|
|
|
|
lda #$A ; y=10 (we had to split in two)
|
|
sta CV
|
|
lda #>opener_sprite_2
|
|
sta STRINGH
|
|
lda #<opener_sprite_2
|
|
sta STRINGL
|
|
jsr blit ; blit the second half of sprite
|
|
|
|
|
|
;================================================
|
|
; Write "MERCILESS MALICIOUS MARAUDING MARKETERS"
|
|
;================================================
|
|
|
|
lda #>mercy_string ; string = MMMM
|
|
sta STRINGH
|
|
lda #<mercy_string
|
|
sta STRINGL
|
|
jsr print_text_xy ; print the string
|
|
|
|
jsr wait_until_keypressed ; wait until key pressed
|
|
|
|
|
|
;==========================================================
|
|
; The MAIN MENU
|
|
;==========================================================
|
|
|
|
main_menu:
|
|
jsr set_page0_text ; enter text mode
|
|
jsr HOME ; clear screen
|
|
|
|
lda #>help_string ; string = "H FOR HELP"
|
|
sta STRINGH
|
|
lda #<help_string
|
|
sta STRINGL
|
|
jsr print_text_xy ; print the string
|
|
|
|
lda #$5
|
|
sta PARAM2
|
|
|
|
|
|
jsr do_menu ; do the menu
|
|
|
|
lda RESULT ; load menu item from page0
|
|
|
|
cmp #$0 ; is it zero?
|
|
bne check_1 ; if not move ahead
|
|
jmp do_new_game ; yes, start new game
|
|
|
|
check_1:
|
|
cmp #$1 ; is it one?
|
|
bne check_2 ; if not, move ahead
|
|
jmp do_about ; else, show about into
|
|
|
|
check_2:
|
|
cmp #$2 ; is it two?
|
|
bne check_3 ; if not, move ahead
|
|
jmp do_story ; else, do the story info
|
|
|
|
check_3:
|
|
cmp #$3 ; is it three?
|
|
bne check_4 ; if not, move ahead
|
|
jmp do_hi_score ; else, show hi-score
|
|
|
|
check_4:
|
|
cmp #$4 ; is it four?
|
|
bne check_5 ; if not move ahead
|
|
jmp exit ; if so exit
|
|
|
|
check_5:
|
|
jsr do_help
|
|
|
|
jmp main_menu ; return to main_menu loop
|
|
|
|
|
|
;==========================================================
|
|
; EXIT back to BASIC
|
|
;==========================================================
|
|
|
|
exit:
|
|
jsr SETNORM ; NORMAL text
|
|
jsr set_page0_text
|
|
|
|
;======================
|
|
; restore the zero page
|
|
;======================
|
|
|
|
lda #>zero_page_save
|
|
sta BASH
|
|
lda #<zero_page_save
|
|
sta BASL
|
|
|
|
ldy #0
|
|
restore_zp_loop:
|
|
lda (BASL),Y ; copy (zero_page_save)
|
|
sta $C8,Y ; back to $C8-$FF
|
|
iny
|
|
cpy #$38 ; we copy 56 bytes
|
|
bne restore_zp_loop
|
|
|
|
jsr HOME ; clear screen
|
|
jmp (BASIC) ; return to BASIC
|
|
|
|
|
|
|
|
;==========================================================
|
|
; do_menu
|
|
;==========================================================
|
|
; draw a text-mode menu
|
|
|
|
do_menu:
|
|
lda #$0 ; start with menu=0
|
|
sta RESULT
|
|
|
|
menu:
|
|
lda #$8 ; y=8
|
|
sta CV
|
|
|
|
|
|
lda #>new_game_string ; string starts at "NEW GAME"
|
|
sta STRINGH
|
|
lda #<new_game_string
|
|
sta STRINGL
|
|
|
|
|
|
ldy #$0 ; clear string offset pointer
|
|
|
|
ldx #$0 ; clear line count
|
|
|
|
next_line:
|
|
lda #$8D ; carriage return
|
|
jsr COUT1
|
|
|
|
lda #$10 ; x=16
|
|
sta CH
|
|
|
|
sty TEMP ; save Y as NORM/INV changes it
|
|
|
|
jsr SETNORM ; set text style to normal
|
|
|
|
cpx RESULT ; are we at the selected entry?
|
|
bne menu_restore_y ; if not, move on
|
|
|
|
jsr SETINV ; if so, reverse text
|
|
|
|
menu_restore_y:
|
|
ldy TEMP ; restore Y we saved earlier
|
|
|
|
menu_char:
|
|
|
|
|
|
lda (STRINGL),Y ; get char from strings
|
|
beq done_line ; if 0, done this line
|
|
jsr COUT1 ; monitor char output line
|
|
iny ; indexY ++
|
|
jmp menu_char ; loop till done line
|
|
|
|
done_line:
|
|
inx ; move to next line
|
|
iny ; pointer after null
|
|
cpx PARAM2 ; are we past end of menu?
|
|
bne next_line ; if not, print next line
|
|
|
|
menu_wait:
|
|
jsr wait_until_keypressed
|
|
|
|
lda LASTKEY
|
|
|
|
cmp #('Q')
|
|
bne check_h
|
|
lda #$4
|
|
sta RESULT
|
|
rts
|
|
|
|
check_h:
|
|
cmp #('H')
|
|
bne check_i
|
|
lda #$5 ; if help, set RESULT=5
|
|
sta RESULT
|
|
rts
|
|
|
|
check_i:
|
|
cmp #('I')
|
|
bne check_m
|
|
dec RESULT
|
|
jmp check_menu_values
|
|
|
|
check_m:
|
|
cmp #('M')
|
|
|
|
bne check_cr
|
|
|
|
inc RESULT
|
|
jmp check_menu_values
|
|
check_cr:
|
|
cmp #(13)
|
|
bne menu_wait
|
|
rts
|
|
|
|
|
|
|
|
check_menu_values:
|
|
|
|
lda RESULT
|
|
bpl check_menu_over
|
|
lda PARAM2
|
|
sbc #$1
|
|
sta RESULT
|
|
|
|
check_menu_over:
|
|
cmp PARAM2
|
|
bne menu
|
|
lda #$0
|
|
sta RESULT
|
|
|
|
jmp menu
|
|
|
|
|
|
|
|
|
|
|
|
;==========================================================
|
|
; do_about
|
|
;==========================================================
|
|
; print the "about" info
|
|
|
|
do_about:
|
|
bit GR
|
|
jsr CLRTOP
|
|
|
|
lda #$0 ; x,y= 12,0
|
|
sta CV
|
|
lda #$C
|
|
sta CH
|
|
|
|
lda #>vince_sprite
|
|
sta STRINGH
|
|
lda #<vince_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the pic of vince
|
|
|
|
lda #>about_lines
|
|
sta STRINGH
|
|
lda #<about_lines
|
|
sta STRINGL
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
lda #$6 ; only want to clear bottom 3 lines
|
|
sta BASH ; so set pointer to $6D0
|
|
lda #$D0
|
|
sta BASL
|
|
ldx #$01 ; set X already to 1
|
|
jsr bottom_y ; and jump midway into clear_bottom
|
|
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
jmp opener
|
|
|
|
;==========================================================
|
|
; do_help
|
|
;==========================================================
|
|
; print the "help" info
|
|
|
|
do_help:
|
|
jsr set_page0_text
|
|
jsr HOME
|
|
|
|
lda #>help_lines
|
|
sta STRINGH
|
|
lda #<help_lines
|
|
sta STRINGL
|
|
|
|
ldx #$14
|
|
jsr print_x_strings ; print text
|
|
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
rts
|
|
|
|
|
|
|
|
;==========================================================
|
|
; do_story
|
|
;==========================================================
|
|
; the story routine
|
|
|
|
do_story:
|
|
bit GR
|
|
jsr CLRTOP
|
|
|
|
;
|
|
; draw the mars map
|
|
;
|
|
|
|
|
|
lda #$0 ; y=0
|
|
sta CV
|
|
sta CH
|
|
lda #>phobos_sprite
|
|
sta STRINGH
|
|
lda #<phobos_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the phobos sprite
|
|
|
|
|
|
lda #>story_lines
|
|
sta STRINGH
|
|
lda #<story_lines
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
|
|
;
|
|
; animate the droid launch
|
|
;
|
|
|
|
jsr clear_bottom
|
|
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
|
|
lda #$12 ; x=18
|
|
sta CH
|
|
lda #$7
|
|
sta CV ; y=7
|
|
|
|
phobos_loop:
|
|
|
|
lda #>evil_ship_sprite
|
|
sta STRINGH
|
|
lda #<evil_ship_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the droid sprite
|
|
|
|
; delay
|
|
; wait 1/2 (26+27A+5A^2) us
|
|
|
|
lda #$8B ; 107 = 30080us = 30ms
|
|
jsr WAIT
|
|
|
|
lda #$0 ; set color to zero
|
|
jsr SETCOL
|
|
|
|
; HLINE H1,H2 at V1
|
|
lda CH ; get x value
|
|
tay ; move it to H1
|
|
adc #$3 ; add 3
|
|
sta H2 ; move it to H2
|
|
lda #$e ; set V1
|
|
jsr HLINE
|
|
|
|
ldy CH ; reset H1
|
|
lda #$f ; set V1 to bottom value
|
|
jsr HLINE
|
|
|
|
; move ship
|
|
|
|
inc CH ; incrememnt X
|
|
lda CH
|
|
cmp #$25 ; have we reached 37? (edge)
|
|
bne phobos_loop
|
|
|
|
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
;
|
|
; "you are tom..."
|
|
;
|
|
|
|
jsr clear_bottom
|
|
jsr CLRTOP
|
|
|
|
lda #$1 ; y=0
|
|
sta CV
|
|
lda #$C ; x=12
|
|
sta CH
|
|
lda #>tom_sprite
|
|
sta STRINGH
|
|
lda #<tom_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the tom sprite
|
|
|
|
lda #>you_are_tom
|
|
sta STRINGH
|
|
lda #<you_are_tom
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
jmp opener
|
|
|
|
|
|
;==========================================================
|
|
; do_ending
|
|
;==========================================================
|
|
; the ending you get after level 1
|
|
|
|
do_ending:
|
|
jsr set_page0_gr ; set graphics mode
|
|
jsr CLRTOP
|
|
jsr clear_bottom
|
|
|
|
;
|
|
; draw the earth
|
|
;
|
|
|
|
lda #$7 ; y=7
|
|
sta CV
|
|
lda #$F ; x=15
|
|
sta CH
|
|
lda #>earth_sprite
|
|
sta STRINGH
|
|
lda #<earth_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the earth sprite
|
|
|
|
|
|
lda #>ending_lines
|
|
sta STRINGH
|
|
lda #<ending_lines
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
|
|
ldx #30
|
|
jsr wait_X_100msec ; pause for 3 seconds
|
|
bit KEYRESET ; clear keyboard
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
|
|
;
|
|
; second page
|
|
;
|
|
|
|
|
|
|
|
|
|
jsr clear_bottom
|
|
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
jsr print_text_xy ; print text
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
;
|
|
; third page
|
|
;
|
|
|
|
jsr CLRTOP
|
|
jsr clear_bottom
|
|
|
|
;
|
|
; draw Susie
|
|
;
|
|
|
|
lda #$7 ; y=7
|
|
sta CV
|
|
lda #$A ; x=10
|
|
sta CH
|
|
lda #>susie_sprite
|
|
sta STRINGH
|
|
lda #<susie_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the susie sprite
|
|
|
|
|
|
lda #>susie_lines
|
|
sta STRINGH
|
|
lda #<susie_lines
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
jsr wait_until_keypressed
|
|
|
|
;
|
|
; fourth page
|
|
;
|
|
|
|
jsr CLRTOP
|
|
jsr clear_bottom
|
|
|
|
;
|
|
; draw Tom's head
|
|
;
|
|
|
|
lda #$7 ; y=7
|
|
sta CV
|
|
lda #$F ; x=15
|
|
sta CH
|
|
lda #>tom_head_sprite
|
|
sta STRINGH
|
|
lda #<tom_head_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit Tom's head
|
|
|
|
|
|
lda #>tom_sigh
|
|
sta STRINGH
|
|
lda #<tom_sigh
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
jsr wait_until_keypressed
|
|
|
|
jmp no_ending
|
|
|
|
|
|
;==========================================================
|
|
; START NEW GAME
|
|
;==========================================================
|
|
|
|
|
|
do_new_game:
|
|
|
|
|
|
;; set up struct pointers
|
|
|
|
lda #>missile_0 ; clear the missile struct
|
|
sta MISSILE_PH ; should make this clear all BSS
|
|
lda #<missile_0 ; at some point
|
|
sta MISSILE_PL
|
|
|
|
lda #>enemy_0
|
|
sta ENEMY_PH
|
|
lda #<enemy_0
|
|
sta ENEMY_PL
|
|
|
|
;; Clear BSS
|
|
|
|
ldy #$0
|
|
lda #$0
|
|
clear_bss:
|
|
sta start_bss,Y
|
|
iny
|
|
cpy #end_bss-start_bss
|
|
bne clear_bss
|
|
|
|
;; Init one-time vars
|
|
|
|
lda #$8
|
|
sta SHIELDS ; shields start at 8
|
|
jsr update_shields
|
|
|
|
lda #$12
|
|
sta SHIPX ; shipx at start is 18
|
|
|
|
lda #$1
|
|
sta LEVEL ; start at level 1
|
|
|
|
lda #$0
|
|
sta SCOREL
|
|
sta SCOREH
|
|
jsr print_score
|
|
|
|
new_level:
|
|
|
|
;========================
|
|
; Setup various variables
|
|
;========================
|
|
|
|
|
|
|
|
lda #(PERFECT_AIM|PERFECT_SHIELDS|PERFECT_KILLS)
|
|
sta BONUS_FLAGS ; set perfect shot/shield/enemies
|
|
|
|
lda #$14
|
|
sta ENEMY_WAIT
|
|
|
|
lda #$0
|
|
sta BETWEEN_DELAY
|
|
sta SHIPXADD ; clear shipxadd
|
|
sta ENEMY_WAVE
|
|
sta TOTAL_ENEMIES_OUT
|
|
sta ENEMIES_SPAWNED
|
|
sta ENEMY_TYPE
|
|
|
|
;=======================
|
|
; Print "LEVEL X"
|
|
;=======================
|
|
|
|
jsr set_page0_text
|
|
jsr HOME
|
|
|
|
;===================
|
|
; set level to level
|
|
;===================
|
|
|
|
lda #>(level_string+9)
|
|
sta STRINGH
|
|
lda #<(level_string+9)
|
|
sta STRINGL
|
|
|
|
lda #0
|
|
sta BCD_BYTEH
|
|
lda LEVEL
|
|
sta BCD_BYTE
|
|
jsr print_bcd_byte
|
|
|
|
|
|
;======================
|
|
; Print level on screen
|
|
;======================
|
|
|
|
lda #>(level_string_xy)
|
|
sta STRINGH
|
|
lda #<(level_string_xy)
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy
|
|
|
|
ldx #20
|
|
jsr wait_X_100msec ; pause for 3 seconds
|
|
bit KEYRESET ; clear keyboard
|
|
|
|
;==================================
|
|
; Enter graphics mode, clear screen
|
|
;==================================
|
|
|
|
jsr set_page0_gr ; set graphics mode
|
|
jsr clear_screen ; clear screen
|
|
|
|
|
|
draw_stars:
|
|
|
|
;=====================
|
|
; Setup star field
|
|
;=====================
|
|
|
|
lda #>(star_field)
|
|
sta STRINGH
|
|
lda #<(star_field)
|
|
sta STRINGL
|
|
|
|
ldy #$0
|
|
star_init:
|
|
jsr random_number
|
|
and #$9f
|
|
clc
|
|
adc #$4
|
|
sta (STRINGL),Y
|
|
iny
|
|
lda #$0
|
|
sta (STRINGL),Y
|
|
iny
|
|
bne star_init
|
|
|
|
lda #$0
|
|
sta SCROLL
|
|
|
|
|
|
;/========================\
|
|
;+ +
|
|
;+ MAIN GAME LOOP +
|
|
;+ +
|
|
;\========================/
|
|
|
|
main_game_loop:
|
|
jsr clear_screen ; clear screen
|
|
jsr show_stars
|
|
|
|
|
|
|
|
|
|
|
|
done_scrolling:
|
|
|
|
; ================================
|
|
; put out new enemies (if needed)
|
|
; ================================
|
|
|
|
inc BETWEEN_DELAY ; inc how long we've delayed
|
|
lda BETWEEN_DELAY ; load it in
|
|
cmp ENEMY_WAIT ; have we waited long enough?
|
|
beq reset_delay
|
|
|
|
jmp move_enemies ; if not, go on to movement
|
|
reset_delay:
|
|
|
|
; delay==wait, so attempt to put out new enemy
|
|
|
|
lda BETWEEN_DELAY
|
|
and #$1
|
|
sta BETWEEN_DELAY ; reset delay
|
|
|
|
; special case for boss
|
|
|
|
lda #$9 ; if boss, don't keep track of
|
|
cmp ENEMY_TYPE ; how many enemies were spawned
|
|
bne not_boss_dont_clear
|
|
|
|
lda #$1 ; store 1 so we don't increment wave
|
|
sta ENEMIES_SPAWNED
|
|
|
|
not_boss_dont_clear:
|
|
|
|
; see if we are at a new wave
|
|
; basically, if 16 have been spawned, change
|
|
|
|
lda ENEMIES_SPAWNED
|
|
and #$0f
|
|
bne same_enemy_type ; if not 16 gone by, move on
|
|
|
|
;=======================
|
|
; change the enemy type
|
|
|
|
inc ENEMIES_SPAWNED
|
|
|
|
jsr random_number
|
|
and #$7 ; get a random number 0-7
|
|
sta ENEMY_TYPE
|
|
|
|
inc ENEMY_WAVE
|
|
|
|
lda ENEMY_WAVE ; have we gone enough waves to reach boss?
|
|
cmp #WAVES_TILL_BOSS
|
|
bne not_boss_yet
|
|
|
|
lda #$8
|
|
sta ENEMY_TYPE
|
|
|
|
|
|
|
|
not_boss_yet:
|
|
|
|
; set various constants
|
|
; these may be overriden later
|
|
|
|
|
|
lda #20
|
|
sec
|
|
sbc LEVEL
|
|
sta ENEMY_WAIT ; enemy_wait=20-level
|
|
|
|
; set kind and init x to be random by default
|
|
|
|
lda #$ff
|
|
sta CURRENT_ENEMY_KIND
|
|
sta CURRENT_INIT_X
|
|
|
|
|
|
|
|
same_enemy_type:
|
|
|
|
; find empty enemy slot
|
|
|
|
ldy #$0 ; point to enemies[0]
|
|
tya
|
|
|
|
find_empty_enemy:
|
|
pha
|
|
lda (ENEMY_PL),Y ; get enemy[y].out
|
|
beq add_enemy
|
|
|
|
pla
|
|
clc
|
|
adc #$9
|
|
tay
|
|
cpy #(NUM_ENEMIES*9)
|
|
bne find_empty_enemy
|
|
|
|
|
|
jmp move_enemies ; no empty, slots, move on
|
|
|
|
|
|
add_enemy:
|
|
pla
|
|
|
|
;==============================================
|
|
; First see if we must wait for enemy to clear
|
|
; types 2 and 8
|
|
|
|
lda ENEMY_TYPE
|
|
cmp #$2
|
|
|
|
bne check_type_8
|
|
|
|
lda TOTAL_ENEMIES_OUT
|
|
beq change_to_type_3
|
|
jmp move_enemies
|
|
change_to_type_3:
|
|
lda #$3
|
|
sta ENEMY_TYPE
|
|
|
|
jsr random_number
|
|
and #$8
|
|
sta CURRENT_ENEMY_KIND
|
|
|
|
jsr random_number
|
|
and #$1F ; mask off so 0-31
|
|
clc
|
|
adc #$2
|
|
asl A
|
|
sta CURRENT_INIT_X
|
|
jmp setup_enemy_defaults
|
|
|
|
check_type_8:
|
|
|
|
cmp #$8
|
|
beq before_boss_stuff
|
|
jmp check_type_9
|
|
|
|
before_boss_stuff:
|
|
|
|
;======================
|
|
; before boss stuff
|
|
|
|
lda TOTAL_ENEMIES_OUT
|
|
beq prepare_for_boss
|
|
jmp move_enemies
|
|
|
|
prepare_for_boss:
|
|
|
|
;===============
|
|
; HANDLE BONUSES
|
|
;===============
|
|
|
|
; Set text mode
|
|
|
|
jsr set_page0_text
|
|
jsr HOME
|
|
|
|
; Print "BONUS POINTS"
|
|
|
|
lda #>bonus_string
|
|
sta STRINGH
|
|
lda #<bonus_string
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
|
|
; Check to see if we had any bonuses
|
|
|
|
lda #$C1
|
|
bit BONUS_FLAGS
|
|
beq no_bonus
|
|
|
|
|
|
; Check if we had no hits on shields
|
|
|
|
perfect_shields:
|
|
bpl perfect_kills
|
|
|
|
jsr score_plus_50
|
|
|
|
lda #>bonus_shields
|
|
sta STRINGH
|
|
lda #<bonus_shields
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
|
|
|
|
; See if we killed all the enemies
|
|
|
|
perfect_kills:
|
|
bit BONUS_FLAGS
|
|
bvc perfect_aim
|
|
|
|
jsr score_plus_50
|
|
|
|
lda #>bonus_kills
|
|
sta STRINGH
|
|
lda #<bonus_kills
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
|
|
; See if no missiles missed
|
|
|
|
perfect_aim:
|
|
lda #$01
|
|
bit BONUS_FLAGS
|
|
beq done_bonus
|
|
|
|
jsr score_plus_50
|
|
|
|
lda #>bonus_aim
|
|
sta STRINGH
|
|
lda #<bonus_aim
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
|
|
jmp done_bonus
|
|
|
|
; we had no bonuses
|
|
|
|
no_bonus:
|
|
lda #>no_bonus_string
|
|
sta STRINGH
|
|
lda #<no_bonus_string
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy ; print text
|
|
|
|
; Wait until a keypress, and return to graphics mode
|
|
|
|
done_bonus:
|
|
|
|
ldx #30
|
|
jsr wait_X_100msec ; pause for 3 seconds
|
|
bit KEYRESET ; clear keyboard
|
|
|
|
jsr wait_until_keypressed
|
|
jsr set_page0_gr
|
|
|
|
|
|
;======================
|
|
; setup boss
|
|
|
|
lda #$0C
|
|
sta BOSS_X ; boss_x = 13
|
|
|
|
lda #$1
|
|
sta BOSS_XADD ; boss_xadd=1
|
|
sta BOSS_WAITING ; boss_waiting=1
|
|
|
|
jsr random_number
|
|
and #$1f
|
|
sta BOSS_COUNT ; boss_count = rand%32
|
|
|
|
lda #$0
|
|
sta BOSS_SMOKE ; boss_smoke=0
|
|
sta BOSS_EXPLODING ; boss_exploding=0
|
|
sta BOSS_SHOOTING ; boss_shooting=0
|
|
|
|
lda LEVEL
|
|
asl A
|
|
clc
|
|
adc #$10
|
|
sta BOSS_HITS ; boss_hits=(level*2)+20
|
|
|
|
lda #$9
|
|
sta ENEMY_TYPE ; enemy_type=9
|
|
|
|
jmp move_enemies
|
|
|
|
|
|
check_type_9:
|
|
|
|
; if boss, and he's waiting,
|
|
; don't produce enemies
|
|
|
|
cmp #$9
|
|
bne setup_enemy_defaults
|
|
lda BOSS_WAITING
|
|
beq setup_enemy_defaults
|
|
jmp move_enemies
|
|
|
|
|
|
;========================
|
|
; setup enemy defaults
|
|
setup_enemy_defaults:
|
|
inc ENEMIES_SPAWNED
|
|
inc TOTAL_ENEMIES_OUT
|
|
|
|
lda #$1
|
|
sta (ENEMY_PL),Y ; enemy[i].out=1
|
|
|
|
lda #$0
|
|
iny ; exploding
|
|
sta (ENEMY_PL),Y ; enemy[i].exploding=0
|
|
|
|
iny ; kind
|
|
|
|
lda CURRENT_ENEMY_KIND ; if kind <0 then random
|
|
bpl store_enemy_kind
|
|
|
|
jsr random_number
|
|
and #$38
|
|
|
|
jmp store_enemy_kind
|
|
|
|
store_enemy_kind:
|
|
sta (ENEMY_PL),Y
|
|
|
|
; determine enemy _x
|
|
; if < 0, make random between 2->34
|
|
|
|
lda CURRENT_INIT_X
|
|
bpl store_init_x
|
|
|
|
jsr random_number
|
|
and #$1f
|
|
clc
|
|
adc #$2
|
|
asl
|
|
|
|
store_init_x:
|
|
iny ; X
|
|
sta (ENEMY_PL),Y
|
|
|
|
; enemy_y is always 0 by default
|
|
|
|
iny ; Y
|
|
lda #$0
|
|
sta (ENEMY_PL),Y
|
|
|
|
lda #$0
|
|
iny
|
|
sta (ENEMY_PL),Y ; xadd
|
|
iny
|
|
sta (ENEMY_PL),Y ; yadd
|
|
lda #$2
|
|
iny
|
|
sta (ENEMY_PL),Y ; xmin
|
|
iny
|
|
lda #$24
|
|
sta (ENEMY_PL),Y ; ymin
|
|
|
|
dey ; xmin
|
|
dey ; yadd
|
|
dey ; xadd
|
|
|
|
|
|
;===========================================
|
|
; Enemy specific inits
|
|
|
|
lda ENEMY_TYPE
|
|
beq enemy_type_0
|
|
cmp #$1
|
|
beq enemy_type_1
|
|
jmp enemy_type_2
|
|
|
|
enemy_type_0:
|
|
enemy_type_1:
|
|
|
|
;================================
|
|
; ENEMY TYPE 0 and 1
|
|
; diagonal, no wait
|
|
; movement proportional to level
|
|
|
|
lda LEVEL ; xadd = level
|
|
sta (ENEMY_PL),Y
|
|
|
|
iny
|
|
|
|
lsr A
|
|
ora #$1
|
|
sta (ENEMY_PL),Y ; yadd = level/2
|
|
jmp move_enemies
|
|
|
|
enemy_type_2:
|
|
;=====================
|
|
; Enemy Type 2
|
|
; just a place-holder
|
|
; waits for enemies to die then moves on to 3
|
|
|
|
cmp #$2
|
|
bne enemy_type_3
|
|
jmp move_enemies
|
|
|
|
|
|
enemy_type_3:
|
|
|
|
cmp #$3
|
|
bne enemy_type_4
|
|
|
|
;======================
|
|
; Enemy type 3
|
|
|
|
lda #$1
|
|
sta (ENEMY_PL),Y ; xadd=1
|
|
|
|
iny
|
|
|
|
lda LEVEL
|
|
sta (ENEMY_PL),Y ; yadd=level
|
|
|
|
jmp move_enemies
|
|
|
|
enemy_type_4:
|
|
|
|
cmp #$4
|
|
bne enemy_type_5
|
|
|
|
|
|
;=========================
|
|
; Enemy Type 4
|
|
; Horizontal, then fall
|
|
|
|
lda #$2
|
|
sta (ENEMY_PL),Y ; xadd = 2
|
|
|
|
iny
|
|
|
|
jsr random_number
|
|
ora #$80 ; set negative
|
|
sta (ENEMY_PL),y ; yadd = -(random%128)
|
|
; this means bop back and forth a random
|
|
; time, then drop
|
|
|
|
jmp move_enemies
|
|
|
|
|
|
enemy_type_5:
|
|
cmp #$5
|
|
bne enemy_type_6
|
|
|
|
;========================
|
|
; Enemy Type 5
|
|
; "wiggle"
|
|
|
|
lda #$1
|
|
sta (ENEMY_PL),y ; xadd=1
|
|
|
|
iny
|
|
lda LEVEL
|
|
sta (ENEMY_PL),y ; yadd=2
|
|
|
|
iny
|
|
jsr random_number
|
|
and #$0f
|
|
clc
|
|
adc #$2
|
|
sta (ENEMY_PL),y ; xmin=(rand%16)+2
|
|
|
|
|
|
dey ; yadd
|
|
dey ; xadd
|
|
dey ; y
|
|
dey ;x
|
|
asl A
|
|
sta (ENEMY_PL),y
|
|
iny ;y
|
|
iny ; xadd
|
|
iny ; yadd
|
|
iny ; xmin
|
|
|
|
jsr random_number
|
|
and #$0f
|
|
clc
|
|
adc (ENEMY_PL),Y
|
|
adc #$02
|
|
iny
|
|
sta (ENEMY_PL),Y ; xmax = xmin+(rand%16)+2
|
|
|
|
jmp move_enemies
|
|
|
|
|
|
enemy_type_6:
|
|
cmp #$6
|
|
beq enemy_type_7
|
|
cmp #$7
|
|
beq enemy_type_7
|
|
jmp enemy_type_8
|
|
enemy_type_7:
|
|
;=====================
|
|
; Enemy Types 6+7
|
|
; "Rain"
|
|
|
|
|
|
|
|
jsr random_number
|
|
and #6
|
|
bne no_use_own_x
|
|
|
|
dey ; y
|
|
dey ; x
|
|
|
|
lda SHIPX
|
|
cmp #$2
|
|
bpl shipx_ok
|
|
lda #$2 ; stupid bug where gets stuck is < xmin
|
|
|
|
shipx_ok:
|
|
|
|
asl A
|
|
sta (ENEMY_PL),Y ; one-in-four chance we use shipx as X
|
|
|
|
iny ; y
|
|
iny ; xadd
|
|
|
|
no_use_own_x:
|
|
|
|
lda #$0
|
|
sta (ENEMY_PL),Y ; xadd=0
|
|
iny
|
|
lda #$1
|
|
sta (ENEMY_PL),Y ; yadd = 1
|
|
|
|
jmp move_enemies
|
|
|
|
enemy_type_8:
|
|
enemy_type_9:
|
|
|
|
;======================
|
|
; Things flung by boss
|
|
|
|
|
|
dey ; y
|
|
dey ; x
|
|
|
|
lda BOSS_X
|
|
clc
|
|
adc #$5
|
|
asl A
|
|
sta (ENEMY_PL),Y ; enemy_x=boss_x+5
|
|
|
|
iny
|
|
lda #$3
|
|
asl A
|
|
asl A
|
|
sta (ENEMY_PL),Y ; enemy_y=3
|
|
|
|
|
|
iny
|
|
lda #$0
|
|
sta (ENEMY_PL),Y ; xadd=0
|
|
|
|
iny
|
|
lda #$2
|
|
sta (ENEMY_PL),Y ; yadd=2
|
|
|
|
|
|
|
|
|
|
|
|
move_enemies:
|
|
|
|
;==============================================
|
|
; Move Enemies! (first thing, if no new added)
|
|
;==============================================
|
|
|
|
ldy #$0 ; point to enemies[0]
|
|
handle_enemies:
|
|
|
|
tya
|
|
pha ; store y on stack
|
|
|
|
lda (ENEMY_PL),Y ; get enemy[y].out
|
|
bne load_enemy_zero_page ; if enemy.out then we are good
|
|
|
|
jmp skip_to_next_enemy ; enemy is not out, so skip to next
|
|
|
|
|
|
|
|
;==========================================
|
|
; load this enemy stuff into zero page for
|
|
; easier access
|
|
;==========================================
|
|
|
|
load_enemy_zero_page:
|
|
ldx #ENEMY_EXPLODING
|
|
load_to_zero_page:
|
|
iny ; point to exploding
|
|
lda (ENEMY_PL),Y
|
|
sta 0,X ; store to zero page
|
|
inx
|
|
cpx #(ENEMY_XMAX+1) ; see if reached end
|
|
bne load_to_zero_page ; if not keep copying
|
|
|
|
;================================
|
|
; skip all movement and collision
|
|
; if exploding
|
|
;================================
|
|
|
|
lda ENEMY_EXPLODING
|
|
beq move_enemy_x
|
|
jmp draw_enemy
|
|
|
|
;================================
|
|
; Start the enemy movement engine
|
|
;================================
|
|
|
|
|
|
;========
|
|
; Move X
|
|
;========
|
|
|
|
move_enemy_x:
|
|
clc
|
|
lda ENEMY_X ; X
|
|
adc ENEMY_XADD ; x+=xadd
|
|
sta ENEMY_X
|
|
|
|
lsr A
|
|
|
|
cmp ENEMY_XMIN ; are we less than xmin?
|
|
bmi switch_dir_enemy_x ; if so, switch direction
|
|
|
|
cmp ENEMY_XMAX ; are we greater than xmax?
|
|
bpl switch_dir_enemy_x ; if so, switch direction
|
|
|
|
jmp move_enemy_y
|
|
|
|
|
|
switch_dir_enemy_x:
|
|
|
|
; switch X direction
|
|
|
|
lda #$0 ; load zero
|
|
sec
|
|
sbc ENEMY_XADD ; 0 - ENEMY_XADD
|
|
sta ENEMY_XADD ; store it back out, negated
|
|
jmp move_enemy_x ; re-add it in
|
|
|
|
;========
|
|
; Move Y
|
|
;========
|
|
|
|
move_enemy_y:
|
|
|
|
lda #$0 ; load in zero
|
|
cmp ENEMY_YADD ; compare to YADD
|
|
|
|
bmi no_y_special_case ; if minus, we have special case
|
|
|
|
inc ENEMY_YADD
|
|
bne done_enemy_y
|
|
|
|
lda #$0
|
|
sta ENEMY_XADD
|
|
lda #$2
|
|
sta ENEMY_YADD
|
|
|
|
; increment y
|
|
; is it > 0?
|
|
; if not keep going
|
|
; if so, yadd=level*2
|
|
|
|
jmp done_enemy_y
|
|
|
|
no_y_special_case:
|
|
clc
|
|
lda ENEMY_Y ; get Y
|
|
adc ENEMY_YADD ; y+=yadd
|
|
sta ENEMY_Y ; store back out
|
|
|
|
lsr A
|
|
lsr A
|
|
|
|
cmp #$12 ; is y<=12?
|
|
bmi done_enemy_y ; if so no need to do anything
|
|
beq done_enemy_y
|
|
|
|
; off screen
|
|
|
|
pla ; pop saved Y off stack
|
|
tay
|
|
pha ; push y back on stack
|
|
|
|
lda #$0
|
|
sta (ENEMY_PL),Y ; set enemy[i].out=0
|
|
|
|
dec TOTAL_ENEMIES_OUT
|
|
|
|
lda BONUS_FLAGS
|
|
and #<(~PERFECT_KILLS)
|
|
sta BONUS_FLAGS
|
|
|
|
jmp skip_to_next_enemy ; skip to next enemy
|
|
|
|
|
|
done_enemy_y:
|
|
|
|
;===============
|
|
; Done Movement
|
|
;===============
|
|
|
|
|
|
;======================
|
|
; Check for Collisions
|
|
;======================
|
|
|
|
|
|
;==================================
|
|
; Check ENEMY <> MISSILE collision
|
|
;==================================
|
|
|
|
check_enemy_missile_collision:
|
|
|
|
ldy #$0
|
|
sty YSAV
|
|
check_missile_loop:
|
|
lda (MISSILE_PL),Y
|
|
beq missile_not_out
|
|
|
|
iny ; point to missile.x
|
|
lda (MISSILE_PL),Y ; load missile.x
|
|
|
|
sta COL_X1
|
|
sta COL_X2
|
|
|
|
lda ENEMY_X
|
|
lsr A
|
|
sta COL_X3
|
|
clc
|
|
adc #3
|
|
sta COL_X4
|
|
|
|
jsr check_inside
|
|
|
|
bcc missile_done
|
|
|
|
x_in_range:
|
|
|
|
iny
|
|
lda (MISSILE_PL),Y ; load missile.y
|
|
|
|
sta COL_X3
|
|
clc
|
|
adc #2
|
|
sta COL_X4
|
|
|
|
lda ENEMY_Y
|
|
lsr A
|
|
lsr A
|
|
sta COL_X1
|
|
clc
|
|
adc #1
|
|
sta COL_X2
|
|
|
|
jsr check_inside
|
|
|
|
bcc missile_done
|
|
|
|
|
|
horrible_explosion:
|
|
|
|
; clear missile
|
|
|
|
ldy YSAV
|
|
lda #$0
|
|
sta (MISSILE_PL),Y
|
|
|
|
; clear enemy
|
|
|
|
lda #$1
|
|
sta ENEMY_EXPLODING
|
|
lda #$40
|
|
sta ENEMY_KIND
|
|
|
|
jsr inc_score
|
|
|
|
jmp draw_enemy
|
|
|
|
|
|
missile_done:
|
|
missile_not_out:
|
|
ldy YSAV
|
|
iny
|
|
iny
|
|
iny
|
|
sty YSAV
|
|
cpy #(NUM_MISSILES*3)
|
|
bne check_missile_loop
|
|
|
|
;=================================
|
|
; Done missile <> enemy collision
|
|
;=================================
|
|
|
|
|
|
;====================================
|
|
; check for ship <-> enemy collision
|
|
;====================================
|
|
|
|
lda SHIPX
|
|
sta COL_X3
|
|
clc
|
|
adc #8
|
|
sta COL_X4 ; big check is shipx - shipx+8
|
|
|
|
lda ENEMY_X
|
|
lsr A
|
|
sta COL_X1
|
|
clc
|
|
adc #2
|
|
sta COL_X2 ; small check enemy_x - enemy_x+2
|
|
|
|
jsr check_inside ; check if overlap
|
|
|
|
bcc draw_enemy ; if not, move ahead
|
|
|
|
lda #16
|
|
sta COL_X3
|
|
lda #18
|
|
sta COL_X4 ; big check is 16 - 18
|
|
|
|
lda ENEMY_Y
|
|
lsr A
|
|
lsr A
|
|
sta COL_X1
|
|
clc
|
|
adc #$1
|
|
sta COL_X2 ; little check is enemy_y - enemy_y+1
|
|
|
|
jsr check_inside ; check if overlap
|
|
|
|
bcc draw_enemy ; if not, move ahead
|
|
|
|
; make the enemy explode
|
|
|
|
lda #$1
|
|
sta ENEMY_EXPLODING
|
|
lda #$40
|
|
sta ENEMY_KIND
|
|
|
|
dec SHIELDS
|
|
jsr update_shields ; move shields down
|
|
|
|
lda #<(~PERFECT_SHIELDS) ; (~PERFECT_SHIELDS)
|
|
and BONUS_FLAGS ; remove perfect shield bonus
|
|
sta BONUS_FLAGS
|
|
|
|
|
|
;=====================================
|
|
; Done ship <> enemy collision detect
|
|
;=====================================
|
|
|
|
|
|
draw_enemy:
|
|
|
|
; See if the enemy is currently exploding
|
|
; if so, do explosion stuff
|
|
|
|
check_enemy_explode:
|
|
lda ENEMY_EXPLODING ; load enemy[i].exploding
|
|
beq not_exploding ; if 0 then not exploding
|
|
|
|
handle_exploding:
|
|
|
|
jsr click ; make some noise
|
|
|
|
clc
|
|
lda ENEMY_KIND ; move to next step in explosion
|
|
adc #$4
|
|
sta ENEMY_KIND
|
|
|
|
cmp #$58 ; have we cycles through explosion?
|
|
bne draw_enemy_sprite ; if not, we are still exploding
|
|
|
|
dec TOTAL_ENEMIES_OUT ; total_enemies_out--
|
|
|
|
pla
|
|
tay ; load y
|
|
pha
|
|
|
|
lda #$0 ; enemy[i].out=0
|
|
sta (ENEMY_PL),Y
|
|
|
|
jmp skip_to_next_enemy
|
|
|
|
|
|
; point to enemies_x
|
|
; goto enemies_xy
|
|
|
|
|
|
not_exploding:
|
|
|
|
|
|
|
|
draw_enemy_sprite:
|
|
|
|
; point to proper sprite
|
|
|
|
lda #>enemy_sprite0 ; point to the missile sprite
|
|
sta STRINGH
|
|
lda #<enemy_sprite0
|
|
sta STRINGL
|
|
|
|
lda ENEMY_KIND ; get kind
|
|
and #$F8
|
|
|
|
clc
|
|
adc STRINGL
|
|
|
|
sta STRINGL
|
|
lda #0
|
|
adc STRINGH
|
|
sta STRINGH
|
|
|
|
|
|
enemies_xy:
|
|
lda ENEMY_X ; get X
|
|
lsr A
|
|
sta CH
|
|
lda ENEMY_Y ; load it
|
|
lsr A
|
|
lsr A
|
|
sta CV
|
|
|
|
jsr blit ; blit the missile sprite
|
|
|
|
|
|
|
|
|
|
save_zp_enemy_back:
|
|
; save zero page copy back to RAM
|
|
|
|
ldx #ENEMY_EXPLODING
|
|
|
|
pla
|
|
tay ; restore y pointer
|
|
pha
|
|
|
|
save_from_zero_page:
|
|
|
|
|
|
iny ; point to exploding
|
|
lda 0,X
|
|
sta (ENEMY_PL),Y
|
|
|
|
inx
|
|
cpx #(ENEMY_XMAX+1) ; see if reached end
|
|
bne save_from_zero_page ; if not keep copying
|
|
|
|
|
|
skip_to_next_enemy:
|
|
|
|
pla ; get saved value of Y
|
|
clc
|
|
adc #$9 ; add 9 to point to next
|
|
tay
|
|
|
|
cpy #NUM_ENEMIES*9 ; have we looped through them all?
|
|
beq draw_the_boss ; if not, loop
|
|
jmp handle_enemies
|
|
|
|
|
|
;===================================================
|
|
;===================================================
|
|
; BOSS STUFF
|
|
|
|
|
|
draw_the_boss:
|
|
|
|
;=======================
|
|
; if enemy_type==9
|
|
; we have a boss out
|
|
|
|
lda ENEMY_TYPE
|
|
cmp #$9
|
|
|
|
beq check_boss_exploding
|
|
jmp done_with_boss
|
|
check_boss_exploding:
|
|
;================================
|
|
; if not exploding, draw the boss
|
|
|
|
lda BOSS_EXPLODING
|
|
bne skip_draw_boss
|
|
|
|
lda #$0 ; boss_y=0
|
|
sta CV
|
|
lda BOSS_X
|
|
sta CH ; boss_x
|
|
|
|
lda #>boss_sprite
|
|
sta STRINGH
|
|
lda #<boss_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the ship sprite
|
|
|
|
skip_draw_boss:
|
|
;================================
|
|
; Draw Smoke
|
|
|
|
lda BOSS_SMOKE
|
|
beq skip_draw_smoke
|
|
|
|
|
|
; point to proper sprite
|
|
|
|
lda #>smoke_sprite0 ; point to the missile sprite
|
|
sta STRINGH
|
|
lda #<smoke_sprite0
|
|
sta STRINGL
|
|
|
|
lda BOSS_SMOKE ; get kind
|
|
|
|
and #$fc ; mask off bottom 2 bits
|
|
|
|
clc
|
|
adc STRINGL
|
|
|
|
sta STRINGL
|
|
lda #0
|
|
adc STRINGH
|
|
sta STRINGH
|
|
|
|
lda BOSS_X ; get X
|
|
clc
|
|
adc #$5
|
|
sta CH
|
|
lda #$3 ; load it
|
|
sta CV
|
|
|
|
jsr blit ; blit the missile sprite
|
|
|
|
lda BOSS_X
|
|
clc
|
|
adc #$5
|
|
sec
|
|
sbc BOSS_XADD
|
|
sta CH
|
|
|
|
lda #$4
|
|
sta CV
|
|
|
|
jsr blit
|
|
|
|
dec BOSS_SMOKE
|
|
|
|
skip_draw_smoke:
|
|
|
|
;======================
|
|
; BOSS Laser Shoot
|
|
|
|
lda BOSS_SHOOTING
|
|
beq skip_boss_shooting
|
|
|
|
dec BOSS_SHOOTING
|
|
|
|
jsr click
|
|
|
|
|
|
ldx #$0
|
|
boss_shoot_loop:
|
|
txa
|
|
pha
|
|
|
|
; point to proper sprite
|
|
|
|
lda #>laser_sprite0 ; point to the missile sprite
|
|
sta STRINGH
|
|
lda #<laser_sprite0
|
|
sta STRINGL
|
|
|
|
lda BOSS_SHOOTING ; get shooting
|
|
and #$1
|
|
|
|
beq got_right_laser
|
|
|
|
clc
|
|
lda #$5
|
|
adc STRINGL
|
|
|
|
sta STRINGL
|
|
lda #0
|
|
adc STRINGH
|
|
sta STRINGH
|
|
|
|
got_right_laser:
|
|
|
|
lda BOSS_X
|
|
sta CH
|
|
|
|
txa
|
|
asl
|
|
|
|
clc
|
|
adc #$3
|
|
sta CV
|
|
|
|
jsr blit ; blit the laser sprite
|
|
|
|
lda BOSS_X
|
|
clc
|
|
adc #$C
|
|
sta CH
|
|
|
|
pla
|
|
pha
|
|
asl
|
|
clc
|
|
adc #$3
|
|
sta CV
|
|
|
|
|
|
jsr blit
|
|
|
|
|
|
pla
|
|
tax
|
|
inx
|
|
cpx #$8
|
|
bne boss_shoot_loop
|
|
jsr click
|
|
|
|
|
|
skip_boss_shooting:
|
|
|
|
;=============================
|
|
; boss is dead
|
|
|
|
lda BOSS_EXPLODING
|
|
beq boss_is_not_exploding
|
|
|
|
lda #$1
|
|
sta BOSS_WAITING
|
|
|
|
ldx #$20
|
|
big_explosion:
|
|
txa
|
|
pha
|
|
|
|
; point to proper sprite
|
|
|
|
lda #>smoke_sprite0 ; point to the missile sprite
|
|
sta STRINGH
|
|
lda #<smoke_sprite0
|
|
sta STRINGL
|
|
|
|
lda BOSS_EXPLODING ; get kind
|
|
lsr A
|
|
lsr A
|
|
and #$0c ; mask off bottom 2 bits
|
|
|
|
clc
|
|
adc STRINGL
|
|
|
|
sta STRINGL
|
|
lda #0
|
|
adc STRINGH
|
|
sta STRINGH
|
|
|
|
jsr random_number
|
|
and #$03
|
|
sta CV
|
|
|
|
jsr random_number
|
|
and #$07
|
|
clc
|
|
adc BOSS_X
|
|
sta CH
|
|
|
|
jsr blit ; blit the missile sprite
|
|
|
|
pla
|
|
tax
|
|
dex
|
|
bne big_explosion
|
|
|
|
jsr click
|
|
dec BOSS_EXPLODING
|
|
|
|
bne not_dead_yet
|
|
|
|
lda LEVEL ; only show ending after level 1
|
|
cmp #$1
|
|
bne no_ending
|
|
|
|
jmp do_ending
|
|
|
|
no_ending:
|
|
|
|
inc SCOREH ; add 100 to score
|
|
jsr print_score
|
|
|
|
lda LEVEL
|
|
cmp #$7 ; level can't be higher than 7
|
|
beq start_new_level
|
|
inc LEVEL
|
|
|
|
inc SHIELDS
|
|
inc SHIELDS
|
|
|
|
lda #$A
|
|
cmp SHIELDS
|
|
bpl start_new_level
|
|
sta SHIELDS
|
|
|
|
start_new_level:
|
|
jsr update_shields
|
|
jmp new_level
|
|
|
|
not_dead_yet:
|
|
jmp move_boss
|
|
|
|
boss_is_not_exploding:
|
|
|
|
dec BOSS_COUNT
|
|
bne move_boss
|
|
|
|
;=========================================
|
|
; Toggle boss waiting state if count is up
|
|
|
|
lda BOSS_WAITING
|
|
beq make_boss_wait
|
|
stop_boss_waiting:
|
|
lda #$0
|
|
sta BOSS_WAITING ; boss_waiting=0
|
|
jsr random_number
|
|
sta BOSS_COUNT ; boss_count=rand%256
|
|
jmp move_boss
|
|
|
|
make_boss_wait:
|
|
lda #$1
|
|
sta BOSS_WAITING
|
|
|
|
jsr random_number
|
|
and #$01f
|
|
clc
|
|
adc #$30
|
|
sta BOSS_COUNT
|
|
|
|
lda #$20
|
|
sta BOSS_SHOOTING
|
|
|
|
move_boss:
|
|
lda BOSS_WAITING
|
|
bne laser_collision
|
|
|
|
lda BOSS_X
|
|
clc
|
|
adc BOSS_XADD
|
|
sta BOSS_X
|
|
|
|
cmp #26
|
|
bpl boss_reverse
|
|
|
|
boss_under:
|
|
cmp #$0
|
|
bpl laser_collision
|
|
|
|
boss_reverse:
|
|
|
|
lda #$0 ; load zero
|
|
sec
|
|
sbc BOSS_XADD ; 0 - ENEMY_XADD
|
|
sta BOSS_XADD ; store it back out, negated
|
|
jmp move_boss ; re-add it in
|
|
|
|
|
|
laser_collision:
|
|
|
|
;================================
|
|
; Collision detection for lasers
|
|
;
|
|
|
|
lda BOSS_SHOOTING
|
|
beq done_with_boss
|
|
|
|
left_laser:
|
|
lda BOSS_X
|
|
sta COL_X1
|
|
sta COL_X2
|
|
lda SHIPX
|
|
sta COL_X3
|
|
lda #$6
|
|
clc
|
|
adc SHIPX
|
|
sta COL_X4
|
|
jsr check_inside
|
|
bcs laser_hit
|
|
|
|
right_laser:
|
|
lda BOSS_X
|
|
clc
|
|
adc #$C
|
|
sta COL_X1
|
|
sta COL_X2
|
|
jsr check_inside
|
|
bcc done_with_boss
|
|
|
|
laser_hit:
|
|
lda BOSS_SHOOTING
|
|
and #$3 ; only take damage 1/8 the time
|
|
bne done_with_boss
|
|
|
|
dec SHIELDS
|
|
jsr update_shields
|
|
|
|
|
|
|
|
|
|
done_with_boss:
|
|
|
|
ldy #$0 ; point to missile[0]
|
|
move_missiles:
|
|
lda (MISSILE_PL),Y ; get missile[y]
|
|
beq loop_move_missiles ; if missile.out==0 skip
|
|
|
|
iny ; move to missile.y
|
|
iny
|
|
clc ; clear carry
|
|
lda (MISSILE_PL),Y ; get missile.y
|
|
adc #$FF ; move up (subtract 1)
|
|
sta (MISSILE_PL),Y ; store missile.y
|
|
bpl missile_collision_detection ; if not off screen, contine
|
|
|
|
dey ; back up to missile.out
|
|
dey
|
|
lda #$0
|
|
sta (MISSILE_PL),Y ; set missile.out=0
|
|
|
|
lda #<(~PERFECT_AIM) ; shot missed!
|
|
and BONUS_FLAGS ; clear perfect shot flag
|
|
sta BONUS_FLAGS
|
|
|
|
jmp loop_move_missiles ; continue
|
|
|
|
missile_collision_detection:
|
|
|
|
check_missile_boss:
|
|
lda ENEMY_TYPE
|
|
cmp #$9
|
|
bne done_missile_collision
|
|
dey ; missile x
|
|
lda (MISSILE_PL),Y
|
|
iny ; fix y
|
|
sta COL_X1
|
|
sta COL_X2
|
|
lda BOSS_X
|
|
sta COL_X3
|
|
clc
|
|
adc #$0d
|
|
sta COL_X4
|
|
jsr check_inside
|
|
|
|
bcc done_missile_collision
|
|
|
|
check_boss_y:
|
|
lda (MISSILE_PL),Y
|
|
sta COL_X1
|
|
clc
|
|
adc #$2
|
|
sta COL_X2
|
|
lda #$0
|
|
sta COL_X3
|
|
lda #$3
|
|
sta COL_X4
|
|
jsr check_inside
|
|
|
|
bcc done_missile_collision
|
|
|
|
hit_the_boss:
|
|
dey
|
|
dey
|
|
lda #$0
|
|
sta (MISSILE_PL),Y ; missile_out=0
|
|
lda #$B
|
|
sta BOSS_SMOKE
|
|
|
|
dec BOSS_HITS
|
|
bne loop_move_missiles
|
|
|
|
lda #$2F
|
|
sta BOSS_EXPLODING
|
|
lda #$0
|
|
sta BOSS_SHOOTING
|
|
|
|
jmp loop_move_missiles
|
|
|
|
done_missile_collision:
|
|
|
|
jmp loop_move_at_y
|
|
|
|
loop_move_missiles:
|
|
iny
|
|
iny
|
|
loop_move_at_y:
|
|
iny
|
|
cpy #NUM_MISSILES*3 ; have we checked all missiles?
|
|
bne move_missiles ; if not, loop
|
|
|
|
done_move_missiles:
|
|
|
|
ldy #$0 ; point to missiles[0]
|
|
draw_missiles:
|
|
lda (MISSILE_PL),Y ; get missile[y]
|
|
beq loop_draw_missiles ; if missile.out==0 skip
|
|
|
|
iny ; point to missile.x
|
|
lda (MISSILE_PL),Y ; load it
|
|
sta CH
|
|
iny ; point to missile.y
|
|
lda (MISSILE_PL),Y ; load it
|
|
sta CV
|
|
|
|
sty YSAV1 ; save Y
|
|
|
|
lda #>missile_sprite ; point to the missile sprite
|
|
sta STRINGH
|
|
lda #<missile_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the missile sprite
|
|
|
|
ldy YSAV1 ; restore Y
|
|
|
|
jmp loop_draw_missiles_noadd
|
|
|
|
loop_draw_missiles:
|
|
iny
|
|
iny
|
|
|
|
loop_draw_missiles_noadd:
|
|
iny
|
|
|
|
cpy #NUM_MISSILES*3 ; have we looped through them all?
|
|
bne draw_missiles ; if not, loop
|
|
|
|
|
|
|
|
game_read_keyboard:
|
|
jsr get_key
|
|
lda LASTKEY
|
|
bne game_q
|
|
jmp move_ship ; if no keypressed, move the ship
|
|
|
|
game_q:
|
|
cmp #'Q'
|
|
bne game_j
|
|
;; call verify_quit
|
|
jmp done_game
|
|
;; jmp set_pause_flag
|
|
|
|
game_j:
|
|
cmp #'J'
|
|
bne game_k
|
|
|
|
lda SHIPXADD ; load xadd
|
|
beq game_j_sub
|
|
bpl game_j_0 ; is switch dir, then 0 it
|
|
game_j_sub:
|
|
dec SHIPXADD ; else, dec XADD
|
|
jmp move_ship
|
|
game_j_0:
|
|
lda #$0
|
|
sta SHIPXADD
|
|
jmp move_ship
|
|
|
|
game_k:
|
|
cmp #'K'
|
|
bne game_c
|
|
|
|
lda SHIPXADD ; load xadd
|
|
bmi game_j_0 ; if we are switching dirs, set to zero
|
|
inc SHIPXADD ; else xadd++
|
|
jmp move_ship
|
|
|
|
game_c:
|
|
cmp #'C'
|
|
bne game_p
|
|
|
|
lda PADDLE_STATUS
|
|
eor #$80
|
|
sta PADDLE_STATUS
|
|
|
|
jmp move_ship
|
|
|
|
game_p:
|
|
cmp #'P'
|
|
bne game_s
|
|
bit KEYRESET
|
|
jsr wait_until_keypressed
|
|
jmp move_ship
|
|
|
|
game_s:
|
|
cmp #'S'
|
|
bne game_h
|
|
lda SOUND_ON
|
|
eor #$ff
|
|
sta SOUND_ON
|
|
jmp move_ship
|
|
|
|
game_h:
|
|
cmp #'H'
|
|
bne game_space
|
|
jsr do_help
|
|
jsr set_page0_gr
|
|
|
|
game_space:
|
|
cmp #' '+128 ; +128 because of get_key 'feature'
|
|
bne game_unknown
|
|
|
|
ldy #$0 ; point to missile[y]
|
|
fire_missiles:
|
|
lda (MISSILE_PL),Y ; get missile[y].out
|
|
bne end_fire_loop ; if not out, skip ahead
|
|
|
|
lda #$1 ; set missile[y].out=1
|
|
sta (MISSILE_PL),Y
|
|
iny ; point to missile[y].x
|
|
lda #$3
|
|
clc
|
|
adc SHIPX ; missile[y].x=shipx+3
|
|
sta (MISSILE_PL),Y
|
|
iny ; point to missile[y].y
|
|
lda #$10 ; set to 16
|
|
sta (MISSILE_PL),Y
|
|
jmp done_fire_missiles
|
|
|
|
end_fire_loop:
|
|
iny
|
|
iny
|
|
iny
|
|
|
|
cpy #NUM_MISSILES*3 ; see if we have more missiles
|
|
bne fire_missiles ; if so, loop
|
|
done_fire_missiles:
|
|
|
|
jmp move_ship
|
|
|
|
game_unknown:
|
|
|
|
|
|
|
|
|
|
move_ship:
|
|
clc ; Clear carry
|
|
lda SHIPX ; load ship_x
|
|
adc SHIPXADD ; ship_x+=xadd
|
|
sta SHIPX ; store it back
|
|
|
|
check_x_under:
|
|
bpl check_x_over ; if positive, keep going
|
|
lda #$0 ; we were below zero
|
|
sta SHIPX ; so shipx=0
|
|
sta SHIPXADD ; xadd=0
|
|
jmp blit_ship ; go to blit
|
|
|
|
check_x_over:
|
|
cmp #$21 ; are we over 33?
|
|
bmi blit_ship ; if not, blit ship
|
|
lda #$0 ; shipxadd=0
|
|
sta SHIPXADD
|
|
lda #$21 ; shipx=33
|
|
sta SHIPX
|
|
|
|
blit_ship:
|
|
lda #$10 ; shipy=16
|
|
sta CV
|
|
lda SHIPX
|
|
sta CH ; load shipx
|
|
|
|
|
|
lda #>ship_sprite
|
|
sta STRINGH
|
|
lda #<ship_sprite
|
|
sta STRINGL
|
|
jsr blit ; blit the ship sprite
|
|
|
|
jsr clear_bottom
|
|
|
|
lda #>shields_string
|
|
sta STRINGH
|
|
lda #<shields_string
|
|
sta STRINGL
|
|
|
|
clc
|
|
lda #$2
|
|
adc GR_PAGE
|
|
sta BASH
|
|
lda #$50
|
|
sta BASL
|
|
|
|
ldy #$0
|
|
|
|
shield_print_loop:
|
|
|
|
;=============================
|
|
; CHECK TO SEE IF GAME IS OVER
|
|
;=============================
|
|
|
|
lda SHIELDS
|
|
bmi done_game
|
|
|
|
|
|
lda (STRINGL),Y
|
|
sta (BASL),Y
|
|
iny
|
|
cpy #$1E ; string is 30 long
|
|
bne shield_print_loop
|
|
|
|
inc BASH ; move to line 23
|
|
|
|
lda #>score_string
|
|
sta STRINGH
|
|
lda #<score_string
|
|
sta STRINGL
|
|
|
|
ldy #$0
|
|
|
|
score_print_loop:
|
|
lda (STRINGL),Y
|
|
sta (BASL),Y
|
|
iny
|
|
cpy #$26 ; string is 38 long
|
|
bne score_print_loop
|
|
|
|
clc
|
|
lda #$80
|
|
adc BASL
|
|
sta BASL ; move to line 24
|
|
|
|
;OPTIMIZE
|
|
|
|
lda #>level_string
|
|
sta STRINGH
|
|
lda #<level_string
|
|
sta STRINGL
|
|
|
|
ldy #$0
|
|
level_print_loop:
|
|
lda (STRINGL),Y
|
|
sta (BASL),Y
|
|
iny
|
|
cpy #$C ; string is 12 long
|
|
bne level_print_loop
|
|
|
|
|
|
|
|
|
|
|
|
;==========
|
|
; Flip Pages
|
|
|
|
lda #$4
|
|
bit GR_PAGE
|
|
bne gr_page_1
|
|
|
|
gr_page_0:
|
|
bit PAGE1 ; switch to page 0
|
|
lda #$4
|
|
jmp write_out_gr_page
|
|
gr_page_1:
|
|
bit PAGE0 ; switch to page 1
|
|
lda #$8
|
|
write_out_gr_page:
|
|
sta GR_PAGE
|
|
|
|
; lda #$8B ; 107 = 30080us = 30ms
|
|
lda #$65
|
|
jsr WAIT
|
|
|
|
|
|
jmp main_game_loop
|
|
|
|
done_game:
|
|
|
|
|
|
ldx #30
|
|
jsr wait_X_100msec ; pause for 3 seconds
|
|
bit KEYRESET ; clear keyboard
|
|
|
|
jsr set_page0_text
|
|
jsr HOME
|
|
|
|
lda #>game_over_string
|
|
sta STRINGH
|
|
lda #<game_over_string
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
jsr set_page0_text
|
|
|
|
see_if_new_hi_score:
|
|
|
|
sed
|
|
lda SCOREH
|
|
cmp HISCORE_H
|
|
cld
|
|
|
|
beq too_close
|
|
bpl new_high
|
|
jmp do_hi_score
|
|
|
|
|
|
too_close:
|
|
sed
|
|
lda SCOREL
|
|
cmp HISCORE_L
|
|
cld
|
|
|
|
bpl new_high
|
|
jmp do_hi_score
|
|
|
|
new_high:
|
|
|
|
; Actually set the high score
|
|
|
|
lda SCOREL
|
|
sta HISCORE_L
|
|
lda SCOREH
|
|
sta HISCORE_H
|
|
|
|
lda #>(score_string+31)
|
|
sta STRINGH
|
|
lda #<(score_string+31)
|
|
sta STRINGL
|
|
jsr print_high_score
|
|
|
|
jsr HOME
|
|
|
|
; print new high score message
|
|
|
|
lda #>new_high_score_string
|
|
sta STRINGH
|
|
lda #<new_high_score_string
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy
|
|
jsr print_text_xy
|
|
|
|
; set high score to AAA
|
|
|
|
lda #$C1
|
|
sta HISCORE_1
|
|
sta HISCORE_2
|
|
sta HISCORE_3
|
|
|
|
|
|
; load initials address
|
|
|
|
lda #$06
|
|
sta STRINGH
|
|
lda #$12
|
|
sta STRINGL
|
|
|
|
|
|
; load pointer address
|
|
|
|
lda #$06
|
|
sta BASH
|
|
lda #$92
|
|
sta BASL
|
|
|
|
ldy #$0
|
|
ldx #$0
|
|
|
|
initials_loop:
|
|
|
|
; erase old pointer
|
|
|
|
ldy #$0
|
|
lda #$A0
|
|
sta (BASL),Y
|
|
iny
|
|
sta (BASL),Y
|
|
iny
|
|
sta (BASL),Y
|
|
|
|
txa
|
|
tay
|
|
|
|
; draw pointer
|
|
|
|
lda #$DE ; '^'
|
|
sta (BASL),Y
|
|
|
|
|
|
ldy #$0
|
|
|
|
; draw initials
|
|
|
|
lda HISCORE_1
|
|
sta (STRINGL),Y
|
|
|
|
iny
|
|
lda HISCORE_2
|
|
sta (STRINGL),Y
|
|
|
|
iny
|
|
lda HISCORE_3
|
|
sta (STRINGL),Y
|
|
|
|
in_key:
|
|
jsr wait_until_keypressed
|
|
lda LASTKEY
|
|
beq in_key
|
|
|
|
cmp #$D
|
|
beq do_hi_score
|
|
|
|
cmp #'I'
|
|
bne in_down
|
|
inc HISCORE_1,X
|
|
|
|
in_down:
|
|
|
|
cmp #'M'
|
|
bne in_left
|
|
dec HISCORE_1,X
|
|
|
|
in_left:
|
|
cmp #'K'
|
|
bne in_right
|
|
inx
|
|
|
|
in_right:
|
|
cmp #'J'
|
|
bne fix_limits
|
|
dex
|
|
fix_limits:
|
|
|
|
; Make sure X is between 0 and 2
|
|
|
|
cpx #$0
|
|
bpl x_high
|
|
ldx #$2
|
|
x_high:
|
|
cpx #$3
|
|
bmi x_lo
|
|
ldx #$0
|
|
x_lo:
|
|
|
|
jmp initials_loop
|
|
|
|
|
|
do_hi_score:
|
|
|
|
jsr HOME
|
|
|
|
lda #>high_score_string
|
|
sta STRINGH
|
|
lda #<high_score_string
|
|
sta STRINGL
|
|
|
|
jsr print_text_xy
|
|
|
|
|
|
; go to screen co-ords 15x12
|
|
|
|
lda #$06
|
|
sta STRINGH
|
|
lda #$37
|
|
sta STRINGL
|
|
|
|
; put the initials up
|
|
|
|
lda HISCORE_1
|
|
ldy #$0
|
|
sta (STRINGL),Y
|
|
|
|
lda HISCORE_2
|
|
iny
|
|
sta (STRINGL),Y
|
|
|
|
lda HISCORE_3
|
|
iny
|
|
sta (STRINGL),Y
|
|
|
|
; Print score to screen
|
|
;
|
|
|
|
lda #$06
|
|
sta STRINGH
|
|
lda #$3D
|
|
sta STRINGL
|
|
|
|
jsr print_high_score
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
jmp opener
|
|
|
|
|
|
|
|
;=========================================================
|
|
; CLICK
|
|
;=========================================================
|
|
|
|
click:
|
|
lda SOUND_ON
|
|
beq no_click
|
|
bit SPEAKER
|
|
no_click:
|
|
rts
|
|
|
|
|
|
|
|
;==========================================================
|
|
; Wait X 100 msec
|
|
;==========================================================
|
|
;
|
|
wait_X_100msec:
|
|
lda #$86 ; constant ~ 100msec
|
|
jsr WAIT
|
|
dex
|
|
bne wait_X_100msec
|
|
rts
|
|
|
|
|
|
|
|
|
|
;==========================================================
|
|
; Update Shields
|
|
;==========================================================
|
|
;
|
|
|
|
update_shields:
|
|
|
|
lda #>shields_string
|
|
sta STRINGH
|
|
lda #<shields_string
|
|
sta STRINGL
|
|
|
|
|
|
ldy #0
|
|
|
|
lda SHIELDS
|
|
bne normal_shields
|
|
|
|
|
|
flash_shields:
|
|
lda #$7f
|
|
and (STRINGL),Y
|
|
sta (STRINGL),Y
|
|
iny
|
|
cpy #$7
|
|
bne flash_shields
|
|
jmp shields_line
|
|
|
|
normal_shields:
|
|
lda #$80
|
|
ora (STRINGL),Y
|
|
sta (STRINGL),Y
|
|
iny
|
|
cpy #$7
|
|
bne normal_shields
|
|
|
|
shields_line:
|
|
|
|
ldy #$A
|
|
ldx #$0
|
|
shield_line_loop:
|
|
|
|
cpx SHIELDS
|
|
bmi shield_box
|
|
lda #'_'+128
|
|
jmp shield_char
|
|
shield_box:
|
|
lda #' '
|
|
shield_char:
|
|
sta (STRINGL),Y
|
|
iny
|
|
iny
|
|
inx
|
|
cpx #$A
|
|
bne shield_line_loop
|
|
|
|
rts
|
|
|
|
|
|
;==========================================================
|
|
; Random Number Generator
|
|
;==========================================================
|
|
; from dlyons@Apple.COM (David A Lyons)
|
|
; posting to comps.sys.apple2 24 November 1992
|
|
; algorithm from Pop Science ~1980s
|
|
; when seeded with non-zero, will generate all 255 values
|
|
; before repeating
|
|
|
|
random_number:
|
|
lda RANDOM_SEED
|
|
bne random_not_zero
|
|
lda #$D
|
|
random_not_zero:
|
|
asl A
|
|
bcc random_num_done
|
|
eor #$87
|
|
random_num_done:
|
|
sta RANDOM_SEED
|
|
rts
|
|
|
|
|
|
|
|
|
|
;==========================================================
|
|
; Wait until keypressed
|
|
;==========================================================
|
|
;
|
|
|
|
wait_until_keypressed:
|
|
inc RANDOM_SEED ; seed random num counter
|
|
lda KEYPRESS ; check if keypressed
|
|
bpl wait_until_keypressed ; if not, loop
|
|
jmp figure_out_key
|
|
|
|
|
|
;==========================================================
|
|
; Get Key
|
|
;==========================================================
|
|
;
|
|
|
|
get_key:
|
|
|
|
|
|
|
|
check_paddle_button:
|
|
|
|
; check for paddle button
|
|
|
|
bit PADDLE_BUTTON0
|
|
bpl no_button
|
|
lda #' '+128
|
|
jmp save_key
|
|
|
|
no_button:
|
|
lda KEYPRESS
|
|
bpl no_key
|
|
|
|
figure_out_key:
|
|
cmp #' '+128 ; the mask destroys space
|
|
beq save_key ; so handle it specially
|
|
|
|
and #$5f ; mask, to make upper-case
|
|
check_right_arrow:
|
|
cmp #$15
|
|
bne check_left_arrow
|
|
lda #'K'
|
|
check_left_arrow:
|
|
cmp #$08
|
|
bne check_up_arrow
|
|
lda #'J'
|
|
check_up_arrow:
|
|
cmp #$0B
|
|
bne check_down_arrow
|
|
lda #'I'
|
|
check_down_arrow:
|
|
cmp #$0A
|
|
bne check_escape
|
|
lda #'M'
|
|
check_escape:
|
|
cmp #$1B
|
|
bne save_key
|
|
lda #'Q'
|
|
jmp save_key
|
|
|
|
no_key:
|
|
|
|
bit PADDLE_STATUS
|
|
bpl no_key_store
|
|
|
|
; check for paddle action
|
|
; code from http://web.pdx.edu/~heiss/technotes/aiie/tn.aiie.06.html
|
|
|
|
inc PADDLE_STATUS
|
|
lda PADDLE_STATUS
|
|
and #$03
|
|
beq check_paddles
|
|
jmp no_key_store
|
|
|
|
check_paddles:
|
|
|
|
lda PADDLE_STATUS
|
|
and #$80
|
|
sta PADDLE_STATUS
|
|
|
|
ldx #$0
|
|
LDA PTRIG ;TRIGGER PADDLES
|
|
LDY #0 ;INIT COUNTER
|
|
NOP ;COMPENSATE FOR 1ST COUNT
|
|
NOP
|
|
PREAD2: LDA PADDL0,X ;COUNT EVERY 11 uSEC.
|
|
BPL RTS2D ;BRANCH WHEN TIMED OUT
|
|
INY ;INCREMENT COUNTER
|
|
BNE PREAD2 ;CONTINUE COUNTING
|
|
DEY ;COUNTER OVERFLOWED
|
|
RTS2D: ;RETURN W/VALUE 0-255
|
|
|
|
cpy #96
|
|
bmi paddle_left
|
|
cpy #160
|
|
bmi no_key_store
|
|
lda #'K'
|
|
jmp save_key
|
|
|
|
paddle_left:
|
|
|
|
lda #'J'
|
|
jmp save_key
|
|
|
|
no_key_store:
|
|
lda #0 ; no key, so save a zero
|
|
|
|
save_key:
|
|
sta LASTKEY ; save the key to our buffer
|
|
bit KEYRESET ; clear the keyboard buffer
|
|
rts
|
|
|
|
|
|
|
|
;==========================================================
|
|
; score_plus_50
|
|
;==========================================================
|
|
;
|
|
score_plus_50:
|
|
|
|
|
|
sed ; enter decimal mode
|
|
clc
|
|
lda SCOREL
|
|
adc #$50
|
|
sta SCOREL ; score+=50
|
|
|
|
lda SCOREH
|
|
adc #$0
|
|
sta SCOREH ; carry into high byte if needed
|
|
|
|
cld ; leave decimal mode
|
|
|
|
jmp print_score
|
|
|
|
;==========================================================
|
|
; inc_score
|
|
;==========================================================
|
|
;
|
|
inc_score:
|
|
|
|
|
|
sed ; enter decimal mode
|
|
clc
|
|
lda SCOREL
|
|
adc #$5
|
|
sta SCOREL ; score+=5
|
|
|
|
lda SCOREH
|
|
adc #$0
|
|
sta SCOREH ; carry into high byte if needed
|
|
|
|
cld ; leave decimal mode
|
|
|
|
|
|
lda SCOREL ; if score /100 =0 then inc shields
|
|
bne print_score
|
|
|
|
lda SHIELDS
|
|
|
|
cmp #$0A ; don't raise shields higher than 10
|
|
bpl print_score
|
|
|
|
inc SHIELDS
|
|
jsr update_shields
|
|
|
|
print_score:
|
|
lda #>(score_string+7)
|
|
sta STRINGH
|
|
lda #<(score_string+7)
|
|
sta STRINGL
|
|
|
|
tya
|
|
pha ; save Y on stack
|
|
|
|
|
|
ldy #$0
|
|
|
|
lda SCOREH
|
|
sta BCD_BYTEH
|
|
|
|
lda SCOREL
|
|
sta BCD_BYTE
|
|
jsr print_bcd_word
|
|
|
|
pla ; restore Y
|
|
tay
|
|
|
|
rts
|
|
|
|
;======================
|
|
; print high_score
|
|
;======================
|
|
; location to output to in STRINGH/STRINGL
|
|
|
|
print_high_score:
|
|
tya
|
|
pha ; save Y on stack
|
|
|
|
ldy #$0
|
|
|
|
lda HISCORE_H
|
|
sta BCD_BYTEH
|
|
|
|
lda HISCORE_L
|
|
sta BCD_BYTE
|
|
jsr print_bcd_word
|
|
|
|
pla ; restore Y
|
|
tay
|
|
|
|
rts
|
|
|
|
;==========================================================
|
|
; print_bcd_word
|
|
;==========================================================
|
|
; string to output in STRINGH/STRINGL
|
|
; byte to output in BCD_BYTE
|
|
|
|
print_bcd_word:
|
|
|
|
|
|
lda BCD_BYTEH
|
|
lsr A
|
|
lsr A
|
|
lsr A
|
|
lsr A
|
|
and #$f ; mask low nybble
|
|
bne to_ascii_thou
|
|
|
|
lda #$A0 ; load a space
|
|
|
|
jmp write_thousands
|
|
to_ascii_thou:
|
|
adc #$B0 ; covert to ascii
|
|
|
|
write_thousands:
|
|
sta (STRINGL),Y ; store output
|
|
|
|
iny
|
|
|
|
lda BCD_BYTEH
|
|
|
|
and #$f
|
|
bne to_ascii_hun
|
|
|
|
cmp BCD_BYTEH
|
|
|
|
bne to_ascii_hun
|
|
|
|
lda #$A0
|
|
jmp write_hundreds
|
|
|
|
to_ascii_hun:
|
|
adc #$B0
|
|
write_hundreds:
|
|
sta (STRINGL),Y
|
|
|
|
iny
|
|
|
|
|
|
print_bcd_byte:
|
|
|
|
lda BCD_BYTE
|
|
lsr A
|
|
lsr A
|
|
lsr A
|
|
lsr A
|
|
and #$f ; mask low nybble
|
|
bne to_ascii_tens ; if not zero, convert to ascii
|
|
|
|
cmp BCD_BYTEH
|
|
|
|
bne to_ascii_tens
|
|
|
|
lda #$A0
|
|
|
|
jmp write_tens
|
|
to_ascii_tens:
|
|
adc #$B0 ; covert to ascii
|
|
|
|
write_tens:
|
|
sta (STRINGL),Y ; store output
|
|
|
|
iny ; point one lower
|
|
|
|
|
|
lda BCD_BYTE
|
|
clc
|
|
and #$f
|
|
adc #$B0
|
|
|
|
sta (STRINGL),Y
|
|
|
|
|
|
rts
|
|
|
|
;==========================================================
|
|
; check inside
|
|
;==========================================================
|
|
; Simple collision detection. Have small line x1<->x2
|
|
; Want to see if it overlaps long line x3<---------->x4
|
|
; so:
|
|
; if ((x1>x3)&&(x1<x4)) || ((x2>x3) && (x2<x4)) inside
|
|
; else outside
|
|
|
|
check_inside:
|
|
|
|
lda COL_X1
|
|
cmp COL_X3
|
|
bmi check_higher
|
|
cmp COL_X4
|
|
bmi inside
|
|
check_higher:
|
|
lda COL_X2
|
|
cmp COL_X3
|
|
bmi outside
|
|
cmp COL_X4
|
|
bpl outside
|
|
|
|
inside:
|
|
sec
|
|
rts
|
|
outside:
|
|
clc
|
|
rts
|
|
|
|
|
|
;==========================================================
|
|
; set_page0_text
|
|
;==========================================================
|
|
;
|
|
set_page0_text:
|
|
bit PAGE0 ; set page0
|
|
bit TEXT ; set text mode
|
|
rts
|
|
|
|
|
|
;==========================================================
|
|
; set_page0_gr
|
|
;==========================================================
|
|
;
|
|
|
|
set_page0_gr:
|
|
lda #4
|
|
sta GR_PAGE
|
|
bit PAGE0 ; set page 0
|
|
bit LORES ; Lo-res graphics
|
|
bit TEXTGR ; mixed gr/text mode
|
|
bit GR ; set graphics
|
|
rts
|
|
|
|
;==========================================================
|
|
; clear bottom
|
|
;==========================================================
|
|
;
|
|
clear_bottom:
|
|
lda #$2
|
|
clc
|
|
adc GR_PAGE
|
|
sta BASH ; point to line 21
|
|
|
|
lda #$50
|
|
sta BASL
|
|
|
|
ldx #$00 ; line counter
|
|
bottom_y:
|
|
lda #' '+128 ; want to put a space
|
|
ldy #$0 ; column count
|
|
bottom_loop:
|
|
sta (BASL),Y ; store a space
|
|
iny ; incrememnt
|
|
cpy #$28 ; are we > 40?
|
|
bmi bottom_loop ; if not, loop
|
|
|
|
lda #$80 ; go to next line [they are $80 apart]
|
|
clc
|
|
adc BASL ; increment base
|
|
sta BASL ; store it out
|
|
lda #$0 ; load 0 into A
|
|
adc BASH ; carry into top byte if need be
|
|
sta BASH ; and store out
|
|
|
|
inx ; increment line count
|
|
cpx #$4 ; have we done 4
|
|
bcc bottom_y ; if not, loop
|
|
|
|
rts
|
|
|
|
|
|
;==========================================================
|
|
; print X strings
|
|
;==========================================================
|
|
;
|
|
;
|
|
print_x_strings:
|
|
stx TEMP
|
|
jsr print_text_xy
|
|
ldx TEMP
|
|
dex
|
|
bne print_x_strings
|
|
rts
|
|
|
|
|
|
;==========================================================
|
|
; Print text x,y
|
|
;==========================================================
|
|
; x=ch y=cv
|
|
; string=string_addr
|
|
|
|
print_text_xy:
|
|
ldy #$0 ; clear IY
|
|
lda (STRINGL),Y ; load x from memory
|
|
sta CH ; store to CH
|
|
iny ; point to next value
|
|
|
|
lda (STRINGL),Y ; load y from memory
|
|
sta CV ; store to CV
|
|
; point to beginning of string
|
|
|
|
clc
|
|
lda #$2
|
|
adc STRINGL
|
|
sta STRINGL
|
|
lda #$0
|
|
adc STRINGH
|
|
sta STRINGH
|
|
|
|
print_text:
|
|
ldy #$0
|
|
lda CV
|
|
jsr BASCALC ; get the address of y in BASH:BASL
|
|
clc ; clear the carry
|
|
lda BASL ; load BASL
|
|
adc CH ; add x
|
|
sta BASL ; store BASL back out
|
|
|
|
output_loop:
|
|
lda (STRINGL),Y ; load char from string_addr+y
|
|
beq print_done ; if null terminated, done
|
|
sta (BASL),Y ; store to BASH:BASL
|
|
iny ; IY++
|
|
jmp output_loop ; loop
|
|
|
|
print_done:
|
|
iny
|
|
tya ; transfer y to accumulator
|
|
|
|
|
|
adc STRINGL ; add y and stringl
|
|
sta STRINGL ; and store it out
|
|
lda #$0 ; clear accumulator
|
|
adc STRINGH ; add with carry from prev stringh
|
|
sta STRINGH ; and save it
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
;==========================================================
|
|
; clear_screen
|
|
;==========================================================
|
|
;
|
|
|
|
clear_screen:
|
|
|
|
ldx #$0
|
|
clear_0:
|
|
cpx #$0
|
|
bne clear_1
|
|
lda GR_PAGE
|
|
sta BASH
|
|
lda #$0
|
|
sta BASL
|
|
ldy #$78
|
|
jmp clear_it
|
|
clear_1:
|
|
cpx #$1
|
|
bne clear_2
|
|
lda #$80
|
|
sta BASL
|
|
ldy #$78
|
|
jmp clear_it
|
|
clear_2:
|
|
cpx #$2
|
|
bne clear_3
|
|
clc
|
|
lda #$1
|
|
adc GR_PAGE
|
|
|
|
sta BASH
|
|
ldy #$78
|
|
jmp clear_it
|
|
clear_3:
|
|
cpx #$3
|
|
bne clear_4
|
|
lda #$0
|
|
sta BASL
|
|
ldy #$78
|
|
jmp clear_it
|
|
clear_4:
|
|
cpx #$4
|
|
bne clear_5
|
|
clc
|
|
lda #$2
|
|
adc GR_PAGE
|
|
sta BASH
|
|
ldy #$50
|
|
jmp clear_it
|
|
clear_5:
|
|
cpx #$5
|
|
bne clear_6
|
|
lda #$80
|
|
sta BASL
|
|
ldy #$50
|
|
jmp clear_it
|
|
clear_6:
|
|
cpx #$6
|
|
bne clear_7
|
|
clc
|
|
lda #$3
|
|
adc GR_PAGE
|
|
sta BASH
|
|
ldy #$50
|
|
jmp clear_it
|
|
clear_7:
|
|
cpx #$7
|
|
bne clear_8
|
|
lda #$0
|
|
sta BASL
|
|
ldy #$50
|
|
jmp clear_it
|
|
clear_8:
|
|
|
|
rts
|
|
|
|
clear_it:
|
|
lda #$00
|
|
clear_loop:
|
|
dey
|
|
|
|
sta (BASL),Y
|
|
|
|
bne clear_loop
|
|
|
|
inx
|
|
jmp clear_0
|
|
|
|
;==========================================================
|
|
; show_stars
|
|
;==========================================================
|
|
;
|
|
|
|
show_stars:
|
|
|
|
|
|
lda #>star_field ; Load the star offsets
|
|
sta STRINGH ; array into
|
|
lda #<star_field ; STRINGH/STRINGL
|
|
sta STRINGL
|
|
|
|
lda BETWEEN_DELAY
|
|
and #$1
|
|
beq star_7
|
|
dec SCROLL ; decrement the scroll count
|
|
|
|
star_7:
|
|
ldy SCROLL ; load the scroll offset into Y
|
|
|
|
|
|
ldx #$8 ; We initially repeat 8 times
|
|
lda #$0 ; And have L of 0
|
|
sta TEMP ; This is stupid interlace stuff
|
|
sta COL_X1
|
|
|
|
star_4:
|
|
lda GR_PAGE ; we loop here, it resets
|
|
sta BASH ; to the proper page
|
|
|
|
star_0:
|
|
|
|
lda (STRINGL),Y ; get star offset
|
|
beq star_5
|
|
pha ; save for later
|
|
|
|
bmi light_star ; check color
|
|
lda #$5
|
|
jmp done_star
|
|
light_star:
|
|
lda #$A
|
|
done_star:
|
|
sta COL_X2 ; save color for later
|
|
|
|
pla ; restore offset
|
|
clc
|
|
and #$7f ; clear color flag
|
|
adc TEMP ; add in offset
|
|
sta BASL ; store as offset
|
|
|
|
tya ; save y on stack
|
|
pha ;
|
|
|
|
lda COL_X2
|
|
ldy #$0
|
|
sta (BASL),Y ; plot star
|
|
|
|
pla ; restore y from stack
|
|
tay
|
|
|
|
star_5:
|
|
iny ; increase y (offset pointer)
|
|
|
|
|
|
|
|
lda (STRINGL),Y ; get star offset
|
|
beq star_6
|
|
pha ; save for later
|
|
|
|
bmi light_star2 ; check color
|
|
lda #$50
|
|
jmp done_star2
|
|
light_star2:
|
|
lda #$A0
|
|
done_star2:
|
|
sta COL_X2 ; save color for later
|
|
|
|
pla ; restore offset
|
|
clc
|
|
and #$7f ; clear color flag
|
|
adc TEMP ; add in offset
|
|
sta BASL ; store as offset
|
|
|
|
tya ; save y on stack
|
|
pha ;
|
|
|
|
lda COL_X2
|
|
ldy #$0
|
|
sta (BASL),Y ; plot star
|
|
|
|
pla ; restore y from stack
|
|
tay
|
|
star_6:
|
|
|
|
iny ; increase y (offset pointer)
|
|
|
|
|
|
|
|
lda TEMP ; get offset
|
|
clc
|
|
adc #$80 ; increment to next line
|
|
sta TEMP ; and save back
|
|
|
|
bcc overflow_line ; if overflow, increase BASH
|
|
inc BASH
|
|
overflow_line:
|
|
|
|
dex ; repeat X times
|
|
bne star_0
|
|
|
|
inc COL_X1 ; check if first time through
|
|
lda #$1
|
|
cmp COL_X1
|
|
star_1:
|
|
bne star_2 ; reload for second 8 lines
|
|
ldx #$8
|
|
lda #$28
|
|
sta TEMP
|
|
jmp star_4
|
|
star_2: ; check if second time through
|
|
lda #$2
|
|
cmp COL_X1
|
|
bne star_3
|
|
ldx #$4 ; reload for another 4 lines
|
|
lda #$50
|
|
sta TEMP
|
|
jmp star_4
|
|
|
|
star_3:
|
|
rts
|
|
|
|
|
|
;==========================================================
|
|
; blit
|
|
;==========================================================
|
|
; x=ch y=cv
|
|
; string=addr of sprite
|
|
; only works on sprites < 256 bytes!!!
|
|
|
|
|
|
blit:
|
|
|
|
ldy #$00 ; clear IY
|
|
|
|
big_blit_loop:
|
|
|
|
lda CV ; Load y
|
|
jsr BASCALC ; we only do 40x20 so just use text mode
|
|
|
|
lda #$4
|
|
bit GR_PAGE
|
|
bne keep_blitting
|
|
clc
|
|
adc BASH
|
|
sta BASH
|
|
|
|
keep_blitting:
|
|
|
|
clc ; clear the carry
|
|
lda BASL ; load BASL
|
|
adc CH ; add x
|
|
sta BASL ; store BASL back out
|
|
bcc blit_loop ; if carry we overflowed
|
|
inc BASH ; add overflow into BASH
|
|
|
|
|
|
|
|
blit_loop:
|
|
lda (STRINGL),Y ; load char from string_addr+y
|
|
beq blit_x_done ; if null terminated, done this row
|
|
sty YSAV ; save IY
|
|
|
|
pha ; save run/color on stack
|
|
jsr SETCOL ; make low/high both col
|
|
; and save in in COLOR
|
|
|
|
pla ; restore run/color
|
|
lsr
|
|
lsr
|
|
lsr
|
|
lsr ; shift A right by 4 to get run-length
|
|
tax ; store in IX
|
|
|
|
ldy #$0 ; clear IY
|
|
lda COLOR ; load back COLOR
|
|
|
|
bne rle_loop ; if not zero, plot it
|
|
skip_color:
|
|
inc BASL ; increment pointer
|
|
dex ; count down IX
|
|
bne skip_color ; and skip ahead
|
|
jmp rle_loop_done ; done
|
|
|
|
|
|
rle_loop:
|
|
sta (BASL),Y ; store our color to the line
|
|
inc BASL ; increment output pointer
|
|
dex ; decrement count
|
|
bne rle_loop ; until done
|
|
|
|
rle_loop_done:
|
|
ldy YSAV ; restore SPRITE pointer
|
|
iny ; IY++
|
|
jmp blit_loop ; loop until row done
|
|
|
|
blit_x_done:
|
|
iny ; point past 0
|
|
lda (STRINGL),Y ; get next
|
|
beq blit_done ; if 0 as well, done with sprite
|
|
inc CV ; otherwise y++
|
|
jmp big_blit_loop ; and loop
|
|
|
|
blit_done:
|
|
rts
|
|
|
|
|
|
;; *********************
|
|
;; BSS
|
|
;; *********************
|
|
.bss
|
|
|
|
start_bss:
|
|
missile_0: .res NUM_MISSILES*3
|
|
enemy_0: .res NUM_ENEMIES*9
|
|
|
|
|
|
|
|
end_bss:
|
|
|
|
star_field: .res 255
|
|
zero_page_save: .res 56
|
|
|
|
|
|
;; *********************
|
|
;; DATA
|
|
;; *********************
|
|
.data
|
|
|
|
|
|
; SHIELDS: plus 22 spaces (30 total)
|
|
shields_string:
|
|
.byte $D3,$C8,$C9,$C5,$CC,$C4,$D3,$BA
|
|
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
|
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
|
.byte $A0,$A0
|
|
|
|
; SCORE and HISCORE: (38 Total)
|
|
score_string:
|
|
.byte $D3,$C3,$CF,$D2,$C5,$BA,$A0,$A0,$A0,$A0
|
|
.byte $A0
|
|
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
|
|
.byte $C8,$C9,$D3,$C3,$CF,$D2,$C5,$BA,$A0,$A0,$A0,$A0
|
|
.byte $B5,$B0,$B0,$A0,$A0,$A0
|
|
|
|
|
|
; LEVEL:
|
|
level_string_xy:
|
|
.byte $0E,$0A
|
|
level_string:
|
|
.byte $CC,$C5,$D6,$C5,$CC,$BA,$A0,$A0,$A0,$A0,$B1,$A0,$00
|
|
|
|
|
|
|
|
|
|
; A VMW SOFTWARE PRODUCTION
|
|
vmw_string: .byte $07,$14
|
|
.byte $C1,$A0,$D6,$CD,$D7,$A0,$D3,$CF,$C6,$D4,$D7,$C1,$D2
|
|
.byte $C5,$A0,$D0,$D2,$CF,$C4,$D5,$C3,$D4,$C9,$CF,$CE,$00
|
|
|
|
; MERCILESS MARAUDING MALICIOUS MARKETERS
|
|
mercy_string: .byte $00,$14
|
|
.byte $CD,$C5,$D2,$C3,$C9,$CC,$C5,$D3,$D3,$A0,$CD,$C1,$D2
|
|
.byte $C1,$D5,$C4,$C9,$CE,$C7,$A0,$CD,$C1,$CC,$C9,$C3,$C9
|
|
.byte $CF,$D5,$D3,$A0,$CD,$C1,$D2,$CB,$C5,$D4,$C5,$D2,$D3
|
|
.byte $00
|
|
|
|
; GAME OVER
|
|
game_over_string:
|
|
.byte $0F,$0A
|
|
.byte $C7,$C1,$CD,$C5,$A0,$CF,$D6,$C5,$D2,$00
|
|
|
|
; NEW GAME
|
|
new_game_string: .byte $CE,$C5,$D7,$A0,$C7,$C1,$CD,$C5,$00
|
|
; ABOUT
|
|
about_string: .byte $C1,$C2,$CF,$D5,$D4,$00
|
|
; STORY
|
|
story_string: .byte $D3,$D4,$CF,$D2,$D9,$00
|
|
; HISCORE
|
|
hiscore_string: .byte $C8,$C9,$A0,$D3,$C3,$CF,$D2,$C5,$00
|
|
; QUIT
|
|
quit_string: .byte $D1,$D5,$C9,$D4,$00
|
|
; H FOR HELP
|
|
help_string: .byte $0,$14
|
|
.byte $C8,$A0,$C6,$CF,$D2,$A0,$C8,$C5,$CC,$D0,$00
|
|
; QUIT? ARE YOU SURE?
|
|
quit_conf_string: .byte $D1,$D5,$C9,$D4,$BF,$A0,$C1,$D2,$C5,$A0,$D9,$CF,$D5
|
|
.byte $A0,$D3,$D5,$D2,$C5,$BF,$00
|
|
; YES
|
|
yes_string: .byte $D9,$C5,$D3,$00
|
|
; NO
|
|
no_string: .byte $CE,$CF,$00
|
|
|
|
|
|
about_lines:
|
|
; TOM BOMBEM BY VINCE WEAVER (PIC ABOVE)
|
|
.byte $0,$14
|
|
.byte $D4,$CF,$CD,$A0,$C2,$CF,$CD,$C2,$C5,$CD
|
|
.byte $A0,$A0,$C2,$D9,$A0,$D6,$C9,$CE,$C3,$C5
|
|
.byte $A0,$D7,$C5,$C1,$D6,$C5,$D2,$A0,$A8,$D0
|
|
.byte $C9,$C3,$A0,$C1,$C2,$CF,$D6,$C5,$A9,$00
|
|
|
|
; BASED ON LINUX TB_ASM - APPLE II FOREVER
|
|
.byte $0,$16
|
|
.byte $C2,$C1,$D3,$C5,$C4,$A0,$CF,$CE,$A0,$CC
|
|
.byte $C9,$CE,$D5,$D8,$A0,$D4,$C2,$DF,$C1,$D3
|
|
.byte $CD,$A0,$AD,$A0,$C1,$D0,$D0,$CC,$C5,$A0
|
|
.byte $C9,$C9,$A0,$C6,$CF,$D2,$C5,$D6,$C5,$D2,$00
|
|
|
|
; VINCE@DEATER.NET
|
|
.byte $0,$16
|
|
.byte $D6,$C9,$CE,$C3,$C5,$C0,$C4,$C5,$C1,$D4
|
|
.byte $C5,$D2,$AE,$CE,$C5,$D4,$00
|
|
|
|
; HTTP://WWW.DEATER.NET/WEAVE/VMWPROD/TB1/
|
|
.byte $0,$17
|
|
.byte $C8,$D4,$D4,$D0,$BA,$AF,$AF,$D7,$D7,$D7
|
|
.byte $AE,$C4,$C5,$C1,$D4,$C5,$D2,$AE,$CE,$C5
|
|
.byte $D4,$AF,$D7,$C5,$C1,$D6,$C5,$AF,$D6,$CD
|
|
.byte $D7,$D0,$D2,$CF,$C4,$AF,$D4,$C2,$B1,$AF,$00
|
|
|
|
ending_lines:
|
|
; *** MESSAGE FROM EARTH ***
|
|
.byte $7,$14
|
|
.byte $AA,$AA,$AA,$A0,$CD,$C5,$D3,$D3,$C1,$C7
|
|
.byte $C5,$A0,$C6,$D2,$CF,$CD,$A0,$C5,$C1,$D2
|
|
.byte $D4,$C8,$A0,$AA,$AA,$AA,$00
|
|
|
|
; CONGRATULATIONS TOM, YOU'VE DESTROYED
|
|
.byte $0,$16
|
|
.byte $C3,$CF,$CE,$C7,$D2,$C1,$D4,$D5,$CC,$C1
|
|
.byte $D4,$C9,$CF,$CE,$D3,$A0,$D4,$CF,$CD,$AC
|
|
.byte $A0,$D9,$CF,$D5,$A7,$D6,$C5,$A0,$C4,$C5
|
|
.byte $D3,$D4,$D2,$CF,$D9,$C5,$C4,$00
|
|
|
|
; THE MENACE!
|
|
.byte $2,$17
|
|
.byte $D4,$C8,$C5,$A0,$CD,$C5,$CE,$C1,$C3,$C5
|
|
.byte $A1,$00
|
|
|
|
; BUT WAIT! SENSORS ARE DETECTING NEW
|
|
.byte $0,$14
|
|
.byte $C2,$D5,$D4,$A0,$D7,$C1,$C9,$D4,$A1,$A0
|
|
.byte $A0,$D3,$C5,$CE,$D3,$CF,$D2,$D3,$A0,$C1
|
|
.byte $D2,$C5,$A0,$C4,$C5,$D4,$C5,$C3,$D4,$C9
|
|
.byte $CE,$C7,$A0,$CE,$C5,$D7,$00
|
|
|
|
; INCOMING TARGETS.
|
|
.byte $2,$15
|
|
.byte $C9,$CE,$C3,$CF,$CD,$C9,$CE,$C7,$A0,$D4
|
|
.byte $C1,$D2,$C7,$C5,$D4,$D3,$AE,$00
|
|
|
|
; REMEMBER, YOU DON'T GET PAID UNTIL ALL
|
|
.byte $0,$16
|
|
.byte $D2,$C5,$CD,$C5,$CD,$C2,$C5,$D2,$AC,$A0
|
|
.byte $D9,$CF,$D5,$A0,$C4,$CF,$CE,$A7,$D4,$A0
|
|
.byte $C7,$C5,$D4,$A0,$D0,$C1,$C9,$C4,$A0,$D5
|
|
.byte $CE,$D4,$C9,$CC,$A0,$C1,$CC,$CC,$00
|
|
|
|
; ARE DESTROYED
|
|
.byte $2,$17
|
|
.byte $C1,$D2,$C5,$A0,$C4,$C5,$D3,$D4,$D2,$CF
|
|
.byte $D9,$C5,$C4,$00
|
|
|
|
susie_lines:
|
|
; PS. YOUR PET GUINEA PIG IS DOING FINE
|
|
.byte $0,$14
|
|
.byte $D0,$D3,$AE,$A0,$A0,$D9,$CF,$D5,$D2,$A0
|
|
.byte $D0,$C5,$D4,$A0,$C7,$D5,$C9,$CE,$C5,$C1
|
|
.byte $A0,$D0,$C9,$C7,$A0,$C9,$D3,$A0,$C4,$CF
|
|
.byte $C9,$CE,$C7,$A0,$C6,$C9,$CE,$C5,$00
|
|
|
|
tom_sigh:
|
|
; TOM: *SIGH*
|
|
.byte $0,$14
|
|
.byte $D4,$CF,$CD,$BA,$A0,$AA,$D3,$C9,$C7,$C8,$AA,$00
|
|
|
|
story_lines:
|
|
|
|
; IT IS THE YEAR 2025.
|
|
.byte $0,$14
|
|
.byte $C9,$D4,$A0,$C9,$D3,$A0,$D4,$C8,$C5,$A0
|
|
.byte $D9,$C5,$C1,$D2,$A0,$B2,$B0,$B2,$B5,$AE,$00
|
|
|
|
; ALL TELEMARKETERS AND UNSOLICITED
|
|
|
|
.byte $2,$15
|
|
.byte $C1,$CC,$CC,$A0,$D4,$C5,$CC,$C5,$CD,$C1
|
|
.byte $D2,$CB,$C5,$D4,$C5,$D2,$D3,$A0,$C1,$CE
|
|
.byte $C4,$A0,$D5,$CE,$D3,$CF,$CC,$C9,$C3,$C9
|
|
.byte $D4,$C5,$C4,$00
|
|
|
|
; BULK E-MAILERS HAVE BEEN EXILED
|
|
.byte $4,$16
|
|
.byte $C2,$D5,$CC,$CB,$A0,$C5,$AD,$CD,$C1,$C9
|
|
.byte $CC,$C5,$D2,$D3,$A0,$C8,$C1,$D6,$C5,$A0
|
|
.byte $C2,$C5,$C5,$CE,$A0,$C5,$D8,$C9,$CC,$C5
|
|
.byte $C4,$00
|
|
|
|
; TO PHOBOS.
|
|
.byte $6,$17
|
|
.byte $D4,$CF,$A0,$D0,$C8,$CF,$C2,$CF,$D3,$AE,$00
|
|
|
|
; RIGHT BEFORE BEING TRAPPED FOREVER
|
|
.byte $0,$14
|
|
.byte $D2,$C9,$C7,$C8,$D4,$A0,$C2,$C5,$C6,$CF
|
|
.byte $D2,$C5,$A0,$C2,$C5,$C9,$CE,$C7,$A0,$D4
|
|
.byte $D2,$C1,$D0,$D0,$C5,$C4,$A0,$C6,$CF,$D2
|
|
.byte $C5,$D6,$C5,$D2,$00
|
|
|
|
; THEY MANAGE TO LAUNCH ONE LAST
|
|
.byte $2,$15
|
|
.byte $D4,$C8,$C5,$D9,$A0,$CD,$C1,$CE,$C1,$C7
|
|
.byte $C5,$A0,$D4,$CF,$A0,$CC,$C1,$D5,$CE,$C3
|
|
.byte $C8,$A0,$CF,$CE,$C5,$A0,$CC,$C1,$D3,$D4,$00
|
|
|
|
; MARKETING DROID.
|
|
.byte $4,$16
|
|
.byte $CD,$C1,$D2,$CB,$C5,$D4,$C9,$CE,$C7,$A0
|
|
.byte $C4,$D2,$CF,$C9,$C4,$AE,$00
|
|
|
|
help_lines:
|
|
; TOM BOMBEM
|
|
.byte $A,$0
|
|
.byte $D4,$CF,$CD,$A0,$C2,$CF,$CD,$C2,$C5,$CD,$00
|
|
; BY
|
|
.byte $E,$1
|
|
.byte $C2,$D9,$00
|
|
; VINCE WEAVER
|
|
.byte $9,$2
|
|
.byte $D6,$C9,$CE,$C3,$C5,$A0,$D7,$C5,$C1,$D6
|
|
.byte $C5,$D2,$00
|
|
; KEY BINDINGS:
|
|
.byte $0,$4
|
|
.byte $CB,$C5,$D9,$A0,$C2,$C9,$CE,$C4,$C9,$CE
|
|
.byte $C7,$D3,$BA,$00
|
|
; UP OR 'I' : MOVE MENU UP
|
|
.byte $2,$6
|
|
.byte $D5,$D0,$A0,$CF,$D2,$A0,$A7,$C9,$A7,$A0
|
|
.byte $A0,$A0,$A0,$BA,$A0,$CD,$CF,$D6,$C5,$A0
|
|
.byte $CD,$C5,$CE,$D5,$A0,$D5,$D0,$00
|
|
; DOWN OR 'M' : MOVE MENU DOWN
|
|
.byte $2,$7
|
|
.byte $C4,$CF,$D7,$CE,$A0,$CF,$D2,$A0,$A7,$CD
|
|
.byte $A7,$A0,$A0,$BA,$A0,$CD,$CF,$D6,$C5,$A0
|
|
.byte $CD,$C5,$CE,$D5,$A0,$C4,$CF,$D7,$CE,$00
|
|
; ENTER : SELECTS CURRENT OPTION
|
|
.byte $2,$8
|
|
.byte $C5,$CE,$D4,$C5,$D2,$00
|
|
.byte $F,$8
|
|
.byte $BA,$A0,$D3,$C5,$CC,$C5,$C3,$D4,$D3,$A0
|
|
.byte $C3,$D5,$D2,$D2,$C5,$CE,$D4,$A0,$CF,$D0
|
|
.byte $D4,$C9,$CF,$CE,$00
|
|
; RIGHT OR 'K' : MOVES SHIP RIGHT
|
|
.byte $2,$A
|
|
.byte $D2,$C9,$C7,$C8,$D4,$A0,$CF,$D2,$A0,$A7
|
|
.byte $CB,$A7,$A0,$BA,$A0,$CD,$CF,$D6,$C5,$D3
|
|
.byte $A0,$D3,$C8,$C9,$D0,$A0,$D2,$C9,$C7,$C8
|
|
.byte $D4,$00
|
|
; LEFT OR 'J' : MOVES SHIP LEFT
|
|
.byte $2,$B
|
|
.byte $CC,$C5,$C6,$D4,$A0,$CF,$D2,$A0,$A7,$CA
|
|
.byte $A7,$A0,$A0,$BA,$A0,$CD,$CF,$D6,$C5,$D3
|
|
.byte $A0,$D3,$C8,$C9,$D0,$A0,$CC,$C5,$C6,$D4,$00
|
|
; SPACEBAR : SHOOTS
|
|
.byte $2,$C
|
|
.byte $D3,$D0,$C1,$C3,$C5,$C2,$C1,$D2,$A0,$A0
|
|
.byte $A0,$A0,$A0,$BA,$A0,$D3,$C8,$CF,$CF,$D4
|
|
.byte $D3,$00
|
|
; 'H' : DISPLAYS HELP
|
|
.byte $2,$E
|
|
.byte $A7,$C8,$A7,$00
|
|
.byte $F,$E
|
|
.byte $BA,$A0,$C4,$C9,$D3,$D0,$CC,$C1,$D9,$D3
|
|
.byte $A0,$C8,$C5,$CC,$D0,$00
|
|
; ESC OR 'Q' : QUITS
|
|
.byte $2,$F
|
|
.byte $C5,$D3,$C3,$A0,$CF,$D2,$A0,$A7,$D1,$A7
|
|
.byte $A0,$A0,$A0,$BA,$A0,$D1,$D5,$C9,$D4,$D3,$00
|
|
; 'P' : PAUSES
|
|
.byte $2,$10
|
|
.byte $A7,$D0,$A7,$00
|
|
.byte $F,$10
|
|
.byte $BA,$A0,$D0,$C1,$D5,$D3,$C5,$D3,$00
|
|
; 'S' : TOGGLES SOUND
|
|
.byte $2,$11
|
|
.byte $A7,$D3,$A7,$00
|
|
.byte $F,$11
|
|
.byte $BA,$A0,$D4,$CF,$C7,$C7,$CC,$C5,$D3,$A0
|
|
.byte $D3,$CF,$D5,$CE,$C4,$00
|
|
; 'C' : ENABLES PADDLES
|
|
.byte $2,$12
|
|
.byte $A7,$C3,$A7,$00
|
|
.byte $F,$12
|
|
.byte $BA,$A0,$C5,$CE,$C1,$C2,$CC,$C5,$D3,$A0
|
|
.byte $D0,$C1,$C4,$C4,$CC,$C5,$D3,$00
|
|
|
|
|
|
you_are_tom:
|
|
; YOU ARE TOM BOMBEM.
|
|
.byte $0,$14
|
|
.byte $D9,$CF,$D5,$A0,$C1,$D2,$C5,$A0,$D4,$CF
|
|
.byte $CD,$A0,$C2,$CF,$CD,$C2,$C5,$CD,$AE,$00
|
|
|
|
; YOU DREW THE SHORT STRAW
|
|
.byte $1,$15
|
|
.byte $D9,$CF,$D5,$A0,$C4,$D2,$C5,$D7,$A0,$D4
|
|
.byte $C8,$C5,$A0,$D3,$C8,$CF,$D2,$D4,$A0,$D3
|
|
.byte $D4,$D2,$C1,$D7,$00
|
|
|
|
; IT IS UP TO YOU TO DESTROY THE EVIL
|
|
.byte $2,$16
|
|
.byte $C9,$D4,$A0,$C9,$D3,$A0,$D5,$D0,$A0,$D4
|
|
.byte $CF,$A0,$D9,$CF,$D5,$A0,$D4,$CF,$A0,$C4
|
|
.byte $C5,$D3,$D4,$D2,$CF,$D9,$A0,$D4,$C8,$C5
|
|
.byte $A0,$C5,$D6,$C9,$CC,$00
|
|
|
|
; AND RESTORE PEACE TO THE SOL SYSTEM.
|
|
.byte $3,$17
|
|
.byte $C1,$CE,$C4,$A0,$D2,$C5,$D3,$D4,$CF,$D2
|
|
.byte $C5,$A0,$D0,$C5,$C1,$C3,$C5,$A0,$D4,$CF
|
|
.byte $A0,$D4,$C8,$C5,$A0,$D3,$CF,$CC,$A0,$D3
|
|
.byte $D9,$D3,$D4,$C5,$CD,$AE,$00
|
|
|
|
|
|
bonus_string:
|
|
; BONUS POINTS
|
|
.byte $E,$0
|
|
.byte $C2,$CF,$CE,$D5,$D3,$A0,$D0,$CF,$C9,$CE
|
|
.byte $D4,$D3,$00
|
|
|
|
no_bonus_string:
|
|
; NONE
|
|
.byte $12,$2
|
|
.byte $CE,$CF,$CE,$C5,$00
|
|
|
|
bonus_shields:
|
|
; PERFECT SHIELDS +50
|
|
.byte $9,$2
|
|
.byte $D0,$C5,$D2,$C6,$C5,$C3,$D4,$A0,$D3,$C8
|
|
.byte $C9,$C5,$CC,$C4,$D3,$A0,$A0,$A0,$AB,$B5
|
|
.byte $B0,$00
|
|
|
|
bonus_aim:
|
|
; PERFECT AIM +50
|
|
.byte $9,$3
|
|
.byte $D0,$C5,$D2,$C6,$C5,$C3,$D4,$A0,$C1,$C9
|
|
.byte $CD,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$AB,$B5
|
|
.byte $B0,$00
|
|
|
|
bonus_kills:
|
|
; PERFECT KILLS +50
|
|
.byte $9,$4
|
|
.byte $D0,$C5,$D2,$C6,$C5,$C3,$D4,$A0,$CB,$C9
|
|
.byte $CC,$CC,$D3,$A0,$A0,$A0,$A0,$A0,$AB,$B5
|
|
.byte $B0,$00
|
|
|
|
|
|
high_score_string:
|
|
; HIGH SCORE
|
|
.byte $F,$A
|
|
.byte $C8,$C9,$C7,$C8,$A0,$D3,$C3,$CF,$D2,$C5,$00
|
|
|
|
new_high_score_string:
|
|
; NEW HIGH SCORE
|
|
.byte $D,$0
|
|
.byte $CE,$C5,$D7,$A0,$C8,$C9,$C7,$C8,$A0,$D3
|
|
.byte $C3,$CF,$D2,$C5,$00
|
|
|
|
; USE ARROWS TO ENTER INITIALS
|
|
.byte $6,$2
|
|
.byte $D5,$D3,$C5,$A0,$C1,$D2,$D2,$CF,$D7,$D3
|
|
.byte $A0,$D4,$CF,$A0,$C5,$CE,$D4,$C5,$D2,$A0
|
|
.byte $C9,$CE,$C9,$D4,$C9,$C1,$CC,$D3,$00
|
|
|
|
|
|
vmw_sprite:
|
|
.byte $71,$14,$72,$14,$72,$00
|
|
.byte $71,$14,$72,$14,$72,$00
|
|
.byte $10,$51,$34,$52,$34,$52,$00
|
|
.byte $10,$51,$34,$52,$34,$52,$00
|
|
.byte $20,$31,$54,$32,$54,$32,$00
|
|
.byte $20,$31,$54,$32,$54,$32,$00
|
|
.byte $30,$11,$74,$12,$74,$12,$00
|
|
.byte $30,$11,$74,$12,$74,$12,$00
|
|
.byte $00
|
|
opener_sprite:
|
|
.byte $36,$10,$36,$10,$16,$30,$16,$10,$29,$20,$39,$10,$19,$30,$19,$10,$29,$20,$29,$10,$19,$30,$19,$00
|
|
.byte $10,$16,$20,$16,$10,$16,$10,$26,$10,$26,$10,$19,$10,$19,$10,$19,$10,$19,$10,$29,$10,$29,$10,$19,$10,$19,$10,$19,$20,$29,$10,$29,$00
|
|
.byte $10,$16,$20,$16,$10,$16,$10,$16,$10,$16,$10,$16,$10,$29,$20,$19,$10,$19,$10,$19,$10,$19,$10,$19,$10,$29,$20,$29,$10,$19,$10,$19,$10,$19,$00
|
|
.byte $10,$16,$20,$16,$10,$16,$10,$16,$30,$16,$10,$19,$10,$19,$10,$19,$10,$19,$10,$19,$30,$19,$10,$19,$10,$19,$10,$19,$20,$19,$30,$19,$00
|
|
.byte $10,$16,$20,$36,$10,$16,$30,$16,$10,$29,$20,$39,$10,$19,$30,$19,$10,$29,$20,$29,$10,$19,$30,$19,$00
|
|
.byte $F0,$F0,$00
|
|
.byte $F0,$A0,$1A,$A0,$1A,$00
|
|
.byte $30,$1A,$70,$1F,$F0,$40,$15,$00
|
|
.byte $F0,$F0,$00
|
|
.byte $50,$1A,$A0,$15,$C0,$1F,$00
|
|
.byte $00
|
|
opener_sprite_2:
|
|
.byte $50,$2A,$F0,$1A,$D0,$1E,$00
|
|
.byte $10,$1D,$30,$3A,$F0,$E0,$1E,$21,$00
|
|
.byte $10,$3D,$16,$8F,$36,$F0,$60,$1E,$29,$00
|
|
.byte $2D,$11,$19,$16,$1F,$11,$14,$16,$14,$16,$2F,$46,$F0,$40,$1E,$10,$29,$00
|
|
.byte $10,$2D,$19,$16,$1F,$11,$14,$16,$14,$16,$2F,$56,$60,$11,$D0,$29,$00
|
|
.byte $30,$1D,$16,$8A,$6F,$40,$1D,$4A,$A0,$29,$00
|
|
.byte $F0,$90,$11,$80,$1F,$40,$21,$00
|
|
.byte $40,$15,$50,$1A,$F0,$00
|
|
.byte $10,$1F,$F0,$1F,$90,$15,$00
|
|
.byte $F0,$F0,$80,$1A,$00
|
|
.byte $00
|
|
|
|
vince_sprite:
|
|
.byte $20,$15,$8F,$15,$00
|
|
.byte $10,$15,$1A,$4F,$1A,$4F,$2A,$00
|
|
.byte $15,$5A,$15,$1A,$1F,$2A,$3F,$1A,$00
|
|
.byte $1A,$15,$10,$15,$3A,$8F,$15,$00
|
|
.byte $1A,$10,$15,$CF,$1A,$00
|
|
.byte $15,$10,$1A,$7F,$1A,$1F,$2A,$25,$00
|
|
.byte $25,$9F,$25,$10,$15,$1A,$00
|
|
.byte $15,$1A,$4F,$1A,$3F,$1A,$10,$15,$10,$15,$1A,$00
|
|
.byte $1A,$25,$1A,$1F,$15,$10,$15,$1A,$1F,$1A,$40,$15,$00
|
|
.byte $10,$1A,$10,$15,$1F,$20,$15,$10,$15,$1F,$15,$30,$15,$00
|
|
.byte $10,$1A,$15,$1A,$1F,$15,$20,$1A,$2F,$1A,$30,$1A,$00
|
|
.byte $10,$1F,$15,$3F,$2A,$4F,$30,$1A,$00
|
|
.byte $10,$1F,$1A,$25,$1A,$5F,$35,$2A,$00
|
|
.byte $10,$2F,$15,$10,$1A,$4F,$1A,$10,$3A,$00
|
|
.byte $10,$2F,$1A,$15,$2A,$3F,$1A,$10,$2A,$15,$00
|
|
.byte $10,$2A,$10,$15,$20,$2A,$20,$1F,$15,$1A,$00
|
|
.byte $10,$15,$2F,$15,$2F,$1A,$20,$15,$2A,$15,$00
|
|
.byte $20,$1F,$3A,$1F,$2A,$25,$1F,$1A,$00
|
|
.byte $20,$1A,$4F,$25,$10,$15,$1F,$15,$00
|
|
.byte $30,$25,$50,$1A,$1F,$15,$00
|
|
.byte $00
|
|
|
|
phobos_sprite:
|
|
.byte $F0,$30,$1A,$F0,$00
|
|
.byte $F0,$F0,$60,$1F,$00
|
|
.byte $F0,$F0,$00
|
|
.byte $50,$1A,$4F,$F0,$00
|
|
.byte $40,$11,$69,$E0,$1F,$00
|
|
.byte $30,$11,$59,$11,$29,$F0,$00
|
|
.byte $30,$11,$89,$F0,$00
|
|
.byte $30,$11,$39,$11,$49,$50,$15,$18,$F0,$00
|
|
.byte $30,$11,$89,$50,$18,$F0,$00
|
|
.byte $30,$11,$59,$11,$29,$F0,$40,$1F,$00
|
|
.byte $40,$11,$69,$F0,$1A,$00
|
|
.byte $50,$1A,$4F,$F0,$00
|
|
.byte $F0,$F0,$00
|
|
.byte $F0,$F0,$00
|
|
.byte $30,$1F,$D0,$1A,$C0,$1A,$00
|
|
.byte $00
|
|
evil_ship_sprite:
|
|
.byte $17,$1E,$17,$00
|
|
.byte $00
|
|
|
|
|
|
tom_sprite:
|
|
.byte $20,$62,$46,$00
|
|
.byte $20,$22,$40,$25,$26,$00
|
|
.byte $20,$22,$40,$25,$26,$00
|
|
.byte $20,$22,$40,$25,$26,$00
|
|
.byte $20,$22,$40,$25,$26,$00
|
|
.byte $40,$42,$26,$00
|
|
.byte $82,$86,$00
|
|
.byte $22,$26,$42,$26,$29,$22,$26,$00
|
|
.byte $22,$26,$42,$46,$22,$26,$00
|
|
.byte $22,$26,$42,$46,$22,$26,$00
|
|
.byte $22,$26,$42,$46,$22,$26,$00
|
|
.byte $22,$26,$42,$46,$22,$26,$00
|
|
.byte $27,$2E,$22,$26,$22,$26,$27,$2E,$00
|
|
.byte $40,$22,$26,$22,$26,$00
|
|
.byte $40,$22,$26,$22,$26,$00
|
|
.byte $40,$22,$26,$22,$26,$00
|
|
.byte $40,$27,$2E,$27,$2E,$00
|
|
.byte $40,$25,$2A,$25,$2A,$00
|
|
.byte $00
|
|
|
|
ship_sprite:
|
|
.byte $20,$36,$00
|
|
.byte $10,$1A,$3F,$1A,$00
|
|
.byte $2A,$1F,$1A,$1F,$2A,$00
|
|
.byte $30,$1D,$00
|
|
.byte $00
|
|
|
|
missile_sprite:
|
|
.byte $1A,$00
|
|
.byte $1A,$00
|
|
.byte $1D,$00
|
|
.byte $00
|
|
|
|
enemy_sprites:
|
|
enemy_sprite0:
|
|
.byte $2F,$11,$00
|
|
.byte $3F,$00
|
|
.byte $00,$00,$00
|
|
enemy_sprite1:
|
|
.byte $16,$10,$16,$00
|
|
.byte $10,$16,$00
|
|
.byte $00
|
|
enemy_sprite2:
|
|
.byte $17,$28,$00
|
|
.byte $17,$28,$00
|
|
.byte $00,$00
|
|
enemy_sprite3:
|
|
.byte $10,$1D,$00
|
|
.byte $1D,$10,$1D,$00
|
|
.byte $00
|
|
enemy_sprite4:
|
|
.byte $19,$2F,$00
|
|
.byte $19,$2A,$00
|
|
.byte $00,$00
|
|
enemy_sprite5:
|
|
.byte $14,$1C,$14,$00
|
|
.byte $34,$00
|
|
; .byte $14,$1C,$14,$00
|
|
.byte $00,$00
|
|
enemy_sprite6:
|
|
.byte $1F,$20,$00
|
|
.byte $3C,$00
|
|
.byte $00,$00,$00
|
|
enemy_sprite7:
|
|
.byte $33,$00
|
|
.byte $13,$10,$13,$00
|
|
.byte $00,$00
|
|
|
|
explosion_sprites:
|
|
explosion_sprite0:
|
|
.byte $2D,$19,$00
|
|
.byte $19,$1D,$15,$00
|
|
.byte $00
|
|
explosion_sprite1:
|
|
.byte $2A,$11,$00
|
|
.byte $11,$1A,$00
|
|
.byte $00,$00
|
|
explosion_sprite2:
|
|
.byte $25,$00
|
|
.byte $10,$25,$00
|
|
.byte $00
|
|
|
|
smoke_sprites:
|
|
smoke_sprite0:
|
|
.byte $10,$15,$00
|
|
.byte $00
|
|
smoke_sprite1:
|
|
.byte $25,$1A,$00
|
|
.byte $00
|
|
smoke_sprite2:
|
|
.byte $2A,$11,$00
|
|
.byte $00
|
|
|
|
boss_sprite:
|
|
.byte $1F,$1A,$11,$79,$11,$1A,$1F,$00
|
|
.byte $1F,$15,$1A,$21,$17,$1E,$17,$21,$1A,$15,$1F,$00
|
|
.byte $1F,$10,$15,$1A,$17,$1E,$1D,$1E,$17,$1A,$15,$10,$1F,$00
|
|
.byte $00
|
|
|
|
laser_sprites:
|
|
laser_sprite0:
|
|
.byte $1B,$00
|
|
.byte $13,$00
|
|
.byte $00
|
|
laser_sprite1:
|
|
.byte $13,$00
|
|
.byte $1B,$00
|
|
.byte $00
|
|
|
|
tom_head_sprite:
|
|
.byte $10,$32,$26,$00
|
|
.byte $10,$12,$20,$15,$16,$00
|
|
.byte $10,$12,$20,$15,$16,$00
|
|
.byte $10,$12,$20,$15,$16,$00
|
|
.byte $10,$12,$20,$15,$16,$00
|
|
.byte $20,$22,$16,$00
|
|
.byte $42,$36,$00
|
|
.byte $00
|
|
|
|
earth_sprite:
|
|
.byte $10,$1A,$2F,$00
|
|
.byte $14,$2C,$26,$00
|
|
.byte $12,$1C,$36,$00
|
|
.byte $12,$16,$2C,$16,$00
|
|
.byte $12,$16,$1C,$26,$00
|
|
.byte $10,$1A,$2F,$00
|
|
.byte $00
|
|
|
|
susie_sprite:
|
|
.byte $BA,$15,$10,$2F,$10,$3A,$00
|
|
.byte $2A,$90,$15,$20,$15,$20,$2A,$00
|
|
.byte $1A,$F0,$20,$1A,$00
|
|
.byte $1A,$F0,$20,$1A,$00
|
|
.byte $1A,$F0,$3A,$00
|
|
.byte $2A,$C0,$5A,$00
|
|
.byte $4A,$35,$5A,$35,$4A,$00
|