peasant: fix pwd command

This commit is contained in:
Vince Weaver 2021-12-06 00:08:01 -05:00
parent b66d5282d2
commit 3cb27864ab
2 changed files with 8 additions and 11 deletions

View File

@ -54,6 +54,11 @@ done_upcase_loop:
jsr get_noun
;===========================================
; this is turned to a "rts" in cases where
; we want to skip the verb table
; (mostly jhonka "yes/no" and maybe in trogdor cave
parse_input_smc:
nop
@ -173,15 +178,6 @@ parse_common_dance:
ldy #>dance_message
jmp finish_parse_message
;================
; dan
;================
parse_common_dan:
ldx #<dan_message
ldy #>dan_message
jmp finish_parse_message
;===================
; die
;===================
@ -405,9 +401,9 @@ parse_common_pwd:
lda location_names_h,X
sta INH
lda #<(pwd_message+17)
lda #<(pwd_message_offset)
sta OUTL
lda #>(pwd_message+17)
lda #>(pwd_message_offset)
sta OUTH
ldy #0

View File

@ -158,6 +158,7 @@ smell_message:
; + pwd (offset 17)
pwd_message:
.byte "~peasantsquest/",13
pwd_message_offset:
.byte " ",0
; + go _____