mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-04 18:29:30 +00:00
ootw: title, let you view help
This commit is contained in:
parent
4bd687a357
commit
3109c9b39c
|
@ -42,7 +42,7 @@ qboot_sector_d3.o: qboot_sector.s qboot_stage2.s
|
||||||
QLOAD: qload.o
|
QLOAD: qload.o
|
||||||
ld65 -o QLOAD qload.o -C $(LINKER_SCRIPTS)/apple2_1600.inc
|
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
|
ca65 -o qload.o qload.s -l qload.lst
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -8,6 +8,7 @@ title:
|
||||||
sta MENU_BASE ; start at level0 by default
|
sta MENU_BASE ; start at level0 by default
|
||||||
sta MENU_HIGHLIGHT
|
sta MENU_HIGHLIGHT
|
||||||
|
|
||||||
|
redraw_title:
|
||||||
bit TEXT
|
bit TEXT
|
||||||
bit PAGE0
|
bit PAGE0
|
||||||
jsr HOME
|
jsr HOME
|
||||||
|
@ -27,10 +28,7 @@ title_loop:
|
||||||
|
|
||||||
jsr draw_menu
|
jsr draw_menu
|
||||||
|
|
||||||
wait_for_keypress:
|
jsr wait_for_keypress
|
||||||
lda KEYPRESS
|
|
||||||
bpl wait_for_keypress
|
|
||||||
bit KEYRESET
|
|
||||||
|
|
||||||
; $15/$A = right/down
|
; $15/$A = right/down
|
||||||
cmp #$15+$80
|
cmp #$15+$80
|
||||||
|
@ -48,6 +46,19 @@ wait_for_keypress:
|
||||||
cmp #13+$80
|
cmp #13+$80
|
||||||
beq all_done
|
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
|
; unknown, ignore
|
||||||
jmp title_loop
|
jmp title_loop
|
||||||
|
|
||||||
|
@ -81,14 +92,27 @@ all_done:
|
||||||
print_help_and_go:
|
print_help_and_go:
|
||||||
jsr HOME
|
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
|
lda #<directions_text
|
||||||
sta OUTL
|
sta OUTL
|
||||||
lda #>directions_text
|
lda #>directions_text
|
||||||
sta OUTH
|
sta OUTH
|
||||||
jsr move_and_print_list
|
jsr move_and_print_list
|
||||||
|
|
||||||
ready_to_load:
|
rts
|
||||||
jmp $1400 ; LOADER starts here
|
|
||||||
|
|
||||||
.include "../text_print.s"
|
.include "../text_print.s"
|
||||||
.include "../gr_offsets.s"
|
.include "../gr_offsets.s"
|
||||||
|
@ -249,7 +273,7 @@ disable_highlight:
|
||||||
|
|
||||||
|
|
||||||
title_text:
|
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, 1,"//_II II__/ II__/ II II- ][ ][",0
|
||||||
.byte 0, 2,"II II II II II__ II__ ]][[ ]][[",0
|
.byte 0, 2,"II II II II II__ II__ ]][[ ]][[",0
|
||||||
.byte 0, 3,"II II II _",0
|
.byte 0, 3,"II II II _",0
|
||||||
|
@ -265,7 +289,7 @@ title_text:
|
||||||
.byte 10,14, "A \/\/\/ PRODUCTION",0
|
.byte 10,14, "A \/\/\/ PRODUCTION",0
|
||||||
.byte 12,16, "APPLE ][ FOREVER",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
|
.byte 255
|
||||||
|
|
||||||
|
|
||||||
|
@ -292,7 +316,6 @@ menu_items: ; 23 wide
|
||||||
|
|
||||||
|
|
||||||
directions_text:
|
directions_text:
|
||||||
.byte 8, 0,"LOADING (BE PATIENT...)",0
|
|
||||||
.byte 0, 5,"CONTROLS:",0
|
.byte 0, 5,"CONTROLS:",0
|
||||||
.byte 3, 6, "A OR <- : MOVE LEFT",0
|
.byte 3, 6, "A OR <- : MOVE LEFT",0
|
||||||
.byte 3, 7, "D OR -> : MOVE RIGHT",0
|
.byte 3, 7, "D OR -> : MOVE RIGHT",0
|
||||||
|
@ -303,7 +326,5 @@ directions_text:
|
||||||
.byte 3,12, "ESC : QUITS",0
|
.byte 3,12, "ESC : QUITS",0
|
||||||
.byte 255
|
.byte 255
|
||||||
|
|
||||||
;.align $100
|
|
||||||
|
|
||||||
;.include "qload.s"
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user