|
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_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 04b0 | | .CONST 0x04b0 ; 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 03b3 | | Declare_Subprogram INIT_03b0,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 03e7 | | Action Push_String_Extended_Indexed,0x3e7 ; "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 03f5 | | Action Push_String_Extended_Indexed,0x3f5 ; "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 0329 | ) | .CONST 0x0329 ; Address of begin
0321 0349 | I | .CONST 0x0349 ; Address of exception handler
0322 0004 | | .CONST 0x0004 ; 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 0007 | | Action Break_Optional
0329 BODY_0320:
0329 e5fc | | Load 0x2,-0x4
032a e004 | | Load 0x0,0x4
032b 180f | | Execute Package,Field_Execute,Field_Number 0xf
032c 0033 | 3 | Store_Top Heap_Access,At_Offset_3
032d e5fe | | Load 0x2,-0x2
032e e239 | 9 | Load 0x1,0x39
032f e402 | | Load 0x2,0x2
0330 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0331 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0332 e5fd | | Load 0x2,-0x3
0333 e235 | 5 | Load 0x1,0x35
0334 e402 | | Load 0x2,0x2
0335 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0336 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0337 e23a | : | Load 0x1,0x3a
0338 0322 | " | Declare_Variable Record
0339 e5ff | | Load 0x2,-0x1
033a e23a | : | Load 0x1,0x3a
033b 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
033c 0119 | | Execute Any,Check_In_Formal_Type
033d 00d9 | | Load_Top At_Offset_1
033e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
033f 00da | | Load_Top At_Offset_2
0340 00d9 | | Load_Top At_Offset_1
0341 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0342 00d9 | | Load_Top At_Offset_1
0343 00d9 | | Load_Top At_Offset_1
0344 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0345 e22b | + | Load 0x1,0x2b
0346 e402 | | Load 0x2,0x2
0347 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0348 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0349 TRAP_0320:
0349 e004 | | Load 0x0,0x4
034a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
034b 010f | | Execute Exception,Equal
034c 6803 |h | Jump_Zero 0x350
034d e002 | | Load 0x0,0x2
034e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
034f 0257 | W | Execute Discrete,Raise
0350 e004 | | Load 0x0,0x4
0351 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0352 010f | | Execute Exception,Equal
0353 6803 |h | Jump_Zero 0x357
0354 e002 | | Load 0x0,0x2
0355 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0356 0257 | W | Execute Discrete,Raise
0357 0100 | | Execute Exception,Raise
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 03fa | | Action Push_String_Extended,0x3fa ; "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 03fb | | Action Push_String_Extended,0x3fb ; "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 03fc | | Action Push_String_Extended,0x3fc ; "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 03fd | | Action Push_String_Extended,0x3fd ; "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 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 4608 |F | Jump_Case 0x9
03b4 7808 |x | Jump 0x3bd ; case 0x0
03b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03b6 782f |x/ | Jump 0x3e6 ; case 0x2
03b7 782e |x. | Jump 0x3e6 ; case 0x3
03b8 782d |x- | Jump 0x3e6 ; case 0x4
03b9 782c |x, | Jump 0x3e6 ; case 0x5
03ba 7813 |x | Jump 0x3ce ; case 0x6
03bb 7819 |x | Jump 0x3d5 ; case 0x7
03bc 7822 |x" | Jump 0x3df ; case 0x8
03bd 00da | | Load_Top At_Offset_2
03be 016c | l | Execute Variant_Record,Is_Constrained
03bf 7009 |p | Jump_Nonzero 0x3c9
03c0 00cf | | Action Mark_Auxiliary
03c1 4801 |H | Short_Literal 0x1
03c2 e5ff | | Load 0x2,-0x1
03c3 1c08 | | Execute_Immediate Run_Utility,0x8
03c4 00d8 | | Load_Top At_Offset_0
03c5 1c00 | | Execute_Immediate Run_Utility,0x0
03c6 c5ff | | Store 0x2,-0x1
03c7 00ce | | Action Pop_Auxiliary
03c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03c9 00da | | Load_Top At_Offset_2
03ca 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03cb 0f01 | | Execute_Immediate Equal,0x1
03cc 7000 |p | Jump_Nonzero 0x3cd
03cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03ce 00db | | Load_Top At_Offset_3
03cf 0f01 | | Execute_Immediate Equal,0x1
03d0 7002 |p | Jump_Nonzero 0x3d3
03d1 4802 |H | Short_Literal 0x2
03d2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03d3 4801 |H | Short_Literal 0x1
03d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03d5 00db | | Load_Top At_Offset_3
03d6 e5fe | | Load 0x2,-0x2
03d7 0f01 | | Execute_Immediate Equal,0x1
03d8 7002 |p | Jump_Nonzero 0x3db
03d9 4802 |H | Short_Literal 0x2
03da 7801 |x | Jump 0x3dc
03db 4801 |H | Short_Literal 0x1
03dc e5ff | | Load 0x2,-0x1
03dd 031b | | Declare_Type Variant_Record,Constrained
03de 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03df 00db | | Load_Top At_Offset_3
03e0 e5fe | | Load 0x2,-0x2
03e1 e5ff | | Load 0x2,-0x1
03e2 1c06 | | Execute_Immediate Run_Utility,0x6
03e3 e5ff | | Load 0x2,-0x1
03e4 02fc | | Declare_Variable Variant_Record,With_Constraint
03e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e6 0869 | i | Execute_Immediate Raise,0x69
03e7 ; --------------------------------------------------------------------------------------
03e7 ; STRING TABLE
03e7 ; --------------------------------------------------------------------------------------
03e7 0030 | 0 | .STRTAB 0x0030->0x03ff ; "CONTROLLED_PRAGMA"
03e8 003f | ? | .STRTAB 0x003f->0x0407 ; "ELABORATE_PRAGMA"
03e9 004d | M | .STRTAB 0x004d->0x040f ; "INLINE_PRAGMA"
03ea 0058 | X | .STRTAB 0x0058->0x0416 ; "INTERFACE_PRAGMA"
03eb 0066 | f | .STRTAB 0x0066->0x041e ; "LIST_PRAGMA"
03ec 006f | o | .STRTAB 0x006f->0x0423 ; "MEMORY_SIZE_PRAGMA"
03ed 007f | | .STRTAB 0x007f->0x042c ; "OPTIMIZE_PRAGMA"
03ee 008c | | .STRTAB 0x008c->0x0434 ; "PACK_PRAGMA"
03ef 0095 | | .STRTAB 0x0095->0x0439 ; "PAGE_PRAGMA"
03f0 009e | | .STRTAB 0x009e->0x043f ; "PRIORITY_PRAGMA"
03f1 00ab | | .STRTAB 0x00ab->0x0446 ; "SHARED_PRAGMA"
03f2 00b6 | | .STRTAB 0x00b6->0x044d ; "STORAGE_UNIT_PRAGMA"
03f3 00c7 | | .STRTAB 0x00c7->0x0456 ; "SUPPRESS_PRAGMA"
03f4 00d4 | | .STRTAB 0x00d4->0x045e ; "SYSTEM_NAME_PRAGMA"
03f5 00e4 | | .STRTAB 0x00e4->0x0467 ; "CONTEXT_CLAUSE"
03f6 00f0 | | .STRTAB 0x00f0->0x046e ; "COMP_UNIT"
03f7 00f7 | | .STRTAB 0x00f7->0x0472 ; "STATEMENT"
03f8 00fe | | .STRTAB 0x00fe->0x0477 ; "DECLARATION"
03f9 0107 | | .STRTAB 0x0107->0x047c ; "TASK_SPEC"
03fa 010e | | .STRTAB 0x010e->0x0481 ; "Pragma Characteristics Customizations"
03fb 0131 | 1 | .STRTAB 0x0131->0x0493 ; "Supported Ada Pragmas"
03fc 0144 | D | .STRTAB 0x0144->0x049e ; "Target Pragmas"
03fd 0150 | P | .STRTAB 0x0150->0x04a5 ; "Interface Languages"
03fe 0161 | a | .STREND 0x0161->0x04ae
03ff 434f 4e54 |CONT| .STRTAB_STRINGS
04af 0000 | | .XXX[0x1]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug Table
04b0 ; --------------------------------------------------------------------------------------
04b0 0004 000c | | .DEBUG4 0x0004,0x000c,0x2e6f,0x0000,0x0001,0x0000
04b6 0a15 016d | m| .XXX[0xb8]
04b8 cc00 003b | ;|
04ba 7c13 9511 || |
04bc 0a80 b6ee | |
04be 0000 1dbe | |
04c0 0955 e885 | U |
04c2 405b 7900 |@[y |
04c4 000e df04 | |
04c6 ab00 42a0 | B |
04c8 2dbd 8000 |- |
04ca 076f 8255 | o U|
04cc 8321 5016 | !P |
04ce df40 0003 | @ |
04d0 b7c1 3951 | 9Q|
04d2 50a8 0b70 |P p|
04d4 2000 01db | |
04d6 e095 6448 | dH|
04d8 5405 b830 |T 0|
04da 0000 edf0 | |
04dc 4ab3 342a |J 4*|
04de 02dc 2800 | ( |
04e0 0076 f825 | v %|
04e2 5a7a 1501 |Zz |
04e4 6e1c 0000 |n |
04e6 3b7c 1395 |;| |
04e8 190a 80b7 | |
04ea 1600 001d | |
04ec be09 5754 | WT|
04ee 8540 5b8d | @[ |
04f0 0000 0edf | |
04f2 04e5 4942 | IB|
04f4 a02d ca80 | - |
04f6 0007 6f82 | o |
04f8 72a8 2150 |r !P|
04fa 16e8 4000 | @ |
04fc 03b7 c139 | 9|
04fe 5650 a80b |VP |
0500 7560 0001 |u` |
0502 dbe0 958d | |
0504 e854 05ba | T |
0506 d000 00ed | |
0508 f04e 55e4 | NU |
050a 2a02 ddc8 |* |
050c 0000 76f8 | v |
050e 272b 0215 |'+ |
0510 016e f400 | n |
0512 003b 7c12 | ;| |
0514 b48d 0a80 | |
0516 b77e 0000 | ~ |
0518 1dbe 095a | Z|
051a 8a85 405b | @[|
051c c100 000e | |
051e df04 ad4b | K|
0520 42a0 2de1 |B - |
0522 8000 076f | o|
0524 8257 dca1 | W |
0526 5016 f140 |P @|
0528 0003 b7c1 | |
052a 2bef 50a8 |+ P |
052c 0b78 e000 | x |
052e 01db e09c | |
0530 ac28 5405 | (T |
0532 bcb0 0000 | |
0534 edf0 4e56 | NV|
0536 342a 02de |4* |
0538 7800 0076 |x v|
053a f825 7fd2 | % |
053c 1501 6f44 | oD|
053e 0000 3b7c | ;||
0540 12bf f90a | |
0542 80b7 a600 | |
0544 001d be09 | |
0546 6000 8540 |` @|
0548 5bd5 0000 |[ |
054a 0edf 04e5 | |
054c 6442 a02d |dB -|
054e ec80 0007 | |
0550 6f82 5804 |o X |
0552 2150 16f6 |!P |
0554 c000 03b7 | |
0556 c139 5950 | 9YP|
0558 a80b 7be0 | { |
055a 0001 dbe0 | |
055c 9604 4854 | HT|
055e 05be 1000 | |
0560 00ed f04b | K|
0562 0494 2a02 | * |
0564 df18 0000 | |
0566 76f8 2582 |v % |
0568 5a15 016f |Z o|
056a 9400 003b | ;|
056c 7c0f a2c8 || |
056e 0000 0000 | | .BLANK 0000[0x24]
0592 0200 5000 | P | .XXX[0xc]
0594 0000 0000 | |
0596 0004 0000 | |
0598 0022 0000 | " |
059a 0000 1000 | |
059c 0000 a000 | |
059e 0000 0000 | | .BLANK 0000[0x20]
05be 0001 0000 | | .XXX[0x12]
05c0 0040 0000 | @ |
05c2 0220 0000 | |
05c4 0001 0000 | |
05c6 000a 4000 | @ |
05c8 0402 eddd | |
05ca 4000 0402 |@ |
05cc ede0 4000 | @ |
05ce 0402 ede2 | |
05d0 0000 0000 | | .BLANK 0000[0x15]
05e5 0100 006d | m| .XXX[0xf]
05e7 de42 a02e | B .|
05e9 e580 0008 | |
05eb b3db 25c0 | % |
05ed 4002 0002 |@ |
05ef 6c00 0000 |l |
05f1 1be9 0000 | |
05f3 1400 | |
05f4 0000 0000 | | .BLANK 0000[0xc]