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 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: parse_input_smc:
nop nop
@ -173,15 +178,6 @@ parse_common_dance:
ldy #>dance_message ldy #>dance_message
jmp finish_parse_message jmp finish_parse_message
;================
; dan
;================
parse_common_dan:
ldx #<dan_message
ldy #>dan_message
jmp finish_parse_message
;=================== ;===================
; die ; die
;=================== ;===================
@ -405,9 +401,9 @@ parse_common_pwd:
lda location_names_h,X lda location_names_h,X
sta INH sta INH
lda #<(pwd_message+17) lda #<(pwd_message_offset)
sta OUTL sta OUTL
lda #>(pwd_message+17) lda #>(pwd_message_offset)
sta OUTH sta OUTH
ldy #0 ldy #0

View File

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