|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 000e 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0010 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0012 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0014 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 0016 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 0018 BODY_0008: 0018 e20e | | Load 0x1,0xe 0019 0122 | " | Execute Any,Make_Root_Type 001a 1c01 | | Execute_Immediate Run_Utility,0x1 001b 00d8 | | Load_Top At_Offset_0 001c 0d01 | | Execute_Immediate Less,0x1 001d 7013 |p | Jump_Nonzero 0x31 001e 00d8 | | Load_Top At_Offset_0 001f 0c13 | | Execute_Immediate Greater_Equal,0x13 0020 700a |p | Jump_Nonzero 0x2b 0021 00d8 | | Load_Top At_Offset_0 0022 0c07 | | Execute_Immediate Greater_Equal,0x7 0023 680f |h | Jump_Zero 0x33 0024 00d8 | | Load_Top At_Offset_0 0025 0c10 | | Execute_Immediate Greater_Equal,0x10 0026 680f |h | Jump_Zero 0x36 0027 0f10 | | Execute_Immediate Equal,0x10 0028 7010 |p | Jump_Nonzero 0x39 0029 8406 | | Call 0x2,0x6 002a 7814 |x | Jump 0x3f 002b 00d8 | | Load_Top At_Offset_0 002c 0c1c | | Execute_Immediate Greater_Equal,0x1c 002d 680d |h | Jump_Zero 0x3b 002e 0c22 | " | Execute_Immediate Greater_Equal,0x22 002f 680e |h | Jump_Zero 0x3e 0030 08e2 | | Execute_Immediate Raise,0xe2 0031 00d1 | | Pop_Control Pop_Count_1 0032 7ffd | | Jump 0x30 0033 00d1 | | Pop_Control Pop_Count_1 0034 8403 | | Call 0x2,0x3 0035 7809 |x | Jump 0x3f 0036 00d1 | | Pop_Control Pop_Count_1 0037 8404 | | Call 0x2,0x4 0038 7806 |x | Jump 0x3f 0039 8405 | | Call 0x2,0x5 003a 7804 |x | Jump 0x3f 003b 00d1 | | Pop_Control Pop_Count_1 003c 8407 | | Call 0x2,0x7 003d 7801 |x | Jump 0x3f 003e 8408 | | Call 0x2,0x8 003f e402 | | Load 0x2,0x2 0040 e20e | | Load 0x1,0xe 0041 0232 | 2 | Execute Float,Check_In_Type 0042 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0059 | Y | .CONST 0x0059 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0005 | | .CONST 0x0005 ; Number of locals 004b INIT_0048: 004b 00e6 | | Load_Encached Float_Cache 004c 0241 | A | Execute Float,First 004d 00e6 | | Load_Encached Float_Cache 004e 0240 | @ | Execute Float,Last 004f 00e6 | | Load_Encached Float_Cache 0050 03e3 | | Declare_Type Float,Constrained 0051 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 0053 00d9 | | Load_Top At_Offset_1 0054 012a | * | Execute Any,Change_Utility 0055 0007 | | Action Break_Optional 0056 00d8 | | Load_Top At_Offset_0 0057 03d8 | | Declare_Variable Float,Duplicate 0058 03d8 | | Declare_Variable Float,Duplicate 0059 BODY_0048: 0059 e5ff | | Load 0x2,-0x1 005a 00d8 | | Load_Top At_Offset_0 005b e602 | | Load 0x3,0x2 005c 0234 | 4 | Execute Float,In_Type 005d 7001 |p | Jump_Nonzero 0x5f 005e 0801 | | Execute_Immediate Raise,0x1 005f 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0060 00da | | Load_Top At_Offset_2 0061 00db | | Load_Top At_Offset_3 0062 023b | ; | Execute Float,Times 0063 004a | J | Store_Top Float,At_Offset_2 0064 00da | | Load_Top At_Offset_2 0065 00da | | Load_Top At_Offset_2 0066 023b | ; | Execute Float,Times 0067 5810 |X | Indirect_Literal Float,0x78,0.3333323001 0068 00db | | Load_Top At_Offset_3 0069 580a |X | Indirect_Literal Float,0x74,0.19918597189999998 006a 023b | ; | Execute Float,Times 006b 023c | < | Execute Float,Minus 006c 023b | ; | Execute Float,Times 006d 023f | ? | Execute Float,Unary_Minus 006e 0049 | I | Store_Top Float,At_Offset_1 006f 00d8 | | Load_Top At_Offset_0 0070 c402 | | Store 0x2,0x2 0071 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0072 0000 0000 | | .XXX[0x2] 0074 3fc9 7eed |? ~ | .DBL 0.19918597189999998 0076 0990 f4f0 | | 0078 3fd5 5550 |? UP| .DBL 0.3333323001 007a ffe8 5139 | Q9| 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0091 | | .CONST 0x0091 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0005 | | .CONST 0x0005 ; Number of locals 0083 INIT_0080: 0083 00e6 | | Load_Encached Float_Cache 0084 0241 | A | Execute Float,First 0085 00e6 | | Load_Encached Float_Cache 0086 0240 | @ | Execute Float,Last 0087 00e6 | | Load_Encached Float_Cache 0088 03e3 | | Declare_Type Float,Constrained 0089 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 008b 00d9 | | Load_Top At_Offset_1 008c 012a | * | Execute Any,Change_Utility 008d 0007 | | Action Break_Optional 008e 00d8 | | Load_Top At_Offset_0 008f 03d8 | | Declare_Variable Float,Duplicate 0090 03d8 | | Declare_Variable Float,Duplicate 0091 BODY_0080: 0091 e5ff | | Load 0x2,-0x1 0092 00d8 | | Load_Top At_Offset_0 0093 e602 | | Load 0x3,0x2 0094 0234 | 4 | Execute Float,In_Type 0095 7001 |p | Jump_Nonzero 0x97 0096 0801 | | Execute_Immediate Raise,0x1 0097 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0098 00da | | Load_Top At_Offset_2 0099 00db | | Load_Top At_Offset_3 009a 023b | ; | Execute Float,Times 009b 004a | J | Store_Top Float,At_Offset_2 009c 00da | | Load_Top At_Offset_2 009d 00da | | Load_Top At_Offset_2 009e 023b | ; | Execute Float,Times 009f 5828 |X( | Indirect_Literal Float,0xc8,0.33333333333333165 00a0 00db | | Load_Top At_Offset_3 00a1 5822 |X" | Indirect_Literal Float,0xc4,0.19999999999393223 00a2 e604 | | Load 0x3,0x4 00a3 581c |X | Indirect_Literal Float,0xc0,0.14285713561807167 00a4 e604 | | Load 0x3,0x4 00a5 5816 |X | Indirect_Literal Float,0xbc,0.11110736283514525 00a6 e604 | | Load 0x3,0x4 00a7 5810 |X | Indirect_Literal Float,0xb8,0.09002981028544978 00a8 023b | ; | Execute Float,Times 00a9 023c | < | Execute Float,Minus 00aa 023b | ; | Execute Float,Times 00ab 023c | < | Execute Float,Minus 00ac 023b | ; | Execute Float,Times 00ad 023c | < | Execute Float,Minus 00ae 023b | ; | Execute Float,Times 00af 023c | < | Execute Float,Minus 00b0 023b | ; | Execute Float,Times 00b1 023f | ? | Execute Float,Unary_Minus 00b2 0049 | I | Store_Top Float,At_Offset_1 00b3 00d8 | | Load_Top At_Offset_0 00b4 c402 | | Store 0x2,0x2 00b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b6 0000 0000 | | .XXX[0x2] 00b8 3fb7 0c31 |? 1| .DBL 0.09002981028544978 00ba 92d7 51c1 | Q | 00bc 3fbc 7188 |? q | .DBL 0.11110736283514525 00be 39b8 c4ea |9 | 00c0 3fc2 4924 |? I$| .DBL 0.14285713561807167 00c2 82bd 6be0 | k | 00c4 3fc9 9999 |? | .DBL 0.19999999999393223 00c6 9996 43a3 | C | 00c8 3fd5 5555 |? UU| .DBL 0.33333333333333165 00ca 5555 5537 |UUU7| 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e1 | | .CONST 0x00e1 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0005 | | .CONST 0x0005 ; Number of locals 00d3 INIT_00d0: 00d3 00e6 | | Load_Encached Float_Cache 00d4 0241 | A | Execute Float,First 00d5 00e6 | | Load_Encached Float_Cache 00d6 0240 | @ | Execute Float,Last 00d7 00e6 | | Load_Encached Float_Cache 00d8 03e3 | | Declare_Type Float,Constrained 00d9 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 00db 00d9 | | Load_Top At_Offset_1 00dc 012a | * | Execute Any,Change_Utility 00dd 0007 | | Action Break_Optional 00de 00d8 | | Load_Top At_Offset_0 00df 03d8 | | Declare_Variable Float,Duplicate 00e0 03d8 | | Declare_Variable Float,Duplicate 00e1 BODY_00d0: 00e1 e5ff | | Load 0x2,-0x1 00e2 00d8 | | Load_Top At_Offset_0 00e3 e602 | | Load 0x3,0x2 00e4 0234 | 4 | Execute Float,In_Type 00e5 7001 |p | Jump_Nonzero 0xe7 00e6 0801 | | Execute_Immediate Raise,0x1 00e7 0043 | C | Store_Top_Uncheched Float,At_Offset_3 00e8 00da | | Load_Top At_Offset_2 00e9 00db | | Load_Top At_Offset_3 00ea 023b | ; | Execute Float,Times 00eb 004a | J | Store_Top Float,At_Offset_2 00ec 00da | | Load_Top At_Offset_2 00ed 00da | | Load_Top At_Offset_2 00ee 023b | ; | Execute Float,Times 00ef 5fd8 |_ | Indirect_Literal Float,0xc8,0.33333333333333165 00f0 00db | | Load_Top At_Offset_3 00f1 5fd2 |_ | Indirect_Literal Float,0xc4,0.19999999999393223 00f2 e604 | | Load 0x3,0x4 00f3 5fcc |_ | Indirect_Literal Float,0xc0,0.14285713561807167 00f4 e604 | | Load 0x3,0x4 00f5 5fc6 |_ | Indirect_Literal Float,0xbc,0.11110736283514525 00f6 e604 | | Load 0x3,0x4 00f7 5fc0 |_ | Indirect_Literal Float,0xb8,0.09002981028544978 00f8 023b | ; | Execute Float,Times 00f9 023c | < | Execute Float,Minus 00fa 023b | ; | Execute Float,Times 00fb 023c | < | Execute Float,Minus 00fc 023b | ; | Execute Float,Times 00fd 023c | < | Execute Float,Minus 00fe 023b | ; | Execute Float,Times 00ff 023c | < | Execute Float,Minus 0100 023b | ; | Execute Float,Times 0101 023f | ? | Execute Float,Unary_Minus 0102 0049 | I | Store_Top Float,At_Offset_1 0103 00d8 | | Load_Top At_Offset_0 0104 c402 | | Store 0x2,0x2 0105 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0119 | | .CONST 0x0119 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0005 | | .CONST 0x0005 ; Number of locals 010b INIT_0108: 010b 00e6 | | Load_Encached Float_Cache 010c 0241 | A | Execute Float,First 010d 00e6 | | Load_Encached Float_Cache 010e 0240 | @ | Execute Float,Last 010f 00e6 | | Load_Encached Float_Cache 0110 03e3 | | Declare_Type Float,Constrained 0111 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call 0113 00d9 | | Load_Top At_Offset_1 0114 012a | * | Execute Any,Change_Utility 0115 0007 | | Action Break_Optional 0116 00d8 | | Load_Top At_Offset_0 0117 03d8 | | Declare_Variable Float,Duplicate 0118 03d8 | | Declare_Variable Float,Duplicate 0119 BODY_0108: 0119 e5ff | | Load 0x2,-0x1 011a 00d8 | | Load_Top At_Offset_0 011b e602 | | Load 0x3,0x2 011c 0234 | 4 | Execute Float,In_Type 011d 7001 |p | Jump_Nonzero 0x11f 011e 0801 | | Execute_Immediate Raise,0x1 011f 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0120 00da | | Load_Top At_Offset_2 0121 00db | | Load_Top At_Offset_3 0122 023b | ; | Execute Float,Times 0123 004a | J | Store_Top Float,At_Offset_2 0124 00da | | Load_Top At_Offset_2 0125 00da | | Load_Top At_Offset_2 0126 023b | ; | Execute Float,Times 0127 5830 |X0 | Indirect_Literal Float,0x158,0.3333333333333333 0128 00db | | Load_Top At_Offset_3 0129 582a |X* | Indirect_Literal Float,0x154,0.19999999999999 012a e604 | | Load 0x3,0x4 012b 5824 |X$ | Indirect_Literal Float,0x150,0.1428571428406748 012c e604 | | Load 0x3,0x4 012d 581e |X | Indirect_Literal Float,0x14c,0.11111109864597904 012e e604 | | Load 0x3,0x4 012f 5818 |X | Indirect_Literal Float,0x148,0.09090431858097447 0130 e604 | | Load 0x3,0x4 0131 5812 |X | Indirect_Literal Float,0x144,0.07602322269400384 0132 023b | ; | Execute Float,Times 0133 023c | < | Execute Float,Minus 0134 023b | ; | Execute Float,Times 0135 023c | < | Execute Float,Minus 0136 023b | ; | Execute Float,Times 0137 023c | < | Execute Float,Minus 0138 023b | ; | Execute Float,Times 0139 023c | < | Execute Float,Minus 013a 023b | ; | Execute Float,Times 013b 023c | < | Execute Float,Minus 013c 023b | ; | Execute Float,Times 013d 023f | ? | Execute Float,Unary_Minus 013e 0049 | I | Store_Top Float,At_Offset_1 013f 00d8 | | Load_Top At_Offset_0 0140 c402 | | Store 0x2,0x2 0141 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0142 0000 0000 | | .XXX[0x2] 0144 3fb3 7642 |? vB| .DBL 0.07602322269400384 0146 0735 0fbf | 5 | 0148 3fb7 4581 |? E | .DBL 0.09090431858097447 014a 635e d5d8 |c^ | 014c 3fbc 71c6 |? q | .DBL 0.11111109864597904 014e e6e8 385a | 8Z| 0150 3fc2 4924 |? I$| .DBL 0.1428571428406748 0152 9240 16e6 | @ | 0154 3fc9 9999 |? | .DBL 0.19999999999999 0156 9999 9831 | 1| 0158 3fd5 5555 |? UU| .DBL 0.3333333333333333 015a 5555 5555 |UUUU| 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0171 | q | .CONST 0x0171 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0005 | | .CONST 0x0005 ; Number of locals 0163 INIT_0160: 0163 00e6 | | Load_Encached Float_Cache 0164 0241 | A | Execute Float,First 0165 00e6 | | Load_Encached Float_Cache 0166 0240 | @ | Execute Float,Last 0167 00e6 | | Load_Encached Float_Cache 0168 03e3 | | Declare_Type Float,Constrained 0169 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 016b 00d9 | | Load_Top At_Offset_1 016c 012a | * | Execute Any,Change_Utility 016d 0007 | | Action Break_Optional 016e 00d8 | | Load_Top At_Offset_0 016f 03d8 | | Declare_Variable Float,Duplicate 0170 03d8 | | Declare_Variable Float,Duplicate 0171 BODY_0160: 0171 e5ff | | Load 0x2,-0x1 0172 00d8 | | Load_Top At_Offset_0 0173 e602 | | Load 0x3,0x2 0174 0234 | 4 | Execute Float,In_Type 0175 7001 |p | Jump_Nonzero 0x177 0176 0801 | | Execute_Immediate Raise,0x1 0177 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0178 00da | | Load_Top At_Offset_2 0179 00db | | Load_Top At_Offset_3 017a 023b | ; | Execute Float,Times 017b 004a | J | Store_Top Float,At_Offset_2 017c 00da | | Load_Top At_Offset_2 017d 00da | | Load_Top At_Offset_2 017e 023b | ; | Execute Float,Times 017f 5fd8 |_ | Indirect_Literal Float,0x158,0.3333333333333333 0180 00db | | Load_Top At_Offset_3 0181 5842 |XB | Indirect_Literal Float,0x1c4,0.19999999999999998 0182 e604 | | Load 0x3,0x4 0183 583c |X< | Indirect_Literal Float,0x1c0,0.14285714285714285 0184 e604 | | Load 0x3,0x4 0185 5836 |X6 | Indirect_Literal Float,0x1bc,0.11111111111111094 0186 e604 | | Load 0x3,0x4 0187 5830 |X0 | Indirect_Literal Float,0x1b8,0.0909090909089284 0188 e604 | | Load 0x3,0x4 0189 582a |X* | Indirect_Literal Float,0x1b4,0.07692307682736185 018a e604 | | Load 0x3,0x4 018b 5824 |X$ | Indirect_Literal Float,0x1b0,0.06666663192872317 018c e604 | | Load 0x3,0x4 018d 581e |X | Indirect_Literal Float,0x1ac,0.058815928810683094 018e e604 | | Load 0x3,0x4 018f 5818 |X | Indirect_Literal Float,0x1a8,0.05171122330764825 0190 023b | ; | Execute Float,Times 0191 023c | < | Execute Float,Minus 0192 023b | ; | Execute Float,Times 0193 023c | < | Execute Float,Minus 0194 023b | ; | Execute Float,Times 0195 023c | < | Execute Float,Minus 0196 023b | ; | Execute Float,Times 0197 023c | < | Execute Float,Minus 0198 023b | ; | Execute Float,Times 0199 023c | < | Execute Float,Minus 019a 023b | ; | Execute Float,Times 019b 023c | < | Execute Float,Minus 019c 023b | ; | Execute Float,Times 019d 023c | < | Execute Float,Minus 019e 023b | ; | Execute Float,Times 019f 023c | < | Execute Float,Minus 01a0 023b | ; | Execute Float,Times 01a1 023f | ? | Execute Float,Unary_Minus 01a2 0049 | I | Store_Top Float,At_Offset_1 01a3 00d8 | | Load_Top At_Offset_0 01a4 c402 | | Store 0x2,0x2 01a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a6 0000 0000 | | .XXX[0x2] 01a8 3faa 79e4 |? y | .DBL 0.05171122330764825 01aa b9e2 8fa5 | | 01ac 3fae 1d1f |? | .DBL 0.058815928810683094 01ae 1573 9540 | s @| 01b0 3fb1 1110 |? | .DBL 0.06666663192872317 01b2 7bde 4b3b |{ K;| 01b4 3fb3 b13b |? ;| .DBL 0.07692307682736185 01b6 1347 fdae | G | 01b8 3fb7 45d1 |? E | .DBL 0.0909090909089284 01ba 745c e988 |t\ | 01bc 3fbc 71c7 |? q | .DBL 0.11111111111111094 01be 1c71 c710 | q | 01c0 3fc2 4924 |? I$| .DBL 0.14285714285714285 01c2 9249 2492 | I$ | 01c4 3fc9 9999 |? | .DBL 0.19999999999999998 01c6 9999 9999 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d9 | | .CONST 0x01d9 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0005 | | .CONST 0x0005 ; 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 03d8 | | Declare_Variable Float,Duplicate 01d9 BODY_01c8: 01d9 e5ff | | Load 0x2,-0x1 01da 00d8 | | Load_Top At_Offset_0 01db e602 | | Load 0x3,0x2 01dc 0234 | 4 | Execute Float,In_Type 01dd 7001 |p | Jump_Nonzero 0x1df 01de 0801 | | Execute_Immediate Raise,0x1 01df 0043 | C | Store_Top_Uncheched Float,At_Offset_3 01e0 00da | | Load_Top At_Offset_2 01e1 00db | | Load_Top At_Offset_3 01e2 023b | ; | Execute Float,Times 01e3 004a | J | Store_Top Float,At_Offset_2 01e4 00da | | Load_Top At_Offset_2 01e5 00da | | Load_Top At_Offset_2 01e6 023b | ; | Execute Float,Times 01e7 5850 |XP | Indirect_Literal Float,0x238,0.3333333333333333 01e8 00db | | Load_Top At_Offset_3 01e9 5fda |_ | Indirect_Literal Float,0x1c4,0.19999999999999998 01ea e604 | | Load 0x3,0x4 01eb 5fd4 |_ | Indirect_Literal Float,0x1c0,0.14285714285714285 01ec e604 | | Load 0x3,0x4 01ed 5846 |XF | Indirect_Literal Float,0x234,0.1111111111111111 01ee e604 | | Load 0x3,0x4 01ef 5840 |X@ | Indirect_Literal Float,0x230,0.0909090909090909 01f0 e604 | | Load 0x3,0x4 01f1 583a |X: | Indirect_Literal Float,0x22c,0.0769230769230761 01f2 e604 | | Load 0x3,0x4 01f3 5834 |X4 | Indirect_Literal Float,0x228,0.06666666666616515 01f4 e604 | | Load 0x3,0x4 01f5 582e |X. | Indirect_Literal Float,0x224,0.0588235292068496 01f6 e604 | | Load 0x3,0x4 01f7 5828 |X( | Indirect_Literal Float,0x220,0.05263152374603569 01f8 e604 | | Load 0x3,0x4 01f9 5822 |X" | Indirect_Literal Float,0x21c,0.04760962465862135 01fa e604 | | Load 0x3,0x4 01fb 581c |X | Indirect_Literal Float,0x218,0.04255342964372181 01fc 023b | ; | Execute Float,Times 01fd 023c | < | Execute Float,Minus 01fe 023b | ; | Execute Float,Times 01ff 023c | < | Execute Float,Minus 0200 023b | ; | Execute Float,Times 0201 023c | < | Execute Float,Minus 0202 023b | ; | Execute Float,Times 0203 023c | < | Execute Float,Minus 0204 023b | ; | Execute Float,Times 0205 023c | < | Execute Float,Minus 0206 023b | ; | Execute Float,Times 0207 023c | < | Execute Float,Minus 0208 023b | ; | Execute Float,Times 0209 023c | < | Execute Float,Minus 020a 023b | ; | Execute Float,Times 020b 023c | < | Execute Float,Minus 020c 023b | ; | Execute Float,Times 020d 023c | < | Execute Float,Minus 020e 023b | ; | Execute Float,Times 020f 023c | < | Execute Float,Minus 0210 023b | ; | Execute Float,Times 0211 023f | ? | Execute Float,Unary_Minus 0212 0049 | I | Store_Top Float,At_Offset_1 0213 00d8 | | Load_Top At_Offset_0 0214 c402 | | Store 0x2,0x2 0215 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0216 0000 0000 | | .XXX[0x2] 0218 3fa5 c990 |? | .DBL 0.04255342964372181 021a 294e 0a45 |)N E| 021c 3fa8 6049 |? `I| .DBL 0.04760962465862135 021e e9c4 6909 | i | 0220 3faa f284 |? | .DBL 0.05263152374603569 0222 e274 ab78 | t x| 0224 3fae 1e1e |? | .DBL 0.0588235292068496 0226 1c5b 812b | [ +| 0228 3fb1 1111 |? | .DBL 0.06666666666616515 022a 1110 83e7 | | 022c 3fb3 b13b |? ;| .DBL 0.0769230769230761 022e 13b1 3ad8 | : | 0230 3fb7 45d1 |? E | .DBL 0.0909090909090909 0232 745d 1745 |t] E| 0234 3fbc 71c7 |? q | .DBL 0.1111111111111111 0236 1c71 c71c | q | 0238 3fd5 5555 |? UU| .DBL 0.3333333333333333 023a 5555 5555 |UUUU| 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,0x8f1b,0x0000,0x0001,0x0000 02a6 0000 0000 | | .BLANK 0000[0x6f] 0315 0020 | | .XXX[0x1] 0316 0000 0000 | | .BLANK 0000[0x5] 031b 0840 0000 | @ | .XXX[0x9e] 031d 0100 0000 | | 031f 0100 0100 | | 0321 0000 0000 | | 0323 0d00 0000 | | 0325 0600 0000 | | 0327 0400 0400 | | 0329 0000 0000 | | 032b 3800 0000 |8 | 032d 2000 0000 | | 032f 1000 1000 | | 0331 0000 0000 | | 0333 f000 0000 | | 0335 a000 0000 | | 0337 4000 4000 |@ @ | 0339 0000 0004 | | 033b 0000 0003 | | 033d 0000 0001 | | 033f 0001 0000 | | 0341 0000 0011 | | 0343 0000 000e | | 0345 0000 0004 | | 0347 0004 0000 | | 0349 0000 0048 | H| 034b 0000 0040 | @| 034d 0000 0010 | | 034f 0010 0000 | | 0351 0000 0130 | 0| 0353 0000 0120 | | 0355 0000 0040 | @| 0357 0040 0000 | @ | 0359 0000 0500 | | 035b 0000 0500 | | 035d 0000 0100 | | 035f 0100 0000 | | 0361 0000 1500 | | 0363 0000 1600 | | 0365 0000 0400 | | 0367 0400 0000 | | 0369 0000 5800 | X | 036b 0000 6000 | ` | 036d 0000 1000 | | 036f 1000 0000 | | 0371 0001 7000 | p | 0373 0001 a000 | | 0375 0000 4000 | @ | 0377 4000 0000 |@ | 0379 0006 0000 | | 037b 0007 0000 | | 037d 0001 0001 | | 037f 0000 0000 | | 0381 0019 0000 | | 0383 001e 0000 | | 0385 0004 0004 | | 0387 0000 0000 | | 0389 0068 0000 | h | 038b 0080 0000 | | 038d 0010 0010 | | 038f 0000 0000 | | 0391 01b0 0000 | | 0393 0220 0000 | | 0395 0040 0040 | @ @| 0397 0000 0000 | | 0399 0700 0000 | | 039b 0900 0000 | | 039d 0100 0100 | | 039f 0000 0000 | | 03a1 1d00 0000 | | 03a3 2600 0000 |& | 03a5 0400 0400 | | 03a7 0000 0000 | | 03a9 7800 0000 |x | 03ab a000 0000 | | 03ad 1000 1000 | | 03af 0000 0001 | | 03b1 f000 0002 | | 03b3 a000 0000 | | 03b5 4000 4000 |@ @ | 03b7 0000 0008 | | 03b9 0000 0000 | | .BLANK 0000[0x47]