105 lines
1.2 KiB
ArmAsm
105 lines
1.2 KiB
ArmAsm
;; Default handler for all not-yet-implemented commands
|
|
|
|
cmd_end:
|
|
cmd_for:
|
|
cmd_next:
|
|
cmd_data:
|
|
cmd_inputhash:
|
|
cmd_input:
|
|
cmd_dim:
|
|
cmd_read:
|
|
cmd_let:
|
|
cmd_goto:
|
|
cmd_if:
|
|
cmd_restore:
|
|
cmd_gosub:
|
|
cmd_return:
|
|
cmd_rem:
|
|
|
|
;; $90-$9F
|
|
cmd_stop:
|
|
cmd_on:
|
|
cmd_wait:
|
|
cmd_load:
|
|
cmd_save:
|
|
cmd_verify:
|
|
cmd_def:
|
|
cmd_poke:
|
|
cmd_printhash:
|
|
cmd_print:
|
|
cmd_cont:
|
|
cmd_cmd:
|
|
cmd_open:
|
|
|
|
;; $A0-$AF
|
|
cmd_close:
|
|
cmd_get:
|
|
cmd_tab:
|
|
cmd_to:
|
|
cmd_fn:
|
|
cmd_spc:
|
|
cmd_then:
|
|
cmd_not:
|
|
cmd_step:
|
|
cmd_plus:
|
|
cmd_minus:
|
|
cmd_mult:
|
|
cmd_div:
|
|
cmd_exponent:
|
|
cmd_and:
|
|
|
|
;; $B0-$BF
|
|
cmd_or:
|
|
cmd_greater:
|
|
cmd_equal:
|
|
cmd_less:
|
|
cmd_sgn:
|
|
cmd_int:
|
|
cmd_abs:
|
|
cmd_usr:
|
|
cmd_fre:
|
|
cmd_pos:
|
|
cmd_sqr:
|
|
cmd_rnd:
|
|
cmd_log:
|
|
cmd_exp:
|
|
cmd_cos:
|
|
cmd_sin:
|
|
|
|
;; $C0-$CF
|
|
cmd_tan:
|
|
cmd_atn:
|
|
cmd_peek:
|
|
cmd_len:
|
|
cmd_str:
|
|
cmd_val:
|
|
cmd_asc:
|
|
cmd_chr:
|
|
cmd_left:
|
|
cmd_right:
|
|
cmd_mid:
|
|
cmd_go:
|
|
;; Undefined tokens
|
|
cmd_unimplemented:
|
|
|
|
;; Dummy action while testing IEC support
|
|
|
|
;; Try to load an IEC file
|
|
jsr $ffd5
|
|
bcc +
|
|
|
|
;; A = KERNAL error code, which also almost match
|
|
;; basic ERROR codes, so we can just copy the
|
|
;; error code to X, decrement, and handle normally
|
|
tax
|
|
dex
|
|
jmp do_basic_error
|
|
|
|
*
|
|
sta $0427
|
|
lda #$00
|
|
ror
|
|
sta $0426
|
|
|
|
jmp do_NOT_IMPLEMENTED_error
|