Jake-S@cup.portal.com (Jake G Schwartz) (04/03/91)
HP48SX Internal Address List sorted in increasing address order 4/2/91 ------------------------------------------------------------------------ Author/Symbol Key: : or = Jan Brittenson (RAM) - Address is in RAM - Rick Grevelle (in hidden ROM) - Address is in the 32K ROM ; Jim Cloos page hidden below built-in ^ Paul Dale RAM (70000-7FFFF) blank Derek Nickel MC - Machine Code /U HP USRLIB built-in names TOS - Top of Stack Addresses with a dash and no definition are prefixed code entry points (as identified by Rick Grevelle) whose functions have yet to be described. Multiple definitions have been included here for completeness. ------------------------------------------------------------------------ (start of part 1 of 4) 00100 [DON Ofs2 Ofs1 Ofs0] Disp On, Bit Offset 00100: display_IO 00101 [Con3 Con2 Con1 Con0] Contrast 00102 [VDIG LID TRIM Con4] Disp Test (VDIG,LID,TRIM should be 0) & Contrast 00104 16 bit hardware CRC 0011F: 7_or_f_map 00138 hardware timer 00138: clock 0045C: intr_save_offset 004EA: keybuf 00D57: kbflush 00D71- 01160: do_in.4 0172B- 01E5E- 01F53- 01F6D- cllcd_(status_&_stack_area) 01FA7- cllcd_(entire_display) 02248 move #100,c.a / config 028FC Enter Machine Code (for RPL Objects) 028FC: Type 02911 System Binary 02911: type_Address 02911; /U # 02933 Real Number 02933: type_Real 02933; /U % 02955 Long Real 02955: type_LReal 02955; /U %% 02977 Complex Number 02977: type_Complex 02977; /U C% 0299D Long Complex 0299D: type_LComplex 0299D; /U C%% 029BF Character 029BF: type_Char 029BF; /U CHR 029E8 Array 029E8: type_Array 029E8; /U ARRY 02A0A Linked Array 02A0A: type_Arr_Linked 02A0A; /U LNKARRY 02A2C String 02A2C: type_String 02A2C; /U $ 02A4E Binary Integer 02A4E: type_Binary 02A4E; /U HXS 02A74 List 02A74: type_List 02A74; /U { 02A96 Directory 02A96: type_Directory 02A96; /U DIR 02AB8 Algebraic 02AB8: type_Algebraic 02AB8; /U DOSYMB 02ADA Unit 02ADA: type_Unit 02ADA; /U UNIT 02AFC Tagged 02AFC: type_Tagged 02AFC; /U TAG 02B1E Graphic 02B1E: type_Graphic 02B1E; /U GROB 02B40 Library 02B40: type_Library 02B40; /U LIB 02B62 Backup 02B62: type_Backup 02B62; /U BAK 02B88 Library Data 02B88: type_Libdata 02B88; /U DOEXT0 02BAA; /U DOEXT1 02BCC; /U DOEXT2 02BEE; /U DOEXT3 02C10; /U DOEXT4 02C28: span10nib 02C49: span21nib 02C6D: span26nib 02C95: span32nib 02CBC: span47nib 02CE3: spanbyte 02D04: span5vector 02D2A: span1thread 02D9D Program 02D9D: type_Program 02D9D; /U :: 02DCC Code 02DCC: type_Code 02DCC; /U CODE 02E48 Global Name 02E48: type_Gname 02E48; /U ID 02E6D Local Name 02E6D: type_Lname 02E6D; /U LAM 02E92 XLIB Name 02E92: type_Func 02E92: type_Xname 02E92; /U ROMPTR 02EFB: spanname 02F28: spanxlib 02F4C: Get_val_Eval 02F6F- 02FD6: Getvalue_or_ErrUndef 02FEF: GetXlib_or_ErrUndef 03012: getinstr_2 03019 MC: skip next token 03019: getinstr 0312B End Marker 0312B- end_composite_object 0312B: End 0312B; /U ; 03130 RPL RETURN 03130: rpl_end 0314C Internal DEPTH -> (1:System Binary) 0314C- depth 0314C: Depth 03188 Internal DUP 03188- dup_1any 03188: Dup 031AC Internal DUP2 031AC- dup2_1any2any 031AC: Dup2 031D9 Internal DUPN (N:...,1:System Binary) 031D9- dupn 031D9: Dupn 03223 Internal SWAP 03223- swap 03223= Swap 03244 Internal DROP 03244- drop 03244= Drop 03258 Internal DROP2 03258- drop2 03258: Drop2 0326E Internal DROPN (1:System Binary) 0326E- dropn 0326E= Dropn 03295 Internal ROT 03295- rot 03295= Rot 032C2 Internal OVER 032C2- over 032C2: Over 032E2 Internal PICK (N:...,1:System Binary) 032E2- pick 032E2: Pick 032F3: pick_a_from_c 03325 Internal ROLL (N:...,1:System Binary) 03325- roll 03325: Roll 03330: roll_a_levels 0339E Internal ROLLD (N:...,1:System Binary) 0339E- rolld 0339E: Rolld 033A9: rolld_a_levels 03416 MC: garbage collect need 1 stack element 0341D MC: garbage collect need C.A stack elements 03442- con_1real2{shortshort} 03562- size_(elements)_1array 0357C MC: push A as new System Binary and continue RPL 0357C: pusha_rplret_alt 0357F: pusrr0_rplret_alt 03585: rplret_3 0358F- type_(real/complex)_1array 035A9- size_(dimension)_1array 035A9= Arrdims_listofshort 0363B^ <61441h> 03672 MC: restore registers, push A and continue RPL 03672: restore_regs_pusha_ret 03685- verify_existence_of_array_element_1array2{<><>} 0371D- get_1array2short 03826^ <A8241h> 03880^ <102A8h> 038DC^ <E13A8h> 039BE: blkalloc_keep_c 03A81 True 03A81- external_true 03A81: True 03A86: pusha_rplret 03AC0 False 03AC0- external_false 03AC0: False 03ADA- xor_(boolean)_1external2external 03AF2 Internal NOT (1:True/False) 03AF2- not_(boolean)_1external 03AF2: Not 03B06 MC: push False and continue RPL 03B06: False_rplret 03B1A MC: push True and continue RPL 03B2E if TOS-1 = TOS (object addresses are the same) -> True/False 03B2E- ==_(boolean)_1external2external 03B2E: Identicalp 03B46 if TOS-1 = False, then DROP TOS, else DROP TOS-1 03B46- and_(boolean)_1external2external 03B46: If_not_false 03B65: setr0_rplret_alt2 03B68: seta_rplret_alt2 03B75 if TOS-1 = True, then DROP TOS, else DROP TOS-1 03B75- or_(boolean)_1external2external 03B75: DropLev2_ifTrue 03B97 Internal SAME -> True/False 03B97- same_(boolean)_1any2any 03C64- prolog\->short_1list/program/algebraic/directory 03C64: Type_to_short 03CA6 if TOS = 0 (System Binary) -> True/False 03CA6- not_(boolean)_1short 03CA6: Nonzerop_short 03CC7 if TOS != 0 (System Binary) -> True/False 03CC7- <0h>_\=/_(boolean)_1short 03CC7: Zerop_short 03CE4 if TOS-1 < TOS (System Binary) -> True/False 03CE4- <_(boolean)_1short2short 03CE4: LessThan_short_short 03D19 if TOS-1 = TOS (System Binary) -> True/False 03D19- ==_(boolean)_1short2short 03D19: Equal_short_short 03D4E if TOS-1 != TOS (System Binary) -> True/False 03D4E- \=/_(boolean)_1short2short 03D4E: NotEqual_short_short 03D83 if TOS-1 > TOS (System Binary) -> True/False 03D83- >_(boolean)_1short2short 03D83: GreaterThan_short_short 03DBC Internal + (2:System Binary,1:System Binary) 03DBC- +_1short2short 03DBC: Add_short 03DC7: Push_A_and_rplret 03DE0 Internal - (2:System Binary,1:System Binary) 03DE0- -_1short2short 03DE0: Sub_short 03DEF Internal add one (1:System Binary) 03DEF- <1h>_+_1short 03DEF: Inc_short 03E0E Internal subtract one (1:System Binary) 03E0E- <1h>_-_1short 03E0E: Dec_short 03E2D Internal add two (1:System Binary) 03E2D- <2h>_+_1short 03E2D: Inc2_short 03E4E Internal subtract two (1:System Binary) 03E4E- <2h>_-_1short 03E4E: Dec2_short 03E6F Internal multiply by 2 (1:System Binary) 03E6F- <2h>_*_1short 03E6F: Mul2_short 03E8E Internal divide by 2 (1:System Binary) 03E8E- <2h>_/_1short2short 03E8E: Div2_short 03EB1 Internal AND (2:System Binary,1:System Binary) 03EB1- and_1short2short 03EB1: And_short_short 03EC2 Internal * (2:System Binary,1:System Binary) 03EC2- *_1short2short 03ED9: Mul_short_short_loop 03EE5: Mul_short_short_done 03EF7 Internal / (2:System Binary,1:System Binary) -> (2:rem,1:div) 03EF7- /_1short2short 03F14: shortpushR0R1_rplret 03F5D MC: pop TOS-1 and TOS (System Binary) -> A.A and C.A 03F5D: get2shorts 03F8B push Real Number prolog <2933h> 03F8B: Short__type_Real 03F8B^ <2933h> 03F95 push Complex Number prolog <2977h> 03F95: Short__type_Complex 03F95^ <2977h> 03F9F push List prolog <2A74h> 03F9F: Short__type_List 03F9F^ <2A74h> 03FA9 push Global Name prolog <2E48h> 03FA9: Short__type_Gname 03FA9^ <2E48h> 03FB3 push Program prolog <2D9Dh> 03FB3: Short__type_Program 03FB3^ <2D9Dh> 03FBD push Algebraic prolog <2AB8h> 03FBD: Short__type_Algebraic 03FBD^ <2AB8h> 03FC7 push Directory prolog <2A96h> 03FC7: Short__type_Directory 03FC7^ <2A96h> 03FD1 push Local Name prolog <2E6Dh> 03FD1: Short__type_Lname 03FD1^ <2E6Dh> 03FDB push Long Real prolog <2955h> 03FDB: Short__type_LReal 03FDB^ <2955h> 03FE5 push Unit prolog <2ADAh> 03FE5: Short__type_Unit 03FE5^ <2ADAh> 03FEF <0h> 03FEF: Short_0 03FF9 <1h> 03FF9: Short_1 04003 <2h> 04003= Short_2 0400D <3h> 0400D= Short_3 04017 <4h> 04017= Short_4 04021 <5h> 04021= Short_5 0402B <6h> 0402B= Short_6 04035 <7h> 04035= Short_7 0403F <8h> 0403F: Short_8 04049 <9h> 04049: Short_9 04053 <Ah> 04053= Short_0ah 0405D <Bh> 0405D= Short_0bh 04067 <Ch> 04067: Short_0ch 04071 <Dh> 04071: Short_0dh 0407B <Eh> 0407B= Short_0eh 04085 <Fh> 04085: Short_0fh 0408F <10h> 0408F: Short_10h 04099 <11h> 04099= Short_11h 040A3 <12h> 040A3= Short_12h 040AD <13h> 040AD: Short_13h 040B7 <14h> 040B7: Short_14h 040C1 <15h> 040C1: Short_15h 040CB <16h> 040CB: Short_16h 040D5 <17h> 040D5: Short_17h 040DF <18h> 040DF: Short_18h 040E9 <19h> 040E9: Short_19h 040F3 <1Ah> 040F3= Short_1ah 040FD <1Bh> 040FD= Short_1bh 04107 <1Ch> 04107: Short_1ch 04111 <1Dh> 04111: Short_1dh 0411B <1Eh> 0411B= Short_1eh 04125 <1Fh> 04125: Short_1fh 0412F <20h> 0412F: Short_20h 04139 <21h> 04139= Short_21h 04143 <22h> 04143= Short_22h 0414D <23h> 0414D: Short_23h 04157 <24h> 04157: Short_24h 04161 <25h> 04161: Short_25h 0416B <26h> 0416B: Short_26h 04175 <27h> 04175: Short_27h 0417F <28h> 0417F: Short_28h 04189 <29h> 04189: Short_29h 04193 <2Ah> 04193= Short_2ah 0419D <2Bh> 0419D: Short_2bh 041A7 Internal OFF 041A7= Off 041ED- off 04546- 04577- 04693: save_regs_ref_4 04708- 04714- key 04714: Lastkeyq 0477E: poll_kbd 047B7: clear_pollflag 047C7- 04912- keywait 04A0B- rcl_rom_directory_1short 04A0B- rcl_rom_operation_1short 04A0B- rcl_variable_name_1short 04A41- rcl_variable_menu_label_as_global_1short(label_number) 04A41- rcl_rom_menu_label_as_string_1short(label_number) 04A4C- sto_menu_label_1short2string 04A57- 04B15: getmenu 04B76: getmenuent 04CDC^ <72000h> 04CE6- rcl_5_nibbles_@70673_as_short 04CE6: Get_70673 04D0E- sto_5_nibbles_@70673_1short 04D0E: Set_70673 04D33- clr_5_nibbles_@70673 04D33: Clear_70673 04D3E: Set_string_null 04D43: set_string_null 04D57: Drop_set_string_null 04DD7- split_short_1short 04DD7: Split_short 04E07- move_address_at_70600_to_@d1 04E07: Get_70600 04E37- move_address_@d1_to_at_70600 04E37: Bind_70600 04E5E: Inc_local_and_loop_ctrs 04EB8: Eval_in_new_frameq 04ED1- do errn @70673 (Last error code) 04FAA- errn_006_power_lost 04FB6 Error: Insufficient Memory 04FB6- errn_001_insufficient_memory 04FB6: Error_Insuff_mem 04FBB MC: Error: Insufficient Memory 04FBB: error_insuff_mem 04FC2- errn_002_directory_recursion 04FC2: Error_Dir_Recursion 04FC7: error_dir_recursion 04FCE- errn_003_undefined_local_name 04FCE: Error_Undef_local 04FD3: error_undef_local 04FDA- errn_008_invalid_card_data 04FDA: Error_Inv_card_data 04FDF: error_inv_card_data 04FE6- errn_009_object_in_use 04FE6: Error_Obj_in_use 04FEB: error_obj_in_use 04FF2- errn_00a_port_not_available 04FF2: Error_Port_not_avail 04FF7: error_port_not_avail 04FFE- errn_00b_no_room_in_port 04FFE: Error_No_room_in_port 0500A- errn_00c_object_not_in_port 0500A: Error_Obj_not_in_port 0500F: error_obj_not_in_port 05016- errn_004_undefined_xlib_name 05016: Error_Undef_xlib_name 0501B: error_undef_xlib_name 0501E MC: invoke error code in C 0501E: disp_error_c_p 05023 MC: invoke error code in A.A 05023: disp_error_a 05040- 05068- 05089 Internal UVAL (1:Unit) 05089- uval_(1_get)_1unit 05089= RE_Unit 050ED- string->character 050ED: FirstChar_of_string 05143 MC: Restore D,B,D1,D0 (C=D0), Clear Carry and continue RPL 05153: SubList_2_toEnd 0516C: SubString_2toEnd 05176: Short_fffffh 0518A- +_1string2string 05193 Internal + (2:String,1:String) 05193- +_1string2string 05193= Add_string_string 0521F Internal + (2:List,1:List) 0521F= Add_list_list 0525B- chr_1short2string 052C6= ToList1_Swap_AddList 052EE- chr_1short2string 052EE= Add_char_to_string 052FA Internal + (2:List,1:Any) 052FA= Add_list_any 05331 build composite object (N:...,2:System Binary,1:System Binary) 05331- \->list_1short(prolog)2short(n)3any...nanyn+1anyn+2any 05331- \->program_1short(prolog)2short(n)3any...nanyn+1anyn+2any 05331- \->algebraic_1short(prolog)2short(n)3any...nanyn+1anyn+2any 05445 Internal ->PROGRAM (N:...,1:System Binary) 05445: ToPrg 05459 Internal ->LIST (N:...,1:System Binary) 05459: ToList 0546D Internal ->ALGEBRAIC (N:...,1:System Binary) 0546D: ToAlg 05481 Internal ->UNIT (M:...,1:System Binary) 054AF explode composite object -> (N:...,1:System Binary) 054AF- algebraic\->_1algebraic 054AF- list\->_1list 054AF- program\->_1program 054AF: ListAlgPrgTo 0554C GC & load D,B,D1,D0 (C=D0) / CC 05566: Short_5_p_alt 0556F: Short_5_p 05574: short_5_p 0558A: settrue_if_CEqA_elseFalse 0558F: settrue 055A3: setfalse 055B7: Short__End_p 055D5: Binary_null Template for Binaries 055DF "" 055DF: String_null Template for Strings 055E9 { } 055E9: List_empty Template for Lists (empty list) 055F3: Alg_empty Template for Algebraics 05616- size_(nibbles)_1string 05622 SIZE of level 2 String -> System Binary 05622- size_(bytes)_1any2string 05622: Strlen_of_lev2 05636 Internal SIZE (1:String) -> System Binary 05636- size_(bytes)_1string 05636: Strlen 0567B- size_1list 0567B= Size_listUnit 056B6 Internal GET; object <Nh> -> N'th address in object 056B6- get_1short2list 05733- sub_(bytes)_1short2short3string 05733= Substr_short_short 05815- sub_(nibbles)_1short2short3string 05821- sub_1short2short3list 05821= Sub_Arr_Short_Short 05902- size_(nibbles)_1any 05944 Internal BYTES (non-ROM objects) -> (2:System Binary,1:Binary Integer) 05944- bytes_1any 05944= Crc_Nibbles 059CC- short->binary 05A03 Internal B->SB (1:Binary Integer) 05A03- binary->short 05A03= Bin_to_short 05A51- character\->short 05A51: Char_to_short 05A75- short\->character 05A75: Short_to_char 05AB3: Copy_and_set_type 05ACC- change_prolog_1short2any 05ACC: Settype 05B15- string\->global_1string 05B15: Str_to_Global 05B79 MC: allocate string 05B79: stralloc 05B88: str_try_again 05BAD: str_avail 05BE9 name to string (1:Global Name/Local Name) 05BE9- global\->string_1global 05BE9: Name_to_string 05C27 Internal R->C (2:Real Number,1:Real Number) 05C27- r\->c 05C27: Two_reals_to_complex 05C8A- longreal\->longcomplex_1longreal2longreal 05C8A: Two_lreals_to_lcomplex 05D2C Internal C->R (1:Complex Number) 05D2C- c\->r 05D2C: Complex_to_reals 05DBC- longcomplex\->longreal_1longcomplex 05DBC: Lcomplex_to_lreals 05E81 Deep internal ->TAG (2:Any,1:String) 05E81: StrTag 05E9F- /->tag_1{global_any} 05E9F: Tag 05EC7 Internal OBJ-> (1:Tagged) 05EC7= SplitTag 05EEA change prolog of list element one to Global Name 05EEA- dtag_1{tagged} 05EEA: Zap_Gname 05F0F GC Need 5 Nibbles 05F2E Internal ->TAG (2:Any,1:Global Name/Local Name) 05F42 RPL Garbage Collect 05F42- force_memory_packing 05F61 Internal MEM (nibbles free) -> (1:System Binary) 05F61- mem 05F61: Free_mem 05F91: findobj 0613E Garbage Collect & set D 064D6- 064E2- 06529: shortpush_r0r1 06537 MC: push R0 as new System Binary 06537: shortpush_r0 0657E^ <61441h> 065D9- 065E5- 06641 MC: pop TOS (System Binary) -> A.A 06641: getshort 06657 Internal NEWOB 06657- newob 06657: Copy 066B9: blkcopy_descend 0670C MC: block copy 0670C: blkcopy 0679B MC: save D0,D1,B,D (uses C,D0), clear carry 0679B: save_regs 067D2 MC: restore D,B,D1,D0 (C=D0), clear carry 067D2: restore_regs 06806 Let C = Space B/W RSTK & TOS 06806= avail_mem 06A8E Let C.A = C.A / 5 06A8E: div5_c 06AD8 A=malloc(C Nibbles) ??? 06AD8: blkalloc 06AE3 A=malloc(C Nibbles) 06B00 A=malloc(B Nibbles) (C.A=free nibbles) 06B3E: Dynamicp 06B4E- 06DDE- 06E8E No Operation (continue RPL) 06E8E- continue_rpl_(no_operation) 06E8E: RE_Real 06E97 Place next address on the stack, do not execute 06E97- push_next_item_in_rpl_instruction_stream_to_stack_unevaluated 06E97: Get_value 06EC9: pushobj_a_rplret 06EEB- 06F66- 06F8E Internal EVAL (1:Any except Algebraic/List/Tagged) 06F8E- eval_1any_(except_list_algebraic_tagged) 06F8E: Eval 06F9F- eval_1program 06F9F: Eval_program 06FB7 iterate loop 06FB7: Iterate_loop 06FBC MC: iterate loop 06FBC: iterate_loop 06FD1 Return and execute the next token in this stream 06FD1: Eval_prev_context 06FD6 MC: return and execute the next token in this stream 06FD6: eval_and_ret 06FD6: rpl_return 07012: DupNextPrg 0701F- 07035: dupnextprg 070C3- if_level3_true_then_drop_&_eval_else_swap_drop_&_eval_1any2any3external 070C3: IfTrueFalse 070F5: pop_rplret 070FD- if_level2_true_then_eval_else_else_drop 0712A- if_level1_true_then_skip_next_item_in_this_instruction_stream_1external 0712A if pop TOS = True, then skip next token 0712A: Skip_if_True 0714D- skip_next_item_in_this_instruction_stream 0714D: Skip 07152 MC: skip next token and continue RPL 07152: skip 0715C- skip_next_2_items_in_this_instruction_stream 0715C skip next two tokens 0715C: Skip_Two 07161 MC: skip next two tokens and continue RPL 07161: skip_two 0716B set return to self 0716B: Set_return_self 07170 MC: set return to self and continue RPL 07170: set_return 0717B MC: set return to A and continue RPL 0717B: set_return_a 071A2 loop 071A2- do 071A2- while 071A2: Loop 071AB exit loop 071B0 MC: exit loop 071B0: exit_loop 071BE MC: continue RPL 071BE: rplret_5 071C8 if pop TOS = False, then exit loop, else iterate loop 071C8- end_1external_(do_(until)_loop/test-clause_true_end) 071C8- until_(end)_1external 071C8: Until_False 071CD MC: if pop TOS = False, then exit loop, else iterate loop 071E5 exit loop 071E5- end_1external 071EE if pop TOS = False, then skip next two tokens and iterate 071EE- repeat_1external_(while_test-clause_true_repeat_loop-clause_end) 071EE: IfFalse_thenSkip2Iterate 07211 MC: skip next two tokens and iterate 07221 push current loop counter as System Binary 07221- rcl_current_loop_count 07221: Loop_increment 07249- rcl_n_(total_loop_passes) 07249: Loop_counter 07258: Loop_v1q 07264: Loop_v2q 07270: Set_loop_increment 07295: Set_loop_counter 072AD: Set_loop_v1q 072C2: Set_loop_v2q 072D7 A=orig D0, C=ptr to loop info, D0=ptr to loop counter 072D7: find_loopvars 072EC: find_loopvar_3 07321- 07334 next (internal loop) 07334- next 07334: Next 073A5- step_1short 073A5: Step 073C3 for 0 to (TOS)-1 (1:System Binary) 073C3- start_0_to_n-1_1short 073C3: Start_0or1_shortSub1 073CE for 1 to (TOS)-1 (1:System Binary) 073CE- start_1_to_n-1_1short 073CE: Start_1_to_nSub1 073DB for 1 to TOS (1:System Binary) 073DB- start_1_to_n_1short_(7249=n+1) 073DB: Start_1_shortSub1 073F7 for TOS to (TOS-1)-1 (2:System Binary,1:System Binary) 073F7- start_n(2)_to_n(1)_1short2short 073F7: Start_short_short 07497- purge_local(s) 074D0 store local variables (N:Any,...,1:List(of Local Names)) 074D0: ListAlgPrgTo_StoreLocals 074E4 store local variables (M:Any,...N:Local Name,...1:System Binary) 074E4- store_local(s)_1short2local....nany 074E4: Store_Locals_N 075A5- 075E9- 07638- 0764E; Replace message table (1:Array of String, 2:System Binary) 076AE Internal DETACH from HOME directory (1:System Binary) 07709 Internal ATTACH to HOME directory (1:System Binary) 077C2- 07819- 07866: nameeqp 078C3: Find_var_current_dir 07901= Up_dir 0791E- 0792A- 07943- 0797B- rcl_1global 0797B: Find_name 079AE: rr_pusha_jumpTrue_ref 079CC: try_prev_dir 079D3: rr_setFalse_rplret_ref 079D7- 07A90^ <216A8h> 07BFD- 07C2F: jumpTrue 07D1B- 07D27 Internal STO (2:Any,1:Local Name) 07DA2: find_local_var 07DF3: find_local_b_levels_up 07E50- \->xlib_1short2short 07E76- rpl\->xlib_1program 07E99- xlib\->rpl_1xlib 07E99= Find_Xlib 07EC4: rr_setFalse_rplret 07F98- 08051^ <414C1h> 08072: rr_pusha_jumpTrue 0807F- returns_library_location_1short(library_number) 0809E- size_(nibbles-10)_1short(library_number) 080C9- does_this_library_or_one_higher_exist?_1short(library_number) 08101- returns_hash_table_location_1short(library_number) 0811C- returns_message_table_location_1short(library_number) 08128- rcl_link_table_to_stack_(large_binary)_1short(library_number) 08143- rcl_configuration_routine_to_stack_1short(library_number) 0814F- 081B9- 081D9- backup\->name_1backup 081EE- library\->short_1library 08207- 0821F- 0825B^ <216A8h> 082E3- variable_contents->name 082E3= Up_findValue 08309- rcl_next_directory_up_1directory 08309= Updir 08326- rcl_first_directory/variable_1directory 08326: Get_first_dirEntry 08376- rcl_next_directory/variable_1external2directory 085D3- 08696- sto_1global2any 089D8- purge_1external(true/false)2any(variable_contents) 089FA- purge_1any(variable_contents) 08CCC- xlib\->_1xlib 08D08- sto_directory_1global2directory 08D08- updir_1directory_(pre-existing) 08D08: Set_curdir 08D14: pop_store_ind_c_rplret 08D1C: store_a_indc_rplret 08D2F: clr_indc_rplret 08D35: zeropindc 08D4A: Store_tmpdir 08D5A recall current directory 08D5A- rcl_current_directory 08D5A: Get_curdir 08D66: pushindc_rplret 08D75: rpljump_indc 08D82- rcl_home_directory 08D82: Get_Tmpdir 08D92 Internal HOME 08D92- home 08D92: Home 08D9E: setHome_c 08DC4: SetTmpdir_Home 08DD4 if pop TOS = HOME directory -> True/False 08DD4- home?_(boolean)_1directory 08DD4: Homep 08E14^ <7FFh> 08E73- 08ECC^ <566A8h> 08F20^ <D6A8h> 09107- 0922D^ <71541h> 092F5- 0948E- 094A4- 095E3^ <2D541h> 09699- 0970A- 09730- 0AAD0- 0AB51- 0AB82- return_port_pointers_1short 0AC66^ <36h> 0AC70- 0AD47- 0AE03- 0AF8B- 0B037- 0B5F3- 0B69B- 0B7C6- 0B9E8- 0BA7D- 0BB68- 0BD54- 0BD60- 0C1EF- 0C288- 0C2CB- 0C37A- 0C4EC- rcl_message_as_string_1short(message_table_address)2short(message) 0C4EC- (should_be_immediately_followed_drop_newob) 0C4EC- 0C4FE^ <F6A8h> 0C612- rcl_1short(address_of_data_being_recalled) 0C624^ <F6A8h> 0CAF5- 0CB0F: ret_FalseTrue_2_ref 0CB84- 0CBA2- 0CBAE Error: Nonexistent Alarm 0CBAE- errn_d04_nonexexistent_alarm 0CBAE: Error_Nonexist_Alrm 0CBB7: error_inv_date 0CBC4: error_inv_time 0CBD1: error_inv_repeat 0CBDE MC: Error: Nonexistent Alarm 0CBDE: error_nonexist_alrm 0CBE3: disp_error_cx 0CBEF: restore_regs_and_p 0CBFA Internal TIME 0CBFA= Cmd_Time 0CC0E Internal DATE 0CC0E= Cmd_Date 0CC39 Internal DDAYS 0CC39= Ddays 0CC5B Internal DATE+ 0CC5B= DateAdd 0CC60^ <1h> 0CC79- 0CD2B Internal ->DATE 0CD2B= ToDate 0CD3F Internal CLKADJ 0CD3F= Clkadj 0CD53 Internal ->TIME 0CD53= ToTime 0CD67- 0CDA6- 0CDD0- 0CE0F- 0CEB9- 0CED9- 0CEEA- 0CF5B- 0CFD9= Date_to_string 0D06A= Time_to_string 0D143- 0D156- 0D169- 0D18A- 0D2A3 Internal WSLOG 0D2A3: Wslog 0D304 Internal TSTR 0D304: Tstr 0DC0F- 0DC1C- 0DC28- 0DDA8 Internal ACKALL 0DDA8: Ackall 0DDC1 Internal ACK 0DDC1: Ack 0DF01 'Alarms' (Global Name) 0DF28 'Alarms' (Global Name) 0DF45- 0E029: Disp_string_at_curPos 0E05B: Disp_grob_at_curPos 0E06F: Erase_two_stkLines 0E083: Erase_curStkLine 0E097: Erase_nextStkLine 0E0AB: Get_fullStkGrob_curPos_nextEolPos 0E0D3: Get_fullStkGrob_curPos_eolPos 0E0FB: Get_fullStkGrob_nextLine 0E128: Get_fullStkGrob_curColRow 0E1B9- 0E1D8 Convert internal alarm into external alarm 0E219- 0E235 Recall 'Alarms' list 0E248- 0E26D- 0E27D- 0E2A1- 0E2B9- 0E2D1- 0E302- 0E343^ <F9A7Ah> 0E3A6- 0E3DF Internal RCLALARM 0E3DF: Rclalrm 0E402 Recall N'th Alarm (1:System Binary) -> (Alarm/True,False) 0E41B- 0E43C- 0E47A 'M' (Local Name) 0E483 'N' (Local Name) 0E4A0 'M' (Local Name) 0E4AE 'N' (Local Name) 0E4C1 'M' (Local Name) 0E510= Stoalrm_real 0E52E^ 0 0E54D= Stoalrm_list 0E593^ 0 0E5D0^ 0 0E630- 0E66A- 0E693- 0E724 Internal DELALARM 0E724= Delalrm 0E7B0- 0E7BB- 0E7CE- 0E7F7- 0E802- 0E80D- 0E820- 0E82B- 0E836- 0E8F3: testEnd 0E8FE: testbinary 0E909: test_1dh 0E914: testlist 0E91B: testtype 0E925- 0E9B2- 0EAD7 Internal FINDALARM (1:Real Number) 0EAD7= Fndalrm_real 0EB31 Internal FINDALARM (1:List) 0EB31= Fndalrm_list 0EB81 Internal TICKS 0EB81= Ticks 0EC07- 0EC9D- 0ED78- 0ED95- 0EDFA: test_d_gt_1 0EE26- 0EFEE: Real_8192 Ticks per second 0F003: Real_491520 Ticks per minute 0F018: Real_29491200 Ticks per hour 0F02D: Real_707788800 Ticks per day 0F042: Real_4954521600 Ticks per week 0F33A Internal UNIT 0F33A= ToUnit_real_unit 0F34E Internal OBJ-> (1:Unit) 0F371 Internal CONVERT 0F371= Convert 0F547^ 32 (Long Real) 0F561 Standardize units and then strip units (levels 1,2) 0F584 Internal == (2:Real Number/Unit,1:Real Number/Unit) 0F598 Internal != (2:Real Number/Unit,1:Real Number/Unit) 0F5AC Internal < (2:Real Number/Unit,1:Real Number/Unit) 0F5C0 Internal > (2:Real Number/Unit,1:Real Number/Unit) 0F5D4 Internal <= (2:Real Number/Unit,1:Real Number/Unit) 0F5E8 Internal >= (2:Real Number/Unit,1:Real Number/Unit) 0F5FC Internal ABS (1:Unit) 0F5FC= Abs_unit 0F615 Internal NEG (1:Unit) 0F615= Neg_unit 0F62E Internal SIN (1:Unit) 0F62E= Sin_unit 0F660 Internal COS (1:Unit) 0F660= Cos_unit 0F674 Internal TAN (1:Unit) 0F674= Tan_unit 0F688^ 6.28318530717959 = 2pi (Long Real) 0F6A2 Internal + (2:Real Number/Unit,1:Real Number/Unit) 0F6A2= Add_unit_unit 0F774 Internal - (2:Real Number/Unit,1:Real Number/Unit) 0F774= Sub_real_unit 0F774= Sub_unit 0F774= Sub_unit_real 0F792 Internal * (2:Real Number/Unit,1:Real Number/Unit) 0F792= Mul_unit 0F823 Internal / (2:Real Number/Unit,1:Real Number/Unit) 0F823= Div_real_unit 0F823= Div_unit 0F841 Internal INV (1:Unit) 0F841= Inv_unit 0F878 Internal ^ (2:Real Number/Unit,1:Real Number/Unit) 0F878= Pwr_unit 0F8FA= Xroot_real_unit 0F913 Internal SQ (1:Unit) 0F913= Sq_unit 0F92C Internal sqrt (1:Unit) 0F92C= Sqrt_unit 0F945 Internal UBASE (1:Unit) 0F945= Ubase 0FB6F Internal MAX (2:Real Number/Unit,1:Real Number/Unit) 0FB6F= Max_unit 0FB8D Internal MIN (2:Real Number/Unit,1:Real Number/Unit) 0FB8D= Min_unit 0FBAB Internal % (2:Unit,1:Real Number) 0FBAB= Percent_unit_real 0FC3C Internal %CH (2:Real Number/Unit,1:Real Number/Unit) 0FC3C= PercentCH_unit 0FCCD Internal %T (2:Real Number/Unit,1:Real Number/Unit) 0FCE6 Internal SIGN (1:Unit) 0FCE6= SigmaN_unit 0FCFA Internal IP (1:Unit) 0FCFA= Ip_unit 0FD0E Internal FP (1:Unit) 0FD0E= Fp_unit 0FD22 Internal FLOOR (1:Unit) 0FD22= Floor_unit 0FD36 Internal CEIL (1:Unit) 0FD36= Ceil_unit 0FD68 Internal RND (2:Unit,1:Real Number) 0FD68= Rnd_unit_real 0FD8B Internal TRNC (2:Unit,1:Real Number) 0FD8B= Trunc_unit_real 10141- 10B1C- 10D4B- 10E68^ 0.555555555555556 = 5/9 (C <-> F conversion) (Long Real) 10E82^ 1 (Long Real) 10E9C^ 273.15 = 0C in K (Long Real) 10EB6^ 459.67 = 0F in R (Long Real) 10ED0^ 0.0795774715459477 (Long Real) 10EEA- 10EFA- 10F54- errn_102_can't_edit_null_char 10F54: Error_Cant_edit_null_char 10F64- errn_103_invalid_user_function 10F64: Error_Inv_user_func 10F74 Error: No Current Equation 10F74- errn_104_no_current_equation 10F74: Error_No_Cur_eq 10F79 MC: Error: No Current Equation 10F86- errn_106_invalid_syntax 10F86: Error_Inv_syntax 10F96- errn_12e_invalid_ppar 10F96: Error_Invalid_PPAR 10FA6- errn_12f_non-real_result 10FA6: Error_Nonreal_result 10FB6- errn_130_unable_to_isolate 10FB6: Error_Unable_to_Isol 10FC6- errn_126_halt_not_allowed 10FC6: Error_Halt_not_allowed 10FD6 Internal KILL 10FD6- errn_123_kill 10FD6: Error_123 10FE6- errn_124_last_stack_disabled 10FE6: Error_Last_stack_disabl 10FF6- errn_125_last_cmd_disabled 10FF6: Error_Last_cmd_disabl 11006- errn_128_wrong_argument_count 11006: Error_Wrong_arg_count 11016- errn_129_circular_reference 11016: Error_Circ_ref 11026- errn_12a_directory_not_allowed 11026: Error_Dir_not_allowed 11036 Error: Non-Empty Directory 11036- errn_12b_non-empty_directory 11036: Error_Nonempty_dir 1103B MC: Error: Non-Empty Directory 11046- errn_12c_invalid_definition 11046: Error_Inv_def 11056- errn_12d_missing_library 11056: Error_Missing_library 11066- errn_13c_name_conflict 11066: Error_Name_conflict 11076 Internal CONT 11076- errn_13e_continue 11076: Error_13e 110EF- 1123F- 112EC ?? save Last Arguments 112EC- clear_last_arguments 112EC: Clear_lastargs 11320- 1132D- alpha_annunciator_on 1133A- alpha_annunciator_off 11347- blue_shift_annunciator_on 11354- blue_shift_annunciator_off 11361- orange_shift_annunciator_on 1136E- orange_shift_annunciator_off 11387- 113C2- 113D2- 113E2- 113F2- 11402- 11412- 11422- 11432- 11442- 11452- 11462- 11472- 11495- 114B3 Push @C.A as new System Binary 114B3: pushindc_short 114C9: popshort_store_indc 11501- 11511- 11533- prg_on 11543- delayed_alpha_lock 1155C- 1156C- 1158F Internal BLANK (2:System Binary,1:System Binary) 1165A= compute_grob_nibble 11679= Disp_Grob_inGrob_Pos 1192F- 11A6D- 11CBE: getshort_ref_3 11CC5: save_regs_ref_3 11CCC: do_retsetxm 11CCE- 11CF3: String_pitch10_toGrob 11D00: String_pitch8_toGrob 11EEF: do_retsetc 11EFF: back_graph_char 11F1D: set_c_nib7_0fh 11F1F: set_c_p_fh 11F80= String_pitch6_toGrob 11FFF: seta_rplret 12002: rplret_8 1200C: String_to_grob_pitch6 120CC: strlen_a 120EE: pushShortA_rplret_alt_ref 1215E- 122FF- 123C8- disp_(n_x_10)_1short2string 123E5- <4h>_disp_(n_x_10)_1string 123F5- <3h>_disp_(n_x_10)_1string 12405- <2h>_disp_(n_X_10)_1stirng 12415- <1h>_disp_(n_x_10)_1string 12429- disp_(n_x_8)_1short2string 12429: Disp_pitch8Str 1245B- <1h>_disp_(n_x_8)_1string 1245B: DispStk_pitch8Str_line0 1245B: Disp_pitch8Str_line0 1246B- <2h>_disp_(n_x_8)_1string 1246B: DispStk_pitch8Str_line1 1246B: Disp_pitch8Str_line1 1247B- <3h>_disp_(n_x_8)_1string 1247B: DispStk_pitch8Str_line2 1247B: Disp_pitch8Str_line2 1248B- <4h>_disp_(n_x_8)_1string 1248B: DispStk_pitch8Str_line3 1248B: Disp_pitch8Str_line3 1249B- <5h>_disp_(n_x_8)_1string 1249B: DispStk_pitch8Str_line4 1249B: Disp_pitch8Str_line4 124AB- <6h>_disp_(n_x_8)_1string 124AB: DispStk_pitch8Str_line5 124AB: Disp_pitch8Str_line5 124BB- <7h>_disp_(n_x_8)_1string 124BB: DispStk_pitch8Str_line6 124BB: Disp_pitch8Str_line6 124CB: DispStk_pitch8Str_line7 124CB: Disp_pitch8Str_line7 124D7: dispstr_row_c 12635- rcl_stack/status_grob_(131_x_56) 12635: Get_56line_stkGROB 12645- rcl_menu_grob_(131_x_8) 12645: Get_menuGrob 12655- rcl_stack/status_grob_(131_x_56) 12655: Get_stkGrob 12665 recall PICT 12665: Get_graphGrob 12690- 126DF: Erase_lines_in_stkGROB 1270C: Disp_at_lines_0_1 12725: Disp_line_0 12748: Disp_line_1 12770: Trunc_string_for_display 127A7: Split_string_at_LF 12815: DispStringPitch6_inFullStkCurPos_FullStk 12829: Disp_inFullStkCurPos_FullStk 12847- 12996- 12A0D- 12A4A- 12AF6- 12BB7- 12DD1- 12E89- 12F0A- 12FB2 XFER: Save D,B,D1,D0 (uses C) 13043- 13061- 130CA- 13135- 1314D Internal TEXT 13161 XFER: Restore D,B,D1,D0 (C=D0) / Clear Carry 13167- 131C8- 13220- 134AE- 134E4- 1357F- 13679- 13695- 137B6- 137B6= Get_curRowCol 1380F- 13825- 1383B- 1384A- 13986- 13992- 139E7- 13B41- 13BB5- 13BF1- 13D28- 13D55- 13E05- 13E22- 13E2E- 13E53- 13E63- 13E85- 13E9E- 13EBC- 13ED2- 13EF1- 13F01- 13F11- 13F29- 13F47- 13F69- 13F7F- 13F9B- 13FB0- 13FE5- move_5_nibbles_@70673_to_#706FF 1400E Internal ERR0 1400E- err0 1400E= Err0 14039 Push Last Err# as System Binary 14039- errn 1404C Internal ERRN 1404C= Errn 14065 Internal ERRM 14065= Errm 14088 Internal ->STR (1:Any) 14088: ToString 140AB Internal DISP (2:Any,1:Real Number) 140AB: Disp 140F1 Internal CHR (1:Real Number) 140F1: Chr 1410F Internal NUM (1:String) 1410F: Num 14137 Internal STR-> (1:String) 14137: StrTo_Eval 1415A Internal BEEP (2:Real Number,1:Real Number) 1415A: Beep_real 1415F: Mul1000_real 141B2- beep_1short2short 141B2: Beep 141DE: jump_save_regs 141E5- 1420A Internal > (2:String,1:String) 1420A- >_1string2string 142A6 Internal < (2:String,1:String) 142BA Internal >= (2:String,1:String) 142E2 Internal <= (2:String,1:String) 142FB Internal FREEZE (1:Real Number) 142FB= Freeze 14378 Internal HALT 1439B ''halt' (Local Name) 14483 ''nohalt' (Local Name) 14D1B- 14E6D- 14EA5- 14EEC- 14F2A- 14F8C- 14FC3- 15007 Internal DOERR (1:Real Number) 15007= Doerr_real 1501B Internal DOERR (1:Binary Integer) 1501B= Doerr_bin 1502F Internal DOERR (1:System Binary) 15048 Internal DOERR (1:String) 15048= Doerr_string 1518D- 15442: "String_': '" 15717 Internal STEQ (1:Any) 1572B Internal RCEQ 15744 Internal RCEQ -> Contents,True/False 15758 unevaluated 'EQ' (Global Name) 1576C 'EQ' (Global Name) 15781 '' (Global Name) 1592D Set last RPL token to <0h> and verify DEPTH >= 1 15978: toString_1any 159EB- \->str_1any_(truncate) 15A54- 15A60- 15A8B- 15A97- 15B13= Any_to_string 15B31- \->str_1any 15B3D- \->str_1real 15C4B^ <15D06h> 15D6F^ <117h> 15DAB^ <118h> 15E0B^ <112h> 15FCF- hex\->ascii_1string2binary 1605F- quotes_in_string_1string 1606C- \->str_1string 160E5- \->str_1global 1613F Null String "" (RAM based) 1613F: String_null_Copy 162AC- \->str_1real 162AC: Real_to_string 162B8- \->str_1real 1633D: GC 166E3 Internal FIX (1:System Binary) 166E3- fix_1short 166E3= SetFix 166EF Internal SCI (1:System Binary) 166EF- sci_1short 166EF= SetSci 166FB Internal ENG (1:System Binary) 166FB- eng_1short 166FB= SetEng 16707 Internal STD 16707- std 16707= Std 167D8- short\->real\->string_(colon)_1short 167E4- short\->real\->string_1short 1685C- short\->real\->string_+_(colon)_1short2string 1686A- short\->real\->string_+_(colon)_1short2string 16969^ <13h> 16AD6^ <4000h> 16AE5^ <5000h> 16AF4^ <8000h> 16B03^ <9000h> 16B12^ <E000h> 16B21^ <D000h> 16B30^ <2F000h> 16CA7 Error: Bad Argument Value 1795A: StoreShort_70770 1795A- sto_5_nibbles_@70770_1short 17980- rcl_5_nibbles_@70770_as_short 179AC: Grob_height_equal1p 179D0- 17C3F- 17C55- 17F15- 17F4A^ <B8h> 181FA- 18242- 1825F- 18282- 18295- 18308- 18338- 18355- 183EB- 18404- 1848C Internal PATH 1848C: Path 184E1 Internal CRDIR 184E1: Crdir 18513 Internal STO (2:Any,1:Global Name) 1853B= Recall 1854F Internal PURGE (1:Global Name) 18595 Internal PGDIR (1:Global Name) 18608: While_dir_empty 18621: IfFirstEnt_thenFalseIterate_elseTypeNib1and2_zerop 18653: TypeNib1and2_zerop 186E8 Internal TVARS (1:Real Number) 186E8= Tvars_real 18706 Internal TVARS (1:List) 18706= Tvars_list 18779 Internal VARS 18779= Vars 187AB- 18802- 1884D Set last RPL Token to <0h> 1884D- 1884D: Short0_End 18873 Internal AND (2:String,1:String) 18887 Internal OR (2:String,1:String) 1889B Internal XOR (2:String,1:String) 188AF if SIZE(TOS) = SIZE(TOS-1) (String), then NEWOB and SWAP, else Bad Argument Value 188AF: Need2StringsEqualLen_Swap 188D2 Internal NOT (1:String) 188E6 Deep internal AND (2:String,1:String) 188E6- and_1string2string 188F5 Deep internal OR (2:String,1:String) 188F5- or_1string2string 18904 Deep internal XOR (2:String,1:String) 18904- xor_1string2string 18961 Deep internal NOT (1:String) 18961- not_1string 189FC Configuration code for library 002 (XLIB 2) 18A15- 18A1E save last RPL token, stack size, clear @706FD.S 18A1E- need_0_arguments_(save_last_stack) 18A1E= No_arguments 18A27 MC: save stack size, clear @706FD.S and continue RPL 18A51 continue RPL 18A5B Save last RPL token and verify DEPTH >= 3 18A5B- need_3_arguments_(xlib) 18A5B: Need_3_args_retq 18A68 Verify DEPTH >= 3 18A68- need_3_arguments 18A68: Need_3_args 18A6D MC: verify DEPTH >= 3 and continue RPL 18A75 MC: verify DEPTH >= 3 18A75: assert_3_args 18A80 Save last RPL token and verify DEPTH >= 2 18A80- need_2_arguments_(xlib) 18A80: Need_2_args_retq 18A8D Verify DEPTH >= 2 18A8D- need_2_arguments 18A8D: Need_2_args 18A92 MC: verify DEPTH >= 2 and continue RPL 18A9A MC: verify DEPTH >= 2 18A9A: assert_2_args 18AA5 Save last RPL token and verify DEPTH >= 1 18AA5- need_1_argument_(xlib) 18AA5: Need_1_arg_retq 18AB2 Verify DEPTH >= 1 18AB2- need_1_argument 18AB2: Need_1_arg 18AB7 MC: verify DEPTH >= 1 and continue RPL 18AB7: need_1_arg 18ABF MC: verify DEPTH >= 1 18ABF: assert_1_arg 18AC6 MC: verify DEPTH >= C.S, expect P = 2*C.S - 1 18AC6: assert_c_args 18B6D Save last RPL token and verify DEPTH >= 5 18B6D- need_5_arguments_(xlib) 18B6D: Need_5_args_retq 18B7A Verify DEPTH >= 5 18B7A- need_5_arguments 18B7A: Need_5_args 18B7F MC: verify DEPTH >= 5 and continue RPL 18B87 MC: verify DEPTH >= 5 18B87: assert_5_args 18B92 Save last RPL token and verify DEPTH >= 4 18B92- need_4_arguments_(xlib) 18B92: Need_4_args_retq 18B9F Verify DEPTH >= 4 18B9F- need_4_arguments 18B9F: Need_4_args 18BA4 MC: verify DEPTH >= 4 and continue RPL 18BAC MC: verify DEPTH >= 4 18BAC: assert_4_args 18BB3: assert_c_gt3_args 18C34 Save last token, check args, R->SB and verify TOS < DEPTH-1 18C34- need_n_arguments_1real2any...nany 18C34: ToShort_Need_n_args_alt 18C4A Check args, R->SB and verify TOS < DEPTH-1 18C4A: ToShort_Need_n_args 18C77 MC: save last RPL token 18C77: save_toh_sub_10 18C92 Error: Undefined Name 18C92- errn_204_undefined_name 18C92: Error_Undef_name 18C97 MC: Error: Undefined Name 18C97: error_undef_name 18CA2 Error: Bad Argument Value 18CA2- errn_203_bad_argument_value 18CA2: Error_Bad_arg_value 18CA7 MC: Error: Bad Argument Value 18CA7: error_bad_arg_value 18CB2 Error: Bad Argument Type 18CB2- errn_202_bad_argument_type 18CB2: Error_Bad_arg_type 18CB7 MC: Error: Bad Argument Type 18CB7: error_bad_arg_type 18CC2 Error: Too Few Arguments 18CC2- errn_201_too_few_arguments 18CC2: Error_Too_few_args 18CC7 MC: Error: Too Few Arguments 18CC7: error_too_few_args 18CCE Put Error Code in C.A into A 18CCE: disp_error_c 18CD7 ABS(Real) -> System Binary 18CD7- abs_real\->short 18CD7: AbsReal_to_Short 18CEA Internal R->SB (1:Real Number) 18CEA- real\->short 18CEA: Real_to_Short 18D07: shortpush_a_replret 18D0A: shortpush_r0_rplret 18DBF Internal SB->R (1:System Binary) 18DBF- short\->real 18DBF: Short_to_real 18E45- 18E7E- 18EBA Internal EVAL (1:Algebraic/List) 18EBA- eval_1algebraic 18EBA- eval_1list 18EBA- eval_1program 18EBA: Eval_ListOrPrg 18ECE Save last RPL token, verify DEPTH >= 1 and check args. 18ECE- need_&_check_1_argument 18ECE: Switch_on_argtype 18EDF Save last RPL token, verify DEPTH >= 2 and check args. 18EDF- need_&_check_2_arguments 18EDF= Switch_on_2_argtypes 18EF0 Save last RPL token, verify DEPTH >= 3 and check args. 18EF0- need_&_check_3_arguments 18EF0: Switch_on_3argtypes 18F01 Save last RPL token, verify DEPTH >= 4 and check args. 18F01- need_&_check_4_arguments 18F12 Save last RPL token, verify DEPTH >= 5 and check args. 18F12- need_&_check_5_arguments 18F23- 18F6A= EndAndEvalq 18F83 XFER: Bad Argument Type 18F83: error_bad_arg_type_ref_2 18F87: end_follows 18F9D Check arguments for type (don't save D0) 18F9D- check_argument(s)_(requires_short_reference) 18F9D: Check_1_argtype_alt2 18FA9 Check arguments for type - XFER 18FA9- check_argument(s)_(requires_short_reference) 18FA9: Check_1_argtype_alt 18FB2 Check arguments for type 18FB2- check_argument(s)_(requires_short_reference) 18FB2: Check_1_argtype 18FB7 MC: check arguments for type 18FDE^ <B6A8h> 18FF1: not_address 1911E= type_table_1 1916E: type_table_2 19173^ <2A96h> 191B9: Mul_short 191B9 *_1short2short 19207- check_stack_for_n_real/complex_1short2any3real/complex..n+3real/complex 19294- \->arry_1array(real/complex)2short3real/complex...n+3real/complex 19350- xlib?_(boolean)_1any 19385: Over_Recall 193A3: Pick3_Recall 193C1: Assert_array 194BB verify Real Array (1:Array) 194F7= TwoReal_to_Shorts 1950B: TwoShorts_to_reals 19529= ListOf_short_to_real 1957B ASR (XLIB 2 0) 1957B: Cmd_ASR 1957B; /U xASR 1959B RL (XLIB 2 1) 1959B: Cmd_RL 1959B; /U xRL 195BB RLB (XLIB 2 2) 195BB: Cmd_RLB 195BB; /U xRLB 195DB RR (XLIB 2 3) 195DB: Cmd_RR 195DB; /U xRR 195FB RRB (XLIB 2 4) 195FB: Cmd_RRB 195FB; /U xRRB 1961B SL (XLIB 2 5) 1961B: Cmd_SL 1961B; /U xSL 1963B SLB (XLIB 2 6) 1963B: Cmd_SLB 1963B; /U xSLB 1965B SR (XLIB 2 7) 1965B: Cmd_SR 1965B; /U xSR 1967B SRB (XLIB 2 8) 1967B: Cmd_SRB 1967B; /U xSRB 1969B R->B (XLIB 2 9) 1969B: Cmd_RtoB 1969B; /U xR>B 196BB B->R (XLIB 2 10) 196BB: Cmd_BtoR 196BB; /U xB>R 196DB CONVERT (XLIB 2 11) 196DB: Cmd_CONVERT 196DB; /U xCONVERT 1971B UVAL (XLIB 2 12) 1971B: Cmd_UVAL 1971B; /U xUVAL 1974F UNIT (XLIB 2 13) 1974F: Cmd_UNIT 1974F; /U x>UNIT 19771 UBASE (XLIB 2 14) 19771: Cmd_UBASE 19771; /U xUBASE 197A5 UFACT (XLIB 2 15) 197A5: Cmd_UFACT 197A5; /U xUFACT 197C8 Internal UFACT 197C8: Ufact_unit_unit 197F7 TIME (XLIB 2 16) 197F7: Cmd_TIME 197F7; /U xTIME 19812 DATE (XLIB 2 17) 19812: Cmd_DATE 19812; /U xDATE 1982D TICKS (XLIB 2 18) 1982D: Cmd_TICKS 1982D; /U xTICKS 19848 WSLOG (XLIB 2 19) 19848: Cmd_WSLOG 19848; /U xWSLOG 19863 ACKALL (XLIB 2 20) 19863: Cmd_ACKALL 19863; /U xACKALL 1987E ACK (XLIB 2 21) 1987E: Cmd_ACK 1987E; /U xACK 1989E ->DATE (XLIB 2 22) 1989E: Cmd_toDATE 1989E; /U xSETDATE 198BE ->TIME (XLIB 2 23) 198BE: Cmd_toTIME 198BE; /U xSETTIME 198DE CLKADJ (XLIB 2 24) 198DE: Cmd_CLKADJ 198DE; /U xCLKADJ 198FE STOALARM (XLIB 2 25) 198FE: Cmd_STOALRM 198FE; /U xSTOALARM 19928 RCLALARM (XLIB 2 26) 19928: Cmd_RCLALRM 19928; /U xRCLALARM 19948 FINDALARM (XLIB 2 27) 19948: Cmd_FNDALRM 19948; /U xFINDALARM 19972 DELALARM (XLIB 2 28) 19972: Cmd_DELALRM 19972; /U xDELALARM 19992 TSTR (XLIB 2 29) 19992: Cmd_TSTR 19992; /U xTSTR 199B2 DDAYS (XLIB 2 30) 199B2: Cmd_DDAYS 199B2; /U xDDAYS 199D2 DATE+ (XLIB 2 31) 199D2: Cmd_DATEadd 199D2; /U xDATE+ 19A68: Get_default_alarm 19A72 'ALRMDAT' (Global Name) 19A72: Global_Alrmdat 19A91: List_Real0_StringNull_Real0 19A96^ 0 19AB5^ 0 19B1F 'ALRMDAT' (Global Name) 19B1F: Global_Alrmdat_alt 19C34: Need_n_args 19DBE 'ALRMDAT' (Global Name) 19DE2: Disp_next_alrm 1A105 CRDIR (XLIB 2 32) 1A105: Cmd_CRDIR 1A105; /U xCRDIR 1A125 PATH (XLIB 2 33) 1A125: Cmd_PATH 1A125; /U xPATH 1A140 HOME (XLIB 2 34) 1A140: Cmd_HOME 1A140; /U xHOME 1A15B UPDIR (XLIB 2 35) 1A15B: Cmd_UPDIR 1A15B; /U xUPDIR 1A16F Internal UPDIR 1A16F: Up 1A194 VARS (XLIB 2 36) 1A194: Cmd_VARS 1A194; /U xVARS 1A1AF TVARS (XLIB 2 37) 1A1AF: Cmd_TVARS 1A1AF; /U xTVARS 1A1D9 BYTES (XLIB 2 38) 1A1D9: Cmd_BYTES 1A1D9; /U xBYTES 1A1FC Internal BYTES (1:Any except Global Name) 1A1FC: Bytes_any 1A223^ 2.5 (end of part 1 of 4)