dos33fsprogs/games/lemm/intro_level1.s

218 lines
3.6 KiB
ArmAsm
Raw Normal View History

2022-03-07 13:53:14 +00:00
2022-03-09 22:04:19 +00:00
;=====================================
; print the intro message for level1
;=====================================
2022-03-07 13:53:14 +00:00
intro_level1:
2022-03-10 04:03:23 +00:00
lda #<level1_preview_lzsa
sta getsrc_smc+1 ; LZSA_SRC_LO
lda #>level1_preview_lzsa
sta getsrc_smc+2 ; LZSA_SRC_HI
lda #$20
jsr decompress_lzsa2_fast
2022-03-09 22:04:19 +00:00
; clear text screen
jsr clear_all
; print non-inverse
jsr set_normal
; print messages
2022-03-07 13:53:14 +00:00
lda #<level1_intro_text
sta OUTL
lda #>level1_intro_text
sta OUTH
2022-03-09 22:04:19 +00:00
; print the text
2022-03-07 13:53:14 +00:00
ldx #8
text_loop:
jsr move_and_print
dex
bne text_loop
2022-03-10 04:03:23 +00:00
bit KEYRESET
lda APPLEII_MODEL
cmp #'E'
bne intro_not_iie
jmp split_screen_iie
intro_not_iie:
2022-03-09 22:04:19 +00:00
; wait until keypress
2022-03-07 13:53:14 +00:00
jsr wait_until_keypress
rts
2022-03-10 04:31:54 +00:00
;=====================================
; print the outro message for level1
;=====================================
outro_level1:
; clear text screen
jsr clear_all
; print non-inverse
jsr set_normal
2022-03-15 04:50:35 +00:00
lda LEVEL_OVER
cmp #LEVEL_WIN
bne print_l1_lose_message
2022-03-10 04:31:54 +00:00
; print messages
lda #<level1_win_text
sta OUTL
lda #>level1_win_text
2022-03-15 04:50:35 +00:00
jmp print_l1_common
print_l1_lose_message:
lda #<level1_lose_text
sta OUTL
lda #>level1_lose_text
print_l1_common:
2022-03-10 04:31:54 +00:00
sta OUTH
; print the text
ldx #9
l1_outro_loop:
jsr move_and_print
dex
bne l1_outro_loop
bit KEYRESET
; wait until keypress
jmp wait_until_keypress
2022-03-07 13:53:14 +00:00
level1_intro_text:
.byte 0, 8,"LEVEL 1",0
.byte 15, 8,"JUST DIG!",0
2022-03-10 04:03:23 +00:00
.byte 9,12,"NUMBER OF LEMMINGS 10",0
.byte 12,14,"10% TO BE SAVED",0
.byte 12,16,"RELEASE RATE 50",0
.byte 13,18,"TIME 5 MINUTES",0
.byte 15,20,"RATING FUN",0
2022-03-07 13:53:14 +00:00
.byte 8,23,"PRESS RETURN TO CONINUE",0
2022-03-10 04:31:54 +00:00
level1_win_text:
.byte 6, 1,"ALL LEMMINGS ACCOUNTED FOR.",0
.byte 12, 3,"YOU RESCUED 100%",0
.byte 12, 4,"YOU NEEDED 10%",0
.byte 2, 6,"SUPERB! YOU RESCUED EVERY LEMMING ON",0
2022-03-11 06:22:51 +00:00
.byte 3, 7,"THAT LEVEL. CAN YOU DO IT AGAIN...",0
2022-03-10 04:31:54 +00:00
.byte 6,15,"YOUR ACCESS CODE FOR LEVEL 2",0
2022-03-14 05:07:45 +00:00
.byte 14,16,"IS B002ATARI",0
2022-03-10 04:31:54 +00:00
.byte 6,20,"PRESS RETURN FOR NEXT LEVEL",0
.byte 9,21,"PRESS ESCAPE FOR MENU",0
level1_lose_text:
.byte 6, 1,"ALL LEMMINGS ACCOUNTED FOR.",0
.byte 12, 3,"YOU RESCUED 0%",0
.byte 12, 4,"YOU NEEDED 100%",0
.byte 3, 6,"ROCK BOTTOM! I HOPE FOR YOUR SAKE",0
.byte 8, 7,"THAT YOU NUKED THAT LEVEL.",0
.byte 6,20,"PRESS RETURN FOR NEXT LEVEL",0
.byte 9,21,"PRESS ESCAPE FOR MENU",0
2022-03-15 04:50:35 +00:00
.byte 10,10," ",0 ; lazy hack
.byte 10,10," ",0
2022-03-10 04:31:54 +00:00
level5_intro_text:
2022-03-07 13:53:14 +00:00
.byte 0, 8,"LEVEL 5",0
2022-03-15 04:50:35 +00:00
.byte 14, 8,"YOU NEED BASHERS THIS TIME",0
2022-03-10 04:03:23 +00:00
.byte 9,12,"NUMBER OF LEMMINGS 50",0
.byte 12,14,"10% TO BE SAVED",0
.byte 12,16,"RELEASE RATE 50",0
.byte 13,18,"TIME 5 MINUTES",0
.byte 15,20,"RATING FUN",0
2022-03-07 13:53:14 +00:00
.byte 8,23,"PRESS RETURN TO CONINUE",0
2022-03-10 04:03:23 +00:00
.align $100
; split screen?
split_screen_iie:
; wait for vblank on IIe
; positive? during vblank
wait_vblank_iie:
lda VBLANK
bmi wait_vblank_iie ; wait for positive (in vblank)
wait_vblank_done_iie:
lda VBLANK ; wait for negative (vlank done)
bpl wait_vblank_done_iie
;
split_loop:
;===========================
; hires for 64 lines
; each line 65 cycles (25 hblank+40 bytes)
bit HIRES ; 4
bit SET_GR ; 4
; (64*65)-8 = 4160-8 = 4152
; Try X=91 Y=9 cycles=4150
nop ; delay two more
ldy #9 ; 2
loop1: ldx #91 ; 2
loop2: dex ; 2
bne loop2 ; 2nt/3
dey ; 2
bne loop1 ; 2nt/3
; text for 128 lines + horizontal blank
; vblank = 4550 cycles
; (128*65)+4550-15 = 8320+4550-15 = 12855
bit LORES ; 4
bit SET_TEXT ; 4
; Try X=150 Y=17 cycles=12853
nop ; 2
ldy #17 ; 2
loop3: ldx #150 ; 2
loop4: dex ; 2
bne loop4 ; 2nt/3
dey ; 2
bne loop3 ; 2nt/3
lda KEYPRESS ; 4
bpl split_loop ; 2nt/3t
rts