|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 0850 | P | .CONST 0x0850 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01d0 | | .CONST 0x01d0 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 005c | \ | .CONST 0x005c ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 480e |H | Short_Literal 0xe
000d 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4803 |H | Short_Literal 0x3
0012 029f 0203 | | Declare_Subprogram INIT_0200,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 480e |H | Short_Literal 0xe
0021 4800 |H | Short_Literal 0x0
0022 4801 |H | Short_Literal 0x1
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 480e |H | Short_Literal 0xe
002f 4800 |H | Short_Literal 0x0
0030 4800 |H | Short_Literal 0x0
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 4803 |H | Short_Literal 0x3
0043 4800 |H | Short_Literal 0x0
0044 4801 |H | Short_Literal 0x1
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 4803 |H | Short_Literal 0x3
0051 4800 |H | Short_Literal 0x0
0052 4800 |H | Short_Literal 0x0
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 00e9 | | Load_Encached String_Cache
005a 0129 | ) | Execute Any,Make_Visible
005b e001 | | Load 0x0,0x1
005c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
005d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
005e 0129 | ) | Execute Any,Make_Visible
005f 4801 |H | Short_Literal 0x1
0060 4800 |H | Short_Literal 0x0
0061 00da | | Load_Top At_Offset_2
0062 035b | [ | Declare_Type Array,Constrained
0063 0336 | 6 | Declare_Variable Array,Visible
0064 e001 | | Load 0x0,0x1
0065 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0066 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0067 0129 | ) | Execute Any,Make_Visible
0068 4801 |H | Short_Literal 0x1
0069 4800 |H | Short_Literal 0x0
006a 00da | | Load_Top At_Offset_2
006b 035b | [ | Declare_Type Array,Constrained
006c 0336 | 6 | Declare_Variable Array,Visible
006d 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
006e 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0070 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0072 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0074 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0076 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0078 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
007a 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
007c 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
007e 4800 |H | Short_Literal 0x0
007f 4802 |H | Short_Literal 0x2
0080 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0082 03fe | | Declare_Type Discrete,Defined,Visible
0083 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
0084 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0086 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0088 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
008a 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
008c 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
008e 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0090 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0092 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
0094 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
0095 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0097 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
0099 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
009b 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
009d 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
009f 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
00a0 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
00a2 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
00a4 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
00a6 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
00a8 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
00aa e001 | | Load 0x0,0x1
00ab 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ad 0129 | ) | Execute Any,Make_Visible
00ae 4801 |H | Short_Literal 0x1
00af 4800 |H | Short_Literal 0x0
00b0 00da | | Load_Top At_Offset_2
00b1 035b | [ | Declare_Type Array,Constrained
00b2 0336 | 6 | Declare_Variable Array,Visible
00b3 4801 |H | Short_Literal 0x1
00b4 4fff |O | Short_Literal -0x1
00b5 00db | | Load_Top At_Offset_3
00b6 035b | [ | Declare_Type Array,Constrained
00b7 0336 | 6 | Declare_Variable Array,Visible
00b8 4800 |H | Short_Literal 0x0
00b9 4807 |H | Short_Literal 0x7
00ba 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
00bc 03fe | | Declare_Type Discrete,Defined,Visible
00bd 4800 |H | Short_Literal 0x0
00be 480e |H | Short_Literal 0xe
00bf 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
00c1 03fe | | Declare_Type Discrete,Defined,Visible
00c2 00d9 | | Load_Top At_Offset_1
00c3 0266 | f | Execute Discrete,Bounds
00c4 00e1 | | Load_Encached Boolean_Cache
00c5 02a0 | | Declare_Subprogram Null_Subprogram
00c6 4801 |H | Short_Literal 0x1
00c7 035e | ^ | Declare_Type Array,Defined,Visible
00c8 00d8 | | Load_Top At_Offset_0
00c9 0336 | 6 | Declare_Variable Array,Visible
00ca 00d8 | | Load_Top At_Offset_0
00cb 0335 | 5 | Declare_Variable Array,Duplicate
00cc 00cd | | Action Spare6_Action
00cd 4807 |H | Short_Literal 0x7
00ce 4800 |H | Short_Literal 0x0
00cf 4800 |H | Short_Literal 0x0
00d0 00d9 | | Load_Top At_Offset_1
00d1 e240 | @ | Load 0x1,0x40
00d2 01d6 | | Execute Vector,Field_Write
00d3 3ffb |? | Loop_Increasing 0xcf
00d4 00d9 | | Load_Top At_Offset_1
00d5 01d4 | | Execute Vector,Structure_Write
00d6 00d9 | | Load_Top At_Offset_1
00d7 0336 | 6 | Declare_Variable Array,Visible
00d8 00d8 | | Load_Top At_Offset_0
00d9 0335 | 5 | Declare_Variable Array,Duplicate
00da 00cd | | Action Spare6_Action
00db 4807 |H | Short_Literal 0x7
00dc 4800 |H | Short_Literal 0x0
00dd 4801 |H | Short_Literal 0x1
00de 00d9 | | Load_Top At_Offset_1
00df e241 | A | Load 0x1,0x41
00e0 01d6 | | Execute Vector,Field_Write
00e1 3ffb |? | Loop_Increasing 0xdd
00e2 00d9 | | Load_Top At_Offset_1
00e3 01d4 | | Execute Vector,Structure_Write
00e4 00db | | Load_Top At_Offset_3
00e5 0266 | f | Execute Discrete,Bounds
00e6 00e1 | | Load_Encached Boolean_Cache
00e7 02a0 | | Declare_Subprogram Null_Subprogram
00e8 4801 |H | Short_Literal 0x1
00e9 035e | ^ | Declare_Type Array,Defined,Visible
00ea 00d8 | | Load_Top At_Offset_0
00eb 0336 | 6 | Declare_Variable Array,Visible
00ec 00d8 | | Load_Top At_Offset_0
00ed 0335 | 5 | Declare_Variable Array,Duplicate
00ee 00cd | | Action Spare6_Action
00ef 480e |H | Short_Literal 0xe
00f0 4800 |H | Short_Literal 0x0
00f1 4800 |H | Short_Literal 0x0
00f2 00d9 | | Load_Top At_Offset_1
00f3 e243 | C | Load 0x1,0x43
00f4 01d6 | | Execute Vector,Field_Write
00f5 3ffb |? | Loop_Increasing 0xf1
00f6 00d9 | | Load_Top At_Offset_1
00f7 01d4 | | Execute Vector,Structure_Write
00f8 00d9 | | Load_Top At_Offset_1
00f9 0336 | 6 | Declare_Variable Array,Visible
00fa 00d8 | | Load_Top At_Offset_0
00fb 0335 | 5 | Declare_Variable Array,Duplicate
00fc 00cd | | Action Spare6_Action
00fd 480e |H | Short_Literal 0xe
00fe 4800 |H | Short_Literal 0x0
00ff 4801 |H | Short_Literal 0x1
0100 00d9 | | Load_Top At_Offset_1
0101 e244 | D | Load 0x1,0x44
0102 01d6 | | Execute Vector,Field_Write
0103 3ffb |? | Loop_Increasing 0xff
0104 00d9 | | Load_Top At_Offset_1
0105 01d4 | | Execute Vector,Structure_Write
0106 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
0107 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0109 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
010b 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
010d 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated
010f 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated
0111 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated
0113 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated
0115 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
0116 029a 059b | | Declare_Subprogram INIT_0598,For_Outer_Call,Visible,Unelaborated
0118 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
011a 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated
011c 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
011e 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
0120 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated
0122 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated
0124 e218 | | Load 0x1,0x18
0125 02a0 | | Declare_Subprogram Null_Subprogram
0126 03ad | | Declare_Type Heap_Access,Defined
0127 e216 | | Load 0x1,0x16
0128 02a0 | | Declare_Subprogram Null_Subprogram
0129 03ad | | Declare_Type Heap_Access,Defined
012a e223 | # | Load 0x1,0x23
012b 4802 |H | Short_Literal 0x2
012c e002 | | Load 0x0,0x2
012d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012e e002 | | Load 0x0,0x2
012f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0130 4802 |H | Short_Literal 0x2
0131 e002 | | Load 0x0,0x2
0132 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0133 e002 | | Load 0x0,0x2
0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0135 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call
0137 4804 |H | Short_Literal 0x4
0138 4800 |H | Short_Literal 0x0
0139 4802 |H | Short_Literal 0x2
013a 4800 |H | Short_Literal 0x0
013b 4801 |H | Short_Literal 0x1
013c 031d | | Declare_Type Variant_Record,Defined
013d 00d8 | | Load_Top At_Offset_0
013e 02a0 | | Declare_Subprogram Null_Subprogram
013f e224 | $ | Load 0x1,0x24
0140 03a3 | | Complete_Type Heap_Access,By_Defining
0141 00e1 | | Load_Encached Boolean_Cache
0142 4801 |H | Short_Literal 0x1
0143 e224 | $ | Load 0x1,0x24
0144 029f 068b | | Declare_Subprogram INIT_0688,For_Call
0146 4801 |H | Short_Literal 0x1
0147 4800 |H | Short_Literal 0x0
0148 4801 |H | Short_Literal 0x1
0149 4800 |H | Short_Literal 0x0
014a 4801 |H | Short_Literal 0x1
014b 031d | | Declare_Type Variant_Record,Defined
014c 00d8 | | Load_Top At_Offset_0
014d 02a0 | | Declare_Subprogram Null_Subprogram
014e e22d | - | Load 0x1,0x2d
014f 03a3 | | Complete_Type Heap_Access,By_Defining
0150 e23e | > | Load 0x1,0x3e
0151 e21a | | Load 0x1,0x1a
0152 e254 | T | Load 0x1,0x54
0153 00d8 | | Load_Top At_Offset_0
0154 02a0 | | Declare_Subprogram Null_Subprogram
0155 4804 |H | Short_Literal 0x4
0156 032d | - | Declare_Type Record,Defined
0157 00d8 | | Load_Top At_Offset_0
0158 02a0 | | Declare_Subprogram Null_Subprogram
0159 e244 | D | Load 0x1,0x44
015a 03a3 | | Complete_Type Heap_Access,By_Defining
015b e241 | A | Load 0x1,0x41
015c 00e1 | | Load_Encached Boolean_Cache
015d e254 | T | Load 0x1,0x54
015e 00d8 | | Load_Top At_Offset_0
015f 02a0 | | Declare_Subprogram Null_Subprogram
0160 4804 |H | Short_Literal 0x4
0161 032d | - | Declare_Type Record,Defined
0162 00d8 | | Load_Top At_Offset_0
0163 02a0 | | Declare_Subprogram Null_Subprogram
0164 e24c | L | Load 0x1,0x4c
0165 03a3 | | Complete_Type Heap_Access,By_Defining
0166 e212 | | Load 0x1,0x12
0167 e20f | | Load 0x1,0xf
0168 e255 | U | Load 0x1,0x55
0169 e254 | T | Load 0x1,0x54
016a 00d8 | | Load_Top At_Offset_0
016b 02a0 | | Declare_Subprogram Null_Subprogram
016c 4805 |H | Short_Literal 0x5
016d 032d | - | Declare_Type Record,Defined
016e 00d8 | | Load_Top At_Offset_0
016f 02a0 | | Declare_Subprogram Null_Subprogram
0170 e21a | | Load 0x1,0x1a
0171 03a3 | | Complete_Type Heap_Access,By_Defining
0172 e001 | | Load 0x0,0x1
0173 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 e22d | - | Load 0x1,0x2d
0176 02a0 | | Declare_Subprogram Null_Subprogram
0177 4802 |H | Short_Literal 0x2
0178 032d | - | Declare_Type Record,Defined
0179 00d8 | | Load_Top At_Offset_0
017a 02a0 | | Declare_Subprogram Null_Subprogram
017b e233 | 3 | Load 0x1,0x33
017c 03a3 | | Complete_Type Heap_Access,By_Defining
017d 00bf | | Action Accept_Activation
017e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
017f 00c7 | | Action Elaborate_Subprogram
0180 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0181 00c7 | | Action Elaborate_Subprogram
0182 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0183 00c7 | | Action Elaborate_Subprogram
0184 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0185 00c7 | | Action Elaborate_Subprogram
0186 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0187 00c7 | | Action Elaborate_Subprogram
0188 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0189 00c7 | | Action Elaborate_Subprogram
018a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
018b 00c7 | | Action Elaborate_Subprogram
018c 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
018d 00c7 | | Action Elaborate_Subprogram
018e 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call
0190 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0191 00c7 | | Action Elaborate_Subprogram
0192 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0193 00c7 | | Action Elaborate_Subprogram
0194 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0195 00c7 | | Action Elaborate_Subprogram
0196 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0197 00c7 | | Action Elaborate_Subprogram
0198 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0199 00c7 | | Action Elaborate_Subprogram
019a 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
019b 00c7 | | Action Elaborate_Subprogram
019c 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
019d 00c7 | | Action Elaborate_Subprogram
019e 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
019f 00c7 | | Action Elaborate_Subprogram
01a0 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
01a1 00c7 | | Action Elaborate_Subprogram
01a2 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
01a3 00c7 | | Action Elaborate_Subprogram
01a4 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
01a5 00c7 | | Action Elaborate_Subprogram
01a6 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
01a7 00c7 | | Action Elaborate_Subprogram
01a8 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
01a9 00c7 | | Action Elaborate_Subprogram
01aa 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
01ab 00c7 | | Action Elaborate_Subprogram
01ac 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
01ad 00c7 | | Action Elaborate_Subprogram
01ae 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
01af 00c7 | | Action Elaborate_Subprogram
01b0 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
01b1 00c7 | | Action Elaborate_Subprogram
01b2 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
01b3 00c7 | | Action Elaborate_Subprogram
01b4 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
01b5 00c7 | | Action Elaborate_Subprogram
01b6 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
01b7 00c7 | | Action Elaborate_Subprogram
01b8 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
01b9 00c7 | | Action Elaborate_Subprogram
01ba 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
01bb 00c7 | | Action Elaborate_Subprogram
01bc 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
01bd 00c7 | | Action Elaborate_Subprogram
01be 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
01bf 00c7 | | Action Elaborate_Subprogram
01c0 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
01c1 00c7 | | Action Elaborate_Subprogram
01c2 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
01c3 00c7 | | Action Elaborate_Subprogram
01c4 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
01c5 00c7 | | Action Elaborate_Subprogram
01c6 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
01c7 00c7 | | Action Elaborate_Subprogram
01c8 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
01c9 00c7 | | Action Elaborate_Subprogram
01ca 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
01cb 00c7 | | Action Elaborate_Subprogram
01cc 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
01cd 00c7 | | Action Elaborate_Subprogram
01ce 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
01cf 00c7 | | Action Elaborate_Subprogram
01d0 BODY_0008:
01d0 00bc | | Action Signal_Activated
01d1 00bb | | Action Signal_Completion
01d2 0000 0000 | | .BLANK 0000[0x6]
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 4607 |F | Jump_Case 0x8
01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01dd 7806 |x | Jump 0x1e4 ; case 0x1
01de 7809 |x | Jump 0x1e8 ; case 0x2
01df 780d |x | Jump 0x1ed ; case 0x3
01e0 7810 |x | Jump 0x1f1 ; case 0x4
01e1 7811 |x | Jump 0x1f3 ; case 0x5
01e2 7812 |x | Jump 0x1f5 ; case 0x6
01e3 7815 |x | Jump 0x1f9 ; case 0x7
01e4 00da | | Load_Top At_Offset_2
01e5 0091 06bf | | Action Push_String_Extended_Indexed,0x6bf ; "ACCESS_TYPE"
01e7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e8 00db | | Load_Top At_Offset_3
01e9 00db | | Load_Top At_Offset_3
01ea 00e0 | | Load_Encached Standard_Cache
01eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ed 00da | | Load_Top At_Offset_2
01ee 00e0 | | Load_Encached Standard_Cache
01ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f1 00db | | Load_Top At_Offset_3
01f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f3 00db | | Load_Top At_Offset_3
01f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f5 e20d | | Load 0x1,0xd
01f6 00dc | | Load_Top At_Offset_4
01f7 0267 | g | Execute Discrete,Predecessor
01f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f9 e20d | | Load 0x1,0xd
01fa 00dc | | Load_Top At_Offset_4
01fb 0268 | h | Execute Discrete,Successor
01fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 4607 |F | Jump_Case 0x8
0204 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0205 7806 |x | Jump 0x20c ; case 0x1
0206 7809 |x | Jump 0x210 ; case 0x2
0207 780d |x | Jump 0x215 ; case 0x3
0208 7810 |x | Jump 0x219 ; case 0x4
0209 7811 |x | Jump 0x21b ; case 0x5
020a 7812 |x | Jump 0x21d ; case 0x6
020b 7815 |x | Jump 0x221 ; case 0x7
020c 00da | | Load_Top At_Offset_2
020d 0091 06ce | | Action Push_String_Extended_Indexed,0x6ce ; "NO_SUBTYPES"
020f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0210 00db | | Load_Top At_Offset_3
0211 00db | | Load_Top At_Offset_3
0212 00e0 | | Load_Encached Standard_Cache
0213 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0214 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0215 00da | | Load_Top At_Offset_2
0216 00e0 | | Load_Encached Standard_Cache
0217 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0218 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0219 00db | | Load_Top At_Offset_3
021a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021b 00db | | Load_Top At_Offset_3
021c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021d e20e | | Load 0x1,0xe
021e 00dc | | Load_Top At_Offset_4
021f 0267 | g | Execute Discrete,Predecessor
0220 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0221 e20e | | Load 0x1,0xe
0222 00dc | | Load_Top At_Offset_4
0223 0268 | h | Execute Discrete,Successor
0224 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022d | - | .CONST 0x022d ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e21a | | Load 0x1,0x1a
022c 0007 | | Action Break_Optional
022d BODY_0228:
022d 00d8 | | Load_Top At_Offset_0
022e 00ca | | Action Exit_Nullary_Function
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 021d | | Execute Heap_Access,Is_Null
0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0243 | C | .CONST 0x0243 ; Address of begin
0239 0271 | q | .CONST 0x0271 ; Address of exception handler
023a 0005 | | .CONST 0x0005 ; Number of locals
023b INIT_0238:
023b e003 | | Load 0x0,0x3
023c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
023d e255 | U | Load 0x1,0x55
023e 0007 | | Action Break_Optional
023f e254 | T | Load 0x1,0x54
0240 0007 | | Action Break_Optional
0241 00d8 | | Load_Top At_Offset_0
0242 0007 | | Action Break_Optional
0243 BODY_0238:
0243 e5fa | | Load 0x2,-0x6
0244 e004 | | Load 0x0,0x4
0245 180f | | Execute Package,Field_Execute,Field_Number 0xf
0246 a402 | | Store_Unchecked 0x2,0x2
0247 e5fd | | Load 0x2,-0x3
0248 e255 | U | Load 0x1,0x55
0249 e402 | | Load 0x2,0x2
024a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
024b 0033 | 3 | Store_Top Heap_Access,At_Offset_3
024c e5fc | | Load 0x2,-0x4
024d e254 | T | Load 0x1,0x54
024e e402 | | Load 0x2,0x2
024f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0250 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0251 e5fb | | Load 0x2,-0x5
0252 e254 | T | Load 0x1,0x54
0253 e402 | | Load 0x2,0x2
0254 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0255 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0256 e25a | Z | Load 0x1,0x5a
0257 0322 | " | Declare_Variable Record
0258 e5fe | | Load 0x2,-0x2
0259 e25a | Z | Load 0x1,0x5a
025a 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
025b 0119 | | Execute Any,Check_In_Formal_Type
025c 00d9 | | Load_Top At_Offset_1
025d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
025e 00db | | Load_Top At_Offset_3
025f 00d9 | | Load_Top At_Offset_1
0260 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0261 e5ff | | Load 0x2,-0x1
0262 e25a | Z | Load 0x1,0x5a
0263 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0264 0119 | | Execute Any,Check_In_Formal_Type
0265 00d9 | | Load_Top At_Offset_1
0266 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0267 00da | | Load_Top At_Offset_2
0268 00d9 | | Load_Top At_Offset_1
0269 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
026a 00d9 | | Load_Top At_Offset_1
026b 00d9 | | Load_Top At_Offset_1
026c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
026d e21a | | Load 0x1,0x1a
026e e402 | | Load 0x2,0x2
026f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0270 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0271 TRAP_0238:
0271 e004 | | Load 0x0,0x4
0272 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0273 010f | | Execute Exception,Equal
0274 6803 |h | Jump_Zero 0x278
0275 e001 | | Load 0x0,0x1
0276 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0277 0257 | W | Execute Discrete,Raise
0278 e004 | | Load 0x0,0x4
0279 1b11 | | Execute Package,Field_Read,Field_Number 0x11
027a 010f | | Execute Exception,Equal
027b 6803 |h | Jump_Zero 0x27f
027c e001 | | Load 0x0,0x1
027d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
027e 0257 | W | Execute Discrete,Raise
027f 0100 | | Execute Exception,Raise
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 028e | | .CONST 0x028e ; 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 7003 |p | Jump_Nonzero 0x288
0285 e001 | | Load 0x0,0x1
0286 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0287 0257 | W | Execute Discrete,Raise
0288 00da | | Load_Top At_Offset_2
0289 0217 | | Execute Heap_Access,All_Reference
028a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
028b 0335 | 5 | Declare_Variable Array,Duplicate
028c 00cd | | Action Spare6_Action
028d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028e TRAP_0280:
028e 010e | | Execute Exception,Is_Constraint_Error
028f 6803 |h | Jump_Zero 0x293
0290 e001 | | Load 0x0,0x1
0291 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0292 0257 | W | Execute Discrete,Raise
0293 0100 | | Execute Exception,Raise
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 02a6 | | .CONST 0x02a6 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 7003 |p | Jump_Nonzero 0x2a0
029d e001 | | Load 0x0,0x1
029e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029f 0257 | W | Execute Discrete,Raise
02a0 00da | | Load_Top At_Offset_2
02a1 0217 | | Execute Heap_Access,All_Reference
02a2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02a3 0335 | 5 | Declare_Variable Array,Duplicate
02a4 00cd | | Action Spare6_Action
02a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a6 TRAP_0298:
02a6 010e | | Execute Exception,Is_Constraint_Error
02a7 6803 |h | Jump_Zero 0x2ab
02a8 e001 | | Load 0x0,0x1
02a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02aa 0257 | W | Execute Discrete,Raise
02ab 0100 | | Execute Exception,Raise
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 02bf | | .CONST 0x02bf ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 7003 |p | Jump_Nonzero 0x2b8
02b5 e001 | | Load 0x0,0x1
02b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b7 0257 | W | Execute Discrete,Raise
02b8 00da | | Load_Top At_Offset_2
02b9 0217 | | Execute Heap_Access,All_Reference
02ba 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02bb 0217 | | Execute Heap_Access,All_Reference
02bc 0335 | 5 | Declare_Variable Array,Duplicate
02bd 00cd | | Action Spare6_Action
02be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bf TRAP_02b0:
02bf 010e | | Execute Exception,Is_Constraint_Error
02c0 6803 |h | Jump_Zero 0x2c4
02c1 e001 | | Load 0x0,0x1
02c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c3 0257 | W | Execute Discrete,Raise
02c4 0100 | | Execute Exception,Raise
02c5 0000 0000 | | .XXX[0x3]
02c7 0000 | |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 7003 |p | Jump_Nonzero 0x2d0
02cd e001 | | Load 0x0,0x1
02ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02cf 0257 | W | Execute Discrete,Raise
02d0 00da | | Load_Top At_Offset_2
02d1 0217 | | Execute Heap_Access,All_Reference
02d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02d3 0217 | | Execute Heap_Access,All_Reference
02d4 0335 | 5 | Declare_Variable Array,Duplicate
02d5 00cd | | Action Spare6_Action
02d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d7 0000 | | .XXX[0x1]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 00da | | Load_Top At_Offset_2
02dc 7003 |p | Jump_Nonzero 0x2e0
02dd e001 | | Load 0x0,0x1
02de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02df 0257 | W | Execute Discrete,Raise
02e0 00da | | Load_Top At_Offset_2
02e1 0217 | | Execute Heap_Access,All_Reference
02e2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02e3 0217 | | Execute Heap_Access,All_Reference
02e4 0335 | 5 | Declare_Variable Array,Duplicate
02e5 00cd | | Action Spare6_Action
02e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4607 |F | Jump_Case 0x8
02ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02ed 7806 |x | Jump 0x2f4 ; case 0x1
02ee 7809 |x | Jump 0x2f8 ; case 0x2
02ef 780d |x | Jump 0x2fd ; case 0x3
02f0 7810 |x | Jump 0x301 ; case 0x4
02f1 7811 |x | Jump 0x303 ; case 0x5
02f2 7812 |x | Jump 0x305 ; case 0x6
02f3 7815 |x | Jump 0x309 ; case 0x7
02f4 00da | | Load_Top At_Offset_2
02f5 0091 06d2 | | Action Push_String_Extended_Indexed,0x6d2 ; "INTEGER_FORM"
02f7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02f8 00db | | Load_Top At_Offset_3
02f9 00db | | Load_Top At_Offset_3
02fa 00e0 | | Load_Encached Standard_Cache
02fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02fd 00da | | Load_Top At_Offset_2
02fe 00e0 | | Load_Encached Standard_Cache
02ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0300 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0301 00db | | Load_Top At_Offset_3
0302 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0303 00db | | Load_Top At_Offset_3
0304 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0305 e223 | # | Load 0x1,0x23
0306 00dc | | Load_Top At_Offset_4
0307 0267 | g | Execute Discrete,Predecessor
0308 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0309 e223 | # | Load 0x1,0x23
030a 00dc | | Load_Top At_Offset_4
030b 0268 | h | Execute Discrete,Successor
030c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0328 | ( | .CONST 0x0328 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 4800 |H | Short_Literal 0x0
0314 e256 | V | Load 0x1,0x56
0315 1c08 | | Execute_Immediate Run_Utility,0x8
0316 00db | | Load_Top At_Offset_3
0317 e256 | V | Load 0x1,0x56
0318 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0319 0119 | | Execute Any,Check_In_Formal_Type
031a 00d9 | | Load_Top At_Offset_1
031b 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
031c e5fe | | Load 0x2,-0x2
031d e256 | V | Load 0x1,0x56
031e 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
031f 0119 | | Execute Any,Check_In_Formal_Type
0320 00d9 | | Load_Top At_Offset_1
0321 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0322 e224 | $ | Load 0x1,0x24
0323 e5fd | | Load 0x2,-0x3
0324 e004 | | Load 0x0,0x4
0325 180f | | Execute Package,Field_Execute,Field_Number 0xf
0326 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0327 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0328 TRAP_0310:
0328 e004 | | Load 0x0,0x4
0329 1b12 | | Execute Package,Field_Read,Field_Number 0x12
032a 010f | | Execute Exception,Equal
032b 6803 |h | Jump_Zero 0x32f
032c e001 | | Load 0x0,0x1
032d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
032e 0257 | W | Execute Discrete,Raise
032f e004 | | Load 0x0,0x4
0330 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0331 010f | | Execute Exception,Equal
0332 6803 |h | Jump_Zero 0x336
0333 e001 | | Load 0x0,0x1
0334 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0335 0257 | W | Execute Discrete,Raise
0336 0100 | | Execute Exception,Raise
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0350 | P | .CONST 0x0350 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 4801 |H | Short_Literal 0x1
033c e256 | V | Load 0x1,0x56
033d 1c08 | | Execute_Immediate Run_Utility,0x8
033e 00db | | Load_Top At_Offset_3
033f e256 | V | Load 0x1,0x56
0340 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4
0341 0119 | | Execute Any,Check_In_Formal_Type
0342 00d9 | | Load_Top At_Offset_1
0343 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0344 e5fe | | Load 0x2,-0x2
0345 e256 | V | Load 0x1,0x56
0346 2305 |# | Execute Variant_Record,Field_Type,Field_Number 0x5
0347 0119 | | Execute Any,Check_In_Formal_Type
0348 00d9 | | Load_Top At_Offset_1
0349 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
034a e224 | $ | Load 0x1,0x24
034b e5fd | | Load 0x2,-0x3
034c e004 | | Load 0x0,0x4
034d 180f | | Execute Package,Field_Execute,Field_Number 0xf
034e 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
034f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0350 TRAP_0338:
0350 e004 | | Load 0x0,0x4
0351 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0352 010f | | Execute Exception,Equal
0353 6803 |h | Jump_Zero 0x357
0354 e001 | | Load 0x0,0x1
0355 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0356 0257 | W | Execute Discrete,Raise
0357 e004 | | Load 0x0,0x4
0358 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0359 010f | | Execute Exception,Equal
035a 6803 |h | Jump_Zero 0x35e
035b e001 | | Load 0x0,0x1
035c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
035d 0257 | W | Execute Discrete,Raise
035e 0100 | | Execute Exception,Raise
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 036c | l | .CONST 0x036c ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 4802 |H | Short_Literal 0x2
0364 e256 | V | Load 0x1,0x56
0365 1c08 | | Execute_Immediate Run_Utility,0x8
0366 e224 | $ | Load 0x1,0x24
0367 e5ff | | Load 0x2,-0x1
0368 e004 | | Load 0x0,0x4
0369 180f | | Execute Package,Field_Execute,Field_Number 0xf
036a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
036b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036c TRAP_0360:
036c e004 | | Load 0x0,0x4
036d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
036e 010f | | Execute Exception,Equal
036f 6803 |h | Jump_Zero 0x373
0370 e001 | | Load 0x0,0x1
0371 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0372 0257 | W | Execute Discrete,Raise
0373 e004 | | Load 0x0,0x4
0374 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0375 010f | | Execute Exception,Equal
0376 6803 |h | Jump_Zero 0x37a
0377 e001 | | Load 0x0,0x1
0378 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0379 0257 | W | Execute Discrete,Raise
037a 0100 | | Execute Exception,Raise
037b 0000 0000 | | .BLANK 0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 7003 |p | Jump_Nonzero 0x388
0385 e001 | | Load 0x0,0x1
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 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
038b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038c 0000 0000 | | .BLANK 0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 03a1 | | .CONST 0x03a1 ; 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 e001 | | Load 0x0,0x1
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 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
039b 00d8 | | Load_Top At_Offset_0
039c 0120 | | Execute Any,Is_Value
039d 7002 |p | Jump_Nonzero 0x3a0
039e 00d8 | | Load_Top At_Offset_0
039f 011e | | Execute Any,Convert
03a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a1 TRAP_0390:
03a1 010e | | Execute Exception,Is_Constraint_Error
03a2 6803 |h | Jump_Zero 0x3a6
03a3 e001 | | Load 0x0,0x1
03a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a5 0257 | W | Execute Discrete,Raise
03a6 0100 | | Execute Exception,Raise
03a7 0000 | | .XXX[0x1]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 03b9 | | .CONST 0x03b9 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 00da | | Load_Top At_Offset_2
03ac 7003 |p | Jump_Nonzero 0x3b0
03ad e001 | | Load 0x0,0x1
03ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03af 0257 | W | Execute Discrete,Raise
03b0 00da | | Load_Top At_Offset_2
03b1 0217 | | Execute Heap_Access,All_Reference
03b2 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03b3 00d8 | | Load_Top At_Offset_0
03b4 0120 | | Execute Any,Is_Value
03b5 7002 |p | Jump_Nonzero 0x3b8
03b6 00d8 | | Load_Top At_Offset_0
03b7 011e | | Execute Any,Convert
03b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b9 TRAP_03a8:
03b9 010e | | Execute Exception,Is_Constraint_Error
03ba 6803 |h | Jump_Zero 0x3be
03bb e001 | | Load 0x0,0x1
03bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03bd 0257 | W | Execute Discrete,Raise
03be 0100 | | Execute Exception,Raise
03bf 0000 | | .XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 03d1 | | .CONST 0x03d1 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 7003 |p | Jump_Nonzero 0x3c8
03c5 e001 | | Load 0x0,0x1
03c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c7 0257 | W | Execute Discrete,Raise
03c8 00da | | Load_Top At_Offset_2
03c9 0217 | | Execute Heap_Access,All_Reference
03ca 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03cb 00d8 | | Load_Top At_Offset_0
03cc 0120 | | Execute Any,Is_Value
03cd 7002 |p | Jump_Nonzero 0x3d0
03ce 00d8 | | Load_Top At_Offset_0
03cf 011e | | Execute Any,Convert
03d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d1 TRAP_03c0:
03d1 010e | | Execute Exception,Is_Constraint_Error
03d2 6803 |h | Jump_Zero 0x3d6
03d3 e001 | | Load 0x0,0x1
03d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d5 0257 | W | Execute Discrete,Raise
03d6 0100 | | Execute Exception,Raise
03d7 0000 | | .XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 03e9 | | .CONST 0x03e9 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc 7003 |p | Jump_Nonzero 0x3e0
03dd e001 | | Load 0x0,0x1
03de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03df 0257 | W | Execute Discrete,Raise
03e0 00da | | Load_Top At_Offset_2
03e1 0217 | | Execute Heap_Access,All_Reference
03e2 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03e3 00d8 | | Load_Top At_Offset_0
03e4 0120 | | Execute Any,Is_Value
03e5 7002 |p | Jump_Nonzero 0x3e8
03e6 00d8 | | Load_Top At_Offset_0
03e7 011e | | Execute Any,Convert
03e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e9 TRAP_03d8:
03e9 010e | | Execute Exception,Is_Constraint_Error
03ea 6803 |h | Jump_Zero 0x3ee
03eb e001 | | Load 0x0,0x1
03ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ed 0257 | W | Execute Discrete,Raise
03ee 0100 | | Execute Exception,Raise
03ef 0000 | | .XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 00da | | Load_Top At_Offset_2
03f4 021d | | Execute Heap_Access,Is_Null
03f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f6 0000 0000 | | .XXX[0x2]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0407 | | .CONST 0x0407 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 4801 |H | Short_Literal 0x1
03fc e257 | W | Load 0x1,0x57
03fd 1c08 | | Execute_Immediate Run_Utility,0x8
03fe 00db | | Load_Top At_Offset_3
03ff 00d9 | | Load_Top At_Offset_1
0400 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0401 e22d | - | Load 0x1,0x2d
0402 e5fe | | Load 0x2,-0x2
0403 e004 | | Load 0x0,0x4
0404 180f | | Execute Package,Field_Execute,Field_Number 0xf
0405 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0406 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0407 TRAP_03f8:
0407 e004 | | Load 0x0,0x4
0408 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0409 010f | | Execute Exception,Equal
040a 6803 |h | Jump_Zero 0x40e
040b e001 | | Load 0x0,0x1
040c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
040d 0257 | W | Execute Discrete,Raise
040e e004 | | Load 0x0,0x4
040f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0410 010f | | Execute Exception,Equal
0411 6803 |h | Jump_Zero 0x415
0412 e001 | | Load 0x0,0x1
0413 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0414 0257 | W | Execute Discrete,Raise
0415 0100 | | Execute Exception,Raise
0416 0000 0000 | | .XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0424 | $ | .CONST 0x0424 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 4800 |H | Short_Literal 0x0
041c e257 | W | Load 0x1,0x57
041d 1c08 | | Execute_Immediate Run_Utility,0x8
041e e22d | - | Load 0x1,0x2d
041f e5ff | | Load 0x2,-0x1
0420 e004 | | Load 0x0,0x4
0421 180f | | Execute Package,Field_Execute,Field_Number 0xf
0422 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0423 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0424 TRAP_0418:
0424 e004 | | Load 0x0,0x4
0425 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0426 010f | | Execute Exception,Equal
0427 6803 |h | Jump_Zero 0x42b
0428 e001 | | Load 0x0,0x1
0429 1b10 | | Execute Package,Field_Read,Field_Number 0x10
042a 0257 | W | Execute Discrete,Raise
042b e004 | | Load 0x0,0x4
042c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
042d 010f | | Execute Exception,Equal
042e 6803 |h | Jump_Zero 0x432
042f e001 | | Load 0x0,0x1
0430 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0431 0257 | W | Execute Discrete,Raise
0432 0100 | | Execute Exception,Raise
0433 0000 0000 | | .BLANK 0000[0x5]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 7003 |p | Jump_Nonzero 0x440
043d e001 | | Load 0x0,0x1
043e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
043f 0257 | W | Execute Discrete,Raise
0440 00da | | Load_Top At_Offset_2
0441 0217 | | Execute Heap_Access,All_Reference
0442 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0443 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0454 | T | .CONST 0x0454 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 7003 |p | Jump_Nonzero 0x450
044d e001 | | Load 0x0,0x1
044e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044f 0257 | W | Execute Discrete,Raise
0450 00da | | Load_Top At_Offset_2
0451 0217 | | Execute Heap_Access,All_Reference
0452 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0453 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0454 TRAP_0448:
0454 010e | | Execute Exception,Is_Constraint_Error
0455 6803 |h | Jump_Zero 0x459
0456 e001 | | Load 0x0,0x1
0457 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0458 0257 | W | Execute Discrete,Raise
0459 0100 | | Execute Exception,Raise
045a 0000 0000 | | .BLANK 0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0465 | e | .CONST 0x0465 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 e233 | 3 | Load 0x1,0x33
0464 0007 | | Action Break_Optional
0465 BODY_0460:
0465 00d8 | | Load_Top At_Offset_0
0466 00ca | | Action Exit_Nullary_Function
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 00da | | Load_Top At_Offset_2
046c 021d | | Execute Heap_Access,Is_Null
046d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046e 0000 0000 | | .XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0485 | | .CONST 0x0485 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 e25b | [ | Load 0x1,0x5b
0474 0322 | " | Declare_Variable Record
0475 e5fd | | Load 0x2,-0x3
0476 e5ff | | Load 0x2,-0x1
0477 e001 | | Load 0x0,0x1
0478 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0479 180e | | Execute Package,Field_Execute,Field_Number 0xe
047a 00d9 | | Load_Top At_Offset_1
047b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
047c e5fe | | Load 0x2,-0x2
047d 00d9 | | Load_Top At_Offset_1
047e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
047f e233 | 3 | Load 0x1,0x33
0480 e5fd | | Load 0x2,-0x3
0481 e004 | | Load 0x0,0x4
0482 180f | | Execute Package,Field_Execute,Field_Number 0xf
0483 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0484 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0485 TRAP_0470:
0485 e004 | | Load 0x0,0x4
0486 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0487 010f | | Execute Exception,Equal
0488 6803 |h | Jump_Zero 0x48c
0489 e001 | | Load 0x0,0x1
048a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
048b 0257 | W | Execute Discrete,Raise
048c e004 | | Load 0x0,0x4
048d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
048e 010f | | Execute Exception,Equal
048f 6803 |h | Jump_Zero 0x493
0490 e001 | | Load 0x0,0x1
0491 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0492 0257 | W | Execute Discrete,Raise
0493 0100 | | Execute Exception,Raise
0494 0000 0000 | | .BLANK 0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00da | | Load_Top At_Offset_2
049c 7003 |p | Jump_Nonzero 0x4a0
049d e001 | | Load 0x0,0x1
049e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
049f 0257 | W | Execute Discrete,Raise
04a0 00da | | Load_Top At_Offset_2
04a1 0217 | | Execute Heap_Access,All_Reference
04a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a3 e001 | | Load 0x0,0x1
04a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
04a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a7 0000 | | .XXX[0x1]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 00da | | Load_Top At_Offset_2
04ac 7003 |p | Jump_Nonzero 0x4b0
04ad e001 | | Load 0x0,0x1
04ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04af 0257 | W | Execute Discrete,Raise
04b0 00da | | Load_Top At_Offset_2
04b1 0217 | | Execute Heap_Access,All_Reference
04b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b4 0000 0000 | | .BLANK 0000[0x4]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 4607 |F | Jump_Case 0x8
04bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04bd 7806 |x | Jump 0x4c4 ; case 0x1
04be 7809 |x | Jump 0x4c8 ; case 0x2
04bf 780d |x | Jump 0x4cd ; case 0x3
04c0 7810 |x | Jump 0x4d1 ; case 0x4
04c1 7811 |x | Jump 0x4d3 ; case 0x5
04c2 7812 |x | Jump 0x4d5 ; case 0x6
04c3 7815 |x | Jump 0x4d9 ; case 0x7
04c4 00da | | Load_Top At_Offset_2
04c5 0091 06d5 | | Action Push_String_Extended_Indexed,0x6d5 ; "CONSTANT_KIND"
04c7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04c8 00db | | Load_Top At_Offset_3
04c9 00db | | Load_Top At_Offset_3
04ca 00e0 | | Load_Encached Standard_Cache
04cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04cd 00da | | Load_Top At_Offset_2
04ce 00e0 | | Load_Encached Standard_Cache
04cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04d1 00db | | Load_Top At_Offset_3
04d2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04d3 00db | | Load_Top At_Offset_3
04d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04d5 e23c | < | Load 0x1,0x3c
04d6 00dc | | Load_Top At_Offset_4
04d7 0267 | g | Execute Discrete,Predecessor
04d8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04d9 e23c | < | Load 0x1,0x3c
04da 00dc | | Load_Top At_Offset_4
04db 0268 | h | Execute Discrete,Successor
04dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04dd 0000 0000 | | .XXX[0x3]
04df 0000 | |
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 4607 |F | Jump_Case 0x8
04e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04e5 7806 |x | Jump 0x4ec ; case 0x1
04e6 7809 |x | Jump 0x4f0 ; case 0x2
04e7 780d |x | Jump 0x4f5 ; case 0x3
04e8 7810 |x | Jump 0x4f9 ; case 0x4
04e9 7811 |x | Jump 0x4fb ; case 0x5
04ea 7812 |x | Jump 0x4fd ; case 0x6
04eb 7815 |x | Jump 0x501 ; case 0x7
04ec 00da | | Load_Top At_Offset_2
04ed 0091 06dd | | Action Push_String_Extended_Indexed,0x6dd ; "FUNCTION_KIND"
04ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04f0 00db | | Load_Top At_Offset_3
04f1 00db | | Load_Top At_Offset_3
04f2 00e0 | | Load_Encached Standard_Cache
04f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04f5 00da | | Load_Top At_Offset_2
04f6 00e0 | | Load_Encached Standard_Cache
04f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04f9 00db | | Load_Top At_Offset_3
04fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fb 00db | | Load_Top At_Offset_3
04fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fd e23d | = | Load 0x1,0x3d
04fe 00dc | | Load_Top At_Offset_4
04ff 0267 | g | Execute Discrete,Predecessor
0500 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0501 e23d | = | Load 0x1,0x3d
0502 00dc | | Load_Top At_Offset_4
0503 0268 | h | Execute Discrete,Successor
0504 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0505 0000 0000 | | .XXX[0x3]
0507 0000 | |
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050d | | .CONST 0x050d ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0002 | | .CONST 0x0002 ; Number of locals
050b INIT_0508:
050b e244 | D | Load 0x1,0x44
050c 0007 | | Action Break_Optional
050d BODY_0508:
050d 00d8 | | Load_Top At_Offset_0
050e 00ca | | Action Exit_Nullary_Function
050f 0000 | | .XXX[0x1]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513 | | .CONST 0x0513 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0001 | | .CONST 0x0001 ; Number of locals
0513 BODY_0510:
0513 INIT_0510:
0513 00da | | Load_Top At_Offset_2
0514 021d | | Execute Heap_Access,Is_Null
0515 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0516 0000 0000 | | .XXX[0x2]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0521 | ! | .CONST 0x0521 ; Address of begin
0519 0544 | D | .CONST 0x0544 ; Address of exception handler
051a 0004 | | .CONST 0x0004 ; Number of locals
051b INIT_0518:
051b e003 | | Load 0x0,0x3
051c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
051d e254 | T | Load 0x1,0x54
051e 0007 | | Action Break_Optional
051f 00d8 | | Load_Top At_Offset_0
0520 0007 | | Action Break_Optional
0521 BODY_0518:
0521 e5fb | | Load 0x2,-0x5
0522 e004 | | Load 0x0,0x4
0523 180f | | Execute Package,Field_Execute,Field_Number 0xf
0524 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0525 e5fd | | Load 0x2,-0x3
0526 e254 | T | Load 0x1,0x54
0527 e402 | | Load 0x2,0x2
0528 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0529 0032 | 2 | Store_Top Heap_Access,At_Offset_2
052a e5fc | | Load 0x2,-0x4
052b e254 | T | Load 0x1,0x54
052c e402 | | Load 0x2,0x2
052d 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
052e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
052f e258 | X | Load 0x1,0x58
0530 0322 | " | Declare_Variable Record
0531 e5ff | | Load 0x2,-0x1
0532 e258 | X | Load 0x1,0x58
0533 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0534 0119 | | Execute Any,Check_In_Formal_Type
0535 00d9 | | Load_Top At_Offset_1
0536 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0537 e5fe | | Load 0x2,-0x2
0538 00d9 | | Load_Top At_Offset_1
0539 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
053a 00da | | Load_Top At_Offset_2
053b 00d9 | | Load_Top At_Offset_1
053c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
053d 00d9 | | Load_Top At_Offset_1
053e 00d9 | | Load_Top At_Offset_1
053f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0540 e244 | D | Load 0x1,0x44
0541 e402 | | Load 0x2,0x2
0542 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0543 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0544 TRAP_0518:
0544 e004 | | Load 0x0,0x4
0545 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0546 010f | | Execute Exception,Equal
0547 6803 |h | Jump_Zero 0x54b
0548 e001 | | Load 0x0,0x1
0549 1b10 | | Execute Package,Field_Read,Field_Number 0x10
054a 0257 | W | Execute Discrete,Raise
054b e004 | | Load 0x0,0x4
054c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
054d 010f | | Execute Exception,Equal
054e 6803 |h | Jump_Zero 0x552
054f e001 | | Load 0x0,0x1
0550 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0551 0257 | W | Execute Discrete,Raise
0552 0100 | | Execute Exception,Raise
0553 0000 0000 | | .BLANK 0000[0x5]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b | [ | .CONST 0x055b ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0001 | | .CONST 0x0001 ; Number of locals
055b BODY_0558:
055b INIT_0558:
055b 00da | | Load_Top At_Offset_2
055c 7003 |p | Jump_Nonzero 0x560
055d e001 | | Load 0x0,0x1
055e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
055f 0257 | W | Execute Discrete,Raise
0560 00da | | Load_Top At_Offset_2
0561 0217 | | Execute Heap_Access,All_Reference
0562 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0563 0335 | 5 | Declare_Variable Array,Duplicate
0564 00cd | | Action Spare6_Action
0565 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0566 0000 0000 | | .XXX[0x2]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 00da | | Load_Top At_Offset_2
056c 7003 |p | Jump_Nonzero 0x570
056d e001 | | Load 0x0,0x1
056e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056f 0257 | W | Execute Discrete,Raise
0570 00da | | Load_Top At_Offset_2
0571 0217 | | Execute Heap_Access,All_Reference
0572 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0573 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0574 0000 0000 | | .BLANK 0000[0x4]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b | { | .CONST 0x057b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0001 | | .CONST 0x0001 ; Number of locals
057b BODY_0578:
057b INIT_0578:
057b 00da | | Load_Top At_Offset_2
057c 7003 |p | Jump_Nonzero 0x580
057d e001 | | Load 0x0,0x1
057e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
057f 0257 | W | Execute Discrete,Raise
0580 00da | | Load_Top At_Offset_2
0581 0217 | | Execute Heap_Access,All_Reference
0582 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0583 0217 | | Execute Heap_Access,All_Reference
0584 0335 | 5 | Declare_Variable Array,Duplicate
0585 00cd | | Action Spare6_Action
0586 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0587 0000 | | .XXX[0x1]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b 00da | | Load_Top At_Offset_2
058c 7003 |p | Jump_Nonzero 0x590
058d e001 | | Load 0x0,0x1
058e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
058f 0257 | W | Execute Discrete,Raise
0590 00da | | Load_Top At_Offset_2
0591 0217 | | Execute Heap_Access,All_Reference
0592 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0593 0217 | | Execute Heap_Access,All_Reference
0594 0335 | 5 | Declare_Variable Array,Duplicate
0595 00cd | | Action Spare6_Action
0596 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0597 0000 | | .XXX[0x1]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059d | | .CONST 0x059d ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0002 | | .CONST 0x0002 ; Number of locals
059b INIT_0598:
059b e24c | L | Load 0x1,0x4c
059c 0007 | | Action Break_Optional
059d BODY_0598:
059d 00d8 | | Load_Top At_Offset_0
059e 00ca | | Action Exit_Nullary_Function
059f 0000 | | .XXX[0x1]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 00da | | Load_Top At_Offset_2
05a4 021d | | Execute Heap_Access,Is_Null
05a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a6 0000 0000 | | .XXX[0x2]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b1 | | .CONST 0x05b1 ; Address of begin
05a9 05d4 | | .CONST 0x05d4 ; Address of exception handler
05aa 0004 | | .CONST 0x0004 ; Number of locals
05ab INIT_05a8:
05ab e003 | | Load 0x0,0x3
05ac 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
05ad e254 | T | Load 0x1,0x54
05ae 0007 | | Action Break_Optional
05af 00d8 | | Load_Top At_Offset_0
05b0 0007 | | Action Break_Optional
05b1 BODY_05a8:
05b1 e5fb | | Load 0x2,-0x5
05b2 e004 | | Load 0x0,0x4
05b3 180f | | Execute Package,Field_Execute,Field_Number 0xf
05b4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
05b5 e5fd | | Load 0x2,-0x3
05b6 e254 | T | Load 0x1,0x54
05b7 e402 | | Load 0x2,0x2
05b8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
05b9 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05ba e5fc | | Load 0x2,-0x4
05bb e254 | T | Load 0x1,0x54
05bc e402 | | Load 0x2,0x2
05bd 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
05be 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05bf e259 | Y | Load 0x1,0x59
05c0 0322 | " | Declare_Variable Record
05c1 e5ff | | Load 0x2,-0x1
05c2 e259 | Y | Load 0x1,0x59
05c3 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
05c4 0119 | | Execute Any,Check_In_Formal_Type
05c5 00d9 | | Load_Top At_Offset_1
05c6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05c7 e5fe | | Load 0x2,-0x2
05c8 00d9 | | Load_Top At_Offset_1
05c9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05ca 00da | | Load_Top At_Offset_2
05cb 00d9 | | Load_Top At_Offset_1
05cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05cd 00d9 | | Load_Top At_Offset_1
05ce 00d9 | | Load_Top At_Offset_1
05cf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05d0 e24c | L | Load 0x1,0x4c
05d1 e402 | | Load 0x2,0x2
05d2 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
05d3 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
05d4 TRAP_05a8:
05d4 e004 | | Load 0x0,0x4
05d5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05d6 010f | | Execute Exception,Equal
05d7 6803 |h | Jump_Zero 0x5db
05d8 e001 | | Load 0x0,0x1
05d9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05da 0257 | W | Execute Discrete,Raise
05db e004 | | Load 0x0,0x4
05dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05dd 010f | | Execute Exception,Equal
05de 6803 |h | Jump_Zero 0x5e2
05df e001 | | Load 0x0,0x1
05e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05e1 0257 | W | Execute Discrete,Raise
05e2 0100 | | Execute Exception,Raise
05e3 0000 0000 | | .BLANK 0000[0x5]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 00da | | Load_Top At_Offset_2
05ec 7003 |p | Jump_Nonzero 0x5f0
05ed e001 | | Load 0x0,0x1
05ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ef 0257 | W | Execute Discrete,Raise
05f0 00da | | Load_Top At_Offset_2
05f1 0217 | | Execute Heap_Access,All_Reference
05f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f4 0000 0000 | | .BLANK 0000[0x4]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 00da | | Load_Top At_Offset_2
05fc 7003 |p | Jump_Nonzero 0x600
05fd e001 | | Load 0x0,0x1
05fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ff 0257 | W | Execute Discrete,Raise
0600 00da | | Load_Top At_Offset_2
0601 0217 | | Execute Heap_Access,All_Reference
0602 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0603 0335 | 5 | Declare_Variable Array,Duplicate
0604 00cd | | Action Spare6_Action
0605 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0606 0000 0000 | | .XXX[0x2]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c 7003 |p | Jump_Nonzero 0x610
060d e001 | | Load 0x0,0x1
060e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
060f 0257 | W | Execute Discrete,Raise
0610 00da | | Load_Top At_Offset_2
0611 0217 | | Execute Heap_Access,All_Reference
0612 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0613 0217 | | Execute Heap_Access,All_Reference
0614 0335 | 5 | Declare_Variable Array,Duplicate
0615 00cd | | Action Spare6_Action
0616 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0617 0000 | | .XXX[0x1]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b | | .CONST 0x061b ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0001 | | .CONST 0x0001 ; Number of locals
061b BODY_0618:
061b INIT_0618:
061b 00da | | Load_Top At_Offset_2
061c 7003 |p | Jump_Nonzero 0x620
061d e001 | | Load 0x0,0x1
061e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
061f 0257 | W | Execute Discrete,Raise
0620 00da | | Load_Top At_Offset_2
0621 0217 | | Execute Heap_Access,All_Reference
0622 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0623 0217 | | Execute Heap_Access,All_Reference
0624 0335 | 5 | Declare_Variable Array,Duplicate
0625 00cd | | Action Spare6_Action
0626 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0627 0000 | | .XXX[0x1]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b | + | .CONST 0x062b ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0001 | | .CONST 0x0001 ; Number of locals
062b BODY_0628:
062b INIT_0628:
062b 00da | | Load_Top At_Offset_2
062c 021d | | Execute Heap_Access,Is_Null
062d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
062e 0000 0000 | | .XXX[0x2]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633 | 3 | .CONST 0x0633 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0001 | | .CONST 0x0001 ; Number of locals
0633 BODY_0630:
0633 INIT_0630:
0633 4608 |F | Jump_Case 0x9
0634 7808 |x | Jump 0x63d ; case 0x0
0635 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0636 784e |xN | Jump 0x685 ; case 0x2
0637 784d |xM | Jump 0x685 ; case 0x3
0638 784c |xL | Jump 0x685 ; case 0x4
0639 784b |xK | Jump 0x685 ; case 0x5
063a 782a |x* | Jump 0x665 ; case 0x6
063b 7834 |x4 | Jump 0x670 ; case 0x7
063c 7841 |xA | Jump 0x67e ; case 0x8
063d 00da | | Load_Top At_Offset_2
063e 016c | l | Execute Variant_Record,Is_Constrained
063f 7009 |p | Jump_Nonzero 0x649
0640 00cf | | Action Mark_Auxiliary
0641 4802 |H | Short_Literal 0x2
0642 e5ff | | Load 0x2,-0x1
0643 1c08 | | Execute_Immediate Run_Utility,0x8
0644 00d8 | | Load_Top At_Offset_0
0645 1c00 | | Execute_Immediate Run_Utility,0x0
0646 c5ff | | Store 0x2,-0x1
0647 00ce | | Action Pop_Auxiliary
0648 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0649 00da | | Load_Top At_Offset_2
064a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
064b 4602 |F | Jump_Case 0x3
064c 7802 |x | Jump 0x64f ; case 0x0
064d 780c |x | Jump 0x65a ; case 0x1
064e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
064f 00da | | Load_Top At_Offset_2
0650 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0651 00da | | Load_Top At_Offset_2
0652 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0653 1c00 | | Execute_Immediate Run_Utility,0x0
0654 00da | | Load_Top At_Offset_2
0655 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
0656 00da | | Load_Top At_Offset_2
0657 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0658 1c00 | | Execute_Immediate Run_Utility,0x0
0659 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
065a 00da | | Load_Top At_Offset_2
065b 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
065c 00da | | Load_Top At_Offset_2
065d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
065e 1c00 | | Execute_Immediate Run_Utility,0x0
065f 00da | | Load_Top At_Offset_2
0660 2205 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x5
0661 00da | | Load_Top At_Offset_2
0662 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0663 1c00 | | Execute_Immediate Run_Utility,0x0
0664 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0665 00db | | Load_Top At_Offset_3
0666 4602 |F | Jump_Case 0x3
0667 7804 |x | Jump 0x66c ; case 0x0
0668 7805 |x | Jump 0x66e ; case 0x1
0669 7800 |x | Jump 0x66a ; case 0x2
066a 48ff |H | Short_Literal 0xff
066b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
066c 4801 |H | Short_Literal 0x1
066d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
066e 4802 |H | Short_Literal 0x2
066f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0670 00db | | Load_Top At_Offset_3
0671 e5fe | | Load 0x2,-0x2
0672 4602 |F | Jump_Case 0x3
0673 7804 |x | Jump 0x678 ; case 0x0
0674 7805 |x | Jump 0x67a ; case 0x1
0675 7800 |x | Jump 0x676 ; case 0x2
0676 48ff |H | Short_Literal 0xff
0677 7803 |x | Jump 0x67b
0678 4801 |H | Short_Literal 0x1
0679 7801 |x | Jump 0x67b
067a 4802 |H | Short_Literal 0x2
067b e5ff | | Load 0x2,-0x1
067c 031b | | Declare_Type Variant_Record,Constrained
067d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
067e 00db | | Load_Top At_Offset_3
067f e5fe | | Load 0x2,-0x2
0680 e5ff | | Load 0x2,-0x1
0681 1c06 | | Execute_Immediate Run_Utility,0x6
0682 e5ff | | Load 0x2,-0x1
0683 02fc | | Declare_Variable Variant_Record,With_Constraint
0684 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0685 0869 | i | Execute_Immediate Raise,0x69
0686 0000 0000 | | .XXX[0x2]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b 4608 |F | Jump_Case 0x9
068c 7808 |x | Jump 0x695 ; case 0x0
068d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
068e 782f |x/ | Jump 0x6be ; case 0x2
068f 782e |x. | Jump 0x6be ; case 0x3
0690 782d |x- | Jump 0x6be ; case 0x4
0691 782c |x, | Jump 0x6be ; case 0x5
0692 7813 |x | Jump 0x6a6 ; case 0x6
0693 7819 |x | Jump 0x6ad ; case 0x7
0694 7822 |x" | Jump 0x6b7 ; case 0x8
0695 00da | | Load_Top At_Offset_2
0696 016c | l | Execute Variant_Record,Is_Constrained
0697 7009 |p | Jump_Nonzero 0x6a1
0698 00cf | | Action Mark_Auxiliary
0699 4800 |H | Short_Literal 0x0
069a e5ff | | Load 0x2,-0x1
069b 1c08 | | Execute_Immediate Run_Utility,0x8
069c 00d8 | | Load_Top At_Offset_0
069d 1c00 | | Execute_Immediate Run_Utility,0x0
069e c5ff | | Store 0x2,-0x1
069f 00ce | | Action Pop_Auxiliary
06a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06a1 00da | | Load_Top At_Offset_2
06a2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06a3 0f01 | | Execute_Immediate Equal,0x1
06a4 7000 |p | Jump_Nonzero 0x6a5
06a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06a6 00db | | Load_Top At_Offset_3
06a7 0f01 | | Execute_Immediate Equal,0x1
06a8 7002 |p | Jump_Nonzero 0x6ab
06a9 48ff |H | Short_Literal 0xff
06aa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06ab 4801 |H | Short_Literal 0x1
06ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06ad 00db | | Load_Top At_Offset_3
06ae e5fe | | Load 0x2,-0x2
06af 0f01 | | Execute_Immediate Equal,0x1
06b0 7002 |p | Jump_Nonzero 0x6b3
06b1 48ff |H | Short_Literal 0xff
06b2 7801 |x | Jump 0x6b4
06b3 4801 |H | Short_Literal 0x1
06b4 e5ff | | Load 0x2,-0x1
06b5 031b | | Declare_Type Variant_Record,Constrained
06b6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06b7 00db | | Load_Top At_Offset_3
06b8 e5fe | | Load 0x2,-0x2
06b9 e5ff | | Load 0x2,-0x1
06ba 1c06 | | Execute_Immediate Run_Utility,0x6
06bb e5ff | | Load 0x2,-0x1
06bc 02fc | | Declare_Variable Variant_Record,With_Constraint
06bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06be 0869 | i | Execute_Immediate Raise,0x69
06bf ; --------------------------------------------------------------------------------------
06bf ; STRING TABLE
06bf ; --------------------------------------------------------------------------------------
06bf 005c | \ | .STRTAB 0x005c->0x06ed ; "ACCESS_TYPE"
06c0 0065 | e | .STRTAB 0x0065->0x06f2 ; "ARRAY_TYPE"
06c1 006d | m | .STRTAB 0x006d->0x06f7 ; "ENUMERATION_TYPE"
06c2 007b | { | .STRTAB 0x007b->0x06ff ; "INTEGER_TYPE"
06c3 0085 | | .STRTAB 0x0085->0x0705 ; "FIXED_POINT_TYPE"
06c4 0093 | | .STRTAB 0x0093->0x070d ; "FLOATING_POINT_TYPE"
06c5 00a4 | | .STRTAB 0x00a4->0x0717 ; "FORMAL_DISCRETE_TYPE"
06c6 00b6 | | .STRTAB 0x00b6->0x0721 ; "FORMAL_FIXED_TYPE"
06c7 00c5 | | .STRTAB 0x00c5->0x0729 ; "FORMAL_FLOAT_TYPE"
06c8 00d4 | | .STRTAB 0x00d4->0x0732 ; "FORMAL_INTEGER_TYPE"
06c9 00e5 | | .STRTAB 0x00e5->0x073b ; "RECORD_TYPE"
06ca 00ee | | .STRTAB 0x00ee->0x0741 ; "TASK_TYPE"
06cb 00f5 | | .STRTAB 0x00f5->0x0745 ; "UNIVERSAL_INTEGER_TYPE"
06cc 0109 | | .STRTAB 0x0109->0x0750 ; "UNIVERSAL_FIXED_TYPE"
06cd 011b | | .STRTAB 0x011b->0x075a ; "UNIVERSAL_REAL_TYPE"
06ce 012c | , | .STRTAB 0x012c->0x0764 ; "NO_SUBTYPES"
06cf 0135 | 5 | .STRTAB 0x0135->0x0769 ; "NO_PRIVATE_TYPES"
06d0 0143 | C | .STRTAB 0x0143->0x0771 ; "NO_LIMITED_PRIVATE_TYPES"
06d1 0159 | Y | .STRTAB 0x0159->0x077d ; "NO_DERIVED_TYPES"
06d2 0167 | g | .STRTAB 0x0167->0x0785 ; "INTEGER_FORM"
06d3 0171 | q | .STRTAB 0x0171->0x078b ; "REAL_FORM"
06d4 0178 | x | .STRTAB 0x0178->0x0790 ; "OTHER_FORM"
06d5 0180 | | .STRTAB 0x0180->0x0795 ; "CONSTANT_KIND"
06d6 018b | | .STRTAB 0x018b->0x079b ; "DISCRIMINANT"
06d7 0195 | | .STRTAB 0x0195->0x07a1 ; "IN_OUT_PARAMETER"
06d8 01a3 | | .STRTAB 0x01a3->0x07a9 ; "IN_PARAMETER"
06d9 01ad | | .STRTAB 0x01ad->0x07af ; "ITERATION_VARIABLE"
06da 01bd | | .STRTAB 0x01bd->0x07b8 ; "NAMED_NUMBER"
06db 01c7 | | .STRTAB 0x01c7->0x07be ; "OUT_PARAMETER"
06dc 01d2 | | .STRTAB 0x01d2->0x07c5 ; "VARIABLE"
06dd 01d8 | | .STRTAB 0x01d8->0x07c9 ; "FUNCTION_KIND"
06de 01e3 | | .STRTAB 0x01e3->0x07cf ; "PACKAGE_KIND"
06df 01ed | | .STRTAB 0x01ed->0x07d5 ; "PROCEDURE_KIND"
06e0 01f9 | | .STRTAB 0x01f9->0x07dc ; "TASK_KIND"
06e1 0200 | | .STRTAB 0x0200->0x07e1 ; "ENTRY_KIND"
06e2 0208 | | .STRTAB 0x0208->0x07e6 ; "EXCEPTION_KIND"
06e3 0214 | | .STRTAB 0x0214->0x07ed ; "ENUMERATION_LITERAL_KIND"
06e4 022a | * | .STRTAB 0x022a->0x07f9 ; "RECORD_COMPONENT_KIND"
06e5 023d | = | .STRTAB 0x023d->0x0803 ; "GENERIC_PACKAGE_KIND"
06e6 024f | O | .STRTAB 0x024f->0x080d ; "GENERIC_PROCEDURE_KIND"
06e7 0263 | c | .STRTAB 0x0263->0x0818 ; "GENERIC_FUNCTION_KIND"
06e8 0276 | v | .STRTAB 0x0276->0x0823 ; "GENERIC_FORMAL_PROCEDURE"
06e9 028c | | .STRTAB 0x028c->0x082f ; "GENERIC_FORMAL_FUNCTION"
06ea 02a1 | | .STRTAB 0x02a1->0x083a ; "LABEL_KIND"
06eb 02a9 | | .STRTAB 0x02a9->0x083f ; "NAMED_STATEMENT_KIND"
06ec 02bb | | .STREND 0x02bb->0x0849
06ed 4143 4345 |ACCE| .STRTAB_STRINGS
084a 0000 0000 | | .BLANK 0000[0x6]
0850 ; --------------------------------------------------------------------------------------
0850 ; Debug Table
0850 ; --------------------------------------------------------------------------------------
0850 0004 000d | | .DEBUG4 0x0004,0x000d,0x7a69,0x0000,0x0001,0x0000
0856 80a2 000e | | .XXX[0x6]
0858 0000 0000 | |
085a 0000 0076 | v|
085c 0000 0000 | | .BLANK 0000[0x7]
0863 0009 | | .XXX[0x1]
0864 0000 0000 | | .BLANK 0000[0x6]
086a 8000 0000 | | .XXX[0xa]
086c 8015 b90b | |
086e 0010 0002 | |
0870 001a 305f | 0_|
0872 8800 0110 | |
0874 0000 0000 | | .BLANK 0000[0x4]
0878 0019 985f | _| .XXX[0x4]
087a 8800 2410 | $ |
087c 0000 0000 | | .BLANK 0000[0x4]
0880 001a 105f | _| .XXX[0x4]
0882 8800 0410 | |
0884 0000 0000 | | .BLANK 0000[0x4]
0888 0018 fc5f | _| .XXX[0x4]
088a 8800 0110 | |
088c 0000 0000 | | .BLANK 0000[0x4]
0890 001a ac5f | _| .XXX[0x2c]
0892 0000 0036 | 6|
0894 0015 a90b | |
0896 0001 0c32 | 2|
0898 001a ac5f | _|
089a 0000 0036 | 6|
089c 0015 a90b | |
089e 0001 10b2 | |
08a0 001a ac5f | _|
08a2 0000 0036 | 6|
08a4 0015 a90b | |
08a6 0001 1432 | 2|
08a8 001a ac5f | _|
08aa 0000 0036 | 6|
08ac 0015 a90b | |
08ae 0001 1732 | 2|
08b0 001a ac5f | _|
08b2 0000 0036 | 6|
08b4 0015 a90b | |
08b6 0001 19b2 | |
08b8 0018 fc5f | _|
08ba 8800 0110 | |
08bc 0000 0000 | | .BLANK 0000[0x4]
08c0 0018 fc5f | _| .XXX[0x8]
08c2 0000 1a44 | D|
08c4 001a ac5f | _|
08c6 0000 0001 | |
08c8 0000 0000 | | .BLANK 0000[0x4]
08cc bfff ffff | | .XXX[0x2c]
08ce 8000 0007 | |
08d0 0018 fc5f | _|
08d2 0000 1a44 | D|
08d4 001a ac5f | _|
08d6 0000 0001 | |
08d8 001a ac5f | _|
08da 0000 0c16 | |
08dc 0015 a90b | |
08de 0000 40b3 | @ |
08e0 0019 445f | D_|
08e2 0800 1390 | |
08e4 0000 0000 | |
08e6 0000 0001 | |
08e8 0019 445f | D_|
08ea 0000 007f | |
08ec 0015 a90b | |
08ee 0000 4042 | @B|
08f0 0019 445f | D_|
08f2 0000 003f | ?|
08f4 0001 8025 | %|
08f6 0000 0041 | A|
08f8 0000 0000 | | .BLANK 0000[0x8]
0900 0019 445f | D_| .XXX[0x6]
0902 0000 1218 | |
0904 0019 585f | X_|
0906 0000 0000 | | .BLANK 0000[0xfa]