initial commit

over.asm

@@ -0,0 +1,56 @@
+; -----------------------------------------------------------
+; over.asm - game over screen: big red GAME OVER, fire
+; restarts with a fresh maze, the m key backs out to the menu
+; -----------------------------------------------------------
+
+lose_init:
+    jsr clear_screen
+
+    +prbig 3, 2, RED, txt_gameover, 9
+
+    +prtext 11, 10, WHITE, txt_caught, txt_caughte-txt_caught
+
+    +prtext 21, 13, LGREY, txt_mmenu, txt_mmenue-txt_mmenu
+
+    +setupd lose_update
+    rts
+
+lose_update:
+    ; blink the retry prompt
+    lda framectr
+    and #32
+    bne lu_hide
+    +prtext 19, 12, YELLOW, txt_retry, txt_retrye-txt_retry
+    jmp lu_input
+lu_hide:
+    +prtext 19, 12, YELLOW, txt_blank, txt_retrye-txt_retry
+lu_input:
+    ; fire or space: straight back in with a fresh maze
+    jsr start_edge
+    beq lu_nofire
+    jmp play_init
+lu_nofire:
+    ; the m key: keyboard column 4, row bit 4 (start_edge has
+    ; already returned zero here, so joystick fire is not
+    ; ghosting this row line)
+    lda #$ef
+    sta CIA1_PA
+    lda CIA1_PB
+    and #$10
+    bne lu_done
+    lda #$ff
+    sta CIA1_PA
+    jmp menu_init
+lu_done:
+    lda #$ff
+    sta CIA1_PA
+    rts
+
+; ---- game over texts ----
+txt_gameover: !scr "game over"
+txt_caught:   !scr "the enemies got you"
+txt_caughte:
+txt_retry:    !scr "fire = try again"
+txt_retrye:
+txt_mmenu:    !scr "m = main menu"
+txt_mmenue: