|
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: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0890 | | .CONST 0x0890 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0284 | | .CONST 0x0284 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 005e | ^ | .CONST 0x005e ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 000f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0010 0129 | ) | Execute Any,Make_Visible 0011 e001 | | Load 0x0,0x1 0012 190f | | Execute Package,Field_Reference,Field_Number 0xf 0013 0129 | ) | Execute Any,Make_Visible 0014 e001 | | Load 0x0,0x1 0015 190e | | Execute Package,Field_Reference,Field_Number 0xe 0016 0129 | ) | Execute Any,Make_Visible 0017 e001 | | Load 0x0,0x1 0018 191a | | Execute Package,Field_Reference,Field_Number 0x1a 0019 0129 | ) | Execute Any,Make_Visible 001a e002 | | Load 0x0,0x2 001b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 001c 0129 | ) | Execute Any,Make_Visible 001d 4818 |H | Short_Literal 0x18 001e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 001f 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0021 4804 |H | Short_Literal 0x4 0022 032b | + | Declare_Type Record,Incomplete,Visible 0023 00c4 | | Action Make_Default 0024 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0026 00e4 | | Load_Encached Positive_Cache 0027 0129 | ) | Execute Any,Make_Visible 0028 00d8 | | Load_Top At_Offset_0 0029 0266 | f | Execute Discrete,Bounds 002a e215 | | Load 0x1,0x15 002b 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 002d 4801 |H | Short_Literal 0x1 002e 0349 | I | Declare_Type Array,Defined_Incomplete,Visible,Bounds_With_Object 002f 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0031 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0033 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 00c4 | | Action Make_Default 004c 00c4 | | Action Make_Default 004d 00c4 | | Action Make_Default 004e 00c4 | | Action Make_Default 004f 00c4 | | Action Make_Default 0050 00c4 | | Action Make_Default 0051 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0053 c21e | | Store 0x1,0x1e 0054 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 0056 c221 | ! | Store 0x1,0x21 0057 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 0059 c236 | 6 | Store 0x1,0x36 005a 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 005c c224 | $ | Store 0x1,0x24 005d 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 005f c225 | % | Store 0x1,0x25 0060 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0062 c227 | ' | Store 0x1,0x27 0063 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 0065 c229 | ) | Store 0x1,0x29 0066 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 0068 c238 | 8 | Store 0x1,0x38 0069 e20d | | Load 0x1,0xd 006a e212 | | Load 0x1,0x12 006b e001 | | Load 0x0,0x1 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d e002 | | Load 0x0,0x2 006e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 006f 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0070 029f 083b | ;| Declare_Subprogram INIT_0838,For_Call 0072 e215 | | Load 0x1,0x15 0073 0326 | & | Complete_Type Record,By_Defining 0074 e219 | | Load 0x1,0x19 0075 0340 | @ | Complete_Type Array,By_Component_Completion 0076 e215 | | Load 0x1,0x15 0077 0322 | " | Declare_Variable Record 0078 e210 | | Load 0x1,0x10 0079 e215 | | Load 0x1,0x15 007a 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 007b 0119 | | Execute Any,Check_In_Formal_Type 007c 00d9 | | Load_Top At_Offset_1 007d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007e 4836 |H6 | Short_Literal 0x36 007f 00d9 | | Load_Top At_Offset_1 0080 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0081 e001 | | Load 0x0,0x1 0082 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0083 e215 | | Load 0x1,0x15 0084 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 0085 0119 | | Execute Any,Check_In_Formal_Type 0086 00d9 | | Load_Top At_Offset_1 0087 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0088 e002 | | Load 0x0,0x2 0089 1b20 | | Execute Package,Field_Read,Field_Number 0x20 008a 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 008b 00d9 | | Load_Top At_Offset_1 008c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 008d 0129 | ) | Execute Any,Make_Visible 008e c216 | | Store 0x1,0x16 008f 4802 |H | Short_Literal 0x2 0090 032a | * | Declare_Type Record,Incomplete 0091 c237 | 7 | Store 0x1,0x37 0092 00d9 | | Load_Top At_Offset_1 0093 02a0 | | Declare_Subprogram Null_Subprogram 0094 e213 | | Load 0x1,0x13 0095 03c7 | | Complete_Type Access,By_Defining 0096 00bf | | Action Accept_Activation 0097 e003 | | Load 0x0,0x3 0098 e004 | | Load 0x0,0x4 0099 4814 |H | Short_Literal 0x14 009a e005 | | Load 0x0,0x5 009b 0387 | | Declare_Variable Package 009c 00d8 | | Load_Top At_Offset_0 009d 020f | | Execute Module,Activate 009e e002 | | Load 0x0,0x2 009f 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00a0 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call 00a2 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call 00a4 4807 |H | Short_Literal 0x7 00a5 4808 |H | Short_Literal 0x8 00a6 e23a | : | Load 0x1,0x3a 00a7 03f8 | | Declare_Type Discrete,Constrained 00a8 00d8 | | Load_Top At_Offset_0 00a9 0266 | f | Execute Discrete,Bounds 00aa e006 | | Load 0x0,0x6 00ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ac 035b | [ | Declare_Type Array,Constrained 00ad 4830 |H0 | Short_Literal 0x30 00ae 4835 |H5 | Short_Literal 0x35 00af e212 | | Load 0x1,0x12 00b0 03f8 | | Declare_Type Discrete,Constrained 00b1 029b 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Unelaborated 00b3 e007 | | Load 0x0,0x7 00b4 e008 | | Load 0x0,0x8 00b5 4bfd |K | Short_Literal 0x3fd 00b6 e20d | | Load 0x1,0xd 00b7 e215 | | Load 0x1,0x15 00b8 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 00b9 e009 | | Load 0x0,0x9 00ba 0387 | | Declare_Variable Package 00bb 00d8 | | Load_Top At_Offset_0 00bc 020f | | Execute Module,Activate 00bd e00a | | Load 0x0,0xa 00be 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00bf 00d9 | | Load_Top At_Offset_1 00c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c1 02a0 | | Declare_Subprogram Null_Subprogram 00c2 e237 | 7 | Load 0x1,0x37 00c3 0326 | & | Complete_Type Record,By_Defining 00c4 e00b | | Load 0x0,0xb 00c5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00c6 0266 | f | Execute Discrete,Bounds 00c7 00e1 | | Load_Encached Boolean_Cache 00c8 02a0 | | Declare_Subprogram Null_Subprogram 00c9 4801 |H | Short_Literal 0x1 00ca 035d | ] | Declare_Type Array,Defined 00cb 00d8 | | Load_Top At_Offset_0 00cc 0337 | 7 | Declare_Variable Array 00cd 4801 |H | Short_Literal 0x1 00ce 4800 |H | Short_Literal 0x0 00cf 00da | | Load_Top At_Offset_2 00d0 01d6 | | Execute Vector,Field_Write 00d1 4801 |H | Short_Literal 0x1 00d2 4801 |H | Short_Literal 0x1 00d3 00da | | Load_Top At_Offset_2 00d4 01d6 | | Execute Vector,Field_Write 00d5 4801 |H | Short_Literal 0x1 00d6 4803 |H | Short_Literal 0x3 00d7 00da | | Load_Top At_Offset_2 00d8 01d6 | | Execute Vector,Field_Write 00d9 4801 |H | Short_Literal 0x1 00da 4804 |H | Short_Literal 0x4 00db 00da | | Load_Top At_Offset_2 00dc 01d6 | | Execute Vector,Field_Write 00dd 4801 |H | Short_Literal 0x1 00de 4811 |H | Short_Literal 0x11 00df 00da | | Load_Top At_Offset_2 00e0 01d6 | | Execute Vector,Field_Write 00e1 4801 |H | Short_Literal 0x1 00e2 4805 |H | Short_Literal 0x5 00e3 00da | | Load_Top At_Offset_2 00e4 01d6 | | Execute Vector,Field_Write 00e5 4801 |H | Short_Literal 0x1 00e6 4807 |H | Short_Literal 0x7 00e7 00da | | Load_Top At_Offset_2 00e8 01d6 | | Execute Vector,Field_Write 00e9 4800 |H | Short_Literal 0x0 00ea 4802 |H | Short_Literal 0x2 00eb 00da | | Load_Top At_Offset_2 00ec 01d6 | | Execute Vector,Field_Write 00ed 4800 |H | Short_Literal 0x0 00ee 4806 |H | Short_Literal 0x6 00ef 00da | | Load_Top At_Offset_2 00f0 01d6 | | Execute Vector,Field_Write 00f1 4810 |H | Short_Literal 0x10 00f2 4808 |H | Short_Literal 0x8 00f3 4800 |H | Short_Literal 0x0 00f4 00d9 | | Load_Top At_Offset_1 00f5 e243 | C | Load 0x1,0x43 00f6 01d6 | | Execute Vector,Field_Write 00f7 3ffb |? | Loop_Increasing 0xf3 00f8 4826 |H& | Short_Literal 0x26 00f9 4812 |H | Short_Literal 0x12 00fa 4800 |H | Short_Literal 0x0 00fb 00d9 | | Load_Top At_Offset_1 00fc e243 | C | Load 0x1,0x43 00fd 01d6 | | Execute Vector,Field_Write 00fe 3ffb |? | Loop_Increasing 0xfa 00ff 00d9 | | Load_Top At_Offset_1 0100 01c3 | | Execute Vector,Check_In_Type 0101 0007 | | Action Break_Optional 0102 4830 |H0 | Short_Literal 0x30 0103 4836 |H6 | Short_Literal 0x36 0104 00e1 | | Load_Encached Boolean_Cache 0105 02a0 | | Declare_Subprogram Null_Subprogram 0106 4801 |H | Short_Literal 0x1 0107 035d | ] | Declare_Type Array,Defined 0108 e212 | | Load 0x1,0x12 0109 0007 | | Action Break_Optional 010a 4830 |H0 | Short_Literal 0x30 010b 4836 |H6 | Short_Literal 0x36 010c 00db | | Load_Top At_Offset_3 010d 02a0 | | Declare_Subprogram Null_Subprogram 010e 4801 |H | Short_Literal 0x1 010f 035d | ] | Declare_Type Array,Defined 0110 00d8 | | Load_Top At_Offset_0 0111 0337 | 7 | Declare_Variable Array 0112 00db | | Load_Top At_Offset_3 0113 0337 | 7 | Declare_Variable Array 0114 4801 |H | Short_Literal 0x1 0115 4830 |H0 | Short_Literal 0x30 0116 00da | | Load_Top At_Offset_2 0117 01d6 | | Execute Vector,Field_Write 0118 4801 |H | Short_Literal 0x1 0119 4832 |H2 | Short_Literal 0x32 011a 00da | | Load_Top At_Offset_2 011b 01d6 | | Execute Vector,Field_Write 011c 4800 |H | Short_Literal 0x0 011d 4831 |H1 | Short_Literal 0x31 011e 00da | | Load_Top At_Offset_2 011f 01d6 | | Execute Vector,Field_Write 0120 4836 |H6 | Short_Literal 0x36 0121 4833 |H3 | Short_Literal 0x33 0122 4800 |H | Short_Literal 0x0 0123 00d9 | | Load_Top At_Offset_1 0124 e248 | H | Load 0x1,0x48 0125 01d6 | | Execute Vector,Field_Write 0126 3ffb |? | Loop_Increasing 0x122 0127 e244 | D | Load 0x1,0x44 0128 01c3 | | Execute Vector,Check_In_Type 0129 e244 | D | Load 0x1,0x44 012a 0119 | | Execute Any,Check_In_Formal_Type 012b 4830 |H0 | Short_Literal 0x30 012c 00da | | Load_Top At_Offset_2 012d 01d6 | | Execute Vector,Field_Write 012e 00db | | Load_Top At_Offset_3 012f 0337 | 7 | Declare_Variable Array 0130 4801 |H | Short_Literal 0x1 0131 4831 |H1 | Short_Literal 0x31 0132 00da | | Load_Top At_Offset_2 0133 01d6 | | Execute Vector,Field_Write 0134 4801 |H | Short_Literal 0x1 0135 4832 |H2 | Short_Literal 0x32 0136 00da | | Load_Top At_Offset_2 0137 01d6 | | Execute Vector,Field_Write 0138 4800 |H | Short_Literal 0x0 0139 4830 |H0 | Short_Literal 0x30 013a 00da | | Load_Top At_Offset_2 013b 01d6 | | Execute Vector,Field_Write 013c 4836 |H6 | Short_Literal 0x36 013d 4833 |H3 | Short_Literal 0x33 013e 4800 |H | Short_Literal 0x0 013f 00d9 | | Load_Top At_Offset_1 0140 e248 | H | Load 0x1,0x48 0141 01d6 | | Execute Vector,Field_Write 0142 3ffb |? | Loop_Increasing 0x13e 0143 e244 | D | Load 0x1,0x44 0144 01c3 | | Execute Vector,Check_In_Type 0145 e244 | D | Load 0x1,0x44 0146 0119 | | Execute Any,Check_In_Formal_Type 0147 4831 |H1 | Short_Literal 0x31 0148 00da | | Load_Top At_Offset_2 0149 01d6 | | Execute Vector,Field_Write 014a 00db | | Load_Top At_Offset_3 014b 0337 | 7 | Declare_Variable Array 014c 4801 |H | Short_Literal 0x1 014d 4830 |H0 | Short_Literal 0x30 014e 00da | | Load_Top At_Offset_2 014f 01d6 | | Execute Vector,Field_Write 0150 4801 |H | Short_Literal 0x1 0151 4831 |H1 | Short_Literal 0x31 0152 00da | | Load_Top At_Offset_2 0153 01d6 | | Execute Vector,Field_Write 0154 4801 |H | Short_Literal 0x1 0155 4832 |H2 | Short_Literal 0x32 0156 00da | | Load_Top At_Offset_2 0157 01d6 | | Execute Vector,Field_Write 0158 4836 |H6 | Short_Literal 0x36 0159 4833 |H3 | Short_Literal 0x33 015a 4800 |H | Short_Literal 0x0 015b 00d9 | | Load_Top At_Offset_1 015c e248 | H | Load 0x1,0x48 015d 01d6 | | Execute Vector,Field_Write 015e 3ffb |? | Loop_Increasing 0x15a 015f e244 | D | Load 0x1,0x44 0160 01c3 | | Execute Vector,Check_In_Type 0161 e244 | D | Load 0x1,0x44 0162 0119 | | Execute Any,Check_In_Formal_Type 0163 4832 |H2 | Short_Literal 0x32 0164 00da | | Load_Top At_Offset_2 0165 01d6 | | Execute Vector,Field_Write 0166 00db | | Load_Top At_Offset_3 0167 0337 | 7 | Declare_Variable Array 0168 4801 |H | Short_Literal 0x1 0169 4833 |H3 | Short_Literal 0x33 016a 00da | | Load_Top At_Offset_2 016b 01d6 | | Execute Vector,Field_Write 016c 4801 |H | Short_Literal 0x1 016d 4835 |H5 | Short_Literal 0x35 016e 00da | | Load_Top At_Offset_2 016f 01d6 | | Execute Vector,Field_Write 0170 4832 |H2 | Short_Literal 0x32 0171 4830 |H0 | Short_Literal 0x30 0172 4800 |H | Short_Literal 0x0 0173 00d9 | | Load_Top At_Offset_1 0174 e248 | H | Load 0x1,0x48 0175 01d6 | | Execute Vector,Field_Write 0176 3ffb |? | Loop_Increasing 0x172 0177 4800 |H | Short_Literal 0x0 0178 4834 |H4 | Short_Literal 0x34 0179 00da | | Load_Top At_Offset_2 017a 01d6 | | Execute Vector,Field_Write 017b 4800 |H | Short_Literal 0x0 017c 4836 |H6 | Short_Literal 0x36 017d 00da | | Load_Top At_Offset_2 017e 01d6 | | Execute Vector,Field_Write 017f e244 | D | Load 0x1,0x44 0180 01c3 | | Execute Vector,Check_In_Type 0181 e244 | D | Load 0x1,0x44 0182 0119 | | Execute Any,Check_In_Formal_Type 0183 4833 |H3 | Short_Literal 0x33 0184 00da | | Load_Top At_Offset_2 0185 01d6 | | Execute Vector,Field_Write 0186 00db | | Load_Top At_Offset_3 0187 0337 | 7 | Declare_Variable Array 0188 4801 |H | Short_Literal 0x1 0189 4834 |H4 | Short_Literal 0x34 018a 00da | | Load_Top At_Offset_2 018b 01d6 | | Execute Vector,Field_Write 018c 4801 |H | Short_Literal 0x1 018d 4835 |H5 | Short_Literal 0x35 018e 00da | | Load_Top At_Offset_2 018f 01d6 | | Execute Vector,Field_Write 0190 4833 |H3 | Short_Literal 0x33 0191 4830 |H0 | Short_Literal 0x30 0192 4800 |H | Short_Literal 0x0 0193 00d9 | | Load_Top At_Offset_1 0194 e248 | H | Load 0x1,0x48 0195 01d6 | | Execute Vector,Field_Write 0196 3ffb |? | Loop_Increasing 0x192 0197 4800 |H | Short_Literal 0x0 0198 4836 |H6 | Short_Literal 0x36 0199 00da | | Load_Top At_Offset_2 019a 01d6 | | Execute Vector,Field_Write 019b e244 | D | Load 0x1,0x44 019c 01c3 | | Execute Vector,Check_In_Type 019d e244 | D | Load 0x1,0x44 019e 0119 | | Execute Any,Check_In_Formal_Type 019f 4834 |H4 | Short_Literal 0x34 01a0 00da | | Load_Top At_Offset_2 01a1 01d6 | | Execute Vector,Field_Write 01a2 00db | | Load_Top At_Offset_3 01a3 0337 | 7 | Declare_Variable Array 01a4 4801 |H | Short_Literal 0x1 01a5 4833 |H3 | Short_Literal 0x33 01a6 00da | | Load_Top At_Offset_2 01a7 01d6 | | Execute Vector,Field_Write 01a8 4801 |H | Short_Literal 0x1 01a9 4834 |H4 | Short_Literal 0x34 01aa 00da | | Load_Top At_Offset_2 01ab 01d6 | | Execute Vector,Field_Write 01ac 4801 |H | Short_Literal 0x1 01ad 4835 |H5 | Short_Literal 0x35 01ae 00da | | Load_Top At_Offset_2 01af 01d6 | | Execute Vector,Field_Write 01b0 4832 |H2 | Short_Literal 0x32 01b1 4830 |H0 | Short_Literal 0x30 01b2 4800 |H | Short_Literal 0x0 01b3 00d9 | | Load_Top At_Offset_1 01b4 e248 | H | Load 0x1,0x48 01b5 01d6 | | Execute Vector,Field_Write 01b6 3ffb |? | Loop_Increasing 0x1b2 01b7 4800 |H | Short_Literal 0x0 01b8 4836 |H6 | Short_Literal 0x36 01b9 00da | | Load_Top At_Offset_2 01ba 01d6 | | Execute Vector,Field_Write 01bb e244 | D | Load 0x1,0x44 01bc 01c3 | | Execute Vector,Check_In_Type 01bd e244 | D | Load 0x1,0x44 01be 0119 | | Execute Any,Check_In_Formal_Type 01bf 4835 |H5 | Short_Literal 0x35 01c0 00da | | Load_Top At_Offset_2 01c1 01d6 | | Execute Vector,Field_Write 01c2 00db | | Load_Top At_Offset_3 01c3 0337 | 7 | Declare_Variable Array 01c4 4836 |H6 | Short_Literal 0x36 01c5 4830 |H0 | Short_Literal 0x30 01c6 4801 |H | Short_Literal 0x1 01c7 00d9 | | Load_Top At_Offset_1 01c8 e248 | H | Load 0x1,0x48 01c9 01d6 | | Execute Vector,Field_Write 01ca 3ffb |? | Loop_Increasing 0x1c6 01cb e244 | D | Load 0x1,0x44 01cc 01c3 | | Execute Vector,Check_In_Type 01cd e244 | D | Load 0x1,0x44 01ce 0119 | | Execute Any,Check_In_Formal_Type 01cf 4836 |H6 | Short_Literal 0x36 01d0 00da | | Load_Top At_Offset_2 01d1 01d6 | | Execute Vector,Field_Write 01d2 00d9 | | Load_Top At_Offset_1 01d3 01c3 | | Execute Vector,Check_In_Type 01d4 0007 | | Action Break_Optional 01d5 e00b | | Load 0x0,0xb 01d6 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 01d7 0266 | f | Execute Discrete,Bounds 01d8 e212 | | Load 0x1,0x12 01d9 02a0 | | Declare_Subprogram Null_Subprogram 01da 4801 |H | Short_Literal 0x1 01db 035d | ] | Declare_Type Array,Defined 01dc 00d8 | | Load_Top At_Offset_0 01dd 0337 | 7 | Declare_Variable Array 01de 4830 |H0 | Short_Literal 0x30 01df 4800 |H | Short_Literal 0x0 01e0 00da | | Load_Top At_Offset_2 01e1 01d6 | | Execute Vector,Field_Write 01e2 4830 |H0 | Short_Literal 0x30 01e3 4801 |H | Short_Literal 0x1 01e4 00da | | Load_Top At_Offset_2 01e5 01d6 | | Execute Vector,Field_Write 01e6 4831 |H1 | Short_Literal 0x31 01e7 4802 |H | Short_Literal 0x2 01e8 00da | | Load_Top At_Offset_2 01e9 01d6 | | Execute Vector,Field_Write 01ea 4832 |H2 | Short_Literal 0x32 01eb 4803 |H | Short_Literal 0x3 01ec 00da | | Load_Top At_Offset_2 01ed 01d6 | | Execute Vector,Field_Write 01ee 4836 |H6 | Short_Literal 0x36 01ef 4804 |H | Short_Literal 0x4 01f0 00da | | Load_Top At_Offset_2 01f1 01d6 | | Execute Vector,Field_Write 01f2 00d9 | | Load_Top At_Offset_1 01f3 01c3 | | Execute Vector,Check_In_Type 01f4 0007 | | Action Break_Optional 01f5 00d9 | | Load_Top At_Offset_1 01f6 0337 | 7 | Declare_Variable Array 01f7 4833 |H3 | Short_Literal 0x33 01f8 4800 |H | Short_Literal 0x0 01f9 00da | | Load_Top At_Offset_2 01fa 01d6 | | Execute Vector,Field_Write 01fb 4833 |H3 | Short_Literal 0x33 01fc 4801 |H | Short_Literal 0x1 01fd 00da | | Load_Top At_Offset_2 01fe 01d6 | | Execute Vector,Field_Write 01ff 4834 |H4 | Short_Literal 0x34 0200 4802 |H | Short_Literal 0x2 0201 00da | | Load_Top At_Offset_2 0202 01d6 | | Execute Vector,Field_Write 0203 4835 |H5 | Short_Literal 0x35 0204 4803 |H | Short_Literal 0x3 0205 00da | | Load_Top At_Offset_2 0206 01d6 | | Execute Vector,Field_Write 0207 4836 |H6 | Short_Literal 0x36 0208 4804 |H | Short_Literal 0x4 0209 00da | | Load_Top At_Offset_2 020a 01d6 | | Execute Vector,Field_Write 020b 00da | | Load_Top At_Offset_2 020c 01c3 | | Execute Vector,Check_In_Type 020d 0007 | | Action Break_Optional 020e 00e1 | | Load_Encached Boolean_Cache 020f 00e1 | | Load_Encached Boolean_Cache 0210 00e1 | | Load_Encached Boolean_Cache 0211 0266 | f | Execute Discrete,Bounds 0212 00e1 | | Load_Encached Boolean_Cache 0213 0266 | f | Execute Discrete,Bounds 0214 e212 | | Load 0x1,0x12 0215 02a0 | | Declare_Subprogram Null_Subprogram 0216 4802 |H | Short_Literal 0x2 0217 035d | ] | Declare_Type Array,Defined 0218 00d8 | | Load_Top At_Offset_0 0219 0337 | 7 | Declare_Variable Array 021a 4836 |H6 | Short_Literal 0x36 021b 4800 |H | Short_Literal 0x0 021c 4800 |H | Short_Literal 0x0 021d 00db | | Load_Top At_Offset_3 021e 01a6 | | Execute Matrix,Field_Write 021f 4831 |H1 | Short_Literal 0x31 0220 4801 |H | Short_Literal 0x1 0221 4800 |H | Short_Literal 0x0 0222 00db | | Load_Top At_Offset_3 0223 01a6 | | Execute Matrix,Field_Write 0224 4830 |H0 | Short_Literal 0x30 0225 4800 |H | Short_Literal 0x0 0226 4801 |H | Short_Literal 0x1 0227 00db | | Load_Top At_Offset_3 0228 01a6 | | Execute Matrix,Field_Write 0229 4832 |H2 | Short_Literal 0x32 022a 4801 |H | Short_Literal 0x1 022b 4801 |H | Short_Literal 0x1 022c 00db | | Load_Top At_Offset_3 022d 01a6 | | Execute Matrix,Field_Write 022e 00d9 | | Load_Top At_Offset_1 022f 019b | | Execute Matrix,Check_In_Type 0230 0007 | | Action Break_Optional 0231 00d9 | | Load_Top At_Offset_1 0232 0337 | 7 | Declare_Variable Array 0233 4836 |H6 | Short_Literal 0x36 0234 4800 |H | Short_Literal 0x0 0235 4800 |H | Short_Literal 0x0 0236 00db | | Load_Top At_Offset_3 0237 01a6 | | Execute Matrix,Field_Write 0238 4834 |H4 | Short_Literal 0x34 0239 4801 |H | Short_Literal 0x1 023a 4800 |H | Short_Literal 0x0 023b 00db | | Load_Top At_Offset_3 023c 01a6 | | Execute Matrix,Field_Write 023d 4833 |H3 | Short_Literal 0x33 023e 4800 |H | Short_Literal 0x0 023f 4801 |H | Short_Literal 0x1 0240 00db | | Load_Top At_Offset_3 0241 01a6 | | Execute Matrix,Field_Write 0242 4835 |H5 | Short_Literal 0x35 0243 4801 |H | Short_Literal 0x1 0244 4801 |H | Short_Literal 0x1 0245 00db | | Load_Top At_Offset_3 0246 01a6 | | Execute Matrix,Field_Write 0247 00da | | Load_Top At_Offset_2 0248 019b | | Execute Matrix,Check_In_Type 0249 0007 | | Action Break_Optional 024a 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call 024c 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call 024e 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call 0250 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call 0252 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0253 00c7 | | Action Elaborate_Subprogram 0254 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call 0256 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call 0258 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0259 00c7 | | Action Elaborate_Subprogram 025a 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call 025c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 025d 00c7 | | Action Elaborate_Subprogram 025e 1d17 | | Execute_Immediate Reference_Lex_1,0x17 025f 00c7 | | Action Elaborate_Subprogram 0260 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0261 00c7 | | Action Elaborate_Subprogram 0262 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0263 00c7 | | Action Elaborate_Subprogram 0264 029d 058b | | Declare_Subprogram INIT_0588,For_Outer_Call 0266 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call 0268 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0269 00c7 | | Action Elaborate_Subprogram 026a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 026b 00c7 | | Action Elaborate_Subprogram 026c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 026d 00c7 | | Action Elaborate_Subprogram 026e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 026f 00c7 | | Action Elaborate_Subprogram 0270 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0271 00c7 | | Action Elaborate_Subprogram 0272 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0273 00c7 | | Action Elaborate_Subprogram 0274 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0275 00c7 | | Action Elaborate_Subprogram 0276 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call 0278 e00c | | Load 0x0,0xc 0279 1917 | | Execute Package,Field_Reference,Field_Number 0x17 027a 00c6 | | Action Check_Subprogram_Elaborated 027b e241 | A | Load 0x1,0x41 027c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 027d 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 027e e00d | | Load 0x0,0xd 027f e00e | | Load 0x0,0xe 0280 4800 |H | Short_Literal 0x0 0281 0007 | | Action Break_Optional 0282 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0283 00c7 | | Action Elaborate_Subprogram 0284 BODY_0008: 0284 00bc | | Action Signal_Activated 0285 00bb | | Action Signal_Completion 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 02a0 | | .CONST 0x02a0 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b e213 | | Load 0x1,0x13 028c 03bc | | Declare_Variable Access,By_Allocation 028d a5fe | | Store_Unchecked 0x2,-0x2 028e 00da | | Load_Top At_Offset_2 028f e5fe | | Load 0x2,-0x2 0290 0227 | ' | Execute Access,All_Reference 0291 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0292 00db | | Load_Top At_Offset_3 0293 0229 | ) | Execute Access,All_Read 0294 e241 | A | Load 0x1,0x41 0295 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0296 e241 | A | Load 0x1,0x41 0297 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0298 00d9 | | Load_Top At_Offset_1 0299 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 029a 00d1 | | Pop_Control Pop_Count_1 029b e5fd | | Load 0x2,-0x3 029c e00f | | Load 0x0,0xf 029d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 029e c5fd | | Store 0x2,-0x3 029f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a0 TRAP_0288: 02a0 e010 | | Load 0x0,0x10 02a1 010f | | Execute Exception,Equal 02a2 6801 |h | Jump_Zero 0x2a4 02a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a4 e5fd | | Load 0x2,-0x3 02a5 0092 0866 | f| Action Push_String_Extended,0x866 ; "Initialize" 02a7 8253 | S | Call 0x1,0x53 02a8 c5fd | | Store 0x2,-0x3 02a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02aa 0000 0000 | | .BLANK 0000[0x6] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 e216 | | Load 0x1,0x16 02b5 017f | | Execute Record,Equal 02b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00d1 | | Pop_Control Pop_Count_1 02bc 00da | | Load_Top At_Offset_2 02bd 01d8 | | Execute Vector,Element_Type 02be 0322 | " | Declare_Variable Record 02bf 00d8 | | Load_Top At_Offset_0 02c0 1c00 | | Execute_Immediate Run_Utility,0x0 02c1 00db | | Load_Top At_Offset_3 02c2 01dc | | Execute Vector,Last 02c3 e5ff | | Load 0x2,-0x1 02c4 01dd | | Execute Vector,First 02c5 0263 | c | Execute Discrete,Above_Bound 02c6 7006 |p | Jump_Nonzero 0x2cd 02c7 00da | | Load_Top At_Offset_2 02c8 00d9 | | Load_Top At_Offset_1 02c9 e5ff | | Load 0x2,-0x1 02ca 01d6 | | Execute Vector,Field_Write 02cb 0a01 | | Execute_Immediate Plus,0x1 02cc 7ff8 | | Jump 0x2c5 02cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02ce 0000 0000 | | .XXX[0x2] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 4801 |H | Short_Literal 0x1 02d4 4800 |H | Short_Literal 0x0 02d5 e219 | | Load 0x1,0x19 02d6 035b | [ | Declare_Type Array,Constrained 02d7 0337 | 7 | Declare_Variable Array 02d8 e219 | | Load 0x1,0x19 02d9 01c6 | | Execute Vector,Convert_To_Formal 02da 00ca | | Action Exit_Nullary_Function 02db 0000 0000 | | .BLANK 0000[0x5] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 01db | | Execute Vector,Length 02e5 0f00 | | Execute_Immediate Equal,0x0 02e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e7 0000 | | .XXX[0x1] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 032d | - | .CONST 0x032d ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0019 | | .CONST 0x0019 ; Number of locals 02eb INIT_02e8: 02eb e23e | > | Load 0x1,0x3e 02ec 0337 | 7 | Declare_Variable Array 02ed e20e | | Load 0x1,0xe 02ee 02c7 | | Declare_Variable Any 02ef e211 | | Load 0x1,0x11 02f0 a403 | | Store_Unchecked 0x2,0x3 02f1 e20e | | Load 0x1,0xe 02f2 02c7 | | Declare_Variable Any 02f3 e211 | | Load 0x1,0x11 02f4 a404 | | Store_Unchecked 0x2,0x4 02f5 e5fe | | Load 0x2,-0x2 02f6 0227 | ' | Execute Access,All_Reference 02f7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02f8 0007 | | Action Break_Optional 02f9 00e3 | | Load_Encached Natural_Cache 02fa 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02fb e5ff | | Load 0x2,-0x1 02fc e00a | | Load 0x0,0xa 02fd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02fe e00a | | Load 0x0,0xa 02ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0300 011e | | Execute Any,Convert 0301 e5fd | | Load 0x2,-0x3 0302 e247 | G | Load 0x1,0x47 0303 01d5 | | Execute Vector,Field_Reference 0304 0007 | | Action Break_Optional 0305 029f 060b | | Declare_Subprogram INIT_0608,For_Call 0307 029f 061b | | Declare_Subprogram INIT_0618,For_Call 0309 e001 | | Load 0x0,0x1 030a 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 030b 00c6 | | Action Check_Subprogram_Elaborated 030c 480a |H | Short_Literal 0xa 030d 4802 |H | Short_Literal 0x2 030e 0099 | | Action Reference_Dynamic 030f e011 | | Load 0x0,0x11 0310 e012 | | Load 0x0,0x12 0311 480e |H | Short_Literal 0xe 0312 0007 | | Action Break_Optional 0313 e001 | | Load 0x0,0x1 0314 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0315 00c6 | | Action Check_Subprogram_Elaborated 0316 480a |H | Short_Literal 0xa 0317 4802 |H | Short_Literal 0x2 0318 0099 | | Action Reference_Dynamic 0319 e013 | | Load 0x0,0x13 031a e014 | | Load 0x0,0x14 031b 4812 |H | Short_Literal 0x12 031c 0007 | | Action Break_Optional 031d 029f 065b | [| Declare_Subprogram INIT_0658,For_Call 031f e001 | | Load 0x0,0x1 0320 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0321 00c6 | | Action Check_Subprogram_Elaborated 0322 4813 |H | Short_Literal 0x13 0323 4802 |H | Short_Literal 0x2 0324 0099 | | Action Reference_Dynamic 0325 e015 | | Load 0x0,0x15 0326 e016 | | Load 0x0,0x16 0327 4817 |H | Short_Literal 0x17 0328 0007 | | Action Break_Optional 0329 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call 032b 029f 074b | K| Declare_Subprogram INIT_0748,For_Call 032d BODY_02e8: 032d 8419 | | Call 0x2,0x19 032e 0831 | 1 | Execute_Immediate Raise,0x31 032f 0000 | | .XXX[0x1] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0359 | Y | .CONST 0x0359 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 000e | | .CONST 0x000e ; Number of locals 0333 INIT_0330: 0333 e23e | > | Load 0x1,0x3e 0334 0337 | 7 | Declare_Variable Array 0335 e20e | | Load 0x1,0xe 0336 02c7 | | Declare_Variable Any 0337 e211 | | Load 0x1,0x11 0338 a403 | | Store_Unchecked 0x2,0x3 0339 e5fe | | Load 0x2,-0x2 033a 0227 | ' | Execute Access,All_Reference 033b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 033c 0007 | | Action Break_Optional 033d 00e3 | | Load_Encached Natural_Cache 033e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 033f e5ff | | Load 0x2,-0x1 0340 e017 | | Load 0x0,0x17 0341 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0342 e017 | | Load 0x0,0x17 0343 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0344 011e | | Execute Any,Convert 0345 e5fd | | Load 0x2,-0x3 0346 e247 | G | Load 0x1,0x47 0347 01d5 | | Execute Vector,Field_Reference 0348 0007 | | Action Break_Optional 0349 029f 076b | k| Declare_Subprogram INIT_0768,For_Call 034b 029f 077b | {| Declare_Subprogram INIT_0778,For_Call 034d e001 | | Load 0x0,0x1 034e 1920 | | Execute Package,Field_Reference,Field_Number 0x20 034f 00c6 | | Action Check_Subprogram_Elaborated 0350 4809 |H | Short_Literal 0x9 0351 4802 |H | Short_Literal 0x2 0352 0099 | | Action Reference_Dynamic 0353 e018 | | Load 0x0,0x18 0354 e019 | | Load 0x0,0x19 0355 480d |H | Short_Literal 0xd 0356 0007 | | Action Break_Optional 0357 029f 0803 | | Declare_Subprogram INIT_0800,For_Call 0359 BODY_0330: 0359 e403 | | Load 0x2,0x3 035a 0120 | | Execute Any,Is_Value 035b 6803 |h | Jump_Zero 0x35f 035c e001 | | Load 0x0,0x1 035d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 035e 7801 |x | Jump 0x360 035f e403 | | Load 0x2,0x3 0360 e5ff | | Load 0x2,-0x1 0361 e017 | | Load 0x0,0x17 0362 186f | o | Execute Package,Field_Execute,Field_Number 0x6f 0363 480a |H | Short_Literal 0xa 0364 4802 |H | Short_Literal 0x2 0365 0099 | | Action Reference_Dynamic 0366 480b |H | Short_Literal 0xb 0367 4802 |H | Short_Literal 0x2 0368 0099 | | Action Reference_Dynamic 0369 e001 | | Load 0x0,0x1 036a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 036b c403 | | Store 0x2,0x3 036c 840e | | Call 0x2,0xe 036d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 036e 0000 0000 | | .XXX[0x2] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0375 00d8 | | Load_Top At_Offset_0 0376 0120 | | Execute Any,Is_Value 0377 7002 |p | Jump_Nonzero 0x37a 0378 00d8 | | Load_Top At_Offset_0 0379 011e | | Execute Any,Convert 037a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037b 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 0384 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0385 00d8 | | Load_Top At_Offset_0 0386 0120 | | Execute Any,Is_Value 0387 7002 |p | Jump_Nonzero 0x38a 0388 00d8 | | Load_Top At_Offset_0 0389 011e | | Execute Any,Convert 038a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038b 0000 0000 | | .BLANK 0000[0x5] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0395 0320 | | Declare_Variable Record,Duplicate 0396 00cd | | Action Spare6_Action 0397 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00da | | Load_Top At_Offset_2 039c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 039d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039e 0000 0000 | | .XXX[0x2] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a5 820f | | Call 0x1,0xf 03a6 6802 |h | Jump_Zero 0x3a9 03a7 00ea | | Load_Encached Null_String_Cache 03a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a9 00da | | Load_Top At_Offset_2 03aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ab e00b | | Load 0x0,0xb 03ac 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03ad 8256 | V | Call 0x1,0x56 03ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03af 0000 | | .XXX[0x1] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03c2 | | .CONST 0x03c2 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0004 | | .CONST 0x0004 ; Number of locals 03b3 INIT_03b0: 03b3 e001 | | Load 0x0,0x1 03b4 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 03b5 02c7 | | Declare_Variable Any 03b6 00db | | Load_Top At_Offset_3 03b7 e001 | | Load 0x0,0x1 03b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03b9 e00b | | Load 0x0,0xb 03ba 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03bb a402 | | Store_Unchecked 0x2,0x2 03bc e002 | | Load 0x0,0x2 03bd 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03be 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 03bf 0322 | " | Declare_Variable Record 03c0 e23e | > | Load 0x1,0x3e 03c1 0337 | 7 | Declare_Variable Array 03c2 BODY_03b0: 03c2 00da | | Load_Top At_Offset_2 03c3 e001 | | Load 0x0,0x1 03c4 180f | | Execute Package,Field_Execute,Field_Number 0xf 03c5 6802 |h | Jump_Zero 0x3c8 03c6 4836 |H6 | Short_Literal 0x36 03c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c8 00da | | Load_Top At_Offset_2 03c9 e006 | | Load 0x0,0x6 03ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03cb 00da | | Load_Top At_Offset_2 03cc 017d | } | Execute Record,Structure_Write 03cd 00d9 | | Load_Top At_Offset_1 03ce 00db | | Load_Top At_Offset_3 03cf e017 | | Load 0x0,0x17 03d0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03d1 480d |H | Short_Literal 0xd 03d2 480e |H | Short_Literal 0xe 03d3 0262 | b | Execute Discrete,In_Range 03d4 7001 |p | Jump_Nonzero 0x3d6 03d5 7833 |x3 | Jump 0x409 03d6 e5ff | | Load 0x2,-0x1 03d7 8250 | P | Call 0x1,0x50 03d8 6802 |h | Jump_Zero 0x3db 03d9 4831 |H1 | Short_Literal 0x31 03da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03db e5ff | | Load 0x2,-0x1 03dc e00b | | Load 0x0,0xb 03dd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03de 6806 |h | Jump_Zero 0x3e5 03df e5ff | | Load 0x2,-0x1 03e0 e00b | | Load 0x0,0xb 03e1 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 03e2 e249 | I | Load 0x1,0x49 03e3 01d7 | | Execute Vector,Field_Read 03e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03e5 e5fe | | Load 0x2,-0x2 03e6 e002 | | Load 0x0,0x2 03e7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03e8 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 03e9 017f | | Execute Record,Equal 03ea 6808 |h | Jump_Zero 0x3f3 03eb 00d8 | | Load_Top At_Offset_0 03ec e5ff | | Load 0x2,-0x1 03ed e006 | | Load 0x0,0x6 03ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ef e006 | | Load 0x0,0x6 03f0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03f1 00d1 | | Pop_Control Pop_Count_1 03f2 7805 |x | Jump 0x3f8 03f3 00d8 | | Load_Top At_Offset_0 03f4 e5fe | | Load 0x2,-0x2 03f5 e006 | | Load 0x0,0x6 03f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03f7 00d1 | | Pop_Control Pop_Count_1 03f8 4808 |H | Short_Literal 0x8 03f9 00d9 | | Load_Top At_Offset_1 03fa 01d7 | | Execute Vector,Field_Read 03fb e002 | | Load 0x0,0x2 03fc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03fd 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03fe 0f00 | | Execute_Immediate Equal,0x0 03ff 4807 |H | Short_Literal 0x7 0400 00da | | Load_Top At_Offset_2 0401 01d7 | | Execute Vector,Field_Read 0402 e002 | | Load 0x0,0x2 0403 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0404 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0405 0f00 | | Execute_Immediate Equal,0x0 0406 e24e | N | Load 0x1,0x4e 0407 01a7 | | Execute Matrix,Field_Read 0408 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0409 00d9 | | Load_Top At_Offset_1 040a 00db | | Load_Top At_Offset_3 040b e00a | | Load 0x0,0xa 040c 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 040d 0aff | | Execute_Immediate Plus,-0x1 040e 460a |F | Jump_Case 0xb 040f 786f |xo | Jump 0x47f ; case 0x0 0410 786e |xn | Jump 0x47f ; case 0x1 0411 786d |xm | Jump 0x47f ; case 0x2 0412 786c |xl | Jump 0x47f ; case 0x3 0413 786b |xk | Jump 0x47f ; case 0x4 0414 786a |xj | Jump 0x47f ; case 0x5 0415 7869 |xi | Jump 0x47f ; case 0x6 0416 7835 |x5 | Jump 0x44c ; case 0x7 0417 7867 |xg | Jump 0x47f ; case 0x8 0418 7866 |xf | Jump 0x47f ; case 0x9 0419 7800 |x | Jump 0x41a ; case 0xa 041a e5ff | | Load 0x2,-0x1 041b e00b | | Load 0x0,0xb 041c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 041d 7003 |p | Jump_Nonzero 0x421 041e e5ff | | Load 0x2,-0x1 041f 8250 | P | Call 0x1,0x50 0420 6829 |h) | Jump_Zero 0x44a 0421 4801 |H | Short_Literal 0x1 0422 4808 |H | Short_Literal 0x8 0423 e402 | | Load 0x2,0x2 0424 8254 | T | Call 0x1,0x54 0425 6824 |h$ | Jump_Zero 0x44a 0426 e5fe | | Load 0x2,-0x2 0427 e002 | | Load 0x0,0x2 0428 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0429 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 042a 017f | | Execute Record,Equal 042b 6808 |h | Jump_Zero 0x434 042c 00d8 | | Load_Top At_Offset_0 042d e5ff | | Load 0x2,-0x1 042e e006 | | Load 0x0,0x6 042f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0430 e006 | | Load 0x0,0x6 0431 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0432 00d1 | | Pop_Control Pop_Count_1 0433 7805 |x | Jump 0x439 0434 00d8 | | Load_Top At_Offset_0 0435 e5fe | | Load 0x2,-0x2 0436 e006 | | Load 0x0,0x6 0437 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0438 00d1 | | Pop_Control Pop_Count_1 0439 4808 |H | Short_Literal 0x8 043a 00d9 | | Load_Top At_Offset_1 043b 01d7 | | Execute Vector,Field_Read 043c e002 | | Load 0x0,0x2 043d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 043e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 043f 0f00 | | Execute_Immediate Equal,0x0 0440 4807 |H | Short_Literal 0x7 0441 00da | | Load_Top At_Offset_2 0442 01d7 | | Execute Vector,Field_Read 0443 e002 | | Load 0x0,0x2 0444 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0445 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0446 0f00 | | Execute_Immediate Equal,0x0 0447 e24f | O | Load 0x1,0x4f 0448 01a7 | | Execute Matrix,Field_Read 0449 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 044a 4836 |H6 | Short_Literal 0x36 044b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 044c e5ff | | Load 0x2,-0x1 044d 8250 | P | Call 0x1,0x50 044e 6802 |h | Jump_Zero 0x451 044f 4834 |H4 | Short_Literal 0x34 0450 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0451 e5ff | | Load 0x2,-0x1 0452 e00b | | Load 0x0,0xb 0453 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0454 6806 |h | Jump_Zero 0x45b 0455 e5ff | | Load 0x2,-0x1 0456 e00b | | Load 0x0,0xb 0457 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0458 e24a | J | Load 0x1,0x4a 0459 01d7 | | Execute Vector,Field_Read 045a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 045b e5fe | | Load 0x2,-0x2 045c e002 | | Load 0x0,0x2 045d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 045e 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 045f 017f | | Execute Record,Equal 0460 6808 |h | Jump_Zero 0x469 0461 00d8 | | Load_Top At_Offset_0 0462 e5ff | | Load 0x2,-0x1 0463 e006 | | Load 0x0,0x6 0464 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0465 e006 | | Load 0x0,0x6 0466 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0467 00d1 | | Pop_Control Pop_Count_1 0468 7805 |x | Jump 0x46e 0469 00d8 | | Load_Top At_Offset_0 046a e5fe | | Load 0x2,-0x2 046b e006 | | Load 0x0,0x6 046c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 046d 00d1 | | Pop_Control Pop_Count_1 046e 4808 |H | Short_Literal 0x8 046f 00d9 | | Load_Top At_Offset_1 0470 01d7 | | Execute Vector,Field_Read 0471 e002 | | Load 0x0,0x2 0472 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0473 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0474 0f00 | | Execute_Immediate Equal,0x0 0475 4807 |H | Short_Literal 0x7 0476 00da | | Load_Top At_Offset_2 0477 01d7 | | Execute Vector,Field_Read 0478 e002 | | Load 0x0,0x2 0479 1b20 | | Execute Package,Field_Read,Field_Number 0x20 047a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 047b 0f00 | | Execute_Immediate Equal,0x0 047c e24f | O | Load 0x1,0x4f 047d 01a7 | | Execute Matrix,Field_Read 047e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 047f 4836 |H6 | Short_Literal 0x36 0480 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0481 0000 0000 | | .BLANK 0000[0x7] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b e25a | Z | Load 0x1,0x5a 048c 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 048d 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 048e e00c | | Load 0x0,0xc 048f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0490 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0491 0000 0000 | | .BLANK 0000[0x7] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 4807 |H | Short_Literal 0x7 049c 00ca | | Action Exit_Nullary_Function 049d 0000 0000 | | .XXX[0x3] 049f 0000 | | 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 4808 |H | Short_Literal 0x8 04a4 00ca | | Action Exit_Nullary_Function 04a5 0000 0000 | | .XXX[0x3] 04a7 0000 | | 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab 00da | | Load_Top At_Offset_2 04ac e001 | | Load 0x0,0x1 04ad 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 04ae 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04af 4bfd |K | Short_Literal 0x3fd 04b0 026e | n | Execute Discrete,Modulo 04b1 00d8 | | Load_Top At_Offset_0 04b2 00e2 | | Load_Encached Integer_Cache 04b3 0260 | ` | Execute Discrete,In_Type 04b4 7001 |p | Jump_Nonzero 0x4b6 04b5 0801 | | Execute_Immediate Raise,0x1 04b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b7 0000 | | .XXX[0x1] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb 00da | | Load_Top At_Offset_2 04bc e001 | | Load 0x0,0x1 04bd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 04be 7005 |p | Jump_Nonzero 0x4c4 04bf 00da | | Load_Top At_Offset_2 04c0 e00b | | Load 0x0,0xb 04c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04c2 0f0c | | Execute_Immediate Equal,0xc 04c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c4 4800 |H | Short_Literal 0x0 04c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c6 0000 0000 | | .XXX[0x2] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc e00b | | Load 0x0,0xb 04cd 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 04ce 4604 |F | Jump_Case 0x5 04cf 780b |x | Jump 0x4db ; case 0x0 04d0 780a |x | Jump 0x4db ; case 0x1 04d1 780b |x | Jump 0x4dd ; case 0x2 04d2 780c |x | Jump 0x4df ; case 0x3 04d3 7800 |x | Jump 0x4d4 ; case 0x4 04d4 00da | | Load_Top At_Offset_2 04d5 8250 | P | Call 0x1,0x50 04d6 6802 |h | Jump_Zero 0x4d9 04d7 4834 |H4 | Short_Literal 0x34 04d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d9 4836 |H6 | Short_Literal 0x36 04da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04db 4833 |H3 | Short_Literal 0x33 04dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04dd 4834 |H4 | Short_Literal 0x34 04de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04df 4835 |H5 | Short_Literal 0x35 04e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e1 0000 0000 | | .BLANK 0000[0x7] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb 4801 |H | Short_Literal 0x1 04ec 00db | | Load_Top At_Offset_3 04ed e00f | | Load 0x0,0xf 04ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04ef 6802 |h | Jump_Zero 0x4f2 04f0 e010 | | Load 0x0,0x10 04f1 0257 | W | Execute Discrete,Raise 04f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f3 0000 0000 | | .BLANK 0000[0x5] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb 00db | | Load_Top At_Offset_3 04fc 4829 |H) | Short_Literal 0x29 04fd 0092 0867 | g| Action Push_String_Extended,0x867 ; "Unexpected exception in Inputs_and_Outputs." 04ff e5ff | | Load 0x2,-0x1 0500 01cc | | Execute Vector,Catenate 0501 0092 0868 | h| Action Push_String_Extended,0x868 ; " (" 0503 01cc | | Execute Vector,Catenate 0504 e00f | | Load 0x0,0xf 0505 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0506 01cc | | Execute Vector,Catenate 0507 01cb | | Execute Vector,Append 0508 e00f | | Load 0x0,0xf 0509 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 050a e00f | | Load 0x0,0xf 050b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 050c c5fe | | Store 0x2,-0x2 050d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 050e 0000 0000 | | .XXX[0x2] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 0518 | | .CONST 0x0518 ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0002 | | .CONST 0x0002 ; Number of locals 0513 INIT_0510: 0513 e001 | | Load 0x0,0x1 0514 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0515 02c7 | | Declare_Variable Any 0516 00d8 | | Load_Top At_Offset_0 0517 1c00 | | Execute_Immediate Run_Utility,0x0 0518 BODY_0510: 0518 00cf | | Action Mark_Auxiliary 0519 e5fd | | Load 0x2,-0x3 051a 4801 |H | Short_Literal 0x1 051b 0263 | c | Execute Discrete,Above_Bound 051c 7008 |p | Jump_Nonzero 0x525 051d e5ff | | Load 0x2,-0x1 051e e001 | | Load 0x0,0x1 051f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0520 e00b | | Load 0x0,0xb 0521 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0522 c402 | | Store 0x2,0x2 0523 00c8 | | Action Pop_Auxiliary_Range 0524 3ff8 |? | Loop_Increasing 0x51d 0525 00ce | | Action Pop_Auxiliary 0526 e002 | | Load 0x0,0x2 0527 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0528 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0529 00d9 | | Load_Top At_Offset_1 052a e00a | | Load 0x0,0xa 052b 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 052c e5fe | | Load 0x2,-0x2 052d 027f | | Execute Discrete,Equal 052e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 052f 0000 | | .XXX[0x1] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 00da | | Load_Top At_Offset_2 0534 e001 | | Load 0x0,0x1 0535 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0536 0f02 | | Execute_Immediate Equal,0x2 0537 6804 |h | Jump_Zero 0x53c 0538 00da | | Load_Top At_Offset_2 0539 e00b | | Load 0x0,0xb 053a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 053b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053c 4800 |H | Short_Literal 0x0 053d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053e 0000 0000 | | .XXX[0x2] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0553 | S | .CONST 0x0553 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0006 | | .CONST 0x0006 ; Number of locals 0543 INIT_0540: 0543 00da | | Load_Top At_Offset_2 0544 01da | | Execute Vector,Bounds 0545 00e9 | | Load_Encached String_Cache 0546 035b | [ | Declare_Type Array,Constrained 0547 0337 | 7 | Declare_Variable Array 0548 00d8 | | Load_Top At_Offset_0 0549 01dd | | Execute Vector,First 054a 00e3 | | Load_Encached Natural_Cache 054b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 054c 00d8 | | Load_Top At_Offset_0 054d 00e3 | | Load_Encached Natural_Cache 054e 03f1 | | Declare_Variable Discrete,With_Value 054f 00e1 | | Load_Encached Boolean_Cache 0550 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0551 029f 082b | +| Declare_Subprogram INIT_0828,For_Call 0553 BODY_0540: 0553 00cf | | Action Mark_Auxiliary 0554 e5ff | | Load 0x2,-0x1 0555 01d9 | | Execute Vector,Reverse_Bounds 0556 0263 | c | Execute Discrete,Above_Bound 0557 7021 |p! | Jump_Nonzero 0x579 0558 00d8 | | Load_Top At_Offset_0 0559 e5ff | | Load 0x2,-0x1 055a 01d7 | | Execute Vector,Field_Read 055b 00d8 | | Load_Top At_Offset_0 055c 0d20 | | Execute_Immediate Less,0x20 055d 700e |p | Jump_Nonzero 0x56c 055e 00d8 | | Load_Top At_Offset_0 055f 0c21 | ! | Execute_Immediate Greater_Equal,0x21 0560 7008 |p | Jump_Nonzero 0x569 0561 00d1 | | Pop_Control Pop_Count_1 0562 e405 | | Load 0x2,0x5 0563 6813 |h | Jump_Zero 0x577 0564 4820 |H | Short_Literal 0x20 0565 8406 | | Call 0x2,0x6 0566 4800 |H | Short_Literal 0x0 0567 a405 | | Store_Unchecked 0x2,0x5 0568 780e |x | Jump 0x577 0569 0f5f | _ | Execute_Immediate Equal,0x5f 056a 77f7 |w | Jump_Nonzero 0x562 056b 7805 |x | Jump 0x571 056c 4809 |H | Short_Literal 0x9 056d 480d |H | Short_Literal 0xd 056e 0262 | b | Execute Discrete,In_Range 056f 77f2 |w | Jump_Nonzero 0x562 0570 7800 |x | Jump 0x571 0571 00d8 | | Load_Top At_Offset_0 0572 e5ff | | Load 0x2,-0x1 0573 01d7 | | Execute Vector,Field_Read 0574 8406 | | Call 0x2,0x6 0575 4801 |H | Short_Literal 0x1 0576 a405 | | Store_Unchecked 0x2,0x5 0577 00c8 | | Action Pop_Auxiliary_Range 0578 3fdf |? | Loop_Increasing 0x558 0579 00ce | | Action Pop_Auxiliary 057a 00db | | Load_Top At_Offset_3 057b 00e2 | | Load_Encached Integer_Cache 057c e404 | | Load 0x2,0x4 057d 0267 | g | Execute Discrete,Predecessor 057e e402 | | Load 0x2,0x2 057f 01cf | | Execute Vector,Slice_Read 0580 e01a | | Load 0x0,0x1a 0581 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0582 00e9 | | Load_Encached String_Cache 0583 01c6 | | Execute Vector,Convert_To_Formal 0584 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0585 0000 0000 | | .XXX[0x3] 0587 0000 | | 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0590 | | .CONST 0x0590 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b 00e1 | | Load_Encached Boolean_Cache 058c e215 | | Load 0x1,0x15 058d 0322 | " | Declare_Variable Record 058e 00d8 | | Load_Top At_Offset_0 058f 1c00 | | Execute_Immediate Run_Utility,0x0 0590 BODY_0588: 0590 00e1 | | Load_Encached Boolean_Cache 0591 00d9 | | Load_Top At_Offset_1 0592 e5ff | | Load 0x2,-0x1 0593 e5fe | | Load 0x2,-0x2 0594 e241 | A | Load 0x1,0x41 0595 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0596 00d1 | | Pop_Control Pop_Count_1 0597 005a | Z | Store_Top Discrete,At_Offset_2 0598 00d9 | | Load_Top At_Offset_1 0599 6802 |h | Jump_Zero 0x59c 059a 00d8 | | Load_Top At_Offset_0 059b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 059c e216 | | Load 0x1,0x16 059d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 059e 0000 0000 | | .XXX[0x2] 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05a7 | | .CONST 0x05a7 ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0002 | | .CONST 0x0002 ; Number of locals 05a3 INIT_05a0: 05a3 e215 | | Load 0x1,0x15 05a4 0322 | " | Declare_Variable Record 05a5 00d8 | | Load_Top At_Offset_0 05a6 1c00 | | Execute_Immediate Run_Utility,0x0 05a7 BODY_05a0: 05a7 00db | | Load_Top At_Offset_3 05a8 00d9 | | Load_Top At_Offset_1 05a9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05aa e5fe | | Load 0x2,-0x2 05ab 00d9 | | Load_Top At_Offset_1 05ac 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05ad e5fc | | Load 0x2,-0x4 05ae e002 | | Load 0x0,0x2 05af 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05b0 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 05b1 017f | | Execute Record,Equal 05b2 6806 |h | Jump_Zero 0x5b9 05b3 00db | | Load_Top At_Offset_3 05b4 e006 | | Load 0x0,0x6 05b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05b6 00d9 | | Load_Top At_Offset_1 05b7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 05b8 7803 |x | Jump 0x5bc 05b9 e5fc | | Load 0x2,-0x4 05ba 00d9 | | Load_Top At_Offset_1 05bb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 05bc e5fd | | Load 0x2,-0x3 05bd 00d9 | | Load_Top At_Offset_1 05be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05bf e5fb | | Load 0x2,-0x5 05c0 4800 |H | Short_Literal 0x0 05c1 00da | | Load_Top At_Offset_2 05c2 e5ff | | Load 0x2,-0x1 05c3 e241 | A | Load 0x1,0x41 05c4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05c5 c5fb | | Store 0x2,-0x5 05c6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05c7 0000 | | .XXX[0x1] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d0 | | .CONST 0x05d0 ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0003 | | .CONST 0x0003 ; Number of locals 05cb INIT_05c8: 05cb e241 | A | Load 0x1,0x41 05cc 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 05cd 0322 | " | Declare_Variable Record 05ce e239 | 9 | Load 0x1,0x39 05cf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05d0 BODY_05c8: 05d0 00d9 | | Load_Top At_Offset_1 05d1 e5ff | | Load 0x2,-0x1 05d2 e241 | A | Load 0x1,0x41 05d3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05d4 00d1 | | Pop_Control Pop_Count_1 05d5 00cf | | Action Mark_Auxiliary 05d6 7821 |x! | Jump 0x5f8 05d7 00d9 | | Load_Top At_Offset_1 05d8 480a |H | Short_Literal 0xa 05d9 e402 | | Load 0x2,0x2 05da e241 | A | Load 0x1,0x41 05db 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05dc e001 | | Load 0x0,0x1 05dd 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 05de 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05df 0092 0869 | i| Action Push_String_Extended,0x869 ; " => " 05e1 01cc | | Execute Vector,Catenate 05e2 e402 | | Load 0x2,0x2 05e3 e241 | A | Load 0x1,0x41 05e4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05e5 e5ff | | Load 0x2,-0x1 05e6 e241 | A | Load 0x1,0x41 05e7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05e8 8227 | ' | Call 0x1,0x27 05e9 01cc | | Execute Vector,Catenate 05ea 0092 086a | j| Action Push_String_Extended,0x86a ; "," 05ec 01cc | | Execute Vector,Catenate 05ed 01cb | | Execute Vector,Append 05ee e5fd | | Load 0x2,-0x3 05ef 01cc | | Execute Vector,Catenate 05f0 e239 | 9 | Load 0x1,0x39 05f1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05f2 003a | : | Store_Top Access,At_Offset_2 05f3 00da | | Load_Top At_Offset_2 05f4 e241 | A | Load 0x1,0x41 05f5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05f6 00d1 | | Pop_Control Pop_Count_1 05f7 00c9 | | Action Pop_Auxiliary_Loop 05f8 00da | | Load_Top At_Offset_2 05f9 e241 | A | Load 0x1,0x41 05fa 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05fb 6fdb |o | Jump_Zero 0x5d7 05fc 00ce | | Action Pop_Auxiliary 05fd e5fd | | Load 0x2,-0x3 05fe 00d9 | | Load_Top At_Offset_1 05ff e239 | 9 | Load 0x1,0x39 0600 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0601 01cc | | Execute Vector,Catenate 0602 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0603 0000 0000 | | .BLANK 0000[0x5] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060b | | .CONST 0x060b ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0001 | | .CONST 0x0001 ; Number of locals 060b BODY_0608: 060b INIT_0608: 060b 00e2 | | Load_Encached Integer_Cache 060c e406 | | Load 0x2,0x6 060d 0268 | h | Execute Discrete,Successor 060e c406 | | Store 0x2,0x6 060f 4800 |H | Short_Literal 0x0 0610 00ca | | Action Exit_Nullary_Function 0611 0000 0000 | | .BLANK 0000[0x7] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 0622 | " | .CONST 0x0622 ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0002 | | .CONST 0x0002 ; Number of locals 061b INIT_0618: 061b e215 | | Load 0x1,0x15 061c 0322 | " | Declare_Variable Record 061d e405 | | Load 0x2,0x5 061e e7ff | | Load 0x3,-0x1 061f 8257 | W | Call 0x1,0x57 0620 00d9 | | Load_Top At_Offset_1 0621 017d | } | Execute Record,Structure_Write 0622 BODY_0618: 0622 00d8 | | Load_Top At_Offset_0 0623 8217 | | Call 0x1,0x17 0624 7009 |p | Jump_Nonzero 0x62e 0625 00d8 | | Load_Top At_Offset_0 0626 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0627 e408 | | Load 0x2,0x8 0628 01d7 | | Execute Vector,Field_Read 0629 6802 |h | Jump_Zero 0x62c 062a 8409 | | Call 0x2,0x9 062b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062c 4801 |H | Short_Literal 0x1 062d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062e 00db | | Load_Top At_Offset_3 062f e006 | | Load 0x0,0x6 0630 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0631 00d9 | | Load_Top At_Offset_1 0632 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0633 e402 | | Load 0x2,0x2 0634 00d9 | | Load_Top At_Offset_1 0635 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0636 e006 | | Load 0x0,0x6 0637 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0638 00d1 | | Pop_Control Pop_Count_1 0639 00db | | Load_Top At_Offset_3 063a 8251 | Q | Call 0x1,0x51 063b 00d9 | | Load_Top At_Offset_1 063c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 063d 00d8 | | Load_Top At_Offset_0 063e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 063f 0f36 | 6 | Execute_Immediate Equal,0x36 0640 6802 |h | Jump_Zero 0x643 0641 4801 |H | Short_Literal 0x1 0642 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0643 e405 | | Load 0x2,0x5 0644 00d9 | | Load_Top At_Offset_1 0645 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0646 e407 | | Load 0x2,0x7 0647 00db | | Load_Top At_Offset_3 0648 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0649 e7ff | | Load 0x3,-0x1 064a 8258 | X | Call 0x1,0x58 064b c405 | | Store 0x2,0x5 064c 00d8 | | Load_Top At_Offset_0 064d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 064e e408 | | Load 0x2,0x8 064f 01d7 | | Execute Vector,Field_Read 0650 6802 |h | Jump_Zero 0x653 0651 8409 | | Call 0x2,0x9 0652 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0653 4801 |H | Short_Literal 0x1 0654 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0655 0000 0000 | | .XXX[0x3] 0657 0000 | | 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 0666 | f | .CONST 0x0666 ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0003 | | .CONST 0x0003 ; Number of locals 065b INIT_0658: 065b e20e | | Load 0x1,0xe 065c 02c7 | | Declare_Variable Any 065d e211 | | Load 0x1,0x11 065e a602 | | Store_Unchecked 0x3,0x2 065f e215 | | Load 0x1,0x15 0660 0322 | " | Declare_Variable Record 0661 e405 | | Load 0x2,0x5 0662 e7ff | | Load 0x3,-0x1 0663 8257 | W | Call 0x1,0x57 0664 00d9 | | Load_Top At_Offset_1 0665 017d | } | Execute Record,Structure_Write 0666 BODY_0658: 0666 00d8 | | Load_Top At_Offset_0 0667 8217 | | Call 0x1,0x17 0668 7009 |p | Jump_Nonzero 0x672 0669 00d8 | | Load_Top At_Offset_0 066a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 066b e408 | | Load 0x2,0x8 066c 01d7 | | Execute Vector,Field_Read 066d 6802 |h | Jump_Zero 0x670 066e 8409 | | Call 0x2,0x9 066f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0670 4801 |H | Short_Literal 0x1 0671 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0672 e7ff | | Load 0x3,-0x1 0673 8250 | P | Call 0x1,0x50 0674 6811 |h | Jump_Zero 0x686 0675 e405 | | Load 0x2,0x5 0676 e002 | | Load 0x0,0x2 0677 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0678 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0679 e407 | | Load 0x2,0x7 067a 4834 |H4 | Short_Literal 0x34 067b e7ff | | Load 0x3,-0x1 067c 8258 | X | Call 0x1,0x58 067d c405 | | Store 0x2,0x5 067e 4834 |H4 | Short_Literal 0x34 067f e408 | | Load 0x2,0x8 0680 01d7 | | Execute Vector,Field_Read 0681 6802 |h | Jump_Zero 0x684 0682 8409 | | Call 0x2,0x9 0683 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0684 4801 |H | Short_Literal 0x1 0685 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0686 e7ff | | Load 0x3,-0x1 0687 e00b | | Load 0x0,0xb 0688 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0689 681a |h | Jump_Zero 0x6a4 068a e7ff | | Load 0x3,-0x1 068b e00b | | Load 0x0,0xb 068c 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 068d e24a | J | Load 0x1,0x4a 068e 01d7 | | Execute Vector,Field_Read 068f 00d9 | | Load_Top At_Offset_1 0690 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0691 e405 | | Load 0x2,0x5 0692 e002 | | Load 0x0,0x2 0693 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0694 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0695 e407 | | Load 0x2,0x7 0696 00db | | Load_Top At_Offset_3 0697 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0698 e7ff | | Load 0x3,-0x1 0699 8258 | X | Call 0x1,0x58 069a c405 | | Store 0x2,0x5 069b 00d8 | | Load_Top At_Offset_0 069c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 069d e408 | | Load 0x2,0x8 069e 01d7 | | Execute Vector,Field_Read 069f 6802 |h | Jump_Zero 0x6a2 06a0 8409 | | Call 0x2,0x9 06a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06a2 4801 |H | Short_Literal 0x1 06a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06a4 e7ff | | Load 0x3,-0x1 06a5 e00b | | Load 0x0,0xb 06a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06a7 e243 | C | Load 0x1,0x43 06a8 01d7 | | Execute Vector,Field_Read 06a9 6835 |h5 | Jump_Zero 0x6df 06aa e7ff | | Load 0x3,-0x1 06ab e006 | | Load 0x0,0x6 06ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06ad 00d9 | | Load_Top At_Offset_1 06ae 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 06af e402 | | Load 0x2,0x2 06b0 00d9 | | Load_Top At_Offset_1 06b1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 06b2 e006 | | Load 0x0,0x6 06b3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06b4 00d1 | | Pop_Control Pop_Count_1 06b5 4808 |H | Short_Literal 0x8 06b6 e402 | | Load 0x2,0x2 06b7 01d7 | | Execute Vector,Field_Read 06b8 e002 | | Load 0x0,0x2 06b9 1b20 | | Execute Package,Field_Read,Field_Number 0x20 06ba 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06bb 0f00 | | Execute_Immediate Equal,0x0 06bc 4807 |H | Short_Literal 0x7 06bd e402 | | Load 0x2,0x2 06be 01d7 | | Execute Vector,Field_Read 06bf e002 | | Load 0x0,0x2 06c0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 06c1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06c2 0f00 | | Execute_Immediate Equal,0x0 06c3 e24f | O | Load 0x1,0x4f 06c4 01a7 | | Execute Matrix,Field_Read 06c5 00d9 | | Load_Top At_Offset_1 06c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06c7 00d8 | | Load_Top At_Offset_0 06c8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06c9 0f36 | 6 | Execute_Immediate Equal,0x36 06ca 6802 |h | Jump_Zero 0x6cd 06cb 4801 |H | Short_Literal 0x1 06cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06cd e405 | | Load 0x2,0x5 06ce 00d9 | | Load_Top At_Offset_1 06cf 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 06d0 e407 | | Load 0x2,0x7 06d1 00db | | Load_Top At_Offset_3 06d2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06d3 e7ff | | Load 0x3,-0x1 06d4 8258 | X | Call 0x1,0x58 06d5 c405 | | Store 0x2,0x5 06d6 00d8 | | Load_Top At_Offset_0 06d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06d8 e408 | | Load 0x2,0x8 06d9 01d7 | | Execute Vector,Field_Read 06da 6802 |h | Jump_Zero 0x6dd 06db 8409 | | Call 0x2,0x9 06dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06dd 4801 |H | Short_Literal 0x1 06de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06df e7ff | | Load 0x3,-0x1 06e0 8255 | U | Call 0x1,0x55 06e1 6836 |h6 | Jump_Zero 0x718 06e2 e7ff | | Load 0x3,-0x1 06e3 e00b | | Load 0x0,0xb 06e4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 06e5 6818 |h | Jump_Zero 0x6fe 06e6 00d9 | | Load_Top At_Offset_1 06e7 0120 | | Execute Any,Is_Value 06e8 6803 |h | Jump_Zero 0x6ec 06e9 e001 | | Load 0x0,0x1 06ea 1b19 | | Execute Package,Field_Read,Field_Number 0x19 06eb 7801 |x | Jump 0x6ed 06ec 00d9 | | Load_Top At_Offset_1 06ed e7ff | | Load 0x3,-0x1 06ee e00b | | Load 0x0,0xb 06ef 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 06f0 480f |H | Short_Literal 0xf 06f1 4802 |H | Short_Literal 0x2 06f2 0099 | | Action Reference_Dynamic 06f3 4810 |H | Short_Literal 0x10 06f4 4802 |H | Short_Literal 0x2 06f5 0099 | | Action Reference_Dynamic 06f6 e001 | | Load 0x0,0x1 06f7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06f8 c602 | | Store 0x3,0x2 06f9 e404 | | Load 0x2,0x4 06fa 00da | | Load_Top At_Offset_2 06fb e001 | | Load 0x0,0x1 06fc 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06fd c404 | | Store 0x2,0x4 06fe 00d9 | | Load_Top At_Offset_1 06ff 0120 | | Execute Any,Is_Value 0700 6803 |h | Jump_Zero 0x704 0701 e001 | | Load 0x0,0x1 0702 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0703 7801 |x | Jump 0x705 0704 00d9 | | Load_Top At_Offset_1 0705 e7ff | | Load 0x3,-0x1 0706 e00b | | Load 0x0,0xb 0707 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0708 480b |H | Short_Literal 0xb 0709 4802 |H | Short_Literal 0x2 070a 0099 | | Action Reference_Dynamic 070b 480c |H | Short_Literal 0xc 070c 4802 |H | Short_Literal 0x2 070d 0099 | | Action Reference_Dynamic 070e e001 | | Load 0x0,0x1 070f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0710 c602 | | Store 0x3,0x2 0711 e404 | | Load 0x2,0x4 0712 00da | | Load_Top At_Offset_2 0713 e001 | | Load 0x0,0x1 0714 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0715 c404 | | Store 0x2,0x4 0716 4801 |H | Short_Literal 0x1 0717 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0718 4801 |H | Short_Literal 0x1 0719 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 071a 0000 0000 | | .BLANK 0000[0x6] 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 072a | * | .CONST 0x072a ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0002 | | .CONST 0x0002 ; Number of locals 0723 INIT_0720: 0723 4801 |H | Short_Literal 0x1 0724 e406 | | Load 0x2,0x6 0725 e219 | | Load 0x1,0x19 0726 035b | [ | Declare_Type Array,Constrained 0727 0337 | 7 | Declare_Variable Array 0728 00d8 | | Load_Top At_Offset_0 0729 1c00 | | Execute_Immediate Run_Utility,0x0 072a BODY_0720: 072a e403 | | Load 0x2,0x3 072b e404 | | Load 0x2,0x4 072c e001 | | Load 0x0,0x1 072d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 072e c403 | | Store 0x2,0x3 072f 00cf | | Action Mark_Auxiliary 0730 00d9 | | Load_Top At_Offset_1 0731 01d9 | | Execute Vector,Reverse_Bounds 0732 0263 | c | Execute Discrete,Above_Bound 0733 700f |p | Jump_Nonzero 0x743 0734 e403 | | Load 0x2,0x3 0735 e001 | | Load 0x0,0x1 0736 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0737 e405 | | Load 0x2,0x5 0738 e241 | A | Load 0x1,0x41 0739 1815 | | Execute Package,Field_Execute,Field_Number 0x15 073a 00d9 | | Load_Top At_Offset_1 073b e602 | | Load 0x3,0x2 073c 01d6 | | Execute Vector,Field_Write 073d e403 | | Load 0x2,0x3 073e e001 | | Load 0x0,0x1 073f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0740 c403 | | Store 0x2,0x3 0741 00c8 | | Action Pop_Auxiliary_Range 0742 3ff1 |? | Loop_Increasing 0x734 0743 00ce | | Action Pop_Auxiliary 0744 00d8 | | Load_Top At_Offset_0 0745 e219 | | Load 0x1,0x19 0746 01c6 | | Execute Vector,Convert_To_Formal 0747 00ca | | Action Exit_Nullary_Function 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 0752 | R | .CONST 0x0752 ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0002 | | .CONST 0x0002 ; Number of locals 074b INIT_0748: 074b e001 | | Load 0x0,0x1 074c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 074d 02c7 | | Declare_Variable Any 074e e5ff | | Load 0x2,-0x1 074f e00a | | Load 0x0,0xa 0750 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0751 a602 | | Store_Unchecked 0x3,0x2 0752 BODY_0748: 0752 e403 | | Load 0x2,0x3 0753 0120 | | Execute Any,Is_Value 0754 6803 |h | Jump_Zero 0x758 0755 e001 | | Load 0x0,0x1 0756 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0757 7801 |x | Jump 0x759 0758 e403 | | Load 0x2,0x3 0759 00d9 | | Load_Top At_Offset_1 075a 4814 |H | Short_Literal 0x14 075b 4802 |H | Short_Literal 0x2 075c 0099 | | Action Reference_Dynamic 075d 4815 |H | Short_Literal 0x15 075e 4802 |H | Short_Literal 0x2 075f 0099 | | Action Reference_Dynamic 0760 e001 | | Load 0x0,0x1 0761 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0762 c403 | | Store 0x2,0x3 0763 8418 | | Call 0x2,0x18 0764 e219 | | Load 0x1,0x19 0765 01c6 | | Execute Vector,Convert_To_Formal 0766 00cb | | Action Pop_Block_With_Result 0767 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076b | k | .CONST 0x076b ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0001 | | .CONST 0x0001 ; Number of locals 076b BODY_0768: 076b INIT_0768: 076b 00e2 | | Load_Encached Integer_Cache 076c e405 | | Load 0x2,0x5 076d 0268 | h | Execute Discrete,Successor 076e c405 | | Store 0x2,0x5 076f 4800 |H | Short_Literal 0x0 0770 00ca | | Action Exit_Nullary_Function 0771 0000 0000 | | .BLANK 0000[0x7] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 0782 | | .CONST 0x0782 ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0002 | | .CONST 0x0002 ; Number of locals 077b INIT_0778: 077b e215 | | Load 0x1,0x15 077c 0322 | " | Declare_Variable Record 077d e404 | | Load 0x2,0x4 077e e7ff | | Load 0x3,-0x1 077f 8257 | W | Call 0x1,0x57 0780 00d9 | | Load_Top At_Offset_1 0781 017d | } | Execute Record,Structure_Write 0782 BODY_0778: 0782 00d8 | | Load_Top At_Offset_0 0783 8217 | | Call 0x1,0x17 0784 7009 |p | Jump_Nonzero 0x78e 0785 00d8 | | Load_Top At_Offset_0 0786 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0787 e407 | | Load 0x2,0x7 0788 01d7 | | Execute Vector,Field_Read 0789 6802 |h | Jump_Zero 0x78c 078a 8408 | | Call 0x2,0x8 078b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 078c 4801 |H | Short_Literal 0x1 078d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 078e 00db | | Load_Top At_Offset_3 078f 8250 | P | Call 0x1,0x50 0790 6811 |h | Jump_Zero 0x7a2 0791 e404 | | Load 0x2,0x4 0792 e002 | | Load 0x0,0x2 0793 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0794 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0795 e406 | | Load 0x2,0x6 0796 4831 |H1 | Short_Literal 0x31 0797 e7ff | | Load 0x3,-0x1 0798 8258 | X | Call 0x1,0x58 0799 c404 | | Store 0x2,0x4 079a 4831 |H1 | Short_Literal 0x31 079b e407 | | Load 0x2,0x7 079c 01d7 | | Execute Vector,Field_Read 079d 6802 |h | Jump_Zero 0x7a0 079e 8408 | | Call 0x2,0x8 079f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07a0 4801 |H | Short_Literal 0x1 07a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07a2 00db | | Load_Top At_Offset_3 07a3 e00b | | Load 0x0,0xb 07a4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 07a5 681a |h | Jump_Zero 0x7c0 07a6 00db | | Load_Top At_Offset_3 07a7 e00b | | Load 0x0,0xb 07a8 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 07a9 e249 | I | Load 0x1,0x49 07aa 01d7 | | Execute Vector,Field_Read 07ab 00d9 | | Load_Top At_Offset_1 07ac 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07ad e404 | | Load 0x2,0x4 07ae e002 | | Load 0x0,0x2 07af 1b20 | | Execute Package,Field_Read,Field_Number 0x20 07b0 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 07b1 e406 | | Load 0x2,0x6 07b2 00db | | Load_Top At_Offset_3 07b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07b4 e7ff | | Load 0x3,-0x1 07b5 8258 | X | Call 0x1,0x58 07b6 c404 | | Store 0x2,0x4 07b7 00d8 | | Load_Top At_Offset_0 07b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07b9 e407 | | Load 0x2,0x7 07ba 01d7 | | Execute Vector,Field_Read 07bb 6802 |h | Jump_Zero 0x7be 07bc 8408 | | Call 0x2,0x8 07bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07be 4801 |H | Short_Literal 0x1 07bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07c0 00db | | Load_Top At_Offset_3 07c1 e00b | | Load 0x0,0xb 07c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07c3 e243 | C | Load 0x1,0x43 07c4 01d7 | | Execute Vector,Field_Read 07c5 6835 |h5 | Jump_Zero 0x7fb 07c6 00db | | Load_Top At_Offset_3 07c7 e006 | | Load 0x0,0x6 07c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07c9 00d9 | | Load_Top At_Offset_1 07ca 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 07cb e402 | | Load 0x2,0x2 07cc 00d9 | | Load_Top At_Offset_1 07cd 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07ce e006 | | Load 0x0,0x6 07cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07d0 00d1 | | Pop_Control Pop_Count_1 07d1 4808 |H | Short_Literal 0x8 07d2 e402 | | Load 0x2,0x2 07d3 01d7 | | Execute Vector,Field_Read 07d4 e002 | | Load 0x0,0x2 07d5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 07d6 181f | | Execute Package,Field_Execute,Field_Number 0x1f 07d7 0f00 | | Execute_Immediate Equal,0x0 07d8 4807 |H | Short_Literal 0x7 07d9 e402 | | Load 0x2,0x2 07da 01d7 | | Execute Vector,Field_Read 07db e002 | | Load 0x0,0x2 07dc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 07dd 181f | | Execute Package,Field_Execute,Field_Number 0x1f 07de 0f00 | | Execute_Immediate Equal,0x0 07df e24e | N | Load 0x1,0x4e 07e0 01a7 | | Execute Matrix,Field_Read 07e1 00d9 | | Load_Top At_Offset_1 07e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07e3 00d8 | | Load_Top At_Offset_0 07e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07e5 0f36 | 6 | Execute_Immediate Equal,0x36 07e6 6802 |h | Jump_Zero 0x7e9 07e7 4801 |H | Short_Literal 0x1 07e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07e9 e404 | | Load 0x2,0x4 07ea 00d9 | | Load_Top At_Offset_1 07eb 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07ec e406 | | Load 0x2,0x6 07ed 00db | | Load_Top At_Offset_3 07ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07ef e7ff | | Load 0x3,-0x1 07f0 8258 | X | Call 0x1,0x58 07f1 c404 | | Store 0x2,0x4 07f2 00d8 | | Load_Top At_Offset_0 07f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07f4 e407 | | Load 0x2,0x7 07f5 01d7 | | Execute Vector,Field_Read 07f6 6802 |h | Jump_Zero 0x7f9 07f7 8408 | | Call 0x2,0x8 07f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f9 4801 |H | Short_Literal 0x1 07fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07fb 4801 |H | Short_Literal 0x1 07fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07fd 0000 0000 | | .XXX[0x3] 07ff 0000 | | 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 080a | | .CONST 0x080a ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0002 | | .CONST 0x0002 ; Number of locals 0803 INIT_0800: 0803 4801 |H | Short_Literal 0x1 0804 e405 | | Load 0x2,0x5 0805 e219 | | Load 0x1,0x19 0806 035b | [ | Declare_Type Array,Constrained 0807 0337 | 7 | Declare_Variable Array 0808 00d8 | | Load_Top At_Offset_0 0809 1c00 | | Execute_Immediate Run_Utility,0x0 080a BODY_0800: 080a 00cf | | Action Mark_Auxiliary 080b 00d9 | | Load_Top At_Offset_1 080c 01d9 | | Execute Vector,Reverse_Bounds 080d 0263 | c | Execute Discrete,Above_Bound 080e 700f |p | Jump_Nonzero 0x81e 080f e403 | | Load 0x2,0x3 0810 e001 | | Load 0x0,0x1 0811 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0812 e404 | | Load 0x2,0x4 0813 e241 | A | Load 0x1,0x41 0814 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0815 00d9 | | Load_Top At_Offset_1 0816 e602 | | Load 0x3,0x2 0817 01d6 | | Execute Vector,Field_Write 0818 e403 | | Load 0x2,0x3 0819 e001 | | Load 0x0,0x1 081a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 081b c403 | | Store 0x2,0x3 081c 00c8 | | Action Pop_Auxiliary_Range 081d 3ff1 |? | Loop_Increasing 0x80f 081e 00ce | | Action Pop_Auxiliary 081f 00d8 | | Load_Top At_Offset_0 0820 e219 | | Load 0x1,0x19 0821 01c6 | | Execute Vector,Convert_To_Formal 0822 00ca | | Action Exit_Nullary_Function 0823 0000 0000 | | .BLANK 0000[0x5] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082b | + | .CONST 0x082b ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0001 | | .CONST 0x0001 ; Number of locals 082b BODY_0828: 082b INIT_0828: 082b 00da | | Load_Top At_Offset_2 082c e404 | | Load 0x2,0x4 082d e402 | | Load 0x2,0x2 082e 01d6 | | Execute Vector,Field_Write 082f 00e2 | | Load_Encached Integer_Cache 0830 e404 | | Load 0x2,0x4 0831 0268 | h | Execute Discrete,Successor 0832 c404 | | Store 0x2,0x4 0833 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0834 0000 0000 | | .BLANK 0000[0x4] 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083b | ; | .CONST 0x083b ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0001 | | .CONST 0x0001 ; Number of locals 083b BODY_0838: 083b INIT_0838: 083b 4608 |F | Jump_Case 0x9 083c 7808 |x | Jump 0x845 ; case 0x0 083d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 083e 7826 |x& | Jump 0x865 ; case 0x2 083f 7825 |x% | Jump 0x865 ; case 0x3 0840 7824 |x$ | Jump 0x865 ; case 0x4 0841 7823 |x# | Jump 0x865 ; case 0x5 0842 7822 |x" | Jump 0x865 ; case 0x6 0843 7821 |x! | Jump 0x865 ; case 0x7 0844 7820 |x | Jump 0x865 ; case 0x8 0845 00da | | Load_Top At_Offset_2 0846 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0847 0125 | % | Execute Any,Set_Constraint 0848 e210 | | Load 0x1,0x10 0849 00db | | Load_Top At_Offset_3 084a 00d9 | | Load_Top At_Offset_1 084b 00d9 | | Load_Top At_Offset_1 084c 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 084d 0119 | | Execute Any,Check_In_Formal_Type 084e 00d1 | | Pop_Control Pop_Count_1 084f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0850 4836 |H6 | Short_Literal 0x36 0851 00db | | Load_Top At_Offset_3 0852 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0853 00da | | Load_Top At_Offset_2 0854 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0855 0125 | % | Execute Any,Set_Constraint 0856 e001 | | Load 0x0,0x1 0857 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0858 00db | | Load_Top At_Offset_3 0859 00d9 | | Load_Top At_Offset_1 085a 00d9 | | Load_Top At_Offset_1 085b 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 085c 0119 | | Execute Any,Check_In_Formal_Type 085d 00d1 | | Pop_Control Pop_Count_1 085e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 085f e002 | | Load 0x0,0x2 0860 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0861 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0862 00db | | Load_Top At_Offset_3 0863 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0864 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0865 0869 | i | Execute_Immediate Raise,0x69 0866 ; -------------------------------------------------------------------------------------- 0866 ; STRING TABLE 0866 ; -------------------------------------------------------------------------------------- 0866 000c | | .STRTAB 0x000c->0x086c ; "Initialize" 0867 0014 | | .STRTAB 0x0014->0x0871 ; "Unexpected exception in Inputs_and_Outputs." 0868 003d | = | .STRTAB 0x003d->0x0886 ; " (" 0869 003d | = | .STRTAB 0x003d->0x0887 ; " => " 086a 003f | ? | .STRTAB 0x003f->0x0889 ; "," 086b 003e | > | .STREND 0x003e->0x088a 086c 496e 6974 |Init| .STRTAB_STRINGS 088a 0000 0000 | | .BLANK 0000[0x6] 0890 ; -------------------------------------------------------------------------------------- 0890 ; Debug Table 0890 ; -------------------------------------------------------------------------------------- 0890 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc594,0x0000,0x0001,0x0000 0896 0000 0000 | | .XXX[0x7] 0898 4000 0002 |@ | 089a 9000 0480 | | 089c 0398 | | 089d 0000 0000 | | .BLANK 0000[0x1b] 08b8 0040 002c | @ ,| .XXX[0x1e] 08ba 7490 b820 |t | 08bc 5a40 0002 |Z@ | 08be 65d6 c970 |e p| 08c0 1001 0000 | | 08c2 9c00 0000 | | 08c4 32af 4000 |2 @ | 08c6 1400 0000 | | 08c8 1300 2800 | ( | 08ca 0005 1000 | | 08cc 0002 0000 | | 08ce 0011 0000 | | 08d0 0000 0800 | | 08d2 0000 5200 | R | 08d4 0090 0073 | s| 08d6 0000 0000 | | .BLANK 0000[0x1b] 08f1 0008 0005 | | .XXX[0x3] 08f3 8e90 | | 08f4 0000 0000 | | .BLANK 0000[0xd] 0901 0020 0500 | | .XXX[0xc] 0903 0000 0000 | | 0905 0000 4000 | @ | 0907 0002 2000 | | 0909 0000 0100 | | 090b 0000 0a00 | | 090d 0000 0000 | | .BLANK 0000[0x2d] 093a 0004 00a0 | | .XXX[0xc] 093c 0000 0000 | | 093e 0000 0800 | | 0940 0000 4400 | D | 0942 0000 0020 | | 0944 0000 0140 | @| 0946 0000 0000 | | .BLANK 0000[0x2e] 0974 8014 0000 | | .XXX[0xb] 0976 0000 0000 | | 0978 0100 0000 | | 097a 0880 0000 | | 097c 0004 0000 | | 097e 0028 | ( | 097f 0000 0000 | | .BLANK 0000[0x2e] 09ad 1002 8000 | | .XXX[0xb] 09af 0000 0000 | | 09b1 0020 0000 | | 09b3 0110 0000 | | 09b5 0000 8000 | | 09b7 0005 | | 09b8 0000 0000 | | .BLANK 0000[0x48]