|
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 0318 | | .CONST 0x0318 ; 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 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0012 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0014 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0016 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0018 029f 023b | ;| Declare_Subprogram INIT_0238,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 0061 | a | .CONST 0x0061 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0005 | | .CONST 0x0005 ; 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 02bb | | Declare_Subprogram INIT_02b8,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 03d8 | | Declare_Variable Float,Duplicate 0061 BODY_0050: 0061 e402 | | Load 0x2,0x2 0062 e403 | | Load 0x2,0x3 0063 023d | = | Execute Float,Plus 0064 00d8 | | Load_Top At_Offset_0 0065 e602 | | Load 0x3,0x2 0066 0234 | 4 | Execute Float,In_Type 0067 7001 |p | Jump_Nonzero 0x69 0068 0801 | | Execute_Immediate Raise,0x1 0069 0043 | C | Store_Top_Uncheched Float,At_Offset_3 006a 00da | | Load_Top At_Offset_2 006b 00db | | Load_Top At_Offset_3 006c 023b | ; | Execute Float,Times 006d 004a | J | Store_Top Float,At_Offset_2 006e 00d9 | | Load_Top At_Offset_1 006f 5828 |X( | Indirect_Literal Float,0x98,0.16666662689999998 0070 00db | | Load_Top At_Offset_3 0071 5822 |X" | Indirect_Literal Float,0x94,0.008332937955 0072 e604 | | Load 0x3,0x4 0073 581c |X | Indirect_Literal Float,0x90,0.00019729494299999998 0074 e604 | | Load 0x3,0x4 0075 5816 |X | Indirect_Literal Float,0x8c,1.7898674839999998e-06 0076 023b | ; | Execute Float,Times 0077 023c | < | Execute Float,Minus 0078 023b | ; | Execute Float,Times 0079 023c | < | Execute Float,Minus 007a 023b | ; | Execute Float,Times 007b 023c | < | Execute Float,Minus 007c 023b | ; | Execute Float,Times 007d 0049 | I | Store_Top Float,At_Offset_1 007e e402 | | Load 0x2,0x2 007f e403 | | Load 0x2,0x3 0080 e402 | | Load 0x2,0x2 0081 e403 | | Load 0x2,0x3 0082 023d | = | Execute Float,Plus 0083 00db | | Load_Top At_Offset_3 0084 023b | ; | Execute Float,Times 0085 023c | < | Execute Float,Minus 0086 023d | = | Execute Float,Plus 0087 c404 | | Store 0x2,0x4 0088 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0089 0000 0000 | | .XXX[0x3] 008b 0000 | | 008c 3ebe 076c |> l| .DBL 1.7898674839999998e-06 008e 1c5f c26c | _ l| 0090 3f29 dc1e |?) | .DBL 0.00019729494299999998 0092 a7dc 1c43 | C| 0094 3f81 10db |? | .DBL 0.008332937955 0096 fff8 77bb | w | 0098 3fc5 5554 |? UT| .DBL 0.16666662689999998 009a ffef 608b | ` | 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00b1 | | .CONST 0x00b1 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0005 | | .CONST 0x0005 ; Number of locals 00a3 INIT_00a0: 00a3 00e6 | | Load_Encached Float_Cache 00a4 0241 | A | Execute Float,First 00a5 00e6 | | Load_Encached Float_Cache 00a6 0240 | @ | Execute Float,Last 00a7 00e6 | | Load_Encached Float_Cache 00a8 03e3 | | Declare_Type Float,Constrained 00a9 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 00ab 00d9 | | Load_Top At_Offset_1 00ac 012a | * | Execute Any,Change_Utility 00ad 0007 | | Action Break_Optional 00ae 00d8 | | Load_Top At_Offset_0 00af 03d8 | | Declare_Variable Float,Duplicate 00b0 03d8 | | Declare_Variable Float,Duplicate 00b1 BODY_00a0: 00b1 e402 | | Load 0x2,0x2 00b2 e403 | | Load 0x2,0x3 00b3 023d | = | Execute Float,Plus 00b4 00d8 | | Load_Top At_Offset_0 00b5 e602 | | Load 0x3,0x2 00b6 0234 | 4 | Execute Float,In_Type 00b7 7001 |p | Jump_Nonzero 0xb9 00b8 0801 | | Execute_Immediate Raise,0x1 00b9 0043 | C | Store_Top_Uncheched Float,At_Offset_3 00ba 00da | | Load_Top At_Offset_2 00bb 00db | | Load_Top At_Offset_3 00bc 023b | ; | Execute Float,Times 00bd 004a | J | Store_Top Float,At_Offset_2 00be 00d9 | | Load_Top At_Offset_1 00bf 5840 |X@ | Indirect_Literal Float,0x100,0.1666666666666666 00c0 00db | | Load_Top At_Offset_3 00c1 583a |X: | Indirect_Literal Float,0xfc,0.008333333333332164 00c2 e604 | | Load 0x3,0x4 00c3 5834 |X4 | Indirect_Literal Float,0xf8,0.0001984126984004255 00c4 e604 | | Load 0x3,0x4 00c5 582e |X. | Indirect_Literal Float,0xf4,2.755731863010548e-06 00c6 e604 | | Load 0x3,0x4 00c7 5828 |X( | Indirect_Literal Float,0xf0,2.505196268354424e-08 00c8 e604 | | Load 0x3,0x4 00c9 5822 |X" | Indirect_Literal Float,0xec,1.604133183444283e-10 00ca e604 | | Load 0x3,0x4 00cb 581c |X | Indirect_Literal Float,0xe8,6.781012820360545e-13 00cc 023b | ; | Execute Float,Times 00cd 023c | < | Execute Float,Minus 00ce 023b | ; | Execute Float,Times 00cf 023c | < | Execute Float,Minus 00d0 023b | ; | Execute Float,Times 00d1 023c | < | Execute Float,Minus 00d2 023b | ; | Execute Float,Times 00d3 023c | < | Execute Float,Minus 00d4 023b | ; | Execute Float,Times 00d5 023c | < | Execute Float,Minus 00d6 023b | ; | Execute Float,Times 00d7 023c | < | Execute Float,Minus 00d8 023b | ; | Execute Float,Times 00d9 0049 | I | Store_Top Float,At_Offset_1 00da e402 | | Load 0x2,0x2 00db e403 | | Load 0x2,0x3 00dc e402 | | Load 0x2,0x2 00dd e403 | | Load 0x2,0x3 00de 023d | = | Execute Float,Plus 00df 00db | | Load_Top At_Offset_3 00e0 023b | ; | Execute Float,Times 00e1 023c | < | Execute Float,Minus 00e2 023d | = | Execute Float,Plus 00e3 c404 | | Store 0x2,0x4 00e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 3d67 dbcb |=g | .DBL 6.781012820360545e-13 00ea 19c8 e560 | `| 00ec 3de6 0c0a |= | .DBL 1.604133183444283e-10 00ee b8b0 740d | t | 00f0 3e5a e63b |>Z ;| .DBL 2.505196268354424e-08 00f2 2739 dd9a |'9 | 00f4 3ec7 1de3 |> | .DBL 2.755731863010548e-06 00f6 9cfb 1934 | 4| 00f8 3f2a 01a0 |?* | .DBL 0.0001984126984004255 00fa 19fa b763 | c| 00fc 3f81 1111 |? | .DBL 0.008333333333332164 00fe 1111 0e6f | o| 0100 3fc5 5555 |? UU| .DBL 0.1666666666666666 0102 5555 5553 |UUUS| 0104 0000 0000 | | .BLANK 0000[0x4] 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 02db | | Declare_Subprogram INIT_02d8,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 e402 | | Load 0x2,0x2 011a e403 | | Load 0x2,0x3 011b 023d | = | Execute Float,Plus 011c 00d8 | | Load_Top At_Offset_0 011d e602 | | Load 0x3,0x2 011e 0234 | 4 | Execute Float,In_Type 011f 7001 |p | Jump_Nonzero 0x121 0120 0801 | | Execute_Immediate Raise,0x1 0121 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0122 00da | | Load_Top At_Offset_2 0123 00db | | Load_Top At_Offset_3 0124 023b | ; | Execute Float,Times 0125 004a | J | Store_Top Float,At_Offset_2 0126 00d9 | | Load_Top At_Offset_1 0127 5fd8 |_ | Indirect_Literal Float,0x100,0.1666666666666666 0128 00db | | Load_Top At_Offset_3 0129 5fd2 |_ | Indirect_Literal Float,0xfc,0.008333333333332164 012a e604 | | Load 0x3,0x4 012b 5fcc |_ | Indirect_Literal Float,0xf8,0.0001984126984004255 012c e604 | | Load 0x3,0x4 012d 5fc6 |_ | Indirect_Literal Float,0xf4,2.755731863010548e-06 012e e604 | | Load 0x3,0x4 012f 5fc0 |_ | Indirect_Literal Float,0xf0,2.505196268354424e-08 0130 e604 | | Load 0x3,0x4 0131 5fba |_ | Indirect_Literal Float,0xec,1.604133183444283e-10 0132 e604 | | Load 0x3,0x4 0133 5fb4 |_ | Indirect_Literal Float,0xe8,6.781012820360545e-13 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 023c | < | Execute Float,Minus 013e 023b | ; | Execute Float,Times 013f 023c | < | Execute Float,Minus 0140 023b | ; | Execute Float,Times 0141 0049 | I | Store_Top Float,At_Offset_1 0142 e402 | | Load 0x2,0x2 0143 e403 | | Load 0x2,0x3 0144 e402 | | Load 0x2,0x2 0145 e403 | | Load 0x2,0x3 0146 023d | = | Execute Float,Plus 0147 00db | | Load_Top At_Offset_3 0148 023b | ; | Execute Float,Times 0149 023c | < | Execute Float,Minus 014a 023d | = | Execute Float,Plus 014b c404 | | Store 0x2,0x4 014c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0161 | a | .CONST 0x0161 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0005 | | .CONST 0x0005 ; Number of locals 0153 INIT_0150: 0153 00e6 | | Load_Encached Float_Cache 0154 0241 | A | Execute Float,First 0155 00e6 | | Load_Encached Float_Cache 0156 0240 | @ | Execute Float,Last 0157 00e6 | | Load_Encached Float_Cache 0158 03e3 | | Declare_Type Float,Constrained 0159 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 015b 00d9 | | Load_Top At_Offset_1 015c 012a | * | Execute Any,Change_Utility 015d 0007 | | Action Break_Optional 015e 00d8 | | Load_Top At_Offset_0 015f 03d8 | | Declare_Variable Float,Duplicate 0160 03d8 | | Declare_Variable Float,Duplicate 0161 BODY_0150: 0161 e402 | | Load 0x2,0x2 0162 e403 | | Load 0x2,0x3 0163 023d | = | Execute Float,Plus 0164 00d8 | | Load_Top At_Offset_0 0165 e602 | | Load 0x3,0x2 0166 0234 | 4 | Execute Float,In_Type 0167 7001 |p | Jump_Nonzero 0x169 0168 0801 | | Execute_Immediate Raise,0x1 0169 0043 | C | Store_Top_Uncheched Float,At_Offset_3 016a 00da | | Load_Top At_Offset_2 016b 00db | | Load_Top At_Offset_3 016c 023b | ; | Execute Float,Times 016d 004a | J | Store_Top Float,At_Offset_2 016e 00d9 | | Load_Top At_Offset_1 016f 5848 |XH | Indirect_Literal Float,0x1b8,0.16666666666666666 0170 00db | | Load_Top At_Offset_3 0171 5842 |XB | Indirect_Literal Float,0x1b4,0.008333333333333331 0172 e604 | | Load 0x3,0x4 0173 583c |X< | Indirect_Literal Float,0x1b0,0.0001984126984126774 0174 e604 | | Load 0x3,0x4 0175 5836 |X6 | Indirect_Literal Float,0x1ac,2.75573192225915e-06 0176 e604 | | Load 0x3,0x4 0177 5830 |X0 | Indirect_Literal Float,0x1a8,2.5052107889643872e-08 0178 e604 | | Load 0x3,0x4 0179 582a |X* | Indirect_Literal Float,0x1a4,1.6058946779624762e-10 017a e604 | | Load 0x3,0x4 017b 5824 |X$ | Indirect_Literal Float,0x1a0,7.637269506697078e-13 017c e604 | | Load 0x3,0x4 017d 581e |X | Indirect_Literal Float,0x19c,2.3950006743059353e-15 017e 023b | ; | Execute Float,Times 017f 023c | < | Execute Float,Minus 0180 023b | ; | Execute Float,Times 0181 023c | < | Execute Float,Minus 0182 023b | ; | Execute Float,Times 0183 023c | < | Execute Float,Minus 0184 023b | ; | Execute Float,Times 0185 023c | < | Execute Float,Minus 0186 023b | ; | Execute Float,Times 0187 023c | < | Execute Float,Minus 0188 023b | ; | Execute Float,Times 0189 023c | < | Execute Float,Minus 018a 023b | ; | Execute Float,Times 018b 023c | < | Execute Float,Minus 018c 023b | ; | Execute Float,Times 018d 0049 | I | Store_Top Float,At_Offset_1 018e e402 | | Load 0x2,0x2 018f e403 | | Load 0x2,0x3 0190 e402 | | Load 0x2,0x2 0191 e403 | | Load 0x2,0x3 0192 023d | = | Execute Float,Plus 0193 00db | | Load_Top At_Offset_3 0194 023b | ; | Execute Float,Times 0195 023c | < | Execute Float,Minus 0196 023d | = | Execute Float,Plus 0197 c404 | | Store 0x2,0x4 0198 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0199 0000 0000 | | .XXX[0x3] 019b 0000 | | 019c 3ce5 927e |< ~| .DBL 2.3950006743059353e-15 019e dd25 366a | %6j| 01a0 3d6a df0a |=j | .DBL 7.637269506697078e-13 01a2 733d 050e |s= | 01a4 3de6 123d |= =| .DBL 1.6058946779624762e-10 01a6 55ab dbf8 |U | 01a8 3e5a e645 |>Z E| .DBL 2.5052107889643872e-08 01aa 5f06 ce1b |_ | 01ac 3ec7 1de3 |> | .DBL 2.75573192225915e-06 01ae a551 c11a | Q | 01b0 3f2a 01a0 |?* | .DBL 0.0001984126984126774 01b2 1a01 9d13 | | 01b4 3f81 1111 |? | .DBL 0.008333333333333331 01b6 1111 1110 | | 01b8 3fc5 5555 |? UU| .DBL 0.16666666666666666 01ba 5555 5555 |UUUU| 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01d1 | | .CONST 0x01d1 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0005 | | .CONST 0x0005 ; Number of locals 01c3 INIT_01c0: 01c3 00e6 | | Load_Encached Float_Cache 01c4 0241 | A | Execute Float,First 01c5 00e6 | | Load_Encached Float_Cache 01c6 0240 | @ | Execute Float,Last 01c7 00e6 | | Load_Encached Float_Cache 01c8 03e3 | | Declare_Type Float,Constrained 01c9 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 01cb 00d9 | | Load_Top At_Offset_1 01cc 012a | * | Execute Any,Change_Utility 01cd 0007 | | Action Break_Optional 01ce 00d8 | | Load_Top At_Offset_0 01cf 03d8 | | Declare_Variable Float,Duplicate 01d0 03d8 | | Declare_Variable Float,Duplicate 01d1 BODY_01c0: 01d1 e402 | | Load 0x2,0x2 01d2 e403 | | Load 0x2,0x3 01d3 023d | = | Execute Float,Plus 01d4 00d8 | | Load_Top At_Offset_0 01d5 e602 | | Load 0x3,0x2 01d6 0234 | 4 | Execute Float,In_Type 01d7 7001 |p | Jump_Nonzero 0x1d9 01d8 0801 | | Execute_Immediate Raise,0x1 01d9 0043 | C | Store_Top_Uncheched Float,At_Offset_3 01da 00da | | Load_Top At_Offset_2 01db 00db | | Load_Top At_Offset_3 01dc 023b | ; | Execute Float,Times 01dd 004a | J | Store_Top Float,At_Offset_2 01de 00d9 | | Load_Top At_Offset_1 01df 5fd8 |_ | Indirect_Literal Float,0x1b8,0.16666666666666666 01e0 00db | | Load_Top At_Offset_3 01e1 5852 |XR | Indirect_Literal Float,0x234,0.008333333333333333 01e2 e604 | | Load 0x3,0x4 01e3 584c |XL | Indirect_Literal Float,0x230,0.0001984126984126984 01e4 e604 | | Load 0x3,0x4 01e5 5846 |XF | Indirect_Literal Float,0x22c,2.755731922398589e-06 01e6 e604 | | Load 0x3,0x4 01e7 5840 |X@ | Indirect_Literal Float,0x228,2.505210838544171e-08 01e8 e604 | | Load 0x3,0x4 01e9 583a |X: | Indirect_Literal Float,0x224,1.6059043836818545e-10 01ea e604 | | Load 0x3,0x4 01eb 5834 |X4 | Indirect_Literal Float,0x220,7.647163730910639e-13 01ec e604 | | Load 0x3,0x4 01ed 582e |X. | Indirect_Literal Float,0x21c,2.811457081793211e-15 01ee e604 | | Load 0x3,0x4 01ef 5828 |X( | Indirect_Literal Float,0x218,8.220432293080443e-18 01f0 e604 | | Load 0x3,0x4 01f1 5822 |X" | Indirect_Literal Float,0x214,1.9438178329937462e-20 01f2 023b | ; | Execute Float,Times 01f3 023c | < | Execute Float,Minus 01f4 023b | ; | Execute Float,Times 01f5 023c | < | Execute Float,Minus 01f6 023b | ; | Execute Float,Times 01f7 023c | < | Execute Float,Minus 01f8 023b | ; | Execute Float,Times 01f9 023c | < | Execute Float,Minus 01fa 023b | ; | Execute Float,Times 01fb 023c | < | Execute Float,Minus 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 0049 | I | Store_Top Float,At_Offset_1 0206 e402 | | Load 0x2,0x2 0207 e403 | | Load 0x2,0x3 0208 e402 | | Load 0x2,0x2 0209 e403 | | Load 0x2,0x3 020a 023d | = | Execute Float,Plus 020b 00db | | Load_Top At_Offset_3 020c 023b | ; | Execute Float,Times 020d 023c | < | Execute Float,Minus 020e 023d | = | Execute Float,Plus 020f c404 | | Store 0x2,0x4 0210 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0211 0000 0000 | | .XXX[0x3] 0213 0000 | | 0214 3bd6 f2d4 |; | .DBL 1.9438178329937462e-20 0216 33ed 2783 |3 ' | 0218 3c62 f47c |<b || .DBL 8.220432293080443e-18 021a 9b1e b5e3 | | 021c 3ce9 52c7 |< R | .DBL 2.811457081793211e-15 021e 561d 61fc |V a | 0220 3d6a e7f3 |=j | .DBL 7.647163730910639e-13 0222 e725 fae9 | % | 0224 3de6 1246 |= F| .DBL 1.6059043836818545e-10 0226 13a8 6866 | hf| 0228 3e5a e645 |>Z E| .DBL 2.505210838544171e-08 022a 67f5 44e1 |g D | 022c 3ec7 1de3 |> | .DBL 2.755731922398589e-06 022e a556 c733 | V 3| 0230 3f2a 01a0 |?* | .DBL 0.0001984126984126984 0232 1a01 a01a | | 0234 3f81 1111 |? | .DBL 0.008333333333333333 0236 1111 1111 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0249 | I | .CONST 0x0249 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0005 | | .CONST 0x0005 ; Number of locals 023b INIT_0238: 023b 00e6 | | Load_Encached Float_Cache 023c 0241 | A | Execute Float,First 023d 00e6 | | Load_Encached Float_Cache 023e 0240 | @ | Execute Float,Last 023f 00e6 | | Load_Encached Float_Cache 0240 03e3 | | Declare_Type Float,Constrained 0241 029f 030b | | Declare_Subprogram INIT_0308,For_Call 0243 00d9 | | Load_Top At_Offset_1 0244 012a | * | Execute Any,Change_Utility 0245 0007 | | Action Break_Optional 0246 00d8 | | Load_Top At_Offset_0 0247 03d8 | | Declare_Variable Float,Duplicate 0248 03d8 | | Declare_Variable Float,Duplicate 0249 BODY_0238: 0249 e402 | | Load 0x2,0x2 024a e403 | | Load 0x2,0x3 024b 023d | = | Execute Float,Plus 024c 00d8 | | Load_Top At_Offset_0 024d e602 | | Load 0x3,0x2 024e 0234 | 4 | Execute Float,In_Type 024f 7001 |p | Jump_Nonzero 0x251 0250 0801 | | Execute_Immediate Raise,0x1 0251 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0252 00da | | Load_Top At_Offset_2 0253 00db | | Load_Top At_Offset_3 0254 023b | ; | Execute Float,Times 0255 004a | J | Store_Top Float,At_Offset_2 0256 00d9 | | Load_Top At_Offset_1 0257 585c |X\ | Indirect_Literal Float,0x2b4,0.16666666666666666 0258 00db | | Load_Top At_Offset_3 0259 5fda |_ | Indirect_Literal Float,0x234,0.008333333333333333 025a e604 | | Load 0x3,0x4 025b 5fd4 |_ | Indirect_Literal Float,0x230,0.0001984126984126984 025c e604 | | Load 0x3,0x4 025d 5fce |_ | Indirect_Literal Float,0x22c,2.755731922398589e-06 025e e604 | | Load 0x3,0x4 025f 5850 |XP | Indirect_Literal Float,0x2b0,2.5052108385441717e-08 0260 e604 | | Load 0x3,0x4 0261 584a |XJ | Indirect_Literal Float,0x2ac,1.6059043836821613e-10 0262 e604 | | Load 0x3,0x4 0263 5844 |XD | Indirect_Literal Float,0x2a8,7.647163731819812e-13 0264 e604 | | Load 0x3,0x4 0265 583e |X> | Indirect_Literal Float,0x2a4,2.8114572543444505e-15 0266 e604 | | Load 0x3,0x4 0267 5838 |X8 | Indirect_Literal Float,0x2a0,8.220635244690722e-18 0268 e604 | | Load 0x3,0x4 0269 5832 |X2 | Indirect_Literal Float,0x29c,1.957293878249404e-20 026a e604 | | Load 0x3,0x4 026b 582c |X, | Indirect_Literal Float,0x298,3.8680051543755155e-23 026c e604 | | Load 0x3,0x4 026d 5826 |X& | Indirect_Literal Float,0x294,6.383099586870782e-26 026e 023b | ; | Execute Float,Times 026f 023c | < | Execute Float,Minus 0270 023b | ; | Execute Float,Times 0271 023c | < | Execute Float,Minus 0272 023b | ; | Execute Float,Times 0273 023c | < | Execute Float,Minus 0274 023b | ; | Execute Float,Times 0275 023c | < | Execute Float,Minus 0276 023b | ; | Execute Float,Times 0277 023c | < | Execute Float,Minus 0278 023b | ; | Execute Float,Times 0279 023c | < | Execute Float,Minus 027a 023b | ; | Execute Float,Times 027b 023c | < | Execute Float,Minus 027c 023b | ; | Execute Float,Times 027d 023c | < | Execute Float,Minus 027e 023b | ; | Execute Float,Times 027f 023c | < | Execute Float,Minus 0280 023b | ; | Execute Float,Times 0281 023c | < | Execute Float,Minus 0282 023b | ; | Execute Float,Times 0283 023c | < | Execute Float,Minus 0284 023b | ; | Execute Float,Times 0285 0049 | I | Store_Top Float,At_Offset_1 0286 e402 | | Load 0x2,0x2 0287 e403 | | Load 0x2,0x3 0288 e402 | | Load 0x2,0x2 0289 e403 | | Load 0x2,0x3 028a 023d | = | Execute Float,Plus 028b 00db | | Load_Top At_Offset_3 028c 023b | ; | Execute Float,Times 028d 023c | < | Execute Float,Minus 028e 023d | = | Execute Float,Plus 028f c404 | | Store 0x2,0x4 0290 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0291 0000 0000 | | .XXX[0x3] 0293 0000 | | 0294 3ab3 c136 |: 6| .DBL 6.383099586870782e-26 0296 6753 848b |gS | 0298 3b47 6172 |;Gar| .DBL 3.8680051543755155e-23 029a b473 4d74 | sMt| 029c 3bd7 1b8e |; | .DBL 1.957293878249404e-20 029e c9af 6f93 | o | 02a0 3c62 f49b |<b | .DBL 8.220635244690722e-18 02a2 466e 1b10 |Fn | 02a4 3ce9 52c7 |< R | .DBL 2.8114572543444505e-15 02a6 7030 a2b1 |p0 | 02a8 3d6a e7f3 |=j | .DBL 7.647163731819812e-13 02aa e733 b81b | 3 | 02ac 3de6 1246 |= F| .DBL 1.6059043836821613e-10 02ae 13a8 6d09 | m | 02b0 3e5a e645 |>Z E| .DBL 2.5052108385441717e-08 02b2 67f5 44e3 |g D | 02b4 3fc5 5555 |? UU| .DBL 0.16666666666666666 02b6 5555 5555 |UUUU| 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 4601 |F | Jump_Case 0x2 02bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02bd 7801 |x | Jump 0x2bf ; case 0x1 02be 4302 |C | .XXX[0x1] 02bf 4806 |H | Short_Literal 0x6 02c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c1 0000 0000 | | .BLANK 0000[0x7] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 4601 |F | Jump_Case 0x2 02cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02cd 7801 |x | Jump 0x2cf ; case 0x1 02ce 4302 |C | .XXX[0x1] 02cf 480f |H | Short_Literal 0xf 02d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02d1 0000 0000 | | .BLANK 0000[0x7] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 4601 |F | Jump_Case 0x2 02dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02dd 7801 |x | Jump 0x2df ; case 0x1 02de 4302 |C | .XXX[0x1] 02df 480f |H | Short_Literal 0xf 02e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02e1 0000 0000 | | .BLANK 0000[0x7] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 4601 |F | Jump_Case 0x2 02ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02ed 7801 |x | Jump 0x2ef ; case 0x1 02ee 4302 |C | .XXX[0x1] 02ef 480f |H | Short_Literal 0xf 02f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02f1 0000 0000 | | .BLANK 0000[0x7] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 4601 |F | Jump_Case 0x2 02fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02fd 7801 |x | Jump 0x2ff ; case 0x1 02fe 4302 |C | .XXX[0x1] 02ff 480f |H | Short_Literal 0xf 0300 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0301 0000 0000 | | .BLANK 0000[0x7] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4601 |F | Jump_Case 0x2 030c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 030d 7801 |x | Jump 0x30f ; case 0x1 030e 4302 |C | .XXX[0x1] 030f 480f |H | Short_Literal 0xf 0310 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0311 0000 0000 | | .BLANK 0000[0x7] 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug Table 0318 ; -------------------------------------------------------------------------------------- 0318 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f2a,0x0000,0x0001,0x0000 031e 92e6 be86 | | .XXX[0x10] 0320 dedc dcca | | 0322 c6e8 d2dc | | 0324 cebe 82c6 | | 0326 e8d2 ecca | | 0328 0000 0000 | | 032a 0c1c 1fbe | | 032c 023f 5c00 | ?\ | 032e 0000 0000 | | .BLANK 0000[0x5] 0333 2700 0000 |' | .XXX[0xb9] 0335 0669 735f | is_| 0337 6e69 6c00 |nil | 0339 0000 0900 | | 033b 0000 1e21 | !| 033d 546f 6f6c |Tool| 033f 732e 556e |s.Un| 0341 626f 756e |boun| 0343 6465 645f |ded_| 0345 5374 7269 |Stri| 0347 6e67 2e49 |ng.I| 0349 735f 4e69 |s_Ni| 034b 6c00 0000 |l | 034d 0900 0000 | | 034f 1c21 546f | !To| 0351 6f6c 732e |ols.| 0353 5469 6d65 |Time| 0355 5f55 7469 |_Uti| 0357 6c69 7469 |liti| 0359 6573 2e49 |es.I| 035b 735f 4e69 |s_Ni| 035d 6c00 0000 |l | 035f 0900 0000 | | 0361 1a21 546f | !To| 0363 6f6c 732e |ols.| 0365 5374 7269 |Stri| 0367 6e67 5f54 |ng_T| 0369 6162 6c65 |able| 036b 2e49 735f |.Is_| 036d 4e69 6c00 |Nil | 036f 0000 0900 | | 0371 0000 2021 | !| 0373 546f 6f6c |Tool| 0375 732e 5374 |s.St| 0377 7269 6e67 |ring| 0379 5f4d 6170 |_Map| 037b 5f47 656e |_Gen| 037d 6572 6963 |eric| 037f 2e49 735f |.Is_| 0381 4e69 6c00 |Nil | 0383 0000 0900 | | 0385 0000 1921 | !| 0387 546f 6f6c |Tool| 0389 732e 4d61 |s.Ma| 038b 705f 4765 |p_Ge| 038d 6e65 7269 |neri| 038f 632e 4973 |c.Is| 0391 5f4e 696c |_Nil| 0393 0000 0009 | | 0395 0000 0024 | $| 0397 2154 6f6f |!Too| 0399 6c73 2e43 |ls.C| 039b 6f6e 6375 |oncu| 039d 7272 656e |rren| 039f 745f 4d61 |t_Ma| 03a1 705f 4765 |p_Ge| 03a3 6e65 7269 |neri| 03a5 632e 4973 |c.Is| 03a7 5f4e 696c |_Nil| 03a9 0000 0008 | | 03ab 0000 0025 | %| 03ad 2143 6f6d |!Com| 03af 6d61 6e64 |mand| 03b1 732e 4c6f |s.Lo| 03b3 672e 5075 |g.Pu| 03b5 745f 4c69 |t_Li| 03b7 6e65 5f47 |ne_G| 03b9 656e 6572 |ener| 03bb 6963 2e49 |ic.I| 03bd 735f 4e69 |s_Ni| 03bf 6c00 0000 |l | 03c1 0006 0e13 | | 03c3 1801 203d | =| 03c5 060e 0ca5 | | 03c7 060e 20fa | | 03c9 0000 000d | | 03cb 8000 0006 | | 03cd 3630 bcb7 |60 | 03cf baba 2fb2 | / | 03d1 b939 37b9 | 97 | 03d3 0000 0004 | | 03d5 8000 000f | | 03d7 10a4 b797 | | 03d9 24b7 afa2 |$ | 03db bc31 b2b8 | 1 | 03dd 3a34 b7b7 |:4 | 03df 3997 2630 |9 &0| 03e1 bcb7 baba | | 03e3 2fa2 b939 |/ 9| 03e5 37b9 0000 |7 | 03e7 0000 0307 | | 03e9 0e48 8090 | H | 03eb 6600 |f | 03ec 0000 0000 | | .BLANK 0000[0x5] 03f1 1d00 0000 | | .XXX[0xf] 03f3 039a 9bd8 | | 03f5 97d9 195c | \| 03f7 d8dc 9a5c | \| 03f9 1d1b dc80 | | 03fb 0000 1800 | | 03fd 0000 0888 | | 03ff 50db |P |