mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-27 07:29:29 +00:00
70 lines
1003 B
ArmAsm
70 lines
1003 B
ArmAsm
|
; parse input
|
||
|
|
||
|
parse_input:
|
||
|
; jsr hgr_save
|
||
|
|
||
|
lda input_buffer ; get first char FIXME
|
||
|
and #$DF ; make uppercase 0110 0001 -> 0100 0001
|
||
|
|
||
|
parse_copy:
|
||
|
cmp #'C'
|
||
|
bne parse_look
|
||
|
|
||
|
; want copy
|
||
|
lda #NEW_FROM_DISK
|
||
|
sta GAME_OVER
|
||
|
|
||
|
lda #LOAD_COPY_CHECK
|
||
|
sta WHICH_LOAD
|
||
|
|
||
|
jmp done_parse_message
|
||
|
|
||
|
|
||
|
parse_look:
|
||
|
cmp #'L'
|
||
|
bne parse_talk
|
||
|
|
||
|
lda #<fake_error1
|
||
|
sta OUTL
|
||
|
lda #>fake_error1
|
||
|
jmp finish_parse_message
|
||
|
|
||
|
|
||
|
parse_talk:
|
||
|
cmp #'T'
|
||
|
bne parse_version
|
||
|
|
||
|
lda #<fake_error2
|
||
|
sta OUTL
|
||
|
lda #>fake_error2
|
||
|
jmp finish_parse_message
|
||
|
|
||
|
|
||
|
parse_version:
|
||
|
cmp #'V'
|
||
|
bne parse_help
|
||
|
|
||
|
lda #<version_message
|
||
|
sta OUTL
|
||
|
lda #>version_message
|
||
|
jmp finish_parse_message
|
||
|
|
||
|
parse_help:
|
||
|
lda #<help_message
|
||
|
sta OUTL
|
||
|
lda #>help_message
|
||
|
|
||
|
finish_parse_message:
|
||
|
sta OUTH
|
||
|
jsr hgr_text_box
|
||
|
|
||
|
jsr wait_until_keypress
|
||
|
|
||
|
done_parse_message:
|
||
|
jsr hgr_partial_restore
|
||
|
|
||
|
rts
|
||
|
|
||
|
|
||
|
|