117 lines
3.1 KiB
NASM
117 lines
3.1 KiB
NASM
; -----------------------------------------------------------
|
|
; main.asm - LABYRINTH for the C64
|
|
; two-player maze duel: player 1 runs the corridors toward
|
|
; the green diamond exit while dodging the roaming colored
|
|
; enemies; player 2 rides the wall corners with a cursor
|
|
; and fire spins the four wall pieces around it by 90
|
|
; degrees, reshaping the maze under the runner's feet
|
|
;
|
|
; Files:
|
|
; defs.asm - constants, zero page, macros
|
|
; intro.asm - TTG boot logo (ported from rabbitc64)
|
|
; menu.asm - main menu: play / rules / credits
|
|
; rules.asm - how to play
|
|
; controls.asm- joystick + keyboard mappings
|
|
; credits.asm - the crew (content from rabbitc64, new look)
|
|
; play.asm - maze generation + the game itself
|
|
; win.asm - escape screen, returns to the menu
|
|
; over.asm - game over screen with retry
|
|
; common.asm - shared routines, input, RNG, texts
|
|
; sound.asm - single-voice SFX driver
|
|
;
|
|
; Build: acme -f cbm -o labyrinth.prg main.asm
|
|
; -----------------------------------------------------------
|
|
|
|
* = $0801
|
|
|
|
; ---- BASIC stub: 10 SYS 2064 ----
|
|
; so after LOAD"*",8,1 it's enough to type RUN
|
|
!byte $0c, $08 ; address of next line
|
|
!byte $0a, $00 ; line number: 10
|
|
!byte $9e ; SYS token
|
|
!byte $20, $32, $30, $36, $34 ; " 2064"
|
|
!byte $00 ; end of line
|
|
!byte $00, $00 ; end of program
|
|
|
|
* = $0810 ; = 2064 in decimal
|
|
|
|
!src "defs.asm"
|
|
|
|
start:
|
|
sei ; no KERNAL IRQ - raster polling must not jitter
|
|
lda #BLACK
|
|
sta BORDER
|
|
sta BG
|
|
lda #0
|
|
sta SPR_EN ; character-only game: sprites stay off
|
|
sta framectr
|
|
sta fheld
|
|
jsr sfx_init
|
|
|
|
!ifdef AUTOPLAY { ; test builds boot straight into one state
|
|
jsr play_init
|
|
} else {
|
|
!ifdef AUTORULES {
|
|
jsr rules_init
|
|
} else {
|
|
!ifdef AUTOCONTROLS {
|
|
jsr controls_init
|
|
} else {
|
|
!ifdef AUTOCREDITS {
|
|
jsr credits_init
|
|
} else {
|
|
!ifdef AUTOWIN {
|
|
jsr win_init
|
|
} else {
|
|
!ifdef AUTOLOSE {
|
|
jsr lose_init
|
|
} else {
|
|
jsr intro_init ; TTG logo, then the menu
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
; ============================================================
|
|
; main loop - one state update per PAL frame, synced to the
|
|
; raster beam in the lower border
|
|
; ============================================================
|
|
main:
|
|
jsr wait_frame
|
|
inc framectr
|
|
jsr rand8 ; stir the RNG once per frame
|
|
jsr sfx_update ; advance the sound effect
|
|
jsr call_update
|
|
jmp main
|
|
|
|
call_update:
|
|
jmp (updvec) ; each update runs exactly one frame, ends with rts
|
|
|
|
; ---- wait for raster line RAS_SYNC (leave it first, so a
|
|
; fast update cannot run twice in the same frame) ----
|
|
wait_frame:
|
|
lda RASTER
|
|
cmp #RAS_SYNC
|
|
beq wait_frame
|
|
wf_hit:
|
|
lda RASTER
|
|
cmp #RAS_SYNC
|
|
bne wf_hit
|
|
rts
|
|
|
|
; ============================================================
|
|
; the states and everything they share
|
|
; ============================================================
|
|
!src "intro.asm"
|
|
!src "menu.asm"
|
|
!src "rules.asm"
|
|
!src "controls.asm"
|
|
!src "credits.asm"
|
|
!src "play.asm"
|
|
!src "win.asm"
|
|
!src "over.asm"
|
|
!src "common.asm"
|
|
!src "sound.asm"
|