mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-01 05:31:52 +00:00
lemm: work on intro
This commit is contained in:
Vince Weaver
parent
a38436af74
commit
053e95cd78
@ -10,9 +10,10 @@ EMPTY_DISK = ../../empty_disk/empty.dsk
|
||||
|
||||
all: lemm.dsk
|
||||
|
||||
lemm.dsk: HELLO LEMM_TEST
|
||||
lemm.dsk: HELLO LEMM LEMM_TEST
|
||||
cp $(EMPTY_DISK) lemm.dsk
|
||||
$(DOS33) -y lemm.dsk SAVE A HELLO
|
||||
$(DOS33) -y lemm.dsk BSAVE -a 0x6000 LEMM
|
||||
$(DOS33) -y lemm.dsk BSAVE -a 0x4000 LEMM_TEST
|
||||
|
||||
|
||||
@ -33,11 +34,23 @@ lemm_test.o: lemm_test.s zp.inc hardware.inc \
|
||||
|
||||
####
|
||||
|
||||
LEMM: lemm.o
|
||||
ld65 -o LEMM lemm.o -C ../../linker_scripts/apple2_6000.inc
|
||||
|
||||
lemm.o: lemm.s zp.inc hardware.inc \
|
||||
graphics/graphics_test.inc \
|
||||
intro_level1.s \
|
||||
interrupt_handler.s
|
||||
ca65 -o lemm.o lemm.s -l lemm.lst
|
||||
|
||||
|
||||
####
|
||||
|
||||
graphics/graphics_test.inc:
|
||||
cd graphics && make
|
||||
|
||||
####
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o *.lst HELLO LEMM
|
||||
rm -f *~ *.o *.lst HELLO LEMM LEMM_TEST
|
||||
|
||||
|
||||
@ -4,7 +4,7 @@ PNG2HGR = ../../../utils/hgr-utils/png2hgr
|
||||
LZSA = ~/research/lzsa/lzsa/lzsa
|
||||
B2D = ../../../utils/bmp2dhr/b2d
|
||||
|
||||
all: graphics_test.inc
|
||||
all: graphics_test.inc graphics_level1.inc
|
||||
|
||||
###
|
||||
|
||||
@ -16,6 +16,12 @@ graphics_test.inc: \
|
||||
echo "level2_lzsa: .incbin \"level2.lzsa\"" >> graphics_test.inc
|
||||
echo "level2_actual_lzsa: .incbin \"level2_actual.lzsa\"" >> graphics_test.inc
|
||||
|
||||
|
||||
graphics_level1.inc: \
|
||||
level1.lzsa
|
||||
echo "level1_lzsa: .incbin \"level1.lzsa\"" > graphics_level1.inc
|
||||
|
||||
|
||||
###
|
||||
|
||||
level1.lzsa: level1.hgr
|
||||
|
||||
BIN
games/lemm/graphics/level1_preview.png
Normal file
BIN
games/lemm/graphics/level1_preview.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.0 KiB |
BIN
games/lemm/graphics/level5_preview.png
Normal file
BIN
games/lemm/graphics/level5_preview.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.8 KiB |
BIN
games/lemm/graphics/sprites.png
Normal file
BIN
games/lemm/graphics/sprites.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 6.8 KiB |
@ -12,4 +12,4 @@
|
||||
110 PRINT " A \/\/\/ SOFTWARE PRODUCTION"
|
||||
115 PRINT
|
||||
120 PRINT " HTTP://WWW.DEATER.NET/WEAVE/VMWPROD"
|
||||
130 PRINT CHR$(4)"BRUN LEMM_TEST"
|
||||
130 PRINT CHR$(4)"BRUN LEMM"
|
||||
|
||||
38
games/lemm/intro_level1.s
Normal file
38
games/lemm/intro_level1.s
Normal file
@ -0,0 +1,38 @@
|
||||
|
||||
intro_level1:
|
||||
|
||||
lda #<level1_intro_text
|
||||
sta OUTL
|
||||
lda #>level1_intro_text
|
||||
sta OUTH
|
||||
|
||||
ldx #8
|
||||
text_loop:
|
||||
|
||||
jsr move_and_print
|
||||
|
||||
dex
|
||||
bne text_loop
|
||||
|
||||
jsr wait_until_keypress
|
||||
|
||||
rts
|
||||
|
||||
level1_intro_text:
|
||||
.byte 0, 8,"LEVEL 1",0
|
||||
.byte 15, 8,"JUST DIG!",0
|
||||
.byte 9,13,"NUMBER OF LEMMINGS 10",0
|
||||
.byte 12,15,"10% TO BE SAVED",0
|
||||
.byte 12,17,"RELEASE RATE 50",0
|
||||
.byte 13,19,"TIME 5 MINUTES",0
|
||||
.byte 15,21,"RATING FUN",0
|
||||
.byte 8,23,"PRESS RETURN TO CONINUE",0
|
||||
|
||||
.byte 0, 8,"LEVEL 5",0
|
||||
.byte 15, 8,"YOU NEED BASHERS THIS TIME",0
|
||||
.byte 9,13,"NUMBER OF LEMMINGS 50",0
|
||||
.byte 12,15,"10% TO BE SAVED",0
|
||||
.byte 12,17,"RELEASE RATE 50",0
|
||||
.byte 13,19,"TIME 5 MINUTES",0
|
||||
.byte 15,21,"RATING FUN",0
|
||||
.byte 8,23,"PRESS RETURN TO CONINUE",0
|
||||
340
games/lemm/lemm.s
Normal file
340
games/lemm/lemm.s
Normal file
@ -0,0 +1,340 @@
|
||||
; Lemm Proof of Concept
|
||||
|
||||
; by deater (Vince Weaver) <vince@deater.net>
|
||||
|
||||
; Zero Page
|
||||
.include "zp.inc"
|
||||
.include "hardware.inc"
|
||||
|
||||
lemm_test_start:
|
||||
|
||||
lda #0
|
||||
sta DRAW_PAGE
|
||||
|
||||
;====================
|
||||
; 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:
|
||||
|
||||
|
||||
;==================================
|
||||
; load music into the language card
|
||||
; into $D000 set 2
|
||||
;==================================
|
||||
|
||||
; switch in language card
|
||||
; read/write RAM, $d000 bank 2
|
||||
|
||||
lda $C083
|
||||
lda $C083
|
||||
|
||||
; actually load it
|
||||
|
||||
lda #0
|
||||
sta CURRENT_CHUNK
|
||||
sta DONE_PLAYING
|
||||
|
||||
jsr load_song_chunk
|
||||
|
||||
lda #1
|
||||
sta LOOP
|
||||
|
||||
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
|
||||
|
||||
;=======================
|
||||
; show title screen
|
||||
;=======================
|
||||
|
||||
jsr intro_level1
|
||||
|
||||
;=======================
|
||||
; Load Graphics
|
||||
;=======================
|
||||
|
||||
bit SET_GR
|
||||
bit PAGE0
|
||||
bit HIRES
|
||||
bit FULLGR
|
||||
|
||||
lda #<level1_lzsa
|
||||
sta getsrc_smc+1 ; LZSA_SRC_LO
|
||||
lda #>level1_lzsa
|
||||
sta getsrc_smc+2 ; LZSA_SRC_HI
|
||||
|
||||
lda #$20
|
||||
|
||||
jsr decompress_lzsa2_fast
|
||||
|
||||
lda #<level1_lzsa
|
||||
sta getsrc_smc+1 ; LZSA_SRC_LO
|
||||
lda #>level1_lzsa
|
||||
sta getsrc_smc+2 ; LZSA_SRC_HI
|
||||
|
||||
lda #$40
|
||||
|
||||
jsr decompress_lzsa2_fast
|
||||
|
||||
|
||||
|
||||
;=======================
|
||||
; Play "Let's Go"
|
||||
;=======================
|
||||
|
||||
|
||||
;=======================
|
||||
; start music
|
||||
;=======================
|
||||
|
||||
cli
|
||||
|
||||
|
||||
;===================
|
||||
; Main Loop
|
||||
;===================
|
||||
main_loop:
|
||||
|
||||
|
||||
jmp main_loop
|
||||
|
||||
|
||||
|
||||
|
||||
;========================
|
||||
; load song chunk
|
||||
; CURRENT_CHUNK is which one
|
||||
|
||||
load_song_chunk:
|
||||
ldx CURRENT_CHUNK
|
||||
lda music_parts_l,X
|
||||
sta getsrc_smc+1 ; LZSA_SRC_LO
|
||||
lda music_parts_h,X
|
||||
sta getsrc_smc+2 ; LZSA_SRC_HI
|
||||
bne load_song_chunk_good
|
||||
|
||||
; wrapped
|
||||
lda #$00
|
||||
sta CURRENT_CHUNK
|
||||
beq load_song_chunk ; try again
|
||||
|
||||
load_song_chunk_good:
|
||||
lda #$d0
|
||||
sta BASE_FRAME_H
|
||||
|
||||
jsr decompress_lzsa2_fast
|
||||
|
||||
lda #0
|
||||
sta BASE_FRAME_L
|
||||
|
||||
rts
|
||||
|
||||
;==========================
|
||||
; includes
|
||||
;==========================
|
||||
|
||||
; .include "gr_pageflip.s"
|
||||
; .include "gr_copy.s"
|
||||
; .include "wait_a_bit.s"
|
||||
.include "gr_offsets.s"
|
||||
.include "decompress_fast_v2.s"
|
||||
|
||||
.include "wait_keypress.s"
|
||||
|
||||
; .include "print_help.s"
|
||||
; .include "gr_fast_clear.s"
|
||||
.include "text_print.s"
|
||||
|
||||
; .include "init_vars.s"
|
||||
; .include "graphics_title/title_graphics.inc"
|
||||
.include "lc_detect.s"
|
||||
|
||||
.include "intro_level1.s"
|
||||
|
||||
; 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
|
||||
|
||||
new_title:
|
||||
.include "graphics/graphics_level1.inc"
|
||||
|
||||
music_parts_h:
|
||||
.byte >lemm5_part1_lzsa,>lemm5_part2_lzsa,>lemm5_part3_lzsa,$00
|
||||
music_parts_l:
|
||||
.byte <lemm5_part1_lzsa,<lemm5_part2_lzsa,<lemm5_part3_lzsa
|
||||
|
||||
lemm5_part1_lzsa:
|
||||
.incbin "music/lemm5.part1.lzsa"
|
||||
lemm5_part2_lzsa:
|
||||
.incbin "music/lemm5.part2.lzsa"
|
||||
lemm5_part3_lzsa:
|
||||
.incbin "music/lemm5.part3.lzsa"
|
||||
Loading…
Reference in New Issue
Block a user