|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0a10 | | .CONST 0x0a10 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00d6 | | .CONST 0x00d6 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0035 | 5 | .CONST 0x0035 ; Number of locals 000b INIT_0008: 000b 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 000d 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 000e 00c4 | | Action Make_Default 000f 4800 |H | Short_Literal 0x0 0010 61d7 |a | Indirect_Literal Discrete,0x1e8,{0x00000000, 0x0000ffff} 0011 00e3 | | Load_Encached Natural_Cache 0012 03f9 | | Declare_Type Discrete,Constrained,Visible 0013 4800 |H | Short_Literal 0x0 0014 4803 |H | Short_Literal 0x3 0015 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0017 03fe | | Declare_Type Discrete,Defined,Visible 0018 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 001a 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 001c 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 001e 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0020 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0022 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0024 00e3 | | Load_Encached Natural_Cache 0025 0266 | f | Execute Discrete,Bounds 0026 e210 | | Load 0x1,0x10 0027 02a0 | | Declare_Subprogram Null_Subprogram 0028 4801 |H | Short_Literal 0x1 0029 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 002a 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 002c 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 002e 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0030 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 0038 c21f | | Store 0x1,0x1f 0039 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 003b c220 | | Store 0x1,0x20 003c 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 003e c21d | | Store 0x1,0x1d 003f 4806 |H | Short_Literal 0x6 0040 032a | * | Declare_Type Record,Incomplete 0041 c21e | | Store 0x1,0x1e 0042 00da | | Load_Top At_Offset_2 0043 02a0 | | Declare_Subprogram Null_Subprogram 0044 e20e | | Load 0x1,0xe 0045 03a3 | | Complete_Type Heap_Access,By_Defining 0046 e20e | | Load 0x1,0xe 0047 0129 | ) | Execute Any,Make_Visible 0048 c20f | | Store 0x1,0xf 0049 00bf | | Action Accept_Activation 004a 4801 |H | Short_Literal 0x1 004b 4805 |H | Short_Literal 0x5 004c 00e3 | | Load_Encached Natural_Cache 004d 03f8 | | Declare_Type Discrete,Constrained 004e 4800 |H | Short_Literal 0x0 004f 6194 |a | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x00001fff} 0050 00e3 | | Load_Encached Natural_Cache 0051 03f8 | | Declare_Type Discrete,Constrained 0052 e001 | | Load 0x0,0x1 0053 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0054 00da | | Load_Top At_Offset_2 0055 e002 | | Load 0x0,0x2 0056 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0057 029f 0413 | | Declare_Subprogram INIT_0410,For_Call 0059 4803 |H | Short_Literal 0x3 005a 032d | - | Declare_Type Record,Defined 005b 00e9 | | Load_Encached String_Cache 005c 02a0 | | Declare_Subprogram Null_Subprogram 005d 03ad | | Declare_Type Heap_Access,Defined 005e 00e2 | | Load_Encached Integer_Cache 005f e002 | | Load 0x0,0x2 0060 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0061 e002 | | Load 0x0,0x2 0062 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0063 e211 | | Load 0x1,0x11 0064 e001 | | Load 0x0,0x1 0065 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0066 e224 | $ | Load 0x1,0x24 0067 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 0069 e21e | | Load 0x1,0x1e 006a 0326 | & | Complete_Type Record,By_Defining 006b 029b 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Unelaborated 006d 029b 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Unelaborated 006f e003 | | Load 0x0,0x3 0070 e004 | | Load 0x0,0x4 0071 4865 |He | Short_Literal 0x65 0072 e210 | | Load 0x1,0x10 0073 e223 | # | Load 0x1,0x23 0074 e20e | | Load 0x1,0xe 0075 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0076 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0077 e005 | | Load 0x0,0x5 0078 0387 | | Declare_Variable Package 0079 00d8 | | Load_Top At_Offset_0 007a 020f | | Execute Module,Activate 007b e006 | | Load 0x0,0x6 007c e007 | | Load 0x0,0x7 007d 4865 |He | Short_Literal 0x65 007e e223 | # | Load 0x1,0x23 007f e008 | | Load 0x0,0x8 0080 0387 | | Declare_Variable Package 0081 00d8 | | Load_Top At_Offset_0 0082 020f | | Execute Module,Activate 0083 e009 | | Load 0x0,0x9 0084 e00a | | Load 0x0,0xa 0085 00e2 | | Load_Encached Integer_Cache 0086 e002 | | Load 0x0,0x2 0087 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0088 0387 | | Declare_Variable Package 0089 00d8 | | Load_Top At_Offset_0 008a 020f | | Execute Module,Activate 008b e00b | | Load 0x0,0xb 008c e00c | | Load 0x0,0xc 008d 00e9 | | Load_Encached String_Cache 008e e002 | | Load 0x0,0x2 008f 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0090 0387 | | Declare_Variable Package 0091 00d8 | | Load_Top At_Offset_0 0092 020f | | Execute Module,Activate 0093 e00d | | Load 0x0,0xd 0094 e00e | | Load 0x0,0xe 0095 00e9 | | Load_Encached String_Cache 0096 e224 | $ | Load 0x1,0x24 0097 e002 | | Load 0x0,0x2 0098 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0099 0387 | | Declare_Variable Package 009a 00d8 | | Load_Top At_Offset_0 009b 020f | | Execute Module,Activate 009c e00f | | Load 0x0,0xf 009d e010 | | Load 0x0,0x10 009e e001 | | Load 0x0,0x1 009f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00a0 e011 | | Load 0x0,0x11 00a1 0387 | | Declare_Variable Package 00a2 00d8 | | Load_Top At_Offset_0 00a3 020f | | Execute Module,Activate 00a4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00b5 00c7 | | Action Elaborate_Subprogram 00b6 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 00b8 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call 00ba 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call 00bc 029d 050b | | Declare_Subprogram INIT_0508,For_Outer_Call 00be 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00bf 00c7 | | Action Elaborate_Subprogram 00c0 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 00c2 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00c9 00c7 | | Action Elaborate_Subprogram 00ca 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call 00cc 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call 00ce 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call 00d0 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call 00d2 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d5 00c7 | | Action Elaborate_Subprogram 00d6 BODY_0008: 00d6 00bc | | Action Signal_Activated 00d7 00bb | | Action Signal_Completion 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00ff | | .CONST 0x00ff ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 000f | | .CONST 0x000f ; Number of locals 00db INIT_00d8: 00db e20e | | Load 0x1,0xe 00dc e012 | | Load 0x0,0x12 00dd 180d | | Execute Package,Field_Execute,Field_Number 0xd 00de 039c | | Declare_Variable Heap_Access,By_Allocation 00df e20e | | Load 0x1,0xe 00e0 0007 | | Action Break_Optional 00e1 00e2 | | Load_Encached Integer_Cache 00e2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e3 e228 | ( | Load 0x1,0x28 00e4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00e5 e228 | ( | Load 0x1,0x28 00e6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00e7 0322 | " | Declare_Variable Record 00e8 e013 | | Load 0x0,0x13 00e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ea 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00eb 02c7 | | Declare_Variable Any 00ec 00d8 | | Load_Top At_Offset_0 00ed 1c00 | | Execute_Immediate Run_Utility,0x0 00ee e013 | | Load 0x0,0x13 00ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f1 e002 | | Load 0x0,0x2 00f2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00f3 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call 00f5 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call 00f7 029f 06cb | | Declare_Subprogram INIT_06c8,For_Call 00f9 029f 06e3 | | Declare_Subprogram INIT_06e0,For_Call 00fb 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call 00fd 029f 07bb | | Declare_Subprogram INIT_07b8,For_Call 00ff BODY_00d8: 00ff e20e | | Load 0x1,0xe 0100 0092 09cb | | Action Push_String_Extended,0x9cb ; "Error '~@~' (~#~) encountered processing ~1~ ~2~ ~3~" 0102 4807 |H | Short_Literal 0x7 0103 4802 |H | Short_Literal 0x2 0104 0092 09cc | | Action Push_String_Extended,0x9cc ; "!Machine.Target_Builder.Message_File" 0106 8212 | | Call 0x1,0x12 0107 c403 | | Store 0x2,0x3 0108 e402 | | Load 0x2,0x2 0109 0219 | | Execute Heap_Access,All_Read 010a 00d8 | | Load_Top At_Offset_0 010b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010c e5fd | | Load 0x2,-0x3 010d 4802 |H | Short_Literal 0x2 010e 8232 | 2 | Call 0x1,0x32 010f 00d9 | | Load_Top At_Offset_1 0110 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0111 00d1 | | Pop_Control Pop_Count_1 0112 4800 |H | Short_Literal 0x0 0113 e002 | | Load 0x0,0x2 0114 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0115 e402 | | Load 0x2,0x2 0116 0217 | | Execute Heap_Access,All_Reference 0117 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0118 e229 | ) | Load 0x1,0x29 0119 1812 | | Execute Package,Field_Execute,Field_Number 0x12 011a e002 | | Load 0x0,0x2 011b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 011c e402 | | Load 0x2,0x2 011d 0217 | | Execute Heap_Access,All_Reference 011e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 011f e229 | ) | Load 0x1,0x29 0120 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0121 e402 | | Load 0x2,0x2 0122 0217 | | Execute Heap_Access,All_Reference 0123 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0124 e402 | | Load 0x2,0x2 0125 0217 | | Execute Heap_Access,All_Reference 0126 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0127 e402 | | Load 0x2,0x2 0128 0217 | | Execute Heap_Access,All_Reference 0129 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 012a e227 | ' | Load 0x1,0x27 012b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 012c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 012d e228 | ( | Load 0x1,0x28 012e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 012f 4865 |He | Short_Literal 0x65 0130 e012 | | Load 0x0,0x12 0131 180d | | Execute Package,Field_Execute,Field_Number 0xd 0132 e228 | ( | Load 0x1,0x28 0133 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0134 c405 | | Store 0x2,0x5 0135 e013 | | Load 0x0,0x13 0136 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0137 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0138 e407 | | Load 0x2,0x7 0139 60a6 |` | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00004000} 013a e014 | | Load 0x0,0x14 013b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013c e015 | | Load 0x0,0x15 013d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 013e e016 | | Load 0x0,0x16 013f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0140 4801 |H | Short_Literal 0x1 0141 4800 |H | Short_Literal 0x0 0142 e015 | | Load 0x0,0x15 0143 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0144 e013 | | Load 0x0,0x13 0145 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0146 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0147 e5ff | | Load 0x2,-0x1 0148 e013 | | Load 0x0,0x13 0149 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 014a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 014b c407 | | Store 0x2,0x7 014c c408 | | Store 0x2,0x8 014d e408 | | Load 0x2,0x8 014e 7061 |pa | Jump_Nonzero 0x1b0 014f 00cf | | Action Mark_Auxiliary 0150 780b |x | Jump 0x15c 0151 e407 | | Load 0x2,0x7 0152 e013 | | Load 0x0,0x13 0153 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0154 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0155 840d | | Call 0x2,0xd 0156 e407 | | Load 0x2,0x7 0157 e013 | | Load 0x0,0x13 0158 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0159 181d | | Execute Package,Field_Execute,Field_Number 0x1d 015a c407 | | Store 0x2,0x7 015b 00c9 | | Action Pop_Auxiliary_Loop 015c e407 | | Load 0x2,0x7 015d e013 | | Load 0x0,0x13 015e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0160 6ff0 |o | Jump_Zero 0x151 0161 00ce | | Action Pop_Auxiliary 0162 e013 | | Load 0x0,0x13 0163 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0165 e407 | | Load 0x2,0x7 0166 6079 |`y | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00004000} 0167 e014 | | Load 0x0,0x14 0168 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0169 e015 | | Load 0x0,0x15 016a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016b e016 | | Load 0x0,0x16 016c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016d 4801 |H | Short_Literal 0x1 016e 4800 |H | Short_Literal 0x0 016f e015 | | Load 0x0,0x15 0170 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0171 e013 | | Load 0x0,0x13 0172 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0173 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0174 e5fe | | Load 0x2,-0x2 0175 e013 | | Load 0x0,0x13 0176 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0177 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0178 c407 | | Store 0x2,0x7 0179 c408 | | Store 0x2,0x8 017a e408 | | Load 0x2,0x8 017b 702a |p* | Jump_Nonzero 0x1a6 017c 00cf | | Action Mark_Auxiliary 017d 7809 |x | Jump 0x187 017e e407 | | Load 0x2,0x7 017f 840f | | Call 0x2,0xf 0180 c407 | | Store 0x2,0x7 0181 e407 | | Load 0x2,0x7 0182 e013 | | Load 0x0,0x13 0183 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0184 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0185 c407 | | Store 0x2,0x7 0186 00c9 | | Action Pop_Auxiliary_Loop 0187 e407 | | Load 0x2,0x7 0188 e013 | | Load 0x0,0x13 0189 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 018a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 018b 6ff2 |o | Jump_Zero 0x17e 018c 00ce | | Action Pop_Auxiliary 018d e406 | | Load 0x2,0x6 018e e405 | | Load 0x2,0x5 018f e228 | ( | Load 0x1,0x28 0190 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0191 00d1 | | Pop_Control Pop_Count_1 0192 00cf | | Action Mark_Auxiliary 0193 780c |x | Jump 0x1a0 0194 4800 |H | Short_Literal 0x0 0195 e406 | | Load 0x2,0x6 0196 e228 | ( | Load 0x1,0x28 0197 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0198 4820 |H | Short_Literal 0x20 0199 e403 | | Load 0x2,0x3 019a 821b | | Call 0x1,0x1b 019b e406 | | Load 0x2,0x6 019c e228 | ( | Load 0x1,0x28 019d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 019e 00d1 | | Pop_Control Pop_Count_1 019f 00c9 | | Action Pop_Auxiliary_Loop 01a0 e406 | | Load 0x2,0x6 01a1 e228 | ( | Load 0x1,0x28 01a2 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01a3 6ff0 |o | Jump_Zero 0x194 01a4 00ce | | Action Pop_Auxiliary 01a5 7813 |x | Jump 0x1b9 01a6 4800 |H | Short_Literal 0x0 01a7 e5fe | | Load 0x2,-0x2 01a8 e408 | | Load 0x2,0x8 01a9 e013 | | Load 0x0,0x13 01aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ac 4821 |H! | Short_Literal 0x21 01ad e403 | | Load 0x2,0x3 01ae 821b | | Call 0x1,0x1b 01af 7809 |x | Jump 0x1b9 01b0 4800 |H | Short_Literal 0x0 01b1 e5ff | | Load 0x2,-0x1 01b2 e408 | | Load 0x2,0x8 01b3 e013 | | Load 0x0,0x13 01b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b6 4822 |H" | Short_Literal 0x22 01b7 e403 | | Load 0x2,0x3 01b8 821b | | Call 0x1,0x1b 01b9 e404 | | Load 0x2,0x4 01ba e002 | | Load 0x0,0x2 01bb 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01bc e402 | | Load 0x2,0x2 01bd 0217 | | Execute Heap_Access,All_Reference 01be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01bf e229 | ) | Load 0x1,0x29 01c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c1 4800 |H | Short_Literal 0x0 01c2 e402 | | Load 0x2,0x2 01c3 0217 | | Execute Heap_Access,All_Reference 01c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c5 e002 | | Load 0x0,0x2 01c6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01c7 4820 |H | Short_Literal 0x20 01c8 4800 |H | Short_Literal 0x0 01c9 480a |H | Short_Literal 0xa 01ca e404 | | Load 0x2,0x4 01cb e017 | | Load 0x0,0x17 01cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01cd 821d | | Call 0x1,0x1d 01ce 4823 |H# | Short_Literal 0x23 01cf e403 | | Load 0x2,0x3 01d0 821b | | Call 0x1,0x1b 01d1 e402 | | Load 0x2,0x2 01d2 0219 | | Execute Heap_Access,All_Read 01d3 e002 | | Load 0x0,0x2 01d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d5 00d9 | | Load_Top At_Offset_1 01d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d7 e002 | | Load 0x0,0x2 01d8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01d9 00da | | Load_Top At_Offset_2 01da 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01db c409 | | Store 0x2,0x9 01dc 00d1 | | Pop_Control Pop_Count_1 01dd e403 | | Load 0x2,0x3 01de 8213 | | Call 0x1,0x13 01df 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01e4 0000 0000 | | .LITERAL {0x00000000, 0x00001fff} 01e8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 4607 |F | Jump_Case 0x8 01f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01f5 7806 |x | Jump 0x1fc ; case 0x1 01f6 7809 |x | Jump 0x200 ; case 0x2 01f7 780d |x | Jump 0x205 ; case 0x3 01f8 7810 |x | Jump 0x209 ; case 0x4 01f9 7811 |x | Jump 0x20b ; case 0x5 01fa 7812 |x | Jump 0x20d ; case 0x6 01fb 7815 |x | Jump 0x211 ; case 0x7 01fc 00da | | Load_Top At_Offset_2 01fd 0091 09c7 | | Action Push_String_Extended_Indexed,0x9c7 ; "DEFAULT" 01ff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0200 00db | | Load_Top At_Offset_3 0201 00db | | Load_Top At_Offset_3 0202 00e0 | | Load_Encached Standard_Cache 0203 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0204 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0205 00da | | Load_Top At_Offset_2 0206 00e0 | | Load_Encached Standard_Cache 0207 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0208 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0209 00db | | Load_Top At_Offset_3 020a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 020b 00db | | Load_Top At_Offset_3 020c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 020d e211 | | Load 0x1,0x11 020e 00dc | | Load_Top At_Offset_4 020f 0267 | g | Execute Discrete,Predecessor 0210 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0211 e211 | | Load 0x1,0x11 0212 00dc | | Load_Top At_Offset_4 0213 0268 | h | Execute Discrete,Successor 0214 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0215 0000 0000 | | .XXX[0x3] 0217 0000 | | 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0221 | ! | .CONST 0x0221 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0003 | | .CONST 0x0003 ; Number of locals 021b INIT_0218: 021b e20e | | Load 0x1,0xe 021c e012 | | Load 0x0,0x12 021d 180d | | Execute Package,Field_Execute,Field_Number 0xd 021e 039c | | Declare_Variable Heap_Access,By_Allocation 021f e002 | | Load 0x0,0x2 0220 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0221 BODY_0218: 0221 00d9 | | Load_Top At_Offset_1 0222 0219 | | Execute Heap_Access,All_Read 0223 e002 | | Load 0x0,0x2 0224 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0225 00d9 | | Load_Top At_Offset_1 0226 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0227 4800 |H | Short_Literal 0x0 0228 6043 |`C | Indirect_Literal Discrete,0x26c,{0x00000000, 0x00004000} 0229 e014 | | Load 0x0,0x14 022a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022b e015 | | Load 0x0,0x15 022c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 022d e002 | | Load 0x0,0x2 022e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 022f 4800 |H | Short_Literal 0x0 0230 e5ff | | Load 0x2,-0x1 0231 4800 |H | Short_Literal 0x0 0232 e002 | | Load 0x0,0x2 0233 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0234 00da | | Load_Top At_Offset_2 0235 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0236 005a | Z | Store_Top Discrete,At_Offset_2 0237 00d1 | | Pop_Control Pop_Count_1 0238 00d9 | | Load_Top At_Offset_1 0239 0217 | | Execute Heap_Access,All_Reference 023a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023b e002 | | Load 0x0,0x2 023c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 023d 6815 |h | Jump_Zero 0x253 023e e002 | | Load 0x0,0x2 023f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0240 00da | | Load_Top At_Offset_2 0241 0217 | | Execute Heap_Access,All_Reference 0242 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0243 e229 | ) | Load 0x1,0x29 0244 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0245 00da | | Load_Top At_Offset_2 0246 0217 | | Execute Heap_Access,All_Reference 0247 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0248 e002 | | Load 0x0,0x2 0249 1817 | | Execute Package,Field_Execute,Field_Number 0x17 024a 00da | | Load_Top At_Offset_2 024b 0217 | | Execute Heap_Access,All_Reference 024c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 024d e229 | ) | Load 0x1,0x29 024e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 024f 00da | | Load_Top At_Offset_2 0250 0217 | | Execute Heap_Access,All_Reference 0251 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0252 7804 |x | Jump 0x257 0253 4800 |H | Short_Literal 0x0 0254 00da | | Load_Top At_Offset_2 0255 0217 | | Execute Heap_Access,All_Reference 0256 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0257 e5fe | | Load 0x2,-0x2 0258 00da | | Load_Top At_Offset_2 0259 0217 | | Execute Heap_Access,All_Reference 025a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 025b e5fd | | Load 0x2,-0x3 025c 00da | | Load_Top At_Offset_2 025d 0217 | | Execute Heap_Access,All_Reference 025e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 025f e5fc | | Load 0x2,-0x4 0260 e224 | $ | Load 0x1,0x24 0261 e012 | | Load 0x0,0x12 0262 180d | | Execute Package,Field_Execute,Field_Number 0xd 0263 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0264 00da | | Load_Top At_Offset_2 0265 0217 | | Execute Heap_Access,All_Reference 0266 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0267 00d9 | | Load_Top At_Offset_1 0268 a5fb | | Store_Unchecked 0x2,-0x5 0269 4505 |E | Exit_Suprogram New_Top_Offset 0x5 026a 0000 0000 | | .XXX[0x2] 026c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0275 | u | .CONST 0x0275 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 e002 | | Load 0x0,0x2 0274 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0275 BODY_0270: 0275 00db | | Load_Top At_Offset_3 0276 0217 | | Execute Heap_Access,All_Reference 0277 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0278 e002 | | Load 0x0,0x2 0279 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 027a 680c |h | Jump_Zero 0x287 027b 00db | | Load_Top At_Offset_3 027c 0219 | | Execute Heap_Access,All_Read 027d e002 | | Load 0x0,0x2 027e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 027f 00d9 | | Load_Top At_Offset_1 0280 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0281 e002 | | Load 0x0,0x2 0282 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0283 00da | | Load_Top At_Offset_2 0284 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0285 005a | Z | Store_Top Discrete,At_Offset_2 0286 00d1 | | Pop_Control Pop_Count_1 0287 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 00da | | Load_Top At_Offset_2 028c 6806 |h | Jump_Zero 0x293 028d 00da | | Load_Top At_Offset_2 028e 0217 | | Execute Heap_Access,All_Reference 028f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0290 e002 | | Load 0x0,0x2 0291 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0292 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0293 4800 |H | Short_Literal 0x0 0294 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0295 0000 0000 | | .XXX[0x3] 0297 0000 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02a7 | | .CONST 0x02a7 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00db | | Load_Top At_Offset_3 029c 00db | | Load_Top At_Offset_3 029d 0217 | | Execute Heap_Access,All_Reference 029e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 029f e5ff | | Load 0x2,-0x1 02a0 0217 | | Execute Heap_Access,All_Reference 02a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a2 e227 | ' | Load 0x1,0x27 02a3 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 02a4 180d | | Execute Package,Field_Execute,Field_Number 0xd 02a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a7 TRAP_0298: 02a7 0007 | | Action Break_Optional 02a8 00db | | Load_Top At_Offset_3 02a9 0217 | | Execute Heap_Access,All_Reference 02aa 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 02bf | | .CONST 0x02bf ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00db | | Load_Top At_Offset_3 02b4 00db | | Load_Top At_Offset_3 02b5 0217 | | Execute Heap_Access,All_Reference 02b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02b7 e5ff | | Load 0x2,-0x1 02b8 0217 | | Execute Heap_Access,All_Reference 02b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ba e227 | ' | Load 0x1,0x27 02bb 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 02bc 180d | | Execute Package,Field_Execute,Field_Number 0xd 02bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02bf TRAP_02b0: 02bf 0007 | | Action Break_Optional 02c0 4800 |H | Short_Literal 0x0 02c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c2 0000 0000 | | .BLANK 0000[0x6] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 02dc | | .CONST 0x02dc ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00db | | Load_Top At_Offset_3 02cc 00db | | Load_Top At_Offset_3 02cd 0217 | | Execute Heap_Access,All_Reference 02ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02cf e5ff | | Load 0x2,-0x1 02d0 0217 | | Execute Heap_Access,All_Reference 02d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d2 e227 | ' | Load 0x1,0x27 02d3 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 02d4 180d | | Execute Package,Field_Execute,Field_Number 0xd 02d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02d6 00db | | Load_Top At_Offset_3 02d7 0217 | | Execute Heap_Access,All_Reference 02d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d9 e22a | * | Load 0x1,0x2a 02da 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02dc TRAP_02c8: 02dc 0007 | | Action Break_Optional 02dd 00db | | Load_Top At_Offset_3 02de 0217 | | Execute Heap_Access,All_Reference 02df 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 02e0 0217 | | Execute Heap_Access,All_Reference 02e1 0335 | 5 | Declare_Variable Array,Duplicate 02e2 00cd | | Action Spare6_Action 02e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02e4 0000 0000 | | .BLANK 0000[0x4] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f7 | | .CONST 0x02f7 ; Address of begin 02e9 0323 | # | .CONST 0x0323 ; Address of exception handler 02ea 0003 | | .CONST 0x0003 ; Number of locals 02eb INIT_02e8: 02eb 4801 |H | Short_Literal 0x1 02ec 00db | | Load_Top At_Offset_3 02ed 0217 | | Execute Heap_Access,All_Reference 02ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ef e218 | | Load 0x1,0x18 02f0 035b | [ | Declare_Type Array,Constrained 02f1 0337 | 7 | Declare_Variable Array 02f2 e227 | ' | Load 0x1,0x27 02f3 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 02f4 0322 | " | Declare_Variable Record 02f5 00d8 | | Load_Top At_Offset_0 02f6 1c00 | | Execute_Immediate Run_Utility,0x0 02f7 BODY_02e8: 02f7 00d8 | | Load_Top At_Offset_0 02f8 e5ff | | Load 0x2,-0x1 02f9 0217 | | Execute Heap_Access,All_Reference 02fa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02fb e5ff | | Load 0x2,-0x1 02fc 0217 | | Execute Heap_Access,All_Reference 02fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02fe e227 | ' | Load 0x1,0x27 02ff 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0300 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0301 00d1 | | Pop_Control Pop_Count_1 0302 00cf | | Action Mark_Auxiliary 0303 00da | | Load_Top At_Offset_2 0304 01d9 | | Execute Vector,Reverse_Bounds 0305 0263 | c | Execute Discrete,Above_Bound 0306 7017 |p | Jump_Nonzero 0x31e 0307 e5ff | | Load 0x2,-0x1 0308 0217 | | Execute Heap_Access,All_Reference 0309 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 030a e403 | | Load 0x2,0x3 030b e227 | ' | Load 0x1,0x27 030c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 030d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 030e 00d9 | | Load_Top At_Offset_1 030f e402 | | Load 0x2,0x2 0310 01d6 | | Execute Vector,Field_Write 0311 00db | | Load_Top At_Offset_3 0312 e5ff | | Load 0x2,-0x1 0313 0217 | | Execute Heap_Access,All_Reference 0314 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0315 e5ff | | Load 0x2,-0x1 0316 0217 | | Execute Heap_Access,All_Reference 0317 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0318 e227 | ' | Load 0x1,0x27 0319 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 031a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 031b 00d1 | | Pop_Control Pop_Count_1 031c 00c8 | | Action Pop_Auxiliary_Range 031d 3fe9 |? | Loop_Increasing 0x307 031e 00ce | | Action Pop_Auxiliary 031f 00d9 | | Load_Top At_Offset_1 0320 e218 | | Load 0x1,0x18 0321 01c6 | | Execute Vector,Convert_To_Formal 0322 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0323 TRAP_02e8: 0323 0007 | | Action Break_Optional 0324 4801 |H | Short_Literal 0x1 0325 4800 |H | Short_Literal 0x0 0326 e218 | | Load 0x1,0x18 0327 0334 | 4 | Declare_Variable Array,With_Constraint 0328 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0329 0000 0000 | | .BLANK 0000[0x7] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0339 | 9 | .CONST 0x0339 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0003 | | .CONST 0x0003 ; Number of locals 0333 INIT_0330: 0333 e223 | # | Load 0x1,0x23 0334 0322 | " | Declare_Variable Record 0335 00d8 | | Load_Top At_Offset_0 0336 1c00 | | Execute_Immediate Run_Utility,0x0 0337 00e1 | | Load_Encached Boolean_Cache 0338 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0339 BODY_0330: 0339 e5ff | | Load 0x2,-0x1 033a 0217 | | Execute Heap_Access,All_Reference 033b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 033c e002 | | Load 0x0,0x2 033d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 033e 680e |h | Jump_Zero 0x34d 033f 00e1 | | Load_Encached Boolean_Cache 0340 00da | | Load_Top At_Offset_2 0341 e5fe | | Load 0x2,-0x2 0342 e5ff | | Load 0x2,-0x1 0343 0217 | | Execute Heap_Access,All_Reference 0344 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0345 e5ff | | Load 0x2,-0x1 0346 0217 | | Execute Heap_Access,All_Reference 0347 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0348 e227 | ' | Load 0x1,0x27 0349 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 034a 180e | | Execute Package,Field_Execute,Field_Number 0xe 034b 00d1 | | Pop_Control Pop_Count_1 034c 0059 | Y | Store_Top Discrete,At_Offset_1 034d 00d8 | | Load_Top At_Offset_0 034e 680e |h | Jump_Zero 0x35d 034f e5ff | | Load 0x2,-0x1 0350 e5fc | | Load 0x2,-0x4 0351 8230 | 0 | Call 0x1,0x30 0352 e5fd | | Load 0x2,-0x3 0353 00db | | Load_Top At_Offset_3 0354 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0355 e5ff | | Load 0x2,-0x1 0356 0217 | | Execute Heap_Access,All_Reference 0357 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0358 e22a | * | Load 0x1,0x2a 0359 1811 | | Execute Package,Field_Execute,Field_Number 0x11 035a e5fe | | Load 0x2,-0x2 035b 822f | / | Call 0x1,0x2f 035c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 035d e5ff | | Load 0x2,-0x1 035e e5fc | | Load 0x2,-0x4 035f 8230 | 0 | Call 0x1,0x30 0360 e5fd | | Load 0x2,-0x3 0361 480a |H | Short_Literal 0xa 0362 0092 09cd | | Action Push_String_Extended,0x9cd ; "SPARE_" 0364 4820 |H | Short_Literal 0x20 0365 4800 |H | Short_Literal 0x0 0366 480a |H | Short_Literal 0xa 0367 e5fe | | Load 0x2,-0x2 0368 e017 | | Load 0x0,0x17 0369 1816 | | Execute Package,Field_Execute,Field_Number 0x16 036a 01cc | | Execute Vector,Catenate 036b 01cb | | Execute Vector,Append 036c e5ff | | Load 0x2,-0x1 036d 0217 | | Execute Heap_Access,All_Reference 036e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 036f 0217 | | Execute Heap_Access,All_Reference 0370 01cc | | Execute Vector,Catenate 0371 e5fe | | Load 0x2,-0x2 0372 822f | / | Call 0x1,0x2f 0373 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0374 0000 0000 | | .BLANK 0000[0x4] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b e001 | | Load 0x0,0x1 037c 180e | | Execute Package,Field_Execute,Field_Number 0xe 037d e5fc | | Load 0x2,-0x4 037e e5fd | | Load 0x2,-0x3 037f e5fe | | Load 0x2,-0x2 0380 e5ff | | Load 0x2,-0x1 0381 821f | | Call 0x1,0x1f 0382 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0383 0000 0000 | | .BLANK 0000[0x5] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b e001 | | Load 0x0,0x1 038c 180e | | Execute Package,Field_Execute,Field_Number 0xe 038d e5fb | | Load 0x2,-0x5 038e e5fc | | Load 0x2,-0x4 038f e5fd | | Load 0x2,-0x3 0390 e5fe | | Load 0x2,-0x2 0391 e5ff | | Load 0x2,-0x1 0392 8220 | | Call 0x1,0x20 0393 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0394 0000 0000 | | .BLANK 0000[0x4] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a1 | | .CONST 0x03a1 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0003 | | .CONST 0x0003 ; Number of locals 039b INIT_0398: 039b e223 | # | Load 0x1,0x23 039c 0322 | " | Declare_Variable Record 039d 00d8 | | Load_Top At_Offset_0 039e 1c00 | | Execute_Immediate Run_Utility,0x0 039f 00e1 | | Load_Encached Boolean_Cache 03a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03a1 BODY_0398: 03a1 e5ff | | Load 0x2,-0x1 03a2 0217 | | Execute Heap_Access,All_Reference 03a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03a4 e002 | | Load 0x0,0x2 03a5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03a6 680e |h | Jump_Zero 0x3b5 03a7 00e1 | | Load_Encached Boolean_Cache 03a8 00da | | Load_Top At_Offset_2 03a9 e5fe | | Load 0x2,-0x2 03aa e5ff | | Load 0x2,-0x1 03ab 0217 | | Execute Heap_Access,All_Reference 03ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03ad e5ff | | Load 0x2,-0x1 03ae 0217 | | Execute Heap_Access,All_Reference 03af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b0 e227 | ' | Load 0x1,0x27 03b1 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 03b2 180e | | Execute Package,Field_Execute,Field_Number 0xe 03b3 00d1 | | Pop_Control Pop_Count_1 03b4 0059 | Y | Store_Top Discrete,At_Offset_1 03b5 00d8 | | Load_Top At_Offset_0 03b6 6812 |h | Jump_Zero 0x3c9 03b7 e5fb | | Load 0x2,-0x5 03b8 00da | | Load_Top At_Offset_2 03b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ba e5ff | | Load 0x2,-0x1 03bb e5fc | | Load 0x2,-0x4 03bc 8230 | 0 | Call 0x1,0x30 03bd e5fd | | Load 0x2,-0x3 03be e402 | | Load 0x2,0x2 03bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03c0 e5ff | | Load 0x2,-0x1 03c1 0217 | | Execute Heap_Access,All_Reference 03c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c3 e22a | * | Load 0x1,0x2a 03c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03c5 e5fe | | Load 0x2,-0x2 03c6 822f | / | Call 0x1,0x2f 03c7 8231 | 1 | Call 0x1,0x31 03c8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03c9 e5fb | | Load 0x2,-0x5 03ca e5ff | | Load 0x2,-0x1 03cb 0217 | | Execute Heap_Access,All_Reference 03cc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03cd e5ff | | Load 0x2,-0x1 03ce e5fc | | Load 0x2,-0x4 03cf 8230 | 0 | Call 0x1,0x30 03d0 e5fd | | Load 0x2,-0x3 03d1 480a |H | Short_Literal 0xa 03d2 0092 09cd | | Action Push_String_Extended,0x9cd ; "SPARE_" 03d4 4820 |H | Short_Literal 0x20 03d5 4800 |H | Short_Literal 0x0 03d6 480a |H | Short_Literal 0xa 03d7 e5fe | | Load 0x2,-0x2 03d8 e017 | | Load 0x0,0x17 03d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03da 01cc | | Execute Vector,Catenate 03db 01cb | | Execute Vector,Append 03dc e5ff | | Load 0x2,-0x1 03dd 0217 | | Execute Heap_Access,All_Reference 03de 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 03df 0217 | | Execute Heap_Access,All_Reference 03e0 01cc | | Execute Vector,Catenate 03e1 e5fe | | Load 0x2,-0x2 03e2 822f | / | Call 0x1,0x2f 03e3 e018 | | Load 0x0,0x18 03e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03e5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03e6 0000 0000 | | .XXX[0x2] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f5 | | .CONST 0x03f5 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0004 | | .CONST 0x0004 ; Number of locals 03eb INIT_03e8: 03eb e5fb | | Load 0x2,-0x5 03ec e5fc | | Load 0x2,-0x4 03ed e5fd | | Load 0x2,-0x3 03ee e5ff | | Load 0x2,-0x1 03ef 821a | | Call 0x1,0x1a 03f0 00d8 | | Load_Top At_Offset_0 03f1 01dd | | Execute Vector,First 03f2 00e2 | | Load_Encached Integer_Cache 03f3 03f1 | | Declare_Variable Discrete,With_Value 03f4 00e2 | | Load_Encached Integer_Cache 03f5 BODY_03e8: 03f5 e5fa | | Load 0x2,-0x6 03f6 e5fe | | Load 0x2,-0x2 03f7 e5fb | | Load 0x2,-0x5 03f8 e5fc | | Load 0x2,-0x4 03f9 e5fd | | Load 0x2,-0x3 03fa e5ff | | Load 0x2,-0x1 03fb 821a | | Call 0x1,0x1a 03fc 8231 | 1 | Call 0x1,0x31 03fd 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03fe 0000 0000 | | .XXX[0x2] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 480a |H | Short_Literal 0xa 0404 00db | | Load_Top At_Offset_3 0405 01cb | | Execute Vector,Append 0406 e5fe | | Load 0x2,-0x2 0407 01cc | | Execute Vector,Catenate 0408 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0409 0000 0000 | | .BLANK 0000[0x7] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 4608 |F | Jump_Case 0x9 0414 7808 |x | Jump 0x41d ; case 0x0 0415 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0416 780d |x | Jump 0x424 ; case 0x2 0417 780c |x | Jump 0x424 ; case 0x3 0418 780b |x | Jump 0x424 ; case 0x4 0419 780a |x | Jump 0x424 ; case 0x5 041a 7809 |x | Jump 0x424 ; case 0x6 041b 7808 |x | Jump 0x424 ; case 0x7 041c 7807 |x | Jump 0x424 ; case 0x8 041d 00da | | Load_Top At_Offset_2 041e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 041f 0125 | % | Execute Any,Set_Constraint 0420 00da | | Load_Top At_Offset_2 0421 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0422 1c00 | | Execute_Immediate Run_Utility,0x0 0423 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0424 0869 | i | Execute_Immediate Raise,0x69 0425 0000 0000 | | .XXX[0x3] 0427 0000 | | 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 4608 |F | Jump_Case 0x9 042c 7808 |x | Jump 0x435 ; case 0x0 042d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 042e 7813 |x | Jump 0x442 ; case 0x2 042f 7812 |x | Jump 0x442 ; case 0x3 0430 7811 |x | Jump 0x442 ; case 0x4 0431 7810 |x | Jump 0x442 ; case 0x5 0432 780f |x | Jump 0x442 ; case 0x6 0433 780e |x | Jump 0x442 ; case 0x7 0434 780d |x | Jump 0x442 ; case 0x8 0435 00da | | Load_Top At_Offset_2 0436 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0437 0125 | % | Execute Any,Set_Constraint 0438 00da | | Load_Top At_Offset_2 0439 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 043a 1c00 | | Execute_Immediate Run_Utility,0x0 043b 00da | | Load_Top At_Offset_2 043c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 043d 0125 | % | Execute Any,Set_Constraint 043e 00da | | Load_Top At_Offset_2 043f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0440 1c00 | | Execute_Immediate Run_Utility,0x0 0441 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0442 0869 | i | Execute_Immediate Raise,0x69 0443 0000 0000 | | .BLANK 0000[0x5] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 00da | | Load_Top At_Offset_2 044c 0217 | | Execute Heap_Access,All_Reference 044d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 044e 00d8 | | Load_Top At_Offset_0 044f 0120 | | Execute Any,Is_Value 0450 7002 |p | Jump_Nonzero 0x453 0451 00d8 | | Load_Top At_Offset_0 0452 011e | | Execute Any,Convert 0453 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 00da | | Load_Top At_Offset_2 045c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045d 0000 0000 | | .XXX[0x3] 045f 0000 | | 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0469 | i | .CONST 0x0469 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 00e2 | | Load_Encached Integer_Cache 0464 00db | | Load_Top At_Offset_3 0465 01dd | | Execute Vector,First 0466 0aff | | Execute_Immediate Plus,-0x1 0467 00e2 | | Load_Encached Integer_Cache 0468 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0469 BODY_0460: 0469 00cf | | Action Mark_Auxiliary 046a e5fe | | Load 0x2,-0x2 046b 4801 |H | Short_Literal 0x1 046c 0263 | c | Execute Discrete,Above_Bound 046d 7015 |p | Jump_Nonzero 0x483 046e 00db | | Load_Top At_Offset_3 046f 0a01 | | Execute_Immediate Plus,0x1 0470 c402 | | Store 0x2,0x2 0471 4800 |H | Short_Literal 0x0 0472 e402 | | Load 0x2,0x2 0473 e5ff | | Load 0x2,-0x1 0474 01dc | | Execute Vector,Last 0475 e5ff | | Load 0x2,-0x1 0476 01cf | | Execute Vector,Slice_Read 0477 480a |H | Short_Literal 0xa 0478 e017 | | Load 0x0,0x17 0479 181e | | Execute Package,Field_Execute,Field_Number 0x1e 047a a403 | | Store_Unchecked 0x2,0x3 047b 00db | | Load_Top At_Offset_3 047c 7004 |p | Jump_Nonzero 0x481 047d e5ff | | Load 0x2,-0x1 047e 01dc | | Execute Vector,Last 047f 0a01 | | Execute_Immediate Plus,0x1 0480 c403 | | Store 0x2,0x3 0481 00c8 | | Action Pop_Auxiliary_Range 0482 3feb |? | Loop_Increasing 0x46e 0483 00ce | | Action Pop_Auxiliary 0484 00d9 | | Load_Top At_Offset_1 0485 00d9 | | Load_Top At_Offset_1 0486 0aff | | Execute_Immediate Plus,-0x1 0487 00d8 | | Load_Top At_Offset_0 0488 00e2 | | Load_Encached Integer_Cache 0489 0260 | ` | Execute Discrete,In_Type 048a 7001 |p | Jump_Nonzero 0x48c 048b 0801 | | Execute_Immediate Raise,0x1 048c e5ff | | Load 0x2,-0x1 048d 01cf | | Execute Vector,Slice_Read 048e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 048f 0000 | | .XXX[0x1] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 049d | | .CONST 0x049d ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0004 | | .CONST 0x0004 ; Number of locals 0493 INIT_0490: 0493 4800 |H | Short_Literal 0x0 0494 e5fd | | Load 0x2,-0x3 0495 487e |H~ | Short_Literal 0x7e 0496 e017 | | Load 0x0,0x17 0497 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0498 00e2 | | Load_Encached Integer_Cache 0499 03f1 | | Declare_Variable Discrete,With_Value 049a 00e2 | | Load_Encached Integer_Cache 049b 029f 08b3 | | Declare_Subprogram INIT_08b0,For_Call 049d BODY_0490: 049d 00da | | Load_Top At_Offset_2 049e 0c01 | | Execute_Immediate Greater_Equal,0x1 049f 6841 |hA | Jump_Zero 0x4e1 04a0 4800 |H | Short_Literal 0x0 04a1 00db | | Load_Top At_Offset_3 04a2 0a01 | | Execute_Immediate Plus,0x1 04a3 00d8 | | Load_Top At_Offset_0 04a4 00e2 | | Load_Encached Integer_Cache 04a5 0260 | ` | Execute Discrete,In_Type 04a6 7001 |p | Jump_Nonzero 0x4a8 04a7 0801 | | Execute_Immediate Raise,0x1 04a8 e5fd | | Load 0x2,-0x3 04a9 01dc | | Execute Vector,Last 04aa e5fd | | Load 0x2,-0x3 04ab 01cf | | Execute Vector,Slice_Read 04ac 487e |H~ | Short_Literal 0x7e 04ad e017 | | Load 0x0,0x17 04ae 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04af 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 04b0 00d9 | | Load_Top At_Offset_1 04b1 0c01 | | Execute_Immediate Greater_Equal,0x1 04b2 682e |h. | Jump_Zero 0x4e1 04b3 e5fd | | Load 0x2,-0x3 04b4 01dd | | Execute Vector,First 04b5 00db | | Load_Top At_Offset_3 04b6 0aff | | Execute_Immediate Plus,-0x1 04b7 00d8 | | Load_Top At_Offset_0 04b8 00e2 | | Load_Encached Integer_Cache 04b9 0260 | ` | Execute Discrete,In_Type 04ba 7001 |p | Jump_Nonzero 0x4bc 04bb 0801 | | Execute_Immediate Raise,0x1 04bc e5fd | | Load 0x2,-0x3 04bd 01cf | | Execute Vector,Slice_Read 04be 00db | | Load_Top At_Offset_3 04bf 0a01 | | Execute_Immediate Plus,0x1 04c0 00d8 | | Load_Top At_Offset_0 04c1 00e2 | | Load_Encached Integer_Cache 04c2 0260 | ` | Execute Discrete,In_Type 04c3 7001 |p | Jump_Nonzero 0x4c5 04c4 0801 | | Execute_Immediate Raise,0x1 04c5 00db | | Load_Top At_Offset_3 04c6 0aff | | Execute_Immediate Plus,-0x1 04c7 00d8 | | Load_Top At_Offset_0 04c8 00e2 | | Load_Encached Integer_Cache 04c9 0260 | ` | Execute Discrete,In_Type 04ca 7001 |p | Jump_Nonzero 0x4cc 04cb 0801 | | Execute_Immediate Raise,0x1 04cc e5fd | | Load 0x2,-0x3 04cd 01cf | | Execute Vector,Slice_Read 04ce 8404 | | Call 0x2,0x4 04cf 01cc | | Execute Vector,Catenate 04d0 e5fc | | Load 0x2,-0x4 04d1 00db | | Load_Top At_Offset_3 04d2 0a01 | | Execute_Immediate Plus,0x1 04d3 00d8 | | Load_Top At_Offset_0 04d4 00e2 | | Load_Encached Integer_Cache 04d5 0260 | ` | Execute Discrete,In_Type 04d6 7001 |p | Jump_Nonzero 0x4d8 04d7 0801 | | Execute_Immediate Raise,0x1 04d8 e5fd | | Load 0x2,-0x3 04d9 01dc | | Execute Vector,Last 04da e5fd | | Load 0x2,-0x3 04db 01cf | | Execute Vector,Slice_Read 04dc e5fe | | Load 0x2,-0x2 04dd e5ff | | Load 0x2,-0x1 04de 822e | . | Call 0x1,0x2e 04df 01cc | | Execute Vector,Catenate 04e0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04e1 e5fd | | Load 0x2,-0x3 04e2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04e3 0000 0000 | | .BLANK 0000[0x5] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04f3 | | .CONST 0x04f3 ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0002 | | .CONST 0x0002 ; Number of locals 04eb INIT_04e8: 04eb e5fc | | Load 0x2,-0x4 04ec 00d8 | | Load_Top At_Offset_0 04ed 00e4 | | Load_Encached Positive_Cache 04ee 0260 | ` | Execute Discrete,In_Type 04ef 7001 |p | Jump_Nonzero 0x4f1 04f0 0801 | | Execute_Immediate Raise,0x1 04f1 e5fe | | Load 0x2,-0x2 04f2 822d | - | Call 0x1,0x2d 04f3 BODY_04e8: 04f3 00d8 | | Load_Top At_Offset_0 04f4 01db | | Execute Vector,Length 04f5 7008 |p | Jump_Nonzero 0x4fe 04f6 e211 | | Load 0x1,0x11 04f7 e5fc | | Load 0x2,-0x4 04f8 0267 | g | Execute Discrete,Predecessor 04f9 e5fd | | Load 0x2,-0x3 04fa e5fe | | Load 0x2,-0x2 04fb e5ff | | Load 0x2,-0x1 04fc 822f | / | Call 0x1,0x2f 04fd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04fe e5fd | | Load 0x2,-0x3 04ff 00d9 | | Load_Top At_Offset_1 0500 4801 |H | Short_Literal 0x1 0501 e5fe | | Load 0x2,-0x2 0502 822d | - | Call 0x1,0x2d 0503 e5ff | | Load 0x2,-0x1 0504 822e | . | Call 0x1,0x2e 0505 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0506 0000 0000 | | .XXX[0x2] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b 00da | | Load_Top At_Offset_2 050c 7004 |p | Jump_Nonzero 0x511 050d 00db | | Load_Top At_Offset_3 050e 0217 | | Execute Heap_Access,All_Reference 050f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0510 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0511 00da | | Load_Top At_Offset_2 0512 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0513 0000 0000 | | .BLANK 0000[0x5] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 0520 | | .CONST 0x0520 ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0003 | | .CONST 0x0003 ; Number of locals 051b INIT_0518: 051b 00da | | Load_Top At_Offset_2 051c 01dd | | Execute Vector,First 051d 00e2 | | Load_Encached Integer_Cache 051e 03f1 | | Declare_Variable Discrete,With_Value 051f 00e2 | | Load_Encached Integer_Cache 0520 BODY_0518: 0520 00cf | | Action Mark_Auxiliary 0521 4800 |H | Short_Literal 0x0 0522 00db | | Load_Top At_Offset_3 0523 e5ff | | Load 0x2,-0x1 0524 01dc | | Execute Vector,Last 0525 e5ff | | Load 0x2,-0x1 0526 01cf | | Execute Vector,Slice_Read 0527 480a |H | Short_Literal 0xa 0528 e017 | | Load 0x0,0x17 0529 181e | | Execute Package,Field_Execute,Field_Number 0x1e 052a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 052b 00d9 | | Load_Top At_Offset_1 052c 6813 |h | Jump_Zero 0x540 052d e5fd | | Load 0x2,-0x3 052e e5fe | | Load 0x2,-0x2 052f e402 | | Load 0x2,0x2 0530 e403 | | Load 0x2,0x3 0531 0aff | | Execute_Immediate Plus,-0x1 0532 00d8 | | Load_Top At_Offset_0 0533 00e2 | | Load_Encached Integer_Cache 0534 0260 | ` | Execute Discrete,In_Type 0535 7001 |p | Jump_Nonzero 0x537 0536 0801 | | Execute_Immediate Raise,0x1 0537 e5ff | | Load 0x2,-0x1 0538 01cf | | Execute Vector,Slice_Read 0539 e018 | | Load 0x0,0x18 053a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 053b 00d9 | | Load_Top At_Offset_1 053c 0a01 | | Execute_Immediate Plus,0x1 053d 005b | [ | Store_Top Discrete,At_Offset_3 053e 00c9 | | Action Pop_Auxiliary_Loop 053f 7fe1 | | Jump 0x521 0540 00ce | | Action Pop_Auxiliary 0541 e5fd | | Load 0x2,-0x3 0542 e5fe | | Load 0x2,-0x2 0543 00db | | Load_Top At_Offset_3 0544 e5ff | | Load 0x2,-0x1 0545 01dc | | Execute Vector,Last 0546 e5ff | | Load 0x2,-0x1 0547 01cf | | Execute Vector,Slice_Read 0548 e018 | | Load 0x0,0x18 0549 1813 | | Execute Package,Field_Execute,Field_Number 0x13 054a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 054b 0000 0000 | | .BLANK 0000[0x5] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 056b | k | .CONST 0x056b ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0006 | | .CONST 0x0006 ; Number of locals 0553 INIT_0550: 0553 e019 | | Load 0x0,0x19 0554 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0555 02c7 | | Declare_Variable Any 0556 00d8 | | Load_Top At_Offset_0 0557 1c00 | | Execute_Immediate Run_Utility,0x0 0558 e013 | | Load 0x0,0x13 0559 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 055a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 055b 02c7 | | Declare_Variable Any 055c 00d8 | | Load_Top At_Offset_0 055d 1c00 | | Execute_Immediate Run_Utility,0x0 055e e013 | | Load 0x0,0x13 055f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0560 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0561 02c7 | | Declare_Variable Any 0562 00d8 | | Load_Top At_Offset_0 0563 1c00 | | Execute_Immediate Run_Utility,0x0 0564 e013 | | Load 0x0,0x13 0565 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0566 e013 | | Load 0x0,0x13 0567 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0568 02ff | | Declare_Variable Variant_Record 0569 00d8 | | Load_Top At_Offset_0 056a 1c00 | | Execute_Immediate Run_Utility,0x0 056b BODY_0550: 056b e002 | | Load 0x0,0x2 056c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 056d e5fd | | Load 0x2,-0x3 056e 4800 |H | Short_Literal 0x0 056f 607c |`| | Indirect_Literal Discrete,0x5ec,{0x00000000, 0x00004000} 0570 e014 | | Load 0x0,0x14 0571 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0572 e015 | | Load 0x0,0x15 0573 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0574 e002 | | Load 0x0,0x2 0575 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0576 4800 |H | Short_Literal 0x0 0577 e5fe | | Load 0x2,-0x2 0578 e5ff | | Load 0x2,-0x1 0579 e002 | | Load 0x0,0x2 057a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 057b c5fd | | Store 0x2,-0x3 057c 005a | Z | Store_Top Discrete,At_Offset_2 057d 00d9 | | Load_Top At_Offset_1 057e 460e |F | Jump_Case 0xf 057f 7810 |x | Jump 0x590 ; case 0x0 0580 780d |x | Jump 0x58e ; case 0x1 0581 780c |x | Jump 0x58e ; case 0x2 0582 780b |x | Jump 0x58e ; case 0x3 0583 780a |x | Jump 0x58e ; case 0x4 0584 7809 |x | Jump 0x58e ; case 0x5 0585 7808 |x | Jump 0x58e ; case 0x6 0586 7807 |x | Jump 0x58e ; case 0x7 0587 7806 |x | Jump 0x58e ; case 0x8 0588 7810 |x | Jump 0x599 ; case 0x9 0589 7804 |x | Jump 0x58e ; case 0xa 058a 7803 |x | Jump 0x58e ; case 0xb 058b 7802 |x | Jump 0x58e ; case 0xc 058c 7801 |x | Jump 0x58e ; case 0xd 058d 7800 |x | Jump 0x58e ; case 0xe 058e 4940 |I@ | Short_Literal 0x140 058f 0257 | W | Execute Discrete,Raise 0590 e5ff | | Load 0x2,-0x1 0591 0f02 | | Execute_Immediate Equal,0x2 0592 6805 |h | Jump_Zero 0x598 0593 e002 | | Load 0x0,0x2 0594 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0595 e5fd | | Load 0x2,-0x3 0596 e002 | | Load 0x0,0x2 0597 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0598 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0599 e013 | | Load 0x0,0x13 059a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059b 00db | | Load_Top At_Offset_3 059c 0120 | | Execute Any,Is_Value 059d 6802 |h | Jump_Zero 0x5a0 059e 00f1 | | Load_Encached Diana_Temp_Seq 059f 7801 |x | Jump 0x5a1 05a0 00db | | Load_Top At_Offset_3 05a1 e403 | | Load 0x2,0x3 05a2 0120 | | Execute Any,Is_Value 05a3 6804 |h | Jump_Zero 0x5a8 05a4 e013 | | Load 0x0,0x13 05a5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 05a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05a7 7801 |x | Jump 0x5a9 05a8 e403 | | Load 0x2,0x3 05a9 e402 | | Load 0x2,0x2 05aa 0120 | | Execute Any,Is_Value 05ab 6803 |h | Jump_Zero 0x5af 05ac e019 | | Load 0x0,0x19 05ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ae 7801 |x | Jump 0x5b0 05af e402 | | Load 0x2,0x2 05b0 e406 | | Load 0x2,0x6 05b1 603a |`: | Indirect_Literal Discrete,0x5ec,{0x00000000, 0x00004000} 05b2 e014 | | Load 0x0,0x14 05b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b4 4800 |H | Short_Literal 0x0 05b5 e013 | | Load 0x0,0x13 05b6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 05b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b8 e013 | | Load 0x0,0x13 05b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05ba 602d |`- | Indirect_Literal Discrete,0x5e8,{0x00000000, 0x7fffffff} 05bb 4ffc |O | Short_Literal -0x4 05bc 4ffd |O | Short_Literal -0x3 05bd e015 | | Load 0x0,0x15 05be 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05bf e013 | | Load 0x0,0x13 05c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05c2 e013 | | Load 0x0,0x13 05c3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05c4 e002 | | Load 0x0,0x2 05c5 180f | | Execute Package,Field_Execute,Field_Number 0xf 05c6 e5fe | | Load 0x2,-0x2 05c7 e013 | | Load 0x0,0x13 05c8 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 05c9 180f | | Execute Package,Field_Execute,Field_Number 0xf 05ca 00d1 | | Pop_Control Pop_Count_1 05cb c402 | | Store 0x2,0x2 05cc c403 | | Store 0x2,0x3 05cd c404 | | Store 0x2,0x4 05ce 005a | Z | Store_Top Discrete,At_Offset_2 05cf 00d9 | | Load_Top At_Offset_1 05d0 6802 |h | Jump_Zero 0x5d3 05d1 4920 |I | Short_Literal 0x120 05d2 0257 | W | Execute Discrete,Raise 05d3 e002 | | Load 0x0,0x2 05d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05d5 00d9 | | Load_Top At_Offset_1 05d6 e5fd | | Load 0x2,-0x3 05d7 4800 |H | Short_Literal 0x0 05d8 6013 |` | Indirect_Literal Discrete,0x5ec,{0x00000000, 0x00004000} 05d9 e014 | | Load 0x0,0x14 05da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05db e5ff | | Load 0x2,-0x1 05dc e002 | | Load 0x0,0x2 05dd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05de c5fd | | Store 0x2,-0x3 05df 00d1 | | Pop_Control Pop_Count_1 05e0 005a | Z | Store_Top Discrete,At_Offset_2 05e1 00d9 | | Load_Top At_Offset_1 05e2 6802 |h | Jump_Zero 0x5e5 05e3 4940 |I@ | Short_Literal 0x140 05e4 0257 | W | Execute Discrete,Raise 05e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05e6 0000 0000 | | .XXX[0x2] 05e8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 05ec 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 05fa | | .CONST 0x05fa ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 4820 |H | Short_Literal 0x20 05f4 00db | | Load_Top At_Offset_3 05f5 e01a | | Load 0x0,0x1a 05f6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 05f7 e017 | | Load 0x0,0x17 05f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05fa TRAP_05f0: 05fa 00d8 | | Load_Top At_Offset_0 05fb 0107 | | Execute Exception,Get_Name 05fc 4950 |IP | Short_Literal 0x150 05fd 495f |I_ | Short_Literal 0x15f 05fe 0262 | b | Execute Discrete,In_Range 05ff 6802 |h | Jump_Zero 0x602 0600 00ea | | Load_Encached Null_String_Cache 0601 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0602 0100 | | Execute Exception,Raise 0603 0000 0000 | | .BLANK 0000[0x5] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 0611 | | .CONST 0x0611 ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0002 | | .CONST 0x0002 ; Number of locals 060b INIT_0608: 060b 4820 |H | Short_Literal 0x20 060c 00db | | Load_Top At_Offset_3 060d e01a | | Load 0x0,0x1a 060e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 060f e017 | | Load 0x0,0x17 0610 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0611 BODY_0608: 0611 00d8 | | Load_Top At_Offset_0 0612 01db | | Execute Vector,Length 0613 6802 |h | Jump_Zero 0x616 0614 00d8 | | Load_Top At_Offset_0 0615 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0616 00db | | Load_Top At_Offset_3 0617 8234 | 4 | Call 0x1,0x34 0618 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0619 0000 0000 | | .BLANK 0000[0x7] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0629 | ) | .CONST 0x0629 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0003 | | .CONST 0x0003 ; Number of locals 0623 INIT_0620: 0623 00e2 | | Load_Encached Integer_Cache 0624 00db | | Load_Top At_Offset_3 0625 01dd | | Execute Vector,First 0626 0aff | | Execute_Immediate Plus,-0x1 0627 00e2 | | Load_Encached Integer_Cache 0628 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0629 BODY_0620: 0629 00cf | | Action Mark_Auxiliary 062a e5fe | | Load 0x2,-0x2 062b 4801 |H | Short_Literal 0x1 062c 0263 | c | Execute Discrete,Above_Bound 062d 7026 |p& | Jump_Nonzero 0x654 062e 00db | | Load_Top At_Offset_3 062f 0a01 | | Execute_Immediate Plus,0x1 0630 c402 | | Store 0x2,0x2 0631 00cf | | Action Mark_Auxiliary 0632 7804 |x | Jump 0x637 0633 e402 | | Load 0x2,0x2 0634 0a01 | | Execute_Immediate Plus,0x1 0635 c402 | | Store 0x2,0x2 0636 00c9 | | Action Pop_Auxiliary_Loop 0637 e402 | | Load 0x2,0x2 0638 e5ff | | Load 0x2,-0x1 0639 01dc | | Execute Vector,Last 063a 027a | z | Execute Discrete,Less_Equal 063b 6805 |h | Jump_Zero 0x641 063c e402 | | Load 0x2,0x2 063d e5ff | | Load 0x2,-0x1 063e 01d7 | | Execute Vector,Field_Read 063f 0f20 | | Execute_Immediate Equal,0x20 0640 77f2 |w | Jump_Nonzero 0x633 0641 00ce | | Action Pop_Auxiliary 0642 4800 |H | Short_Literal 0x0 0643 e402 | | Load 0x2,0x2 0644 e5ff | | Load 0x2,-0x1 0645 01dc | | Execute Vector,Last 0646 e5ff | | Load 0x2,-0x1 0647 01cf | | Execute Vector,Slice_Read 0648 4820 |H | Short_Literal 0x20 0649 e017 | | Load 0x0,0x17 064a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 064b a403 | | Store_Unchecked 0x2,0x3 064c 00db | | Load_Top At_Offset_3 064d 7004 |p | Jump_Nonzero 0x652 064e e5ff | | Load 0x2,-0x1 064f 01dc | | Execute Vector,Last 0650 0a01 | | Execute_Immediate Plus,0x1 0651 c403 | | Store 0x2,0x3 0652 00c8 | | Action Pop_Auxiliary_Range 0653 3fda |? | Loop_Increasing 0x62e 0654 00ce | | Action Pop_Auxiliary 0655 00d9 | | Load_Top At_Offset_1 0656 00d9 | | Load_Top At_Offset_1 0657 0aff | | Execute_Immediate Plus,-0x1 0658 00d8 | | Load_Top At_Offset_0 0659 00e2 | | Load_Encached Integer_Cache 065a 0260 | ` | Execute Discrete,In_Type 065b 7001 |p | Jump_Nonzero 0x65d 065c 0801 | | Execute_Immediate Raise,0x1 065d e5ff | | Load 0x2,-0x1 065e 01cf | | Execute Vector,Slice_Read 065f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0670 | p | .CONST 0x0670 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0006 | | .CONST 0x0006 ; Number of locals 0663 INIT_0660: 0663 4802 |H | Short_Literal 0x2 0664 00db | | Load_Top At_Offset_3 0665 8235 | 5 | Call 0x1,0x35 0666 e017 | | Load 0x0,0x17 0667 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0668 e001 | | Load 0x0,0x1 0669 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 066a 00e1 | | Load_Encached Boolean_Cache 066b 03e9 | | Declare_Variable Discrete,Duplicate 066c 4820 |H | Short_Literal 0x20 066d e602 | | Load 0x3,0x2 066e 01cb | | Execute Vector,Append 066f 0007 | | Action Break_Optional 0670 BODY_0660: 0670 e602 | | Load 0x3,0x2 0671 01db | | Execute Vector,Length 0672 7002 |p | Jump_Nonzero 0x675 0673 4807 |H | Short_Literal 0x7 0674 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0675 e602 | | Load 0x3,0x2 0676 01dd | | Execute Vector,First 0677 e602 | | Load 0x3,0x2 0678 01d7 | | Execute Vector,Field_Read 0679 4841 |HA | Short_Literal 0x41 067a 485a |HZ | Short_Literal 0x5a 067b 0262 | b | Execute Discrete,In_Range 067c 6810 |h | Jump_Zero 0x68d 067d 00e1 | | Load_Encached Boolean_Cache 067e 00e1 | | Load_Encached Boolean_Cache 067f e22c | , | Load 0x1,0x2c 0680 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0681 e602 | | Load 0x3,0x2 0682 e22c | , | Load 0x1,0x2c 0683 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0684 c603 | | Store 0x3,0x3 0685 c604 | | Store 0x3,0x4 0686 005a | Z | Store_Top Discrete,At_Offset_2 0687 00da | | Load_Top At_Offset_2 0688 6814 |h | Jump_Zero 0x69d 0689 00d9 | | Load_Top At_Offset_1 068a 6812 |h | Jump_Zero 0x69d 068b 00db | | Load_Top At_Offset_3 068c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 068d 00cf | | Action Mark_Auxiliary 068e e001 | | Load 0x0,0x1 068f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0690 0265 | e | Execute Discrete,Reverse_Bounds 0691 0007 | | Action Break_Optional 0692 00d8 | | Load_Top At_Offset_0 0693 e018 | | Load 0x0,0x18 0694 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0695 e606 | | Load 0x3,0x6 0696 01df | | Execute Vector,Equal 0697 6802 |h | Jump_Zero 0x69a 0698 00d8 | | Load_Top At_Offset_0 0699 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 069a 00c8 | | Action Pop_Auxiliary_Range 069b 3ff6 |? | Loop_Increasing 0x692 069c 00ce | | Action Pop_Auxiliary 069d 4800 |H | Short_Literal 0x0 069e e602 | | Load 0x3,0x2 069f e7ff | | Load 0x3,-0x1 06a0 821d | | Call 0x1,0x1d 06a1 4817 |H | Short_Literal 0x17 06a2 e403 | | Load 0x2,0x3 06a3 821b | | Call 0x1,0x1b 06a4 4807 |H | Short_Literal 0x7 06a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06a6 0000 0000 | | .XXX[0x2] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06ae | | .CONST 0x06ae ; Address of begin 06a9 06bd | | .CONST 0x06bd ; Address of exception handler 06aa 0002 | | .CONST 0x0002 ; Number of locals 06ab INIT_06a8: 06ab 4803 |H | Short_Literal 0x3 06ac 00db | | Load_Top At_Offset_3 06ad 8235 | 5 | Call 0x1,0x35 06ae BODY_06a8: 06ae 00d8 | | Load_Top At_Offset_0 06af 01db | | Execute Vector,Length 06b0 680a |h | Jump_Zero 0x6bb 06b1 00d8 | | Load_Top At_Offset_0 06b2 00e2 | | Load_Encached Integer_Cache 06b3 00e0 | | Load_Encached Standard_Cache 06b4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06b5 00d8 | | Load_Top At_Offset_0 06b6 e221 | ! | Load 0x1,0x21 06b7 0260 | ` | Execute Discrete,In_Type 06b8 7001 |p | Jump_Nonzero 0x6ba 06b9 0801 | | Execute_Immediate Raise,0x1 06ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06bb 4801 |H | Short_Literal 0x1 06bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06bd TRAP_06a8: 06bd 0007 | | Action Break_Optional 06be 4800 |H | Short_Literal 0x0 06bf 00da | | Load_Top At_Offset_2 06c0 e7ff | | Load 0x3,-0x1 06c1 821d | | Call 0x1,0x1d 06c2 4818 |H | Short_Literal 0x18 06c3 e403 | | Load 0x2,0x3 06c4 821b | | Call 0x1,0x1b 06c5 4801 |H | Short_Literal 0x1 06c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06c7 0000 | | .XXX[0x1] 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06cd | | .CONST 0x06cd ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0002 | | .CONST 0x0002 ; Number of locals 06cb INIT_06c8: 06cb 00da | | Load_Top At_Offset_2 06cc 8233 | 3 | Call 0x1,0x33 06cd BODY_06c8: 06cd 00d8 | | Load_Top At_Offset_0 06ce 01db | | Execute Vector,Length 06cf 7002 |p | Jump_Nonzero 0x6d2 06d0 00ea | | Load_Encached Null_String_Cache 06d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d2 4820 |H | Short_Literal 0x20 06d3 00d9 | | Load_Top At_Offset_1 06d4 01cb | | Execute Vector,Append 06d5 e7ff | | Load 0x3,-0x1 06d6 840c | | Call 0x2,0xc 06d7 01cc | | Execute Vector,Catenate 06d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d9 0000 0000 | | .BLANK 0000[0x7] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06ee | | .CONST 0x06ee ; Address of begin 06e1 0708 | | .CONST 0x0708 ; Address of exception handler 06e2 0004 | | .CONST 0x0004 ; Number of locals 06e3 INIT_06e0: 06e3 e01a | | Load 0x0,0x1a 06e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06e5 02c7 | | Declare_Variable Any 06e6 00d8 | | Load_Top At_Offset_0 06e7 1c00 | | Execute_Immediate Run_Utility,0x0 06e8 e223 | # | Load 0x1,0x23 06e9 0322 | " | Declare_Variable Record 06ea 00d8 | | Load_Top At_Offset_0 06eb 1c00 | | Execute_Immediate Run_Utility,0x0 06ec 029f 096b | k| Declare_Subprogram INIT_0968,For_Call 06ee BODY_06e0: 06ee 4800 |H | Short_Literal 0x0 06ef e7ff | | Load 0x3,-0x1 06f0 4819 |H | Short_Literal 0x19 06f1 e403 | | Load 0x2,0x3 06f2 821b | | Call 0x1,0x1b 06f3 00da | | Load_Top At_Offset_2 06f4 00ea | | Load_Encached Null_String_Cache 06f5 e7ff | | Load 0x3,-0x1 06f6 4800 |H | Short_Literal 0x0 06f7 e01a | | Load 0x0,0x1a 06f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06f9 c602 | | Store 0x3,0x2 06fa 00cf | | Action Mark_Auxiliary 06fb 7802 |x | Jump 0x6fe 06fc 8604 | | Call 0x3,0x4 06fd 00c9 | | Action Pop_Auxiliary_Loop 06fe 00db | | Load_Top At_Offset_3 06ff e01a | | Load 0x0,0x1a 0700 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0701 6ffa |o | Jump_Zero 0x6fc 0702 00ce | | Action Pop_Auxiliary 0703 00da | | Load_Top At_Offset_2 0704 e01a | | Load 0x0,0x1a 0705 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0706 c602 | | Store 0x3,0x2 0707 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0708 TRAP_06e0: 0708 00d8 | | Load_Top At_Offset_0 0709 0107 | | Execute Exception,Get_Name 070a 4950 |IP | Short_Literal 0x150 070b 495f |I_ | Short_Literal 0x15f 070c 0262 | b | Execute Discrete,In_Range 070d 6805 |h | Jump_Zero 0x713 070e 00db | | Load_Top At_Offset_3 070f e01a | | Load 0x0,0x1a 0710 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0711 c602 | | Store 0x3,0x2 0712 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0713 4800 |H | Short_Literal 0x0 0714 e7ff | | Load 0x3,-0x1 0715 481b |H | Short_Literal 0x1b 0716 e403 | | Load 0x2,0x3 0717 821b | | Call 0x1,0x1b 0718 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0719 0000 0000 | | .BLANK 0000[0x7] 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0741 | A | .CONST 0x0741 ; Address of begin 0721 07aa | | .CONST 0x07aa ; Address of exception handler 0722 0008 | | .CONST 0x0008 ; Number of locals 0723 INIT_0720: 0723 00ee | | Load_Encached Diana_Seq_Type_Cache 0724 02c7 | | Declare_Variable Any 0725 00db | | Load_Top At_Offset_3 0726 00eb | | Load_Encached Diana_Cache 0727 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0 0728 00eb | | Load_Encached Diana_Cache 0729 1888 | | Execute Package,Field_Execute,Field_Number 0x88 072a a602 | | Store_Unchecked 0x3,0x2 072b 00eb | | Load_Encached Diana_Cache 072c 1b96 | | Execute Package,Field_Read,Field_Number 0x96 072d 02c7 | | Declare_Variable Any 072e e7ff | | Load 0x3,-0x1 072f 00eb | | Load_Encached Diana_Cache 0730 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0731 00eb | | Load_Encached Diana_Cache 0732 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5 0733 a603 | | Store_Unchecked 0x3,0x3 0734 00ec | | Load_Encached Diana_Tree_Cache 0735 02c7 | | Declare_Variable Any 0736 00d8 | | Load_Top At_Offset_0 0737 1c00 | | Execute_Immediate Run_Utility,0x0 0738 e223 | # | Load 0x1,0x23 0739 0322 | " | Declare_Variable Record 073a 00d8 | | Load_Top At_Offset_0 073b 1c00 | | Execute_Immediate Run_Utility,0x0 073c e210 | | Load 0x1,0x10 073d 0007 | | Action Break_Optional 073e 00e1 | | Load_Encached Boolean_Cache 073f 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call 0741 BODY_0720: 0741 e603 | | Load 0x3,0x3 0742 00eb | | Load_Encached Diana_Cache 0743 189f | | Execute Package,Field_Execute,Field_Number 0x9f 0744 00d8 | | Load_Top At_Offset_0 0745 e210 | | Load 0x1,0x10 0746 0260 | ` | Execute Discrete,In_Type 0747 7001 |p | Jump_Nonzero 0x749 0748 0801 | | Execute_Immediate Raise,0x1 0749 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 074a 00cf | | Action Mark_Auxiliary 074b 785b |x[ | Jump 0x7a7 074c e602 | | Load 0x3,0x2 074d 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 074e c604 | | Store 0x3,0x4 074f e602 | | Load 0x3,0x2 0750 0217 | | Execute Heap_Access,All_Reference 0751 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0752 c602 | | Store 0x3,0x2 0753 00e1 | | Load_Encached Boolean_Cache 0754 e605 | | Load 0x3,0x5 0755 e606 | | Load 0x3,0x6 0756 e402 | | Load 0x2,0x2 0757 0217 | | Execute Heap_Access,All_Reference 0758 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0759 e402 | | Load 0x2,0x2 075a 0217 | | Execute Heap_Access,All_Reference 075b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 075c e227 | ' | Load 0x1,0x27 075d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 075e 180e | | Execute Package,Field_Execute,Field_Number 0xe 075f 00d1 | | Pop_Control Pop_Count_1 0760 005b | [ | Store_Top Discrete,At_Offset_3 0761 00da | | Load_Top At_Offset_2 0762 6814 |h | Jump_Zero 0x777 0763 4800 |H | Short_Literal 0x0 0764 4801 |H | Short_Literal 0x1 0765 e605 | | Load 0x3,0x5 0766 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0767 e402 | | Load 0x2,0x2 0768 0217 | | Execute Heap_Access,All_Reference 0769 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 076a e22a | * | Load 0x1,0x2a 076b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 076c 822d | - | Call 0x1,0x2d 076d e604 | | Load 0x3,0x4 076e e013 | | Load 0x0,0x13 076f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0770 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0771 821d | | Call 0x1,0x1d 0772 481c |H | Short_Literal 0x1c 0773 e403 | | Load 0x2,0x3 0774 821b | | Call 0x1,0x1b 0775 8608 | | Call 0x3,0x8 0776 782f |x/ | Jump 0x7a6 0777 00e1 | | Load_Encached Boolean_Cache 0778 e605 | | Load 0x3,0x5 0779 e604 | | Load 0x3,0x4 077a 00eb | | Load_Encached Diana_Cache 077b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 077c 00eb | | Load_Encached Diana_Cache 077d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 077e e405 | | Load 0x2,0x5 077f e228 | ( | Load 0x1,0x28 0780 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0781 00d1 | | Pop_Control Pop_Count_1 0782 005b | [ | Store_Top Discrete,At_Offset_3 0783 00da | | Load_Top At_Offset_2 0784 6819 |h | Jump_Zero 0x79e 0785 4800 |H | Short_Literal 0x0 0786 e605 | | Load 0x3,0x5 0787 e606 | | Load 0x3,0x6 0788 e402 | | Load 0x2,0x2 0789 0217 | | Execute Heap_Access,All_Reference 078a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 078b e402 | | Load 0x2,0x2 078c 0217 | | Execute Heap_Access,All_Reference 078d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 078e e227 | ' | Load 0x1,0x27 078f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0790 180f | | Execute Package,Field_Execute,Field_Number 0xf 0791 e404 | | Load 0x2,0x4 0792 0a01 | | Execute_Immediate Plus,0x1 0793 c404 | | Store 0x2,0x4 0794 e405 | | Load 0x2,0x5 0795 e604 | | Load 0x3,0x4 0796 00eb | | Load_Encached Diana_Cache 0797 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0798 00eb | | Load_Encached Diana_Cache 0799 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 079a e228 | ( | Load 0x1,0x28 079b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 079c c405 | | Store 0x2,0x5 079d 7808 |x | Jump 0x7a6 079e 4800 |H | Short_Literal 0x0 079f e604 | | Load 0x3,0x4 07a0 e013 | | Load 0x0,0x13 07a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07a2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 07a3 481e |H | Short_Literal 0x1e 07a4 e403 | | Load 0x2,0x3 07a5 821b | | Call 0x1,0x1b 07a6 00c9 | | Action Pop_Auxiliary_Loop 07a7 e602 | | Load 0x3,0x2 07a8 77a3 |w | Jump_Nonzero 0x74c 07a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07aa TRAP_0720: 07aa 010e | | Execute Exception,Is_Constraint_Error 07ab 7002 |p | Jump_Nonzero 0x7ae 07ac 010d | | Execute Exception,Is_Numeric_Error 07ad 6809 |h | Jump_Zero 0x7b7 07ae 4800 |H | Short_Literal 0x0 07af e7ff | | Load 0x3,-0x1 07b0 e013 | | Load 0x0,0x13 07b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07b2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 07b3 481d |H | Short_Literal 0x1d 07b4 e403 | | Load 0x2,0x3 07b5 821b | | Call 0x1,0x1b 07b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b7 0100 | | Execute Exception,Raise 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07d4 | | .CONST 0x07d4 ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0009 | | .CONST 0x0009 ; Number of locals 07bb INIT_07b8: 07bb e013 | | Load 0x0,0x13 07bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07bd 02ff | | Declare_Variable Variant_Record 07be 00d8 | | Load_Top At_Offset_0 07bf 1c00 | | Execute_Immediate Run_Utility,0x0 07c0 e01b | | Load 0x0,0x1b 07c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07c2 02c7 | | Declare_Variable Any 07c3 00d8 | | Load_Top At_Offset_0 07c4 1c00 | | Execute_Immediate Run_Utility,0x0 07c5 e013 | | Load 0x0,0x13 07c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07c7 00ec | | Load_Encached Diana_Tree_Cache 07c8 02c7 | | Declare_Variable Any 07c9 00d8 | | Load_Top At_Offset_0 07ca 1c00 | | Execute_Immediate Run_Utility,0x0 07cb e01b | | Load 0x0,0x1b 07cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07cd 0322 | " | Declare_Variable Record 07ce 00e3 | | Load_Encached Natural_Cache 07cf 00e3 | | Load_Encached Natural_Cache 07d0 00ee | | Load_Encached Diana_Seq_Type_Cache 07d1 02c7 | | Declare_Variable Any 07d2 00d8 | | Load_Top At_Offset_0 07d3 1c00 | | Execute_Immediate Run_Utility,0x0 07d4 BODY_07b8: 07d4 4800 |H | Short_Literal 0x0 07d5 e7ff | | Load 0x3,-0x1 07d6 e013 | | Load 0x0,0x13 07d7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07d8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 07d9 4813 |H | Short_Literal 0x13 07da e403 | | Load 0x2,0x3 07db 821b | | Call 0x1,0x1b 07dc e013 | | Load 0x0,0x13 07dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07de e602 | | Load 0x3,0x2 07df 60cc |` | Indirect_Literal Discrete,0x8ac,{0x00000000, 0x00004000} 07e0 e014 | | Load 0x0,0x14 07e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07e2 e7ff | | Load 0x3,-0x1 07e3 e013 | | Load 0x0,0x13 07e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07e5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 07e6 00d1 | | Pop_Control Pop_Count_1 07e7 c604 | | Store 0x3,0x4 07e8 e602 | | Load 0x3,0x2 07e9 e013 | | Load 0x0,0x13 07ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07eb 6809 |h | Jump_Zero 0x7f5 07ec 4800 |H | Short_Literal 0x0 07ed e7ff | | Load 0x3,-0x1 07ee e013 | | Load 0x0,0x13 07ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07f0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 07f1 4816 |H | Short_Literal 0x16 07f2 e403 | | Load 0x2,0x3 07f3 821b | | Call 0x1,0x1b 07f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07f5 e602 | | Load 0x3,0x2 07f6 e013 | | Load 0x0,0x13 07f7 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 07f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07f9 7009 |p | Jump_Nonzero 0x803 07fa 4800 |H | Short_Literal 0x0 07fb e602 | | Load 0x3,0x2 07fc e013 | | Load 0x0,0x13 07fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07fe 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 07ff 4815 |H | Short_Literal 0x15 0800 e403 | | Load 0x2,0x3 0801 821b | | Call 0x1,0x1b 0802 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0803 e013 | | Load 0x0,0x13 0804 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0805 e603 | | Load 0x3,0x3 0806 0120 | | Execute Any,Is_Value 0807 6803 |h | Jump_Zero 0x80b 0808 e01b | | Load 0x0,0x1b 0809 1b0d | | Execute Package,Field_Read,Field_Number 0xd 080a 7801 |x | Jump 0x80c 080b e603 | | Load 0x3,0x3 080c 609f |` | Indirect_Literal Discrete,0x8ac,{0x00000000, 0x00004000} 080d e014 | | Load 0x0,0x14 080e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 080f e602 | | Load 0x3,0x2 0810 e01b | | Load 0x0,0x1b 0811 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0812 c603 | | Store 0x3,0x3 0813 c604 | | Store 0x3,0x4 0814 e603 | | Load 0x3,0x3 0815 e01b | | Load 0x0,0x1b 0816 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0817 012f | / | Execute Any,Equal 0818 680f |h | Jump_Zero 0x828 0819 4800 |H | Short_Literal 0x0 081a e604 | | Load 0x3,0x4 081b e013 | | Load 0x0,0x13 081c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 081d 011c | | Execute Any,Convert_Unchecked 081e 1c01 | | Execute_Immediate Run_Utility,0x1 081f e602 | | Load 0x3,0x2 0820 e013 | | Load 0x0,0x13 0821 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0822 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0823 821d | | Call 0x1,0x1d 0824 4814 |H | Short_Literal 0x14 0825 e403 | | Load 0x2,0x3 0826 821b | | Call 0x1,0x1b 0827 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0828 4801 |H | Short_Literal 0x1 0829 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 082a e603 | | Load 0x3,0x3 082b e01b | | Load 0x0,0x1b 082c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 082d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 082e 00cf | | Action Mark_Auxiliary 082f 786c |xl | Jump 0x89c 0830 4801 |H | Short_Literal 0x1 0831 4820 |H | Short_Literal 0x20 0832 e603 | | Load 0x3,0x3 0833 e607 | | Load 0x3,0x7 0834 00d8 | | Load_Top At_Offset_0 0835 00e4 | | Load_Encached Positive_Cache 0836 0260 | ` | Execute Discrete,In_Type 0837 7001 |p | Jump_Nonzero 0x839 0838 0801 | | Execute_Immediate Raise,0x1 0839 e01b | | Load 0x0,0x1b 083a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 083b e017 | | Load 0x0,0x17 083c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 083d e5fc | | Load 0x2,-0x4 083e e017 | | Load 0x0,0x17 083f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0840 6857 |hW | Jump_Zero 0x898 0841 e603 | | Load 0x3,0x3 0842 e607 | | Load 0x3,0x7 0843 00d8 | | Load_Top At_Offset_0 0844 00e4 | | Load_Encached Positive_Cache 0845 0260 | ` | Execute Discrete,In_Type 0846 7001 |p | Jump_Nonzero 0x848 0847 0801 | | Execute_Immediate Raise,0x1 0848 e01b | | Load 0x0,0x1b 0849 181d | | Execute Package,Field_Execute,Field_Number 0x1d 084a c605 | | Store 0x3,0x5 084b e605 | | Load 0x3,0x5 084c 4975 |Iu | Short_Literal 0x175 084d 00eb | | Load_Encached Diana_Cache 084e 0098 | | Execute Package,Field_Read_Dynamic 084f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0850 c609 | | Store 0x3,0x9 0851 00cf | | Action Mark_Auxiliary 0852 00da | | Load_Top At_Offset_2 0853 0217 | | Execute Heap_Access,All_Reference 0854 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0855 c609 | | Store 0x3,0x9 0856 00da | | Load_Top At_Offset_2 0857 7012 |p | Jump_Nonzero 0x86a 0858 4800 |H | Short_Literal 0x0 0859 e5fb | | Load 0x2,-0x5 085a e602 | | Load 0x3,0x2 085b e013 | | Load 0x0,0x13 085c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 085d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 085e 821d | | Call 0x1,0x1d 085f 481f |H | Short_Literal 0x1f 0860 e403 | | Load 0x2,0x3 0861 821b | | Call 0x1,0x1b 0862 e013 | | Load 0x0,0x13 0863 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0864 e603 | | Load 0x3,0x3 0865 e01b | | Load 0x0,0x1b 0866 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0867 c603 | | Store 0x3,0x3 0868 c604 | | Store 0x3,0x4 0869 4501 |E | Exit_Suprogram New_Top_Offset 0x1 086a 00da | | Load_Top At_Offset_2 086b 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 086c c605 | | Store 0x3,0x5 086d e605 | | Load 0x3,0x5 086e 0145 | E | Execute Heap_Access,Diana_Tree_Kind 086f 0f3a | : | Execute_Immediate Equal,0x3a 0870 6802 |h | Jump_Zero 0x873 0871 e605 | | Load 0x3,0x5 0872 840e | | Call 0x2,0xe 0873 e603 | | Load 0x3,0x3 0874 4802 |H | Short_Literal 0x2 0875 e605 | | Load 0x3,0x5 0876 e01b | | Load 0x0,0x1b 0877 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0878 e606 | | Load 0x3,0x6 0879 017d | } | Execute Record,Structure_Write 087a 00cf | | Action Mark_Auxiliary 087b e606 | | Load 0x3,0x6 087c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 087d e606 | | Load 0x3,0x6 087e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 087f 0263 | c | Execute Discrete,Above_Bound 0880 7013 |p | Jump_Nonzero 0x894 0881 4801 |H | Short_Literal 0x1 0882 4820 |H | Short_Literal 0x20 0883 e603 | | Load 0x3,0x3 0884 00db | | Load_Top At_Offset_3 0885 e01b | | Load 0x0,0x1b 0886 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0887 e017 | | Load 0x0,0x17 0888 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0889 e5fb | | Load 0x2,-0x5 088a e017 | | Load 0x0,0x17 088b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 088c 6805 |h | Jump_Zero 0x892 088d 00d8 | | Load_Top At_Offset_0 088e a607 | | Store_Unchecked 0x3,0x7 088f 00d2 | | Pop_Control Pop_Count_2 0890 00ce | | Action Pop_Auxiliary 0891 7805 |x | Jump 0x897 0892 00c8 | | Action Pop_Auxiliary_Range 0893 3fed |? | Loop_Increasing 0x881 0894 00ce | | Action Pop_Auxiliary 0895 00c9 | | Action Pop_Auxiliary_Loop 0896 7fbb | | Jump 0x852 0897 00ce | | Action Pop_Auxiliary 0898 00db | | Load_Top At_Offset_3 0899 0a01 | | Execute_Immediate Plus,0x1 089a c607 | | Store 0x3,0x7 089b 00c9 | | Action Pop_Auxiliary_Loop 089c 00db | | Load_Top At_Offset_3 089d 00db | | Load_Top At_Offset_3 089e 027c | | | Execute Discrete,Less 089f 7790 |w | Jump_Nonzero 0x830 08a0 00ce | | Action Pop_Auxiliary 08a1 e013 | | Load 0x0,0x13 08a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08a3 e603 | | Load 0x3,0x3 08a4 e01b | | Load 0x0,0x1b 08a5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 08a6 c603 | | Store 0x3,0x3 08a7 c604 | | Store 0x3,0x4 08a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08a9 0000 0000 | | .XXX[0x3] 08ab 0000 | | 08ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b8 | | .CONST 0x08b8 ; Address of begin 08b1 095b | [ | .CONST 0x095b ; Address of exception handler 08b2 0003 | | .CONST 0x0003 ; Number of locals 08b3 INIT_08b0: 08b3 00da | | Load_Top At_Offset_2 08b4 01dd | | Execute Vector,First 08b5 00e2 | | Load_Encached Integer_Cache 08b6 03f1 | | Declare_Variable Discrete,With_Value 08b7 00e2 | | Load_Encached Integer_Cache 08b8 BODY_08b0: 08b8 e7ff | | Load 0x3,-0x1 08b9 01db | | Execute Vector,Length 08ba 7003 |p | Jump_Nonzero 0x8be 08bb 0092 09ce | | Action Push_String_Extended,0x9ce ; "~" 08bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08be 00d9 | | Load_Top At_Offset_1 08bf e7ff | | Load 0x3,-0x1 08c0 01d7 | | Execute Vector,Field_Read 08c1 00d8 | | Load_Top At_Offset_0 08c2 0d21 | ! | Execute_Immediate Less,0x21 08c3 702c |p, | Jump_Nonzero 0x8f0 08c4 00d8 | | Load_Top At_Offset_0 08c5 0c41 | A | Execute_Immediate Greater_Equal,0x41 08c6 7026 |p& | Jump_Nonzero 0x8ed 08c7 0adf | | Execute_Immediate Plus,-0x21 08c8 461f |F | Jump_Case 0x20 08c9 785e |x^ | Jump 0x928 ; case 0x0 08ca 7826 |x& | Jump 0x8f1 ; case 0x1 08cb 782b |x+ | Jump 0x8f7 ; case 0x2 08cc 7824 |x$ | Jump 0x8f1 ; case 0x3 08cd 7823 |x# | Jump 0x8f1 ; case 0x4 08ce 7822 |x" | Jump 0x8f1 ; case 0x5 08cf 7821 |x! | Jump 0x8f1 ; case 0x6 08d0 7820 |x | Jump 0x8f1 ; case 0x7 08d1 781f |x | Jump 0x8f1 ; case 0x8 08d2 781e |x | Jump 0x8f1 ; case 0x9 08d3 781d |x | Jump 0x8f1 ; case 0xa 08d4 781c |x | Jump 0x8f1 ; case 0xb 08d5 781b |x | Jump 0x8f1 ; case 0xc 08d6 781a |x | Jump 0x8f1 ; case 0xd 08d7 7819 |x | Jump 0x8f1 ; case 0xe 08d8 7818 |x | Jump 0x8f1 ; case 0xf 08d9 7824 |x$ | Jump 0x8fe ; case 0x10 08da 7823 |x# | Jump 0x8fe ; case 0x11 08db 7822 |x" | Jump 0x8fe ; case 0x12 08dc 7821 |x! | Jump 0x8fe ; case 0x13 08dd 7820 |x | Jump 0x8fe ; case 0x14 08de 781f |x | Jump 0x8fe ; case 0x15 08df 781e |x | Jump 0x8fe ; case 0x16 08e0 781d |x | Jump 0x8fe ; case 0x17 08e1 781c |x | Jump 0x8fe ; case 0x18 08e2 780e |x | Jump 0x8f1 ; case 0x19 08e3 780d |x | Jump 0x8f1 ; case 0x1a 08e4 780c |x | Jump 0x8f1 ; case 0x1b 08e5 780b |x | Jump 0x8f1 ; case 0x1c 08e6 780a |x | Jump 0x8f1 ; case 0x1d 08e7 7840 |x@ | Jump 0x928 ; case 0x1e 08e8 7800 |x | Jump 0x8e9 ; case 0x1f 08e9 e5fe | | Load 0x2,-0x2 08ea 0335 | 5 | Declare_Variable Array,Duplicate 08eb 00cd | | Action Spare6_Action 08ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08ed 0f5c | \ | Execute_Immediate Equal,0x5c 08ee 7063 |pc | Jump_Nonzero 0x952 08ef 7801 |x | Jump 0x8f1 08f0 00d1 | | Pop_Control Pop_Count_1 08f1 482a |H* | Short_Literal 0x2a 08f2 482a |H* | Short_Literal 0x2a 08f3 e7ff | | Load 0x3,-0x1 08f4 01ca | | Execute Vector,Prepend 08f5 01cb | | Execute Vector,Append 08f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08f7 4820 |H | Short_Literal 0x20 08f8 4800 |H | Short_Literal 0x0 08f9 480a |H | Short_Literal 0xa 08fa e5ff | | Load 0x2,-0x1 08fb e017 | | Load 0x0,0x17 08fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08fe 00d9 | | Load_Top At_Offset_1 08ff 00da | | Load_Top At_Offset_2 0900 e7ff | | Load 0x3,-0x1 0901 01cf | | Execute Vector,Slice_Read 0902 00e2 | | Load_Encached Integer_Cache 0903 00e0 | | Load_Encached Standard_Cache 0904 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0905 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0906 00d8 | | Load_Top At_Offset_0 0907 00d8 | | Load_Top At_Offset_0 0908 00e4 | | Load_Encached Positive_Cache 0909 0260 | ` | Execute Discrete,In_Type 090a 7001 |p | Jump_Nonzero 0x90c 090b 0801 | | Execute_Immediate Raise,0x1 090c e5fc | | Load 0x2,-0x4 090d 822d | - | Call 0x1,0x2d 090e 01db | | Execute Vector,Length 090f 700f |p | Jump_Nonzero 0x91f 0910 4820 |H | Short_Literal 0x20 0911 00da | | Load_Top At_Offset_2 0912 0a01 | | Execute_Immediate Plus,0x1 0913 00d8 | | Load_Top At_Offset_0 0914 00e2 | | Load_Encached Integer_Cache 0915 0260 | ` | Execute Discrete,In_Type 0916 7001 |p | Jump_Nonzero 0x918 0917 0801 | | Execute_Immediate Raise,0x1 0918 e7ff | | Load 0x3,-0x1 0919 01dc | | Execute Vector,Last 091a e7ff | | Load 0x3,-0x1 091b 01cf | | Execute Vector,Slice_Read 091c e017 | | Load 0x0,0x17 091d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 091e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 091f 00d8 | | Load_Top At_Offset_0 0920 00d8 | | Load_Top At_Offset_0 0921 00e4 | | Load_Encached Positive_Cache 0922 0260 | ` | Execute Discrete,In_Type 0923 7001 |p | Jump_Nonzero 0x925 0924 0801 | | Execute_Immediate Raise,0x1 0925 e5fc | | Load 0x2,-0x4 0926 822d | - | Call 0x1,0x2d 0927 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0928 00d9 | | Load_Top At_Offset_1 0929 0a01 | | Execute_Immediate Plus,0x1 092a 005a | Z | Store_Top Discrete,At_Offset_2 092b 00d9 | | Load_Top At_Offset_1 092c 00da | | Load_Top At_Offset_2 092d e7ff | | Load 0x3,-0x1 092e 01cf | | Execute Vector,Slice_Read 092f 00e2 | | Load_Encached Integer_Cache 0930 00e0 | | Load_Encached Standard_Cache 0931 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0932 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0933 00d8 | | Load_Top At_Offset_0 0934 00d8 | | Load_Top At_Offset_0 0935 00e4 | | Load_Encached Positive_Cache 0936 0260 | ` | Execute Discrete,In_Type 0937 7001 |p | Jump_Nonzero 0x939 0938 0801 | | Execute_Immediate Raise,0x1 0939 e5fc | | Load 0x2,-0x4 093a 822d | - | Call 0x1,0x2d 093b 01db | | Execute Vector,Length 093c 0f00 | | Execute_Immediate Equal,0x0 093d e7ff | | Load 0x3,-0x1 093e 01dd | | Execute Vector,First 093f e7ff | | Load 0x3,-0x1 0940 01d7 | | Execute Vector,Field_Read 0941 0f21 | ! | Execute_Immediate Equal,0x21 0942 027f | | Execute Discrete,Equal 0943 680c |h | Jump_Zero 0x950 0944 00d9 | | Load_Top At_Offset_1 0945 0a01 | | Execute_Immediate Plus,0x1 0946 00d8 | | Load_Top At_Offset_0 0947 00e2 | | Load_Encached Integer_Cache 0948 0260 | ` | Execute Discrete,In_Type 0949 7001 |p | Jump_Nonzero 0x94b 094a 0801 | | Execute_Immediate Raise,0x1 094b e7ff | | Load 0x3,-0x1 094c 01dc | | Execute Vector,Last 094d e7ff | | Load 0x3,-0x1 094e 01cf | | Execute Vector,Slice_Read 094f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0950 00ea | | Load_Encached Null_String_Cache 0951 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0952 4801 |H | Short_Literal 0x1 0953 4801 |H | Short_Literal 0x1 0954 00e9 | | Load_Encached String_Cache 0955 0334 | 4 | Declare_Variable Array,With_Constraint 0956 480a |H | Short_Literal 0xa 0957 4801 |H | Short_Literal 0x1 0958 00da | | Load_Top At_Offset_2 0959 01d6 | | Execute Vector,Field_Write 095a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 095b TRAP_08b0: 095b 010e | | Execute Exception,Is_Constraint_Error 095c 6806 |h | Jump_Zero 0x963 095d 482a |H* | Short_Literal 0x2a 095e 482a |H* | Short_Literal 0x2a 095f e7ff | | Load 0x3,-0x1 0960 01ca | | Execute Vector,Prepend 0961 01cb | | Execute Vector,Append 0962 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0963 0100 | | Execute Exception,Raise 0964 0000 0000 | | .BLANK 0000[0x4] 0968 ; -------------------------------------------------------------------------------------- 0968 ; SUBPROGRAM 0968 ; -------------------------------------------------------------------------------------- 0968 097d | } | .CONST 0x097d ; Address of begin 0969 09a4 | | .CONST 0x09a4 ; Address of exception handler 096a 0007 | | .CONST 0x0007 ; Number of locals 096b INIT_0968: 096b e602 | | Load 0x3,0x2 096c 8234 | 4 | Call 0x1,0x34 096d 4801 |H | Short_Literal 0x1 096e 00d9 | | Load_Top At_Offset_1 096f 8235 | 5 | Call 0x1,0x35 0970 00d9 | | Load_Top At_Offset_1 0971 840a | | Call 0x2,0xa 0972 e001 | | Load 0x0,0x1 0973 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0974 03f1 | | Declare_Variable Discrete,With_Value 0975 00da | | Load_Top At_Offset_2 0976 840b | | Call 0x2,0xb 0977 00e2 | | Load_Encached Integer_Cache 0978 03f1 | | Declare_Variable Discrete,With_Value 0979 e602 | | Load 0x3,0x2 097a 8233 | 3 | Call 0x1,0x33 097b e602 | | Load 0x3,0x2 097c 840c | | Call 0x2,0xc 097d BODY_0968: 097d 00db | | Load_Top At_Offset_3 097e e603 | | Load 0x3,0x3 097f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0980 00da | | Load_Top At_Offset_2 0981 e603 | | Load 0x3,0x3 0982 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0983 e402 | | Load 0x2,0x2 0984 0217 | | Execute Heap_Access,All_Reference 0985 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0986 e002 | | Load 0x0,0x2 0987 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0988 e603 | | Load 0x3,0x3 0989 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 098a e405 | | Load 0x2,0x5 098b 4801 |H | Short_Literal 0x1 098c e603 | | Load 0x3,0x3 098d e803 | | Load 0x4,0x3 098e e017 | | Load 0x0,0x17 098f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0990 e228 | ( | Load 0x1,0x28 0991 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0992 c405 | | Store 0x2,0x5 0993 480a |H | Short_Literal 0xa 0994 480a |H | Short_Literal 0xa 0995 e803 | | Load 0x4,0x3 0996 01cb | | Execute Vector,Append 0997 00db | | Load_Top At_Offset_3 0998 01cc | | Execute Vector,Catenate 0999 01cb | | Execute Vector,Append 099a 00d9 | | Load_Top At_Offset_1 099b 01cc | | Execute Vector,Catenate 099c e603 | | Load 0x3,0x3 099d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 099e e402 | | Load 0x2,0x2 099f 0217 | | Execute Heap_Access,All_Reference 09a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09a1 e22a | * | Load 0x1,0x2a 09a2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 09a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09a4 TRAP_0968: 09a4 e228 | ( | Load 0x1,0x28 09a5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 09a6 010f | | Execute Exception,Equal 09a7 6808 |h | Jump_Zero 0x9b0 09a8 4800 |H | Short_Literal 0x0 09a9 e7ff | | Load 0x3,-0x1 09aa e803 | | Load 0x4,0x3 09ab 821d | | Call 0x1,0x1d 09ac 481a |H | Short_Literal 0x1a 09ad e403 | | Load 0x2,0x3 09ae 821b | | Call 0x1,0x1b 09af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09b0 0100 | | Execute Exception,Raise 09b1 0000 0000 | | .BLANK 0000[0x7] 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; SUBPROGRAM 09b8 ; -------------------------------------------------------------------------------------- 09b8 09bb | | .CONST 0x09bb ; Address of begin 09b9 09c5 | | .CONST 0x09c5 ; Address of exception handler 09ba 0001 | | .CONST 0x0001 ; Number of locals 09bb BODY_09b8: 09bb INIT_09b8: 09bb e405 | | Load 0x2,0x5 09bc e604 | | Load 0x3,0x4 09bd 00eb | | Load_Encached Diana_Cache 09be 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 09bf 00eb | | Load_Encached Diana_Cache 09c0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 09c1 e228 | ( | Load 0x1,0x28 09c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 09c3 c405 | | Store 0x2,0x5 09c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09c5 TRAP_09b8: 09c5 0007 | | Action Break_Optional 09c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09c7 ; -------------------------------------------------------------------------------------- 09c7 ; STRING TABLE 09c7 ; -------------------------------------------------------------------------------------- 09c7 0012 | | .STRTAB 0x0012->0x09d0 ; "DEFAULT" 09c8 0017 | | .STRTAB 0x0017->0x09d3 ; "SIMPLE" 09c9 001b | | .STRTAB 0x001b->0x09d6 ; "CONCISE" 09ca 0020 | | .STRTAB 0x0020->0x09da ; "VERBOSE" 09cb 0025 | % | .STRTAB 0x0025->0x09dd ; "Error '~@~' (~#~) encountered processing ~1~ ~2~ ~3~" 09cc 0057 | W | .STRTAB 0x0057->0x09f7 ; "!Machine.Target_Builder.Message_File" 09cd 0079 | y | .STRTAB 0x0079->0x0a09 ; "SPARE_" 09ce 007d | } | .STRTAB 0x007d->0x0a0c ; "~" 09cf 007c | | | .STREND 0x007c->0x0a0d 09d0 4445 4641 |DEFA| .STRTAB_STRINGS 0a0d 0000 0000 | | .XXX[0x3] 0a0f 0000 | | 0a10 ; -------------------------------------------------------------------------------------- 0a10 ; Debug Table 0a10 ; -------------------------------------------------------------------------------------- 0a10 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb2e,0x0000,0x0001,0x0000 0a16 0000 0000 | | .BLANK 0000[0x1e2] 0bf8 a564 0000 | d | .XXX[0x4] 0bfa 4010 a570 |@ p| 0bfc 0000 0000 | | .BLANK 0000[0x4]