Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-30 22:32:48 +00:00
Code Issues Projects Releases Wiki Activity

mist: make loader handle multiple levels

Browse Source
This commit is contained in:
Vince Weaver 2020-03-08 13:53:24 -04:00
parent a0d37340be
commit 0bbdd0d80d
2 changed files with 21 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
mist/loader.s
View File

@ -65,66 +65,32 @@ loader_start:
;===================================================
which_load_loop:
ldx WHICH_LOAD
beq load_intro
cpx #16
beq load_ending
lda WHICH_LOAD
asl
lda #<ootw_filename
tay
lda filenames,Y
sta OUTL
lda #>ootw_filename
lda filenames+1,Y
sta OUTH
ldy #6
cpx #10
bcc load_less_than_10 ; blt
txa
sec
sbc #10
tax
lda #'1' ; assume it's 10-15
sta (OUTL),Y
iny
load_less_than_10:
txa
clc
adc #48
sta (OUTL),Y
iny
lda #0
sta (OUTL),Y ; be sure NUL terminated
; might be issue if load >10 level
; then back to lower? that possible?
jmp opendir_filename
lda WHICH_LOAD
bne load_other
load_intro:
lda #<$4000
sta entry_smc+1
lda #>$4000
sta entry_smc+2
jmp actual_load
lda #<intro_filename
sta OUTL
lda #>intro_filename
sta OUTH
bne opendir_filename ; branch always
load_ending:
load_other:
lda #<$1000
sta entry_smc+1
lda #>$1000
sta entry_smc+2
lda #<ending_filename
sta OUTL
lda #>ending_filename
sta OUTH
; fallthrough
actual_load:
;===================================================
;===================================================
@ -167,21 +133,20 @@ entry_smc:
jmp which_load_loop
; filename to open is 30-character Apple text, must be padded with space ($A0)
;filename:
; .byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
; .byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
; .byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
filenames:
.word intro_filename
.word mist_filename,meche_filename
.word ending_filename
intro_filename:
.byte "MIST_TITLE",0
ending_filename:
mist_filename:
.byte "MIST",0
ootw_filename:
.byte "OOTW_C",0,0,0
meche_filename:
.byte "MECHE",0
ending_filename:
.byte "ENDING",0
;===================================================

2
mist/mist_title.s
View File

@ -44,7 +44,7 @@ keyloop:
bit KEYRESET
lda #16
lda #1 ; load mist
sta 5
rts