|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 0418 | | .CONST 0x0418 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0053 | S | .CONST 0x0053 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0023 | # | .CONST 0x0023 ; Number of locals 000b INIT_0008: 000b 6094 |` | Indirect_Literal Discrete,0xa0,{0xffffffff, 0xfffffbcd} 000c 4bcb |K | Short_Literal 0x3cb 000d 00e2 | | Load_Encached Integer_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 4800 |H | Short_Literal 0x0 0010 608b |` | Indirect_Literal Discrete,0x9c,{0x001fffff, 0xffffffff} 0011 00e5 | | Load_Encached Long_Integer_Cache 0012 03f9 | | Declare_Type Discrete,Constrained,Visible 0013 00e1 | | Load_Encached Boolean_Cache 0014 00da | | Load_Top At_Offset_2 0015 00da | | Load_Top At_Offset_2 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 4803 |H | Short_Literal 0x3 0018 032e | . | Declare_Type Record,Defined,Visible 0019 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 001b 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001d e001 | | Load 0x0,0x1 001e 0129 | ) | Execute Any,Make_Visible 001f e002 | | Load 0x0,0x2 0020 0129 | ) | Execute Any,Make_Visible 0021 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0023 00bf | | Action Accept_Activation 0024 4800 |H | Short_Literal 0x0 0025 6072 |`r | Indirect_Literal Discrete,0x98,{0x00000000, 0x000007ff} 0026 00e2 | | Load_Encached Integer_Cache 0027 03f8 | | Declare_Type Discrete,Constrained 0028 4800 |H | Short_Literal 0x0 0029 606a |`j | Indirect_Literal Discrete,0x94,{0x000fffff, 0xffffffff} 002a 00e5 | | Load_Encached Long_Integer_Cache 002b 03f8 | | Declare_Type Discrete,Constrained 002c 00e1 | | Load_Encached Boolean_Cache 002d 00da | | Load_Top At_Offset_2 002e 00da | | Load_Top At_Offset_2 002f 02a0 | | Declare_Subprogram Null_Subprogram 0030 4803 |H | Short_Literal 0x3 0031 032d | - | Declare_Type Record,Defined 0032 00e6 | | Load_Encached Float_Cache 0033 012c | , | Execute Any,Size 0034 00d9 | | Load_Top At_Offset_1 0035 012c | , | Execute Any,Size 0036 027f | | Execute Discrete,Equal 0037 7001 |p | Jump_Nonzero 0x39 0038 0887 | | Execute_Immediate Raise,0x87 0039 a003 | | Store_Unchecked 0x0,0x3 003a 00c6 | | Action Check_Subprogram_Elaborated 003b 00e6 | | Load_Encached Float_Cache 003c 00d9 | | Load_Top At_Offset_1 003d e004 | | Load 0x0,0x4 003e e005 | | Load 0x0,0x5 003f 4800 |H | Short_Literal 0x0 0040 0007 | | Action Break_Optional 0041 a003 | | Store_Unchecked 0x0,0x3 0042 00c6 | | Action Check_Subprogram_Elaborated 0043 e217 | | Load 0x1,0x17 0044 00e6 | | Load_Encached Float_Cache 0045 e006 | | Load 0x0,0x6 0046 e007 | | Load 0x0,0x7 0047 4800 |H | Short_Literal 0x0 0048 0007 | | Action Break_Optional 0049 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 004b 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 004d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004e 00c7 | | Action Elaborate_Subprogram 004f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0050 00c7 | | Action Elaborate_Subprogram 0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0052 00c7 | | Action Elaborate_Subprogram 0053 BODY_0008: 0053 00bc | | Action Signal_Activated 0054 00bb | | Action Signal_Completion 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0073 | s | .CONST 0x0073 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b e217 | | Load 0x1,0x17 005c 0322 | " | Declare_Variable Record 005d 00db | | Load_Top At_Offset_3 005e e218 | | Load 0x1,0x18 005f e219 | | Load 0x1,0x19 0060 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0061 8003 | | Call 0x0,0x3 0062 00d9 | | Load_Top At_Offset_1 0063 017d | } | Execute Record,Structure_Write 0064 e20f | | Load 0x1,0xf 0065 0322 | " | Declare_Variable Record 0066 00d9 | | Load_Top At_Offset_1 0067 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0068 00d9 | | Load_Top At_Offset_1 0069 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 006a 00d9 | | Load_Top At_Offset_1 006b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 006c 6033 |`3 | Indirect_Literal Discrete,0xa0,{0xffffffff, 0xfffffbcd} 006d 0273 | s | Execute Discrete,Plus 006e 00d9 | | Load_Top At_Offset_1 006f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0070 4800 |H | Short_Literal 0x0 0071 00d9 | | Load_Top At_Offset_1 0072 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0073 BODY_0058: 0073 00d9 | | Load_Top At_Offset_1 0074 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0075 0b00 | | Execute_Immediate Case_Compare,0x0 0076 700a |p | Jump_Nonzero 0x81 0077 6020 |` | Indirect_Literal Discrete,0x98,{0x00000000, 0x000007ff} 0078 027f | | Execute Discrete,Equal 0079 700e |p | Jump_Nonzero 0x88 007a 00d9 | | Load_Top At_Offset_1 007b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007c 6013 |` | Indirect_Literal Discrete,0x90,{0x00100000, 0x00000000} 007d 0273 | s | Execute Discrete,Plus 007e 00d9 | | Load_Top At_Offset_1 007f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0080 7809 |x | Jump 0x8a 0081 00d1 | | Pop_Control Pop_Count_1 0082 00d9 | | Load_Top At_Offset_1 0083 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0084 0901 | | Execute_Immediate Binary_Scale,0x1 0085 00d9 | | Load_Top At_Offset_1 0086 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0087 7802 |x | Jump 0x8a 0088 e212 | | Load 0x1,0x12 0089 0257 | W | Execute Discrete,Raise 008a 00d8 | | Load_Top At_Offset_0 008b e5ff | | Load 0x2,-0x1 008c 8223 | # | Call 0x1,0x23 008d 00d8 | | Load_Top At_Offset_0 008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008f 0000 | | .XXX[0x1] 0090 0010 0000 | | .LITERAL {0x00100000, 0x00000000} 0094 000f ffff | | .LITERAL {0x000fffff, 0xffffffff} 0098 0000 0000 | | .LITERAL {0x00000000, 0x000007ff} 009c 001f ffff | | .LITERAL {0x001fffff, 0xffffffff} 00a0 ffff ffff | | .LITERAL {0xffffffff, 0xfffffbcd} 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00bb | | .CONST 0x00bb ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0003 | | .CONST 0x0003 ; Number of locals 00ab INIT_00a8: 00ab e217 | | Load 0x1,0x17 00ac 0322 | " | Declare_Variable Record 00ad 00db | | Load_Top At_Offset_3 00ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00af 00d9 | | Load_Top At_Offset_1 00b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b1 00db | | Load_Top At_Offset_3 00b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b3 603c |`< | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000433} 00b4 0273 | s | Execute Discrete,Plus 00b5 00d9 | | Load_Top At_Offset_1 00b6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b7 4800 |H | Short_Literal 0x0 00b8 00d9 | | Load_Top At_Offset_1 00b9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ba 00e6 | | Load_Encached Float_Cache 00bb BODY_00a8: 00bb 00d9 | | Load_Top At_Offset_1 00bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00bd 0b00 | | Execute_Immediate Case_Compare,0x0 00be 7011 |p | Jump_Nonzero 0xd0 00bf 67d8 |g | Indirect_Literal Discrete,0x98,{0x00000000, 0x000007ff} 00c0 027f | | Execute Discrete,Equal 00c1 701c |p | Jump_Nonzero 0xde 00c2 e5ff | | Load 0x2,-0x1 00c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c4 67cf |g | Indirect_Literal Discrete,0x94,{0x000fffff, 0xffffffff} 00c5 027a | z | Execute Discrete,Less_Equal 00c6 6802 |h | Jump_Zero 0xc9 00c7 e212 | | Load 0x1,0x12 00c8 0257 | W | Execute Discrete,Raise 00c9 e5ff | | Load 0x2,-0x1 00ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00cb 6020 |` | Indirect_Literal Discrete,0xec,{0xfff00000, 0x00000000} 00cc 0273 | s | Execute Discrete,Plus 00cd 00da | | Load_Top At_Offset_2 00ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00cf 7810 |x | Jump 0xe0 00d0 00d1 | | Pop_Control Pop_Count_1 00d1 e5ff | | Load 0x2,-0x1 00d2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00d3 4801 |H | Short_Literal 0x1 00d4 0279 | y | Execute Discrete,And 00d5 6802 |h | Jump_Zero 0xd8 00d6 e212 | | Load 0x1,0x12 00d7 0257 | W | Execute Discrete,Raise 00d8 e5ff | | Load 0x2,-0x1 00d9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00da 09ff | | Execute_Immediate Binary_Scale,-0x1 00db 00da | | Load_Top At_Offset_2 00dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00dd 7802 |x | Jump 0xe0 00de e213 | | Load 0x1,0x13 00df 0257 | W | Execute Discrete,Raise 00e0 00d9 | | Load_Top At_Offset_1 00e1 e21d | | Load 0x1,0x1d 00e2 e21e | | Load 0x1,0x1e 00e3 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00e4 8003 | | Call 0x0,0x3 00e5 0041 | A | Store_Top_Unchecked Float,At_Offset_1 00e6 e5ff | | Load 0x2,-0x1 00e7 00d9 | | Load_Top At_Offset_1 00e8 8223 | # | Call 0x1,0x23 00e9 00d8 | | Load_Top At_Offset_0 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb 0000 | | .XXX[0x1] 00ec fff0 0000 | | .LITERAL {0xfff00000, 0x00000000} 00f0 0000 0000 | | .LITERAL {0x00000000, 0x00000433} 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 013c | < | .CONST 0x013c ; Address of begin 00f9 02d9 | | .CONST 0x02d9 ; Address of exception handler 00fa 0021 | ! | .CONST 0x0021 ; Number of locals 00fb INIT_00f8: 00fb 00e5 | | Load_Encached Long_Integer_Cache 00fc 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 00fd 00d8 | | Load_Top At_Offset_0 00fe 483e |H> | Short_Literal 0x3e 00ff 026d | m | Execute Discrete,Exponentiate 0100 0aff | | Execute_Immediate Plus,-0x1 0101 0901 | | Execute_Immediate Binary_Scale,0x1 0102 0a01 | | Execute_Immediate Plus,0x1 0103 0007 | | Action Break_Optional 0104 00d8 | | Load_Top At_Offset_0 0105 480a |H | Short_Literal 0xa 0106 0270 | p | Execute Discrete,Divide 0107 0007 | | Action Break_Optional 0108 00d9 | | Load_Top At_Offset_1 0109 480a |H | Short_Literal 0xa 010a 026e | n | Execute Discrete,Modulo 010b 0007 | | Action Break_Optional 010c a003 | | Store_Unchecked 0x0,0x3 010d 00c6 | | Action Check_Subprogram_Elaborated 010e 00e6 | | Load_Encached Float_Cache 010f 00e5 | | Load_Encached Long_Integer_Cache 0110 e008 | | Load 0x0,0x8 0111 e009 | | Load 0x0,0x9 0112 480a |H | Short_Literal 0xa 0113 0007 | | Action Break_Optional 0114 e5ff | | Load 0x2,-0x1 0115 01dd | | Execute Vector,First 0116 00e2 | | Load_Encached Integer_Cache 0117 03f1 | | Declare_Variable Discrete,With_Value 0118 e5ff | | Load 0x2,-0x1 0119 01dc | | Execute Vector,Last 011a 00e2 | | Load_Encached Integer_Cache 011b 03f1 | | Declare_Variable Discrete,With_Value 011c 00e8 | | Load_Encached Character_Cache 011d 00e8 | | Load_Encached Character_Cache 011e 00e5 | | Load_Encached Long_Integer_Cache 011f 00e2 | | Load_Encached Integer_Cache 0120 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0121 00e2 | | Load_Encached Integer_Cache 0122 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0123 00e5 | | Load_Encached Long_Integer_Cache 0124 00e1 | | Load_Encached Boolean_Cache 0125 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0126 00e1 | | Load_Encached Boolean_Cache 0127 00e1 | | Load_Encached Boolean_Cache 0128 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0129 00e6 | | Load_Encached Float_Cache 012a 00e5 | | Load_Encached Long_Integer_Cache 012b 060a | | Execute_Immediate Set_Value_Unchecked,0xa 012c 00e5 | | Load_Encached Long_Integer_Cache 012d 00e8 | | Load_Encached Character_Cache 012e e404 | | Load 0x2,0x4 012f 00e5 | | Load_Encached Long_Integer_Cache 0130 03f1 | | Declare_Variable Discrete,With_Value 0131 00e5 | | Load_Encached Long_Integer_Cache 0132 00e5 | | Load_Encached Long_Integer_Cache 0133 00e5 | | Load_Encached Long_Integer_Cache 0134 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 0136 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 0138 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 013a 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 013c BODY_00f8: 013c e40c | | Load 0x2,0xc 013d e40b | | Load 0x2,0xb 013e 027c | | | Execute Discrete,Less 013f 7007 |p | Jump_Nonzero 0x147 0140 e40c | | Load 0x2,0xc 0141 e40b | | Load 0x2,0xb 0142 027f | | Execute Discrete,Equal 0143 e5fe | | Load 0x2,-0x2 0144 0f00 | | Execute_Immediate Equal,0x0 0145 0279 | y | Execute Discrete,And 0146 6801 |h | Jump_Zero 0x148 0147 08e0 | | Execute_Immediate Raise,0xe0 0148 e40b | | Load 0x2,0xb 0149 e5ff | | Load 0x2,-0x1 014a 01d7 | | Execute Vector,Field_Read 014b a40d | | Store_Unchecked 0x2,0xd 014c 00cf | | Action Mark_Auxiliary 014d 7807 |x | Jump 0x155 014e e40b | | Load 0x2,0xb 014f e40c | | Load 0x2,0xc 0150 027b | { | Execute Discrete,Greater_Equal 0151 6801 |h | Jump_Zero 0x153 0152 08e0 | | Execute_Immediate Raise,0xe0 0153 841e | | Call 0x2,0x1e 0154 00c9 | | Action Pop_Auxiliary_Loop 0155 e40d | | Load 0x2,0xd 0156 0f20 | | Execute_Immediate Equal,0x20 0157 77f6 |w | Jump_Nonzero 0x14e 0158 00ce | | Action Pop_Auxiliary 0159 00e5 | | Load_Encached Long_Integer_Cache 015a 841f | | Call 0x2,0x1f 015b c40f | | Store 0x2,0xf 015c e40d | | Load 0x2,0xd 015d 0f2e | . | Execute_Immediate Equal,0x2e 015e 6847 |hG | Jump_Zero 0x1a6 015f 841e | | Call 0x2,0x1e 0160 4801 |H | Short_Literal 0x1 0161 a415 | | Store_Unchecked 0x2,0x15 0162 e40d | | Load 0x2,0xd 0163 4830 |H0 | Short_Literal 0x30 0164 4839 |H9 | Short_Literal 0x39 0165 0261 | a | Execute Discrete,Not_In_Range 0166 6801 |h | Jump_Zero 0x168 0167 08e0 | | Execute_Immediate Raise,0xe0 0168 e40f | | Load 0x2,0xf 0169 0274 | t | Execute Discrete,Absolute_Value 016a a40f | | Store_Unchecked 0x2,0xf 016b 00cf | | Action Mark_Auxiliary 016c e40d | | Load 0x2,0xd 016d 4830 |H0 | Short_Literal 0x30 016e 4839 |H9 | Short_Literal 0x39 016f 0262 | b | Execute Discrete,In_Range 0170 7008 |p | Jump_Nonzero 0x179 0171 e40e | | Load 0x2,0xe 0172 0f5f | _ | Execute_Immediate Equal,0x5f 0173 6801 |h | Jump_Zero 0x175 0174 08e0 | | Execute_Immediate Raise,0xe0 0175 e40d | | Load 0x2,0xd 0176 0e5f | _ | Execute_Immediate Not_Equal,0x5f 0177 702c |p, | Jump_Nonzero 0x1a4 0178 7828 |x( | Jump 0x1a1 0179 e40d | | Load 0x2,0xd 017a 0ad0 | | Execute_Immediate Plus,-0x30 017b a418 | | Store_Unchecked 0x2,0x18 017c e40f | | Load 0x2,0xf 017d e404 | | Load 0x2,0x4 017e 027f | | Execute Discrete,Equal 017f 6806 |h | Jump_Zero 0x186 0180 e418 | | Load 0x2,0x18 0181 e405 | | Load 0x2,0x5 0182 027d | } | Execute Discrete,Greater 0183 6802 |h | Jump_Zero 0x186 0184 4800 |H | Short_Literal 0x0 0185 a418 | | Store_Unchecked 0x2,0x18 0186 e40f | | Load 0x2,0xf 0187 e404 | | Load 0x2,0x4 0188 027a | z | Execute Discrete,Less_Equal 0189 6812 |h | Jump_Zero 0x19c 018a e40f | | Load 0x2,0xf 018b 480a |H | Short_Literal 0xa 018c 0271 | q | Execute Discrete,Times 018d e418 | | Load 0x2,0x18 018e 0273 | s | Execute Discrete,Plus 018f a40f | | Store_Unchecked 0x2,0xf 0190 e411 | | Load 0x2,0x11 0191 0aff | | Execute_Immediate Plus,-0x1 0192 c411 | | Store 0x2,0x11 0193 e418 | | Load 0x2,0x18 0194 7004 |p | Jump_Nonzero 0x199 0195 e410 | | Load 0x2,0x10 0196 0a01 | | Execute_Immediate Plus,0x1 0197 c410 | | Store 0x2,0x10 0198 7808 |x | Jump 0x1a1 0199 4800 |H | Short_Literal 0x0 019a a410 | | Store_Unchecked 0x2,0x10 019b 7805 |x | Jump 0x1a1 019c e413 | | Load 0x2,0x13 019d e418 | | Load 0x2,0x18 019e 0e00 | | Execute_Immediate Not_Equal,0x0 019f 0278 | x | Execute Discrete,Or 01a0 a413 | | Store_Unchecked 0x2,0x13 01a1 841e | | Call 0x2,0x1e 01a2 00c9 | | Action Pop_Auxiliary_Loop 01a3 7fc8 | | Jump 0x16c 01a4 00ce | | Action Pop_Auxiliary 01a5 788e |x | Jump 0x234 01a6 e40d | | Load 0x2,0xd 01a7 0f23 | # | Execute_Immediate Equal,0x23 01a8 e40d | | Load 0x2,0xd 01a9 0f3a | : | Execute_Immediate Equal,0x3a 01aa 0278 | x | Execute Discrete,Or 01ab 6888 |h | Jump_Zero 0x234 01ac e40d | | Load 0x2,0xd 01ad a419 | | Store_Unchecked 0x2,0x19 01ae e40f | | Load 0x2,0xf 01af 0274 | t | Execute Discrete,Absolute_Value 01b0 a417 | | Store_Unchecked 0x2,0x17 01b1 e417 | | Load 0x2,0x17 01b2 4802 |H | Short_Literal 0x2 01b3 4810 |H | Short_Literal 0x10 01b4 0261 | a | Execute Discrete,Not_In_Range 01b5 6801 |h | Jump_Zero 0x1b7 01b6 08e0 | | Execute_Immediate Raise,0xe0 01b7 e403 | | Load 0x2,0x3 01b8 e417 | | Load 0x2,0x17 01b9 0270 | p | Execute Discrete,Divide 01ba a41a | | Store_Unchecked 0x2,0x1a 01bb e403 | | Load 0x2,0x3 01bc e417 | | Load 0x2,0x17 01bd 026e | n | Execute Discrete,Modulo 01be a41b | | Store_Unchecked 0x2,0x1b 01bf 4800 |H | Short_Literal 0x0 01c0 a40f | | Store_Unchecked 0x2,0xf 01c1 00cf | | Action Mark_Auxiliary 01c2 841e | | Call 0x2,0x1e 01c3 e40d | | Load 0x2,0xd 01c4 00d8 | | Load_Top At_Offset_0 01c5 0d41 | A | Execute_Immediate Less,0x41 01c6 700d |p | Jump_Nonzero 0x1d4 01c7 00d8 | | Load_Top At_Offset_0 01c8 0c47 | G | Execute_Immediate Greater_Equal,0x47 01c9 7005 |p | Jump_Nonzero 0x1cf 01ca 00d1 | | Pop_Control Pop_Count_1 01cb e40d | | Load 0x2,0xd 01cc 0ac9 | | Execute_Immediate Plus,-0x37 01cd a418 | | Store_Unchecked 0x2,0x18 01ce 7831 |x1 | Jump 0x200 01cf 4861 |Ha | Short_Literal 0x61 01d0 4866 |Hf | Short_Literal 0x66 01d1 0262 | b | Execute Discrete,In_Range 01d2 700a |p | Jump_Nonzero 0x1dd 01d3 780d |x | Jump 0x1e1 01d4 4830 |H0 | Short_Literal 0x30 01d5 4839 |H9 | Short_Literal 0x39 01d6 0262 | b | Execute Discrete,In_Range 01d7 7001 |p | Jump_Nonzero 0x1d9 01d8 7808 |x | Jump 0x1e1 01d9 e40d | | Load 0x2,0xd 01da 0ad0 | | Execute_Immediate Plus,-0x30 01db a418 | | Store_Unchecked 0x2,0x18 01dc 7823 |x# | Jump 0x200 01dd e40d | | Load 0x2,0xd 01de 0aa9 | | Execute_Immediate Plus,-0x57 01df a418 | | Store_Unchecked 0x2,0x18 01e0 781f |x | Jump 0x200 01e1 e40e | | Load 0x2,0xe 01e2 0f5f | _ | Execute_Immediate Equal,0x5f 01e3 e40e | | Load 0x2,0xe 01e4 0f2e | . | Execute_Immediate Equal,0x2e 01e5 0278 | x | Execute Discrete,Or 01e6 e40e | | Load 0x2,0xe 01e7 e419 | | Load 0x2,0x19 01e8 027f | | Execute Discrete,Equal 01e9 0278 | x | Execute Discrete,Or 01ea 6801 |h | Jump_Zero 0x1ec 01eb 08e0 | | Execute_Immediate Raise,0xe0 01ec e40d | | Load 0x2,0xd 01ed 0f5f | _ | Execute_Immediate Equal,0x5f 01ee 6801 |h | Jump_Zero 0x1f0 01ef 7fd2 | | Jump 0x1c2 01f0 e40d | | Load 0x2,0xd 01f1 0f2e | . | Execute_Immediate Equal,0x2e 01f2 6806 |h | Jump_Zero 0x1f9 01f3 e415 | | Load 0x2,0x15 01f4 6801 |h | Jump_Zero 0x1f6 01f5 08e0 | | Execute_Immediate Raise,0xe0 01f6 4801 |H | Short_Literal 0x1 01f7 a415 | | Store_Unchecked 0x2,0x15 01f8 7fc9 | | Jump 0x1c2 01f9 e40d | | Load 0x2,0xd 01fa e419 | | Load 0x2,0x19 01fb 027e | ~ | Execute Discrete,Not_Equal 01fc 6801 |h | Jump_Zero 0x1fe 01fd 08e0 | | Execute_Immediate Raise,0xe0 01fe 841e | | Call 0x2,0x1e 01ff 7833 |x3 | Jump 0x233 0200 e418 | | Load 0x2,0x18 0201 e417 | | Load 0x2,0x17 0202 027b | { | Execute Discrete,Greater_Equal 0203 6801 |h | Jump_Zero 0x205 0204 08e0 | | Execute_Immediate Raise,0xe0 0205 e40f | | Load 0x2,0xf 0206 e41a | | Load 0x2,0x1a 0207 027f | | Execute Discrete,Equal 0208 6806 |h | Jump_Zero 0x20f 0209 e418 | | Load 0x2,0x18 020a e41b | | Load 0x2,0x1b 020b 027d | } | Execute Discrete,Greater 020c 6802 |h | Jump_Zero 0x20f 020d 4800 |H | Short_Literal 0x0 020e a418 | | Store_Unchecked 0x2,0x18 020f e40f | | Load 0x2,0xf 0210 e41a | | Load 0x2,0x1a 0211 027a | z | Execute Discrete,Less_Equal 0212 6814 |h | Jump_Zero 0x227 0213 e40f | | Load 0x2,0xf 0214 e417 | | Load 0x2,0x17 0215 0271 | q | Execute Discrete,Times 0216 e418 | | Load 0x2,0x18 0217 0273 | s | Execute Discrete,Plus 0218 a40f | | Store_Unchecked 0x2,0xf 0219 e418 | | Load 0x2,0x18 021a 7004 |p | Jump_Nonzero 0x21f 021b e410 | | Load 0x2,0x10 021c 0a01 | | Execute_Immediate Plus,0x1 021d c410 | | Store 0x2,0x10 021e 7802 |x | Jump 0x221 021f 4800 |H | Short_Literal 0x0 0220 a410 | | Store_Unchecked 0x2,0x10 0221 e415 | | Load 0x2,0x15 0222 680e |h | Jump_Zero 0x231 0223 e411 | | Load 0x2,0x11 0224 0aff | | Execute_Immediate Plus,-0x1 0225 c411 | | Store 0x2,0x11 0226 780a |x | Jump 0x231 0227 e413 | | Load 0x2,0x13 0228 e418 | | Load 0x2,0x18 0229 0e00 | | Execute_Immediate Not_Equal,0x0 022a 0278 | x | Execute Discrete,Or 022b a413 | | Store_Unchecked 0x2,0x13 022c e415 | | Load 0x2,0x15 022d 7003 |p | Jump_Nonzero 0x231 022e e411 | | Load 0x2,0x11 022f 0a01 | | Execute_Immediate Plus,0x1 0230 c411 | | Store 0x2,0x11 0231 00c9 | | Action Pop_Auxiliary_Loop 0232 7f8f | | Jump 0x1c2 0233 00ce | | Action Pop_Auxiliary 0234 e410 | | Load 0x2,0x10 0235 0c01 | | Execute_Immediate Greater_Equal,0x1 0236 680a |h | Jump_Zero 0x241 0237 e40f | | Load 0x2,0xf 0238 e417 | | Load 0x2,0x17 0239 e410 | | Load 0x2,0x10 023a 026d | m | Execute Discrete,Exponentiate 023b 0270 | p | Execute Discrete,Divide 023c a40f | | Store_Unchecked 0x2,0xf 023d e411 | | Load 0x2,0x11 023e e410 | | Load 0x2,0x10 023f 0273 | s | Execute Discrete,Plus 0240 c411 | | Store 0x2,0x11 0241 e415 | | Load 0x2,0x15 0242 7003 |p | Jump_Nonzero 0x246 0243 e5fe | | Load 0x2,-0x2 0244 7001 |p | Jump_Nonzero 0x246 0245 08e0 | | Execute_Immediate Raise,0xe0 0246 e40f | | Load 0x2,0xf 0247 0237 | 7 | Execute Float,Convert_From_Discrete 0248 a416 | | Store_Unchecked 0x2,0x16 0249 e40f | | Load 0x2,0xf 024a e416 | | Load 0x2,0x16 024b 0235 | 5 | Execute Float,Round_To_Discrete 024c 00e5 | | Load_Encached Long_Integer_Cache 024d 025e | ^ | Execute Discrete,Convert 024e 0272 | r | Execute Discrete,Minus 024f a412 | | Store_Unchecked 0x2,0x12 0250 e412 | | Load 0x2,0x12 0251 0c01 | | Execute_Immediate Greater_Equal,0x1 0252 6802 |h | Jump_Zero 0x255 0253 4801 |H | Short_Literal 0x1 0254 a413 | | Store_Unchecked 0x2,0x13 0255 e417 | | Load 0x2,0x17 0256 00d8 | | Load_Top At_Offset_0 0257 4802 |H | Short_Literal 0x2 0258 4810 |H | Short_Literal 0x10 0259 0262 | b | Execute Discrete,In_Range 025a 6814 |h | Jump_Zero 0x26f 025b 0afe | | Execute_Immediate Plus,-0x2 025c 460e |F | Jump_Case 0xf 025d 780e |x | Jump 0x26c ; case 0x0 025e 7811 |x | Jump 0x270 ; case 0x1 025f 780c |x | Jump 0x26c ; case 0x2 0260 780f |x | Jump 0x270 ; case 0x3 0261 780e |x | Jump 0x270 ; case 0x4 0262 780d |x | Jump 0x270 ; case 0x5 0263 7808 |x | Jump 0x26c ; case 0x6 0264 780b |x | Jump 0x270 ; case 0x7 0265 780a |x | Jump 0x270 ; case 0x8 0266 7809 |x | Jump 0x270 ; case 0x9 0267 7808 |x | Jump 0x270 ; case 0xa 0268 7807 |x | Jump 0x270 ; case 0xb 0269 7806 |x | Jump 0x270 ; case 0xc 026a 7805 |x | Jump 0x270 ; case 0xd 026b 7800 |x | Jump 0x26c ; case 0xe 026c 4800 |H | Short_Literal 0x0 026d a413 | | Store_Unchecked 0x2,0x13 026e 7801 |x | Jump 0x270 026f 00d1 | | Pop_Control Pop_Count_1 0270 e40d | | Load 0x2,0xd 0271 0f45 | E | Execute_Immediate Equal,0x45 0272 e40d | | Load 0x2,0xd 0273 0f65 | e | Execute_Immediate Equal,0x65 0274 0278 | x | Execute Discrete,Or 0275 6817 |h | Jump_Zero 0x28d 0276 841e | | Call 0x2,0x1e 0277 00e5 | | Load_Encached Long_Integer_Cache 0278 841f | | Call 0x2,0x1f 0279 c41c | | Store 0x2,0x1c 027a e416 | | Load 0x2,0x16 027b 014e | N | Execute Float,Equal_Zero 027c e41c | | Load 0x2,0x1c 027d 6066 |`f | Indirect_Literal Discrete,0x2e4,{0xffffffff, 0xc0000001} 027e 027c | | | Execute Discrete,Less 027f 0278 | x | Execute Discrete,Or 0280 6803 |h | Jump_Zero 0x284 0281 585e |X^ | Indirect_Literal Float,0x2e0,0.0 0282 a416 | | Store_Unchecked 0x2,0x16 0283 7809 |x | Jump 0x28d 0284 e411 | | Load 0x2,0x11 0285 e41c | | Load 0x2,0x1c 0286 00d8 | | Load_Top At_Offset_0 0287 00e2 | | Load_Encached Integer_Cache 0288 0260 | ` | Execute Discrete,In_Type 0289 7001 |p | Jump_Nonzero 0x28b 028a 0801 | | Execute_Immediate Raise,0x1 028b 0273 | s | Execute Discrete,Plus 028c c411 | | Store 0x2,0x11 028d 00cf | | Action Mark_Auxiliary 028e e40c | | Load 0x2,0xc 028f e40b | | Load 0x2,0xb 0290 0263 | c | Execute Discrete,Above_Bound 0291 7007 |p | Jump_Nonzero 0x299 0292 e40d | | Load 0x2,0xd 0293 0e20 | | Execute_Immediate Not_Equal,0x20 0294 6801 |h | Jump_Zero 0x296 0295 08e0 | | Execute_Immediate Raise,0xe0 0296 841e | | Call 0x2,0x1e 0297 00c8 | | Action Pop_Auxiliary_Range 0298 3ff9 |? | Loop_Increasing 0x292 0299 00ce | | Action Pop_Auxiliary 029a e416 | | Load 0x2,0x16 029b 014d | M | Execute Float,Not_Equal_Zero 029c e411 | | Load 0x2,0x11 029d 0e00 | | Execute_Immediate Not_Equal,0x0 029e 0279 | y | Execute Discrete,And 029f 680c |h | Jump_Zero 0x2ac 02a0 e411 | | Load 0x2,0x11 02a1 0d00 | | Execute_Immediate Less,0x0 02a2 6802 |h | Jump_Zero 0x2a5 02a3 8420 | | Call 0x2,0x20 02a4 7807 |x | Jump 0x2ac 02a5 e416 | | Load 0x2,0x16 02a6 e417 | | Load 0x2,0x17 02a7 0237 | 7 | Execute Float,Convert_From_Discrete 02a8 e411 | | Load 0x2,0x11 02a9 0239 | 9 | Execute Float,Exponentiate 02aa 023b | ; | Execute Float,Times 02ab a416 | | Store_Unchecked 0x2,0x16 02ac e413 | | Load 0x2,0x13 02ad 6829 |h) | Jump_Zero 0x2d7 02ae e416 | | Load 0x2,0x16 02af 023e | > | Execute Float,Absolute_Value 02b0 e406 | | Load 0x2,0x6 02b1 e407 | | Load 0x2,0x7 02b2 4808 |H | Short_Literal 0x8 02b3 4802 |H | Short_Literal 0x2 02b4 0099 | | Action Reference_Dynamic 02b5 8003 | | Call 0x0,0x3 02b6 a41d | | Store_Unchecked 0x2,0x1d 02b7 e41d | | Load 0x2,0x1d 02b8 4803 |H | Short_Literal 0x3 02b9 0279 | y | Execute Discrete,And 02ba 0b00 | | Execute_Immediate Case_Compare,0x0 02bb 7012 |p | Jump_Nonzero 0x2ce 02bc 0b01 | | Execute_Immediate Case_Compare,0x1 02bd 7005 |p | Jump_Nonzero 0x2c3 02be 0b02 | | Execute_Immediate Case_Compare,0x2 02bf 7007 |p | Jump_Nonzero 0x2c7 02c0 0f03 | | Execute_Immediate Equal,0x3 02c1 7009 |p | Jump_Nonzero 0x2cb 02c2 780e |x | Jump 0x2d1 02c3 00d1 | | Pop_Control Pop_Count_1 02c4 4fff |O | Short_Literal -0x1 02c5 a412 | | Store_Unchecked 0x2,0x12 02c6 780a |x | Jump 0x2d1 02c7 00d1 | | Pop_Control Pop_Count_1 02c8 4802 |H | Short_Literal 0x2 02c9 a412 | | Store_Unchecked 0x2,0x12 02ca 7806 |x | Jump 0x2d1 02cb 4801 |H | Short_Literal 0x1 02cc a412 | | Store_Unchecked 0x2,0x12 02cd 7803 |x | Jump 0x2d1 02ce 00d1 | | Pop_Control Pop_Count_1 02cf 4800 |H | Short_Literal 0x0 02d0 a412 | | Store_Unchecked 0x2,0x12 02d1 e41d | | Load 0x2,0x1d 02d2 09cc | | Execute_Immediate Binary_Scale,-0x34 02d3 6008 |` | Indirect_Literal Discrete,0x2dc,{0xffffffff, 0xfffffbcd} 02d4 0273 | s | Execute Discrete,Plus 02d5 a41c | | Store_Unchecked 0x2,0x1c 02d6 8421 | ! | Call 0x2,0x21 02d7 e416 | | Load 0x2,0x16 02d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d9 TRAP_00f8: 02d9 0007 | | Action Break_Optional 02da 08e0 | | Execute_Immediate Raise,0xe0 02db 0000 | | .XXX[0x1] 02dc ffff ffff | | .LITERAL {0xffffffff, 0xfffffbcd} 02e0 0000 0000 | | .DBL 0.0 02e2 0000 0000 | | 02e4 ffff ffff | | .LITERAL {0xffffffff, 0xc0000001} 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e213 | | Load 0x1,0x13 02ec 0257 | W | Execute Discrete,Raise 02ed 0000 0000 | | .XXX[0x3] 02ef 0000 | | 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f8 | | .CONST 0x02f8 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0005 | | .CONST 0x0005 ; Number of locals 02f3 INIT_02f0: 02f3 00e6 | | Load_Encached Float_Cache 02f4 03d8 | | Declare_Variable Float,Duplicate 02f5 03d8 | | Declare_Variable Float,Duplicate 02f6 00e2 | | Load_Encached Integer_Cache 02f7 0635 | 5 | Execute_Immediate Set_Value_Unchecked,0x35 02f8 BODY_02f0: 02f8 e5ff | | Load 0x2,-0x1 02f9 014b | K | Execute Float,Less_Zero 02fa e5fe | | Load 0x2,-0x2 02fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fc 027e | ~ | Execute Discrete,Not_Equal 02fd 6802 |h | Jump_Zero 0x300 02fe 8222 | " | Call 0x1,0x22 02ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0300 e5fe | | Load 0x2,-0x2 0301 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0302 6811 |h | Jump_Zero 0x314 0303 e20f | | Load 0x1,0xf 0304 0322 | " | Declare_Variable Record 0305 4800 |H | Short_Literal 0x0 0306 00d9 | | Load_Top At_Offset_1 0307 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0308 e5fe | | Load 0x2,-0x2 0309 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 030a 00d9 | | Load_Top At_Offset_1 030b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 030c e5fe | | Load 0x2,-0x2 030d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 030e 00d9 | | Load_Top At_Offset_1 030f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0310 e5ff | | Load 0x2,-0x1 0311 023f | ? | Execute Float,Unary_Minus 0312 8223 | # | Call 0x1,0x23 0313 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0314 e5fe | | Load 0x2,-0x2 0315 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0316 00d9 | | Load_Top At_Offset_1 0317 0273 | s | Execute Discrete,Plus 0318 4bff |K | Short_Literal 0x3ff 0319 027d | } | Execute Discrete,Greater 031a 6805 |h | Jump_Zero 0x320 031b 4bff |K | Short_Literal 0x3ff 031c e5fe | | Load 0x2,-0x2 031d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 031e 0272 | r | Execute Discrete,Minus 031f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0320 e5fe | | Load 0x2,-0x2 0321 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0322 0237 | 7 | Execute Float,Convert_From_Discrete 0323 5818 |X | Indirect_Literal Float,0x33c,2.0 0324 00da | | Load_Top At_Offset_2 0325 0275 | u | Execute Discrete,Unary_Minus 0326 0239 | 9 | Execute Float,Exponentiate 0327 023b | ; | Execute Float,Times 0328 a402 | | Store_Unchecked 0x2,0x2 0329 5812 |X | Indirect_Literal Float,0x33c,2.0 032a e5fe | | Load 0x2,-0x2 032b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 032c 00da | | Load_Top At_Offset_2 032d 0273 | s | Execute Discrete,Plus 032e 0239 | 9 | Execute Float,Exponentiate 032f 0043 | C | Store_Top_Uncheched Float,At_Offset_3 0330 00db | | Load_Top At_Offset_3 0331 00db | | Load_Top At_Offset_3 0332 023b | ; | Execute Float,Times 0333 0042 | B | Store_Top_Unchecked Float,At_Offset_2 0334 e5ff | | Load 0x2,-0x1 0335 00da | | Load_Top At_Offset_2 0336 0246 | F | Execute Float,Not_Equal 0337 6801 |h | Jump_Zero 0x339 0338 8222 | " | Call 0x1,0x22 0339 4503 |E | Exit_Suprogram New_Top_Offset 0x3 033a 0000 0000 | | .XXX[0x2] 033c 4000 0000 |@ | .DBL 2.0 033e 0000 0000 | | 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 e40d | | Load 0x2,0xd 0344 a40e | | Store_Unchecked 0x2,0xe 0345 e40b | | Load 0x2,0xb 0346 0a01 | | Execute_Immediate Plus,0x1 0347 c40b | | Store 0x2,0xb 0348 e40b | | Load 0x2,0xb 0349 e40c | | Load 0x2,0xc 034a 027a | z | Execute Discrete,Less_Equal 034b 6805 |h | Jump_Zero 0x351 034c e40b | | Load 0x2,0xb 034d e5ff | | Load 0x2,-0x1 034e 01d7 | | Execute Vector,Field_Read 034f a40d | | Store_Unchecked 0x2,0xd 0350 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0351 4820 |H | Short_Literal 0x20 0352 a40d | | Store_Unchecked 0x2,0xd 0353 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0354 0000 0000 | | .BLANK 0000[0x4] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035d | ] | .CONST 0x035d ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0002 | | .CONST 0x0002 ; Number of locals 035b INIT_0358: 035b 00e5 | | Load_Encached Long_Integer_Cache 035c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 035d BODY_0358: 035d e40d | | Load 0x2,0xd 035e 0f2d | - | Execute_Immediate Equal,0x2d 035f a414 | | Store_Unchecked 0x2,0x14 0360 e40d | | Load 0x2,0xd 0361 0f2b | + | Execute_Immediate Equal,0x2b 0362 e40d | | Load 0x2,0xd 0363 0f2d | - | Execute_Immediate Equal,0x2d 0364 0278 | x | Execute Discrete,Or 0365 6801 |h | Jump_Zero 0x367 0366 841e | | Call 0x2,0x1e 0367 e40d | | Load 0x2,0xd 0368 4830 |H0 | Short_Literal 0x30 0369 4839 |H9 | Short_Literal 0x39 036a 0261 | a | Execute Discrete,Not_In_Range 036b 6801 |h | Jump_Zero 0x36d 036c 08e0 | | Execute_Immediate Raise,0xe0 036d 00cf | | Action Mark_Auxiliary 036e e40d | | Load 0x2,0xd 036f 4830 |H0 | Short_Literal 0x30 0370 4839 |H9 | Short_Literal 0x39 0371 0262 | b | Execute Discrete,In_Range 0372 7008 |p | Jump_Nonzero 0x37b 0373 e40e | | Load 0x2,0xe 0374 0f5f | _ | Execute_Immediate Equal,0x5f 0375 6801 |h | Jump_Zero 0x377 0376 08e0 | | Execute_Immediate Raise,0xe0 0377 e40d | | Load 0x2,0xd 0378 0e5f | _ | Execute_Immediate Not_Equal,0x5f 0379 702c |p, | Jump_Nonzero 0x3a6 037a 7828 |x( | Jump 0x3a3 037b e40d | | Load 0x2,0xd 037c 0ad0 | | Execute_Immediate Plus,-0x30 037d a418 | | Store_Unchecked 0x2,0x18 037e 00d9 | | Load_Top At_Offset_1 037f e404 | | Load 0x2,0x4 0380 027f | | Execute Discrete,Equal 0381 6806 |h | Jump_Zero 0x388 0382 e418 | | Load 0x2,0x18 0383 e405 | | Load 0x2,0x5 0384 027d | } | Execute Discrete,Greater 0385 6802 |h | Jump_Zero 0x388 0386 4800 |H | Short_Literal 0x0 0387 a418 | | Store_Unchecked 0x2,0x18 0388 00d9 | | Load_Top At_Offset_1 0389 e404 | | Load 0x2,0x4 038a 027d | } | Execute Discrete,Greater 038b 6809 |h | Jump_Zero 0x395 038c e411 | | Load 0x2,0x11 038d 0a01 | | Execute_Immediate Plus,0x1 038e c411 | | Store 0x2,0x11 038f e413 | | Load 0x2,0x13 0390 e418 | | Load 0x2,0x18 0391 0e00 | | Execute_Immediate Not_Equal,0x0 0392 0278 | x | Execute Discrete,Or 0393 a413 | | Store_Unchecked 0x2,0x13 0394 780e |x | Jump 0x3a3 0395 00d9 | | Load_Top At_Offset_1 0396 480a |H | Short_Literal 0xa 0397 0271 | q | Execute Discrete,Times 0398 e418 | | Load 0x2,0x18 0399 0273 | s | Execute Discrete,Plus 039a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 039b e418 | | Load 0x2,0x18 039c 7004 |p | Jump_Nonzero 0x3a1 039d e410 | | Load 0x2,0x10 039e 0a01 | | Execute_Immediate Plus,0x1 039f c410 | | Store 0x2,0x10 03a0 7802 |x | Jump 0x3a3 03a1 4800 |H | Short_Literal 0x0 03a2 a410 | | Store_Unchecked 0x2,0x10 03a3 841e | | Call 0x2,0x1e 03a4 00c9 | | Action Pop_Auxiliary_Loop 03a5 7fc8 | | Jump 0x36e 03a6 00ce | | Action Pop_Auxiliary 03a7 e414 | | Load 0x2,0x14 03a8 6804 |h | Jump_Zero 0x3ad 03a9 00d8 | | Load_Top At_Offset_0 03aa 0275 | u | Execute Discrete,Unary_Minus 03ab a7ff | | Store_Unchecked 0x3,-0x1 03ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ad 00d8 | | Load_Top At_Offset_0 03ae a7ff | | Store_Unchecked 0x3,-0x1 03af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 03d4 | | .CONST 0x03d4 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 e411 | | Load 0x2,0x11 03b4 4f38 |O8 | Short_Literal -0xc8 03b5 027d | } | Execute Discrete,Greater 03b6 6809 |h | Jump_Zero 0x3c0 03b7 e416 | | Load 0x2,0x16 03b8 e417 | | Load 0x2,0x17 03b9 0237 | 7 | Execute Float,Convert_From_Discrete 03ba e411 | | Load 0x2,0x11 03bb 0275 | u | Execute Discrete,Unary_Minus 03bc 0239 | 9 | Execute Float,Exponentiate 03bd 023a | : | Execute Float,Divide 03be a416 | | Store_Unchecked 0x2,0x16 03bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c0 e416 | | Load 0x2,0x16 03c1 581e |X | Indirect_Literal Float,0x3e0,3.402823669209385e+38 03c2 023a | : | Execute Float,Divide 03c3 e417 | | Load 0x2,0x17 03c4 0237 | 7 | Execute Float,Convert_From_Discrete 03c5 48c8 |H | Short_Literal 0xc8 03c6 0239 | 9 | Execute Float,Exponentiate 03c7 5818 |X | Indirect_Literal Float,0x3e0,3.402823669209385e+38 03c8 023a | : | Execute Float,Divide 03c9 e417 | | Load 0x2,0x17 03ca 0237 | 7 | Execute Float,Convert_From_Discrete 03cb e411 | | Load 0x2,0x11 03cc 0275 | u | Execute Discrete,Unary_Minus 03cd 4f38 |O8 | Short_Literal -0xc8 03ce 0273 | s | Execute Discrete,Plus 03cf 0239 | 9 | Execute Float,Exponentiate 03d0 023b | ; | Execute Float,Times 03d1 023a | : | Execute Float,Divide 03d2 a416 | | Store_Unchecked 0x2,0x16 03d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03d4 TRAP_03b0: 03d4 0007 | | Action Break_Optional 03d5 e416 | | Load 0x2,0x16 03d6 e417 | | Load 0x2,0x17 03d7 0237 | 7 | Execute Float,Convert_From_Discrete 03d8 e411 | | Load 0x2,0x11 03d9 0239 | 9 | Execute Float,Exponentiate 03da 023b | ; | Execute Float,Times 03db a416 | | Store_Unchecked 0x2,0x16 03dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03dd 0000 0000 | | .XXX[0x3] 03df 0000 | | 03e0 47f0 0000 |G | .DBL 3.402823669209385e+38 03e2 0000 0000 | | 03e4 0000 0000 | | .BLANK 0000[0x4] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 040c | | .CONST 0x040c ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb e416 | | Load 0x2,0x16 03ec 014a | J | Execute Float,Greater_Equal_Zero 03ed 680f |h | Jump_Zero 0x3fd 03ee e416 | | Load 0x2,0x16 03ef e412 | | Load 0x2,0x12 03f0 0237 | 7 | Execute Float,Convert_From_Discrete 03f1 581e |X | Indirect_Literal Float,0x410,2.0 03f2 e41c | | Load 0x2,0x1c 03f3 00d8 | | Load_Top At_Offset_0 03f4 00e2 | | Load_Encached Integer_Cache 03f5 0260 | ` | Execute Discrete,In_Type 03f6 7001 |p | Jump_Nonzero 0x3f8 03f7 0801 | | Execute_Immediate Raise,0x1 03f8 0239 | 9 | Execute Float,Exponentiate 03f9 023b | ; | Execute Float,Times 03fa 023d | = | Execute Float,Plus 03fb a416 | | Store_Unchecked 0x2,0x16 03fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fd e416 | | Load 0x2,0x16 03fe e412 | | Load 0x2,0x12 03ff 0237 | 7 | Execute Float,Convert_From_Discrete 0400 580f |X | Indirect_Literal Float,0x410,2.0 0401 e41c | | Load 0x2,0x1c 0402 00d8 | | Load_Top At_Offset_0 0403 00e2 | | Load_Encached Integer_Cache 0404 0260 | ` | Execute Discrete,In_Type 0405 7001 |p | Jump_Nonzero 0x407 0406 0801 | | Execute_Immediate Raise,0x1 0407 0239 | 9 | Execute Float,Exponentiate 0408 023b | ; | Execute Float,Times 0409 023c | < | Execute Float,Minus 040a a416 | | Store_Unchecked 0x2,0x16 040b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 040c TRAP_03e8: 040c 0007 | | Action Break_Optional 040d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 040e 0000 0000 | | .XXX[0x2] 0410 4000 0000 |@ | .DBL 2.0 0412 0000 0000 | | 0414 0000 0000 | | .BLANK 0000[0x4] 0418 ; -------------------------------------------------------------------------------------- 0418 ; Debug Table 0418 ; -------------------------------------------------------------------------------------- 0418 0004 000d | | .DEBUG4 0x0004,0x000d,0x50e1,0x0000,0x0001,0x0000 041e 0000 0000 | | .BLANK 0000[0x4] 0422 1a11 2e00 | . | .XXX[0x10] 0424 0029 6210 | )b | 0426 0342 29c0 | B) | 0428 0342 3ef0 | B> | 042a 0007 1a20 | | 042c 0684 b440 | @| 042e 0000 0000 | | 0430 0684 c340 | @| 0432 0000 0000 | | .BLANK 0000[0x5] 0437 0740 2000 | @ | .XXX[0x8] 0439 0001 2200 | " | 043b 0800 000e | | 043d 0000 0024 | $| 043f 0000 0000 | | .BLANK 0000[0xe] 044d 0400 0000 | | .XXX[0x21] 044f 0000 0000 | | 0451 0001 c000 | | 0453 0000 0000 | | 0455 0000 000d | | 0457 0968 8000 | h | 0459 0000 0000 | | 045b 0000 4000 | @ | 045d 0001 d295 | | 045f 5253 1311 |RS | 0461 5500 0d09 |U | 0463 a6c0 0000 | | 0465 0000 0000 | | 0467 0080 0000 | | 0469 0000 0000 | | 046b 0040 0000 | @ | 046d 0e80 | | 046e 0000 0000 | | .BLANK 0000[0x5] 0473 0240 000e | @ | .XXX[0x19] 0475 3440 0d08 |4@ | 0477 8640 0000 | @ | 0479 0000 0d0b | | 047b 3920 0684 |9 | 047d ffc0 0002 | | 047f 6018 00d0 |` | 0481 a0f8 00d0 | | 0483 a644 0005 | D | 0485 70b0 0140 |p @| 0487 4970 0000 |Ip | 0489 0000 01a1 | | 048b 5720 |W | 048c 0000 0000 | | .BLANK 0000[0x4] 0490 001f 63c0 | c | .XXX[0x11] 0492 0800 0570 | p| 0494 a020 8a14 | | 0496 0002 0000 | | 0498 ae14 0000 | | 049a ae16 0028 | (| 049c 092e 0000 | . | 049e 0000 0034 | 4| 04a0 2be4 |+ | 04a1 0000 0000 | | .BLANK 0000[0x4] 04a5 0003 ec78 | x| .XXX[0x26] 04a7 0100 00ae | | 04a9 1404 1142 | B| 04ab 8000 3000 | 0 | 04ad 15c2 8003 | | 04af 42b6 5000 |B P | 04b1 0000 0000 | | 04b3 0000 2000 | | 04b5 0000 0000 | | 04b7 0000 1000 | | 04b9 3ec7 8000 |> | 04bb 0000 0000 | | 04bd 0000 0003 | | 04bf 42c6 5000 |B P | 04c1 0000 0000 | | 04c3 0000 2000 | | 04c5 0000 0000 | | 04c7 0000 1000 | | 04c9 3ec7 8000 |> | 04cb 0000 0000 | | .BLANK 0000[0x5] 04d0 9000 0ae1 | | .XXX[0x19] 04d2 6003 427b |` B{| 04d4 b000 0000 | | 04d6 0000 0000 | | 04d8 0001 a16e | n| 04da 4000 0296 |@ | 04dc 2100 342e |! 4.| 04de 0800 342f | 4/| 04e0 5b00 0071 |[ q| 04e2 a400 684b | hK| 04e4 4400 0000 |D | 04e6 0000 6861 | ha| 04e8 5c00 |\ | 04e9 0000 0000 | | .BLANK 0000[0x5] 04ee 8402 0000 | | .XXX[0x8] 04f0 0014 2800 | ( | 04f2 8000 00e0 | | 04f4 0000 0280 | | 04f6 0000 0000 | | .BLANK 0000[0xe] 0504 4000 0000 |@ | .XXX[0x13] 0506 0000 0000 | | 0508 001c 0000 | | 050a 0000 00d0 | | 050c c4bc 0000 | | 050e 0000 0000 | | 0510 0008 0000 | | 0512 0000 0000 | | 0514 0004 0000 | | 0516 0108 | | 0517 0000 0000 | | .BLANK 0000[0x5] 051c 0024 0000 | $ | .XXX[0x2f] 051e e348 00d0 | H | 0520 b614 0000 | | 0522 0000 00d0 | | 0524 e1e6 0068 | h| 0526 6524 0000 |e$ | 0528 3d13 c00d |= | 052a 0cb4 800d | | 052c 0d09 4000 | @ | 052e 570b 8014 |W | 0530 053b 0000 | ; | 0532 0000 001a | | 0534 1abc 0000 | | 0536 0000 001a | | 0538 1b3c 0001 | < | 053a fc6a 0080 | j | 053c 0057 0a02 | W | 053e 0e21 4000 | !@ | 0540 2000 0ae1 | | 0542 4000 0ae1 |@ | 0544 7002 80a7 |p | 0546 6000 0000 |` | 0548 0003 4377 | Cw| 054a 9000 | | 054b 0000 0000 | | .BLANK 0000[0x4] 054f 3f8d 4010 |? @ | .XXX[0x15] 0551 000a e140 | @| 0553 41c4 2800 |A ( | 0555 0300 015c | \| 0557 2800 3435 |( 45| 0559 f900 0000 | | 055b 0000 0000 | | 055d 0200 0000 | | 055f 0000 0000 | | 0561 0500 03f8 | | 0563 d400 | | 0564 0000 0000 | | .BLANK 0000[0x4] 0568 3436 f900 |46 | .XXX[0xc] 056a 0000 0000 | | 056c 0000 0200 | | 056e 0000 0000 | | 0570 04ee 9b00 | | 0572 00af c800 | | 0574 0000 0000 | | .BLANK 0000[0x4] 0578 1a1b fd00 | | .XXX[0xc] 057a 0000 0000 | | 057c 0000 0100 | | 057e 0000 0000 | | 0580 0000 0280 | | 0582 01fc 6a00 | j | 0584 0000 0000 | | .BLANK 0000[0x5] 0589 0480 0057 | W| .XXX[0x5] 058b 0b80 1a19 | | 058d 2780 |' | 058e 0000 0000 | | .BLANK 0000[0x4] 0592 0d0e 5740 | W@| .XXX[0x39] 0594 0030 5f68 | 0_h| 0596 01a1 cce8 | | 0598 01a1 d780 | | 059a 0003 8d30 | 0| 059c 0342 5a20 | BZ | 059e 0000 0000 | | 05a0 0343 d700 | C | 05a2 0000 0000 | | 05a4 0343 e700 | C | 05a6 000b 6880 | h | 05a8 2800 0000 |( | 05aa 4040 242c |@@$,| 05ac 0007 0034 | 4| 05ae 3c43 0000 |<C | 05b0 71a6 0068 |q h| 05b2 4b44 0000 |KD | 05b4 0000 0068 | h| 05b6 8a3c 0000 | < | 05b8 0000 0068 | h| 05ba 8c3c 0001 | < | 05bc 6d10 0500 |m | 05be 0000 0808 | | 05c0 0485 8000 | | 05c2 e006 887e | ~| 05c4 3010 0000 |0 | 05c6 0040 0000 | @ | 05c8 0001 4980 | I | 05ca 2600 |& | 05cb 0000 0000 | | .BLANK 0000[0x4] 05cf 53e0 0e80 |S | .XXX[0x14] 05d1 0000 0000 | | 05d3 0000 0001 | | 05d5 ffff fffe | | 05d7 0034 3df1 | 4= | 05d9 0000 0000 | | 05db 0000 0002 | | 05dd 0000 0000 | | 05df 0000 0001 | | 05e1 0000 b688 | | 05e3 0000 0000 | | .BLANK 0000[0x4] 05e7 0034 4071 | 4@q| .XXX[0xc] 05e9 0000 0000 | | 05eb 0000 0014 | | 05ed 0000 0000 | | 05ef 0004 bbce | | 05f1 8000 38d7 | 8 | 05f3 0000 0000 | | .BLANK 0000[0x4] 05f7 0014 0497 | | .XXX[0x9] 05f9 0000 38d5 | 8 | 05fb 0034 3ef1 | 4> | 05fd 0034 3ff1 | 4? | 05ff 0014 | |