|
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 8001 | | .CONST 0x8001 ; 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 0014 | | .DEBUG4 0x0004,0x0014,0x8f1c,0x0000,0x0001,0x0000 02f6 0800 | | .XXX[0x1] 02f7 0000 0000 | | .BLANK 0000[0x4] 02fb 0003 8800 | | .XXX[0x5e] 02fd 0000 0000 | | 02ff 0003 8000 | | 0301 0003 9800 | | 0303 0001 8951 | Q| 0305 0102 9ba3 | | 0307 0b73 230b | s# | 0309 9322 fa7b | " {| 030b aba3 83ab | | 030d a101 430b | C | 030f 7102 2b73 |q +s| 0311 b34b 937b | K {| 0313 736b 2b73 |sk+s| 0315 a103 7bab | { | 0317 a383 aba1 | | 0319 03bb 4b73 | Ks| 031b 237b b948 |#{ H| 031d 0000 0390 | | 031f 0000 0191 | | 0321 0151 0102 | Q | 0323 9ba3 0b73 | s| 0325 230b 9322 |# "| 0327 fa7b aba3 | { | 0329 83ab a101 | | 032b 430b 7102 |C q | 032d 2b73 b34b |+s K| 032f 937b 736b | {sk| 0331 2b73 a103 |+s | 0333 7bab a383 |{ | 0335 aba1 03bb | | 0337 4b73 237b |Ks#{| 0339 b948 0000 | H | 033b 0390 0000 | | 033d 0191 0151 | Q| 033f 0102 9ba3 | | 0341 0b73 230b | s# | 0343 9322 fa7b | " {| 0345 aba3 83ab | | 0347 a101 430b | C | 0349 7102 2b73 |q +s| 034b b34b 937b | K {| 034d 736b 2b73 |sk+s| 034f a103 7bab | { | 0351 a383 aba1 | | 0353 03bb 4b73 | Ks| 0355 237b b948 |#{ H| 0357 0000 0008 | | 0359 0000 0000 | | .BLANK 0000[0x5] 035e 0128 0000 | ( | .XXX[0x29] 0360 0000 0000 | | 0362 0120 0000 | | 0364 0138 0000 | 8 | 0366 0071 5101 | qQ | 0368 0209 03a3 | | 036a 2bc3 a103 |+ | 036c 334b 6328 |3Kc(| 036e 0000 0130 | 0| 0370 0000 0079 | y| 0372 0151 0102 | Q | 0374 0903 a32b | +| 0376 c3a1 0333 | 3| 0378 4b63 2800 |Kc( | 037a 0001 3000 | 0 | 037c 0000 7901 | y | 037e 5101 0209 |Q | 0380 03a3 2bc3 | + | 0382 a103 334b | 3K| 0384 6328 0000 |c( | 0386 0008 | | 0387 0000 0000 | | .BLANK 0000[0x5] 038c 01b0 0000 | | .XXX[0x74] 038e 0000 0000 | | 0390 01a8 0000 | | 0392 01c0 0000 | | 0394 023a 637b | :c{| 0396 3b99 031b |; | 0398 0b71 0313 | q | 039a 2903 9b2b |) +| 039c 73a1 0323 |s #| 039e 4b93 2b1b |K + | 03a0 a363 c903 | c | 03a2 a379 029b | y | 03a4 a30b 7323 | s#| 03a6 0b93 22fa | " | 03a8 7bab a383 |{ | 03aa aba1 037b | {| 03ac 9102 9ba3 | | 03ae 0b73 230b | s# | 03b0 9322 fa2b | " +| 03b2 9393 7b91 | { | 03b4 6103 7b91 |a { | 03b6 03a3 432b | C+| 03b8 c800 0001 | | 03ba b800 0002 | | 03bc 4102 637b |A c{| 03be 3b99 031b |; | 03c0 0b71 0313 | q | 03c2 2903 9b2b |) +| 03c4 73a1 0323 |s #| 03c6 4b93 2b1b |K + | 03c8 a363 c903 | c | 03ca a379 029b | y | 03cc a30b 7323 | s#| 03ce 0b93 22fa | " | 03d0 7bab a383 |{ | 03d2 aba1 037b | {| 03d4 9102 9ba3 | | 03d6 0b73 230b | s# | 03d8 9322 fa2b | " +| 03da 9393 7b91 | { | 03dc 6103 7b91 |a { | 03de 03a3 432b | C+| 03e0 c800 0001 | | 03e2 b800 0002 | | 03e4 4102 637b |A c{| 03e6 3b99 031b |; | 03e8 0b71 0313 | q | 03ea 2903 9b2b |) +| 03ec 73a1 0323 |s #| 03ee 4b93 2b1b |K + | 03f0 a363 c903 | c | 03f2 a379 029b | y | 03f4 a30b 7323 | s#| 03f6 0b93 22fa | " | 03f8 7bab a383 |{ | 03fa aba1 037b | {| 03fc 9102 9ba3 | | 03fe 0b73 230b | s# |