Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

ootw: title, let you view help

This commit is contained in:
Vince Weaver 2021-04-19 12:08:57 -04:00
parent 4bd687a357
commit 3109c9b39c
6 changed files with 33 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
games/ootw/title/Makefile → games/ootw/old_title/Makefile
View File

0
games/ootw/title/loader.s → games/ootw/old_title/loader.s
View File

0
games/ootw/title/new_design.txt → games/ootw/old_title/new_design.txt
View File

0
games/ootw/title/title.s → games/ootw/old_title/title.s
View File

2
games/ootw/qboot/Makefile
View File

@ -42,7 +42,7 @@ qboot_sector_d3.o: qboot_sector.s qboot_stage2.s
QLOAD: qload.o
ld65 -o QLOAD qload.o -C $(LINKER_SCRIPTS)/apple2_1600.inc
qload.o: qload.s qboot.inc common_defines.inc
qload.o: qload.s qboot.inc common_defines.inc title.s
ca65 -o qload.o qload.s -l qload.lst

43
games/ootw/qboot/title.s
View File

@ -8,6 +8,7 @@ title:
sta MENU_BASE ; start at level0 by default
sta MENU_HIGHLIGHT
redraw_title:
bit TEXT
bit PAGE0
jsr HOME
@ -27,10 +28,7 @@ title_loop:
jsr draw_menu
wait_for_keypress:
lda KEYPRESS
bpl wait_for_keypress
bit KEYRESET
jsr wait_for_keypress
; $15/$A = right/down
cmp #$15+$80
@ -48,6 +46,19 @@ wait_for_keypress:
cmp #13+$80
beq all_done
cmp #'H'+$80
beq want_help
cmp #'h'+$80
bne key_unknown
want_help:
jsr print_help
jsr wait_for_keypress
jmp redraw_title
key_unknown:
; unknown, ignore
jmp title_loop
@ -81,14 +92,27 @@ all_done:
print_help_and_go:
jsr HOME
jsr print_help
ready_to_load:
jmp $1400 ; LOADER starts here
wait_for_keypress:
lda KEYPRESS
bpl wait_for_keypress
bit KEYRESET
rts
print_help:
jsr HOME
lda #<directions_text
sta OUTL
lda #>directions_text
sta OUTH
jsr move_and_print_list
ready_to_load:
jmp $1400 ; LOADER starts here
rts
.include "../text_print.s"
.include "../gr_offsets.s"
@ -249,7 +273,7 @@ disable_highlight:
title_text:
.byte 1, 0, "//II II--\ II--\ II II-- ]][[ ]][[",0
.byte 1, 0, "//II II==\ II==\ II II== ]][[ ]][[",0
.byte 0, 1,"//_II II__/ II__/ II II- ][ ][",0
.byte 0, 2,"II II II II II__ II__ ]][[ ]][[",0
.byte 0, 3,"II II II _",0
@ -265,7 +289,7 @@ title_text:
.byte 10,14, "A \/\/\/ PRODUCTION",0
.byte 12,16, "APPLE ][ FOREVER",0
.byte 1,23, "USE ARROWS TO SELECT, RETURN TO START",0
.byte 0,23, "ARROWS SELECT, RETURN STARTS, H FOR HELP",0
.byte 255
@ -292,7 +316,6 @@ menu_items: ; 23 wide
directions_text:
.byte 8, 0,"LOADING (BE PATIENT...)",0
.byte 0, 5,"CONTROLS:",0
.byte 3, 6, "A OR <- : MOVE LEFT",0
.byte 3, 7, "D OR -> : MOVE RIGHT",0
@ -303,7 +326,5 @@ directions_text:
.byte 3,12, "ESC : QUITS",0
.byte 255
;.align $100
;.include "qload.s"