|
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: 3072 (0xc00) Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_040cf4
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0348 | H | .CONST 0x0348 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0042 | B | .CONST 0x0042 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x039a,0x8000,0x0000,0x0035,0x1864,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4804 |H | Short_Literal 0x4 000d e001 | | Load 0x0,0x1 000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000f 035c | \ | Declare_Type Array,Constrained,Visible 0010 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0x10,0xfffe 0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x12,0xfffd 0014 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x3 = 0x14,0xfffc 0015 4808 |H | Short_Literal 0x8 0016 e001 | | Load 0x0,0x1 0017 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0018 035c | \ | Declare_Type Array,Constrained,Visible 0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x19,0xfffb 001b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x1b,0xfffa 001d 00bf | | Action Accept_Activation 001e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001e,0x03a8,0x8000,0x0000,0x0035,0x1984,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x1e,0xffff 001f e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x1f,0xfffe 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x2 = 0x21,0xfffd 0022 62d5 |b | Indirect_Literal Discrete,0x2f8,{0x00000000, 0x7fffffff} 0023 00da | | Load_Top At_Offset_2 0024 03f8 | | Declare_Type Discrete,Constrained 0025 4f81 |O | Short_Literal -0x7f ; Debug Table 0x1.0x3 = 0x25,0xfffc 0026 4880 |H | Short_Literal 0x80 0027 00db | | Load_Top At_Offset_3 0028 03f8 | | Declare_Type Discrete,Constrained 0029 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x4 = 0x29,0xfffb 002a 62c9 |b | Indirect_Literal Discrete,0x2f4,{0x00000000, 0x007fffff} 002b e213 | | Load 0x1,0x13 002c 03f8 | | Declare_Type Discrete,Constrained 002d 4c01 |L | Short_Literal -0x3ff ; Debug Table 0x1.0x5 = 0x2d,0xfffa 002e 62c1 |b | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x00000400} 002f e213 | | Load 0x1,0x13 0030 03f8 | | Declare_Type Discrete,Constrained 0031 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x6 = 0x31,0xfff9 0032 4802 |H | Short_Literal 0x2 0033 4834 |H4 | Short_Literal 0x34 0034 026d | m | Execute Discrete,Exponentiate 0035 0aff | | Execute_Immediate Plus,-0x1 0036 e213 | | Load 0x1,0x13 0037 03f8 | | Declare_Type Discrete,Constrained 0038 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call ; Debug Table 0x1.0x7 = 0x38,0xfff8 003a 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x8 = 0x3a,0xfff7 003b 00c7 | | Action Elaborate_Subprogram 003c 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x9 = 0x3c,0xfff6 003d 00c7 | | Action Elaborate_Subprogram 003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xa = 0x3e,0xfff5 003f 00c7 | | Action Elaborate_Subprogram 0040 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xb = 0x40,0xfff4 0041 00c7 | | Action Elaborate_Subprogram 0042 BODY_0008: 0042 00bc | | Action Signal_Activated 0043 00bb | | Action Signal_Completion 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 005b | [ | .CONST 0x005b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0008 | | .CONST 0x0008 ; Number of locals 004b INIT_0048: 004b e20d | | Load 0x1,0xd ; Debug Table 0x2 = .DEBUG 0x004b,0x03c2,0x0002,0x0000,0x0035,0x1864,0x0000,0x0014 ; Debug Table 0x2.0x0 = 0x4b,0xffff 004c 0337 | 7 | Declare_Variable Array 004d 00db | | Load_Top At_Offset_3 004e 00d9 | | Load_Top At_Offset_1 004f 01d4 | | Execute Vector,Structure_Write 0050 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x1 = 0x50,0xfffe 0051 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0052 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x2 = 0x52,0xfffd 0053 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0054 e215 | | Load 0x1,0x15 ; Debug Table 0x2.0x3 = 0x54,0xfffc 0055 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0056 e216 | | Load 0x1,0x16 ; Debug Table 0x2.0x4 = 0x56,0xfffb 0057 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0058 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x5 = 0x58,0xfffa 0059 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 005b BODY_0048: 005b 8408 | | Call 0x2,0x8 ; Debug Table 0x2.0x6 = 0x5b,0x1 005c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x7 = 0x5c,0x2 005d 0a81 | | Execute_Immediate Plus,-0x7f 005e e215 | | Load 0x1,0x15 005f 025b | [ | Execute Discrete,Check_In_Type 0060 a405 | | Store_Unchecked 0x2,0x5 0061 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x8 = 0x61,0x3 0062 0f80 | | Execute_Immediate Equal,-0x80 0063 6803 |h | Jump_Zero 0x67 0064 5a87 |Z | Indirect_Literal Float,0x2ec,3.402823669209385e+38 ; Debug Table 0x2.0x9 = 0x64,0x4 0065 a403 | | Store_Unchecked 0x2,0x3 0066 781c |x | Jump 0x83 0067 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0xa = 0x67,0x5 0068 4f81 |O | Short_Literal -0x7f 0069 027d | } | Execute Discrete,Greater 006a 680c |h | Jump_Zero 0x77 006b 5a7c |Z| | Indirect_Literal Float,0x2e8,1.0 ; Debug Table 0x2.0xb = 0x6b,0x6 006c 00db | | Load_Top At_Offset_3 006d 0237 | 7 | Execute Float,Convert_From_Discrete 006e 5a75 |Zu | Indirect_Literal Float,0x2e4,1.1920928955078125e-07 006f 023b | ; | Execute Float,Times 0070 023d | = | Execute Float,Plus 0071 5a6e |Zn | Indirect_Literal Float,0x2e0,2.0 0072 e405 | | Load 0x2,0x5 0073 0239 | 9 | Execute Float,Exponentiate 0074 023b | ; | Execute Float,Times 0075 c403 | | Store 0x2,0x3 0076 780c |x | Jump 0x83 0077 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xc = 0x77,0x7 0078 6808 |h | Jump_Zero 0x81 0079 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xd = 0x79,0x8 007a 0237 | 7 | Execute Float,Convert_From_Discrete 007b 5a68 |Zh | Indirect_Literal Float,0x2e4,1.1920928955078125e-07 007c 023b | ; | Execute Float,Times 007d 5a5e |Z^ | Indirect_Literal Float,0x2dc,1.1754943508222875e-38 007e 023b | ; | Execute Float,Times 007f c403 | | Store 0x2,0x3 0080 7802 |x | Jump 0x83 0081 5a56 |ZV | Indirect_Literal Float,0x2d8,0.0 ; Debug Table 0x2.0xe = 0x81,0x9 0082 a403 | | Store_Unchecked 0x2,0x3 0083 e404 | | Load 0x2,0x4 ; Debug Table 0x2.0xf = 0x83,0xa 0084 6803 |h | Jump_Zero 0x88 0085 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x10 = 0x85,0xb 0086 023f | ? | Execute Float,Unary_Minus 0087 c403 | | Store 0x2,0x3 0088 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x11 = 0x88,0xc 0089 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00a1 | | .CONST 0x00a1 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0007 | | .CONST 0x0007 ; Number of locals 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0093,0x03e8,0x0002,0x0000,0x0035,0x1864,0x0000,0x0021 ; Debug Table 0x3.0x0 = 0x93,0xffff 0094 e002 | | Load 0x0,0x2 0095 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0096 03df | | Declare_Variable Float,With_Value 0097 e20d | | Load 0x1,0xd ; Debug Table 0x3.0x1 = 0x97,0xfffe 0098 0337 | 7 | Declare_Variable Array 0099 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x2 = 0x99,0xfffd 009a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009b e215 | | Load 0x1,0x15 ; Debug Table 0x3.0x3 = 0x9b,0xfffc 009c 0007 | | Action Break_Optional 009d e216 | | Load 0x1,0x16 ; Debug Table 0x3.0x4 = 0x9d,0xfffb 009e 0007 | | Action Break_Optional 009f e214 | | Load 0x1,0x14 ; Debug Table 0x3.0x5 = 0x9f,0xfffa 00a0 0007 | | Action Break_Optional 00a1 BODY_0090: 00a1 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x6 = 0xa1,0x1 00a2 014b | K | Execute Float,Less_Zero 00a3 6805 |h | Jump_Zero 0xa9 00a4 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x7 = 0xa4,0x2 00a5 a404 | | Store_Unchecked 0x2,0x4 00a6 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x8 = 0xa6,0x3 00a7 023f | ? | Execute Float,Unary_Minus 00a8 c402 | | Store 0x2,0x2 00a9 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x9 = 0xa9,0x4 00aa 7005 |p | Jump_Nonzero 0xb0 00ab 4f81 |O | Short_Literal -0x7f ; Debug Table 0x3.0xa = 0xab,0x5 00ac 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00ad 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xb = 0xad,0x6 00ae 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00af 7831 |x1 | Jump 0xe1 00b0 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0xc = 0xb0,0x7 00b1 5a2a |Z* | Indirect_Literal Float,0x2dc,1.1754943508222875e-38 00b2 0244 | D | Execute Float,Less 00b3 680e |h | Jump_Zero 0xc2 00b4 4f81 |O | Short_Literal -0x7f ; Debug Table 0x3.0xd = 0xb4,0x8 00b5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00b6 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0xe = 0xb6,0x9 00b7 5a1c |Z | Indirect_Literal Float,0x2d4,8.507059173023462e+37 00b8 023b | ; | Execute Float,Times 00b9 c402 | | Store 0x2,0x2 00ba e402 | | Load 0x2,0x2 ; Debug Table 0x3.0xf = 0xba,0xa 00bb 5a14 |Z | Indirect_Literal Float,0x2d0,8388608.0 00bc 023b | ; | Execute Float,Times 00bd 0235 | 5 | Execute Float,Round_To_Discrete 00be e216 | | Load 0x1,0x16 00bf 025e | ^ | Execute Discrete,Convert 00c0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00c1 781f |x | Jump 0xe1 00c2 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x10 = 0xc2,0xb 00c3 5a08 |Z | Indirect_Literal Float,0x2cc,3.4028220466166163e+38 00c4 0245 | E | Execute Float,Greater 00c5 6805 |h | Jump_Zero 0xcb 00c6 4880 |H | Short_Literal 0x80 ; Debug Table 0x3.0x11 = 0xc6,0xc 00c7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00c8 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x12 = 0xc8,0xd 00c9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00ca 7816 |x | Jump 0xe1 00cb e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x13 = 0xcb,0xe 00cc 8219 | | Call 0x1,0x19 00cd e215 | | Load 0x1,0x15 00ce 025b | [ | Execute Discrete,Check_In_Type 00cf 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00d0 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x14 = 0xd0,0xf 00d1 5a0e |Z | Indirect_Literal Float,0x2e0,2.0 00d2 e405 | | Load 0x2,0x5 00d3 0275 | u | Execute Discrete,Unary_Minus 00d4 0248 | H | Execute Discrete,Check_In_Integer 00d5 0239 | 9 | Execute Float,Exponentiate 00d6 023b | ; | Execute Float,Times 00d7 c402 | | Store 0x2,0x2 00d8 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x15 = 0xd8,0x10 00d9 5a0e |Z | Indirect_Literal Float,0x2e8,1.0 00da 023c | < | Execute Float,Minus 00db 59f4 |Y | Indirect_Literal Float,0x2d0,8388608.0 00dc 023b | ; | Execute Float,Times 00dd 0235 | 5 | Execute Float,Round_To_Discrete 00de e216 | | Load 0x1,0x16 00df 025e | ^ | Execute Discrete,Convert 00e0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00e1 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x16 = 0xe1,0x11 00e2 0a7f | | Execute_Immediate Plus,0x7f 00e3 0059 | Y | Store_Top Discrete,At_Offset_1 00e4 00cf | | Action Mark_Auxiliary 00e5 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x17 = 0xe5,0x12 00e6 4804 |H | Short_Literal 0x4 00e7 0007 | | Action Break_Optional 00e8 e406 | | Load 0x2,0x6 ; Debug Table 0x3.0x18 = 0xe8,0x13 00e9 48ff |H | Short_Literal 0xff 00ea 0279 | y | Execute Discrete,And 00eb e003 | | Load 0x0,0x3 00ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ed 025b | [ | Execute Discrete,Check_In_Type 00ee 00d9 | | Load_Top At_Offset_1 00ef e403 | | Load 0x2,0x3 00f0 01d6 | | Execute Vector,Field_Write 00f1 e406 | | Load 0x2,0x6 ; Debug Table 0x3.0x19 = 0xf1,0x14 00f2 09f8 | | Execute_Immediate Binary_Scale,-0x8 00f3 c406 | | Store 0x2,0x6 00f4 00c8 | | Action Pop_Auxiliary_Range 00f5 37f2 |7 | Loop_Decreasing 0xe8 00f6 00ce | | Action Pop_Auxiliary 00f7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1a = 0xf7,0x15 00f8 4801 |H | Short_Literal 0x1 00f9 0279 | y | Execute Discrete,And 00fa 6808 |h | Jump_Zero 0x103 00fb 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x1b = 0xfb,0x16 00fc e403 | | Load 0x2,0x3 00fd 01d7 | | Execute Vector,Field_Read 00fe 4880 |H | Short_Literal 0x80 00ff 0273 | s | Execute Discrete,Plus 0100 4802 |H | Short_Literal 0x2 0101 e403 | | Load 0x2,0x3 0102 01d6 | | Execute Vector,Field_Write 0103 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1c = 0x103,0x17 0104 09ff | | Execute_Immediate Binary_Scale,-0x1 0105 e003 | | Load 0x0,0x3 0106 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0107 025b | [ | Execute Discrete,Check_In_Type 0108 4801 |H | Short_Literal 0x1 0109 e403 | | Load 0x2,0x3 010a 01d6 | | Execute Vector,Field_Write 010b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1d = 0x10b,0x18 010c 6808 |h | Jump_Zero 0x115 010d 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x1e = 0x10d,0x19 010e e403 | | Load 0x2,0x3 010f 01d7 | | Execute Vector,Field_Read 0110 4880 |H | Short_Literal 0x80 0111 0273 | s | Execute Discrete,Plus 0112 4801 |H | Short_Literal 0x1 0113 e403 | | Load 0x2,0x3 0114 01d6 | | Execute Vector,Field_Write 0115 e403 | | Load 0x2,0x3 ; Debug Table 0x3.0x1f = 0x115,0x1a 0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 012b | + | .CONST 0x012b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0008 | | .CONST 0x0008 ; Number of locals 011b INIT_0118: 011b e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x011b,0x042a,0x0002,0x0000,0x0035,0x1864,0x0000,0x003a ; Debug Table 0x4.0x0 = 0x11b,0xffff 011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011d e210 | | Load 0x1,0x10 ; Debug Table 0x4.0x1 = 0x11d,0xfffe 011e 0337 | 7 | Declare_Variable Array 011f e5ff | | Load 0x2,-0x1 0120 00d9 | | Load_Top At_Offset_1 0121 01d4 | | Execute Vector,Structure_Write 0122 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x2 = 0x122,0xfffd 0123 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0124 e217 | | Load 0x1,0x17 ; Debug Table 0x4.0x3 = 0x124,0xfffc 0125 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0126 e218 | | Load 0x1,0x18 ; Debug Table 0x4.0x4 = 0x126,0xfffb 0127 0700 | | Execute_Immediate Set_Value,0x0 0128 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x4.0x5 = 0x128,0xfffa 0129 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 012b BODY_0118: 012b 8408 | | Call 0x2,0x8 ; Debug Table 0x4.0x6 = 0x12b,0x1 012c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x7 = 0x12c,0x2 012d 4c01 |L | Short_Literal -0x3ff 012e 0273 | s | Execute Discrete,Plus 012f e217 | | Load 0x1,0x17 0130 025b | [ | Execute Discrete,Check_In_Type 0131 a405 | | Store_Unchecked 0x2,0x5 0132 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x8 = 0x132,0x3 0133 61bc |a | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x00000400} 0134 027f | | Execute Discrete,Equal 0135 6803 |h | Jump_Zero 0x139 0136 5991 |Y | Indirect_Literal Float,0x2c8,9.999994528969601e+31 ; Debug Table 0x4.0x9 = 0x136,0x4 0137 a402 | | Store_Unchecked 0x2,0x2 0138 7824 |x$ | Jump 0x15d 0139 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0xa = 0x139,0x5 013a 4c01 |L | Short_Literal -0x3ff 013b 027d | } | Execute Discrete,Greater 013c 680f |h | Jump_Zero 0x14c 013d 59aa |Y | Indirect_Literal Float,0x2e8,1.0 ; Debug Table 0x4.0xb = 0x13d,0x6 013e 00db | | Load_Top At_Offset_3 013f 0237 | 7 | Execute Float,Convert_From_Discrete 0140 e002 | | Load 0x0,0x2 0141 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0142 0238 | 8 | Execute Float,Convert 0143 5980 |Y | Indirect_Literal Float,0x2c4,2.220446049250313e-16 0144 023b | ; | Execute Float,Times 0145 023d | = | Execute Float,Plus 0146 5999 |Y | Indirect_Literal Float,0x2e0,2.0 0147 e405 | | Load 0x2,0x5 0148 0239 | 9 | Execute Float,Exponentiate 0149 023b | ; | Execute Float,Times 014a a402 | | Store_Unchecked 0x2,0x2 014b 7811 |x | Jump 0x15d 014c 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xc = 0x14c,0x7 014d 680d |h | Jump_Zero 0x15b 014e 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xd = 0x14e,0x8 014f 0237 | 7 | Execute Float,Convert_From_Discrete 0150 e002 | | Load 0x0,0x2 0151 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0152 0238 | 8 | Execute Float,Convert 0153 5970 |Yp | Indirect_Literal Float,0x2c4,2.220446049250313e-16 0154 023b | ; | Execute Float,Times 0155 598a |Y | Indirect_Literal Float,0x2e0,2.0 0156 4c02 |L | Short_Literal -0x3fe 0157 0239 | 9 | Execute Float,Exponentiate 0158 023b | ; | Execute Float,Times 0159 a402 | | Store_Unchecked 0x2,0x2 015a 7802 |x | Jump 0x15d 015b 597c |Y| | Indirect_Literal Float,0x2d8,0.0 ; Debug Table 0x4.0xe = 0x15b,0x9 015c a402 | | Store_Unchecked 0x2,0x2 015d e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xf = 0x15d,0xa 015e 6803 |h | Jump_Zero 0x162 015f e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x10 = 0x15f,0xb 0160 023f | ? | Execute Float,Unary_Minus 0161 a402 | | Store_Unchecked 0x2,0x2 0162 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x11 = 0x162,0xc 0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0164 0000 0000 | | .BLANK 0000[0x4] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0179 | y | .CONST 0x0179 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0007 | | .CONST 0x0007 ; Number of locals 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x016b,0x0450,0x0002,0x0000,0x0035,0x1864,0x0000,0x0047 ; Debug Table 0x5.0x0 = 0x16b,0xffff 016c e002 | | Load 0x0,0x2 016d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016e 03df | | Declare_Variable Float,With_Value 016f e210 | | Load 0x1,0x10 ; Debug Table 0x5.0x1 = 0x16f,0xfffe 0170 0337 | 7 | Declare_Variable Array 0171 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x2 = 0x171,0xfffd 0172 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0173 e217 | | Load 0x1,0x17 ; Debug Table 0x5.0x3 = 0x173,0xfffc 0174 0007 | | Action Break_Optional 0175 e218 | | Load 0x1,0x18 ; Debug Table 0x5.0x4 = 0x175,0xfffb 0176 0007 | | Action Break_Optional 0177 e214 | | Load 0x1,0x14 ; Debug Table 0x5.0x5 = 0x177,0xfffa 0178 0007 | | Action Break_Optional 0179 BODY_0168: 0179 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x6 = 0x179,0x1 017a 014b | K | Execute Float,Less_Zero 017b 6805 |h | Jump_Zero 0x181 017c 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x7 = 0x17c,0x2 017d a404 | | Store_Unchecked 0x2,0x4 017e e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x8 = 0x17e,0x3 017f 023f | ? | Execute Float,Unary_Minus 0180 a402 | | Store_Unchecked 0x2,0x2 0181 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x9 = 0x181,0x4 0182 7005 |p | Jump_Nonzero 0x188 0183 4c01 |L | Short_Literal -0x3ff ; Debug Table 0x5.0xa = 0x183,0x5 0184 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0185 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xb = 0x185,0x6 0186 005a | Z | Store_Top Discrete,At_Offset_2 0187 782f |x/ | Jump 0x1b7 0188 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xc = 0x188,0x7 0189 5936 |Y6 | Indirect_Literal Float,0x2c0,4.0 018a 0244 | D | Execute Float,Less 018b 680e |h | Jump_Zero 0x19a 018c 4c01 |L | Short_Literal -0x3ff ; Debug Table 0x5.0xd = 0x18c,0x8 018d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 018e e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xe = 0x18e,0x9 018f 592c |Y, | Indirect_Literal Float,0x2bc,0.25 0190 023b | ; | Execute Float,Times 0191 a402 | | Store_Unchecked 0x2,0x2 0192 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xf = 0x192,0xa 0193 5924 |Y$ | Indirect_Literal Float,0x2b8,4503599627370496.0 0194 023b | ; | Execute Float,Times 0195 0235 | 5 | Execute Float,Round_To_Discrete 0196 e218 | | Load 0x1,0x18 0197 025e | ^ | Execute Discrete,Convert 0198 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0199 781d |x | Jump 0x1b7 019a e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x10 = 0x19a,0xb 019b 594c |YL | Indirect_Literal Float,0x2e8,1.0 019c 0245 | E | Execute Float,Greater 019d 6805 |h | Jump_Zero 0x1a3 019e 6151 |aQ | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x00000400} ; Debug Table 0x5.0x11 = 0x19e,0xc 019f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01a0 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x12 = 0x1a0,0xd 01a1 005a | Z | Store_Top Discrete,At_Offset_2 01a2 7814 |x | Jump 0x1b7 01a3 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x13 = 0x1a3,0xe 01a4 8219 | | Call 0x1,0x19 01a5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01a6 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x14 = 0x1a6,0xf 01a7 5938 |Y8 | Indirect_Literal Float,0x2e0,2.0 01a8 e405 | | Load 0x2,0x5 01a9 0275 | u | Execute Discrete,Unary_Minus 01aa 0248 | H | Execute Discrete,Check_In_Integer 01ab 0239 | 9 | Execute Float,Exponentiate 01ac 023b | ; | Execute Float,Times 01ad a402 | | Store_Unchecked 0x2,0x2 01ae e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x15 = 0x1ae,0x10 01af 5938 |Y8 | Indirect_Literal Float,0x2e8,1.0 01b0 023c | < | Execute Float,Minus 01b1 5906 |Y | Indirect_Literal Float,0x2b8,4503599627370496.0 01b2 023b | ; | Execute Float,Times 01b3 0235 | 5 | Execute Float,Round_To_Discrete 01b4 e218 | | Load 0x1,0x18 01b5 025e | ^ | Execute Discrete,Convert 01b6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01b7 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x16 = 0x1b7,0x11 01b8 4bff |K | Short_Literal 0x3ff 01b9 0273 | s | Execute Discrete,Plus 01ba 0059 | Y | Store_Top Discrete,At_Offset_1 01bb 00cf | | Action Mark_Auxiliary 01bc 4802 |H | Short_Literal 0x2 ; Debug Table 0x5.0x17 = 0x1bc,0x12 01bd 4808 |H | Short_Literal 0x8 01be 0007 | | Action Break_Optional 01bf e406 | | Load 0x2,0x6 ; Debug Table 0x5.0x18 = 0x1bf,0x13 01c0 4900 |I | Short_Literal 0x100 01c1 e218 | | Load 0x1,0x18 01c2 025b | [ | Execute Discrete,Check_In_Type 01c3 026e | n | Execute Discrete,Modulo 01c4 e003 | | Load 0x0,0x3 01c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01c6 025b | [ | Execute Discrete,Check_In_Type 01c7 00d9 | | Load_Top At_Offset_1 01c8 e403 | | Load 0x2,0x3 01c9 01d6 | | Execute Vector,Field_Write 01ca e406 | | Load 0x2,0x6 ; Debug Table 0x5.0x19 = 0x1ca,0x14 01cb 4900 |I | Short_Literal 0x100 01cc e218 | | Load 0x1,0x18 01cd 025b | [ | Execute Discrete,Check_In_Type 01ce 0270 | p | Execute Discrete,Divide 01cf c406 | | Store 0x2,0x6 01d0 00c8 | | Action Pop_Auxiliary_Range 01d1 37ed |7 | Loop_Decreasing 0x1bf 01d2 00ce | | Action Pop_Auxiliary 01d3 4802 |H | Short_Literal 0x2 ; Debug Table 0x5.0x1a = 0x1d3,0x15 01d4 e403 | | Load 0x2,0x3 01d5 01d7 | | Execute Vector,Field_Read 01d6 00d9 | | Load_Top At_Offset_1 01d7 480f |H | Short_Literal 0xf 01d8 0279 | y | Execute Discrete,And 01d9 0904 | | Execute_Immediate Binary_Scale,0x4 01da e003 | | Load 0x0,0x3 01db 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01dc 025b | [ | Execute Discrete,Check_In_Type 01dd 0273 | s | Execute Discrete,Plus 01de 4802 |H | Short_Literal 0x2 01df e403 | | Load 0x2,0x3 01e0 01d6 | | Execute Vector,Field_Write 01e1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1b = 0x1e1,0x16 01e2 09fc | | Execute_Immediate Binary_Scale,-0x4 01e3 e003 | | Load 0x0,0x3 01e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e5 025b | [ | Execute Discrete,Check_In_Type 01e6 4801 |H | Short_Literal 0x1 01e7 e403 | | Load 0x2,0x3 01e8 01d6 | | Execute Vector,Field_Write 01e9 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1c = 0x1e9,0x17 01ea 6808 |h | Jump_Zero 0x1f3 01eb 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x1d = 0x1eb,0x18 01ec e403 | | Load 0x2,0x3 01ed 01d7 | | Execute Vector,Field_Read 01ee 4880 |H | Short_Literal 0x80 01ef 0273 | s | Execute Discrete,Plus 01f0 4801 |H | Short_Literal 0x1 01f1 e403 | | Load 0x2,0x3 01f2 01d6 | | Execute Vector,Field_Write 01f3 e403 | | Load 0x2,0x3 ; Debug Table 0x5.0x1e = 0x1f3,0x19 01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0201 | | .CONST 0x0201 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0004 | | .CONST 0x0004 ; Number of locals 01fb INIT_01f8: 01fb e217 | | Load 0x1,0x17 ; Debug Table 0x6 = .DEBUG 0x01fb,0x0490,0x0002,0x0000,0x0035,0x1984,0x0000,0x0051 ; Debug Table 0x6.0x0 = 0x1fb,0xffff 01fc 0007 | | Action Break_Optional 01fd e213 | | Load 0x1,0x13 ; Debug Table 0x6.0x1 = 0x1fd,0xfffe 01fe 0007 | | Action Break_Optional 01ff 029f 0303 | | Declare_Subprogram INIT_0300,For_Call ; Debug Table 0x6.0x2 = 0x1ff,0xfffd 0201 BODY_01f8: 0201 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x3 = 0x201,0x1 0202 014c | L | Execute Float,Greater_Zero 0203 7002 |p | Jump_Nonzero 0x206 0204 4887 |H | Short_Literal 0x87 0205 0257 | W | Execute Discrete,Raise 0206 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x4 = 0x206,0x2 0207 58d8 |X | Indirect_Literal Float,0x2e0,2.0 0208 0243 | C | Execute Float,Greater_Equal 0209 6817 |h | Jump_Zero 0x221 020a 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x5 = 0x20a,0x3 020b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 020c 00cf | | Action Mark_Auxiliary 020d 7808 |x | Jump 0x216 020e 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x6 = 0x20e,0x5 020f 0901 | | Execute_Immediate Binary_Scale,0x1 0210 c402 | | Store 0x2,0x2 0211 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x7 = 0x211,0x6 0212 60dd |` | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x00000400} 0213 027b | { | Execute Discrete,Greater_Equal 0214 7009 |p | Jump_Nonzero 0x21e 0215 00c9 | | Action Pop_Auxiliary_Loop 0216 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x8 = 0x216,0x4 0217 58c8 |X | Indirect_Literal Float,0x2e0,2.0 0218 e402 | | Load 0x2,0x2 0219 0a01 | | Execute_Immediate Plus,0x1 021a 0248 | H | Execute Discrete,Check_In_Integer 021b 0239 | 9 | Execute Float,Exponentiate 021c 0243 | C | Execute Float,Greater_Equal 021d 77f0 |w | Jump_Nonzero 0x20e 021e 00ce | | Action Pop_Auxiliary 021f 8404 | | Call 0x2,0x4 ; Debug Table 0x6.0x9 = 0x21f,0x7 0220 7820 |x | Jump 0x241 0221 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0xa = 0x221,0x8 0222 58c5 |X | Indirect_Literal Float,0x2e8,1.0 0223 0244 | D | Execute Float,Less 0224 681a |h | Jump_Zero 0x23f 0225 4fff |O | Short_Literal -0x1 ; Debug Table 0x6.0xb = 0x225,0x9 0226 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0227 00cf | | Action Mark_Auxiliary 0228 780d |x | Jump 0x236 0229 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xc = 0x229,0xb 022a 0901 | | Execute_Immediate Binary_Scale,0x1 022b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 022c 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xd = 0x22c,0xc 022d 4c01 |L | Short_Literal -0x3ff 022e 027c | | | Execute Discrete,Less 022f 6801 |h | Jump_Zero 0x231 0230 780b |x | Jump 0x23c ; Debug Table 0x6.0xe = 0x230,0xd 0231 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xf = 0x231,0xe 0232 e217 | | Load 0x1,0x17 0233 025b | [ | Execute Discrete,Check_In_Type 0234 a402 | | Store_Unchecked 0x2,0x2 0235 00c9 | | Action Pop_Auxiliary_Loop 0236 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x10 = 0x236,0xa 0237 58a8 |X | Indirect_Literal Float,0x2e0,2.0 0238 e402 | | Load 0x2,0x2 0239 0239 | 9 | Execute Float,Exponentiate 023a 0244 | D | Execute Float,Less 023b 77ed |w | Jump_Nonzero 0x229 023c 00ce | | Action Pop_Auxiliary 023d 8404 | | Call 0x2,0x4 ; Debug Table 0x6.0x11 = 0x23d,0xf 023e 7802 |x | Jump 0x241 023f 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x12 = 0x23f,0x10 0240 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0241 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x13 = 0x241,0x11 0242 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0243 0000 0000 | | .BLANK 0000[0x5] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 4801 |H | Short_Literal 0x1 ; Debug Table 0x7 = .DEBUG 0x024b,0x04ba,0x0004,0x0000,0x0035,0x1984,0x0000,0x0228 ; Debug Table 0x7.0x0 = 0x24b,0x1 024c e402 | | Load 0x2,0x2 024d 01d7 | | Execute Vector,Field_Read 024e 09f9 | | Execute_Immediate Binary_Scale,-0x7 024f 680a |h | Jump_Zero 0x25a 0250 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x1 = 0x250,0x2 0251 a404 | | Store_Unchecked 0x2,0x4 0252 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x2 = 0x252,0x3 0253 e402 | | Load 0x2,0x2 0254 01d7 | | Execute Vector,Field_Read 0255 487f |H | Short_Literal 0x7f 0256 0279 | y | Execute Discrete,And 0257 4801 |H | Short_Literal 0x1 0258 e402 | | Load 0x2,0x2 0259 01d6 | | Execute Vector,Field_Write 025a 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x3 = 0x25a,0x4 025b e402 | | Load 0x2,0x2 025c 01d7 | | Execute Vector,Field_Read 025d 0901 | | Execute_Immediate Binary_Scale,0x1 025e 0248 | H | Execute Discrete,Check_In_Integer 025f 4802 |H | Short_Literal 0x2 0260 e402 | | Load 0x2,0x2 0261 01d7 | | Execute Vector,Field_Read 0262 09f9 | | Execute_Immediate Binary_Scale,-0x7 0263 0273 | s | Execute Discrete,Plus 0264 c407 | | Store 0x2,0x7 0265 4802 |H | Short_Literal 0x2 ; Debug Table 0x7.0x4 = 0x265,0x5 0266 e402 | | Load 0x2,0x2 0267 01d7 | | Execute Vector,Field_Read 0268 487f |H | Short_Literal 0x7f 0269 0279 | y | Execute Discrete,And 026a 4802 |H | Short_Literal 0x2 026b e402 | | Load 0x2,0x2 026c 01d6 | | Execute Vector,Field_Write 026d 00cf | | Action Mark_Auxiliary 026e 4804 |H | Short_Literal 0x4 ; Debug Table 0x7.0x5 = 0x26e,0x6 026f 4802 |H | Short_Literal 0x2 0270 0007 | | Action Break_Optional 0271 e406 | | Load 0x2,0x6 ; Debug Table 0x7.0x6 = 0x271,0x7 0272 0908 | | Execute_Immediate Binary_Scale,0x8 0273 00d9 | | Load_Top At_Offset_1 0274 e402 | | Load 0x2,0x2 0275 01d7 | | Execute Vector,Field_Read 0276 0273 | s | Execute Discrete,Plus 0277 c406 | | Store 0x2,0x6 0278 00c8 | | Action Pop_Auxiliary_Range 0279 3ff7 |? | Loop_Increasing 0x271 027a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4801 |H | Short_Literal 0x1 ; Debug Table 0x8 = .DEBUG 0x0283,0x04ca,0x0004,0x0000,0x0035,0x1984,0x0000,0x049f ; Debug Table 0x8.0x0 = 0x283,0x1 0284 e403 | | Load 0x2,0x3 0285 01d7 | | Execute Vector,Field_Read 0286 09f9 | | Execute_Immediate Binary_Scale,-0x7 0287 6809 |h | Jump_Zero 0x291 0288 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x1 = 0x288,0x2 0289 a404 | | Store_Unchecked 0x2,0x4 028a 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x2 = 0x28a,0x3 028b e403 | | Load 0x2,0x3 028c 01d7 | | Execute Vector,Field_Read 028d 0a80 | | Execute_Immediate Plus,-0x80 028e 4801 |H | Short_Literal 0x1 028f e403 | | Load 0x2,0x3 0290 01d6 | | Execute Vector,Field_Write 0291 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x3 = 0x291,0x4 0292 e403 | | Load 0x2,0x3 0293 01d7 | | Execute Vector,Field_Read 0294 0904 | | Execute_Immediate Binary_Scale,0x4 0295 0248 | H | Execute Discrete,Check_In_Integer 0296 4802 |H | Short_Literal 0x2 0297 e403 | | Load 0x2,0x3 0298 01d7 | | Execute Vector,Field_Read 0299 09fc | | Execute_Immediate Binary_Scale,-0x4 029a 0273 | s | Execute Discrete,Plus 029b c407 | | Store 0x2,0x7 029c 4802 |H | Short_Literal 0x2 ; Debug Table 0x8.0x4 = 0x29c,0x5 029d e403 | | Load 0x2,0x3 029e 01d7 | | Execute Vector,Field_Read 029f e218 | | Load 0x1,0x18 02a0 025b | [ | Execute Discrete,Check_In_Type 02a1 480f |H | Short_Literal 0xf 02a2 0279 | y | Execute Discrete,And 02a3 c406 | | Store 0x2,0x6 02a4 00cf | | Action Mark_Auxiliary 02a5 4808 |H | Short_Literal 0x8 ; Debug Table 0x8.0x5 = 0x2a5,0x6 02a6 4803 |H | Short_Literal 0x3 02a7 0007 | | Action Break_Optional 02a8 e406 | | Load 0x2,0x6 ; Debug Table 0x8.0x6 = 0x2a8,0x7 02a9 4900 |I | Short_Literal 0x100 02aa e218 | | Load 0x1,0x18 02ab 025b | [ | Execute Discrete,Check_In_Type 02ac 0271 | q | Execute Discrete,Times 02ad 00d9 | | Load_Top At_Offset_1 02ae e403 | | Load 0x2,0x3 02af 01d7 | | Execute Vector,Field_Read 02b0 e218 | | Load 0x1,0x18 02b1 025b | [ | Execute Discrete,Check_In_Type 02b2 0273 | s | Execute Discrete,Plus 02b3 c406 | | Store 0x2,0x6 02b4 00c8 | | Action Pop_Auxiliary_Range 02b5 3ff2 |? | Loop_Increasing 0x2a8 02b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b7 0000 | | .XXX[0x1] 02b8 4330 0000 |C0 | .DBL 4503599627370496.0 02ba 0000 0000 | | 02bc 3fd0 0000 |? | .DBL 0.25 02be 0000 0000 | | 02c0 4010 0000 |@ | .DBL 4.0 02c2 0000 0000 | | 02c4 3cb0 0000 |< | .DBL 2.220446049250313e-16 02c6 0000 0000 | | 02c8 4693 b8b5 |F | .DBL 9.999994528969601e+31 02ca 0000 0000 | | 02cc 47ef ffff |G | .DBL 3.4028220466166163e+38 02ce 0000 0000 | | 02d0 4160 0000 |A` | .DBL 8388608.0 02d2 0000 0000 | | 02d4 47d0 0000 |G | .DBL 8.507059173023462e+37 02d6 0000 0000 | | 02d8 0000 0000 | | .DBL 0.0 02da 0000 0000 | | 02dc 3810 0000 |8 | .DBL 1.1754943508222875e-38 02de 0000 0000 | | 02e0 4000 0000 |@ | .DBL 2.0 02e2 0000 0000 | | 02e4 3e80 0000 |> | .DBL 1.1920928955078125e-07 02e6 0000 0000 | | 02e8 3ff0 0000 |? | .DBL 1.0 02ea 0000 0000 | | 02ec 47f0 0000 |G | .DBL 3.402823669209385e+38 02ee 0000 0000 | | 02f0 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 02f4 0000 0000 | | .LITERAL {0x00000000, 0x007fffff} 02f8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0305 | | .CONST 0x0305 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0002 | | .CONST 0x0002 ; Number of locals 0303 INIT_0300: 0303 e217 | | Load 0x1,0x17 ; Debug Table 0x9 = .DEBUG 0x0303,0x04da,0x0001,0x0000,0x0035,0x1984,0x0000,0x0065 ; Debug Table 0x9.0x0 = 0x303,0xffff 0304 0007 | | Action Break_Optional 0305 BODY_0300: 0305 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x1 = 0x305,0x1 0306 0274 | t | Execute Discrete,Absolute_Value 0307 09ff | | Execute_Immediate Binary_Scale,-0x1 0308 0059 | Y | Store_Top Discrete,At_Offset_1 0309 00cf | | Action Mark_Auxiliary 030a 7838 |x8 | Jump 0x343 030b e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x2 = 0x30b,0x3 030c 67e3 |g | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x00000400} 030d 027c | | | Execute Discrete,Less 030e 680e |h | Jump_Zero 0x31d 030f e5ff | | Load 0x2,-0x1 0310 5fcf |_ | Indirect_Literal Float,0x2e0,2.0 0311 e402 | | Load 0x2,0x2 0312 e602 | | Load 0x3,0x2 0313 0273 | s | Execute Discrete,Plus 0314 0248 | H | Execute Discrete,Check_In_Integer 0315 0239 | 9 | Execute Float,Exponentiate 0316 0243 | C | Execute Float,Greater_Equal 0317 6805 |h | Jump_Zero 0x31d 0318 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x3 = 0x318,0x4 0319 00da | | Load_Top At_Offset_2 031a 0273 | s | Execute Discrete,Plus 031b c402 | | Store 0x2,0x2 031c 7822 |x" | Jump 0x33f 031d e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x4 = 0x31d,0x5 031e 67d1 |g | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x00000400} 031f 027c | | | Execute Discrete,Less 0320 680f |h | Jump_Zero 0x330 0321 e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0x5 = 0x321,0x6 0322 5fbd |_ | Indirect_Literal Float,0x2e0,2.0 0323 e402 | | Load 0x2,0x2 0324 e602 | | Load 0x3,0x2 0325 0272 | r | Execute Discrete,Minus 0326 0a01 | | Execute_Immediate Plus,0x1 0327 0248 | H | Execute Discrete,Check_In_Integer 0328 0239 | 9 | Execute Float,Exponentiate 0329 0244 | D | Execute Float,Less 032a 6814 |h | Jump_Zero 0x33f 032b e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x6 = 0x32b,0x7 032c 00da | | Load_Top At_Offset_2 032d 0272 | r | Execute Discrete,Minus 032e c402 | | Store 0x2,0x2 032f 780f |x | Jump 0x33f 0330 e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0x7 = 0x330,0x8 0331 5fae |_ | Indirect_Literal Float,0x2e0,2.0 0332 023a | : | Execute Float,Divide 0333 5fac |_ | Indirect_Literal Float,0x2e0,2.0 0334 e402 | | Load 0x2,0x2 0335 e602 | | Load 0x3,0x2 0336 0272 | r | Execute Discrete,Minus 0337 0248 | H | Execute Discrete,Check_In_Integer 0338 0239 | 9 | Execute Float,Exponentiate 0339 0244 | D | Execute Float,Less 033a 6804 |h | Jump_Zero 0x33f 033b e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x8 = 0x33b,0x9 033c 00da | | Load_Top At_Offset_2 033d 0272 | r | Execute Discrete,Minus 033e c402 | | Store 0x2,0x2 033f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x9 = 0x33f,0xa 0340 09ff | | Execute_Immediate Binary_Scale,-0x1 0341 005a | Z | Store_Top Discrete,At_Offset_2 0342 00c9 | | Action Pop_Auxiliary_Loop 0343 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0xa = 0x343,0x2 0344 77c6 |w | Jump_Nonzero 0x30b 0345 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0346 0000 0000 | | .XXX[0x2] 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug Table 0348 ; -------------------------------------------------------------------------------------- 0348 0003 000a | | .CONST 0x0003,0x000a 034a 000b 039a | | .DEBUG 0x000b,0x039a,0x8000,0x0000,0x0035,0x1864,0x0000,0x0007 0352 001e 03a8 | | .DEBUG 0x001e,0x03a8,0x8000,0x0000,0x0035,0x1984,0x0000,0x0003 035a 004b 03c2 | K | .DEBUG 0x004b,0x03c2,0x0002,0x0000,0x0035,0x1864,0x0000,0x0014 0362 0093 03e8 | | .DEBUG 0x0093,0x03e8,0x0002,0x0000,0x0035,0x1864,0x0000,0x0021 036a 011b 042a | *| .DEBUG 0x011b,0x042a,0x0002,0x0000,0x0035,0x1864,0x0000,0x003a 0372 016b 0450 | k P| .DEBUG 0x016b,0x0450,0x0002,0x0000,0x0035,0x1864,0x0000,0x0047 037a 01fb 0490 | | .DEBUG 0x01fb,0x0490,0x0002,0x0000,0x0035,0x1984,0x0000,0x0051 0382 024b 04ba | K | .DEBUG 0x024b,0x04ba,0x0004,0x0000,0x0035,0x1984,0x0000,0x0228 038a 0283 04ca | | .DEBUG 0x0283,0x04ca,0x0004,0x0000,0x0035,0x1984,0x0000,0x049f 0392 0303 04da | | .DEBUG 0x0303,0x04da,0x0001,0x0000,0x0035,0x1984,0x0000,0x0065 039a ; -------------------------------------------------------------------------------------- 039a ; Debug3 Subtable 0x0 039a ; -------------------------------------------------------------------------------------- 039a 0006 0000 | | .DBG3TAB 0x0006,0x0000 039c 000b ffff | | .CONST 0x000b,0xffff 039e 0010 fffe | | .CONST 0x0010,0xfffe 03a0 0012 fffd | | .CONST 0x0012,0xfffd 03a2 0014 fffc | | .CONST 0x0014,0xfffc 03a4 0019 fffb | | .CONST 0x0019,0xfffb 03a6 001b fffa | | .CONST 0x001b,0xfffa 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; Debug3 Subtable 0x1 03a8 ; -------------------------------------------------------------------------------------- 03a8 000c 0000 | | .DBG3TAB 0x000c,0x0000 03aa 001e ffff | | .CONST 0x001e,0xffff 03ac 001f fffe | | .CONST 0x001f,0xfffe 03ae 0021 fffd | ! | .CONST 0x0021,0xfffd 03b0 0025 fffc | % | .CONST 0x0025,0xfffc 03b2 0029 fffb | ) | .CONST 0x0029,0xfffb 03b4 002d fffa | - | .CONST 0x002d,0xfffa 03b6 0031 fff9 | 1 | .CONST 0x0031,0xfff9 03b8 0038 fff8 | 8 | .CONST 0x0038,0xfff8 03ba 003a fff7 | : | .CONST 0x003a,0xfff7 03bc 003c fff6 | < | .CONST 0x003c,0xfff6 03be 003e fff5 | > | .CONST 0x003e,0xfff5 03c0 0040 fff4 | @ | .CONST 0x0040,0xfff4 03c2 ; -------------------------------------------------------------------------------------- 03c2 ; Debug3 Subtable 0x2 03c2 ; -------------------------------------------------------------------------------------- 03c2 0006 000c | | .DBG3TAB 0x0006,0x000c 03c4 004b ffff | K | .CONST 0x004b,0xffff 03c6 0050 fffe | P | .CONST 0x0050,0xfffe 03c8 0052 fffd | R | .CONST 0x0052,0xfffd 03ca 0054 fffc | T | .CONST 0x0054,0xfffc 03cc 0056 fffb | V | .CONST 0x0056,0xfffb 03ce 0058 fffa | X | .CONST 0x0058,0xfffa 03d0 005b 0001 | [ | .CONST 0x005b,0x0001 03d2 005c 0002 | \ | .CONST 0x005c,0x0002 03d4 0061 0003 | a | .CONST 0x0061,0x0003 03d6 0064 0004 | d | .CONST 0x0064,0x0004 03d8 0067 0005 | g | .CONST 0x0067,0x0005 03da 006b 0006 | k | .CONST 0x006b,0x0006 03dc 0077 0007 | w | .CONST 0x0077,0x0007 03de 0079 0008 | y | .CONST 0x0079,0x0008 03e0 0081 0009 | | .CONST 0x0081,0x0009 03e2 0083 000a | | .CONST 0x0083,0x000a 03e4 0085 000b | | .CONST 0x0085,0x000b 03e6 0088 000c | | .CONST 0x0088,0x000c 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; Debug3 Subtable 0x3 03e8 ; -------------------------------------------------------------------------------------- 03e8 0006 001a | | .DBG3TAB 0x0006,0x001a 03ea 0093 ffff | | .CONST 0x0093,0xffff 03ec 0097 fffe | | .CONST 0x0097,0xfffe 03ee 0099 fffd | | .CONST 0x0099,0xfffd 03f0 009b fffc | | .CONST 0x009b,0xfffc 03f2 009d fffb | | .CONST 0x009d,0xfffb 03f4 009f fffa | | .CONST 0x009f,0xfffa 03f6 00a1 0001 | | .CONST 0x00a1,0x0001 03f8 00a4 0002 | | .CONST 0x00a4,0x0002 03fa 00a6 0003 | | .CONST 0x00a6,0x0003 03fc 00a9 0004 | | .CONST 0x00a9,0x0004 03fe 00ab 0005 | | .CONST 0x00ab,0x0005 0400 00ad 0006 | | .CONST 0x00ad,0x0006 0402 00b0 0007 | | .CONST 0x00b0,0x0007 0404 00b4 0008 | | .CONST 0x00b4,0x0008 0406 00b6 0009 | | .CONST 0x00b6,0x0009 0408 00ba 000a | | .CONST 0x00ba,0x000a 040a 00c2 000b | | .CONST 0x00c2,0x000b 040c 00c6 000c | | .CONST 0x00c6,0x000c 040e 00c8 000d | | .CONST 0x00c8,0x000d 0410 00cb 000e | | .CONST 0x00cb,0x000e 0412 00d0 000f | | .CONST 0x00d0,0x000f 0414 00d8 0010 | | .CONST 0x00d8,0x0010 0416 00e1 0011 | | .CONST 0x00e1,0x0011 0418 00e5 0012 | | .CONST 0x00e5,0x0012 041a 00e8 0013 | | .CONST 0x00e8,0x0013 041c 00f1 0014 | | .CONST 0x00f1,0x0014 041e 00f7 0015 | | .CONST 0x00f7,0x0015 0420 00fb 0016 | | .CONST 0x00fb,0x0016 0422 0103 0017 | | .CONST 0x0103,0x0017 0424 010b 0018 | | .CONST 0x010b,0x0018 0426 010d 0019 | | .CONST 0x010d,0x0019 0428 0115 001a | | .CONST 0x0115,0x001a 042a ; -------------------------------------------------------------------------------------- 042a ; Debug3 Subtable 0x4 042a ; -------------------------------------------------------------------------------------- 042a 0006 000c | | .DBG3TAB 0x0006,0x000c 042c 011b ffff | | .CONST 0x011b,0xffff 042e 011d fffe | | .CONST 0x011d,0xfffe 0430 0122 fffd | " | .CONST 0x0122,0xfffd 0432 0124 fffc | $ | .CONST 0x0124,0xfffc 0434 0126 fffb | & | .CONST 0x0126,0xfffb 0436 0128 fffa | ( | .CONST 0x0128,0xfffa 0438 012b 0001 | + | .CONST 0x012b,0x0001 043a 012c 0002 | , | .CONST 0x012c,0x0002 043c 0132 0003 | 2 | .CONST 0x0132,0x0003 043e 0136 0004 | 6 | .CONST 0x0136,0x0004 0440 0139 0005 | 9 | .CONST 0x0139,0x0005 0442 013d 0006 | = | .CONST 0x013d,0x0006 0444 014c 0007 | L | .CONST 0x014c,0x0007 0446 014e 0008 | N | .CONST 0x014e,0x0008 0448 015b 0009 | [ | .CONST 0x015b,0x0009 044a 015d 000a | ] | .CONST 0x015d,0x000a 044c 015f 000b | _ | .CONST 0x015f,0x000b 044e 0162 000c | b | .CONST 0x0162,0x000c 0450 ; -------------------------------------------------------------------------------------- 0450 ; Debug3 Subtable 0x5 0450 ; -------------------------------------------------------------------------------------- 0450 0006 0019 | | .DBG3TAB 0x0006,0x0019 0452 016b ffff | k | .CONST 0x016b,0xffff 0454 016f fffe | o | .CONST 0x016f,0xfffe 0456 0171 fffd | q | .CONST 0x0171,0xfffd 0458 0173 fffc | s | .CONST 0x0173,0xfffc 045a 0175 fffb | u | .CONST 0x0175,0xfffb 045c 0177 fffa | w | .CONST 0x0177,0xfffa 045e 0179 0001 | y | .CONST 0x0179,0x0001 0460 017c 0002 | | | .CONST 0x017c,0x0002 0462 017e 0003 | ~ | .CONST 0x017e,0x0003 0464 0181 0004 | | .CONST 0x0181,0x0004 0466 0183 0005 | | .CONST 0x0183,0x0005 0468 0185 0006 | | .CONST 0x0185,0x0006 046a 0188 0007 | | .CONST 0x0188,0x0007 046c 018c 0008 | | .CONST 0x018c,0x0008 046e 018e 0009 | | .CONST 0x018e,0x0009 0470 0192 000a | | .CONST 0x0192,0x000a 0472 019a 000b | | .CONST 0x019a,0x000b 0474 019e 000c | | .CONST 0x019e,0x000c 0476 01a0 000d | | .CONST 0x01a0,0x000d 0478 01a3 000e | | .CONST 0x01a3,0x000e 047a 01a6 000f | | .CONST 0x01a6,0x000f 047c 01ae 0010 | | .CONST 0x01ae,0x0010 047e 01b7 0011 | | .CONST 0x01b7,0x0011 0480 01bc 0012 | | .CONST 0x01bc,0x0012 0482 01bf 0013 | | .CONST 0x01bf,0x0013 0484 01ca 0014 | | .CONST 0x01ca,0x0014 0486 01d3 0015 | | .CONST 0x01d3,0x0015 0488 01e1 0016 | | .CONST 0x01e1,0x0016 048a 01e9 0017 | | .CONST 0x01e9,0x0017 048c 01eb 0018 | | .CONST 0x01eb,0x0018 048e 01f3 0019 | | .CONST 0x01f3,0x0019 0490 ; -------------------------------------------------------------------------------------- 0490 ; Debug3 Subtable 0x6 0490 ; -------------------------------------------------------------------------------------- 0490 0003 0011 | | .DBG3TAB 0x0003,0x0011 0492 01fb ffff | | .CONST 0x01fb,0xffff 0494 01fd fffe | | .CONST 0x01fd,0xfffe 0496 01ff fffd | | .CONST 0x01ff,0xfffd 0498 0201 0001 | | .CONST 0x0201,0x0001 049a 0206 0002 | | .CONST 0x0206,0x0002 049c 020a 0003 | | .CONST 0x020a,0x0003 049e 020e 0005 | | .CONST 0x020e,0x0005 04a0 0211 0006 | | .CONST 0x0211,0x0006 04a2 0216 0004 | | .CONST 0x0216,0x0004 04a4 021f 0007 | | .CONST 0x021f,0x0007 04a6 0221 0008 | ! | .CONST 0x0221,0x0008 04a8 0225 0009 | % | .CONST 0x0225,0x0009 04aa 0229 000b | ) | .CONST 0x0229,0x000b 04ac 022c 000c | , | .CONST 0x022c,0x000c 04ae 0230 000d | 0 | .CONST 0x0230,0x000d 04b0 0231 000e | 1 | .CONST 0x0231,0x000e 04b2 0236 000a | 6 | .CONST 0x0236,0x000a 04b4 023d 000f | = | .CONST 0x023d,0x000f 04b6 023f 0010 | ? | .CONST 0x023f,0x0010 04b8 0241 0011 | A | .CONST 0x0241,0x0011 04ba ; -------------------------------------------------------------------------------------- 04ba ; Debug3 Subtable 0x7 04ba ; -------------------------------------------------------------------------------------- 04ba 0000 0007 | | .DBG3TAB 0x0000,0x0007 04bc 024b 0001 | K | .CONST 0x024b,0x0001 04be 0250 0002 | P | .CONST 0x0250,0x0002 04c0 0252 0003 | R | .CONST 0x0252,0x0003 04c2 025a 0004 | Z | .CONST 0x025a,0x0004 04c4 0265 0005 | e | .CONST 0x0265,0x0005 04c6 026e 0006 | n | .CONST 0x026e,0x0006 04c8 0271 0007 | q | .CONST 0x0271,0x0007 04ca ; -------------------------------------------------------------------------------------- 04ca ; Debug3 Subtable 0x8 04ca ; -------------------------------------------------------------------------------------- 04ca 0000 0007 | | .DBG3TAB 0x0000,0x0007 04cc 0283 0001 | | .CONST 0x0283,0x0001 04ce 0288 0002 | | .CONST 0x0288,0x0002 04d0 028a 0003 | | .CONST 0x028a,0x0003 04d2 0291 0004 | | .CONST 0x0291,0x0004 04d4 029c 0005 | | .CONST 0x029c,0x0005 04d6 02a5 0006 | | .CONST 0x02a5,0x0006 04d8 02a8 0007 | | .CONST 0x02a8,0x0007 04da ; -------------------------------------------------------------------------------------- 04da ; Debug3 Subtable 0x9 04da ; -------------------------------------------------------------------------------------- 04da 0001 000a | | .DBG3TAB 0x0001,0x000a 04dc 0303 ffff | | .CONST 0x0303,0xffff 04de 0305 0001 | | .CONST 0x0305,0x0001 04e0 030b 0003 | | .CONST 0x030b,0x0003 04e2 0318 0004 | | .CONST 0x0318,0x0004 04e4 031d 0005 | | .CONST 0x031d,0x0005 04e6 0321 0006 | ! | .CONST 0x0321,0x0006 04e8 032b 0007 | + | .CONST 0x032b,0x0007 04ea 0330 0008 | 0 | .CONST 0x0330,0x0008 04ec 033b 0009 | ; | .CONST 0x033b,0x0009 04ee 033f 000a | ? | .CONST 0x033f,0x000a 04f0 0343 0002 | C | .CONST 0x0343,0x0002 04f2 0000 0000 | | .BLANK 0000[0x10e]