|
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 02f0 | | .CONST 0x02f0 ; 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 001b | | .CONST 0x001b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000b | | .CONST 0x000b ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 03d8 | | Declare_Variable Float,Duplicate 000d 03d8 | | Declare_Variable Float,Duplicate 000e 03d8 | | Declare_Variable Float,Duplicate 000f 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0011 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0013 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0015 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0017 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 0019 029f 021b | | Declare_Subprogram INIT_0218,For_Call 001b BODY_0008: 001b e5ff | | Load 0x2,-0x1 001c c402 | | Store 0x2,0x2 001d e5fe | | Load 0x2,-0x2 001e c403 | | Store 0x2,0x3 001f e402 | | Load 0x2,0x2 0020 e403 | | Load 0x2,0x3 0021 023d | = | Execute Float,Plus 0022 c404 | | Store 0x2,0x4 0023 e404 | | Load 0x2,0x4 0024 00d8 | | Load_Top At_Offset_0 0025 023b | ; | Execute Float,Times 0026 c404 | | Store 0x2,0x4 0027 e20e | | Load 0x1,0xe 0028 0122 | " | Execute Any,Make_Root_Type 0029 1c01 | | Execute_Immediate Run_Utility,0x1 002a 00d8 | | Load_Top At_Offset_0 002b 0d01 | | Execute_Immediate Less,0x1 002c 7013 |p | Jump_Nonzero 0x40 002d 00d8 | | Load_Top At_Offset_0 002e 0c13 | | Execute_Immediate Greater_Equal,0x13 002f 700a |p | Jump_Nonzero 0x3a 0030 00d8 | | Load_Top At_Offset_0 0031 0c07 | | Execute_Immediate Greater_Equal,0x7 0032 680f |h | Jump_Zero 0x42 0033 00d8 | | Load_Top At_Offset_0 0034 0c10 | | Execute_Immediate Greater_Equal,0x10 0035 680f |h | Jump_Zero 0x45 0036 0f10 | | Execute_Immediate Equal,0x10 0037 7010 |p | Jump_Nonzero 0x48 0038 8409 | | Call 0x2,0x9 0039 7814 |x | Jump 0x4e 003a 00d8 | | Load_Top At_Offset_0 003b 0c1c | | Execute_Immediate Greater_Equal,0x1c 003c 680d |h | Jump_Zero 0x4a 003d 0c22 | " | Execute_Immediate Greater_Equal,0x22 003e 680e |h | Jump_Zero 0x4d 003f 08e2 | | Execute_Immediate Raise,0xe2 0040 00d1 | | Pop_Control Pop_Count_1 0041 7ffd | | Jump 0x3f 0042 00d1 | | Pop_Control Pop_Count_1 0043 8406 | | Call 0x2,0x6 0044 7809 |x | Jump 0x4e 0045 00d1 | | Pop_Control Pop_Count_1 0046 8407 | | Call 0x2,0x7 0047 7806 |x | Jump 0x4e 0048 8408 | | Call 0x2,0x8 0049 7804 |x | Jump 0x4e 004a 00d1 | | Pop_Control Pop_Count_1 004b 840a | | Call 0x2,0xa 004c 7801 |x | Jump 0x4e 004d 840b | | Call 0x2,0xb 004e e405 | | Load 0x2,0x5 004f e20e | | Load 0x1,0xe 0050 0232 | 2 | Execute Float,Check_In_Type 0051 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0069 | i | .CONST 0x0069 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0005 | | .CONST 0x0005 ; Number of locals 005b INIT_0058: 005b 00e6 | | Load_Encached Float_Cache 005c 0241 | A | Execute Float,First 005d 00e6 | | Load_Encached Float_Cache 005e 0240 | @ | Execute Float,Last 005f 00e6 | | Load_Encached Float_Cache 0060 03e3 | | Declare_Type Float,Constrained 0061 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 0063 00d9 | | Load_Top At_Offset_1 0064 012a | * | Execute Any,Change_Utility 0065 0007 | | Action Break_Optional 0066 00d8 | | Load_Top At_Offset_0 0067 03d8 | | Declare_Variable Float,Duplicate 0068 03d8 | | Declare_Variable Float,Duplicate 0069 BODY_0058: 0069 e402 | | Load 0x2,0x2 006a e403 | | Load 0x2,0x3 006b 023d | = | Execute Float,Plus 006c 00d8 | | Load_Top At_Offset_0 006d e602 | | Load 0x3,0x2 006e 0234 | 4 | Execute Float,In_Type 006f 7001 |p | Jump_Nonzero 0x71 0070 0801 | | Execute_Immediate Raise,0x1 0071 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0072 00da | | Load_Top At_Offset_2 0073 00db | | Load_Top At_Offset_3 0074 023b | ; | Execute Float,Times 0075 004a | J | Store_Top Float,At_Offset_2 0076 5825 |X% | Indirect_Literal Float,0x9c,0.5 0077 00da | | Load_Top At_Offset_2 0078 581f |X | Indirect_Literal Float,0x98,0.041666656729999994 0079 e604 | | Load 0x3,0x4 007a 5819 |X | Indirect_Literal Float,0x94,0.0013887773309999999 007b e604 | | Load 0x3,0x4 007c 5813 |X | Indirect_Literal Float,0x90,2.447879547e-05 007d 023b | ; | Execute Float,Times 007e 023c | < | Execute Float,Minus 007f 023b | ; | Execute Float,Times 0080 023c | < | Execute Float,Minus 0081 023b | ; | Execute Float,Times 0082 023c | < | Execute Float,Minus 0083 0049 | I | Store_Top Float,At_Offset_1 0084 5807 |X | Indirect_Literal Float,0x8c,1.0 0085 e404 | | Load 0x2,0x4 0086 00da | | Load_Top At_Offset_2 0087 023b | ; | Execute Float,Times 0088 023c | < | Execute Float,Minus 0089 c405 | | Store 0x2,0x5 008a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008b 0000 | | .XXX[0x1] 008c 3ff0 0000 |? | .DBL 1.0 008e 0000 0000 | | 0090 3ef9 aafa |> | .DBL 2.447879547e-05 0092 040d 2bab | + | 0094 3f56 c0f4 |?V | .DBL 0.0013887773309999999 0096 4df4 e0c4 |M | 0098 3fa5 5554 |? UT| .DBL 0.041666656729999994 009a fffa 5f4b | _K| 009c 3fe0 0000 |? | .DBL 0.5 009e 0000 0000 | | 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 02a3 | | Declare_Subprogram INIT_02a0,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 5fdd |_ | Indirect_Literal Float,0x9c,0.5 00bf 00da | | Load_Top At_Offset_2 00c0 5833 |X3 | Indirect_Literal Float,0xf4,0.041666666666666595 00c1 e604 | | Load 0x3,0x4 00c2 582d |X- | Indirect_Literal Float,0xf0,0.0013888888888874448 00c3 e604 | | Load 0x3,0x4 00c4 5827 |X' | Indirect_Literal Float,0xec,2.4801587289643873e-05 00c5 e604 | | Load 0x3,0x4 00c6 5821 |X! | Indirect_Literal Float,0xe8,2.7557314390420184e-07 00c7 e604 | | Load 0x3,0x4 00c8 581b |X | Indirect_Literal Float,0xe4,2.087572754718955e-09 00c9 e604 | | Load 0x3,0x4 00ca 5815 |X | Indirect_Literal Float,0xe0,1.135983163106883e-11 00cb 023b | ; | Execute Float,Times 00cc 023c | < | Execute Float,Minus 00cd 023b | ; | Execute Float,Times 00ce 023c | < | Execute Float,Minus 00cf 023b | ; | Execute Float,Times 00d0 023c | < | Execute Float,Minus 00d1 023b | ; | Execute Float,Times 00d2 023c | < | Execute Float,Minus 00d3 023b | ; | Execute Float,Times 00d4 023c | < | Execute Float,Minus 00d5 023b | ; | Execute Float,Times 00d6 023c | < | Execute Float,Minus 00d7 0049 | I | Store_Top Float,At_Offset_1 00d8 5fb3 |_ | Indirect_Literal Float,0x8c,1.0 00d9 e404 | | Load 0x2,0x4 00da 00da | | Load_Top At_Offset_2 00db 023b | ; | Execute Float,Times 00dc 023c | < | Execute Float,Minus 00dd c405 | | Store 0x2,0x5 00de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00df 0000 | | .XXX[0x1] 00e0 3da8 fb04 |= | .DBL 1.135983163106883e-11 00e2 45a3 3426 |E 4&| 00e4 3e21 ee9e |>! | .DBL 2.087572754718955e-09 00e6 fc2b 194c | + L| 00e8 3e92 7e4f |> ~O| .DBL 2.7557314390420184e-07 00ea 810c d161 | a| 00ec 3efa 01a0 |> | .DBL 2.4801587289643873e-05 00ee 19cb d644 | D| 00f0 3f56 c16c |?V l| .DBL 0.0013888888888874448 00f2 16c1 5213 | R | 00f4 3fa5 5555 |? UU| .DBL 0.041666666666666595 00f6 5555 554b |UUUK| 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0109 | | .CONST 0x0109 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0005 | | .CONST 0x0005 ; Number of locals 00fb INIT_00f8: 00fb 00e6 | | Load_Encached Float_Cache 00fc 0241 | A | Execute Float,First 00fd 00e6 | | Load_Encached Float_Cache 00fe 0240 | @ | Execute Float,Last 00ff 00e6 | | Load_Encached Float_Cache 0100 03e3 | | Declare_Type Float,Constrained 0101 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 0103 00d9 | | Load_Top At_Offset_1 0104 012a | * | Execute Any,Change_Utility 0105 0007 | | Action Break_Optional 0106 00d8 | | Load_Top At_Offset_0 0107 03d8 | | Declare_Variable Float,Duplicate 0108 03d8 | | Declare_Variable Float,Duplicate 0109 BODY_00f8: 0109 e402 | | Load 0x2,0x2 010a e403 | | Load 0x2,0x3 010b 023d | = | Execute Float,Plus 010c 00d8 | | Load_Top At_Offset_0 010d e602 | | Load 0x3,0x2 010e 0234 | 4 | Execute Float,In_Type 010f 7001 |p | Jump_Nonzero 0x111 0110 0801 | | Execute_Immediate Raise,0x1 0111 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0112 00da | | Load_Top At_Offset_2 0113 00db | | Load_Top At_Offset_3 0114 023b | ; | Execute Float,Times 0115 004a | J | Store_Top Float,At_Offset_2 0116 5825 |X% | Indirect_Literal Float,0x13c,0.5 0117 00da | | Load_Top At_Offset_2 0118 5fdb |_ | Indirect_Literal Float,0xf4,0.041666666666666595 0119 e604 | | Load 0x3,0x4 011a 5fd5 |_ | Indirect_Literal Float,0xf0,0.0013888888888874448 011b e604 | | Load 0x3,0x4 011c 5fcf |_ | Indirect_Literal Float,0xec,2.4801587289643873e-05 011d e604 | | Load 0x3,0x4 011e 5fc9 |_ | Indirect_Literal Float,0xe8,2.7557314390420184e-07 011f e604 | | Load 0x3,0x4 0120 5fc3 |_ | Indirect_Literal Float,0xe4,2.087572754718955e-09 0121 e604 | | Load 0x3,0x4 0122 5fbd |_ | Indirect_Literal Float,0xe0,1.135983163106883e-11 0123 023b | ; | Execute Float,Times 0124 023c | < | Execute Float,Minus 0125 023b | ; | Execute Float,Times 0126 023c | < | Execute Float,Minus 0127 023b | ; | Execute Float,Times 0128 023c | < | Execute Float,Minus 0129 023b | ; | Execute Float,Times 012a 023c | < | Execute Float,Minus 012b 023b | ; | Execute Float,Times 012c 023c | < | Execute Float,Minus 012d 023b | ; | Execute Float,Times 012e 023c | < | Execute Float,Minus 012f 0049 | I | Store_Top Float,At_Offset_1 0130 5807 |X | Indirect_Literal Float,0x138,1.0 0131 e404 | | Load 0x2,0x4 0132 00da | | Load_Top At_Offset_2 0133 023b | ; | Execute Float,Times 0134 023c | < | Execute Float,Minus 0135 c405 | | Store 0x2,0x5 0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0137 0000 | | .XXX[0x1] 0138 3ff0 0000 |? | .DBL 1.0 013a 0000 0000 | | 013c 3fe0 0000 |? | .DBL 0.5 013e 0000 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0151 | Q | .CONST 0x0151 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0005 | | .CONST 0x0005 ; Number of locals 0143 INIT_0140: 0143 00e6 | | Load_Encached Float_Cache 0144 0241 | A | Execute Float,First 0145 00e6 | | Load_Encached Float_Cache 0146 0240 | @ | Execute Float,Last 0147 00e6 | | Load_Encached Float_Cache 0148 03e3 | | Declare_Type Float,Constrained 0149 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 014b 00d9 | | Load_Top At_Offset_1 014c 012a | * | Execute Any,Change_Utility 014d 0007 | | Action Break_Optional 014e 00d8 | | Load_Top At_Offset_0 014f 03d8 | | Declare_Variable Float,Duplicate 0150 03d8 | | Declare_Variable Float,Duplicate 0151 BODY_0140: 0151 e402 | | Load 0x2,0x2 0152 e403 | | Load 0x2,0x3 0153 023d | = | Execute Float,Plus 0154 00d8 | | Load_Top At_Offset_0 0155 e602 | | Load 0x3,0x2 0156 0234 | 4 | Execute Float,In_Type 0157 7001 |p | Jump_Nonzero 0x159 0158 0801 | | Execute_Immediate Raise,0x1 0159 0043 | C | Store_Top_Uncheched Float,At_Offset_3 015a 00da | | Load_Top At_Offset_2 015b 00db | | Load_Top At_Offset_3 015c 023b | ; | Execute Float,Times 015d 004a | J | Store_Top Float,At_Offset_2 015e 5fdd |_ | Indirect_Literal Float,0x13c,0.5 015f 00da | | Load_Top At_Offset_2 0160 583b |X; | Indirect_Literal Float,0x19c,0.041666666666666664 0161 e604 | | Load 0x3,0x4 0162 5835 |X5 | Indirect_Literal Float,0x198,0.001388888888888887 0163 e604 | | Load 0x3,0x4 0164 582f |X/ | Indirect_Literal Float,0x194,2.4801587301569182e-05 0165 e604 | | Load 0x3,0x4 0166 5829 |X) | Indirect_Literal Float,0x190,2.755731921438274e-07 0167 e604 | | Load 0x3,0x4 0168 5823 |X# | Indirect_Literal Float,0x18c,2.0876754142530703e-09 0169 e604 | | Load 0x3,0x4 016a 581d |X | Indirect_Literal Float,0x188,1.1470267908943572e-11 016b e604 | | Load 0x3,0x4 016c 5817 |X | Indirect_Literal Float,0x184,4.736966690473187e-14 016d 023b | ; | Execute Float,Times 016e 023c | < | Execute Float,Minus 016f 023b | ; | Execute Float,Times 0170 023c | < | Execute Float,Minus 0171 023b | ; | Execute Float,Times 0172 023c | < | Execute Float,Minus 0173 023b | ; | Execute Float,Times 0174 023c | < | Execute Float,Minus 0175 023b | ; | Execute Float,Times 0176 023c | < | Execute Float,Minus 0177 023b | ; | Execute Float,Times 0178 023c | < | Execute Float,Minus 0179 023b | ; | Execute Float,Times 017a 023c | < | Execute Float,Minus 017b 0049 | I | Store_Top Float,At_Offset_1 017c 5fbb |_ | Indirect_Literal Float,0x138,1.0 017d e404 | | Load 0x2,0x4 017e 00da | | Load_Top At_Offset_2 017f 023b | ; | Execute Float,Times 0180 023c | < | Execute Float,Minus 0181 c405 | | Store 0x2,0x5 0182 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0183 0000 | | .XXX[0x1] 0184 3d2a aab0 |=* | .DBL 4.736966690473187e-14 0186 3e97 5993 |> Y | 0188 3da9 392f |= 9/| .DBL 1.1470267908943572e-11 018a d125 75f9 | %u | 018c 3e21 eed8 |>! | .DBL 2.0876754142530703e-09 018e c6f7 6767 | gg| 0190 3e92 7e4f |> ~O| .DBL 2.755731921438274e-07 0192 b75c f17d | \ }| 0194 3efa 01a0 |> | .DBL 2.4801587301569182e-05 0196 1a01 8b36 | 6| 0198 3f56 c16c |?V l| .DBL 0.001388888888888887 019a 16c1 6c0e | l | 019c 3fa5 5555 |? UU| .DBL 0.041666666666666664 019e 5555 5555 |UUUU| 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01b1 | | .CONST 0x01b1 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0005 | | .CONST 0x0005 ; Number of locals 01a3 INIT_01a0: 01a3 00e6 | | Load_Encached Float_Cache 01a4 0241 | A | Execute Float,First 01a5 00e6 | | Load_Encached Float_Cache 01a6 0240 | @ | Execute Float,Last 01a7 00e6 | | Load_Encached Float_Cache 01a8 03e3 | | Declare_Type Float,Constrained 01a9 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 01ab 00d9 | | Load_Top At_Offset_1 01ac 012a | * | Execute Any,Change_Utility 01ad 0007 | | Action Break_Optional 01ae 00d8 | | Load_Top At_Offset_0 01af 03d8 | | Declare_Variable Float,Duplicate 01b0 03d8 | | Declare_Variable Float,Duplicate 01b1 BODY_01a0: 01b1 e402 | | Load 0x2,0x2 01b2 e403 | | Load 0x2,0x3 01b3 023d | = | Execute Float,Plus 01b4 00d8 | | Load_Top At_Offset_0 01b5 e602 | | Load 0x3,0x2 01b6 0234 | 4 | Execute Float,In_Type 01b7 7001 |p | Jump_Nonzero 0x1b9 01b8 0801 | | Execute_Immediate Raise,0x1 01b9 0043 | C | Store_Top_Uncheched Float,At_Offset_3 01ba 00da | | Load_Top At_Offset_2 01bb 00db | | Load_Top At_Offset_3 01bc 023b | ; | Execute Float,Times 01bd 004a | J | Store_Top Float,At_Offset_2 01be 5851 |XQ | Indirect_Literal Float,0x210,0.5 01bf 00da | | Load_Top At_Offset_2 01c0 5fdb |_ | Indirect_Literal Float,0x19c,0.041666666666666664 01c1 e604 | | Load 0x3,0x4 01c2 5849 |XI | Indirect_Literal Float,0x20c,0.0013888888888888887 01c3 e604 | | Load 0x3,0x4 01c4 5843 |XC | Indirect_Literal Float,0x208,2.48015873015873e-05 01c5 e604 | | Load 0x3,0x4 01c6 583d |X= | Indirect_Literal Float,0x204,2.755731922398588e-07 01c7 e604 | | Load 0x3,0x4 01c8 5837 |X7 | Indirect_Literal Float,0x200,2.087675698786318e-09 01c9 e604 | | Load 0x3,0x4 01ca 5831 |X1 | Indirect_Literal Float,0x1fc,1.1470745596128973e-11 01cb e604 | | Load 0x3,0x4 01cc 582b |X+ | Indirect_Literal Float,0x1f8,4.779477003636784e-14 01cd e604 | | Load 0x3,0x4 01ce 5825 |X% | Indirect_Literal Float,0x1f4,1.5618792659201637e-16 01cf e604 | | Load 0x3,0x4 01d0 581f |X | Indirect_Literal Float,0x1f0,4.0810438772696613e-19 01d1 023b | ; | Execute Float,Times 01d2 023c | < | Execute Float,Minus 01d3 023b | ; | Execute Float,Times 01d4 023c | < | Execute Float,Minus 01d5 023b | ; | Execute Float,Times 01d6 023c | < | Execute Float,Minus 01d7 023b | ; | Execute Float,Times 01d8 023c | < | Execute Float,Minus 01d9 023b | ; | Execute Float,Times 01da 023c | < | Execute Float,Minus 01db 023b | ; | Execute Float,Times 01dc 023c | < | Execute Float,Minus 01dd 023b | ; | Execute Float,Times 01de 023c | < | Execute Float,Minus 01df 023b | ; | Execute Float,Times 01e0 023c | < | Execute Float,Minus 01e1 023b | ; | Execute Float,Times 01e2 023c | < | Execute Float,Minus 01e3 0049 | I | Store_Top Float,At_Offset_1 01e4 5807 |X | Indirect_Literal Float,0x1ec,1.0 01e5 e404 | | Load 0x2,0x4 01e6 00da | | Load_Top At_Offset_2 01e7 023b | ; | Execute Float,Times 01e8 023c | < | Execute Float,Minus 01e9 c405 | | Store 0x2,0x5 01ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01eb 0000 | | .XXX[0x1] 01ec 3ff0 0000 |? | .DBL 1.0 01ee 0000 0000 | | 01f0 3c1e 1cdf |< | .DBL 4.0810438772696613e-19 01f2 b9c6 7736 | w6| 01f4 3ca6 8251 |< Q| .DBL 1.5618792659201637e-16 01f6 4256 9c86 |BV | 01f8 3d2a e7f3 |=* | .DBL 4.779477003636784e-14 01fa c827 0476 | ' v| 01fc 3da9 3974 |= 9t| .DBL 1.1470745596128973e-11 01fe a8b1 5e3c | ^<| 0200 3e21 eed8 |>! | .DBL 2.087675698786318e-09 0202 eff8 d3f2 | | 0204 3e92 7e4f |> ~O| .DBL 2.755731922398588e-07 0206 b778 9f5a | x Z| 0208 3efa 01a0 |> | .DBL 2.48015873015873e-05 020a 1a01 a01a | | 020c 3f56 c16c |?V l| .DBL 0.0013888888888888887 020e 16c1 6c16 | l | 0210 3fe0 0000 |? | .DBL 0.5 0212 0000 0000 | | 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0229 | ) | .CONST 0x0229 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0005 | | .CONST 0x0005 ; Number of locals 021b INIT_0218: 021b 00e6 | | Load_Encached Float_Cache 021c 0241 | A | Execute Float,First 021d 00e6 | | Load_Encached Float_Cache 021e 0240 | @ | Execute Float,Last 021f 00e6 | | Load_Encached Float_Cache 0220 03e3 | | Declare_Type Float,Constrained 0221 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call 0223 00d9 | | Load_Top At_Offset_1 0224 012a | * | Execute Any,Change_Utility 0225 0007 | | Action Break_Optional 0226 00d8 | | Load_Top At_Offset_0 0227 03d8 | | Declare_Variable Float,Duplicate 0228 03d8 | | Declare_Variable Float,Duplicate 0229 BODY_0218: 0229 e402 | | Load 0x2,0x2 022a e403 | | Load 0x2,0x3 022b 023d | = | Execute Float,Plus 022c 00d8 | | Load_Top At_Offset_0 022d e602 | | Load 0x3,0x2 022e 0234 | 4 | Execute Float,In_Type 022f 7001 |p | Jump_Nonzero 0x231 0230 0801 | | Execute_Immediate Raise,0x1 0231 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0232 00da | | Load_Top At_Offset_2 0233 00db | | Load_Top At_Offset_3 0234 023b | ; | Execute Float,Times 0235 004a | J | Store_Top Float,At_Offset_2 0236 5fd9 |_ | Indirect_Literal Float,0x210,0.5 0237 00da | | Load_Top At_Offset_2 0238 5853 |XS | Indirect_Literal Float,0x28c,0.041666666666666664 0239 e604 | | Load 0x3,0x4 023a 5fd1 |_ | Indirect_Literal Float,0x20c,0.0013888888888888887 023b e604 | | Load 0x3,0x4 023c 5fcb |_ | Indirect_Literal Float,0x208,2.48015873015873e-05 023d e604 | | Load 0x3,0x4 023e 5849 |XI | Indirect_Literal Float,0x288,2.755731922398589e-07 023f e604 | | Load 0x3,0x4 0240 5843 |XC | Indirect_Literal Float,0x284,2.0876756987868096e-09 0241 e604 | | Load 0x3,0x4 0242 583d |X= | Indirect_Literal Float,0x280,1.1470745597729723e-11 0243 e604 | | Load 0x3,0x4 0244 5837 |X7 | Indirect_Literal Float,0x27c,4.779477332386916e-14 0245 e604 | | Load 0x3,0x4 0246 5831 |X1 | Indirect_Literal Float,0x278,1.5619206967497144e-16 0247 e604 | | Load 0x3,0x4 0248 582b |X+ | Indirect_Literal Float,0x274,4.1103174541350836e-19 0249 e604 | | Load 0x3,0x4 024a 5825 |X% | Indirect_Literal Float,0x270,8.896622926278036e-22 024b e604 | | Load 0x3,0x4 024c 581f |X | Indirect_Literal Float,0x26c,1.6020111933074803e-24 024d 023b | ; | Execute Float,Times 024e 023c | < | Execute Float,Minus 024f 023b | ; | Execute Float,Times 0250 023c | < | Execute Float,Minus 0251 023b | ; | Execute Float,Times 0252 023c | < | Execute Float,Minus 0253 023b | ; | Execute Float,Times 0254 023c | < | Execute Float,Minus 0255 023b | ; | Execute Float,Times 0256 023c | < | Execute Float,Minus 0257 023b | ; | Execute Float,Times 0258 023c | < | Execute Float,Minus 0259 023b | ; | Execute Float,Times 025a 023c | < | Execute Float,Minus 025b 023b | ; | Execute Float,Times 025c 023c | < | Execute Float,Minus 025d 023b | ; | Execute Float,Times 025e 023c | < | Execute Float,Minus 025f 023b | ; | Execute Float,Times 0260 023c | < | Execute Float,Minus 0261 023b | ; | Execute Float,Times 0262 023c | < | Execute Float,Minus 0263 0049 | I | Store_Top Float,At_Offset_1 0264 5f87 |_ | Indirect_Literal Float,0x1ec,1.0 0265 e404 | | Load 0x2,0x4 0266 00da | | Load_Top At_Offset_2 0267 023b | ; | Execute Float,Times 0268 023c | < | Execute Float,Minus 0269 c405 | | Store 0x2,0x5 026a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 026b 0000 | | .XXX[0x1] 026c 3afe fcc6 |: | .DBL 1.6020111933074803e-24 026e 7365 91a8 |se | 0270 3b90 ce24 |; $| .DBL 8.896622926278036e-22 0272 92d0 00f3 | | 0274 3c1e 542b |< T+| .DBL 4.1103174541350836e-19 0276 8f10 929a | | 0278 3ca6 8278 |< x| .DBL 1.5619206967497144e-16 027a 63b2 bfdf |c | 027c 3d2a e7f3 |=* | .DBL 4.779477332386916e-14 027e e733 b537 | 3 7| 0280 3da9 3974 |= 9t| .DBL 1.1470745597729723e-11 0282 a8c0 7c9c | | | 0284 3e21 eed8 |>! | .DBL 2.0876756987868096e-09 0286 eff8 d897 | | 0288 3e92 7e4f |> ~O| .DBL 2.755731922398589e-07 028a b778 9f5c | x \| 028c 3fa5 5555 |? UU| .DBL 0.041666666666666664 028e 5555 5555 |UUUU| 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 4806 |H | Short_Literal 0x6 0298 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0299 0000 0000 | | .BLANK 0000[0x7] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 4601 |F | Jump_Case 0x2 02a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02a5 7801 |x | Jump 0x2a7 ; case 0x1 02a6 4302 |C | .XXX[0x1] 02a7 480f |H | Short_Literal 0xf 02a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 4601 |F | Jump_Case 0x2 02b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02b5 7801 |x | Jump 0x2b7 ; case 0x1 02b6 4302 |C | .XXX[0x1] 02b7 480f |H | Short_Literal 0xf 02b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02b9 0000 0000 | | .BLANK 0000[0x7] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 4601 |F | Jump_Case 0x2 02c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02c5 7801 |x | Jump 0x2c7 ; case 0x1 02c6 4302 |C | .XXX[0x1] 02c7 480f |H | Short_Literal 0xf 02c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c9 0000 0000 | | .BLANK 0000[0x7] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 4601 |F | Jump_Case 0x2 02d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02d5 7801 |x | Jump 0x2d7 ; case 0x1 02d6 4302 |C | .XXX[0x1] 02d7 480f |H | Short_Literal 0xf 02d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02d9 0000 0000 | | .BLANK 0000[0x7] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 4601 |F | Jump_Case 0x2 02e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02e5 7801 |x | Jump 0x2e7 ; case 0x1 02e6 4302 |C | .XXX[0x1] 02e7 480f |H | Short_Literal 0xf 02e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02e9 0000 0000 | | .BLANK 0000[0x7] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; Debug Table 02f0 ; -------------------------------------------------------------------------------------- 02f0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf27b,0x0000,0x0001,0x000d 02f6 000b 032a | *| .DBG4T 0x000b,0x032a,0x1002,0x4000 02fa 005b 0347 | [ G| .DBG4T 0x005b,0x0347,0x1004,0x0000 02fe 00a3 034f | O| .DBG4T 0x00a3,0x034f,0x1004,0x0000 0302 00fb 0357 | W| .DBG4T 0x00fb,0x0357,0x1004,0x0000 0306 0143 035f | C _| .DBG4T 0x0143,0x035f,0x1004,0x0000 030a 01a3 0367 | g| .DBG4T 0x01a3,0x0367,0x1004,0x0000 030e 021b 036f | o| .DBG4T 0x021b,0x036f,0x1004,0x0000 0312 0293 0000 | | .DBG4T 0x0293,0x0000,0x1005,0x0000 0316 02a3 0000 | | .DBG4T 0x02a3,0x0000,0x1005,0x0000 031a 02b3 0000 | | .DBG4T 0x02b3,0x0000,0x1005,0x0000 031e 02c3 0000 | | .DBG4T 0x02c3,0x0000,0x1005,0x0000 0322 02d3 0000 | | .DBG4T 0x02d3,0x0000,0x1005,0x0000 0326 02e3 0000 | | .DBG4T 0x02e3,0x0000,0x1005,0x0000 032a ; -------------------------------------------------------------------------------------- 032a ; Debug chain 032a ; -------------------------------------------------------------------------------------- 032a 0001 000d | | .DBGLEN 0x0001,0x000d 032c 000b 001b | | .DBGLNO 0x000b,0x001b,0x001d,0x001f,0x0023,0x0027,0x0038,0x003f,0x0043,0x0046,0x0048,0x004b,0x004d,0x004e 033a 0001 0002 | | .XXX[0xd] 033c 0003 0004 | | 033e 0005 0009 | | 0340 000c 0006 | | 0342 0007 0008 | | 0344 000a 000b | | 0346 000d | | 0347 ; -------------------------------------------------------------------------------------- 0347 ; Debug chain 0347 ; -------------------------------------------------------------------------------------- 0347 0002 0004 | | .DBGLEN 0x0002,0x0004 0349 005b 0066 | [ f| .DBGLNO 0x005b,0x0066,0x0069,0x0072,0x0076,0x0084 034f ; -------------------------------------------------------------------------------------- 034f ; Debug chain 034f ; -------------------------------------------------------------------------------------- 034f 0002 0004 | | .DBGLEN 0x0002,0x0004 0351 00a3 00ae | | .DBGLNO 0x00a3,0x00ae,0x00b1,0x00ba,0x00be,0x00d8 0357 ; -------------------------------------------------------------------------------------- 0357 ; Debug chain 0357 ; -------------------------------------------------------------------------------------- 0357 0002 0004 | | .DBGLEN 0x0002,0x0004 0359 00fb 0106 | | .DBGLNO 0x00fb,0x0106,0x0109,0x0112,0x0116,0x0130 035f ; -------------------------------------------------------------------------------------- 035f ; Debug chain 035f ; -------------------------------------------------------------------------------------- 035f 0002 0004 | | .DBGLEN 0x0002,0x0004 0361 0143 014e | C N| .DBGLNO 0x0143,0x014e,0x0151,0x015a,0x015e,0x017c 0367 ; -------------------------------------------------------------------------------------- 0367 ; Debug chain 0367 ; -------------------------------------------------------------------------------------- 0367 0002 0004 | | .DBGLEN 0x0002,0x0004 0369 01a3 01ae | | .DBGLNO 0x01a3,0x01ae,0x01b1,0x01ba,0x01be,0x01e4 036f ; -------------------------------------------------------------------------------------- 036f ; Debug chain 036f ; -------------------------------------------------------------------------------------- 036f 0002 0004 | | .DBGLEN 0x0002,0x0004 0371 021b 0226 | &| .DBGLNO 0x021b,0x0226,0x0229,0x0232,0x0236,0x0264 0377 0000 0000 | | .BLANK 0000[0x89]