dos33fsprogs/demosplash/starbase.s

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"