|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 04e0 | | .CONST 0x04e0 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0114 | | .CONST 0x0114 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003a | : | .CONST 0x003a ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 480d |H | Short_Literal 0xd 000d 029f 011b | | Declare_Subprogram INIT_0118,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 4804 |H | Short_Literal 0x4 0012 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 00d9 | | Load_Top At_Offset_1 0016 0266 | f | Execute Discrete,Bounds 0017 00e1 | | Load_Encached Boolean_Cache 0018 02a0 | | Declare_Subprogram Null_Subprogram 0019 4801 |H | Short_Literal 0x1 001a 035e | ^ | Declare_Type Array,Defined,Visible 001b 00d8 | | Load_Top At_Offset_0 001c 0336 | 6 | Declare_Variable Array,Visible 001d 00d8 | | Load_Top At_Offset_0 001e 0335 | 5 | Declare_Variable Array,Duplicate 001f 00cd | | Action Spare6_Action 0020 480d |H | Short_Literal 0xd 0021 4800 |H | Short_Literal 0x0 0022 4800 |H | Short_Literal 0x0 0023 00d9 | | Load_Top At_Offset_1 0024 e211 | | Load 0x1,0x11 0025 01d6 | | Execute Vector,Field_Write 0026 3ffb |? | Loop_Increasing 0x22 0027 00d9 | | Load_Top At_Offset_1 0028 01d4 | | Execute Vector,Structure_Write 0029 00d9 | | Load_Top At_Offset_1 002a 0336 | 6 | Declare_Variable Array,Visible 002b 00d8 | | Load_Top At_Offset_0 002c 0335 | 5 | Declare_Variable Array,Duplicate 002d 00cd | | Action Spare6_Action 002e 480d |H | Short_Literal 0xd 002f 4800 |H | Short_Literal 0x0 0030 4801 |H | Short_Literal 0x1 0031 00d9 | | Load_Top At_Offset_1 0032 e212 | | Load 0x1,0x12 0033 01d6 | | Execute Vector,Field_Write 0034 3ffb |? | Loop_Increasing 0x30 0035 00d9 | | Load_Top At_Offset_1 0036 01d4 | | Execute Vector,Structure_Write 0037 00db | | Load_Top At_Offset_3 0038 0266 | f | Execute Discrete,Bounds 0039 00e1 | | Load_Encached Boolean_Cache 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b 4801 |H | Short_Literal 0x1 003c 035e | ^ | Declare_Type Array,Defined,Visible 003d 00d8 | | Load_Top At_Offset_0 003e 0336 | 6 | Declare_Variable Array,Visible 003f 00d8 | | Load_Top At_Offset_0 0040 0335 | 5 | Declare_Variable Array,Duplicate 0041 00cd | | Action Spare6_Action 0042 4804 |H | Short_Literal 0x4 0043 4800 |H | Short_Literal 0x0 0044 4800 |H | Short_Literal 0x0 0045 00d9 | | Load_Top At_Offset_1 0046 e214 | | Load 0x1,0x14 0047 01d6 | | Execute Vector,Field_Write 0048 3ffb |? | Loop_Increasing 0x44 0049 00d9 | | Load_Top At_Offset_1 004a 01d4 | | Execute Vector,Structure_Write 004b 00d9 | | Load_Top At_Offset_1 004c 0336 | 6 | Declare_Variable Array,Visible 004d 00d8 | | Load_Top At_Offset_0 004e 0335 | 5 | Declare_Variable Array,Duplicate 004f 00cd | | Action Spare6_Action 0050 4804 |H | Short_Literal 0x4 0051 4800 |H | Short_Literal 0x0 0052 4801 |H | Short_Literal 0x1 0053 00d9 | | Load_Top At_Offset_1 0054 e215 | | Load 0x1,0x15 0055 01d6 | | Execute Vector,Field_Write 0056 3ffb |? | Loop_Increasing 0x52 0057 00d9 | | Load_Top At_Offset_1 0058 01d4 | | Execute Vector,Structure_Write 0059 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 005a 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 005c 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 005e 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0060 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0062 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0064 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0066 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0068 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 006a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 006c 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 006e 00e4 | | Load_Encached Positive_Cache 006f 0266 | f | Execute Discrete,Bounds 0070 e215 | | Load 0x1,0x15 0071 02a0 | | Declare_Subprogram Null_Subprogram 0072 4801 |H | Short_Literal 0x1 0073 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0074 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0076 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0077 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0079 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 007b 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 007d 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 007f 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0081 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 0083 00e4 | | Load_Encached Positive_Cache 0084 0266 | f | Execute Discrete,Bounds 0085 e222 | " | Load 0x1,0x22 0086 02a0 | | Declare_Subprogram Null_Subprogram 0087 4801 |H | Short_Literal 0x1 0088 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0089 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 008b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 008c 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 008e 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 0090 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 0092 e001 | | Load 0x0,0x1 0093 0129 | ) | Execute Any,Make_Visible 0094 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 0096 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0098 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 009a 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 009c 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 009e e002 | | Load 0x0,0x2 009f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00a0 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 00a1 02a0 | | Declare_Subprogram Null_Subprogram 00a2 03ad | | Declare_Type Heap_Access,Defined 00a3 00e1 | | Load_Encached Boolean_Cache 00a4 e002 | | Load 0x0,0x2 00a5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a7 4804 |H | Short_Literal 0x4 00a8 e002 | | Load 0x0,0x2 00a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00aa 1b44 | D | Execute Package,Field_Read,Field_Number 0x44 00ab e002 | | Load 0x0,0x2 00ac 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ad 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c 00ae e002 | | Load 0x0,0x2 00af 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00b1 e235 | 5 | Load 0x1,0x35 00b2 4801 |H | Short_Literal 0x1 00b3 e002 | | Load 0x0,0x2 00b4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b5 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 00b6 029f 03db | | Declare_Subprogram INIT_03d8,For_Call 00b8 4805 |H | Short_Literal 0x5 00b9 4801 |H | Short_Literal 0x1 00ba 4802 |H | Short_Literal 0x2 00bb 4800 |H | Short_Literal 0x0 00bc 4801 |H | Short_Literal 0x1 00bd 031d | | Declare_Type Variant_Record,Defined 00be 00d8 | | Load_Top At_Offset_0 00bf 02a0 | | Declare_Subprogram Null_Subprogram 00c0 e215 | | Load 0x1,0x15 00c1 03a3 | | Complete_Type Heap_Access,By_Defining 00c2 e220 | | Load 0x1,0x20 00c3 02a0 | | Declare_Subprogram Null_Subprogram 00c4 03ad | | Declare_Type Heap_Access,Defined 00c5 e002 | | Load 0x0,0x2 00c6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c8 e212 | | Load 0x1,0x12 00c9 00da | | Load_Top At_Offset_2 00ca 00e3 | | Load_Encached Natural_Cache 00cb 02a0 | | Declare_Subprogram Null_Subprogram 00cc 4804 |H | Short_Literal 0x4 00cd 032d | - | Declare_Type Record,Defined 00ce 00d8 | | Load_Top At_Offset_0 00cf 02a0 | | Declare_Subprogram Null_Subprogram 00d0 e222 | " | Load 0x1,0x22 00d1 03a3 | | Complete_Type Heap_Access,By_Defining 00d2 e229 | ) | Load 0x1,0x29 00d3 02a0 | | Declare_Subprogram Null_Subprogram 00d4 03ad | | Declare_Type Heap_Access,Defined 00d5 e20f | | Load 0x1,0xf 00d6 00d9 | | Load_Top At_Offset_1 00d7 e235 | 5 | Load 0x1,0x35 00d8 02a0 | | Declare_Subprogram Null_Subprogram 00d9 4803 |H | Short_Literal 0x3 00da 032d | - | Declare_Type Record,Defined 00db 00d8 | | Load_Top At_Offset_0 00dc 02a0 | | Declare_Subprogram Null_Subprogram 00dd e22b | + | Load 0x1,0x2b 00de 03a3 | | Complete_Type Heap_Access,By_Defining 00df 00bf | | Action Accept_Activation 00e0 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00ef 00c7 | | Action Elaborate_Subprogram 00f0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00f1 00c7 | | Action Elaborate_Subprogram 00f2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00f3 00c7 | | Action Elaborate_Subprogram 00f4 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00f5 00c7 | | Action Elaborate_Subprogram 00f6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00f9 00c7 | | Action Elaborate_Subprogram 00fa 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00fb 00c7 | | Action Elaborate_Subprogram 00fc 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00fd 00c7 | | Action Elaborate_Subprogram 00fe 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00ff 00c7 | | Action Elaborate_Subprogram 0100 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0101 00c7 | | Action Elaborate_Subprogram 0102 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0103 00c7 | | Action Elaborate_Subprogram 0104 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0105 00c7 | | Action Elaborate_Subprogram 0106 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0107 00c7 | | Action Elaborate_Subprogram 0108 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0109 00c7 | | Action Elaborate_Subprogram 010a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 010b 00c7 | | Action Elaborate_Subprogram 010c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 010d 00c7 | | Action Elaborate_Subprogram 010e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 010f 00c7 | | Action Elaborate_Subprogram 0110 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0111 00c7 | | Action Elaborate_Subprogram 0112 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0113 00c7 | | Action Elaborate_Subprogram 0114 BODY_0008: 0114 00bc | | Action Signal_Activated 0115 00bb | | Action Signal_Completion 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4607 |F | Jump_Case 0x8 011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 011d 7806 |x | Jump 0x124 ; case 0x1 011e 7809 |x | Jump 0x128 ; case 0x2 011f 780d |x | Jump 0x12d ; case 0x3 0120 7810 |x | Jump 0x131 ; case 0x4 0121 7811 |x | Jump 0x133 ; case 0x5 0122 7812 |x | Jump 0x135 ; case 0x6 0123 7815 |x | Jump 0x139 ; case 0x7 0124 00da | | Load_Top At_Offset_2 0125 0091 040f | | Action Push_String_Extended_Indexed,0x40f ; "CONTROLLED_PRAGMA" 0127 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0128 00db | | Load_Top At_Offset_3 0129 00db | | Load_Top At_Offset_3 012a 00e0 | | Load_Encached Standard_Cache 012b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012d 00da | | Load_Top At_Offset_2 012e 00e0 | | Load_Encached Standard_Cache 012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0131 00db | | Load_Top At_Offset_3 0132 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0133 00db | | Load_Top At_Offset_3 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 e20d | | Load 0x1,0xd 0136 00dc | | Load_Top At_Offset_4 0137 0267 | g | Execute Discrete,Predecessor 0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0139 e20d | | Load 0x1,0xd 013a 00dc | | Load_Top At_Offset_4 013b 0268 | h | Execute Discrete,Successor 013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4607 |F | Jump_Case 0x8 0144 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0145 7806 |x | Jump 0x14c ; case 0x1 0146 7809 |x | Jump 0x150 ; case 0x2 0147 780d |x | Jump 0x155 ; case 0x3 0148 7810 |x | Jump 0x159 ; case 0x4 0149 7811 |x | Jump 0x15b ; case 0x5 014a 7812 |x | Jump 0x15d ; case 0x6 014b 7815 |x | Jump 0x161 ; case 0x7 014c 00da | | Load_Top At_Offset_2 014d 0091 041d | | Action Push_String_Extended_Indexed,0x41d ; "CONTEXT_CLAUSE" 014f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0150 00db | | Load_Top At_Offset_3 0151 00db | | Load_Top At_Offset_3 0152 00e0 | | Load_Encached Standard_Cache 0153 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0154 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0155 00da | | Load_Top At_Offset_2 0156 00e0 | | Load_Encached Standard_Cache 0157 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0158 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0159 00db | | Load_Top At_Offset_3 015a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015b 00db | | Load_Top At_Offset_3 015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015d e20e | | Load 0x1,0xe 015e 00dc | | Load_Top At_Offset_4 015f 0267 | g | Execute Discrete,Predecessor 0160 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0161 e20e | | Load 0x1,0xe 0162 00dc | | Load_Top At_Offset_4 0163 0268 | h | Execute Discrete,Successor 0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 021d | | Execute Heap_Access,Is_Null 016d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0177 | w | .CONST 0x0177 ; Address of begin 0171 019a | | .CONST 0x019a ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e003 | | Load 0x0,0x3 0174 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0175 e235 | 5 | Load 0x1,0x35 0176 0007 | | Action Break_Optional 0177 BODY_0170: 0177 e5fa | | Load 0x2,-0x6 0178 e004 | | Load 0x0,0x4 0179 180f | | Execute Package,Field_Execute,Field_Number 0xf 017a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 017b e5fb | | Load 0x2,-0x5 017c e235 | 5 | Load 0x1,0x35 017d 00db | | Load_Top At_Offset_3 017e 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 017f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0180 4801 |H | Short_Literal 0x1 0181 e236 | 6 | Load 0x1,0x36 0182 1c08 | | Execute_Immediate Run_Utility,0x8 0183 e5fa | | Load 0x2,-0x6 0184 e5ff | | Load 0x2,-0x1 0185 e002 | | Load 0x0,0x2 0186 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0187 180e | | Execute Package,Field_Execute,Field_Number 0xe 0188 00d9 | | Load_Top At_Offset_1 0189 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 018a e5fe | | Load 0x2,-0x2 018b 00d9 | | Load_Top At_Offset_1 018c 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 018d e5fd | | Load 0x2,-0x3 018e 00d9 | | Load_Top At_Offset_1 018f 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0190 e5fc | | Load 0x2,-0x4 0191 00d9 | | Load_Top At_Offset_1 0192 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0193 00d9 | | Load_Top At_Offset_1 0194 00d9 | | Load_Top At_Offset_1 0195 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0196 e215 | | Load 0x1,0x15 0197 00db | | Load_Top At_Offset_3 0198 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0199 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 019a TRAP_0170: 019a e004 | | Load 0x0,0x4 019b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 019c 010f | | Execute Exception,Equal 019d 6803 |h | Jump_Zero 0x1a1 019e e002 | | Load 0x0,0x2 019f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a0 0257 | W | Execute Discrete,Raise 01a1 e004 | | Load 0x0,0x4 01a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01a3 010f | | Execute Exception,Equal 01a4 6803 |h | Jump_Zero 0x1a8 01a5 e002 | | Load 0x0,0x2 01a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a7 0257 | W | Execute Discrete,Raise 01a8 0100 | | Execute Exception,Raise 01a9 0000 0000 | | .BLANK 0000[0x7] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 01c6 | | .CONST 0x01c6 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 4800 |H | Short_Literal 0x0 01b4 e236 | 6 | Load 0x1,0x36 01b5 1c08 | | Execute_Immediate Run_Utility,0x8 01b6 e5fd | | Load 0x2,-0x3 01b7 e5ff | | Load 0x2,-0x1 01b8 e002 | | Load 0x0,0x2 01b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ba 180e | | Execute Package,Field_Execute,Field_Number 0xe 01bb 00d9 | | Load_Top At_Offset_1 01bc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01bd e5fe | | Load 0x2,-0x2 01be 00d9 | | Load_Top At_Offset_1 01bf 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 01c0 e215 | | Load 0x1,0x15 01c1 e5fd | | Load 0x2,-0x3 01c2 e004 | | Load 0x0,0x4 01c3 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c4 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01c5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01c6 TRAP_01b0: 01c6 e004 | | Load 0x0,0x4 01c7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01c8 010f | | Execute Exception,Equal 01c9 6803 |h | Jump_Zero 0x1cd 01ca e002 | | Load 0x0,0x2 01cb 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01cc 0257 | W | Execute Discrete,Raise 01cd e004 | | Load 0x0,0x4 01ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01cf 010f | | Execute Exception,Equal 01d0 6803 |h | Jump_Zero 0x1d4 01d1 e002 | | Load 0x0,0x2 01d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d3 0257 | W | Execute Discrete,Raise 01d4 0100 | | Execute Exception,Raise 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 7003 |p | Jump_Nonzero 0x1e0 01dd e002 | | Load 0x0,0x2 01de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01df 0257 | W | Execute Discrete,Raise 01e0 00da | | Load_Top At_Offset_2 01e1 0217 | | Execute Heap_Access,All_Reference 01e2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01e3 e002 | | Load 0x0,0x2 01e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e5 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e7 0000 | | .XXX[0x1] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 7003 |p | Jump_Nonzero 0x1f0 01ed e002 | | Load 0x0,0x2 01ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ef 0257 | W | Execute Discrete,Raise 01f0 00da | | Load_Top At_Offset_2 01f1 0217 | | Execute Heap_Access,All_Reference 01f2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0204 | | .CONST 0x0204 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc 7003 |p | Jump_Nonzero 0x200 01fd e002 | | Load 0x0,0x2 01fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ff 0257 | W | Execute Discrete,Raise 0200 00da | | Load_Top At_Offset_2 0201 0217 | | Execute Heap_Access,All_Reference 0202 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0204 TRAP_01f8: 0204 010e | | Execute Exception,Is_Constraint_Error 0205 6803 |h | Jump_Zero 0x209 0206 e002 | | Load 0x0,0x2 0207 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0208 0257 | W | Execute Discrete,Raise 0209 0100 | | Execute Exception,Raise 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 021c | | .CONST 0x021c ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 7003 |p | Jump_Nonzero 0x218 0215 e002 | | Load 0x0,0x2 0216 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0217 0257 | W | Execute Discrete,Raise 0218 00da | | Load_Top At_Offset_2 0219 0217 | | Execute Heap_Access,All_Reference 021a 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 021b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021c TRAP_0210: 021c 010e | | Execute Exception,Is_Constraint_Error 021d 6803 |h | Jump_Zero 0x221 021e e002 | | Load 0x0,0x2 021f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0220 0257 | W | Execute Discrete,Raise 0221 0100 | | Execute Exception,Raise 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0234 | 4 | .CONST 0x0234 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 7003 |p | Jump_Nonzero 0x230 022d e002 | | Load 0x0,0x2 022e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022f 0257 | W | Execute Discrete,Raise 0230 00da | | Load_Top At_Offset_2 0231 0217 | | Execute Heap_Access,All_Reference 0232 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0233 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0234 TRAP_0228: 0234 010e | | Execute Exception,Is_Constraint_Error 0235 6803 |h | Jump_Zero 0x239 0236 e002 | | Load 0x0,0x2 0237 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0238 0257 | W | Execute Discrete,Raise 0239 0100 | | Execute Exception,Raise 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 024f | O | .CONST 0x024f ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 7003 |p | Jump_Nonzero 0x248 0245 e002 | | Load 0x0,0x2 0246 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0247 0257 | W | Execute Discrete,Raise 0248 00da | | Load_Top At_Offset_2 0249 0217 | | Execute Heap_Access,All_Reference 024a 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 024b 0217 | | Execute Heap_Access,All_Reference 024c 0335 | 5 | Declare_Variable Array,Duplicate 024d 00cd | | Action Spare6_Action 024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024f TRAP_0240: 024f 010e | | Execute Exception,Is_Constraint_Error 0250 6803 |h | Jump_Zero 0x254 0251 e002 | | Load 0x0,0x2 0252 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0253 0257 | W | Execute Discrete,Raise 0254 0100 | | Execute Exception,Raise 0255 0000 0000 | | .XXX[0x3] 0257 0000 | | 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0264 | d | .CONST 0x0264 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 025c 7003 |p | Jump_Nonzero 0x260 025d e002 | | Load 0x0,0x2 025e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025f 0257 | W | Execute Discrete,Raise 0260 00da | | Load_Top At_Offset_2 0261 0217 | | Execute Heap_Access,All_Reference 0262 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0263 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0264 TRAP_0258: 0264 010e | | Execute Exception,Is_Constraint_Error 0265 6803 |h | Jump_Zero 0x269 0266 e002 | | Load 0x0,0x2 0267 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0268 0257 | W | Execute Discrete,Raise 0269 0100 | | Execute Exception,Raise 026a 0000 0000 | | .BLANK 0000[0x6] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0278 | x | .CONST 0x0278 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 4801 |H | Short_Literal 0x1 0274 4800 |H | Short_Literal 0x0 0275 e220 | | Load 0x1,0x20 0276 035b | [ | Declare_Type Array,Constrained 0277 0337 | 7 | Declare_Variable Array 0278 BODY_0270: 0278 00d8 | | Load_Top At_Offset_0 0279 e220 | | Load 0x1,0x20 027a 01c6 | | Execute Vector,Convert_To_Formal 027b 00ca | | Action Exit_Nullary_Function 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 021d | | Execute Heap_Access,Is_Null 0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028f | | .CONST 0x028f ; Address of begin 0289 02b1 | | .CONST 0x02b1 ; Address of exception handler 028a 0003 | | .CONST 0x0003 ; Number of locals 028b INIT_0288: 028b e003 | | Load 0x0,0x3 028c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 028d e237 | 7 | Load 0x1,0x37 028e 0007 | | Action Break_Optional 028f BODY_0288: 028f e5fb | | Load 0x2,-0x5 0290 e004 | | Load 0x0,0x4 0291 180f | | Execute Package,Field_Execute,Field_Number 0xf 0292 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0293 e5fd | | Load 0x2,-0x3 0294 e237 | 7 | Load 0x1,0x37 0295 00db | | Load_Top At_Offset_3 0296 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0297 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0298 e238 | 8 | Load 0x1,0x38 0299 0322 | " | Declare_Variable Record 029a e5fb | | Load 0x2,-0x5 029b e5ff | | Load 0x2,-0x1 029c e002 | | Load 0x0,0x2 029d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029e 180e | | Execute Package,Field_Execute,Field_Number 0xe 029f 00d9 | | Load_Top At_Offset_1 02a0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a1 e5fe | | Load 0x2,-0x2 02a2 e238 | 8 | Load 0x1,0x38 02a3 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 02a4 0119 | | Execute Any,Check_In_Formal_Type 02a5 00d9 | | Load_Top At_Offset_1 02a6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a7 00d9 | | Load_Top At_Offset_1 02a8 00d9 | | Load_Top At_Offset_1 02a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02aa e5fc | | Load 0x2,-0x4 02ab 00d9 | | Load_Top At_Offset_1 02ac 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02ad e222 | " | Load 0x1,0x22 02ae 00db | | Load_Top At_Offset_3 02af 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 02b0 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 02b1 TRAP_0288: 02b1 e004 | | Load 0x0,0x4 02b2 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02b3 010f | | Execute Exception,Equal 02b4 6803 |h | Jump_Zero 0x2b8 02b5 e002 | | Load 0x0,0x2 02b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02b7 0257 | W | Execute Discrete,Raise 02b8 e004 | | Load 0x0,0x4 02b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02ba 010f | | Execute Exception,Equal 02bb 6803 |h | Jump_Zero 0x2bf 02bc e002 | | Load 0x0,0x2 02bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02be 0257 | W | Execute Discrete,Raise 02bf 0100 | | Execute Exception,Raise 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 02c4 7003 |p | Jump_Nonzero 0x2c8 02c5 e002 | | Load 0x0,0x2 02c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c7 0257 | W | Execute Discrete,Raise 02c8 00da | | Load_Top At_Offset_2 02c9 0217 | | Execute Heap_Access,All_Reference 02ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02cb e002 | | Load 0x0,0x2 02cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02cd 180f | | Execute Package,Field_Execute,Field_Number 0xf 02ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 7003 |p | Jump_Nonzero 0x2d8 02d5 e002 | | Load 0x0,0x2 02d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d7 0257 | W | Execute Discrete,Raise 02d8 00da | | Load_Top At_Offset_2 02d9 0217 | | Execute Heap_Access,All_Reference 02da 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02db 0335 | 5 | Declare_Variable Array,Duplicate 02dc 00cd | | Action Spare6_Action 02dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02de 0000 0000 | | .XXX[0x2] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 7003 |p | Jump_Nonzero 0x2e8 02e5 e002 | | Load 0x0,0x2 02e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e7 0257 | W | Execute Discrete,Raise 02e8 00da | | Load_Top At_Offset_2 02e9 0217 | | Execute Heap_Access,All_Reference 02ea 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02eb 0217 | | Execute Heap_Access,All_Reference 02ec 0335 | 5 | Declare_Variable Array,Duplicate 02ed 00cd | | Action Spare6_Action 02ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ef 0000 | | .XXX[0x1] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 00da | | Load_Top At_Offset_2 02f4 7003 |p | Jump_Nonzero 0x2f8 02f5 e002 | | Load 0x0,0x2 02f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02f7 0257 | W | Execute Discrete,Raise 02f8 00da | | Load_Top At_Offset_2 02f9 0217 | | Execute Heap_Access,All_Reference 02fa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0308 | | .CONST 0x0308 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0002 | | .CONST 0x0002 ; Number of locals 0303 INIT_0300: 0303 4801 |H | Short_Literal 0x1 0304 4800 |H | Short_Literal 0x0 0305 e229 | ) | Load 0x1,0x29 0306 035b | [ | Declare_Type Array,Constrained 0307 0337 | 7 | Declare_Variable Array 0308 BODY_0300: 0308 00d8 | | Load_Top At_Offset_0 0309 e229 | ) | Load 0x1,0x29 030a 01c6 | | Execute Vector,Convert_To_Formal 030b 00ca | | Action Exit_Nullary_Function 030c 0000 0000 | | .BLANK 0000[0x4] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 e22b | + | Load 0x1,0x2b 0314 00ca | | Action Exit_Nullary_Function 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c 021d | | Execute Heap_Access,Is_Null 031d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031e 0000 0000 | | .XXX[0x2] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 032a | * | .CONST 0x032a ; Address of begin 0321 0346 | F | .CONST 0x0346 ; Address of exception handler 0322 0005 | | .CONST 0x0005 ; Number of locals 0323 INIT_0320: 0323 e003 | | Load 0x0,0x3 0324 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0325 e239 | 9 | Load 0x1,0x39 0326 0007 | | Action Break_Optional 0327 e235 | 5 | Load 0x1,0x35 0328 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 032a BODY_0320: 032a e5fc | | Load 0x2,-0x4 032b e004 | | Load 0x0,0x4 032c 180f | | Execute Package,Field_Execute,Field_Number 0xf 032d a402 | | Store_Unchecked 0x2,0x2 032e 8405 | | Call 0x2,0x5 032f e5fd | | Load 0x2,-0x3 0330 e235 | 5 | Load 0x1,0x35 0331 e402 | | Load 0x2,0x2 0332 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0333 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0334 e23a | : | Load 0x1,0x3a 0335 0322 | " | Declare_Variable Record 0336 e5ff | | Load 0x2,-0x1 0337 e23a | : | Load 0x1,0x3a 0338 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0339 0119 | | Execute Any,Check_In_Formal_Type 033a 00d9 | | Load_Top At_Offset_1 033b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 033c 00db | | Load_Top At_Offset_3 033d 00d9 | | Load_Top At_Offset_1 033e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 033f 00da | | Load_Top At_Offset_2 0340 00d9 | | Load_Top At_Offset_1 0341 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0342 e22b | + | Load 0x1,0x2b 0343 e402 | | Load 0x2,0x2 0344 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0345 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0346 TRAP_0320: 0346 e004 | | Load 0x0,0x4 0347 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0348 010f | | Execute Exception,Equal 0349 6803 |h | Jump_Zero 0x34d 034a e002 | | Load 0x0,0x2 034b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 034c 0257 | W | Execute Discrete,Raise 034d e004 | | Load 0x0,0x4 034e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 034f 010f | | Execute Exception,Equal 0350 6803 |h | Jump_Zero 0x354 0351 e002 | | Load 0x0,0x2 0352 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0353 0257 | W | Execute Discrete,Raise 0354 0100 | | Execute Exception,Raise 0355 0000 0000 | | .XXX[0x3] 0357 0000 | | 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b e5fd | | Load 0x2,-0x3 035c e005 | | Load 0x0,0x5 035d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 035e c5fd | | Store 0x2,-0x3 035f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 822d | - | Call 0x1,0x2d 0365 6801 |h | Jump_Zero 0x367 0366 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0367 0092 0422 | "| Action Push_String_Extended,0x422 ; "Pragma Characteristics Customizations" 0369 4800 |H | Short_Literal 0x0 036a 8006 | | Call 0x0,0x6 036b 4801 |H | Short_Literal 0x1 036c 00db | | Load_Top At_Offset_3 036d 8232 | 2 | Call 0x1,0x32 036e 0092 0423 | #| Action Push_String_Extended,0x423 ; "Supported Ada Pragmas" 0370 8007 | | Call 0x0,0x7 0371 4801 |H | Short_Literal 0x1 0372 00db | | Load_Top At_Offset_3 0373 8233 | 3 | Call 0x1,0x33 0374 0092 0424 | $| Action Push_String_Extended,0x424 ; "Target Pragmas" 0376 8008 | | Call 0x0,0x8 0377 4801 |H | Short_Literal 0x1 0378 00db | | Load_Top At_Offset_3 0379 8234 | 4 | Call 0x1,0x34 037a 0092 0425 | %| Action Push_String_Extended,0x425 ; "Interface Languages" 037c 8009 | | Call 0x0,0x9 037d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037e 0000 0000 | | .XXX[0x2] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 00da | | Load_Top At_Offset_2 0384 7003 |p | Jump_Nonzero 0x388 0385 e002 | | Load 0x0,0x2 0386 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0387 0257 | W | Execute Discrete,Raise 0388 00da | | Load_Top At_Offset_2 0389 0217 | | Execute Heap_Access,All_Reference 038a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 038b 0335 | 5 | Declare_Variable Array,Duplicate 038c 00cd | | Action Spare6_Action 038d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038e 0000 0000 | | .XXX[0x2] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 7003 |p | Jump_Nonzero 0x398 0395 e002 | | Load 0x0,0x2 0396 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0397 0257 | W | Execute Discrete,Raise 0398 00da | | Load_Top At_Offset_2 0399 0217 | | Execute Heap_Access,All_Reference 039a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 039b 0217 | | Execute Heap_Access,All_Reference 039c 0335 | 5 | Declare_Variable Array,Duplicate 039d 00cd | | Action Spare6_Action 039e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039f 0000 | | .XXX[0x1] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 7003 |p | Jump_Nonzero 0x3a8 03a5 e002 | | Load 0x0,0x2 03a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a7 0257 | W | Execute Discrete,Raise 03a8 00da | | Load_Top At_Offset_2 03a9 0217 | | Execute Heap_Access,All_Reference 03aa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03ab 0217 | | Execute Heap_Access,All_Reference 03ac 0335 | 5 | Declare_Variable Array,Duplicate 03ad 00cd | | Action Spare6_Action 03ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03af 0000 | | .XXX[0x1] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03cc | | .CONST 0x03cc ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0002 | | .CONST 0x0002 ; Number of locals 03b3 INIT_03b0: 03b3 e5fc | | Load 0x2,-0x4 03b4 4800 |H | Short_Literal 0x0 03b5 8221 | ! | Call 0x1,0x21 03b6 e212 | | Load 0x1,0x12 03b7 0337 | 7 | Declare_Variable Array 03b8 4801 |H | Short_Literal 0x1 03b9 4801 |H | Short_Literal 0x1 03ba 00da | | Load_Top At_Offset_2 03bb 01d6 | | Execute Vector,Field_Write 03bc 4800 |H | Short_Literal 0x0 03bd 4800 |H | Short_Literal 0x0 03be 00da | | Load_Top At_Offset_2 03bf 01d6 | | Execute Vector,Field_Write 03c0 4804 |H | Short_Literal 0x4 03c1 4802 |H | Short_Literal 0x2 03c2 4800 |H | Short_Literal 0x0 03c3 00d9 | | Load_Top At_Offset_1 03c4 e605 | | Load 0x3,0x5 03c5 01d6 | | Execute Vector,Field_Write 03c6 3ffb |? | Loop_Increasing 0x3c2 03c7 e212 | | Load 0x1,0x12 03c8 01c3 | | Execute Vector,Check_In_Type 03c9 0092 0426 | &| Action Push_String_Extended,0x426 ; "Main" 03cb 8224 | $ | Call 0x1,0x24 03cc BODY_03b0: 03cc 00d8 | | Load_Top At_Offset_0 03cd e5fe | | Load 0x2,-0x2 03ce 01cb | | Execute Vector,Append 03cf e239 | 9 | Load 0x1,0x39 03d0 e402 | | Load 0x2,0x2 03d1 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 03d2 a403 | | Store_Unchecked 0x2,0x3 03d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03d4 0000 0000 | | .BLANK 0000[0x4] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 4608 |F | Jump_Case 0x9 03dc 7808 |x | Jump 0x3e5 ; case 0x0 03dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 03de 782f |x/ | Jump 0x40e ; case 0x2 03df 782e |x. | Jump 0x40e ; case 0x3 03e0 782d |x- | Jump 0x40e ; case 0x4 03e1 782c |x, | Jump 0x40e ; case 0x5 03e2 7813 |x | Jump 0x3f6 ; case 0x6 03e3 7819 |x | Jump 0x3fd ; case 0x7 03e4 7822 |x" | Jump 0x407 ; case 0x8 03e5 00da | | Load_Top At_Offset_2 03e6 016c | l | Execute Variant_Record,Is_Constrained 03e7 7009 |p | Jump_Nonzero 0x3f1 03e8 00cf | | Action Mark_Auxiliary 03e9 4801 |H | Short_Literal 0x1 03ea e5ff | | Load 0x2,-0x1 03eb 1c08 | | Execute_Immediate Run_Utility,0x8 03ec 00d8 | | Load_Top At_Offset_0 03ed 1c00 | | Execute_Immediate Run_Utility,0x0 03ee c5ff | | Store 0x2,-0x1 03ef 00ce | | Action Pop_Auxiliary 03f0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03f1 00da | | Load_Top At_Offset_2 03f2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03f3 0f01 | | Execute_Immediate Equal,0x1 03f4 7000 |p | Jump_Nonzero 0x3f5 03f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03f6 00db | | Load_Top At_Offset_3 03f7 0f01 | | Execute_Immediate Equal,0x1 03f8 7002 |p | Jump_Nonzero 0x3fb 03f9 4802 |H | Short_Literal 0x2 03fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03fb 4801 |H | Short_Literal 0x1 03fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03fd 00db | | Load_Top At_Offset_3 03fe e5fe | | Load 0x2,-0x2 03ff 0f01 | | Execute_Immediate Equal,0x1 0400 7002 |p | Jump_Nonzero 0x403 0401 4802 |H | Short_Literal 0x2 0402 7801 |x | Jump 0x404 0403 4801 |H | Short_Literal 0x1 0404 e5ff | | Load 0x2,-0x1 0405 031b | | Declare_Type Variant_Record,Constrained 0406 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0407 00db | | Load_Top At_Offset_3 0408 e5fe | | Load 0x2,-0x2 0409 e5ff | | Load 0x2,-0x1 040a 1c06 | | Execute_Immediate Run_Utility,0x6 040b e5ff | | Load 0x2,-0x1 040c 02fc | | Declare_Variable Variant_Record,With_Constraint 040d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 040e 0869 | i | Execute_Immediate Raise,0x69 040f ; -------------------------------------------------------------------------------------- 040f ; STRING TABLE 040f ; -------------------------------------------------------------------------------------- 040f 0032 | 2 | .STRTAB 0x0032->0x0428 ; "CONTROLLED_PRAGMA" 0410 0041 | A | .STRTAB 0x0041->0x0430 ; "ELABORATE_PRAGMA" 0411 004f | O | .STRTAB 0x004f->0x0438 ; "INLINE_PRAGMA" 0412 005a | Z | .STRTAB 0x005a->0x043f ; "INTERFACE_PRAGMA" 0413 0068 | h | .STRTAB 0x0068->0x0447 ; "LIST_PRAGMA" 0414 0071 | q | .STRTAB 0x0071->0x044c ; "MEMORY_SIZE_PRAGMA" 0415 0081 | | .STRTAB 0x0081->0x0455 ; "OPTIMIZE_PRAGMA" 0416 008e | | .STRTAB 0x008e->0x045d ; "PACK_PRAGMA" 0417 0097 | | .STRTAB 0x0097->0x0462 ; "PAGE_PRAGMA" 0418 00a0 | | .STRTAB 0x00a0->0x0468 ; "PRIORITY_PRAGMA" 0419 00ad | | .STRTAB 0x00ad->0x046f ; "SHARED_PRAGMA" 041a 00b8 | | .STRTAB 0x00b8->0x0476 ; "STORAGE_UNIT_PRAGMA" 041b 00c9 | | .STRTAB 0x00c9->0x047f ; "SUPPRESS_PRAGMA" 041c 00d6 | | .STRTAB 0x00d6->0x0487 ; "SYSTEM_NAME_PRAGMA" 041d 00e6 | | .STRTAB 0x00e6->0x0490 ; "CONTEXT_CLAUSE" 041e 00f2 | | .STRTAB 0x00f2->0x0497 ; "COMP_UNIT" 041f 00f9 | | .STRTAB 0x00f9->0x049b ; "STATEMENT" 0420 0100 | | .STRTAB 0x0100->0x04a0 ; "DECLARATION" 0421 0109 | | .STRTAB 0x0109->0x04a5 ; "TASK_SPEC" 0422 0110 | | .STRTAB 0x0110->0x04aa ; "Pragma Characteristics Customizations" 0423 0133 | 3 | .STRTAB 0x0133->0x04bc ; "Supported Ada Pragmas" 0424 0146 | F | .STRTAB 0x0146->0x04c7 ; "Target Pragmas" 0425 0152 | R | .STRTAB 0x0152->0x04ce ; "Interface Languages" 0426 0163 | c | .STRTAB 0x0163->0x04d7 ; "Main" 0427 0165 | e | .STREND 0x0165->0x04d9 0428 434f 4e54 |CONT| .STRTAB_STRINGS 04da 0000 0000 | | .BLANK 0000[0x6] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; Debug Table 04e0 ; -------------------------------------------------------------------------------------- 04e0 0004 000d | | .DEBUG4 0x0004,0x000d,0x7a6a,0x0000,0x0001,0x0000 04e6 0000 0000 | | .BLANK 0000[0x21] 0507 00ed a000 | | .XXX[0x6] 0509 0000 0000 | | 050b 0000 0e74 | t| 050d 0000 0000 | | .BLANK 0000[0x2c] 0539 0395 | | .XXX[0x1] 053a 0000 0000 | | .BLANK 0000[0x23] 055d e8c0 | | .XXX[0x1] 055e 0000 0000 | | .BLANK 0000[0x16] 0574 0202 0202 | | .BLANK 0202[0x27] 059b 0000 0000 | | .XXX[0x10] 059d a600 0000 | | 059f 0340 0000 | @ | 05a1 0068 0000 | h | 05a3 000d 0000 | | 05a5 0000 c000 | | 05a7 0000 1800 | | 05a9 0000 0301 | | 05ab 0101 0101 | | .BLANK 0101[0x13] 05be 0100 0000 | | .XXX[0x4] 05c0 0437 83a2 | 7 | 05c2 0202 0202 | | .BLANK 0202[0x12] 05d4 0207 93a2 | | .XXX[0x2] 05d6 0202 0202 | | .BLANK 0202[0x12] 05e8 0207 4616 | F | .XXX[0x5] 05ea 96c6 c653 | S| 05ec a202 | | 05ed 0202 0202 | | .BLANK 0202[0xf] 05fc 0207 0726 | &| .XXX[0x4] 05fe f666 f6e6 | f |