mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-12 11:29:37 +00:00
peasant: fix pwd command
This commit is contained in:
parent
b66d5282d2
commit
3cb27864ab
|
@ -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
|
||||||
|
|
|
@ -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 _____
|
||||||
|
|
Loading…
Reference in New Issue
Block a user