|
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_ccb0b3
└─⟦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 0478 | x | .CONST 0x0478 ; 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 0142 | B | .CONST 0x0142 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0032 | 2 | .CONST 0x0032 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0010 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0012 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0038 c232 | 2 | Store 0x1,0x32 0039 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 003b c211 | | Store 0x1,0x11 003c 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 003e c212 | | Store 0x1,0x12 003f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0041 c213 | | Store 0x1,0x13 0042 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0044 c214 | | Store 0x1,0x14 0045 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0047 c215 | | Store 0x1,0x15 0048 e002 | | Load 0x0,0x2 0049 1b17 | | Execute Package,Field_Read,Field_Number 0x17 004a 0129 | ) | Execute Any,Make_Visible 004b c216 | | Store 0x1,0x16 004c e216 | | Load 0x1,0x16 004d 0266 | f | Execute Discrete,Bounds 004e 00e1 | | Load_Encached Boolean_Cache 004f 02a0 | | Declare_Subprogram Null_Subprogram 0050 4801 |H | Short_Literal 0x1 0051 035e | ^ | Declare_Type Array,Defined,Visible 0052 c217 | | Store 0x1,0x17 0053 e217 | | Load 0x1,0x17 0054 0337 | 7 | Declare_Variable Array 0055 4800 |H | Short_Literal 0x0 0056 4800 |H | Short_Literal 0x0 0057 00da | | Load_Top At_Offset_2 0058 01d6 | | Execute Vector,Field_Write 0059 4805 |H | Short_Literal 0x5 005a 4801 |H | Short_Literal 0x1 005b 4801 |H | Short_Literal 0x1 005c 00d9 | | Load_Top At_Offset_1 005d e233 | 3 | Load 0x1,0x33 005e 01d6 | | Execute Vector,Field_Write 005f 3ffb |? | Loop_Increasing 0x5b 0060 e217 | | Load 0x1,0x17 0061 01c3 | | Execute Vector,Check_In_Type 0062 0129 | ) | Execute Any,Make_Visible 0063 c218 | | Store 0x1,0x18 0064 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0066 c219 | | Store 0x1,0x19 0067 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0069 c21a | | Store 0x1,0x1a 006a 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 006c c21b | | Store 0x1,0x1b 006d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 006f c21c | | Store 0x1,0x1c 0070 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0072 c21d | | Store 0x1,0x1d 0073 00e3 | | Load_Encached Natural_Cache 0074 0266 | f | Execute Discrete,Bounds 0075 e20d | | Load 0x1,0xd 0076 02a0 | | Declare_Subprogram Null_Subprogram 0077 4801 |H | Short_Literal 0x1 0078 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0079 c21e | | Store 0x1,0x1e 007a 00e3 | | Load_Encached Natural_Cache 007b e003 | | Load 0x0,0x3 007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007d 4801 |H | Short_Literal 0x1 007e 60d1 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x7fffffff} 007f e21e | | Load 0x1,0x1e 0080 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0081 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call 0083 4800 |H | Short_Literal 0x0 0084 4801 |H | Short_Literal 0x1 0085 4801 |H | Short_Literal 0x1 0086 4800 |H | Short_Literal 0x0 0087 4801 |H | Short_Literal 0x1 0088 4801 |H | Short_Literal 0x1 0089 031e | | Declare_Type Variant_Record,Defined,Visible 008a c21f | | Store 0x1,0x1f 008b e217 | | Load 0x1,0x17 008c e004 | | Load 0x0,0x4 008d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008e 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call 0090 4802 |H | Short_Literal 0x2 0091 032e | . | Declare_Type Record,Defined,Visible 0092 c220 | | Store 0x1,0x20 0093 00e3 | | Load_Encached Natural_Cache 0094 0266 | f | Execute Discrete,Bounds 0095 e220 | | Load 0x1,0x20 0096 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 0098 4801 |H | Short_Literal 0x1 0099 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 009a c221 | ! | Store 0x1,0x21 009b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 009d c222 | " | Store 0x1,0x22 009e 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 00a0 c223 | # | Store 0x1,0x23 00a1 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 00a3 c224 | $ | Store 0x1,0x24 00a4 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 00a6 c225 | % | Store 0x1,0x25 00a7 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 00a9 c226 | & | Store 0x1,0x26 00aa 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 00ac c227 | ' | Store 0x1,0x27 00ad 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 00af c228 | ( | Store 0x1,0x28 00b0 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 00b2 c229 | ) | Store 0x1,0x29 00b3 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 00b5 c22a | * | Store 0x1,0x2a 00b6 e217 | | Load 0x1,0x17 00b7 0337 | 7 | Declare_Variable Array 00b8 4801 |H | Short_Literal 0x1 00b9 4801 |H | Short_Literal 0x1 00ba 00da | | Load_Top At_Offset_2 00bb 01d6 | | Execute Vector,Field_Write 00bc 4801 |H | Short_Literal 0x1 00bd 4802 |H | Short_Literal 0x2 00be 00da | | Load_Top At_Offset_2 00bf 01d6 | | Execute Vector,Field_Write 00c0 4800 |H | Short_Literal 0x0 00c1 4800 |H | Short_Literal 0x0 00c2 00da | | Load_Top At_Offset_2 00c3 01d6 | | Execute Vector,Field_Write 00c4 4805 |H | Short_Literal 0x5 00c5 4803 |H | Short_Literal 0x3 00c6 4800 |H | Short_Literal 0x0 00c7 00d9 | | Load_Top At_Offset_1 00c8 e233 | 3 | Load 0x1,0x33 00c9 01d6 | | Execute Vector,Field_Write 00ca 3ffb |? | Loop_Increasing 0xc6 00cb e217 | | Load 0x1,0x17 00cc 01c3 | | Execute Vector,Check_In_Type 00cd 0129 | ) | Execute Any,Make_Visible 00ce c22b | + | Store 0x1,0x2b 00cf e217 | | Load 0x1,0x17 00d0 0337 | 7 | Declare_Variable Array 00d1 4804 |H | Short_Literal 0x4 00d2 4801 |H | Short_Literal 0x1 00d3 4801 |H | Short_Literal 0x1 00d4 00d9 | | Load_Top At_Offset_1 00d5 e233 | 3 | Load 0x1,0x33 00d6 01d6 | | Execute Vector,Field_Write 00d7 3ffb |? | Loop_Increasing 0xd3 00d8 4800 |H | Short_Literal 0x0 00d9 4800 |H | Short_Literal 0x0 00da 00da | | Load_Top At_Offset_2 00db 01d6 | | Execute Vector,Field_Write 00dc 4800 |H | Short_Literal 0x0 00dd 4805 |H | Short_Literal 0x5 00de 00da | | Load_Top At_Offset_2 00df 01d6 | | Execute Vector,Field_Write 00e0 e217 | | Load 0x1,0x17 00e1 01c3 | | Execute Vector,Check_In_Type 00e2 0129 | ) | Execute Any,Make_Visible 00e3 c22c | , | Store 0x1,0x2c 00e4 e217 | | Load 0x1,0x17 00e5 0337 | 7 | Declare_Variable Array 00e6 4801 |H | Short_Literal 0x1 00e7 4805 |H | Short_Literal 0x5 00e8 00da | | Load_Top At_Offset_2 00e9 01d6 | | Execute Vector,Field_Write 00ea 4804 |H | Short_Literal 0x4 00eb 4800 |H | Short_Literal 0x0 00ec 4800 |H | Short_Literal 0x0 00ed 00d9 | | Load_Top At_Offset_1 00ee e233 | 3 | Load 0x1,0x33 00ef 01d6 | | Execute Vector,Field_Write 00f0 3ffb |? | Loop_Increasing 0xec 00f1 e217 | | Load 0x1,0x17 00f2 01c3 | | Execute Vector,Check_In_Type 00f3 0129 | ) | Execute Any,Make_Visible 00f4 c22d | - | Store 0x1,0x2d 00f5 e217 | | Load 0x1,0x17 00f6 0336 | 6 | Declare_Variable Array,Visible 00f7 00d8 | | Load_Top At_Offset_0 00f8 0335 | 5 | Declare_Variable Array,Duplicate 00f9 00cd | | Action Spare6_Action 00fa 4805 |H | Short_Literal 0x5 00fb 4800 |H | Short_Literal 0x0 00fc 4801 |H | Short_Literal 0x1 00fd 00d9 | | Load_Top At_Offset_1 00fe e234 | 4 | Load 0x1,0x34 00ff 01d6 | | Execute Vector,Field_Write 0100 3ffb |? | Loop_Increasing 0xfc 0101 00d9 | | Load_Top At_Offset_1 0102 01d4 | | Execute Vector,Structure_Write 0103 c22e | . | Store 0x1,0x2e 0104 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 0106 c22f | / | Store 0x1,0x2f 0107 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0109 c230 | 0 | Store 0x1,0x30 010a 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 010c c231 | 1 | Store 0x1,0x31 010d 00bf | | Action Accept_Activation 010e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 010f 00c7 | | Action Elaborate_Subprogram 0110 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0111 00c7 | | Action Elaborate_Subprogram 0112 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0113 00c7 | | Action Elaborate_Subprogram 0114 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0115 00c7 | | Action Elaborate_Subprogram 0116 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0117 00c7 | | Action Elaborate_Subprogram 0118 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0119 00c7 | | Action Elaborate_Subprogram 011a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 011b 00c7 | | Action Elaborate_Subprogram 011c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 011d 00c7 | | Action Elaborate_Subprogram 011e 1d19 | | Execute_Immediate Reference_Lex_1,0x19 011f 00c7 | | Action Elaborate_Subprogram 0120 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0121 00c7 | | Action Elaborate_Subprogram 0122 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0123 00c7 | | Action Elaborate_Subprogram 0124 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0125 00c7 | | Action Elaborate_Subprogram 0126 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0127 00c7 | | Action Elaborate_Subprogram 0128 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0129 00c7 | | Action Elaborate_Subprogram 012a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 012b 00c7 | | Action Elaborate_Subprogram 012c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 012d 00c7 | | Action Elaborate_Subprogram 012e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 012f 00c7 | | Action Elaborate_Subprogram 0130 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0131 00c7 | | Action Elaborate_Subprogram 0132 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0133 00c7 | | Action Elaborate_Subprogram 0134 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0135 00c7 | | Action Elaborate_Subprogram 0136 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0137 00c7 | | Action Elaborate_Subprogram 0138 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0139 00c7 | | Action Elaborate_Subprogram 013a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 013b 00c7 | | Action Elaborate_Subprogram 013c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 013d 00c7 | | Action Elaborate_Subprogram 013e 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 013f 00c7 | | Action Elaborate_Subprogram 0140 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0141 00c7 | | Action Elaborate_Subprogram 0142 BODY_0008: 0142 00bc | | Action Signal_Activated 0143 00bb | | Action Signal_Completion 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c e005 | | Load 0x0,0x5 014d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 014e 180e | | Execute Package,Field_Execute,Field_Number 0xe 014f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0150 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e5fd | | Load 0x2,-0x3 015c e5fe | | Load 0x2,-0x2 015d 0120 | | Execute Any,Is_Value 015e 6803 |h | Jump_Zero 0x162 015f e004 | | Load 0x0,0x4 0160 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0161 7801 |x | Jump 0x163 0162 e5fe | | Load 0x2,-0x2 0163 e5ff | | Load 0x2,-0x1 0164 e005 | | Load 0x0,0x5 0165 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0166 180f | | Execute Package,Field_Execute,Field_Number 0xf 0167 c5fe | | Store 0x2,-0x2 0168 c5fd | | Store 0x2,-0x3 0169 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e5fd | | Load 0x2,-0x3 0174 e005 | | Load 0x0,0x5 0175 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0176 e5ff | | Load 0x2,-0x1 0177 e005 | | Load 0x0,0x5 0178 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0179 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017a c5fe | | Store 0x2,-0x2 017b c5fd | | Store 0x2,-0x3 017c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 e005 | | Load 0x0,0x5 0185 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0186 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c e005 | | Load 0x0,0x5 018d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 018e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 e005 | | Load 0x0,0x5 0195 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0196 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c e005 | | Load 0x0,0x5 019d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 019e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e5fd | | Load 0x2,-0x3 01a4 e005 | | Load 0x0,0x5 01a5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a6 e5ff | | Load 0x2,-0x1 01a7 e005 | | Load 0x0,0x5 01a8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01aa c5fe | | Store 0x2,-0x2 01ab c5fd | | Store 0x2,-0x3 01ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 e5fd | | Load 0x2,-0x3 01b4 e005 | | Load 0x0,0x5 01b5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b7 e5ff | | Load 0x2,-0x1 01b8 e005 | | Load 0x0,0x5 01b9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01ba 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01bb c5fe | | Store 0x2,-0x2 01bc c5fd | | Store 0x2,-0x3 01bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 e005 | | Load 0x0,0x5 01c5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01c6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01c7 00d8 | | Load_Top At_Offset_0 01c8 01db | | Execute Vector,Length 01c9 e217 | | Load 0x1,0x17 01ca 01db | | Execute Vector,Length 01cb 027f | | Execute Discrete,Equal 01cc 7001 |p | Jump_Nonzero 0x1ce 01cd 08e0 | | Execute_Immediate Raise,0xe0 01ce e217 | | Load 0x1,0x17 01cf 0337 | 7 | Declare_Variable Array 01d0 00d0 | | Action Swap_Control 01d1 00d8 | | Load_Top At_Offset_0 01d2 01dd | | Execute Vector,First 01d3 00da | | Load_Top At_Offset_2 01d4 01dd | | Execute Vector,First 01d5 0272 | r | Execute Discrete,Minus 01d6 00da | | Load_Top At_Offset_2 01d7 01d9 | | Execute Vector,Reverse_Bounds 01d8 0263 | c | Execute Discrete,Above_Bound 01d9 700a |p | Jump_Nonzero 0x1e4 01da 00d8 | | Load_Top At_Offset_0 01db 00db | | Load_Top At_Offset_3 01dc 0273 | s | Execute Discrete,Plus 01dd e403 | | Load 0x2,0x3 01de 01d7 | | Execute Vector,Field_Read 01df 00d9 | | Load_Top At_Offset_1 01e0 e402 | | Load 0x2,0x2 01e1 01d5 | | Execute Vector,Field_Reference 01e2 0118 | | Execute Any,Write_Unchecked 01e3 3ff6 |? | Loop_Increasing 0x1da 01e4 00d2 | | Pop_Control Pop_Count_2 01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec e005 | | Load 0x0,0x5 01ed 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01ef e006 | | Load 0x0,0x6 01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f2 0000 0000 | | .BLANK 0000[0x6] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc e005 | | Load 0x0,0x5 01fd 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 e005 | | Load 0x0,0x5 0205 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0206 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c e005 | | Load 0x0,0x5 020d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 020e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00d1 | | Pop_Control Pop_Count_1 0214 00da | | Load_Top At_Offset_2 0215 01dc | | Execute Vector,Last 0216 00db | | Load_Top At_Offset_3 0217 01dd | | Execute Vector,First 0218 0263 | c | Execute Discrete,Above_Bound 0219 7006 |p | Jump_Nonzero 0x220 021a 00d8 | | Load_Top At_Offset_0 021b e5ff | | Load 0x2,-0x1 021c 01d5 | | Execute Vector,Field_Reference 021d 1c00 | | Execute_Immediate Run_Utility,0x0 021e 0a01 | | Execute_Immediate Plus,0x1 021f 7ff8 | | Jump 0x218 0220 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0221 0000 0000 | | .BLANK 0000[0x7] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00db | | Load_Top At_Offset_3 022c 00db | | Load_Top At_Offset_3 022d e005 | | Load 0x0,0x5 022e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 022f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0230 c5fe | | Store 0x2,-0x2 0231 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0232 0000 0000 | | .BLANK 0000[0x6] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b e5fc | | Load 0x2,-0x4 023c e5fd | | Load 0x2,-0x3 023d 00d8 | | Load_Top At_Offset_0 023e 01db | | Execute Vector,Length 023f e005 | | Load 0x0,0x5 0240 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0241 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0242 01db | | Execute Vector,Length 0243 027f | | Execute Discrete,Equal 0244 7001 |p | Jump_Nonzero 0x246 0245 08e0 | | Execute_Immediate Raise,0xe0 0246 e005 | | Load 0x0,0x5 0247 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0248 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0249 0337 | 7 | Declare_Variable Array 024a 00d0 | | Action Swap_Control 024b 00d8 | | Load_Top At_Offset_0 024c 01dd | | Execute Vector,First 024d 00da | | Load_Top At_Offset_2 024e 01dd | | Execute Vector,First 024f 0272 | r | Execute Discrete,Minus 0250 00da | | Load_Top At_Offset_2 0251 01d9 | | Execute Vector,Reverse_Bounds 0252 0263 | c | Execute Discrete,Above_Bound 0253 700a |p | Jump_Nonzero 0x25e 0254 00d8 | | Load_Top At_Offset_0 0255 00db | | Load_Top At_Offset_3 0256 0273 | s | Execute Discrete,Plus 0257 e404 | | Load 0x2,0x4 0258 01d7 | | Execute Vector,Field_Read 0259 00d9 | | Load_Top At_Offset_1 025a e403 | | Load 0x2,0x3 025b 01d5 | | Execute Vector,Field_Reference 025c 0118 | | Execute Any,Write_Unchecked 025d 3ff6 |? | Loop_Increasing 0x254 025e 00d2 | | Pop_Control Pop_Count_2 025f e5fe | | Load 0x2,-0x2 0260 e5ff | | Load 0x2,-0x1 0261 e005 | | Load 0x0,0x5 0262 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0263 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0264 c5fc | | Store 0x2,-0x4 0265 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0266 0000 0000 | | .XXX[0x2] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e5fc | | Load 0x2,-0x4 026c e5fd | | Load 0x2,-0x3 026d 00d8 | | Load_Top At_Offset_0 026e 01db | | Execute Vector,Length 026f e005 | | Load 0x0,0x5 0270 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0271 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0272 01db | | Execute Vector,Length 0273 027f | | Execute Discrete,Equal 0274 7001 |p | Jump_Nonzero 0x276 0275 08e0 | | Execute_Immediate Raise,0xe0 0276 e005 | | Load 0x0,0x5 0277 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0278 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0279 0337 | 7 | Declare_Variable Array 027a 00d0 | | Action Swap_Control 027b 00d8 | | Load_Top At_Offset_0 027c 01dd | | Execute Vector,First 027d 00da | | Load_Top At_Offset_2 027e 01dd | | Execute Vector,First 027f 0272 | r | Execute Discrete,Minus 0280 00da | | Load_Top At_Offset_2 0281 01d9 | | Execute Vector,Reverse_Bounds 0282 0263 | c | Execute Discrete,Above_Bound 0283 700a |p | Jump_Nonzero 0x28e 0284 00d8 | | Load_Top At_Offset_0 0285 00db | | Load_Top At_Offset_3 0286 0273 | s | Execute Discrete,Plus 0287 e404 | | Load 0x2,0x4 0288 01d7 | | Execute Vector,Field_Read 0289 00d9 | | Load_Top At_Offset_1 028a e403 | | Load 0x2,0x3 028b 01d5 | | Execute Vector,Field_Reference 028c 0118 | | Execute Any,Write_Unchecked 028d 3ff6 |? | Loop_Increasing 0x284 028e 00d2 | | Pop_Control Pop_Count_2 028f e5fe | | Load 0x2,-0x2 0290 e5ff | | Load 0x2,-0x1 0291 e005 | | Load 0x0,0x5 0292 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0293 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0294 c5fc | | Store 0x2,-0x4 0295 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e5fc | | Load 0x2,-0x4 029c e5fd | | Load 0x2,-0x3 029d 00d8 | | Load_Top At_Offset_0 029e 01db | | Execute Vector,Length 029f e005 | | Load 0x0,0x5 02a0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a2 01db | | Execute Vector,Length 02a3 027f | | Execute Discrete,Equal 02a4 7001 |p | Jump_Nonzero 0x2a6 02a5 08e0 | | Execute_Immediate Raise,0xe0 02a6 e005 | | Load 0x0,0x5 02a7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02a8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a9 0337 | 7 | Declare_Variable Array 02aa 00d0 | | Action Swap_Control 02ab 00d8 | | Load_Top At_Offset_0 02ac 01dd | | Execute Vector,First 02ad 00da | | Load_Top At_Offset_2 02ae 01dd | | Execute Vector,First 02af 0272 | r | Execute Discrete,Minus 02b0 00da | | Load_Top At_Offset_2 02b1 01d9 | | Execute Vector,Reverse_Bounds 02b2 0263 | c | Execute Discrete,Above_Bound 02b3 700a |p | Jump_Nonzero 0x2be 02b4 00d8 | | Load_Top At_Offset_0 02b5 00db | | Load_Top At_Offset_3 02b6 0273 | s | Execute Discrete,Plus 02b7 e404 | | Load 0x2,0x4 02b8 01d7 | | Execute Vector,Field_Read 02b9 00d9 | | Load_Top At_Offset_1 02ba e403 | | Load 0x2,0x3 02bb 01d5 | | Execute Vector,Field_Reference 02bc 0118 | | Execute Any,Write_Unchecked 02bd 3ff6 |? | Loop_Increasing 0x2b4 02be 00d2 | | Pop_Control Pop_Count_2 02bf e5fe | | Load 0x2,-0x2 02c0 e5ff | | Load 0x2,-0x1 02c1 e005 | | Load 0x0,0x5 02c2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02c3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02c4 c5fc | | Store 0x2,-0x4 02c5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb e5fc | | Load 0x2,-0x4 02cc e5fd | | Load 0x2,-0x3 02cd 00d8 | | Load_Top At_Offset_0 02ce 01db | | Execute Vector,Length 02cf e005 | | Load 0x0,0x5 02d0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02d2 01db | | Execute Vector,Length 02d3 027f | | Execute Discrete,Equal 02d4 7001 |p | Jump_Nonzero 0x2d6 02d5 08e0 | | Execute_Immediate Raise,0xe0 02d6 e005 | | Load 0x0,0x5 02d7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02d8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02d9 0337 | 7 | Declare_Variable Array 02da 00d0 | | Action Swap_Control 02db 00d8 | | Load_Top At_Offset_0 02dc 01dd | | Execute Vector,First 02dd 00da | | Load_Top At_Offset_2 02de 01dd | | Execute Vector,First 02df 0272 | r | Execute Discrete,Minus 02e0 00da | | Load_Top At_Offset_2 02e1 01d9 | | Execute Vector,Reverse_Bounds 02e2 0263 | c | Execute Discrete,Above_Bound 02e3 700a |p | Jump_Nonzero 0x2ee 02e4 00d8 | | Load_Top At_Offset_0 02e5 00db | | Load_Top At_Offset_3 02e6 0273 | s | Execute Discrete,Plus 02e7 e404 | | Load 0x2,0x4 02e8 01d7 | | Execute Vector,Field_Read 02e9 00d9 | | Load_Top At_Offset_1 02ea e403 | | Load 0x2,0x3 02eb 01d5 | | Execute Vector,Field_Reference 02ec 0118 | | Execute Any,Write_Unchecked 02ed 3ff6 |? | Loop_Increasing 0x2e4 02ee 00d2 | | Pop_Control Pop_Count_2 02ef e5fe | | Load 0x2,-0x2 02f0 e5ff | | Load 0x2,-0x1 02f1 e005 | | Load 0x0,0x5 02f2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02f3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02f4 c5fc | | Store 0x2,-0x4 02f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02f6 0000 0000 | | .XXX[0x2] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e5fc | | Load 0x2,-0x4 02fc e5fd | | Load 0x2,-0x3 02fd 00d8 | | Load_Top At_Offset_0 02fe 01db | | Execute Vector,Length 02ff e005 | | Load 0x0,0x5 0300 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0301 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0302 01db | | Execute Vector,Length 0303 027f | | Execute Discrete,Equal 0304 7001 |p | Jump_Nonzero 0x306 0305 08e0 | | Execute_Immediate Raise,0xe0 0306 e005 | | Load 0x0,0x5 0307 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0308 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0309 0337 | 7 | Declare_Variable Array 030a 00d0 | | Action Swap_Control 030b 00d8 | | Load_Top At_Offset_0 030c 01dd | | Execute Vector,First 030d 00da | | Load_Top At_Offset_2 030e 01dd | | Execute Vector,First 030f 0272 | r | Execute Discrete,Minus 0310 00da | | Load_Top At_Offset_2 0311 01d9 | | Execute Vector,Reverse_Bounds 0312 0263 | c | Execute Discrete,Above_Bound 0313 700a |p | Jump_Nonzero 0x31e 0314 00d8 | | Load_Top At_Offset_0 0315 00db | | Load_Top At_Offset_3 0316 0273 | s | Execute Discrete,Plus 0317 e404 | | Load 0x2,0x4 0318 01d7 | | Execute Vector,Field_Read 0319 00d9 | | Load_Top At_Offset_1 031a e403 | | Load 0x2,0x3 031b 01d5 | | Execute Vector,Field_Reference 031c 0118 | | Execute Any,Write_Unchecked 031d 3ff6 |? | Loop_Increasing 0x314 031e 00d2 | | Pop_Control Pop_Count_2 031f e5fe | | Load 0x2,-0x2 0320 e5ff | | Load 0x2,-0x1 0321 e005 | | Load 0x0,0x5 0322 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0323 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0324 c5fc | | Store 0x2,-0x4 0325 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b e5fc | | Load 0x2,-0x4 032c e5fd | | Load 0x2,-0x3 032d 00d8 | | Load_Top At_Offset_0 032e 01db | | Execute Vector,Length 032f e005 | | Load 0x0,0x5 0330 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0331 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0332 01db | | Execute Vector,Length 0333 027f | | Execute Discrete,Equal 0334 7001 |p | Jump_Nonzero 0x336 0335 08e0 | | Execute_Immediate Raise,0xe0 0336 e005 | | Load 0x0,0x5 0337 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0338 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0339 0337 | 7 | Declare_Variable Array 033a 00d0 | | Action Swap_Control 033b 00d8 | | Load_Top At_Offset_0 033c 01dd | | Execute Vector,First 033d 00da | | Load_Top At_Offset_2 033e 01dd | | Execute Vector,First 033f 0272 | r | Execute Discrete,Minus 0340 00da | | Load_Top At_Offset_2 0341 01d9 | | Execute Vector,Reverse_Bounds 0342 0263 | c | Execute Discrete,Above_Bound 0343 700a |p | Jump_Nonzero 0x34e 0344 00d8 | | Load_Top At_Offset_0 0345 00db | | Load_Top At_Offset_3 0346 0273 | s | Execute Discrete,Plus 0347 e404 | | Load 0x2,0x4 0348 01d7 | | Execute Vector,Field_Read 0349 00d9 | | Load_Top At_Offset_1 034a e403 | | Load 0x2,0x3 034b 01d5 | | Execute Vector,Field_Reference 034c 0118 | | Execute Any,Write_Unchecked 034d 3ff6 |? | Loop_Increasing 0x344 034e 00d2 | | Pop_Control Pop_Count_2 034f e5fe | | Load 0x2,-0x2 0350 e5ff | | Load 0x2,-0x1 0351 e007 | | Load 0x0,0x7 0352 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0353 e005 | | Load 0x0,0x5 0354 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0355 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0356 c5fc | | Store 0x2,-0x4 0357 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00da | | Load_Top At_Offset_2 035c e005 | | Load 0x0,0x5 035d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 035e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 035f 00d8 | | Load_Top At_Offset_0 0360 01db | | Execute Vector,Length 0361 e217 | | Load 0x1,0x17 0362 01db | | Execute Vector,Length 0363 027f | | Execute Discrete,Equal 0364 7001 |p | Jump_Nonzero 0x366 0365 08e0 | | Execute_Immediate Raise,0xe0 0366 e217 | | Load 0x1,0x17 0367 0337 | 7 | Declare_Variable Array 0368 00d0 | | Action Swap_Control 0369 00d8 | | Load_Top At_Offset_0 036a 01dd | | Execute Vector,First 036b 00da | | Load_Top At_Offset_2 036c 01dd | | Execute Vector,First 036d 0272 | r | Execute Discrete,Minus 036e 00da | | Load_Top At_Offset_2 036f 01d9 | | Execute Vector,Reverse_Bounds 0370 0263 | c | Execute Discrete,Above_Bound 0371 700a |p | Jump_Nonzero 0x37c 0372 00d8 | | Load_Top At_Offset_0 0373 00db | | Load_Top At_Offset_3 0374 0273 | s | Execute Discrete,Plus 0375 e403 | | Load 0x2,0x3 0376 01d7 | | Execute Vector,Field_Read 0377 00d9 | | Load_Top At_Offset_1 0378 e402 | | Load 0x2,0x2 0379 01d5 | | Execute Vector,Field_Reference 037a 0118 | | Execute Any,Write_Unchecked 037b 3ff6 |? | Loop_Increasing 0x372 037c 00d2 | | Pop_Control Pop_Count_2 037d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037e 0000 0000 | | .XXX[0x2] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 e5fd | | Load 0x2,-0x3 0384 e5fe | | Load 0x2,-0x2 0385 00d8 | | Load_Top At_Offset_0 0386 01db | | Execute Vector,Length 0387 e005 | | Load 0x0,0x5 0388 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0389 1b17 | | Execute Package,Field_Read,Field_Number 0x17 038a 01db | | Execute Vector,Length 038b 027f | | Execute Discrete,Equal 038c 7001 |p | Jump_Nonzero 0x38e 038d 08e0 | | Execute_Immediate Raise,0xe0 038e e005 | | Load 0x0,0x5 038f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0390 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0391 0337 | 7 | Declare_Variable Array 0392 00d0 | | Action Swap_Control 0393 00d8 | | Load_Top At_Offset_0 0394 01dd | | Execute Vector,First 0395 00da | | Load_Top At_Offset_2 0396 01dd | | Execute Vector,First 0397 0272 | r | Execute Discrete,Minus 0398 00da | | Load_Top At_Offset_2 0399 01d9 | | Execute Vector,Reverse_Bounds 039a 0263 | c | Execute Discrete,Above_Bound 039b 700a |p | Jump_Nonzero 0x3a6 039c 00d8 | | Load_Top At_Offset_0 039d 00db | | Load_Top At_Offset_3 039e 0273 | s | Execute Discrete,Plus 039f e404 | | Load 0x2,0x4 03a0 01d7 | | Execute Vector,Field_Read 03a1 00d9 | | Load_Top At_Offset_1 03a2 e403 | | Load 0x2,0x3 03a3 01d5 | | Execute Vector,Field_Reference 03a4 0118 | | Execute Any,Write_Unchecked 03a5 3ff6 |? | Loop_Increasing 0x39c 03a6 00d2 | | Pop_Control Pop_Count_2 03a7 e5ff | | Load 0x2,-0x1 03a8 e005 | | Load 0x0,0x5 03a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03aa 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03ab c5fd | | Store 0x2,-0x3 03ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03ad 0000 0000 | | .XXX[0x3] 03af 0000 | | 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 00db | | Load_Top At_Offset_3 03b4 00d8 | | Load_Top At_Offset_0 03b5 01db | | Execute Vector,Length 03b6 e005 | | Load 0x0,0x5 03b7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03b9 01db | | Execute Vector,Length 03ba 027f | | Execute Discrete,Equal 03bb 7001 |p | Jump_Nonzero 0x3bd 03bc 08e0 | | Execute_Immediate Raise,0xe0 03bd e005 | | Load 0x0,0x5 03be 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03c0 0337 | 7 | Declare_Variable Array 03c1 00d0 | | Action Swap_Control 03c2 00d8 | | Load_Top At_Offset_0 03c3 01dd | | Execute Vector,First 03c4 00da | | Load_Top At_Offset_2 03c5 01dd | | Execute Vector,First 03c6 0272 | r | Execute Discrete,Minus 03c7 00da | | Load_Top At_Offset_2 03c8 01d9 | | Execute Vector,Reverse_Bounds 03c9 0263 | c | Execute Discrete,Above_Bound 03ca 700a |p | Jump_Nonzero 0x3d5 03cb 00d8 | | Load_Top At_Offset_0 03cc 00db | | Load_Top At_Offset_3 03cd 0273 | s | Execute Discrete,Plus 03ce e403 | | Load 0x2,0x3 03cf 01d7 | | Execute Vector,Field_Read 03d0 00d9 | | Load_Top At_Offset_1 03d1 e402 | | Load 0x2,0x2 03d2 01d5 | | Execute Vector,Field_Reference 03d3 0118 | | Execute Any,Write_Unchecked 03d4 3ff6 |? | Loop_Increasing 0x3cb 03d5 00d2 | | Pop_Control Pop_Count_2 03d6 00db | | Load_Top At_Offset_3 03d7 e005 | | Load 0x0,0x5 03d8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03d9 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 03da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03db 0000 0000 | | .BLANK 0000[0x5] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00db | | Load_Top At_Offset_3 03e4 00d8 | | Load_Top At_Offset_0 03e5 01db | | Execute Vector,Length 03e6 e005 | | Load 0x0,0x5 03e7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03e9 01db | | Execute Vector,Length 03ea 027f | | Execute Discrete,Equal 03eb 7001 |p | Jump_Nonzero 0x3ed 03ec 08e0 | | Execute_Immediate Raise,0xe0 03ed e005 | | Load 0x0,0x5 03ee 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03ef 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03f0 0337 | 7 | Declare_Variable Array 03f1 00d0 | | Action Swap_Control 03f2 00d8 | | Load_Top At_Offset_0 03f3 01dd | | Execute Vector,First 03f4 00da | | Load_Top At_Offset_2 03f5 01dd | | Execute Vector,First 03f6 0272 | r | Execute Discrete,Minus 03f7 00da | | Load_Top At_Offset_2 03f8 01d9 | | Execute Vector,Reverse_Bounds 03f9 0263 | c | Execute Discrete,Above_Bound 03fa 700a |p | Jump_Nonzero 0x405 03fb 00d8 | | Load_Top At_Offset_0 03fc 00db | | Load_Top At_Offset_3 03fd 0273 | s | Execute Discrete,Plus 03fe e403 | | Load 0x2,0x3 03ff 01d7 | | Execute Vector,Field_Read 0400 00d9 | | Load_Top At_Offset_1 0401 e402 | | Load 0x2,0x2 0402 01d5 | | Execute Vector,Field_Reference 0403 0118 | | Execute Any,Write_Unchecked 0404 3ff6 |? | Loop_Increasing 0x3fb 0405 00d2 | | Pop_Control Pop_Count_2 0406 00db | | Load_Top At_Offset_3 0407 e005 | | Load 0x0,0x5 0408 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0409 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 040a e008 | | Load 0x0,0x8 040b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 040c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 040d 0000 0000 | | .XXX[0x3] 040f 0000 | | 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 00db | | Load_Top At_Offset_3 0414 00db | | Load_Top At_Offset_3 0415 e005 | | Load 0x0,0x5 0416 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0417 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0418 00d8 | | Load_Top At_Offset_0 0419 01db | | Execute Vector,Length 041a e217 | | Load 0x1,0x17 041b 01db | | Execute Vector,Length 041c 027f | | Execute Discrete,Equal 041d 7001 |p | Jump_Nonzero 0x41f 041e 08e0 | | Execute_Immediate Raise,0xe0 041f e217 | | Load 0x1,0x17 0420 0337 | 7 | Declare_Variable Array 0421 00d0 | | Action Swap_Control 0422 00d8 | | Load_Top At_Offset_0 0423 01dd | | Execute Vector,First 0424 00da | | Load_Top At_Offset_2 0425 01dd | | Execute Vector,First 0426 0272 | r | Execute Discrete,Minus 0427 00da | | Load_Top At_Offset_2 0428 01d9 | | Execute Vector,Reverse_Bounds 0429 0263 | c | Execute Discrete,Above_Bound 042a 700a |p | Jump_Nonzero 0x435 042b 00d8 | | Load_Top At_Offset_0 042c 00db | | Load_Top At_Offset_3 042d 0273 | s | Execute Discrete,Plus 042e e403 | | Load 0x2,0x3 042f 01d7 | | Execute Vector,Field_Read 0430 00d9 | | Load_Top At_Offset_1 0431 e402 | | Load 0x2,0x2 0432 01d5 | | Execute Vector,Field_Reference 0433 0118 | | Execute Any,Write_Unchecked 0434 3ff6 |? | Loop_Increasing 0x42b 0435 00d2 | | Pop_Control Pop_Count_2 0436 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0437 0000 | | .XXX[0x1] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 4608 |F | Jump_Case 0x9 043c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 043d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 043e 7819 |x | Jump 0x458 ; case 0x2 043f 7818 |x | Jump 0x458 ; case 0x3 0440 7817 |x | Jump 0x458 ; case 0x4 0441 7816 |x | Jump 0x458 ; case 0x5 0442 7815 |x | Jump 0x458 ; case 0x6 0443 7801 |x | Jump 0x445 ; case 0x7 0444 7809 |x | Jump 0x44e ; case 0x8 0445 00db | | Load_Top At_Offset_3 0446 4801 |H | Short_Literal 0x1 0447 e5fe | | Load 0x2,-0x2 0448 e21e | | Load 0x1,0x1e 0449 035b | [ | Declare_Type Array,Constrained 044a 4801 |H | Short_Literal 0x1 044b e5ff | | Load 0x2,-0x1 044c 031b | | Declare_Type Variant_Record,Constrained 044d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 044e 00db | | Load_Top At_Offset_3 044f 00db | | Load_Top At_Offset_3 0450 02fc | | Declare_Variable Variant_Record,With_Constraint 0451 4801 |H | Short_Literal 0x1 0452 e5fe | | Load 0x2,-0x2 0453 e21e | | Load 0x1,0x1e 0454 0334 | 4 | Declare_Variable Array,With_Constraint 0455 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0456 016a | j | QQ_execute Variant_Record,XXX 0457 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0458 0869 | i | Execute_Immediate Raise,0x69 0459 0000 0000 | | .BLANK 0000[0x7] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 4608 |F | Jump_Case 0x9 0464 7808 |x | Jump 0x46d ; case 0x0 0465 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0466 780d |x | Jump 0x474 ; case 0x2 0467 780c |x | Jump 0x474 ; case 0x3 0468 780b |x | Jump 0x474 ; case 0x4 0469 780a |x | Jump 0x474 ; case 0x5 046a 7809 |x | Jump 0x474 ; case 0x6 046b 7808 |x | Jump 0x474 ; case 0x7 046c 7807 |x | Jump 0x474 ; case 0x8 046d 00da | | Load_Top At_Offset_2 046e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 046f 0125 | % | Execute Any,Set_Constraint 0470 00da | | Load_Top At_Offset_2 0471 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0472 1c00 | | Execute_Immediate Run_Utility,0x0 0473 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0474 0869 | i | Execute_Immediate Raise,0x69 0475 0000 0000 | | .XXX[0x3] 0477 0000 | | 0478 ; -------------------------------------------------------------------------------------- 0478 ; Debug Table 0478 ; -------------------------------------------------------------------------------------- 0478 0004 000d | | .DEBUG4 0x0004,0x000d,0xd954,0x0000,0x0001,0x0000 047e 0000 0000 | | .BLANK 0000[0x182]