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

⟦a79741bb9⟧

    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 0001       |    |		.CONST	0x0001								; 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 0001  |    |		.DEBUG4	0x0004,0x0001,0xf27f,0x0000,0x0001,0x000d
02a6 000b 02da  |    |		.DBG4T	0x000b,0x02da,0x1002,0x4000
02aa 0053 02f3  | S  |		.DBG4T	0x0053,0x02f3,0x1004,0x0000
02ae 008b 02fa  |    |		.DBG4T	0x008b,0x02fa,0x1004,0x0000
02b2 00db 0301  |    |		.DBG4T	0x00db,0x0301,0x1004,0x0000
02b6 0113 0308  |    |		.DBG4T	0x0113,0x0308,0x1004,0x0000
02ba 016b 030f  | k  |		.DBG4T	0x016b,0x030f,0x1004,0x0000
02be 01cb 0316  |    |		.DBG4T	0x01cb,0x0316,0x1004,0x0000
02c2 0243 0000  | C  |		.DBG4T	0x0243,0x0000,0x1005,0x0000
02c6 0253 0000  | S  |		.DBG4T	0x0253,0x0000,0x1005,0x0000
02ca 0263 0000  | c  |		.DBG4T	0x0263,0x0000,0x1005,0x0000
02ce 0273 0000  | s  |		.DBG4T	0x0273,0x0000,0x1005,0x0000
02d2 0283 0000  |    |		.DBG4T	0x0283,0x0000,0x1005,0x0000
02d6 0293 0000  |    |		.DBG4T	0x0293,0x0000,0x1005,0x0000
02da ; --------------------------------------------------------------------------------------
02da ; Debug chain
02da ; --------------------------------------------------------------------------------------
02da 0001 000b  |    |		.DBGLEN	0x0001,0x000b
02dc 000b 001a  |    |		.DBGLNO	0x000b,0x001a,0x001c,0x001e,0x002f,0x0036,0x003a,0x003d,0x003f,0x0042,0x0044,0x0045
02e8 0001 0002  |    |		.XXX[0xb]
02ea 0003 0007  |    |
02ec 000a 0004  |    |
02ee 0005 0006  |    |
02f0 0008 0009  |    |
02f2 000b       |    |
02f3 ; --------------------------------------------------------------------------------------
02f3 ; Debug chain
02f3 ; --------------------------------------------------------------------------------------
02f3 0002 0003  |    |		.DBGLEN	0x0002,0x0003
02f5 0053 005e  | S ^|		.DBGLNO	0x0053,0x005e,0x0060,0x0069,0x0073
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug chain
02fa ; --------------------------------------------------------------------------------------
02fa 0002 0003  |    |		.DBGLEN	0x0002,0x0003
02fc 008b 0096  |    |		.DBGLNO	0x008b,0x0096,0x0098,0x00a1,0x00b7
0301 ; --------------------------------------------------------------------------------------
0301 ; Debug chain
0301 ; --------------------------------------------------------------------------------------
0301 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0303 00db 00e6  |    |		.DBGLNO	0x00db,0x00e6,0x00e8,0x00f1,0x0107
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug chain
0308 ; --------------------------------------------------------------------------------------
0308 0002 0003  |    |		.DBGLEN	0x0002,0x0003
030a 0113 011e  |    |		.DBGLNO	0x0113,0x011e,0x0120,0x0129,0x0143
030f ; --------------------------------------------------------------------------------------
030f ; Debug chain
030f ; --------------------------------------------------------------------------------------
030f 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0311 016b 0176  | k v|		.DBGLNO	0x016b,0x0176,0x0178,0x0181,0x01a3
0316 ; --------------------------------------------------------------------------------------
0316 ; Debug chain
0316 ; --------------------------------------------------------------------------------------
0316 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0318 01cb 01d6  |    |		.DBGLNO	0x01cb,0x01d6,0x01d8,0x01e1,0x020f
031d 0000 0000  |    |		.BLANK	0000[0xe3]