|
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_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0458 | X | .CONST 0x0458 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 000f 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call 001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001b 00c7 | | Action Elaborate_Subprogram 001c BODY_0008: 001c 00bc | | Action Signal_Activated 001d 00bb | | Action Signal_Completion 001e 0000 0000 | | .XXX[0x2] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0036 | 6 | .CONST 0x0036 ; Address of begin 0021 0175 | u | .CONST 0x0175 ; Address of exception handler 0022 000a | | .CONST 0x000a ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 0337 | 7 | Declare_Variable Array 0025 e003 | | Load 0x0,0x3 0026 00d9 | | Load_Top At_Offset_1 0027 01d4 | | Execute Vector,Structure_Write 0028 e004 | | Load 0x0,0x4 0029 0007 | | Action Break_Optional 002a e005 | | Load 0x0,0x5 002b 0007 | | Action Break_Optional 002c e006 | | Load 0x0,0x6 002d 03e9 | | Declare_Variable Discrete,Duplicate 002e e007 | | Load 0x0,0x7 002f 03e9 | | Declare_Variable Discrete,Duplicate 0030 e004 | | Load 0x0,0x4 0031 0007 | | Action Break_Optional 0032 e5ff | | Load 0x2,-0x1 0033 01dd | | Execute Vector,First 0034 e004 | | Load 0x0,0x4 0035 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0036 BODY_0020: 0036 e003 | | Load 0x0,0x3 0037 e5fa | | Load 0x2,-0x6 0038 01d4 | | Execute Vector,Structure_Write 0039 e5ff | | Load 0x2,-0x1 003a 4800 |H | Short_Literal 0x0 003b 00e5 | | Load_Encached Long_Integer_Cache 003c 00d9 | | Load_Top At_Offset_1 003d 0267 | g | Execute Discrete,Predecessor 003e e008 | | Load 0x0,0x8 003f 0334 | 4 | Declare_Variable Array,With_Constraint 0040 01df | | Execute Vector,Equal 0041 7115 |q | Jump_Nonzero 0x157 0042 e5ff | | Load 0x2,-0x1 0043 01dd | | Execute Vector,First 0044 e5ff | | Load 0x2,-0x1 0045 01d7 | | Execute Vector,Field_Read 0046 7001 |p | Jump_Nonzero 0x48 0047 790f |y | Jump 0x157 0048 00d8 | | Load_Top At_Offset_0 0049 e5ff | | Load 0x2,-0x1 004a 01d7 | | Execute Vector,Field_Read 004b 0f3d | = | Execute_Immediate Equal,0x3d 004c 6803 |h | Jump_Zero 0x50 004d 00d8 | | Load_Top At_Offset_0 004e 0a01 | | Execute_Immediate Plus,0x1 004f 0059 | Y | Store_Top Discrete,At_Offset_1 0050 00d8 | | Load_Top At_Offset_0 0051 a403 | | Store_Unchecked 0x2,0x3 0052 e403 | | Load 0x2,0x3 0053 e5ff | | Load 0x2,-0x1 0054 01d7 | | Execute Vector,Field_Read 0055 0e2b | + | Execute_Immediate Not_Equal,0x2b 0056 682c |h, | Jump_Zero 0x83 0057 e403 | | Load 0x2,0x3 0058 e5ff | | Load 0x2,-0x1 0059 01d7 | | Execute Vector,Field_Read 005a 0e2d | - | Execute_Immediate Not_Equal,0x2d 005b 6827 |h' | Jump_Zero 0x83 005c e403 | | Load 0x2,0x3 005d e5ff | | Load 0x2,-0x1 005e 01d7 | | Execute Vector,Field_Read 005f 0e78 | x | Execute_Immediate Not_Equal,0x78 0060 6822 |h" | Jump_Zero 0x83 0061 e403 | | Load 0x2,0x3 0062 e5ff | | Load 0x2,-0x1 0063 01d7 | | Execute Vector,Field_Read 0064 0e58 | X | Execute_Immediate Not_Equal,0x58 0065 681d |h | Jump_Zero 0x83 0066 e005 | | Load 0x0,0x5 0067 e004 | | Load 0x0,0x4 0068 e403 | | Load 0x2,0x3 0069 e5ff | | Load 0x2,-0x1 006a 01dc | | Execute Vector,Last 006b e5ff | | Load 0x2,-0x1 006c 01cf | | Execute Vector,Slice_Read 006d 8210 | | Call 0x1,0x10 006e 005b | [ | Store_Top Discrete,At_Offset_3 006f c404 | | Store 0x2,0x4 0070 e404 | | Load 0x2,0x4 0071 00d8 | | Load_Top At_Offset_0 0072 e006 | | Load 0x0,0x6 0073 0260 | ` | Execute Discrete,In_Type 0074 7001 |p | Jump_Nonzero 0x76 0075 0801 | | Execute_Immediate Raise,0x1 0076 a405 | | Store_Unchecked 0x2,0x5 0077 4801 |H | Short_Literal 0x1 0078 481d |H | Short_Literal 0x1d 0079 e402 | | Load 0x2,0x2 007a 01d6 | | Execute Vector,Field_Write 007b 00d9 | | Load_Top At_Offset_1 007c e5ff | | Load 0x2,-0x1 007d 01dc | | Execute Vector,Last 007e 027d | } | Execute Discrete,Greater 007f 6801 |h | Jump_Zero 0x81 0080 78d6 |x | Jump 0x157 0081 00d9 | | Load_Top At_Offset_1 0082 a403 | | Store_Unchecked 0x2,0x3 0083 e403 | | Load 0x2,0x3 0084 e5ff | | Load 0x2,-0x1 0085 01d7 | | Execute Vector,Field_Read 0086 0f78 | x | Execute_Immediate Equal,0x78 0087 7005 |p | Jump_Nonzero 0x8d 0088 e403 | | Load 0x2,0x3 0089 e5ff | | Load 0x2,-0x1 008a 01d7 | | Execute Vector,Field_Read 008b 0f58 | X | Execute_Immediate Equal,0x58 008c 6820 |h | Jump_Zero 0xad 008d e403 | | Load 0x2,0x3 008e 0a01 | | Execute_Immediate Plus,0x1 008f c403 | | Store 0x2,0x3 0090 e005 | | Load 0x0,0x5 0091 e004 | | Load 0x0,0x4 0092 e403 | | Load 0x2,0x3 0093 e5ff | | Load 0x2,-0x1 0094 01dc | | Execute Vector,Last 0095 e5ff | | Load 0x2,-0x1 0096 01cf | | Execute Vector,Slice_Read 0097 8210 | | Call 0x1,0x10 0098 005b | [ | Store_Top Discrete,At_Offset_3 0099 c404 | | Store 0x2,0x4 009a e404 | | Load 0x2,0x4 009b 00d8 | | Load_Top At_Offset_0 009c e006 | | Load 0x0,0x6 009d 0260 | ` | Execute Discrete,In_Type 009e 7001 |p | Jump_Nonzero 0xa0 009f 0801 | | Execute_Immediate Raise,0x1 00a0 a406 | | Store_Unchecked 0x2,0x6 00a1 4801 |H | Short_Literal 0x1 00a2 481c |H | Short_Literal 0x1c 00a3 e402 | | Load 0x2,0x2 00a4 01d6 | | Execute Vector,Field_Write 00a5 00d9 | | Load_Top At_Offset_1 00a6 e5ff | | Load 0x2,-0x1 00a7 01dc | | Execute Vector,Last 00a8 027d | } | Execute Discrete,Greater 00a9 6801 |h | Jump_Zero 0xab 00aa 78ac |x | Jump 0x157 00ab 00d9 | | Load_Top At_Offset_1 00ac a403 | | Store_Unchecked 0x2,0x3 00ad e403 | | Load 0x2,0x3 00ae e5ff | | Load 0x2,-0x1 00af 01d7 | | Execute Vector,Field_Read 00b0 0f2b | + | Execute_Immediate Equal,0x2b 00b1 7005 |p | Jump_Nonzero 0xb7 00b2 e403 | | Load 0x2,0x3 00b3 e5ff | | Load 0x2,-0x1 00b4 01d7 | | Execute Vector,Field_Read 00b5 0f2d | - | Execute_Immediate Equal,0x2d 00b6 68a0 |h | Jump_Zero 0x157 00b7 e403 | | Load 0x2,0x3 00b8 e5ff | | Load 0x2,-0x1 00b9 01d7 | | Execute Vector,Field_Read 00ba 0f2d | - | Execute_Immediate Equal,0x2d 00bb 6826 |h& | Jump_Zero 0xe2 00bc e403 | | Load 0x2,0x3 00bd 0a01 | | Execute_Immediate Plus,0x1 00be c403 | | Store 0x2,0x3 00bf e005 | | Load 0x0,0x5 00c0 e004 | | Load 0x0,0x4 00c1 e403 | | Load 0x2,0x3 00c2 e5ff | | Load 0x2,-0x1 00c3 01dc | | Execute Vector,Last 00c4 e5ff | | Load 0x2,-0x1 00c5 01cf | | Execute Vector,Slice_Read 00c6 8210 | | Call 0x1,0x10 00c7 005b | [ | Store_Top Discrete,At_Offset_3 00c8 c404 | | Store 0x2,0x4 00c9 e404 | | Load 0x2,0x4 00ca 0275 | u | Execute Discrete,Unary_Minus 00cb 00d8 | | Load_Top At_Offset_0 00cc e007 | | Load 0x0,0x7 00cd 0260 | ` | Execute Discrete,In_Type 00ce 7001 |p | Jump_Nonzero 0xd0 00cf 0801 | | Execute_Immediate Raise,0x1 00d0 a407 | | Store_Unchecked 0x2,0x7 00d1 4801 |H | Short_Literal 0x1 00d2 481b |H | Short_Literal 0x1b 00d3 e402 | | Load 0x2,0x2 00d4 01d6 | | Execute Vector,Field_Write 00d5 4801 |H | Short_Literal 0x1 00d6 481f |H | Short_Literal 0x1f 00d7 e402 | | Load 0x2,0x2 00d8 01d6 | | Execute Vector,Field_Write 00d9 00d9 | | Load_Top At_Offset_1 00da e5ff | | Load 0x2,-0x1 00db 01dc | | Execute Vector,Last 00dc 027d | } | Execute Discrete,Greater 00dd 6801 |h | Jump_Zero 0xdf 00de 7878 |xx | Jump 0x157 00df 00d9 | | Load_Top At_Offset_1 00e0 a403 | | Store_Unchecked 0x2,0x3 00e1 7820 |x | Jump 0x102 00e2 e403 | | Load 0x2,0x3 00e3 0a01 | | Execute_Immediate Plus,0x1 00e4 c403 | | Store 0x2,0x3 00e5 e005 | | Load 0x0,0x5 00e6 e004 | | Load 0x0,0x4 00e7 e403 | | Load 0x2,0x3 00e8 e5ff | | Load 0x2,-0x1 00e9 01dc | | Execute Vector,Last 00ea e5ff | | Load 0x2,-0x1 00eb 01cf | | Execute Vector,Slice_Read 00ec 8210 | | Call 0x1,0x10 00ed 005b | [ | Store_Top Discrete,At_Offset_3 00ee c404 | | Store 0x2,0x4 00ef e404 | | Load 0x2,0x4 00f0 00d8 | | Load_Top At_Offset_0 00f1 e007 | | Load 0x0,0x7 00f2 0260 | ` | Execute Discrete,In_Type 00f3 7001 |p | Jump_Nonzero 0xf5 00f4 0801 | | Execute_Immediate Raise,0x1 00f5 a407 | | Store_Unchecked 0x2,0x7 00f6 4801 |H | Short_Literal 0x1 00f7 481f |H | Short_Literal 0x1f 00f8 e402 | | Load 0x2,0x2 00f9 01d6 | | Execute Vector,Field_Write 00fa 00d9 | | Load_Top At_Offset_1 00fb e5ff | | Load 0x2,-0x1 00fc 01dc | | Execute Vector,Last 00fd 027d | } | Execute Discrete,Greater 00fe 6801 |h | Jump_Zero 0x100 00ff 7857 |xW | Jump 0x157 0100 00d9 | | Load_Top At_Offset_1 0101 a403 | | Store_Unchecked 0x2,0x3 0102 e403 | | Load 0x2,0x3 0103 e5ff | | Load 0x2,-0x1 0104 01d7 | | Execute Vector,Field_Read 0105 0f2b | + | Execute_Immediate Equal,0x2b 0106 7005 |p | Jump_Nonzero 0x10c 0107 e403 | | Load 0x2,0x3 0108 e5ff | | Load 0x2,-0x1 0109 01d7 | | Execute Vector,Field_Read 010a 0f2d | - | Execute_Immediate Equal,0x2d 010b 684b |hK | Jump_Zero 0x157 010c e403 | | Load 0x2,0x3 010d e5ff | | Load 0x2,-0x1 010e 01d7 | | Execute Vector,Field_Read 010f 0f2d | - | Execute_Immediate Equal,0x2d 0110 6826 |h& | Jump_Zero 0x137 0111 e403 | | Load 0x2,0x3 0112 0a01 | | Execute_Immediate Plus,0x1 0113 c403 | | Store 0x2,0x3 0114 e005 | | Load 0x0,0x5 0115 e004 | | Load 0x0,0x4 0116 e403 | | Load 0x2,0x3 0117 e5ff | | Load 0x2,-0x1 0118 01dc | | Execute Vector,Last 0119 e5ff | | Load 0x2,-0x1 011a 01cf | | Execute Vector,Slice_Read 011b 8210 | | Call 0x1,0x10 011c 005b | [ | Store_Top Discrete,At_Offset_3 011d c404 | | Store 0x2,0x4 011e e404 | | Load 0x2,0x4 011f 0275 | u | Execute Discrete,Unary_Minus 0120 00d8 | | Load_Top At_Offset_0 0121 e007 | | Load 0x0,0x7 0122 0260 | ` | Execute Discrete,In_Type 0123 7001 |p | Jump_Nonzero 0x125 0124 0801 | | Execute_Immediate Raise,0x1 0125 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0126 4801 |H | Short_Literal 0x1 0127 481a |H | Short_Literal 0x1a 0128 e402 | | Load 0x2,0x2 0129 01d6 | | Execute Vector,Field_Write 012a 4801 |H | Short_Literal 0x1 012b 481e |H | Short_Literal 0x1e 012c e402 | | Load 0x2,0x2 012d 01d6 | | Execute Vector,Field_Write 012e 00d9 | | Load_Top At_Offset_1 012f e5ff | | Load 0x2,-0x1 0130 01dc | | Execute Vector,Last 0131 027d | } | Execute Discrete,Greater 0132 6801 |h | Jump_Zero 0x134 0133 7823 |x# | Jump 0x157 0134 00d9 | | Load_Top At_Offset_1 0135 a403 | | Store_Unchecked 0x2,0x3 0136 7820 |x | Jump 0x157 0137 e403 | | Load 0x2,0x3 0138 0a01 | | Execute_Immediate Plus,0x1 0139 c403 | | Store 0x2,0x3 013a e005 | | Load 0x0,0x5 013b e004 | | Load 0x0,0x4 013c e403 | | Load 0x2,0x3 013d e5ff | | Load 0x2,-0x1 013e 01dc | | Execute Vector,Last 013f e5ff | | Load 0x2,-0x1 0140 01cf | | Execute Vector,Slice_Read 0141 8210 | | Call 0x1,0x10 0142 005b | [ | Store_Top Discrete,At_Offset_3 0143 c404 | | Store 0x2,0x4 0144 e404 | | Load 0x2,0x4 0145 00d8 | | Load_Top At_Offset_0 0146 e007 | | Load 0x0,0x7 0147 0260 | ` | Execute Discrete,In_Type 0148 7001 |p | Jump_Nonzero 0x14a 0149 0801 | | Execute_Immediate Raise,0x1 014a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 014b 4801 |H | Short_Literal 0x1 014c 481e |H | Short_Literal 0x1e 014d e402 | | Load 0x2,0x2 014e 01d6 | | Execute Vector,Field_Write 014f 00d9 | | Load_Top At_Offset_1 0150 e5ff | | Load 0x2,-0x1 0151 01dc | | Execute Vector,Last 0152 027d | } | Execute Discrete,Greater 0153 6801 |h | Jump_Zero 0x155 0154 7802 |x | Jump 0x157 0155 00d9 | | Load_Top At_Offset_1 0156 a403 | | Store_Unchecked 0x2,0x3 0157 0008 | | Action Idle 0158 0007 | | Action Break_Optional 0159 481f |H | Short_Literal 0x1f 015a e402 | | Load 0x2,0x2 015b 01d7 | | Execute Vector,Field_Read 015c 6802 |h | Jump_Zero 0x15f 015d 00db | | Load_Top At_Offset_3 015e a5fe | | Store_Unchecked 0x2,-0x2 015f 481e |H | Short_Literal 0x1e 0160 e402 | | Load 0x2,0x2 0161 01d7 | | Execute Vector,Field_Read 0162 6802 |h | Jump_Zero 0x165 0163 00da | | Load_Top At_Offset_2 0164 a5fd | | Store_Unchecked 0x2,-0x3 0165 481d |H | Short_Literal 0x1d 0166 e402 | | Load 0x2,0x2 0167 01d7 | | Execute Vector,Field_Read 0168 6802 |h | Jump_Zero 0x16b 0169 e405 | | Load 0x2,0x5 016a a5fc | | Store_Unchecked 0x2,-0x4 016b 481c |H | Short_Literal 0x1c 016c e402 | | Load 0x2,0x2 016d 01d7 | | Execute Vector,Field_Read 016e 6802 |h | Jump_Zero 0x171 016f e406 | | Load 0x2,0x6 0170 a5fb | | Store_Unchecked 0x2,-0x5 0171 e402 | | Load 0x2,0x2 0172 e5fa | | Load 0x2,-0x6 0173 01d4 | | Execute Vector,Structure_Write 0174 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0175 TRAP_0020: 0175 010e | | Execute Exception,Is_Constraint_Error 0176 6801 |h | Jump_Zero 0x178 0177 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0178 0100 | | Execute Exception,Raise 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0197 | | .CONST 0x0197 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 000b | | .CONST 0x000b ; Number of locals 0183 INIT_0180: 0183 e007 | | Load 0x0,0x7 0184 0007 | | Action Break_Optional 0185 e007 | | Load 0x0,0x7 0186 0007 | | Action Break_Optional 0187 e006 | | Load 0x0,0x6 0188 0007 | | Action Break_Optional 0189 e006 | | Load 0x0,0x6 018a 0007 | | Action Break_Optional 018b e007 | | Load 0x0,0x7 018c 0007 | | Action Break_Optional 018d e007 | | Load 0x0,0x7 018e 0007 | | Action Break_Optional 018f e006 | | Load 0x0,0x6 0190 0007 | | Action Break_Optional 0191 e006 | | Load 0x0,0x6 0192 0007 | | Action Break_Optional 0193 e002 | | Load 0x0,0x2 0194 0337 | 7 | Declare_Variable Array 0195 e002 | | Load 0x0,0x2 0196 0337 | 7 | Declare_Variable Array 0197 BODY_0180: 0197 00d9 | | Load_Top At_Offset_1 0198 e405 | | Load 0x2,0x5 0199 e404 | | Load 0x2,0x4 019a e403 | | Load 0x2,0x3 019b e402 | | Load 0x2,0x2 019c e5fd | | Load 0x2,-0x3 019d 820d | | Call 0x1,0xd 019e c402 | | Store 0x2,0x2 019f c403 | | Store 0x2,0x3 01a0 c404 | | Store 0x2,0x4 01a1 c405 | | Store 0x2,0x5 01a2 00d1 | | Pop_Control Pop_Count_1 01a3 00d8 | | Load_Top At_Offset_0 01a4 00db | | Load_Top At_Offset_3 01a5 e408 | | Load 0x2,0x8 01a6 e407 | | Load 0x2,0x7 01a7 e406 | | Load 0x2,0x6 01a8 e5fc | | Load 0x2,-0x4 01a9 820d | | Call 0x1,0xd 01aa c406 | | Store 0x2,0x6 01ab c407 | | Store 0x2,0x7 01ac c408 | | Store 0x2,0x8 01ad c409 | | Store 0x2,0x9 01ae 00d1 | | Pop_Control Pop_Count_1 01af 481b |H | Short_Literal 0x1b 01b0 00d9 | | Load_Top At_Offset_1 01b1 01d7 | | Execute Vector,Field_Read 01b2 681f |h | Jump_Zero 0x1d2 01b3 e5fe | | Load 0x2,-0x2 01b4 e5ff | | Load 0x2,-0x1 01b5 8009 | | Call 0x0,0x9 01b6 00d8 | | Load_Top At_Offset_0 01b7 e007 | | Load 0x0,0x7 01b8 0260 | ` | Execute Discrete,In_Type 01b9 7001 |p | Jump_Nonzero 0x1bb 01ba 0801 | | Execute_Immediate Raise,0x1 01bb e406 | | Load 0x2,0x6 01bc 0273 | s | Execute Discrete,Plus 01bd e408 | | Load 0x2,0x8 01be e5fa | | Load 0x2,-0x6 01bf 0271 | q | Execute Discrete,Times 01c0 00d8 | | Load_Top At_Offset_0 01c1 e007 | | Load 0x0,0x7 01c2 0260 | ` | Execute Discrete,In_Type 01c3 7001 |p | Jump_Nonzero 0x1c5 01c4 0801 | | Execute_Immediate Raise,0x1 01c5 0272 | r | Execute Discrete,Minus 01c6 e5fb | | Load 0x2,-0x5 01c7 0901 | | Execute_Immediate Binary_Scale,0x1 01c8 00d8 | | Load_Top At_Offset_0 01c9 e007 | | Load 0x0,0x7 01ca 0260 | ` | Execute Discrete,In_Type 01cb 7001 |p | Jump_Nonzero 0x1cd 01cc 0801 | | Execute_Immediate Raise,0x1 01cd 0272 | r | Execute Discrete,Minus 01ce e5f8 | | Load 0x2,-0x8 01cf 0272 | r | Execute Discrete,Minus 01d0 c5f6 | | Store 0x2,-0xa 01d1 7802 |x | Jump 0x1d4 01d2 e406 | | Load 0x2,0x6 01d3 a5f6 | | Store_Unchecked 0x2,-0xa 01d4 481a |H | Short_Literal 0x1a 01d5 00d9 | | Load_Top At_Offset_1 01d6 01d7 | | Execute Vector,Field_Read 01d7 681f |h | Jump_Zero 0x1f7 01d8 e5fe | | Load 0x2,-0x2 01d9 e5ff | | Load 0x2,-0x1 01da 800a | | Call 0x0,0xa 01db 00d8 | | Load_Top At_Offset_0 01dc e007 | | Load 0x0,0x7 01dd 0260 | ` | Execute Discrete,In_Type 01de 7001 |p | Jump_Nonzero 0x1e0 01df 0801 | | Execute_Immediate Raise,0x1 01e0 e407 | | Load 0x2,0x7 01e1 0273 | s | Execute Discrete,Plus 01e2 00db | | Load_Top At_Offset_3 01e3 e5f9 | | Load 0x2,-0x7 01e4 0271 | q | Execute Discrete,Times 01e5 00d8 | | Load_Top At_Offset_0 01e6 e007 | | Load 0x0,0x7 01e7 0260 | ` | Execute Discrete,In_Type 01e8 7001 |p | Jump_Nonzero 0x1ea 01e9 0801 | | Execute_Immediate Raise,0x1 01ea 0272 | r | Execute Discrete,Minus 01eb e5fb | | Load 0x2,-0x5 01ec 0901 | | Execute_Immediate Binary_Scale,0x1 01ed 00d8 | | Load_Top At_Offset_0 01ee e007 | | Load 0x0,0x7 01ef 0260 | ` | Execute Discrete,In_Type 01f0 7001 |p | Jump_Nonzero 0x1f2 01f1 0801 | | Execute_Immediate Raise,0x1 01f2 0272 | r | Execute Discrete,Minus 01f3 e5f7 | | Load 0x2,-0x9 01f4 0272 | r | Execute Discrete,Minus 01f5 c5f5 | | Store 0x2,-0xb 01f6 7802 |x | Jump 0x1f9 01f7 e407 | | Load 0x2,0x7 01f8 a5f5 | | Store_Unchecked 0x2,-0xb 01f9 00db | | Load_Top At_Offset_3 01fa a5f4 | | Store_Unchecked 0x2,-0xc 01fb 00da | | Load_Top At_Offset_2 01fc a5f3 | | Store_Unchecked 0x2,-0xd 01fd 481d |H | Short_Literal 0x1d 01fe 00da | | Load_Top At_Offset_2 01ff 01d7 | | Execute Vector,Field_Read 0200 6802 |h | Jump_Zero 0x203 0201 e404 | | Load 0x2,0x4 0202 a5f4 | | Store_Unchecked 0x2,-0xc 0203 481c |H | Short_Literal 0x1c 0204 00da | | Load_Top At_Offset_2 0205 01d7 | | Execute Vector,Field_Read 0206 6802 |h | Jump_Zero 0x209 0207 e405 | | Load 0x2,0x5 0208 a5f3 | | Store_Unchecked 0x2,-0xd 0209 481f |H | Short_Literal 0x1f 020a 00da | | Load_Top At_Offset_2 020b 01d7 | | Execute Vector,Field_Read 020c 6825 |h% | Jump_Zero 0x232 020d 481b |H | Short_Literal 0x1b 020e 00da | | Load_Top At_Offset_2 020f 01d7 | | Execute Vector,Field_Read 0210 681f |h | Jump_Zero 0x230 0211 e5fe | | Load 0x2,-0x2 0212 e5ff | | Load 0x2,-0x1 0213 8009 | | Call 0x0,0x9 0214 00d8 | | Load_Top At_Offset_0 0215 e007 | | Load 0x0,0x7 0216 0260 | ` | Execute Discrete,In_Type 0217 7001 |p | Jump_Nonzero 0x219 0218 0801 | | Execute_Immediate Raise,0x1 0219 e402 | | Load 0x2,0x2 021a 0273 | s | Execute Discrete,Plus 021b e408 | | Load 0x2,0x8 021c e5fa | | Load 0x2,-0x6 021d 0271 | q | Execute Discrete,Times 021e 00d8 | | Load_Top At_Offset_0 021f e007 | | Load 0x0,0x7 0220 0260 | ` | Execute Discrete,In_Type 0221 7001 |p | Jump_Nonzero 0x223 0222 0801 | | Execute_Immediate Raise,0x1 0223 0272 | r | Execute Discrete,Minus 0224 e5fb | | Load 0x2,-0x5 0225 0901 | | Execute_Immediate Binary_Scale,0x1 0226 00d8 | | Load_Top At_Offset_0 0227 e007 | | Load 0x0,0x7 0228 0260 | ` | Execute Discrete,In_Type 0229 7001 |p | Jump_Nonzero 0x22b 022a 0801 | | Execute_Immediate Raise,0x1 022b 0272 | r | Execute Discrete,Minus 022c e5f8 | | Load 0x2,-0x8 022d 0272 | r | Execute Discrete,Minus 022e c5f6 | | Store 0x2,-0xa 022f 7802 |x | Jump 0x232 0230 e402 | | Load 0x2,0x2 0231 a5f6 | | Store_Unchecked 0x2,-0xa 0232 481e |H | Short_Literal 0x1e 0233 00da | | Load_Top At_Offset_2 0234 01d7 | | Execute Vector,Field_Read 0235 6825 |h% | Jump_Zero 0x25b 0236 481a |H | Short_Literal 0x1a 0237 00da | | Load_Top At_Offset_2 0238 01d7 | | Execute Vector,Field_Read 0239 681f |h | Jump_Zero 0x259 023a e5fe | | Load 0x2,-0x2 023b e5ff | | Load 0x2,-0x1 023c 800a | | Call 0x0,0xa 023d 00d8 | | Load_Top At_Offset_0 023e e007 | | Load 0x0,0x7 023f 0260 | ` | Execute Discrete,In_Type 0240 7001 |p | Jump_Nonzero 0x242 0241 0801 | | Execute_Immediate Raise,0x1 0242 e403 | | Load 0x2,0x3 0243 0273 | s | Execute Discrete,Plus 0244 00db | | Load_Top At_Offset_3 0245 e5f9 | | Load 0x2,-0x7 0246 0271 | q | Execute Discrete,Times 0247 00d8 | | Load_Top At_Offset_0 0248 e007 | | Load 0x0,0x7 0249 0260 | ` | Execute Discrete,In_Type 024a 7001 |p | Jump_Nonzero 0x24c 024b 0801 | | Execute_Immediate Raise,0x1 024c 0272 | r | Execute Discrete,Minus 024d e5fb | | Load 0x2,-0x5 024e 0901 | | Execute_Immediate Binary_Scale,0x1 024f 00d8 | | Load_Top At_Offset_0 0250 e007 | | Load 0x0,0x7 0251 0260 | ` | Execute Discrete,In_Type 0252 7001 |p | Jump_Nonzero 0x254 0253 0801 | | Execute_Immediate Raise,0x1 0254 0272 | r | Execute Discrete,Minus 0255 e5f7 | | Load 0x2,-0x9 0256 0272 | r | Execute Discrete,Minus 0257 c5f5 | | Store 0x2,-0xb 0258 7802 |x | Jump 0x25b 0259 e403 | | Load 0x2,0x3 025a a5f5 | | Store_Unchecked 0x2,-0xb 025b 00d9 | | Load_Top At_Offset_1 025c e5f2 | | Load 0x2,-0xe 025d 01d4 | | Execute Vector,Structure_Write 025e 450a |E | Exit_Suprogram New_Top_Offset 0xa 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0281 | | .CONST 0x0281 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0016 | | .CONST 0x0016 ; Number of locals 0263 INIT_0260: 0263 e007 | | Load 0x0,0x7 0264 03e9 | | Declare_Variable Discrete,Duplicate 0265 e006 | | Load 0x0,0x6 0266 03e9 | | Declare_Variable Discrete,Duplicate 0267 e002 | | Load 0x0,0x2 0268 0337 | 7 | Declare_Variable Array 0269 e007 | | Load 0x0,0x7 026a 03e9 | | Declare_Variable Discrete,Duplicate 026b e006 | | Load 0x0,0x6 026c 03e9 | | Declare_Variable Discrete,Duplicate 026d e002 | | Load 0x0,0x2 026e 0337 | 7 | Declare_Variable Array 026f e006 | | Load 0x0,0x6 0270 0007 | | Action Break_Optional 0271 e006 | | Load 0x0,0x6 0272 0007 | | Action Break_Optional 0273 e006 | | Load 0x0,0x6 0274 0007 | | Action Break_Optional 0275 e006 | | Load 0x0,0x6 0276 0007 | | Action Break_Optional 0277 e006 | | Load 0x0,0x6 0278 0007 | | Action Break_Optional 0279 e006 | | Load 0x0,0x6 027a 0007 | | Action Break_Optional 027b e007 | | Load 0x0,0x7 027c 03e9 | | Declare_Variable Discrete,Duplicate 027d e006 | | Load 0x0,0x6 027e 03e9 | | Declare_Variable Discrete,Duplicate 027f e002 | | Load 0x0,0x2 0280 0337 | 7 | Declare_Variable Array 0281 BODY_0260: 0281 4817 |H | Short_Literal 0x17 0282 e5fa | | Load 0x2,-0x6 0283 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0284 01d7 | | Execute Vector,Field_Read 0285 6811 |h | Jump_Zero 0x297 0286 e5fa | | Load 0x2,-0x6 0287 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0288 00d8 | | Load_Top At_Offset_0 0289 e006 | | Load 0x0,0x6 028a 0260 | ` | Execute Discrete,In_Type 028b 7001 |p | Jump_Nonzero 0x28d 028c 0801 | | Execute_Immediate Raise,0x1 028d a40c | | Store_Unchecked 0x2,0xc 028e e5fa | | Load 0x2,-0x6 028f 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0290 00d8 | | Load_Top At_Offset_0 0291 e006 | | Load 0x0,0x6 0292 0260 | ` | Execute Discrete,In_Type 0293 7001 |p | Jump_Nonzero 0x295 0294 0801 | | Execute_Immediate Raise,0x1 0295 a40d | | Store_Unchecked 0x2,0xd 0296 781a |x | Jump 0x2b1 0297 481b |H | Short_Literal 0x1b 0298 e5fa | | Load 0x2,-0x6 0299 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 029a 01d7 | | Execute Vector,Field_Read 029b 6811 |h | Jump_Zero 0x2ad 029c e5fa | | Load 0x2,-0x6 029d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 029e 00d8 | | Load_Top At_Offset_0 029f e006 | | Load 0x0,0x6 02a0 0260 | ` | Execute Discrete,In_Type 02a1 7001 |p | Jump_Nonzero 0x2a3 02a2 0801 | | Execute_Immediate Raise,0x1 02a3 a40c | | Store_Unchecked 0x2,0xc 02a4 e5fa | | Load 0x2,-0x6 02a5 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02a6 00d8 | | Load_Top At_Offset_0 02a7 e006 | | Load 0x0,0x6 02a8 0260 | ` | Execute Discrete,In_Type 02a9 7001 |p | Jump_Nonzero 0x2ab 02aa 0801 | | Execute_Immediate Raise,0x1 02ab a40d | | Store_Unchecked 0x2,0xd 02ac 7804 |x | Jump 0x2b1 02ad 4800 |H | Short_Literal 0x0 02ae a40c | | Store_Unchecked 0x2,0xc 02af 4800 |H | Short_Literal 0x0 02b0 a40d | | Store_Unchecked 0x2,0xd 02b1 481b |H | Short_Literal 0x1b 02b2 e5fa | | Load 0x2,-0x6 02b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02b4 01d7 | | Execute Vector,Field_Read 02b5 6811 |h | Jump_Zero 0x2c7 02b6 e5fa | | Load 0x2,-0x6 02b7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 02b8 00d8 | | Load_Top At_Offset_0 02b9 e006 | | Load 0x0,0x6 02ba 0260 | ` | Execute Discrete,In_Type 02bb 7001 |p | Jump_Nonzero 0x2bd 02bc 0801 | | Execute_Immediate Raise,0x1 02bd a40e | | Store_Unchecked 0x2,0xe 02be e5fa | | Load 0x2,-0x6 02bf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 02c0 00d8 | | Load_Top At_Offset_0 02c1 e006 | | Load 0x0,0x6 02c2 0260 | ` | Execute Discrete,In_Type 02c3 7001 |p | Jump_Nonzero 0x2c5 02c4 0801 | | Execute_Immediate Raise,0x1 02c5 a40f | | Store_Unchecked 0x2,0xf 02c6 7804 |x | Jump 0x2cb 02c7 e40c | | Load 0x2,0xc 02c8 a40e | | Store_Unchecked 0x2,0xe 02c9 e40d | | Load 0x2,0xd 02ca a40f | | Store_Unchecked 0x2,0xf 02cb 4819 |H | Short_Literal 0x19 02cc e5fa | | Load 0x2,-0x6 02cd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02ce 01d7 | | Execute Vector,Field_Read 02cf 6811 |h | Jump_Zero 0x2e1 02d0 e5fa | | Load 0x2,-0x6 02d1 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02d2 00d8 | | Load_Top At_Offset_0 02d3 e006 | | Load 0x0,0x6 02d4 0260 | ` | Execute Discrete,In_Type 02d5 7001 |p | Jump_Nonzero 0x2d7 02d6 0801 | | Execute_Immediate Raise,0x1 02d7 a410 | | Store_Unchecked 0x2,0x10 02d8 e5fa | | Load 0x2,-0x6 02d9 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 02da 00d8 | | Load_Top At_Offset_0 02db e006 | | Load 0x0,0x6 02dc 0260 | ` | Execute Discrete,In_Type 02dd 7001 |p | Jump_Nonzero 0x2df 02de 0801 | | Execute_Immediate Raise,0x1 02df a411 | | Store_Unchecked 0x2,0x11 02e0 7804 |x | Jump 0x2e5 02e1 4801 |H | Short_Literal 0x1 02e2 a410 | | Store_Unchecked 0x2,0x10 02e3 4801 |H | Short_Literal 0x1 02e4 a411 | | Store_Unchecked 0x2,0x11 02e5 e406 | | Load 0x2,0x6 02e6 e405 | | Load 0x2,0x5 02e7 e404 | | Load 0x2,0x4 02e8 e403 | | Load 0x2,0x3 02e9 e402 | | Load 0x2,0x2 02ea e5fd | | Load 0x2,-0x3 02eb 820d | | Call 0x1,0xd 02ec c402 | | Store 0x2,0x2 02ed c403 | | Store 0x2,0x3 02ee c404 | | Store 0x2,0x4 02ef c405 | | Store 0x2,0x5 02f0 00d1 | | Pop_Control Pop_Count_1 02f1 e406 | | Load 0x2,0x6 02f2 00d9 | | Load_Top At_Offset_1 02f3 01d4 | | Execute Vector,Structure_Write 02f4 e40b | | Load 0x2,0xb 02f5 e40a | | Load 0x2,0xa 02f6 e409 | | Load 0x2,0x9 02f7 e408 | | Load 0x2,0x8 02f8 e407 | | Load 0x2,0x7 02f9 e5fc | | Load 0x2,-0x4 02fa 820d | | Call 0x1,0xd 02fb c407 | | Store 0x2,0x7 02fc c408 | | Store 0x2,0x8 02fd c409 | | Store 0x2,0x9 02fe c40a | | Store 0x2,0xa 02ff 00d1 | | Pop_Control Pop_Count_1 0300 481d |H | Short_Literal 0x1d 0301 e406 | | Load 0x2,0x6 0302 01d7 | | Execute Vector,Field_Read 0303 6803 |h | Jump_Zero 0x307 0304 e404 | | Load 0x2,0x4 0305 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0306 7809 |x | Jump 0x310 0307 481d |H | Short_Literal 0x1d 0308 e40b | | Load 0x2,0xb 0309 01d7 | | Execute Vector,Field_Read 030a 6803 |h | Jump_Zero 0x30e 030b e409 | | Load 0x2,0x9 030c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 030d 7802 |x | Jump 0x310 030e 4801 |H | Short_Literal 0x1 030f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0310 00da | | Load_Top At_Offset_2 0311 e410 | | Load 0x2,0x10 0312 0271 | q | Execute Discrete,Times 0313 e40c | | Load 0x2,0xc 0314 0273 | s | Execute Discrete,Plus 0315 005b | [ | Store_Top Discrete,At_Offset_3 0316 481c |H | Short_Literal 0x1c 0317 e406 | | Load 0x2,0x6 0318 01d7 | | Execute Vector,Field_Read 0319 6803 |h | Jump_Zero 0x31d 031a e405 | | Load 0x2,0x5 031b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 031c 7809 |x | Jump 0x326 031d 481c |H | Short_Literal 0x1c 031e e40b | | Load 0x2,0xb 031f 01d7 | | Execute Vector,Field_Read 0320 6803 |h | Jump_Zero 0x324 0321 e40a | | Load 0x2,0xa 0322 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0323 7802 |x | Jump 0x326 0324 4801 |H | Short_Literal 0x1 0325 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0326 00d9 | | Load_Top At_Offset_1 0327 e411 | | Load 0x2,0x11 0328 0271 | q | Execute Discrete,Times 0329 e40d | | Load 0x2,0xd 032a 0273 | s | Execute Discrete,Plus 032b 005a | Z | Store_Top Discrete,At_Offset_2 032c 00da | | Load_Top At_Offset_2 032d e40e | | Load 0x2,0xe 032e 027c | | | Execute Discrete,Less 032f 6802 |h | Jump_Zero 0x332 0330 e40e | | Load 0x2,0xe 0331 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0332 00d9 | | Load_Top At_Offset_1 0333 e40f | | Load 0x2,0xf 0334 027c | | | Execute Discrete,Less 0335 6802 |h | Jump_Zero 0x338 0336 e40f | | Load 0x2,0xf 0337 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0338 481a |H | Short_Literal 0x1a 0339 e5fa | | Load 0x2,-0x6 033a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 033b 01d7 | | Execute Vector,Field_Read 033c 6824 |h$ | Jump_Zero 0x361 033d 00da | | Load_Top At_Offset_2 033e e5fa | | Load 0x2,-0x6 033f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0340 00d8 | | Load_Top At_Offset_0 0341 e006 | | Load 0x0,0x6 0342 0260 | ` | Execute Discrete,In_Type 0343 7001 |p | Jump_Nonzero 0x345 0344 0801 | | Execute_Immediate Raise,0x1 0345 027d | } | Execute Discrete,Greater 0346 6808 |h | Jump_Zero 0x34f 0347 e5fa | | Load 0x2,-0x6 0348 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0349 00d8 | | Load_Top At_Offset_0 034a e006 | | Load 0x0,0x6 034b 0260 | ` | Execute Discrete,In_Type 034c 7001 |p | Jump_Nonzero 0x34e 034d 0801 | | Execute_Immediate Raise,0x1 034e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 034f 00d9 | | Load_Top At_Offset_1 0350 e5fa | | Load 0x2,-0x6 0351 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0352 00d8 | | Load_Top At_Offset_0 0353 e006 | | Load 0x0,0x6 0354 0260 | ` | Execute Discrete,In_Type 0355 7001 |p | Jump_Nonzero 0x357 0356 0801 | | Execute_Immediate Raise,0x1 0357 027d | } | Execute Discrete,Greater 0358 6808 |h | Jump_Zero 0x361 0359 e5fa | | Load 0x2,-0x6 035a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 035b 00d8 | | Load_Top At_Offset_0 035c e006 | | Load 0x0,0x6 035d 0260 | ` | Execute Discrete,In_Type 035e 7001 |p | Jump_Nonzero 0x360 035f 0801 | | Execute_Immediate Raise,0x1 0360 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0361 481f |H | Short_Literal 0x1f 0362 e406 | | Load 0x2,0x6 0363 01d7 | | Execute Vector,Field_Read 0364 6818 |h | Jump_Zero 0x37d 0365 481b |H | Short_Literal 0x1b 0366 e406 | | Load 0x2,0x6 0367 01d7 | | Execute Vector,Field_Read 0368 6811 |h | Jump_Zero 0x37a 0369 e5fe | | Load 0x2,-0x2 036a e5ff | | Load 0x2,-0x1 036b 8009 | | Call 0x0,0x9 036c e402 | | Load 0x2,0x2 036d 0273 | s | Execute Discrete,Plus 036e 00db | | Load_Top At_Offset_3 036f 0272 | r | Execute Discrete,Minus 0370 e5fb | | Load 0x2,-0x5 0371 0901 | | Execute_Immediate Binary_Scale,0x1 0372 0272 | r | Execute Discrete,Minus 0373 00d8 | | Load_Top At_Offset_0 0374 e007 | | Load 0x0,0x7 0375 0260 | ` | Execute Discrete,In_Type 0376 7001 |p | Jump_Nonzero 0x378 0377 0801 | | Execute_Immediate Raise,0x1 0378 a412 | | Store_Unchecked 0x2,0x12 0379 7825 |x% | Jump 0x39f 037a e402 | | Load 0x2,0x2 037b a412 | | Store_Unchecked 0x2,0x12 037c 7822 |x" | Jump 0x39f 037d 481f |H | Short_Literal 0x1f 037e e40b | | Load 0x2,0xb 037f 01d7 | | Execute Vector,Field_Read 0380 681c |h | Jump_Zero 0x39d 0381 481b |H | Short_Literal 0x1b 0382 e40b | | Load 0x2,0xb 0383 01d7 | | Execute Vector,Field_Read 0384 6815 |h | Jump_Zero 0x39a 0385 e5fe | | Load 0x2,-0x2 0386 e5ff | | Load 0x2,-0x1 0387 8009 | | Call 0x0,0x9 0388 e407 | | Load 0x2,0x7 0389 0273 | s | Execute Discrete,Plus 038a 00db | | Load_Top At_Offset_3 038b 0272 | r | Execute Discrete,Minus 038c e5fb | | Load 0x2,-0x5 038d 0901 | | Execute_Immediate Binary_Scale,0x1 038e 0272 | r | Execute Discrete,Minus 038f 00d8 | | Load_Top At_Offset_0 0390 e007 | | Load 0x0,0x7 0391 0260 | ` | Execute Discrete,In_Type 0392 7001 |p | Jump_Nonzero 0x394 0393 0801 | | Execute_Immediate Raise,0x1 0394 a412 | | Store_Unchecked 0x2,0x12 0395 4801 |H | Short_Literal 0x1 0396 481b |H | Short_Literal 0x1b 0397 00da | | Load_Top At_Offset_2 0398 01d6 | | Execute Vector,Field_Write 0399 7805 |x | Jump 0x39f 039a e407 | | Load 0x2,0x7 039b a412 | | Store_Unchecked 0x2,0x12 039c 7802 |x | Jump 0x39f 039d 4800 |H | Short_Literal 0x0 039e a412 | | Store_Unchecked 0x2,0x12 039f 481e |H | Short_Literal 0x1e 03a0 e406 | | Load 0x2,0x6 03a1 01d7 | | Execute Vector,Field_Read 03a2 6818 |h | Jump_Zero 0x3bb 03a3 481a |H | Short_Literal 0x1a 03a4 e406 | | Load 0x2,0x6 03a5 01d7 | | Execute Vector,Field_Read 03a6 6811 |h | Jump_Zero 0x3b8 03a7 e5fe | | Load 0x2,-0x2 03a8 e5ff | | Load 0x2,-0x1 03a9 800a | | Call 0x0,0xa 03aa e403 | | Load 0x2,0x3 03ab 0273 | s | Execute Discrete,Plus 03ac 00da | | Load_Top At_Offset_2 03ad 0272 | r | Execute Discrete,Minus 03ae e5fb | | Load 0x2,-0x5 03af 0901 | | Execute_Immediate Binary_Scale,0x1 03b0 0272 | r | Execute Discrete,Minus 03b1 00d8 | | Load_Top At_Offset_0 03b2 e007 | | Load 0x0,0x7 03b3 0260 | ` | Execute Discrete,In_Type 03b4 7001 |p | Jump_Nonzero 0x3b6 03b5 0801 | | Execute_Immediate Raise,0x1 03b6 a413 | | Store_Unchecked 0x2,0x13 03b7 7825 |x% | Jump 0x3dd 03b8 e403 | | Load 0x2,0x3 03b9 a413 | | Store_Unchecked 0x2,0x13 03ba 7822 |x" | Jump 0x3dd 03bb 481e |H | Short_Literal 0x1e 03bc e40b | | Load 0x2,0xb 03bd 01d7 | | Execute Vector,Field_Read 03be 681c |h | Jump_Zero 0x3db 03bf 481a |H | Short_Literal 0x1a 03c0 e40b | | Load 0x2,0xb 03c1 01d7 | | Execute Vector,Field_Read 03c2 6815 |h | Jump_Zero 0x3d8 03c3 e5fe | | Load 0x2,-0x2 03c4 e5ff | | Load 0x2,-0x1 03c5 800a | | Call 0x0,0xa 03c6 e408 | | Load 0x2,0x8 03c7 0273 | s | Execute Discrete,Plus 03c8 00da | | Load_Top At_Offset_2 03c9 0272 | r | Execute Discrete,Minus 03ca e5fb | | Load 0x2,-0x5 03cb 0901 | | Execute_Immediate Binary_Scale,0x1 03cc 0272 | r | Execute Discrete,Minus 03cd 00d8 | | Load_Top At_Offset_0 03ce e007 | | Load 0x0,0x7 03cf 0260 | ` | Execute Discrete,In_Type 03d0 7001 |p | Jump_Nonzero 0x3d2 03d1 0801 | | Execute_Immediate Raise,0x1 03d2 a413 | | Store_Unchecked 0x2,0x13 03d3 4801 |H | Short_Literal 0x1 03d4 481a |H | Short_Literal 0x1a 03d5 00da | | Load_Top At_Offset_2 03d6 01d6 | | Execute Vector,Field_Write 03d7 7805 |x | Jump 0x3dd 03d8 e408 | | Load 0x2,0x8 03d9 a413 | | Store_Unchecked 0x2,0x13 03da 7802 |x | Jump 0x3dd 03db 4800 |H | Short_Literal 0x0 03dc a413 | | Store_Unchecked 0x2,0x13 03dd e412 | | Load 0x2,0x12 03de a5f9 | | Store_Unchecked 0x2,-0x7 03df 00db | | Load_Top At_Offset_3 03e0 a5f8 | | Store_Unchecked 0x2,-0x8 03e1 00da | | Load_Top At_Offset_2 03e2 a5f7 | | Store_Unchecked 0x2,-0x9 03e3 00d9 | | Load_Top At_Offset_1 03e4 a5f6 | | Store_Unchecked 0x2,-0xa 03e5 00d8 | | Load_Top At_Offset_0 03e6 8211 | | Call 0x1,0x11 03e7 a5f5 | | Store_Unchecked 0x2,-0xb 03e8 00d8 | | Load_Top At_Offset_0 03e9 e5f4 | | Load 0x2,-0xc 03ea 01d4 | | Execute Vector,Structure_Write 03eb 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03ec 0000 0000 | | .BLANK 0000[0x4] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f9 | | .CONST 0x03f9 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0004 | | .CONST 0x0004 ; Number of locals 03f3 INIT_03f0: 03f3 e005 | | Load 0x0,0x5 03f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03f5 e004 | | Load 0x0,0x4 03f6 0007 | | Action Break_Optional 03f7 00e1 | | Load_Encached Boolean_Cache 03f8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03f9 BODY_03f0: 03f9 e5ff | | Load 0x2,-0x1 03fa 01dd | | Execute Vector,First 03fb 005a | Z | Store_Top Discrete,At_Offset_2 03fc 00d9 | | Load_Top At_Offset_1 03fd e5ff | | Load 0x2,-0x1 03fe 01dc | | Execute Vector,Last 03ff 027a | z | Execute Discrete,Less_Equal 0400 6813 |h | Jump_Zero 0x414 0401 00d9 | | Load_Top At_Offset_1 0402 e5ff | | Load 0x2,-0x1 0403 01d7 | | Execute Vector,Field_Read 0404 0f2b | + | Execute_Immediate Equal,0x2b 0405 6804 |h | Jump_Zero 0x40a 0406 00d9 | | Load_Top At_Offset_1 0407 0a01 | | Execute_Immediate Plus,0x1 0408 005a | Z | Store_Top Discrete,At_Offset_2 0409 780a |x | Jump 0x414 040a 00d9 | | Load_Top At_Offset_1 040b e5ff | | Load 0x2,-0x1 040c 01d7 | | Execute Vector,Field_Read 040d 0f2d | - | Execute_Immediate Equal,0x2d 040e 6805 |h | Jump_Zero 0x414 040f 4801 |H | Short_Literal 0x1 0410 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0411 00d9 | | Load_Top At_Offset_1 0412 0a01 | | Execute_Immediate Plus,0x1 0413 005a | Z | Store_Top Discrete,At_Offset_2 0414 00cf | | Action Mark_Auxiliary 0415 780d |x | Jump 0x423 0416 00db | | Load_Top At_Offset_3 0417 480a |H | Short_Literal 0xa 0418 0271 | q | Execute Discrete,Times 0419 00db | | Load_Top At_Offset_3 041a e5ff | | Load 0x2,-0x1 041b 01d7 | | Execute Vector,Field_Read 041c 0ad0 | | Execute_Immediate Plus,-0x30 041d 0273 | s | Execute Discrete,Plus 041e c402 | | Store 0x2,0x2 041f 00da | | Load_Top At_Offset_2 0420 0a01 | | Execute_Immediate Plus,0x1 0421 005b | [ | Store_Top Discrete,At_Offset_3 0422 00c9 | | Action Pop_Auxiliary_Loop 0423 00da | | Load_Top At_Offset_2 0424 e5ff | | Load 0x2,-0x1 0425 01dc | | Execute Vector,Last 0426 027a | z | Execute Discrete,Less_Equal 0427 6807 |h | Jump_Zero 0x42f 0428 00da | | Load_Top At_Offset_2 0429 e5ff | | Load 0x2,-0x1 042a 01d7 | | Execute Vector,Field_Read 042b 4830 |H0 | Short_Literal 0x30 042c 4839 |H9 | Short_Literal 0x39 042d 0262 | b | Execute Discrete,In_Range 042e 77e7 |w | Jump_Nonzero 0x416 042f 00ce | | Action Pop_Auxiliary 0430 00d8 | | Load_Top At_Offset_0 0431 6804 |h | Jump_Zero 0x436 0432 00da | | Load_Top At_Offset_2 0433 0275 | u | Execute Discrete,Unary_Minus 0434 c5fd | | Store 0x2,-0x3 0435 7802 |x | Jump 0x438 0436 00da | | Load_Top At_Offset_2 0437 a5fd | | Store_Unchecked 0x2,-0x3 0438 00d9 | | Load_Top At_Offset_1 0439 a5fe | | Store_Unchecked 0x2,-0x2 043a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 043b 0000 0000 | | .BLANK 0000[0x5] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 481b |H | Short_Literal 0x1b 0444 00db | | Load_Top At_Offset_3 0445 01d7 | | Execute Vector,Field_Read 0446 6808 |h | Jump_Zero 0x44f 0447 481a |H | Short_Literal 0x1a 0448 00db | | Load_Top At_Offset_3 0449 01d7 | | Execute Vector,Field_Read 044a 6802 |h | Jump_Zero 0x44d 044b 4809 |H | Short_Literal 0x9 044c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 044d 4803 |H | Short_Literal 0x3 044e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 044f 481a |H | Short_Literal 0x1a 0450 00db | | Load_Top At_Offset_3 0451 01d7 | | Execute Vector,Field_Read 0452 6802 |h | Jump_Zero 0x455 0453 4807 |H | Short_Literal 0x7 0454 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0455 4801 |H | Short_Literal 0x1 0456 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0457 0000 | | .XXX[0x1] 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug Table 0458 ; -------------------------------------------------------------------------------------- 0458 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6838,0x0000,0x0001,0x0007 045e 000b 047a | z| .DBG4T 0x000b,0x047a,0x8000,0x0000 0462 0012 047f | | .DBG4T 0x0012,0x047f,0x8000,0x0000 0466 0023 0486 | # | .DBG4T 0x0023,0x0486,0x0001,0x0000 046a 0183 04d2 | | .DBG4T 0x0183,0x04d2,0x0001,0x0000 046e 0263 04f5 | c | .DBG4T 0x0263,0x04f5,0x0001,0x0000 0472 03f3 054a | J| .DBG4T 0x03f3,0x054a,0x0001,0x4000 0476 0443 056b | C k| .DBG4T 0x0443,0x056b,0x0002,0x0000 047a ; -------------------------------------------------------------------------------------- 047a ; Debug chain 047a ; -------------------------------------------------------------------------------------- 047a 0003 0000 | | .DBGLEN 0x0003,0x0000 047c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f 047f ; -------------------------------------------------------------------------------------- 047f ; Debug chain 047f ; -------------------------------------------------------------------------------------- 047f 0005 0000 | | .DBGLEN 0x0005,0x0000 0481 0012 0014 | | .DBGLNO 0x0012,0x0014,0x0016,0x0018,0x001a 0486 ; -------------------------------------------------------------------------------------- 0486 ; Debug chain 0486 ; -------------------------------------------------------------------------------------- 0486 0007 0043 | C| .DBGLEN 0x0007,0x0043 0488 0023 0028 | # (| .DBGLNO 0x0023,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0036,0x0039,0x0047,0x0048,0x004d,0x0050,0x0052,0x0066,0x0070,0x0077,0x007b,0x0080,0x0081,0x0083,0x008d,0x0090,0x009a,0x00a1,0x00a5,0x00aa,0x00ab,0x00ad,0x00b7,0x00bc,0x00bf,0x00c9,0x00d1,0x00d5,0x00d9,0x00de,0x00df,0x00e2,0x00e5,0x00ef,0x00f6,0x00fa,0x00ff,0x0100,0x0102,0x010c,0x0111,0x0114,0x011e,0x0126,0x012a,0x012e,0x0133,0x0134,0x0137,0x013a,0x0144,0x014b,0x014f,0x0154,0x0155,0x0157,0x0159,0x015d,0x015f,0x0163,0x0165,0x0169,0x016b,0x016f,0x0171,0x0174,0x0177 04d2 ; -------------------------------------------------------------------------------------- 04d2 ; Debug chain 04d2 ; -------------------------------------------------------------------------------------- 04d2 000a 0017 | | .DBGLEN 0x000a,0x0017 04d4 0183 0185 | | .DBGLNO 0x0183,0x0185,0x0187,0x0189,0x018b,0x018d,0x018f,0x0191,0x0193,0x0195,0x0197,0x01a3,0x01af,0x01b3,0x01d2,0x01d4,0x01d8,0x01f7,0x01f9,0x01fb,0x01fd,0x0201,0x0203,0x0207,0x0209,0x020d,0x0211,0x0230,0x0232,0x0236,0x023a,0x0259,0x025b 04f5 ; -------------------------------------------------------------------------------------- 04f5 ; Debug chain 04f5 ; -------------------------------------------------------------------------------------- 04f5 000f 0044 | D| .DBGLEN 0x000f,0x0044 04f7 0263 0265 | c e| .DBGLNO 0x0263,0x0265,0x0267,0x0269,0x026b,0x026d,0x026f,0x0271,0x0273,0x0275,0x0277,0x0279,0x027b,0x027d,0x027f,0x0281,0x0286,0x028e,0x0297,0x029c,0x02a4,0x02ad,0x02af,0x02b1,0x02b6,0x02be,0x02c7,0x02c9,0x02cb,0x02d0,0x02d8,0x02e1,0x02e3,0x02e5,0x02f1,0x02f4,0x0300,0x0304,0x0307,0x030b,0x030e,0x0310,0x0316,0x031a,0x031d,0x0321,0x0324,0x0326,0x032c,0x0330,0x0332,0x0336,0x0338,0x033d,0x0347,0x034f,0x0359,0x0361,0x0365,0x0369,0x037a,0x037d,0x0381,0x0385,0x0395,0x039a,0x039d,0x039f,0x03a3,0x03a7,0x03b8,0x03bb,0x03bf,0x03c3,0x03d3,0x03d8,0x03db,0x03dd,0x03df,0x03e1,0x03e3,0x03e5,0x03e8 054a ; -------------------------------------------------------------------------------------- 054a ; Debug chain 054a ; -------------------------------------------------------------------------------------- 054a 0003 000e | | .DBGLEN 0x0003,0x000e 054c 03f3 03f5 | | .DBGLNO 0x03f3,0x03f5,0x03f7,0x03f9,0x03fc,0x0401,0x0406,0x040a,0x040f,0x0411,0x0416,0x041f,0x0423,0x0430,0x0432,0x0436,0x0438 055d 0001 0002 | | .XXX[0xe] 055f 0003 0004 | | 0561 0005 0006 | | 0563 0007 0009 | | 0565 000a 0008 | | 0567 000b 000c | | 0569 000d 000e | | 056b ; -------------------------------------------------------------------------------------- 056b ; Debug chain 056b ; -------------------------------------------------------------------------------------- 056b 0000 0007 | | .DBGLEN 0x0000,0x0007 056d 0443 0447 | C G| .DBGLNO 0x0443,0x0447,0x044b,0x044d,0x044f,0x0453,0x0455 0574 0000 0000 | | .BLANK 0000[0x8c]