DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦da2a3eab2⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_65acc1

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 06c8       |    |		.CONST	0x06c8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0028       | (  |		.CONST	0x0028								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 00e6       |    |		Load_Encached	Float_Cache
000c 0129       | )  |		Execute	Any,Make_Visible
000d 00e6       |    |		Load_Encached	Float_Cache
000e 0129       | )  |		Execute	Any,Make_Visible
000f 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
0011 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0013 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0015 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0017 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0019 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
001b 00bf       |    |		Action	Accept_Activation
001c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001d 00c7       |    |		Action	Elaborate_Subprogram
001e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001f 00c7       |    |		Action	Elaborate_Subprogram
0020 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0027 00c7       |    |		Action	Elaborate_Subprogram
0028			BODY_0008:
0028 e002       |    |		Load	0x0,0x2
0029 8211       |    |		Call	0x1,0x11
002a e003       |    |		Load	0x0,0x3
002b e004       |    |		Load	0x0,0x4
002c 023c       | <  |		Execute	Float,Minus
002d 023b       | ;  |		Execute	Float,Times
002e a20d       |    |		Store_Unchecked	0x1,0xd
002f e005       |    |		Load	0x0,0x5
0030 8211       |    |		Call	0x1,0x11
0031 e003       |    |		Load	0x0,0x3
0032 e004       |    |		Load	0x0,0x4
0033 023c       | <  |		Execute	Float,Minus
0034 023b       | ;  |		Execute	Float,Times
0035 a20e       |    |		Store_Unchecked	0x1,0xe
0036 00bc       |    |		Action	Signal_Activated
0037 00bb       |    |		Action	Signal_Completion
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 004f       | O  |		.CONST	0x004f								; Address of begin
0039 00aa       |    |		.CONST	0x00aa								; Address of exception handler
003a 000b       |    |		.CONST	0x000b								; Number of locals
003b			INIT_0038:
003b 00e2       |    |		Load_Encached	Integer_Cache
003c 03e9       |    |		Declare_Variable	Discrete,Duplicate
003d 00e6       |    |		Load_Encached	Float_Cache
003e 03d8       |    |		Declare_Variable	Float,Duplicate
003f 00e6       |    |		Load_Encached	Float_Cache
0040 4800       |H   |		Short_Literal	0x0
0041 4864       |Hd  |		Short_Literal	0x64
0042 00e2       |    |		Load_Encached	Integer_Cache
0043 03f8       |    |		Declare_Type	Discrete,Constrained
0044 00d8       |    |		Load_Top	At_Offset_0
0045 0603       |    |		Execute_Immediate	Set_Value_Unchecked,0x3
0046 5881       |X   |		Indirect_Literal	Float,0xc8,0.4257812490686774
0047 00e6       |    |		Load_Encached	Float_Cache
0048 03df       |    |		Declare_Variable	Float,With_Value
0049 587a       |Xz  |		Indirect_Literal	Float,0xc4,0.57421875
004a 00e6       |    |		Load_Encached	Float_Cache
004b 03df       |    |		Declare_Variable	Float,With_Value
004c 5873       |Xs  |		Indirect_Literal	Float,0xc0,0.7071067811914268
004d 00e6       |    |		Load_Encached	Float_Cache
004e 03df       |    |		Declare_Variable	Float,With_Value
004f			BODY_0038:
004f e5ff       |    |		Load	0x2,-0x1
0050 e006       |    |		Load	0x0,0x6
0051 0247       | G  |		Execute	Float,Equal
0052 6804       |h   |		Jump_Zero	0x57
0053 e006       |    |		Load	0x0,0x6
0054 a406       |    |		Store_Unchecked	0x2,0x6
0055 e406       |    |		Load	0x2,0x6
0056 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0057 e5ff       |    |		Load	0x2,-0x1
0058 e003       |    |		Load	0x0,0x3
0059 0247       | G  |		Execute	Float,Equal
005a 6804       |h   |		Jump_Zero	0x5f
005b e003       |    |		Load	0x0,0x3
005c a406       |    |		Store_Unchecked	0x2,0x6
005d e406       |    |		Load	0x2,0x6
005e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
005f e5ff       |    |		Load	0x2,-0x1
0060 e006       |    |		Load	0x0,0x6
0061 0244       | D  |		Execute	Float,Less
0062 6814       |h   |		Jump_Zero	0x77
0063 4801       |H   |		Short_Literal	0x1
0064 e007       |    |		Load	0x0,0x7
0065 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0066 0092 05a0  |    |		Action	Push_String_Extended,0x5a0					; "CALLED SQRT FOR NEGATIVE ARGUMENT   "
0068 e007       |    |		Load	0x0,0x7
0069 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
006a 08e2       |    |		Execute_Immediate	Raise,0xe2
006b 05a1 e007  |    |		.XXX[0xc]
006d 184b 4801  | KH |
006f e007 182d  |   -|
0071 e5ff 023e  |   >|
0073 820f a406  |    |
0075 e406 4401  |  D |
0077 e404       |    |		Load	0x2,0x4
0078 e403       |    |		Load	0x2,0x3
0079 e5ff       |    |		Load	0x2,-0x1
007a 8008       |    |		Call	0x0,0x8
007b c403       |    |		Store	0x2,0x3
007c c404       |    |		Store	0x2,0x4
007d 00da       |    |		Load_Top	At_Offset_2
007e 00da       |    |		Load_Top	At_Offset_2
007f e404       |    |		Load	0x2,0x4
0080 023b       | ;  |		Execute	Float,Times
0081 023d       | =  |		Execute	Float,Plus
0082 a405       |    |		Store_Unchecked	0x2,0x5
0083 00cf       |    |		Action	Mark_Auxiliary
0084 e408       |    |		Load	0x2,0x8
0085 4801       |H   |		Short_Literal	0x1
0086 0263       | c  |		Execute	Discrete,Above_Bound
0087 700c       |p   |		Jump_Nonzero	0x94
0088 e405       |    |		Load	0x2,0x5
0089 5832       |X2  |		Indirect_Literal	Float,0xbc,2.0
008a 023a       | :  |		Execute	Float,Divide
008b e404       |    |		Load	0x2,0x4
008c 582f       |X/  |		Indirect_Literal	Float,0xbc,2.0
008d 023a       | :  |		Execute	Float,Divide
008e e405       |    |		Load	0x2,0x5
008f 023a       | :  |		Execute	Float,Divide
0090 023d       | =  |		Execute	Float,Plus
0091 a405       |    |		Store_Unchecked	0x2,0x5
0092 00c8       |    |		Action	Pop_Auxiliary_Range
0093 3ff4       |?   |		Loop_Increasing	0x88
0094 00ce       |    |		Action	Pop_Auxiliary
0095 e403       |    |		Load	0x2,0x3
0096 4801       |H   |		Short_Literal	0x1
0097 0279       | y  |		Execute	Discrete,And
0098 6807       |h   |		Jump_Zero	0xa0
0099 00d8       |    |		Load_Top	At_Offset_0
009a e405       |    |		Load	0x2,0x5
009b 023b       | ;  |		Execute	Float,Times
009c a405       |    |		Store_Unchecked	0x2,0x5
009d e403       |    |		Load	0x2,0x3
009e 0a01       |    |		Execute_Immediate	Plus,0x1
009f c403       |    |		Store	0x2,0x3
00a0 e403       |    |		Load	0x2,0x3
00a1 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
00a2 a402       |    |		Store_Unchecked	0x2,0x2
00a3 e406       |    |		Load	0x2,0x6
00a4 e405       |    |		Load	0x2,0x5
00a5 e402       |    |		Load	0x2,0x2
00a6 8009       |    |		Call	0x0,0x9
00a7 c406       |    |		Store	0x2,0x6
00a8 e406       |    |		Load	0x2,0x6
00a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00aa			TRAP_0038:
00aa 0007       |    |		Action	Break_Optional
00ab 4801       |H   |		Short_Literal	0x1
00ac e007       |    |		Load	0x0,0x7
00ad 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00ae 0092 05a2  |    |		Action	Push_String_Extended,0x5a2					; " EXCEPTION IN SQRT, X = "
00b0 e007       |    |		Load	0x0,0x7
00b1 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00b2 08e2       |    |		Execute_Immediate	Raise,0xe2
00b3 05a3 e007  |    |		.XXX[0x9]
00b5 184b 4801  | KH |
00b7 e007 182d  |   -|
00b9 e003 4401  |  D |
00bb 0000       |    |
00bc 4000 0000  |@   |		.DBL	2.0
00be 0000 0000  |    |
00c0 3fe6 a09e  |?   |		.DBL	0.7071067811914268
00c2 667f e779  |f  y|
00c4 3fe2 6000  |? ` |		.DBL	0.57421875
00c6 0000 0000  |    |
00c8 3fdb 3fff  |? ? |		.DBL	0.4257812490686774
00ca ff00 0000  |    |
00cc 0000 0000  |    |		.BLANK	0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00ea       |    |		.CONST	0x00ea								; Address of begin
00d1 0141       | A  |		.CONST	0x0141								; Address of exception handler
00d2 000c       |    |		.CONST	0x000c								; Number of locals
00d3			INIT_00d0:
00d3 00e2       |    |		Load_Encached	Integer_Cache
00d4 03e9       |    |		Declare_Variable	Discrete,Duplicate
00d5 00e6       |    |		Load_Encached	Float_Cache
00d6 03d8       |    |		Declare_Variable	Float,Duplicate
00d7 00e6       |    |		Load_Encached	Float_Cache
00d8 4800       |H   |		Short_Literal	0x0
00d9 4864       |Hd  |		Short_Literal	0x64
00da 00e2       |    |		Load_Encached	Integer_Cache
00db 03f8       |    |		Declare_Type	Discrete,Constrained
00dc 00d8       |    |		Load_Top	At_Offset_0
00dd 0603       |    |		Execute_Immediate	Set_Value_Unchecked,0x3
00de 5889       |X   |		Indirect_Literal	Float,0x168,0.5874008999999999
00df 00e6       |    |		Load_Encached	Float_Cache
00e0 03df       |    |		Declare_Variable	Float,With_Value
00e1 5882       |X   |		Indirect_Literal	Float,0x164,0.412599
00e2 00e6       |    |		Load_Encached	Float_Cache
00e3 03df       |    |		Declare_Variable	Float,With_Value
00e4 587b       |X{  |		Indirect_Literal	Float,0x160,0.6299605249
00e5 00e6       |    |		Load_Encached	Float_Cache
00e6 03df       |    |		Declare_Variable	Float,With_Value
00e7 5874       |Xt  |		Indirect_Literal	Float,0x15c,0.793700526
00e8 00e6       |    |		Load_Encached	Float_Cache
00e9 03df       |    |		Declare_Variable	Float,With_Value
00ea			BODY_00d0:
00ea e5ff       |    |		Load	0x2,-0x1
00eb e006       |    |		Load	0x0,0x6
00ec 0247       | G  |		Execute	Float,Equal
00ed 6804       |h   |		Jump_Zero	0xf2
00ee e006       |    |		Load	0x0,0x6
00ef a406       |    |		Store_Unchecked	0x2,0x6
00f0 e406       |    |		Load	0x2,0x6
00f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f2 e404       |    |		Load	0x2,0x4
00f3 e403       |    |		Load	0x2,0x3
00f4 e5ff       |    |		Load	0x2,-0x1
00f5 8008       |    |		Call	0x0,0x8
00f6 c403       |    |		Store	0x2,0x3
00f7 c404       |    |		Store	0x2,0x4
00f8 e404       |    |		Load	0x2,0x4
00f9 023e       | >  |		Execute	Float,Absolute_Value
00fa a404       |    |		Store_Unchecked	0x2,0x4
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 00db       |    |		Load_Top	At_Offset_3
00fd e404       |    |		Load	0x2,0x4
00fe 023b       | ;  |		Execute	Float,Times
00ff 023d       | =  |		Execute	Float,Plus
0100 a405       |    |		Store_Unchecked	0x2,0x5
0101 00cf       |    |		Action	Mark_Auxiliary
0102 e408       |    |		Load	0x2,0x8
0103 4801       |H   |		Short_Literal	0x1
0104 0263       | c  |		Execute	Discrete,Above_Bound
0105 7010       |p   |		Jump_Nonzero	0x116
0106 e405       |    |		Load	0x2,0x5
0107 00d8       |    |		Load_Top	At_Offset_0
0108 584f       |XO  |		Indirect_Literal	Float,0x158,3.0
0109 023a       | :  |		Execute	Float,Divide
010a e404       |    |		Load	0x2,0x4
010b 584c       |XL  |		Indirect_Literal	Float,0x158,3.0
010c 023a       | :  |		Execute	Float,Divide
010d e405       |    |		Load	0x2,0x5
010e 00d8       |    |		Load_Top	At_Offset_0
010f 023b       | ;  |		Execute	Float,Times
0110 023a       | :  |		Execute	Float,Divide
0111 023c       | <  |		Execute	Float,Minus
0112 023c       | <  |		Execute	Float,Minus
0113 a405       |    |		Store_Unchecked	0x2,0x5
0114 00c8       |    |		Action	Pop_Auxiliary_Range
0115 3ff0       |?   |		Loop_Increasing	0x106
0116 00ce       |    |		Action	Pop_Auxiliary
0117 e403       |    |		Load	0x2,0x3
0118 4803       |H   |		Short_Literal	0x3
0119 026e       | n  |		Execute	Discrete,Modulo
011a 0b01       |    |		Execute_Immediate	Case_Compare,0x1
011b 7003       |p   |		Jump_Nonzero	0x11f
011c 0f02       |    |		Execute_Immediate	Equal,0x2
011d 700a       |p   |		Jump_Nonzero	0x128
011e 7810       |x   |		Jump	0x12f
011f 00d1       |    |		Pop_Control	Pop_Count_1
0120 00d9       |    |		Load_Top	At_Offset_1
0121 e405       |    |		Load	0x2,0x5
0122 023b       | ;  |		Execute	Float,Times
0123 a405       |    |		Store_Unchecked	0x2,0x5
0124 e403       |    |		Load	0x2,0x3
0125 0a02       |    |		Execute_Immediate	Plus,0x2
0126 c403       |    |		Store	0x2,0x3
0127 7807       |x   |		Jump	0x12f
0128 00d8       |    |		Load_Top	At_Offset_0
0129 e405       |    |		Load	0x2,0x5
012a 023b       | ;  |		Execute	Float,Times
012b a405       |    |		Store_Unchecked	0x2,0x5
012c e403       |    |		Load	0x2,0x3
012d 0a01       |    |		Execute_Immediate	Plus,0x1
012e c403       |    |		Store	0x2,0x3
012f e403       |    |		Load	0x2,0x3
0130 4803       |H   |		Short_Literal	0x3
0131 0270       | p  |		Execute	Discrete,Divide
0132 a402       |    |		Store_Unchecked	0x2,0x2
0133 e5ff       |    |		Load	0x2,-0x1
0134 e006       |    |		Load	0x0,0x6
0135 0244       | D  |		Execute	Float,Less
0136 6803       |h   |		Jump_Zero	0x13a
0137 e405       |    |		Load	0x2,0x5
0138 023f       | ?  |		Execute	Float,Unary_Minus
0139 a405       |    |		Store_Unchecked	0x2,0x5
013a e406       |    |		Load	0x2,0x6
013b e405       |    |		Load	0x2,0x5
013c e402       |    |		Load	0x2,0x2
013d 8009       |    |		Call	0x0,0x9
013e c406       |    |		Store	0x2,0x6
013f e406       |    |		Load	0x2,0x6
0140 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0141			TRAP_00d0:
0141 0007       |    |		Action	Break_Optional
0142 e003       |    |		Load	0x0,0x3
0143 a406       |    |		Store_Unchecked	0x2,0x6
0144 e5ff       |    |		Load	0x2,-0x1
0145 e006       |    |		Load	0x0,0x6
0146 0244       | D  |		Execute	Float,Less
0147 6803       |h   |		Jump_Zero	0x14b
0148 e003       |    |		Load	0x0,0x3
0149 023f       | ?  |		Execute	Float,Unary_Minus
014a a406       |    |		Store_Unchecked	0x2,0x6
014b 4801       |H   |		Short_Literal	0x1
014c e007       |    |		Load	0x0,0x7
014d 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
014e 0092 05a4  |    |		Action	Push_String_Extended,0x5a4					; "EXCEPTION IN CBRT, X = "
0150 e007       |    |		Load	0x0,0x7
0151 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0152 08e2       |    |		Execute_Immediate	Raise,0xe2
0153 05a5 e007  |    |		.XXX[0x5]
0155 184b 08e2  | K  |
0157 0000       |    |
0158 4008 0000  |@   |		.DBL	3.0
015a 0000 0000  |    |
015c 3fe9 65fe  |? e |		.DBL	0.793700526
015e a53f 9dad  | ?  |
0160 3fe4 28a2  |? ( |		.DBL	0.6299605249
0162 f986 ed84  |    |
0164 3fda 6805  |? h |		.DBL	0.412599
0166 a2d7 2ffd  |  / |
0168 3fe2 cbfc  |?   |		.DBL	0.5874008999999999
016a f8e4 82cb  |    |
016c 0000 0000  |    |		.BLANK	0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017d       | }  |		.CONST	0x017d								; Address of begin
0171 01e0       |    |		.CONST	0x01e0								; Address of exception handler
0172 000a       |    |		.CONST	0x000a								; Number of locals
0173			INIT_0170:
0173 00e6       |    |		Load_Encached	Float_Cache
0174 00e2       |    |		Load_Encached	Integer_Cache
0175 00e6       |    |		Load_Encached	Float_Cache
0176 00e6       |    |		Load_Encached	Float_Cache
0177 00e6       |    |		Load_Encached	Float_Cache
0178 00e6       |    |		Load_Encached	Float_Cache
0179 03d8       |    |		Declare_Variable	Float,Duplicate
017a 03d8       |    |		Declare_Variable	Float,Duplicate
017b 029f 052b  |   +|		Declare_Subprogram	INIT_0528,For_Call
017d			BODY_0170:
017d e5ff       |    |		Load	0x2,-0x1
017e e006       |    |		Load	0x0,0x6
017f 0244       | D  |		Execute	Float,Less
0180 6810       |h   |		Jump_Zero	0x191
0181 4801       |H   |		Short_Literal	0x1
0182 e007       |    |		Load	0x0,0x7
0183 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0184 0092 05a6  |    |		Action	Push_String_Extended,0x5a6					; "CALLED LOG FOR NEGATIVE "
0186 e007       |    |		Load	0x0,0x7
0187 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0188 08e2       |    |		Execute_Immediate	Raise,0xe2
0189 05a7 e007  |    |		.XXX[0x8]
018b 184b e5ff  | K  |
018d 023e 8211  | >  |
018f a402 08e2  |    |
0191 e5ff       |    |		Load	0x2,-0x1
0192 e006       |    |		Load	0x0,0x6
0193 0247       | G  |		Execute	Float,Equal
0194 680b       |h   |		Jump_Zero	0x1a0
0195 4801       |H   |		Short_Literal	0x1
0196 e007       |    |		Load	0x0,0x7
0197 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0198 0092 05a8  |    |		Action	Push_String_Extended,0x5a8					; "CALLED LOG FOR ZERO ARGUMENT, RETURNED "
019a e007       |    |		Load	0x0,0x7
019b 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
019c e002       |    |		Load	0x0,0x2
019d 023f       | ?  |		Execute	Float,Unary_Minus
019e a402       |    |		Store_Unchecked	0x2,0x2
019f 08e2       |    |		Execute_Immediate	Raise,0xe2
01a0 e406       |    |		Load	0x2,0x6
01a1 e403       |    |		Load	0x2,0x3
01a2 e5ff       |    |		Load	0x2,-0x1
01a3 8008       |    |		Call	0x0,0x8
01a4 c403       |    |		Store	0x2,0x3
01a5 c406       |    |		Store	0x2,0x6
01a6 e406       |    |		Load	0x2,0x6
01a7 5860       |X`  |		Indirect_Literal	Float,0x208,0.5
01a8 023c       | <  |		Execute	Float,Minus
01a9 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
01aa 00d9       |    |		Load_Top	At_Offset_1
01ab 800a       |    |		Call	0x0,0xa
01ac a405       |    |		Store_Unchecked	0x2,0x5
01ad 00d9       |    |		Load_Top	At_Offset_1
01ae 5855       |XU  |		Indirect_Literal	Float,0x204,2.0
01af 023a       | :  |		Execute	Float,Divide
01b0 5857       |XW  |		Indirect_Literal	Float,0x208,0.5
01b1 023d       | =  |		Execute	Float,Plus
01b2 0043       | C  |		Store_Top_Uncheched	Float,At_Offset_3
01b3 00d9       |    |		Load_Top	At_Offset_1
01b4 584b       |XK  |		Indirect_Literal	Float,0x200,0.20710678118654752
01b5 0245       | E  |		Execute	Float,Greater
01b6 680d       |h   |		Jump_Zero	0x1c4
01b7 e405       |    |		Load	0x2,0x5
01b8 584f       |XO  |		Indirect_Literal	Float,0x208,0.5
01b9 023c       | <  |		Execute	Float,Minus
01ba a405       |    |		Store_Unchecked	0x2,0x5
01bb 00d9       |    |		Load_Top	At_Offset_1
01bc 584b       |XK  |		Indirect_Literal	Float,0x208,0.5
01bd 023c       | <  |		Execute	Float,Minus
01be 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
01bf 00da       |    |		Load_Top	At_Offset_2
01c0 583b       |X;  |		Indirect_Literal	Float,0x1fc,0.25
01c1 023d       | =  |		Execute	Float,Plus
01c2 0043       | C  |		Store_Top_Uncheched	Float,At_Offset_3
01c3 7803       |x   |		Jump	0x1c7
01c4 e403       |    |		Load	0x2,0x3
01c5 0aff       |    |		Execute_Immediate	Plus,-0x1
01c6 c403       |    |		Store	0x2,0x3
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 00db       |    |		Load_Top	At_Offset_3
01c9 023a       | :  |		Execute	Float,Divide
01ca a407       |    |		Store_Unchecked	0x2,0x7
01cb 00db       |    |		Load_Top	At_Offset_3
01cc 840a       |    |		Call	0x2,0xa
01cd 800a       |    |		Call	0x0,0xa
01ce a402       |    |		Store_Unchecked	0x2,0x2
01cf e403       |    |		Load	0x2,0x3
01d0 680d       |h   |		Jump_Zero	0x1de
01d1 e403       |    |		Load	0x2,0x3
01d2 800b       |    |		Call	0x0,0xb
01d3 a404       |    |		Store_Unchecked	0x2,0x4
01d4 e404       |    |		Load	0x2,0x4
01d5 5822       |X"  |		Indirect_Literal	Float,0x1f8,-0.00021219444005469057
01d6 023b       | ;  |		Execute	Float,Times
01d7 e402       |    |		Load	0x2,0x2
01d8 023d       | =  |		Execute	Float,Plus
01d9 e404       |    |		Load	0x2,0x4
01da 5819       |X   |		Indirect_Literal	Float,0x1f4,0.693359375
01db 023b       | ;  |		Execute	Float,Times
01dc 023d       | =  |		Execute	Float,Plus
01dd a402       |    |		Store_Unchecked	0x2,0x2
01de e402       |    |		Load	0x2,0x2
01df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e0			TRAP_0170:
01e0 0007       |    |		Action	Break_Optional
01e1 4801       |H   |		Short_Literal	0x1
01e2 e007       |    |		Load	0x0,0x7
01e3 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
01e4 0092 05a9  |    |		Action	Push_String_Extended,0x5a9					; " EXCEPTION IN LOG, X = "
01e6 e007       |    |		Load	0x0,0x7
01e7 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01e8 08e2       |    |		Execute_Immediate	Raise,0xe2
01e9 05aa e007  |    |		.XXX[0xb]
01eb 184b 4801  | KH |
01ed e007 182d  |   -|
01ef e006 4401  |  D |
01f1 0000 0000  |    |
01f3 0000       |    |
01f4 3fe6 3000  |? 0 |		.DBL	0.693359375
01f6 0000 0000  |    |
01f8 bf2b d010  | +  |		.DBL	-0.00021219444005469057
01fa 5c61 0ca8  |\a  |
01fc 3fd0 0000  |?   |		.DBL	0.25
01fe 0000 0000  |    |
0200 3fca 8279  |?  y|		.DBL	0.20710678118654752
0202 99fc ef32  |   2|
0204 4000 0000  |@   |		.DBL	2.0
0206 0000 0000  |    |
0208 3fe0 0000  |?   |		.DBL	0.5
020a 0000 0000  |    |
020c 0000 0000  |    |		.BLANK	0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0215       |    |		.CONST	0x0215								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0002       |    |		.CONST	0x0002								; Number of locals
0213			INIT_0210:
0213 5808       |X   |		Indirect_Literal	Float,0x21c,0.4342944819032518
0214 800a       |    |		Call	0x0,0xa
0215			BODY_0210:
0215 00db       |    |		Load_Top	At_Offset_3
0216 8211       |    |		Call	0x1,0x11
0217 00d9       |    |		Load_Top	At_Offset_1
0218 023b       | ;  |		Execute	Float,Times
0219 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021a 0000 0000  |    |		.XXX[0x2]
021c 3fdb cb7b  |?  {|		.DBL	0.4342944819032518
021e 1526 e50e  | &  |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0231       | 1  |		.CONST	0x0231								; Address of begin
0221 028f       |    |		.CONST	0x028f								; Address of exception handler
0222 000c       |    |		.CONST	0x000c								; Number of locals
0223			INIT_0220:
0223 00e6       |    |		Load_Encached	Float_Cache
0224 00e2       |    |		Load_Encached	Integer_Cache
0225 00e6       |    |		Load_Encached	Float_Cache
0226 03d8       |    |		Declare_Variable	Float,Duplicate
0227 03d8       |    |		Declare_Variable	Float,Duplicate
0228 03d8       |    |		Declare_Variable	Float,Duplicate
0229 00e6       |    |		Load_Encached	Float_Cache
022a 03d8       |    |		Declare_Variable	Float,Duplicate
022b e20d       |    |		Load	0x1,0xd
022c 0007       |    |		Action	Break_Optional
022d e20e       |    |		Load	0x1,0xe
022e 0007       |    |		Action	Break_Optional
022f 029f 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call
0231			BODY_0220:
0231 e5ff       |    |		Load	0x2,-0x1
0232 00db       |    |		Load_Top	At_Offset_3
0233 0245       | E  |		Execute	Float,Greater
0234 6811       |h   |		Jump_Zero	0x246
0235 4801       |H   |		Short_Literal	0x1
0236 e007       |    |		Load	0x0,0x7
0237 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0238 0092 05ab  |    |		Action	Push_String_Extended,0x5ab					; "  EXP CALLED WITH TOO BIG A POSITIVE ARGUMENT, "
023a e007       |    |		Load	0x0,0x7
023b 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
023c 08e2       |    |		Execute_Immediate	Raise,0xe2
023d 05ac e007  |    |		.XXX[0x9]
023f 184b 4801  | KH |
0241 e007 182d  |   -|
0243 e002 a402  |    |
0245 7847       |xG  |
0246 e5ff       |    |		Load	0x2,-0x1
0247 00da       |    |		Load_Top	At_Offset_2
0248 0244       | D  |		Execute	Float,Less
0249 6811       |h   |		Jump_Zero	0x25b
024a 4801       |H   |		Short_Literal	0x1
024b e007       |    |		Load	0x0,0x7
024c 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
024d 0092 05ad  |    |		Action	Push_String_Extended,0x5ad					; "  EXP CALLED WITH TOO BIG A NEGATIVE ARGUMENT,  "
024f e007       |    |		Load	0x0,0x7
0250 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0251 08e2       |    |		Execute_Immediate	Raise,0xe2
0252 05ae e007  |    |		.XXX[0x9]
0254 184b 4801  | KH |
0256 e007 182d  |   -|
0258 e006 a402  |    |
025a 7832       |x2  |
025b e5ff       |    |		Load	0x2,-0x1
025c 023e       | >  |		Execute	Float,Absolute_Value
025d e004       |    |		Load	0x0,0x4
025e 0244       | D  |		Execute	Float,Less
025f 6803       |h   |		Jump_Zero	0x263
0260 e003       |    |		Load	0x0,0x3
0261 a402       |    |		Store_Unchecked	0x2,0x2
0262 782a       |x*  |		Jump	0x28d
0263 e5ff       |    |		Load	0x2,-0x1
0264 5843       |XC  |		Indirect_Literal	Float,0x2a8,1.4426950408889634
0265 023b       | ;  |		Execute	Float,Times
0266 0235       | 5  |		Execute	Float,Round_To_Discrete
0267 00e2       |    |		Load_Encached	Integer_Cache
0268 025e       | ^  |		Execute	Discrete,Convert
0269 a403       |    |		Store_Unchecked	0x2,0x3
026a e403       |    |		Load	0x2,0x3
026b 800b       |    |		Call	0x0,0xb
026c a405       |    |		Store_Unchecked	0x2,0x5
026d e5ff       |    |		Load	0x2,-0x1
026e 800c       |    |		Call	0x0,0xc
026f a406       |    |		Store_Unchecked	0x2,0x6
0270 e5ff       |    |		Load	0x2,-0x1
0271 e406       |    |		Load	0x2,0x6
0272 023c       | <  |		Execute	Float,Minus
0273 a407       |    |		Store_Unchecked	0x2,0x7
0274 e406       |    |		Load	0x2,0x6
0275 e405       |    |		Load	0x2,0x5
0276 582d       |X-  |		Indirect_Literal	Float,0x2a4,0.693359375
0277 023b       | ;  |		Execute	Float,Times
0278 023c       | <  |		Execute	Float,Minus
0279 e407       |    |		Load	0x2,0x7
027a 023d       | =  |		Execute	Float,Plus
027b e405       |    |		Load	0x2,0x5
027c 5823       |X#  |		Indirect_Literal	Float,0x2a0,-0.00021219444005469057
027d 023b       | ;  |		Execute	Float,Times
027e 023c       | <  |		Execute	Float,Minus
027f a404       |    |		Store_Unchecked	0x2,0x4
0280 e404       |    |		Load	0x2,0x4
0281 a409       |    |		Store_Unchecked	0x2,0x9
0282 e403       |    |		Load	0x2,0x3
0283 0a01       |    |		Execute_Immediate	Plus,0x1
0284 c403       |    |		Store	0x2,0x3
0285 00db       |    |		Load_Top	At_Offset_3
0286 840c       |    |		Call	0x2,0xc
0287 a408       |    |		Store_Unchecked	0x2,0x8
0288 e402       |    |		Load	0x2,0x2
0289 e408       |    |		Load	0x2,0x8
028a e403       |    |		Load	0x2,0x3
028b 8009       |    |		Call	0x0,0x9
028c c402       |    |		Store	0x2,0x2
028d e402       |    |		Load	0x2,0x2
028e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028f			TRAP_0220:
028f 0007       |    |		Action	Break_Optional
0290 4801       |H   |		Short_Literal	0x1
0291 e007       |    |		Load	0x0,0x7
0292 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0293 0092 05af  |    |		Action	Push_String_Extended,0x5af					; " EXCEPTION IN EXP, X = "
0295 e007       |    |		Load	0x0,0x7
0296 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0297 08e2       |    |		Execute_Immediate	Raise,0xe2
0298 05a3 e007  |    |		.XXX[0x8]
029a 184b 4801  | KH |
029c e007 182d  |   -|
029e e003 4401  |  D |
02a0 bf2b d010  | +  |		.DBL	-0.00021219444005469057
02a2 5c61 0ca8  |\a  |
02a4 3fe6 3000  |? 0 |		.DBL	0.693359375
02a6 0000 0000  |    |
02a8 3ff7 1547  |?  G|		.DBL	1.4426950408889634
02aa 652b 82fe  |e+  |
02ac 0000 0000  |    |		.BLANK	0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 035a       | Z  |		.CONST	0x035a								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 001b       |    |		.CONST	0x001b								; Number of locals
02b3			INIT_02b0:
02b3 00e2       |    |		Load_Encached	Integer_Cache
02b4 03e9       |    |		Declare_Variable	Discrete,Duplicate
02b5 00e6       |    |		Load_Encached	Float_Cache
02b6 00e2       |    |		Load_Encached	Integer_Cache
02b7 03e9       |    |		Declare_Variable	Discrete,Duplicate
02b8 03e9       |    |		Declare_Variable	Discrete,Duplicate
02b9 03e9       |    |		Declare_Variable	Discrete,Duplicate
02ba 00e6       |    |		Load_Encached	Float_Cache
02bb 03d8       |    |		Declare_Variable	Float,Duplicate
02bc 03d8       |    |		Declare_Variable	Float,Duplicate
02bd 03d8       |    |		Declare_Variable	Float,Duplicate
02be 03d8       |    |		Declare_Variable	Float,Duplicate
02bf 03d8       |    |		Declare_Variable	Float,Duplicate
02c0 03d8       |    |		Declare_Variable	Float,Duplicate
02c1 03d8       |    |		Declare_Variable	Float,Duplicate
02c2 03d8       |    |		Declare_Variable	Float,Duplicate
02c3 03d8       |    |		Declare_Variable	Float,Duplicate
02c4 03d8       |    |		Declare_Variable	Float,Duplicate
02c5 03d8       |    |		Declare_Variable	Float,Duplicate
02c6 5a5d       |Z]  |		Indirect_Literal	Float,0x524,16.0
02c7 e002       |    |		Load	0x0,0x2
02c8 8211       |    |		Call	0x1,0x11
02c9 023b       | ;  |		Execute	Float,Times
02ca 5a55       |ZU  |		Indirect_Literal	Float,0x520,1.0
02cb 023c       | <  |		Execute	Float,Minus
02cc 800d       |    |		Call	0x0,0xd
02cd 0235       | 5  |		Execute	Float,Round_To_Discrete
02ce 00e2       |    |		Load_Encached	Integer_Cache
02cf 025e       | ^  |		Execute	Discrete,Convert
02d0 5a53       |ZS  |		Indirect_Literal	Float,0x524,16.0
02d1 e005       |    |		Load	0x0,0x5
02d2 8211       |    |		Call	0x1,0x11
02d3 023b       | ;  |		Execute	Float,Times
02d4 5a4b       |ZK  |		Indirect_Literal	Float,0x520,1.0
02d5 023d       | =  |		Execute	Float,Plus
02d6 800d       |    |		Call	0x0,0xd
02d7 0235       | 5  |		Execute	Float,Round_To_Discrete
02d8 00e2       |    |		Load_Encached	Integer_Cache
02d9 025e       | ^  |		Execute	Discrete,Convert
02da 4801       |H   |		Short_Literal	0x1
02db 4811       |H   |		Short_Literal	0x11
02dc 00e6       |    |		Load_Encached	Float_Cache
02dd 02a0       |    |		Declare_Subprogram	Null_Subprogram
02de 4801       |H   |		Short_Literal	0x1
02df 035d       | ]  |		Declare_Type	Array,Defined
02e0 00d8       |    |		Load_Top	At_Offset_0
02e1 0337       | 7  |		Declare_Variable	Array
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 0335       | 5  |		Declare_Variable	Array,Duplicate
02e4 00cd       |    |		Action	Spare6_Action
02e5 5a3a       |Z:  |		Indirect_Literal	Float,0x520,1.0
02e6 4801       |H   |		Short_Literal	0x1
02e7 00da       |    |		Load_Top	At_Offset_2
02e8 01d6       |    |		Execute	Vector,Field_Write
02e9 5a32       |Z2  |		Indirect_Literal	Float,0x51c,0.9576032757759094
02ea 4802       |H   |		Short_Literal	0x2
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 01d6       |    |		Execute	Vector,Field_Write
02ed 5a2a       |Z*  |		Indirect_Literal	Float,0x518,0.9170040413737297
02ee 4803       |H   |		Short_Literal	0x3
02ef 00da       |    |		Load_Top	At_Offset_2
02f0 01d6       |    |		Execute	Vector,Field_Write
02f1 5a22       |Z"  |		Indirect_Literal	Float,0x514,0.8781260773539543
02f2 4804       |H   |		Short_Literal	0x4
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 01d6       |    |		Execute	Vector,Field_Write
02f5 5a1a       |Z   |		Indirect_Literal	Float,0x510,0.840896412730217
02f6 4805       |H   |		Short_Literal	0x5
02f7 00da       |    |		Load_Top	At_Offset_2
02f8 01d6       |    |		Execute	Vector,Field_Write
02f9 5a12       |Z   |		Indirect_Literal	Float,0x50c,0.8052451610565186
02fa 4806       |H   |		Short_Literal	0x6
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 01d6       |    |		Execute	Vector,Field_Write
02fd 5a0a       |Z   |		Indirect_Literal	Float,0x508,0.7711054086685181
02fe 4807       |H   |		Short_Literal	0x7
02ff 00da       |    |		Load_Top	At_Offset_2
0300 01d6       |    |		Execute	Vector,Field_Write
0301 5a02       |Z   |		Indirect_Literal	Float,0x504,0.7384130656719208
0302 4808       |H   |		Short_Literal	0x8
0303 00da       |    |		Load_Top	At_Offset_2
0304 01d6       |    |		Execute	Vector,Field_Write
0305 59fa       |Y   |		Indirect_Literal	Float,0x500,0.707106776535511
0306 4809       |H   |		Short_Literal	0x9
0307 00da       |    |		Load_Top	At_Offset_2
0308 01d6       |    |		Execute	Vector,Field_Write
0309 59f2       |Y   |		Indirect_Literal	Float,0x4fc,0.6771277710795403
030a 480a       |H   |		Short_Literal	0xa
030b 00da       |    |		Load_Top	At_Offset_2
030c 01d6       |    |		Execute	Vector,Field_Write
030d 59ea       |Y   |		Indirect_Literal	Float,0x4f8,0.6484197750687599
030e 480b       |H   |		Short_Literal	0xb
030f 00da       |    |		Load_Top	At_Offset_2
0310 01d6       |    |		Execute	Vector,Field_Write
0311 59e2       |Y   |		Indirect_Literal	Float,0x4f4,0.6209289059042931
0312 480c       |H   |		Short_Literal	0xc
0313 00da       |    |		Load_Top	At_Offset_2
0314 01d6       |    |		Execute	Vector,Field_Write
0315 59da       |Y   |		Indirect_Literal	Float,0x4f0,0.5946035534143448
0316 480d       |H   |		Short_Literal	0xd
0317 00da       |    |		Load_Top	At_Offset_2
0318 01d6       |    |		Execute	Vector,Field_Write
0319 59d2       |Y   |		Indirect_Literal	Float,0x4ec,0.5693943127989769
031a 480e       |H   |		Short_Literal	0xe
031b 00da       |    |		Load_Top	At_Offset_2
031c 01d6       |    |		Execute	Vector,Field_Write
031d 59ca       |Y   |		Indirect_Literal	Float,0x4e8,0.5452538654208183
031e 480f       |H   |		Short_Literal	0xf
031f 00da       |    |		Load_Top	At_Offset_2
0320 01d6       |    |		Execute	Vector,Field_Write
0321 59c2       |Y   |		Indirect_Literal	Float,0x4e4,0.522136889398098
0322 4810       |H   |		Short_Literal	0x10
0323 00da       |    |		Load_Top	At_Offset_2
0324 01d6       |    |		Execute	Vector,Field_Write
0325 59ba       |Y   |		Indirect_Literal	Float,0x4e0,0.5
0326 4811       |H   |		Short_Literal	0x11
0327 00da       |    |		Load_Top	At_Offset_2
0328 01d6       |    |		Execute	Vector,Field_Write
0329 00d9       |    |		Load_Top	At_Offset_1
032a 01d4       |    |		Execute	Vector,Structure_Write
032b 4801       |H   |		Short_Literal	0x1
032c 4808       |H   |		Short_Literal	0x8
032d 00e6       |    |		Load_Encached	Float_Cache
032e 02a0       |    |		Declare_Subprogram	Null_Subprogram
032f 4801       |H   |		Short_Literal	0x1
0330 035d       | ]  |		Declare_Type	Array,Defined
0331 00d8       |    |		Load_Top	At_Offset_0
0332 0337       | 7  |		Declare_Variable	Array
0333 00d8       |    |		Load_Top	At_Offset_0
0334 0335       | 5  |		Declare_Variable	Array,Duplicate
0335 00cd       |    |		Action	Spare6_Action
0336 59a5       |Y   |		Indirect_Literal	Float,0x4dc,4.922664223108181e-09
0337 4801       |H   |		Short_Literal	0x1
0338 00da       |    |		Load_Top	At_Offset_2
0339 01d6       |    |		Execute	Vector,Field_Write
033a 599d       |Y   |		Indirect_Literal	Float,0x4d8,2.8326954263705334e-09
033b 4802       |H   |		Short_Literal	0x2
033c 00da       |    |		Load_Top	At_Offset_2
033d 01d6       |    |		Execute	Vector,Field_Write
033e 5995       |Y   |		Indirect_Literal	Float,0x4d4,4.91810859940226e-09
033f 4803       |H   |		Short_Literal	0x3
0340 00da       |    |		Load_Top	At_Offset_2
0341 01d6       |    |		Execute	Vector,Field_Write
0342 598d       |Y   |		Indirect_Literal	Float,0x4d0,7.297828879326266e-09
0343 4804       |H   |		Short_Literal	0x4
0344 00da       |    |		Load_Top	At_Offset_2
0345 01d6       |    |		Execute	Vector,Field_Write
0346 5985       |Y   |		Indirect_Literal	Float,0x4cc,2.3889061114634604e-09
0347 4805       |H   |		Short_Literal	0x5
0348 00da       |    |		Load_Top	At_Offset_2
0349 01d6       |    |		Execute	Vector,Field_Write
034a 597d       |Y}  |		Indirect_Literal	Float,0x4c8,1.3244896399410434e-10
034b 4806       |H   |		Short_Literal	0x6
034c 00da       |    |		Load_Top	At_Offset_2
034d 01d6       |    |		Execute	Vector,Field_Write
034e 5975       |Yu  |		Indirect_Literal	Float,0x4c4,4.579368928658555e-09
034f 4807       |H   |		Short_Literal	0x7
0350 00da       |    |		Load_Top	At_Offset_2
0351 01d6       |    |		Execute	Vector,Field_Write
0352 596d       |Ym  |		Indirect_Literal	Float,0x4c0,1.8156089282176238e-09
0353 4808       |H   |		Short_Literal	0x8
0354 00da       |    |		Load_Top	At_Offset_2
0355 01d6       |    |		Execute	Vector,Field_Write
0356 00d9       |    |		Load_Top	At_Offset_1
0357 01d4       |    |		Execute	Vector,Structure_Write
0358 029f 058b  |    |		Declare_Subprogram	INIT_0588,For_Call
035a			BODY_02b0:
035a e5ff       |    |		Load	0x2,-0x1
035b e006       |    |		Load	0x0,0x6
035c 0242       | B  |		Execute	Float,Less_Equal
035d 6831       |h1  |		Jump_Zero	0x38f
035e e5ff       |    |		Load	0x2,-0x1
035f e006       |    |		Load	0x0,0x6
0360 0244       | D  |		Execute	Float,Less
0361 6811       |h   |		Jump_Zero	0x373
0362 e5fe       |    |		Load	0x2,-0x2
0363 e5ff       |    |		Load	0x2,-0x1
0364 023e       | >  |		Execute	Float,Absolute_Value
0365 8214       |    |		Call	0x1,0x14
0366 a409       |    |		Store_Unchecked	0x2,0x9
0367 4801       |H   |		Short_Literal	0x1
0368 e007       |    |		Load	0x0,0x7
0369 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
036a 0092 05b0  |    |		Action	Push_String_Extended,0x5b0					; "X**Y CALLED WITH X = "
036c e007       |    |		Load	0x0,0x7
036d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
036e 08e2       |    |		Execute_Immediate	Raise,0xe2
036f 05b1 e007  |    |		.XXX[0x4]
0371 184b 08e2  | K  |
0373 e5fe       |    |		Load	0x2,-0x2
0374 e006       |    |		Load	0x0,0x6
0375 0242       | B  |		Execute	Float,Less_Equal
0376 6815       |h   |		Jump_Zero	0x38c
0377 e5fe       |    |		Load	0x2,-0x2
0378 e006       |    |		Load	0x0,0x6
0379 0247       | G  |		Execute	Float,Equal
037a 6803       |h   |		Jump_Zero	0x37e
037b e006       |    |		Load	0x0,0x6
037c a409       |    |		Store_Unchecked	0x2,0x9
037d 7802       |x   |		Jump	0x380
037e e002       |    |		Load	0x0,0x2
037f a409       |    |		Store_Unchecked	0x2,0x9
0380 4801       |H   |		Short_Literal	0x1
0381 e007       |    |		Load	0x0,0x7
0382 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0383 0092 05b2  |    |		Action	Push_String_Extended,0x5b2					; "X**Y CALLED WITH X = 0, Y = "
0385 e007       |    |		Load	0x0,0x7
0386 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0387 08e2       |    |		Execute_Immediate	Raise,0xe2
0388 05b3 e007  |    |		.XXX[0x4]
038a 184b 08e2  | K  |
038c e006       |    |		Load	0x0,0x6
038d a409       |    |		Store_Unchecked	0x2,0x9
038e 7909       |y   |		Jump	0x498
038f e404       |    |		Load	0x2,0x4
0390 e402       |    |		Load	0x2,0x2
0391 e5ff       |    |		Load	0x2,-0x1
0392 8008       |    |		Call	0x0,0x8
0393 c402       |    |		Store	0x2,0x2
0394 c404       |    |		Store	0x2,0x4
0395 4801       |H   |		Short_Literal	0x1
0396 a405       |    |		Store_Unchecked	0x2,0x5
0397 e404       |    |		Load	0x2,0x4
0398 4809       |H   |		Short_Literal	0x9
0399 e418       |    |		Load	0x2,0x18
039a 01d7       |    |		Execute	Vector,Field_Read
039b 0242       | B  |		Execute	Float,Less_Equal
039c 6802       |h   |		Jump_Zero	0x39f
039d 4809       |H   |		Short_Literal	0x9
039e a405       |    |		Store_Unchecked	0x2,0x5
039f e404       |    |		Load	0x2,0x4
03a0 e405       |    |		Load	0x2,0x5
03a1 0a04       |    |		Execute_Immediate	Plus,0x4
03a2 e418       |    |		Load	0x2,0x18
03a3 01d7       |    |		Execute	Vector,Field_Read
03a4 0242       | B  |		Execute	Float,Less_Equal
03a5 6803       |h   |		Jump_Zero	0x3a9
03a6 e405       |    |		Load	0x2,0x5
03a7 0a04       |    |		Execute_Immediate	Plus,0x4
03a8 c405       |    |		Store	0x2,0x5
03a9 e404       |    |		Load	0x2,0x4
03aa e405       |    |		Load	0x2,0x5
03ab 0a02       |    |		Execute_Immediate	Plus,0x2
03ac e418       |    |		Load	0x2,0x18
03ad 01d7       |    |		Execute	Vector,Field_Read
03ae 0242       | B  |		Execute	Float,Less_Equal
03af 6803       |h   |		Jump_Zero	0x3b3
03b0 e405       |    |		Load	0x2,0x5
03b1 0a02       |    |		Execute_Immediate	Plus,0x2
03b2 c405       |    |		Store	0x2,0x5
03b3 e404       |    |		Load	0x2,0x4
03b4 e405       |    |		Load	0x2,0x5
03b5 0a01       |    |		Execute_Immediate	Plus,0x1
03b6 e418       |    |		Load	0x2,0x18
03b7 01d7       |    |		Execute	Vector,Field_Read
03b8 023c       | <  |		Execute	Float,Minus
03b9 e405       |    |		Load	0x2,0x5
03ba 0a01       |    |		Execute_Immediate	Plus,0x1
03bb 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
03bc 00db       |    |		Load_Top	At_Offset_3
03bd 01d7       |    |		Execute	Vector,Field_Read
03be 023c       | <  |		Execute	Float,Minus
03bf e404       |    |		Load	0x2,0x4
03c0 e405       |    |		Load	0x2,0x5
03c1 0a01       |    |		Execute_Immediate	Plus,0x1
03c2 e418       |    |		Load	0x2,0x18
03c3 01d7       |    |		Execute	Vector,Field_Read
03c4 023d       | =  |		Execute	Float,Plus
03c5 023a       | :  |		Execute	Float,Divide
03c6 a40a       |    |		Store_Unchecked	0x2,0xa
03c7 e40a       |    |		Load	0x2,0xa
03c8 00d8       |    |		Load_Top	At_Offset_0
03c9 023d       | =  |		Execute	Float,Plus
03ca a40a       |    |		Store_Unchecked	0x2,0xa
03cb e40a       |    |		Load	0x2,0xa
03cc 00d8       |    |		Load_Top	At_Offset_0
03cd 023b       | ;  |		Execute	Float,Times
03ce a40b       |    |		Store_Unchecked	0x2,0xb
03cf 58ec       |X   |		Indirect_Literal	Float,0x4bc,0.0125064850052
03d0 e40b       |    |		Load	0x2,0xb
03d1 023b       | ;  |		Execute	Float,Times
03d2 58e5       |X   |		Indirect_Literal	Float,0x4b8,0.08333332862449999
03d3 023d       | =  |		Execute	Float,Plus
03d4 e40b       |    |		Load	0x2,0xb
03d5 023b       | ;  |		Execute	Float,Times
03d6 e40a       |    |		Load	0x2,0xa
03d7 023b       | ;  |		Execute	Float,Times
03d8 a40c       |    |		Store_Unchecked	0x2,0xc
03d9 e40c       |    |		Load	0x2,0xc
03da 58d9       |X   |		Indirect_Literal	Float,0x4b4,0.4426950408889634
03db e40c       |    |		Load	0x2,0xc
03dc 023b       | ;  |		Execute	Float,Times
03dd 023d       | =  |		Execute	Float,Plus
03de a40c       |    |		Store_Unchecked	0x2,0xc
03df e40c       |    |		Load	0x2,0xc
03e0 e40a       |    |		Load	0x2,0xa
03e1 58d2       |X   |		Indirect_Literal	Float,0x4b4,0.4426950408889634
03e2 023b       | ;  |		Execute	Float,Times
03e3 023d       | =  |		Execute	Float,Plus
03e4 e40a       |    |		Load	0x2,0xa
03e5 023d       | =  |		Execute	Float,Plus
03e6 a40e       |    |		Store_Unchecked	0x2,0xe
03e7 e402       |    |		Load	0x2,0x2
03e8 0904       |    |		Execute_Immediate	Binary_Scale,0x4
03e9 e405       |    |		Load	0x2,0x5
03ea 0272       | r  |		Execute	Discrete,Minus
03eb 0237       | 7  |		Execute	Float,Convert_From_Discrete
03ec 58c3       |X   |		Indirect_Literal	Float,0x4b0,0.0625
03ed 023b       | ;  |		Execute	Float,Times
03ee a40d       |    |		Store_Unchecked	0x2,0xd
03ef e5fe       |    |		Load	0x2,-0x2
03f0 841b       |    |		Call	0x2,0x1b
03f1 a413       |    |		Store_Unchecked	0x2,0x13
03f2 e5fe       |    |		Load	0x2,-0x2
03f3 e413       |    |		Load	0x2,0x13
03f4 023c       | <  |		Execute	Float,Minus
03f5 a414       |    |		Store_Unchecked	0x2,0x14
03f6 e40e       |    |		Load	0x2,0xe
03f7 e5fe       |    |		Load	0x2,-0x2
03f8 023b       | ;  |		Execute	Float,Times
03f9 e40d       |    |		Load	0x2,0xd
03fa e414       |    |		Load	0x2,0x14
03fb 023b       | ;  |		Execute	Float,Times
03fc 023d       | =  |		Execute	Float,Plus
03fd a40f       |    |		Store_Unchecked	0x2,0xf
03fe e40f       |    |		Load	0x2,0xf
03ff 841b       |    |		Call	0x2,0x1b
0400 a410       |    |		Store_Unchecked	0x2,0x10
0401 e40f       |    |		Load	0x2,0xf
0402 e410       |    |		Load	0x2,0x10
0403 023c       | <  |		Execute	Float,Minus
0404 a411       |    |		Store_Unchecked	0x2,0x11
0405 e410       |    |		Load	0x2,0x10
0406 e40d       |    |		Load	0x2,0xd
0407 e413       |    |		Load	0x2,0x13
0408 023b       | ;  |		Execute	Float,Times
0409 023d       | =  |		Execute	Float,Plus
040a a40f       |    |		Store_Unchecked	0x2,0xf
040b e40f       |    |		Load	0x2,0xf
040c 841b       |    |		Call	0x2,0x1b
040d a410       |    |		Store_Unchecked	0x2,0x10
040e e411       |    |		Load	0x2,0x11
040f e40f       |    |		Load	0x2,0xf
0410 e410       |    |		Load	0x2,0x10
0411 023c       | <  |		Execute	Float,Minus
0412 023d       | =  |		Execute	Float,Plus
0413 a411       |    |		Store_Unchecked	0x2,0x11
0414 e411       |    |		Load	0x2,0x11
0415 841b       |    |		Call	0x2,0x1b
0416 a412       |    |		Store_Unchecked	0x2,0x12
0417 590c       |Y   |		Indirect_Literal	Float,0x524,16.0
0418 e410       |    |		Load	0x2,0x10
0419 e412       |    |		Load	0x2,0x12
041a 023d       | =  |		Execute	Float,Plus
041b 023b       | ;  |		Execute	Float,Times
041c 800d       |    |		Call	0x0,0xd
041d 0235       | 5  |		Execute	Float,Round_To_Discrete
041e 00e2       |    |		Load_Encached	Integer_Cache
041f 025e       | ^  |		Execute	Discrete,Convert
0420 a407       |    |		Store_Unchecked	0x2,0x7
0421 e411       |    |		Load	0x2,0x11
0422 e412       |    |		Load	0x2,0x12
0423 023c       | <  |		Execute	Float,Minus
0424 a411       |    |		Store_Unchecked	0x2,0x11
0425 e40f       |    |		Load	0x2,0xf
0426 e415       |    |		Load	0x2,0x15
0427 0237       | 7  |		Execute	Float,Convert_From_Discrete
0428 0245       | E  |		Execute	Float,Greater
0429 680f       |h   |		Jump_Zero	0x439
042a e002       |    |		Load	0x0,0x2
042b a409       |    |		Store_Unchecked	0x2,0x9
042c 0092 05b4  |    |		Action	Push_String_Extended,0x5b4					; "X**Y CALLED  X ="
042e e007       |    |		Load	0x0,0x7
042f 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0430 08e2       |    |		Execute_Immediate	Raise,0xe2
0431 05b5 e007  |    |		.XXX[0x8]
0433 184b 08e2  | K  |
0435 05b6 e007  |    |
0437 184b 08e2  | K  |
0439 e40f       |    |		Load	0x2,0xf
043a e416       |    |		Load	0x2,0x16
043b 0237       | 7  |		Execute	Float,Convert_From_Discrete
043c 0244       | D  |		Execute	Float,Less
043d 680f       |h   |		Jump_Zero	0x44d
043e e006       |    |		Load	0x0,0x6
043f a409       |    |		Store_Unchecked	0x2,0x9
0440 0092 05b4  |    |		Action	Push_String_Extended,0x5b4					; "X**Y CALLED  X ="
0442 e007       |    |		Load	0x0,0x7
0443 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0444 08e2       |    |		Execute_Immediate	Raise,0xe2
0445 05b5 e007  |    |		.XXX[0x8]
0447 184b 08e2  | K  |
0449 05b7 e007  |    |
044b 184b 08e2  | K  |
044d e411       |    |		Load	0x2,0x11
044e e006       |    |		Load	0x0,0x6
044f 0245       | E  |		Execute	Float,Greater
0450 6807       |h   |		Jump_Zero	0x458
0451 e411       |    |		Load	0x2,0x11
0452 585d       |X]  |		Indirect_Literal	Float,0x4b0,0.0625
0453 023c       | <  |		Execute	Float,Minus
0454 a411       |    |		Store_Unchecked	0x2,0x11
0455 e407       |    |		Load	0x2,0x7
0456 0a01       |    |		Execute_Immediate	Plus,0x1
0457 c407       |    |		Store	0x2,0x7
0458 e407       |    |		Load	0x2,0x7
0459 e006       |    |		Load	0x0,0x6
045a 0235       | 5  |		Execute	Float,Round_To_Discrete
045b 00e2       |    |		Load_Encached	Integer_Cache
045c 025e       | ^  |		Execute	Discrete,Convert
045d 027c       | |  |		Execute	Discrete,Less
045e 6803       |h   |		Jump_Zero	0x462
045f 4800       |H   |		Short_Literal	0x0
0460 a408       |    |		Store_Unchecked	0x2,0x8
0461 7802       |x   |		Jump	0x464
0462 4801       |H   |		Short_Literal	0x1
0463 a408       |    |		Store_Unchecked	0x2,0x8
0464 e408       |    |		Load	0x2,0x8
0465 e407       |    |		Load	0x2,0x7
0466 09fc       |    |		Execute_Immediate	Binary_Scale,-0x4
0467 0273       | s  |		Execute	Discrete,Plus
0468 00d8       |    |		Load_Top	At_Offset_0
0469 00e2       |    |		Load_Encached	Integer_Cache
046a 0260       | `  |		Execute	Discrete,In_Type
046b 7001       |p   |		Jump_Nonzero	0x46d
046c 0801       |    |		Execute_Immediate	Raise,0x1
046d a402       |    |		Store_Unchecked	0x2,0x2
046e e402       |    |		Load	0x2,0x2
046f 0904       |    |		Execute_Immediate	Binary_Scale,0x4
0470 e407       |    |		Load	0x2,0x7
0471 0272       | r  |		Execute	Discrete,Minus
0472 c405       |    |		Store	0x2,0x5
0473 5838       |X8  |		Indirect_Literal	Float,0x4ac,0.0013052551594280998
0474 e411       |    |		Load	0x2,0x11
0475 023b       | ;  |		Execute	Float,Times
0476 5831       |X1  |		Indirect_Literal	Float,0x4a8,0.00961620659583789
0477 023d       | =  |		Execute	Float,Plus
0478 e411       |    |		Load	0x2,0x11
0479 023b       | ;  |		Execute	Float,Times
047a 5829       |X)  |		Indirect_Literal	Float,0x4a4,0.055504048813076495
047b 023d       | =  |		Execute	Float,Plus
047c e411       |    |		Load	0x2,0x11
047d 023b       | ;  |		Execute	Float,Times
047e 5821       |X!  |		Indirect_Literal	Float,0x4a0,0.24022650614470997
047f 023d       | =  |		Execute	Float,Plus
0480 e411       |    |		Load	0x2,0x11
0481 023b       | ;  |		Execute	Float,Times
0482 5819       |X   |		Indirect_Literal	Float,0x49c,0.693147180556341
0483 023d       | =  |		Execute	Float,Plus
0484 e411       |    |		Load	0x2,0x11
0485 023b       | ;  |		Execute	Float,Times
0486 a40a       |    |		Store_Unchecked	0x2,0xa
0487 e405       |    |		Load	0x2,0x5
0488 0a01       |    |		Execute_Immediate	Plus,0x1
0489 e418       |    |		Load	0x2,0x18
048a 01d7       |    |		Execute	Vector,Field_Read
048b e405       |    |		Load	0x2,0x5
048c 0a01       |    |		Execute_Immediate	Plus,0x1
048d e418       |    |		Load	0x2,0x18
048e 01d7       |    |		Execute	Vector,Field_Read
048f e40a       |    |		Load	0x2,0xa
0490 023b       | ;  |		Execute	Float,Times
0491 023d       | =  |		Execute	Float,Plus
0492 a40a       |    |		Store_Unchecked	0x2,0xa
0493 e409       |    |		Load	0x2,0x9
0494 e40a       |    |		Load	0x2,0xa
0495 e402       |    |		Load	0x2,0x2
0496 8009       |    |		Call	0x0,0x9
0497 c409       |    |		Store	0x2,0x9
0498 e409       |    |		Load	0x2,0x9
0499 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
049a 0000 0000  |    |		.XXX[0x2]
049c 3fe6 2e42  |? .B|		.DBL	0.693147180556341
049e fef9 bb1e  |    |
04a0 3fce bfbd  |?   |		.DBL	0.24022650614470997
04a2 fdc3 0e40  |   @|
04a4 3fac 6b06  |? k |		.DBL	0.055504048813076495
04a6 d4e5 3fa4  |  ? |
04a8 3f83 b1a9  |?   |		.DBL	0.00961620659583789
04aa 66b9 c29d  |f   |
04ac 3f55 62a3  |?Ub |		.DBL	0.0013052551594280998
04ae 0e40 5f3b  | @_;|
04b0 3fb0 0000  |?   |		.DBL	0.0625
04b2 0000 0000  |    |
04b4 3fdc 551d  |? U |		.DBL	0.4426950408889634
04b6 94ae 0bf8  |    |
04b8 3fb5 5555  |? UU|		.DBL	0.08333332862449999
04ba 411b ea94  |A   |
04bc 3f89 9d00  |?   |		.DBL	0.0125064850052
04be 00ae 96b5  |    |
04c0 3e1f 3121  |> 1!|		.DBL	1.8156089282176238e-09
04c2 ec53 1725  | S %|
04c4 3e33 ab11  |>3  |		.DBL	4.579368928658555e-09
04c6 c336 0fd6  | 6  |
04c8 3de2 3422  |= 4"|		.DBL	1.3244896399410434e-10
04ca 35b4 1223  |5  #|
04cc 3e24 8542  |>$ B|		.DBL	2.3889061114634604e-09
04ce 958c 9301  |    |
04d0 3e3f 580c  |>?X |		.DBL	7.297828879326266e-09
04d2 36be a881  |6   |
04d4 3e35 1f84  |>5  |		.DBL	4.91810859940226e-09
04d6 80e3 e235  |   5|
04d8 3e28 5529  |>(U)|		.DBL	2.8326954263705334e-09
04da c222 0cb1  | "  |
04dc 3e35 2486  |>5$ |		.DBL	4.922664223108181e-09
04de cc2c 7b9d  | ,{ |
04e0 3fe0 0000  |?   |		.DBL	0.5
04e2 0000 0000  |    |
04e4 3fe0 b558  |?  X|		.DBL	0.522136889398098
04e6 6c00 0000  |l   |
04e8 3fe1 72b8  |? r |		.DBL	0.5452538654208183
04ea 3c00 0000  |<   |
04ec 3fe2 387a  |? 8z|		.DBL	0.5693943127989769
04ee 6c00 0000  |l   |
04f0 3fe3 06fe  |?   |		.DBL	0.5946035534143448
04f2 0800 0000  |    |
04f4 3fe3 dea6  |?   |		.DBL	0.6209289059042931
04f6 4c00 0000  |L   |
04f8 3fe4 bfda  |?   |		.DBL	0.6484197750687599
04fa d400 0000  |    |
04fc 3fe5 ab07  |?   |		.DBL	0.6771277710795403
04fe dc00 0000  |    |
0500 3fe6 a09e  |?   |		.DBL	0.707106776535511
0502 6400 0000  |d   |
0504 3fe7 a114  |?   |		.DBL	0.7384130656719208
0506 7000 0000  |p   |
0508 3fe8 ace5  |?   |		.DBL	0.7711054086685181
050a 4000 0000  |@   |
050c 3fe9 c491  |?   |		.DBL	0.8052451610565186
050e 8000 0000  |    |
0510 3fea e89f  |?   |		.DBL	0.840896412730217
0512 9800 0000  |    |
0514 3fec 199b  |?   |		.DBL	0.8781260773539543
0516 dc00 0000  |    |
0518 3fed 5818  |? X |		.DBL	0.9170040413737297
051a dc00 0000  |    |
051c 3fee a4af  |?   |		.DBL	0.9576032757759094
051e a000 0000  |    |
0520 3ff0 0000  |?   |		.DBL	1.0
0522 0000 0000  |    |
0524 4030 0000  |@0  |		.DBL	16.0
0526 0000 0000  |    |
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b       | +  |		.CONST	0x052b								; Address of begin
0529 0004       |    |		.CONST	0x0004								; Address of exception handler
052a 0001       |    |		.CONST	0x0001								; Number of locals
052b			BODY_0528:
052b			INIT_0528:
052b 00da       |    |		Load_Top	At_Offset_2
052c 00db       |    |		Load_Top	At_Offset_3
052d e7ff       |    |		Load	0x3,-0x1
052e 00d8       |    |		Load_Top	At_Offset_0
052f 023b       | ;  |		Execute	Float,Times
0530 581b       |X   |		Indirect_Literal	Float,0x54c,0.0136009546862
0531 5816       |X   |		Indirect_Literal	Float,0x548,0.048628527658699995
0532 5811       |X   |		Indirect_Literal	Float,0x544,0.6973592187802999
0533 580c       |X   |		Indirect_Literal	Float,0x540,-0.125
0534 e7ff       |    |		Load	0x3,-0x1
0535 00d8       |    |		Load_Top	At_Offset_0
0536 023b       | ;  |		Execute	Float,Times
0537 023b       | ;  |		Execute	Float,Times
0538 023d       | =  |		Execute	Float,Plus
0539 023a       | :  |		Execute	Float,Divide
053a 023d       | =  |		Execute	Float,Plus
053b 023b       | ;  |		Execute	Float,Times
053c 023b       | ;  |		Execute	Float,Times
053d 023d       | =  |		Execute	Float,Plus
053e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
053f 0000       |    |		.XXX[0x1]
0540 bfc0 0000  |    |		.DBL	-0.125
0542 0000 0000  |    |
0544 3fe6 50c4  |? P |		.DBL	0.6973592187802999
0546 47c7 3746  |G 7F|
0548 3fa8 e5d6  |?   |		.DBL	0.048628527658699995
054a 9fe4 bc25  |   %|
054c 3f8b dad1  |?   |		.DBL	0.0136009546862
054e 3c92 a6a9  |<   |
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0556       | V  |		.CONST	0x0556								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0004       |    |		.CONST	0x0004								; Number of locals
0553			INIT_0550:
0553 00e6       |    |		Load_Encached	Float_Cache
0554 03d8       |    |		Declare_Variable	Float,Duplicate
0555 03d8       |    |		Declare_Variable	Float,Duplicate
0556			BODY_0550:
0556 e7ff       |    |		Load	0x3,-0x1
0557 00d8       |    |		Load_Top	At_Offset_0
0558 023b       | ;  |		Execute	Float,Times
0559 0043       | C  |		Store_Top_Uncheched	Float,At_Offset_3
055a 5829       |X)  |		Indirect_Literal	Float,0x584,0.0059504254977599995
055b 00db       |    |		Load_Top	At_Offset_3
055c 023b       | ;  |		Execute	Float,Times
055d 5822       |X"  |		Indirect_Literal	Float,0x580,0.24999999999991998
055e 023d       | =  |		Execute	Float,Plus
055f e7ff       |    |		Load	0x3,-0x1
0560 023b       | ;  |		Execute	Float,Times
0561 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
0562 5819       |X   |		Indirect_Literal	Float,0x57c,0.00029729363681999996
0563 00db       |    |		Load_Top	At_Offset_3
0564 023b       | ;  |		Execute	Float,Times
0565 5812       |X   |		Indirect_Literal	Float,0x578,0.05356751764522
0566 023d       | =  |		Execute	Float,Plus
0567 00db       |    |		Load_Top	At_Offset_3
0568 023b       | ;  |		Execute	Float,Times
0569 580a       |X   |		Indirect_Literal	Float,0x574,0.5
056a 023d       | =  |		Execute	Float,Plus
056b 0041       | A  |		Store_Top_Unchecked	Float,At_Offset_1
056c 5807       |X   |		Indirect_Literal	Float,0x574,0.5
056d 00da       |    |		Load_Top	At_Offset_2
056e 00da       |    |		Load_Top	At_Offset_2
056f e603       |    |		Load	0x3,0x3
0570 023c       | <  |		Execute	Float,Minus
0571 023a       | :  |		Execute	Float,Divide
0572 023d       | =  |		Execute	Float,Plus
0573 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0574 3fe0 0000  |?   |		.DBL	0.5
0576 0000 0000  |    |
0578 3fab 6d33  |? m3|		.DBL	0.05356751764522
057a a0d4 07e8  |    |
057c 3f33 7bc2  |?3{ |		.DBL	0.00029729363681999996
057e 728c 22be  |r " |
0580 3fcf ffff  |?   |		.DBL	0.24999999999991998
0582 ffff f4bd  |    |
0584 3f78 5f79  |?x_y|		.DBL	0.0059504254977599995
0586 2e90 07d5  |.   |
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b       |    |		.CONST	0x058b								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0001       |    |		.CONST	0x0001								; Number of locals
058b			BODY_0588:
058b			INIT_0588:
058b 5810       |X   |		Indirect_Literal	Float,0x59c,16.0
058c 00db       |    |		Load_Top	At_Offset_3
058d 023b       | ;  |		Execute	Float,Times
058e 0235       | 5  |		Execute	Float,Round_To_Discrete
058f 00e2       |    |		Load_Encached	Integer_Cache
0590 025e       | ^  |		Execute	Discrete,Convert
0591 0237       | 7  |		Execute	Float,Convert_From_Discrete
0592 5805       |X   |		Indirect_Literal	Float,0x598,0.0625
0593 023b       | ;  |		Execute	Float,Times
0594 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0595 0000 0000  |    |		.XXX[0x3]
0597 0000       |    |
0598 3fb0 0000  |?   |		.DBL	0.0625
059a 0000 0000  |    |
059c 4030 0000  |@0  |		.DBL	16.0
059e 0000 0000  |    |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; STRING TABLE
05a0 ; --------------------------------------------------------------------------------------
05a0 0032       | 2  |		.STRTAB	0x0032->0x05b9							; "CALLED SQRT FOR NEGATIVE ARGUMENT   "
05a1 0054       | T  |		.STRTAB	0x0054->0x05cb							; "   USED ABSOLUTE VALUE"
05a2 0068       | h  |		.STRTAB	0x0068->0x05d6							; " EXCEPTION IN SQRT, X = "
05a3 007e       | ~  |		.STRTAB	0x007e->0x05e2							; "  RETURNED 1.0"
05a4 008a       |    |		.STRTAB	0x008a->0x05e9							; "EXCEPTION IN CBRT, X = "
05a5 009f       |    |		.STRTAB	0x009f->0x05f4							; "  RETURNED  "
05a6 00a9       |    |		.STRTAB	0x00a9->0x05fa							; "CALLED LOG FOR NEGATIVE "
05a7 00bf       |    |		.STRTAB	0x00bf->0x0606							; "   USE ABS => "
05a8 00cb       |    |		.STRTAB	0x00cb->0x060d							; "CALLED LOG FOR ZERO ARGUMENT, RETURNED "
05a9 00f0       |    |		.STRTAB	0x00f0->0x0621							; " EXCEPTION IN LOG, X = "
05aa 0105       |    |		.STRTAB	0x0105->0x062c							; "  RETURNED 0.0"
05ab 0111       |    |		.STRTAB	0x0111->0x0633							; "  EXP CALLED WITH TOO BIG A POSITIVE ARGUMENT, "
05ac 013e       | >  |		.STRTAB	0x013e->0x064b							; "   RETURNED XMAX"
05ad 014c       | L  |		.STRTAB	0x014c->0x0653							; "  EXP CALLED WITH TOO BIG A NEGATIVE ARGUMENT,  "
05ae 017a       | z  |		.STRTAB	0x017a->0x066b							; "    RETURNED ZERO"
05af 0189       |    |		.STRTAB	0x0189->0x0673							; " EXCEPTION IN EXP, X = "
05b0 019e       |    |		.STRTAB	0x019e->0x067f							; "X**Y CALLED WITH X = "
05b1 01b1       |    |		.STRTAB	0x01b1->0x0689							; "USED ABS, RETURNED "
05b2 01c2       |    |		.STRTAB	0x01c2->0x0693							; "X**Y CALLED WITH X = 0, Y = "
05b3 01dc       |    |		.STRTAB	0x01dc->0x06a1							; "RETURNED "
05b4 01e3       |    |		.STRTAB	0x01e3->0x06a5							; "X**Y CALLED  X ="
05b5 01f1       |    |		.STRTAB	0x01f1->0x06ad							; "   Y ="
05b6 01f5       |    |		.STRTAB	0x01f5->0x06b0							; "   TOO LARGE  RETURNED "
05b7 020a       |    |		.STRTAB	0x020a->0x06bc							; "   TOO SMALL  RETURNED "
05b8 021f       |    |		.STREND 0x021f->0x06c7
05b9 4341 4c4c  |CALL|		.STRTAB_STRINGS
06c8 ; --------------------------------------------------------------------------------------
06c8 ; Debug Table
06c8 ; --------------------------------------------------------------------------------------
06c8 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x97c8,0x0000,0x0001,0x000b
06ce 000b 06fa  |    |		.DBG4T	0x000b,0x06fa,0x8000,0x0000
06d2 001c 0704  |    |		.DBG4T	0x001c,0x0704,0x8000,0x0000
06d6 003b 070e  | ;  |		.DBG4T	0x003b,0x070e,0x0002,0x4000
06da 00d3 0750  |   P|		.DBG4T	0x00d3,0x0750,0x0002,0x4000
06de 0173 078d  | s  |		.DBG4T	0x0173,0x078d,0x0002,0xc000
06e2 0213 07db  |    |		.DBG4T	0x0213,0x07db,0x0002,0x0000
06e6 0223 07df  | #  |		.DBG4T	0x0223,0x07df,0x0002,0xc000
06ea 02b3 0829  |   )|		.DBG4T	0x02b3,0x0829,0x0002,0xc000
06ee 052b 08c1  | +  |		.DBG4T	0x052b,0x08c1,0x0002,0x0000
06f2 0553 08c4  | S  |		.DBG4T	0x0553,0x08c4,0x0002,0x0000
06f6 058b 08cb  |    |		.DBG4T	0x058b,0x08cb,0x0002,0x0000
06fa ; --------------------------------------------------------------------------------------
06fa ; Debug chain
06fa ; --------------------------------------------------------------------------------------
06fa 0008 0000  |    |		.DBGLEN	0x0008,0x0000
06fc 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019
0704 ; --------------------------------------------------------------------------------------
0704 ; Debug chain
0704 ; --------------------------------------------------------------------------------------
0704 0006 0002  |    |		.DBGLEN	0x0006,0x0002
0706 001c 001e  |    |		.DBGLNO	0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002f
070e ; --------------------------------------------------------------------------------------
070e ; Debug chain
070e ; --------------------------------------------------------------------------------------
070e 0008 001c  |    |		.DBGLEN	0x0008,0x001c
0710 003b 003d  | ; =|		.DBGLNO	0x003b,0x003d,0x003f,0x0040,0x0044,0x0046,0x0049,0x004c,0x004f,0x0053,0x0055,0x0057,0x005b,0x005d,0x005f,0x0063,0x0066,0x006a,0x006e,0x0071,0x0075,0x0077,0x007d,0x0084,0x0088,0x0095,0x0099,0x009d,0x00a0,0x00a3,0x00a8,0x00ab,0x00ae,0x00b2,0x00b6,0x00b9
0734 0001 0002  |    |		.XXX[0x1c]
0736 0003 0004  |    |
0738 0005 0006  |    |
073a 0007 0008  |    |
073c 0009 000a  |    |
073e 000c 000d  |    |
0740 000e 000f  |    |
0742 0010 0011  |    |
0744 0012 0013  |    |
0746 0014 0015  |    |
0748 0016 0017  |    |
074a 0018 0019  |    |
074c 001a 001b  |    |
074e 001d 001e  |    |
0750 ; --------------------------------------------------------------------------------------
0750 ; Debug chain
0750 ; --------------------------------------------------------------------------------------
0750 0009 0019  |    |		.DBGLEN	0x0009,0x0019
0752 00d3 00d5  |    |		.DBGLNO	0x00d3,0x00d5,0x00d7,0x00d8,0x00dc,0x00de,0x00e1,0x00e4,0x00e7,0x00ea,0x00ee,0x00f0,0x00f2,0x00f8,0x00fb,0x0102,0x0106,0x0117,0x0120,0x0124,0x0128,0x012c,0x012f,0x0133,0x0137,0x013a,0x013f,0x0142,0x0144,0x0148,0x014b,0x014e,0x0152,0x0156
0774 0001 0002  |    |		.XXX[0x19]
0776 0003 0004  |    |
0778 0005 0006  |    |
077a 0007 0008  |    |
077c 0009 000b  |    |
077e 000c 000d  |    |
0780 000e 0010  |    |
0782 0011 0012  |    |
0784 0013 0014  |    |
0786 0015 0016  |    |
0788 0017 0018  |    |
078a 0019 001a  |    |
078c 001c       |    |
078d ; --------------------------------------------------------------------------------------
078d ; Debug chain
078d ; --------------------------------------------------------------------------------------
078d 0007 001f  |    |		.DBGLEN	0x0007,0x001f
078f 0173 0174  | s t|		.DBGLNO	0x0173,0x0174,0x0175,0x0176,0x0177,0x0178,0x017b,0x017d,0x0181,0x0184,0x0188,0x018c,0x0190,0x0191,0x0195,0x0198,0x019c,0x019f,0x01a0,0x01a6,0x01aa,0x01ad,0x01b3,0x01b7,0x01bb,0x01bf,0x01c4,0x01c7,0x01cb,0x01cf,0x01d1,0x01d4,0x01de,0x01e1,0x01e4,0x01e8,0x01ec,0x01ef
07b5 0001 0002  |    |		.XXX[0x26]
07b7 0003 0004  |    |
07b9 0005 0006  |    |
07bb 000a 0001  |    |
07bd 0002 0003  |    |
07bf 0004 0006  |    |
07c1 0007 0009  |    |
07c3 000a 000b  |    |
07c5 000c 000d  |    |
07c7 000f 0010  |    |
07c9 0011 0012  |    |
07cb 0013 0014  |    |
07cd 0015 0016  |    |
07cf 0017 0018  |    |
07d1 0019 001a  |    |
07d3 001b 001c  |    |
07d5 001d 001e  |    |
07d7 001f 0020  |    |
07d9 0022 0023  | " #|
07db ; --------------------------------------------------------------------------------------
07db ; Debug chain
07db ; --------------------------------------------------------------------------------------
07db 0001 0001  |    |		.DBGLEN	0x0001,0x0001
07dd 0213 0215  |    |		.DBGLNO	0x0213,0x0215
07df ; --------------------------------------------------------------------------------------
07df ; Debug chain
07df ; --------------------------------------------------------------------------------------
07df 0007 001d  |    |		.DBGLEN	0x0007,0x001d
07e1 0223 0224  | # $|		.DBGLNO	0x0223,0x0224,0x0225,0x0229,0x022b,0x022d,0x022f,0x0231,0x0235,0x0238,0x023c,0x0240,0x0243,0x0246,0x024a,0x024d,0x0251,0x0255,0x0258,0x025b,0x0260,0x0263,0x026a,0x026d,0x0270,0x0274,0x0280,0x0282,0x0285,0x0288,0x028d,0x0290,0x0293,0x0297,0x029b,0x029e
0805 0001 0002  |    |		.XXX[0x24]
0807 0003 0004  |    |
0809 0005 0006  |    |
080b 000a 0001  |    |
080d 0002 0003  |    |
080f 0004 0006  |    |
0811 0007 0008  |    |
0813 0009 000a  |    |
0815 000b 000d  |    |
0817 000e 000f  |    |
0819 0010 0011  |    |
081b 0012 0013  |    |
081d 0014 0015  |    |
081f 0016 0017  |    |
0821 0018 0019  |    |
0823 001a 001b  |    |
0825 001c 001d  |    |
0827 001f 0020  |    |
0829 ; --------------------------------------------------------------------------------------
0829 ; Debug chain
0829 ; --------------------------------------------------------------------------------------
0829 0009 0042  |   B|		.DBGLEN	0x0009,0x0042
082b 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02b6,0x02ba,0x02c6,0x02d0,0x02da,0x032b,0x0358,0x035a,0x035e,0x0362,0x0367,0x036a,0x036e,0x0372,0x0373,0x0377,0x037b,0x037e,0x0380,0x0383,0x0387,0x038b,0x038c,0x038f,0x0395,0x0397,0x039d,0x039f,0x03a6,0x03a9,0x03b0,0x03b3,0x03c7,0x03cb,0x03cf,0x03d9,0x03df,0x03e7,0x03ef,0x03f2,0x03f6,0x03fe,0x0401,0x0405,0x040b,0x040e,0x0414,0x0417,0x0421,0x0425,0x042a,0x042c,0x0430,0x0434,0x0438,0x0439,0x043e,0x0440,0x0444,0x0448,0x044c,0x044d,0x0451,0x0455,0x0458,0x045f,0x0462,0x0464,0x046e,0x0473,0x0487,0x0493,0x0498
0876 0001 0002  |    |		.XXX[0x4b]
0878 0003 0004  |    |
087a 0006 0007  |    |
087c 000f 0010  |    |
087e 0011 0001  |    |
0880 0002 0003  |    |
0882 0004 0005  |    |
0884 0006 0009  |    |
0886 000b 000c  |    |
0888 000d 000e  |    |
088a 000f 0010  |    |
088c 0011 0014  |    |
088e 0016 0017  |    |
0890 0018 0019  |    |
0892 001a 001b  |    |
0894 001c 001d  |    |
0896 001e 001f  |    |
0898 0020 0021  |   !|
089a 0022 0023  | " #|
089c 0024 0025  | $ %|
089e 0026 0027  | & '|
08a0 0028 0029  | ( )|
08a2 002a 002b  | * +|
08a4 002c 002d  | , -|
08a6 002e 002f  | . /|
08a8 0030 0031  | 0 1|
08aa 0032 0033  | 2 3|
08ac 0034 0036  | 4 6|
08ae 0038 003a  | 8 :|
08b0 003b 003c  | ; <|
08b2 003d 003f  | = ?|
08b4 0041 0043  | A C|
08b6 0044 0045  | D E|
08b8 0046 0047  | F G|
08ba 0048 0049  | H I|
08bc 004a 004b  | J K|
08be 004c 004d  | L M|
08c0 004e       | N  |
08c1 ; --------------------------------------------------------------------------------------
08c1 ; Debug chain
08c1 ; --------------------------------------------------------------------------------------
08c1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
08c3 052b       | +  |		.DBGLNO	0x052b
08c4 ; --------------------------------------------------------------------------------------
08c4 ; Debug chain
08c4 ; --------------------------------------------------------------------------------------
08c4 0001 0004  |    |		.DBGLEN	0x0001,0x0004
08c6 0553 0556  | S V|		.DBGLNO	0x0553,0x0556,0x055a,0x0562,0x056c
08cb ; --------------------------------------------------------------------------------------
08cb ; Debug chain
08cb ; --------------------------------------------------------------------------------------
08cb 0000 0001  |    |		.DBGLEN	0x0000,0x0001
08cd 058b       |    |		.DBGLNO	0x058b
08ce 0000 0000  |    |		.BLANK	0000[0x132]