merge ResetVector and MainMenu

This commit is contained in:
4am 2021-04-19 10:58:00 -04:00
parent 6d70d7956d
commit 3e9dd24ed9

View File

@ -65,7 +65,7 @@ UNIV_D3 = $B8FC
!source "apidefs.a" !source "apidefs.a"
FirstMover FirstMover
jmp ResetVector jmp MainMenu
!source "strings/en.a" !source "strings/en.a"
!source "analyze.a" !source "analyze.a"
@ -118,7 +118,15 @@ FirstMover
!source "rwts.a" !source "rwts.a"
!source "standarddelivery.a" !source "standarddelivery.a"
ResetVector MainMenu
lda #<MainMenu
sta $03F2
lda #>MainMenu
sta $03F3
eor #$A5
sta $03F4
ldx #$FF
txs
lda $C0E8 lda $C0E8
jsr PR0 jsr PR0
jsr IN0 jsr IN0
@ -129,17 +137,6 @@ ResetVector
sta $C00E sta $C00E
jsr CleanupFiles jsr CleanupFiles
jsr ThisSlot jsr ThisSlot
; /!\ execution falls through here
MainMenu
lda #<ResetVector
sta $03F2
lda #>ResetVector
sta $03F3
eor #$A5
sta $03F4
ldx #$FF
txs
jsr ClearScreen jsr ClearScreen
lda #s_header lda #s_header
jsr PrintByID jsr PrintByID
@ -161,7 +158,7 @@ MainMenu
cmp #$80 cmp #$80
bne + bne +
jsr EnterCFFAIfAvailable jsr EnterCFFAIfAvailable
bcc ResetVector bcc MainMenu
bcs @getkey bcs @getkey
+ cmp #$9B ; Esc quits + cmp #$9B ; Esc quits