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

⟦15c49355e⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02a0       |    |		.CONST	0x02a0								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001a       |    |		.CONST	0x001a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000a       |    |		.CONST	0x000a								; Number of locals
000b			INIT_0008:
000b e20e       |    |		Load	0x1,0xe
000c 03d8       |    |		Declare_Variable	Float,Duplicate
000d 03d8       |    |		Declare_Variable	Float,Duplicate
000e 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0010 029f 008b  |    |		Declare_Subprogram	INIT_0088,For_Call
0012 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
0014 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0016 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
0018 029f 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Call
001a			BODY_0008:
001a e5ff       |    |		Load	0x2,-0x1
001b c402       |    |		Store	0x2,0x2
001c e5fe       |    |		Load	0x2,-0x2
001d c403       |    |		Store	0x2,0x3
001e e20e       |    |		Load	0x1,0xe
001f 0122       | "  |		Execute	Any,Make_Root_Type
0020 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0021 00d8       |    |		Load_Top	At_Offset_0
0022 0d01       |    |		Execute_Immediate	Less,0x1
0023 7013       |p   |		Jump_Nonzero	0x37
0024 00d8       |    |		Load_Top	At_Offset_0
0025 0c13       |    |		Execute_Immediate	Greater_Equal,0x13
0026 700a       |p   |		Jump_Nonzero	0x31
0027 00d8       |    |		Load_Top	At_Offset_0
0028 0c07       |    |		Execute_Immediate	Greater_Equal,0x7
0029 680f       |h   |		Jump_Zero	0x39
002a 00d8       |    |		Load_Top	At_Offset_0
002b 0c10       |    |		Execute_Immediate	Greater_Equal,0x10
002c 680f       |h   |		Jump_Zero	0x3c
002d 0f10       |    |		Execute_Immediate	Equal,0x10
002e 7010       |p   |		Jump_Nonzero	0x3f
002f 8408       |    |		Call	0x2,0x8
0030 7814       |x   |		Jump	0x45
0031 00d8       |    |		Load_Top	At_Offset_0
0032 0c1c       |    |		Execute_Immediate	Greater_Equal,0x1c
0033 680d       |h   |		Jump_Zero	0x41
0034 0c22       | "  |		Execute_Immediate	Greater_Equal,0x22
0035 680e       |h   |		Jump_Zero	0x44
0036 08e2       |    |		Execute_Immediate	Raise,0xe2
0037 00d1       |    |		Pop_Control	Pop_Count_1
0038 7ffd       |    |		Jump	0x36
0039 00d1       |    |		Pop_Control	Pop_Count_1
003a 8405       |    |		Call	0x2,0x5
003b 7809       |x   |		Jump	0x45
003c 00d1       |    |		Pop_Control	Pop_Count_1
003d 8406       |    |		Call	0x2,0x6
003e 7806       |x   |		Jump	0x45
003f 8407       |    |		Call	0x2,0x7
0040 7804       |x   |		Jump	0x45
0041 00d1       |    |		Pop_Control	Pop_Count_1
0042 8409       |    |		Call	0x2,0x9
0043 7801       |x   |		Jump	0x45
0044 840a       |    |		Call	0x2,0xa
0045 e404       |    |		Load	0x2,0x4
0046 e20e       |    |		Load	0x1,0xe
0047 0232       | 2  |		Execute	Float,Check_In_Type
0048 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0060       | `  |		.CONST	0x0060								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0004       |    |		.CONST	0x0004								; Number of locals
0053			INIT_0050:
0053 00e6       |    |		Load_Encached	Float_Cache
0054 0241       | A  |		Execute	Float,First
0055 00e6       |    |		Load_Encached	Float_Cache
0056 0240       | @  |		Execute	Float,Last
0057 00e6       |    |		Load_Encached	Float_Cache
0058 03e3       |    |		Declare_Type	Float,Constrained
0059 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
005b 00d9       |    |		Load_Top	At_Offset_1
005c 012a       | *  |		Execute	Any,Change_Utility
005d 0007       |    |		Action	Break_Optional
005e 00d8       |    |		Load_Top	At_Offset_0
005f 03d8       |    |		Declare_Variable	Float,Duplicate
0060			BODY_0050:
0060 e402       |    |		Load	0x2,0x2
0061 e403       |    |		Load	0x2,0x3
0062 023d       | =  |		Execute	Float,Plus
0063 00d8       |    |		Load_Top	At_Offset_0
0064 e602       |    |		Load	0x3,0x2
0065 0234       | 4  |		Execute	Float,In_Type
0066 7001       |p   |		Jump_Nonzero	0x68
0067 0801       |    |		Execute_Immediate	Raise,0x1
0068 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
0069 00d9       |    |		Load_Top	At_Offset_1
006a 00da       |    |		Load_Top	At_Offset_2
006b 023b       | ;  |		Execute	Float,Times
006c 5813       |X   |		Indirect_Literal	Float,0x80,0.5000040481
006d 00db       |    |		Load_Top	At_Offset_3
006e 580d       |X   |		Indirect_Literal	Float,0x7c,0.16666764429999997
006f 023b       | ;  |		Execute	Float,Times
0070 023d       | =  |		Execute	Float,Plus
0071 023b       | ;  |		Execute	Float,Times
0072 0049       | I  |		Store_Top	Float,At_Offset_1
0073 e402       |    |		Load	0x2,0x2
0074 e403       |    |		Load	0x2,0x3
0075 00da       |    |		Load_Top	At_Offset_2
0076 023d       | =  |		Execute	Float,Plus
0077 023d       | =  |		Execute	Float,Plus
0078 c404       |    |		Store	0x2,0x4
0079 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
007a 0000 0000  |    |		.XXX[0x2]
007c 3fc5 555d  |? U]|		.DBL	0.16666764429999997
007e 88c8 f132  |   2|
0080 3fe0 0008  |?   |		.DBL	0.5000040481
0082 7d4e a0a7  |}N  |
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0098       |    |		.CONST	0x0098								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0004       |    |		.CONST	0x0004								; Number of locals
008b			INIT_0088:
008b 00e6       |    |		Load_Encached	Float_Cache
008c 0241       | A  |		Execute	Float,First
008d 00e6       |    |		Load_Encached	Float_Cache
008e 0240       | @  |		Execute	Float,Last
008f 00e6       |    |		Load_Encached	Float_Cache
0090 03e3       |    |		Declare_Type	Float,Constrained
0091 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
0093 00d9       |    |		Load_Top	At_Offset_1
0094 012a       | *  |		Execute	Any,Change_Utility
0095 0007       |    |		Action	Break_Optional
0096 00d8       |    |		Load_Top	At_Offset_0
0097 03d8       |    |		Declare_Variable	Float,Duplicate
0098			BODY_0088:
0098 e402       |    |		Load	0x2,0x2
0099 e403       |    |		Load	0x2,0x3
009a 023d       | =  |		Execute	Float,Plus
009b 00d8       |    |		Load_Top	At_Offset_0
009c e602       |    |		Load	0x3,0x2
009d 0234       | 4  |		Execute	Float,In_Type
009e 7001       |p   |		Jump_Nonzero	0xa0
009f 0801       |    |		Execute_Immediate	Raise,0x1
00a0 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 00da       |    |		Load_Top	At_Offset_2
00a3 023b       | ;  |		Execute	Float,Times
00a4 582b       |X+  |		Indirect_Literal	Float,0xd0,0.5
00a5 00db       |    |		Load_Top	At_Offset_3
00a6 5825       |X%  |		Indirect_Literal	Float,0xcc,0.16666666666526087
00a7 e603       |    |		Load	0x3,0x3
00a8 581f       |X   |		Indirect_Literal	Float,0xc8,0.04166666666622608
00a9 e603       |    |		Load	0x3,0x3
00aa 5819       |X   |		Indirect_Literal	Float,0xc4,0.008333367984342196
00ab e603       |    |		Load	0x3,0x3
00ac 5813       |X   |		Indirect_Literal	Float,0xc0,0.001388894908637772
00ad 023b       | ;  |		Execute	Float,Times
00ae 023d       | =  |		Execute	Float,Plus
00af 023b       | ;  |		Execute	Float,Times
00b0 023d       | =  |		Execute	Float,Plus
00b1 023b       | ;  |		Execute	Float,Times
00b2 023d       | =  |		Execute	Float,Plus
00b3 023b       | ;  |		Execute	Float,Times
00b4 023d       | =  |		Execute	Float,Plus
00b5 023b       | ;  |		Execute	Float,Times
00b6 0049       | I  |		Store_Top	Float,At_Offset_1
00b7 e402       |    |		Load	0x2,0x2
00b8 e403       |    |		Load	0x2,0x3
00b9 00da       |    |		Load_Top	At_Offset_2
00ba 023d       | =  |		Execute	Float,Plus
00bb 023d       | =  |		Execute	Float,Plus
00bc c404       |    |		Store	0x2,0x4
00bd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00be 0000 0000  |    |		.XXX[0x2]
00c0 3f56 c172  |?V r|		.DBL	0.001388894908637772
00c2 8d73 9765  | s e|
00c4 3f81 1115  |?   |		.DBL	0.008333367984342196
00c6 b7aa 905e  |   ^|
00c8 3fa5 5555  |? UU|		.DBL	0.04166666666622608
00ca 5554 5d4e  |UT]N|
00cc 3fc5 5555  |? UU|		.DBL	0.16666666666526087
00ce 5554 8f7c  |UT ||
00d0 3fe0 0000  |?   |		.DBL	0.5
00d2 0000 0000  |    |
00d4 0000 0000  |    |		.BLANK	0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e8       |    |		.CONST	0x00e8								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0004       |    |		.CONST	0x0004								; Number of locals
00db			INIT_00d8:
00db 00e6       |    |		Load_Encached	Float_Cache
00dc 0241       | A  |		Execute	Float,First
00dd 00e6       |    |		Load_Encached	Float_Cache
00de 0240       | @  |		Execute	Float,Last
00df 00e6       |    |		Load_Encached	Float_Cache
00e0 03e3       |    |		Declare_Type	Float,Constrained
00e1 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
00e3 00d9       |    |		Load_Top	At_Offset_1
00e4 012a       | *  |		Execute	Any,Change_Utility
00e5 0007       |    |		Action	Break_Optional
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 03d8       |    |		Declare_Variable	Float,Duplicate
00e8			BODY_00d8:
00e8 e402       |    |		Load	0x2,0x2
00e9 e403       |    |		Load	0x2,0x3
00ea 023d       | =  |		Execute	Float,Plus
00eb 00d8       |    |		Load_Top	At_Offset_0
00ec e602       |    |		Load	0x3,0x2
00ed 0234       | 4  |		Execute	Float,In_Type
00ee 7001       |p   |		Jump_Nonzero	0xf0
00ef 0801       |    |		Execute_Immediate	Raise,0x1
00f0 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
00f1 00d9       |    |		Load_Top	At_Offset_1
00f2 00da       |    |		Load_Top	At_Offset_2
00f3 023b       | ;  |		Execute	Float,Times
00f4 5fdb       |_   |		Indirect_Literal	Float,0xd0,0.5
00f5 00db       |    |		Load_Top	At_Offset_3
00f6 5fd5       |_   |		Indirect_Literal	Float,0xcc,0.16666666666526087
00f7 e603       |    |		Load	0x3,0x3
00f8 5fcf       |_   |		Indirect_Literal	Float,0xc8,0.04166666666622608
00f9 e603       |    |		Load	0x3,0x3
00fa 5fc9       |_   |		Indirect_Literal	Float,0xc4,0.008333367984342196
00fb e603       |    |		Load	0x3,0x3
00fc 5fc3       |_   |		Indirect_Literal	Float,0xc0,0.001388894908637772
00fd 023b       | ;  |		Execute	Float,Times
00fe 023d       | =  |		Execute	Float,Plus
00ff 023b       | ;  |		Execute	Float,Times
0100 023d       | =  |		Execute	Float,Plus
0101 023b       | ;  |		Execute	Float,Times
0102 023d       | =  |		Execute	Float,Plus
0103 023b       | ;  |		Execute	Float,Times
0104 023d       | =  |		Execute	Float,Plus
0105 023b       | ;  |		Execute	Float,Times
0106 0049       | I  |		Store_Top	Float,At_Offset_1
0107 e402       |    |		Load	0x2,0x2
0108 e403       |    |		Load	0x2,0x3
0109 00da       |    |		Load_Top	At_Offset_2
010a 023d       | =  |		Execute	Float,Plus
010b 023d       | =  |		Execute	Float,Plus
010c c404       |    |		Store	0x2,0x4
010d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0120       |    |		.CONST	0x0120								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0004       |    |		.CONST	0x0004								; Number of locals
0113			INIT_0110:
0113 00e6       |    |		Load_Encached	Float_Cache
0114 0241       | A  |		Execute	Float,First
0115 00e6       |    |		Load_Encached	Float_Cache
0116 0240       | @  |		Execute	Float,Last
0117 00e6       |    |		Load_Encached	Float_Cache
0118 03e3       |    |		Declare_Type	Float,Constrained
0119 029f 0273  |   s|		Declare_Subprogram	INIT_0270,For_Call
011b 00d9       |    |		Load_Top	At_Offset_1
011c 012a       | *  |		Execute	Any,Change_Utility
011d 0007       |    |		Action	Break_Optional
011e 00d8       |    |		Load_Top	At_Offset_0
011f 03d8       |    |		Declare_Variable	Float,Duplicate
0120			BODY_0110:
0120 e402       |    |		Load	0x2,0x2
0121 e403       |    |		Load	0x2,0x3
0122 023d       | =  |		Execute	Float,Plus
0123 00d8       |    |		Load_Top	At_Offset_0
0124 e602       |    |		Load	0x3,0x2
0125 0234       | 4  |		Execute	Float,In_Type
0126 7001       |p   |		Jump_Nonzero	0x128
0127 0801       |    |		Execute_Immediate	Raise,0x1
0128 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
0129 00d9       |    |		Load_Top	At_Offset_1
012a 00da       |    |		Load_Top	At_Offset_2
012b 023b       | ;  |		Execute	Float,Times
012c 5833       |X3  |		Indirect_Literal	Float,0x160,0.5
012d 00db       |    |		Load_Top	At_Offset_3
012e 582d       |X-  |		Indirect_Literal	Float,0x15c,0.16666666666666666
012f e603       |    |		Load	0x3,0x3
0130 5827       |X'  |		Indirect_Literal	Float,0x158,0.0416666666662868
0131 e603       |    |		Load	0x3,0x3
0132 5821       |X!  |		Indirect_Literal	Float,0x154,0.008333333333252082
0133 e603       |    |		Load	0x3,0x3
0134 581b       |X   |		Indirect_Literal	Float,0x150,0.0013888944766512461
0135 e603       |    |		Load	0x3,0x3
0136 5815       |X   |		Indirect_Literal	Float,0x14c,0.0001984135319032208
0137 023b       | ;  |		Execute	Float,Times
0138 023d       | =  |		Execute	Float,Plus
0139 023b       | ;  |		Execute	Float,Times
013a 023d       | =  |		Execute	Float,Plus
013b 023b       | ;  |		Execute	Float,Times
013c 023d       | =  |		Execute	Float,Plus
013d 023b       | ;  |		Execute	Float,Times
013e 023d       | =  |		Execute	Float,Plus
013f 023b       | ;  |		Execute	Float,Times
0140 023d       | =  |		Execute	Float,Plus
0141 023b       | ;  |		Execute	Float,Times
0142 0049       | I  |		Store_Top	Float,At_Offset_1
0143 e402       |    |		Load	0x2,0x2
0144 e403       |    |		Load	0x2,0x3
0145 00da       |    |		Load_Top	At_Offset_2
0146 023d       | =  |		Execute	Float,Plus
0147 023d       | =  |		Execute	Float,Plus
0148 c404       |    |		Store	0x2,0x4
0149 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
014a 0000 0000  |    |		.XXX[0x2]
014c 3f2a 01a7  |?*  |		.DBL	0.0001984135319032208
014e 42df 137f  |B   |
0150 3f56 c172  |?V r|		.DBL	0.0013888944766512461
0152 16b5 3df8  |  = |
0154 3f81 1111  |?   |		.DBL	0.008333333333252082
0156 1110 5a1b  |  Z |
0158 3fa5 5555  |? UU|		.DBL	0.0416666666662868
015a 5554 7f7d  |UT }|
015c 3fc5 5555  |? UU|		.DBL	0.16666666666666666
015e 5555 5555  |UUUU|
0160 3fe0 0000  |?   |		.DBL	0.5
0162 0000 0000  |    |
0164 0000 0000  |    |		.BLANK	0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0178       | x  |		.CONST	0x0178								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0004       |    |		.CONST	0x0004								; Number of locals
016b			INIT_0168:
016b 00e6       |    |		Load_Encached	Float_Cache
016c 0241       | A  |		Execute	Float,First
016d 00e6       |    |		Load_Encached	Float_Cache
016e 0240       | @  |		Execute	Float,Last
016f 00e6       |    |		Load_Encached	Float_Cache
0170 03e3       |    |		Declare_Type	Float,Constrained
0171 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
0173 00d9       |    |		Load_Top	At_Offset_1
0174 012a       | *  |		Execute	Any,Change_Utility
0175 0007       |    |		Action	Break_Optional
0176 00d8       |    |		Load_Top	At_Offset_0
0177 03d8       |    |		Declare_Variable	Float,Duplicate
0178			BODY_0168:
0178 e402       |    |		Load	0x2,0x2
0179 e403       |    |		Load	0x2,0x3
017a 023d       | =  |		Execute	Float,Plus
017b 00d8       |    |		Load_Top	At_Offset_0
017c e602       |    |		Load	0x3,0x2
017d 0234       | 4  |		Execute	Float,In_Type
017e 7001       |p   |		Jump_Nonzero	0x180
017f 0801       |    |		Execute_Immediate	Raise,0x1
0180 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
0181 00d9       |    |		Load_Top	At_Offset_1
0182 00da       |    |		Load_Top	At_Offset_2
0183 023b       | ;  |		Execute	Float,Times
0184 5fdb       |_   |		Indirect_Literal	Float,0x160,0.5
0185 00db       |    |		Load_Top	At_Offset_3
0186 5fd5       |_   |		Indirect_Literal	Float,0x15c,0.16666666666666666
0187 e603       |    |		Load	0x3,0x3
0188 5837       |X7  |		Indirect_Literal	Float,0x1c0,0.041666666666666664
0189 e603       |    |		Load	0x3,0x3
018a 5831       |X1  |		Indirect_Literal	Float,0x1bc,0.008333333333333333
018b e603       |    |		Load	0x3,0x3
018c 582b       |X+  |		Indirect_Literal	Float,0x1b8,0.0013888888888811248
018d e603       |    |		Load	0x3,0x3
018e 5825       |X%  |		Indirect_Literal	Float,0x1b4,0.00019841269841139835
018f e603       |    |		Load	0x3,0x3
0190 581f       |X   |		Indirect_Literal	Float,0x1b0,2.480166608620855e-05
0191 e603       |    |		Load	0x3,0x3
0192 5819       |X   |		Indirect_Literal	Float,0x1ac,2.7557413983513884e-06
0193 023b       | ;  |		Execute	Float,Times
0194 023d       | =  |		Execute	Float,Plus
0195 023b       | ;  |		Execute	Float,Times
0196 023d       | =  |		Execute	Float,Plus
0197 023b       | ;  |		Execute	Float,Times
0198 023d       | =  |		Execute	Float,Plus
0199 023b       | ;  |		Execute	Float,Times
019a 023d       | =  |		Execute	Float,Plus
019b 023b       | ;  |		Execute	Float,Times
019c 023d       | =  |		Execute	Float,Plus
019d 023b       | ;  |		Execute	Float,Times
019e 023d       | =  |		Execute	Float,Plus
019f 023b       | ;  |		Execute	Float,Times
01a0 023d       | =  |		Execute	Float,Plus
01a1 023b       | ;  |		Execute	Float,Times
01a2 0049       | I  |		Store_Top	Float,At_Offset_1
01a3 e402       |    |		Load	0x2,0x2
01a4 e403       |    |		Load	0x2,0x3
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 023d       | =  |		Execute	Float,Plus
01a7 023d       | =  |		Execute	Float,Plus
01a8 c404       |    |		Store	0x2,0x4
01a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01aa 0000 0000  |    |		.XXX[0x2]
01ac 3ec7 1de8  |>   |		.DBL	2.7557413983513884e-06
01ae daf5 f546  |   F|
01b0 3efa 01a5  |>   |		.DBL	2.480166608620855e-05
01b2 8400 042c  |   ,|
01b4 3f2a 01a0  |?*  |		.DBL	0.00019841269841139835
01b6 1a00 e4be  |    |
01b8 3f56 c16c  |?V l|		.DBL	0.0013888888888811248
01ba 16c0 e039  |   9|
01bc 3f81 1111  |?   |		.DBL	0.008333333333333333
01be 1111 1111  |    |
01c0 3fa5 5555  |? UU|		.DBL	0.041666666666666664
01c2 5555 5555  |UUUU|
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d8       |    |		.CONST	0x01d8								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0004       |    |		.CONST	0x0004								; Number of locals
01cb			INIT_01c8:
01cb 00e6       |    |		Load_Encached	Float_Cache
01cc 0241       | A  |		Execute	Float,First
01cd 00e6       |    |		Load_Encached	Float_Cache
01ce 0240       | @  |		Execute	Float,Last
01cf 00e6       |    |		Load_Encached	Float_Cache
01d0 03e3       |    |		Declare_Type	Float,Constrained
01d1 029f 0293  |    |		Declare_Subprogram	INIT_0290,For_Call
01d3 00d9       |    |		Load_Top	At_Offset_1
01d4 012a       | *  |		Execute	Any,Change_Utility
01d5 0007       |    |		Action	Break_Optional
01d6 00d8       |    |		Load_Top	At_Offset_0
01d7 03d8       |    |		Declare_Variable	Float,Duplicate
01d8			BODY_01c8:
01d8 e402       |    |		Load	0x2,0x2
01d9 e403       |    |		Load	0x2,0x3
01da 023d       | =  |		Execute	Float,Plus
01db 00d8       |    |		Load_Top	At_Offset_0
01dc e602       |    |		Load	0x3,0x2
01dd 0234       | 4  |		Execute	Float,In_Type
01de 7001       |p   |		Jump_Nonzero	0x1e0
01df 0801       |    |		Execute_Immediate	Raise,0x1
01e0 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
01e1 00d9       |    |		Load_Top	At_Offset_1
01e2 00da       |    |		Load_Top	At_Offset_2
01e3 023b       | ;  |		Execute	Float,Times
01e4 5853       |XS  |		Indirect_Literal	Float,0x238,0.5
01e5 00db       |    |		Load_Top	At_Offset_3
01e6 584d       |XM  |		Indirect_Literal	Float,0x234,0.16666666666666666
01e7 e603       |    |		Load	0x3,0x3
01e8 5fd7       |_   |		Indirect_Literal	Float,0x1c0,0.041666666666666664
01e9 e603       |    |		Load	0x3,0x3
01ea 5fd1       |_   |		Indirect_Literal	Float,0x1bc,0.008333333333333333
01eb e603       |    |		Load	0x3,0x3
01ec 5843       |XC  |		Indirect_Literal	Float,0x230,0.0013888888888888887
01ed e603       |    |		Load	0x3,0x3
01ee 583d       |X=  |		Indirect_Literal	Float,0x22c,0.0001984126984126984
01ef e603       |    |		Load	0x3,0x3
01f0 5837       |X7  |		Indirect_Literal	Float,0x228,2.48015873015873e-05
01f1 e603       |    |		Load	0x3,0x3
01f2 5831       |X1  |		Indirect_Literal	Float,0x224,2.755731922390497e-06
01f3 e603       |    |		Load	0x3,0x3
01f4 582b       |X+  |		Indirect_Literal	Float,0x220,2.7557319223903827e-07
01f5 e603       |    |		Load	0x3,0x3
01f6 5825       |X%  |		Indirect_Literal	Float,0x21c,2.50521670368971e-08
01f7 e603       |    |		Load	0x3,0x3
01f8 581f       |X   |		Indirect_Literal	Float,0x218,2.0876806002874694e-09
01f9 023b       | ;  |		Execute	Float,Times
01fa 023d       | =  |		Execute	Float,Plus
01fb 023b       | ;  |		Execute	Float,Times
01fc 023d       | =  |		Execute	Float,Plus
01fd 023b       | ;  |		Execute	Float,Times
01fe 023d       | =  |		Execute	Float,Plus
01ff 023b       | ;  |		Execute	Float,Times
0200 023d       | =  |		Execute	Float,Plus
0201 023b       | ;  |		Execute	Float,Times
0202 023d       | =  |		Execute	Float,Plus
0203 023b       | ;  |		Execute	Float,Times
0204 023d       | =  |		Execute	Float,Plus
0205 023b       | ;  |		Execute	Float,Times
0206 023d       | =  |		Execute	Float,Plus
0207 023b       | ;  |		Execute	Float,Times
0208 023d       | =  |		Execute	Float,Plus
0209 023b       | ;  |		Execute	Float,Times
020a 023d       | =  |		Execute	Float,Plus
020b 023b       | ;  |		Execute	Float,Times
020c 023d       | =  |		Execute	Float,Plus
020d 023b       | ;  |		Execute	Float,Times
020e 0049       | I  |		Store_Top	Float,At_Offset_1
020f e402       |    |		Load	0x2,0x2
0210 e403       |    |		Load	0x2,0x3
0211 00da       |    |		Load_Top	At_Offset_2
0212 023d       | =  |		Execute	Float,Plus
0213 023d       | =  |		Execute	Float,Plus
0214 c404       |    |		Store	0x2,0x4
0215 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0216 0000 0000  |    |		.XXX[0x2]
0218 3e21 eedb  |>!  |		.DBL	2.0876806002874694e-09
021a b25a 4d74  | ZMt|
021c 3e5a e649  |>Z I|		.DBL	2.50521670368971e-08
021e 8887 5da8  |  ] |
0220 3e92 7e4f  |> ~O|		.DBL	2.7557319223903827e-07
0222 b778 62cf  | xb |
0224 3ec7 1de3  |>   |		.DBL	2.755731922390497e-06
0226 a556 7c91  | V| |
0228 3efa 01a0  |>   |		.DBL	2.48015873015873e-05
022a 1a01 a01a  |    |
022c 3f2a 01a0  |?*  |		.DBL	0.0001984126984126984
022e 1a01 a01a  |    |
0230 3f56 c16c  |?V l|		.DBL	0.0013888888888888887
0232 16c1 6c16  |  l |
0234 3fc5 5555  |? UU|		.DBL	0.16666666666666666
0236 5555 5555  |UUUU|
0238 3fe0 0000  |?   |		.DBL	0.5
023a 0000 0000  |    |
023c 0000 0000  |    |		.BLANK	0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 4601       |F   |		Jump_Case	0x2
0244 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0245 7801       |x   |		Jump	0x247								; case 0x1
0246 4302       |C   |		.XXX[0x1]
0247 4806       |H   |		Short_Literal	0x6
0248 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0249 0000 0000  |    |		.BLANK	0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 4601       |F   |		Jump_Case	0x2
0254 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0255 7801       |x   |		Jump	0x257								; case 0x1
0256 4302       |C   |		.XXX[0x1]
0257 480f       |H   |		Short_Literal	0xf
0258 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0259 0000 0000  |    |		.BLANK	0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 4601       |F   |		Jump_Case	0x2
0264 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0265 7801       |x   |		Jump	0x267								; case 0x1
0266 4302       |C   |		.XXX[0x1]
0267 480f       |H   |		Short_Literal	0xf
0268 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 4601       |F   |		Jump_Case	0x2
0274 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0275 7801       |x   |		Jump	0x277								; case 0x1
0276 4302       |C   |		.XXX[0x1]
0277 480f       |H   |		Short_Literal	0xf
0278 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0279 0000 0000  |    |		.BLANK	0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 4601       |F   |		Jump_Case	0x2
0284 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0285 7801       |x   |		Jump	0x287								; case 0x1
0286 4302       |C   |		.XXX[0x1]
0287 480f       |H   |		Short_Literal	0xf
0288 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0289 0000 0000  |    |		.BLANK	0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 4601       |F   |		Jump_Case	0x2
0294 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0295 7801       |x   |		Jump	0x297								; case 0x1
0296 4302       |C   |		.XXX[0x1]
0297 480f       |H   |		Short_Literal	0xf
0298 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0299 0000 0000  |    |		.BLANK	0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug Table
02a0 ; --------------------------------------------------------------------------------------
02a0 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x8f22,0x0000,0x0001,0x0000
02a6 ab6c c000  | l  |		.XXX[0x2b]
02a8 0dd0 3e2f  |  >/|
02aa ee0f 6840  |  h@|
02ac 0006 e000  |    |
02ae 0000 0000  |    |
02b0 0000 0005  |    |
02b2 d51a 8500  |    |
02b4 0000 4005  |  @ |
02b6 d51c 8500  |    |
02b8 0000 4005  |  @ |
02ba 6600 9800  |f   |
02bc 0000 0000  |    |
02be 0000 0001  |    |
02c0 7547 2140  |uG!@|
02c2 0000 1008  |    |
02c4 1f14 de7c  |   ||
02c6 2ad0 0003  |*   |
02c8 7000 0000  |p   |
02ca 9000 08b3  |    |
02cc c000 0000  |    |
02ce 2000 0000  |    |
02d0 a000       |    |
02d1 0000 0000  |    |		.BLANK	0000[0xa]
02db 041c 2000  |    |		.XXX[0x2]
02dd 0000 0000  |    |		.BLANK	0000[0x7]
02e4 0008 0000  |    |		.XXX[0x3e]
02e6 0000 0000  |    |
02e8 0018 0004  |    |
02ea e368 07a8  | h  |
02ec 4ff0 07a7  |O   |
02ee d168 07a9  | h  |
02f0 1568 03d4  | h  |
02f2 3d44 0002  |=D  |
02f4 95fe a07c  |   ||
02f6 d090 bf29  |   )|
02f8 4000 0c90  |@   |
02fa 4009 b6c0  |@   |
02fc 80e0 0007  |    |
02fe 6400 0000  |d   |
0300 0000 0000  |    |
0302 0006 47e2  |  G |
0304 8500 0000  |    |
0306 4006 47e4  |@ G |
0308 8500 0000  |    |
030a 4004 c600  |@   |
030c 9800 0000  |    |
030e 0000 0000  |    |
0310 0001 91f9  |    |
0312 2140 0000  |!@  |
0314 1008 1f33  |   3|
0316 d61a b1b0  |    |
0318 0003 2000  |    |
031a 0000 9000  |    |
031c 0bc4 c000  |    |
031e 0000 2000  |    |
0320 0000 2000  |    |
0322 0000 0000  |    |		.BLANK	0000[0xa]
032c 041c 2000  |    |		.XXX[0x2]
032e 0000 0000  |    |		.BLANK	0000[0x7]
0335 0008 0000  |    |		.XXX[0x9]
0337 0000 0000  |    |
0339 0018 0005  |    |
033b 02f0 07a8  |    |
033d 7870       |xp  |
033e 0000 0000  |    |		.BLANK	0000[0x4]
0342 03d4 5184  |  Q |		.XXX[0xd]
0344 0005 72a1  |  r |
0346 2080 5d74  |  ]t|
0348 8f6e 8000  | n  |
034a 0410 402e  |  @.|
034c c79b ff60  |   `|
034e 0002       |    |
034f 0000 0000  |    |		.BLANK	0000[0x4]
0353 0008 6cf2  |  l |		.XXX[0x21]
0355 8500 0000  |    |
0357 4008 6d46  |@ mF|
0359 8500 0000  |    |
035b 4002 0600  |@   |
035d 9800 0000  |    |
035f 0000 0000  |    |
0361 0002 1b51  |   Q|
0363 a140 0000  | @  |
0365 1008 2017  |    |
0367 5d99 57b0  |] W |
0369 0001 0000  |    |
036b 0000 9000  |    |
036d 0e62 2000  | b  |
036f 0000 2000  |    |
0371 0000 6081  |  ` |
0373 8026       | &  |
0374 0000 0000  |    |		.BLANK	0000[0x8]
037c 0208 05d7  |    |		.XXX[0x4a]
037e 6655 ec00  |fU  |
0380 0040 0000  | @  |
0382 0024 0003  | $  |
0384 9888 0000  |    |
0386 0008 0000  |    |
0388 0018 0000  |    |
038a 0018 0005  |    |
038c ff30 07a8  | 0  |
038e a0f0 07a8  |    |
0390 9be8 07a8  |    |
0392 ece8 03d4  |    |
0394 65c4 0006  |e   |
0396 ae7c 2083  | |  |
0398 1293 cb19  |    |
039a 0000 0050  |   P|
039c 47ed 9333  |G  3|
039e 49a0 0002  |I   |
03a0 4400 0000  |D   |
03a2 0000 0000  |    |
03a4 0002 0fdc  |    |
03a6 8000 0000  |    |
03a8 4002 0fde  |@   |
03aa 8000 0000  |    |
03ac 4000 0603  |@   |
03ae 1802 2000  |    |
03b0 0000 0000  |    |
03b2 0000 8443  |   C|
03b4 2000 0000  |    |
03b6 1008 20c4  |    |
03b8 a4f3 7dc0  |  } |
03ba 0000 1000  |    |
03bc 0000 9000  |    |
03be 0f25 c000  | %  |
03c0 0000 2000  |    |
03c2 0000 2001  |    |
03c4 80c6 0088  |    |
03c6 0000 0000  |    |		.BLANK	0000[0x7]
03cd 0208 3129  |  1)|		.XXX[0x13]
03cf 3cdf 7000  |< p |
03d1 0004 0000  |    |
03d3 0024 0003  | $  |
03d5 c970 0000  | p  |
03d7 0008 0000  |    |
03d9 0008 0000  |    |
03db 0018 0006  |    |
03dd 5dc8 07a8  |]   |
03df c970       | p  |
03e0 0000 0000  |    |		.BLANK	0000[0x4]
03e4 03d4 7a04  |  z |		.XXX[0x1c]
03e6 0006 2169  |  !i|
03e8 a085 5f2a  |  _*|
03ea 653c 0000  |e<  |
03ec 0490 42ef  |  B |
03ee c301 46e0  |  F |
03f0 0002 4400  |  D |
03f2 0000 0000  |    |
03f4 0000 000a  |    |
03f6 2d5c 8580  |-\  |
03f8 0000 400a  |  @ |
03fa 2d68 8580  |-h  |
03fc 0000 4002  |  @ |
03fe 6600 9800  |f   |