|
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 0280 | | .CONST 0x0280 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 000e 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0010 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0012 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0014 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 0016 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0018 BODY_0008: 0018 e20e | | Load 0x1,0xe 0019 0122 | " | Execute Any,Make_Root_Type 001a 1c01 | | Execute_Immediate Run_Utility,0x1 001b 00d8 | | Load_Top At_Offset_0 001c 0d01 | | Execute_Immediate Less,0x1 001d 7013 |p | Jump_Nonzero 0x31 001e 00d8 | | Load_Top At_Offset_0 001f 0c13 | | Execute_Immediate Greater_Equal,0x13 0020 700a |p | Jump_Nonzero 0x2b 0021 00d8 | | Load_Top At_Offset_0 0022 0c07 | | Execute_Immediate Greater_Equal,0x7 0023 680f |h | Jump_Zero 0x33 0024 00d8 | | Load_Top At_Offset_0 0025 0c10 | | Execute_Immediate Greater_Equal,0x10 0026 680f |h | Jump_Zero 0x36 0027 0f10 | | Execute_Immediate Equal,0x10 0028 7010 |p | Jump_Nonzero 0x39 0029 8406 | | Call 0x2,0x6 002a 7814 |x | Jump 0x3f 002b 00d8 | | Load_Top At_Offset_0 002c 0c1c | | Execute_Immediate Greater_Equal,0x1c 002d 680d |h | Jump_Zero 0x3b 002e 0c22 | " | Execute_Immediate Greater_Equal,0x22 002f 680e |h | Jump_Zero 0x3e 0030 08e2 | | Execute_Immediate Raise,0xe2 0031 00d1 | | Pop_Control Pop_Count_1 0032 7ffd | | Jump 0x30 0033 00d1 | | Pop_Control Pop_Count_1 0034 8403 | | Call 0x2,0x3 0035 7809 |x | Jump 0x3f 0036 00d1 | | Pop_Control Pop_Count_1 0037 8404 | | Call 0x2,0x4 0038 7806 |x | Jump 0x3f 0039 8405 | | Call 0x2,0x5 003a 7804 |x | Jump 0x3f 003b 00d1 | | Pop_Control Pop_Count_1 003c 8407 | | Call 0x2,0x7 003d 7801 |x | Jump 0x3f 003e 8408 | | Call 0x2,0x8 003f e402 | | Load 0x2,0x2 0040 e20e | | Load 0x1,0xe 0041 0232 | 2 | Execute Float,Check_In_Type 0042 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0058 | X | .CONST 0x0058 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0004 | | .CONST 0x0004 ; Number of locals 004b INIT_0048: 004b 00e6 | | Load_Encached Float_Cache 004c 0241 | A | Execute Float,First 004d 00e6 | | Load_Encached Float_Cache 004e 0240 | @ | Execute Float,Last 004f 00e6 | | Load_Encached Float_Cache 0050 03e3 | | Declare_Type Float,Constrained 0051 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0053 00d9 | | Load_Top At_Offset_1 0054 012a | * | Execute Any,Change_Utility 0055 0007 | | Action Break_Optional 0056 00d8 | | Load_Top At_Offset_0 0057 03d8 | | Declare_Variable Float,Duplicate 0058 BODY_0048: 0058 e5ff | | Load 0x2,-0x1 0059 00d8 | | Load_Top At_Offset_0 005a e602 | | Load 0x3,0x2 005b 0234 | 4 | Execute Float,In_Type 005c 7001 |p | Jump_Nonzero 0x5e 005d 0801 | | Execute_Immediate Raise,0x1 005e 0042 | B | Store_Top_Unchecked Float,At_Offset_2 005f 00d9 | | Load_Top At_Offset_1 0060 5817 |X | Indirect_Literal Float,0x78,0.5 0061 023b | ; | Execute Float,Times 0062 00da | | Load_Top At_Offset_2 0063 00db | | Load_Top At_Offset_3 0064 023b | ; | Execute Float,Times 0065 580e |X | Indirect_Literal Float,0x74,0.125007987 0066 e603 | | Load 0x3,0x3 0067 5808 |X | Indirect_Literal Float,0x70,0.06250522999 0068 023b | ; | Execute Float,Times 0069 023c | < | Execute Float,Minus 006a 023b | ; | Execute Float,Times 006b 023c | < | Execute Float,Minus 006c 0049 | I | Store_Top Float,At_Offset_1 006d 00d8 | | Load_Top At_Offset_0 006e c402 | | Store 0x2,0x2 006f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0070 3fb0 0057 |? W| .DBL 0.06250522999 0072 bea2 d172 | r| 0074 3fc0 0042 |? B| .DBL 0.125007987 0076 fff3 af7e | ~| 0078 3fe0 0000 |? | .DBL 0.5 007a 0000 0000 | | 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0092 | | .CONST 0x0092 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0006 | | .CONST 0x0006 ; Number of locals 0083 INIT_0080: 0083 00e6 | | Load_Encached Float_Cache 0084 0241 | A | Execute Float,First 0085 00e6 | | Load_Encached Float_Cache 0086 0240 | @ | Execute Float,Last 0087 00e6 | | Load_Encached Float_Cache 0088 03e3 | | Declare_Type Float,Constrained 0089 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 008b 00d9 | | Load_Top At_Offset_1 008c 012a | * | Execute Any,Change_Utility 008d 0007 | | Action Break_Optional 008e 00d8 | | Load_Top At_Offset_0 008f 03d8 | | Declare_Variable Float,Duplicate 0090 03d8 | | Declare_Variable Float,Duplicate 0091 03d8 | | Declare_Variable Float,Duplicate 0092 BODY_0080: 0092 e5ff | | Load 0x2,-0x1 0093 00d8 | | Load_Top At_Offset_0 0094 e602 | | Load 0x3,0x2 0095 0234 | 4 | Execute Float,In_Type 0096 7001 |p | Jump_Nonzero 0x98 0097 0801 | | Execute_Immediate Raise,0x1 0098 a603 | | Store_Unchecked 0x3,0x3 0099 00db | | Load_Top At_Offset_3 009a 5fdd |_ | Indirect_Literal Float,0x78,0.5 009b 023b | ; | Execute Float,Times 009c e603 | | Load 0x3,0x3 009d 00d8 | | Load_Top At_Offset_0 009e 023b | ; | Execute Float,Times 009f 5fd4 |_ | Indirect_Literal Float,0x74,0.125007987 00a0 e603 | | Load 0x3,0x3 00a1 5fce |_ | Indirect_Literal Float,0x70,0.06250522999 00a2 023b | ; | Execute Float,Times 00a3 023c | < | Execute Float,Minus 00a4 023b | ; | Execute Float,Times 00a5 023c | < | Execute Float,Minus 00a6 004b | K | Store_Top Float,At_Offset_3 00a7 00da | | Load_Top At_Offset_2 00a8 00db | | Load_Top At_Offset_3 00a9 023d | = | Execute Float,Plus 00aa 004a | J | Store_Top Float,At_Offset_2 00ab 00da | | Load_Top At_Offset_2 00ac 00db | | Load_Top At_Offset_3 00ad 023b | ; | Execute Float,Times 00ae 00da | | Load_Top At_Offset_2 00af e603 | | Load 0x3,0x3 00b0 023c | < | Execute Float,Minus 00b1 023d | = | Execute Float,Plus 00b2 00da | | Load_Top At_Offset_2 00b3 5808 |X | Indirect_Literal Float,0xbc,2.0 00b4 023d | = | Execute Float,Plus 00b5 023a | : | Execute Float,Divide 00b6 0049 | I | Store_Top Float,At_Offset_1 00b7 00da | | Load_Top At_Offset_2 00b8 00d9 | | Load_Top At_Offset_1 00b9 023c | < | Execute Float,Minus 00ba c402 | | Store 0x2,0x2 00bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00bc 4000 0000 |@ | .DBL 2.0 00be 0000 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d2 | | .CONST 0x00d2 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0006 | | .CONST 0x0006 ; Number of locals 00c3 INIT_00c0: 00c3 00e6 | | Load_Encached Float_Cache 00c4 0241 | A | Execute Float,First 00c5 00e6 | | Load_Encached Float_Cache 00c6 0240 | @ | Execute Float,Last 00c7 00e6 | | Load_Encached Float_Cache 00c8 03e3 | | Declare_Type Float,Constrained 00c9 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 00cb 00d9 | | Load_Top At_Offset_1 00cc 012a | * | Execute Any,Change_Utility 00cd 0007 | | Action Break_Optional 00ce 00d8 | | Load_Top At_Offset_0 00cf 03d8 | | Declare_Variable Float,Duplicate 00d0 03d8 | | Declare_Variable Float,Duplicate 00d1 03d8 | | Declare_Variable Float,Duplicate 00d2 BODY_00c0: 00d2 e5ff | | Load 0x2,-0x1 00d3 00d8 | | Load_Top At_Offset_0 00d4 e602 | | Load 0x3,0x2 00d5 0234 | 4 | Execute Float,In_Type 00d6 7001 |p | Jump_Nonzero 0xd8 00d7 0801 | | Execute_Immediate Raise,0x1 00d8 a603 | | Store_Unchecked 0x3,0x3 00d9 00db | | Load_Top At_Offset_3 00da 5829 |X) | Indirect_Literal Float,0x104,0.5 00db 023b | ; | Execute Float,Times 00dc e603 | | Load 0x3,0x3 00dd 00d8 | | Load_Top At_Offset_0 00de 023b | ; | Execute Float,Times 00df 5820 |X | Indirect_Literal Float,0x100,0.125007987 00e0 e603 | | Load 0x3,0x3 00e1 581a |X | Indirect_Literal Float,0xfc,0.06250522999 00e2 023b | ; | Execute Float,Times 00e3 023c | < | Execute Float,Minus 00e4 023b | ; | Execute Float,Times 00e5 023c | < | Execute Float,Minus 00e6 004b | K | Store_Top Float,At_Offset_3 00e7 00da | | Load_Top At_Offset_2 00e8 00db | | Load_Top At_Offset_3 00e9 023d | = | Execute Float,Plus 00ea 004a | J | Store_Top Float,At_Offset_2 00eb 00da | | Load_Top At_Offset_2 00ec 00db | | Load_Top At_Offset_3 00ed 023b | ; | Execute Float,Times 00ee 00da | | Load_Top At_Offset_2 00ef e603 | | Load 0x3,0x3 00f0 023c | < | Execute Float,Minus 00f1 023d | = | Execute Float,Plus 00f2 00da | | Load_Top At_Offset_2 00f3 5fc8 |_ | Indirect_Literal Float,0xbc,2.0 00f4 023d | = | Execute Float,Plus 00f5 023a | : | Execute Float,Divide 00f6 0049 | I | Store_Top Float,At_Offset_1 00f7 00da | | Load_Top At_Offset_2 00f8 00d9 | | Load_Top At_Offset_1 00f9 023c | < | Execute Float,Minus 00fa c402 | | Store 0x2,0x2 00fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fc 3fb0 0057 |? W| .DBL 0.06250522999 00fe bea2 d172 | r| 0100 3fc0 0042 |? B| .DBL 0.125007987 0102 fff3 af7e | ~| 0104 3fe0 0000 |? | .DBL 0.5 0106 0000 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 011a | | .CONST 0x011a ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0006 | | .CONST 0x0006 ; 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 0253 | S| Declare_Subprogram INIT_0250,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 03d8 | | Declare_Variable Float,Duplicate 011a BODY_0108: 011a e5ff | | Load 0x2,-0x1 011b 00d8 | | Load_Top At_Offset_0 011c e602 | | Load 0x3,0x2 011d 0234 | 4 | Execute Float,In_Type 011e 7001 |p | Jump_Nonzero 0x120 011f 0801 | | Execute_Immediate Raise,0x1 0120 a603 | | Store_Unchecked 0x3,0x3 0121 00db | | Load_Top At_Offset_3 0122 5fe1 |_ | Indirect_Literal Float,0x104,0.5 0123 023b | ; | Execute Float,Times 0124 e603 | | Load 0x3,0x3 0125 00d8 | | Load_Top At_Offset_0 0126 023b | ; | Execute Float,Times 0127 582c |X, | Indirect_Literal Float,0x154,0.125 0128 e603 | | Load 0x3,0x3 0129 5826 |X& | Indirect_Literal Float,0x150,0.06250585095323793 012a e603 | | Load 0x3,0x3 012b 5820 |X | Indirect_Literal Float,0x14c,0.039067555766279356 012c 023b | ; | Execute Float,Times 012d 023c | < | Execute Float,Minus 012e 023b | ; | Execute Float,Times 012f 023c | < | Execute Float,Minus 0130 023b | ; | Execute Float,Times 0131 023c | < | Execute Float,Minus 0132 004b | K | Store_Top Float,At_Offset_3 0133 00da | | Load_Top At_Offset_2 0134 00db | | Load_Top At_Offset_3 0135 023d | = | Execute Float,Plus 0136 004a | J | Store_Top Float,At_Offset_2 0137 00da | | Load_Top At_Offset_2 0138 00db | | Load_Top At_Offset_3 0139 023b | ; | Execute Float,Times 013a 00da | | Load_Top At_Offset_2 013b e603 | | Load 0x3,0x3 013c 023c | < | Execute Float,Minus 013d 023d | = | Execute Float,Plus 013e 00da | | Load_Top At_Offset_2 013f 5808 |X | Indirect_Literal Float,0x148,2.0 0140 023d | = | Execute Float,Plus 0141 023a | : | Execute Float,Divide 0142 0049 | I | Store_Top Float,At_Offset_1 0143 00da | | Load_Top At_Offset_2 0144 00d9 | | Load_Top At_Offset_1 0145 023c | < | Execute Float,Minus 0146 c402 | | Store 0x2,0x2 0147 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0148 4000 0000 |@ | .DBL 2.0 014a 0000 0000 | | 014c 3fa4 00a9 |? | .DBL 0.039067555766279356 014e a4b3 9f79 | y| 0150 3fb0 0062 |? b| .DBL 0.06250585095323793 0152 29a7 1e62 |) b| 0154 3fc0 0000 |? | .DBL 0.125 0156 0000 0000 | | 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 016a | j | .CONST 0x016a ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0006 | | .CONST 0x0006 ; Number of locals 015b INIT_0158: 015b 00e6 | | Load_Encached Float_Cache 015c 0241 | A | Execute Float,First 015d 00e6 | | Load_Encached Float_Cache 015e 0240 | @ | Execute Float,Last 015f 00e6 | | Load_Encached Float_Cache 0160 03e3 | | Declare_Type Float,Constrained 0161 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 0163 00d9 | | Load_Top At_Offset_1 0164 012a | * | Execute Any,Change_Utility 0165 0007 | | Action Break_Optional 0166 00d8 | | Load_Top At_Offset_0 0167 03d8 | | Declare_Variable Float,Duplicate 0168 03d8 | | Declare_Variable Float,Duplicate 0169 03d8 | | Declare_Variable Float,Duplicate 016a BODY_0158: 016a e5ff | | Load 0x2,-0x1 016b 00d8 | | Load_Top At_Offset_0 016c e602 | | Load 0x3,0x2 016d 0234 | 4 | Execute Float,In_Type 016e 7001 |p | Jump_Nonzero 0x170 016f 0801 | | Execute_Immediate Raise,0x1 0170 a603 | | Store_Unchecked 0x3,0x3 0171 00db | | Load_Top At_Offset_3 0172 5841 |XA | Indirect_Literal Float,0x1b4,0.5 0173 023b | ; | Execute Float,Times 0174 e603 | | Load 0x3,0x3 0175 00d8 | | Load_Top At_Offset_0 0176 023b | ; | Execute Float,Times 0177 5838 |X8 | Indirect_Literal Float,0x1b0,0.12500000000004327 0178 e603 | | Load 0x3,0x3 0179 5832 |X2 | Indirect_Literal Float,0x1ac,0.06249999949583133 017a e603 | | Load 0x3,0x3 017b 582c |X, | Indirect_Literal Float,0x1a8,0.039062498978114125 017c e603 | | Load 0x3,0x3 017d 5826 |X& | Indirect_Literal Float,0x1a4,0.02734966395870805 017e e603 | | Load 0x3,0x3 017f 5820 |X | Indirect_Literal Float,0x1a0,0.020514473220656176 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 004b | K | Store_Top Float,At_Offset_3 018b 00da | | Load_Top At_Offset_2 018c 00db | | Load_Top At_Offset_3 018d 023d | = | Execute Float,Plus 018e 004a | J | Store_Top Float,At_Offset_2 018f 00da | | Load_Top At_Offset_2 0190 00db | | Load_Top At_Offset_3 0191 023b | ; | Execute Float,Times 0192 00da | | Load_Top At_Offset_2 0193 e603 | | Load 0x3,0x3 0194 023c | < | Execute Float,Minus 0195 023d | = | Execute Float,Plus 0196 00da | | Load_Top At_Offset_2 0197 5fb0 |_ | Indirect_Literal Float,0x148,2.0 0198 023d | = | Execute Float,Plus 0199 023a | : | Execute Float,Divide 019a 0049 | I | Store_Top Float,At_Offset_1 019b 00da | | Load_Top At_Offset_2 019c 00d9 | | Load_Top At_Offset_1 019d 023c | < | Execute Float,Minus 019e c402 | | Store 0x2,0x2 019f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a0 3f95 01be |? | .DBL 0.020514473220656176 01a2 fe4f 3e4b | O>K| 01a4 3f9c 018c |? | .DBL 0.02734966395870805 01a6 e109 7677 | vw| 01a8 3fa3 ffff |? | .DBL 0.039062498978114125 01aa f738 d965 | 8 e| 01ac 3faf ffff |? | .DBL 0.06249999949583133 01ae fbab 5245 | RE| 01b0 3fc0 0000 |? | .DBL 0.12500000000004327 01b2 0000 0617 | | 01b4 3fe0 0000 |? | .DBL 0.5 01b6 0000 0000 | | 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01ca | | .CONST 0x01ca ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0006 | | .CONST 0x0006 ; Number of locals 01bb INIT_01b8: 01bb 00e6 | | Load_Encached Float_Cache 01bc 0241 | A | Execute Float,First 01bd 00e6 | | Load_Encached Float_Cache 01be 0240 | @ | Execute Float,Last 01bf 00e6 | | Load_Encached Float_Cache 01c0 03e3 | | Declare_Type Float,Constrained 01c1 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call 01c3 00d9 | | Load_Top At_Offset_1 01c4 012a | * | Execute Any,Change_Utility 01c5 0007 | | Action Break_Optional 01c6 00d8 | | Load_Top At_Offset_0 01c7 03d8 | | Declare_Variable Float,Duplicate 01c8 03d8 | | Declare_Variable Float,Duplicate 01c9 03d8 | | Declare_Variable Float,Duplicate 01ca BODY_01b8: 01ca e5ff | | Load 0x2,-0x1 01cb 00d8 | | Load_Top At_Offset_0 01cc e602 | | Load 0x3,0x2 01cd 0234 | 4 | Execute Float,In_Type 01ce 7001 |p | Jump_Nonzero 0x1d0 01cf 0801 | | Execute_Immediate Raise,0x1 01d0 a603 | | Store_Unchecked 0x3,0x3 01d1 00db | | Load_Top At_Offset_3 01d2 5fe1 |_ | Indirect_Literal Float,0x1b4,0.5 01d3 023b | ; | Execute Float,Times 01d4 e603 | | Load 0x3,0x3 01d5 00d8 | | Load_Top At_Offset_0 01d6 023b | ; | Execute Float,Times 01d7 5844 |XD | Indirect_Literal Float,0x21c,0.12500000000003578 01d8 e603 | | Load 0x3,0x3 01d9 583e |X> | Indirect_Literal Float,0x218,0.06250000000006645 01da e603 | | Load 0x3,0x3 01db 5838 |X8 | Indirect_Literal Float,0x214,0.03906249911617502 01dc e603 | | Load 0x3,0x3 01dd 5832 |X2 | Indirect_Literal Float,0x210,0.027343748850355194 01de e603 | | Load 0x3,0x3 01df 582c |X, | Indirect_Literal Float,0x20c,0.02051400699965995 01e0 e603 | | Load 0x3,0x3 01e1 5826 |X& | Indirect_Literal Float,0x208,0.016119541340974698 01e2 023b | ; | Execute Float,Times 01e3 023c | < | Execute Float,Minus 01e4 023b | ; | Execute Float,Times 01e5 023c | < | Execute Float,Minus 01e6 023b | ; | Execute Float,Times 01e7 023c | < | Execute Float,Minus 01e8 023b | ; | Execute Float,Times 01e9 023c | < | Execute Float,Minus 01ea 023b | ; | Execute Float,Times 01eb 023c | < | Execute Float,Minus 01ec 023b | ; | Execute Float,Times 01ed 023c | < | Execute Float,Minus 01ee 004b | K | Store_Top Float,At_Offset_3 01ef 00da | | Load_Top At_Offset_2 01f0 00db | | Load_Top At_Offset_3 01f1 023d | = | Execute Float,Plus 01f2 004a | J | Store_Top Float,At_Offset_2 01f3 00da | | Load_Top At_Offset_2 01f4 00db | | Load_Top At_Offset_3 01f5 023b | ; | Execute Float,Times 01f6 00da | | Load_Top At_Offset_2 01f7 e603 | | Load 0x3,0x3 01f8 023c | < | Execute Float,Minus 01f9 023d | = | Execute Float,Plus 01fa 00da | | Load_Top At_Offset_2 01fb 5808 |X | Indirect_Literal Float,0x204,2.0 01fc 023d | = | Execute Float,Plus 01fd 023a | : | Execute Float,Divide 01fe 0049 | I | Store_Top Float,At_Offset_1 01ff 00da | | Load_Top At_Offset_2 0200 00d9 | | Load_Top At_Offset_1 0201 023c | < | Execute Float,Minus 0202 c402 | | Store 0x2,0x2 0203 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0204 4000 0000 |@ | .DBL 2.0 0206 0000 0000 | | 0208 3f90 81a4 |? | .DBL 0.016119541340974698 020a 1b8b 453d | E=| 020c 3f95 019f |? | .DBL 0.02051400699965995 020e b4b1 9e13 | | 0210 3f9b ffff |? | .DBL 0.027343748850355194 0212 ec3f cf05 | ? | 0214 3fa3 ffff |? | .DBL 0.03906249911617502 0216 f868 72c5 | hr | 0218 3fb0 0000 |? | .DBL 0.06250000000006645 021a 0000 12b4 | | 021c 3fc0 0000 |? | .DBL 0.12500000000003578 021e 0000 0509 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 4601 |F | Jump_Case 0x2 0224 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0225 7801 |x | Jump 0x227 ; case 0x1 0226 4302 |C | .XXX[0x1] 0227 4806 |H | Short_Literal 0x6 0228 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0229 0000 0000 | | .BLANK 0000[0x7] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 4601 |F | Jump_Case 0x2 0234 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0235 7801 |x | Jump 0x237 ; case 0x1 0236 4302 |C | .XXX[0x1] 0237 480f |H | Short_Literal 0xf 0238 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0239 0000 0000 | | .BLANK 0000[0x7] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 4601 |F | Jump_Case 0x2 0244 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0245 7801 |x | Jump 0x247 ; case 0x1 0246 4302 |C | .XXX[0x1] 0247 480f |H | Short_Literal 0xf 0248 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0249 0000 0000 | | .BLANK 0000[0x7] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 4601 |F | Jump_Case 0x2 0254 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0255 7801 |x | Jump 0x257 ; case 0x1 0256 4302 |C | .XXX[0x1] 0257 480f |H | Short_Literal 0xf 0258 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 4601 |F | Jump_Case 0x2 0264 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0265 7801 |x | Jump 0x267 ; case 0x1 0266 4302 |C | .XXX[0x1] 0267 480f |H | Short_Literal 0xf 0268 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0269 0000 0000 | | .BLANK 0000[0x7] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 4601 |F | Jump_Case 0x2 0274 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0275 7801 |x | Jump 0x277 ; case 0x1 0276 4302 |C | .XXX[0x1] 0277 480f |H | Short_Literal 0xf 0278 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug Table 0280 ; -------------------------------------------------------------------------------------- 0280 0004 0014 | | .DEBUG4 0x0004,0x0014,0x8f28,0x0000,0x0001,0x0000 0286 0200 1a23 | #| .XXX[0x5] 0288 0736 d800 | 6 | 028a 0010 | | 028b 0000 0000 | | .BLANK 0000[0x5] 0290 0008 0000 | | .XXX[0x1b] 0292 0000 0000 | | 0294 0018 0001 | | 0296 3a90 0100 |: | 0298 25f0 0100 |% | 029a 20e8 0100 | | 029c 71e8 0080 |q | 029e 2844 0000 |(D | 02a0 1301 2001 | | 02a2 d5a0 4165 | Ae| 02a4 4000 0050 |@ P| 02a6 5629 d953 |V) S| 02a8 30c0 0000 |0 | 02aa 2000 | | 02ab 0000 0000 | | .BLANK 0000[0x4] 02af 3d58 8200 |=X | .XXX[0x22] 02b1 0000 4000 | @ | 02b3 426a 8200 |Bj | 02b5 0000 4000 | @ | 02b7 0203 1824 | $| 02b9 6008 8000 |` | 02bb 0000 0000 | | 02bd 109a a080 | | 02bf 0000 1008 | | 02c1 2b14 eca9 |+ | 02c3 9860 0000 | ` | 02c5 1000 0000 | | 02c7 9000 033d | =| 02c9 4000 0000 |@ | 02cb 2000 0000 | | 02cd c000 80c6 | | 02cf 0918 0220 | | 02d1 0000 0000 | | .BLANK 0000[0x6] 02d7 0206 d547 | G| .XXX[0x13] 02d9 9454 a000 | T | 02db 0048 0000 | H | 02dd 0024 0000 | $ | 02df cf50 0000 | P | 02e1 0008 0000 | | 02e3 0028 0000 | ( | 02e5 0018 0001 | | 02e7 5a18 0100 |Z | 02e9 4e70 |Np | 02ea 0000 0000 | | .BLANK 0000[0x4] 02ee 0080 3c84 | < | .XXX[0xe] 02f0 0000 2edd | . | 02f2 9fca 2652 | &R| 02f4 4000 0000 |@ | 02f6 0410 42ae | B | 02f8 28d5 a400 |( | 02fa 0002 4000 | @ | 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 2a36 8580 |*6 | .XXX[0x9] 0302 0000 4000 | @ | 0304 2a38 8580 |*8 | 0306 0000 4000 | @ | 0308 2600 |& | 0309 0000 0000 | | .BLANK 0000[0x5] 030e 0a8e 2160 | !`| .XXX[0x8] 0310 0000 1007 | | 0312 f289 9490 | | 0314 0000 0001 | | 0316 0000 0000 | | .BLANK 0000[0x6] 031c 2000 0000 | | .XXX[0x4] 031e 0009 8000 | | 0320 0000 0000 | | .BLANK 0000[0x8] 0328 0205 719c | q | .XXX[0x5] 032a c262 1000 | b | 032c 0040 | @ | 032d 0000 0000 | | .BLANK 0000[0x5] 0332 0008 0000 | | .XXX[0x1b] 0334 0000 0000 | | 0336 0018 0002 | | 0338 36d0 0100 |6 | 033a 76f0 0100 |v | 033c 4968 0100 |Ih | 033e eb68 0080 | h | 0340 50c4 0000 |P | 0342 a040 2065 | @ e| 0344 dfff 084d | M| 0346 0000 0150 | P| 0348 32ef ff84 |2 | 034a f180 0000 | | 034c a000 | | 034d 0000 0000 | | .BLANK 0000[0xc] 0359 0203 0802 | | .XXX[0x17] 035b 2091 8000 | | 035d 0000 0000 | | 035f 1886 a160 | `| 0361 0000 1008 | | 0363 1977 ffc2 | w | 0365 78c0 0000 |x | 0367 5000 0000 |P | 0369 9000 05b0 | | 036b a000 0000 | | 036d 2000 0000 | | 036f a000 | | 0370 0000 0000 | | .BLANK 0000[0xa] 037a 041c 2000 | | .XXX[0x2] 037c 0000 0000 | | .BLANK 0000[0x7] 0383 0008 0000 | | .XXX[0x9] 0385 0000 0000 | | 0387 0018 0002 | | 0389 75e0 0100 |u | 038b 9f70 | p | 038c 0000 0000 | | .BLANK 0000[0x4] 0390 0080 6504 | e | .XXX[0xe] 0392 0000 c2ce | | 0394 a044 937c | D || 0396 c000 0000 | | 0398 0150 32f2 | P2 | 039a 030c 39a0 | 9 | 039c 0000 a000 | | 039e 0000 0000 | | .BLANK 0000[0x4] 03a2 88a0 8580 | | .XXX[0x9] 03a4 0000 4000 | @ | 03a6 ae58 8580 | X | 03a8 0000 4000 | @ | 03aa 2600 |& | 03ab 0000 0000 | | .BLANK 0000[0x5] 03b0 2b96 2160 |+ !`| .XXX[0x12] 03b2 0000 1008 | | 03b4 1979 0186 | y | 03b6 1cd0 0000 | | 03b8 5000 0000 |P | 03ba 9000 060a | | 03bc c000 0000 | | 03be 2000 0000 | | 03c0 8009 8000 | | 03c2 0000 0000 | | .BLANK 0000[0x8] 03ca 0206 5e1c | ^ | .XXX[0x25] 03cc aa8d c800 | | 03ce 0014 0000 | | 03d0 0024 0001 | $ | 03d2 82b0 0000 | | 03d4 0008 0000 | | 03d6 0018 0000 | | 03d8 0018 0002 | | 03da 9568 0100 | h | 03dc c7f0 0100 | | 03de c2e8 0101 | | 03e0 13e8 0080 | | 03e2 7944 0000 |yD | 03e4 bb36 a065 | 6 e| 03e6 e362 65da | be | 03e8 8000 0150 | P| 03ea 32f1 c76c |2 l| 03ec 8b60 0000 | ` | 03ee a000 | | 03ef 0000 0000 | | .BLANK 0000[0xc] 03fb 0203 0802 | | .XXX[0x5] 03fd 2091 8000 | | 03ff 0000 | |