ootw: more work on real Apple II+

This commit is contained in:
Vince Weaver 2021-05-03 11:54:22 -04:00
parent 5c5151360e
commit 77c303890f
3 changed files with 8 additions and 18 deletions

View File

@ -17,7 +17,8 @@ WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
code_begin:
.byte version
.byte version ; note this also gets over-written as a
; side-effect of the patching code
readnib:
slotpatch1: ; smc

View File

@ -11,32 +11,19 @@ qload_start:
; first time entry
; start by loading text title
jsr title
jsr title ; display title / get which to load
; lda #LOAD_TEXT_TITLE ; load title
; sta WHICH_LOAD
; get the current disk we're on
lda $8A5 ; from boot sector
sta CURRENT_DISK ; current disk number
; jsr load_file
; jsr $800
; lda #LOAD_TITLE ; load title
; sta WHICH_LOAD
main_game_loop:
jsr load_file
; lda WHICH_LOAD
; bne not_title
; always enter at $1800
;start_title:
; jsr $4000
; jmp main_game_loop
;not_title:
jsr $1800
jmp main_game_loop
@ -63,7 +50,7 @@ load_file_no_diskcheck:
lda length_array,X
sta load_length
jsr load_new
jsr load_new ; FIXME: tail call
rts

View File

@ -7,6 +7,8 @@ title:
lda #0
sta MENU_BASE ; start at level0 by default
sta MENU_HIGHLIGHT
sta DISP_PAGE
sta DRAW_PAGE ; need to be 0 or weird issues
redraw_title:
bit TEXT