125 lines
1.7 KiB
ArmAsm
125 lines
1.7 KiB
ArmAsm
// #LAYOUT# M65 BASIC_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
//
|
|
// Proxies for calling Mega65 segment BASIC_0 and KERNAL_0 routines from BASIC_1
|
|
//
|
|
|
|
|
|
proxy_B1_peek_via_OLDTXT:
|
|
|
|
jsr map_NORMAL
|
|
#if CONFIG_MEMORY_MODEL_60K
|
|
.error "not implemented"
|
|
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
|
jsr peek_under_roms_via_OLDTXT
|
|
cmp #$00
|
|
#else // CONFIG_MEMORY_MODEL_38K
|
|
lda (OLDTXT),y
|
|
#endif
|
|
jmp map_BASIC_1
|
|
|
|
proxy_B1_poke_via_OLDTXT:
|
|
|
|
jsr map_NORMAL
|
|
#if CONFIG_MEMORY_MODEL_60K
|
|
.error "not implemented"
|
|
#else // CONFIG_MEMORY_MODEL_38K || CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
|
|
sta (OLDTXT),y
|
|
#endif
|
|
jmp map_BASIC_1
|
|
|
|
|
|
proxy_B1_JCLALL:
|
|
|
|
jsr map_NORMAL
|
|
jsr JCLALL
|
|
jmp map_BASIC_1
|
|
|
|
#if CONFIG_DOS_WEDGE
|
|
|
|
proxy_B1_JCLOSE:
|
|
|
|
jsr map_NORMAL
|
|
jsr JCLOSE
|
|
jmp map_BASIC_1
|
|
|
|
|
|
proxy_B1_JOPEN:
|
|
|
|
jsr map_NORMAL
|
|
jsr JOPEN
|
|
jmp map_BASIC_1
|
|
|
|
#endif
|
|
|
|
proxy_B1_JCHROUT:
|
|
|
|
jsr map_NORMAL
|
|
jsr JCHROUT
|
|
jmp map_BASIC_1
|
|
|
|
proxy_B1_print_hex_byte:
|
|
|
|
jsr map_NORMAL
|
|
jsr print_hex_byte
|
|
jmp map_BASIC_1
|
|
|
|
proxy_B1_print_integer:
|
|
|
|
jsr map_NORMAL
|
|
jsr print_integer
|
|
jmp map_BASIC_1
|
|
|
|
|
|
proxy_B1_print_return:
|
|
|
|
jsr map_NORMAL
|
|
jsr print_return
|
|
jmp map_BASIC_1
|
|
|
|
|
|
proxy_B1_print_space:
|
|
|
|
jsr map_NORMAL
|
|
jsr print_space
|
|
jmp map_BASIC_1
|
|
|
|
|
|
#if CONFIG_SHOW_FEATURES
|
|
|
|
proxy_B1_print_features:
|
|
|
|
jsr map_NORMAL
|
|
jsr print_features
|
|
jmp map_BASIC_1
|
|
|
|
#endif
|
|
|
|
#if CONFIG_DOS_WEDGE
|
|
|
|
proxy_B1_fetch_character:
|
|
|
|
jsr map_NORMAL
|
|
jsr fetch_character
|
|
jmp map_BASIC_1
|
|
|
|
proxy_B1_fetch_character_skip_spaces:
|
|
|
|
jsr map_NORMAL
|
|
jsr fetch_character_skip_spaces
|
|
jmp map_BASIC_1
|
|
|
|
proxy_B1_fetch_uint8:
|
|
|
|
jsr map_NORMAL
|
|
jsr fetch_uint8
|
|
jmp map_BASIC_1
|
|
|
|
proxy_B1_shell_main_loop:
|
|
|
|
jsr map_NORMAL
|
|
jmp shell_main_loop
|
|
|
|
#endif
|