dos33fsprogs/games/lemm/lemm.s

376 lines
7.1 KiB
ArmAsm
Raw Normal View History

2022-03-07 13:53:14 +00:00
; Lemm Proof of Concept
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
.include "zp.inc"
.include "hardware.inc"
2022-03-17 03:40:34 +00:00
.include "qload.inc"
2022-03-17 17:56:03 +00:00
.include "lemming_status.inc"
2022-03-07 13:53:14 +00:00
lemm:
;=====================
; initializations
;=====================
2022-03-07 13:53:14 +00:00
lda #0
sta DRAW_PAGE
sta JOYSTICK_ENABLED
2022-03-07 13:53:14 +00:00
2022-03-17 18:33:18 +00:00
lda #1
sta WHICH_LEVEL
;====================
; show title message
;====================
jsr show_title
2022-03-07 13:53:14 +00:00
;====================
; detect model
;====================
jsr detect_appleii_model
;===================
; machine workarounds
;===================
; mostly IIgs
;===================
; thanks to 4am who provided this code from Total Replay
lda ROM_MACHINEID
cmp #$06
bne not_a_iigs
sec
jsr $FE1F ; check for IIgs
bcs not_a_iigs
; gr/text page2 handling broken on early IIgs models
; this enables the workaround
jsr ROM_TEXT2COPY ; set alternate display mode on IIgs
cli ; enable VBL interrupts
; also set background color to black instead of blue
lda NEWVIDEO
and #%00011111 ; bit 7 = 0 -> IIgs Apple II-compat video modes
; bit 6 = 0 -> IIgs 128K memory map same as IIe
; bit 5 = 0 -> IIgs DHGR is color, not mono
; bits 0-4 unchanged
sta NEWVIDEO
lda #$F0
sta TBCOLOR ; white text on black background
lda #$00
sta CLOCKCTL ; black border
sta CLOCKCTL ; set twice for VidHD
not_a_iigs:
;===================
; print config
;===================
lda #<config_string
sta OUTL
lda #>config_string
sta OUTH
jsr move_and_print
; print detected model
lda APPLEII_MODEL
ora #$80
sta $7d0+8 ; 23,8
; if GS print the extra S
cmp #'G'|$80
bne not_gs
lda #'S'|$80
sta $7d0+9
not_gs:
;=========================================
; detect if we have a language card (64k)
; and load sound into it if possible
;===================================
lda #0
sta SOUND_STATUS ; clear out, sound enabled
;===========================================
; skip checks if open-apple being held down
lda $C061
and #$80 ; only bit 7 is affected
bne skip_all_checks ; rest is floating bus
jsr detect_language_card
bcs no_language_card
yes_language_card:
; update status
lda #'6'|$80
sta $7d0+11 ; 23,11
lda #'4'|$80
sta $7d0+12 ; 23,12
; update sound status
lda SOUND_STATUS
ora #SOUND_IN_LC
sta SOUND_STATUS
jmp done_language_card
no_language_card:
done_language_card:
;===================================
; Detect Mockingboard
;===================================
PT3_ENABLE_APPLE_IIC = 1
; detect mockingboard
jsr mockingboard_detect
bcc mockingboard_notfound
mockingboard_found:
; print detected location
lda #'S'+$80 ; change NO to slot
sta $7d0+30
lda MB_ADDR_H ; $C4 = 4, want $B4 1100 -> 1011
and #$87
ora #$30
sta $7d0+31 ; 23,31
; NOTE: in this game we need both language card && mockingboard
; to enable mockingboard music
lda SOUND_STATUS
and #SOUND_IN_LC
beq dont_enable_mc
lda SOUND_STATUS
ora #SOUND_MOCKINGBOARD
sta SOUND_STATUS
dont_enable_mc:
mockingboard_notfound:
skip_all_checks:
2022-03-15 22:49:04 +00:00
;==================================
; load sound into the language card
; into $D000 set 1
;==================================
; read/write RAM, use $d000 bank1
bit $C083
bit $C083
lda #<letsgo
sta getsrc_smc+1
lda #>letsgo
sta getsrc_smc+2
lda #$D0 ; decompress to $D000
jsr decompress_lzsa2_fast
; read/write RAM, use $d000 bank2
bit $C08b
bit $C08b
2022-03-07 13:53:14 +00:00
;==================================
; load music into the language card
; into $D000 set 2
;==================================
; switch in language card
; read/write RAM, $d000 bank 2
2022-03-15 22:49:04 +00:00
lda $C08b
lda $C08b
2022-03-07 13:53:14 +00:00
jsr mockingboard_patch ; patch to work in slots other than 4?
;=======================
; Set up 50Hz interrupt
;========================
jsr mockingboard_init
jsr mockingboard_setup_interrupt
zurg:
;============================
; Init the Mockingboard
;============================
jsr reset_ay_both
jsr clear_ay_both
;=======================
; wait for keypress
;=======================
; jsr wait_until_keypress
lda #25
jsr wait_a_bit
2022-03-07 13:53:14 +00:00
2022-03-18 01:33:58 +00:00
; see if we pressed a number
2022-03-17 17:56:03 +00:00
2022-03-19 04:36:58 +00:00
cmp #'1'+$80
bcc oof
cmp #'6'+$80
bcs oof
2022-03-18 01:33:58 +00:00
2022-03-19 04:36:58 +00:00
and #$7f
sec
sbc #'0'
2022-03-18 01:33:58 +00:00
sta WHICH_LEVEL
oof:
2022-03-07 13:53:14 +00:00
lda #$0
sta $9000 ; make sure we load first level
2022-03-10 05:45:51 +00:00
;=======================
2022-03-17 18:33:18 +00:00
; do level
2022-03-10 05:45:51 +00:00
;=======================
2022-03-07 13:53:14 +00:00
2022-03-17 18:33:18 +00:00
play_level:
2022-03-22 03:00:30 +00:00
;=======================
2022-03-17 18:33:18 +00:00
; load level from disk
2022-03-22 03:00:30 +00:00
;=======================
; skip if already resident
lda WHICH_LEVEL ; see if level is same as current
cmp $9000
beq level_already_resident
2022-03-17 18:33:18 +00:00
sta WHICH_LOAD
jsr load_file
level_already_resident:
2022-03-22 03:00:30 +00:00
;==================
; start level
;==================
2022-03-17 18:33:18 +00:00
jsr start_level
2022-03-07 13:53:14 +00:00
2022-03-15 19:16:37 +00:00
lda LEVEL_OVER
cmp #LEVEL_WIN
2022-03-17 18:33:18 +00:00
beq level_won
bne level_continue
2022-03-15 19:16:37 +00:00
2022-03-17 18:33:18 +00:00
level_won:
2022-03-18 01:33:58 +00:00
inc WHICH_LEVEL
lda WHICH_LEVEL
cmp #6
bcc level_continue
2022-03-15 19:16:37 +00:00
lda #1 ; wrap to level1?
2022-03-17 18:33:18 +00:00
sta WHICH_LEVEL
2022-03-15 19:16:37 +00:00
level_continue:
2022-03-17 18:33:18 +00:00
jmp play_level
2022-03-15 19:16:37 +00:00
2022-03-09 05:35:13 +00:00
2022-03-07 13:53:14 +00:00
;==========================
; includes
;==========================
2022-03-17 18:33:18 +00:00
2022-03-07 13:53:14 +00:00
.include "wait_keypress.s"
2022-03-10 05:45:51 +00:00
.include "keyboard.s"
.include "joystick.s"
2022-03-11 06:22:51 +00:00
2022-03-09 22:04:19 +00:00
.include "gr_fast_clear.s"
2022-03-08 05:49:10 +00:00
2022-03-11 04:02:08 +00:00
.include "hgr_partial_save.s"
2022-03-10 06:10:42 +00:00
.include "move_lemming.s"
.include "draw_lemming.s"
2022-03-09 20:15:38 +00:00
.include "hgr_14x14_sprite.s"
2022-03-07 13:53:14 +00:00
.include "text_print.s"
.include "lc_detect.s"
2022-03-09 20:15:38 +00:00
.include "draw_pointer.s"
2022-03-08 05:49:10 +00:00
.include "hgr_tables.s"
.include "hgr_sprite.s"
.include "update_time.s"
2022-03-21 03:09:23 +00:00
.include "intro_level.s"
2022-03-09 05:35:13 +00:00
.include "draw_flames.s"
2022-03-09 06:05:00 +00:00
.include "draw_door.s"
2022-03-14 16:16:40 +00:00
.include "hgr_hlin.s"
2022-03-14 20:43:58 +00:00
.include "hgr_vlin.s"
2022-03-14 16:16:40 +00:00
.include "update_menu.s"
2022-03-17 18:33:18 +00:00
.include "title.s"
2022-03-15 20:37:02 +00:00
.include "letsgo.s"
2022-03-16 01:56:47 +00:00
.include "particle_hgr.s"
2022-03-17 18:33:18 +00:00
.include "load_music.s"
.include "simple_sounds.s"
2022-03-22 03:00:30 +00:00
.include "release_lemming.s"
.include "init_level.s"
2022-03-17 18:33:18 +00:00
; moved to qload.s
; .include "wait.s"
; .include "wait_a_bit.s"
; .include "audio.s"
; .include "decompress_fast_v2.s"
; .include "gr_offsets.s"
2022-03-07 13:53:14 +00:00
; pt3 player
;.include "pt3_lib_mockingboard.inc"
.include "pt3_lib_detect_model.s"
.include "pt3_lib_mockingboard_detect.s"
.include "pt3_lib_mockingboard_setup.s"
.include "interrupt_handler.s"
.include "pt3_lib_mockingboard_patch.s"
config_string:
; 0123456789012345678901234567890123456789
.byte 0,23,"APPLE II?, 48K, MOCKINGBOARD: NO, SSI: N",0
; MOCKINGBOARD: NONE
2022-03-08 05:49:10 +00:00
.include "graphics/sprites.inc"
2022-03-07 13:53:14 +00:00
2022-03-15 20:37:02 +00:00
letsgo:
2022-03-15 22:49:04 +00:00
.incbin "sounds/letsgo.btc.lz4"
2022-03-17 18:33:18 +00:00
start_level = $9001