mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-09 10:30:21 +00:00
32 lines
480 B
ArmAsm
32 lines
480 B
ArmAsm
|
;=======================
|
||
|
|
;=======================
|
||
|
|
;=======================
|
||
|
|
; Kerrek
|
||
|
|
;=======================
|
||
|
|
;=======================
|
||
|
|
;=======================
|
||
|
|
|
||
|
|
kerrek_verb_table:
|
||
|
|
.byte VERB_LOOK
|
||
|
|
.word kerrek_look-1
|
||
|
|
.byte 0
|
||
|
|
|
||
|
|
;=================
|
||
|
|
; look
|
||
|
|
;=================
|
||
|
|
|
||
|
|
kerrek_look:
|
||
|
|
|
||
|
|
lda CURRENT_NOUN
|
||
|
|
|
||
|
|
cmp #NOUN_NONE
|
||
|
|
beq kerrek_look_at
|
||
|
|
|
||
|
|
jmp parse_common_look
|
||
|
|
|
||
|
|
kerrek_look_at:
|
||
|
|
ldx #<kerrek_look_at_message
|
||
|
|
ldy #>kerrek_look_at_message
|
||
|
|
jmp finish_parse_message
|
||
|
|
|