Jake-S@cup.portal.com (Jake G Schwartz) (05/20/91)
HP48SX Internal Address List sorted in increasing address order
5/20/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
"P" means Prefixed Code entry point
Addresses with a dash and no definition are prefixed code entry points
(as identified by Rick Grevelle) whose functions have yet to be understood.
------------------------------------------------------------------------
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-P
01160: do_in.4
0172B-P
01E5E-P
01F53-P
01F6D-P cllcd_(status_&_stack_area)
01FA7-P 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-P
02FD6: Getvalue_or_ErrUndef
02FEF: GetXlib_or_ErrUndef
03012: getinstr_2
03019 MC: skip next token
03019: getinstr
0312B P End Marker
0312B-P end_composite_object
0312B:P End
0312B;P /U ;
03130 RPL RETURN
03130: rpl_end
0314C P Internal DEPTH -> (1:System Binary)
0314C-P depth
0314C:P Depth
03188 P Internal DUP
03188-P dup_1any
03188:P Dup
031AC P Internal DUP2
031AC-P dup2_1any2any
031AC:P Dup2
031D9 P Internal DUPN (N:...,1:System Binary)
031D9-P dupn
031D9:P Dupn
03223 P Internal SWAP
03223-P swap
03223=P Swap
03244 P Internal DROP
03244-P drop
03244=P Drop
03258 P Internal DROP2
03258-P drop2
03258:P Drop2
0326E P Internal DROPN (1:System Binary)
0326E-P dropn
0326E=P Dropn
03295 P Internal ROT
03295-P rot
03295=P Rot
032C2 P Internal OVER
032C2-P over
032C2:P Over
032E2 P Internal PICK (N:...,1:System Binary)
032E2-P pick
032E2:P Pick
032F3: pick_a_from_c
03325 P Internal ROLL (N:...,1:System Binary)
03325-P roll
03325:P Roll
03330: roll_a_levels
0339E P Internal ROLLD (N:...,1:System Binary)
0339E-P rolld
0339E:P Rolld
033A9: rolld_a_levels
03416 MC: garbage collect need 1 stack element
0341D MC: garbage collect need C.A stack elements
03442-P con_1real2{shortshort}
03562-P 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-P type_(real/complex)_1array
035A9-P size_(dimension)_1array
035A9=P Arrdims_listofshort
0363B^ <61441h>
03672 MC: restore registers, push A and continue RPL
03672: restore_regs_pusha_ret
03685-P verify_existence_of_array_element_1array2{<><>}
0371D-P get_1array2short
03826^ <A8241h>
03880^ <102A8h>
038DC^ <E13A8h>
039BE: blkalloc_keep_c
03A81 P True
03A81-P external_true
03A81:P True
03A86: pusha_rplret
03AC0 P False
03AC0-P external_false
03AC0:P False
03ADA-P xor_(boolean)_1external2external
03AF2 P Internal NOT (1:True/False)
03AF2-P not_(boolean)_1external
03AF2:P Not
03B06 MC: push False and continue RPL
03B06: False_rplret
03B1A MC: push True and continue RPL
03B2E P if TOS-1 = TOS (object addresses are the same) -> True/False
03B2E-P ==_(boolean)_1external2external
03B2E:P Identicalp
03B46 P if TOS-1 = False, then DROP TOS, else DROP TOS-1
03B46-P and_(boolean)_1external2external
03B46:P If_not_false
03B65: setr0_rplret_alt2
03B68: seta_rplret_alt2
03B75 P if TOS-1 = True, then DROP TOS, else DROP TOS-1
03B75-P or_(boolean)_1external2external
03B75:P DropLev2_ifTrue
03B97 P Internal SAME -> True/False
03B97-P same_(boolean)_1any2any
03C64-P prolog\->short_1list/program/algebraic/directory
03C64:P Type_to_short
03CA6 P if TOS = 0 (System Binary) -> True/False
03CA6-P not_(boolean)_1short
03CA6:P Nonzerop_short
03CC7 P if TOS != 0 (System Binary) -> True/False
03CC7-P <0h>_\=/_(boolean)_1short
03CC7:P Zerop_short
03CE4 P if TOS-1 < TOS (System Binary) -> True/False
03CE4-P <_(boolean)_1short2short
03CE4:P 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 P if TOS-1 > TOS (System Binary) -> True/False
03D83-P >_(boolean)_1short2short
03D83:P GreaterThan_short_short
03DBC P Internal + (2:System Binary,1:System Binary)
03DBC-P +_1short2short
03DBC:P Add_short
03DC7: Push_A_and_rplret
03DE0 P Internal - (2:System Binary,1:System Binary)
03DE0-P -_1short2short
03DE0:P Sub_short
03DEF P Internal add one (1:System Binary)
03DEF-P <1h>_+_1short
03DEF:P Inc_short
03E0E P Internal subtract one (1:System Binary)
03E0E-P <1h>_-_1short
03E0E:P Dec_short
03E2D P Internal add two (1:System Binary)
03E2D-P <2h>_+_1short
03E2D:P Inc2_short
03E4E P Internal subtract two (1:System Binary)
03E4E-P <2h>_-_1short
03E4E:P Dec2_short
03E6F P Internal multiply by 2 (1:System Binary)
03E6F-P <2h>_*_1short
03E6F:P Mul2_short
03E8E P Internal divide by 2 (1:System Binary)
03E8E-P <2h>_/_1short2short
03E8E:P Div2_short
03EB1 P Internal AND (2:System Binary,1:System Binary)
03EB1-P and_1short2short
03EB1:P And_short_short
03EC2 P Internal * (2:System Binary,1:System Binary)
03EC2-P *_1short2short
03ED9: Mul_short_short_loop
03EE5: Mul_short_short_done
03EF7 P Internal / (2:System Binary,1:System Binary) -> (2:rem,1:div)
03EF7-P /_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-P off
04546-P
04577-P
04693: save_regs_ref_4
04708-P key?_do
04714-P key?
04714:P Lastkeyq
0477E: poll_kbd
047B7: clear_pollflag
047C7-P keyscan_1short
04912-P keywait
04A0B-P rcl_user_menu_name_as_global_1short(menu_number_<1h>_to_<6h>)
04A0B-P rcl_rom_menu_contents_(command)_1short_(menu_number_<1h>_to_<6h>)
04A0B-P rcl_rom_menu_contents_(directory)_1short(menu_number_<1h>_to_<6h>)
04A41-P rcl_user_menu_name_as_global_1short(menu_number_<1h>_to_<6h>)
04A41-P rcl_rom_menu_name_as_string_1short(menu_number_<1h>_to_<6h>)
04A4C-P sto_menu_name_1short(menu_number_<1h>_to_<6h>)2string
04A57-P
04B15: getmenu
04B76: getmenuent
04CDC^ <72000h>
04CE6-P rcl_5_nibbles_@70673_as_short
04CE6:P Get_70673
04D0E-P sto_5_nibbles_@70673_1short
04D0E:P Set_70673
04D33-P clr_5_nibbles_@70673
04D33:P Clear_70673
04D3E-P move_055DF_to_@d1_(overwrites_level1_w/_null_string)_1any
04D43: set_string_null
04D57-P drop_move_055DF_to_@d1_(drop_overwrite_level1_w/_null_string)_1any2any
04DD7-P split_short_1short
04E07-P move_address_@70600_to_@d1_(overwrites_level1)
04E07:P Get_70600
04E37-P move_address_@d1_to_@70600_(stores_level1)
04E37: Bind_70600
04E5E:P Inc_local_and_loop_ctrs
04EB8:P Eval_in_new_frameq
04ED1-P do errn @70673 (Last error code)
04FAA-P errn_006_power_lost
04FB6 P Error: Insufficient Memory
04FB6-P errn_001_insufficient_memory
04FB6:P Error_Insuff_mem
04FBB MC: Error: Insufficient Memory
04FBB: error_insuff_mem
04FC2-P errn_002_directory_recursion
04FC2:P Error_Dir_Recursion
04FC7: error_dir_recursion
04FCE-P errn_003_undefined_local_name
04FCE:P Error_Undef_local
04FD3: error_undef_local
04FDA-P errn_008_invalid_card_data
04FDA:P Error_Inv_card_data
04FDF: error_inv_card_data
04FE6-P errn_009_object_in_use
04FE6:P Error_Obj_in_use
04FEB: error_obj_in_use
04FF2-P errn_00a_port_not_available
04FF2:P Error_Port_not_avail
04FF7: error_port_not_avail
04FFE-P errn_00b_no_room_in_port
04FFE:P Error_No_room_in_port
0500A-P errn_00c_object_not_in_port
0500A:P Error_Obj_not_in_port
0500F: error_obj_not_in_port
05016-P errn_004_undefined_xlib_name
05016:P 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-P on/attn_key_pressed?
05068-P
05089 P Internal UVAL (1:Unit)
05089-P uval_(1_get)_1unit
05089=P RE_Unit
050ED-P string->character
050ED:P 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-P +_1string2string
05193 P Internal + (2:String,1:String)
05193-P +_1string2string
05193=P Add_string_string
0521F Internal + (2:List,1:List)
0521F= Add_list_list
0525B-P chr_1short2string
052C6= ToList1_Swap_AddList
052EE-P chr_1short2string
052EE=P Add_char_to_string
052FA Internal + (2:List,1:Any)
052FA= Add_list_any
05331 P build composite object (N:...,2:System Binary,1:System Binary)
05331-P \->list_1short(prolog)2short(n)3any...nanyn+1anyn+2any
05331-P \->program_1short(prolog)2short(n)3any...nanyn+1anyn+2any
05331-P \->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 P explode composite object -> (N:...,1:System Binary)
054AF-P algebraic\->_1algebraic
054AF-P list\->_1list
054AF-P program\->_1program
054AF:P ListAlgPrgTo
0554C GC & load D,B,D1,D0 (C=D0) / CC
05566:P Short_5_p_alt
05566-P null_string?
0556F-P null_string?
0556F:P Short_5_p
05574: short_5_p
0558A: settrue_if_CEqA_elseFalse
0558F: settrue
055A3: setfalse
055B7-P null_list?
055B7:P 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-P size_(nibbles)_1string
05622 P SIZE of level 2 String -> System Binary
05622-P over_size_(bytes)_1any2string
05622:P Strlen_of_lev2
05636 P Internal SIZE (1:String) -> System Binary
05636-P size_(bytes)_1string
05636:P Strlen
0567B-P size_1list
0567B=P Size_listUnit
056B6 P Internal GET; object <Nh> -> N'th address in object
056B6-P get_1short2list
05733-P sub_(bytes)_1short2short3string
05733=P Substr_short_short
05815-P sub_(nibbles)_1short2short3string
05821-P sub_1short2short3list
05821=P Sub_Arr_Short_Short
05902-P size_(nibbles)_1any
05944 P Internal BYTES (non-ROM objects) -> (2:System Binary,1:Binary Integer)
05944-P bytes_1any
05944=P Crc_Nibbles
059CC-P short->binary
05A03 P Internal B->SB (1:Binary Integer)
05A03-P binary->short
05A03=P Bin_to_short
05A51-P character\->short
05A51:P Char_to_short
05A75-P short\->character
05A75:P Short_to_char
05AB3: Copy_and_set_type
05ACC-P change_prolog_1short2any
05ACC:P Settype
05B15-P string\->global_1string
05B15:P Str_to_Global
05B79 MC: allocate string
05B79: stralloc
05B88: str_try_again
05BAD: str_avail
05BE9 P name to string (1:Global Name/Local Name)
05BE9-P global\->string_1global
05BE9:P Name_to_string
05C27 P Internal R->C (2:Real Number,1:Real Number)
05C27-P r\->c
05C27:P Two_reals_to_complex
05C8A-P longreal\->longcomplex_1longreal2longreal
05C8A:P Two_lreals_to_lcomplex
05D2C P Internal C->R (1:Complex Number)
05D2C-P c\->r
05D2C:P Complex_to_reals
05DBC-P longcomplex\->longreal_1longcomplex
05DBC:P Lcomplex_to_lreals
05E81 Deep internal ->TAG (2:Any,1:String)
05E81: StrTag
05E9F-P /->tag_1{global_any}
05E9F:P Tag
05EC7 Internal OBJ-> (1:Tagged)
05EC7= SplitTag
05EEA P change prolog of list element one to Global Name
05EEA-P dtag_1{tagged}
05EEA:P Zap_Gname
05F0F GC Need 5 Nibbles
05F2E Internal ->TAG (2:Any,1:Global Name/Local Name)
05F42 P RPL Garbage Collect
05F42-P force_memory_packing
05F61 P Internal MEM (nibbles free) -> (1:System Binary)
05F61-P mem
05F61:P Free_mem
05F91: findobj
0613E Garbage Collect & set D
064D6-P
064E2-P
06529: shortpush_r0r1
06537 MC: push R0 as new System Binary
06537: shortpush_r0
0657E^ <61441h>
065D9-P
065E5-P
06641 MC: pop TOS (System Binary) -> A.A
06641: getshort
06657 P Internal NEWOB
06657-P newob
06657:P 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:P Dynamicp
06B4E-P
06DDE-P
06E8E No Operation (continue RPL)
06E8E- continue_rpl_(no_operation)
06E8E: RE_Real
06E97 P Place next address on the stack, do not execute
06E97-P push_next_item_in_this_instruction_stream_to_stack_unevaluated
06E97:P Get_value
06EC9: pushobj_a_rplret
06EEB-P push_next_item_in_previous_instruction_stream_to_stack_unevaluated
06F66-P eval_next_item_from_previous_instruction_steam_then_continue
06F8E Internal EVAL (1:Any except Algebraic/List/Tagged)
06F8E- eval_1any_(except_list_algebraic_tagged)
06F8E: Eval
06F9F-P eval_1program
06F9F:P Eval_program
06FB7- skip_remainder_of_previous_instruction_stream_&_continue
06FB7 iterate loop
06FBC MC: iterate loop
06FBC: iterate_loop
06FD1-P eval_next_item_in_this_instruction_stream_&_return
06FD1 P Return and execute the next token in this stream
06FD1:P Eval_prev_context
06FD6 MC: return and execute the next token in this stream
06FD6: eval_and_ret
06FD6: rpl_return
07012:P DupNextPrg
07012-P push_remainder_of_previous_instruction_stream_&_continue
0701F-P push_&_skip_remainder_previous_instruction_stream_&_continue
07035: dupnextprg
070C3-P if_level3_true_then_drop_&_eval_else_swap_drop_&_eval_1any2any3external
070C3:P IfTrueFalse
070F5: pop_rplret
070FD-P if_level2_true_then_eval_else_else_drop
0712A-P if_true_then_skip_next_item_in_this_instruction_stream_1external
0712A P if pop TOS = True, then skip next token
0712A:P Skip_if_True
0714D-P skip_next_item_in_this_instruction_stream
0714D:P Skip
07152 MC: skip next token and continue RPL
07152: skip
0715C-P skip_next_2_items_in_this_instruction_stream
0715C P skip next two tokens
0715C:P Skip_Two
07161 MC: skip next two tokens and continue RPL
07161: skip_two
0716B P set return to self
0716B:P 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 P loop
071A2-P do_until_(loop/test-clause_true_end)
071A2-P while_(test-clause_true_repeat_loop-clause_end)
071A2:P Loop
071AB-P abort_loop
071AB P exit loop
071B0 MC: exit loop
071B0: exit_loop
071BE MC: continue RPL
071BE: rplret_5
071C8 P if pop TOS = False, then exit loop, else iterate loop
071C8-P end_1external_(do_(until)_loop/test-clause_true_end)
071C8-P until_(end)_1external
071C8:P Until_False
071CD MC: if pop TOS = False, then exit loop, else iterate loop
071E5 P exit loop
071E5-P end
071EE P if pop TOS = False, then skip next two tokens and iterate
071EE-P repeat_1external_(while_test-clause_true_repeat_loop-clause_end)
071EE:P IfFalse_thenSkip2Iterate
07211 MC: skip next two tokens and iterate
07221 P push current loop counter as System Binary
07221-P rcl_current_loop_count
07221:P Loop_increment
07249-P rcl_n_(total_loop_passes)
07249:P Loop_counter
07258:P Loop_v1q
07264:P Loop_v2q
07270:P Set_loop_increment
07295:P Set_loop_counter
072AD:P Set_loop_v1q
072C2:P 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-P
07334 P next (internal loop)
07334-P next
07334:P Next
073A5-P step_1short
073A5:P Step
073C3 P for 0 to (TOS)-1 (1:System Binary)
073C3-P start_0_to_n-1_1short
073C3:P Start_0or1_shortSub1
073CE P for 1 to (TOS)-1 (1:System Binary)
073CE-P start_1_to_n-1_1short
073CE:P Start_1_to_nSub1
073DB P for 1 to TOS (1:System Binary)
073DB-P start_1_to_n_1short_(7249=n+1)
073DB:P Start_1_shortSub1
073F7 P for TOS to (TOS-1)-1 (2:System Binary,1:System Binary)
073F7-P start_n(2)_to_n(1)_1short2short
073F7:P Start_short_short
07497-P purge_local(s)
074D0 store local variables (N:Any,...,1:List(of Local Names))
074D0: ListAlgPrgTo_StoreLocals
074E4 P store local variables (M:Any,...N:Local Name,...1:System Binary)
074E4-P store_local(s)_1short2local....nany
074E4:P Store_Locals_N
075A5-P
075E9-P
07638-P
0764E-P attach_message_array_1array2short
0764E;P Replace message table (1:Array of String, 2:System Binary)
076AE-P detach_(home_directory)_1short
076AE P Internal DETACH from HOME directory (1:System Binary)
07709 P Internal ATTACH to HOME directory (1:System Binary)
077C2-P
07819-P crdir_1short
07866: nameeqp
078C3: Find_var_current_dir
07901= Up_dir
0791E-P
0792A-P
07943-P
0797B-P rcl_1global
0797B:P Find_name
079AE: rr_pusha_jumpTrue_ref
079CC: try_prev_dir
079D3: rr_setFalse_rplret_ref
079D7-P
07A90^ <216A8h>
07BFD-P global\->command_1global
07C2F: jumpTrue
07D1B-P sto_1local2any
07D27-P sto_1global2any
07D27 P Internal STO (2:Any,1:Local Name)
07DA2: find_local_var
07DF3: find_local_b_levels_up
07E50 P \->xlib_1short(library_number)2short(command_number)
07E76-P rpl\->xlib_1program
07E99 P rcl_(xlib_contents)_1xlib
07E99=P Find_Xlib
07EC4: rr_setFalse_rplret
07F98-P returns_xlib's_library_number_1xlib
08051^ <414C1h>
08072: rr_pusha_jumpTrue
0807F-P returns_library_location_1short(library_number)
0809E-P size_(library_nibbles-10)_1short(library_number)
080C9-P does_this_library_or_one_higher_exist?_1short(library_number)
08101-P returns_hash_table_location_1short(library_number)
0811C-P returns_message_table_location_1short(library_number)
08128-P rcl_link_table_to_stack_(large_binary)_1short(library_number)
08143-P rcl_configuration_routine_to_stack_1short(library_number)
0814F-P returns_library's_number_to_stack_1global(library's_name)
081B9-P returns_library's_name_to_stack_1short(library's_number)
081D9-P backup\->name_1backup
081EE-P library\->short_1library
08207-P command\->global_1command
0821F-P xlib\->global_1xlib(visible)
0825B^ <216A8h>
082E3-P variable_contents\->name
082E3=P Up_findValue
08309-P rcl_next_directory_up_1directory
08309=P Updir
08326-P rcl_first_directory/variable_1directory
08326:P Get_first_dirEntry
08376-P rcl_next_directory/variable_1external2directory
085D3-P sto_1new_contents2old_contents
08696-P sto_1global2any
089D8-P purge_1external(true/false)2any(variable_contents)
089FA-P purge_1any(variable_contents)
08CCC-P xlib\->_1xlib
08D08-P updir_1directory_(pre-existing)
08D08:P Set_curdir
08D14: pop_store_ind_c_rplret
08D1C: store_a_indc_rplret
08D2F: clr_indc_rplret
08D35: zeropindc
08D4A:P Store_tmpdir
08D5A P recall current directory
08D5A-P rcl_current_directory
08D5A: Get_curdir
08D66: pushindc_rplret
08D75: rpljump_indc
08D82-P rcl_home_directory
08D82:P Get_Tmpdir
08D92 P Internal HOME
08D92-P home
08D92:P Home
08D9E: setHome_c
08DC4:P SetTmpdir_Home
08DD4 P if pop TOS = HOME directory -> True/False
08DD4-P home?_(boolean)_1directory
08DD4:P Homep
08E14^ <7FFh>
08E73-P matches_library_w/_number_1library2short(library's_number)
08ECC^ <566A8h>
08F20^ <D6A8h>
09107-P sto_1short(port1/2_only)2short(nibbles+5)3short(address)4any5global
0922D^ <71541h>
092F5-P
0948E-P
094A4-P
095E3^ <2D541h>
09699-P
0970A-P
09730-P
0AAD0-P
0AB51-P
0AB82-P return_port_pointers_1short
0AC66^ <36h>
0AC70-P
0AD47-P
0AE03-P
0AF8B-P
0B037-P
0B5F3-P
0B69B-P
0B7C6-P
0B9E8-P
0BA7D-P
0BB68-P
0BD54-P
0BD60-P
0C1EF-P
0C288-P
0C2CB-P
0C37A-P
0C4EC-P rcl_message_as_string_1short(message_table_address)2short(message)
0C4EC-P (should_be_immediately_followed_drop_newob)
0C4EC-P
0C4FE^ <F6A8h>
0C612-P rcl_1short(address_of_data_being_recalled)
0C624^ <F6A8h>
0CAF5-P
0CB0F: ret_FalseTrue_2_ref
0CB84-P
0CBA2-P
0CBAE P Error: Nonexistent Alarm
0CBAE-P errn_d04_nonexexistent_alarm
0CBAE:P 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 P Internal TIME
0CBFA=P Cmd_Time
0CC0E P Internal DATE
0CC0E=P Cmd_Date
0CC39 P Internal DDAYS
0CC39=P Ddays
0CC5B Internal DATE+
0CC5B= DateAdd
0CC60^ <1h>
0CC79-P
0CD2B Internal ->DATE
0CD2B= ToDate
0CD3F Internal CLKADJ
0CD3F= Clkadj
0CD53 Internal ->TIME
0CD53= ToTime
0CD67-P
0CDA6-P
0CDD0-P
0CE0F-P
0CEB9-P
0CED9-P
0CEEA-P
0CF5B-P
0CFD9=P Date_to_string
0D06A=P Time_to_string
0D143-P
0D156-P
0D169-P
0D18A-P
0D2A3 Internal WSLOG
0D2A3: Wslog
0D304 Internal TSTR
0D304: Tstr
0DC0F-P
0DC1C-P
0DC28-P
0DDA8 Internal ACKALL
0DDA8: Ackall
0DDC1 Internal ACK
0DDC1: Ack
0DF01 'Alarms' (Global Name)
0DF28 'Alarms' (Global Name)
0DF45-P
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-P
0E1D8 Convert internal alarm into external alarm
0E219-P
0E235 P Recall 'Alarms' list
0E248-P
0E26D-P
0E27D-P
0E2A1-P
0E2B9-P
0E2D1-P
0E302-P
0E343^ <F9A7Ah>
0E3A6-P
0E3DF Internal RCLALARM
0E3DF: Rclalrm
0E402 Recall N'th Alarm (1:System Binary) -> (Alarm/True,False)
0E41B-P
0E43C-P
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-P
0E66A-P
0E693-P
0E724 Internal DELALARM
0E724= Delalrm
0E7B0-P
0E7BB-P
0E7CE-P
0E7F7-P
0E802-P
0E80D-P
0E820-P
0E82B-P
0E836-P
0E8F3: testEnd
0E8FE: testbinary
0E909: test_1dh
0E914: testlist
0E91B: testtype
0E925-P
0E9B2-P
0EAD7 Internal FINDALARM (1:Real Number)
0EAD7= Fndalrm_real
0EB31 Internal FINDALARM (1:List)
0EB31= Fndalrm_list
0EB81 Internal TICKS
0EB81= Ticks
0EC07-P
0EC9D-P
0ED78-P
0ED95-P
0EDFA: test_d_gt_1
0EE26-P
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-P
10B1C-P
10D4B-P
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-P
10EFA-P
10F54-P errn_102_can't_edit_null_char
10F54:P Error_Cant_edit_null_char
10F64-P errn_103_invalid_user_function
10F64:P Error_Inv_user_func
10F74 P Error: No Current Equation
10F74-P errn_104_no_current_equation
10F74:P Error_No_Cur_eq
10F79 MC: Error: No Current Equation
10F86-P errn_106_invalid_syntax
10F86:P Error_Inv_syntax
10F96-P errn_12e_invalid_ppar
10F96:P Error_Invalid_PPAR
10FA6-P errn_12f_non-real_result
10FA6:P Error_Nonreal_result
10FB6-P errn_130_unable_to_isolate
10FB6:P Error_Unable_to_Isol
10FC6-P errn_126_halt_not_allowed
10FC6:P Error_Halt_not_allowed
10FD6 P Internal KILL
10FD6-P errn_123_kill
10FD6:P Error_123
10FE6-P errn_124_last_stack_disabled
10FE6:P Error_Last_stack_disabl
10FF6-P errn_125_last_cmd_disabled
10FF6:P Error_Last_cmd_disabl
11006-P errn_128_wrong_argument_count
11006:P Error_Wrong_arg_count
11016-P errn_129_circular_reference
11016:P Error_Circ_ref
11026-P errn_12a_directory_not_allowed
11026:P Error_Dir_not_allowed
11036 P Error: Non-Empty Directory
11036-P errn_12b_non-empty_directory
11036:P Error_Nonempty_dir
1103B MC: Error: Non-Empty Directory
11046-P errn_12c_invalid_definition
11046:P Error_Inv_def
11056-P errn_12d_missing_library
11056:P Error_Missing_library
11066-P errn_13c_name_conflict
11066:P Error_Name_conflict
11076 P Internal CONT
11076-P errn_13e_continue
11076:P Error_13e
110EF-P
1123F-P
112EC P ?? save Last Arguments
112EC-P clear_last_arguments
112EC:P Clear_lastargs
11320-P
1132D-P alpha_annunciator_on
1133A-P alpha_annunciator_off
11347-P blue_shift_annunciator_on
11354-P blue_shift_annunciator_off
11361-P orange_shift_annunciator_on
1136E-P orange_shift_annunciator_off
11387-P
113C2-P
113D2-P
113E2-P
113F2-P
11402-P
11412-P
11422-P
11432-P
11442-P
11452-P
11462-P
11472-P
11495-P
114B3 Push @C.A as new System Binary
114B3: pushindc_short
114C9: popshort_store_indc
11501-P
11511-P
11533-P prg_on
11543-P delayed_alpha_lock
1155C-P
1156C-P
1158F P Internal BLANK (2:System Binary,1:System Binary)
1165A= compute_grob_nibble
11679=P Disp_Grob_inGrob_Pos
1192F-P
11A6D-P
11CBE: getshort_ref_3
11CC5: save_regs_ref_3
11CCC: do_retsetxm
11CCE-P
11CF3:P String_pitch10_toGrob
11D00:P String_pitch8_toGrob
11EEF: do_retsetc
11EFF: back_graph_char
11F1D: set_c_nib7_0fh
11F1F: set_c_p_fh
11F80=P String_pitch6_toGrob
11FFF: seta_rplret
12002: rplret_8
1200C:P String_to_grob_pitch6
120CC: strlen_a
120EE: pushShortA_rplret_alt_ref
1215E-P
122FF-P
123C8-P disp_(n_x_10)_1short2string
123E5-P <4h>_disp_(n_x_10)_1string
123F5-P <3h>_disp_(n_x_10)_1string
12405-P <2h>_disp_(n_X_10)_1stirng
12415-P <1h>_disp_(n_x_10)_1string
12429-P disp_(n_x_8)_1short2string
12429:P Disp_pitch8Str
1245B-P <1h>_disp_(n_x_8)_1string
1245B:P DispStk_pitch8Str_line0
1245B:P Disp_pitch8Str_line0
1246B-P <2h>_disp_(n_x_8)_1string
1246B:P DispStk_pitch8Str_line1
1246B:P Disp_pitch8Str_line1
1247B-P <3h>_disp_(n_x_8)_1string
1247B:P DispStk_pitch8Str_line2
1247B:P Disp_pitch8Str_line2
1248B-P <4h>_disp_(n_x_8)_1string
1248B:P DispStk_pitch8Str_line3
1248B:P Disp_pitch8Str_line3
1249B-P <5h>_disp_(n_x_8)_1string
1249B:P DispStk_pitch8Str_line4
1249B:P Disp_pitch8Str_line4
124AB-P <6h>_disp_(n_x_8)_1string
124AB:P DispStk_pitch8Str_line5
124AB:P Disp_pitch8Str_line5
124BB-P <7h>_disp_(n_x_8)_1string
124BB:P DispStk_pitch8Str_line6
124BB:P Disp_pitch8Str_line6
124CB:P DispStk_pitch8Str_line7
124CB:P Disp_pitch8Str_line7
124D7: dispstr_row_c
12635-P rcl_stack/status_grob_(131_x_56)
12635:P Get_56line_stkGROB
12645-P rcl_menu_grob_(131_x_8)
12645:P Get_menuGrob
12655-P rcl_stack/status_grob_(131_x_56)
12655:P Get_stkGrob
12665 P recall PICT
12665:P Get_graphGrob
12690-P
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-P
12996-P
12A0D-P
12A4A-P
12AF6-P
12BB7-P
12DD1-P
12E89-P
12F0A-P
12FB2 XFER: Save D,B,D1,D0 (uses C)
13043-P
13061-P
130CA-P
13135-P
1314D P Internal TEXT
13161 XFER: Restore D,B,D1,D0 (C=D0) / Clear Carry
13167-P
131C8-P
13220-P
134AE-P
134E4-P
1357F-P
13679-P
13695-P
137B6-P
137B6=P Get_curRowCol
1380F-P
13825-P
1383B-P
1384A-P
13986-P
13992-P
139E7-P
13B41-P
13BB5-P
13BF1-P
13D28-P
13D55-P
13E05-P
13E22-P
13E2E-P
13E53-P
13E63-P
13E85-P
13E9E-P
13EBC-P
13ED2-P
13EF1-P
13F01-P
13F11-P
13F29-P
13F47-P
13F69-P
13F7F-P
13F9B-P
13FB0-P
13FE5-P move_5_nibbles_@70673_to_#706FF
1400E P Internal ERR0
1400E-P err0
1400E=P Err0
14039 P Push Last Err# as System Binary
14039-P 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-P beep_1short2short
141B2:P Beep
141DE: jump_save_regs
141E5-P
1420A P Internal > (2:String,1:String)
1420A-P >_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-P
14E6D-P
14EA5-P
14EEC-P
14F2A-P
14F8C-P
14FC3-P
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-P
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-P \->str_1any_(truncate)
15A54-P
15A60-P
15A8B-P
15A97-P
15B13= Any_to_string
15B31-P \->str_1any
15B3D-P \->str_1any
15C4B^ <15D06h>
15D6F^ <117h>
15DAB^ <118h>
15E0B^ <112h>
15FCF-P hex\->ascii_1string2binary
1605F-P quotes_in_string_1string
1606C-P double_quotes_in_string_1string
160E5-P \->str_1global
1613F Null String "" (RAM based)
1613F: String_null_Copy
162AC-P \->str_1real
162AC:P Real_to_string
162B8-P \->str_1real
1633D: GC
166E3 P Internal FIX (1:System Binary)
166E3-P fix_1short
166E3=P SetFix
166EF P Internal SCI (1:System Binary)
166EF-P sci_1short
166EF=P SetSci
166FB P Internal ENG (1:System Binary)
166FB-P eng_1short
166FB=P SetEng
16707 P Internal STD
16707-P std
16707=P Std
167D8-P short\->real\->string_(colon)_1short
167E4-P short\->real\->string_1short
1685C-P short\->real\->string_+_(colon)_1short2string
1686A-P 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-P sto_5_nibbles_@70770_1short
17980-P rcl_5_nibbles_@70770_as_short
179AC-P grob_width_<1h>_==_1grob
179D0-P get_variable_contents_1short2directory
17C3F-P
17C55-P
17F15-P
17F4A^ <B8h>
181FA-P
18242-P
1825F-P
18282-P
18295-P
18308-P
18338-P
18355-P
183EB-P
18404-P
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:P 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-P
18802-P
1884D P Set last RPL Token to <0h>
1884D:P 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 P Deep internal AND (2:String,1:String)
188E6-P and_1string2string
188F5 P Deep internal OR (2:String,1:String)
188F5-P or_1string2string
18904 P Deep internal XOR (2:String,1:String)
18904-P xor_1string2string
18961 P Deep internal NOT (1:String)
18961-P not_1string
189FC Configuration code for library 002 (XLIB 2)
18A15-P need_0_arguments_(directory)
18A1E P save last RPL token, stack size, clear @706FD.S
18A1E-P need_0_arguments_(library)
18A1E=P No_arguments
18A27 MC: save stack size, clear @706FD.S and continue RPL
18A51 continue RPL
18A5B P Save last RPL token and verify DEPTH >= 3
18A5B-P need_3_arguments_(library)
18A5B:P Need_3_args_retq
18A68 P Verify DEPTH >= 3
18A68-P need_3_arguments_(directory)
18A68:P Need_3_args
18A6D MC: verify DEPTH >= 3 and continue RPL
18A75 MC: verify DEPTH >= 3
18A75: assert_3_args
18A80 P Save last RPL token and verify DEPTH >= 2
18A80-P need_2_arguments_(library)
18A80:P Need_2_args_retq
18A8D P Verify DEPTH >= 2
18A8D-P need_2_arguments_(directory)
18A8D:P Need_2_args
18A92 MC: verify DEPTH >= 2 and continue RPL
18A9A MC: verify DEPTH >= 2
18A9A: assert_2_args
18AA5 P Save last RPL token and verify DEPTH >= 1
18AA5-P need_1_argument_(library)
18AA5:P Need_1_arg_retq
18AB2 P Verify DEPTH >= 1
18AB2-P need_1_argument_(directory)
18AB2:P 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 P Save last RPL token and verify DEPTH >= 5
18B6D-P need_5_arguments_(library)
18B6D:P Need_5_args_retq
18B7A P Verify DEPTH >= 5
18B7A-P need_5_arguments_(directory)
18B7A:P Need_5_args
18B7F MC: verify DEPTH >= 5 and continue RPL
18B87 MC: verify DEPTH >= 5
18B87: assert_5_args
18B92 P Save last RPL token and verify DEPTH >= 4
18B92-P need_4_arguments_(library)
18B92:P Need_4_args_retq
18B9F P Verify DEPTH >= 4
18B9F-P need_4_arguments_(directory)
18B9F:P 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 P Save last token, check args, R->SB and verify TOS < DEPTH-1
18C34-P need_n_arguments_1real2any...nany
18C34:P 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 P Error: Undefined Name
18C92-P errn_204_undefined_name
18C92:P Error_Undef_name
18C97 MC: Error: Undefined Name
18C97: error_undef_name
18CA2 P Error: Bad Argument Value
18CA2-P errn_203_bad_argument_value
18CA2:P Error_Bad_arg_value
18CA7 MC: Error: Bad Argument Value
18CA7: error_bad_arg_value
18CB2 P Error: Bad Argument Type
18CB2-P errn_202_bad_argument_type
18CB2:P Error_Bad_arg_type
18CB7 MC: Error: Bad Argument Type
18CB7: error_bad_arg_type
18CC2 P Error: Too Few Arguments
18CC2-P errn_201_too_few_arguments
18CC2:P 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 P ABS(Real) -> System Binary
18CD7-P abs_real\->short
18CD7:P AbsReal_to_Short
18CEA P Internal R->SB (1:Real Number)
18CEA-P real\->short
18CEA:P Real_to_Short
18D07: shortpush_a_replret
18D0A: shortpush_r0_rplret
18DBF P Internal SB->R (1:System Binary)
18DBF-P short\->real
18DBF:P Short_to_real
18E45-P
18E7E-P
18EBA P Internal EVAL (1:Algebraic/List)
18EBA-P eval_1algebraic/list/program
18EBA:P Eval_ListOrPrg
18ECE P Save last RPL token, verify DEPTH >= 1 and check args.
18ECE-P need_&_check_1_argument_(xlib)
18ECE:P Switch_on_argtype
18EDF P Save last RPL token, verify DEPTH >= 2 and check args.
18EDF-P need_&_check_2_arguments_(xlib)
18EDF=P Switch_on_2_argtypes
18EF0 P Save last RPL token, verify DEPTH >= 3 and check args.
18EF0-P need_&_check_3_arguments_(xlib)
18EF0:P Switch_on_3argtypes
18F01 P Save last RPL token, verify DEPTH >= 4 and check args.
18F01-P need_&_check_4_arguments_(xlib)
18F12 P Save last RPL token, verify DEPTH >= 5 and check args.
18F12-P need_&_check_5_arguments_(xlib)
18F23-P
18F6A= EndAndEvalq
18F83 XFER: Bad Argument Type
18F83: error_bad_arg_type_ref_2
18F87: end_follows
18F9D P Check arguments for type (don't save D0)
18F9D-P check_argument(s)_(directory)_(requires_short_reference)
18F9D:P Check_1_argtype_alt2
18FA9 P Check arguments for type - XFER
18FA9-P check_argument(s)_(directory)_(requires_short_reference)
18FA9:P Check_1_argtype_alt
18FB2 P Check arguments for type
18FB2-P check_argument(s)_(directory)_(requires_short_reference)
18FB2:P 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:P Mul_short
191B9 P_1short2short
19207- check_stack_for_n_real/complex_1short2any3real/complex..n+3real/complex
19294-P \->arry_1array(real/complex)2short3real/complex...n+3real/complex
19350-P ram_object?_(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)
(end of part 1 of 4)