diff --git a/SP_128.ASM b/SP_128.ASM index 2fb3e18..0ea88f5 100644 --- a/SP_128.ASM +++ b/SP_128.ASM @@ -10030,7 +10030,7 @@ L2584: CALL L28BE ; Reset Cursor Position. ; -------------- ; Show Main Menu ; -------------- - + BLOCK #259F-$,#FF; стандартный адрес L259F: LD HL,TSTACK ; #5BFF. LD (OLDSP),HL ; #5B81. diff --git a/SP_TRDOS.ASM b/SP_TRDOS.ASM index 8f2b97c..66cfe14 100644 --- a/SP_TRDOS.ASM +++ b/SP_TRDOS.ASM @@ -229,7 +229,7 @@ AUTO_00A8: LD HL,ZX_VARS.RET_INS AUTO_0100: LD (HL),201 - RST_ROM ROUTINE.clear_prb + RST_ROM BASIC_FN.x48.clear_prb LD HL,ZX_VARS.SCR_SIZE LD (HL),2 LD HL,AUTO_128B @@ -268,7 +268,7 @@ AUTO_0140: LD (ZX_VARS.NEW_PPC),HL XOR A LD (ZX_VARS.NEW_S_PPC),A - RST_ROM ROUTINE.set_min + RST_ROM BASIC_FN.x48.set_min LD HL,(ZX_VARS.BAS_PROG) DEC HL LD (ZX_VARS.DATA_ADR),HL @@ -277,7 +277,7 @@ AUTO_0140: OR A LD HL,AUTO_1B76 JR Z,AUTO_0166 - RST_ROM ROUTINE.report_0 + RST_ROM BASIC_FN.x48.report_0 AUTO_0166: PUSH HL LD HL,ZX_VARS.RET_INS @@ -1252,15 +1252,15 @@ AUTO_1052: PUSH BC PUSH DE AUTO_1056: - RST_ROM ROUTINE.key_scan + RST_ROM BASIC_FN.x48.key_scan ;AUTO_1059: LD C,0 JR NZ,AUTO_1056 - RST_ROM ROUTINE.key_test + RST_ROM BASIC_FN.x48.key_test JR NC,AUTO_1056 DEC D LD E,A - RST_ROM ROUTINE.key_decode + RST_ROM BASIC_FN.x48.key_decode POP DE POP BC POP HL @@ -1997,7 +1997,7 @@ AUTO_166F: LD (ZX_VARS.VAR_1),HL JP AUTO_1E23 AUTO_1680: - RST_ROM ROUTINE.free_mem + RST_ROM BASIC_FN.x48.free_mem LD HL,#FFFF SBC HL,BC LD A,H @@ -2465,7 +2465,7 @@ CMD_MERGE: LD (ZX_VARS.MED_LEN),BC PUSH BC INC BC - RST_ROM ROUTINE.bc_spaces + RST_ROM BASIC_FN.x48.bc_spaces ;AUTO_19D1: LD (HL),128 EX DE,HL @@ -2479,7 +2479,7 @@ CMD_MERGE: CALL AUTO_1921 POP HL LD DE,(ZX_VARS.BAS_PROG) - RST_ROM ROUTINE.me_new_lp + RST_ROM BASIC_FN.x48.me_new_lp JP AUTO_03E1 AUTO_19F2: EX DE,HL @@ -2491,7 +2491,7 @@ AUTO_19F2: LD B,H LD C,L AUTO_19FD: - RST_ROM ROUTINE.test_room + RST_ROM BASIC_FN.x48.test_room RET AUTO_1A01: LD DE,(ZX_VARS.BAS_PROG) @@ -2525,7 +2525,7 @@ AUTO_1A31: POP DE POP HL PUSH BC - RST_ROM ROUTINE.reclaim_1 + RST_ROM BASIC_FN.x48.reclaim_1 POP BC CALL AUTO_1E32 INC HL @@ -2990,7 +2990,7 @@ AUTO_1D63: CP #FF LD (HL),0 RET NZ - RST_ROM ROUTINE.set_work + RST_ROM BASIC_FN.x48.set_work RET ; Проверка, идет ли проверка строки на синтаксис или выполнение команды. ; Если идет выполнение, то флаг Z будет сброшен, иначе установлен. @@ -3009,28 +3009,28 @@ AUTO_1D7B: OPEN_CH0: XOR A AUTO_1D84: - RST_ROM ROUTINE.chan_open + RST_ROM BASIC_FN.x48.chan_open RET OPEN_CH2: LD A,2 JR AUTO_1D84 AUTO_1D8C: - RST_ROM ROUTINE.get_char + RST_ROM BASIC_FN.x48.get_char ;AUTO_1D8F: RET GET_CMD: CALL OPEN_CH0 - RST_ROM ROUTINE.editor + RST_ROM BASIC_FN.x48.editor RET AUTO_1D97: - RST_ROM ROUTINE.cls + RST_ROM BASIC_FN.x48.cls RET AUTO_1D9B: - RST_ROM ROUTINE.look_vars + RST_ROM BASIC_FN.x48.look_vars RET AUTO_1D9F: - RST_ROM ROUTINE.cls_lower + RST_ROM BASIC_FN.x48.cls_lower RET AUTO_1DA3: LD C,A @@ -3041,20 +3041,20 @@ AUTO_1DA9: PUSH BC CALL xchg_intf1 POP BC - RST_ROM ROUTINE.out_num_1 + RST_ROM BASIC_FN.x48.out_num_1 CALL xchg_intf1 RET BAS_2BF1: - RST_ROM ROUTINE.stack_fetch + RST_ROM BASIC_FN.x48.stack_fetch RET AUTO_1DB9: - RST_ROM ROUTINE.find_int2 + RST_ROM BASIC_FN.x48.find_int2 RET AUTO_1DBD: - RST_ROM ROUTINE.expt_exp + RST_ROM BASIC_FN.x48.expt_exp RET AUTO_1DC1: - RST_ROM ROUTINE.expt_1num + RST_ROM BASIC_FN.x48.expt_1num RET AUTO_1DC5: LD HL,(ZX_VARS.ADR_DOS_COM) @@ -3102,22 +3102,22 @@ AUTO_1E0B: RET AUTO_1E1C: LD HL,(ZX_VARS.ADR_DOS_COM) - RST_ROM ROUTINE.remove_fp + RST_ROM BASIC_FN.x48.remove_fp RET AUTO_1E23: LD HL,(ZX_VARS.WORK_SPACE) - RST_ROM ROUTINE.bc_spaces + RST_ROM BASIC_FN.x48.bc_spaces AUTO_1E29: RET BASIC_RST20: - RST_ROM ROUTINE.next_char + RST_ROM BASIC_FN.x48.next_char AUTO_1E2D: RET AUTO_1E2E: - RST_ROM ROUTINE.reclaim_2 + RST_ROM BASIC_FN.x48.reclaim_2 RET AUTO_1E32: - RST_ROM ROUTINE.make_room + RST_ROM BASIC_FN.x48.make_room RET READ_TRK_NUM: CALL READ_ADR_LABL @@ -3657,7 +3657,7 @@ AUTO_2206: JP AUTO_03D9 AUTO_220F: LD A,(ZX_VARS.MED_LEN) - RST_ROM ROUTINE.str_data1 + RST_ROM BASIC_FN.x48.str_data1 LD A,B OR C JP NZ,AUTO_221B @@ -4058,7 +4058,7 @@ AUTO_2492: AUTO_2494: LD (ZX_VARS.ERR_NR),A CALL AUTO_20E5 - RST_ROM ROUTINE.error_4 + RST_ROM BASIC_FN.x48.error_4 RET AUTO_249E: LD A,23 @@ -4271,7 +4271,7 @@ AUTO_25EF: INC HL LD D,(HL) OR A - LD HL,ROUTINE.ed_error ;48 basic routine + LD HL,BASIC_FN.x48.ed_error ;48 basic routine SBC HL,DE JR NZ,AUTO_2626 LD SP,(ZX_VARS.ERR_SP) @@ -4290,7 +4290,7 @@ AUTO_2614: AUTO_261D: CP 13 JR Z,AUTO_2614 - RST_ROM ROUTINE.add_char_keeping_current_mode + RST_ROM BASIC_FN.x48.add_char_keeping_current_mode JR AUTO_260F AUTO_2626: CALL AUTO_262B @@ -4331,7 +4331,7 @@ CMD_CLOSE: CALL AUTO_1E0B CALL SINTAX_RET LD A,(ZX_VARS.MED_LEN) - RST_ROM ROUTINE.str_data1 + RST_ROM BASIC_FN.x48.str_data1 LD A,B OR C JP Z,AUTO_01D3 @@ -5680,9 +5680,9 @@ AUTO_3057: ; LD (HL),A INC HL EX DE,HL - RST_ROM ROUTINE.differ + RST_ROM BASIC_FN.x48.differ PUSH BC - RST_ROM ROUTINE.reclaim_2 + RST_ROM BASIC_FN.x48.reclaim_2 POP BC LD A,(ZX_VARS.DOS_ERROR) OR A @@ -5773,7 +5773,7 @@ AUTO_30E1: LD (ZX_VARS.DOS_ERROR),A DEC HL DEC HL - RST_ROM ROUTINE.line_addr + RST_ROM BASIC_FN.x48.line_addr RET AUTO_30F4: LD A,255 @@ -6057,7 +6057,7 @@ FORM_X03: CALL AUTO_1C57 CALL AUTO_1D97 LD A,2 - RST_ROM ROUTINE.chan_open + RST_ROM BASIC_FN.x48.chan_open LD HL,NEW_NAME RST PRINT_LN @@ -6122,7 +6122,7 @@ SUB_HL_14: RET LOW_CLS_AT00: - RST_ROM ROUTINE.cls_lower + RST_ROM BASIC_FN.x48.cls_lower LD HL,MSG_AT00 JP PRINT_LINE @@ -6525,7 +6525,7 @@ BEEP_1: LD HL,200 ; BEEP LD D,H LD E,(IY-1) - RST_ROM ROUTINE.beeper + RST_ROM BASIC_FN.x48.beeper POP AF RET @@ -6670,7 +6670,7 @@ PRINT_SYM: AUTO_3D94: - RST_ROM ROUTINE.print_a + RST_ROM BASIC_FN.x48.print_a RET AUTO_3D98: LD A,8 @@ -6678,10 +6678,10 @@ WG93_EXE: OUT (FDC_93.Command),A AUTO_3D9C: PUSH HL - RST_ROM ROUTINE.break_key + RST_ROM BASIC_FN.x48.break_key ;RET_1F54: JR C,AUTO_3DA5 - RST_ROM ROUTINE.report_l + RST_ROM BASIC_FN.x48.report_l AUTO_3DA5: POP HL IN A,(FDC_93.DrvCTRL) diff --git a/Shared_Includes b/Shared_Includes index 817bba0..0df304a 160000 --- a/Shared_Includes +++ b/Shared_Includes @@ -1 +1 @@ -Subproject commit 817bba0c1abebdb890f77ee129578ebe06fb5131 +Subproject commit 0df304a7f0295eb72c7102f153f82c91d90743e0 diff --git a/TRDOS/boot_trd.asm b/TRDOS/boot_trd.asm index c4b5a5d..122d6a5 100644 --- a/TRDOS/boot_trd.asm +++ b/TRDOS/boot_trd.asm @@ -81,7 +81,7 @@ bootkus1: DISP #F500 DEC A DEC A LD (ZX_VARS.ATTR_P),A - CALL ROUTINE.cls + CALL BASIC_FN.x48.x48.cls .loop2: DI XOR A LD (VAR_1),A diff --git a/inc/rom_routines.inc b/inc/rom_routines.inc index 1bec256..a0c1941 100644 --- a/inc/rom_routines.inc +++ b/inc/rom_routines.inc @@ -34,1129 +34,1134 @@ ; ============================================================== -ROUTINE: -.abs EQU 0x346A -.acs EQU 0x3843 -.add_back EQU 0x3004 -.add_ch_1 EQU 0x0F8B -.add_char EQU 0x0F81 -.add_char_keeping_current_mode EQU 0x0F85 -.add_rep_6 EQU 0x309F -.addend_0 EQU 0x2FF9 -.addition EQU 0x3014 -.addn_oflw EQU 0x303C -.all_added EQU 0x300D -.alpha EQU 0x2C8D -.alphanum EQU 0x2C88 -.arc_end EQU 0x245F -.arc_loop EQU 0x2425 -.arc_start EQU 0x2439 -.asn EQU 0x3833 -.atn EQU 0x37E2 -.auto_l_1 EQU 0x17CE -.auto_l_2 EQU 0x17E1 -.auto_l_3 EQU 0x17E4 -.auto_l_4 EQU 0x17ED -.auto_list EQU 0x1795 -.bc_spaces EQU 0x0030 -.be_end EQU 0x03F6 -.be_h_and_l_lp EQU 0x03D6 -.be_ix_plus_0 EQU 0x03D4 -.be_ix_plus_1 EQU 0x03D3 -.be_ix_plus_2 EQU 0x03D2 -.be_ix_plus_3 EQU 0x03D1 -.beep EQU 0x03F8 -.beeper EQU 0x03B5 -.bin_digit EQU 0x2CA2 -.bin_end EQU 0x2CB3 -.bits_zero EQU 0x3283 -.border EQU 0x2294 -.border_1 EQU 0x22A6 -.border_2297 EQU 0x2297 ; secondary entry to rom_border -.border_229b EQU 0x229B ; secondary entry to rom_border -.both_null EQU 0x3572 -.break_key EQU 0x1F54 ; return the carry flag reset if SHIFT and BREAK keys are both being pressed. -.byte_comp EQU 0x3564 -.byte_zero EQU 0x327E -.c_arc_ge1 EQU 0x235A -.c_ent EQU 0x37B7 -.c_r_gre_1 EQU 0x233B -.ca_10_by_a_plus_c EQU 0x2F8B -.calculate EQU 0x335B -.call_jump EQU 0x162C -.call_sub EQU 0x15F7 -.cases EQU 0x37FA -.cat_etc EQU 0x1793 -.cd_prms1 EQU 0x247D -.ch_add_plus_1 EQU 0x0074 -.chan_flag EQU 0x1615 -.chan_k EQU 0x1634 -.chan_op_1 EQU 0x1610 -.chan_open EQU 0x1601 ; open a channel (channel in A) -.chan_p EQU 0x164D -.chan_s EQU 0x1642 ; set flags for upper screen channel -.chan_s_1 EQU 0x1646 -.check_end EQU 0x1BEE -.chn_cd_lu EQU 0x162D -.chrs EQU 0x35C9 -.circle EQU 0x2320 -.cl_09_1 EQU 0x1CD6 -.cl_addr EQU 0x0E9B -.cl_all EQU 0x0DAF ; clear whole (upper) display area -.cl_attr EQU 0x0E88 -.cl_chan EQU 0x0D94 -.cl_chan_a EQU 0x0DA0 -.cl_line EQU 0x0E44 -.cl_line_1 EQU 0x0E4A -.cl_line_2 EQU 0x0E4D -.cl_line_3 EQU 0x0E80 -.cl_sc_all EQU 0x0DFE -.cl_scr_1 EQU 0x0E05 -.cl_scr_2 EQU 0x0E0D -.cl_scr_3 EQU 0x0E19 -.cl_scroll EQU 0x0E00 ; scroll the number of lines in the B register -.cl_set EQU 0x0DD9 -.cl_set_1 EQU 0x0DEE -.cl_set_2 EQU 0x0DF4 -.cl_str_lu EQU 0x1716 -.class_01 EQU 0x1C1F -.class_02 EQU 0x1C4E -.class_03 EQU 0x1C0D -.class_04 EQU 0x1C6C -.class_05 EQU 0x1C11 -.class_07 EQU 0x1C96 -.class_09 EQU 0x1CBE -.class_0b EQU 0x1CDB -.class_tbl EQU 0x1C01 -.clear EQU 0x1EAC -.clear_1 EQU 0x1EB7 -.clear_2 EQU 0x1EDC -.clear_prb EQU 0x0EDF -.clear_run EQU 0x1EAF -.clear_sp EQU 0x1097 -.close EQU 0x16E5 -.close_0_16EB EQU 0x16EB -.close_1 EQU 0x16FC -.close_2 EQU 0x1701 -.close_str EQU 0x171C -.cls EQU 0x0D6B ; CLS -.cls_1 EQU 0x0D87 -.cls_2 EQU 0x0D89 -.cls_3 EQU 0x0D8E -.cls_lower EQU 0x0D6E -.co_change EQU 0x226C -.co_temp_1 EQU 0x21E1 -.co_temp_2 EQU 0x21E2 -.co_temp_3 EQU 0x21F2 -.co_temp_4 EQU 0x21FC -.co_temp_5 EQU 0x2211 -.co_temp_6 EQU 0x2228 -.co_temp_7 EQU 0x2234 -.co_temp_8 EQU 0x223E -.co_temp_9 EQU 0x2246 -.co_temp_a EQU 0x2257 -.co_temp_b EQU 0x2258 -.co_temp_c EQU 0x2273 -.co_temp_d EQU 0x227D -.co_temp_e EQU 0x2287 -.code EQU 0x3669 -.comma_sp EQU 0x1537 -.continue EQU 0x1E5F -.copy EQU 0x0EAC -.copy_1 EQU 0x0EB2 -.copy_2 EQU 0x0EC9 -.copy_3 EQU 0x0ED3 -.copy_buff EQU 0x0ECD -.copy_end EQU 0x0EDA -.copy_l_1 EQU 0x0EFD -.copy_l_2 EQU 0x0F0C -.copy_l_3 EQU 0x0F14 -.copy_l_4 EQU 0x0F18 -.copy_l_5 EQU 0x0F1E -.copy_line EQU 0x0EF4 -.copyright EQU 0x1539 -.cos EQU 0x37AA -.count_one EQU 0x31FA -.cp_lines EQU 0x1980 -.ctlchrtab EQU 0x0A11 -.d_l_diag EQU 0x24D4 -.d_l_hr_vt EQU 0x24DB -.d_l_loop EQU 0x24CE -.d_l_plot EQU 0x24EC -.d_l_range EQU 0x24F7 -.d_l_step EQU 0x24DF -.d_letter EQU 0x2C1F -.d_no_loop EQU 0x2C2E -.d_rport_c EQU 0x2C05 -.d_run EQU 0x2C15 -.d_size EQU 0x2C2D -.data EQU 0x1E27 -.data_1 EQU 0x1E2C -.data_2 EQU 0x1E37 -.de_comma_paren_de_plus_1_parenequ EQU 0x2AEE -.dec_jr_nz EQU 0x367A -.dec_rpt_c EQU 0x2CCF -.dec_sto_1 EQU 0x2CD5 -.dec_to_fp EQU 0x2C9B -.decimal EQU 0x2CCB -.def_fn EQU 0x1F60 -.def_fn_1 EQU 0x1F6A -.def_fn_2 EQU 0x1F7D -.def_fn_3 EQU 0x1F86 -.def_fn_4 EQU 0x1F89 -.def_fn_5 EQU 0x1F94 -.def_fn_6 EQU 0x1FA6 -.def_fn_7 EQU 0x1FBD -.delete EQU 0x33A1 -.differ EQU 0x19DD -.dim EQU 0x2C02 -.dim_clear EQU 0x2C7C -.dim_sizes EQU 0x2C7F -.div_34th EQU 0x31DB -.div_loop EQU 0x31D2 -.div_start EQU 0x31E2 -.division EQU 0x31AF -.divn_expt EQU 0x313D -.dl_larger EQU 0x24CB -.dl_x_ge_y EQU 0x24C4 -.double_a EQU 0x338C -.dr_3_prms EQU 0x238D -.dr_prms EQU 0x23C1 -.dr_sin_nz EQU 0x23A3 -.draw EQU 0x2382 -.draw_line EQU 0x24B7 -.draw_line_24BA EQU 0x24BA ; entry point of the draw_line routine -.draw_save EQU 0x2497 -.drw_steps EQU 0x2420 -.e_divsn EQU 0x2D6D -.e_end EQU 0x2D7B -.e_fetch EQU 0x2D6E -.e_format EQU 0x2CEB -.e_fp_jump EQU 0x2D18 -.e_l_1 EQU 0x1A15 -.e_line_no EQU 0x19FB -.e_loop EQU 0x2D60 -.e_save EQU 0x2D55 -.e_to_fp EQU 0x2D4F -.e_tst_end EQU 0x2D71 -.each_s_1 EQU 0x1990 -.each_s_2 EQU 0x1998 -.each_s_3 EQU 0x199A -.each_s_4 EQU 0x19A5 -.each_s_5 EQU 0x19AD -.each_s_6 EQU 0x19B1 -.each_stmt EQU 0x198B -.ed_again EQU 0x0F30 -.ed_blank EQU 0x1150 -.ed_c_done EQU 0x117C -.ed_c_end EQU 0x117E -.ed_contr EQU 0x0F6C -.ed_copy EQU 0x111D -.ed_cur EQU 0x1011 -.ed_delete EQU 0x1015 -.ed_down EQU 0x0FF3 -.ed_edge EQU 0x1031 -.ed_edge_1 EQU 0x103E -.ed_edge_2 EQU 0x1051 -.ed_edit EQU 0x0FA9 -.ed_end EQU 0x1026 -.ed_enter EQU 0x1024 -.ed_error EQU 0x107F -.ed_full EQU 0x1167 -.ed_graph EQU 0x107C -.ed_ignore EQU 0x101E -.ed_keys EQU 0x0F92 -.ed_keys_t EQU 0x0FA0 -.ed_left EQU 0x1007 -.ed_list EQU 0x106E -.ed_loop EQU 0x0F38 -.ed_right EQU 0x100C -.ed_spaces EQU 0x115E -.ed_stop EQU 0x1001 -.ed_symbol EQU 0x1076 -.ed_up EQU 0x1059 -.editor EQU 0x0F2C -.end_calc EQU 0x369B -.end_compl EQU 0x30A3 -.end_tests EQU 0x358C -.ent_table EQU 0x338E -.error_1 EQU 0x0008 -.error_2 EQU 0x0053 -.error_3 EQU 0x0055 -.error_4 EQU 0x0058 -.ex_or_not EQU 0x3543 -.exchange EQU 0x343C -.exit EQU 0x36C2 -.exp EQU 0x36C4 -.expt_1num EQU 0x1C82 -.expt_2num EQU 0x1C7A -.expt_exp EQU 0x1C8C -.f_found EQU 0x1D7C -.f_l_s EQU 0x1D34 -.f_loop EQU 0x1D64 -.f_reorder EQU 0x1D16 -.f_use_1 EQU 0x1D10 -.fetch_num EQU 0x1CDE -.fetch_two EQU 0x2FBA -.find_i_1 EQU 0x1E9C -.find_int1 EQU 0x1E94 -.find_int2 EQU 0x1E99 -.first_3d EQU 0x3380 -.fn_skpovr EQU 0x28AB -.for EQU 0x1D03 -.form_exp EQU 0x33DE -.fp_0_or_1 EQU 0x350B -.fp_a_end EQU 0x2DE1 -.fp_calc EQU 0x0028 -.fp_calc_2 EQU 0x33A2 -.fp_delete EQU 0x2DAD -.fp_to_a EQU 0x2DD5 -.fp_to_bc EQU 0x2DA2 -.free_mem EQU 0x1F1A -.frst_less EQU 0x3585 -.full_addn EQU 0x303E -.g_loop EQU 0x3453 -.gen_ent_1 EQU 0x335E -.gen_ent_2 EQU 0x3362 -.get_argt EQU 0x3783 -.get_char EQU 0x0018 -.get_hl_by_de EQU 0x2AF4 -.get_mem_xx EQU 0x340F -.get_param EQU 0x1B55 -.go_nc_mlt EQU 0x30A5 -.go_sub EQU 0x1EED -.go_to EQU 0x1E67 -.go_to_2 EQU 0x1E73 -.go_to_bc EQU 0x1E6A ; 'GO TO' line in BC register -.go_to_hl EQU 0x1E6C ; 'GO TO' line in HL register XXX not tested -.gre.8 EQU 0x373D -.greater_0 EQU 0x34F9 -.hl_again EQU 0x30BC -.hl_by_de_to_hl EQU 0x30A9 ; HL=HL*DE -.hl_end EQU 0x30BE -.hl_hl_by_de EQU 0x30A9 -.hl_loop EQU 0x30B1 -.hlxde EQU 0x30A9 ; HL=HL*DE -.i_carry EQU 0x2AE8 -.i_restore EQU 0x2AEB -.if EQU 0x1CF0 -.if_1 EQU 0x1D00 -.in EQU 0x34A5 -.in_assign EQU 0x21B9 -.in_chan_k EQU 0x21D6 -.in_item_1 EQU 0x20C1 -.in_item_2 EQU 0x20D8 -.in_item_3 EQU 0x20ED -.in_next_1 EQU 0x21AF -.in_next_2 EQU 0x21B2 -.in_pk_stk EQU 0x34B0 -.in_pr_1 EQU 0x211A -.in_pr_2 EQU 0x211C -.in_pr_3 EQU 0x2129 -.in_prompt EQU 0x20FA -.in_stop EQU 0x21D0 -.in_var_1 EQU 0x213A -.in_var_2 EQU 0x2148 -.in_var_3 EQU 0x215E -.in_var_4 EQU 0x2161 -.in_var_5 EQU 0x2174 -.in_var_6 EQU 0x219B -.indexer EQU 0x16DC -.indexer_1 EQU 0x16DB -.init_chan EQU 0x15AF -.init_strm EQU 0x15C6 -.input EQU 0x2089 -.input_1 EQU 0x2096 -.input_2 EQU 0x20AD -.input_ad EQU 0x15E6 -.int EQU 0x36AF -.int_case EQU 0x3483 -.int_exp1 EQU 0x2ACC -.int_exp2 EQU 0x2ACD -.int_fetch EQU 0x2D7F -.int_store EQU 0x2D8E -.int_to_fp EQU 0x2D3B -.ix_end EQU 0x3290 -.jump EQU 0x3686 -.jump_2 EQU 0x3687 -.jump_true EQU 0x368F -.k_8_and_9 EQU 0x0382 -.k_@_char EQU 0x03B2 -.k_ch_set EQU 0x02D1 -.k_digit EQU 0x0367 -.k_e_let EQU 0x0341 -.k_end EQU 0x0308 -.k_gra_dgt EQU 0x0389 -.k_klc_dgt EQU 0x039D -.k_klc_let EQU 0x034F -.k_look_up EQU 0x034A -.k_main EQU 0x032C -.k_new EQU 0x02F1 -.k_repeat EQU 0x0310 -.k_st_loop EQU 0x02C6 -.k_tokens EQU 0x0364 -.key_3keys EQU 0x029F -.key_bits EQU 0x02A1 -.key_chan EQU 0x1113 -.key_contr EQU 0x10FA -.key_data EQU 0x1105 -.key_decode EQU 0x0333 -.key_done2 EQU 0x111B -.key_done EQU 0x02AB -.key_flag EQU 0x10F4 -.key_input EQU 0x10A8 -.key_int EQU 0x0048 -.key_line EQU 0x0296 -.key_m_cl EQU 0x10DB -.key_mode EQU 0x10E6 -.key_next EQU 0x110D -.key_scan EQU 0x028E -.key_test EQU 0x031E -.keyboard EQU 0x02BF -.l_add_string EQU 0x2BAF -.l_char EQU 0x2B3E -.l_delete_string EQU 0x2B72 -.l_each_ch EQU 0x2B0B -.l_enter EQU 0x2BA6 -.l_exists EQU 0x2B66 -.l_first EQU 0x2BEA -.l_in_w_or_s EQU 0x2BA3 -.l_length EQU 0x2B9B -.l_new_string EQU 0x2BC0 -.l_no_sp EQU 0x2B0C -.l_numeric EQU 0x2B59 -.l_single EQU 0x2B4F -.l_spaces EQU 0x2B29 -.l_string EQU 0x2BC6 -.l_test_ch EQU 0x2B1F -.last EQU 0x386C -.ld_8_bits EQU 0x05CA -.ld_block EQU 0x0802 -.ld_break EQU 0x056B -.ld_bytes EQU 0x0556 -.ld_ch_pr EQU 0x07AD -.ld_cont_1 EQU 0x0819 -.ld_cont_2 EQU 0x0825 -.ld_contrl EQU 0x0808 -.ld_data EQU 0x082E -.ld_data_1 EQU 0x084C -.ld_dec EQU 0x05C4 -.ld_delay EQU 0x05E9 -.ld_edge_1 EQU 0x05E7 -.ld_edge_2 EQU 0x05E3 -.ld_flag EQU 0x05B3 -.ld_leader EQU 0x0580 -.ld_look_h EQU 0x0767 -.ld_loop EQU 0x05A9 -.ld_marker EQU 0x05C8 -.ld_name EQU 0x07A6 -.ld_next EQU 0x05C2 -.ld_prog EQU 0x0873 -.ld_prog_1 EQU 0x08AD -.ld_sample EQU 0x05ED -.ld_start EQU 0x056C -.ld_sync EQU 0x058F -.ld_type EQU 0x078A -.ld_verify EQU 0x05BD -.ld_wait EQU 0x0574 -.len EQU 0x3674 -.less_0 EQU 0x3506 -.less_mask EQU 0x328A -.let EQU 0x2AFF -.line_ad_1 EQU 0x1974 -.line_addr EQU 0x196E -.line_draw EQU 0x2477 -.line_end EQU 0x1BB3 -.line_new EQU 0x1B9E -.line_no EQU 0x1695 -.line_no_a EQU 0x1691 -.line_run EQU 0x1B8A -.line_scan EQU 0x1B17 -.line_use EQU 0x1BBF -.line_zero EQU 0x168F -.list EQU 0x17F9 -.list_1 EQU 0x17FB -.list_2 EQU 0x1814 -.list_3 EQU 0x181A -.list_4 EQU 0x181F -.list_5 EQU 0x1822 -.list_all EQU 0x1833 -.list_all_2 EQU 0x1835 -.llist EQU 0x17F5 -.ln EQU 0x3713 -.ln_fetch EQU 0x190F -.ln_store EQU 0x191C -.loc_mem EQU 0x3406 -.log_paren_2_power_a_paren EQU 0x2DC1 -.look_p_1 EQU 0x1D8B -.look_p_2 EQU 0x1DA3 -.look_prog EQU 0x1D86 -.look_vars EQU 0x28B2 -.lprint EQU 0x1FC9 -.main_1 EQU 0x12A9 -.main_2 EQU 0x12AC -.main_3 EQU 0x12CF -.main_4 EQU 0x1303 -.main_5 EQU 0x133C -.main_5_1349 EQU 0x1349 -.main_6 EQU 0x1373 -.main_7 EQU 0x1376 -.main_8 EQU 0x1384 -.main_9 EQU 0x1386 -.main_add1 EQU 0x157D -.main_add2 EQU 0x15AB -.main_add EQU 0x155D -.main_exec EQU 0x12A2 -.main_g EQU 0x1313 ; runtime error (error in A) -.main_keys EQU 0x0205 -.make_expt EQU 0x313B -.make_room EQU 0x1655 -.mask_int EQU 0x0038 -.me_contrl EQU 0x08B6 -.me_ent_1 EQU 0x093E -.me_ent_2 EQU 0x0955 -.me_ent_3 EQU 0x0958 -.me_enter EQU 0x092C -.me_new_l2 EQU 0x08EB -.me_new_lp EQU 0x08D2 -.me_old_l1 EQU 0x08DF -.me_old_lp EQU 0x08D7 -.me_old_v1 EQU 0x0901 -.me_old_v2 EQU 0x0909 -.me_old_v3 EQU 0x0912 -.me_old_v4 EQU 0x091E -.me_old_vp EQU 0x08F9 -.me_var_l1 EQU 0x0921 -.me_var_l2 EQU 0x0923 -.me_var_lp EQU 0x08F0 -.mlt_loop EQU 0x3114 -.move_fp EQU 0x33C0 -.mult_long EQU 0x30F0 -.mult_oflw EQU 0x30EF -.mult_rslt EQU 0x30EA -.multiply EQU 0x30CA -.n_mod_m EQU 0x36A0 -.n_negtv EQU 0x3705 -.near_zero EQU 0x3159 -.neg_byte EQU 0x2FAF -.neg_test EQU 0x3474 -.negate EQU 0x346E -.new EQU 0x11B7 -.next EQU 0x1DAB -.next_1 EQU 0x1DE2 -.next_2 EQU 0x1DE9 -.next_2num EQU 0x1C79 -.next_char EQU 0x0020 -.next_line EQU 0x1BD1 -.next_loop EQU 0x1DDA -.next_o_1 EQU 0x19C7 -.next_o_2 EQU 0x19CE -.next_o_3 EQU 0x19D5 -.next_o_4 EQU 0x19D6 -.next_o_5 EQU 0x19DB -.next_one EQU 0x19B8 -.nil_bytes EQU 0x3272 -.nmi_vect EQU 0x121C -.no_add EQU 0x311B -.no_and_no EQU 0x3524 -.no_l_eql_etc EQU 0x353B -.no_reset EQU 0x0070 -.no_rstore EQU 0x31F9 -.normalise EQU 0x316C -.norml_now EQU 0x3186 -.not EQU 0x3501 -.not_bin EQU 0x2CB8 -.not_used EQU 0x1988 -.nu_or_str EQU 0x354E -.number EQU 0x18B6 -.numeric EQU 0x2D1B -.nxt_dgt_1 EQU 0x2CDA -.nxt_dgt_2 EQU 0x2D40 -.offst_tbl EQU 0x1A48 -.oflow_clr EQU 0x3195 -.oflw1_clr EQU 0x3146 -.oflw2_clr EQU 0x3151 -.one EQU 0x386A -.one_shift EQU 0x2FE5 -.one_space EQU 0x1652 -.op_str_lu EQU 0x177A -.open EQU 0x1736 -.open_1 EQU 0x1756 -.open_2 EQU 0x175D -.open_3 EQU 0x1767 -.open_end EQU 0x178B -.open_k EQU 0x1781 -.open_p EQU 0x1789 -.open_s EQU 0x1785 -.or EQU 0x351B -.other_str EQU 0x35B7 -.out EQU 0x1E7A -.out_c_1 EQU 0x18F3 -.out_c_2 EQU 0x1909 -.out_ch_1 EQU 0x195A -.out_ch_2 EQU 0x1968 -.out_ch_3 EQU 0x196C -.out_char EQU 0x1937 -.out_code EQU 0x15EF -.out_curs EQU 0x18E1 -.out_flash EQU 0x18C1 -.out_line1 EQU 0x1865 -.out_line2 EQU 0x187D -.out_line3 EQU 0x1881 -.out_line4 EQU 0x1894 -.out_line5 EQU 0x18A1 -.out_line6 EQU 0x18B4 -.out_line EQU 0x1855 -.out_num_1 EQU 0x1A1B -.out_num_2 EQU 0x1A28 -.out_num_3 EQU 0x1A30 -.out_num_4 EQU 0x1A42 -.out_sp_1 EQU 0x192B -.out_sp_2 EQU 0x1925 -.out_sp_no EQU 0x192A -.p_beep EQU 0x1AE3 -.p_border EQU 0x1AF5 -.p_bright EQU 0x1AEE -.p_cat EQU 0x1B14 -.p_circle EQU 0x1AE7 -.p_clear EQU 0x1ABB -.p_close EQU 0x1B02 -.p_cls EQU 0x1ABE -.p_cont EQU 0x1AB8 -.p_copy EQU 0x1AD6 -.p_data EQU 0x1ACC -.p_def_fn EQU 0x1AF9 -.p_dim EQU 0x1AA2 -.p_draw EQU 0x1AD2 -.p_erase EQU 0x1B10 -.p_flash EQU 0x1AED -.p_for EQU 0x1A90 -.p_format EQU 0x1B06 -.p_go_sub EQU 0x1A86 -.p_go_to EQU 0x1A7D -.p_if EQU 0x1A81 -.p_ink EQU 0x1AEB -.p_input EQU 0x1A9F -.p_int_sto EQU 0x2D8C -.p_inverse EQU 0x1AEF -.p_let EQU 0x1A7A -.p_list EQU 0x1AAE -.p_llist EQU 0x1ADC -.p_load EQU 0x1AE0 -.p_lprint EQU 0x1AD9 -.p_merge EQU 0x1AE2 -.p_move EQU 0x1B0A -.p_new EQU 0x1AA8 -.p_next EQU 0x1A98 -.p_open EQU 0x1AFC -.p_out EQU 0x1AF1 -.p_over EQU 0x1AF0 -.p_paper EQU 0x1AEC -.p_pause EQU 0x1AC5 -.p_plot EQU 0x1AC1 -.p_poke EQU 0x1AB1 -.p_print EQU 0x1A9C -.p_random EQU 0x1AB5 -.p_read EQU 0x1AC9 -.p_rem EQU 0x1AA5 -.p_restore EQU 0x1ACF -.p_return EQU 0x1A8D -.p_run EQU 0x1AAB -.p_save EQU 0x1ADF -.p_stop EQU 0x1A8A -.p_verify EQU 0x1AE1 -.pass_by EQU 0x1E39 -.pause EQU 0x1F3A -.pause_1 EQU 0x1F3D -.pause_2 EQU 0x1F49 -.pause_end EQU 0x1F4F -.peek EQU 0x34AC -.perm EQU 0x1C96 -.pf_all_9 EQU 0x2EB8 -.pf_bits EQU 0x2E7B -.pf_bytes EQU 0x2E8A -.pf_count EQU 0x2F2D -.pf_dc_out EQU 0x2F5E -.pf_dec_0s EQU 0x2F64 -.pf_digits EQU 0x2EA1 -.pf_e_frmt EQU 0x2F6C -.pf_e_pos EQU 0x2F83 -.pf_e_sbrn EQU 0x2F4A -.pf_e_sign EQU 0x2F85 -.pf_fr_dgt EQU 0x2EEC -.pf_fr_exx EQU 0x2EEF -.pf_fractn EQU 0x2ECF -.pf_frn_lp EQU 0x2EDF -.pf_insert EQU 0x2EA9 -.pf_large EQU 0x2E56 -.pf_loop EQU 0x2E01 -.pf_medium EQU 0x2E6F -.pf_more EQU 0x2ECB -.pf_negtve EQU 0x2DF2 -.pf_not_e EQU 0x2F46 -.pf_out_dt EQU 0x2F59 -.pf_out_lp EQU 0x2F52 -.pf_postve EQU 0x2DF8 -.pf_r_back EQU 0x2F25 -.pf_rnd_lp EQU 0x2F18 -.pf_round EQU 0x2F0C -.pf_save EQU 0x2E1E -.pf_small EQU 0x2E24 -.pf_test_2 EQU 0x2EB3 -.pixel_add EQU 0x22AA -.pl_tst_in EQU 0x22FD -.plot EQU 0x22DC -.plot_22df EQU 0x22DF ; secondary entry to PLOT -.plot_end EQU 0x2303 -.plot_loop EQU 0x22F0 -.plot_sub EQU 0x22E5 ; the plot subroutine (coords in BC) -.po_1_oper EQU 0x0A7A -.po_2_oper EQU 0x0A75 -.po_able EQU 0x0AD9 -.po_any EQU 0x0B24 -.po_at_err EQU 0x0AAC -.po_at_set EQU 0x0ABF -.po_attr EQU 0x0BDB -.po_attr_1 EQU 0x0BFA -.po_attr_2 EQU 0x0C08 -.po_back_1 EQU 0x0A23 -.po_back_2 EQU 0x0A38 -.po_back_3 EQU 0x0A3A -.po_change EQU 0x0A80 -.po_char EQU 0x0B65 -.po_char_2 EQU 0x0B6A -.po_char_3 EQU 0x0B76 -.po_comma EQU 0x0A5F -.po_cont EQU 0x0A87 -.po_each EQU 0x0C22 -.po_enter EQU 0x0A4F -.po_f_pr EQU 0x0B1D -.po_fetch EQU 0x0B03 -.po_fill EQU 0x0AC3 -.po_gr_1 EQU 0x0B38 -.po_gr_2 EQU 0x0B3E -.po_gr_3 EQU 0x0B4C -.po_msg EQU 0x0C0A -.po_quest EQU 0x0A69 -.po_right EQU 0x0A3D -.po_save EQU 0x0C3B -.po_scr EQU 0x0C55 -.po_scr_2 EQU 0x0C88 -.po_scr_3 EQU 0x0CD2 -.po_scr_3a EQU 0x0CF0 -.po_scr_4 EQU 0x0D02 -.po_scr_4a EQU 0x0D1C -.po_scr_4b EQU 0x0D2D -.po_search EQU 0x0C41 -.po_space EQU 0x0AD0 -.po_st_e EQU 0x0AF0 -.po_st_pr EQU 0x0AFC -.po_step EQU 0x0C44 -.po_store EQU 0x0ADC -.po_t EQU 0x0B5F -.po_t_and_udg EQU 0x0B52 -.po_t_udg EQU 0x0B52 -.po_tab EQU 0x0AC2 -.po_table EQU 0x0C14 -.po_tokens EQU 0x0C10 -.po_tr_sp EQU 0x0C35 -.po_tv_1 EQU 0x0A7D -.po_tv_2 EQU 0x0A6D -.point_lp EQU 0x22D4 -.point_sub EQU 0x22CB -.point_sub_22ce EQU 0x22CE ; secondary entry to POINT-SUB -.pointers EQU 0x1664 -.poke EQU 0x1E80 -.pr_all EQU 0x0B7F ; "print all characters" -.pr_all_1 EQU 0x0B93 -.pr_all_2 EQU 0x0BA4 -.pr_all_3 EQU 0x0BB6 -.pr_all_4 EQU 0x0BB7 -.pr_all_5 EQU 0x0BC1 -.pr_all_6 EQU 0x0BD3 -.pr_at_tab EQU 0x201E -.pr_end_z EQU 0x2045 -.pr_item_1 EQU 0x1FFC -.pr_item_2 EQU 0x200E -.pr_item_3 EQU 0x2024 -.pr_posn_1 EQU 0x204E -.pr_posn_2 EQU 0x2061 -.pr_posn_3 EQU 0x2067 -.pr_posn_4 EQU 0x206E -.pr_st_end EQU 0x2048 -.pr_string EQU 0x203C ; print a string (start in DE, count in BC) -.prb_bytes EQU 0x0EE7 -.prep_add EQU 0x2F9B -.prep_m_or_d EQU 0x30C0 -.print EQU 0x1FCD -.print_1 EQU 0x1FCF -.print_2 EQU 0x1FDF -.print_3 EQU 0x1FE5 -.print_4 EQU 0x1FF2 -.print_a EQU 0x0010 -.print_a_2 EQU 0x15F2 -.print_cr EQU 0x1FF5 -.print_fp EQU 0x2DE3 ; print a floating point number -.print_out EQU 0x09F4 -.print_string EQU 0x203C -.ptr_done EQU 0x167F -.ptr_next EQU 0x166B -.r_i_store EQU 0x365F -.ram_check EQU 0x11DA -.ram_done EQU 0x11EF -.ram_fill EQU 0x11DC -.ram_read EQU 0x11E2 -.ram_set EQU 0x1219 -.rand_1 EQU 0x1E5A -.randomize EQU 0x1E4F -.re_entry EQU 0x3365 -.re_st_two EQU 0x3293 -.re_stack EQU 0x3297 -.read EQU 0x1DED -.read_1 EQU 0x1E0A -.read_2 EQU 0x1E1E -.read_3 EQU 0x1DEC -.read_in EQU 0x3645 -.rec_edit EQU 0x16D4 -.reclaim_1 EQU 0x19E5 -.reclaim_2 EQU 0x19E8 -.rem EQU 0x1BB2 -.remove_fp EQU 0x11A7 -.report_0 EQU 0x1BB0 -.report_1 EQU 0x1DD8 -.report_2 EQU 0x1C2E -.report_2a EQU 0x0670 -.report_3 EQU 0x2A20 -.report_4 EQU 0x1F15 -.report_5 EQU 0x0C86 -.report_6 EQU 0x31AD -.report_6b EQU 0x3703 -.report_7 EQU 0x1F36 -.report_8 EQU 0x15E4 -.report_a EQU 0x34E7 -.report_ab EQU 0x371A -.report_b EQU 0x046C -.report_bb EQU 0x1E9F -.report_bc EQU 0x24F9 -.report_bd EQU 0x35DC -.report_c EQU 0x1C8A -.report_cb EQU 0x21CE -.report_d EQU 0x0D00 -.report_da EQU 0x0552 -.report_dc EQU 0x0F0A -.report_e EQU 0x1E08 -.report_fa EQU 0x0642 -.report_fb EQU 0x1765 -.report_h EQU 0x21D4 -.report_i EQU 0x1D84 -.report_j EQU 0x15C4 -.report_k EQU 0x2244 -.report_l EQU 0x1B7B -.report_m EQU 0x1EDA -.report_n EQU 0x1BEC -.report_oa EQU 0x160E -.report_ob EQU 0x1725 -.report_p EQU 0x2812 -.report_q EQU 0x288B -.report_r EQU 0x0806 -.reserve EQU 0x169E -.reset EQU 0x0066 -.rest_run EQU 0x1E45 -.restk_sub EQU 0x3296 -.restore EQU 0x1E42 -.result_ok EQU 0x370C -.return EQU 0x1F23 -.rom_trap EQU 0x1708 -.rpt_mesgs EQU 0x1391 -.rs_nrmlse EQU 0x32B1 -.rs_store EQU 0x32BD -.rslt_zero EQU 0x370E -.rstk_loop EQU 0x32B2 -.run EQU 0x1EA1 -.s_2_coord EQU 0x2522 -.s_alphnum EQU 0x2684 -.s_attr EQU 0x2672 -.s_attr_s EQU 0x2580 -.s_attr_s_2583 EQU 0x2583 ; secondary entry to S-ATTR-S -.s_bracket EQU 0x25E8 -.s_cont_1 EQU 0x26DD -.s_cont_2 EQU 0x2712 -.s_cont_3 EQU 0x2713 -.s_decimal EQU 0x268D -.s_fn EQU 0x25F5 -.s_fn_sbrn EQU 0x27BD -.s_ik_dollar_stk EQU 0x2660 -.s_ink_dollar_en EQU 0x2665 -.s_inkey_dollar EQU 0x2634 -.s_letter EQU 0x26C9 -.s_loop EQU 0x2734 -.s_loop_1 EQU 0x24FF -.s_loopend EQU 0x2770 -.s_negate EQU 0x26DF -.s_next EQU 0x2790 -.s_no_to_string EQU 0x2707 -.s_not_and EQU 0x2788 -.s_numeric EQU 0x26C3 -.s_opertr EQU 0x2723 -.s_pi EQU 0x2627 -.s_pi_end EQU 0x2630 -.s_point EQU 0x267B -.s_push_po EQU 0x270D -.s_q_again EQU 0x25BE -.s_q_copy EQU 0x25CB -.s_q_prms EQU 0x25D9 -.s_quote EQU 0x25B3 -.s_quote_s EQU 0x250F -.s_rnd EQU 0x25F8 -.s_rnd_end EQU 0x2625 -.s_rport_c2 EQU 0x2761 -.s_rport_c EQU 0x252D -.s_runtest EQU 0x2764 -.s_sc_mtch EQU 0x255A -.s_sc_rows EQU 0x255D -.s_scr_nxt EQU 0x2573 -.s_scr_sto EQU 0x257D -.s_screen_dollar EQU 0x2668 -.s_scrn_dollar_s EQU 0x2535 -.s_scrn_lp EQU 0x254F -.s_scrn_s EQU 0x2535 -.s_scrn_s_2538 EQU 0x2538 ; secondary entry to S-SCRN$-S -.s_sd_skip EQU 0x26B6 -.s_stk_dec EQU 0x26B5 -.s_stk_lst EQU 0x274C -.s_string EQU 0x25DB -.s_syntest EQU 0x275B -.s_tighter EQU 0x2773 -.s_u_plus EQU 0x25AF -.sa_1_sec EQU 0x0991 -.sa_8_bits EQU 0x0525 -.sa_all EQU 0x075A ; tape save/load -.sa_bit_1 EQU 0x0514 -.sa_bit_2 EQU 0x0511 -.sa_blank EQU 0x0629 -.sa_bytes EQU 0x04C2 -.sa_code EQU 0x06C3 -.sa_code_1 EQU 0x06E1 -.sa_code_2 EQU 0x06F0 -.sa_code_3 EQU 0x06F5 -.sa_code_4 EQU 0x06F9 -.sa_contrl EQU 0x0970 -.sa_data EQU 0x0652 -.sa_data_1 EQU 0x0692 -.sa_delay EQU 0x053C -.sa_flag EQU 0x04D0 -.sa_leader EQU 0x04D8 -.sa_line EQU 0x0716 -.sa_line_1 EQU 0x0723 -.sa_loop EQU 0x04FE -.sa_loop_p EQU 0x0505 -.sa_name EQU 0x064B -.sa_null EQU 0x0644 -.sa_or_ld_end EQU 0x0554 -.sa_or_ld_ret EQU 0x053F -.sa_out EQU 0x051C -.sa_parity EQU 0x050E -.sa_scr_dollar EQU 0x06A0 -.sa_set EQU 0x051A -.sa_space EQU 0x0621 -.sa_start EQU 0x0507 -.sa_sync_1 EQU 0x04EA -.sa_sync_2 EQU 0x04F2 -.sa_type_0 EQU 0x073A -.sa_type_3 EQU 0x0710 -.sa_v_new EQU 0x0685 -.sa_v_old EQU 0x0672 -.sa_v_type EQU 0x068F -.save_etc EQU 0x0605 -.scan_ent EQU 0x336C -.scan_func EQU 0x2596 -.scan_loop EQU 0x1B52 -.scanning EQU 0x24FB -.scrl_mssg EQU 0x0CF8 -.sec_plus EQU 0x3575 -.secnd_low EQU 0x356B -.separator EQU 0x1B6F -.series_xx EQU 0x3449 -.set_de EQU 0x1195 -.set_hl EQU 0x1190 -.set_min EQU 0x16B0 -.set_permanent_colors_0x1CAD EQU 0x1CAD ; special entry point -.set_permanent_colors_1CAD EQU 0x1CAD ; special entry point -.set_stk EQU 0x16C5 -.set_work EQU 0x16BF -.sf_arg_lp EQU 0x2843 -.sf_arg_vl EQU 0x2852 -.sf_argmt1 EQU 0x2802 -.sf_argmts EQU 0x27D9 -.sf_brkt_1 EQU 0x27D0 -.sf_brkt_2 EQU 0x27E4 -.sf_cp_def EQU 0x2814 -.sf_flag_6 EQU 0x27E9 -.sf_fnd_df EQU 0x2808 -.sf_not_fd EQU 0x2825 -.sf_r_br_2 EQU 0x2885 -.sf_rprt_c EQU 0x27E6 -.sf_run EQU 0x27F7 -.sf_syn_en EQU 0x27F4 -.sf_value EQU 0x288D -.sf_values EQU 0x2831 -.sfa_cp_vr EQU 0x296B -.sfa_end EQU 0x2991 -.sfa_loop EQU 0x295A -.sfa_match EQU 0x2981 -.sgn EQU 0x3492 -.shift_fp EQU 0x2FDD -.shift_len EQU 0x3055 -.shift_one EQU 0x316E -.sign_done EQU 0x2CFE -.sign_flag EQU 0x2CF2 -.sign_to_c EQU 0x3507 -.sin EQU 0x37B5 -.skip_cons EQU 0x33F7 -.skip_next EQU 0x33F8 -.skip_over EQU 0x007D -.skip_zero EQU 0x315E -.skips EQU 0x0090 -.sl_define EQU 0x2A94 -.sl_over EQU 0x2AA8 -.sl_rpt_c EQU 0x2A7A -.sl_second EQU 0x2A81 -.sl_store EQU 0x2AAD -.slicing EQU 0x2A52 -.small EQU 0x37F8 -.spare EQU 0x386E -.sqr EQU 0x384A -.st_e_part EQU 0x2CFF -.st_mem_xx EQU 0x342D -.stack_a EQU 0x2D28 -.stack_bc EQU 0x2D2B ; stack BC register pair -.stack_fetch EQU 0x2BF1 ; get last value from calculator stack -.stack_num EQU 0x33B4 -.start EQU 0x0000 -.start_new EQU 0x11CB -.stk_code EQU 0x3671 -.stk_const EQU 0x33C8 -.stk_const_xx EQU 0x341B -.stk_data EQU 0x33C6 -.stk_digit EQU 0x2D22 -.stk_f_arg EQU 0x2951 -.stk_fetch EQU 0x2BF1 -.stk_pntrs EQU 0x35BF -.stk_st_0 EQU 0x2AB1 -.stk_sto_string EQU 0x2AB2 -.stk_store EQU 0x2AB6 -.stk_to_a EQU 0x2314 -.stk_to_bc EQU 0x2307 -.stk_var EQU 0x2996 -.stk_zeros EQU 0x33F1 -.stmt_l_1 EQU 0x1B29 -.stmt_loop EQU 0x1B28 -.stmt_next EQU 0x1BF4 -.stmt_r_1 EQU 0x1B7D -.stmt_ret EQU 0x1B76 -.stop EQU 0x1CEE -.str_alter EQU 0x2070 -.str_and_no EQU 0x352D -.str_data1 EQU 0x1727 -.str_data EQU 0x171E -.str_dollar EQU 0x361F -.str_test EQU 0x3588 -.strings EQU 0x3559 -.strs_add EQU 0x359C -.strt_mlt EQU 0x3125 -.subn_only EQU 0x31F2 -.subtract EQU 0x300F -.sv_arrays EQU 0x29AE -.sv_ch_add EQU 0x29E0 -.sv_close EQU 0x29D8 -.sv_comma EQU 0x29C3 -.sv_count EQU 0x29E7 -.sv_dim EQU 0x2A48 -.sv_elem_string EQU 0x2A2C -.sv_loop EQU 0x29EA -.sv_mult EQU 0x29FB -.sv_number EQU 0x2A22 -.sv_ptr EQU 0x29C0 -.sv_rpt_c EQU 0x2A12 -.sv_simple_string EQU 0x29A1 -.sv_slice EQU 0x2A45 -.sv_slice? EQU 0x2A49 -.swap_byte EQU 0x343E -.syntax_z EQU 0x2530 -.t_expnent EQU 0x326C -.t_first EQU 0x3233 -.t_gr_zero EQU 0x3221 -.t_numeric EQU 0x3252 -.t_shift EQU 0x3261 -.t_small EQU 0x323F -.t_store EQU 0x3267 -.t_test EQU 0x325E -.tan EQU 0x37DA -.tape_msgs EQU 0x09A1 -.tbl_addrs EQU 0x32D7 -.tbl_of_ops EQU 0x2795 -.tbl_priors EQU 0x27B0 -.temp_ptr1 EQU 0x0077 -.temp_ptr2 EQU 0x0078 -.temps EQU 0x0D4D ; copy the permanent color items to the temporary ones -.temps_1 EQU 0x0D5B -.temps_2 EQU 0x0D65 -.test_5_sp EQU 0x33A9 -.test_char EQU 0x001C -.test_neg EQU 0x307C -.test_norm EQU 0x3155 -.test_room EQU 0x1F05 -.test_zero EQU 0x34E9 -.tkn_table EQU 0x0095 -.to_power EQU 0x3851 -.truncate EQU 0x3214 -.two_p_1 EQU 0x1E8E -.two_param EQU 0x1E85 -.unstack_z EQU 0x1FC3 -.use_252 EQU 0x2495 -.use_zero EQU 0x1CE6 -.usr_no EQU 0x34B3 -.usr_range EQU 0x34D3 -.usr_stack EQU 0x34E4 -.usr_string EQU 0x34BC -.v_80_byte EQU 0x2932 -.v_char EQU 0x28D4 -.v_each EQU 0x2900 -.v_end EQU 0x294B -.v_found_1 EQU 0x293E -.v_found_2 EQU 0x293F -.v_get_ptr EQU 0x2929 -.v_matches EQU 0x2912 -.v_next EQU 0x292A -.v_pass EQU 0x2943 -.v_rport_c EQU 0x360C -.v_run EQU 0x28FD -.v_run_or_syn EQU 0x28EF -.v_spaces EQU 0x2913 -.v_str_var EQU 0x28DE -.v_syntax EQU 0x2934 -.v_test_fn EQU 0x28E3 -.val_dollar EQU 0x35DE -.val_fet_1 EQU 0x1C56 -.val_fet_2 EQU 0x1C59 -.valid EQU 0x371C -.var_a_1 EQU 0x1C22 -.var_a_2 EQU 0x1C30 -.var_a_3 EQU 0x1C46 -.vr_cont_1 EQU 0x07E9 -.vr_cont_2 EQU 0x07F4 -.vr_cont_3 EQU 0x0800 -.vr_contrl EQU 0x07CB -.wait_key1 EQU 0x15DE -.wait_key EQU 0x15D4 -.x_large EQU 0x326D -.x_neg EQU 0x36B7 -.xis0 EQU 0x385D -.yneg EQU 0x37A8 -.zero_rslt EQU 0x315D -.zeros_4_or_5 EQU 0x2FFB -.zplus EQU 0x37A1 -.zx81_name EQU 0x04AA -; ZX Spectrum 128K -.ROM_SWAP EQU 0x5B00 ; 128K paging subroutine in RAM -._128_new EQU 0x0057 + MODULE BASIC_FN: +; BASIC 48 +x48: +.abs EQU #346A +.acs EQU #3843 +.add_back EQU #3004 +.add_ch_1 EQU #0F8B +.add_char EQU #0F81 +.add_char_keeping_current_mode EQU #0F85 +.add_rep_6 EQU #309F +.addend_0 EQU #2FF9 +.addition EQU #3014 +.addn_oflw EQU #303C +.all_added EQU #300D +.alpha EQU #2C8D +.alphanum EQU #2C88 +.arc_end EQU #245F +.arc_loop EQU #2425 +.arc_start EQU #2439 +.asn EQU #3833 +.atn EQU #37E2 +.auto_l_1 EQU #17CE +.auto_l_2 EQU #17E1 +.auto_l_3 EQU #17E4 +.auto_l_4 EQU #17ED +.auto_list EQU #1795 +.bc_spaces EQU #0030 +.be_end EQU #03F6 +.be_h_and_l_lp EQU #03D6 +.be_ix_plus_0 EQU #03D4 +.be_ix_plus_1 EQU #03D3 +.be_ix_plus_2 EQU #03D2 +.be_ix_plus_3 EQU #03D1 +.beep EQU #03F8 +.beeper EQU #03B5 +.bin_digit EQU #2CA2 +.bin_end EQU #2CB3 +.bits_zero EQU #3283 +.border EQU #2294 +.border_1 EQU #22A6 +.border_2297 EQU #2297 ; secondary entry to rom_border +.border_229b EQU #229B ; secondary entry to rom_border +.both_null EQU #3572 +.break_key EQU #1F54 ; return the carry flag reset if SHIFT and BREAK keys are both being pressed. +.byte_comp EQU #3564 +.byte_zero EQU #327E +.c_arc_ge1 EQU #235A +.c_ent EQU #37B7 +.c_r_gre_1 EQU #233B +.ca_10_by_a_plus_c EQU #2F8B +.calculate EQU #335B +.call_jump EQU #162C +.call_sub EQU #15F7 +.cases EQU #37FA +.cat_etc EQU #1793 +.cd_prms1 EQU #247D +.ch_add_plus_1 EQU #0074 +.chan_flag EQU #1615 +.chan_k EQU #1634 +.chan_op_1 EQU #1610 +.chan_open EQU #1601 ; open a channel (channel in A) +.chan_p EQU #164D +.chan_s EQU #1642 ; set flags for upper screen channel +.chan_s_1 EQU #1646 +.check_end EQU #1BEE +.chn_cd_lu EQU #162D +.chrs EQU #35C9 +.circle EQU #2320 +.cl_09_1 EQU #1CD6 +.cl_addr EQU #0E9B +.cl_all EQU #0DAF ; clear whole (upper) display area +.cl_attr EQU #0E88 +.cl_chan EQU #0D94 +.cl_chan_a EQU #0DA0 +.cl_line EQU #0E44 +.cl_line_1 EQU #0E4A +.cl_line_2 EQU #0E4D +.cl_line_3 EQU #0E80 +.cl_sc_all EQU #0DFE +.cl_scr_1 EQU #0E05 +.cl_scr_2 EQU #0E0D +.cl_scr_3 EQU #0E19 +.cl_scroll EQU #0E00 ; scroll the number of lines in the B register +.cl_set EQU #0DD9 +.cl_set_1 EQU #0DEE +.cl_set_2 EQU #0DF4 +.cl_str_lu EQU #1716 +.class_01 EQU #1C1F +.class_02 EQU #1C4E +.class_03 EQU #1C0D +.class_04 EQU #1C6C +.class_05 EQU #1C11 +.class_07 EQU #1C96 +.class_09 EQU #1CBE +.class_0b EQU #1CDB +.class_tbl EQU #1C01 +.clear EQU #1EAC +.clear_1 EQU #1EB7 +.clear_2 EQU #1EDC +.clear_prb EQU #0EDF +.clear_run EQU #1EAF +.clear_sp EQU #1097 +.close EQU #16E5 +.close_0_16EB EQU #16EB +.close_1 EQU #16FC +.close_2 EQU #1701 +.close_str EQU #171C +.cls EQU #0D6B ; CLS +.cls_1 EQU #0D87 +.cls_2 EQU #0D89 +.cls_3 EQU #0D8E +.cls_lower EQU #0D6E +.co_change EQU #226C +.co_temp_1 EQU #21E1 +.co_temp_2 EQU #21E2 +.co_temp_3 EQU #21F2 +.co_temp_4 EQU #21FC +.co_temp_5 EQU #2211 +.co_temp_6 EQU #2228 +.co_temp_7 EQU #2234 +.co_temp_8 EQU #223E +.co_temp_9 EQU #2246 +.co_temp_a EQU #2257 +.co_temp_b EQU #2258 +.co_temp_c EQU #2273 +.co_temp_d EQU #227D +.co_temp_e EQU #2287 +.code EQU #3669 +.comma_sp EQU #1537 +.continue EQU #1E5F +.copy EQU #0EAC +.copy_1 EQU #0EB2 +.copy_2 EQU #0EC9 +.copy_3 EQU #0ED3 +.copy_buff EQU #0ECD +.copy_end EQU #0EDA +.copy_l_1 EQU #0EFD +.copy_l_2 EQU #0F0C +.copy_l_3 EQU #0F14 +.copy_l_4 EQU #0F18 +.copy_l_5 EQU #0F1E +.copy_line EQU #0EF4 +.copyright EQU #1539 +.cos EQU #37AA +.count_one EQU #31FA +.cp_lines EQU #1980 +.ctlchrtab EQU #0A11 +.d_l_diag EQU #24D4 +.d_l_hr_vt EQU #24DB +.d_l_loop EQU #24CE +.d_l_plot EQU #24EC +.d_l_range EQU #24F7 +.d_l_step EQU #24DF +.d_letter EQU #2C1F +.d_no_loop EQU #2C2E +.d_rport_c EQU #2C05 +.d_run EQU #2C15 +.d_size EQU #2C2D +.data EQU #1E27 +.data_1 EQU #1E2C +.data_2 EQU #1E37 +.de_comma_paren_de_plus_1_parenequ EQU #2AEE +.dec_jr_nz EQU #367A +.dec_rpt_c EQU #2CCF +.dec_sto_1 EQU #2CD5 +.dec_to_fp EQU #2C9B +.decimal EQU #2CCB +.def_fn EQU #1F60 +.def_fn_1 EQU #1F6A +.def_fn_2 EQU #1F7D +.def_fn_3 EQU #1F86 +.def_fn_4 EQU #1F89 +.def_fn_5 EQU #1F94 +.def_fn_6 EQU #1FA6 +.def_fn_7 EQU #1FBD +.delete EQU #33A1 +.differ EQU #19DD +.dim EQU #2C02 +.dim_clear EQU #2C7C +.dim_sizes EQU #2C7F +.div_34th EQU #31DB +.div_loop EQU #31D2 +.div_start EQU #31E2 +.division EQU #31AF +.divn_expt EQU #313D +.dl_larger EQU #24CB +.dl_x_ge_y EQU #24C4 +.double_a EQU #338C +.dr_3_prms EQU #238D +.dr_prms EQU #23C1 +.dr_sin_nz EQU #23A3 +.draw EQU #2382 +.draw_line EQU #24B7 +.draw_line_24BA EQU #24BA ; entry point of the draw_line routine +.draw_save EQU #2497 +.drw_steps EQU #2420 +.e_divsn EQU #2D6D +.e_end EQU #2D7B +.e_fetch EQU #2D6E +.e_format EQU #2CEB +.e_fp_jump EQU #2D18 +.e_l_1 EQU #1A15 +.e_line_no EQU #19FB +.e_loop EQU #2D60 +.e_save EQU #2D55 +.e_to_fp EQU #2D4F +.e_tst_end EQU #2D71 +.each_s_1 EQU #1990 +.each_s_2 EQU #1998 +.each_s_3 EQU #199A +.each_s_4 EQU #19A5 +.each_s_5 EQU #19AD +.each_s_6 EQU #19B1 +.each_stmt EQU #198B +.ed_again EQU #0F30 +.ed_blank EQU #1150 +.ed_c_done EQU #117C +.ed_c_end EQU #117E +.ed_contr EQU #0F6C +.ed_copy EQU #111D +.ed_cur EQU #1011 +.ed_delete EQU #1015 +.ed_down EQU #0FF3 +.ed_edge EQU #1031 +.ed_edge_1 EQU #103E +.ed_edge_2 EQU #1051 +.ed_edit EQU #0FA9 +.ed_end EQU #1026 +.ed_enter EQU #1024 +.ed_error EQU #107F +.ed_full EQU #1167 +.ed_graph EQU #107C +.ed_ignore EQU #101E +.ed_keys EQU #0F92 +.ed_keys_t EQU #0FA0 +.ed_left EQU #1007 +.ed_list EQU #106E +.ed_loop EQU #0F38 +.ed_right EQU #100C +.ed_spaces EQU #115E +.ed_stop EQU #1001 +.ed_symbol EQU #1076 +.ed_up EQU #1059 +.editor EQU #0F2C +.end_calc EQU #369B +.end_compl EQU #30A3 +.end_tests EQU #358C +.ent_table EQU #338E +.error_1 EQU #0008 +.error_2 EQU #0053 +.error_3 EQU #0055 +.error_4 EQU #0058 +.ex_or_not EQU #3543 +.exchange EQU #343C +.exit EQU #36C2 +.exp EQU #36C4 +.expt_1num EQU #1C82 +.expt_2num EQU #1C7A +.expt_exp EQU #1C8C +.f_found EQU #1D7C +.f_l_s EQU #1D34 +.f_loop EQU #1D64 +.f_reorder EQU #1D16 +.f_use_1 EQU #1D10 +.fetch_num EQU #1CDE +.fetch_two EQU #2FBA +.find_i_1 EQU #1E9C +.find_int1 EQU #1E94 +.find_int2 EQU #1E99 +.first_3d EQU #3380 +.fn_skpovr EQU #28AB +.for EQU #1D03 +.form_exp EQU #33DE +.fp_0_or_1 EQU #350B +.fp_a_end EQU #2DE1 +.fp_calc EQU #0028 +.fp_calc_2 EQU #33A2 +.fp_delete EQU #2DAD +.fp_to_a EQU #2DD5 +.fp_to_bc EQU #2DA2 +.free_mem EQU #1F1A +.frst_less EQU #3585 +.full_addn EQU #303E +.g_loop EQU #3453 +.gen_ent_1 EQU #335E +.gen_ent_2 EQU #3362 +.get_argt EQU #3783 +.get_char EQU #0018 +.get_hl_by_de EQU #2AF4 +.get_mem_xx EQU #340F +.get_param EQU #1B55 +.go_nc_mlt EQU #30A5 +.go_sub EQU #1EED +.go_to EQU #1E67 +.go_to_2 EQU #1E73 +.go_to_bc EQU #1E6A ; 'GO TO' line in BC register +.go_to_hl EQU #1E6C ; 'GO TO' line in HL register XXX not tested +.gre.8 EQU #373D +.greater_0 EQU #34F9 +.hl_again EQU #30BC +.hl_by_de_to_hl EQU #30A9 ; HL=HL*DE +.hl_end EQU #30BE +.hl_hl_by_de EQU #30A9 +.hl_loop EQU #30B1 +.hlxde EQU #30A9 ; HL=HL*DE +.i_carry EQU #2AE8 +.i_restore EQU #2AEB +.if EQU #1CF0 +.if_1 EQU #1D00 +.in EQU #34A5 +.in_assign EQU #21B9 +.in_chan_k EQU #21D6 +.in_item_1 EQU #20C1 +.in_item_2 EQU #20D8 +.in_item_3 EQU #20ED +.in_next_1 EQU #21AF +.in_next_2 EQU #21B2 +.in_pk_stk EQU #34B0 +.in_pr_1 EQU #211A +.in_pr_2 EQU #211C +.in_pr_3 EQU #2129 +.in_prompt EQU #20FA +.in_stop EQU #21D0 +.in_var_1 EQU #213A +.in_var_2 EQU #2148 +.in_var_3 EQU #215E +.in_var_4 EQU #2161 +.in_var_5 EQU #2174 +.in_var_6 EQU #219B +.indexer EQU #16DC +.indexer_1 EQU #16DB +.init_chan EQU #15AF +.init_strm EQU #15C6 +.input EQU #2089 +.input_1 EQU #2096 +.input_2 EQU #20AD +.input_ad EQU #15E6 +.int EQU #36AF +.int_case EQU #3483 +.int_exp1 EQU #2ACC +.int_exp2 EQU #2ACD +.int_fetch EQU #2D7F +.int_store EQU #2D8E +.int_to_fp EQU #2D3B +.ix_end EQU #3290 +.jump EQU #3686 +.jump_2 EQU #3687 +.jump_true EQU #368F +.k_8_and_9 EQU #0382 +.k_@_char EQU #03B2 +.k_ch_set EQU #02D1 +.k_digit EQU #0367 +.k_e_let EQU #0341 +.k_end EQU #0308 +.k_gra_dgt EQU #0389 +.k_klc_dgt EQU #039D +.k_klc_let EQU #034F +.k_look_up EQU #034A +.k_main EQU #032C +.k_new EQU #02F1 +.k_repeat EQU #0310 +.k_st_loop EQU #02C6 +.k_tokens EQU #0364 +.key_3keys EQU #029F +.key_bits EQU #02A1 +.key_chan EQU #1113 +.key_contr EQU #10FA +.key_data EQU #1105 +.key_decode EQU #0333 +.key_done2 EQU #111B +.key_done EQU #02AB +.key_flag EQU #10F4 +.key_input EQU #10A8 +.key_int EQU #0048 +.key_line EQU #0296 +.key_m_cl EQU #10DB +.key_mode EQU #10E6 +.key_next EQU #110D +.key_scan EQU #028E +.key_test EQU #031E +.keyboard EQU #02BF +.l_add_string EQU #2BAF +.l_char EQU #2B3E +.l_delete_string EQU #2B72 +.l_each_ch EQU #2B0B +.l_enter EQU #2BA6 +.l_exists EQU #2B66 +.l_first EQU #2BEA +.l_in_w_or_s EQU #2BA3 +.l_length EQU #2B9B +.l_new_string EQU #2BC0 +.l_no_sp EQU #2B0C +.l_numeric EQU #2B59 +.l_single EQU #2B4F +.l_spaces EQU #2B29 +.l_string EQU #2BC6 +.l_test_ch EQU #2B1F +.last EQU #386C +.ld_8_bits EQU #05CA +.ld_block EQU #0802 +.ld_break EQU #056B +.ld_bytes EQU #0556 +.ld_ch_pr EQU #07AD +.ld_cont_1 EQU #0819 +.ld_cont_2 EQU #0825 +.ld_contrl EQU #0808 +.ld_data EQU #082E +.ld_data_1 EQU #084C +.ld_dec EQU #05C4 +.ld_delay EQU #05E9 +.ld_edge_1 EQU #05E7 +.ld_edge_2 EQU #05E3 +.ld_flag EQU #05B3 +.ld_leader EQU #0580 +.ld_look_h EQU #0767 +.ld_loop EQU #05A9 +.ld_marker EQU #05C8 +.ld_name EQU #07A6 +.ld_next EQU #05C2 +.ld_prog EQU #0873 +.ld_prog_1 EQU #08AD +.ld_sample EQU #05ED +.ld_start EQU #056C +.ld_sync EQU #058F +.ld_type EQU #078A +.ld_verify EQU #05BD +.ld_wait EQU #0574 +.len EQU #3674 +.less_0 EQU #3506 +.less_mask EQU #328A +.let EQU #2AFF +.line_ad_1 EQU #1974 +.line_addr EQU #196E +.line_draw EQU #2477 +.line_end EQU #1BB3 +.line_new EQU #1B9E +.line_no EQU #1695 +.line_no_a EQU #1691 +.line_run EQU #1B8A +.line_scan EQU #1B17 +.line_use EQU #1BBF +.line_zero EQU #168F +.list EQU #17F9 +.list_1 EQU #17FB +.list_2 EQU #1814 +.list_3 EQU #181A +.list_4 EQU #181F +.list_5 EQU #1822 +.list_all EQU #1833 +.list_all_2 EQU #1835 +.llist EQU #17F5 +.ln EQU #3713 +.ln_fetch EQU #190F +.ln_store EQU #191C +.loc_mem EQU #3406 +.log_paren_2_power_a_paren EQU #2DC1 +.look_p_1 EQU #1D8B +.look_p_2 EQU #1DA3 +.look_prog EQU #1D86 +.look_vars EQU #28B2 +.lprint EQU #1FC9 +.main_1 EQU #12A9 +.main_2 EQU #12AC +.main_3 EQU #12CF +.main_4 EQU #1303 +.main_5 EQU #133C +.main_5_1349 EQU #1349 +.main_6 EQU #1373 +.main_7 EQU #1376 +.main_8 EQU #1384 +.main_9 EQU #1386 +.main_add1 EQU #157D +.main_add2 EQU #15AB +.main_add EQU #155D +.main_exec EQU #12A2 +.main_g EQU #1313 ; runtime error (error in A) +.main_keys EQU #0205 +.make_expt EQU #313B +.make_room EQU #1655 +.mask_int EQU #0038 +.me_contrl EQU #08B6 +.me_ent_1 EQU #093E +.me_ent_2 EQU #0955 +.me_ent_3 EQU #0958 +.me_enter EQU #092C +.me_new_l2 EQU #08EB +.me_new_lp EQU #08D2 +.me_old_l1 EQU #08DF +.me_old_lp EQU #08D7 +.me_old_v1 EQU #0901 +.me_old_v2 EQU #0909 +.me_old_v3 EQU #0912 +.me_old_v4 EQU #091E +.me_old_vp EQU #08F9 +.me_var_l1 EQU #0921 +.me_var_l2 EQU #0923 +.me_var_lp EQU #08F0 +.mlt_loop EQU #3114 +.move_fp EQU #33C0 +.mult_long EQU #30F0 +.mult_oflw EQU #30EF +.mult_rslt EQU #30EA +.multiply EQU #30CA +.n_mod_m EQU #36A0 +.n_negtv EQU #3705 +.near_zero EQU #3159 +.neg_byte EQU #2FAF +.neg_test EQU #3474 +.negate EQU #346E +.new EQU #11B7 +.next EQU #1DAB +.next_1 EQU #1DE2 +.next_2 EQU #1DE9 +.next_2num EQU #1C79 +.next_char EQU #0020 +.next_line EQU #1BD1 +.next_loop EQU #1DDA +.next_o_1 EQU #19C7 +.next_o_2 EQU #19CE +.next_o_3 EQU #19D5 +.next_o_4 EQU #19D6 +.next_o_5 EQU #19DB +.next_one EQU #19B8 +.nil_bytes EQU #3272 +.nmi_vect EQU #121C +.no_add EQU #311B +.no_and_no EQU #3524 +.no_l_eql_etc EQU #353B +.no_reset EQU #0070 +.no_rstore EQU #31F9 +.normalise EQU #316C +.norml_now EQU #3186 +.not EQU #3501 +.not_bin EQU #2CB8 +.not_used EQU #1988 +.nu_or_str EQU #354E +.number EQU #18B6 +.numeric EQU #2D1B +.nxt_dgt_1 EQU #2CDA +.nxt_dgt_2 EQU #2D40 +.offst_tbl EQU #1A48 +.oflow_clr EQU #3195 +.oflw1_clr EQU #3146 +.oflw2_clr EQU #3151 +.one EQU #386A +.one_shift EQU #2FE5 +.one_space EQU #1652 +.op_str_lu EQU #177A +.open EQU #1736 +.open_1 EQU #1756 +.open_2 EQU #175D +.open_3 EQU #1767 +.open_end EQU #178B +.open_k EQU #1781 +.open_p EQU #1789 +.open_s EQU #1785 +.or EQU #351B +.other_str EQU #35B7 +.out EQU #1E7A +.out_c_1 EQU #18F3 +.out_c_2 EQU #1909 +.out_ch_1 EQU #195A +.out_ch_2 EQU #1968 +.out_ch_3 EQU #196C +.out_char EQU #1937 +.out_code EQU #15EF +.out_curs EQU #18E1 +.out_flash EQU #18C1 +.out_line1 EQU #1865 +.out_line2 EQU #187D +.out_line3 EQU #1881 +.out_line4 EQU #1894 +.out_line5 EQU #18A1 +.out_line6 EQU #18B4 +.out_line EQU #1855 +.out_num_1 EQU #1A1B +.out_num_2 EQU #1A28 +.out_num_3 EQU #1A30 +.out_num_4 EQU #1A42 +.out_sp_1 EQU #192B +.out_sp_2 EQU #1925 +.out_sp_no EQU #192A +.p_beep EQU #1AE3 +.p_border EQU #1AF5 +.p_bright EQU #1AEE +.p_cat EQU #1B14 +.p_circle EQU #1AE7 +.p_clear EQU #1ABB +.p_close EQU #1B02 +.p_cls EQU #1ABE +.p_cont EQU #1AB8 +.p_copy EQU #1AD6 +.p_data EQU #1ACC +.p_def_fn EQU #1AF9 +.p_dim EQU #1AA2 +.p_draw EQU #1AD2 +.p_erase EQU #1B10 +.p_flash EQU #1AED +.p_for EQU #1A90 +.p_format EQU #1B06 +.p_go_sub EQU #1A86 +.p_go_to EQU #1A7D +.p_if EQU #1A81 +.p_ink EQU #1AEB +.p_input EQU #1A9F +.p_int_sto EQU #2D8C +.p_inverse EQU #1AEF +.p_let EQU #1A7A +.p_list EQU #1AAE +.p_llist EQU #1ADC +.p_load EQU #1AE0 +.p_lprint EQU #1AD9 +.p_merge EQU #1AE2 +.p_move EQU #1B0A +.p_new EQU #1AA8 +.p_next EQU #1A98 +.p_open EQU #1AFC +.p_out EQU #1AF1 +.p_over EQU #1AF0 +.p_paper EQU #1AEC +.p_pause EQU #1AC5 +.p_plot EQU #1AC1 +.p_poke EQU #1AB1 +.p_print EQU #1A9C +.p_random EQU #1AB5 +.p_read EQU #1AC9 +.p_rem EQU #1AA5 +.p_restore EQU #1ACF +.p_return EQU #1A8D +.p_run EQU #1AAB +.p_save EQU #1ADF +.p_stop EQU #1A8A +.p_verify EQU #1AE1 +.pass_by EQU #1E39 +.pause EQU #1F3A +.pause_1 EQU #1F3D +.pause_2 EQU #1F49 +.pause_end EQU #1F4F +.peek EQU #34AC +.perm EQU #1C96 +.pf_all_9 EQU #2EB8 +.pf_bits EQU #2E7B +.pf_bytes EQU #2E8A +.pf_count EQU #2F2D +.pf_dc_out EQU #2F5E +.pf_dec_0s EQU #2F64 +.pf_digits EQU #2EA1 +.pf_e_frmt EQU #2F6C +.pf_e_pos EQU #2F83 +.pf_e_sbrn EQU #2F4A +.pf_e_sign EQU #2F85 +.pf_fr_dgt EQU #2EEC +.pf_fr_exx EQU #2EEF +.pf_fractn EQU #2ECF +.pf_frn_lp EQU #2EDF +.pf_insert EQU #2EA9 +.pf_large EQU #2E56 +.pf_loop EQU #2E01 +.pf_medium EQU #2E6F +.pf_more EQU #2ECB +.pf_negtve EQU #2DF2 +.pf_not_e EQU #2F46 +.pf_out_dt EQU #2F59 +.pf_out_lp EQU #2F52 +.pf_postve EQU #2DF8 +.pf_r_back EQU #2F25 +.pf_rnd_lp EQU #2F18 +.pf_round EQU #2F0C +.pf_save EQU #2E1E +.pf_small EQU #2E24 +.pf_test_2 EQU #2EB3 +.pixel_add EQU #22AA +.pl_tst_in EQU #22FD +.plot EQU #22DC +.plot_22df EQU #22DF ; secondary entry to PLOT +.plot_end EQU #2303 +.plot_loop EQU #22F0 +.plot_sub EQU #22E5 ; the plot subroutine (coords in BC) +.po_1_oper EQU #0A7A +.po_2_oper EQU #0A75 +.po_able EQU #0AD9 +.po_any EQU #0B24 +.po_at_err EQU #0AAC +.po_at_set EQU #0ABF +.po_attr EQU #0BDB +.po_attr_1 EQU #0BFA +.po_attr_2 EQU #0C08 +.po_back_1 EQU #0A23 +.po_back_2 EQU #0A38 +.po_back_3 EQU #0A3A +.po_change EQU #0A80 +.po_char EQU #0B65 +.po_char_2 EQU #0B6A +.po_char_3 EQU #0B76 +.po_comma EQU #0A5F +.po_cont EQU #0A87 +.po_each EQU #0C22 +.po_enter EQU #0A4F +.po_f_pr EQU #0B1D +.po_fetch EQU #0B03 +.po_fill EQU #0AC3 +.po_gr_1 EQU #0B38 +.po_gr_2 EQU #0B3E +.po_gr_3 EQU #0B4C +.po_msg EQU #0C0A +.po_quest EQU #0A69 +.po_right EQU #0A3D +.po_save EQU #0C3B +.po_scr EQU #0C55 +.po_scr_2 EQU #0C88 +.po_scr_3 EQU #0CD2 +.po_scr_3a EQU #0CF0 +.po_scr_4 EQU #0D02 +.po_scr_4a EQU #0D1C +.po_scr_4b EQU #0D2D +.po_search EQU #0C41 +.po_space EQU #0AD0 +.po_st_e EQU #0AF0 +.po_st_pr EQU #0AFC +.po_step EQU #0C44 +.po_store EQU #0ADC +.po_t EQU #0B5F +.po_t_and_udg EQU #0B52 +.po_t_udg EQU #0B52 +.po_tab EQU #0AC2 +.po_table EQU #0C14 +.po_tokens EQU #0C10 +.po_tr_sp EQU #0C35 +.po_tv_1 EQU #0A7D +.po_tv_2 EQU #0A6D +.point_lp EQU #22D4 +.point_sub EQU #22CB +.point_sub_22ce EQU #22CE ; secondary entry to POINT-SUB +.pointers EQU #1664 +.poke EQU #1E80 +.pr_all EQU #0B7F ; "print all characters" +.pr_all_1 EQU #0B93 +.pr_all_2 EQU #0BA4 +.pr_all_3 EQU #0BB6 +.pr_all_4 EQU #0BB7 +.pr_all_5 EQU #0BC1 +.pr_all_6 EQU #0BD3 +.pr_at_tab EQU #201E +.pr_end_z EQU #2045 +.pr_item_1 EQU #1FFC +.pr_item_2 EQU #200E +.pr_item_3 EQU #2024 +.pr_posn_1 EQU #204E +.pr_posn_2 EQU #2061 +.pr_posn_3 EQU #2067 +.pr_posn_4 EQU #206E +.pr_st_end EQU #2048 +.pr_string EQU #203C ; print a string (start in DE, count in BC) +.prb_bytes EQU #0EE7 +.prep_add EQU #2F9B +.prep_m_or_d EQU #30C0 +.print EQU #1FCD +.print_1 EQU #1FCF +.print_2 EQU #1FDF +.print_3 EQU #1FE5 +.print_4 EQU #1FF2 +.print_a EQU #0010 +.print_a_2 EQU #15F2 +.print_cr EQU #1FF5 +.print_fp EQU #2DE3 ; print a floating point number +.print_out EQU #09F4 +.print_string EQU #203C +.ptr_done EQU #167F +.ptr_next EQU #166B +.r_i_store EQU #365F +.ram_check EQU #11DA +.ram_done EQU #11EF +.ram_fill EQU #11DC +.ram_read EQU #11E2 +.ram_set EQU #1219 +.rand_1 EQU #1E5A +.randomize EQU #1E4F +.re_entry EQU #3365 +.re_st_two EQU #3293 +.re_stack EQU #3297 +.read EQU #1DED +.read_1 EQU #1E0A +.read_2 EQU #1E1E +.read_3 EQU #1DEC +.read_in EQU #3645 +.rec_edit EQU #16D4 +.reclaim_1 EQU #19E5 +.reclaim_2 EQU #19E8 +.rem EQU #1BB2 +.remove_fp EQU #11A7 +.report_0 EQU #1BB0 +.report_1 EQU #1DD8 +.report_2 EQU #1C2E +.report_2a EQU #0670 +.report_3 EQU #2A20 +.report_4 EQU #1F15 +.report_5 EQU #0C86 +.report_6 EQU #31AD +.report_6b EQU #3703 +.report_7 EQU #1F36 +.report_8 EQU #15E4 +.report_a EQU #34E7 +.report_ab EQU #371A +.report_b EQU #046C +.report_bb EQU #1E9F +.report_bc EQU #24F9 +.report_bd EQU #35DC +.report_c EQU #1C8A +.report_cb EQU #21CE +.report_d EQU #0D00 +.report_da EQU #0552 +.report_dc EQU #0F0A +.report_e EQU #1E08 +.report_fa EQU #0642 +.report_fb EQU #1765 +.report_h EQU #21D4 +.report_i EQU #1D84 +.report_j EQU #15C4 +.report_k EQU #2244 +.report_l EQU #1B7B +.report_m EQU #1EDA +.report_n EQU #1BEC +.report_oa EQU #160E +.report_ob EQU #1725 +.report_p EQU #2812 +.report_q EQU #288B +.report_r EQU #0806 +.reserve EQU #169E +.reset EQU #0066 +.rest_run EQU #1E45 +.restk_sub EQU #3296 +.restore EQU #1E42 +.result_ok EQU #370C +.return EQU #1F23 +.rom_trap EQU #1708 +.rpt_mesgs EQU #1391 +.rs_nrmlse EQU #32B1 +.rs_store EQU #32BD +.rslt_zero EQU #370E +.rstk_loop EQU #32B2 +.run EQU #1EA1 +.s_2_coord EQU #2522 +.s_alphnum EQU #2684 +.s_attr EQU #2672 +.s_attr_s EQU #2580 +.s_attr_s_2583 EQU #2583 ; secondary entry to S-ATTR-S +.s_bracket EQU #25E8 +.s_cont_1 EQU #26DD +.s_cont_2 EQU #2712 +.s_cont_3 EQU #2713 +.s_decimal EQU #268D +.s_fn EQU #25F5 +.s_fn_sbrn EQU #27BD +.s_ik_dollar_stk EQU #2660 +.s_ink_dollar_en EQU #2665 +.s_inkey_dollar EQU #2634 +.s_letter EQU #26C9 +.s_loop EQU #2734 +.s_loop_1 EQU #24FF +.s_loopend EQU #2770 +.s_negate EQU #26DF +.s_next EQU #2790 +.s_no_to_string EQU #2707 +.s_not_and EQU #2788 +.s_numeric EQU #26C3 +.s_opertr EQU #2723 +.s_pi EQU #2627 +.s_pi_end EQU #2630 +.s_point EQU #267B +.s_push_po EQU #270D +.s_q_again EQU #25BE +.s_q_copy EQU #25CB +.s_q_prms EQU #25D9 +.s_quote EQU #25B3 +.s_quote_s EQU #250F +.s_rnd EQU #25F8 +.s_rnd_end EQU #2625 +.s_rport_c2 EQU #2761 +.s_rport_c EQU #252D +.s_runtest EQU #2764 +.s_sc_mtch EQU #255A +.s_sc_rows EQU #255D +.s_scr_nxt EQU #2573 +.s_scr_sto EQU #257D +.s_screen_dollar EQU #2668 +.s_scrn_dollar_s EQU #2535 +.s_scrn_lp EQU #254F +.s_scrn_s EQU #2535 +.s_scrn_s_2538 EQU #2538 ; secondary entry to S-SCRN$-S +.s_sd_skip EQU #26B6 +.s_stk_dec EQU #26B5 +.s_stk_lst EQU #274C +.s_string EQU #25DB +.s_syntest EQU #275B +.s_tighter EQU #2773 +.s_u_plus EQU #25AF +.sa_1_sec EQU #0991 +.sa_8_bits EQU #0525 +.sa_all EQU #075A ; tape save/load +.sa_bit_1 EQU #0514 +.sa_bit_2 EQU #0511 +.sa_blank EQU #0629 +.sa_bytes EQU #04C2 +.sa_code EQU #06C3 +.sa_code_1 EQU #06E1 +.sa_code_2 EQU #06F0 +.sa_code_3 EQU #06F5 +.sa_code_4 EQU #06F9 +.sa_contrl EQU #0970 +.sa_data EQU #0652 +.sa_data_1 EQU #0692 +.sa_delay EQU #053C +.sa_flag EQU #04D0 +.sa_leader EQU #04D8 +.sa_line EQU #0716 +.sa_line_1 EQU #0723 +.sa_loop EQU #04FE +.sa_loop_p EQU #0505 +.sa_name EQU #064B +.sa_null EQU #0644 +.sa_or_ld_end EQU #0554 +.sa_or_ld_ret EQU #053F +.sa_out EQU #051C +.sa_parity EQU #050E +.sa_scr_dollar EQU #06A0 +.sa_set EQU #051A +.sa_space EQU #0621 +.sa_start EQU #0507 +.sa_sync_1 EQU #04EA +.sa_sync_2 EQU #04F2 +.sa_type_0 EQU #073A +.sa_type_3 EQU #0710 +.sa_v_new EQU #0685 +.sa_v_old EQU #0672 +.sa_v_type EQU #068F +.save_etc EQU #0605 +.scan_ent EQU #336C +.scan_func EQU #2596 +.scan_loop EQU #1B52 +.scanning EQU #24FB +.scrl_mssg EQU #0CF8 +.sec_plus EQU #3575 +.secnd_low EQU #356B +.separator EQU #1B6F +.series_xx EQU #3449 +.set_de EQU #1195 +.set_hl EQU #1190 +.set_min EQU #16B0 +.set_permanent_colors_0x1CAD EQU #1CAD ; special entry point +.set_permanent_colors_1CAD EQU #1CAD ; special entry point +.set_stk EQU #16C5 +.set_work EQU #16BF +.sf_arg_lp EQU #2843 +.sf_arg_vl EQU #2852 +.sf_argmt1 EQU #2802 +.sf_argmts EQU #27D9 +.sf_brkt_1 EQU #27D0 +.sf_brkt_2 EQU #27E4 +.sf_cp_def EQU #2814 +.sf_flag_6 EQU #27E9 +.sf_fnd_df EQU #2808 +.sf_not_fd EQU #2825 +.sf_r_br_2 EQU #2885 +.sf_rprt_c EQU #27E6 +.sf_run EQU #27F7 +.sf_syn_en EQU #27F4 +.sf_value EQU #288D +.sf_values EQU #2831 +.sfa_cp_vr EQU #296B +.sfa_end EQU #2991 +.sfa_loop EQU #295A +.sfa_match EQU #2981 +.sgn EQU #3492 +.shift_fp EQU #2FDD +.shift_len EQU #3055 +.shift_one EQU #316E +.sign_done EQU #2CFE +.sign_flag EQU #2CF2 +.sign_to_c EQU #3507 +.sin EQU #37B5 +.skip_cons EQU #33F7 +.skip_next EQU #33F8 +.skip_over EQU #007D +.skip_zero EQU #315E +.skips EQU #0090 +.sl_define EQU #2A94 +.sl_over EQU #2AA8 +.sl_rpt_c EQU #2A7A +.sl_second EQU #2A81 +.sl_store EQU #2AAD +.slicing EQU #2A52 +.small EQU #37F8 +.spare EQU #386E +.sqr EQU #384A +.st_e_part EQU #2CFF +.st_mem_xx EQU #342D +.stack_a EQU #2D28 +.stack_bc EQU #2D2B ; stack BC register pair +.stack_fetch EQU #2BF1 ; get last value from calculator stack +.stack_num EQU #33B4 +.start EQU #0000 +.start_new EQU #11CB +.stk_code EQU #3671 +.stk_const EQU #33C8 +.stk_const_xx EQU #341B +.stk_data EQU #33C6 +.stk_digit EQU #2D22 +.stk_f_arg EQU #2951 +.stk_fetch EQU #2BF1 +.stk_pntrs EQU #35BF +.stk_st_0 EQU #2AB1 +.stk_sto_string EQU #2AB2 +.stk_store EQU #2AB6 +.stk_to_a EQU #2314 +.stk_to_bc EQU #2307 +.stk_var EQU #2996 +.stk_zeros EQU #33F1 +.stmt_l_1 EQU #1B29 +.stmt_loop EQU #1B28 +.stmt_next EQU #1BF4 +.stmt_r_1 EQU #1B7D +.stmt_ret EQU #1B76 +.stop EQU #1CEE +.str_alter EQU #2070 +.str_and_no EQU #352D +.str_data1 EQU #1727 +.str_data EQU #171E +.str_dollar EQU #361F +.str_test EQU #3588 +.strings EQU #3559 +.strs_add EQU #359C +.strt_mlt EQU #3125 +.subn_only EQU #31F2 +.subtract EQU #300F +.sv_arrays EQU #29AE +.sv_ch_add EQU #29E0 +.sv_close EQU #29D8 +.sv_comma EQU #29C3 +.sv_count EQU #29E7 +.sv_dim EQU #2A48 +.sv_elem_string EQU #2A2C +.sv_loop EQU #29EA +.sv_mult EQU #29FB +.sv_number EQU #2A22 +.sv_ptr EQU #29C0 +.sv_rpt_c EQU #2A12 +.sv_simple_string EQU #29A1 +.sv_slice EQU #2A45 +.sv_slice? EQU #2A49 +.swap_byte EQU #343E +.syntax_z EQU #2530 +.t_expnent EQU #326C +.t_first EQU #3233 +.t_gr_zero EQU #3221 +.t_numeric EQU #3252 +.t_shift EQU #3261 +.t_small EQU #323F +.t_store EQU #3267 +.t_test EQU #325E +.tan EQU #37DA +.tape_msgs EQU #09A1 +.tbl_addrs EQU #32D7 +.tbl_of_ops EQU #2795 +.tbl_priors EQU #27B0 +.temp_ptr1 EQU #0077 +.temp_ptr2 EQU #0078 +.temps EQU #0D4D ; copy the permanent color items to the temporary ones +.temps_1 EQU #0D5B +.temps_2 EQU #0D65 +.test_5_sp EQU #33A9 +.test_char EQU #001C +.test_neg EQU #307C +.test_norm EQU #3155 +.test_room EQU #1F05 +.test_zero EQU #34E9 +.tkn_table EQU #0095 +.to_power EQU #3851 +.truncate EQU #3214 +.two_p_1 EQU #1E8E +.two_param EQU #1E85 +.unstack_z EQU #1FC3 +.use_252 EQU #2495 +.use_zero EQU #1CE6 +.usr_no EQU #34B3 +.usr_range EQU #34D3 +.usr_stack EQU #34E4 +.usr_string EQU #34BC +.v_80_byte EQU #2932 +.v_char EQU #28D4 +.v_each EQU #2900 +.v_end EQU #294B +.v_found_1 EQU #293E +.v_found_2 EQU #293F +.v_get_ptr EQU #2929 +.v_matches EQU #2912 +.v_next EQU #292A +.v_pass EQU #2943 +.v_rport_c EQU #360C +.v_run EQU #28FD +.v_run_or_syn EQU #28EF +.v_spaces EQU #2913 +.v_str_var EQU #28DE +.v_syntax EQU #2934 +.v_test_fn EQU #28E3 +.val_dollar EQU #35DE +.val_fet_1 EQU #1C56 +.val_fet_2 EQU #1C59 +.valid EQU #371C +.var_a_1 EQU #1C22 +.var_a_2 EQU #1C30 +.var_a_3 EQU #1C46 +.vr_cont_1 EQU #07E9 +.vr_cont_2 EQU #07F4 +.vr_cont_3 EQU #0800 +.vr_contrl EQU #07CB +.wait_key1 EQU #15DE +.wait_key EQU #15D4 +.x_large EQU #326D +.x_neg EQU #36B7 +.xis0 EQU #385D +.yneg EQU #37A8 +.zero_rslt EQU #315D +.zeros_4_or_5 EQU #2FFB +.zplus EQU #37A1 +.zx81_name EQU #04AA +; BASIC 128 +x128: +.show_main_menu EQU #259F +.ROM_SWAP EQU #5B00 ; 128K paging subroutine in RAM +;._128_new EQU #0057 + ENDMODULE \ No newline at end of file