|
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 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 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 0001 | | .DEBUG4 0x0004,0x0001,0xf285,0x0000,0x0001,0x000d 031e 000b 0352 | R| .DBG4T 0x000b,0x0352,0x1002,0x4000 0322 0053 036b | S k| .DBG4T 0x0053,0x036b,0x1004,0x0000 0326 00a3 0373 | s| .DBG4T 0x00a3,0x0373,0x1004,0x0000 032a 010b 037b | {| .DBG4T 0x010b,0x037b,0x1004,0x0000 032e 0153 0383 | S | .DBG4T 0x0153,0x0383,0x1004,0x0000 0332 01c3 038b | | .DBG4T 0x01c3,0x038b,0x1004,0x0000 0336 023b 0393 | ; | .DBG4T 0x023b,0x0393,0x1004,0x0000 033a 02bb 0000 | | .DBG4T 0x02bb,0x0000,0x1005,0x0000 033e 02cb 0000 | | .DBG4T 0x02cb,0x0000,0x1005,0x0000 0342 02db 0000 | | .DBG4T 0x02db,0x0000,0x1005,0x0000 0346 02eb 0000 | | .DBG4T 0x02eb,0x0000,0x1005,0x0000 034a 02fb 0000 | | .DBG4T 0x02fb,0x0000,0x1005,0x0000 034e 030b 0000 | | .DBG4T 0x030b,0x0000,0x1005,0x0000 0352 ; -------------------------------------------------------------------------------------- 0352 ; Debug chain 0352 ; -------------------------------------------------------------------------------------- 0352 0001 000b | | .DBGLEN 0x0001,0x000b 0354 000b 001a | | .DBGLNO 0x000b,0x001a,0x001c,0x001e,0x002f,0x0036,0x003a,0x003d,0x003f,0x0042,0x0044,0x0045 0360 0001 0002 | | .XXX[0xb] 0362 0003 0007 | | 0364 000a 0004 | | 0366 0005 0006 | | 0368 0008 0009 | | 036a 000b | | 036b ; -------------------------------------------------------------------------------------- 036b ; Debug chain 036b ; -------------------------------------------------------------------------------------- 036b 0002 0004 | | .DBGLEN 0x0002,0x0004 036d 0053 005e | S ^| .DBGLNO 0x0053,0x005e,0x0061,0x006a,0x006e,0x007e 0373 ; -------------------------------------------------------------------------------------- 0373 ; Debug chain 0373 ; -------------------------------------------------------------------------------------- 0373 0002 0004 | | .DBGLEN 0x0002,0x0004 0375 00a3 00ae | | .DBGLNO 0x00a3,0x00ae,0x00b1,0x00ba,0x00be,0x00da 037b ; -------------------------------------------------------------------------------------- 037b ; Debug chain 037b ; -------------------------------------------------------------------------------------- 037b 0002 0004 | | .DBGLEN 0x0002,0x0004 037d 010b 0116 | | .DBGLNO 0x010b,0x0116,0x0119,0x0122,0x0126,0x0142 0383 ; -------------------------------------------------------------------------------------- 0383 ; Debug chain 0383 ; -------------------------------------------------------------------------------------- 0383 0002 0004 | | .DBGLEN 0x0002,0x0004 0385 0153 015e | S ^| .DBGLNO 0x0153,0x015e,0x0161,0x016a,0x016e,0x018e 038b ; -------------------------------------------------------------------------------------- 038b ; Debug chain 038b ; -------------------------------------------------------------------------------------- 038b 0002 0004 | | .DBGLEN 0x0002,0x0004 038d 01c3 01ce | | .DBGLNO 0x01c3,0x01ce,0x01d1,0x01da,0x01de,0x0206 0393 ; -------------------------------------------------------------------------------------- 0393 ; Debug chain 0393 ; -------------------------------------------------------------------------------------- 0393 0002 0004 | | .DBGLEN 0x0002,0x0004 0395 023b 0246 | ; F| .DBGLNO 0x023b,0x0246,0x0249,0x0252,0x0256,0x0286 039b 0000 0000 | | .BLANK 0000[0x65]