100 lines
1.5 KiB
ArmAsm
100 lines
1.5 KiB
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# * BASIC_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
|
|
|
|
cmd_print:
|
|
|
|
// First check if we have anything to print
|
|
|
|
jsr is_end_of_statement
|
|
bcs cmd_print_new_line_done
|
|
|
|
jsr fetch_character
|
|
cmp #$3B // semicolon
|
|
beq cmd_print_done
|
|
|
|
// FALLTROUGH
|
|
|
|
cmd_print_loop:
|
|
|
|
#if !HAS_OPCODES_65CE02
|
|
jsr unconsume_character
|
|
#else
|
|
dew TXTPTR
|
|
#endif
|
|
|
|
// FALLTROUGH
|
|
|
|
cmd_print_after_comma:
|
|
|
|
// Now evaluate the expression and check what to print
|
|
|
|
jsr tmpstr_free_all
|
|
jsr FRMEVL
|
|
lda VALTYP
|
|
bpl cmd_print_float
|
|
|
|
// FALLTROUGH
|
|
|
|
cmd_print_string:
|
|
|
|
// Print a string value
|
|
|
|
ldy #$00
|
|
!:
|
|
cpy __FAC1 + 0
|
|
beq cmd_print_next_arg
|
|
|
|
#if CONFIG_MEMORY_MODEL_60K
|
|
|
|
ldx #<(__FAC1 + 1)
|
|
jsr peek_under_roms
|
|
|
|
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
|
|
|
jsr peek_under_roms_via_FAC1_PLUS_1
|
|
|
|
#else // CONFIG_MEMORY_MODEL_38K
|
|
|
|
lda (__FAC1 + 1), y
|
|
|
|
#endif
|
|
|
|
jsr JCHROUT
|
|
iny
|
|
jmp !-
|
|
|
|
cmd_print_float:
|
|
|
|
// XXX probably we should also check INTFLG here
|
|
// XXX provide implementation
|
|
|
|
// FALLTROUGH
|
|
|
|
cmd_print_next_arg:
|
|
|
|
// Look for the next argument
|
|
|
|
jsr is_end_of_statement
|
|
bcs cmd_print_new_line_done
|
|
|
|
cmp #$2C // comma XXX on C64 behavior is more complicated, fix it
|
|
beq cmd_print_after_comma
|
|
cmp #$3B // semicolon
|
|
beq cmd_print_done
|
|
bne cmd_print_loop
|
|
|
|
cmd_print_new_line_done:
|
|
|
|
jsr print_return
|
|
|
|
// FALLTROUGH
|
|
|
|
cmd_print_done:
|
|
|
|
// Execute next statement
|
|
|
|
rts
|