|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0c08 | | .CONST 0x0c08 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 03b8 | | .CONST 0x03b8 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0071 | q | .CONST 0x0071 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e e001 | | Load 0x0,0x1
000f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0010 0129 | ) | Execute Any,Make_Visible
0011 e001 | | Load 0x0,0x1
0012 190f | | Execute Package,Field_Reference,Field_Number 0xf
0013 0129 | ) | Execute Any,Make_Visible
0014 e001 | | Load 0x0,0x1
0015 190e | | Execute Package,Field_Reference,Field_Number 0xe
0016 0129 | ) | Execute Any,Make_Visible
0017 e001 | | Load 0x0,0x1
0018 191a | | Execute Package,Field_Reference,Field_Number 0x1a
0019 0129 | ) | Execute Any,Make_Visible
001a e002 | | Load 0x0,0x2
001b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
001c 0129 | ) | Execute Any,Make_Visible
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 4823 |H# | Short_Literal 0x23
0048 482b |H+ | Short_Literal 0x2b
0049 e212 | | Load 0x1,0x12
004a 03f9 | | Declare_Type Discrete,Constrained,Visible
004b c23b | ; | Store 0x1,0x3b
004c 482c |H, | Short_Literal 0x2c
004d 482e |H. | Short_Literal 0x2e
004e e212 | | Load 0x1,0x12
004f 03f9 | | Declare_Type Discrete,Constrained,Visible
0050 c23c | < | Store 0x1,0x3c
0051 4818 |H | Short_Literal 0x18
0052 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0053 c213 | | Store 0x1,0x13
0054 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0056 c214 | | Store 0x1,0x14
0057 4805 |H | Short_Literal 0x5
0058 032b | + | Declare_Type Record,Incomplete,Visible
0059 c215 | | Store 0x1,0x15
005a 00c4 | | Action Make_Default
005b 00d1 | | Pop_Control Pop_Count_1
005c 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
005e c217 | | Store 0x1,0x17
005f 00e4 | | Load_Encached Positive_Cache
0060 0129 | ) | Execute Any,Make_Visible
0061 c218 | | Store 0x1,0x18
0062 e218 | | Load 0x1,0x18
0063 0266 | f | Execute Discrete,Bounds
0064 e215 | | Load 0x1,0x15
0065 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
0067 4801 |H | Short_Literal 0x1
0068 0349 | I | Declare_Type Array,Defined_Incomplete,Visible,Bounds_With_Object
0069 c219 | | Store 0x1,0x19
006a 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
006c c21a | | Store 0x1,0x1a
006d 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
006f c21b | | Store 0x1,0x1b
0070 00e9 | | Load_Encached String_Cache
0071 0129 | ) | Execute Any,Make_Visible
0072 c233 | 3 | Store 0x1,0x33
0073 0092 0bb0 | | Action Push_String_Extended,0xbb0 ; "<NIL_ID>"
0075 0129 | ) | Execute Any,Make_Visible
0076 c234 | 4 | Store 0x1,0x34
0077 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0079 c21c | | Store 0x1,0x1c
007a 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
007c c21d | | Store 0x1,0x1d
007d 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
007f c235 | 5 | Store 0x1,0x35
0080 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0082 c236 | 6 | Store 0x1,0x36
0083 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0085 c21e | | Store 0x1,0x1e
0086 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
0088 c237 | 7 | Store 0x1,0x37
0089 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
008b c222 | " | Store 0x1,0x22
008c 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated
008e c223 | # | Store 0x1,0x23
008f 029a 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Visible,Unelaborated
0091 c238 | 8 | Store 0x1,0x38
0092 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated
0094 c224 | $ | Store 0x1,0x24
0095 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated
0097 c225 | % | Store 0x1,0x25
0098 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated
009a c239 | 9 | Store 0x1,0x39
009b 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated
009d c226 | & | Store 0x1,0x26
009e e20d | | Load 0x1,0xd
009f e212 | | Load 0x1,0x12
00a0 e001 | | Load 0x0,0x1
00a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a2 e002 | | Load 0x0,0x2
00a3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00a4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
00a5 e003 | | Load 0x0,0x3
00a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a7 029f 0b83 | | Declare_Subprogram INIT_0b80,For_Call
00a9 e215 | | Load 0x1,0x15
00aa 0326 | & | Complete_Type Record,By_Defining
00ab e219 | | Load 0x1,0x19
00ac 0340 | @ | Complete_Type Array,By_Component_Completion
00ad e215 | | Load 0x1,0x15
00ae 0322 | " | Declare_Variable Record
00af e210 | | Load 0x1,0x10
00b0 e215 | | Load 0x1,0x15
00b1 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00b2 0119 | | Execute Any,Check_In_Formal_Type
00b3 00d9 | | Load_Top At_Offset_1
00b4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b5 482f |H/ | Short_Literal 0x2f
00b6 00d9 | | Load_Top At_Offset_1
00b7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b8 e001 | | Load 0x0,0x1
00b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ba e215 | | Load 0x1,0x15
00bb 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
00bc 0119 | | Execute Any,Check_In_Formal_Type
00bd 00d9 | | Load_Top At_Offset_1
00be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00bf e002 | | Load 0x0,0x2
00c0 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00c1 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
00c2 00d9 | | Load_Top At_Offset_1
00c3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c4 e003 | | Load 0x0,0x3
00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c6 00d9 | | Load_Top At_Offset_1
00c7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00c8 0129 | ) | Execute Any,Make_Visible
00c9 c216 | | Store 0x1,0x16
00ca 4802 |H | Short_Literal 0x2
00cb 032a | * | Declare_Type Record,Incomplete
00cc c23a | : | Store 0x1,0x3a
00cd 00da | | Load_Top At_Offset_2
00ce 02a0 | | Declare_Subprogram Null_Subprogram
00cf e213 | | Load 0x1,0x13
00d0 03c7 | | Complete_Type Access,By_Defining
00d1 00bf | | Action Accept_Activation
00d2 e002 | | Load 0x0,0x2
00d3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00d4 191f | | Execute Package,Field_Reference,Field_Number 0x1f
00d5 0007 | | Action Break_Optional
00d6 e002 | | Load 0x0,0x2
00d7 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00d8 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call
00da 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call
00dc 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
00de 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call
00e0 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
00e2 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call
00e4 4804 |H | Short_Literal 0x4
00e5 4809 |H | Short_Literal 0x9
00e6 e23e | > | Load 0x1,0x3e
00e7 03f8 | | Declare_Type Discrete,Constrained
00e8 00d8 | | Load_Top At_Offset_0
00e9 0266 | f | Execute Discrete,Bounds
00ea e004 | | Load 0x0,0x4
00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ec 035b | [ | Declare_Type Array,Constrained
00ed 4823 |H# | Short_Literal 0x23
00ee 482e |H. | Short_Literal 0x2e
00ef e212 | | Load 0x1,0x12
00f0 03f8 | | Declare_Type Discrete,Constrained
00f1 029b 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Unelaborated
00f3 e005 | | Load 0x0,0x5
00f4 e006 | | Load 0x0,0x6
00f5 4bfd |K | Short_Literal 0x3fd
00f6 e20d | | Load 0x1,0xd
00f7 e215 | | Load 0x1,0x15
00f8 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
00f9 e007 | | Load 0x0,0x7
00fa 0387 | | Declare_Variable Package
00fb 00d8 | | Load_Top At_Offset_0
00fc 020f | | Execute Module,Activate
00fd e008 | | Load 0x0,0x8
00fe 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00ff 00d9 | | Load_Top At_Offset_1
0100 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0101 02a0 | | Declare_Subprogram Null_Subprogram
0102 e23a | : | Load 0x1,0x3a
0103 0326 | & | Complete_Type Record,By_Defining
0104 e009 | | Load 0x0,0x9
0105 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0106 0266 | f | Execute Discrete,Bounds
0107 00e1 | | Load_Encached Boolean_Cache
0108 02a0 | | Declare_Subprogram Null_Subprogram
0109 4801 |H | Short_Literal 0x1
010a 035d | ] | Declare_Type Array,Defined
010b 00d8 | | Load_Top At_Offset_0
010c 0337 | 7 | Declare_Variable Array
010d 4801 |H | Short_Literal 0x1
010e 4800 |H | Short_Literal 0x0
010f 00da | | Load_Top At_Offset_2
0110 01d6 | | Execute Vector,Field_Write
0111 4801 |H | Short_Literal 0x1
0112 4801 |H | Short_Literal 0x1
0113 00da | | Load_Top At_Offset_2
0114 01d6 | | Execute Vector,Field_Write
0115 4801 |H | Short_Literal 0x1
0116 4803 |H | Short_Literal 0x3
0117 00da | | Load_Top At_Offset_2
0118 01d6 | | Execute Vector,Field_Write
0119 4801 |H | Short_Literal 0x1
011a 4804 |H | Short_Literal 0x4
011b 00da | | Load_Top At_Offset_2
011c 01d6 | | Execute Vector,Field_Write
011d 4801 |H | Short_Literal 0x1
011e 4811 |H | Short_Literal 0x11
011f 00da | | Load_Top At_Offset_2
0120 01d6 | | Execute Vector,Field_Write
0121 4800 |H | Short_Literal 0x0
0122 4802 |H | Short_Literal 0x2
0123 00da | | Load_Top At_Offset_2
0124 01d6 | | Execute Vector,Field_Write
0125 4810 |H | Short_Literal 0x10
0126 4805 |H | Short_Literal 0x5
0127 4800 |H | Short_Literal 0x0
0128 00d9 | | Load_Top At_Offset_1
0129 e24b | K | Load 0x1,0x4b
012a 01d6 | | Execute Vector,Field_Write
012b 3ffb |? | Loop_Increasing 0x127
012c 4826 |H& | Short_Literal 0x26
012d 4812 |H | Short_Literal 0x12
012e 4800 |H | Short_Literal 0x0
012f 00d9 | | Load_Top At_Offset_1
0130 e24b | K | Load 0x1,0x4b
0131 01d6 | | Execute Vector,Field_Write
0132 3ffb |? | Loop_Increasing 0x12e
0133 00d9 | | Load_Top At_Offset_1
0134 01c3 | | Execute Vector,Check_In_Type
0135 0007 | | Action Break_Optional
0136 00d9 | | Load_Top At_Offset_1
0137 0337 | 7 | Declare_Variable Array
0138 4801 |H | Short_Literal 0x1
0139 4805 |H | Short_Literal 0x5
013a 00da | | Load_Top At_Offset_2
013b 01d6 | | Execute Vector,Field_Write
013c 4801 |H | Short_Literal 0x1
013d 4807 |H | Short_Literal 0x7
013e 00da | | Load_Top At_Offset_2
013f 01d6 | | Execute Vector,Field_Write
0140 4804 |H | Short_Literal 0x4
0141 4800 |H | Short_Literal 0x0
0142 4800 |H | Short_Literal 0x0
0143 00d9 | | Load_Top At_Offset_1
0144 e24c | L | Load 0x1,0x4c
0145 01d6 | | Execute Vector,Field_Write
0146 3ffb |? | Loop_Increasing 0x142
0147 4800 |H | Short_Literal 0x0
0148 4806 |H | Short_Literal 0x6
0149 00da | | Load_Top At_Offset_2
014a 01d6 | | Execute Vector,Field_Write
014b 4826 |H& | Short_Literal 0x26
014c 4808 |H | Short_Literal 0x8
014d 4800 |H | Short_Literal 0x0
014e 00d9 | | Load_Top At_Offset_1
014f e24c | L | Load 0x1,0x4c
0150 01d6 | | Execute Vector,Field_Write
0151 3ffb |? | Loop_Increasing 0x14d
0152 00da | | Load_Top At_Offset_2
0153 01c3 | | Execute Vector,Check_In_Type
0154 0007 | | Action Break_Optional
0155 00da | | Load_Top At_Offset_2
0156 0337 | 7 | Declare_Variable Array
0157 00da | | Load_Top At_Offset_2
0158 00da | | Load_Top At_Offset_2
0159 01d2 | | Execute Vector,Or
015a 00d9 | | Load_Top At_Offset_1
015b 01d4 | | Execute Vector,Structure_Write
015c 4800 |H | Short_Literal 0x0
015d 4801 |H | Short_Literal 0x1
015e 029f 066b | k| Declare_Subprogram INIT_0668,For_Call
0160 03fd | | Declare_Type Discrete,Defined
0161 00d8 | | Load_Top At_Offset_0
0162 0266 | f | Execute Discrete,Bounds
0163 00e1 | | Load_Encached Boolean_Cache
0164 02a0 | | Declare_Subprogram Null_Subprogram
0165 4801 |H | Short_Literal 0x1
0166 035d | ] | Declare_Type Array,Defined
0167 00d8 | | Load_Top At_Offset_0
0168 0337 | 7 | Declare_Variable Array
0169 4800 |H | Short_Literal 0x0
016a 4800 |H | Short_Literal 0x0
016b 00da | | Load_Top At_Offset_2
016c 01d6 | | Execute Vector,Field_Write
016d 4800 |H | Short_Literal 0x0
016e 4801 |H | Short_Literal 0x1
016f 00da | | Load_Top At_Offset_2
0170 01d6 | | Execute Vector,Field_Write
0171 00d9 | | Load_Top At_Offset_1
0172 01c3 | | Execute Vector,Check_In_Type
0173 0007 | | Action Break_Optional
0174 00d9 | | Load_Top At_Offset_1
0175 0337 | 7 | Declare_Variable Array
0176 4801 |H | Short_Literal 0x1
0177 4801 |H | Short_Literal 0x1
0178 00da | | Load_Top At_Offset_2
0179 01d6 | | Execute Vector,Field_Write
017a 4800 |H | Short_Literal 0x0
017b 4800 |H | Short_Literal 0x0
017c 00da | | Load_Top At_Offset_2
017d 01d6 | | Execute Vector,Field_Write
017e 00da | | Load_Top At_Offset_2
017f 01c3 | | Execute Vector,Check_In_Type
0180 0007 | | Action Break_Optional
0181 00da | | Load_Top At_Offset_2
0182 0337 | 7 | Declare_Variable Array
0183 4801 |H | Short_Literal 0x1
0184 4800 |H | Short_Literal 0x0
0185 00da | | Load_Top At_Offset_2
0186 01d6 | | Execute Vector,Field_Write
0187 4800 |H | Short_Literal 0x0
0188 4801 |H | Short_Literal 0x1
0189 00da | | Load_Top At_Offset_2
018a 01d6 | | Execute Vector,Field_Write
018b 00db | | Load_Top At_Offset_3
018c 01c3 | | Execute Vector,Check_In_Type
018d 0007 | | Action Break_Optional
018e 00db | | Load_Top At_Offset_3
018f 0337 | 7 | Declare_Variable Array
0190 4801 |H | Short_Literal 0x1
0191 4800 |H | Short_Literal 0x0
0192 00da | | Load_Top At_Offset_2
0193 01d6 | | Execute Vector,Field_Write
0194 4801 |H | Short_Literal 0x1
0195 4801 |H | Short_Literal 0x1
0196 00da | | Load_Top At_Offset_2
0197 01d6 | | Execute Vector,Field_Write
0198 e24f | O | Load 0x1,0x4f
0199 01c3 | | Execute Vector,Check_In_Type
019a 0007 | | Action Break_Optional
019b 4801 |H | Short_Literal 0x1
019c 480b |H | Short_Literal 0xb
019d e24f | O | Load 0x1,0x4f
019e 02a0 | | Declare_Subprogram Null_Subprogram
019f 4801 |H | Short_Literal 0x1
01a0 035d | ] | Declare_Type Array,Defined
01a1 480c |H | Short_Literal 0xc
01a2 4822 |H" | Short_Literal 0x22
01a3 e24f | O | Load 0x1,0x4f
01a4 02a0 | | Declare_Subprogram Null_Subprogram
01a5 4801 |H | Short_Literal 0x1
01a6 035d | ] | Declare_Type Array,Defined
01a7 4823 |H# | Short_Literal 0x23
01a8 482b |H+ | Short_Literal 0x2b
01a9 00db | | Load_Top At_Offset_3
01aa 02a0 | | Declare_Subprogram Null_Subprogram
01ab 4801 |H | Short_Literal 0x1
01ac 035d | ] | Declare_Type Array,Defined
01ad 482c |H, | Short_Literal 0x2c
01ae 482e |H. | Short_Literal 0x2e
01af 00db | | Load_Top At_Offset_3
01b0 02a0 | | Declare_Subprogram Null_Subprogram
01b1 4801 |H | Short_Literal 0x1
01b2 035d | ] | Declare_Type Array,Defined
01b3 00d9 | | Load_Top At_Offset_1
01b4 0337 | 7 | Declare_Variable Array
01b5 e254 | T | Load 0x1,0x54
01b6 0337 | 7 | Declare_Variable Array
01b7 e253 | S | Load 0x1,0x53
01b8 e24f | O | Load 0x1,0x4f
01b9 0119 | | Execute Any,Check_In_Formal_Type
01ba 4805 |H | Short_Literal 0x5
01bb 00da | | Load_Top At_Offset_2
01bc 01d6 | | Execute Vector,Field_Write
01bd 4804 |H | Short_Literal 0x4
01be 4801 |H | Short_Literal 0x1
01bf e250 | P | Load 0x1,0x50
01c0 e24f | O | Load 0x1,0x4f
01c1 0119 | | Execute Any,Check_In_Formal_Type
01c2 00d9 | | Load_Top At_Offset_1
01c3 e259 | Y | Load 0x1,0x59
01c4 01d6 | | Execute Vector,Field_Write
01c5 3ff9 |? | Loop_Increasing 0x1bf
01c6 480b |H | Short_Literal 0xb
01c7 4806 |H | Short_Literal 0x6
01c8 e250 | P | Load 0x1,0x50
01c9 e24f | O | Load 0x1,0x4f
01ca 0119 | | Execute Any,Check_In_Formal_Type
01cb 00d9 | | Load_Top At_Offset_1
01cc e259 | Y | Load 0x1,0x59
01cd 01d6 | | Execute Vector,Field_Write
01ce 3ff9 |? | Loop_Increasing 0x1c8
01cf e254 | T | Load 0x1,0x54
01d0 01c3 | | Execute Vector,Check_In_Type
01d1 e254 | T | Load 0x1,0x54
01d2 0119 | | Execute Any,Check_In_Formal_Type
01d3 4823 |H# | Short_Literal 0x23
01d4 00da | | Load_Top At_Offset_2
01d5 01d6 | | Execute Vector,Field_Write
01d6 e254 | T | Load 0x1,0x54
01d7 0337 | 7 | Declare_Variable Array
01d8 e252 | R | Load 0x1,0x52
01d9 e24f | O | Load 0x1,0x4f
01da 0119 | | Execute Any,Check_In_Formal_Type
01db 4807 |H | Short_Literal 0x7
01dc 00da | | Load_Top At_Offset_2
01dd 01d6 | | Execute Vector,Field_Write
01de e252 | R | Load 0x1,0x52
01df e24f | O | Load 0x1,0x4f
01e0 0119 | | Execute Any,Check_In_Formal_Type
01e1 4808 |H | Short_Literal 0x8
01e2 00da | | Load_Top At_Offset_2
01e3 01d6 | | Execute Vector,Field_Write
01e4 4806 |H | Short_Literal 0x6
01e5 4801 |H | Short_Literal 0x1
01e6 e250 | P | Load 0x1,0x50
01e7 e24f | O | Load 0x1,0x4f
01e8 0119 | | Execute Any,Check_In_Formal_Type
01e9 00d9 | | Load_Top At_Offset_1
01ea e259 | Y | Load 0x1,0x59
01eb 01d6 | | Execute Vector,Field_Write
01ec 3ff9 |? | Loop_Increasing 0x1e6
01ed 480b |H | Short_Literal 0xb
01ee 4809 |H | Short_Literal 0x9
01ef e250 | P | Load 0x1,0x50
01f0 e24f | O | Load 0x1,0x4f
01f1 0119 | | Execute Any,Check_In_Formal_Type
01f2 00d9 | | Load_Top At_Offset_1
01f3 e259 | Y | Load 0x1,0x59
01f4 01d6 | | Execute Vector,Field_Write
01f5 3ff9 |? | Loop_Increasing 0x1ef
01f6 e254 | T | Load 0x1,0x54
01f7 01c3 | | Execute Vector,Check_In_Type
01f8 e254 | T | Load 0x1,0x54
01f9 0119 | | Execute Any,Check_In_Formal_Type
01fa 4824 |H$ | Short_Literal 0x24
01fb 00da | | Load_Top At_Offset_2
01fc 01d6 | | Execute Vector,Field_Write
01fd e254 | T | Load 0x1,0x54
01fe 0337 | 7 | Declare_Variable Array
01ff e253 | S | Load 0x1,0x53
0200 e24f | O | Load 0x1,0x4f
0201 0119 | | Execute Any,Check_In_Formal_Type
0202 4807 |H | Short_Literal 0x7
0203 00da | | Load_Top At_Offset_2
0204 01d6 | | Execute Vector,Field_Write
0205 e252 | R | Load 0x1,0x52
0206 e24f | O | Load 0x1,0x4f
0207 0119 | | Execute Any,Check_In_Formal_Type
0208 4808 |H | Short_Literal 0x8
0209 00da | | Load_Top At_Offset_2
020a 01d6 | | Execute Vector,Field_Write
020b 4806 |H | Short_Literal 0x6
020c 4801 |H | Short_Literal 0x1
020d e250 | P | Load 0x1,0x50
020e e24f | O | Load 0x1,0x4f
020f 0119 | | Execute Any,Check_In_Formal_Type
0210 00d9 | | Load_Top At_Offset_1
0211 e259 | Y | Load 0x1,0x59
0212 01d6 | | Execute Vector,Field_Write
0213 3ff9 |? | Loop_Increasing 0x20d
0214 480b |H | Short_Literal 0xb
0215 4809 |H | Short_Literal 0x9
0216 e250 | P | Load 0x1,0x50
0217 e24f | O | Load 0x1,0x4f
0218 0119 | | Execute Any,Check_In_Formal_Type
0219 00d9 | | Load_Top At_Offset_1
021a e259 | Y | Load 0x1,0x59
021b 01d6 | | Execute Vector,Field_Write
021c 3ff9 |? | Loop_Increasing 0x216
021d e254 | T | Load 0x1,0x54
021e 01c3 | | Execute Vector,Check_In_Type
021f e254 | T | Load 0x1,0x54
0220 0119 | | Execute Any,Check_In_Formal_Type
0221 4825 |H% | Short_Literal 0x25
0222 00da | | Load_Top At_Offset_2
0223 01d6 | | Execute Vector,Field_Write
0224 e254 | T | Load 0x1,0x54
0225 0337 | 7 | Declare_Variable Array
0226 e253 | S | Load 0x1,0x53
0227 e24f | O | Load 0x1,0x4f
0228 0119 | | Execute Any,Check_In_Formal_Type
0229 4807 |H | Short_Literal 0x7
022a 00da | | Load_Top At_Offset_2
022b 01d6 | | Execute Vector,Field_Write
022c e252 | R | Load 0x1,0x52
022d e24f | O | Load 0x1,0x4f
022e 0119 | | Execute Any,Check_In_Formal_Type
022f 4808 |H | Short_Literal 0x8
0230 00da | | Load_Top At_Offset_2
0231 01d6 | | Execute Vector,Field_Write
0232 4806 |H | Short_Literal 0x6
0233 4801 |H | Short_Literal 0x1
0234 e250 | P | Load 0x1,0x50
0235 e24f | O | Load 0x1,0x4f
0236 0119 | | Execute Any,Check_In_Formal_Type
0237 00d9 | | Load_Top At_Offset_1
0238 e259 | Y | Load 0x1,0x59
0239 01d6 | | Execute Vector,Field_Write
023a 3ff9 |? | Loop_Increasing 0x234
023b 480b |H | Short_Literal 0xb
023c 4809 |H | Short_Literal 0x9
023d e250 | P | Load 0x1,0x50
023e e24f | O | Load 0x1,0x4f
023f 0119 | | Execute Any,Check_In_Formal_Type
0240 00d9 | | Load_Top At_Offset_1
0241 e259 | Y | Load 0x1,0x59
0242 01d6 | | Execute Vector,Field_Write
0243 3ff9 |? | Loop_Increasing 0x23d
0244 e254 | T | Load 0x1,0x54
0245 01c3 | | Execute Vector,Check_In_Type
0246 e254 | T | Load 0x1,0x54
0247 0119 | | Execute Any,Check_In_Formal_Type
0248 4826 |H& | Short_Literal 0x26
0249 00da | | Load_Top At_Offset_2
024a 01d6 | | Execute Vector,Field_Write
024b e254 | T | Load 0x1,0x54
024c 0337 | 7 | Declare_Variable Array
024d e252 | R | Load 0x1,0x52
024e e24f | O | Load 0x1,0x4f
024f 0119 | | Execute Any,Check_In_Formal_Type
0250 4807 |H | Short_Literal 0x7
0251 00da | | Load_Top At_Offset_2
0252 01d6 | | Execute Vector,Field_Write
0253 e252 | R | Load 0x1,0x52
0254 e24f | O | Load 0x1,0x4f
0255 0119 | | Execute Any,Check_In_Formal_Type
0256 4808 |H | Short_Literal 0x8
0257 00da | | Load_Top At_Offset_2
0258 01d6 | | Execute Vector,Field_Write
0259 4806 |H | Short_Literal 0x6
025a 4801 |H | Short_Literal 0x1
025b e250 | P | Load 0x1,0x50
025c e24f | O | Load 0x1,0x4f
025d 0119 | | Execute Any,Check_In_Formal_Type
025e 00d9 | | Load_Top At_Offset_1
025f e259 | Y | Load 0x1,0x59
0260 01d6 | | Execute Vector,Field_Write
0261 3ff9 |? | Loop_Increasing 0x25b
0262 480b |H | Short_Literal 0xb
0263 4809 |H | Short_Literal 0x9
0264 e250 | P | Load 0x1,0x50
0265 e24f | O | Load 0x1,0x4f
0266 0119 | | Execute Any,Check_In_Formal_Type
0267 00d9 | | Load_Top At_Offset_1
0268 e259 | Y | Load 0x1,0x59
0269 01d6 | | Execute Vector,Field_Write
026a 3ff9 |? | Loop_Increasing 0x264
026b e254 | T | Load 0x1,0x54
026c 01c3 | | Execute Vector,Check_In_Type
026d e254 | T | Load 0x1,0x54
026e 0119 | | Execute Any,Check_In_Formal_Type
026f 4827 |H' | Short_Literal 0x27
0270 00da | | Load_Top At_Offset_2
0271 01d6 | | Execute Vector,Field_Write
0272 e254 | T | Load 0x1,0x54
0273 0337 | 7 | Declare_Variable Array
0274 e251 | Q | Load 0x1,0x51
0275 e24f | O | Load 0x1,0x4f
0276 0119 | | Execute Any,Check_In_Formal_Type
0277 4808 |H | Short_Literal 0x8
0278 00da | | Load_Top At_Offset_2
0279 01d6 | | Execute Vector,Field_Write
027a 4807 |H | Short_Literal 0x7
027b 4801 |H | Short_Literal 0x1
027c e250 | P | Load 0x1,0x50
027d e24f | O | Load 0x1,0x4f
027e 0119 | | Execute Any,Check_In_Formal_Type
027f 00d9 | | Load_Top At_Offset_1
0280 e259 | Y | Load 0x1,0x59
0281 01d6 | | Execute Vector,Field_Write
0282 3ff9 |? | Loop_Increasing 0x27c
0283 480b |H | Short_Literal 0xb
0284 4809 |H | Short_Literal 0x9
0285 e250 | P | Load 0x1,0x50
0286 e24f | O | Load 0x1,0x4f
0287 0119 | | Execute Any,Check_In_Formal_Type
0288 00d9 | | Load_Top At_Offset_1
0289 e259 | Y | Load 0x1,0x59
028a 01d6 | | Execute Vector,Field_Write
028b 3ff9 |? | Loop_Increasing 0x285
028c e254 | T | Load 0x1,0x54
028d 01c3 | | Execute Vector,Check_In_Type
028e e254 | T | Load 0x1,0x54
028f 0119 | | Execute Any,Check_In_Formal_Type
0290 4828 |H( | Short_Literal 0x28
0291 00da | | Load_Top At_Offset_2
0292 01d6 | | Execute Vector,Field_Write
0293 e254 | T | Load 0x1,0x54
0294 0337 | 7 | Declare_Variable Array
0295 e251 | Q | Load 0x1,0x51
0296 e24f | O | Load 0x1,0x4f
0297 0119 | | Execute Any,Check_In_Formal_Type
0298 4808 |H | Short_Literal 0x8
0299 00da | | Load_Top At_Offset_2
029a 01d6 | | Execute Vector,Field_Write
029b 4807 |H | Short_Literal 0x7
029c 4801 |H | Short_Literal 0x1
029d e250 | P | Load 0x1,0x50
029e e24f | O | Load 0x1,0x4f
029f 0119 | | Execute Any,Check_In_Formal_Type
02a0 00d9 | | Load_Top At_Offset_1
02a1 e259 | Y | Load 0x1,0x59
02a2 01d6 | | Execute Vector,Field_Write
02a3 3ff9 |? | Loop_Increasing 0x29d
02a4 480b |H | Short_Literal 0xb
02a5 4809 |H | Short_Literal 0x9
02a6 e250 | P | Load 0x1,0x50
02a7 e24f | O | Load 0x1,0x4f
02a8 0119 | | Execute Any,Check_In_Formal_Type
02a9 00d9 | | Load_Top At_Offset_1
02aa e259 | Y | Load 0x1,0x59
02ab 01d6 | | Execute Vector,Field_Write
02ac 3ff9 |? | Loop_Increasing 0x2a6
02ad e254 | T | Load 0x1,0x54
02ae 01c3 | | Execute Vector,Check_In_Type
02af e254 | T | Load 0x1,0x54
02b0 0119 | | Execute Any,Check_In_Formal_Type
02b1 4829 |H) | Short_Literal 0x29
02b2 00da | | Load_Top At_Offset_2
02b3 01d6 | | Execute Vector,Field_Write
02b4 e254 | T | Load 0x1,0x54
02b5 0337 | 7 | Declare_Variable Array
02b6 e251 | Q | Load 0x1,0x51
02b7 e24f | O | Load 0x1,0x4f
02b8 0119 | | Execute Any,Check_In_Formal_Type
02b9 4808 |H | Short_Literal 0x8
02ba 00da | | Load_Top At_Offset_2
02bb 01d6 | | Execute Vector,Field_Write
02bc 4807 |H | Short_Literal 0x7
02bd 4801 |H | Short_Literal 0x1
02be e250 | P | Load 0x1,0x50
02bf e24f | O | Load 0x1,0x4f
02c0 0119 | | Execute Any,Check_In_Formal_Type
02c1 00d9 | | Load_Top At_Offset_1
02c2 e259 | Y | Load 0x1,0x59
02c3 01d6 | | Execute Vector,Field_Write
02c4 3ff9 |? | Loop_Increasing 0x2be
02c5 480b |H | Short_Literal 0xb
02c6 4809 |H | Short_Literal 0x9
02c7 e250 | P | Load 0x1,0x50
02c8 e24f | O | Load 0x1,0x4f
02c9 0119 | | Execute Any,Check_In_Formal_Type
02ca 00d9 | | Load_Top At_Offset_1
02cb e259 | Y | Load 0x1,0x59
02cc 01d6 | | Execute Vector,Field_Write
02cd 3ff9 |? | Loop_Increasing 0x2c7
02ce e254 | T | Load 0x1,0x54
02cf 01c3 | | Execute Vector,Check_In_Type
02d0 e254 | T | Load 0x1,0x54
02d1 0119 | | Execute Any,Check_In_Formal_Type
02d2 482a |H* | Short_Literal 0x2a
02d3 00da | | Load_Top At_Offset_2
02d4 01d6 | | Execute Vector,Field_Write
02d5 e254 | T | Load 0x1,0x54
02d6 0337 | 7 | Declare_Variable Array
02d7 e251 | Q | Load 0x1,0x51
02d8 e24f | O | Load 0x1,0x4f
02d9 0119 | | Execute Any,Check_In_Formal_Type
02da 4808 |H | Short_Literal 0x8
02db 00da | | Load_Top At_Offset_2
02dc 01d6 | | Execute Vector,Field_Write
02dd 4807 |H | Short_Literal 0x7
02de 4801 |H | Short_Literal 0x1
02df e250 | P | Load 0x1,0x50
02e0 e24f | O | Load 0x1,0x4f
02e1 0119 | | Execute Any,Check_In_Formal_Type
02e2 00d9 | | Load_Top At_Offset_1
02e3 e259 | Y | Load 0x1,0x59
02e4 01d6 | | Execute Vector,Field_Write
02e5 3ff9 |? | Loop_Increasing 0x2df
02e6 480b |H | Short_Literal 0xb
02e7 4809 |H | Short_Literal 0x9
02e8 e250 | P | Load 0x1,0x50
02e9 e24f | O | Load 0x1,0x4f
02ea 0119 | | Execute Any,Check_In_Formal_Type
02eb 00d9 | | Load_Top At_Offset_1
02ec e259 | Y | Load 0x1,0x59
02ed 01d6 | | Execute Vector,Field_Write
02ee 3ff9 |? | Loop_Increasing 0x2e8
02ef e254 | T | Load 0x1,0x54
02f0 01c3 | | Execute Vector,Check_In_Type
02f1 e254 | T | Load 0x1,0x54
02f2 0119 | | Execute Any,Check_In_Formal_Type
02f3 482b |H+ | Short_Literal 0x2b
02f4 00da | | Load_Top At_Offset_2
02f5 01d6 | | Execute Vector,Field_Write
02f6 00da | | Load_Top At_Offset_2
02f7 01c3 | | Execute Vector,Check_In_Type
02f8 0007 | | Action Break_Optional
02f9 00d9 | | Load_Top At_Offset_1
02fa 0337 | 7 | Declare_Variable Array
02fb e255 | U | Load 0x1,0x55
02fc 0337 | 7 | Declare_Variable Array
02fd e252 | R | Load 0x1,0x52
02fe e24f | O | Load 0x1,0x4f
02ff 0119 | | Execute Any,Check_In_Formal_Type
0300 480f |H | Short_Literal 0xf
0301 00da | | Load_Top At_Offset_2
0302 01d6 | | Execute Vector,Field_Write
0303 480e |H | Short_Literal 0xe
0304 480c |H | Short_Literal 0xc
0305 e250 | P | Load 0x1,0x50
0306 e24f | O | Load 0x1,0x4f
0307 0119 | | Execute Any,Check_In_Formal_Type
0308 00d9 | | Load_Top At_Offset_1
0309 e25a | Z | Load 0x1,0x5a
030a 01d6 | | Execute Vector,Field_Write
030b 3ff9 |? | Loop_Increasing 0x305
030c 4822 |H" | Short_Literal 0x22
030d 4810 |H | Short_Literal 0x10
030e e250 | P | Load 0x1,0x50
030f e24f | O | Load 0x1,0x4f
0310 0119 | | Execute Any,Check_In_Formal_Type
0311 00d9 | | Load_Top At_Offset_1
0312 e25a | Z | Load 0x1,0x5a
0313 01d6 | | Execute Vector,Field_Write
0314 3ff9 |? | Loop_Increasing 0x30e
0315 e255 | U | Load 0x1,0x55
0316 01c3 | | Execute Vector,Check_In_Type
0317 e255 | U | Load 0x1,0x55
0318 0119 | | Execute Any,Check_In_Formal_Type
0319 482c |H, | Short_Literal 0x2c
031a 00da | | Load_Top At_Offset_2
031b 01d6 | | Execute Vector,Field_Write
031c e255 | U | Load 0x1,0x55
031d 0337 | 7 | Declare_Variable Array
031e e252 | R | Load 0x1,0x52
031f e24f | O | Load 0x1,0x4f
0320 0119 | | Execute Any,Check_In_Formal_Type
0321 4810 |H | Short_Literal 0x10
0322 00da | | Load_Top At_Offset_2
0323 01d6 | | Execute Vector,Field_Write
0324 480f |H | Short_Literal 0xf
0325 480c |H | Short_Literal 0xc
0326 e250 | P | Load 0x1,0x50
0327 e24f | O | Load 0x1,0x4f
0328 0119 | | Execute Any,Check_In_Formal_Type
0329 00d9 | | Load_Top At_Offset_1
032a e25a | Z | Load 0x1,0x5a
032b 01d6 | | Execute Vector,Field_Write
032c 3ff9 |? | Loop_Increasing 0x326
032d 4822 |H" | Short_Literal 0x22
032e 4811 |H | Short_Literal 0x11
032f e250 | P | Load 0x1,0x50
0330 e24f | O | Load 0x1,0x4f
0331 0119 | | Execute Any,Check_In_Formal_Type
0332 00d9 | | Load_Top At_Offset_1
0333 e25a | Z | Load 0x1,0x5a
0334 01d6 | | Execute Vector,Field_Write
0335 3ff9 |? | Loop_Increasing 0x32f
0336 e255 | U | Load 0x1,0x55
0337 01c3 | | Execute Vector,Check_In_Type
0338 e255 | U | Load 0x1,0x55
0339 0119 | | Execute Any,Check_In_Formal_Type
033a 482d |H- | Short_Literal 0x2d
033b 00da | | Load_Top At_Offset_2
033c 01d6 | | Execute Vector,Field_Write
033d e255 | U | Load 0x1,0x55
033e 0337 | 7 | Declare_Variable Array
033f e252 | R | Load 0x1,0x52
0340 e24f | O | Load 0x1,0x4f
0341 0119 | | Execute Any,Check_In_Formal_Type
0342 4811 |H | Short_Literal 0x11
0343 00da | | Load_Top At_Offset_2
0344 01d6 | | Execute Vector,Field_Write
0345 4810 |H | Short_Literal 0x10
0346 480c |H | Short_Literal 0xc
0347 e250 | P | Load 0x1,0x50
0348 e24f | O | Load 0x1,0x4f
0349 0119 | | Execute Any,Check_In_Formal_Type
034a 00d9 | | Load_Top At_Offset_1
034b e25a | Z | Load 0x1,0x5a
034c 01d6 | | Execute Vector,Field_Write
034d 3ff9 |? | Loop_Increasing 0x347
034e 4822 |H" | Short_Literal 0x22
034f 4812 |H | Short_Literal 0x12
0350 e250 | P | Load 0x1,0x50
0351 e24f | O | Load 0x1,0x4f
0352 0119 | | Execute Any,Check_In_Formal_Type
0353 00d9 | | Load_Top At_Offset_1
0354 e25a | Z | Load 0x1,0x5a
0355 01d6 | | Execute Vector,Field_Write
0356 3ff9 |? | Loop_Increasing 0x350
0357 e255 | U | Load 0x1,0x55
0358 01c3 | | Execute Vector,Check_In_Type
0359 e255 | U | Load 0x1,0x55
035a 0119 | | Execute Any,Check_In_Formal_Type
035b 482e |H. | Short_Literal 0x2e
035c 00da | | Load_Top At_Offset_2
035d 01d6 | | Execute Vector,Field_Write
035e 00da | | Load_Top At_Offset_2
035f 01c3 | | Execute Vector,Check_In_Type
0360 0007 | | Action Break_Optional
0361 e00a | | Load 0x0,0xa
0362 191d | | Execute Package,Field_Reference,Field_Number 0x1d
0363 0007 | | Action Break_Optional
0364 e00a | | Load 0x0,0xa
0365 191d | | Execute Package,Field_Reference,Field_Number 0x1d
0366 0007 | | Action Break_Optional
0367 e00a | | Load 0x0,0xa
0368 191d | | Execute Package,Field_Reference,Field_Number 0x1d
0369 0007 | | Action Break_Optional
036a 029d 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call
036c e001 | | Load 0x0,0x1
036d 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21
036e 00c6 | | Action Check_Subprogram_Elaborated
036f 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
0370 e00b | | Load 0x0,0xb
0371 e00c | | Load 0x0,0xc
0372 4800 |H | Short_Literal 0x0
0373 0007 | | Action Break_Optional
0374 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call
0376 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
0378 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call
037a 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call
037c 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
037d 00c7 | | Action Elaborate_Subprogram
037e 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call
0380 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call
0382 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0383 00c7 | | Action Elaborate_Subprogram
0384 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0385 00c7 | | Action Elaborate_Subprogram
0386 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0387 00c7 | | Action Elaborate_Subprogram
0388 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0389 00c7 | | Action Elaborate_Subprogram
038a 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call
038c 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call
038e 029d 07b3 | | Declare_Subprogram INIT_07b0,For_Outer_Call
0390 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call
0392 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call
0394 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call
0396 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call
0398 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call
039a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
039b 00c7 | | Action Elaborate_Subprogram
039c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
039d 00c7 | | Action Elaborate_Subprogram
039e 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
039f 00c7 | | Action Elaborate_Subprogram
03a0 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
03a1 00c7 | | Action Elaborate_Subprogram
03a2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
03a3 00c7 | | Action Elaborate_Subprogram
03a4 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
03a5 00c7 | | Action Elaborate_Subprogram
03a6 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
03a7 00c7 | | Action Elaborate_Subprogram
03a8 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
03a9 00c7 | | Action Elaborate_Subprogram
03aa 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
03ab 00c7 | | Action Elaborate_Subprogram
03ac 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
03ad 00c7 | | Action Elaborate_Subprogram
03ae 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
03af 00c7 | | Action Elaborate_Subprogram
03b0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
03b1 00c7 | | Action Elaborate_Subprogram
03b2 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call
03b4 029d 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call
03b6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
03b7 00c7 | | Action Elaborate_Subprogram
03b8 BODY_0008:
03b8 00bc | | Action Signal_Activated
03b9 00bb | | Action Signal_Completion
03ba 0000 0000 | | .BLANK 0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 03d8 | | .CONST 0x03d8 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 e213 | | Load 0x1,0x13
03c4 03bc | | Declare_Variable Access,By_Allocation
03c5 a5fe | | Store_Unchecked 0x2,-0x2
03c6 00da | | Load_Top At_Offset_2
03c7 e5fe | | Load 0x2,-0x2
03c8 0227 | ' | Execute Access,All_Reference
03c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03ca 00db | | Load_Top At_Offset_3
03cb 0229 | ) | Execute Access,All_Read
03cc e249 | I | Load 0x1,0x49
03cd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03ce e249 | I | Load 0x1,0x49
03cf 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03d0 00d9 | | Load_Top At_Offset_1
03d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03d2 00d1 | | Pop_Control Pop_Count_1
03d3 e5fd | | Load 0x2,-0x3
03d4 e00a | | Load 0x0,0xa
03d5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03d6 c5fd | | Store 0x2,-0x3
03d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d8 TRAP_03c0:
03d8 0007 | | Action Break_Optional
03d9 e5fd | | Load 0x2,-0x3
03da 0092 0bb1 | | Action Push_String_Extended,0xbb1 ; "Initialize"
03dc 8265 | e | Call 0x1,0x65
03dd c5fd | | Store 0x2,-0x3
03de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03df 0000 | | .XXX[0x1]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 e216 | | Load 0x1,0x16
03e5 017f | | Execute Record,Equal
03e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e7 0000 | | .XXX[0x1]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00d1 | | Pop_Control Pop_Count_1
03ec 00da | | Load_Top At_Offset_2
03ed 01d8 | | Execute Vector,Element_Type
03ee 0322 | " | Declare_Variable Record
03ef 00d8 | | Load_Top At_Offset_0
03f0 1c00 | | Execute_Immediate Run_Utility,0x0
03f1 00db | | Load_Top At_Offset_3
03f2 01dc | | Execute Vector,Last
03f3 e5ff | | Load 0x2,-0x1
03f4 01dd | | Execute Vector,First
03f5 0263 | c | Execute Discrete,Above_Bound
03f6 7006 |p | Jump_Nonzero 0x3fd
03f7 00da | | Load_Top At_Offset_2
03f8 00d9 | | Load_Top At_Offset_1
03f9 e5ff | | Load 0x2,-0x1
03fa 01d6 | | Execute Vector,Field_Write
03fb 0a01 | | Execute_Immediate Plus,0x1
03fc 7ff8 | | Jump 0x3f5
03fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03fe 0000 0000 | | .XXX[0x2]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 4801 |H | Short_Literal 0x1
0404 4800 |H | Short_Literal 0x0
0405 e219 | | Load 0x1,0x19
0406 035b | [ | Declare_Type Array,Constrained
0407 0337 | 7 | Declare_Variable Array
0408 e219 | | Load 0x1,0x19
0409 01c6 | | Execute Vector,Convert_To_Formal
040a 00ca | | Action Exit_Nullary_Function
040b 0000 0000 | | .BLANK 0000[0x5]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 01db | | Execute Vector,Length
0415 0f00 | | Execute_Immediate Equal,0x0
0416 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0417 0000 | | .XXX[0x1]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 043e | > | .CONST 0x043e ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 000b | | .CONST 0x000b ; Number of locals
041b INIT_0418:
041b 00da | | Load_Top At_Offset_2
041c e008 | | Load 0x0,0x8
041d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
041e e5fd | | Load 0x2,-0x3
041f e258 | X | Load 0x1,0x58
0420 01d5 | | Execute Vector,Field_Reference
0421 01d5 | | Execute Vector,Field_Reference
0422 0007 | | Action Break_Optional
0423 e246 | F | Load 0x1,0x46
0424 0337 | 7 | Declare_Variable Array
0425 e5fe | | Load 0x2,-0x2
0426 0227 | ' | Execute Access,All_Reference
0427 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0428 0007 | | Action Break_Optional
0429 e20e | | Load 0x1,0xe
042a 02c7 | | Declare_Variable Any
042b e211 | | Load 0x1,0x11
042c a405 | | Store_Unchecked 0x2,0x5
042d 00e3 | | Load_Encached Natural_Cache
042e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
042f e5ff | | Load 0x2,-0x1
0430 e008 | | Load 0x0,0x8
0431 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0432 e5ff | | Load 0x2,-0x1
0433 e008 | | Load 0x0,0x8
0434 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0435 e008 | | Load 0x0,0x8
0436 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0437 011e | | Execute Any,Convert
0438 029f 0913 | | Declare_Subprogram INIT_0910,For_Call
043a 029f 0923 | #| Declare_Subprogram INIT_0920,For_Call
043c 029f 093b | ;| Declare_Subprogram INIT_0938,For_Call
043e BODY_0418:
043e 00cf | | Action Mark_Auxiliary
043f e402 | | Load 0x2,0x2
0440 01d9 | | Execute Vector,Reverse_Bounds
0441 0007 | | Action Break_Optional
0442 00d8 | | Load_Top At_Offset_0
0443 e402 | | Load 0x2,0x2
0444 01d7 | | Execute Vector,Field_Read
0445 6803 |h | Jump_Zero 0x449
0446 e5ff | | Load 0x2,-0x1
0447 00d9 | | Load_Top At_Offset_1
0448 840a | | Call 0x2,0xa
0449 00c8 | | Action Pop_Auxiliary_Range
044a 3ff7 |? | Loop_Increasing 0x442
044b 00ce | | Action Pop_Auxiliary
044c 840b | | Call 0x2,0xb
044d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
044e 0000 0000 | | .XXX[0x2]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0467 | g | .CONST 0x0467 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0009 | | .CONST 0x0009 ; Number of locals
0453 INIT_0450:
0453 e246 | F | Load 0x1,0x46
0454 0337 | 7 | Declare_Variable Array
0455 e5fe | | Load 0x2,-0x2
0456 0227 | ' | Execute Access,All_Reference
0457 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0458 0007 | | Action Break_Optional
0459 e24f | O | Load 0x1,0x4f
045a 0337 | 7 | Declare_Variable Array
045b e20e | | Load 0x1,0xe
045c 02c7 | | Declare_Variable Any
045d e211 | | Load 0x1,0x11
045e a405 | | Store_Unchecked 0x2,0x5
045f 00e3 | | Load_Encached Natural_Cache
0460 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0461 029f 0963 | c| Declare_Subprogram INIT_0960,For_Call
0463 029f 0973 | s| Declare_Subprogram INIT_0970,For_Call
0465 029f 0993 | | Declare_Subprogram INIT_0990,For_Call
0467 BODY_0450:
0467 00cf | | Action Mark_Auxiliary
0468 e5ff | | Load 0x2,-0x1
0469 01d9 | | Execute Vector,Reverse_Bounds
046a 0263 | c | Execute Discrete,Above_Bound
046b 701d |p | Jump_Nonzero 0x489
046c 00d8 | | Load_Top At_Offset_0
046d e5ff | | Load 0x2,-0x1
046e 01d5 | | Execute Vector,Field_Reference
046f e008 | | Load 0x0,0x8
0470 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0471 e5fd | | Load 0x2,-0x3
0472 e258 | X | Load 0x1,0x58
0473 01d5 | | Execute Vector,Field_Reference
0474 01d5 | | Execute Vector,Field_Reference
0475 e404 | | Load 0x2,0x4
0476 01d4 | | Execute Vector,Structure_Write
0477 00cf | | Action Mark_Auxiliary
0478 e404 | | Load 0x2,0x4
0479 01d9 | | Execute Vector,Reverse_Bounds
047a 0007 | | Action Break_Optional
047b 00d8 | | Load_Top At_Offset_0
047c e404 | | Load 0x2,0x4
047d 01d7 | | Execute Vector,Field_Read
047e 6805 |h | Jump_Zero 0x484
047f 00db | | Load_Top At_Offset_3
0480 e5ff | | Load 0x2,-0x1
0481 01d5 | | Execute Vector,Field_Reference
0482 00d9 | | Load_Top At_Offset_1
0483 8408 | | Call 0x2,0x8
0484 00c8 | | Action Pop_Auxiliary_Range
0485 3ff5 |? | Loop_Increasing 0x47b
0486 00ce | | Action Pop_Auxiliary
0487 00c8 | | Action Pop_Auxiliary_Range
0488 3fe3 |? | Loop_Increasing 0x46c
0489 00ce | | Action Pop_Auxiliary
048a 8409 | | Call 0x2,0x9
048b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
048c 0000 0000 | | .BLANK 0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 04bd | | .CONST 0x04bd ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 000e | | .CONST 0x000e ; Number of locals
0493 INIT_0490:
0493 00da | | Load_Top At_Offset_2
0494 e00d | | Load 0x0,0xd
0495 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0496 e5fd | | Load 0x2,-0x3
0497 e259 | Y | Load 0x1,0x59
0498 01d5 | | Execute Vector,Field_Reference
0499 01d5 | | Execute Vector,Field_Reference
049a 0007 | | Action Break_Optional
049b e246 | F | Load 0x1,0x46
049c 0337 | 7 | Declare_Variable Array
049d e5fe | | Load 0x2,-0x2
049e 0227 | ' | Execute Access,All_Reference
049f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04a0 0007 | | Action Break_Optional
04a1 e20e | | Load 0x1,0xe
04a2 02c7 | | Declare_Variable Any
04a3 e211 | | Load 0x1,0x11
04a4 a405 | | Store_Unchecked 0x2,0x5
04a5 00e3 | | Load_Encached Natural_Cache
04a6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04a7 e5ff | | Load 0x2,-0x1
04a8 e00d | | Load 0x0,0xd
04a9 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
04aa e00d | | Load 0x0,0xd
04ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ac 011e | | Execute Any,Convert
04ad 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call
04af 029f 09cb | | Declare_Subprogram INIT_09c8,For_Call
04b1 e001 | | Load 0x0,0x1
04b2 1920 | | Execute Package,Field_Reference,Field_Number 0x20
04b3 00c6 | | Action Check_Subprogram_Elaborated
04b4 4809 |H | Short_Literal 0x9
04b5 4802 |H | Short_Literal 0x2
04b6 0099 | | Action Reference_Dynamic
04b7 e00e | | Load 0x0,0xe
04b8 e00f | | Load 0x0,0xf
04b9 480d |H | Short_Literal 0xd
04ba 0007 | | Action Break_Optional
04bb 029f 09fb | | Declare_Subprogram INIT_09f8,For_Call
04bd BODY_0490:
04bd 00cf | | Action Mark_Auxiliary
04be e402 | | Load 0x2,0x2
04bf 01d9 | | Execute Vector,Reverse_Bounds
04c0 0007 | | Action Break_Optional
04c1 00d8 | | Load_Top At_Offset_0
04c2 e402 | | Load 0x2,0x2
04c3 01d7 | | Execute Vector,Field_Read
04c4 6813 |h | Jump_Zero 0x4d8
04c5 e405 | | Load 0x2,0x5
04c6 0120 | | Execute Any,Is_Value
04c7 6803 |h | Jump_Zero 0x4cb
04c8 e001 | | Load 0x0,0x1
04c9 1b19 | | Execute Package,Field_Read,Field_Number 0x19
04ca 7801 |x | Jump 0x4cc
04cb e405 | | Load 0x2,0x5
04cc e5ff | | Load 0x2,-0x1
04cd 00da | | Load_Top At_Offset_2
04ce 826d | m | Call 0x1,0x6d
04cf 480a |H | Short_Literal 0xa
04d0 4802 |H | Short_Literal 0x2
04d1 0099 | | Action Reference_Dynamic
04d2 480b |H | Short_Literal 0xb
04d3 4802 |H | Short_Literal 0x2
04d4 0099 | | Action Reference_Dynamic
04d5 e001 | | Load 0x0,0x1
04d6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04d7 c405 | | Store 0x2,0x5
04d8 00c8 | | Action Pop_Auxiliary_Range
04d9 3fe7 |? | Loop_Increasing 0x4c1
04da 00ce | | Action Pop_Auxiliary
04db 840e | | Call 0x2,0xe
04dc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
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 00cf | | Action Mark_Auxiliary
04e4 00db | | Load_Top At_Offset_3
04e5 01d9 | | Execute Vector,Reverse_Bounds
04e6 0263 | c | Execute Discrete,Above_Bound
04e7 701b |p | Jump_Nonzero 0x503
04e8 4800 |H | Short_Literal 0x0
04e9 4800 |H | Short_Literal 0x0
04ea 4806 |H | Short_Literal 0x6
04eb 0092 0bb2 | | Action Push_String_Extended,0xbb2 ; "The analysis required to determine Specified_Data (\x22"
04ed e404 | | Load 0x2,0x4
04ee e5ff | | Load 0x2,-0x1
04ef 01d5 | | Execute Vector,Field_Reference
04f0 e00d | | Load 0x0,0xd
04f1 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04f2 01cc | | Execute Vector,Catenate
04f3 0092 0bb3 | | Action Push_String_Extended,0xbb3 ; "\x22, "
04f5 01cc | | Execute Vector,Catenate
04f6 e5fd | | Load 0x2,-0x3
04f7 e002 | | Load 0x0,0x2
04f8 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
04f9 011c | | Execute Any,Convert_Unchecked
04fa 1c01 | | Execute_Immediate Run_Utility,0x1
04fb 01cc | | Execute Vector,Catenate
04fc 0092 0bb4 | | Action Push_String_Extended,0xbb4 ; ") from ITEM_ITERATOR is not yet implemented"
04fe 01cc | | Execute Vector,Catenate
04ff 00ea | | Load_Encached Null_String_Cache
0500 825c | \ | Call 0x1,0x5c
0501 00c8 | | Action Pop_Auxiliary_Range
0502 3fe5 |? | Loop_Increasing 0x4e8
0503 00ce | | Action Pop_Auxiliary
0504 821a | | Call 0x1,0x1a
0505 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0506 0000 0000 | | .XXX[0x2]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
050d 00d8 | | Load_Top At_Offset_0
050e 0120 | | Execute Any,Is_Value
050f 7002 |p | Jump_Nonzero 0x512
0510 00d8 | | Load_Top At_Offset_0
0511 011e | | Execute Any,Convert
0512 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 00da | | Load_Top At_Offset_2
051c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
051d 00d8 | | Load_Top At_Offset_0
051e 0120 | | Execute Any,Is_Value
051f 7002 |p | Jump_Nonzero 0x522
0520 00d8 | | Load_Top At_Offset_0
0521 011e | | Execute Any,Convert
0522 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0523 0000 0000 | | .BLANK 0000[0x5]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b 00da | | Load_Top At_Offset_2
052c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
052d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052e 0000 0000 | | .XXX[0x2]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 00da | | Load_Top At_Offset_2
0534 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0535 0320 | | Declare_Variable Record,Duplicate
0536 00cd | | Action Spare6_Action
0537 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 00da | | Load_Top At_Offset_2
053c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
053d 820f | | Call 0x1,0xf
053e 6802 |h | Jump_Zero 0x541
053f 00ea | | Load_Encached Null_String_Cache
0540 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0541 00da | | Load_Top At_Offset_2
0542 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0543 8267 | g | Call 0x1,0x67
0544 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0545 0000 0000 | | .XXX[0x3]
0547 0000 | |
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b | K | .CONST 0x054b ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0001 | | .CONST 0x0001 ; Number of locals
054b BODY_0548:
054b INIT_0548:
054b 00da | | Load_Top At_Offset_2
054c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
054d 0add | | Execute_Immediate Plus,-0x23
054e 460c |F | Jump_Case 0xd
054f 780e |x | Jump 0x55e ; case 0x0
0550 780d |x | Jump 0x55e ; case 0x1
0551 780c |x | Jump 0x55e ; case 0x2
0552 780b |x | Jump 0x55e ; case 0x3
0553 780a |x | Jump 0x55e ; case 0x4
0554 7809 |x | Jump 0x55e ; case 0x5
0555 7808 |x | Jump 0x55e ; case 0x6
0556 7807 |x | Jump 0x55e ; case 0x7
0557 7806 |x | Jump 0x55e ; case 0x8
0558 780f |x | Jump 0x568 ; case 0x9
0559 780e |x | Jump 0x568 ; case 0xa
055a 780d |x | Jump 0x568 ; case 0xb
055b 7800 |x | Jump 0x55c ; case 0xc
055c 00ea | | Load_Encached Null_String_Cache
055d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
055e 482e |H. | Short_Literal 0x2e
055f 00db | | Load_Top At_Offset_3
0560 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0561 e008 | | Load 0x0,0x8
0562 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0563 01cb | | Execute Vector,Append
0564 00db | | Load_Top At_Offset_3
0565 8225 | % | Call 0x1,0x25
0566 01cc | | Execute Vector,Catenate
0567 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0568 482e |H. | Short_Literal 0x2e
0569 00db | | Load_Top At_Offset_3
056a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
056b e008 | | Load 0x0,0x8
056c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
056d 01cb | | Execute Vector,Append
056e 00db | | Load_Top At_Offset_3
056f 8225 | % | Call 0x1,0x25
0570 01cc | | Execute Vector,Catenate
0571 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0572 0000 0000 | | .BLANK 0000[0x6]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
057d 8267 | g | Call 0x1,0x67
057e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
057f 0000 | | .XXX[0x1]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 00da | | Load_Top At_Offset_2
0584 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0585 7002 |p | Jump_Nonzero 0x588
0586 e234 | 4 | Load 0x1,0x34
0587 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0588 00da | | Load_Top At_Offset_2
0589 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
058a 0217 | | Execute Heap_Access,All_Reference
058b 0335 | 5 | Declare_Variable Array,Duplicate
058c 00cd | | Action Spare6_Action
058d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
058e 0000 0000 | | .XXX[0x2]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 05a2 | | .CONST 0x05a2 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0006 | | .CONST 0x0006 ; Number of locals
0593 INIT_0590:
0593 e008 | | Load 0x0,0x8
0594 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0595 e246 | F | Load 0x1,0x46
0596 0337 | 7 | Declare_Variable Array
0597 00e1 | | Load_Encached Boolean_Cache
0598 e001 | | Load 0x0,0x1
0599 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
059a 02c7 | | Declare_Variable Any
059b e5ff | | Load 0x2,-0x1
059c 8271 | q | Call 0x1,0x71
059d a405 | | Store_Unchecked 0x2,0x5
059e e002 | | Load 0x0,0x2
059f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05a0 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
05a1 0322 | " | Declare_Variable Record
05a2 BODY_0590:
05a2 00d9 | | Load_Top At_Offset_1
05a3 e001 | | Load 0x0,0x1
05a4 180f | | Execute Package,Field_Execute,Field_Number 0xf
05a5 6802 |h | Jump_Zero 0x5a8
05a6 482f |H/ | Short_Literal 0x2f
05a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a8 e5fe | | Load 0x2,-0x2
05a9 e002 | | Load 0x0,0x2
05aa 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05ab 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
05ac 017f | | Execute Record,Equal
05ad 680a |h | Jump_Zero 0x5b8
05ae 00e1 | | Load_Encached Boolean_Cache
05af 00d9 | | Load_Top At_Offset_1
05b0 4803 |H | Short_Literal 0x3
05b1 e5ff | | Load 0x2,-0x1
05b2 e002 | | Load 0x0,0x2
05b3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05b4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
05b5 00d1 | | Pop_Control Pop_Count_1
05b6 005b | [ | Store_Top Discrete,At_Offset_3
05b7 7803 |x | Jump 0x5bb
05b8 e5fe | | Load 0x2,-0x2
05b9 00d9 | | Load_Top At_Offset_1
05ba 017d | } | Execute Record,Structure_Write
05bb 00db | | Load_Top At_Offset_3
05bc 00d9 | | Load_Top At_Offset_1
05bd e004 | | Load 0x0,0x4
05be 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05bf 00d1 | | Pop_Control Pop_Count_1
05c0 e002 | | Load 0x0,0x2
05c1 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05c2 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
05c3 00da | | Load_Top At_Offset_2
05c4 e008 | | Load 0x0,0x8
05c5 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
05c6 a402 | | Store_Unchecked 0x2,0x2
05c7 e402 | | Load 0x2,0x2
05c8 0f0b | | Execute_Immediate Equal,0xb
05c9 7010 |p | Jump_Nonzero 0x5da
05ca e5ff | | Load 0x2,-0x1
05cb e009 | | Load 0x0,0x9
05cc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05cd 6806 |h | Jump_Zero 0x5d4
05ce e5ff | | Load 0x2,-0x1
05cf e403 | | Load 0x2,0x3
05d0 4800 |H | Short_Literal 0x0
05d1 e402 | | Load 0x2,0x2
05d2 826f | o | Call 0x1,0x6f
05d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d4 e5ff | | Load 0x2,-0x1
05d5 e403 | | Load 0x2,0x3
05d6 4801 |H | Short_Literal 0x1
05d7 e402 | | Load 0x2,0x2
05d8 826f | o | Call 0x1,0x6f
05d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05da e002 | | Load 0x0,0x2
05db 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05dc 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
05dd 00da | | Load_Top At_Offset_2
05de e00d | | Load 0x0,0xd
05df 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05e0 0af4 | | Execute_Immediate Plus,-0xc
05e1 4616 |F | Jump_Case 0x17
05e2 7816 |x | Jump 0x5f9 ; case 0x0
05e3 7815 |x | Jump 0x5f9 ; case 0x1
05e4 7814 |x | Jump 0x5f9 ; case 0x2
05e5 7815 |x | Jump 0x5fb ; case 0x3
05e6 7821 |x! | Jump 0x608 ; case 0x4
05e7 782d |x- | Jump 0x615 ; case 0x5
05e8 7810 |x | Jump 0x5f9 ; case 0x6
05e9 780f |x | Jump 0x5f9 ; case 0x7
05ea 780e |x | Jump 0x5f9 ; case 0x8
05eb 780d |x | Jump 0x5f9 ; case 0x9
05ec 780c |x | Jump 0x5f9 ; case 0xa
05ed 780b |x | Jump 0x5f9 ; case 0xb
05ee 780a |x | Jump 0x5f9 ; case 0xc
05ef 7809 |x | Jump 0x5f9 ; case 0xd
05f0 7808 |x | Jump 0x5f9 ; case 0xe
05f1 7807 |x | Jump 0x5f9 ; case 0xf
05f2 7806 |x | Jump 0x5f9 ; case 0x10
05f3 7805 |x | Jump 0x5f9 ; case 0x11
05f4 7804 |x | Jump 0x5f9 ; case 0x12
05f5 7803 |x | Jump 0x5f9 ; case 0x13
05f6 7802 |x | Jump 0x5f9 ; case 0x14
05f7 7801 |x | Jump 0x5f9 ; case 0x15
05f8 7800 |x | Jump 0x5f9 ; case 0x16
05f9 482f |H/ | Short_Literal 0x2f
05fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05fb e5ff | | Load 0x2,-0x1
05fc e009 | | Load 0x0,0x9
05fd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05fe 6807 |h | Jump_Zero 0x606
05ff 4809 |H | Short_Literal 0x9
0600 e403 | | Load 0x2,0x3
0601 01d7 | | Execute Vector,Field_Read
0602 823d | = | Call 0x1,0x3d
0603 7002 |p | Jump_Nonzero 0x606
0604 482c |H, | Short_Literal 0x2c
0605 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0606 482f |H/ | Short_Literal 0x2f
0607 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0608 e5ff | | Load 0x2,-0x1
0609 e009 | | Load 0x0,0x9
060a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
060b 6807 |h | Jump_Zero 0x613
060c 4809 |H | Short_Literal 0x9
060d e403 | | Load 0x2,0x3
060e 01d7 | | Execute Vector,Field_Read
060f 823d | = | Call 0x1,0x3d
0610 7002 |p | Jump_Nonzero 0x613
0611 482d |H- | Short_Literal 0x2d
0612 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0613 482f |H/ | Short_Literal 0x2f
0614 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0615 e5ff | | Load 0x2,-0x1
0616 e009 | | Load 0x0,0x9
0617 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0618 6807 |h | Jump_Zero 0x620
0619 4809 |H | Short_Literal 0x9
061a e403 | | Load 0x2,0x3
061b 01d7 | | Execute Vector,Field_Read
061c 823d | = | Call 0x1,0x3d
061d 7002 |p | Jump_Nonzero 0x620
061e 482e |H. | Short_Literal 0x2e
061f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0620 482f |H/ | Short_Literal 0x2f
0621 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0622 0000 0000 | | .BLANK 0000[0x6]
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 4804 |H | Short_Literal 0x4
062c 00ca | | Action Exit_Nullary_Function
062d 0000 0000 | | .XXX[0x3]
062f 0000 | |
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 4805 |H | Short_Literal 0x5
0634 00ca | | Action Exit_Nullary_Function
0635 0000 0000 | | .XXX[0x3]
0637 0000 | |
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 4806 |H | Short_Literal 0x6
063c 00ca | | Action Exit_Nullary_Function
063d 0000 0000 | | .XXX[0x3]
063f 0000 | |
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643 | C | .CONST 0x0643 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0001 | | .CONST 0x0001 ; Number of locals
0643 BODY_0640:
0643 INIT_0640:
0643 4809 |H | Short_Literal 0x9
0644 00ca | | Action Exit_Nullary_Function
0645 0000 0000 | | .XXX[0x3]
0647 0000 | |
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 4807 |H | Short_Literal 0x7
064c 00ca | | Action Exit_Nullary_Function
064d 0000 0000 | | .XXX[0x3]
064f 0000 | |
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 4808 |H | Short_Literal 0x8
0654 00ca | | Action Exit_Nullary_Function
0655 0000 0000 | | .XXX[0x3]
0657 0000 | |
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 00da | | Load_Top At_Offset_2
065c e001 | | Load 0x0,0x1
065d 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
065e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
065f 4bfd |K | Short_Literal 0x3fd
0660 026e | n | Execute Discrete,Modulo
0661 00d8 | | Load_Top At_Offset_0
0662 00e2 | | Load_Encached Integer_Cache
0663 0260 | ` | Execute Discrete,In_Type
0664 7001 |p | Jump_Nonzero 0x666
0665 0801 | | Execute_Immediate Raise,0x1
0666 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0667 0000 | | .XXX[0x1]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b 4607 |F | Jump_Case 0x8
066c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
066d 7806 |x | Jump 0x674 ; case 0x1
066e 7809 |x | Jump 0x678 ; case 0x2
066f 780d |x | Jump 0x67d ; case 0x3
0670 7810 |x | Jump 0x681 ; case 0x4
0671 7811 |x | Jump 0x683 ; case 0x5
0672 7812 |x | Jump 0x685 ; case 0x6
0673 7815 |x | Jump 0x689 ; case 0x7
0674 00da | | Load_Top At_Offset_2
0675 0091 0bae | | Action Push_String_Extended_Indexed,0xbae ; "GLOBAL"
0677 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0678 00db | | Load_Top At_Offset_3
0679 00db | | Load_Top At_Offset_3
067a 00e0 | | Load_Encached Standard_Cache
067b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
067c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
067d 00da | | Load_Top At_Offset_2
067e 00e0 | | Load_Encached Standard_Cache
067f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0680 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0681 00db | | Load_Top At_Offset_3
0682 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0683 00db | | Load_Top At_Offset_3
0684 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0685 e24e | N | Load 0x1,0x4e
0686 00dc | | Load_Top At_Offset_4
0687 0267 | g | Execute Discrete,Predecessor
0688 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0689 e24e | N | Load 0x1,0x4e
068a 00dc | | Load_Top At_Offset_4
068b 0268 | h | Execute Discrete,Successor
068c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
068d 0000 0000 | | .XXX[0x3]
068f 0000 | |
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693 | | .CONST 0x0693 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0001 | | .CONST 0x0001 ; Number of locals
0693 BODY_0690:
0693 INIT_0690:
0693 00da | | Load_Top At_Offset_2
0694 e009 | | Load 0x0,0x9
0695 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0696 4626 |F& | Jump_Case 0x27
0697 7826 |x& | Jump 0x6be ; case 0x0
0698 7825 |x% | Jump 0x6be ; case 0x1
0699 7824 |x$ | Jump 0x6be ; case 0x2
069a 7823 |x# | Jump 0x6be ; case 0x3
069b 7822 |x" | Jump 0x6be ; case 0x4
069c 7821 |x! | Jump 0x6be ; case 0x5
069d 7820 |x | Jump 0x6be ; case 0x6
069e 781f |x | Jump 0x6be ; case 0x7
069f 781e |x | Jump 0x6be ; case 0x8
06a0 7826 |x& | Jump 0x6c7 ; case 0x9
06a1 781c |x | Jump 0x6be ; case 0xa
06a2 7824 |x$ | Jump 0x6c7 ; case 0xb
06a3 781a |x | Jump 0x6be ; case 0xc
06a4 7822 |x" | Jump 0x6c7 ; case 0xd
06a5 7818 |x | Jump 0x6be ; case 0xe
06a6 7817 |x | Jump 0x6be ; case 0xf
06a7 7816 |x | Jump 0x6be ; case 0x10
06a8 7815 |x | Jump 0x6be ; case 0x11
06a9 7814 |x | Jump 0x6be ; case 0x12
06aa 7813 |x | Jump 0x6be ; case 0x13
06ab 7812 |x | Jump 0x6be ; case 0x14
06ac 7811 |x | Jump 0x6be ; case 0x15
06ad 7810 |x | Jump 0x6be ; case 0x16
06ae 780f |x | Jump 0x6be ; case 0x17
06af 780e |x | Jump 0x6be ; case 0x18
06b0 780d |x | Jump 0x6be ; case 0x19
06b1 7815 |x | Jump 0x6c7 ; case 0x1a
06b2 780b |x | Jump 0x6be ; case 0x1b
06b3 780a |x | Jump 0x6be ; case 0x1c
06b4 7809 |x | Jump 0x6be ; case 0x1d
06b5 7808 |x | Jump 0x6be ; case 0x1e
06b6 7807 |x | Jump 0x6be ; case 0x1f
06b7 7806 |x | Jump 0x6be ; case 0x20
06b8 7805 |x | Jump 0x6be ; case 0x21
06b9 7804 |x | Jump 0x6be ; case 0x22
06ba 7803 |x | Jump 0x6be ; case 0x23
06bb 7802 |x | Jump 0x6be ; case 0x24
06bc 7801 |x | Jump 0x6be ; case 0x25
06bd 7800 |x | Jump 0x6be ; case 0x26
06be e002 | | Load 0x0,0x2
06bf 1b20 | | Execute Package,Field_Read,Field_Number 0x20
06c0 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
06c1 00db | | Load_Top At_Offset_3
06c2 e008 | | Load 0x0,0x8
06c3 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
06c4 0f0b | | Execute_Immediate Equal,0xb
06c5 0f00 | | Execute_Immediate Equal,0x0
06c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c7 e002 | | Load 0x0,0x2
06c8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
06c9 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
06ca 00db | | Load_Top At_Offset_3
06cb e009 | | Load 0x0,0x9
06cc 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
06cd e008 | | Load 0x0,0x8
06ce 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
06cf 0f0b | | Execute_Immediate Equal,0xb
06d0 0f00 | | Execute_Immediate Equal,0x0
06d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06d2 0000 0000 | | .BLANK 0000[0x6]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06e0 | | .CONST 0x06e0 ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0002 | | .CONST 0x0002 ; Number of locals
06db INIT_06d8:
06db e001 | | Load 0x0,0x1
06dc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
06dd 02c7 | | Declare_Variable Any
06de 00d8 | | Load_Top At_Offset_0
06df 1c00 | | Execute_Immediate Run_Utility,0x0
06e0 BODY_06d8:
06e0 00d8 | | Load_Top At_Offset_0
06e1 0120 | | Execute Any,Is_Value
06e2 6803 |h | Jump_Zero 0x6e6
06e3 e001 | | Load 0x0,0x1
06e4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
06e5 7801 |x | Jump 0x6e7
06e6 00d8 | | Load_Top At_Offset_0
06e7 e5ff | | Load 0x2,-0x1
06e8 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
06e9 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
06ea e001 | | Load 0x0,0x1
06eb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
06ec c402 | | Store 0x2,0x2
06ed 00d8 | | Load_Top At_Offset_0
06ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ef 0000 | | .XXX[0x1]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 4801 |H | Short_Literal 0x1
06f4 00db | | Load_Top At_Offset_3
06f5 e00a | | Load 0x0,0xa
06f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06f7 6802 |h | Jump_Zero 0x6fa
06f8 e010 | | Load 0x0,0x10
06f9 0257 | W | Execute Discrete,Raise
06fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06fb 0000 0000 | | .BLANK 0000[0x5]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703 | | .CONST 0x0703 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0001 | | .CONST 0x0001 ; Number of locals
0703 BODY_0700:
0703 INIT_0700:
0703 e5fd | | Load 0x2,-0x3
0704 e5fe | | Load 0x2,-0x2
0705 e5ff | | Load 0x2,-0x1
0706 00ea | | Load_Encached Null_String_Cache
0707 e00a | | Load 0x0,0xa
0708 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0709 c5fd | | Store 0x2,-0x3
070a e010 | | Load 0x0,0x10
070b 0257 | W | Execute Discrete,Raise
070c 0000 0000 | | .BLANK 0000[0x4]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713 | | .CONST 0x0713 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0001 | | .CONST 0x0001 ; Number of locals
0713 BODY_0710:
0713 INIT_0710:
0713 00db | | Load_Top At_Offset_3
0714 4829 |H) | Short_Literal 0x29
0715 0092 0bb5 | | Action Push_String_Extended,0xbb5 ; "Unexpected exception in Data."
0717 e5ff | | Load 0x2,-0x1
0718 01cc | | Execute Vector,Catenate
0719 0092 0bb6 | | Action Push_String_Extended,0xbb6 ; " ("
071b 01cc | | Execute Vector,Catenate
071c e00a | | Load 0x0,0xa
071d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
071e 01cc | | Execute Vector,Catenate
071f 01cb | | Execute Vector,Append
0720 e00a | | Load 0x0,0xa
0721 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0722 e00a | | Load 0x0,0xa
0723 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0724 c5fe | | Store 0x2,-0x2
0725 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0726 0000 0000 | | .XXX[0x2]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 073b | ; | .CONST 0x073b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0006 | | .CONST 0x0006 ; Number of locals
072b INIT_0728:
072b 00da | | Load_Top At_Offset_2
072c 01da | | Execute Vector,Bounds
072d 00e9 | | Load_Encached String_Cache
072e 035b | [ | Declare_Type Array,Constrained
072f 0337 | 7 | Declare_Variable Array
0730 00d8 | | Load_Top At_Offset_0
0731 01dd | | Execute Vector,First
0732 00e3 | | Load_Encached Natural_Cache
0733 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0734 00d8 | | Load_Top At_Offset_0
0735 00e3 | | Load_Encached Natural_Cache
0736 03f1 | | Declare_Variable Discrete,With_Value
0737 00e1 | | Load_Encached Boolean_Cache
0738 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0739 029f 0a23 | #| Declare_Subprogram INIT_0a20,For_Call
073b BODY_0728:
073b 00cf | | Action Mark_Auxiliary
073c e5ff | | Load 0x2,-0x1
073d 01d9 | | Execute Vector,Reverse_Bounds
073e 0263 | c | Execute Discrete,Above_Bound
073f 7021 |p! | Jump_Nonzero 0x761
0740 00d8 | | Load_Top At_Offset_0
0741 e5ff | | Load 0x2,-0x1
0742 01d7 | | Execute Vector,Field_Read
0743 00d8 | | Load_Top At_Offset_0
0744 0d20 | | Execute_Immediate Less,0x20
0745 700e |p | Jump_Nonzero 0x754
0746 00d8 | | Load_Top At_Offset_0
0747 0c21 | ! | Execute_Immediate Greater_Equal,0x21
0748 7008 |p | Jump_Nonzero 0x751
0749 00d1 | | Pop_Control Pop_Count_1
074a e405 | | Load 0x2,0x5
074b 6813 |h | Jump_Zero 0x75f
074c 4820 |H | Short_Literal 0x20
074d 8406 | | Call 0x2,0x6
074e 4800 |H | Short_Literal 0x0
074f a405 | | Store_Unchecked 0x2,0x5
0750 780e |x | Jump 0x75f
0751 0f5f | _ | Execute_Immediate Equal,0x5f
0752 77f7 |w | Jump_Nonzero 0x74a
0753 7805 |x | Jump 0x759
0754 4809 |H | Short_Literal 0x9
0755 480d |H | Short_Literal 0xd
0756 0262 | b | Execute Discrete,In_Range
0757 77f2 |w | Jump_Nonzero 0x74a
0758 7800 |x | Jump 0x759
0759 00d8 | | Load_Top At_Offset_0
075a e5ff | | Load 0x2,-0x1
075b 01d7 | | Execute Vector,Field_Read
075c 8406 | | Call 0x2,0x6
075d 4801 |H | Short_Literal 0x1
075e a405 | | Store_Unchecked 0x2,0x5
075f 00c8 | | Action Pop_Auxiliary_Range
0760 3fdf |? | Loop_Increasing 0x740
0761 00ce | | Action Pop_Auxiliary
0762 00db | | Load_Top At_Offset_3
0763 00e2 | | Load_Encached Integer_Cache
0764 e404 | | Load 0x2,0x4
0765 0267 | g | Execute Discrete,Predecessor
0766 e402 | | Load 0x2,0x2
0767 01cf | | Execute Vector,Slice_Read
0768 e011 | | Load 0x0,0x11
0769 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
076a 00e9 | | Load_Encached String_Cache
076b 01c6 | | Execute Vector,Convert_To_Formal
076c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076d 0000 0000 | | .XXX[0x3]
076f 0000 | |
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 00da | | Load_Top At_Offset_2
0774 e009 | | Load 0x0,0x9
0775 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0776 8266 | f | Call 0x1,0x66
0777 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 0780 | | .CONST 0x0780 ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0003 | | .CONST 0x0003 ; Number of locals
077b INIT_0778:
077b 00e1 | | Load_Encached Boolean_Cache
077c e215 | | Load 0x1,0x15
077d 0322 | " | Declare_Variable Record
077e 00d8 | | Load_Top At_Offset_0
077f 1c00 | | Execute_Immediate Run_Utility,0x0
0780 BODY_0778:
0780 00e1 | | Load_Encached Boolean_Cache
0781 00d9 | | Load_Top At_Offset_1
0782 e5ff | | Load 0x2,-0x1
0783 e5fe | | Load 0x2,-0x2
0784 e249 | I | Load 0x1,0x49
0785 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0786 00d1 | | Pop_Control Pop_Count_1
0787 005a | Z | Store_Top Discrete,At_Offset_2
0788 00d9 | | Load_Top At_Offset_1
0789 6802 |h | Jump_Zero 0x78c
078a 00d8 | | Load_Top At_Offset_0
078b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
078c e216 | | Load 0x1,0x16
078d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
078e 0000 0000 | | .XXX[0x2]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0796 | | .CONST 0x0796 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0002 | | .CONST 0x0002 ; Number of locals
0793 INIT_0790:
0793 e002 | | Load 0x0,0x2
0794 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0795 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0796 BODY_0790:
0796 00d8 | | Load_Top At_Offset_0
0797 e5ff | | Load 0x2,-0x1
0798 4809 |H | Short_Literal 0x9
0799 e004 | | Load 0x0,0x4
079a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
079b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
079c 00d8 | | Load_Top At_Offset_0
079d 823d | = | Call 0x1,0x3d
079e 6803 |h | Jump_Zero 0x7a2
079f e003 | | Load 0x0,0x3
07a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a2 00d8 | | Load_Top At_Offset_0
07a3 e002 | | Load 0x0,0x2
07a4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07a5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
07a6 e002 | | Load 0x0,0x2
07a7 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07a8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07aa e003 | | Load 0x0,0x3
07ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ad 0000 0000 | | .XXX[0x3]
07af 0000 | |
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b7 | | .CONST 0x07b7 ; Address of begin
07b1 0004 | | .CONST 0x0004 ; Address of exception handler
07b2 0002 | | .CONST 0x0002 ; Number of locals
07b3 INIT_07b0:
07b3 e215 | | Load 0x1,0x15
07b4 0322 | " | Declare_Variable Record
07b5 00d8 | | Load_Top At_Offset_0
07b6 1c00 | | Execute_Immediate Run_Utility,0x0
07b7 BODY_07b0:
07b7 00db | | Load_Top At_Offset_3
07b8 00d9 | | Load_Top At_Offset_1
07b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07ba e5fe | | Load 0x2,-0x2
07bb 00d9 | | Load_Top At_Offset_1
07bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07bd e5fc | | Load 0x2,-0x4
07be e002 | | Load 0x0,0x2
07bf 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07c0 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
07c1 017f | | Execute Record,Equal
07c2 6806 |h | Jump_Zero 0x7c9
07c3 00db | | Load_Top At_Offset_3
07c4 e004 | | Load 0x0,0x4
07c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07c6 00d9 | | Load_Top At_Offset_1
07c7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
07c8 7803 |x | Jump 0x7cc
07c9 e5fc | | Load 0x2,-0x4
07ca 00d9 | | Load_Top At_Offset_1
07cb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
07cc e5fd | | Load 0x2,-0x3
07cd 00d9 | | Load_Top At_Offset_1
07ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07cf 00d8 | | Load_Top At_Offset_0
07d0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
07d1 8269 | i | Call 0x1,0x69
07d2 00d9 | | Load_Top At_Offset_1
07d3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
07d4 e5fb | | Load 0x2,-0x5
07d5 4800 |H | Short_Literal 0x0
07d6 00da | | Load_Top At_Offset_2
07d7 e5ff | | Load 0x2,-0x1
07d8 e249 | I | Load 0x1,0x49
07d9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07da c5fb | | Store 0x2,-0x5
07db 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07dc 0000 0000 | | .BLANK 0000[0x4]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 00da | | Load_Top At_Offset_2
07e4 e001 | | Load 0x0,0x1
07e5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
07e6 7005 |p | Jump_Nonzero 0x7ec
07e7 00da | | Load_Top At_Offset_2
07e8 e009 | | Load 0x0,0x9
07e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07ea 0f0c | | Execute_Immediate Equal,0xc
07eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ec 4800 |H | Short_Literal 0x0
07ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ee 0000 0000 | | .XXX[0x2]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 00da | | Load_Top At_Offset_2
07f4 6804 |h | Jump_Zero 0x7f9
07f5 00db | | Load_Top At_Offset_3
07f6 e008 | | Load 0x0,0x8
07f7 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
07f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07f9 00db | | Load_Top At_Offset_3
07fa e008 | | Load 0x0,0x8
07fb 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
07fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07fd 0000 0000 | | .XXX[0x3]
07ff 0000 | |
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803 | | .CONST 0x0803 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0001 | | .CONST 0x0001 ; Number of locals
0803 BODY_0800:
0803 INIT_0800:
0803 00da | | Load_Top At_Offset_2
0804 6804 |h | Jump_Zero 0x809
0805 00db | | Load_Top At_Offset_3
0806 e00d | | Load 0x0,0xd
0807 1870 | p | Execute Package,Field_Execute,Field_Number 0x70
0808 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0809 00db | | Load_Top At_Offset_3
080a e00d | | Load 0x0,0xd
080b 186f | o | Execute Package,Field_Execute,Field_Number 0x6f
080c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
080d 0000 0000 | | .XXX[0x3]
080f 0000 | |
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813 | | .CONST 0x0813 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0001 | | .CONST 0x0001 ; Number of locals
0813 BODY_0810:
0813 INIT_0810:
0813 00da | | Load_Top At_Offset_2
0814 e009 | | Load 0x0,0x9
0815 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0816 4626 |F& | Jump_Case 0x27
0817 782a |x* | Jump 0x842 ; case 0x0
0818 7829 |x) | Jump 0x842 ; case 0x1
0819 7828 |x( | Jump 0x842 ; case 0x2
081a 7827 |x' | Jump 0x842 ; case 0x3
081b 7826 |x& | Jump 0x842 ; case 0x4
081c 7823 |x# | Jump 0x840 ; case 0x5
081d 7822 |x" | Jump 0x840 ; case 0x6
081e 7821 |x! | Jump 0x840 ; case 0x7
081f 781e |x | Jump 0x83e ; case 0x8
0820 781d |x | Jump 0x83e ; case 0x9
0821 781c |x | Jump 0x83e ; case 0xa
0822 781b |x | Jump 0x83e ; case 0xb
0823 781e |x | Jump 0x842 ; case 0xc
0824 7819 |x | Jump 0x83e ; case 0xd
0825 7818 |x | Jump 0x83e ; case 0xe
0826 7817 |x | Jump 0x83e ; case 0xf
0827 781a |x | Jump 0x842 ; case 0x10
0828 7819 |x | Jump 0x842 ; case 0x11
0829 7814 |x | Jump 0x83e ; case 0x12
082a 7813 |x | Jump 0x83e ; case 0x13
082b 7812 |x | Jump 0x83e ; case 0x14
082c 7811 |x | Jump 0x83e ; case 0x15
082d 7810 |x | Jump 0x83e ; case 0x16
082e 780f |x | Jump 0x83e ; case 0x17
082f 780e |x | Jump 0x83e ; case 0x18
0830 780d |x | Jump 0x83e ; case 0x19
0831 780c |x | Jump 0x83e ; case 0x1a
0832 780d |x | Jump 0x840 ; case 0x1b
0833 780a |x | Jump 0x83e ; case 0x1c
0834 7809 |x | Jump 0x83e ; case 0x1d
0835 7808 |x | Jump 0x83e ; case 0x1e
0836 7807 |x | Jump 0x83e ; case 0x1f
0837 7806 |x | Jump 0x83e ; case 0x20
0838 7805 |x | Jump 0x83e ; case 0x21
0839 7808 |x | Jump 0x842 ; case 0x22
083a 7803 |x | Jump 0x83e ; case 0x23
083b 7802 |x | Jump 0x83e ; case 0x24
083c 7801 |x | Jump 0x83e ; case 0x25
083d 7800 |x | Jump 0x83e ; case 0x26
083e 482f |H/ | Short_Literal 0x2f
083f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0840 4824 |H$ | Short_Literal 0x24
0841 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0842 4825 |H% | Short_Literal 0x25
0843 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0844 0000 0000 | | .BLANK 0000[0x4]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b | K | .CONST 0x084b ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0001 | | .CONST 0x0001 ; Number of locals
084b BODY_0848:
084b INIT_0848:
084b 00da | | Load_Top At_Offset_2
084c 0aff | | Execute_Immediate Plus,-0x1
084d 460a |F | Jump_Case 0xb
084e 780a |x | Jump 0x859 ; case 0x0
084f 7809 |x | Jump 0x859 ; case 0x1
0850 7808 |x | Jump 0x859 ; case 0x2
0851 7807 |x | Jump 0x859 ; case 0x3
0852 7808 |x | Jump 0x85b ; case 0x4
0853 7805 |x | Jump 0x859 ; case 0x5
0854 780f |x | Jump 0x864 ; case 0x6
0855 7832 |x2 | Jump 0x888 ; case 0x7
0856 7802 |x | Jump 0x859 ; case 0x8
0857 7801 |x | Jump 0x859 ; case 0x9
0858 7800 |x | Jump 0x859 ; case 0xa
0859 482f |H/ | Short_Literal 0x2f
085a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
085b 4809 |H | Short_Literal 0x9
085c e5fd | | Load 0x2,-0x3
085d 01d7 | | Execute Vector,Field_Read
085e 823d | = | Call 0x1,0x3d
085f 7002 |p | Jump_Nonzero 0x862
0860 4823 |H# | Short_Literal 0x23
0861 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0862 482f |H/ | Short_Literal 0x2f
0863 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0864 00db | | Load_Top At_Offset_3
0865 680a |h | Jump_Zero 0x870
0866 4809 |H | Short_Literal 0x9
0867 e5fd | | Load 0x2,-0x3
0868 01d7 | | Execute Vector,Field_Read
0869 823d | = | Call 0x1,0x3d
086a 7003 |p | Jump_Nonzero 0x86e
086b e5fc | | Load 0x2,-0x4
086c 826e | n | Call 0x1,0x6e
086d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
086e 482f |H/ | Short_Literal 0x2f
086f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0870 4804 |H | Short_Literal 0x4
0871 e5fd | | Load 0x2,-0x3
0872 01d7 | | Execute Vector,Field_Read
0873 823d | = | Call 0x1,0x3d
0874 7002 |p | Jump_Nonzero 0x877
0875 4827 |H' | Short_Literal 0x27
0876 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0877 4806 |H | Short_Literal 0x6
0878 e5fd | | Load 0x2,-0x3
0879 01d7 | | Execute Vector,Field_Read
087a 823d | = | Call 0x1,0x3d
087b 7002 |p | Jump_Nonzero 0x87e
087c 4826 |H& | Short_Literal 0x26
087d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
087e 4809 |H | Short_Literal 0x9
087f e5fd | | Load 0x2,-0x3
0880 01d7 | | Execute Vector,Field_Read
0881 823d | = | Call 0x1,0x3d
0882 7003 |p | Jump_Nonzero 0x886
0883 e5fc | | Load 0x2,-0x4
0884 826e | n | Call 0x1,0x6e
0885 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0886 482f |H/ | Short_Literal 0x2f
0887 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0888 00db | | Load_Top At_Offset_3
0889 681e |h | Jump_Zero 0x8a8
088a 4804 |H | Short_Literal 0x4
088b e5fd | | Load 0x2,-0x3
088c 01d7 | | Execute Vector,Field_Read
088d 823d | = | Call 0x1,0x3d
088e 7002 |p | Jump_Nonzero 0x891
088f 482b |H+ | Short_Literal 0x2b
0890 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0891 4806 |H | Short_Literal 0x6
0892 e5fd | | Load 0x2,-0x3
0893 01d7 | | Execute Vector,Field_Read
0894 823d | = | Call 0x1,0x3d
0895 7002 |p | Jump_Nonzero 0x898
0896 482a |H* | Short_Literal 0x2a
0897 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0898 4805 |H | Short_Literal 0x5
0899 e5fd | | Load 0x2,-0x3
089a 01d7 | | Execute Vector,Field_Read
089b 823d | = | Call 0x1,0x3d
089c 7002 |p | Jump_Nonzero 0x89f
089d 4829 |H) | Short_Literal 0x29
089e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
089f 4809 |H | Short_Literal 0x9
08a0 e5fd | | Load 0x2,-0x3
08a1 01d7 | | Execute Vector,Field_Read
08a2 823d | = | Call 0x1,0x3d
08a3 7002 |p | Jump_Nonzero 0x8a6
08a4 4828 |H( | Short_Literal 0x28
08a5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08a6 482f |H/ | Short_Literal 0x2f
08a7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08a8 4804 |H | Short_Literal 0x4
08a9 e5fd | | Load 0x2,-0x3
08aa 01d7 | | Execute Vector,Field_Read
08ab 823d | = | Call 0x1,0x3d
08ac 7002 |p | Jump_Nonzero 0x8af
08ad 4827 |H' | Short_Literal 0x27
08ae 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08af 4806 |H | Short_Literal 0x6
08b0 e5fd | | Load 0x2,-0x3
08b1 01d7 | | Execute Vector,Field_Read
08b2 823d | = | Call 0x1,0x3d
08b3 7002 |p | Jump_Nonzero 0x8b6
08b4 4826 |H& | Short_Literal 0x26
08b5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08b6 4809 |H | Short_Literal 0x9
08b7 e5fd | | Load 0x2,-0x3
08b8 01d7 | | Execute Vector,Field_Read
08b9 823d | = | Call 0x1,0x3d
08ba 7003 |p | Jump_Nonzero 0x8be
08bb e5fc | | Load 0x2,-0x4
08bc 826e | n | Call 0x1,0x6e
08bd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08be 482f |H/ | Short_Literal 0x2f
08bf 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3 | | .CONST 0x08c3 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0001 | | .CONST 0x0001 ; Number of locals
08c3 BODY_08c0:
08c3 INIT_08c0:
08c3 00da | | Load_Top At_Offset_2
08c4 e009 | | Load 0x0,0x9
08c5 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
08c6 700a |p | Jump_Nonzero 0x8d1
08c7 00da | | Load_Top At_Offset_2
08c8 e009 | | Load 0x0,0x9
08c9 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
08ca 7004 |p | Jump_Nonzero 0x8cf
08cb 00da | | Load_Top At_Offset_2
08cc e009 | | Load 0x0,0x9
08cd 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
08ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08cf 4801 |H | Short_Literal 0x1
08d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08d1 4801 |H | Short_Literal 0x1
08d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08d3 0000 0000 | | .BLANK 0000[0x5]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08e2 | | .CONST 0x08e2 ; Address of begin
08d9 0004 | | .CONST 0x0004 ; Address of exception handler
08da 0002 | | .CONST 0x0002 ; Number of locals
08db INIT_08d8:
08db e001 | | Load 0x0,0x1
08dc 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
08dd 02c7 | | Declare_Variable Any
08de 00db | | Load_Top At_Offset_3
08df e009 | | Load 0x0,0x9
08e0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
08e1 a402 | | Store_Unchecked 0x2,0x2
08e2 BODY_08d8:
08e2 00cf | | Action Mark_Auxiliary
08e3 7807 |x | Jump 0x8eb
08e4 00d9 | | Load_Top At_Offset_1
08e5 e001 | | Load 0x0,0x1
08e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08e7 e009 | | Load 0x0,0x9
08e8 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
08e9 c402 | | Store 0x2,0x2
08ea 00c9 | | Action Pop_Auxiliary_Loop
08eb 00d9 | | Load_Top At_Offset_1
08ec e001 | | Load 0x0,0x1
08ed 180f | | Execute Package,Field_Execute,Field_Number 0xf
08ee 7003 |p | Jump_Nonzero 0x8f2
08ef 00d9 | | Load_Top At_Offset_1
08f0 8270 | p | Call 0x1,0x70
08f1 6ff2 |o | Jump_Zero 0x8e4
08f2 00ce | | Action Pop_Auxiliary
08f3 00d8 | | Load_Top At_Offset_0
08f4 e001 | | Load 0x0,0x1
08f5 180f | | Execute Package,Field_Execute,Field_Number 0xf
08f6 6803 |h | Jump_Zero 0x8fa
08f7 e001 | | Load 0x0,0x1
08f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08fa 00d8 | | Load_Top At_Offset_0
08fb e009 | | Load 0x0,0x9
08fc 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
08fd c402 | | Store 0x2,0x2
08fe 00d8 | | Load_Top At_Offset_0
08ff e001 | | Load 0x0,0x1
0900 180f | | Execute Package,Field_Execute,Field_Number 0xf
0901 7006 |p | Jump_Nonzero 0x908
0902 00d8 | | Load_Top At_Offset_0
0903 e009 | | Load 0x0,0x9
0904 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0905 6802 |h | Jump_Zero 0x908
0906 00d8 | | Load_Top At_Offset_0
0907 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0908 e001 | | Load 0x0,0x1
0909 1b0e | | Execute Package,Field_Read,Field_Number 0xe
090a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
090b 0000 0000 | | .BLANK 0000[0x5]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0913 | | .CONST 0x0913 ; Address of begin
0911 0004 | | .CONST 0x0004 ; Address of exception handler
0912 0001 | | .CONST 0x0001 ; Number of locals
0913 BODY_0910:
0913 INIT_0910:
0913 00e2 | | Load_Encached Integer_Cache
0914 e406 | | Load 0x2,0x6
0915 0268 | h | Execute Discrete,Successor
0916 c406 | | Store 0x2,0x6
0917 e405 | | Load 0x2,0x5
0918 00db | | Load_Top At_Offset_3
0919 e001 | | Load 0x0,0x1
091a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
091b c405 | | Store 0x2,0x5
091c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
091d 0000 0000 | | .XXX[0x3]
091f 0000 | |
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0932 | 2 | .CONST 0x0932 ; Address of begin
0921 0004 | | .CONST 0x0004 ; Address of exception handler
0922 0004 | | .CONST 0x0004 ; Number of locals
0923 INIT_0920:
0923 e001 | | Load 0x0,0x1
0924 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0925 02c7 | | Declare_Variable Any
0926 e7fe | | Load 0x3,-0x2
0927 e7ff | | Load 0x3,-0x1
0928 826c | l | Call 0x1,0x6c
0929 a602 | | Store_Unchecked 0x3,0x2
092a 029e 0a33 | 3| Declare_Subprogram INIT_0a30,For_Call,Unelaborated
092c 029f 0a4b | K| Declare_Subprogram INIT_0a48,For_Call
092e 4803 |H | Short_Literal 0x3
092f 4803 |H | Short_Literal 0x3
0930 0099 | | Action Reference_Dynamic
0931 00c7 | | Action Elaborate_Subprogram
0932 BODY_0920:
0932 00da | | Load_Top At_Offset_2
0933 8603 | | Call 0x3,0x3
0934 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0935 0000 0000 | | .XXX[0x3]
0937 0000 | |
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 0942 | B | .CONST 0x0942 ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0002 | | .CONST 0x0002 ; Number of locals
093b INIT_0938:
093b 4801 |H | Short_Literal 0x1
093c e406 | | Load 0x2,0x6
093d e219 | | Load 0x1,0x19
093e 035b | [ | Declare_Type Array,Constrained
093f 0337 | 7 | Declare_Variable Array
0940 00d8 | | Load_Top At_Offset_0
0941 1c00 | | Execute_Immediate Run_Utility,0x0
0942 BODY_0938:
0942 e405 | | Load 0x2,0x5
0943 e001 | | Load 0x0,0x1
0944 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0945 c405 | | Store 0x2,0x5
0946 00cf | | Action Mark_Auxiliary
0947 00d9 | | Load_Top At_Offset_1
0948 01d9 | | Execute Vector,Reverse_Bounds
0949 0263 | c | Execute Discrete,Above_Bound
094a 700f |p | Jump_Nonzero 0x95a
094b e405 | | Load 0x2,0x5
094c e001 | | Load 0x0,0x1
094d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
094e e404 | | Load 0x2,0x4
094f e249 | I | Load 0x1,0x49
0950 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0951 00d9 | | Load_Top At_Offset_1
0952 e602 | | Load 0x3,0x2
0953 01d6 | | Execute Vector,Field_Write
0954 e405 | | Load 0x2,0x5
0955 e001 | | Load 0x0,0x1
0956 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0957 c405 | | Store 0x2,0x5
0958 00c8 | | Action Pop_Auxiliary_Range
0959 3ff1 |? | Loop_Increasing 0x94b
095a 00ce | | Action Pop_Auxiliary
095b 00d8 | | Load_Top At_Offset_0
095c e219 | | Load 0x1,0x19
095d 01c6 | | Execute Vector,Convert_To_Formal
095e 00ca | | Action Exit_Nullary_Function
095f 0000 | | .XXX[0x1]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963 | c | .CONST 0x0963 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0001 | | .CONST 0x0001 ; Number of locals
0963 BODY_0960:
0963 INIT_0960:
0963 00e2 | | Load_Encached Integer_Cache
0964 e406 | | Load 0x2,0x6
0965 0268 | h | Execute Discrete,Successor
0966 c406 | | Store 0x2,0x6
0967 e405 | | Load 0x2,0x5
0968 00db | | Load_Top At_Offset_3
0969 e001 | | Load 0x0,0x1
096a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
096b c405 | | Store 0x2,0x5
096c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
096d 0000 0000 | | .XXX[0x3]
096f 0000 | |
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 098b | | .CONST 0x098b ; Address of begin
0971 0004 | | .CONST 0x0004 ; Address of exception handler
0972 0006 | | .CONST 0x0006 ; Number of locals
0973 INIT_0970:
0973 00db | | Load_Top At_Offset_3
0974 e008 | | Load 0x0,0x8
0975 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0976 e7fe | | Load 0x3,-0x2
0977 e008 | | Load 0x0,0x8
0978 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0979 e008 | | Load 0x0,0x8
097a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
097b 011e | | Execute Any,Convert
097c e001 | | Load 0x0,0x1
097d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
097e 02c7 | | Declare_Variable Any
097f e7fe | | Load 0x3,-0x2
0980 e7ff | | Load 0x3,-0x1
0981 826c | l | Call 0x1,0x6c
0982 a604 | | Store_Unchecked 0x3,0x4
0983 029e 0adb | | Declare_Subprogram INIT_0ad8,For_Call,Unelaborated
0985 029f 0af3 | | Declare_Subprogram INIT_0af0,For_Call
0987 4805 |H | Short_Literal 0x5
0988 4803 |H | Short_Literal 0x3
0989 0099 | | Action Reference_Dynamic
098a 00c7 | | Action Elaborate_Subprogram
098b BODY_0970:
098b 00da | | Load_Top At_Offset_2
098c 8605 | | Call 0x3,0x5
098d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
098e 0000 0000 | | .XXX[0x2]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 099a | | .CONST 0x099a ; Address of begin
0991 0004 | | .CONST 0x0004 ; Address of exception handler
0992 0002 | | .CONST 0x0002 ; Number of locals
0993 INIT_0990:
0993 4801 |H | Short_Literal 0x1
0994 e406 | | Load 0x2,0x6
0995 e219 | | Load 0x1,0x19
0996 035b | [ | Declare_Type Array,Constrained
0997 0337 | 7 | Declare_Variable Array
0998 00d8 | | Load_Top At_Offset_0
0999 1c00 | | Execute_Immediate Run_Utility,0x0
099a BODY_0990:
099a e405 | | Load 0x2,0x5
099b e001 | | Load 0x0,0x1
099c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
099d c405 | | Store 0x2,0x5
099e 00cf | | Action Mark_Auxiliary
099f 00d9 | | Load_Top At_Offset_1
09a0 01d9 | | Execute Vector,Reverse_Bounds
09a1 0263 | c | Execute Discrete,Above_Bound
09a2 700f |p | Jump_Nonzero 0x9b2
09a3 e405 | | Load 0x2,0x5
09a4 e001 | | Load 0x0,0x1
09a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
09a6 e403 | | Load 0x2,0x3
09a7 e249 | I | Load 0x1,0x49
09a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
09a9 00d9 | | Load_Top At_Offset_1
09aa e602 | | Load 0x3,0x2
09ab 01d6 | | Execute Vector,Field_Write
09ac e405 | | Load 0x2,0x5
09ad e001 | | Load 0x0,0x1
09ae 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
09af c405 | | Store 0x2,0x5
09b0 00c8 | | Action Pop_Auxiliary_Range
09b1 3ff1 |? | Loop_Increasing 0x9a3
09b2 00ce | | Action Pop_Auxiliary
09b3 00d8 | | Load_Top At_Offset_0
09b4 e219 | | Load 0x1,0x19
09b5 01c6 | | Execute Vector,Convert_To_Formal
09b6 00ca | | Action Exit_Nullary_Function
09b7 0000 | | .XXX[0x1]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb | | .CONST 0x09bb ; Address of begin
09b9 0004 | | .CONST 0x0004 ; Address of exception handler
09ba 0001 | | .CONST 0x0001 ; Number of locals
09bb BODY_09b8:
09bb INIT_09b8:
09bb 00e2 | | Load_Encached Integer_Cache
09bc e406 | | Load 0x2,0x6
09bd 0268 | h | Execute Discrete,Successor
09be c406 | | Store 0x2,0x6
09bf 4800 |H | Short_Literal 0x0
09c0 00ca | | Action Exit_Nullary_Function
09c1 0000 0000 | | .BLANK 0000[0x7]
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09d2 | | .CONST 0x09d2 ; Address of begin
09c9 0004 | | .CONST 0x0004 ; Address of exception handler
09ca 0002 | | .CONST 0x0002 ; Number of locals
09cb INIT_09c8:
09cb e215 | | Load 0x1,0x15
09cc 0322 | " | Declare_Variable Record
09cd e404 | | Load 0x2,0x4
09ce e7ff | | Load 0x3,-0x1
09cf 8268 | h | Call 0x1,0x68
09d0 00d9 | | Load_Top At_Offset_1
09d1 017d | } | Execute Record,Structure_Write
09d2 BODY_09c8:
09d2 00d8 | | Load_Top At_Offset_0
09d3 8217 | | Call 0x1,0x17
09d4 7002 |p | Jump_Nonzero 0x9d7
09d5 8408 | | Call 0x2,0x8
09d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09d7 00db | | Load_Top At_Offset_3
09d8 e009 | | Load 0x0,0x9
09d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
09da e24d | M | Load 0x1,0x4d
09db 01d7 | | Execute Vector,Field_Read
09dc 7007 |p | Jump_Nonzero 0x9e4
09dd 00db | | Load_Top At_Offset_3
09de e009 | | Load 0x0,0x9
09df 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
09e0 7003 |p | Jump_Nonzero 0x9e4
09e1 00db | | Load_Top At_Offset_3
09e2 826b | k | Call 0x1,0x6b
09e3 680b |h | Jump_Zero 0x9ef
09e4 e404 | | Load 0x2,0x4
09e5 e002 | | Load 0x0,0x2
09e6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
09e7 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
09e8 e407 | | Load 0x2,0x7
09e9 e5fd | | Load 0x2,-0x3
09ea e7ff | | Load 0x3,-0x1
09eb 826a | j | Call 0x1,0x6a
09ec c404 | | Store 0x2,0x4
09ed 8408 | | Call 0x2,0x8
09ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09ef 4801 |H | Short_Literal 0x1
09f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09f1 0000 0000 | | .BLANK 0000[0x7]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 0a02 | | .CONST 0x0a02 ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0002 | | .CONST 0x0002 ; Number of locals
09fb INIT_09f8:
09fb 4801 |H | Short_Literal 0x1
09fc e406 | | Load 0x2,0x6
09fd e219 | | Load 0x1,0x19
09fe 035b | [ | Declare_Type Array,Constrained
09ff 0337 | 7 | Declare_Variable Array
0a00 00d8 | | Load_Top At_Offset_0
0a01 1c00 | | Execute_Immediate Run_Utility,0x0
0a02 BODY_09f8:
0a02 00cf | | Action Mark_Auxiliary
0a03 00d9 | | Load_Top At_Offset_1
0a04 01d9 | | Execute Vector,Reverse_Bounds
0a05 0263 | c | Execute Discrete,Above_Bound
0a06 700f |p | Jump_Nonzero 0xa16
0a07 e405 | | Load 0x2,0x5
0a08 e001 | | Load 0x0,0x1
0a09 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0a0a e404 | | Load 0x2,0x4
0a0b e249 | I | Load 0x1,0x49
0a0c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0a0d 00d9 | | Load_Top At_Offset_1
0a0e e602 | | Load 0x3,0x2
0a0f 01d6 | | Execute Vector,Field_Write
0a10 e405 | | Load 0x2,0x5
0a11 e001 | | Load 0x0,0x1
0a12 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0a13 c405 | | Store 0x2,0x5
0a14 00c8 | | Action Pop_Auxiliary_Range
0a15 3ff1 |? | Loop_Increasing 0xa07
0a16 00ce | | Action Pop_Auxiliary
0a17 00d8 | | Load_Top At_Offset_0
0a18 e219 | | Load 0x1,0x19
0a19 01c6 | | Execute Vector,Convert_To_Formal
0a1a 00ca | | Action Exit_Nullary_Function
0a1b 0000 0000 | | .BLANK 0000[0x5]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a23 | # | .CONST 0x0a23 ; Address of begin
0a21 0004 | | .CONST 0x0004 ; Address of exception handler
0a22 0001 | | .CONST 0x0001 ; Number of locals
0a23 BODY_0a20:
0a23 INIT_0a20:
0a23 00da | | Load_Top At_Offset_2
0a24 e404 | | Load 0x2,0x4
0a25 e402 | | Load 0x2,0x2
0a26 01d6 | | Execute Vector,Field_Write
0a27 00e2 | | Load_Encached Integer_Cache
0a28 e404 | | Load 0x2,0x4
0a29 0268 | h | Execute Discrete,Successor
0a2a c404 | | Store 0x2,0x4
0a2b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a2c 0000 0000 | | .BLANK 0000[0x4]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a38 | 8 | .CONST 0x0a38 ; Address of begin
0a31 0004 | | .CONST 0x0004 ; Address of exception handler
0a32 0002 | | .CONST 0x0002 ; Number of locals
0a33 INIT_0a30:
0a33 e001 | | Load 0x0,0x1
0a34 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0a35 02c7 | | Declare_Variable Any
0a36 00db | | Load_Top At_Offset_3
0a37 a802 | | Store_Unchecked 0x4,0x2
0a38 BODY_0a30:
0a38 00cf | | Action Mark_Auxiliary
0a39 7809 |x | Jump 0xa43
0a3a 00d9 | | Load_Top At_Offset_1
0a3b e001 | | Load 0x0,0x1
0a3c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0a3d 8604 | | Call 0x3,0x4
0a3e 00d9 | | Load_Top At_Offset_1
0a3f e001 | | Load 0x0,0x1
0a40 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0a41 c802 | | Store 0x4,0x2
0a42 00c9 | | Action Pop_Auxiliary_Loop
0a43 00d9 | | Load_Top At_Offset_1
0a44 e001 | | Load 0x0,0x1
0a45 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0a46 6ff3 |o | Jump_Zero 0xa3a
0a47 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a52 | R | .CONST 0x0a52 ; Address of begin
0a49 0004 | | .CONST 0x0004 ; Address of exception handler
0a4a 0002 | | .CONST 0x0002 ; Number of locals
0a4b INIT_0a48:
0a4b e215 | | Load 0x1,0x15
0a4c 0322 | " | Declare_Variable Record
0a4d e404 | | Load 0x2,0x4
0a4e e9ff | | Load 0x4,-0x1
0a4f 8268 | h | Call 0x1,0x68
0a50 00d9 | | Load_Top At_Offset_1
0a51 017d | } | Execute Record,Structure_Write
0a52 BODY_0a48:
0a52 00d8 | | Load_Top At_Offset_0
0a53 8217 | | Call 0x1,0x17
0a54 7008 |p | Jump_Nonzero 0xa5d
0a55 00d8 | | Load_Top At_Offset_0
0a56 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a57 e5fd | | Load 0x2,-0x3
0a58 027f | | Execute Discrete,Equal
0a59 6802 |h | Jump_Zero 0xa5c
0a5a 00db | | Load_Top At_Offset_3
0a5b 8409 | | Call 0x2,0x9
0a5c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a5d 00db | | Load_Top At_Offset_3
0a5e e009 | | Load 0x0,0x9
0a5f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a60 e24d | M | Load 0x1,0x4d
0a61 01d7 | | Execute Vector,Field_Read
0a62 6827 |h' | Jump_Zero 0xa8a
0a63 00db | | Load_Top At_Offset_3
0a64 e004 | | Load 0x0,0x4
0a65 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a66 00d9 | | Load_Top At_Offset_1
0a67 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0a68 e403 | | Load 0x2,0x3
0a69 00d9 | | Load_Top At_Offset_1
0a6a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0a6b e004 | | Load 0x0,0x4
0a6c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a6d 00d1 | | Pop_Control Pop_Count_1
0a6e 00db | | Load_Top At_Offset_3
0a6f e403 | | Load 0x2,0x3
0a70 e7ff | | Load 0x3,-0x1
0a71 e407 | | Load 0x2,0x7
0a72 826f | o | Call 0x1,0x6f
0a73 00d9 | | Load_Top At_Offset_1
0a74 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0a75 00d8 | | Load_Top At_Offset_0
0a76 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a77 0e2f | / | Execute_Immediate Not_Equal,0x2f
0a78 6810 |h | Jump_Zero 0xa89
0a79 e404 | | Load 0x2,0x4
0a7a 00d9 | | Load_Top At_Offset_1
0a7b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0a7c e408 | | Load 0x2,0x8
0a7d 00db | | Load_Top At_Offset_3
0a7e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a7f e9ff | | Load 0x4,-0x1
0a80 826a | j | Call 0x1,0x6a
0a81 c404 | | Store 0x2,0x4
0a82 00d8 | | Load_Top At_Offset_0
0a83 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a84 e5fd | | Load 0x2,-0x3
0a85 027f | | Execute Discrete,Equal
0a86 6802 |h | Jump_Zero 0xa89
0a87 00db | | Load_Top At_Offset_3
0a88 8409 | | Call 0x2,0x9
0a89 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a8a 00db | | Load_Top At_Offset_3
0a8b e009 | | Load 0x0,0x9
0a8c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a8d 4626 |F& | Jump_Case 0x27
0a8e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
0a8f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
0a90 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
0a91 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3
0a92 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4
0a93 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
0a94 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
0a95 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
0a96 7836 |x6 | Jump 0xacd ; case 0x8
0a97 781d |x | Jump 0xab5 ; case 0x9
0a98 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa
0a99 7823 |x# | Jump 0xabd ; case 0xb
0a9a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xc
0a9b 7821 |x! | Jump 0xabd ; case 0xd
0a9c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe
0a9d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf
0a9e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10
0a9f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11
0aa0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x12
0aa1 782b |x+ | Jump 0xacd ; case 0x13
0aa2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x14
0aa3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x15
0aa4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x16
0aa5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x17
0aa6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x18
0aa7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x19
0aa8 781c |x | Jump 0xac5 ; case 0x1a
0aa9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1b
0aaa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1c
0aab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1d
0aac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1e
0aad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1f
0aae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x20
0aaf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x21
0ab0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x22
0ab1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x23
0ab2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x24
0ab3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x25
0ab4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x26
0ab5 00db | | Load_Top At_Offset_3
0ab6 e009 | | Load 0x0,0x9
0ab7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0ab8 e012 | | Load 0x0,0x12
0ab9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0aba 8262 | b | Call 0x1,0x62
0abb 8603 | | Call 0x3,0x3
0abc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0abd 00db | | Load_Top At_Offset_3
0abe e009 | | Load 0x0,0x9
0abf 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0ac0 e012 | | Load 0x0,0x12
0ac1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0ac2 8262 | b | Call 0x1,0x62
0ac3 8603 | | Call 0x3,0x3
0ac4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ac5 00db | | Load_Top At_Offset_3
0ac6 e009 | | Load 0x0,0x9
0ac7 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0ac8 e012 | | Load 0x0,0x12
0ac9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0aca 8262 | b | Call 0x1,0x62
0acb 8603 | | Call 0x3,0x3
0acc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0acd 00db | | Load_Top At_Offset_3
0ace e009 | | Load 0x0,0x9
0acf 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0ad0 8262 | b | Call 0x1,0x62
0ad1 8603 | | Call 0x3,0x3
0ad2 00db | | Load_Top At_Offset_3
0ad3 e009 | | Load 0x0,0x9
0ad4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0ad5 8262 | b | Call 0x1,0x62
0ad6 8603 | | Call 0x3,0x3
0ad7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ad8 ; --------------------------------------------------------------------------------------
0ad8 ; SUBPROGRAM
0ad8 ; --------------------------------------------------------------------------------------
0ad8 0ae0 | | .CONST 0x0ae0 ; Address of begin
0ad9 0004 | | .CONST 0x0004 ; Address of exception handler
0ada 0002 | | .CONST 0x0002 ; Number of locals
0adb INIT_0ad8:
0adb e001 | | Load 0x0,0x1
0adc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0add 02c7 | | Declare_Variable Any
0ade 00db | | Load_Top At_Offset_3
0adf a802 | | Store_Unchecked 0x4,0x2
0ae0 BODY_0ad8:
0ae0 00cf | | Action Mark_Auxiliary
0ae1 7809 |x | Jump 0xaeb
0ae2 00d9 | | Load_Top At_Offset_1
0ae3 e001 | | Load 0x0,0x1
0ae4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0ae5 8606 | | Call 0x3,0x6
0ae6 00d9 | | Load_Top At_Offset_1
0ae7 e001 | | Load 0x0,0x1
0ae8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0ae9 c802 | | Store 0x4,0x2
0aea 00c9 | | Action Pop_Auxiliary_Loop
0aeb 00d9 | | Load_Top At_Offset_1
0aec e001 | | Load 0x0,0x1
0aed 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0aee 6ff3 |o | Jump_Zero 0xae2
0aef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0af0 ; --------------------------------------------------------------------------------------
0af0 ; SUBPROGRAM
0af0 ; --------------------------------------------------------------------------------------
0af0 0afa | | .CONST 0x0afa ; Address of begin
0af1 0004 | | .CONST 0x0004 ; Address of exception handler
0af2 0002 | | .CONST 0x0002 ; Number of locals
0af3 INIT_0af0:
0af3 e215 | | Load 0x1,0x15
0af4 0322 | " | Declare_Variable Record
0af5 e403 | | Load 0x2,0x3
0af6 e9ff | | Load 0x4,-0x1
0af7 8268 | h | Call 0x1,0x68
0af8 00d9 | | Load_Top At_Offset_1
0af9 017d | } | Execute Record,Structure_Write
0afa BODY_0af0:
0afa 00d8 | | Load_Top At_Offset_0
0afb 8217 | | Call 0x1,0x17
0afc 7008 |p | Jump_Nonzero 0xb05
0afd 00d8 | | Load_Top At_Offset_0
0afe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0aff e5fd | | Load 0x2,-0x3
0b00 027f | | Execute Discrete,Equal
0b01 6802 |h | Jump_Zero 0xb04
0b02 00db | | Load_Top At_Offset_3
0b03 8407 | | Call 0x2,0x7
0b04 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b05 00db | | Load_Top At_Offset_3
0b06 e009 | | Load 0x0,0x9
0b07 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b08 e24d | M | Load 0x1,0x4d
0b09 01d7 | | Execute Vector,Field_Read
0b0a 6827 |h' | Jump_Zero 0xb32
0b0b 00db | | Load_Top At_Offset_3
0b0c e004 | | Load 0x0,0x4
0b0d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b0e 00d9 | | Load_Top At_Offset_1
0b0f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0b10 e402 | | Load 0x2,0x2
0b11 00d9 | | Load_Top At_Offset_1
0b12 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0b13 e004 | | Load 0x0,0x4
0b14 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b15 00d1 | | Pop_Control Pop_Count_1
0b16 00db | | Load_Top At_Offset_3
0b17 e402 | | Load 0x2,0x2
0b18 e7ff | | Load 0x3,-0x1
0b19 e602 | | Load 0x3,0x2
0b1a 826f | o | Call 0x1,0x6f
0b1b 00d9 | | Load_Top At_Offset_1
0b1c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b1d 00d8 | | Load_Top At_Offset_0
0b1e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b1f 0e2f | / | Execute_Immediate Not_Equal,0x2f
0b20 6810 |h | Jump_Zero 0xb31
0b21 e403 | | Load 0x2,0x3
0b22 00d9 | | Load_Top At_Offset_1
0b23 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0b24 e603 | | Load 0x3,0x3
0b25 00db | | Load_Top At_Offset_3
0b26 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b27 e9ff | | Load 0x4,-0x1
0b28 826a | j | Call 0x1,0x6a
0b29 c403 | | Store 0x2,0x3
0b2a 00d8 | | Load_Top At_Offset_0
0b2b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b2c e5fd | | Load 0x2,-0x3
0b2d 027f | | Execute Discrete,Equal
0b2e 6802 |h | Jump_Zero 0xb31
0b2f 00db | | Load_Top At_Offset_3
0b30 8407 | | Call 0x2,0x7
0b31 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b32 00db | | Load_Top At_Offset_3
0b33 e009 | | Load 0x0,0x9
0b34 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b35 4626 |F& | Jump_Case 0x27
0b36 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
0b37 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
0b38 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
0b39 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3
0b3a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4
0b3b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
0b3c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
0b3d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
0b3e 7836 |x6 | Jump 0xb75 ; case 0x8
0b3f 781d |x | Jump 0xb5d ; case 0x9
0b40 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa
0b41 7823 |x# | Jump 0xb65 ; case 0xb
0b42 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xc
0b43 7821 |x! | Jump 0xb65 ; case 0xd
0b44 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe
0b45 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf
0b46 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10
0b47 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11
0b48 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x12
0b49 782b |x+ | Jump 0xb75 ; case 0x13
0b4a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x14
0b4b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x15
0b4c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x16
0b4d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x17
0b4e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x18
0b4f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x19
0b50 781c |x | Jump 0xb6d ; case 0x1a
0b51 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1b
0b52 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1c
0b53 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1d
0b54 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1e
0b55 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1f
0b56 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x20
0b57 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x21
0b58 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x22
0b59 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x23
0b5a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x24
0b5b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x25
0b5c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x26
0b5d 00db | | Load_Top At_Offset_3
0b5e e009 | | Load 0x0,0x9
0b5f 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0b60 e012 | | Load 0x0,0x12
0b61 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0b62 8262 | b | Call 0x1,0x62
0b63 8605 | | Call 0x3,0x5
0b64 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b65 00db | | Load_Top At_Offset_3
0b66 e009 | | Load 0x0,0x9
0b67 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0b68 e012 | | Load 0x0,0x12
0b69 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0b6a 8262 | b | Call 0x1,0x62
0b6b 8605 | | Call 0x3,0x5
0b6c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b6d 00db | | Load_Top At_Offset_3
0b6e e009 | | Load 0x0,0x9
0b6f 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0b70 e012 | | Load 0x0,0x12
0b71 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0b72 8262 | b | Call 0x1,0x62
0b73 8605 | | Call 0x3,0x5
0b74 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b75 00db | | Load_Top At_Offset_3
0b76 e009 | | Load 0x0,0x9
0b77 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0b78 8262 | b | Call 0x1,0x62
0b79 8605 | | Call 0x3,0x5
0b7a 00db | | Load_Top At_Offset_3
0b7b e009 | | Load 0x0,0x9
0b7c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0b7d 8262 | b | Call 0x1,0x62
0b7e 8605 | | Call 0x3,0x5
0b7f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b80 ; --------------------------------------------------------------------------------------
0b80 ; SUBPROGRAM
0b80 ; --------------------------------------------------------------------------------------
0b80 0b83 | | .CONST 0x0b83 ; Address of begin
0b81 0004 | | .CONST 0x0004 ; Address of exception handler
0b82 0001 | | .CONST 0x0001 ; Number of locals
0b83 BODY_0b80:
0b83 INIT_0b80:
0b83 4608 |F | Jump_Case 0x9
0b84 7808 |x | Jump 0xb8d ; case 0x0
0b85 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0b86 7826 |x& | Jump 0xbad ; case 0x2
0b87 7825 |x% | Jump 0xbad ; case 0x3
0b88 7824 |x$ | Jump 0xbad ; case 0x4
0b89 7823 |x# | Jump 0xbad ; case 0x5
0b8a 7822 |x" | Jump 0xbad ; case 0x6
0b8b 7821 |x! | Jump 0xbad ; case 0x7
0b8c 7820 |x | Jump 0xbad ; case 0x8
0b8d 00da | | Load_Top At_Offset_2
0b8e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0b8f 0125 | % | Execute Any,Set_Constraint
0b90 e210 | | Load 0x1,0x10
0b91 00db | | Load_Top At_Offset_3
0b92 00d9 | | Load_Top At_Offset_1
0b93 00d9 | | Load_Top At_Offset_1
0b94 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0b95 0119 | | Execute Any,Check_In_Formal_Type
0b96 00d1 | | Pop_Control Pop_Count_1
0b97 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b98 482f |H/ | Short_Literal 0x2f
0b99 00db | | Load_Top At_Offset_3
0b9a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b9b 00da | | Load_Top At_Offset_2
0b9c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0b9d 0125 | % | Execute Any,Set_Constraint
0b9e e001 | | Load 0x0,0x1
0b9f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ba0 00db | | Load_Top At_Offset_3
0ba1 00d9 | | Load_Top At_Offset_1
0ba2 00d9 | | Load_Top At_Offset_1
0ba3 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0ba4 0119 | | Execute Any,Check_In_Formal_Type
0ba5 00d1 | | Pop_Control Pop_Count_1
0ba6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0ba7 e002 | | Load 0x0,0x2
0ba8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0ba9 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0baa 00db | | Load_Top At_Offset_3
0bab 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0bac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0bad 0869 | i | Execute_Immediate Raise,0x69
0bae ; --------------------------------------------------------------------------------------
0bae ; STRING TABLE
0bae ; --------------------------------------------------------------------------------------
0bae 0014 | | .STRTAB 0x0014->0x0bb8 ; "GLOBAL"
0baf 0018 | | .STRTAB 0x0018->0x0bbb ; "LOCAL"
0bb0 001b | | .STRTAB 0x001b->0x0bbd ; "<NIL_ID>"
0bb1 0021 | ! | .STRTAB 0x0021->0x0bc1 ; "Initialize"
0bb2 0029 | ) | .STRTAB 0x0029->0x0bc6 ; "The analysis required to determine Specified_Data (\x22"
0bb3 005b | [ | .STRTAB 0x005b->0x0be0 ; "\x22, "
0bb4 005c | \ | .STRTAB 0x005c->0x0be2 ; ") from ITEM_ITERATOR is not yet implemented"
0bb5 0085 | | .STRTAB 0x0085->0x0bf7 ; "Unexpected exception in Data."
0bb6 00a0 | | .STRTAB 0x00a0->0x0c06 ; " ("
0bb7 00a0 | | .STREND 0x00a0->0x0c07
0bb8 474c 4f42 |GLOB| .STRTAB_STRINGS
0c07 0000 | | .XXX[0x1]
0c08 ; --------------------------------------------------------------------------------------
0c08 ; Debug Table
0c08 ; --------------------------------------------------------------------------------------
0c08 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc583,0x0000,0x0001,0x0000
0c0e 0183 d002 | | .XXX[0x1f2]
0c10 6e88 1a4e |n N|
0c12 1002 e5bb | |
0c14 d001 368b | 6 |
0c16 62b4 ba97 |b |
0c18 d002 4a88 | J |
0c1a 1a4c a55e | L ^|
0c1c 5a01 6688 |Z f |
0c1e 0252 1402 | R |
0c20 5a12 9d98 |Z |
0c22 fa12 1401 | |
0c24 2dff d001 |- |
0c26 768a 2e12 |v . |
0c28 1401 3e94 | > |
0c2a ad3b a6b5 | ; |
0c2c d82b 7c01 | +| |
0c2e 2e23 c9d1 |.# |
0c30 6a16 1401 |j |
0c32 097f 40ca | @ |
0c34 6e59 fd13 |nY |
0c36 d108 ce92 | |
0c38 6d65 b402 |me |
0c3a e571 bc02 | q |
0c3c ed72 6cc6 | rl |
0c3e 9400 769a | v |
0c40 1589 18d3 | |
0c42 deb5 0004 | |
0c44 f2b5 8c03 | |
0c46 f212 1402 | |
0c48 59aa b003 |Y |
0c4a 59e9 8e25 |Y %|
0c4c 9aac 0801 | |
0c4e e91c 2012 | |
0c50 d001 863b | ;|
0c52 e001 428e | B |
0c54 ee16 1401 | |
0c56 c69a d800 | |
0c58 1a7c f2b4 | | |
0c5a 6abb 3a0a |j : |
0c5c 1402 bc04 | |
0c5e 1402 e002 | |
0c60 7e28 66bb |~(f |
0c62 5e0a 1401 |^ |
0c64 65d0 42b8 |e B |
0c66 7978 a2bb |yx |
0c68 8a0a 1401 | |
0c6a 8c18 1402 | |
0c6c b400 8d88 | |
0c6e bab8 660d | f |
0c70 a090 2012 | |
0c72 b802 5198 | Q |
0c74 d6ba b60e | |
0c76 1802 5818 | X |
0c78 1402 bc01 | |
0c7a 9194 eeb8 | |
0c7c c216 011c | |
0c7e 2012 c402 | |
0c80 91c5 0ab8 | |
0c82 2a16 f590 |* |
0c84 2012 c801 | |
0c86 b1c5 22b8 | " |
0c88 7a16 1802 |z |
0c8a 3da8 d8f4 |= |
0c8c b6b8 86ba | |
0c8e 9436 1800 | 6 |
0c90 5410 1403 |T |
0c92 9d9d 4ebb | N |
0c94 5e0a 1800 |^ |
0c96 e651 bc00 | Q |
0c98 91dc 9a5a | Z|
0c9a 1801 bddd | |
0c9c bc00 a5d0 | |
0c9e 1e12 1802 | |
0ca0 8807 39ab | 9 |
0ca2 3a64 d612 |:d |
0ca4 1801 f1af | |
0ca6 d401 5a4e | ZN|
0ca8 2e12 1802 |. |
0caa f9fb 22b5 | " |
0cac aab8 ddb7 | |
0cae d800 2ead | . |
0cb0 ae34 f43b | 4 ;|
0cb2 35ad 0ead |5 |
0cb4 deb9 6c1f | l |
0cb6 c000 d5cc | |
0cb8 8801 d96e | n|
0cba de26 1c02 | & |
0cbc d0ce 4802 | H |
0cbe e1f2 0083 | |
0cc0 78cc 721d |x r |
0cc2 75d2 f032 |u 2|
0cc4 a0e0 5807 | X |
0cc6 e002 a803 | |
0cc8 f212 1c02 | |
0cca 05d7 6091 | ` |
0ccc cd7c 2803 | |( |
0cce 257a 7622 |%zv"|
0cd0 1c00 7577 | uw|
0cd2 a677 01ce | w |
0cd4 f66f 5e0a | o^ |
0cd6 1c02 e18a | |
0cd8 3800 e276 |8 v|
0cda 6ebb 8a09 |n |
0cdc 695e 5c0d |i^\ |
0cde 6521 d186 |e! |
0ce0 86b8 660e | f |
0ce2 1c03 aa12 | |
0ce4 54e6 9abb |T |
0ce6 523c 7a16 |R<z |
0ce8 cc42 5c0e | B\ |
0cea 4802 8a22 |H "|
0cec 9eba b60e | |
0cee 1c02 557a | Uz|
0cf0 4ab9 a972 |J r|
0cf2 ceb8 c216 | |
0cf4 1c03 752e | u.|
0cf6 2802 359e |( 5 |
0cf8 e6b8 2a16 | * |
0cfa 1c00 c5e7 | |
0cfc e0ec b6ba | |
0cfe b6ba ee16 | |
0d00 1c00 017f | |
0d02 9dc2 e2bb | |
0d04 16bb 3a0a | : |
0d06 2001 1d6e | n|
0d08 3000 35b2 |0 5 |
0d0a feb8 7a15 | z |
0d0c a55e 5c0e | ^\ |
0d0e 3401 019f |4 |
0d10 46ba ee15 |F |
0d12 ad5e 5c0f | ^\ |
0d14 b673 12bb | s |
0d16 5e09 b55f |^ _|
0d18 6ab8 2dbb |j - |
0d1a 5ebb 32b8 |^ 2 |
0d1c 7576 4803 |uvH |
0d1e 75cf 86ba |u |
0d20 9436 2001 | 6 |
0d22 696f 1677 |io w|
0d24 02b6 8d1f | |
0d26 f68c fe3c | <|
0d28 9a5a 2003 | Z |
0d2a f1ef 3c00 | < |
0d2c 9211 7ea7 | ~ |
0d2e 4d12 2003 |M |
0d30 3816 9868 |8 h|
0d32 82a7 d2b8 | |
0d34 8c32 2000 | 2 |
0d36 a5b1 aa46 | F|
0d38 f2ab 0e1a | |
0d3a 2002 7805 | x |
0d3c 6584 4ea4 |e N |
0d3e 76b3 f00e |v |
0d40 2002 d407 | |
0d42 74ea e66d |t m|
0d44 114d 9a3f | M ?|
0d46 9eb9 6187 | a |
0d48 4003 0e2f |@ /|
0d4a 0aaa 4ca2 | L |
0d4c 2000 4815 | H |
0d4e edcb 06a8 | |
0d50 561e 2400 |V $ |
0d52 da93 3c00 | < |
0d54 b295 b23c | <|
0d56 d26a ac5e | j ^|
0d58 2400 58a8 |$ X |
0d5a 2000 0eac | |
0d5c 1a4e 2402 | N$ |
0d5e 05d6 f02d | -|
0d60 be12 d91e | |
0d62 5c0c 2003 |\ |
0d64 feaa 626e | bn|
0d66 2400 99d0 |$ |
0d68 159c fa12 | |
0d6a 2401 097f |$ |
0d6c b9b0 c2bd | |
0d6e 968e 0580 | |
0d70 c2bd 896c | l|
0d72 2001 dab8 | |
0d74 0252 2401 | R$ |
0d76 517d c57c |Q} ||
0d78 c2bd 19d4 | |
0d7a 5980 c2bc |Y |
0d7c 0abf 3801 | 8 |
0d7e 21d8 0400 |! |
0d80 e9e6 c19d | |
0d82 900d b403 | |
0d84 aaa0 8024 | $|
0d86 f2b6 49b3 | I |
0d88 923d c082 | = |
0d8a 2401 794a |$ yJ|
0d8c a802 4da0 | M |
0d8e 2012 ae01 | |
0d90 de2a 2401 | *$ |
0d92 3986 ac01 |9 |
0d94 feb7 4467 | Dg|
0d96 5e0a 2401 |^ $ |
0d98 6186 ac03 |a |
0d9a 7d8d 72bf |} r |
0d9c 8a0a 2400 | $ |
0d9e 8c2e 2988 | .) |
0da0 3239 8abc |29 |
0da2 660e 2802 |f ( |
0da4 200c c26b | k|
0da6 6e71 a2be |nq |
0da8 b60e 2803 | ( |
0daa ca92 b403 | |
0dac 8671 babc | q |
0dae c216 2801 | ( |
0db0 f269 4ebc | iN |
0db2 b6bb 18a4 | |
0db4 2a16 2803 |* ( |
0db6 640a 358d |d 5 |
0db8 29c9 d2bd |) |
0dba eebc c599 | |
0dbc c402 ba27 | '|
0dbe aa92 ac5e | ^|
0dc0 2801 ed95 |( |
0dc2 c401 1234 | 4|
0dc4 95a6 f032 | 2|
0dc6 2802 2db9 |( - |
0dc8 c401 92b8 | |
0dca 9a5a 2802 | Z( |
0dcc 05c9 cea0 | |
0dce d23d 7c00 | =| |
0dd0 5e81 7c01 |^ | |
0dd2 3801 0401 |8 |
0dd4 3403 7dc9 |4 } |
0dd6 c403 4df8 | M |
0dd8 1e12 2803 | ( |
0dda be2d c403 | - |
0ddc d2a2 46bd | F |
0dde b1e9 c400 | |
0de0 fe36 46bf | 6F |
0de2 6979 c401 |iy |
0de4 fa3d 1a16 | = |
0de6 5ebd 5401 |^ T |
0de8 4c01 1402 |L |
0dea 3dd5 c402 |= |
0dec a626 16bd | & |
0dee c082 2800 | ( |
0df0 fdd5 b402 | |
0df2 12be 2ebe | . |
0df4 1abd c006 | |
0df6 35dc 2abc |5 * |
0df8 51b3 0e1a |Q |
0dfa 2803 e01a |( |
0dfc 35dc cea4 |5 |
0dfe 5eb0 0802 |^ |