mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
83 lines
1.3 KiB
ArmAsm
83 lines
1.3 KiB
ArmAsm
; starbase
|
|
|
|
starbase:
|
|
|
|
; Initialize some variables
|
|
|
|
lda #<starbase_keypresses
|
|
sta KEYPTRL
|
|
lda #>starbase_keypresses
|
|
sta KEYPTRH
|
|
lda #1
|
|
sta KEY_COUNTDOWN
|
|
|
|
;=======================
|
|
; Run the "intro"
|
|
;=======================
|
|
; just us falling?
|
|
|
|
jsr starbase_init
|
|
|
|
;=========================
|
|
; starbase_new_room
|
|
;=========================
|
|
; enter new room on starbase
|
|
|
|
starbase_new_room:
|
|
lda #0
|
|
sta GAME_OVER
|
|
|
|
jsr starbase_setup_room
|
|
|
|
c4_check_done:
|
|
lda GAME_OVER
|
|
cmp #$ff
|
|
beq quit_starbase
|
|
|
|
;====================
|
|
; go to next level
|
|
l4_defeated:
|
|
lda WHICH_ROOM
|
|
cmp #5
|
|
bne starbase_new_room
|
|
|
|
;===========================
|
|
; quit_starbase
|
|
;===========================
|
|
|
|
quit_starbase:
|
|
|
|
wait_loop:
|
|
; lda KEYPRESS
|
|
; bpl wait_loop
|
|
|
|
bit KEYRESET ; clear strobe
|
|
|
|
rts
|
|
|
|
.include "starbase_action.s"
|
|
.include "gr_hlin.s"
|
|
.include "gr_putsprite.s"
|
|
.include "gr_putsprite_crop.s"
|
|
|
|
.include "starbase_keyboard.s"
|
|
|
|
.include "starbase_astronaut.s"
|
|
.include "starbase_alien.s"
|
|
|
|
.include "starbase_doors.s"
|
|
.include "starbase_charger.s"
|
|
.include "starbase_gun.s"
|
|
.include "starbase_laser.s"
|
|
.include "starbase_shield.s"
|
|
.include "starbase_blast.s"
|
|
.include "starbase_collision.s"
|
|
.include "starbase_friend.s"
|
|
.include "starbase_alien_laser.s"
|
|
|
|
; sprites
|
|
.include "graphics/sprites/astronaut.inc"
|
|
.include "graphics/sprites/alien.inc"
|
|
|
|
|