Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-27 07:29:29 +00:00
Code Issues Projects Releases Wiki Activity
266e5cd784
dos33fsprogs/games/peasant/parse_input.s

210 lines
2.8 KiB
ArmAsm
Raw Normal View History

peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
.include "tokens.inc"
;==========================
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
; parse input
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
;==========================
; input is in input_buffer
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
parse_input:
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
; uppercase buffer
ldx #0
upcase_loop:
lda input_buffer,X
beq done_upcase_loop
and #$DF
sta input_buffer,X
inx
jmp upcase_loop
done_upcase_loop:
peasant: centralize peasant text
2021-09-30 04:25:03 +00:00
;=====================
; get the verb
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
jsr get_verb
peasant: centralize peasant text
2021-09-30 04:25:03 +00:00
;=====================
; get the noun
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
; jsr get_noun
peasant: centralize peasant text
2021-09-30 04:25:03 +00:00
;=============================
; handle room-specific actions
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
; jsr local_parser
peasant: centralize peasant text
2021-09-30 04:25:03 +00:00
;================================
; fall through to default actions
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
lda CURRENT_VERB
check_copy:
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
cmp #VERB_COPY
bne check_inventory
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
; want copy
lda #NEW_FROM_DISK
sta GAME_OVER
lda #LOAD_COPY_CHECK
sta WHICH_LOAD
jmp done_parse_message
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
check_inventory:
cmp #VERB_INVENTORY
bne check_load
peasant: more work on inventory
2021-08-31 05:15:12 +00:00
jsr show_inventory
jmp restore_parse_message
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
check_load:
cmp #VERB_LOAD
bne check_look
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
peasant: start work on load game support
2021-09-19 22:49:00 +00:00
jsr load_menu
peasant: more work on loadsave
2021-09-21 04:14:09 +00:00
jmp restore_parse_message
peasant: start work on load game support
2021-09-19 22:49:00 +00:00
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
check_look:
cmp #VERB_LOOK
bne check_talk
peasant: start work on load game support
2021-09-19 22:49:00 +00:00
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
lda #<fake_error1
sta OUTL
lda #>fake_error1
jmp finish_parse_message
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
check_talk:
cmp #VERB_TALK
bne check_save
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
lda #<fake_error2
sta OUTL
lda #>fake_error2
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
jmp finish_parse_message
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
check_save:
cmp #VERB_SAVE
bne check_show
jsr save_menu
jmp restore_parse_message
peasant: add priority graphic loading
2021-08-24 17:38:03 +00:00
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
check_show:
cmp #VERB_SHOW
bne check_version
peasant: add priority graphic loading
2021-08-24 17:38:03 +00:00
peasant: more background work
2021-09-29 20:13:38 +00:00
bit LORES
bit PAGE1
peasant: add priority graphic loading
2021-08-24 17:38:03 +00:00
peasant: more background work
2021-09-29 20:13:38 +00:00
jsr wait_until_keypress
bit PAGE2
bit HIRES
peasant: add priority graphic loading
2021-08-24 17:38:03 +00:00
peasant: more background work
2021-09-29 20:13:38 +00:00
jmp done_parse_message
peasant: save almost works well it does but there's a weird bug when loading it back
2021-09-29 04:17:39 +00:00
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
check_version:
cmp #VERB_VERSION
bne check_help
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
lda #<version_message
sta OUTL
lda #>version_message
jmp finish_parse_message
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
check_help:
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
lda #<help_message
sta OUTL
lda #>help_message
finish_parse_message:
sta OUTH
jsr hgr_text_box
jsr wait_until_keypress
peasant: more work on inventory
2021-08-31 05:15:12 +00:00
restore_parse_message:
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
jsr hgr_partial_restore
peasant: add priority graphic loading
2021-08-24 17:38:03 +00:00
done_parse_message:
peasant: peasantry too big, split up in 4 pieces
2021-08-18 04:29:23 +00:00
peasant: add priority graphic loading
2021-08-24 17:38:03 +00:00
rts
peasant: hook up actual parser not sure how optimized this will be, but it's a start
2021-09-30 03:51:04 +00:00
;===========================
; get verb
;===========================
;
get_verb:
lda #VERB_UNKNOWN ; default
sta CURRENT_VERB
lda #<verb_lookup ; reset verb pointer
sta get_verb_loop+1
lda #>verb_lookup
sta get_verb_loop+2
next_verb_loop:
ldx #0
stx WORD_MATCH
get_verb_loop:
lda verb_lookup
bmi done_verb
beq done_get_verb_loop
cmp input_buffer,X
beq verb_char_matched
verb_char_nomatch:
dec WORD_MATCH
verb_char_matched:
jsr inc_verb_ptr
inx
jmp get_verb_loop
done_verb:
ldx WORD_MATCH
beq found_verb
no_found_verb:
jsr inc_verb_ptr
jmp next_verb_loop
found_verb:
and #$7f
sta CURRENT_VERB
done_get_verb_loop:
rts
inc_verb_ptr:
inc get_verb_loop+1
bne inc_verb_ptr_noflo
inc get_verb_loop+2
inc_verb_ptr_noflo:
rts
verb_lookup:
.byte "COPY",VERB_COPY|$80
.byte "INV",VERB_INVENTORY|$80
.byte "LOAD",VERB_LOAD|$80
.byte "LOOK",VERB_LOOK|$80
.byte "TALK",VERB_TALK|$80
.byte "SAVE",VERB_SAVE|$80
.byte "SHOW",VERB_SHOW|$80
.byte "VER",VERB_VERSION|$80
.byte $00
Reference in New Issue Copy Permalink