|
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: 15360 (0x3c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 1ca8 | | .CONST 0x1ca8 ; 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 8011 | | .CONST 0x8011 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01c9 | | .CONST 0x01c9 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 00ad | | .CONST 0x00ad ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c e001 | | Load 0x0,0x1
000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000e 00e9 | | Load_Encached String_Cache
000f 029f 1a4b | K| Declare_Subprogram INIT_1a48,For_Call
0011 4800 |H | Short_Literal 0x0
0012 4801 |H | Short_Literal 0x1
0013 4801 |H | Short_Literal 0x1
0014 4800 |H | Short_Literal 0x0
0015 4801 |H | Short_Literal 0x1
0016 4801 |H | Short_Literal 0x1
0017 031e | | Declare_Type Variant_Record,Defined,Visible
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
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 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00c4 | | Action Make_Default
004f 00c4 | | Action Make_Default
0050 00c4 | | Action Make_Default
0051 00c4 | | Action Make_Default
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 00c4 | | Action Make_Default
0055 00c4 | | Action Make_Default
0056 00c4 | | Action Make_Default
0057 00c4 | | Action Make_Default
0058 00c4 | | Action Make_Default
0059 00c4 | | Action Make_Default
005a 00c4 | | Action Make_Default
005b 00c4 | | Action Make_Default
005c 00c4 | | Action Make_Default
005d 00c4 | | Action Make_Default
005e 00c4 | | Action Make_Default
005f 00c4 | | Action Make_Default
0060 00c4 | | Action Make_Default
0061 00c4 | | Action Make_Default
0062 00c4 | | Action Make_Default
0063 00c4 | | Action Make_Default
0064 00c4 | | Action Make_Default
0065 00c4 | | Action Make_Default
0066 00c4 | | Action Make_Default
0067 00c4 | | Action Make_Default
0068 00c4 | | Action Make_Default
0069 00c4 | | Action Make_Default
006a 00c4 | | Action Make_Default
006b 00c4 | | Action Make_Default
006c 00c4 | | Action Make_Default
006d 00c4 | | Action Make_Default
006e 00c4 | | Action Make_Default
006f 00c4 | | Action Make_Default
0070 00c4 | | Action Make_Default
0071 00c4 | | Action Make_Default
0072 00c4 | | Action Make_Default
0073 00c4 | | Action Make_Default
0074 00c4 | | Action Make_Default
0075 00c4 | | Action Make_Default
0076 00c4 | | Action Make_Default
0077 00c4 | | Action Make_Default
0078 00c4 | | Action Make_Default
0079 00c4 | | Action Make_Default
007a 00c4 | | Action Make_Default
007b 00c4 | | Action Make_Default
007c 00c4 | | Action Make_Default
007d 00c4 | | Action Make_Default
007e 00c4 | | Action Make_Default
007f 00c4 | | Action Make_Default
0080 00c4 | | Action Make_Default
0081 00c4 | | Action Make_Default
0082 00c4 | | Action Make_Default
0083 00c4 | | Action Make_Default
0084 00c4 | | Action Make_Default
0085 00c4 | | Action Make_Default
0086 00c4 | | Action Make_Default
0087 00c4 | | Action Make_Default
0088 00c4 | | Action Make_Default
0089 00c4 | | Action Make_Default
008a 00c4 | | Action Make_Default
008b 00c4 | | Action Make_Default
008c 00c4 | | Action Make_Default
008d 00c4 | | Action Make_Default
008e 00c4 | | Action Make_Default
008f 00c4 | | Action Make_Default
0090 00c4 | | Action Make_Default
0091 00c4 | | Action Make_Default
0092 00c4 | | Action Make_Default
0093 00c4 | | Action Make_Default
0094 00c4 | | Action Make_Default
0095 00c4 | | Action Make_Default
0096 00c4 | | Action Make_Default
0097 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0099 c27e | ~ | Store 0x1,0x7e
009a 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
009c c27f | | Store 0x1,0x7f
009d 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
009f c280 | | Store 0x1,0x80
00a0 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
00a2 c281 | | Store 0x1,0x81
00a3 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
00a5 c227 | ' | Store 0x1,0x27
00a6 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
00a8 c228 | ( | Store 0x1,0x28
00a9 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
00ab c229 | ) | Store 0x1,0x29
00ac 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
00ae c22a | * | Store 0x1,0x2a
00af 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
00b1 c22b | + | Store 0x1,0x2b
00b2 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated
00b4 c22c | , | Store 0x1,0x2c
00b5 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated
00b7 c278 | x | Store 0x1,0x78
00b8 029a 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call,Visible,Unelaborated
00ba c277 | w | Store 0x1,0x77
00bb 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated
00bd c288 | | Store 0x1,0x88
00be 029a 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call,Visible,Unelaborated
00c0 c289 | | Store 0x1,0x89
00c1 029a 0983 | | Declare_Subprogram INIT_0980,For_Outer_Call,Visible,Unelaborated
00c3 c28a | | Store 0x1,0x8a
00c4 029a 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call,Visible,Unelaborated
00c6 c28b | | Store 0x1,0x8b
00c7 029a 0ab3 | | Declare_Subprogram INIT_0ab0,For_Outer_Call,Visible,Unelaborated
00c9 c231 | 1 | Store 0x1,0x31
00ca 029a 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible,Unelaborated
00cc c232 | 2 | Store 0x1,0x32
00cd 029a 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call,Visible,Unelaborated
00cf c286 | | Store 0x1,0x86
00d0 029a 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call,Visible,Unelaborated
00d2 c279 | y | Store 0x1,0x79
00d3 029a 0cb3 | | Declare_Subprogram INIT_0cb0,For_Outer_Call,Visible,Unelaborated
00d5 c265 | e | Store 0x1,0x65
00d6 029a 0d03 | | Declare_Subprogram INIT_0d00,For_Outer_Call,Visible,Unelaborated
00d8 c25a | Z | Store 0x1,0x5a
00d9 029a 0df3 | | Declare_Subprogram INIT_0df0,For_Outer_Call,Visible,Unelaborated
00db c245 | E | Store 0x1,0x45
00dc 029a 0e23 | #| Declare_Subprogram INIT_0e20,For_Outer_Call,Visible,Unelaborated
00de c266 | f | Store 0x1,0x66
00df 029a 0e43 | C| Declare_Subprogram INIT_0e40,For_Outer_Call,Visible,Unelaborated
00e1 c267 | g | Store 0x1,0x67
00e2 029a 0e83 | | Declare_Subprogram INIT_0e80,For_Outer_Call,Visible,Unelaborated
00e4 c26a | j | Store 0x1,0x6a
00e5 029a 0e9b | | Declare_Subprogram INIT_0e98,For_Outer_Call,Visible,Unelaborated
00e7 c25d | ] | Store 0x1,0x5d
00e8 029a 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call,Visible,Unelaborated
00ea c25e | ^ | Store 0x1,0x5e
00eb 029a 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call,Visible,Unelaborated
00ed c25f | _ | Store 0x1,0x5f
00ee 029a 0f33 | 3| Declare_Subprogram INIT_0f30,For_Outer_Call,Visible,Unelaborated
00f0 c270 | p | Store 0x1,0x70
00f1 029a 0f53 | S| Declare_Subprogram INIT_0f50,For_Outer_Call,Visible,Unelaborated
00f3 c271 | q | Store 0x1,0x71
00f4 029a 0f7b | {| Declare_Subprogram INIT_0f78,For_Outer_Call,Visible,Unelaborated
00f6 c273 | s | Store 0x1,0x73
00f7 029a 0f93 | | Declare_Subprogram INIT_0f90,For_Outer_Call,Visible,Unelaborated
00f9 c260 | ` | Store 0x1,0x60
00fa 029a 0fcb | | Declare_Subprogram INIT_0fc8,For_Outer_Call,Visible,Unelaborated
00fc c261 | a | Store 0x1,0x61
00fd e001 | | Load 0x0,0x1
00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ff 4801 |H | Short_Literal 0x1
0100 4880 |H | Short_Literal 0x80
0101 00e9 | | Load_Encached String_Cache
0102 035c | \ | Declare_Type Array,Constrained,Visible
0103 00e3 | | Load_Encached Natural_Cache
0104 4801 |H | Short_Literal 0x1
0105 4880 |H | Short_Literal 0x80
0106 00e9 | | Load_Encached String_Cache
0107 035c | \ | Declare_Type Array,Constrained,Visible
0108 00e3 | | Load_Encached Natural_Cache
0109 4801 |H | Short_Literal 0x1
010a 4880 |H | Short_Literal 0x80
010b 00e9 | | Load_Encached String_Cache
010c 035c | \ | Declare_Type Array,Constrained,Visible
010d 00e3 | | Load_Encached Natural_Cache
010e 4801 |H | Short_Literal 0x1
010f 4880 |H | Short_Literal 0x80
0110 00e9 | | Load_Encached String_Cache
0111 035c | \ | Declare_Type Array,Constrained,Visible
0112 00e3 | | Load_Encached Natural_Cache
0113 029f 1a73 | s| Declare_Subprogram INIT_1a70,For_Call
0115 4809 |H | Short_Literal 0x9
0116 032e | . | Declare_Type Record,Defined,Visible
0117 c26f | o | Store 0x1,0x6f
0118 029a 0ffb | | Declare_Subprogram INIT_0ff8,For_Outer_Call,Visible,Unelaborated
011a c250 | P | Store 0x1,0x50
011b 029a 1013 | | Declare_Subprogram INIT_1010,For_Outer_Call,Visible,Unelaborated
011d c27d | } | Store 0x1,0x7d
011e 029a 1063 | c| Declare_Subprogram INIT_1060,For_Outer_Call,Visible,Unelaborated
0120 c26d | m | Store 0x1,0x6d
0121 029a 10c3 | | Declare_Subprogram INIT_10c0,For_Outer_Call,Visible,Unelaborated
0123 c26e | n | Store 0x1,0x6e
0124 029a 1123 | #| Declare_Subprogram INIT_1120,For_Outer_Call,Visible,Unelaborated
0126 c28c | | Store 0x1,0x8c
0127 029a 11eb | | Declare_Subprogram INIT_11e8,For_Outer_Call,Visible,Unelaborated
0129 c283 | | Store 0x1,0x83
012a 029a 128b | | Declare_Subprogram INIT_1288,For_Outer_Call,Visible,Unelaborated
012c c284 | | Store 0x1,0x84
012d 029a 12bb | | Declare_Subprogram INIT_12b8,For_Outer_Call,Visible,Unelaborated
012f c287 | | Store 0x1,0x87
0130 00bf | | Action Accept_Activation
0131 00e1 | | Load_Encached Boolean_Cache
0132 02a0 | | Declare_Subprogram Null_Subprogram
0133 4801 |H | Short_Literal 0x1
0134 032d | - | Declare_Type Record,Defined
0135 0092 1ac9 | | Action Push_String_Extended,0x1ac9 ; "secondary_"
0137 0092 1aca | | Action Push_String_Extended,0x1aca ; "<secondary_[@,~state]>"
0139 029d 12db | | Declare_Subprogram INIT_12d8,For_Outer_Call
013b 029d 12eb | | Declare_Subprogram INIT_12e8,For_Outer_Call
013d 029d 12fb | | Declare_Subprogram INIT_12f8,For_Outer_Call
013f 029d 1333 | 3| Declare_Subprogram INIT_1330,For_Outer_Call
0141 029d 1343 | C| Declare_Subprogram INIT_1340,For_Outer_Call
0143 029d 1353 | S| Declare_Subprogram INIT_1350,For_Outer_Call
0145 029d 1373 | s| Declare_Subprogram INIT_1370,For_Outer_Call
0147 029d 138b | | Declare_Subprogram INIT_1388,For_Outer_Call
0149 029d 13bb | | Declare_Subprogram INIT_13b8,For_Outer_Call
014b 029d 1403 | | Declare_Subprogram INIT_1400,For_Outer_Call
014d 029d 143b | ;| Declare_Subprogram INIT_1438,For_Outer_Call
014f 029d 144b | K| Declare_Subprogram INIT_1448,For_Outer_Call
0151 029d 1473 | s| Declare_Subprogram INIT_1470,For_Outer_Call
0153 029d 147b | {| Declare_Subprogram INIT_1478,For_Outer_Call
0155 029d 148b | | Declare_Subprogram INIT_1488,For_Outer_Call
0157 029d 149b | | Declare_Subprogram INIT_1498,For_Outer_Call
0159 029d 14a3 | | Declare_Subprogram INIT_14a0,For_Outer_Call
015b 029d 14ab | | Declare_Subprogram INIT_14a8,For_Outer_Call
015d 029d 14e3 | | Declare_Subprogram INIT_14e0,For_Outer_Call
015f 029d 14f3 | | Declare_Subprogram INIT_14f0,For_Outer_Call
0161 029d 1543 | C| Declare_Subprogram INIT_1540,For_Outer_Call
0163 029d 1593 | | Declare_Subprogram INIT_1590,For_Outer_Call
0165 029d 15d3 | | Declare_Subprogram INIT_15d0,For_Outer_Call
0167 029d 160b | | Declare_Subprogram INIT_1608,For_Outer_Call
0169 029d 163b | ;| Declare_Subprogram INIT_1638,For_Outer_Call
016b 029d 1673 | s| Declare_Subprogram INIT_1670,For_Outer_Call
016d 029d 16f3 | | Declare_Subprogram INIT_16f0,For_Outer_Call
016f 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e
0170 00c7 | | Action Elaborate_Subprogram
0171 1d7f | | Execute_Immediate Reference_Lex_1,0x7f
0172 00c7 | | Action Elaborate_Subprogram
0173 1d80 | | Execute_Immediate Reference_Lex_1,0x80
0174 00c7 | | Action Elaborate_Subprogram
0175 1d81 | | Execute_Immediate Reference_Lex_1,0x81
0176 00c7 | | Action Elaborate_Subprogram
0177 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0178 00c7 | | Action Elaborate_Subprogram
0179 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
017a 00c7 | | Action Elaborate_Subprogram
017b 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
017c 00c7 | | Action Elaborate_Subprogram
017d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
017e 00c7 | | Action Elaborate_Subprogram
017f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0180 00c7 | | Action Elaborate_Subprogram
0181 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0182 00c7 | | Action Elaborate_Subprogram
0183 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
0184 00c7 | | Action Elaborate_Subprogram
0185 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
0186 00c7 | | Action Elaborate_Subprogram
0187 029d 175b | [| Declare_Subprogram INIT_1758,For_Outer_Call
0189 029d 1783 | | Declare_Subprogram INIT_1780,For_Outer_Call
018b 1d88 | | Execute_Immediate Reference_Lex_1,0x88
018c 00c7 | | Action Elaborate_Subprogram
018d 1d89 | | Execute_Immediate Reference_Lex_1,0x89
018e 00c7 | | Action Elaborate_Subprogram
018f 1d8a | | Execute_Immediate Reference_Lex_1,0x8a
0190 00c7 | | Action Elaborate_Subprogram
0191 1d8b | | Execute_Immediate Reference_Lex_1,0x8b
0192 00c7 | | Action Elaborate_Subprogram
0193 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0194 00c7 | | Action Elaborate_Subprogram
0195 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0196 00c7 | | Action Elaborate_Subprogram
0197 1d86 | | Execute_Immediate Reference_Lex_1,0x86
0198 00c7 | | Action Elaborate_Subprogram
0199 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
019a 00c7 | | Action Elaborate_Subprogram
019b 1d65 | e | Execute_Immediate Reference_Lex_1,0x65
019c 00c7 | | Action Elaborate_Subprogram
019d 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
019e 00c7 | | Action Elaborate_Subprogram
019f 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
01a0 00c7 | | Action Elaborate_Subprogram
01a1 029d 179b | | Declare_Subprogram INIT_1798,For_Outer_Call
01a3 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
01a4 00c7 | | Action Elaborate_Subprogram
01a5 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
01a6 00c7 | | Action Elaborate_Subprogram
01a7 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a
01a8 00c7 | | Action Elaborate_Subprogram
01a9 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
01aa 00c7 | | Action Elaborate_Subprogram
01ab 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
01ac 00c7 | | Action Elaborate_Subprogram
01ad 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
01ae 00c7 | | Action Elaborate_Subprogram
01af 1d70 | p | Execute_Immediate Reference_Lex_1,0x70
01b0 00c7 | | Action Elaborate_Subprogram
01b1 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
01b2 00c7 | | Action Elaborate_Subprogram
01b3 1d73 | s | Execute_Immediate Reference_Lex_1,0x73
01b4 00c7 | | Action Elaborate_Subprogram
01b5 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
01b6 00c7 | | Action Elaborate_Subprogram
01b7 1d61 | a | Execute_Immediate Reference_Lex_1,0x61
01b8 00c7 | | Action Elaborate_Subprogram
01b9 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
01ba 00c7 | | Action Elaborate_Subprogram
01bb 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d
01bc 00c7 | | Action Elaborate_Subprogram
01bd 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
01be 00c7 | | Action Elaborate_Subprogram
01bf 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
01c0 00c7 | | Action Elaborate_Subprogram
01c1 1d8c | | Execute_Immediate Reference_Lex_1,0x8c
01c2 00c7 | | Action Elaborate_Subprogram
01c3 1d83 | | Execute_Immediate Reference_Lex_1,0x83
01c4 00c7 | | Action Elaborate_Subprogram
01c5 1d84 | | Execute_Immediate Reference_Lex_1,0x84
01c6 00c7 | | Action Elaborate_Subprogram
01c7 1d87 | | Execute_Immediate Reference_Lex_1,0x87
01c8 00c7 | | Action Elaborate_Subprogram
01c9 BODY_0008:
01c9 00bc | | Action Signal_Activated
01ca 00bb | | Action Signal_Completion
01cb 0000 0000 | | .BLANK 0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e3 | | .CONST 0x01e3 ; Address of begin
01d1 021f | | .CONST 0x021f ; Address of exception handler
01d2 0004 | | .CONST 0x0004 ; Number of locals
01d3 INIT_01d0:
01d3 e002 | | Load 0x0,0x2
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 e001 | | Load 0x0,0x1
01d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01d8 e003 | | Load 0x0,0x3
01d9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
01da 0322 | " | Declare_Variable Record
01db e5fd | | Load 0x2,-0x3
01dc e5fe | | Load 0x2,-0x2
01dd e004 | | Load 0x0,0x4
01de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01df e003 | | Load 0x0,0x3
01e0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01e1 00d9 | | Load_Top At_Offset_1
01e2 017d | } | Execute Record,Structure_Write
01e3 BODY_01d0:
01e3 4800 |H | Short_Literal 0x0
01e4 a5fc | | Store_Unchecked 0x2,-0x4
01e5 e5fd | | Load 0x2,-0x3
01e6 0092 1acb | | Action Push_String_Extended,0x1acb ; "Rcf_Unit.Display_Unit_Options"
01e8 e005 | | Load 0x0,0x5
01e9 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ea e001 | | Load 0x0,0x1
01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ec e002 | | Load 0x0,0x2
01ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ee e5fd | | Load 0x2,-0x3
01ef 4800 |H | Short_Literal 0x0
01f0 4801 |H | Short_Literal 0x1
01f1 4800 |H | Short_Literal 0x0
01f2 e404 | | Load 0x2,0x4
01f3 e5ff | | Load 0x2,-0x1
01f4 e002 | | Load 0x0,0x2
01f5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01f6 c402 | | Store 0x2,0x2
01f7 005a | Z | Store_Top Discrete,At_Offset_2
01f8 4800 |H | Short_Literal 0x0
01f9 00da | | Load_Top At_Offset_2
01fa e001 | | Load 0x0,0x1
01fb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01fc 7003 |p | Jump_Nonzero 0x200
01fd 00d9 | | Load_Top At_Offset_1
01fe a5fc | | Store_Unchecked 0x2,-0x4
01ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0200 00da | | Load_Top At_Offset_2
0201 e002 | | Load 0x0,0x2
0202 180f | | Execute Package,Field_Execute,Field_Number 0xf
0203 680d |h | Jump_Zero 0x211
0204 e5fd | | Load 0x2,-0x3
0205 e006 | | Load 0x0,0x6
0206 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0207 6044 |`D | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008147}
0208 e001 | | Load 0x0,0x1
0209 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
020a e006 | | Load 0x0,0x6
020b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
020c 603f |`? | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008147}
020d e001 | | Load 0x0,0x1
020e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020f a5fc | | Store_Unchecked 0x2,-0x4
0210 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0211 00da | | Load_Top At_Offset_2
0212 e5fd | | Load 0x2,-0x3
0213 e5fe | | Load 0x2,-0x2
0214 e007 | | Load 0x0,0x7
0215 180d | | Execute Package,Field_Execute,Field_Number 0xd
0216 e001 | | Load 0x0,0x1
0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0218 00db | | Load_Top At_Offset_3
0219 e5fd | | Load 0x2,-0x3
021a e002 | | Load 0x0,0x2
021b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
021c c402 | | Store 0x2,0x2
021d c5fc | | Store 0x2,-0x4
021e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
021f TRAP_01d0:
021f e001 | | Load 0x0,0x1
0220 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0221 010f | | Execute Exception,Equal
0222 6810 |h | Jump_Zero 0x233
0223 e001 | | Load 0x0,0x1
0224 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0225 a5fc | | Store_Unchecked 0x2,-0x4
0226 00db | | Load_Top At_Offset_3
0227 e002 | | Load 0x0,0x2
0228 180f | | Execute Package,Field_Execute,Field_Number 0xf
0229 7008 |p | Jump_Nonzero 0x232
022a e001 | | Load 0x0,0x1
022b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022c e402 | | Load 0x2,0x2
022d e5fd | | Load 0x2,-0x3
022e e002 | | Load 0x0,0x2
022f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0230 c402 | | Store 0x2,0x2
0231 005b | [ | Store_Top Discrete,At_Offset_3
0232 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0233 e5fd | | Load 0x2,-0x3
0234 0092 1acb | | Action Push_String_Extended,0x1acb ; "Rcf_Unit.Display_Unit_Options"
0236 e005 | | Load 0x0,0x5
0237 180f | | Execute Package,Field_Execute,Field_Number 0xf
0238 0092 1acb | | Action Push_String_Extended,0x1acb ; "Rcf_Unit.Display_Unit_Options"
023a e005 | | Load 0x0,0x5
023b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023c a5fc | | Store_Unchecked 0x2,-0x4
023d 00db | | Load_Top At_Offset_3
023e e002 | | Load 0x0,0x2
023f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0240 7008 |p | Jump_Nonzero 0x249
0241 e001 | | Load 0x0,0x1
0242 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0243 e402 | | Load 0x2,0x2
0244 e5fd | | Load 0x2,-0x3
0245 e002 | | Load 0x0,0x2
0246 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0247 c402 | | Store 0x2,0x2
0248 005b | [ | Store_Top Discrete,At_Offset_3
0249 4504 |E | Exit_Suprogram New_Top_Offset 0x4
024a 0000 0000 | | .XXX[0x2]
024c 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0263 | c | .CONST 0x0263 ; Address of begin
0251 02a1 | | .CONST 0x02a1 ; Address of exception handler
0252 0004 | | .CONST 0x0004 ; Number of locals
0253 INIT_0250:
0253 e002 | | Load 0x0,0x2
0254 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0255 e001 | | Load 0x0,0x1
0256 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0257 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0258 e003 | | Load 0x0,0x3
0259 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
025a 0322 | " | Declare_Variable Record
025b e5fb | | Load 0x2,-0x5
025c e5fe | | Load 0x2,-0x2
025d e004 | | Load 0x0,0x4
025e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
025f e003 | | Load 0x0,0x3
0260 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0261 00d9 | | Load_Top At_Offset_1
0262 017d | } | Execute Record,Structure_Write
0263 BODY_0250:
0263 e5fb | | Load 0x2,-0x5
0264 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options"
0266 e005 | | Load 0x0,0x5
0267 180e | | Execute Package,Field_Execute,Field_Number 0xe
0268 4800 |H | Short_Literal 0x0
0269 a5fa | | Store_Unchecked 0x2,-0x6
026a e001 | | Load 0x0,0x1
026b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026c e002 | | Load 0x0,0x2
026d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026e e5fb | | Load 0x2,-0x5
026f 4800 |H | Short_Literal 0x0
0270 4801 |H | Short_Literal 0x1
0271 4801 |H | Short_Literal 0x1
0272 e404 | | Load 0x2,0x4
0273 e5ff | | Load 0x2,-0x1
0274 e002 | | Load 0x0,0x2
0275 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0276 c402 | | Store 0x2,0x2
0277 005a | Z | Store_Top Discrete,At_Offset_2
0278 4800 |H | Short_Literal 0x0
0279 00da | | Load_Top At_Offset_2
027a e001 | | Load 0x0,0x1
027b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
027c 7003 |p | Jump_Nonzero 0x280
027d 00d9 | | Load_Top At_Offset_1
027e a5fa | | Store_Unchecked 0x2,-0x6
027f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0280 00da | | Load_Top At_Offset_2
0281 e002 | | Load 0x0,0x2
0282 180f | | Execute Package,Field_Execute,Field_Number 0xf
0283 680d |h | Jump_Zero 0x291
0284 e5fb | | Load 0x2,-0x5
0285 e006 | | Load 0x0,0x6
0286 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0287 67c4 |g | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008147}
0288 e001 | | Load 0x0,0x1
0289 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
028a e006 | | Load 0x0,0x6
028b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
028c 67bf |g | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008147}
028d e001 | | Load 0x0,0x1
028e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
028f a5fa | | Store_Unchecked 0x2,-0x6
0290 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0291 00da | | Load_Top At_Offset_2
0292 e5fb | | Load 0x2,-0x5
0293 e5fc | | Load 0x2,-0x4
0294 e5fd | | Load 0x2,-0x3
0295 e5fe | | Load 0x2,-0x2
0296 e007 | | Load 0x0,0x7
0297 180e | | Execute Package,Field_Execute,Field_Number 0xe
0298 e001 | | Load 0x0,0x1
0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029a 00db | | Load_Top At_Offset_3
029b e5fb | | Load 0x2,-0x5
029c e002 | | Load 0x0,0x2
029d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
029e c402 | | Store 0x2,0x2
029f c5fa | | Store 0x2,-0x6
02a0 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02a1 TRAP_0250:
02a1 e001 | | Load 0x0,0x1
02a2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02a3 010f | | Execute Exception,Equal
02a4 6810 |h | Jump_Zero 0x2b5
02a5 e001 | | Load 0x0,0x1
02a6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02a7 a5fa | | Store_Unchecked 0x2,-0x6
02a8 00db | | Load_Top At_Offset_3
02a9 e002 | | Load 0x0,0x2
02aa 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ab 7008 |p | Jump_Nonzero 0x2b4
02ac e001 | | Load 0x0,0x1
02ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ae e402 | | Load 0x2,0x2
02af e5fb | | Load 0x2,-0x5
02b0 e002 | | Load 0x0,0x2
02b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b2 c402 | | Store 0x2,0x2
02b3 005b | [ | Store_Top Discrete,At_Offset_3
02b4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02b5 e5fb | | Load 0x2,-0x5
02b6 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options"
02b8 e005 | | Load 0x0,0x5
02b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ba 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options"
02bc e005 | | Load 0x0,0x5
02bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02be a5fa | | Store_Unchecked 0x2,-0x6
02bf 00db | | Load_Top At_Offset_3
02c0 e002 | | Load 0x0,0x2
02c1 180f | | Execute Package,Field_Execute,Field_Number 0xf
02c2 7008 |p | Jump_Nonzero 0x2cb
02c3 e001 | | Load 0x0,0x1
02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c5 e402 | | Load 0x2,0x2
02c6 e5fb | | Load 0x2,-0x5
02c7 e002 | | Load 0x0,0x2
02c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c9 c402 | | Store 0x2,0x2
02ca 005b | [ | Store_Top Discrete,At_Offset_3
02cb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e3 | | .CONST 0x02e3 ; Address of begin
02d1 0321 | ! | .CONST 0x0321 ; Address of exception handler
02d2 0004 | | .CONST 0x0004 ; Number of locals
02d3 INIT_02d0:
02d3 e002 | | Load 0x0,0x2
02d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d5 e001 | | Load 0x0,0x1
02d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02d8 e003 | | Load 0x0,0x3
02d9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
02da 0322 | " | Declare_Variable Record
02db e5fb | | Load 0x2,-0x5
02dc e5fe | | Load 0x2,-0x2
02dd e004 | | Load 0x0,0x4
02de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02df e003 | | Load 0x0,0x3
02e0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
02e1 00d9 | | Load_Top At_Offset_1
02e2 017d | } | Execute Record,Structure_Write
02e3 BODY_02d0:
02e3 e5fb | | Load 0x2,-0x5
02e4 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options"
02e6 e005 | | Load 0x0,0x5
02e7 180e | | Execute Package,Field_Execute,Field_Number 0xe
02e8 4800 |H | Short_Literal 0x0
02e9 a5fa | | Store_Unchecked 0x2,-0x6
02ea e001 | | Load 0x0,0x1
02eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ec e002 | | Load 0x0,0x2
02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ee e5fb | | Load 0x2,-0x5
02ef 4800 |H | Short_Literal 0x0
02f0 4801 |H | Short_Literal 0x1
02f1 4801 |H | Short_Literal 0x1
02f2 e404 | | Load 0x2,0x4
02f3 e5ff | | Load 0x2,-0x1
02f4 e002 | | Load 0x0,0x2
02f5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02f6 c402 | | Store 0x2,0x2
02f7 005a | Z | Store_Top Discrete,At_Offset_2
02f8 4800 |H | Short_Literal 0x0
02f9 00da | | Load_Top At_Offset_2
02fa e001 | | Load 0x0,0x1
02fb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02fc 7003 |p | Jump_Nonzero 0x300
02fd 00d9 | | Load_Top At_Offset_1
02fe a5fa | | Store_Unchecked 0x2,-0x6
02ff 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0300 00da | | Load_Top At_Offset_2
0301 e002 | | Load 0x0,0x2
0302 180f | | Execute Package,Field_Execute,Field_Number 0xf
0303 680d |h | Jump_Zero 0x311
0304 e5fb | | Load 0x2,-0x5
0305 e006 | | Load 0x0,0x6
0306 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0307 6044 |`D | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00008147}
0308 e001 | | Load 0x0,0x1
0309 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
030a e006 | | Load 0x0,0x6
030b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
030c 603f |`? | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00008147}
030d e001 | | Load 0x0,0x1
030e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
030f a5fa | | Store_Unchecked 0x2,-0x6
0310 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0311 00da | | Load_Top At_Offset_2
0312 e5fb | | Load 0x2,-0x5
0313 e5fc | | Load 0x2,-0x4
0314 e5fd | | Load 0x2,-0x3
0315 e5fe | | Load 0x2,-0x2
0316 e007 | | Load 0x0,0x7
0317 180f | | Execute Package,Field_Execute,Field_Number 0xf
0318 e001 | | Load 0x0,0x1
0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031a 00db | | Load_Top At_Offset_3
031b e5fb | | Load 0x2,-0x5
031c e002 | | Load 0x0,0x2
031d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
031e c402 | | Store 0x2,0x2
031f c5fa | | Store 0x2,-0x6
0320 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0321 TRAP_02d0:
0321 e001 | | Load 0x0,0x1
0322 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0323 010f | | Execute Exception,Equal
0324 6810 |h | Jump_Zero 0x335
0325 e001 | | Load 0x0,0x1
0326 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0327 a5fa | | Store_Unchecked 0x2,-0x6
0328 00db | | Load_Top At_Offset_3
0329 e002 | | Load 0x0,0x2
032a 180f | | Execute Package,Field_Execute,Field_Number 0xf
032b 7008 |p | Jump_Nonzero 0x334
032c e001 | | Load 0x0,0x1
032d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032e e402 | | Load 0x2,0x2
032f e5fb | | Load 0x2,-0x5
0330 e002 | | Load 0x0,0x2
0331 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0332 c402 | | Store 0x2,0x2
0333 005b | [ | Store_Top Discrete,At_Offset_3
0334 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0335 e5fb | | Load 0x2,-0x5
0336 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options"
0338 e005 | | Load 0x0,0x5
0339 180f | | Execute Package,Field_Execute,Field_Number 0xf
033a 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options"
033c e005 | | Load 0x0,0x5
033d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
033e a5fa | | Store_Unchecked 0x2,-0x6
033f 00db | | Load_Top At_Offset_3
0340 e002 | | Load 0x0,0x2
0341 180f | | Execute Package,Field_Execute,Field_Number 0xf
0342 7008 |p | Jump_Nonzero 0x34b
0343 e001 | | Load 0x0,0x1
0344 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0345 e402 | | Load 0x2,0x2
0346 e5fb | | Load 0x2,-0x5
0347 e002 | | Load 0x0,0x2
0348 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0349 c402 | | Store 0x2,0x2
034a 005b | [ | Store_Top Discrete,At_Offset_3
034b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
034c 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0363 | c | .CONST 0x0363 ; Address of begin
0351 03a0 | | .CONST 0x03a0 ; Address of exception handler
0352 0004 | | .CONST 0x0004 ; Number of locals
0353 INIT_0350:
0353 e002 | | Load 0x0,0x2
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 e001 | | Load 0x0,0x1
0356 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0357 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0358 e003 | | Load 0x0,0x3
0359 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
035a 0322 | " | Declare_Variable Record
035b e5fc | | Load 0x2,-0x4
035c e5fe | | Load 0x2,-0x2
035d e004 | | Load 0x0,0x4
035e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
035f e003 | | Load 0x0,0x3
0360 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0361 00d9 | | Load_Top At_Offset_1
0362 017d | } | Execute Record,Structure_Write
0363 BODY_0350:
0363 e5fc | | Load 0x2,-0x4
0364 0092 1acd | | Action Push_String_Extended,0x1acd ; "Rcf_Unit.Remove_Unit_Options"
0366 e005 | | Load 0x0,0x5
0367 180e | | Execute Package,Field_Execute,Field_Number 0xe
0368 4800 |H | Short_Literal 0x0
0369 a5fb | | Store_Unchecked 0x2,-0x5
036a e001 | | Load 0x0,0x1
036b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036c e002 | | Load 0x0,0x2
036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036e e5fc | | Load 0x2,-0x4
036f 4800 |H | Short_Literal 0x0
0370 4801 |H | Short_Literal 0x1
0371 4801 |H | Short_Literal 0x1
0372 e404 | | Load 0x2,0x4
0373 e5ff | | Load 0x2,-0x1
0374 e002 | | Load 0x0,0x2
0375 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0376 c402 | | Store 0x2,0x2
0377 005a | Z | Store_Top Discrete,At_Offset_2
0378 4800 |H | Short_Literal 0x0
0379 00da | | Load_Top At_Offset_2
037a e001 | | Load 0x0,0x1
037b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
037c 7003 |p | Jump_Nonzero 0x380
037d 00d9 | | Load_Top At_Offset_1
037e a5fb | | Store_Unchecked 0x2,-0x5
037f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0380 00da | | Load_Top At_Offset_2
0381 e002 | | Load 0x0,0x2
0382 180f | | Execute Package,Field_Execute,Field_Number 0xf
0383 680d |h | Jump_Zero 0x391
0384 e5fc | | Load 0x2,-0x4
0385 e006 | | Load 0x0,0x6
0386 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0387 67c4 |g | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00008147}
0388 e001 | | Load 0x0,0x1
0389 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
038a e006 | | Load 0x0,0x6
038b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
038c 67bf |g | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00008147}
038d e001 | | Load 0x0,0x1
038e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038f a5fb | | Store_Unchecked 0x2,-0x5
0390 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0391 00da | | Load_Top At_Offset_2
0392 e5fc | | Load 0x2,-0x4
0393 e5fd | | Load 0x2,-0x3
0394 e5fe | | Load 0x2,-0x2
0395 e007 | | Load 0x0,0x7
0396 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0397 e001 | | Load 0x0,0x1
0398 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0399 00db | | Load_Top At_Offset_3
039a e5fc | | Load 0x2,-0x4
039b e002 | | Load 0x0,0x2
039c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
039d c402 | | Store 0x2,0x2
039e c5fb | | Store 0x2,-0x5
039f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03a0 TRAP_0350:
03a0 e001 | | Load 0x0,0x1
03a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03a2 010f | | Execute Exception,Equal
03a3 6810 |h | Jump_Zero 0x3b4
03a4 e001 | | Load 0x0,0x1
03a5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03a6 a5fb | | Store_Unchecked 0x2,-0x5
03a7 00db | | Load_Top At_Offset_3
03a8 e002 | | Load 0x0,0x2
03a9 180f | | Execute Package,Field_Execute,Field_Number 0xf
03aa 7008 |p | Jump_Nonzero 0x3b3
03ab e001 | | Load 0x0,0x1
03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ad e402 | | Load 0x2,0x2
03ae e5fc | | Load 0x2,-0x4
03af e002 | | Load 0x0,0x2
03b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03b1 c402 | | Store 0x2,0x2
03b2 005b | [ | Store_Top Discrete,At_Offset_3
03b3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03b4 e5fc | | Load 0x2,-0x4
03b5 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options"
03b7 e005 | | Load 0x0,0x5
03b8 180f | | Execute Package,Field_Execute,Field_Number 0xf
03b9 0092 1acc | | Action Push_String_Extended,0x1acc ; "Rcf_Unit.Set_Unit_Options"
03bb e005 | | Load 0x0,0x5
03bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03bd a5fb | | Store_Unchecked 0x2,-0x5
03be 00db | | Load_Top At_Offset_3
03bf e002 | | Load 0x0,0x2
03c0 180f | | Execute Package,Field_Execute,Field_Number 0xf
03c1 7008 |p | Jump_Nonzero 0x3ca
03c2 e001 | | Load 0x0,0x1
03c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c4 e402 | | Load 0x2,0x2
03c5 e5fc | | Load 0x2,-0x4
03c6 e002 | | Load 0x0,0x2
03c7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03c8 c402 | | Store 0x2,0x2
03c9 005b | [ | Store_Top Discrete,At_Offset_3
03ca 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03cb 0000 0000 | | .BLANK 0000[0x5]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03e5 | | .CONST 0x03e5 ; Address of begin
03d1 0417 | | .CONST 0x0417 ; Address of exception handler
03d2 0006 | | .CONST 0x0006 ; Number of locals
03d3 INIT_03d0:
03d3 e002 | | Load 0x0,0x2
03d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d5 e001 | | Load 0x0,0x1
03d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03d8 4800 |H | Short_Literal 0x0
03d9 e20d | | Load 0x1,0xd
03da 1c08 | | Execute_Immediate Run_Utility,0x8
03db e003 | | Load 0x0,0x3
03dc 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
03dd 0322 | " | Declare_Variable Record
03de e5fd | | Load 0x2,-0x3
03df e003 | | Load 0x0,0x3
03e0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
03e1 00d9 | | Load_Top At_Offset_1
03e2 017d | } | Execute Record,Structure_Write
03e3 029f 17f3 | | Declare_Subprogram INIT_17f0,For_Call
03e5 BODY_03d0:
03e5 e5fc | | Load 0x2,-0x4
03e6 0092 1ace | | Action Push_String_Extended,0x1ace ; "Rcf_Unit.Remote_Unit_Name"
03e8 e005 | | Load 0x0,0x5
03e9 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ea e001 | | Load 0x0,0x1
03eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ec e002 | | Load 0x0,0x2
03ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ee e5fc | | Load 0x2,-0x4
03ef 4801 |H | Short_Literal 0x1
03f0 4801 |H | Short_Literal 0x1
03f1 4800 |H | Short_Literal 0x0
03f2 e405 | | Load 0x2,0x5
03f3 e5ff | | Load 0x2,-0x1
03f4 e002 | | Load 0x0,0x2
03f5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03f6 c402 | | Store 0x2,0x2
03f7 c403 | | Store 0x2,0x3
03f8 4800 |H | Short_Literal 0x0
03f9 e403 | | Load 0x2,0x3
03fa e001 | | Load 0x0,0x1
03fb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03fc 7005 |p | Jump_Nonzero 0x402
03fd 00db | | Load_Top At_Offset_3
03fe 00db | | Load_Top At_Offset_3
03ff 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0400 00da | | Load_Top At_Offset_2
0401 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0402 e402 | | Load 0x2,0x2
0403 e002 | | Load 0x0,0x2
0404 180f | | Execute Package,Field_Execute,Field_Number 0xf
0405 680f |h | Jump_Zero 0x415
0406 e5fc | | Load 0x2,-0x4
0407 e006 | | Load 0x0,0x6
0408 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0409 603e |`> | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008147}
040a e001 | | Load 0x0,0x1
040b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
040c e006 | | Load 0x0,0x6
040d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
040e 6039 |`9 | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008147}
040f e001 | | Load 0x0,0x1
0410 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0411 00db | | Load_Top At_Offset_3
0412 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0413 00da | | Load_Top At_Offset_2
0414 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0415 8406 | | Call 0x2,0x6
0416 0831 | 1 | Execute_Immediate Raise,0x31
0417 TRAP_03d0:
0417 e001 | | Load 0x0,0x1
0418 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0419 010f | | Execute Exception,Equal
041a 6812 |h | Jump_Zero 0x42d
041b e001 | | Load 0x0,0x1
041c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
041d e404 | | Load 0x2,0x4
041e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
041f e402 | | Load 0x2,0x2
0420 e002 | | Load 0x0,0x2
0421 180f | | Execute Package,Field_Execute,Field_Number 0xf
0422 7008 |p | Jump_Nonzero 0x42b
0423 e001 | | Load 0x0,0x1
0424 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0425 e402 | | Load 0x2,0x2
0426 e5fc | | Load 0x2,-0x4
0427 e002 | | Load 0x0,0x2
0428 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0429 c402 | | Store 0x2,0x2
042a c403 | | Store 0x2,0x3
042b 00db | | Load_Top At_Offset_3
042c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
042d e5fc | | Load 0x2,-0x4
042e 0092 1ace | | Action Push_String_Extended,0x1ace ; "Rcf_Unit.Remote_Unit_Name"
0430 e005 | | Load 0x0,0x5
0431 180f | | Execute Package,Field_Execute,Field_Number 0xf
0432 0092 1ace | | Action Push_String_Extended,0x1ace ; "Rcf_Unit.Remote_Unit_Name"
0434 e005 | | Load 0x0,0x5
0435 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0436 e404 | | Load 0x2,0x4
0437 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0438 e402 | | Load 0x2,0x2
0439 e002 | | Load 0x0,0x2
043a 180f | | Execute Package,Field_Execute,Field_Number 0xf
043b 7008 |p | Jump_Nonzero 0x444
043c e001 | | Load 0x0,0x1
043d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043e e402 | | Load 0x2,0x2
043f e5fc | | Load 0x2,-0x4
0440 e002 | | Load 0x0,0x2
0441 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0442 c402 | | Store 0x2,0x2
0443 c403 | | Store 0x2,0x3
0444 00db | | Load_Top At_Offset_3
0445 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0446 0000 0000 | | .XXX[0x2]
0448 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
044c 0000 0000 | | .BLANK 0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0464 | d | .CONST 0x0464 ; Address of begin
0451 0496 | | .CONST 0x0496 ; Address of exception handler
0452 0006 | | .CONST 0x0006 ; Number of locals
0453 INIT_0450:
0453 e002 | | Load 0x0,0x2
0454 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0455 e001 | | Load 0x0,0x1
0456 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0457 4800 |H | Short_Literal 0x0
0458 e20d | | Load 0x1,0xd
0459 1c08 | | Execute_Immediate Run_Utility,0x8
045a e003 | | Load 0x0,0x3
045b 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
045c 0322 | " | Declare_Variable Record
045d e5fe | | Load 0x2,-0x2
045e e003 | | Load 0x0,0x3
045f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0460 00d9 | | Load_Top At_Offset_1
0461 017d | } | Execute Record,Structure_Write
0462 029f 1823 | #| Declare_Subprogram INIT_1820,For_Call
0464 BODY_0450:
0464 e5fc | | Load 0x2,-0x4
0465 0092 1acf | | Action Push_String_Extended,0x1acf ; "Rcf_Unit.Full_Remote_Unit_Name"
0467 e005 | | Load 0x0,0x5
0468 180e | | Execute Package,Field_Execute,Field_Number 0xe
0469 e001 | | Load 0x0,0x1
046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046b e002 | | Load 0x0,0x2
046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046d e5fc | | Load 0x2,-0x4
046e 4801 |H | Short_Literal 0x1
046f 4801 |H | Short_Literal 0x1
0470 4800 |H | Short_Literal 0x0
0471 e405 | | Load 0x2,0x5
0472 e5ff | | Load 0x2,-0x1
0473 e002 | | Load 0x0,0x2
0474 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0475 c402 | | Store 0x2,0x2
0476 c403 | | Store 0x2,0x3
0477 4800 |H | Short_Literal 0x0
0478 e403 | | Load 0x2,0x3
0479 e001 | | Load 0x0,0x1
047a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
047b 7005 |p | Jump_Nonzero 0x481
047c 00db | | Load_Top At_Offset_3
047d 00db | | Load_Top At_Offset_3
047e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
047f 00da | | Load_Top At_Offset_2
0480 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0481 e402 | | Load 0x2,0x2
0482 e002 | | Load 0x0,0x2
0483 180f | | Execute Package,Field_Execute,Field_Number 0xf
0484 680f |h | Jump_Zero 0x494
0485 e5fc | | Load 0x2,-0x4
0486 e006 | | Load 0x0,0x6
0487 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0488 67bf |g | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008147}
0489 e001 | | Load 0x0,0x1
048a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
048b e006 | | Load 0x0,0x6
048c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
048d 67ba |g | Indirect_Literal Discrete,0x448,{0x00000000, 0x00008147}
048e e001 | | Load 0x0,0x1
048f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0490 00db | | Load_Top At_Offset_3
0491 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0492 00da | | Load_Top At_Offset_2
0493 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0494 8406 | | Call 0x2,0x6
0495 0831 | 1 | Execute_Immediate Raise,0x31
0496 TRAP_0450:
0496 e001 | | Load 0x0,0x1
0497 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0498 010f | | Execute Exception,Equal
0499 6812 |h | Jump_Zero 0x4ac
049a e001 | | Load 0x0,0x1
049b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
049c e404 | | Load 0x2,0x4
049d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
049e e402 | | Load 0x2,0x2
049f e002 | | Load 0x0,0x2
04a0 180f | | Execute Package,Field_Execute,Field_Number 0xf
04a1 7008 |p | Jump_Nonzero 0x4aa
04a2 e001 | | Load 0x0,0x1
04a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a4 e402 | | Load 0x2,0x2
04a5 e5fc | | Load 0x2,-0x4
04a6 e002 | | Load 0x0,0x2
04a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04a8 c402 | | Store 0x2,0x2
04a9 c403 | | Store 0x2,0x3
04aa 00db | | Load_Top At_Offset_3
04ab 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04ac e5fc | | Load 0x2,-0x4
04ad 0092 1acf | | Action Push_String_Extended,0x1acf ; "Rcf_Unit.Full_Remote_Unit_Name"
04af e005 | | Load 0x0,0x5
04b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
04b1 0092 1acf | | Action Push_String_Extended,0x1acf ; "Rcf_Unit.Full_Remote_Unit_Name"
04b3 e005 | | Load 0x0,0x5
04b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04b5 e404 | | Load 0x2,0x4
04b6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04b7 e402 | | Load 0x2,0x2
04b8 e002 | | Load 0x0,0x2
04b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
04ba 7008 |p | Jump_Nonzero 0x4c3
04bb e001 | | Load 0x0,0x1
04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bd e402 | | Load 0x2,0x2
04be e5fc | | Load 0x2,-0x4
04bf e002 | | Load 0x0,0x2
04c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04c1 c402 | | Store 0x2,0x2
04c2 c403 | | Store 0x2,0x3
04c3 00db | | Load_Top At_Offset_3
04c4 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04c5 0000 0000 | | .XXX[0x3]
04c7 0000 | |
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04e5 | | .CONST 0x04e5 ; Address of begin
04c9 04ed | | .CONST 0x04ed ; Address of exception handler
04ca 0006 | | .CONST 0x0006 ; Number of locals
04cb INIT_04c8:
04cb e003 | | Load 0x0,0x3
04cc 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
04cd 0322 | " | Declare_Variable Record
04ce e5fe | | Load 0x2,-0x2
04cf e003 | | Load 0x0,0x3
04d0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
04d1 00d9 | | Load_Top At_Offset_1
04d2 017d | } | Execute Record,Structure_Write
04d3 e5fc | | Load 0x2,-0x4
04d4 e5fe | | Load 0x2,-0x2
04d5 e5ff | | Load 0x2,-0x1
04d6 e008 | | Load 0x0,0x8
04d7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04d8 00d8 | | Load_Top At_Offset_0
04d9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04da e5fd | | Load 0x2,-0x3
04db 00db | | Load_Top At_Offset_3
04dc e003 | | Load 0x0,0x3
04dd 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
04de 4800 |H | Short_Literal 0x0
04df e20d | | Load 0x1,0xd
04e0 1c08 | | Execute_Immediate Run_Utility,0x8
04e1 00d9 | | Load_Top At_Offset_1
04e2 01db | | Execute Vector,Length
04e3 e20d | | Load 0x1,0xd
04e4 1c08 | | Execute_Immediate Run_Utility,0x8
04e5 BODY_04c8:
04e5 00da | | Load_Top At_Offset_2
04e6 00d9 | | Load_Top At_Offset_1
04e7 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
04e8 4800 |H | Short_Literal 0x0
04e9 00d9 | | Load_Top At_Offset_1
04ea 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04eb 00d8 | | Load_Top At_Offset_0
04ec 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04ed TRAP_04c8:
04ed e001 | | Load 0x0,0x1
04ee 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04ef 010f | | Execute Exception,Equal
04f0 6806 |h | Jump_Zero 0x4f7
04f1 e001 | | Load 0x0,0x1
04f2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04f3 00db | | Load_Top At_Offset_3
04f4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04f5 00da | | Load_Top At_Offset_2
04f6 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04f7 e5fc | | Load 0x2,-0x4
04f8 0092 1acf | | Action Push_String_Extended,0x1acf ; "Rcf_Unit.Full_Remote_Unit_Name"
04fa e005 | | Load 0x0,0x5
04fb 180f | | Execute Package,Field_Execute,Field_Number 0xf
04fc 0092 1ad0 | | Action Push_String_Extended,0x1ad0 ; "Full_Remote_Unit_Name"
04fe e005 | | Load 0x0,0x5
04ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0500 00db | | Load_Top At_Offset_3
0501 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0502 00da | | Load_Top At_Offset_2
0503 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0504 0000 0000 | | .BLANK 0000[0x4]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0518 | | .CONST 0x0518 ; Address of begin
0509 056b | k | .CONST 0x056b ; Address of exception handler
050a 0004 | | .CONST 0x0004 ; Number of locals
050b INIT_0508:
050b e002 | | Load 0x0,0x2
050c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050d e001 | | Load 0x0,0x1
050e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0510 e003 | | Load 0x0,0x3
0511 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0512 0322 | " | Declare_Variable Record
0513 e5fc | | Load 0x2,-0x4
0514 e003 | | Load 0x0,0x3
0515 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0516 00d9 | | Load_Top At_Offset_1
0517 017d | } | Execute Record,Structure_Write
0518 BODY_0508:
0518 e5fb | | Load 0x2,-0x5
0519 0092 1ad1 | | Action Push_String_Extended,0x1ad1 ; "Rcf_Unit.Set_Remote_Unit_Name"
051b e005 | | Load 0x0,0x5
051c 180e | | Execute Package,Field_Execute,Field_Number 0xe
051d 4800 |H | Short_Literal 0x0
051e a5fa | | Store_Unchecked 0x2,-0x6
051f e001 | | Load 0x0,0x1
0520 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0521 e002 | | Load 0x0,0x2
0522 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0523 e5fb | | Load 0x2,-0x5
0524 4800 |H | Short_Literal 0x0
0525 4801 |H | Short_Literal 0x1
0526 4801 |H | Short_Literal 0x1
0527 e404 | | Load 0x2,0x4
0528 e5ff | | Load 0x2,-0x1
0529 e002 | | Load 0x0,0x2
052a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
052b c402 | | Store 0x2,0x2
052c 005a | Z | Store_Top Discrete,At_Offset_2
052d 4800 |H | Short_Literal 0x0
052e 00da | | Load_Top At_Offset_2
052f e001 | | Load 0x0,0x1
0530 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0531 7003 |p | Jump_Nonzero 0x535
0532 00d9 | | Load_Top At_Offset_1
0533 a5fa | | Store_Unchecked 0x2,-0x6
0534 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0535 00da | | Load_Top At_Offset_2
0536 e002 | | Load 0x0,0x2
0537 180f | | Execute Package,Field_Execute,Field_Number 0xf
0538 680d |h | Jump_Zero 0x546
0539 e5fb | | Load 0x2,-0x5
053a e006 | | Load 0x0,0x6
053b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
053c 605b |`[ | Indirect_Literal Discrete,0x598,{0x00000000, 0x00008147}
053d e001 | | Load 0x0,0x1
053e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
053f e006 | | Load 0x0,0x6
0540 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0541 6056 |`V | Indirect_Literal Discrete,0x598,{0x00000000, 0x00008147}
0542 e001 | | Load 0x0,0x1
0543 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0544 a5fa | | Store_Unchecked 0x2,-0x6
0545 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0546 e001 | | Load 0x0,0x1
0547 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0548 00db | | Load_Top At_Offset_3
0549 e5fb | | Load 0x2,-0x5
054a 00db | | Load_Top At_Offset_3
054b e5fd | | Load 0x2,-0x3
054c e5fe | | Load 0x2,-0x2
054d e009 | | Load 0x0,0x9
054e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
054f 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
0550 c402 | | Store 0x2,0x2
0551 005a | Z | Store_Top Discrete,At_Offset_2
0552 4800 |H | Short_Literal 0x0
0553 00da | | Load_Top At_Offset_2
0554 e001 | | Load 0x0,0x1
0555 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0556 700b |p | Jump_Nonzero 0x562
0557 00d9 | | Load_Top At_Offset_1
0558 a5fa | | Store_Unchecked 0x2,-0x6
0559 e001 | | Load 0x0,0x1
055a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
055b 00db | | Load_Top At_Offset_3
055c e5fb | | Load 0x2,-0x5
055d e002 | | Load 0x0,0x2
055e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
055f c402 | | Store 0x2,0x2
0560 005a | Z | Store_Top Discrete,At_Offset_2
0561 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0562 e001 | | Load 0x0,0x1
0563 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0564 00db | | Load_Top At_Offset_3
0565 e5fb | | Load 0x2,-0x5
0566 e002 | | Load 0x0,0x2
0567 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0568 c402 | | Store 0x2,0x2
0569 c5fa | | Store 0x2,-0x6
056a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
056b TRAP_0508:
056b e001 | | Load 0x0,0x1
056c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
056d 010f | | Execute Exception,Equal
056e 6810 |h | Jump_Zero 0x57f
056f e001 | | Load 0x0,0x1
0570 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0571 a5fa | | Store_Unchecked 0x2,-0x6
0572 00db | | Load_Top At_Offset_3
0573 e002 | | Load 0x0,0x2
0574 180f | | Execute Package,Field_Execute,Field_Number 0xf
0575 7008 |p | Jump_Nonzero 0x57e
0576 e001 | | Load 0x0,0x1
0577 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0578 e402 | | Load 0x2,0x2
0579 e5fb | | Load 0x2,-0x5
057a e002 | | Load 0x0,0x2
057b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
057c c402 | | Store 0x2,0x2
057d 005b | [ | Store_Top Discrete,At_Offset_3
057e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
057f e5fb | | Load 0x2,-0x5
0580 0092 1ad1 | | Action Push_String_Extended,0x1ad1 ; "Rcf_Unit.Set_Remote_Unit_Name"
0582 e005 | | Load 0x0,0x5
0583 180f | | Execute Package,Field_Execute,Field_Number 0xf
0584 0092 1ad1 | | Action Push_String_Extended,0x1ad1 ; "Rcf_Unit.Set_Remote_Unit_Name"
0586 e005 | | Load 0x0,0x5
0587 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0588 a5fa | | Store_Unchecked 0x2,-0x6
0589 00db | | Load_Top At_Offset_3
058a e002 | | Load 0x0,0x2
058b 180f | | Execute Package,Field_Execute,Field_Number 0xf
058c 7008 |p | Jump_Nonzero 0x595
058d e001 | | Load 0x0,0x1
058e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058f e402 | | Load 0x2,0x2
0590 e5fb | | Load 0x2,-0x5
0591 e002 | | Load 0x0,0x2
0592 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0593 c402 | | Store 0x2,0x2
0594 005b | [ | Store_Top Discrete,At_Offset_3
0595 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0596 0000 0000 | | .XXX[0x2]
0598 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
059c 0000 0000 | | .BLANK 0000[0x4]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05b2 | | .CONST 0x05b2 ; Address of begin
05a1 05e6 | | .CONST 0x05e6 ; Address of exception handler
05a2 0005 | | .CONST 0x0005 ; Number of locals
05a3 INIT_05a0:
05a3 e002 | | Load 0x0,0x2
05a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a5 e001 | | Load 0x0,0x1
05a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05a8 e003 | | Load 0x0,0x3
05a9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
05aa 0322 | " | Declare_Variable Record
05ab e5fd | | Load 0x2,-0x3
05ac e003 | | Load 0x0,0x3
05ad 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
05ae 00d9 | | Load_Top At_Offset_1
05af 017d | } | Execute Record,Structure_Write
05b0 029f 1843 | C| Declare_Subprogram INIT_1840,For_Call
05b2 BODY_05a0:
05b2 4800 |H | Short_Literal 0x0
05b3 a5fa | | Store_Unchecked 0x2,-0x6
05b4 e009 | | Load 0x0,0x9
05b5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
05b6 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
05b7 c5fb | | Store 0x2,-0x5
05b8 e5fc | | Load 0x2,-0x4
05b9 0092 1ad2 | | Action Push_String_Extended,0x1ad2 ; "Rcf_Unit.Local_Update_Time"
05bb e005 | | Load 0x0,0x5
05bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
05bd e001 | | Load 0x0,0x1
05be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05bf e002 | | Load 0x0,0x2
05c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c1 e5fc | | Load 0x2,-0x4
05c2 4801 |H | Short_Literal 0x1
05c3 4801 |H | Short_Literal 0x1
05c4 4800 |H | Short_Literal 0x0
05c5 e404 | | Load 0x2,0x4
05c6 e5ff | | Load 0x2,-0x1
05c7 e002 | | Load 0x0,0x2
05c8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05c9 c402 | | Store 0x2,0x2
05ca 005b | [ | Store_Top Discrete,At_Offset_3
05cb 4800 |H | Short_Literal 0x0
05cc 00db | | Load_Top At_Offset_3
05cd e001 | | Load 0x0,0x1
05ce 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05cf 7003 |p | Jump_Nonzero 0x5d3
05d0 00da | | Load_Top At_Offset_2
05d1 a5fa | | Store_Unchecked 0x2,-0x6
05d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05d3 00db | | Load_Top At_Offset_3
05d4 e002 | | Load 0x0,0x2
05d5 180f | | Execute Package,Field_Execute,Field_Number 0xf
05d6 680d |h | Jump_Zero 0x5e4
05d7 e5fc | | Load 0x2,-0x4
05d8 e006 | | Load 0x0,0x6
05d9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05da 67bd |g | Indirect_Literal Discrete,0x598,{0x00000000, 0x00008147}
05db e001 | | Load 0x0,0x1
05dc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05dd e006 | | Load 0x0,0x6
05de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05df 67b8 |g | Indirect_Literal Discrete,0x598,{0x00000000, 0x00008147}
05e0 e001 | | Load 0x0,0x1
05e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05e2 a5fa | | Store_Unchecked 0x2,-0x6
05e3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05e4 8405 | | Call 0x2,0x5
05e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05e6 TRAP_05a0:
05e6 e001 | | Load 0x0,0x1
05e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05e8 010f | | Execute Exception,Equal
05e9 6810 |h | Jump_Zero 0x5fa
05ea e001 | | Load 0x0,0x1
05eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05ec a5fa | | Store_Unchecked 0x2,-0x6
05ed e402 | | Load 0x2,0x2
05ee e002 | | Load 0x0,0x2
05ef 180f | | Execute Package,Field_Execute,Field_Number 0xf
05f0 7008 |p | Jump_Nonzero 0x5f9
05f1 e001 | | Load 0x0,0x1
05f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f3 e402 | | Load 0x2,0x2
05f4 e5fc | | Load 0x2,-0x4
05f5 e002 | | Load 0x0,0x2
05f6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05f7 c402 | | Store 0x2,0x2
05f8 c403 | | Store 0x2,0x3
05f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05fa e5fc | | Load 0x2,-0x4
05fb 0092 1ad2 | | Action Push_String_Extended,0x1ad2 ; "Rcf_Unit.Local_Update_Time"
05fd e005 | | Load 0x0,0x5
05fe 180f | | Execute Package,Field_Execute,Field_Number 0xf
05ff 0092 1ad2 | | Action Push_String_Extended,0x1ad2 ; "Rcf_Unit.Local_Update_Time"
0601 e005 | | Load 0x0,0x5
0602 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0603 a5fa | | Store_Unchecked 0x2,-0x6
0604 e402 | | Load 0x2,0x2
0605 e002 | | Load 0x0,0x2
0606 180f | | Execute Package,Field_Execute,Field_Number 0xf
0607 7008 |p | Jump_Nonzero 0x610
0608 e001 | | Load 0x0,0x1
0609 1b0d | | Execute Package,Field_Read,Field_Number 0xd
060a e402 | | Load 0x2,0x2
060b e5fc | | Load 0x2,-0x4
060c e002 | | Load 0x0,0x2
060d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
060e c402 | | Store 0x2,0x2
060f c403 | | Store 0x2,0x3
0610 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0611 0000 0000 | | .BLANK 0000[0x7]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0628 | ( | .CONST 0x0628 ; Address of begin
0619 0684 | | .CONST 0x0684 ; Address of exception handler
061a 0004 | | .CONST 0x0004 ; Number of locals
061b INIT_0618:
061b e002 | | Load 0x0,0x2
061c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
061d e001 | | Load 0x0,0x1
061e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
061f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0620 e003 | | Load 0x0,0x3
0621 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0622 0322 | " | Declare_Variable Record
0623 e5fc | | Load 0x2,-0x4
0624 e003 | | Load 0x0,0x3
0625 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0626 00d9 | | Load_Top At_Offset_1
0627 017d | } | Execute Record,Structure_Write
0628 BODY_0618:
0628 e5fb | | Load 0x2,-0x5
0629 0092 1ad3 | | Action Push_String_Extended,0x1ad3 ; "Rcf_Unit.Set_Local_Update_Time: Time = "
062b 4800 |H | Short_Literal 0x0
062c 4800 |H | Short_Literal 0x0
062d 4800 |H | Short_Literal 0x0
062e e5fd | | Load 0x2,-0x3
062f e00a | | Load 0x0,0xa
0630 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0631 e00a | | Load 0x0,0xa
0632 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0633 01cc | | Execute Vector,Catenate
0634 e005 | | Load 0x0,0x5
0635 180e | | Execute Package,Field_Execute,Field_Number 0xe
0636 4800 |H | Short_Literal 0x0
0637 a5fa | | Store_Unchecked 0x2,-0x6
0638 e001 | | Load 0x0,0x1
0639 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063a e002 | | Load 0x0,0x2
063b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063c e5fb | | Load 0x2,-0x5
063d 4800 |H | Short_Literal 0x0
063e 4801 |H | Short_Literal 0x1
063f 4801 |H | Short_Literal 0x1
0640 e404 | | Load 0x2,0x4
0641 e5ff | | Load 0x2,-0x1
0642 e002 | | Load 0x0,0x2
0643 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0644 c402 | | Store 0x2,0x2
0645 005a | Z | Store_Top Discrete,At_Offset_2
0646 4800 |H | Short_Literal 0x0
0647 00da | | Load_Top At_Offset_2
0648 e001 | | Load 0x0,0x1
0649 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
064a 7003 |p | Jump_Nonzero 0x64e
064b 00d9 | | Load_Top At_Offset_1
064c a5fa | | Store_Unchecked 0x2,-0x6
064d 4506 |E | Exit_Suprogram New_Top_Offset 0x6
064e 00da | | Load_Top At_Offset_2
064f e002 | | Load 0x0,0x2
0650 180f | | Execute Package,Field_Execute,Field_Number 0xf
0651 680d |h | Jump_Zero 0x65f
0652 e5fb | | Load 0x2,-0x5
0653 e006 | | Load 0x0,0x6
0654 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0655 605a |`Z | Indirect_Literal Discrete,0x6b0,{0x00000000, 0x00008147}
0656 e001 | | Load 0x0,0x1
0657 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0658 e006 | | Load 0x0,0x6
0659 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
065a 6055 |`U | Indirect_Literal Discrete,0x6b0,{0x00000000, 0x00008147}
065b e001 | | Load 0x0,0x1
065c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
065d a5fa | | Store_Unchecked 0x2,-0x6
065e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
065f e001 | | Load 0x0,0x1
0660 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0661 00db | | Load_Top At_Offset_3
0662 e5fb | | Load 0x2,-0x5
0663 00db | | Load_Top At_Offset_3
0664 e5fd | | Load 0x2,-0x3
0665 e5fe | | Load 0x2,-0x2
0666 e009 | | Load 0x0,0x9
0667 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0668 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0669 c402 | | Store 0x2,0x2
066a 005a | Z | Store_Top Discrete,At_Offset_2
066b 4800 |H | Short_Literal 0x0
066c 00da | | Load_Top At_Offset_2
066d e001 | | Load 0x0,0x1
066e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
066f 700b |p | Jump_Nonzero 0x67b
0670 00d9 | | Load_Top At_Offset_1
0671 a5fa | | Store_Unchecked 0x2,-0x6
0672 e001 | | Load 0x0,0x1
0673 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0674 00db | | Load_Top At_Offset_3
0675 e5fb | | Load 0x2,-0x5
0676 e002 | | Load 0x0,0x2
0677 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0678 c402 | | Store 0x2,0x2
0679 005a | Z | Store_Top Discrete,At_Offset_2
067a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
067b e001 | | Load 0x0,0x1
067c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067d 00db | | Load_Top At_Offset_3
067e e5fb | | Load 0x2,-0x5
067f e002 | | Load 0x0,0x2
0680 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0681 c402 | | Store 0x2,0x2
0682 c5fa | | Store 0x2,-0x6
0683 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0684 TRAP_0618:
0684 e001 | | Load 0x0,0x1
0685 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0686 010f | | Execute Exception,Equal
0687 6810 |h | Jump_Zero 0x698
0688 e001 | | Load 0x0,0x1
0689 181b | | Execute Package,Field_Execute,Field_Number 0x1b
068a a5fa | | Store_Unchecked 0x2,-0x6
068b 00db | | Load_Top At_Offset_3
068c e002 | | Load 0x0,0x2
068d 180f | | Execute Package,Field_Execute,Field_Number 0xf
068e 7008 |p | Jump_Nonzero 0x697
068f e001 | | Load 0x0,0x1
0690 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0691 e402 | | Load 0x2,0x2
0692 e5fb | | Load 0x2,-0x5
0693 e002 | | Load 0x0,0x2
0694 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0695 c402 | | Store 0x2,0x2
0696 005b | [ | Store_Top Discrete,At_Offset_3
0697 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0698 e5fb | | Load 0x2,-0x5
0699 0092 1ad4 | | Action Push_String_Extended,0x1ad4 ; "Rcf_Unit.Set_Local_Update_Time"
069b e005 | | Load 0x0,0x5
069c 180f | | Execute Package,Field_Execute,Field_Number 0xf
069d 0092 1ad4 | | Action Push_String_Extended,0x1ad4 ; "Rcf_Unit.Set_Local_Update_Time"
069f e005 | | Load 0x0,0x5
06a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06a1 a5fa | | Store_Unchecked 0x2,-0x6
06a2 00db | | Load_Top At_Offset_3
06a3 e002 | | Load 0x0,0x2
06a4 180f | | Execute Package,Field_Execute,Field_Number 0xf
06a5 7008 |p | Jump_Nonzero 0x6ae
06a6 e001 | | Load 0x0,0x1
06a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a8 e402 | | Load 0x2,0x2
06a9 e5fb | | Load 0x2,-0x5
06aa e002 | | Load 0x0,0x2
06ab 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06ac c402 | | Store 0x2,0x2
06ad 005b | [ | Store_Top Discrete,At_Offset_3
06ae 4506 |E | Exit_Suprogram New_Top_Offset 0x6
06af 0000 | | .XXX[0x1]
06b0 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
06b4 0000 0000 | | .BLANK 0000[0x4]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06c2 | | .CONST 0x06c2 ; Address of begin
06b9 06d2 | | .CONST 0x06d2 ; Address of exception handler
06ba 0003 | | .CONST 0x0003 ; Number of locals
06bb INIT_06b8:
06bb 00da | | Load_Top At_Offset_2
06bc e004 | | Load 0x0,0x4
06bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06be e26f | o | Load 0x1,0x6f
06bf 0322 | " | Declare_Variable Record
06c0 00d8 | | Load_Top At_Offset_0
06c1 1c00 | | Execute_Immediate Run_Utility,0x0
06c2 BODY_06b8:
06c2 4800 |H | Short_Literal 0x0
06c3 a5fc | | Store_Unchecked 0x2,-0x4
06c4 00d8 | | Load_Top At_Offset_0
06c5 e5fe | | Load 0x2,-0x2
06c6 00db | | Load_Top At_Offset_3
06c7 82a6 | | Call 0x1,0xa6
06c8 00d1 | | Pop_Control Pop_Count_1
06c9 4801 |H | Short_Literal 0x1
06ca 00d9 | | Load_Top At_Offset_1
06cb 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
06cc 00da | | Load_Top At_Offset_2
06cd 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
06ce 01cf | | Execute Vector,Slice_Read
06cf 829e | | Call 0x1,0x9e
06d0 c5fd | | Store 0x2,-0x3
06d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06d2 TRAP_06b8:
06d2 0007 | | Action Break_Optional
06d3 6004 |` | Indirect_Literal Discrete,0x6d8,{0x00000000, 0x0000813b}
06d4 a5fc | | Store_Unchecked 0x2,-0x4
06d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06d6 0000 0000 | | .XXX[0x2]
06d8 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
06dc 0000 0000 | | .BLANK 0000[0x4]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06ec | | .CONST 0x06ec ; Address of begin
06e1 0716 | | .CONST 0x0716 ; Address of exception handler
06e2 0004 | | .CONST 0x0004 ; Number of locals
06e3 INIT_06e0:
06e3 00da | | Load_Top At_Offset_2
06e4 e004 | | Load 0x0,0x4
06e5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06e6 e26f | o | Load 0x1,0x6f
06e7 0322 | " | Declare_Variable Record
06e8 00d8 | | Load_Top At_Offset_0
06e9 1c00 | | Execute_Immediate Run_Utility,0x0
06ea e5fe | | Load 0x2,-0x2
06eb 829d | | Call 0x1,0x9d
06ec BODY_06e0:
06ec 4800 |H | Short_Literal 0x0
06ed a5fc | | Store_Unchecked 0x2,-0x4
06ee 00d9 | | Load_Top At_Offset_1
06ef e5fd | | Load 0x2,-0x3
06f0 e402 | | Load 0x2,0x2
06f1 82a6 | | Call 0x1,0xa6
06f2 00d1 | | Pop_Control Pop_Count_1
06f3 00d8 | | Load_Top At_Offset_0
06f4 4801 |H | Short_Literal 0x1
06f5 00da | | Load_Top At_Offset_2
06f6 01db | | Execute Vector,Length
06f7 00d8 | | Load_Top At_Offset_0
06f8 00e2 | | Load_Encached Integer_Cache
06f9 0260 | ` | Execute Discrete,In_Type
06fa 7001 |p | Jump_Nonzero 0x6fc
06fb 0801 | | Execute_Immediate Raise,0x1
06fc e403 | | Load 0x2,0x3
06fd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
06fe 01ce | | Execute Vector,Slice_Write
06ff 00d8 | | Load_Top At_Offset_0
0700 01db | | Execute Vector,Length
0701 00da | | Load_Top At_Offset_2
0702 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0703 e001 | | Load 0x0,0x1
0704 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0705 e5fd | | Load 0x2,-0x3
0706 e5ff | | Load 0x2,-0x1
0707 8261 | a | Call 0x1,0x61
0708 c5fc | | Store 0x2,-0x4
0709 e5fd | | Load 0x2,-0x3
070a 00da | | Load_Top At_Offset_2
070b e402 | | Load 0x2,0x2
070c 82a8 | | Call 0x1,0xa8
070d e001 | | Load 0x0,0x1
070e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
070f e5fd | | Load 0x2,-0x3
0710 e5ff | | Load 0x2,-0x1
0711 8260 | ` | Call 0x1,0x60
0712 c5fc | | Store 0x2,-0x4
0713 4800 |H | Short_Literal 0x0
0714 a5fc | | Store_Unchecked 0x2,-0x4
0715 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0716 TRAP_06e0:
0716 e00b | | Load 0x0,0xb
0717 010f | | Execute Exception,Equal
0718 6817 |h | Jump_Zero 0x730
0719 e5fd | | Load 0x2,-0x3
071a 4801 |H | Short_Literal 0x1
071b 4801 |H | Short_Literal 0x1
071c e006 | | Load 0x0,0x6
071d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
071e 035b | [ | Declare_Type Array,Constrained
071f 0337 | 7 | Declare_Variable Array
0720 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; " 128"
0722 e006 | | Load 0x0,0x6
0723 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0724 e006 | | Load 0x0,0x6
0725 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0726 0119 | | Execute Any,Check_In_Formal_Type
0727 4801 |H | Short_Literal 0x1
0728 00da | | Load_Top At_Offset_2
0729 01d6 | | Execute Vector,Field_Write
072a 6009 |` | Indirect_Literal Discrete,0x734,{0x00000000, 0x0000819e}
072b e001 | | Load 0x0,0x1
072c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
072d 6006 |` | Indirect_Literal Discrete,0x734,{0x00000000, 0x0000819e}
072e a5fc | | Store_Unchecked 0x2,-0x4
072f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0730 67a7 |g | Indirect_Literal Discrete,0x6d8,{0x00000000, 0x0000813b}
0731 a5fc | | Store_Unchecked 0x2,-0x4
0732 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0733 0000 | | .XXX[0x1]
0734 0000 0000 | | .LITERAL {0x00000000, 0x0000819e}
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0769 | i | .CONST 0x0769 ; Address of begin
0739 08a1 | | .CONST 0x08a1 ; Address of exception handler
073a 000a | | .CONST 0x000a ; Number of locals
073b INIT_0738:
073b e003 | | Load 0x0,0x3
073c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
073d 0322 | " | Declare_Variable Record
073e e5fd | | Load 0x2,-0x3
073f e003 | | Load 0x0,0x3
0740 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0741 00d9 | | Load_Top At_Offset_1
0742 017d | } | Execute Record,Structure_Write
0743 e5fe | | Load 0x2,-0x2
0744 82ac | | Call 0x1,0xac
0745 0092 1ad6 | | Action Push_String_Extended,0x1ad6 ; "Rcf_Temp_"
0747 4800 |H | Short_Literal 0x0
0748 4803 |H | Short_Literal 0x3
0749 4804 |H | Short_Literal 0x4
074a e00a | | Load 0x0,0xa
074b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
074c e00a | | Load 0x0,0xa
074d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
074e 01cc | | Execute Vector,Catenate
074f e5fe | | Load 0x2,-0x2
0750 82ab | | Call 0x1,0xab
0751 e5fa | | Load 0x2,-0x6
0752 e5fc | | Load 0x2,-0x4
0753 e5fd | | Load 0x2,-0x3
0754 e5ff | | Load 0x2,-0x1
0755 8229 | ) | Call 0x1,0x29
0756 e002 | | Load 0x0,0x2
0757 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0758 e001 | | Load 0x0,0x1
0759 1b0d | | Execute Package,Field_Read,Field_Number 0xd
075a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
075b e00c | | Load 0x0,0xc
075c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
075d 02c7 | | Declare_Variable Any
075e e00c | | Load 0x0,0xc
075f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0760 a408 | | Store_Unchecked 0x2,0x8
0761 e00d | | Load 0x0,0xd
0762 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0763 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0764 e00e | | Load 0x0,0xe
0765 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0766 02c7 | | Declare_Variable Any
0767 00d8 | | Load_Top At_Offset_0
0768 1c00 | | Execute_Immediate Run_Utility,0x0
0769 BODY_0738:
0769 e00c | | Load 0x0,0xc
076a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
076b c5f9 | | Store 0x2,-0x7
076c 4800 |H | Short_Literal 0x0
076d a5f8 | | Store_Unchecked 0x2,-0x8
076e e5fa | | Load 0x2,-0x6
076f e5ff | | Load 0x2,-0x1
0770 e004 | | Load 0x0,0x4
0771 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0772 6815 |h | Jump_Zero 0x788
0773 e5fa | | Load 0x2,-0x6
0774 4801 |H | Short_Literal 0x1
0775 4801 |H | Short_Literal 0x1
0776 e006 | | Load 0x0,0x6
0777 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0778 035b | [ | Declare_Type Array,Constrained
0779 0337 | 7 | Declare_Variable Array
077a 0092 1ad7 | | Action Push_String_Extended,0x1ad7 ; "Upload_Ada_Unit"
077c e006 | | Load 0x0,0x6
077d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
077e e006 | | Load 0x0,0x6
077f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0780 0119 | | Execute Any,Check_In_Formal_Type
0781 4801 |H | Short_Literal 0x1
0782 00da | | Load_Top At_Offset_2
0783 01d6 | | Execute Vector,Field_Write
0784 6153 |aS | Indirect_Literal Discrete,0x8d8,{0x00000000, 0x0000818f}
0785 e001 | | Load 0x0,0x1
0786 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0787 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0788 e001 | | Load 0x0,0x1
0789 1b0d | | Execute Package,Field_Read,Field_Number 0xd
078a e5fa | | Load 0x2,-0x6
078b e5ff | | Load 0x2,-0x1
078c e004 | | Load 0x0,0x4
078d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
078e 4800 |H | Short_Literal 0x0
078f e5fb | | Load 0x2,-0x5
0790 e405 | | Load 0x2,0x5
0791 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0792 e404 | | Load 0x2,0x4
0793 e00f | | Load 0x0,0xf
0794 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0795 c407 | | Store 0x2,0x7
0796 4800 |H | Short_Literal 0x0
0797 e407 | | Load 0x2,0x7
0798 e001 | | Load 0x0,0x1
0799 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
079a 7007 |p | Jump_Nonzero 0x7a2
079b e5fa | | Load 0x2,-0x6
079c e407 | | Load 0x2,0x7
079d e001 | | Load 0x0,0x1
079e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
079f 00db | | Load_Top At_Offset_3
07a0 a5f8 | | Store_Unchecked 0x2,-0x8
07a1 4507 |E | Exit_Suprogram New_Top_Offset 0x7
07a2 e5fa | | Load 0x2,-0x6
07a3 6130 |a0 | Indirect_Literal Discrete,0x8d4,{0x00000000, 0x00008191}
07a4 e001 | | Load 0x0,0x1
07a5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
07a6 e00d | | Load 0x0,0xd
07a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a8 00db | | Load_Top At_Offset_3
07a9 0120 | | Execute Any,Is_Value
07aa 6803 |h | Jump_Zero 0x7ae
07ab e00c | | Load 0x0,0xc
07ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07ad 7801 |x | Jump 0x7af
07ae 00db | | Load_Top At_Offset_3
07af e010 | | Load 0x0,0x10
07b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
07b1 e010 | | Load 0x0,0x10
07b2 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
07b3 e010 | | Load 0x0,0x10
07b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
07b5 e010 | | Load 0x0,0x10
07b6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
07b7 e010 | | Load 0x0,0x10
07b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
07b9 e010 | | Load 0x0,0x10
07ba 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
07bb e010 | | Load 0x0,0x10
07bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
07bd e010 | | Load 0x0,0x10
07be 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
07bf e010 | | Load 0x0,0x10
07c0 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07c1 0337 | 7 | Declare_Variable Array
07c2 4801 |H | Short_Literal 0x1
07c3 4805 |H | Short_Literal 0x5
07c4 00da | | Load_Top At_Offset_2
07c5 01d6 | | Execute Vector,Field_Write
07c6 4801 |H | Short_Literal 0x1
07c7 4807 |H | Short_Literal 0x7
07c8 00da | | Load_Top At_Offset_2
07c9 01d6 | | Execute Vector,Field_Write
07ca 4801 |H | Short_Literal 0x1
07cb 4808 |H | Short_Literal 0x8
07cc 00da | | Load_Top At_Offset_2
07cd 01d6 | | Execute Vector,Field_Write
07ce 4804 |H | Short_Literal 0x4
07cf 4800 |H | Short_Literal 0x0
07d0 4800 |H | Short_Literal 0x0
07d1 00d9 | | Load_Top At_Offset_1
07d2 e411 | | Load 0x2,0x11
07d3 01d6 | | Execute Vector,Field_Write
07d4 3ffb |? | Loop_Increasing 0x7d0
07d5 4800 |H | Short_Literal 0x0
07d6 4806 |H | Short_Literal 0x6
07d7 00da | | Load_Top At_Offset_2
07d8 01d6 | | Execute Vector,Field_Write
07d9 480b |H | Short_Literal 0xb
07da 4809 |H | Short_Literal 0x9
07db 4800 |H | Short_Literal 0x0
07dc 00d9 | | Load_Top At_Offset_1
07dd e411 | | Load 0x2,0x11
07de 01d6 | | Execute Vector,Field_Write
07df 3ffb |? | Loop_Increasing 0x7db
07e0 e010 | | Load 0x0,0x10
07e1 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07e2 01c3 | | Execute Vector,Check_In_Type
07e3 4802 |H | Short_Literal 0x2
07e4 e010 | | Load 0x0,0x10
07e5 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
07e6 e011 | | Load 0x0,0x11
07e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07e8 00ea | | Load_Encached Null_String_Cache
07e9 4800 |H | Short_Literal 0x0
07ea 4801 |H | Short_Literal 0x1
07eb 4804 |H | Short_Literal 0x4
07ec e403 | | Load 0x2,0x3
07ed e404 | | Load 0x2,0x4
07ee e00d | | Load 0x0,0xd
07ef 180e | | Execute Package,Field_Execute,Field_Number 0xe
07f0 c408 | | Store 0x2,0x8
07f1 005a | Z | Store_Top Discrete,At_Offset_2
07f2 00d9 | | Load_Top At_Offset_1
07f3 6827 |h' | Jump_Zero 0x81b
07f4 e5fa | | Load 0x2,-0x6
07f5 4801 |H | Short_Literal 0x1
07f6 4802 |H | Short_Literal 0x2
07f7 e006 | | Load 0x0,0x6
07f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07f9 035b | [ | Declare_Type Array,Constrained
07fa 0337 | 7 | Declare_Variable Array
07fb e404 | | Load 0x2,0x4
07fc e006 | | Load 0x0,0x6
07fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07fe e006 | | Load 0x0,0x6
07ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0800 0119 | | Execute Any,Check_In_Formal_Type
0801 4801 |H | Short_Literal 0x1
0802 00da | | Load_Top At_Offset_2
0803 01d6 | | Execute Vector,Field_Write
0804 00db | | Load_Top At_Offset_3
0805 e00d | | Load 0x0,0xd
0806 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0807 011c | | Execute Any,Convert_Unchecked
0808 1c01 | | Execute_Immediate Run_Utility,0x1
0809 e006 | | Load 0x0,0x6
080a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
080b e006 | | Load 0x0,0x6
080c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
080d 0119 | | Execute Any,Check_In_Formal_Type
080e 4802 |H | Short_Literal 0x2
080f 00da | | Load_Top At_Offset_2
0810 01d6 | | Execute Vector,Field_Write
0811 60be |` | Indirect_Literal Discrete,0x8d0,{0x00000000, 0x0000815d}
0812 e001 | | Load 0x0,0x1
0813 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0814 e006 | | Load 0x0,0x6
0815 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0816 60b9 |` | Indirect_Literal Discrete,0x8d0,{0x00000000, 0x0000815d}
0817 e001 | | Load 0x0,0x1
0818 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0819 a5f8 | | Store_Unchecked 0x2,-0x8
081a 4507 |E | Exit_Suprogram New_Top_Offset 0x7
081b 00da | | Load_Top At_Offset_2
081c c5f9 | | Store 0x2,-0x7
081d 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>"
081f 0092 1ad9 | | Action Push_String_Extended,0x1ad9 ; "<DIRECTORIES>"
0821 e404 | | Load 0x2,0x4
0822 e012 | | Load 0x0,0x12
0823 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0824 e5fa | | Load 0x2,-0x6
0825 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit"
0827 e005 | | Load 0x0,0x5
0828 180e | | Execute Package,Field_Execute,Field_Number 0xe
0829 e001 | | Load 0x0,0x1
082a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082b e002 | | Load 0x0,0x2
082c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082d e5fa | | Load 0x2,-0x6
082e 4801 |H | Short_Literal 0x1
082f 4801 |H | Short_Literal 0x1
0830 4801 |H | Short_Literal 0x1
0831 e402 | | Load 0x2,0x2
0832 e5ff | | Load 0x2,-0x1
0833 e002 | | Load 0x0,0x2
0834 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0835 c406 | | Store 0x2,0x6
0836 c407 | | Store 0x2,0x7
0837 4800 |H | Short_Literal 0x0
0838 e407 | | Load 0x2,0x7
0839 e001 | | Load 0x0,0x1
083a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
083b 7003 |p | Jump_Nonzero 0x83f
083c 00db | | Load_Top At_Offset_3
083d a5f8 | | Store_Unchecked 0x2,-0x8
083e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
083f e406 | | Load 0x2,0x6
0840 e002 | | Load 0x0,0x2
0841 180f | | Execute Package,Field_Execute,Field_Number 0xf
0842 680d |h | Jump_Zero 0x850
0843 e5fa | | Load 0x2,-0x6
0844 e006 | | Load 0x0,0x6
0845 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0846 6085 |` | Indirect_Literal Discrete,0x8cc,{0x00000000, 0x00008147}
0847 e001 | | Load 0x0,0x1
0848 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0849 e006 | | Load 0x0,0x6
084a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
084b 6080 |` | Indirect_Literal Discrete,0x8cc,{0x00000000, 0x00008147}
084c e001 | | Load 0x0,0x1
084d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
084e a5f8 | | Store_Unchecked 0x2,-0x8
084f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0850 00d8 | | Load_Top At_Offset_0
0851 0120 | | Execute Any,Is_Value
0852 6803 |h | Jump_Zero 0x856
0853 e00e | | Load 0x0,0xe
0854 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0855 7801 |x | Jump 0x857
0856 00d8 | | Load_Top At_Offset_0
0857 e001 | | Load 0x0,0x1
0858 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0859 e5fa | | Load 0x2,-0x6
085a e5ff | | Load 0x2,-0x1
085b e004 | | Load 0x0,0x4
085c 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
085d e5fb | | Load 0x2,-0x5
085e e405 | | Load 0x2,0x5
085f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0860 e00f | | Load 0x0,0xf
0861 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0862 c407 | | Store 0x2,0x7
0863 c40a | | Store 0x2,0xa
0864 4800 |H | Short_Literal 0x0
0865 e407 | | Load 0x2,0x7
0866 e001 | | Load 0x0,0x1
0867 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0868 7005 |p | Jump_Nonzero 0x86e
0869 e5fa | | Load 0x2,-0x6
086a e407 | | Load 0x2,0x7
086b e001 | | Load 0x0,0x1
086c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
086d 7828 |x( | Jump 0x896
086e e5fa | | Load 0x2,-0x6
086f 0092 1adb | | Action Push_String_Extended,0x1adb ; "Setting local download time (from remote time) to "
0871 4800 |H | Short_Literal 0x0
0872 4800 |H | Short_Literal 0x0
0873 4800 |H | Short_Literal 0x0
0874 e40a | | Load 0x2,0xa
0875 e00a | | Load 0x0,0xa
0876 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0877 e00a | | Load 0x0,0xa
0878 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0879 01cc | | Execute Vector,Catenate
087a e005 | | Load 0x0,0x5
087b 180e | | Execute Package,Field_Execute,Field_Number 0xe
087c e001 | | Load 0x0,0x1
087d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
087e e406 | | Load 0x2,0x6
087f e5fa | | Load 0x2,-0x6
0880 e402 | | Load 0x2,0x2
0881 e40a | | Load 0x2,0xa
0882 e408 | | Load 0x2,0x8
0883 e009 | | Load 0x0,0x9
0884 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0885 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0886 c406 | | Store 0x2,0x6
0887 c407 | | Store 0x2,0x7
0888 4800 |H | Short_Literal 0x0
0889 e407 | | Load 0x2,0x7
088a e001 | | Load 0x0,0x1
088b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
088c 6809 |h | Jump_Zero 0x896
088d e001 | | Load 0x0,0x1
088e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
088f e406 | | Load 0x2,0x6
0890 e5fa | | Load 0x2,-0x6
0891 e002 | | Load 0x0,0x2
0892 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0893 c406 | | Store 0x2,0x6
0894 c5f8 | | Store 0x2,-0x8
0895 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0896 00db | | Load_Top At_Offset_3
0897 a5f8 | | Store_Unchecked 0x2,-0x8
0898 e001 | | Load 0x0,0x1
0899 1b0d | | Execute Package,Field_Read,Field_Number 0xd
089a e406 | | Load 0x2,0x6
089b e5fa | | Load 0x2,-0x6
089c e002 | | Load 0x0,0x2
089d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
089e c406 | | Store 0x2,0x6
089f c407 | | Store 0x2,0x7
08a0 4507 |E | Exit_Suprogram New_Top_Offset 0x7
08a1 TRAP_0738:
08a1 e001 | | Load 0x0,0x1
08a2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08a3 010f | | Execute Exception,Equal
08a4 6810 |h | Jump_Zero 0x8b5
08a5 e001 | | Load 0x0,0x1
08a6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08a7 a5f8 | | Store_Unchecked 0x2,-0x8
08a8 e406 | | Load 0x2,0x6
08a9 e002 | | Load 0x0,0x2
08aa 180f | | Execute Package,Field_Execute,Field_Number 0xf
08ab 7008 |p | Jump_Nonzero 0x8b4
08ac e001 | | Load 0x0,0x1
08ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ae e406 | | Load 0x2,0x6
08af e5fa | | Load 0x2,-0x6
08b0 e002 | | Load 0x0,0x2
08b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08b2 c406 | | Store 0x2,0x6
08b3 c407 | | Store 0x2,0x7
08b4 4507 |E | Exit_Suprogram New_Top_Offset 0x7
08b5 e5fa | | Load 0x2,-0x6
08b6 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit"
08b8 e005 | | Load 0x0,0x5
08b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
08ba 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit"
08bc e005 | | Load 0x0,0x5
08bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08be a5f8 | | Store_Unchecked 0x2,-0x8
08bf e406 | | Load 0x2,0x6
08c0 e002 | | Load 0x0,0x2
08c1 180f | | Execute Package,Field_Execute,Field_Number 0xf
08c2 7008 |p | Jump_Nonzero 0x8cb
08c3 e001 | | Load 0x0,0x1
08c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c5 e406 | | Load 0x2,0x6
08c6 e5fa | | Load 0x2,-0x6
08c7 e002 | | Load 0x0,0x2
08c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08c9 c406 | | Store 0x2,0x6
08ca c407 | | Store 0x2,0x7
08cb 4507 |E | Exit_Suprogram New_Top_Offset 0x7
08cc 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
08d0 0000 0000 | | .LITERAL {0x00000000, 0x0000815d}
08d4 0000 0000 | | .LITERAL {0x00000000, 0x00008191}
08d8 0000 0000 | | .LITERAL {0x00000000, 0x0000818f}
08dc 0000 0000 | | .BLANK 0000[0x4]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e8 | | .CONST 0x08e8 ; Address of begin
08e1 0956 | V | .CONST 0x0956 ; Address of exception handler
08e2 0003 | | .CONST 0x0003 ; Number of locals
08e3 INIT_08e0:
08e3 e001 | | Load 0x0,0x1
08e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
08e6 e00f | | Load 0x0,0xf
08e7 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
08e8 BODY_08e0:
08e8 e00c | | Load 0x0,0xc
08e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08ea c5fa | | Store 0x2,-0x6
08eb 4800 |H | Short_Literal 0x0
08ec a5f9 | | Store_Unchecked 0x2,-0x7
08ed e5fb | | Load 0x2,-0x5
08ee e5ff | | Load 0x2,-0x1
08ef e004 | | Load 0x0,0x4
08f0 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
08f1 6817 |h | Jump_Zero 0x909
08f2 e5fb | | Load 0x2,-0x5
08f3 4801 |H | Short_Literal 0x1
08f4 4801 |H | Short_Literal 0x1
08f5 e006 | | Load 0x0,0x6
08f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08f7 035b | [ | Declare_Type Array,Constrained
08f8 0337 | 7 | Declare_Variable Array
08f9 0092 1ad7 | | Action Push_String_Extended,0x1ad7 ; "Upload_Ada_Unit"
08fb e006 | | Load 0x0,0x6
08fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08fd e006 | | Load 0x0,0x6
08fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08ff 0119 | | Execute Any,Check_In_Formal_Type
0900 4801 |H | Short_Literal 0x1
0901 00da | | Load_Top At_Offset_2
0902 01d6 | | Execute Vector,Field_Write
0903 67d4 |g | Indirect_Literal Discrete,0x8d8,{0x00000000, 0x0000818f}
0904 e001 | | Load 0x0,0x1
0905 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0906 4800 |H | Short_Literal 0x0
0907 a5f9 | | Store_Unchecked 0x2,-0x7
0908 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0909 e001 | | Load 0x0,0x1
090a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
090b e00f | | Load 0x0,0xf
090c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
090d e5fb | | Load 0x2,-0x5
090e e5ff | | Load 0x2,-0x1
090f e004 | | Load 0x0,0x4
0910 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0911 e013 | | Load 0x0,0x13
0912 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0913 e013 | | Load 0x0,0x13
0914 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0915 e013 | | Load 0x0,0x13
0916 180d | | Execute Package,Field_Execute,Field_Number 0xd
0917 e5fd | | Load 0x2,-0x3
0918 e003 | | Load 0x0,0x3
0919 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
091a e00f | | Load 0x0,0xf
091b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
091c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
091d 005a | Z | Store_Top Discrete,At_Offset_2
091e 4800 |H | Short_Literal 0x0
091f 00da | | Load_Top At_Offset_2
0920 e001 | | Load 0x0,0x1
0921 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0922 7007 |p | Jump_Nonzero 0x92a
0923 e5fb | | Load 0x2,-0x5
0924 00da | | Load_Top At_Offset_2
0925 e001 | | Load 0x0,0x1
0926 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0927 00d9 | | Load_Top At_Offset_1
0928 a5f9 | | Store_Unchecked 0x2,-0x7
0929 4506 |E | Exit_Suprogram New_Top_Offset 0x6
092a e001 | | Load 0x0,0x1
092b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092c e5fa | | Load 0x2,-0x6
092d 0120 | | Execute Any,Is_Value
092e 6803 |h | Jump_Zero 0x932
092f e00c | | Load 0x0,0xc
0930 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0931 7801 |x | Jump 0x933
0932 e5fa | | Load 0x2,-0x6
0933 e5fb | | Load 0x2,-0x5
0934 00db | | Load_Top At_Offset_3
0935 e5fc | | Load 0x2,-0x4
0936 e5fd | | Load 0x2,-0x3
0937 e5fe | | Load 0x2,-0x2
0938 e5ff | | Load 0x2,-0x1
0939 8288 | | Call 0x1,0x88
093a c5fa | | Store 0x2,-0x6
093b 005a | Z | Store_Top Discrete,At_Offset_2
093c 4800 |H | Short_Literal 0x0
093d 00da | | Load_Top At_Offset_2
093e e001 | | Load 0x0,0x1
093f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0940 700a |p | Jump_Nonzero 0x94b
0941 00d9 | | Load_Top At_Offset_1
0942 a5f9 | | Store_Unchecked 0x2,-0x7
0943 e001 | | Load 0x0,0x1
0944 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0945 4800 |H | Short_Literal 0x0
0946 00da | | Load_Top At_Offset_2
0947 e00f | | Load 0x0,0xf
0948 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0949 005a | Z | Store_Top Discrete,At_Offset_2
094a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
094b e001 | | Load 0x0,0x1
094c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
094d e5fb | | Load 0x2,-0x5
094e e5ff | | Load 0x2,-0x1
094f e004 | | Load 0x0,0x4
0950 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0951 00da | | Load_Top At_Offset_2
0952 e00f | | Load 0x0,0xf
0953 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0954 c5f9 | | Store 0x2,-0x7
0955 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0956 TRAP_08e0:
0956 e001 | | Load 0x0,0x1
0957 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0958 010f | | Execute Exception,Equal
0959 680e |h | Jump_Zero 0x968
095a e001 | | Load 0x0,0x1
095b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
095c a5f9 | | Store_Unchecked 0x2,-0x7
095d e001 | | Load 0x0,0x1
095e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
095f e5fb | | Load 0x2,-0x5
0960 e5ff | | Load 0x2,-0x1
0961 e004 | | Load 0x0,0x4
0962 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0963 00db | | Load_Top At_Offset_3
0964 e00f | | Load 0x0,0xf
0965 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0966 005b | [ | Store_Top Discrete,At_Offset_3
0967 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0968 e5fb | | Load 0x2,-0x5
0969 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit"
096b e005 | | Load 0x0,0x5
096c 180f | | Execute Package,Field_Execute,Field_Number 0xf
096d 0092 1ada | | Action Push_String_Extended,0x1ada ; "Rcf_Unit.Upload_Ada_Unit"
096f e005 | | Load 0x0,0x5
0970 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0971 a5f9 | | Store_Unchecked 0x2,-0x7
0972 e001 | | Load 0x0,0x1
0973 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0974 e5fb | | Load 0x2,-0x5
0975 e5ff | | Load 0x2,-0x1
0976 e004 | | Load 0x0,0x4
0977 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0978 00db | | Load_Top At_Offset_3
0979 e00f | | Load 0x0,0xf
097a 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
097b 005b | [ | Store_Top Discrete,At_Offset_3
097c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
097d 0000 0000 | | .XXX[0x3]
097f 0000 | |
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0995 | | .CONST 0x0995 ; Address of begin
0981 09fd | | .CONST 0x09fd ; Address of exception handler
0982 0006 | | .CONST 0x0006 ; Number of locals
0983 INIT_0980:
0983 00db | | Load_Top At_Offset_3
0984 82ac | | Call 0x1,0xac
0985 e5fb | | Load 0x2,-0x5
0986 e5fe | | Load 0x2,-0x2
0987 82ab | | Call 0x1,0xab
0988 e5f8 | | Load 0x2,-0x8
0989 e5fc | | Load 0x2,-0x4
098a e5fd | | Load 0x2,-0x3
098b e5ff | | Load 0x2,-0x1
098c 8229 | ) | Call 0x1,0x29
098d e001 | | Load 0x0,0x1
098e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
098f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0990 e00c | | Load 0x0,0xc
0991 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0992 02c7 | | Declare_Variable Any
0993 00d8 | | Load_Top At_Offset_0
0994 1c00 | | Execute_Immediate Run_Utility,0x0
0995 BODY_0980:
0995 4800 |H | Short_Literal 0x0
0996 a5f7 | | Store_Unchecked 0x2,-0x9
0997 e5f8 | | Load 0x2,-0x8
0998 4800 |H | Short_Literal 0x0
0999 e403 | | Load 0x2,0x3
099a e004 | | Load 0x0,0x4
099b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
099c c406 | | Store 0x2,0x6
099d 00d8 | | Load_Top At_Offset_0
099e e00c | | Load 0x0,0xc
099f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09a0 7028 |p( | Jump_Nonzero 0x9c9
09a1 e5f9 | | Load 0x2,-0x7
09a2 7026 |p& | Jump_Nonzero 0x9c9
09a3 e5f8 | | Load 0x2,-0x8
09a4 4801 |H | Short_Literal 0x1
09a5 4801 |H | Short_Literal 0x1
09a6 e006 | | Load 0x0,0x6
09a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09a8 035b | [ | Declare_Type Array,Constrained
09a9 0337 | 7 | Declare_Variable Array
09aa 0092 1adc | | Action Push_String_Extended,0x1adc ; "Can't upload from remote unit \x22"
09ac e5fc | | Load 0x2,-0x4
09ad 01cc | | Execute Vector,Catenate
09ae 0092 1add | | Action Push_String_Extended,0x1add ; "\x22 into existing text file \x22"
09b0 01cc | | Execute Vector,Catenate
09b1 e5fb | | Load 0x2,-0x5
09b2 01cc | | Execute Vector,Catenate
09b3 0092 1ade | | Action Push_String_Extended,0x1ade ; "\x22."
09b5 01cc | | Execute Vector,Catenate
09b6 e006 | | Load 0x0,0x6
09b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09b8 e006 | | Load 0x0,0x6
09b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09ba 0119 | | Execute Any,Check_In_Formal_Type
09bb 4801 |H | Short_Literal 0x1
09bc 00da | | Load_Top At_Offset_2
09bd 01d6 | | Execute Vector,Field_Write
09be 4807 |H | Short_Literal 0x7
09bf 6054 |`T | Indirect_Literal Discrete,0xa14,{0x00000000, 0x00008128}
09c0 e001 | | Load 0x0,0x1
09c1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
09c2 e006 | | Load 0x0,0x6
09c3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
09c4 604f |`O | Indirect_Literal Discrete,0xa14,{0x00000000, 0x00008128}
09c5 e001 | | Load 0x0,0x1
09c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09c7 a5f7 | | Store_Unchecked 0x2,-0x9
09c8 4509 |E | Exit_Suprogram New_Top_Offset 0x9
09c9 e5f8 | | Load 0x2,-0x8
09ca e5ff | | Load 0x2,-0x1
09cb e004 | | Load 0x0,0x4
09cc 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
09cd 6815 |h | Jump_Zero 0x9e3
09ce e5f8 | | Load 0x2,-0x8
09cf 4801 |H | Short_Literal 0x1
09d0 4801 |H | Short_Literal 0x1
09d1 e006 | | Load 0x0,0x6
09d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09d3 035b | [ | Declare_Type Array,Constrained
09d4 0337 | 7 | Declare_Variable Array
09d5 0092 1adf | | Action Push_String_Extended,0x1adf ; "Upload_Text_File"
09d7 e006 | | Load 0x0,0x6
09d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09d9 e006 | | Load 0x0,0x6
09da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09db 0119 | | Execute Any,Check_In_Formal_Type
09dc 4801 |H | Short_Literal 0x1
09dd 00da | | Load_Top At_Offset_2
09de 01d6 | | Execute Vector,Field_Write
09df 6030 |`0 | Indirect_Literal Discrete,0xa10,{0x00000000, 0x0000818f}
09e0 e001 | | Load 0x0,0x1
09e1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09e2 4509 |E | Exit_Suprogram New_Top_Offset 0x9
09e3 e001 | | Load 0x0,0x1
09e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09e5 e5f8 | | Load 0x2,-0x8
09e6 e5ff | | Load 0x2,-0x1
09e7 e004 | | Load 0x0,0x4
09e8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
09e9 4800 |H | Short_Literal 0x0
09ea e5fa | | Load 0x2,-0x6
09eb e404 | | Load 0x2,0x4
09ec 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09ed e403 | | Load 0x2,0x3
09ee e00f | | Load 0x0,0xf
09ef 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
09f0 005a | Z | Store_Top Discrete,At_Offset_2
09f1 4800 |H | Short_Literal 0x0
09f2 00da | | Load_Top At_Offset_2
09f3 e001 | | Load 0x0,0x1
09f4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
09f5 7006 |p | Jump_Nonzero 0x9fc
09f6 e5f8 | | Load 0x2,-0x8
09f7 00da | | Load_Top At_Offset_2
09f8 e001 | | Load 0x0,0x1
09f9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
09fa 00d9 | | Load_Top At_Offset_1
09fb a5f7 | | Store_Unchecked 0x2,-0x9
09fc 4509 |E | Exit_Suprogram New_Top_Offset 0x9
09fd TRAP_0980:
09fd e001 | | Load 0x0,0x1
09fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17
09ff 010f | | Execute Exception,Equal
0a00 6804 |h | Jump_Zero 0xa05
0a01 e001 | | Load 0x0,0x1
0a02 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a03 a5f7 | | Store_Unchecked 0x2,-0x9
0a04 4509 |E | Exit_Suprogram New_Top_Offset 0x9
0a05 e5f8 | | Load 0x2,-0x8
0a06 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; "Rcf_Unit.Upload_Text_File"
0a08 e005 | | Load 0x0,0x5
0a09 180f | | Execute Package,Field_Execute,Field_Number 0xf
0a0a 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; "Rcf_Unit.Upload_Text_File"
0a0c e005 | | Load 0x0,0x5
0a0d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a0e a5f7 | | Store_Unchecked 0x2,-0x9
0a0f 4509 |E | Exit_Suprogram New_Top_Offset 0x9
0a10 0000 0000 | | .LITERAL {0x00000000, 0x0000818f}
0a14 0000 0000 | | .LITERAL {0x00000000, 0x00008128}
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a20 | | .CONST 0x0a20 ; Address of begin
0a19 0a88 | | .CONST 0x0a88 ; Address of exception handler
0a1a 0003 | | .CONST 0x0003 ; Number of locals
0a1b INIT_0a18:
0a1b e001 | | Load 0x0,0x1
0a1c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a1d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a1e e00f | | Load 0x0,0xf
0a1f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0a20 BODY_0a18:
0a20 4800 |H | Short_Literal 0x0
0a21 a5f8 | | Store_Unchecked 0x2,-0x8
0a22 e5f9 | | Load 0x2,-0x7
0a23 e5ff | | Load 0x2,-0x1
0a24 e004 | | Load 0x0,0x4
0a25 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0a26 6817 |h | Jump_Zero 0xa3e
0a27 e5f9 | | Load 0x2,-0x7
0a28 4801 |H | Short_Literal 0x1
0a29 4801 |H | Short_Literal 0x1
0a2a e006 | | Load 0x0,0x6
0a2b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a2c 035b | [ | Declare_Type Array,Constrained
0a2d 0337 | 7 | Declare_Variable Array
0a2e 0092 1adf | | Action Push_String_Extended,0x1adf ; "Upload_Text_File"
0a30 e006 | | Load 0x0,0x6
0a31 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a32 e006 | | Load 0x0,0x6
0a33 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a34 0119 | | Execute Any,Check_In_Formal_Type
0a35 4801 |H | Short_Literal 0x1
0a36 00da | | Load_Top At_Offset_2
0a37 01d6 | | Execute Vector,Field_Write
0a38 67d7 |g | Indirect_Literal Discrete,0xa10,{0x00000000, 0x0000818f}
0a39 e001 | | Load 0x0,0x1
0a3a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a3b 4800 |H | Short_Literal 0x0
0a3c a5f8 | | Store_Unchecked 0x2,-0x8
0a3d 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0a3e e001 | | Load 0x0,0x1
0a3f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a40 e00f | | Load 0x0,0xf
0a41 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0a42 e5f9 | | Load 0x2,-0x7
0a43 e5ff | | Load 0x2,-0x1
0a44 e004 | | Load 0x0,0x4
0a45 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0a46 e013 | | Load 0x0,0x13
0a47 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a48 e013 | | Load 0x0,0x13
0a49 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a4a e013 | | Load 0x0,0x13
0a4b 180d | | Execute Package,Field_Execute,Field_Number 0xd
0a4c e5fd | | Load 0x2,-0x3
0a4d e003 | | Load 0x0,0x3
0a4e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0a4f e00f | | Load 0x0,0xf
0a50 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0a51 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0a52 005a | Z | Store_Top Discrete,At_Offset_2
0a53 4800 |H | Short_Literal 0x0
0a54 00da | | Load_Top At_Offset_2
0a55 e001 | | Load 0x0,0x1
0a56 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0a57 7007 |p | Jump_Nonzero 0xa5f
0a58 e5f9 | | Load 0x2,-0x7
0a59 00da | | Load_Top At_Offset_2
0a5a e001 | | Load 0x0,0x1
0a5b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0a5c 00d9 | | Load_Top At_Offset_1
0a5d a5f8 | | Store_Unchecked 0x2,-0x8
0a5e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0a5f e001 | | Load 0x0,0x1
0a60 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a61 e5f9 | | Load 0x2,-0x7
0a62 e5fa | | Load 0x2,-0x6
0a63 00db | | Load_Top At_Offset_3
0a64 e5fb | | Load 0x2,-0x5
0a65 e5fc | | Load 0x2,-0x4
0a66 e5fd | | Load 0x2,-0x3
0a67 e5fe | | Load 0x2,-0x2
0a68 e5ff | | Load 0x2,-0x1
0a69 828a | | Call 0x1,0x8a
0a6a 005a | Z | Store_Top Discrete,At_Offset_2
0a6b 4800 |H | Short_Literal 0x0
0a6c 00da | | Load_Top At_Offset_2
0a6d e001 | | Load 0x0,0x1
0a6e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0a6f 700d |p | Jump_Nonzero 0xa7d
0a70 00d9 | | Load_Top At_Offset_1
0a71 a5f8 | | Store_Unchecked 0x2,-0x8
0a72 e001 | | Load 0x0,0x1
0a73 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a74 e5f9 | | Load 0x2,-0x7
0a75 e5ff | | Load 0x2,-0x1
0a76 e004 | | Load 0x0,0x4
0a77 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0a78 00da | | Load_Top At_Offset_2
0a79 e00f | | Load 0x0,0xf
0a7a 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0a7b 005a | Z | Store_Top Discrete,At_Offset_2
0a7c 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0a7d e001 | | Load 0x0,0x1
0a7e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a7f e5f9 | | Load 0x2,-0x7
0a80 e5ff | | Load 0x2,-0x1
0a81 e004 | | Load 0x0,0x4
0a82 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0a83 00da | | Load_Top At_Offset_2
0a84 e00f | | Load 0x0,0xf
0a85 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0a86 c5f8 | | Store 0x2,-0x8
0a87 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0a88 TRAP_0a18:
0a88 e001 | | Load 0x0,0x1
0a89 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0a8a 010f | | Execute Exception,Equal
0a8b 680b |h | Jump_Zero 0xa97
0a8c e001 | | Load 0x0,0x1
0a8d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a8e a5f8 | | Store_Unchecked 0x2,-0x8
0a8f e001 | | Load 0x0,0x1
0a90 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a91 4800 |H | Short_Literal 0x0
0a92 00db | | Load_Top At_Offset_3
0a93 e00f | | Load 0x0,0xf
0a94 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0a95 005b | [ | Store_Top Discrete,At_Offset_3
0a96 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0a97 e5f9 | | Load 0x2,-0x7
0a98 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; "Rcf_Unit.Upload_Text_File"
0a9a e005 | | Load 0x0,0x5
0a9b 180f | | Execute Package,Field_Execute,Field_Number 0xf
0a9c 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; "Rcf_Unit.Upload_Text_File"
0a9e e005 | | Load 0x0,0x5
0a9f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0aa0 a5f8 | | Store_Unchecked 0x2,-0x8
0aa1 e001 | | Load 0x0,0x1
0aa2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0aa3 4800 |H | Short_Literal 0x0
0aa4 00db | | Load_Top At_Offset_3
0aa5 e00f | | Load 0x0,0xf
0aa6 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0aa7 005b | [ | Store_Top Discrete,At_Offset_3
0aa8 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0aa9 0000 0000 | | .BLANK 0000[0x7]
0ab0 ; --------------------------------------------------------------------------------------
0ab0 ; SUBPROGRAM
0ab0 ; --------------------------------------------------------------------------------------
0ab0 0ac0 | | .CONST 0x0ac0 ; Address of begin
0ab1 0b03 | | .CONST 0x0b03 ; Address of exception handler
0ab2 0004 | | .CONST 0x0004 ; Number of locals
0ab3 INIT_0ab0:
0ab3 e00e | | Load 0x0,0xe
0ab4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ab5 02c7 | | Declare_Variable Any
0ab6 00d8 | | Load_Top At_Offset_0
0ab7 1c00 | | Execute_Immediate Run_Utility,0x0
0ab8 e5fb | | Load 0x2,-0x5
0ab9 e5fe | | Load 0x2,-0x2
0aba e5fd | | Load 0x2,-0x3
0abb e5ff | | Load 0x2,-0x1
0abc 8228 | ( | Call 0x1,0x28
0abd e001 | | Load 0x0,0x1
0abe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0abf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0ac0 BODY_0ab0:
0ac0 e5fb | | Load 0x2,-0x5
0ac1 e5ff | | Load 0x2,-0x1
0ac2 e004 | | Load 0x0,0x4
0ac3 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0ac4 6817 |h | Jump_Zero 0xadc
0ac5 e5fb | | Load 0x2,-0x5
0ac6 4801 |H | Short_Literal 0x1
0ac7 4801 |H | Short_Literal 0x1
0ac8 e006 | | Load 0x0,0x6
0ac9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0aca 035b | [ | Declare_Type Array,Constrained
0acb 0337 | 7 | Declare_Variable Array
0acc 0092 1ae1 | | Action Push_String_Extended,0x1ae1 ; "Update_Consistency"
0ace e006 | | Load 0x0,0x6
0acf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ad0 e006 | | Load 0x0,0x6
0ad1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ad2 0119 | | Execute Any,Check_In_Formal_Type
0ad3 4801 |H | Short_Literal 0x1
0ad4 00da | | Load_Top At_Offset_2
0ad5 01d6 | | Execute Vector,Field_Write
0ad6 6041 |`A | Indirect_Literal Discrete,0xb18,{0x00000000, 0x0000818f}
0ad7 e001 | | Load 0x0,0x1
0ad8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ad9 4800 |H | Short_Literal 0x0
0ada a5fa | | Store_Unchecked 0x2,-0x6
0adb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0adc 00da | | Load_Top At_Offset_2
0add 0120 | | Execute Any,Is_Value
0ade 6803 |h | Jump_Zero 0xae2
0adf e00e | | Load 0x0,0xe
0ae0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ae1 7801 |x | Jump 0xae3
0ae2 00da | | Load_Top At_Offset_2
0ae3 e001 | | Load 0x0,0x1
0ae4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ae5 4800 |H | Short_Literal 0x0
0ae6 e5fc | | Load 0x2,-0x4
0ae7 e403 | | Load 0x2,0x3
0ae8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ae9 e00f | | Load 0x0,0xf
0aea 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0aeb 005a | Z | Store_Top Discrete,At_Offset_2
0aec c402 | | Store 0x2,0x2
0aed 4800 |H | Short_Literal 0x0
0aee 00d9 | | Load_Top At_Offset_1
0aef e001 | | Load 0x0,0x1
0af0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0af1 7005 |p | Jump_Nonzero 0xaf7
0af2 e5fb | | Load 0x2,-0x5
0af3 00d9 | | Load_Top At_Offset_1
0af4 e001 | | Load 0x0,0x1
0af5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0af6 7809 |x | Jump 0xb00
0af7 e001 | | Load 0x0,0x1
0af8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0af9 e5fb | | Load 0x2,-0x5
0afa e5fd | | Load 0x2,-0x3
0afb e402 | | Load 0x2,0x2
0afc e5fe | | Load 0x2,-0x2
0afd e5ff | | Load 0x2,-0x1
0afe 822c | , | Call 0x1,0x2c
0aff 0059 | Y | Store_Top Discrete,At_Offset_1
0b00 00d8 | | Load_Top At_Offset_0
0b01 a5fa | | Store_Unchecked 0x2,-0x6
0b02 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0b03 TRAP_0ab0:
0b03 e001 | | Load 0x0,0x1
0b04 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b05 010f | | Execute Exception,Equal
0b06 6804 |h | Jump_Zero 0xb0b
0b07 e001 | | Load 0x0,0x1
0b08 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b09 a5fa | | Store_Unchecked 0x2,-0x6
0b0a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0b0b e5fb | | Load 0x2,-0x5
0b0c 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; "Rcf_Unit.Update_Consistency"
0b0e e005 | | Load 0x0,0x5
0b0f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b10 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; "Rcf_Unit.Update_Consistency"
0b12 e005 | | Load 0x0,0x5
0b13 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b14 a5fa | | Store_Unchecked 0x2,-0x6
0b15 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0b16 0000 0000 | | .XXX[0x2]
0b18 0000 0000 | | .LITERAL {0x00000000, 0x0000818f}
0b1c 0000 0000 | | .BLANK 0000[0x4]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b28 | ( | .CONST 0x0b28 ; Address of begin
0b21 0b84 | | .CONST 0x0b84 ; Address of exception handler
0b22 0003 | | .CONST 0x0003 ; Number of locals
0b23 INIT_0b20:
0b23 e001 | | Load 0x0,0x1
0b24 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b25 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b26 e00f | | Load 0x0,0xf
0b27 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0b28 BODY_0b20:
0b28 4800 |H | Short_Literal 0x0
0b29 a5fb | | Store_Unchecked 0x2,-0x5
0b2a e5fc | | Load 0x2,-0x4
0b2b e5ff | | Load 0x2,-0x1
0b2c e004 | | Load 0x0,0x4
0b2d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0b2e 6817 |h | Jump_Zero 0xb46
0b2f e5fc | | Load 0x2,-0x4
0b30 4801 |H | Short_Literal 0x1
0b31 4801 |H | Short_Literal 0x1
0b32 e006 | | Load 0x0,0x6
0b33 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b34 035b | [ | Declare_Type Array,Constrained
0b35 0337 | 7 | Declare_Variable Array
0b36 0092 1ae1 | | Action Push_String_Extended,0x1ae1 ; "Update_Consistency"
0b38 e006 | | Load 0x0,0x6
0b39 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b3a e006 | | Load 0x0,0x6
0b3b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b3c 0119 | | Execute Any,Check_In_Formal_Type
0b3d 4801 |H | Short_Literal 0x1
0b3e 00da | | Load_Top At_Offset_2
0b3f 01d6 | | Execute Vector,Field_Write
0b40 67d7 |g | Indirect_Literal Discrete,0xb18,{0x00000000, 0x0000818f}
0b41 e001 | | Load 0x0,0x1
0b42 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b43 4800 |H | Short_Literal 0x0
0b44 a5fb | | Store_Unchecked 0x2,-0x5
0b45 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b46 e001 | | Load 0x0,0x1
0b47 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b48 e00f | | Load 0x0,0xf
0b49 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0b4a 4800 |H | Short_Literal 0x0
0b4b e013 | | Load 0x0,0x13
0b4c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b4d e013 | | Load 0x0,0x13
0b4e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b4f e013 | | Load 0x0,0x13
0b50 180d | | Execute Package,Field_Execute,Field_Number 0xd
0b51 e5fd | | Load 0x2,-0x3
0b52 e003 | | Load 0x0,0x3
0b53 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0b54 e00f | | Load 0x0,0xf
0b55 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0b56 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0b57 005a | Z | Store_Top Discrete,At_Offset_2
0b58 4800 |H | Short_Literal 0x0
0b59 00da | | Load_Top At_Offset_2
0b5a e001 | | Load 0x0,0x1
0b5b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b5c 7007 |p | Jump_Nonzero 0xb64
0b5d e5fc | | Load 0x2,-0x4
0b5e 00da | | Load_Top At_Offset_2
0b5f e001 | | Load 0x0,0x1
0b60 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0b61 00d9 | | Load_Top At_Offset_1
0b62 a5fb | | Store_Unchecked 0x2,-0x5
0b63 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b64 e001 | | Load 0x0,0x1
0b65 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b66 e5fc | | Load 0x2,-0x4
0b67 00da | | Load_Top At_Offset_2
0b68 e5fd | | Load 0x2,-0x3
0b69 e5fe | | Load 0x2,-0x2
0b6a e5ff | | Load 0x2,-0x1
0b6b 8231 | 1 | Call 0x1,0x31
0b6c 005a | Z | Store_Top Discrete,At_Offset_2
0b6d 4800 |H | Short_Literal 0x0
0b6e 00da | | Load_Top At_Offset_2
0b6f e001 | | Load 0x0,0x1
0b70 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b71 700a |p | Jump_Nonzero 0xb7c
0b72 00d9 | | Load_Top At_Offset_1
0b73 a5fb | | Store_Unchecked 0x2,-0x5
0b74 e001 | | Load 0x0,0x1
0b75 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b76 4800 |H | Short_Literal 0x0
0b77 00da | | Load_Top At_Offset_2
0b78 e00f | | Load 0x0,0xf
0b79 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0b7a 005a | Z | Store_Top Discrete,At_Offset_2
0b7b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b7c e001 | | Load 0x0,0x1
0b7d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b7e 4800 |H | Short_Literal 0x0
0b7f 00da | | Load_Top At_Offset_2
0b80 e00f | | Load 0x0,0xf
0b81 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0b82 c5fb | | Store 0x2,-0x5
0b83 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b84 TRAP_0b20:
0b84 e001 | | Load 0x0,0x1
0b85 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b86 010f | | Execute Exception,Equal
0b87 680b |h | Jump_Zero 0xb93
0b88 e001 | | Load 0x0,0x1
0b89 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b8a a5fb | | Store_Unchecked 0x2,-0x5
0b8b e001 | | Load 0x0,0x1
0b8c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b8d 4800 |H | Short_Literal 0x0
0b8e 00db | | Load_Top At_Offset_3
0b8f e00f | | Load 0x0,0xf
0b90 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0b91 005b | [ | Store_Top Discrete,At_Offset_3
0b92 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b93 e5fc | | Load 0x2,-0x4
0b94 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; "Rcf_Unit.Update_Consistency"
0b96 e005 | | Load 0x0,0x5
0b97 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b98 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; "Rcf_Unit.Update_Consistency"
0b9a e005 | | Load 0x0,0x5
0b9b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b9c a5fb | | Store_Unchecked 0x2,-0x5
0b9d e001 | | Load 0x0,0x1
0b9e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b9f 4800 |H | Short_Literal 0x0
0ba0 00db | | Load_Top At_Offset_3
0ba1 e00f | | Load 0x0,0xf
0ba2 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0ba3 005b | [ | Store_Top Discrete,At_Offset_3
0ba4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ba5 0000 0000 | | .XXX[0x3]
0ba7 0000 | |
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bc9 | | .CONST 0x0bc9 ; Address of begin
0ba9 0c45 | E | .CONST 0x0c45 ; Address of exception handler
0baa 0008 | | .CONST 0x0008 ; Number of locals
0bab INIT_0ba8:
0bab e00c | | Load 0x0,0xc
0bac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bad 02c7 | | Declare_Variable Any
0bae 00d8 | | Load_Top At_Offset_0
0baf 1c00 | | Execute_Immediate Run_Utility,0x0
0bb0 e014 | | Load 0x0,0x14
0bb1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0bb2 02c7 | | Declare_Variable Any
0bb3 00d8 | | Load_Top At_Offset_0
0bb4 1c00 | | Execute_Immediate Run_Utility,0x0
0bb5 e001 | | Load 0x0,0x1
0bb6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0bb7 00e1 | | Load_Encached Boolean_Cache
0bb8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0bb9 e00c | | Load 0x0,0xc
0bba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bbb 02c7 | | Declare_Variable Any
0bbc 00d8 | | Load_Top At_Offset_0
0bbd 1c00 | | Execute_Immediate Run_Utility,0x0
0bbe 00e1 | | Load_Encached Boolean_Cache
0bbf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0bc0 e5ff | | Load 0x2,-0x1
0bc1 e004 | | Load 0x0,0x4
0bc2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0bc3 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; "."
0bc5 01cc | | Execute Vector,Catenate
0bc6 e5fe | | Load 0x2,-0x2
0bc7 01cc | | Execute Vector,Catenate
0bc8 0007 | | Action Break_Optional
0bc9 BODY_0ba8:
0bc9 4800 |H | Short_Literal 0x0
0bca a5fc | | Store_Unchecked 0x2,-0x4
0bcb e5fe | | Load 0x2,-0x2
0bcc 01db | | Execute Vector,Length
0bcd 0f00 | | Execute_Immediate Equal,0x0
0bce e5fe | | Load 0x2,-0x2
0bcf 0092 1ae4 | | Action Push_String_Extended,0x1ae4 ; "state"
0bd1 01df | | Execute Vector,Equal
0bd2 0278 | x | Execute Discrete,Or
0bd3 6803 |h | Jump_Zero 0xbd7
0bd4 e001 | | Load 0x0,0x1
0bd5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0bd6 0257 | W | Execute Discrete,Raise
0bd7 00e1 | | Load_Encached Boolean_Cache
0bd8 e403 | | Load 0x2,0x3
0bd9 e5fd | | Load 0x2,-0x3
0bda 00db | | Load_Top At_Offset_3
0bdb 82a1 | | Call 0x1,0xa1
0bdc c403 | | Store 0x2,0x3
0bdd c405 | | Store 0x2,0x5
0bde 00db | | Load_Top At_Offset_3
0bdf 700c |p | Jump_Nonzero 0xbec
0be0 e403 | | Load 0x2,0x3
0be1 00ea | | Load_Encached Null_String_Cache
0be2 00da | | Load_Top At_Offset_2
0be3 4801 |H | Short_Literal 0x1
0be4 e014 | | Load 0x0,0x14
0be5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0be6 c403 | | Store 0x2,0x3
0be7 e403 | | Load 0x2,0x3
0be8 e014 | | Load 0x0,0x14
0be9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0bea c403 | | Store 0x2,0x3
0beb 7804 |x | Jump 0xbf0
0bec e403 | | Load 0x2,0x3
0bed e014 | | Load 0x0,0x14
0bee 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0bef c403 | | Store 0x2,0x3
0bf0 e5fd | | Load 0x2,-0x3
0bf1 00d9 | | Load_Top At_Offset_1
0bf2 8298 | | Call 0x1,0x98
0bf3 c402 | | Store 0x2,0x2
0bf4 e402 | | Load 0x2,0x2
0bf5 e004 | | Load 0x0,0x4
0bf6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0bf7 6816 |h | Jump_Zero 0xc0e
0bf8 e5fd | | Load 0x2,-0x3
0bf9 4801 |H | Short_Literal 0x1
0bfa 4801 |H | Short_Literal 0x1
0bfb e006 | | Load 0x0,0x6
0bfc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bfd 035b | [ | Declare_Type Array,Constrained
0bfe 0337 | 7 | Declare_Variable Array
0bff 00da | | Load_Top At_Offset_2
0c00 e006 | | Load 0x0,0x6
0c01 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c02 e006 | | Load 0x0,0x6
0c03 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c04 0119 | | Execute Any,Check_In_Formal_Type
0c05 4801 |H | Short_Literal 0x1
0c06 00da | | Load_Top At_Offset_2
0c07 01d6 | | Execute Vector,Field_Write
0c08 605f |`_ | Indirect_Literal Discrete,0xc68,{0x00000000, 0x000081ac}
0c09 e001 | | Load 0x0,0x1
0c0a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c0b e001 | | Load 0x0,0x1
0c0c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0c0d 0257 | W | Execute Discrete,Raise
0c0e 00db | | Load_Top At_Offset_3
0c0f 682e |h. | Jump_Zero 0xc3e
0c10 00e1 | | Load_Encached Boolean_Cache
0c11 00db | | Load_Top At_Offset_3
0c12 0120 | | Execute Any,Is_Value
0c13 6803 |h | Jump_Zero 0xc17
0c14 e00c | | Load 0x0,0xc
0c15 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c16 7801 |x | Jump 0xc18
0c17 00db | | Load_Top At_Offset_3
0c18 e5fd | | Load 0x2,-0x3
0c19 e402 | | Load 0x2,0x2
0c1a 8287 | | Call 0x1,0x87
0c1b c406 | | Store 0x2,0x6
0c1c 005a | Z | Store_Top Discrete,At_Offset_2
0c1d 00d9 | | Load_Top At_Offset_1
0c1e 681f |h | Jump_Zero 0xc3e
0c1f e5fd | | Load 0x2,-0x3
0c20 4801 |H | Short_Literal 0x1
0c21 4802 |H | Short_Literal 0x2
0c22 e006 | | Load 0x0,0x6
0c23 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c24 035b | [ | Declare_Type Array,Constrained
0c25 0337 | 7 | Declare_Variable Array
0c26 e402 | | Load 0x2,0x2
0c27 e004 | | Load 0x0,0x4
0c28 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c29 e006 | | Load 0x0,0x6
0c2a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c2b 0119 | | Execute Any,Check_In_Formal_Type
0c2c 4801 |H | Short_Literal 0x1
0c2d 00da | | Load_Top At_Offset_2
0c2e 01d6 | | Execute Vector,Field_Write
0c2f e406 | | Load 0x2,0x6
0c30 e004 | | Load 0x0,0x4
0c31 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c32 e006 | | Load 0x0,0x6
0c33 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c34 0119 | | Execute Any,Check_In_Formal_Type
0c35 4802 |H | Short_Literal 0x2
0c36 00da | | Load_Top At_Offset_2
0c37 01d6 | | Execute Vector,Field_Write
0c38 602b |`+ | Indirect_Literal Discrete,0xc64,{0x00000000, 0x000081cb}
0c39 e001 | | Load 0x0,0x1
0c3a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c3b e001 | | Load 0x0,0x1
0c3c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0c3d 0257 | W | Execute Discrete,Raise
0c3e e001 | | Load 0x0,0x1
0c3f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c40 e5fd | | Load 0x2,-0x3
0c41 e402 | | Load 0x2,0x2
0c42 8260 | ` | Call 0x1,0x60
0c43 c404 | | Store 0x2,0x4
0c44 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c45 TRAP_0ba8:
0c45 0007 | | Action Break_Optional
0c46 e5fd | | Load 0x2,-0x3
0c47 4801 |H | Short_Literal 0x1
0c48 4801 |H | Short_Literal 0x1
0c49 e006 | | Load 0x0,0x6
0c4a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c4b 035b | [ | Declare_Type Array,Constrained
0c4c 0337 | 7 | Declare_Variable Array
0c4d 00db | | Load_Top At_Offset_3
0c4e e006 | | Load 0x0,0x6
0c4f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c50 e006 | | Load 0x0,0x6
0c51 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c52 0119 | | Execute Any,Check_In_Formal_Type
0c53 4801 |H | Short_Literal 0x1
0c54 00da | | Load_Top At_Offset_2
0c55 01d6 | | Execute Vector,Field_Write
0c56 6009 |` | Indirect_Literal Discrete,0xc60,{0x00000000, 0x000081a1}
0c57 e001 | | Load 0x0,0x1
0c58 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c59 e006 | | Load 0x0,0x6
0c5a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0c5b 6004 |` | Indirect_Literal Discrete,0xc60,{0x00000000, 0x000081a1}
0c5c e001 | | Load 0x0,0x1
0c5d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0c5e a5fc | | Store_Unchecked 0x2,-0x4
0c5f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c60 0000 0000 | | .LITERAL {0x00000000, 0x000081a1}
0c64 0000 0000 | | .LITERAL {0x00000000, 0x000081cb}
0c68 0000 0000 | | .LITERAL {0x00000000, 0x000081ac}
0c6c 0000 0000 | | .BLANK 0000[0x4]
0c70 ; --------------------------------------------------------------------------------------
0c70 ; SUBPROGRAM
0c70 ; --------------------------------------------------------------------------------------
0c70 0c7a | z | .CONST 0x0c7a ; Address of begin
0c71 0c90 | | .CONST 0x0c90 ; Address of exception handler
0c72 0005 | | .CONST 0x0005 ; Number of locals
0c73 INIT_0c70:
0c73 e00c | | Load 0x0,0xc
0c74 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c75 e28d | | Load 0x1,0x8d
0c76 0322 | " | Declare_Variable Record
0c77 00e2 | | Load_Encached Integer_Cache
0c78 e5ff | | Load 0x2,-0x1
0c79 8294 | | Call 0x1,0x94
0c7a BODY_0c70:
0c7a 4800 |H | Short_Literal 0x0
0c7b a5f9 | | Store_Unchecked 0x2,-0x7
0c7c 00da | | Load_Top At_Offset_2
0c7d e5fa | | Load 0x2,-0x6
0c7e 00da | | Load_Top At_Offset_2
0c7f 82a5 | | Call 0x1,0xa5
0c80 00d1 | | Pop_Control Pop_Count_1
0c81 00da | | Load_Top At_Offset_2
0c82 e5fb | | Load 0x2,-0x5
0c83 82a0 | | Call 0x1,0xa0
0c84 00d1 | | Pop_Control Pop_Count_1
0c85 e5fa | | Load 0x2,-0x6
0c86 00db | | Load_Top At_Offset_3
0c87 00da | | Load_Top At_Offset_2
0c88 82a3 | | Call 0x1,0xa3
0c89 e5fa | | Load 0x2,-0x6
0c8a e5fc | | Load 0x2,-0x4
0c8b e5fd | | Load 0x2,-0x3
0c8c e5fe | | Load 0x2,-0x2
0c8d e5ff | | Load 0x2,-0x1
0c8e 82aa | | Call 0x1,0xaa
0c8f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0c90 TRAP_0c70:
0c90 0007 | | Action Break_Optional
0c91 e5fa | | Load 0x2,-0x6
0c92 4801 |H | Short_Literal 0x1
0c93 4801 |H | Short_Literal 0x1
0c94 e006 | | Load 0x0,0x6
0c95 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c96 035b | [ | Declare_Type Array,Constrained
0c97 0337 | 7 | Declare_Variable Array
0c98 e5ff | | Load 0x2,-0x1
0c99 e006 | | Load 0x0,0x6
0c9a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0c9b e006 | | Load 0x0,0x6
0c9c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c9d 0119 | | Execute Any,Check_In_Formal_Type
0c9e 4801 |H | Short_Literal 0x1
0c9f 00da | | Load_Top At_Offset_2
0ca0 01d6 | | Execute Vector,Field_Write
0ca1 600a |` | Indirect_Literal Discrete,0xcac,{0x00000000, 0x000081a2}
0ca2 e001 | | Load 0x0,0x1
0ca3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ca4 e006 | | Load 0x0,0x6
0ca5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0ca6 6005 |` | Indirect_Literal Discrete,0xcac,{0x00000000, 0x000081a2}
0ca7 e001 | | Load 0x0,0x1
0ca8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ca9 a5f9 | | Store_Unchecked 0x2,-0x7
0caa 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0cab 0000 | | .XXX[0x1]
0cac 0000 0000 | | .LITERAL {0x00000000, 0x000081a2}
0cb0 ; --------------------------------------------------------------------------------------
0cb0 ; SUBPROGRAM
0cb0 ; --------------------------------------------------------------------------------------
0cb0 0cbf | | .CONST 0x0cbf ; Address of begin
0cb1 0cdf | | .CONST 0x0cdf ; Address of exception handler
0cb2 0006 | | .CONST 0x0006 ; Number of locals
0cb3 INIT_0cb0:
0cb3 00e1 | | Load_Encached Boolean_Cache
0cb4 e00c | | Load 0x0,0xc
0cb5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cb6 02c7 | | Declare_Variable Any
0cb7 00d8 | | Load_Top At_Offset_0
0cb8 1c00 | | Execute_Immediate Run_Utility,0x0
0cb9 00e2 | | Load_Encached Integer_Cache
0cba e5ff | | Load 0x2,-0x1
0cbb e004 | | Load 0x0,0x4
0cbc 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0cbd 029f 1863 | c| Declare_Subprogram INIT_1860,For_Call
0cbf BODY_0cb0:
0cbf 4800 |H | Short_Literal 0x0
0cc0 a5fd | | Store_Unchecked 0x2,-0x3
0cc1 e001 | | Load 0x0,0x1
0cc2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cc3 00e2 | | Load_Encached Integer_Cache
0cc4 e403 | | Load 0x2,0x3
0cc5 0120 | | Execute Any,Is_Value
0cc6 6803 |h | Jump_Zero 0xcca
0cc7 e00c | | Load 0x0,0xc
0cc8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cc9 7801 |x | Jump 0xccb
0cca e403 | | Load 0x2,0x3
0ccb e5fe | | Load 0x2,-0x2
0ccc e5ff | | Load 0x2,-0x1
0ccd 8267 | g | Call 0x1,0x67
0cce c403 | | Store 0x2,0x3
0ccf c404 | | Store 0x2,0x4
0cd0 c5fd | | Store 0x2,-0x3
0cd1 e001 | | Load 0x0,0x1
0cd2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cd3 e5fe | | Load 0x2,-0x2
0cd4 e5ff | | Load 0x2,-0x1
0cd5 8261 | a | Call 0x1,0x61
0cd6 c5fd | | Store 0x2,-0x3
0cd7 e5fe | | Load 0x2,-0x2
0cd8 00da | | Load_Top At_Offset_2
0cd9 8292 | | Call 0x1,0x92
0cda 00da | | Load_Top At_Offset_2
0cdb 0f01 | | Execute_Immediate Equal,0x1
0cdc 6801 |h | Jump_Zero 0xcde
0cdd 8406 | | Call 0x2,0x6
0cde 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0cdf TRAP_0cb0:
0cdf 0007 | | Action Break_Optional
0ce0 e5fe | | Load 0x2,-0x2
0ce1 4801 |H | Short_Literal 0x1
0ce2 4801 |H | Short_Literal 0x1
0ce3 e006 | | Load 0x0,0x6
0ce4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ce5 035b | [ | Declare_Type Array,Constrained
0ce6 0337 | 7 | Declare_Variable Array
0ce7 e405 | | Load 0x2,0x5
0ce8 e006 | | Load 0x0,0x6
0ce9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cea e006 | | Load 0x0,0x6
0ceb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cec 0119 | | Execute Any,Check_In_Formal_Type
0ced 4801 |H | Short_Literal 0x1
0cee 00da | | Load_Top At_Offset_2
0cef 01d6 | | Execute Vector,Field_Write
0cf0 600b |` | Indirect_Literal Discrete,0xcfc,{0x00000000, 0x000081a3}
0cf1 e001 | | Load 0x0,0x1
0cf2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cf3 e006 | | Load 0x0,0x6
0cf4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0cf5 6006 |` | Indirect_Literal Discrete,0xcfc,{0x00000000, 0x000081a3}
0cf6 e001 | | Load 0x0,0x1
0cf7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0cf8 a5fd | | Store_Unchecked 0x2,-0x3
0cf9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0cfa 0000 0000 | | .XXX[0x2]
0cfc 0000 0000 | | .LITERAL {0x00000000, 0x000081a3}
0d00 ; --------------------------------------------------------------------------------------
0d00 ; SUBPROGRAM
0d00 ; --------------------------------------------------------------------------------------
0d00 0d17 | | .CONST 0x0d17 ; Address of begin
0d01 0dd7 | | .CONST 0x0dd7 ; Address of exception handler
0d02 0006 | | .CONST 0x0006 ; Number of locals
0d03 INIT_0d00:
0d03 e00c | | Load 0x0,0xc
0d04 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d05 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0d06 02c7 | | Declare_Variable Any
0d07 00d8 | | Load_Top At_Offset_0
0d08 1c00 | | Execute_Immediate Run_Utility,0x0
0d09 e26f | o | Load 0x1,0x6f
0d0a 0322 | " | Declare_Variable Record
0d0b 00d8 | | Load_Top At_Offset_0
0d0c 1c00 | | Execute_Immediate Run_Utility,0x0
0d0d e00c | | Load 0x0,0xc
0d0e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d0f 02c7 | | Declare_Variable Any
0d10 00d8 | | Load_Top At_Offset_0
0d11 1c00 | | Execute_Immediate Run_Utility,0x0
0d12 e001 | | Load 0x0,0x1
0d13 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d14 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d15 00e1 | | Load_Encached Boolean_Cache
0d16 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d17 BODY_0d00:
0d17 4800 |H | Short_Literal 0x0
0d18 a5fd | | Store_Unchecked 0x2,-0x3
0d19 e001 | | Load 0x0,0x1
0d1a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d1b e402 | | Load 0x2,0x2
0d1c 0120 | | Execute Any,Is_Value
0d1d 6804 |h | Jump_Zero 0xd22
0d1e e00c | | Load 0x0,0xc
0d1f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d20 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0d21 7801 |x | Jump 0xd23
0d22 e402 | | Load 0x2,0x2
0d23 e5fe | | Load 0x2,-0x2
0d24 e5ff | | Load 0x2,-0x1
0d25 825f | _ | Call 0x1,0x5f
0d26 c402 | | Store 0x2,0x2
0d27 005a | Z | Store_Top Discrete,At_Offset_2
0d28 4800 |H | Short_Literal 0x0
0d29 00da | | Load_Top At_Offset_2
0d2a e001 | | Load 0x0,0x1
0d2b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0d2c 7003 |p | Jump_Nonzero 0xd30
0d2d e001 | | Load 0x0,0x1
0d2e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0d2f 0257 | W | Execute Discrete,Raise
0d30 e402 | | Load 0x2,0x2
0d31 e00c | | Load 0x0,0xc
0d32 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d33 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0d34 6814 |h | Jump_Zero 0xd49
0d35 e5fe | | Load 0x2,-0x2
0d36 4801 |H | Short_Literal 0x1
0d37 4801 |H | Short_Literal 0x1
0d38 e006 | | Load 0x0,0x6
0d39 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d3a 035b | [ | Declare_Type Array,Constrained
0d3b 0337 | 7 | Declare_Variable Array
0d3c e5ff | | Load 0x2,-0x1
0d3d e004 | | Load 0x0,0x4
0d3e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0d3f e006 | | Load 0x0,0x6
0d40 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d41 0119 | | Execute Any,Check_In_Formal_Type
0d42 4801 |H | Short_Literal 0x1
0d43 00da | | Load_Top At_Offset_2
0d44 01d6 | | Execute Vector,Field_Write
0d45 60a2 |` | Indirect_Literal Discrete,0xde8,{0x00000000, 0x000081a8}
0d46 e001 | | Load 0x0,0x1
0d47 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d48 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0d49 e5fe | | Load 0x2,-0x2
0d4a 4801 |H | Short_Literal 0x1
0d4b 4801 |H | Short_Literal 0x1
0d4c e006 | | Load 0x0,0x6
0d4d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d4e 035b | [ | Declare_Type Array,Constrained
0d4f 0337 | 7 | Declare_Variable Array
0d50 e5ff | | Load 0x2,-0x1
0d51 e004 | | Load 0x0,0x4
0d52 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0d53 e006 | | Load 0x0,0x6
0d54 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d55 0119 | | Execute Any,Check_In_Formal_Type
0d56 4801 |H | Short_Literal 0x1
0d57 00da | | Load_Top At_Offset_2
0d58 01d6 | | Execute Vector,Field_Write
0d59 608a |` | Indirect_Literal Discrete,0xde4,{0x00000000, 0x000081a9}
0d5a e001 | | Load 0x0,0x1
0d5b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d5c e5fe | | Load 0x2,-0x2
0d5d e5ff | | Load 0x2,-0x1
0d5e 8273 | s | Call 0x1,0x73
0d5f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0d60 e5fe | | Load 0x2,-0x2
0d61 4801 |H | Short_Literal 0x1
0d62 4802 |H | Short_Literal 0x2
0d63 e006 | | Load 0x0,0x6
0d64 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d65 035b | [ | Declare_Type Array,Constrained
0d66 0337 | 7 | Declare_Variable Array
0d67 e5ff | | Load 0x2,-0x1
0d68 e004 | | Load 0x0,0x4
0d69 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0d6a e006 | | Load 0x0,0x6
0d6b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d6c 0119 | | Execute Any,Check_In_Formal_Type
0d6d 4801 |H | Short_Literal 0x1
0d6e 00da | | Load_Top At_Offset_2
0d6f 01d6 | | Execute Vector,Field_Write
0d70 00da | | Load_Top At_Offset_2
0d71 00e1 | | Load_Encached Boolean_Cache
0d72 011c | | Execute Any,Convert_Unchecked
0d73 1c01 | | Execute_Immediate Run_Utility,0x1
0d74 e006 | | Load 0x0,0x6
0d75 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d76 e006 | | Load 0x0,0x6
0d77 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d78 0119 | | Execute Any,Check_In_Formal_Type
0d79 4802 |H | Short_Literal 0x2
0d7a 00da | | Load_Top At_Offset_2
0d7b 01d6 | | Execute Vector,Field_Write
0d7c 6063 |`c | Indirect_Literal Discrete,0xde0,{0x00000000, 0x000081ab}
0d7d e001 | | Load 0x0,0x1
0d7e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d7f 00cf | | Action Mark_Auxiliary
0d80 7850 |xP | Jump 0xdd1
0d81 e5fe | | Load 0x2,-0x2
0d82 4801 |H | Short_Literal 0x1
0d83 e402 | | Load 0x2,0x2
0d84 e004 | | Load 0x0,0x4
0d85 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0d86 c404 | | Store 0x2,0x4
0d87 e403 | | Load 0x2,0x3
0d88 e5fe | | Load 0x2,-0x2
0d89 e404 | | Load 0x2,0x4
0d8a e004 | | Load 0x0,0x4
0d8b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0d8c 82a6 | | Call 0x1,0xa6
0d8d 00d1 | | Pop_Control Pop_Count_1
0d8e e5fe | | Load 0x2,-0x2
0d8f 4801 |H | Short_Literal 0x1
0d90 4804 |H | Short_Literal 0x4
0d91 e006 | | Load 0x0,0x6
0d92 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d93 035b | [ | Declare_Type Array,Constrained
0d94 0337 | 7 | Declare_Variable Array
0d95 e404 | | Load 0x2,0x4
0d96 e004 | | Load 0x0,0x4
0d97 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0d98 e006 | | Load 0x0,0x6
0d99 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d9a 0119 | | Execute Any,Check_In_Formal_Type
0d9b 4801 |H | Short_Literal 0x1
0d9c 00da | | Load_Top At_Offset_2
0d9d 01d6 | | Execute Vector,Field_Write
0d9e 4801 |H | Short_Literal 0x1
0d9f e403 | | Load 0x2,0x3
0da0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0da1 e403 | | Load 0x2,0x3
0da2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0da3 01cf | | Execute Vector,Slice_Read
0da4 e006 | | Load 0x0,0x6
0da5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0da6 e006 | | Load 0x0,0x6
0da7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0da8 0119 | | Execute Any,Check_In_Formal_Type
0da9 4802 |H | Short_Literal 0x2
0daa 00da | | Load_Top At_Offset_2
0dab 01d6 | | Execute Vector,Field_Write
0dac 4801 |H | Short_Literal 0x1
0dad e403 | | Load 0x2,0x3
0dae 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0daf e403 | | Load 0x2,0x3
0db0 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0db1 01cf | | Execute Vector,Slice_Read
0db2 e006 | | Load 0x0,0x6
0db3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0db4 e006 | | Load 0x0,0x6
0db5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0db6 0119 | | Execute Any,Check_In_Formal_Type
0db7 4803 |H | Short_Literal 0x3
0db8 00da | | Load_Top At_Offset_2
0db9 01d6 | | Execute Vector,Field_Write
0dba 4801 |H | Short_Literal 0x1
0dbb e403 | | Load 0x2,0x3
0dbc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0dbd e403 | | Load 0x2,0x3
0dbe 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0dbf 01cf | | Execute Vector,Slice_Read
0dc0 e006 | | Load 0x0,0x6
0dc1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dc2 e006 | | Load 0x0,0x6
0dc3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dc4 0119 | | Execute Any,Check_In_Formal_Type
0dc5 4804 |H | Short_Literal 0x4
0dc6 00da | | Load_Top At_Offset_2
0dc7 01d6 | | Execute Vector,Field_Write
0dc8 6013 |` | Indirect_Literal Discrete,0xddc,{0x00000000, 0x000081aa}
0dc9 e001 | | Load 0x0,0x1
0dca 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0dcb e402 | | Load 0x2,0x2
0dcc e00c | | Load 0x0,0xc
0dcd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0dce 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0dcf c402 | | Store 0x2,0x2
0dd0 00c9 | | Action Pop_Auxiliary_Loop
0dd1 e402 | | Load 0x2,0x2
0dd2 e00c | | Load 0x0,0xc
0dd3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0dd4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0dd5 6fab |o | Jump_Zero 0xd81
0dd6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0dd7 TRAP_0d00:
0dd7 0007 | | Action Break_Optional
0dd8 00da | | Load_Top At_Offset_2
0dd9 a5fd | | Store_Unchecked 0x2,-0x3
0dda 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ddb 0000 | | .XXX[0x1]
0ddc 0000 0000 | | .LITERAL {0x00000000, 0x000081aa}
0de0 0000 0000 | | .LITERAL {0x00000000, 0x000081ab}
0de4 0000 0000 | | .LITERAL {0x00000000, 0x000081a9}
0de8 0000 0000 | | .LITERAL {0x00000000, 0x000081a8}
0dec 0000 0000 | | .BLANK 0000[0x4]
0df0 ; --------------------------------------------------------------------------------------
0df0 ; SUBPROGRAM
0df0 ; --------------------------------------------------------------------------------------
0df0 0df9 | | .CONST 0x0df9 ; Address of begin
0df1 0e11 | | .CONST 0x0e11 ; Address of exception handler
0df2 0002 | | .CONST 0x0002 ; Number of locals
0df3 INIT_0df0:
0df3 e00c | | Load 0x0,0xc
0df4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0df5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0df6 02c7 | | Declare_Variable Any
0df7 00d8 | | Load_Top At_Offset_0
0df8 1c00 | | Execute_Immediate Run_Utility,0x0
0df9 BODY_0df0:
0df9 4800 |H | Short_Literal 0x0
0dfa a5fc | | Store_Unchecked 0x2,-0x4
0dfb 4800 |H | Short_Literal 0x0
0dfc a5fd | | Store_Unchecked 0x2,-0x3
0dfd 00db | | Load_Top At_Offset_3
0dfe e004 | | Load 0x0,0x4
0dff 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0e00 e28f | | Load 0x1,0x8f
0e01 01cc | | Execute Vector,Catenate
0e02 8299 | | Call 0x1,0x99
0e03 c402 | | Store 0x2,0x2
0e04 00d8 | | Load_Top At_Offset_0
0e05 e00c | | Load 0x0,0xc
0e06 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e07 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0e08 7007 |p | Jump_Nonzero 0xe10
0e09 00d8 | | Load_Top At_Offset_0
0e0a e00c | | Load 0x0,0xc
0e0b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e0c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0e0d 7002 |p | Jump_Nonzero 0xe10
0e0e 4801 |H | Short_Literal 0x1
0e0f a5fd | | Store_Unchecked 0x2,-0x3
0e10 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e11 TRAP_0df0:
0e11 0007 | | Action Break_Optional
0e12 e006 | | Load 0x0,0x6
0e13 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0e14 6007 |` | Indirect_Literal Discrete,0xe1c,{0x00000000, 0x0000813b}
0e15 e001 | | Load 0x0,0x1
0e16 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e17 a5fc | | Store_Unchecked 0x2,-0x4
0e18 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e19 0000 0000 | | .XXX[0x3]
0e1b 0000 | |
0e1c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0e20 ; --------------------------------------------------------------------------------------
0e20 ; SUBPROGRAM
0e20 ; --------------------------------------------------------------------------------------
0e20 0e23 | # | .CONST 0x0e23 ; Address of begin
0e21 0e37 | 7 | .CONST 0x0e37 ; Address of exception handler
0e22 0001 | | .CONST 0x0001 ; Number of locals
0e23 BODY_0e20:
0e23 INIT_0e20:
0e23 4800 |H | Short_Literal 0x0
0e24 a5fa | | Store_Unchecked 0x2,-0x6
0e25 00e2 | | Load_Encached Integer_Cache
0e26 00e1 | | Load_Encached Boolean_Cache
0e27 e5fd | | Load 0x2,-0x3
0e28 0120 | | Execute Any,Is_Value
0e29 6803 |h | Jump_Zero 0xe2d
0e2a e00c | | Load 0x0,0xc
0e2b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e2c 7801 |x | Jump 0xe2e
0e2d e5fd | | Load 0x2,-0x3
0e2e e5fe | | Load 0x2,-0x2
0e2f e5ff | | Load 0x2,-0x1
0e30 e004 | | Load 0x0,0x4
0e31 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0e32 82ad | | Call 0x1,0xad
0e33 c5fd | | Store 0x2,-0x3
0e34 c5fc | | Store 0x2,-0x4
0e35 c5fb | | Store 0x2,-0x5
0e36 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e37 TRAP_0e20:
0e37 0007 | | Action Break_Optional
0e38 e006 | | Load 0x0,0x6
0e39 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0e3a 67e1 |g | Indirect_Literal Discrete,0xe1c,{0x00000000, 0x0000813b}
0e3b e001 | | Load 0x0,0x1
0e3c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e3d a5fa | | Store_Unchecked 0x2,-0x6
0e3e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e3f 0000 | | .XXX[0x1]
0e40 ; --------------------------------------------------------------------------------------
0e40 ; SUBPROGRAM
0e40 ; --------------------------------------------------------------------------------------
0e40 0e44 | D | .CONST 0x0e44 ; Address of begin
0e41 0e74 | t | .CONST 0x0e74 ; Address of exception handler
0e42 0002 | | .CONST 0x0002 ; Number of locals
0e43 INIT_0e40:
0e43 00e1 | | Load_Encached Boolean_Cache
0e44 BODY_0e40:
0e44 4800 |H | Short_Literal 0x0
0e45 a5fb | | Store_Unchecked 0x2,-0x5
0e46 e001 | | Load 0x0,0x1
0e47 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0e48 00e2 | | Load_Encached Integer_Cache
0e49 00e1 | | Load_Encached Boolean_Cache
0e4a e5fd | | Load 0x2,-0x3
0e4b 0120 | | Execute Any,Is_Value
0e4c 6803 |h | Jump_Zero 0xe50
0e4d e00c | | Load 0x0,0xc
0e4e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e4f 7801 |x | Jump 0xe51
0e50 e5fd | | Load 0x2,-0x3
0e51 e5fe | | Load 0x2,-0x2
0e52 e5ff | | Load 0x2,-0x1
0e53 8266 | f | Call 0x1,0x66
0e54 c5fd | | Store 0x2,-0x3
0e55 005b | [ | Store_Top Discrete,At_Offset_3
0e56 c5fc | | Store 0x2,-0x4
0e57 c5fb | | Store 0x2,-0x5
0e58 00d8 | | Load_Top At_Offset_0
0e59 7019 |p | Jump_Nonzero 0xe73
0e5a e5fe | | Load 0x2,-0x2
0e5b 4801 |H | Short_Literal 0x1
0e5c 4801 |H | Short_Literal 0x1
0e5d e006 | | Load 0x0,0x6
0e5e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e5f 035b | [ | Declare_Type Array,Constrained
0e60 0337 | 7 | Declare_Variable Array
0e61 e5ff | | Load 0x2,-0x1
0e62 e004 | | Load 0x0,0x4
0e63 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0e64 e006 | | Load 0x0,0x6
0e65 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e66 0119 | | Execute Any,Check_In_Formal_Type
0e67 4801 |H | Short_Literal 0x1
0e68 00da | | Load_Top At_Offset_2
0e69 01d6 | | Execute Vector,Field_Write
0e6a 600d |` | Indirect_Literal Discrete,0xe78,{0x00000000, 0x000081a4}
0e6b e001 | | Load 0x0,0x1
0e6c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0e6d e006 | | Load 0x0,0x6
0e6e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0e6f 6008 |` | Indirect_Literal Discrete,0xe78,{0x00000000, 0x000081a4}
0e70 e001 | | Load 0x0,0x1
0e71 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e72 a5fb | | Store_Unchecked 0x2,-0x5
0e73 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e74 TRAP_0e40:
0e74 0007 | | Action Break_Optional
0e75 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e76 0000 0000 | | .XXX[0x2]
0e78 0000 0000 | | .LITERAL {0x00000000, 0x000081a4}
0e7c 0000 0000 | | .BLANK 0000[0x4]
0e80 ; --------------------------------------------------------------------------------------
0e80 ; SUBPROGRAM
0e80 ; --------------------------------------------------------------------------------------
0e80 0e8c | | .CONST 0x0e8c ; Address of begin
0e81 0e95 | | .CONST 0x0e95 ; Address of exception handler
0e82 0003 | | .CONST 0x0003 ; Number of locals
0e83 INIT_0e80:
0e83 00db | | Load_Top At_Offset_3
0e84 00db | | Load_Top At_Offset_3
0e85 8296 | | Call 0x1,0x96
0e86 e00c | | Load 0x0,0xc
0e87 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e88 02c7 | | Declare_Variable Any
0e89 00d9 | | Load_Top At_Offset_1
0e8a 8297 | | Call 0x1,0x97
0e8b a403 | | Store_Unchecked 0x2,0x3
0e8c BODY_0e80:
0e8c 00d8 | | Load_Top At_Offset_0
0e8d e00c | | Load 0x0,0xc
0e8e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0e8f 012e | . | Execute Any,Not_Equal
0e90 6802 |h | Jump_Zero 0xe93
0e91 4801 |H | Short_Literal 0x1
0e92 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0e93 4800 |H | Short_Literal 0x0
0e94 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0e95 TRAP_0e80:
0e95 0007 | | Action Break_Optional
0e96 4800 |H | Short_Literal 0x0
0e97 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0e98 ; --------------------------------------------------------------------------------------
0e98 ; SUBPROGRAM
0e98 ; --------------------------------------------------------------------------------------
0e98 0eac | | .CONST 0x0eac ; Address of begin
0e99 0ed6 | | .CONST 0x0ed6 ; Address of exception handler
0e9a 0005 | | .CONST 0x0005 ; Number of locals
0e9b INIT_0e98:
0e9b 00da | | Load_Top At_Offset_2
0e9c e004 | | Load 0x0,0x4
0e9d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0e9e e26f | o | Load 0x1,0x6f
0e9f 0322 | " | Declare_Variable Record
0ea0 00d8 | | Load_Top At_Offset_0
0ea1 1c00 | | Execute_Immediate Run_Utility,0x0
0ea2 e00c | | Load 0x0,0xc
0ea3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ea4 02c7 | | Declare_Variable Any
0ea5 00d8 | | Load_Top At_Offset_0
0ea6 1c00 | | Execute_Immediate Run_Utility,0x0
0ea7 e00c | | Load 0x0,0xc
0ea8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ea9 02c7 | | Declare_Variable Any
0eaa 00d8 | | Load_Top At_Offset_0
0eab 1c00 | | Execute_Immediate Run_Utility,0x0
0eac BODY_0e98:
0eac 4800 |H | Short_Literal 0x0
0ead a5fc | | Store_Unchecked 0x2,-0x4
0eae e5fe | | Load 0x2,-0x2
0eaf 4801 |H | Short_Literal 0x1
0eb0 e5ff | | Load 0x2,-0x1
0eb1 e004 | | Load 0x0,0x4
0eb2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0eb3 c405 | | Store 0x2,0x5
0eb4 00da | | Load_Top At_Offset_2
0eb5 e5fe | | Load 0x2,-0x2
0eb6 e402 | | Load 0x2,0x2
0eb7 82a6 | | Call 0x1,0xa6
0eb8 00d1 | | Pop_Control Pop_Count_1
0eb9 e5fe | | Load 0x2,-0x2
0eba 4801 |H | Short_Literal 0x1
0ebb e5ff | | Load 0x2,-0x1
0ebc e004 | | Load 0x0,0x4
0ebd 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0ebe e004 | | Load 0x0,0x4
0ebf 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ec0 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; "."
0ec2 01cc | | Execute Vector,Catenate
0ec3 4801 |H | Short_Literal 0x1
0ec4 e403 | | Load 0x2,0x3
0ec5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0ec6 e403 | | Load 0x2,0x3
0ec7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0ec8 01cf | | Execute Vector,Slice_Read
0ec9 01cc | | Execute Vector,Catenate
0eca 8297 | | Call 0x1,0x97
0ecb c404 | | Store 0x2,0x4
0ecc 00d9 | | Load_Top At_Offset_1
0ecd e00c | | Load 0x0,0xc
0ece 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0ecf 6803 |h | Jump_Zero 0xed3
0ed0 e001 | | Load 0x0,0x1
0ed1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0ed2 0257 | W | Execute Discrete,Raise
0ed3 00d9 | | Load_Top At_Offset_1
0ed4 c5fd | | Store 0x2,-0x3
0ed5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ed6 TRAP_0e98:
0ed6 0007 | | Action Break_Optional
0ed7 e5fe | | Load 0x2,-0x2
0ed8 4801 |H | Short_Literal 0x1
0ed9 4801 |H | Short_Literal 0x1
0eda e006 | | Load 0x0,0x6
0edb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0edc 035b | [ | Declare_Type Array,Constrained
0edd 0337 | 7 | Declare_Variable Array
0ede 4801 |H | Short_Literal 0x1
0edf e403 | | Load 0x2,0x3
0ee0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0ee1 e403 | | Load 0x2,0x3
0ee2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0ee3 01cf | | Execute Vector,Slice_Read
0ee4 e006 | | Load 0x0,0x6
0ee5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ee6 e006 | | Load 0x0,0x6
0ee7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ee8 0119 | | Execute Any,Check_In_Formal_Type
0ee9 4801 |H | Short_Literal 0x1
0eea 00da | | Load_Top At_Offset_2
0eeb 01d6 | | Execute Vector,Field_Write
0eec 600b |` | Indirect_Literal Discrete,0xef8,{0x00000000, 0x000081a7}
0eed e001 | | Load 0x0,0x1
0eee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0eef e006 | | Load 0x0,0x6
0ef0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0ef1 6006 |` | Indirect_Literal Discrete,0xef8,{0x00000000, 0x000081a7}
0ef2 e001 | | Load 0x0,0x1
0ef3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ef4 a5fc | | Store_Unchecked 0x2,-0x4
0ef5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ef6 0000 0000 | | .XXX[0x2]
0ef8 0000 0000 | | .LITERAL {0x00000000, 0x000081a7}
0efc 0000 0000 | | .BLANK 0000[0x4]
0f00 ; --------------------------------------------------------------------------------------
0f00 ; SUBPROGRAM
0f00 ; --------------------------------------------------------------------------------------
0f00 0f04 | | .CONST 0x0f04 ; Address of begin
0f01 0004 | | .CONST 0x0004 ; Address of exception handler
0f02 0002 | | .CONST 0x0002 ; Number of locals
0f03 INIT_0f00:
0f03 00e2 | | Load_Encached Integer_Cache
0f04 BODY_0f00:
0f04 4800 |H | Short_Literal 0x0
0f05 a5fc | | Store_Unchecked 0x2,-0x4
0f06 e001 | | Load 0x0,0x1
0f07 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f08 00e2 | | Load_Encached Integer_Cache
0f09 e5fd | | Load 0x2,-0x3
0f0a 0120 | | Execute Any,Is_Value
0f0b 6803 |h | Jump_Zero 0xf0f
0f0c e00c | | Load 0x0,0xc
0f0d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f0e 7801 |x | Jump 0xf10
0f0f e5fd | | Load 0x2,-0x3
0f10 e5fe | | Load 0x2,-0x2
0f11 e5ff | | Load 0x2,-0x1
0f12 8267 | g | Call 0x1,0x67
0f13 c5fd | | Store 0x2,-0x3
0f14 005a | Z | Store_Top Discrete,At_Offset_2
0f15 c5fc | | Store 0x2,-0x4
0f16 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f17 0000 | | .XXX[0x1]
0f18 ; --------------------------------------------------------------------------------------
0f18 ; SUBPROGRAM
0f18 ; --------------------------------------------------------------------------------------
0f18 0f1e | | .CONST 0x0f1e ; Address of begin
0f19 0f26 | & | .CONST 0x0f26 ; Address of exception handler
0f1a 0002 | | .CONST 0x0002 ; Number of locals
0f1b INIT_0f18:
0f1b 00da | | Load_Top At_Offset_2
0f1c e004 | | Load 0x0,0x4
0f1d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f1e BODY_0f18:
0f1e 4800 |H | Short_Literal 0x0
0f1f a5fc | | Store_Unchecked 0x2,-0x4
0f20 00d8 | | Load_Top At_Offset_0
0f21 e28f | | Load 0x1,0x8f
0f22 01cc | | Execute Vector,Catenate
0f23 8299 | | Call 0x1,0x99
0f24 c5fd | | Store 0x2,-0x3
0f25 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f26 TRAP_0f18:
0f26 0007 | | Action Break_Optional
0f27 6004 |` | Indirect_Literal Discrete,0xf2c,{0x00000000, 0x0000813b}
0f28 a5fc | | Store_Unchecked 0x2,-0x4
0f29 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f2a 0000 0000 | | .XXX[0x2]
0f2c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0f30 ; --------------------------------------------------------------------------------------
0f30 ; SUBPROGRAM
0f30 ; --------------------------------------------------------------------------------------
0f30 0f3f | ? | .CONST 0x0f3f ; Address of begin
0f31 0f46 | F | .CONST 0x0f46 ; Address of exception handler
0f32 0005 | | .CONST 0x0005 ; Number of locals
0f33 INIT_0f30:
0f33 00da | | Load_Top At_Offset_2
0f34 e004 | | Load 0x0,0x4
0f35 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f36 e26f | o | Load 0x1,0x6f
0f37 0322 | " | Declare_Variable Record
0f38 00d8 | | Load_Top At_Offset_0
0f39 1c00 | | Execute_Immediate Run_Utility,0x0
0f3a 4801 |H | Short_Literal 0x1
0f3b e20d | | Load 0x1,0xd
0f3c 1c08 | | Execute_Immediate Run_Utility,0x8
0f3d 029f 1873 | s| Declare_Subprogram INIT_1870,For_Call
0f3f BODY_0f30:
0f3f 00da | | Load_Top At_Offset_2
0f40 e5fe | | Load 0x2,-0x2
0f41 e402 | | Load 0x2,0x2
0f42 82a6 | | Call 0x1,0xa6
0f43 00d1 | | Pop_Control Pop_Count_1
0f44 8405 | | Call 0x2,0x5
0f45 0831 | 1 | Execute_Immediate Raise,0x31
0f46 TRAP_0f30:
0f46 0007 | | Action Break_Optional
0f47 e006 | | Load 0x0,0x6
0f48 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0f49 67e2 |g | Indirect_Literal Discrete,0xf2c,{0x00000000, 0x0000813b}
0f4a e001 | | Load 0x0,0x1
0f4b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f4c 00db | | Load_Top At_Offset_3
0f4d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0f4e 0831 | 1 | Execute_Immediate Raise,0x31
0f4f 0000 | | .XXX[0x1]
0f50 ; --------------------------------------------------------------------------------------
0f50 ; SUBPROGRAM
0f50 ; --------------------------------------------------------------------------------------
0f50 0f5f | _ | .CONST 0x0f5f ; Address of begin
0f51 0f66 | f | .CONST 0x0f66 ; Address of exception handler
0f52 0005 | | .CONST 0x0005 ; Number of locals
0f53 INIT_0f50:
0f53 00da | | Load_Top At_Offset_2
0f54 e004 | | Load 0x0,0x4
0f55 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f56 e26f | o | Load 0x1,0x6f
0f57 0322 | " | Declare_Variable Record
0f58 00d8 | | Load_Top At_Offset_0
0f59 1c00 | | Execute_Immediate Run_Utility,0x0
0f5a 4801 |H | Short_Literal 0x1
0f5b e20d | | Load 0x1,0xd
0f5c 1c08 | | Execute_Immediate Run_Utility,0x8
0f5d 029f 188b | | Declare_Subprogram INIT_1888,For_Call
0f5f BODY_0f50:
0f5f 00da | | Load_Top At_Offset_2
0f60 e5fe | | Load 0x2,-0x2
0f61 e402 | | Load 0x2,0x2
0f62 82a6 | | Call 0x1,0xa6
0f63 00d1 | | Pop_Control Pop_Count_1
0f64 8405 | | Call 0x2,0x5
0f65 0831 | 1 | Execute_Immediate Raise,0x31
0f66 TRAP_0f50:
0f66 0007 | | Action Break_Optional
0f67 e006 | | Load 0x0,0x6
0f68 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0f69 6006 |` | Indirect_Literal Discrete,0xf70,{0x00000000, 0x0000813b}
0f6a e001 | | Load 0x0,0x1
0f6b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f6c 00db | | Load_Top At_Offset_3
0f6d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0f6e 00da | | Load_Top At_Offset_2
0f6f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0f70 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0f74 0000 0000 | | .BLANK 0000[0x4]
0f78 ; --------------------------------------------------------------------------------------
0f78 ; SUBPROGRAM
0f78 ; --------------------------------------------------------------------------------------
0f78 0f80 | | .CONST 0x0f80 ; Address of begin
0f79 0f88 | | .CONST 0x0f88 ; Address of exception handler
0f7a 0004 | | .CONST 0x0004 ; Number of locals
0f7b INIT_0f78:
0f7b e28d | | Load 0x1,0x8d
0f7c 0322 | " | Declare_Variable Record
0f7d 00e2 | | Load_Encached Integer_Cache
0f7e e5ff | | Load 0x2,-0x1
0f7f 8294 | | Call 0x1,0x94
0f80 BODY_0f78:
0f80 00da | | Load_Top At_Offset_2
0f81 e5fe | | Load 0x2,-0x2
0f82 00da | | Load_Top At_Offset_2
0f83 82a5 | | Call 0x1,0xa5
0f84 00d1 | | Pop_Control Pop_Count_1
0f85 00da | | Load_Top At_Offset_2
0f86 829f | | Call 0x1,0x9f
0f87 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0f88 TRAP_0f78:
0f88 0007 | | Action Break_Optional
0f89 4800 |H | Short_Literal 0x0
0f8a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0f8b 0000 0000 | | .BLANK 0000[0x5]
0f90 ; --------------------------------------------------------------------------------------
0f90 ; SUBPROGRAM
0f90 ; --------------------------------------------------------------------------------------
0f90 0f95 | | .CONST 0x0f95 ; Address of begin
0f91 0004 | | .CONST 0x0004 ; Address of exception handler
0f92 0002 | | .CONST 0x0002 ; Number of locals
0f93 INIT_0f90:
0f93 e00c | | Load 0x0,0xc
0f94 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f95 BODY_0f90:
0f95 4800 |H | Short_Literal 0x0
0f96 a5fd | | Store_Unchecked 0x2,-0x3
0f97 e00c | | Load 0x0,0xc
0f98 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f99 602a |`* | Indirect_Literal Discrete,0xfc4,{0x00000000, 0x00004000}
0f9a e011 | | Load 0x0,0x11
0f9b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f9c e5ff | | Load 0x2,-0x1
0f9d e00c | | Load 0x0,0xc
0f9e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0f9f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0fa0 0059 | Y | Store_Top Discrete,At_Offset_1
0fa1 00d8 | | Load_Top At_Offset_0
0fa2 7001 |p | Jump_Nonzero 0xfa4
0fa3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0fa4 e5fe | | Load 0x2,-0x2
0fa5 4801 |H | Short_Literal 0x1
0fa6 4801 |H | Short_Literal 0x1
0fa7 e006 | | Load 0x0,0x6
0fa8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fa9 035b | [ | Declare_Type Array,Constrained
0faa 0337 | 7 | Declare_Variable Array
0fab e5ff | | Load 0x2,-0x1
0fac e004 | | Load 0x0,0x4
0fad 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0fae e006 | | Load 0x0,0x6
0faf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fb0 0119 | | Execute Any,Check_In_Formal_Type
0fb1 4801 |H | Short_Literal 0x1
0fb2 00da | | Load_Top At_Offset_2
0fb3 01d6 | | Execute Vector,Field_Write
0fb4 600b |` | Indirect_Literal Discrete,0xfc0,{0x00000000, 0x000081a5}
0fb5 e001 | | Load 0x0,0x1
0fb6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0fb7 e006 | | Load 0x0,0x6
0fb8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0fb9 6006 |` | Indirect_Literal Discrete,0xfc0,{0x00000000, 0x000081a5}
0fba e001 | | Load 0x0,0x1
0fbb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0fbc a5fd | | Store_Unchecked 0x2,-0x3
0fbd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0fbe 0000 0000 | | .XXX[0x2]
0fc0 0000 0000 | | .LITERAL {0x00000000, 0x000081a5}
0fc4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0fc8 ; --------------------------------------------------------------------------------------
0fc8 ; SUBPROGRAM
0fc8 ; --------------------------------------------------------------------------------------
0fc8 0fcd | | .CONST 0x0fcd ; Address of begin
0fc9 0004 | | .CONST 0x0004 ; Address of exception handler
0fca 0002 | | .CONST 0x0002 ; Number of locals
0fcb INIT_0fc8:
0fcb e00c | | Load 0x0,0xc
0fcc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0fcd BODY_0fc8:
0fcd 4800 |H | Short_Literal 0x0
0fce a5fd | | Store_Unchecked 0x2,-0x3
0fcf e00c | | Load 0x0,0xc
0fd0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0fd1 67f2 |g | Indirect_Literal Discrete,0xfc4,{0x00000000, 0x00004000}
0fd2 e011 | | Load 0x0,0x11
0fd3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fd4 e5ff | | Load 0x2,-0x1
0fd5 e00c | | Load 0x0,0xc
0fd6 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0fd7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0fd8 0059 | Y | Store_Top Discrete,At_Offset_1
0fd9 00d8 | | Load_Top At_Offset_0
0fda 6815 |h | Jump_Zero 0xff0
0fdb e5fe | | Load 0x2,-0x2
0fdc 4801 |H | Short_Literal 0x1
0fdd 4801 |H | Short_Literal 0x1
0fde e006 | | Load 0x0,0x6
0fdf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fe0 035b | [ | Declare_Type Array,Constrained
0fe1 0337 | 7 | Declare_Variable Array
0fe2 e5ff | | Load 0x2,-0x1
0fe3 e004 | | Load 0x0,0x4
0fe4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0fe5 e006 | | Load 0x0,0x6
0fe6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fe7 0119 | | Execute Any,Check_In_Formal_Type
0fe8 4801 |H | Short_Literal 0x1
0fe9 00da | | Load_Top At_Offset_2
0fea 01d6 | | Execute Vector,Field_Write
0feb 6008 |` | Indirect_Literal Discrete,0xff4,{0x00000000, 0x000081a6}
0fec e001 | | Load 0x0,0x1
0fed 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0fee 6005 |` | Indirect_Literal Discrete,0xff4,{0x00000000, 0x000081a6}
0fef a5fd | | Store_Unchecked 0x2,-0x3
0ff0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ff1 0000 0000 | | .XXX[0x3]
0ff3 0000 | |
0ff4 0000 0000 | | .LITERAL {0x00000000, 0x000081a6}
0ff8 ; --------------------------------------------------------------------------------------
0ff8 ; SUBPROGRAM
0ff8 ; --------------------------------------------------------------------------------------
0ff8 1002 | | .CONST 0x1002 ; Address of begin
0ff9 1009 | | .CONST 0x1009 ; Address of exception handler
0ffa 0003 | | .CONST 0x0003 ; Number of locals
0ffb INIT_0ff8:
0ffb 00da | | Load_Top At_Offset_2
0ffc e004 | | Load 0x0,0x4
0ffd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ffe e26f | o | Load 0x1,0x6f
0fff 0322 | " | Declare_Variable Record
1000 00d8 | | Load_Top At_Offset_0
1001 1c00 | | Execute_Immediate Run_Utility,0x0
1002 BODY_0ff8:
1002 00d8 | | Load_Top At_Offset_0
1003 e5fe | | Load 0x2,-0x2
1004 00db | | Load_Top At_Offset_3
1005 82a6 | | Call 0x1,0xa6
1006 00d1 | | Pop_Control Pop_Count_1
1007 00d8 | | Load_Top At_Offset_0
1008 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1009 TRAP_0ff8:
1009 0007 | | Action Break_Optional
100a 00d9 | | Load_Top At_Offset_1
100b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
100c 0000 0000 | | .BLANK 0000[0x4]
1010 ; --------------------------------------------------------------------------------------
1010 ; SUBPROGRAM
1010 ; --------------------------------------------------------------------------------------
1010 101b | | .CONST 0x101b ; Address of begin
1011 1053 | S | .CONST 0x1053 ; Address of exception handler
1012 0005 | | .CONST 0x0005 ; Number of locals
1013 INIT_1010:
1013 e28d | | Load 0x1,0x8d
1014 0322 | " | Declare_Variable Record
1015 00e1 | | Load_Encached Boolean_Cache
1016 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1017 e001 | | Load 0x0,0x1
1018 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1019 e5ff | | Load 0x2,-0x1
101a 8294 | | Call 0x1,0x94
101b BODY_1010:
101b 4800 |H | Short_Literal 0x0
101c a5fc | | Store_Unchecked 0x2,-0x4
101d e001 | | Load 0x0,0x1
101e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
101f 00e1 | | Load_Encached Boolean_Cache
1020 e5fd | | Load 0x2,-0x3
1021 e5ff | | Load 0x2,-0x1
1022 8245 | E | Call 0x1,0x45
1023 c403 | | Store 0x2,0x3
1024 005a | Z | Store_Top Discrete,At_Offset_2
1025 4800 |H | Short_Literal 0x0
1026 00da | | Load_Top At_Offset_2
1027 e001 | | Load 0x0,0x1
1028 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
1029 7003 |p | Jump_Nonzero 0x102d
102a e001 | | Load 0x0,0x1
102b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
102c 0257 | W | Execute Discrete,Raise
102d 00da | | Load_Top At_Offset_2
102e 7016 |p | Jump_Nonzero 0x1045
102f e5fd | | Load 0x2,-0x3
1030 4801 |H | Short_Literal 0x1
1031 4801 |H | Short_Literal 0x1
1032 e006 | | Load 0x0,0x6
1033 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1034 035b | [ | Declare_Type Array,Constrained
1035 0337 | 7 | Declare_Variable Array
1036 e5ff | | Load 0x2,-0x1
1037 e004 | | Load 0x0,0x4
1038 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1039 e006 | | Load 0x0,0x6
103a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
103b 0119 | | Execute Any,Check_In_Formal_Type
103c 4801 |H | Short_Literal 0x1
103d 00da | | Load_Top At_Offset_2
103e 01d6 | | Execute Vector,Field_Write
103f 601c |` | Indirect_Literal Discrete,0x105c,{0x00000000, 0x000081a8}
1040 e001 | | Load 0x0,0x1
1041 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1042 6019 |` | Indirect_Literal Discrete,0x105c,{0x00000000, 0x000081a8}
1043 a5fc | | Store_Unchecked 0x2,-0x4
1044 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1045 00db | | Load_Top At_Offset_3
1046 e5fd | | Load 0x2,-0x3
1047 00da | | Load_Top At_Offset_2
1048 82a5 | | Call 0x1,0xa5
1049 00d1 | | Pop_Control Pop_Count_1
104a 00db | | Load_Top At_Offset_3
104b e5fe | | Load 0x2,-0x2
104c 82a0 | | Call 0x1,0xa0
104d 00d1 | | Pop_Control Pop_Count_1
104e e5fd | | Load 0x2,-0x3
104f e402 | | Load 0x2,0x2
1050 00da | | Load_Top At_Offset_2
1051 82a3 | | Call 0x1,0xa3
1052 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1053 TRAP_1010:
1053 0007 | | Action Break_Optional
1054 6003 |` | Indirect_Literal Discrete,0x1058,{0x00000000, 0x0000813b}
1055 a5fc | | Store_Unchecked 0x2,-0x4
1056 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1057 0000 | | .XXX[0x1]
1058 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
105c 0000 0000 | | .LITERAL {0x00000000, 0x000081a8}
1060 ; --------------------------------------------------------------------------------------
1060 ; SUBPROGRAM
1060 ; --------------------------------------------------------------------------------------
1060 106a | j | .CONST 0x106a ; Address of begin
1061 1098 | | .CONST 0x1098 ; Address of exception handler
1062 0003 | | .CONST 0x0003 ; Number of locals
1063 INIT_1060:
1063 00da | | Load_Top At_Offset_2
1064 e004 | | Load 0x0,0x4
1065 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1066 e26f | o | Load 0x1,0x6f
1067 0322 | " | Declare_Variable Record
1068 00d8 | | Load_Top At_Offset_0
1069 1c00 | | Execute_Immediate Run_Utility,0x0
106a BODY_1060:
106a 4800 |H | Short_Literal 0x0
106b a5fc | | Store_Unchecked 0x2,-0x4
106c 00d8 | | Load_Top At_Offset_0
106d e5fd | | Load 0x2,-0x3
106e 00db | | Load_Top At_Offset_3
106f 82a6 | | Call 0x1,0xa6
1070 00d1 | | Pop_Control Pop_Count_1
1071 e5fe | | Load 0x2,-0x2
1072 01db | | Execute Vector,Length
1073 0c81 | | Execute_Immediate Greater_Equal,-0x7f
1074 6802 |h | Jump_Zero 0x1077
1075 e015 | | Load 0x0,0x15
1076 0257 | W | Execute Discrete,Raise
1077 e5fe | | Load 0x2,-0x2
1078 4801 |H | Short_Literal 0x1
1079 e5fe | | Load 0x2,-0x2
107a 01db | | Execute Vector,Length
107b 00d8 | | Load_Top At_Offset_0
107c 00e2 | | Load_Encached Integer_Cache
107d 0260 | ` | Execute Discrete,In_Type
107e 7001 |p | Jump_Nonzero 0x1080
107f 0801 | | Execute_Immediate Raise,0x1
1080 00db | | Load_Top At_Offset_3
1081 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1082 01ce | | Execute Vector,Slice_Write
1083 e5fe | | Load 0x2,-0x2
1084 01db | | Execute Vector,Length
1085 00d9 | | Load_Top At_Offset_1
1086 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
1087 e001 | | Load 0x0,0x1
1088 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1089 e5fd | | Load 0x2,-0x3
108a e5ff | | Load 0x2,-0x1
108b 8261 | a | Call 0x1,0x61
108c c5fc | | Store 0x2,-0x4
108d e5fd | | Load 0x2,-0x3
108e 00d9 | | Load_Top At_Offset_1
108f 00db | | Load_Top At_Offset_3
1090 82a8 | | Call 0x1,0xa8
1091 e001 | | Load 0x0,0x1
1092 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1093 e5fd | | Load 0x2,-0x3
1094 e5ff | | Load 0x2,-0x1
1095 8260 | ` | Call 0x1,0x60
1096 c5fc | | Store 0x2,-0x4
1097 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1098 TRAP_1060:
1098 e015 | | Load 0x0,0x15
1099 010f | | Execute Exception,Equal
109a 6817 |h | Jump_Zero 0x10b2
109b e5fd | | Load 0x2,-0x3
109c 4801 |H | Short_Literal 0x1
109d 4801 |H | Short_Literal 0x1
109e e006 | | Load 0x0,0x6
109f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10a0 035b | [ | Declare_Type Array,Constrained
10a1 0337 | 7 | Declare_Variable Array
10a2 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; " 128"
10a4 e006 | | Load 0x0,0x6
10a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
10a6 e006 | | Load 0x0,0x6
10a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10a8 0119 | | Execute Any,Check_In_Formal_Type
10a9 4801 |H | Short_Literal 0x1
10aa 00da | | Load_Top At_Offset_2
10ab 01d6 | | Execute Vector,Field_Write
10ac 600b |` | Indirect_Literal Discrete,0x10b8,{0x00000000, 0x0000819e}
10ad e001 | | Load 0x0,0x1
10ae 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
10af 6008 |` | Indirect_Literal Discrete,0x10b8,{0x00000000, 0x0000819e}
10b0 a5fc | | Store_Unchecked 0x2,-0x4
10b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10b2 67a5 |g | Indirect_Literal Discrete,0x1058,{0x00000000, 0x0000813b}
10b3 a5fc | | Store_Unchecked 0x2,-0x4
10b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10b5 0000 0000 | | .XXX[0x3]
10b7 0000 | |
10b8 0000 0000 | | .LITERAL {0x00000000, 0x0000819e}
10bc 0000 0000 | | .BLANK 0000[0x4]
10c0 ; --------------------------------------------------------------------------------------
10c0 ; SUBPROGRAM
10c0 ; --------------------------------------------------------------------------------------
10c0 10ca | | .CONST 0x10ca ; Address of begin
10c1 10f8 | | .CONST 0x10f8 ; Address of exception handler
10c2 0003 | | .CONST 0x0003 ; Number of locals
10c3 INIT_10c0:
10c3 00da | | Load_Top At_Offset_2
10c4 e004 | | Load 0x0,0x4
10c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
10c6 e26f | o | Load 0x1,0x6f
10c7 0322 | " | Declare_Variable Record
10c8 00d8 | | Load_Top At_Offset_0
10c9 1c00 | | Execute_Immediate Run_Utility,0x0
10ca BODY_10c0:
10ca 4800 |H | Short_Literal 0x0
10cb a5fc | | Store_Unchecked 0x2,-0x4
10cc 00d8 | | Load_Top At_Offset_0
10cd e5fd | | Load 0x2,-0x3
10ce 00db | | Load_Top At_Offset_3
10cf 82a6 | | Call 0x1,0xa6
10d0 00d1 | | Pop_Control Pop_Count_1
10d1 e5fe | | Load 0x2,-0x2
10d2 01db | | Execute Vector,Length
10d3 0c81 | | Execute_Immediate Greater_Equal,-0x7f
10d4 6802 |h | Jump_Zero 0x10d7
10d5 e016 | | Load 0x0,0x16
10d6 0257 | W | Execute Discrete,Raise
10d7 e5fe | | Load 0x2,-0x2
10d8 4801 |H | Short_Literal 0x1
10d9 e5fe | | Load 0x2,-0x2
10da 01db | | Execute Vector,Length
10db 00d8 | | Load_Top At_Offset_0
10dc 00e2 | | Load_Encached Integer_Cache
10dd 0260 | ` | Execute Discrete,In_Type
10de 7001 |p | Jump_Nonzero 0x10e0
10df 0801 | | Execute_Immediate Raise,0x1
10e0 00db | | Load_Top At_Offset_3
10e1 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
10e2 01ce | | Execute Vector,Slice_Write
10e3 e5fe | | Load 0x2,-0x2
10e4 01db | | Execute Vector,Length
10e5 00d9 | | Load_Top At_Offset_1
10e6 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
10e7 e001 | | Load 0x0,0x1
10e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10e9 e5fd | | Load 0x2,-0x3
10ea e5ff | | Load 0x2,-0x1
10eb 8261 | a | Call 0x1,0x61
10ec c5fc | | Store 0x2,-0x4
10ed e5fd | | Load 0x2,-0x3
10ee 00d9 | | Load_Top At_Offset_1
10ef 00db | | Load_Top At_Offset_3
10f0 82a8 | | Call 0x1,0xa8
10f1 e001 | | Load 0x0,0x1
10f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10f3 e5fd | | Load 0x2,-0x3
10f4 e5ff | | Load 0x2,-0x1
10f5 8260 | ` | Call 0x1,0x60
10f6 c5fc | | Store 0x2,-0x4
10f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
10f8 TRAP_10c0:
10f8 e016 | | Load 0x0,0x16
10f9 010f | | Execute Exception,Equal
10fa 6817 |h | Jump_Zero 0x1112
10fb e5fd | | Load 0x2,-0x3
10fc 4801 |H | Short_Literal 0x1
10fd 4801 |H | Short_Literal 0x1
10fe e006 | | Load 0x0,0x6
10ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1100 035b | [ | Declare_Type Array,Constrained
1101 0337 | 7 | Declare_Variable Array
1102 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; " 128"
1104 e006 | | Load 0x0,0x6
1105 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1106 e006 | | Load 0x0,0x6
1107 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1108 0119 | | Execute Any,Check_In_Formal_Type
1109 4801 |H | Short_Literal 0x1
110a 00da | | Load_Top At_Offset_2
110b 01d6 | | Execute Vector,Field_Write
110c 67ab |g | Indirect_Literal Discrete,0x10b8,{0x00000000, 0x0000819e}
110d e001 | | Load 0x0,0x1
110e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
110f 67a8 |g | Indirect_Literal Discrete,0x10b8,{0x00000000, 0x0000819e}
1110 a5fc | | Store_Unchecked 0x2,-0x4
1111 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1112 6005 |` | Indirect_Literal Discrete,0x1118,{0x00000000, 0x0000813b}
1113 a5fc | | Store_Unchecked 0x2,-0x4
1114 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1115 0000 0000 | | .XXX[0x3]
1117 0000 | |
1118 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
111c 0000 0000 | | .BLANK 0000[0x4]
1120 ; --------------------------------------------------------------------------------------
1120 ; SUBPROGRAM
1120 ; --------------------------------------------------------------------------------------
1120 1135 | 5 | .CONST 0x1135 ; Address of begin
1121 11c5 | | .CONST 0x11c5 ; Address of exception handler
1122 0006 | | .CONST 0x0006 ; Number of locals
1123 INIT_1120:
1123 e00c | | Load 0x0,0xc
1124 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1125 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1126 e00c | | Load 0x0,0xc
1127 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1128 e00c | | Load 0x0,0xc
1129 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
112a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
112b 02c7 | | Declare_Variable Any
112c 00d8 | | Load_Top At_Offset_0
112d 1c00 | | Execute_Immediate Run_Utility,0x0
112e e00c | | Load 0x0,0xc
112f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1130 02c7 | | Declare_Variable Any
1131 00d8 | | Load_Top At_Offset_0
1132 1c00 | | Execute_Immediate Run_Utility,0x0
1133 029f 18a3 | | Declare_Subprogram INIT_18a0,For_Call
1135 BODY_1120:
1135 4800 |H | Short_Literal 0x0
1136 a5fc | | Store_Unchecked 0x2,-0x4
1137 e00c | | Load 0x0,0xc
1138 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1139 1b0f | | Execute Package,Field_Read,Field_Number 0xf
113a 00db | | Load_Top At_Offset_3
113b 60a8 |` | Indirect_Literal Discrete,0x11e4,{0x00000000, 0x00004000}
113c e011 | | Load 0x0,0x11
113d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
113e e017 | | Load 0x0,0x17
113f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1140 e018 | | Load 0x0,0x18
1141 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1142 4801 |H | Short_Literal 0x1
1143 4800 |H | Short_Literal 0x0
1144 e017 | | Load 0x0,0x17
1145 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1146 e00c | | Load 0x0,0xc
1147 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1148 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1149 e5ff | | Load 0x2,-0x1
114a 0092 1ae5 | | Action Push_String_Extended,0x1ae5 ; ".??'c(library)"
114c 01cc | | Execute Vector,Catenate
114d e00c | | Load 0x0,0xc
114e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
114f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1150 c404 | | Store 0x2,0x4
1151 c402 | | Store 0x2,0x2
1152 e402 | | Load 0x2,0x2
1153 6819 |h | Jump_Zero 0x116d
1154 e5fe | | Load 0x2,-0x2
1155 4801 |H | Short_Literal 0x1
1156 4801 |H | Short_Literal 0x1
1157 e006 | | Load 0x0,0x6
1158 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1159 035b | [ | Declare_Type Array,Constrained
115a 0337 | 7 | Declare_Variable Array
115b e5ff | | Load 0x2,-0x1
115c 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "??'c(library)"
115e 01cc | | Execute Vector,Catenate
115f e006 | | Load 0x0,0x6
1160 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1161 e006 | | Load 0x0,0x6
1162 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1163 0119 | | Execute Any,Check_In_Formal_Type
1164 4801 |H | Short_Literal 0x1
1165 00da | | Load_Top At_Offset_2
1166 01d6 | | Execute Vector,Field_Write
1167 6078 |`x | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197}
1168 e001 | | Load 0x0,0x1
1169 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
116a 6075 |`u | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197}
116b a5fc | | Store_Unchecked 0x2,-0x4
116c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
116d 00da | | Load_Top At_Offset_2
116e e00c | | Load 0x0,0xc
116f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1170 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1171 6819 |h | Jump_Zero 0x118b
1172 e5fe | | Load 0x2,-0x2
1173 4801 |H | Short_Literal 0x1
1174 4801 |H | Short_Literal 0x1
1175 e006 | | Load 0x0,0x6
1176 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1177 035b | [ | Declare_Type Array,Constrained
1178 0337 | 7 | Declare_Variable Array
1179 e5ff | | Load 0x2,-0x1
117a 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "??'c(library)"
117c 01cc | | Execute Vector,Catenate
117d e006 | | Load 0x0,0x6
117e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
117f e006 | | Load 0x0,0x6
1180 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1181 0119 | | Execute Any,Check_In_Formal_Type
1182 4801 |H | Short_Literal 0x1
1183 00da | | Load_Top At_Offset_2
1184 01d6 | | Execute Vector,Field_Write
1185 605a |`Z | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197}
1186 e001 | | Load 0x0,0x1
1187 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1188 6057 |`W | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197}
1189 a5fc | | Store_Unchecked 0x2,-0x4
118a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
118b 00cf | | Action Mark_Auxiliary
118c 7832 |x2 | Jump 0x11bf
118d e00c | | Load 0x0,0xc
118e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
118f 00db | | Load_Top At_Offset_3
1190 0120 | | Execute Any,Is_Value
1191 6803 |h | Jump_Zero 0x1195
1192 e00c | | Load 0x0,0xc
1193 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1194 7801 |x | Jump 0x1196
1195 00db | | Load_Top At_Offset_3
1196 e404 | | Load 0x2,0x4
1197 e00c | | Load 0x0,0xc
1198 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1199 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
119a c405 | | Store 0x2,0x5
119b c403 | | Store 0x2,0x3
119c e403 | | Load 0x2,0x3
119d 6819 |h | Jump_Zero 0x11b7
119e e5fe | | Load 0x2,-0x2
119f 4801 |H | Short_Literal 0x1
11a0 4801 |H | Short_Literal 0x1
11a1 e006 | | Load 0x0,0x6
11a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11a3 035b | [ | Declare_Type Array,Constrained
11a4 0337 | 7 | Declare_Variable Array
11a5 e5ff | | Load 0x2,-0x1
11a6 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "??'c(library)"
11a8 01cc | | Execute Vector,Catenate
11a9 e006 | | Load 0x0,0x6
11aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11ab e006 | | Load 0x0,0x6
11ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
11ad 0119 | | Execute Any,Check_In_Formal_Type
11ae 4801 |H | Short_Literal 0x1
11af 00da | | Load_Top At_Offset_2
11b0 01d6 | | Execute Vector,Field_Write
11b1 602e |`. | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197}
11b2 e001 | | Load 0x0,0x1
11b3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
11b4 602b |`+ | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197}
11b5 a5fc | | Store_Unchecked 0x2,-0x4
11b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
11b7 00da | | Load_Top At_Offset_2
11b8 8406 | | Call 0x2,0x6
11b9 00db | | Load_Top At_Offset_3
11ba e00c | | Load 0x0,0xc
11bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
11bc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
11bd c404 | | Store 0x2,0x4
11be 00c9 | | Action Pop_Auxiliary_Loop
11bf 00db | | Load_Top At_Offset_3
11c0 e00c | | Load 0x0,0xc
11c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
11c2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
11c3 6fc9 |o | Jump_Zero 0x118d
11c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
11c5 TRAP_1120:
11c5 0007 | | Action Break_Optional
11c6 e5fe | | Load 0x2,-0x2
11c7 4801 |H | Short_Literal 0x1
11c8 4801 |H | Short_Literal 0x1
11c9 e006 | | Load 0x0,0x6
11ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11cb 035b | [ | Declare_Type Array,Constrained
11cc 0337 | 7 | Declare_Variable Array
11cd e5ff | | Load 0x2,-0x1
11ce e006 | | Load 0x0,0x6
11cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11d0 e006 | | Load 0x0,0x6
11d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
11d2 0119 | | Execute Any,Check_In_Formal_Type
11d3 4801 |H | Short_Literal 0x1
11d4 00da | | Load_Top At_Offset_2
11d5 01d6 | | Execute Vector,Field_Write
11d6 6005 |` | Indirect_Literal Discrete,0x11dc,{0x00000000, 0x000081b6}
11d7 e001 | | Load 0x0,0x1
11d8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
11d9 6002 |` | Indirect_Literal Discrete,0x11dc,{0x00000000, 0x000081b6}
11da a5fc | | Store_Unchecked 0x2,-0x4
11db 4504 |E | Exit_Suprogram New_Top_Offset 0x4
11dc 0000 0000 | | .LITERAL {0x00000000, 0x000081b6}
11e0 0000 0000 | | .LITERAL {0x00000000, 0x00008197}
11e4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
11e8 ; --------------------------------------------------------------------------------------
11e8 ; SUBPROGRAM
11e8 ; --------------------------------------------------------------------------------------
11e8 1203 | | .CONST 0x1203 ; Address of begin
11e9 1266 | f | .CONST 0x1266 ; Address of exception handler
11ea 0009 | | .CONST 0x0009 ; Number of locals
11eb INIT_11e8:
11eb e00c | | Load 0x0,0xc
11ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
11ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11ee e00c | | Load 0x0,0xc
11ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11f0 0092 1ae7 | | Action Push_String_Extended,0x1ae7 ; "_secondary_"
11f2 e00c | | Load 0x0,0xc
11f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
11f4 1b18 | | Execute Package,Field_Read,Field_Number 0x18
11f5 02c7 | | Declare_Variable Any
11f6 00d8 | | Load_Top At_Offset_0
11f7 1c00 | | Execute_Immediate Run_Utility,0x0
11f8 e00c | | Load 0x0,0xc
11f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11fa 02c7 | | Declare_Variable Any
11fb 00d8 | | Load_Top At_Offset_0
11fc 1c00 | | Execute_Immediate Run_Utility,0x0
11fd 029f 18eb | | Declare_Subprogram INIT_18e8,For_Call
11ff 029f 191b | | Declare_Subprogram INIT_1918,For_Call
1201 029f 1943 | C| Declare_Subprogram INIT_1940,For_Call
1203 BODY_11e8:
1203 4800 |H | Short_Literal 0x0
1204 a5fd | | Store_Unchecked 0x2,-0x3
1205 e00c | | Load 0x0,0xc
1206 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1207 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1208 e405 | | Load 0x2,0x5
1209 67da |g | Indirect_Literal Discrete,0x11e4,{0x00000000, 0x00004000}
120a e011 | | Load 0x0,0x11
120b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
120c e017 | | Load 0x0,0x17
120d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
120e e018 | | Load 0x0,0x18
120f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1210 4801 |H | Short_Literal 0x1
1211 4800 |H | Short_Literal 0x0
1212 e017 | | Load 0x0,0x17
1213 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1214 e00c | | Load 0x0,0xc
1215 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1216 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1217 e5ff | | Load 0x2,-0x1
1218 0092 1ae8 | | Action Push_String_Extended,0x1ae8 ; ".??[@_secondary_@_spec,@_secondary_@_body]"
121a 01cc | | Execute Vector,Catenate
121b e00c | | Load 0x0,0xc
121c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
121d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
121e c405 | | Store 0x2,0x5
121f c402 | | Store 0x2,0x2
1220 e402 | | Load 0x2,0x2
1221 6803 |h | Jump_Zero 0x1225
1222 4800 |H | Short_Literal 0x0
1223 a5fd | | Store_Unchecked 0x2,-0x3
1224 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1225 e405 | | Load 0x2,0x5
1226 e00c | | Load 0x0,0xc
1227 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1228 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1229 6802 |h | Jump_Zero 0x122c
122a 4800 |H | Short_Literal 0x0
122b a5fd | | Store_Unchecked 0x2,-0x3
122c 00cf | | Action Mark_Auxiliary
122d 7832 |x2 | Jump 0x1260
122e e00c | | Load 0x0,0xc
122f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1230 e406 | | Load 0x2,0x6
1231 0120 | | Execute Any,Is_Value
1232 6803 |h | Jump_Zero 0x1236
1233 e00c | | Load 0x0,0xc
1234 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1235 7801 |x | Jump 0x1237
1236 e406 | | Load 0x2,0x6
1237 e405 | | Load 0x2,0x5
1238 e00c | | Load 0x0,0xc
1239 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
123a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
123b c406 | | Store 0x2,0x6
123c c403 | | Store 0x2,0x3
123d e403 | | Load 0x2,0x3
123e 6819 |h | Jump_Zero 0x1258
123f 67a0 |g | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197}
1240 a5fd | | Store_Unchecked 0x2,-0x3
1241 e5fe | | Load 0x2,-0x2
1242 4801 |H | Short_Literal 0x1
1243 4801 |H | Short_Literal 0x1
1244 e006 | | Load 0x0,0x6
1245 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1246 035b | [ | Declare_Type Array,Constrained
1247 0337 | 7 | Declare_Variable Array
1248 e5ff | | Load 0x2,-0x1
1249 0092 1ae8 | | Action Push_String_Extended,0x1ae8 ; ".??[@_secondary_@_spec,@_secondary_@_body]"
124b 01cc | | Execute Vector,Catenate
124c e006 | | Load 0x0,0x6
124d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
124e e006 | | Load 0x0,0x6
124f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1250 0119 | | Execute Any,Check_In_Formal_Type
1251 4801 |H | Short_Literal 0x1
1252 00da | | Load_Top At_Offset_2
1253 01d6 | | Execute Vector,Field_Write
1254 678b |g | Indirect_Literal Discrete,0x11e0,{0x00000000, 0x00008197}
1255 e001 | | Load 0x0,0x1
1256 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1257 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1258 e406 | | Load 0x2,0x6
1259 8409 | | Call 0x2,0x9
125a e405 | | Load 0x2,0x5
125b e00c | | Load 0x0,0xc
125c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
125d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
125e c405 | | Store 0x2,0x5
125f 00c9 | | Action Pop_Auxiliary_Loop
1260 e405 | | Load 0x2,0x5
1261 e00c | | Load 0x0,0xc
1262 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1263 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1264 6fc9 |o | Jump_Zero 0x122e
1265 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1266 TRAP_11e8:
1266 0007 | | Action Break_Optional
1267 e5fe | | Load 0x2,-0x2
1268 4801 |H | Short_Literal 0x1
1269 4801 |H | Short_Literal 0x1
126a e006 | | Load 0x0,0x6
126b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
126c 035b | [ | Declare_Type Array,Constrained
126d 0337 | 7 | Declare_Variable Array
126e e5ff | | Load 0x2,-0x1
126f e006 | | Load 0x0,0x6
1270 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1271 e006 | | Load 0x0,0x6
1272 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1273 0119 | | Execute Any,Check_In_Formal_Type
1274 4801 |H | Short_Literal 0x1
1275 00da | | Load_Top At_Offset_2
1276 01d6 | | Execute Vector,Field_Write
1277 6008 |` | Indirect_Literal Discrete,0x1280,{0x00000000, 0x000081b7}
1278 e001 | | Load 0x0,0x1
1279 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
127a 6005 |` | Indirect_Literal Discrete,0x1280,{0x00000000, 0x000081b7}
127b a5fd | | Store_Unchecked 0x2,-0x3
127c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
127d 0000 0000 | | .XXX[0x3]
127f 0000 | |
1280 0000 0000 | | .LITERAL {0x00000000, 0x000081b7}
1284 0000 0000 | | .BLANK 0000[0x4]
1288 ; --------------------------------------------------------------------------------------
1288 ; SUBPROGRAM
1288 ; --------------------------------------------------------------------------------------
1288 128b | | .CONST 0x128b ; Address of begin
1289 1298 | | .CONST 0x1298 ; Address of exception handler
128a 0001 | | .CONST 0x0001 ; Number of locals
128b BODY_1288:
128b INIT_1288:
128b 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>"
128d 0092 1ad9 | | Action Push_String_Extended,0x1ad9 ; "<DIRECTORIES>"
128f e5ff | | Load 0x2,-0x1
1290 0092 1ae8 | | Action Push_String_Extended,0x1ae8 ; ".??[@_secondary_@_spec,@_secondary_@_body]"
1292 01cc | | Execute Vector,Catenate
1293 e012 | | Load 0x0,0x12
1294 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1295 4800 |H | Short_Literal 0x0
1296 a5fd | | Store_Unchecked 0x2,-0x3
1297 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1298 TRAP_1288:
1298 0007 | | Action Break_Optional
1299 e5fe | | Load 0x2,-0x2
129a 4801 |H | Short_Literal 0x1
129b 4801 |H | Short_Literal 0x1
129c e006 | | Load 0x0,0x6
129d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
129e 035b | [ | Declare_Type Array,Constrained
129f 0337 | 7 | Declare_Variable Array
12a0 e5ff | | Load 0x2,-0x1
12a1 e006 | | Load 0x0,0x6
12a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
12a3 e006 | | Load 0x0,0x6
12a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12a5 0119 | | Execute Any,Check_In_Formal_Type
12a6 4801 |H | Short_Literal 0x1
12a7 00da | | Load_Top At_Offset_2
12a8 01d6 | | Execute Vector,Field_Write
12a9 6006 |` | Indirect_Literal Discrete,0x12b0,{0x00000000, 0x000081b5}
12aa e001 | | Load 0x0,0x1
12ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
12ac 6003 |` | Indirect_Literal Discrete,0x12b0,{0x00000000, 0x000081b5}
12ad a5fd | | Store_Unchecked 0x2,-0x3
12ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3
12af 0000 | | .XXX[0x1]
12b0 0000 0000 | | .LITERAL {0x00000000, 0x000081b5}
12b4 0000 0000 | | .BLANK 0000[0x4]
12b8 ; --------------------------------------------------------------------------------------
12b8 ; SUBPROGRAM
12b8 ; --------------------------------------------------------------------------------------
12b8 12cd | | .CONST 0x12cd ; Address of begin
12b9 0004 | | .CONST 0x0004 ; Address of exception handler
12ba 0007 | | .CONST 0x0007 ; Number of locals
12bb INIT_12b8:
12bb e00c | | Load 0x0,0xc
12bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12bd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
12be 02c7 | | Declare_Variable Any
12bf 00d8 | | Load_Top At_Offset_0
12c0 1c00 | | Execute_Immediate Run_Utility,0x0
12c1 e00c | | Load 0x0,0xc
12c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12c3 02c7 | | Declare_Variable Any
12c4 00d8 | | Load_Top At_Offset_0
12c5 1c00 | | Execute_Immediate Run_Utility,0x0
12c6 e001 | | Load 0x0,0x1
12c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12c8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
12c9 00e2 | | Load_Encached Integer_Cache
12ca 00e1 | | Load_Encached Boolean_Cache
12cb 029f 199b | | Declare_Subprogram INIT_1998,For_Call
12cd BODY_12b8:
12cd e5ff | | Load 0x2,-0x1
12ce e004 | | Load 0x0,0x4
12cf 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
12d0 7001 |p | Jump_Nonzero 0x12d2
12d1 8407 | | Call 0x2,0x7
12d2 4800 |H | Short_Literal 0x0
12d3 a5fc | | Store_Unchecked 0x2,-0x4
12d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
12d5 0000 0000 | | .XXX[0x3]
12d7 0000 | |
12d8 ; --------------------------------------------------------------------------------------
12d8 ; SUBPROGRAM
12d8 ; --------------------------------------------------------------------------------------
12d8 12db | | .CONST 0x12db ; Address of begin
12d9 12e0 | | .CONST 0x12e0 ; Address of exception handler
12da 0001 | | .CONST 0x0001 ; Number of locals
12db BODY_12d8:
12db INIT_12d8:
12db 00da | | Load_Top At_Offset_2
12dc e019 | | Load 0x0,0x19
12dd 1819 | | Execute Package,Field_Execute,Field_Number 0x19
12de c5ff | | Store 0x2,-0x1
12df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
12e0 TRAP_12d8:
12e0 0007 | | Action Break_Optional
12e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
12e2 0000 0000 | | .BLANK 0000[0x6]
12e8 ; --------------------------------------------------------------------------------------
12e8 ; SUBPROGRAM
12e8 ; --------------------------------------------------------------------------------------
12e8 12eb | | .CONST 0x12eb ; Address of begin
12e9 12f0 | | .CONST 0x12f0 ; Address of exception handler
12ea 0001 | | .CONST 0x0001 ; Number of locals
12eb BODY_12e8:
12eb INIT_12e8:
12eb 00da | | Load_Top At_Offset_2
12ec e014 | | Load 0x0,0x14
12ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b
12ee c5ff | | Store 0x2,-0x1
12ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
12f0 TRAP_12e8:
12f0 0007 | | Action Break_Optional
12f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
12f2 0000 0000 | | .BLANK 0000[0x6]
12f8 ; --------------------------------------------------------------------------------------
12f8 ; SUBPROGRAM
12f8 ; --------------------------------------------------------------------------------------
12f8 1300 | | .CONST 0x1300 ; Address of begin
12f9 1310 | | .CONST 0x1310 ; Address of exception handler
12fa 0002 | | .CONST 0x0002 ; Number of locals
12fb INIT_12f8:
12fb e019 | | Load 0x0,0x19
12fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12fd 02c7 | | Declare_Variable Any
12fe 00d8 | | Load_Top At_Offset_0
12ff 1c00 | | Execute_Immediate Run_Utility,0x0
1300 BODY_12f8:
1300 00d8 | | Load_Top At_Offset_0
1301 e011 | | Load 0x0,0x11
1302 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1303 e00c | | Load 0x0,0xc
1304 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1305 00ea | | Load_Encached Null_String_Cache
1306 e5ff | | Load 0x2,-0x1
1307 4801 |H | Short_Literal 0x1
1308 e019 | | Load 0x0,0x19
1309 1814 | | Execute Package,Field_Execute,Field_Number 0x14
130a c402 | | Store 0x2,0x2
130b 00d8 | | Load_Top At_Offset_0
130c e019 | | Load 0x0,0x19
130d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
130e c402 | | Store 0x2,0x2
130f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1310 TRAP_12f8:
1310 0007 | | Action Break_Optional
1311 00d9 | | Load_Top At_Offset_1
1312 8290 | | Call 0x1,0x90
1313 c402 | | Store 0x2,0x2
1314 e5fe | | Load 0x2,-0x2
1315 4801 |H | Short_Literal 0x1
1316 4801 |H | Short_Literal 0x1
1317 e006 | | Load 0x0,0x6
1318 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1319 035b | [ | Declare_Type Array,Constrained
131a 0337 | 7 | Declare_Variable Array
131b e5ff | | Load 0x2,-0x1
131c e006 | | Load 0x0,0x6
131d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
131e e006 | | Load 0x0,0x6
131f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1320 0119 | | Execute Any,Check_In_Formal_Type
1321 4801 |H | Short_Literal 0x1
1322 00da | | Load_Top At_Offset_2
1323 01d6 | | Execute Vector,Field_Write
1324 6007 |` | Indirect_Literal Discrete,0x132c,{0x00000000, 0x00008196}
1325 e001 | | Load 0x0,0x1
1326 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1327 e001 | | Load 0x0,0x1
1328 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1329 0257 | W | Execute Discrete,Raise
132a 0000 0000 | | .XXX[0x2]
132c 0000 0000 | | .LITERAL {0x00000000, 0x00008196}
1330 ; --------------------------------------------------------------------------------------
1330 ; SUBPROGRAM
1330 ; --------------------------------------------------------------------------------------
1330 1333 | 3 | .CONST 0x1333 ; Address of begin
1331 0004 | | .CONST 0x0004 ; Address of exception handler
1332 0001 | | .CONST 0x0001 ; Number of locals
1333 BODY_1330:
1333 INIT_1330:
1333 4800 |H | Short_Literal 0x0
1334 4801 |H | Short_Literal 0x1
1335 4801 |H | Short_Literal 0x1
1336 6005 |` | Indirect_Literal Discrete,0x133c,{0x00000000, 0x0000076d}
1337 e00e | | Load 0x0,0xe
1338 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1339 00ca | | Action Exit_Nullary_Function
133a 0000 0000 | | .XXX[0x2]
133c 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
1340 ; --------------------------------------------------------------------------------------
1340 ; SUBPROGRAM
1340 ; --------------------------------------------------------------------------------------
1340 1346 | F | .CONST 0x1346 ; Address of begin
1341 0004 | | .CONST 0x0004 ; Address of exception handler
1342 0002 | | .CONST 0x0002 ; Number of locals
1343 INIT_1340:
1343 00da | | Load_Top At_Offset_2
1344 e004 | | Load 0x0,0x4
1345 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1346 BODY_1340:
1346 00d8 | | Load_Top At_Offset_0
1347 0092 1ae9 | | Action Push_String_Extended,0x1ae9 ; ".<"
1349 01cc | | Execute Vector,Catenate
134a e28e | | Load 0x1,0x8e
134b 01cc | | Execute Vector,Catenate
134c 0092 1aea | | Action Push_String_Extended,0x1aea ; "state>"
134e 01cc | | Execute Vector,Catenate
134f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1350 ; --------------------------------------------------------------------------------------
1350 ; SUBPROGRAM
1350 ; --------------------------------------------------------------------------------------
1350 1353 | S | .CONST 0x1353 ; Address of begin
1351 0004 | | .CONST 0x0004 ; Address of exception handler
1352 0001 | | .CONST 0x0001 ; Number of locals
1353 BODY_1350:
1353 INIT_1350:
1353 00da | | Load_Top At_Offset_2
1354 01db | | Execute Vector,Length
1355 0c02 | | Execute_Immediate Greater_Equal,0x2
1356 6810 |h | Jump_Zero 0x1367
1357 4801 |H | Short_Literal 0x1
1358 00db | | Load_Top At_Offset_3
1359 01d7 | | Execute Vector,Field_Read
135a 0f20 | | Execute_Immediate Equal,0x20
135b 680b |h | Jump_Zero 0x1367
135c 4802 |H | Short_Literal 0x2
135d 00db | | Load_Top At_Offset_3
135e 01db | | Execute Vector,Length
135f 00d8 | | Load_Top At_Offset_0
1360 00e2 | | Load_Encached Integer_Cache
1361 0260 | ` | Execute Discrete,In_Type
1362 7001 |p | Jump_Nonzero 0x1364
1363 0801 | | Execute_Immediate Raise,0x1
1364 e5ff | | Load 0x2,-0x1
1365 01cf | | Execute Vector,Slice_Read
1366 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1367 00da | | Load_Top At_Offset_2
1368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1369 0000 0000 | | .BLANK 0000[0x7]
1370 ; --------------------------------------------------------------------------------------
1370 ; SUBPROGRAM
1370 ; --------------------------------------------------------------------------------------
1370 1376 | v | .CONST 0x1376 ; Address of begin
1371 0004 | | .CONST 0x0004 ; Address of exception handler
1372 0002 | | .CONST 0x0002 ; Number of locals
1373 INIT_1370:
1373 00da | | Load_Top At_Offset_2
1374 e004 | | Load 0x0,0x4
1375 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1376 BODY_1370:
1376 00d8 | | Load_Top At_Offset_0
1377 0092 1ae9 | | Action Push_String_Extended,0x1ae9 ; ".<"
1379 01cc | | Execute Vector,Catenate
137a e28e | | Load 0x1,0x8e
137b 01cc | | Execute Vector,Catenate
137c e5fe | | Load 0x2,-0x2
137d 01cc | | Execute Vector,Catenate
137e 0092 1aeb | | Action Push_String_Extended,0x1aeb ; ">"
1380 01cc | | Execute Vector,Catenate
1381 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1382 0000 0000 | | .BLANK 0000[0x6]
1388 ; --------------------------------------------------------------------------------------
1388 ; SUBPROGRAM
1388 ; --------------------------------------------------------------------------------------
1388 1393 | | .CONST 0x1393 ; Address of begin
1389 0004 | | .CONST 0x0004 ; Address of exception handler
138a 0003 | | .CONST 0x0003 ; Number of locals
138b INIT_1388:
138b e00c | | Load 0x0,0xc
138c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
138d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
138e e00c | | Load 0x0,0xc
138f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1390 02c7 | | Declare_Variable Any
1391 00d8 | | Load_Top At_Offset_0
1392 1c00 | | Execute_Immediate Run_Utility,0x0
1393 BODY_1388:
1393 e00c | | Load 0x0,0xc
1394 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1395 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1396 00d9 | | Load_Top At_Offset_1
1397 0120 | | Execute Any,Is_Value
1398 6803 |h | Jump_Zero 0x139c
1399 e00c | | Load 0x0,0xc
139a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
139b 7801 |x | Jump 0x139d
139c 00d9 | | Load_Top At_Offset_1
139d 6016 |` | Indirect_Literal Discrete,0x13b4,{0x00000000, 0x00004000}
139e e011 | | Load 0x0,0x11
139f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13a0 e017 | | Load 0x0,0x17
13a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
13a2 e00c | | Load 0x0,0xc
13a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13a4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
13a5 e5ff | | Load 0x2,-0x1
13a6 e00c | | Load 0x0,0xc
13a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13a8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
13a9 c403 | | Store 0x2,0x3
13aa 005a | Z | Store_Top Discrete,At_Offset_2
13ab 00d9 | | Load_Top At_Offset_1
13ac 6803 |h | Jump_Zero 0x13b0
13ad e00c | | Load 0x0,0xc
13ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10
13af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
13b0 00d8 | | Load_Top At_Offset_0
13b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
13b2 0000 0000 | | .XXX[0x2]
13b4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
13b8 ; --------------------------------------------------------------------------------------
13b8 ; SUBPROGRAM
13b8 ; --------------------------------------------------------------------------------------
13b8 13c3 | | .CONST 0x13c3 ; Address of begin
13b9 0004 | | .CONST 0x0004 ; Address of exception handler
13ba 0003 | | .CONST 0x0003 ; Number of locals
13bb INIT_13b8:
13bb e00c | | Load 0x0,0xc
13bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13be e00c | | Load 0x0,0xc
13bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13c0 02c7 | | Declare_Variable Any
13c1 00d8 | | Load_Top At_Offset_0
13c2 1c00 | | Execute_Immediate Run_Utility,0x0
13c3 BODY_13b8:
13c3 e00c | | Load 0x0,0xc
13c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13c6 00d9 | | Load_Top At_Offset_1
13c7 0120 | | Execute Any,Is_Value
13c8 6803 |h | Jump_Zero 0x13cc
13c9 e00c | | Load 0x0,0xc
13ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13cb 7801 |x | Jump 0x13cd
13cc 00d9 | | Load_Top At_Offset_1
13cd 67e6 |g | Indirect_Literal Discrete,0x13b4,{0x00000000, 0x00004000}
13ce e011 | | Load 0x0,0x11
13cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13d0 e017 | | Load 0x0,0x17
13d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
13d2 e00c | | Load 0x0,0xc
13d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
13d5 e5ff | | Load 0x2,-0x1
13d6 e00c | | Load 0x0,0xc
13d7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13d8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
13d9 c403 | | Store 0x2,0x3
13da 005a | Z | Store_Top Discrete,At_Offset_2
13db 00d9 | | Load_Top At_Offset_1
13dc 6816 |h | Jump_Zero 0x13f3
13dd e5fe | | Load 0x2,-0x2
13de 4801 |H | Short_Literal 0x1
13df 4801 |H | Short_Literal 0x1
13e0 e006 | | Load 0x0,0x6
13e1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13e2 035b | [ | Declare_Type Array,Constrained
13e3 0337 | 7 | Declare_Variable Array
13e4 e5ff | | Load 0x2,-0x1
13e5 e006 | | Load 0x0,0x6
13e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
13e7 e006 | | Load 0x0,0x6
13e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13e9 0119 | | Execute Any,Check_In_Formal_Type
13ea 4801 |H | Short_Literal 0x1
13eb 00da | | Load_Top At_Offset_2
13ec 01d6 | | Execute Vector,Field_Write
13ed 600a |` | Indirect_Literal Discrete,0x13f8,{0x00000000, 0x00008197}
13ee e001 | | Load 0x0,0x1
13ef 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
13f0 e001 | | Load 0x0,0x1
13f1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
13f2 0257 | W | Execute Discrete,Raise
13f3 00d8 | | Load_Top At_Offset_0
13f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
13f5 0000 0000 | | .XXX[0x3]
13f7 0000 | |
13f8 0000 0000 | | .LITERAL {0x00000000, 0x00008197}
13fc 0000 0000 | | .BLANK 0000[0x4]
1400 ; --------------------------------------------------------------------------------------
1400 ; SUBPROGRAM
1400 ; --------------------------------------------------------------------------------------
1400 140c | | .CONST 0x140c ; Address of begin
1401 0004 | | .CONST 0x0004 ; Address of exception handler
1402 0003 | | .CONST 0x0003 ; Number of locals
1403 INIT_1400:
1403 e00c | | Load 0x0,0xc
1404 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1405 1b18 | | Execute Package,Field_Read,Field_Number 0x18
1406 02c7 | | Declare_Variable Any
1407 00d8 | | Load_Top At_Offset_0
1408 1c00 | | Execute_Immediate Run_Utility,0x0
1409 e00c | | Load 0x0,0xc
140a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
140b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
140c BODY_1400:
140c e00c | | Load 0x0,0xc
140d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
140e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
140f 00da | | Load_Top At_Offset_2
1410 601f |` | Indirect_Literal Discrete,0x1430,{0x00000000, 0x00004000}
1411 e011 | | Load 0x0,0x11
1412 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1413 e017 | | Load 0x0,0x17
1414 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1415 e018 | | Load 0x0,0x18
1416 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1417 4801 |H | Short_Literal 0x1
1418 4800 |H | Short_Literal 0x0
1419 e017 | | Load 0x0,0x17
141a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
141b e00c | | Load 0x0,0xc
141c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
141d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
141e e5ff | | Load 0x2,-0x1
141f e00c | | Load 0x0,0xc
1420 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1421 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1422 c402 | | Store 0x2,0x2
1423 0059 | Y | Store_Top Discrete,At_Offset_1
1424 00d8 | | Load_Top At_Offset_0
1425 0e00 | | Execute_Immediate Not_Equal,0x0
1426 00d9 | | Load_Top At_Offset_1
1427 0e03 | | Execute_Immediate Not_Equal,0x3
1428 0279 | y | Execute Discrete,And
1429 6804 |h | Jump_Zero 0x142e
142a e00c | | Load 0x0,0xc
142b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
142c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
142d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
142e 00d9 | | Load_Top At_Offset_1
142f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1430 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1434 0000 0000 | | .BLANK 0000[0x4]
1438 ; --------------------------------------------------------------------------------------
1438 ; SUBPROGRAM
1438 ; --------------------------------------------------------------------------------------
1438 143b | ; | .CONST 0x143b ; Address of begin
1439 0004 | | .CONST 0x0004 ; Address of exception handler
143a 0001 | | .CONST 0x0001 ; Number of locals
143b BODY_1438:
143b INIT_1438:
143b 4801 |H | Short_Literal 0x1
143c 0092 1aec | | Action Push_String_Extended,0x1aec ; "<DEFAULT>"
143e e5ff | | Load 0x2,-0x1
143f e01a | | Load 0x0,0x1a
1440 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1441 6802 |h | Jump_Zero 0x1444
1442 00db | | Load_Top At_Offset_3
1443 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1444 00da | | Load_Top At_Offset_2
1445 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1446 0000 0000 | | .XXX[0x2]
1448 ; --------------------------------------------------------------------------------------
1448 ; SUBPROGRAM
1448 ; --------------------------------------------------------------------------------------
1448 1452 | R | .CONST 0x1452 ; Address of begin
1449 0004 | | .CONST 0x0004 ; Address of exception handler
144a 0003 | | .CONST 0x0003 ; Number of locals
144b INIT_1448:
144b e00c | | Load 0x0,0xc
144c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
144d 02c7 | | Declare_Variable Any
144e 00d8 | | Load_Top At_Offset_0
144f 1c00 | | Execute_Immediate Run_Utility,0x0
1450 e00c | | Load 0x0,0xc
1451 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1452 BODY_1448:
1452 e00c | | Load 0x0,0xc
1453 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1454 00da | | Load_Top At_Offset_2
1455 0120 | | Execute Any,Is_Value
1456 6803 |h | Jump_Zero 0x145a
1457 e00c | | Load 0x0,0xc
1458 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1459 7801 |x | Jump 0x145b
145a 00da | | Load_Top At_Offset_2
145b e5ff | | Load 0x2,-0x1
145c e00c | | Load 0x0,0xc
145d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
145e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
145f c402 | | Store 0x2,0x2
1460 0059 | Y | Store_Top Discrete,At_Offset_1
1461 00d8 | | Load_Top At_Offset_0
1462 7004 |p | Jump_Nonzero 0x1467
1463 00d9 | | Load_Top At_Offset_1
1464 e004 | | Load 0x0,0x4
1465 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1466 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1467 00ea | | Load_Encached Null_String_Cache
1468 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1469 0000 0000 | | .BLANK 0000[0x7]
1470 ; --------------------------------------------------------------------------------------
1470 ; SUBPROGRAM
1470 ; --------------------------------------------------------------------------------------
1470 1473 | s | .CONST 0x1473 ; Address of begin
1471 0004 | | .CONST 0x0004 ; Address of exception handler
1472 0001 | | .CONST 0x0001 ; Number of locals
1473 BODY_1470:
1473 INIT_1470:
1473 00da | | Load_Top At_Offset_2
1474 e00c | | Load 0x0,0xc
1475 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1476 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1477 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1478 ; --------------------------------------------------------------------------------------
1478 ; SUBPROGRAM
1478 ; --------------------------------------------------------------------------------------
1478 147b | { | .CONST 0x147b ; Address of begin
1479 0004 | | .CONST 0x0004 ; Address of exception handler
147a 0001 | | .CONST 0x0001 ; Number of locals
147b BODY_1478:
147b INIT_1478:
147b 4800 |H | Short_Literal 0x0
147c 4800 |H | Short_Literal 0x0
147d 4800 |H | Short_Literal 0x0
147e e5ff | | Load 0x2,-0x1
147f e00a | | Load 0x0,0xa
1480 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1481 e00a | | Load 0x0,0xa
1482 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1483 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1484 0000 0000 | | .BLANK 0000[0x4]
1488 ; --------------------------------------------------------------------------------------
1488 ; SUBPROGRAM
1488 ; --------------------------------------------------------------------------------------
1488 148b | | .CONST 0x148b ; Address of begin
1489 0004 | | .CONST 0x0004 ; Address of exception handler
148a 0001 | | .CONST 0x0001 ; Number of locals
148b BODY_1488:
148b INIT_1488:
148b 00da | | Load_Top At_Offset_2
148c e00a | | Load 0x0,0xa
148d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
148e e00a | | Load 0x0,0xa
148f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1490 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1491 0000 0000 | | .BLANK 0000[0x7]
1498 ; --------------------------------------------------------------------------------------
1498 ; SUBPROGRAM
1498 ; --------------------------------------------------------------------------------------
1498 149b | | .CONST 0x149b ; Address of begin
1499 0004 | | .CONST 0x0004 ; Address of exception handler
149a 0001 | | .CONST 0x0001 ; Number of locals
149b BODY_1498:
149b INIT_1498:
149b 00da | | Load_Top At_Offset_2
149c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
149d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
149e 0000 0000 | | .XXX[0x2]
14a0 ; --------------------------------------------------------------------------------------
14a0 ; SUBPROGRAM
14a0 ; --------------------------------------------------------------------------------------
14a0 14a3 | | .CONST 0x14a3 ; Address of begin
14a1 0004 | | .CONST 0x0004 ; Address of exception handler
14a2 0001 | | .CONST 0x0001 ; Number of locals
14a3 BODY_14a0:
14a3 INIT_14a0:
14a3 00da | | Load_Top At_Offset_2
14a4 e5fe | | Load 0x2,-0x2
14a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
14a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
14a7 0000 | | .XXX[0x1]
14a8 ; --------------------------------------------------------------------------------------
14a8 ; SUBPROGRAM
14a8 ; --------------------------------------------------------------------------------------
14a8 14ab | | .CONST 0x14ab ; Address of begin
14a9 14b5 | | .CONST 0x14b5 ; Address of exception handler
14aa 0001 | | .CONST 0x0001 ; Number of locals
14ab BODY_14a8:
14ab INIT_14a8:
14ab e5fd | | Load 0x2,-0x3
14ac 00ea | | Load_Encached Null_String_Cache
14ad e5ff | | Load 0x2,-0x1
14ae 4800 |H | Short_Literal 0x0
14af e014 | | Load 0x0,0x14
14b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
14b1 c5fd | | Store 0x2,-0x3
14b2 4801 |H | Short_Literal 0x1
14b3 a5fc | | Store_Unchecked 0x2,-0x4
14b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
14b5 TRAP_14a8:
14b5 00d8 | | Load_Top At_Offset_0
14b6 0107 | | Execute Exception,Get_Name
14b7 4920 |I | Short_Literal 0x120
14b8 492f |I/ | Short_Literal 0x12f
14b9 0262 | b | Execute Discrete,In_Range
14ba 6803 |h | Jump_Zero 0x14be
14bb 4800 |H | Short_Literal 0x0
14bc a5fc | | Store_Unchecked 0x2,-0x4
14bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
14be e5fd | | Load 0x2,-0x3
14bf 8291 | | Call 0x1,0x91
14c0 c5fd | | Store 0x2,-0x3
14c1 e5fe | | Load 0x2,-0x2
14c2 4801 |H | Short_Literal 0x1
14c3 4801 |H | Short_Literal 0x1
14c4 e006 | | Load 0x0,0x6
14c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
14c6 035b | [ | Declare_Type Array,Constrained
14c7 0337 | 7 | Declare_Variable Array
14c8 e5ff | | Load 0x2,-0x1
14c9 e006 | | Load 0x0,0x6
14ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
14cb e006 | | Load 0x0,0x6
14cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
14cd 0119 | | Execute Any,Check_In_Formal_Type
14ce 4801 |H | Short_Literal 0x1
14cf 00da | | Load_Top At_Offset_2
14d0 01d6 | | Execute Vector,Field_Write
14d1 6006 |` | Indirect_Literal Discrete,0x14d8,{0x00000000, 0x00008198}
14d2 e001 | | Load 0x0,0x1
14d3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
14d4 e001 | | Load 0x0,0x1
14d5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
14d6 0257 | W | Execute Discrete,Raise
14d7 0000 | | .XXX[0x1]
14d8 0000 0000 | | .LITERAL {0x00000000, 0x00008198}
14dc 0000 0000 | | .BLANK 0000[0x4]
14e0 ; --------------------------------------------------------------------------------------
14e0 ; SUBPROGRAM
14e0 ; --------------------------------------------------------------------------------------
14e0 14e3 | | .CONST 0x14e3 ; Address of begin
14e1 0004 | | .CONST 0x0004 ; Address of exception handler
14e2 0001 | | .CONST 0x0001 ; Number of locals
14e3 BODY_14e0:
14e3 INIT_14e0:
14e3 00db | | Load_Top At_Offset_3
14e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
14e5 00e1 | | Load_Encached Boolean_Cache
14e6 011c | | Execute Any,Convert_Unchecked
14e7 1c01 | | Execute_Immediate Run_Utility,0x1
14e8 00db | | Load_Top At_Offset_3
14e9 e014 | | Load 0x0,0x14
14ea 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
14eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
14ec 0000 0000 | | .BLANK 0000[0x4]
14f0 ; --------------------------------------------------------------------------------------
14f0 ; SUBPROGRAM
14f0 ; --------------------------------------------------------------------------------------
14f0 1501 | | .CONST 0x1501 ; Address of begin
14f1 151c | | .CONST 0x151c ; Address of exception handler
14f2 0004 | | .CONST 0x0004 ; Number of locals
14f3 INIT_14f0:
14f3 e014 | | Load 0x0,0x14
14f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
14f5 02c7 | | Declare_Variable Any
14f6 00d8 | | Load_Top At_Offset_0
14f7 1c00 | | Execute_Immediate Run_Utility,0x0
14f8 e00c | | Load 0x0,0xc
14f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
14fa 02c7 | | Declare_Variable Any
14fb e5fd | | Load 0x2,-0x3
14fc e5ff | | Load 0x2,-0x1
14fd 8298 | | Call 0x1,0x98
14fe a403 | | Store_Unchecked 0x2,0x3
14ff e001 | | Load 0x0,0x1
1500 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1501 BODY_14f0:
1501 e001 | | Load 0x0,0x1
1502 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1503 e5fd | | Load 0x2,-0x3
1504 00db | | Load_Top At_Offset_3
1505 8261 | a | Call 0x1,0x61
1506 0059 | Y | Store_Top Discrete,At_Offset_1
1507 00da | | Load_Top At_Offset_2
1508 00ea | | Load_Encached Null_String_Cache
1509 e5ff | | Load 0x2,-0x1
150a 4801 |H | Short_Literal 0x1
150b e014 | | Load 0x0,0x14
150c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
150d c402 | | Store 0x2,0x2
150e e5fe | | Load 0x2,-0x2
150f 00db | | Load_Top At_Offset_3
1510 82a2 | | Call 0x1,0xa2
1511 00da | | Load_Top At_Offset_2
1512 e014 | | Load 0x0,0x14
1513 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1514 c402 | | Store 0x2,0x2
1515 e001 | | Load 0x0,0x1
1516 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1517 e5fd | | Load 0x2,-0x3
1518 00db | | Load_Top At_Offset_3
1519 8260 | ` | Call 0x1,0x60
151a 0059 | Y | Store_Top Discrete,At_Offset_1
151b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
151c TRAP_14f0:
151c 0007 | | Action Break_Optional
151d 00db | | Load_Top At_Offset_3
151e 8291 | | Call 0x1,0x91
151f c402 | | Store 0x2,0x2
1520 e5fd | | Load 0x2,-0x3
1521 4801 |H | Short_Literal 0x1
1522 4801 |H | Short_Literal 0x1
1523 e006 | | Load 0x0,0x6
1524 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1525 035b | [ | Declare_Type Array,Constrained
1526 0337 | 7 | Declare_Variable Array
1527 e5ff | | Load 0x2,-0x1
1528 e006 | | Load 0x0,0x6
1529 1810 | | Execute Package,Field_Execute,Field_Number 0x10
152a e006 | | Load 0x0,0x6
152b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
152c 0119 | | Execute Any,Check_In_Formal_Type
152d 4801 |H | Short_Literal 0x1
152e 00da | | Load_Top At_Offset_2
152f 01d6 | | Execute Vector,Field_Write
1530 6007 |` | Indirect_Literal Discrete,0x1538,{0x00000000, 0x00008199}
1531 e001 | | Load 0x0,0x1
1532 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1533 e001 | | Load 0x0,0x1
1534 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1535 0257 | W | Execute Discrete,Raise
1536 0000 0000 | | .XXX[0x2]
1538 0000 0000 | | .LITERAL {0x00000000, 0x00008199}
153c 0000 0000 | | .BLANK 0000[0x4]
1540 ; --------------------------------------------------------------------------------------
1540 ; SUBPROGRAM
1540 ; --------------------------------------------------------------------------------------
1540 1551 | Q | .CONST 0x1551 ; Address of begin
1541 1570 | p | .CONST 0x1570 ; Address of exception handler
1542 0005 | | .CONST 0x0005 ; Number of locals
1543 INIT_1540:
1543 e014 | | Load 0x0,0x14
1544 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1545 02c7 | | Declare_Variable Any
1546 00d8 | | Load_Top At_Offset_0
1547 1c00 | | Execute_Immediate Run_Utility,0x0
1548 e28d | | Load 0x1,0x8d
1549 0322 | " | Declare_Variable Record
154a e00c | | Load 0x0,0xc
154b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
154c 02c7 | | Declare_Variable Any
154d 00d8 | | Load_Top At_Offset_0
154e 1c00 | | Execute_Immediate Run_Utility,0x0
154f e001 | | Load 0x0,0x1
1550 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1551 BODY_1540:
1551 00db | | Load_Top At_Offset_3
1552 00ea | | Load_Encached Null_String_Cache
1553 e5ff | | Load 0x2,-0x1
1554 4801 |H | Short_Literal 0x1
1555 e014 | | Load 0x0,0x14
1556 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1557 c402 | | Store 0x2,0x2
1558 4800 |H | Short_Literal 0x0
1559 00db | | Load_Top At_Offset_3
155a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
155b 00da | | Load_Top At_Offset_2
155c e402 | | Load 0x2,0x2
155d 82a2 | | Call 0x1,0xa2
155e 00db | | Load_Top At_Offset_3
155f e014 | | Load 0x0,0x14
1560 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1561 c402 | | Store 0x2,0x2
1562 e5fe | | Load 0x2,-0x2
1563 e5ff | | Load 0x2,-0x1
1564 8298 | | Call 0x1,0x98
1565 c404 | | Store 0x2,0x4
1566 e001 | | Load 0x0,0x1
1567 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1568 e5fe | | Load 0x2,-0x2
1569 00db | | Load_Top At_Offset_3
156a 8260 | ` | Call 0x1,0x60
156b 0059 | Y | Store_Top Discrete,At_Offset_1
156c 00da | | Load_Top At_Offset_2
156d e5fd | | Load 0x2,-0x3
156e 017d | } | Execute Record,Structure_Write
156f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1570 TRAP_1540:
1570 0007 | | Action Break_Optional
1571 e5fe | | Load 0x2,-0x2
1572 4801 |H | Short_Literal 0x1
1573 4801 |H | Short_Literal 0x1
1574 e006 | | Load 0x0,0x6
1575 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1576 035b | [ | Declare_Type Array,Constrained
1577 0337 | 7 | Declare_Variable Array
1578 e5ff | | Load 0x2,-0x1
1579 e006 | | Load 0x0,0x6
157a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
157b e006 | | Load 0x0,0x6
157c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
157d 0119 | | Execute Any,Check_In_Formal_Type
157e 4801 |H | Short_Literal 0x1
157f 00da | | Load_Top At_Offset_2
1580 01d6 | | Execute Vector,Field_Write
1581 6006 |` | Indirect_Literal Discrete,0x1588,{0x00000000, 0x0000819a}
1582 e001 | | Load 0x0,0x1
1583 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1584 e001 | | Load 0x0,0x1
1585 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1586 0257 | W | Execute Discrete,Raise
1587 0000 | | .XXX[0x1]
1588 0000 0000 | | .LITERAL {0x00000000, 0x0000819a}
158c 0000 0000 | | .BLANK 0000[0x4]
1590 ; --------------------------------------------------------------------------------------
1590 ; SUBPROGRAM
1590 ; --------------------------------------------------------------------------------------
1590 1599 | | .CONST 0x1599 ; Address of begin
1591 15b4 | | .CONST 0x15b4 ; Address of exception handler
1592 0003 | | .CONST 0x0003 ; Number of locals
1593 INIT_1590:
1593 e014 | | Load 0x0,0x14
1594 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1595 02c7 | | Declare_Variable Any
1596 00d8 | | Load_Top At_Offset_0
1597 1c00 | | Execute_Immediate Run_Utility,0x0
1598 00e1 | | Load_Encached Boolean_Cache
1599 BODY_1590:
1599 00e1 | | Load_Encached Boolean_Cache
159a 00da | | Load_Top At_Offset_2
159b e5fe | | Load 0x2,-0x2
159c e5ff | | Load 0x2,-0x1
159d 82a1 | | Call 0x1,0xa1
159e c402 | | Store 0x2,0x2
159f 0059 | Y | Store_Top Discrete,At_Offset_1
15a0 00d8 | | Load_Top At_Offset_0
15a1 7006 |p | Jump_Nonzero 0x15a8
15a2 e5fd | | Load 0x2,-0x3
15a3 e5fe | | Load 0x2,-0x2
15a4 e5ff | | Load 0x2,-0x1
15a5 82a4 | | Call 0x1,0xa4
15a6 00d1 | | Pop_Control Pop_Count_1
15a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
15a8 00d9 | | Load_Top At_Offset_1
15a9 e014 | | Load 0x0,0x14
15aa 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
15ab 00e1 | | Load_Encached Boolean_Cache
15ac 1c02 | | Execute_Immediate Run_Utility,0x2
15ad e5fd | | Load 0x2,-0x3
15ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
15af 00d9 | | Load_Top At_Offset_1
15b0 e014 | | Load 0x0,0x14
15b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
15b2 c402 | | Store 0x2,0x2
15b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
15b4 TRAP_1590:
15b4 0007 | | Action Break_Optional
15b5 e5fe | | Load 0x2,-0x2
15b6 4801 |H | Short_Literal 0x1
15b7 4801 |H | Short_Literal 0x1
15b8 e006 | | Load 0x0,0x6
15b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
15ba 035b | [ | Declare_Type Array,Constrained
15bb 0337 | 7 | Declare_Variable Array
15bc e5ff | | Load 0x2,-0x1
15bd e006 | | Load 0x0,0x6
15be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
15bf e006 | | Load 0x0,0x6
15c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15c1 0119 | | Execute Any,Check_In_Formal_Type
15c2 4801 |H | Short_Literal 0x1
15c3 00da | | Load_Top At_Offset_2
15c4 01d6 | | Execute Vector,Field_Write
15c5 6006 |` | Indirect_Literal Discrete,0x15cc,{0x00000000, 0x0000819b}
15c6 e001 | | Load 0x0,0x1
15c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
15c8 e001 | | Load 0x0,0x1
15c9 1b17 | | Execute Package,Field_Read,Field_Number 0x17
15ca 0257 | W | Execute Discrete,Raise
15cb 0000 | | .XXX[0x1]
15cc 0000 0000 | | .LITERAL {0x00000000, 0x0000819b}
15d0 ; --------------------------------------------------------------------------------------
15d0 ; SUBPROGRAM
15d0 ; --------------------------------------------------------------------------------------
15d0 15da | | .CONST 0x15da ; Address of begin
15d1 15e7 | | .CONST 0x15e7 ; Address of exception handler
15d2 0003 | | .CONST 0x0003 ; Number of locals
15d3 INIT_15d0:
15d3 e014 | | Load 0x0,0x14
15d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15d5 02c7 | | Declare_Variable Any
15d6 00d8 | | Load_Top At_Offset_0
15d7 1c00 | | Execute_Immediate Run_Utility,0x0
15d8 029f 19db | | Declare_Subprogram INIT_19d8,For_Call
15da BODY_15d0:
15da 00d9 | | Load_Top At_Offset_1
15db 00ea | | Load_Encached Null_String_Cache
15dc e5ff | | Load 0x2,-0x1
15dd 4800 |H | Short_Literal 0x0
15de e014 | | Load 0x0,0x14
15df 1815 | | Execute Package,Field_Execute,Field_Number 0x15
15e0 c402 | | Store 0x2,0x2
15e1 8403 | | Call 0x2,0x3
15e2 00d9 | | Load_Top At_Offset_1
15e3 e014 | | Load 0x0,0x14
15e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
15e5 c402 | | Store 0x2,0x2
15e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
15e7 TRAP_15d0:
15e7 0007 | | Action Break_Optional
15e8 00da | | Load_Top At_Offset_2
15e9 8291 | | Call 0x1,0x91
15ea c402 | | Store 0x2,0x2
15eb e5fe | | Load 0x2,-0x2
15ec 4801 |H | Short_Literal 0x1
15ed 4801 |H | Short_Literal 0x1
15ee e006 | | Load 0x0,0x6
15ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
15f0 035b | [ | Declare_Type Array,Constrained
15f1 0337 | 7 | Declare_Variable Array
15f2 e5ff | | Load 0x2,-0x1
15f3 e006 | | Load 0x0,0x6
15f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
15f5 e006 | | Load 0x0,0x6
15f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
15f7 0119 | | Execute Any,Check_In_Formal_Type
15f8 4801 |H | Short_Literal 0x1
15f9 00da | | Load_Top At_Offset_2
15fa 01d6 | | Execute Vector,Field_Write
15fb 6008 |` | Indirect_Literal Discrete,0x1604,{0x00000000, 0x0000819c}
15fc e001 | | Load 0x0,0x1
15fd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
15fe e001 | | Load 0x0,0x1
15ff 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1600 0257 | W | Execute Discrete,Raise
1601 0000 0000 | | .XXX[0x3]
1603 0000 | |
1604 0000 0000 | | .LITERAL {0x00000000, 0x0000819c}
1608 ; --------------------------------------------------------------------------------------
1608 ; SUBPROGRAM
1608 ; --------------------------------------------------------------------------------------
1608 160b | | .CONST 0x160b ; Address of begin
1609 1630 | 0 | .CONST 0x1630 ; Address of exception handler
160a 0001 | | .CONST 0x0001 ; Number of locals
160b BODY_1608:
160b INIT_1608:
160b 4801 |H | Short_Literal 0x1
160c e5fe | | Load 0x2,-0x2
160d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
160e e5fe | | Load 0x2,-0x2
160f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
1610 01cf | | Execute Vector,Slice_Read
1611 00db | | Load_Top At_Offset_3
1612 e014 | | Load 0x0,0x14
1613 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1614 4801 |H | Short_Literal 0x1
1615 e5fe | | Load 0x2,-0x2
1616 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
1617 e5fe | | Load 0x2,-0x2
1618 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
1619 01cf | | Execute Vector,Slice_Read
161a 00db | | Load_Top At_Offset_3
161b e014 | | Load 0x0,0x14
161c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
161d 4801 |H | Short_Literal 0x1
161e e5fe | | Load 0x2,-0x2
161f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
1620 e5fe | | Load 0x2,-0x2
1621 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
1622 01cf | | Execute Vector,Slice_Read
1623 00db | | Load_Top At_Offset_3
1624 e014 | | Load 0x0,0x14
1625 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1626 4801 |H | Short_Literal 0x1
1627 e5fe | | Load 0x2,-0x2
1628 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
1629 e5fe | | Load 0x2,-0x2
162a 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
162b 01cf | | Execute Vector,Slice_Read
162c 00db | | Load_Top At_Offset_3
162d e014 | | Load 0x0,0x14
162e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
162f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1630 TRAP_1608:
1630 0007 | | Action Break_Optional
1631 e001 | | Load 0x0,0x1
1632 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1633 0257 | W | Execute Discrete,Raise
1634 0000 0000 | | .BLANK 0000[0x4]
1638 ; --------------------------------------------------------------------------------------
1638 ; SUBPROGRAM
1638 ; --------------------------------------------------------------------------------------
1638 1640 | @ | .CONST 0x1640 ; Address of begin
1639 1650 | P | .CONST 0x1650 ; Address of exception handler
163a 0002 | | .CONST 0x0002 ; Number of locals
163b INIT_1638:
163b e014 | | Load 0x0,0x14
163c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
163d 02c7 | | Declare_Variable Any
163e 00d8 | | Load_Top At_Offset_0
163f 1c00 | | Execute_Immediate Run_Utility,0x0
1640 BODY_1638:
1640 00d8 | | Load_Top At_Offset_0
1641 00ea | | Load_Encached Null_String_Cache
1642 e5ff | | Load 0x2,-0x1
1643 4801 |H | Short_Literal 0x1
1644 e014 | | Load 0x0,0x14
1645 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1646 c402 | | Store 0x2,0x2
1647 e5fd | | Load 0x2,-0x3
1648 e5fe | | Load 0x2,-0x2
1649 00da | | Load_Top At_Offset_2
164a 82a7 | | Call 0x1,0xa7
164b 00d8 | | Load_Top At_Offset_0
164c e014 | | Load 0x0,0x14
164d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
164e c402 | | Store 0x2,0x2
164f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1650 TRAP_1638:
1650 0007 | | Action Break_Optional
1651 00d9 | | Load_Top At_Offset_1
1652 8291 | | Call 0x1,0x91
1653 c402 | | Store 0x2,0x2
1654 e5fd | | Load 0x2,-0x3
1655 4801 |H | Short_Literal 0x1
1656 4801 |H | Short_Literal 0x1
1657 e006 | | Load 0x0,0x6
1658 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1659 035b | [ | Declare_Type Array,Constrained
165a 0337 | 7 | Declare_Variable Array
165b e5ff | | Load 0x2,-0x1
165c e006 | | Load 0x0,0x6
165d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
165e e006 | | Load 0x0,0x6
165f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1660 0119 | | Execute Any,Check_In_Formal_Type
1661 4801 |H | Short_Literal 0x1
1662 00da | | Load_Top At_Offset_2
1663 01d6 | | Execute Vector,Field_Write
1664 6007 |` | Indirect_Literal Discrete,0x166c,{0x00000000, 0x0000819d}
1665 e001 | | Load 0x0,0x1
1666 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1667 e001 | | Load 0x0,0x1
1668 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1669 0257 | W | Execute Discrete,Raise
166a 0000 0000 | | .XXX[0x2]
166c 0000 0000 | | .LITERAL {0x00000000, 0x0000819d}
1670 ; --------------------------------------------------------------------------------------
1670 ; SUBPROGRAM
1670 ; --------------------------------------------------------------------------------------
1670 1675 | u | .CONST 0x1675 ; Address of begin
1671 16c4 | | .CONST 0x16c4 ; Address of exception handler
1672 0002 | | .CONST 0x0002 ; Number of locals
1673 INIT_1670:
1673 e5fc | | Load 0x2,-0x4
1674 829d | | Call 0x1,0x9d
1675 BODY_1670:
1675 00db | | Load_Top At_Offset_3
1676 01db | | Execute Vector,Length
1677 0c81 | | Execute_Immediate Greater_Equal,-0x7f
1678 e5fe | | Load 0x2,-0x2
1679 01db | | Execute Vector,Length
167a 0c81 | | Execute_Immediate Greater_Equal,-0x7f
167b 0278 | x | Execute Discrete,Or
167c e5fd | | Load 0x2,-0x3
167d 01db | | Execute Vector,Length
167e 0c81 | | Execute_Immediate Greater_Equal,-0x7f
167f 0278 | x | Execute Discrete,Or
1680 6802 |h | Jump_Zero 0x1683
1681 e01b | | Load 0x0,0x1b
1682 0257 | W | Execute Discrete,Raise
1683 00db | | Load_Top At_Offset_3
1684 4801 |H | Short_Literal 0x1
1685 e5ff | | Load 0x2,-0x1
1686 01db | | Execute Vector,Length
1687 00d8 | | Load_Top At_Offset_0
1688 00e2 | | Load_Encached Integer_Cache
1689 0260 | ` | Execute Discrete,In_Type
168a 7001 |p | Jump_Nonzero 0x168c
168b 0801 | | Execute_Immediate Raise,0x1
168c e5fa | | Load 0x2,-0x6
168d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
168e 01ce | | Execute Vector,Slice_Write
168f 00db | | Load_Top At_Offset_3
1690 01db | | Execute Vector,Length
1691 e5fa | | Load 0x2,-0x6
1692 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
1693 e5fe | | Load 0x2,-0x2
1694 4801 |H | Short_Literal 0x1
1695 e5fe | | Load 0x2,-0x2
1696 01db | | Execute Vector,Length
1697 00d8 | | Load_Top At_Offset_0
1698 00e2 | | Load_Encached Integer_Cache
1699 0260 | ` | Execute Discrete,In_Type
169a 7001 |p | Jump_Nonzero 0x169c
169b 0801 | | Execute_Immediate Raise,0x1
169c e5fa | | Load 0x2,-0x6
169d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
169e 01ce | | Execute Vector,Slice_Write
169f e5fe | | Load 0x2,-0x2
16a0 01db | | Execute Vector,Length
16a1 e5fa | | Load 0x2,-0x6
16a2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
16a3 e5fd | | Load 0x2,-0x3
16a4 4801 |H | Short_Literal 0x1
16a5 e5fd | | Load 0x2,-0x3
16a6 01db | | Execute Vector,Length
16a7 00d8 | | Load_Top At_Offset_0
16a8 00e2 | | Load_Encached Integer_Cache
16a9 0260 | ` | Execute Discrete,In_Type
16aa 7001 |p | Jump_Nonzero 0x16ac
16ab 0801 | | Execute_Immediate Raise,0x1
16ac e5fa | | Load 0x2,-0x6
16ad 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
16ae 01ce | | Execute Vector,Slice_Write
16af e5fd | | Load 0x2,-0x3
16b0 01db | | Execute Vector,Length
16b1 e5fa | | Load 0x2,-0x6
16b2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
16b3 00d8 | | Load_Top At_Offset_0
16b4 4801 |H | Short_Literal 0x1
16b5 00da | | Load_Top At_Offset_2
16b6 01db | | Execute Vector,Length
16b7 00d8 | | Load_Top At_Offset_0
16b8 00e2 | | Load_Encached Integer_Cache
16b9 0260 | ` | Execute Discrete,In_Type
16ba 7001 |p | Jump_Nonzero 0x16bc
16bb 0801 | | Execute_Immediate Raise,0x1
16bc e5fa | | Load 0x2,-0x6
16bd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
16be 01ce | | Execute Vector,Slice_Write
16bf 00d8 | | Load_Top At_Offset_0
16c0 01db | | Execute Vector,Length
16c1 e5fa | | Load 0x2,-0x6
16c2 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
16c3 4506 |E | Exit_Suprogram New_Top_Offset 0x6
16c4 TRAP_1670:
16c4 e01b | | Load 0x0,0x1b
16c5 010f | | Execute Exception,Equal
16c6 6817 |h | Jump_Zero 0x16de
16c7 e5fb | | Load 0x2,-0x5
16c8 4801 |H | Short_Literal 0x1
16c9 4801 |H | Short_Literal 0x1
16ca e006 | | Load 0x0,0x6
16cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
16cc 035b | [ | Declare_Type Array,Constrained
16cd 0337 | 7 | Declare_Variable Array
16ce 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; " 128"
16d0 e006 | | Load 0x0,0x6
16d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
16d2 e006 | | Load 0x0,0x6
16d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
16d4 0119 | | Execute Any,Check_In_Formal_Type
16d5 4801 |H | Short_Literal 0x1
16d6 00da | | Load_Top At_Offset_2
16d7 01d6 | | Execute Vector,Field_Write
16d8 6013 |` | Indirect_Literal Discrete,0x16ec,{0x00000000, 0x0000819e}
16d9 e001 | | Load 0x0,0x1
16da 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
16db e001 | | Load 0x0,0x1
16dc 1b17 | | Execute Package,Field_Read,Field_Number 0x17
16dd 0257 | W | Execute Discrete,Raise
16de e5fb | | Load 0x2,-0x5
16df e006 | | Load 0x0,0x6
16e0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
16e1 6006 |` | Indirect_Literal Discrete,0x16e8,{0x00000000, 0x0000819f}
16e2 e001 | | Load 0x0,0x1
16e3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
16e4 e001 | | Load 0x0,0x1
16e5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
16e6 0257 | W | Execute Discrete,Raise
16e7 0000 | | .XXX[0x1]
16e8 0000 0000 | | .LITERAL {0x00000000, 0x0000819f}
16ec 0000 0000 | | .LITERAL {0x00000000, 0x0000819e}
16f0 ; --------------------------------------------------------------------------------------
16f0 ; SUBPROGRAM
16f0 ; --------------------------------------------------------------------------------------
16f0 1708 | | .CONST 0x1708 ; Address of begin
16f1 1737 | 7 | .CONST 0x1737 ; Address of exception handler
16f2 0007 | | .CONST 0x0007 ; Number of locals
16f3 INIT_16f0:
16f3 e014 | | Load 0x0,0x14
16f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
16f5 02c7 | | Declare_Variable Any
16f6 00d8 | | Load_Top At_Offset_0
16f7 1c00 | | Execute_Immediate Run_Utility,0x0
16f8 e26f | o | Load 0x1,0x6f
16f9 0322 | " | Declare_Variable Record
16fa 00d8 | | Load_Top At_Offset_0
16fb 1c00 | | Execute_Immediate Run_Utility,0x0
16fc 00e1 | | Load_Encached Boolean_Cache
16fd e001 | | Load 0x0,0x1
16fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
16ff e5fd | | Load 0x2,-0x3
1700 e5ff | | Load 0x2,-0x1
1701 8296 | | Call 0x1,0x96
1702 e00c | | Load 0x0,0xc
1703 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1704 02c7 | | Declare_Variable Any
1705 00d9 | | Load_Top At_Offset_1
1706 8297 | | Call 0x1,0x97
1707 a407 | | Store_Unchecked 0x2,0x7
1708 BODY_16f0:
1708 00d8 | | Load_Top At_Offset_0
1709 e00c | | Load 0x0,0xc
170a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
170b 012e | . | Execute Any,Not_Equal
170c 6806 |h | Jump_Zero 0x1713
170d e001 | | Load 0x0,0x1
170e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
170f e5fb | | Load 0x2,-0x5
1710 00da | | Load_Top At_Offset_2
1711 8261 | a | Call 0x1,0x61
1712 005b | [ | Store_Top Discrete,At_Offset_3
1713 e402 | | Load 0x2,0x2
1714 00ea | | Load_Encached Null_String_Cache
1715 00db | | Load_Top At_Offset_3
1716 4801 |H | Short_Literal 0x1
1717 e014 | | Load 0x0,0x14
1718 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1719 c402 | | Store 0x2,0x2
171a e403 | | Load 0x2,0x3
171b e5fb | | Load 0x2,-0x5
171c 8293 | | Call 0x1,0x93
171d e5fd | | Load 0x2,-0x3
171e e5fc | | Load 0x2,-0x4
171f 829a | | Call 0x1,0x9a
1720 e5fd | | Load 0x2,-0x3
1721 e5fe | | Load 0x2,-0x2
1722 82a9 | | Call 0x1,0xa9
1723 00d1 | | Pop_Control Pop_Count_1
1724 e5fb | | Load 0x2,-0x5
1725 e403 | | Load 0x2,0x3
1726 e402 | | Load 0x2,0x2
1727 82a7 | | Call 0x1,0xa7
1728 e402 | | Load 0x2,0x2
1729 e014 | | Load 0x0,0x14
172a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
172b c402 | | Store 0x2,0x2
172c e5fb | | Load 0x2,-0x5
172d 00da | | Load_Top At_Offset_2
172e 8298 | | Call 0x1,0x98
172f c407 | | Store 0x2,0x7
1730 e001 | | Load 0x0,0x1
1731 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1732 e5fb | | Load 0x2,-0x5
1733 00da | | Load_Top At_Offset_2
1734 8260 | ` | Call 0x1,0x60
1735 005b | [ | Store_Top Discrete,At_Offset_3
1736 4506 |E | Exit_Suprogram New_Top_Offset 0x6
1737 TRAP_16f0:
1737 0007 | | Action Break_Optional
1738 e5fb | | Load 0x2,-0x5
1739 4801 |H | Short_Literal 0x1
173a 4801 |H | Short_Literal 0x1
173b e006 | | Load 0x0,0x6
173c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
173d 035b | [ | Declare_Type Array,Constrained
173e 0337 | 7 | Declare_Variable Array
173f e406 | | Load 0x2,0x6
1740 e006 | | Load 0x0,0x6
1741 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1742 e006 | | Load 0x0,0x6
1743 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1744 0119 | | Execute Any,Check_In_Formal_Type
1745 4801 |H | Short_Literal 0x1
1746 00da | | Load_Top At_Offset_2
1747 01d6 | | Execute Vector,Field_Write
1748 6007 |` | Indirect_Literal Discrete,0x1750,{0x00000000, 0x000081a0}
1749 e001 | | Load 0x0,0x1
174a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
174b e001 | | Load 0x0,0x1
174c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
174d 0257 | W | Execute Discrete,Raise
174e 0000 0000 | | .XXX[0x2]
1750 0000 0000 | | .LITERAL {0x00000000, 0x000081a0}
1754 0000 0000 | | .BLANK 0000[0x4]
1758 ; --------------------------------------------------------------------------------------
1758 ; SUBPROGRAM
1758 ; --------------------------------------------------------------------------------------
1758 175b | [ | .CONST 0x175b ; Address of begin
1759 0004 | | .CONST 0x0004 ; Address of exception handler
175a 0001 | | .CONST 0x0001 ; Number of locals
175b BODY_1758:
175b INIT_1758:
175b 4800 |H | Short_Literal 0x0
175c e5fe | | Load 0x2,-0x2
175d 4821 |H! | Short_Literal 0x21
175e e01a | | Load 0x0,0x1a
175f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1760 6802 |h | Jump_Zero 0x1763
1761 00db | | Load_Top At_Offset_3
1762 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1763 00da | | Load_Top At_Offset_2
1764 e004 | | Load 0x0,0x4
1765 180e | | Execute Package,Field_Execute,Field_Number 0xe
1766 6809 |h | Jump_Zero 0x1770
1767 00da | | Load_Top At_Offset_2
1768 e004 | | Load 0x0,0x4
1769 1817 | | Execute Package,Field_Execute,Field_Number 0x17
176a 0092 1aed | | Action Push_String_Extended,0x1aed ; ".Units."
176c 01cc | | Execute Vector,Catenate
176d e5fe | | Load 0x2,-0x2
176e 01cc | | Execute Vector,Catenate
176f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1770 00da | | Load_Top At_Offset_2
1771 e004 | | Load 0x0,0x4
1772 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1773 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; "."
1775 01cc | | Execute Vector,Catenate
1776 e5fe | | Load 0x2,-0x2
1777 01cc | | Execute Vector,Catenate
1778 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1779 0000 0000 | | .BLANK 0000[0x7]
1780 ; --------------------------------------------------------------------------------------
1780 ; SUBPROGRAM
1780 ; --------------------------------------------------------------------------------------
1780 1783 | | .CONST 0x1783 ; Address of begin
1781 0004 | | .CONST 0x0004 ; Address of exception handler
1782 0001 | | .CONST 0x0001 ; Number of locals
1783 BODY_1780:
1783 INIT_1780:
1783 00da | | Load_Top At_Offset_2
1784 e004 | | Load 0x0,0x4
1785 180e | | Execute Package,Field_Execute,Field_Number 0xe
1786 6807 |h | Jump_Zero 0x178e
1787 00da | | Load_Top At_Offset_2
1788 e004 | | Load 0x0,0x4
1789 1817 | | Execute Package,Field_Execute,Field_Number 0x17
178a 0092 1aee | | Action Push_String_Extended,0x1aee ; ".units"
178c 01cc | | Execute Vector,Catenate
178d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
178e 00da | | Load_Top At_Offset_2
178f e004 | | Load 0x0,0x4
1790 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1791 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1792 0000 0000 | | .BLANK 0000[0x6]
1798 ; --------------------------------------------------------------------------------------
1798 ; SUBPROGRAM
1798 ; --------------------------------------------------------------------------------------
1798 17b5 | | .CONST 0x17b5 ; Address of begin
1799 0004 | | .CONST 0x0004 ; Address of exception handler
179a 0009 | | .CONST 0x0009 ; Number of locals
179b INIT_1798:
179b e00c | | Load 0x0,0xc
179c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
179d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
179e 02c7 | | Declare_Variable Any
179f 00d8 | | Load_Top At_Offset_0
17a0 1c00 | | Execute_Immediate Run_Utility,0x0
17a1 e00c | | Load 0x0,0xc
17a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
17a3 02c7 | | Declare_Variable Any
17a4 00d8 | | Load_Top At_Offset_0
17a5 1c00 | | Execute_Immediate Run_Utility,0x0
17a6 00e2 | | Load_Encached Integer_Cache
17a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
17a8 00e1 | | Load_Encached Boolean_Cache
17a9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
17aa e00c | | Load 0x0,0xc
17ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
17ac e5ff | | Load 0x2,-0x1
17ad 829c | | Call 0x1,0x9c
17ae e00c | | Load 0x0,0xc
17af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
17b0 02c7 | | Declare_Variable Any
17b1 00d8 | | Load_Top At_Offset_0
17b2 1c00 | | Execute_Immediate Run_Utility,0x0
17b3 029f 1a2b | +| Declare_Subprogram INIT_1a28,For_Call
17b5 BODY_1798:
17b5 4800 |H | Short_Literal 0x0
17b6 a5fc | | Store_Unchecked 0x2,-0x4
17b7 4800 |H | Short_Literal 0x0
17b8 a5fb | | Store_Unchecked 0x2,-0x5
17b9 e00c | | Load 0x0,0xc
17ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
17bb c5fd | | Store 0x2,-0x3
17bc 00da | | Load_Top At_Offset_2
17bd 8297 | | Call 0x1,0x97
17be c408 | | Store 0x2,0x8
17bf 00d9 | | Load_Top At_Offset_1
17c0 e00c | | Load 0x0,0xc
17c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
17c2 7004 |p | Jump_Nonzero 0x17c7
17c3 00d9 | | Load_Top At_Offset_1
17c4 e004 | | Load 0x0,0x4
17c5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
17c6 7001 |p | Jump_Nonzero 0x17c8
17c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
17c8 00da | | Load_Top At_Offset_2
17c9 e28f | | Load 0x1,0x8f
17ca 01cc | | Execute Vector,Catenate
17cb 8299 | | Call 0x1,0x99
17cc c402 | | Store 0x2,0x2
17cd e402 | | Load 0x2,0x2
17ce e00c | | Load 0x0,0xc
17cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
17d0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
17d1 6801 |h | Jump_Zero 0x17d3
17d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
17d3 00cf | | Action Mark_Auxiliary
17d4 780c |x | Jump 0x17e1
17d5 e404 | | Load 0x2,0x4
17d6 0a01 | | Execute_Immediate Plus,0x1
17d7 c404 | | Store 0x2,0x4
17d8 e405 | | Load 0x2,0x5
17d9 7001 |p | Jump_Nonzero 0x17db
17da 8409 | | Call 0x2,0x9
17db e402 | | Load 0x2,0x2
17dc e00c | | Load 0x0,0xc
17dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
17de 181d | | Execute Package,Field_Execute,Field_Number 0x1d
17df c402 | | Store 0x2,0x2
17e0 00c9 | | Action Pop_Auxiliary_Loop
17e1 e402 | | Load 0x2,0x2
17e2 e00c | | Load 0x0,0xc
17e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
17e4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
17e5 6fef |o | Jump_Zero 0x17d5
17e6 00ce | | Action Pop_Auxiliary
17e7 e405 | | Load 0x2,0x5
17e8 a5fc | | Store_Unchecked 0x2,-0x4
17e9 e404 | | Load 0x2,0x4
17ea a5fb | | Store_Unchecked 0x2,-0x5
17eb 00d9 | | Load_Top At_Offset_1
17ec c5fd | | Store 0x2,-0x3
17ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3
17ee 0000 0000 | | .XXX[0x2]
17f0 ; --------------------------------------------------------------------------------------
17f0 ; SUBPROGRAM
17f0 ; --------------------------------------------------------------------------------------
17f0 17fe | | .CONST 0x17fe ; Address of begin
17f1 0004 | | .CONST 0x0004 ; Address of exception handler
17f2 0003 | | .CONST 0x0003 ; Number of locals
17f3 INIT_17f0:
17f3 e5fc | | Load 0x2,-0x4
17f4 e405 | | Load 0x2,0x5
17f5 e5fe | | Load 0x2,-0x2
17f6 e402 | | Load 0x2,0x2
17f7 e009 | | Load 0x0,0x9
17f8 1b18 | | Execute Package,Field_Read,Field_Number 0x18
17f9 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
17fa 00d8 | | Load_Top At_Offset_0
17fb 01db | | Execute Vector,Length
17fc e20d | | Load 0x1,0xd
17fd 1c08 | | Execute_Immediate Run_Utility,0x8
17fe BODY_17f0:
17fe e001 | | Load 0x0,0x1
17ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1800 e402 | | Load 0x2,0x2
1801 e5fc | | Load 0x2,-0x4
1802 e002 | | Load 0x0,0x2
1803 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1804 c402 | | Store 0x2,0x2
1805 c403 | | Store 0x2,0x3
1806 00d9 | | Load_Top At_Offset_1
1807 0092 1aef | | Action Push_String_Extended,0x1aef ; "<error>"
1809 01df | | Execute Vector,Equal
180a 6808 |h | Jump_Zero 0x1813
180b e006 | | Load 0x0,0x6
180c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
180d 600e |` | Indirect_Literal Discrete,0x181c,{0x00000000, 0x00008128}
180e e001 | | Load 0x0,0x1
180f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1810 00d9 | | Load_Top At_Offset_1
1811 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1812 7803 |x | Jump 0x1816
1813 4800 |H | Short_Literal 0x0
1814 00d9 | | Load_Top At_Offset_1
1815 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1816 00d9 | | Load_Top At_Offset_1
1817 00d9 | | Load_Top At_Offset_1
1818 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
1819 00d8 | | Load_Top At_Offset_0
181a 00cb | | Action Pop_Block_With_Result
181b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
181c 0000 0000 | | .LITERAL {0x00000000, 0x00008128}
1820 ; --------------------------------------------------------------------------------------
1820 ; SUBPROGRAM
1820 ; --------------------------------------------------------------------------------------
1820 182e | . | .CONST 0x182e ; Address of begin
1821 0004 | | .CONST 0x0004 ; Address of exception handler
1822 0002 | | .CONST 0x0002 ; Number of locals
1823 INIT_1820:
1823 e5fc | | Load 0x2,-0x4
1824 00d8 | | Load_Top At_Offset_0
1825 e405 | | Load 0x2,0x5
1826 e5fd | | Load 0x2,-0x3
1827 e402 | | Load 0x2,0x2
1828 e009 | | Load 0x0,0x9
1829 1b18 | | Execute Package,Field_Read,Field_Number 0x18
182a 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
182b e5fe | | Load 0x2,-0x2
182c e5ff | | Load 0x2,-0x1
182d 8229 | ) | Call 0x1,0x29
182e BODY_1820:
182e e001 | | Load 0x0,0x1
182f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1830 e402 | | Load 0x2,0x2
1831 e5fc | | Load 0x2,-0x4
1832 e002 | | Load 0x0,0x2
1833 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1834 c402 | | Store 0x2,0x2
1835 c403 | | Store 0x2,0x3
1836 00d8 | | Load_Top At_Offset_0
1837 00cb | | Action Pop_Block_With_Result
1838 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1839 0000 0000 | | .BLANK 0000[0x7]
1840 ; --------------------------------------------------------------------------------------
1840 ; SUBPROGRAM
1840 ; --------------------------------------------------------------------------------------
1840 184e | N | .CONST 0x184e ; Address of begin
1841 0004 | | .CONST 0x0004 ; Address of exception handler
1842 0002 | | .CONST 0x0002 ; Number of locals
1843 INIT_1840:
1843 e00e | | Load 0x0,0xe
1844 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1845 02c7 | | Declare_Variable Any
1846 e5fc | | Load 0x2,-0x4
1847 e404 | | Load 0x2,0x4
1848 e5fe | | Load 0x2,-0x2
1849 e402 | | Load 0x2,0x2
184a e009 | | Load 0x0,0x9
184b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
184c 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
184d a602 | | Store_Unchecked 0x3,0x2
184e BODY_1840:
184e e001 | | Load 0x0,0x1
184f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1850 e402 | | Load 0x2,0x2
1851 e5fc | | Load 0x2,-0x4
1852 e002 | | Load 0x0,0x2
1853 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1854 c402 | | Store 0x2,0x2
1855 c403 | | Store 0x2,0x3
1856 00d8 | | Load_Top At_Offset_0
1857 c5fb | | Store 0x2,-0x5
1858 4800 |H | Short_Literal 0x0
1859 a5fa | | Store_Unchecked 0x2,-0x6
185a 00cc | | Action Pop_Block
185b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
185c 0000 0000 | | .BLANK 0000[0x4]
1860 ; --------------------------------------------------------------------------------------
1860 ; SUBPROGRAM
1860 ; --------------------------------------------------------------------------------------
1860 1865 | e | .CONST 0x1865 ; Address of begin
1861 0004 | | .CONST 0x0004 ; Address of exception handler
1862 0002 | | .CONST 0x0002 ; Number of locals
1863 INIT_1860:
1863 e403 | | Load 0x2,0x3
1864 8294 | | Call 0x1,0x94
1865 BODY_1860:
1865 e001 | | Load 0x0,0x1
1866 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1867 e5fe | | Load 0x2,-0x2
1868 00da | | Load_Top At_Offset_2
1869 8297 | | Call 0x1,0x97
186a 8261 | a | Call 0x1,0x61
186b c5fd | | Store 0x2,-0x3
186c e5fe | | Load 0x2,-0x2
186d 00d9 | | Load_Top At_Offset_1
186e 8292 | | Call 0x1,0x92
186f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1870 ; --------------------------------------------------------------------------------------
1870 ; SUBPROGRAM
1870 ; --------------------------------------------------------------------------------------
1870 1877 | w | .CONST 0x1877 ; Address of begin
1871 0004 | | .CONST 0x0004 ; Address of exception handler
1872 0002 | | .CONST 0x0002 ; Number of locals
1873 INIT_1870:
1873 e403 | | Load 0x2,0x3
1874 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1875 e20d | | Load 0x1,0xd
1876 1c08 | | Execute_Immediate Run_Utility,0x8
1877 BODY_1870:
1877 4801 |H | Short_Literal 0x1
1878 e403 | | Load 0x2,0x3
1879 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
187a e403 | | Load 0x2,0x3
187b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
187c 01cf | | Execute Vector,Slice_Read
187d 00d9 | | Load_Top At_Offset_1
187e 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
187f 4800 |H | Short_Literal 0x0
1880 00d9 | | Load_Top At_Offset_1
1881 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1882 00d8 | | Load_Top At_Offset_0
1883 00cb | | Action Pop_Block_With_Result
1884 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1885 0000 0000 | | .XXX[0x3]
1887 0000 | |
1888 ; --------------------------------------------------------------------------------------
1888 ; SUBPROGRAM
1888 ; --------------------------------------------------------------------------------------
1888 188f | | .CONST 0x188f ; Address of begin
1889 0004 | | .CONST 0x0004 ; Address of exception handler
188a 0002 | | .CONST 0x0002 ; Number of locals
188b INIT_1888:
188b e403 | | Load 0x2,0x3
188c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
188d e20d | | Load 0x1,0xd
188e 1c08 | | Execute_Immediate Run_Utility,0x8
188f BODY_1888:
188f 4801 |H | Short_Literal 0x1
1890 e403 | | Load 0x2,0x3
1891 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
1892 e403 | | Load 0x2,0x3
1893 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
1894 01cf | | Execute Vector,Slice_Read
1895 00d9 | | Load_Top At_Offset_1
1896 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
1897 4800 |H | Short_Literal 0x0
1898 00d9 | | Load_Top At_Offset_1
1899 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
189a 00d8 | | Load_Top At_Offset_0
189b 00cb | | Action Pop_Block_With_Result
189c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
189d 0000 0000 | | .XXX[0x3]
189f 0000 | |
18a0 ; --------------------------------------------------------------------------------------
18a0 ; SUBPROGRAM
18a0 ; --------------------------------------------------------------------------------------
18a0 18b1 | | .CONST 0x18b1 ; Address of begin
18a1 0004 | | .CONST 0x0004 ; Address of exception handler
18a2 0004 | | .CONST 0x0004 ; Number of locals
18a3 INIT_18a0:
18a3 00da | | Load_Top At_Offset_2
18a4 e00c | | Load 0x0,0xc
18a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
18a6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
18a7 00d8 | | Load_Top At_Offset_0
18a8 0092 1af0 | | Action Push_String_Extended,0x1af0 ; ".@_secondary_@_spec"
18aa 01cc | | Execute Vector,Catenate
18ab 0007 | | Action Break_Optional
18ac 00d9 | | Load_Top At_Offset_1
18ad 0092 1af1 | | Action Push_String_Extended,0x1af1 ; ".@_secondary_@_body"
18af 01cc | | Execute Vector,Catenate
18b0 0007 | | Action Break_Optional
18b1 BODY_18a0:
18b1 00ea | | Load_Encached Null_String_Cache
18b2 4801 |H | Short_Literal 0x1
18b3 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>"
18b5 4801 |H | Short_Literal 0x1
18b6 e603 | | Load 0x3,0x3
18b7 e602 | | Load 0x3,0x2
18b8 0092 1af2 | | Action Push_String_Extended,0x1af2 ; ".@'spec.<secondary_@>"
18ba 01cc | | Execute Vector,Catenate
18bb e012 | | Load 0x0,0x12
18bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
18bd 00ea | | Load_Encached Null_String_Cache
18be 4801 |H | Short_Literal 0x1
18bf 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>"
18c1 4801 |H | Short_Literal 0x1
18c2 e604 | | Load 0x3,0x4
18c3 e602 | | Load 0x3,0x2
18c4 0092 1af3 | | Action Push_String_Extended,0x1af3 ; ".@'body.<secondary_@>"
18c6 01cc | | Execute Vector,Catenate
18c7 e012 | | Load 0x0,0x12
18c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
18c9 e5fd | | Load 0x2,-0x3
18ca 6818 |h | Jump_Zero 0x18e3
18cb 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "<QUIET>"
18cd 0092 1aec | | Action Push_String_Extended,0x1aec ; "<DEFAULT>"
18cf 00ea | | Load_Encached Null_String_Cache
18d0 4801 |H | Short_Literal 0x1
18d1 0092 1af4 | | Action Push_String_Extended,0x1af4 ; "<NONE>"
18d3 0092 1af5 | | Action Push_String_Extended,0x1af5 ; "<AUTO_GENERATE>"
18d5 0092 1af6 | | Action Push_String_Extended,0x1af6 ; "["
18d7 e603 | | Load 0x3,0x3
18d8 01cc | | Execute Vector,Catenate
18d9 0092 1af7 | | Action Push_String_Extended,0x1af7 ; ","
18db 01cc | | Execute Vector,Catenate
18dc e604 | | Load 0x3,0x4
18dd 01cc | | Execute Vector,Catenate
18de 0092 1af8 | | Action Push_String_Extended,0x1af8 ; "]"
18e0 01cc | | Execute Vector,Catenate
18e1 e01c | | Load 0x0,0x1c
18e2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
18e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
18e4 0000 0000 | | .BLANK 0000[0x4]
18e8 ; --------------------------------------------------------------------------------------
18e8 ; SUBPROGRAM
18e8 ; --------------------------------------------------------------------------------------
18e8 18ed | | .CONST 0x18ed ; Address of begin
18e9 0004 | | .CONST 0x0004 ; Address of exception handler
18ea 0003 | | .CONST 0x0003 ; Number of locals
18eb INIT_18e8:
18eb 00e2 | | Load_Encached Integer_Cache
18ec 00e2 | | Load_Encached Integer_Cache
18ed BODY_18e8:
18ed 4801 |H | Short_Literal 0x1
18ee e7ff | | Load 0x3,-0x1
18ef e404 | | Load 0x2,0x4
18f0 e01a | | Load 0x0,0x1a
18f1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
18f2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
18f3 4801 |H | Short_Literal 0x1
18f4 e7ff | | Load 0x3,-0x1
18f5 0092 1af9 | | Action Push_String_Extended,0x1af9 ; "_"
18f7 e01a | | Load 0x0,0x1a
18f8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
18f9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
18fa e7ff | | Load 0x3,-0x1
18fb 01dd | | Execute Vector,First
18fc 00da | | Load_Top At_Offset_2
18fd 0aff | | Execute_Immediate Plus,-0x1
18fe 00d8 | | Load_Top At_Offset_0
18ff 00e2 | | Load_Encached Integer_Cache
1900 0260 | ` | Execute Discrete,In_Type
1901 7001 |p | Jump_Nonzero 0x1903
1902 0801 | | Execute_Immediate Raise,0x1
1903 e7ff | | Load 0x3,-0x1
1904 01cf | | Execute Vector,Slice_Read
1905 0092 1afa | | Action Push_String_Extended,0x1afa ; "'"
1907 01cc | | Execute Vector,Catenate
1908 00d9 | | Load_Top At_Offset_1
1909 0a01 | | Execute_Immediate Plus,0x1
190a 00d8 | | Load_Top At_Offset_0
190b 00e2 | | Load_Encached Integer_Cache
190c 0260 | ` | Execute Discrete,In_Type
190d 7001 |p | Jump_Nonzero 0x190f
190e 0801 | | Execute_Immediate Raise,0x1
190f e7ff | | Load 0x3,-0x1
1910 01dc | | Execute Vector,Last
1911 e7ff | | Load 0x3,-0x1
1912 01cf | | Execute Vector,Slice_Read
1913 01cc | | Execute Vector,Catenate
1914 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1915 0000 0000 | | .XXX[0x3]
1917 0000 | |
1918 ; --------------------------------------------------------------------------------------
1918 ; SUBPROGRAM
1918 ; --------------------------------------------------------------------------------------
1918 191d | | .CONST 0x191d ; Address of begin
1919 0004 | | .CONST 0x0004 ; Address of exception handler
191a 0003 | | .CONST 0x0003 ; Number of locals
191b INIT_1918:
191b 00e2 | | Load_Encached Integer_Cache
191c 00e2 | | Load_Encached Integer_Cache
191d BODY_1918:
191d 4801 |H | Short_Literal 0x1
191e e7ff | | Load 0x3,-0x1
191f e404 | | Load 0x2,0x4
1920 e01a | | Load 0x0,0x1a
1921 181d | | Execute Package,Field_Execute,Field_Number 0x1d
1922 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
1923 4801 |H | Short_Literal 0x1
1924 e7ff | | Load 0x3,-0x1
1925 0092 1af9 | | Action Push_String_Extended,0x1af9 ; "_"
1927 e01a | | Load 0x0,0x1a
1928 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1929 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
192a 00d9 | | Load_Top At_Offset_1
192b 0a0b | | Execute_Immediate Plus,0xb
192c 00d8 | | Load_Top At_Offset_0
192d 00e2 | | Load_Encached Integer_Cache
192e 0260 | ` | Execute Discrete,In_Type
192f 7001 |p | Jump_Nonzero 0x1931
1930 0801 | | Execute_Immediate Raise,0x1
1931 00d9 | | Load_Top At_Offset_1
1932 0aff | | Execute_Immediate Plus,-0x1
1933 00d8 | | Load_Top At_Offset_0
1934 00e2 | | Load_Encached Integer_Cache
1935 0260 | ` | Execute Discrete,In_Type
1936 7001 |p | Jump_Nonzero 0x1938
1937 0801 | | Execute_Immediate Raise,0x1
1938 e7ff | | Load 0x3,-0x1
1939 01cf | | Execute Vector,Slice_Read
193a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
193b 0000 0000 | | .BLANK 0000[0x5]
1940 ; --------------------------------------------------------------------------------------
1940 ; SUBPROGRAM
1940 ; --------------------------------------------------------------------------------------
1940 196a | j | .CONST 0x196a ; Address of begin
1941 198f | | .CONST 0x198f ; Address of exception handler
1942 0007 | | .CONST 0x0007 ; Number of locals
1943 INIT_1940:
1943 00da | | Load_Top At_Offset_2
1944 e00c | | Load 0x0,0xc
1945 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1946 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1947 00d8 | | Load_Top At_Offset_0
1948 e00c | | Load 0x0,0xc
1949 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
194a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
194b 00d9 | | Load_Top At_Offset_1
194c e00c | | Load 0x0,0xc
194d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
194e 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
194f 00d9 | | Load_Top At_Offset_1
1950 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; "."
1952 01cc | | Execute Vector,Catenate
1953 00d9 | | Load_Top At_Offset_1
1954 8407 | | Call 0x2,0x7
1955 01cc | | Execute Vector,Catenate
1956 0092 1afb | | Action Push_String_Extended,0x1afb ; ".<secondary_"
1958 01cc | | Execute Vector,Catenate
1959 00d9 | | Load_Top At_Offset_1
195a 8408 | | Call 0x2,0x8
195b 01cc | | Execute Vector,Catenate
195c 0092 1aeb | | Action Push_String_Extended,0x1aeb ; ">"
195e 01cc | | Execute Vector,Catenate
195f 0007 | | Action Break_Optional
1960 e014 | | Load 0x0,0x14
1961 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1962 02c7 | | Declare_Variable Any
1963 00d8 | | Load_Top At_Offset_0
1964 1c00 | | Execute_Immediate Run_Utility,0x0
1965 e014 | | Load 0x0,0x14
1966 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1967 02c7 | | Declare_Variable Any
1968 00d8 | | Load_Top At_Offset_0
1969 1c00 | | Execute_Immediate Run_Utility,0x0
196a BODY_1940:
196a 00d9 | | Load_Top At_Offset_1
196b 00ea | | Load_Encached Null_String_Cache
196c e605 | | Load 0x3,0x5
196d 4801 |H | Short_Literal 0x1
196e e014 | | Load 0x0,0x14
196f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1970 c606 | | Store 0x3,0x6
1971 00d8 | | Load_Top At_Offset_0
1972 00ea | | Load_Encached Null_String_Cache
1973 e602 | | Load 0x3,0x2
1974 4800 |H | Short_Literal 0x0
1975 e014 | | Load 0x0,0x14
1976 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1977 c607 | | Store 0x3,0x7
1978 00cf | | Action Mark_Auxiliary
1979 7807 |x | Jump 0x1981
197a 00d9 | | Load_Top At_Offset_1
197b e014 | | Load 0x0,0x14
197c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
197d 00db | | Load_Top At_Offset_3
197e e014 | | Load 0x0,0x14
197f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1980 00c9 | | Action Pop_Auxiliary_Loop
1981 00d9 | | Load_Top At_Offset_1
1982 e014 | | Load 0x0,0x14
1983 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
1984 6ff5 |o | Jump_Zero 0x197a
1985 00ce | | Action Pop_Auxiliary
1986 00d9 | | Load_Top At_Offset_1
1987 e014 | | Load 0x0,0x14
1988 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1989 c606 | | Store 0x3,0x6
198a 00d8 | | Load_Top At_Offset_0
198b e014 | | Load 0x0,0x14
198c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
198d c607 | | Store 0x3,0x7
198e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
198f TRAP_1940:
198f 0007 | | Action Break_Optional
1990 00da | | Load_Top At_Offset_2
1991 8291 | | Call 0x1,0x91
1992 c606 | | Store 0x3,0x6
1993 00d9 | | Load_Top At_Offset_1
1994 8291 | | Call 0x1,0x91
1995 c607 | | Store 0x3,0x7
1996 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1997 0000 | | .XXX[0x1]
1998 ; --------------------------------------------------------------------------------------
1998 ; SUBPROGRAM
1998 ; --------------------------------------------------------------------------------------
1998 19ad | | .CONST 0x19ad ; Address of begin
1999 0004 | | .CONST 0x0004 ; Address of exception handler
199a 0002 | | .CONST 0x0002 ; Number of locals
199b INIT_1998:
199b e5fe | | Load 0x2,-0x2
199c 4801 |H | Short_Literal 0x1
199d e5ff | | Load 0x2,-0x1
199e e004 | | Load 0x0,0x4
199f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
19a0 e004 | | Load 0x0,0x4
19a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
19a2 0092 1afc | | Action Push_String_Extended,0x1afc ; ".@'c(ada).<secondary_"
19a4 01cc | | Execute Vector,Catenate
19a5 e5ff | | Load 0x2,-0x1
19a6 e004 | | Load 0x0,0x4
19a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
19a8 01cc | | Execute Vector,Catenate
19a9 0092 1aeb | | Action Push_String_Extended,0x1aeb ; ">"
19ab 01cc | | Execute Vector,Catenate
19ac 0007 | | Action Break_Optional
19ad BODY_1998:
19ad 00d8 | | Load_Top At_Offset_0
19ae 8299 | | Call 0x1,0x99
19af c402 | | Store 0x2,0x2
19b0 e402 | | Load 0x2,0x2
19b1 e00c | | Load 0x0,0xc
19b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
19b3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
19b4 7021 |p! | Jump_Nonzero 0x19d6
19b5 e402 | | Load 0x2,0x2
19b6 e00c | | Load 0x0,0xc
19b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
19b8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
19b9 701c |p | Jump_Nonzero 0x19d6
19ba e5fe | | Load 0x2,-0x2
19bb 4801 |H | Short_Literal 0x1
19bc e402 | | Load 0x2,0x2
19bd e004 | | Load 0x0,0x4
19be 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
19bf c403 | | Store 0x2,0x3
19c0 e001 | | Load 0x0,0x1
19c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
19c2 00e2 | | Load_Encached Integer_Cache
19c3 00e1 | | Load_Encached Boolean_Cache
19c4 e5fd | | Load 0x2,-0x3
19c5 0120 | | Execute Any,Is_Value
19c6 6803 |h | Jump_Zero 0x19ca
19c7 e00c | | Load 0x0,0xc
19c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
19c9 7801 |x | Jump 0x19cb
19ca e5fd | | Load 0x2,-0x3
19cb e5fe | | Load 0x2,-0x2
19cc e403 | | Load 0x2,0x3
19cd 8266 | f | Call 0x1,0x66
19ce c5fd | | Store 0x2,-0x3
19cf c406 | | Store 0x2,0x6
19d0 c405 | | Store 0x2,0x5
19d1 c404 | | Store 0x2,0x4
19d2 e406 | | Load 0x2,0x6
19d3 a5fc | | Store_Unchecked 0x2,-0x4
19d4 00cc | | Action Pop_Block
19d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
19d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
19d7 0000 | | .XXX[0x1]
19d8 ; --------------------------------------------------------------------------------------
19d8 ; SUBPROGRAM
19d8 ; --------------------------------------------------------------------------------------
19d8 19e7 | | .CONST 0x19e7 ; Address of begin
19d9 0004 | | .CONST 0x0004 ; Address of exception handler
19da 0005 | | .CONST 0x0005 ; Number of locals
19db INIT_19d8:
19db e402 | | Load 0x2,0x2
19dc e014 | | Load 0x0,0x14
19dd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
19de e402 | | Load 0x2,0x2
19df e014 | | Load 0x0,0x14
19e0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
19e1 e402 | | Load 0x2,0x2
19e2 e014 | | Load 0x0,0x14
19e3 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
19e4 e402 | | Load 0x2,0x2
19e5 e014 | | Load 0x0,0x14
19e6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
19e7 BODY_19d8:
19e7 00db | | Load_Top At_Offset_3
19e8 4801 |H | Short_Literal 0x1
19e9 e602 | | Load 0x3,0x2
19ea 01db | | Execute Vector,Length
19eb 00d8 | | Load_Top At_Offset_0
19ec 00e2 | | Load_Encached Integer_Cache
19ed 0260 | ` | Execute Discrete,In_Type
19ee 7001 |p | Jump_Nonzero 0x19f0
19ef 0801 | | Execute_Immediate Raise,0x1
19f0 e5fd | | Load 0x2,-0x3
19f1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
19f2 01ce | | Execute Vector,Slice_Write
19f3 00db | | Load_Top At_Offset_3
19f4 01db | | Execute Vector,Length
19f5 e5fd | | Load 0x2,-0x3
19f6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
19f7 00da | | Load_Top At_Offset_2
19f8 4801 |H | Short_Literal 0x1
19f9 e603 | | Load 0x3,0x3
19fa 01db | | Execute Vector,Length
19fb 00d8 | | Load_Top At_Offset_0
19fc 00e2 | | Load_Encached Integer_Cache
19fd 0260 | ` | Execute Discrete,In_Type
19fe 7001 |p | Jump_Nonzero 0x1a00
19ff 0801 | | Execute_Immediate Raise,0x1
1a00 e5fd | | Load 0x2,-0x3
1a01 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
1a02 01ce | | Execute Vector,Slice_Write
1a03 00da | | Load_Top At_Offset_2
1a04 01db | | Execute Vector,Length
1a05 e5fd | | Load 0x2,-0x3
1a06 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
1a07 00d9 | | Load_Top At_Offset_1
1a08 4801 |H | Short_Literal 0x1
1a09 00db | | Load_Top At_Offset_3
1a0a 01db | | Execute Vector,Length
1a0b 00d8 | | Load_Top At_Offset_0
1a0c 00e2 | | Load_Encached Integer_Cache
1a0d 0260 | ` | Execute Discrete,In_Type
1a0e 7001 |p | Jump_Nonzero 0x1a10
1a0f 0801 | | Execute_Immediate Raise,0x1
1a10 e5fd | | Load 0x2,-0x3
1a11 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
1a12 01ce | | Execute Vector,Slice_Write
1a13 00d9 | | Load_Top At_Offset_1
1a14 01db | | Execute Vector,Length
1a15 e5fd | | Load 0x2,-0x3
1a16 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
1a17 00d8 | | Load_Top At_Offset_0
1a18 4801 |H | Short_Literal 0x1
1a19 00da | | Load_Top At_Offset_2
1a1a 01db | | Execute Vector,Length
1a1b 00d8 | | Load_Top At_Offset_0
1a1c 00e2 | | Load_Encached Integer_Cache
1a1d 0260 | ` | Execute Discrete,In_Type
1a1e 7001 |p | Jump_Nonzero 0x1a20
1a1f 0801 | | Execute_Immediate Raise,0x1
1a20 e5fd | | Load 0x2,-0x3
1a21 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1a22 01ce | | Execute Vector,Slice_Write
1a23 00d8 | | Load_Top At_Offset_0
1a24 01db | | Execute Vector,Length
1a25 e5fd | | Load 0x2,-0x3
1a26 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
1a27 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1a28 ; --------------------------------------------------------------------------------------
1a28 ; SUBPROGRAM
1a28 ; --------------------------------------------------------------------------------------
1a28 1a2d | - | .CONST 0x1a2d ; Address of begin
1a29 0004 | | .CONST 0x0004 ; Address of exception handler
1a2a 0002 | | .CONST 0x0002 ; Number of locals
1a2b INIT_1a28:
1a2b e402 | | Load 0x2,0x2
1a2c 829b | | Call 0x1,0x9b
1a2d BODY_1a28:
1a2d 4801 |H | Short_Literal 0x1
1a2e e5ff | | Load 0x2,-0x1
1a2f 00da | | Load_Top At_Offset_2
1a30 e01a | | Load 0x0,0x1a
1a31 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1a32 6811 |h | Jump_Zero 0x1a44
1a33 4801 |H | Short_Literal 0x1
1a34 a405 | | Store_Unchecked 0x2,0x5
1a35 e00c | | Load 0x0,0xc
1a36 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1a37 e403 | | Load 0x2,0x3
1a38 0120 | | Execute Any,Is_Value
1a39 6803 |h | Jump_Zero 0x1a3d
1a3a e00c | | Load 0x0,0xc
1a3b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1a3c 7801 |x | Jump 0x1a3e
1a3d e403 | | Load 0x2,0x3
1a3e e402 | | Load 0x2,0x2
1a3f e00c | | Load 0x0,0xc
1a40 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1a41 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1a42 c403 | | Store 0x2,0x3
1a43 c406 | | Store 0x2,0x6
1a44 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1a45 0000 0000 | | .XXX[0x3]
1a47 0000 | |
1a48 ; --------------------------------------------------------------------------------------
1a48 ; SUBPROGRAM
1a48 ; --------------------------------------------------------------------------------------
1a48 1a4b | K | .CONST 0x1a4b ; Address of begin
1a49 0004 | | .CONST 0x0004 ; Address of exception handler
1a4a 0001 | | .CONST 0x0001 ; Number of locals
1a4b BODY_1a48:
1a4b INIT_1a48:
1a4b 4608 |F | Jump_Case 0x9
1a4c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
1a4d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
1a4e 7819 |x | Jump 0x1a68 ; case 0x2
1a4f 7818 |x | Jump 0x1a68 ; case 0x3
1a50 7817 |x | Jump 0x1a68 ; case 0x4
1a51 7816 |x | Jump 0x1a68 ; case 0x5
1a52 7815 |x | Jump 0x1a68 ; case 0x6
1a53 7801 |x | Jump 0x1a55 ; case 0x7
1a54 7809 |x | Jump 0x1a5e ; case 0x8
1a55 00db | | Load_Top At_Offset_3
1a56 4801 |H | Short_Literal 0x1
1a57 e5fe | | Load 0x2,-0x2
1a58 00e9 | | Load_Encached String_Cache
1a59 035b | [ | Declare_Type Array,Constrained
1a5a 4801 |H | Short_Literal 0x1
1a5b e5ff | | Load 0x2,-0x1
1a5c 031b | | Declare_Type Variant_Record,Constrained
1a5d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
1a5e 00db | | Load_Top At_Offset_3
1a5f 00db | | Load_Top At_Offset_3
1a60 02fc | | Declare_Variable Variant_Record,With_Constraint
1a61 4801 |H | Short_Literal 0x1
1a62 e5fe | | Load 0x2,-0x2
1a63 00e9 | | Load_Encached String_Cache
1a64 0334 | 4 | Declare_Variable Array,With_Constraint
1a65 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
1a66 016a | j | QQ_execute Variant_Record,XXX
1a67 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
1a68 0869 | i | Execute_Immediate Raise,0x69
1a69 0000 0000 | | .BLANK 0000[0x7]
1a70 ; --------------------------------------------------------------------------------------
1a70 ; SUBPROGRAM
1a70 ; --------------------------------------------------------------------------------------
1a70 1a73 | s | .CONST 0x1a73 ; Address of begin
1a71 0004 | | .CONST 0x0004 ; Address of exception handler
1a72 0001 | | .CONST 0x0001 ; Number of locals
1a73 BODY_1a70:
1a73 INIT_1a70:
1a73 4608 |F | Jump_Case 0x9
1a74 7808 |x | Jump 0x1a7d ; case 0x0
1a75 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
1a76 7851 |xQ | Jump 0x1ac8 ; case 0x2
1a77 7850 |xP | Jump 0x1ac8 ; case 0x3
1a78 784f |xO | Jump 0x1ac8 ; case 0x4
1a79 784e |xN | Jump 0x1ac8 ; case 0x5
1a7a 784d |xM | Jump 0x1ac8 ; case 0x6
1a7b 784c |xL | Jump 0x1ac8 ; case 0x7
1a7c 784b |xK | Jump 0x1ac8 ; case 0x8
1a7d e26f | o | Load 0x1,0x6f
1a7e 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
1a7f 0337 | 7 | Declare_Variable Array
1a80 4880 |H | Short_Literal 0x80
1a81 4801 |H | Short_Literal 0x1
1a82 4820 |H | Short_Literal 0x20
1a83 00d9 | | Load_Top At_Offset_1
1a84 e402 | | Load 0x2,0x2
1a85 01d6 | | Execute Vector,Field_Write
1a86 3ffb |? | Loop_Increasing 0x1a82
1a87 00db | | Load_Top At_Offset_3
1a88 00d9 | | Load_Top At_Offset_1
1a89 00d9 | | Load_Top At_Offset_1
1a8a 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
1a8b 0119 | | Execute Any,Check_In_Formal_Type
1a8c 00d1 | | Pop_Control Pop_Count_1
1a8d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
1a8e 4800 |H | Short_Literal 0x0
1a8f 00db | | Load_Top At_Offset_3
1a90 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
1a91 e26f | o | Load 0x1,0x6f
1a92 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
1a93 0337 | 7 | Declare_Variable Array
1a94 4880 |H | Short_Literal 0x80
1a95 4801 |H | Short_Literal 0x1
1a96 4820 |H | Short_Literal 0x20
1a97 00d9 | | Load_Top At_Offset_1
1a98 e402 | | Load 0x2,0x2
1a99 01d6 | | Execute Vector,Field_Write
1a9a 3ffb |? | Loop_Increasing 0x1a96
1a9b 00db | | Load_Top At_Offset_3
1a9c 00d9 | | Load_Top At_Offset_1
1a9d 00d9 | | Load_Top At_Offset_1
1a9e 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
1a9f 0119 | | Execute Any,Check_In_Formal_Type
1aa0 00d1 | | Pop_Control Pop_Count_1
1aa1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
1aa2 e26f | o | Load 0x1,0x6f
1aa3 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
1aa4 0337 | 7 | Declare_Variable Array
1aa5 4880 |H | Short_Literal 0x80
1aa6 4801 |H | Short_Literal 0x1
1aa7 4820 |H | Short_Literal 0x20
1aa8 00d9 | | Load_Top At_Offset_1
1aa9 e402 | | Load 0x2,0x2
1aaa 01d6 | | Execute Vector,Field_Write
1aab 3ffb |? | Loop_Increasing 0x1aa7
1aac 00db | | Load_Top At_Offset_3
1aad 00d9 | | Load_Top At_Offset_1
1aae 00d9 | | Load_Top At_Offset_1
1aaf 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
1ab0 0119 | | Execute Any,Check_In_Formal_Type
1ab1 00d1 | | Pop_Control Pop_Count_1
1ab2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
1ab3 4800 |H | Short_Literal 0x0
1ab4 00db | | Load_Top At_Offset_3
1ab5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
1ab6 e26f | o | Load 0x1,0x6f
1ab7 3007 |0 | Execute Record,Field_Type,Field_Number 0x7
1ab8 0337 | 7 | Declare_Variable Array
1ab9 4880 |H | Short_Literal 0x80
1aba 4801 |H | Short_Literal 0x1
1abb 4820 |H | Short_Literal 0x20
1abc 00d9 | | Load_Top At_Offset_1
1abd e402 | | Load 0x2,0x2
1abe 01d6 | | Execute Vector,Field_Write
1abf 3ffb |? | Loop_Increasing 0x1abb
1ac0 00db | | Load_Top At_Offset_3
1ac1 00d9 | | Load_Top At_Offset_1
1ac2 00d9 | | Load_Top At_Offset_1
1ac3 3007 |0 | Execute Record,Field_Type,Field_Number 0x7
1ac4 0119 | | Execute Any,Check_In_Formal_Type
1ac5 00d1 | | Pop_Control Pop_Count_1
1ac6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
1ac7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
1ac8 0869 | i | Execute_Immediate Raise,0x69
1ac9 ; --------------------------------------------------------------------------------------
1ac9 ; STRING TABLE
1ac9 ; --------------------------------------------------------------------------------------
1ac9 006a | j | .STRTAB 0x006a->0x1afe ; "secondary_"
1aca 0072 | r | .STRTAB 0x0072->0x1b03 ; "<secondary_[@,~state]>"
1acb 0086 | | .STRTAB 0x0086->0x1b0e ; "Rcf_Unit.Display_Unit_Options"
1acc 00a1 | | .STRTAB 0x00a1->0x1b1c ; "Rcf_Unit.Set_Unit_Options"
1acd 00b8 | | .STRTAB 0x00b8->0x1b29 ; "Rcf_Unit.Remove_Unit_Options"
1ace 00d2 | | .STRTAB 0x00d2->0x1b37 ; "Rcf_Unit.Remote_Unit_Name"
1acf 00e9 | | .STRTAB 0x00e9->0x1b43 ; "Rcf_Unit.Full_Remote_Unit_Name"
1ad0 0105 | | .STRTAB 0x0105->0x1b52 ; "Full_Remote_Unit_Name"
1ad1 0118 | | .STRTAB 0x0118->0x1b5d ; "Rcf_Unit.Set_Remote_Unit_Name"
1ad2 0133 | 3 | .STRTAB 0x0133->0x1b6b ; "Rcf_Unit.Local_Update_Time"
1ad3 014b | K | .STRTAB 0x014b->0x1b78 ; "Rcf_Unit.Set_Local_Update_Time: Time = "
1ad4 0170 | p | .STRTAB 0x0170->0x1b8c ; "Rcf_Unit.Set_Local_Update_Time"
1ad5 018c | | .STRTAB 0x018c->0x1b9b ; " 128"
1ad6 018e | | .STRTAB 0x018e->0x1b9d ; "Rcf_Temp_"
1ad7 0195 | | .STRTAB 0x0195->0x1ba1 ; "Upload_Ada_Unit"
1ad8 01a2 | | .STRTAB 0x01a2->0x1ba9 ; "<QUIET>"
1ad9 01a7 | | .STRTAB 0x01a7->0x1bac ; "<DIRECTORIES>"
1ada 01b2 | | .STRTAB 0x01b2->0x1bb3 ; "Rcf_Unit.Upload_Ada_Unit"
1adb 01c8 | | .STRTAB 0x01c8->0x1bbf ; "Setting local download time (from remote time) to "
1adc 01f8 | | .STRTAB 0x01f8->0x1bd8 ; "Can't upload from remote unit \x22"
1add 0215 | | .STRTAB 0x0215->0x1be7 ; "\x22 into existing text file \x22"
1ade 022e | . | .STRTAB 0x022e->0x1bf5 ; "\x22."
1adf 022e | . | .STRTAB 0x022e->0x1bf6 ; "Upload_Text_File"
1ae0 023c | < | .STRTAB 0x023c->0x1bfe ; "Rcf_Unit.Upload_Text_File"
1ae1 0253 | S | .STRTAB 0x0253->0x1c0a ; "Update_Consistency"
1ae2 0263 | c | .STRTAB 0x0263->0x1c13 ; "Rcf_Unit.Update_Consistency"
1ae3 027c | | | .STRTAB 0x027c->0x1c21 ; "."
1ae4 027b | { | .STRTAB 0x027b->0x1c21 ; "state"
1ae5 027e | ~ | .STRTAB 0x027e->0x1c24 ; ".??'c(library)"
1ae6 028a | | .STRTAB 0x028a->0x1c2b ; "??'c(library)"
1ae7 0295 | | .STRTAB 0x0295->0x1c31 ; "_secondary_"
1ae8 029e | | .STRTAB 0x029e->0x1c37 ; ".??[@_secondary_@_spec,@_secondary_@_body]"
1ae9 02c6 | | .STRTAB 0x02c6->0x1c4c ; ".<"
1aea 02c6 | | .STRTAB 0x02c6->0x1c4d ; "state>"
1aeb 02ca | | .STRTAB 0x02ca->0x1c50 ; ">"
1aec 02c9 | | .STRTAB 0x02c9->0x1c50 ; "<DEFAULT>"
1aed 02d0 | | .STRTAB 0x02d0->0x1c55 ; ".Units."
1aee 02d5 | | .STRTAB 0x02d5->0x1c58 ; ".units"
1aef 02d9 | | .STRTAB 0x02d9->0x1c5b ; "<error>"
1af0 02de | | .STRTAB 0x02de->0x1c5f ; ".@_secondary_@_spec"
1af1 02ef | | .STRTAB 0x02ef->0x1c68 ; ".@_secondary_@_body"
1af2 0300 | | .STRTAB 0x0300->0x1c72 ; ".@'spec.<secondary_@>"
1af3 0313 | | .STRTAB 0x0313->0x1c7c ; ".@'body.<secondary_@>"
1af4 0326 | & | .STRTAB 0x0326->0x1c87 ; "<NONE>"
1af5 032a | * | .STRTAB 0x032a->0x1c8a ; "<AUTO_GENERATE>"
1af6 0337 | 7 | .STRTAB 0x0337->0x1c91 ; "["
1af7 0336 | 6 | .STRTAB 0x0336->0x1c92 ; ","
1af8 0335 | 5 | .STRTAB 0x0335->0x1c92 ; "]"
1af9 0334 | 4 | .STRTAB 0x0334->0x1c93 ; "_"
1afa 0333 | 3 | .STRTAB 0x0333->0x1c93 ; "'"
1afb 0332 | 2 | .STRTAB 0x0332->0x1c94 ; ".<secondary_"
1afc 033c | < | .STRTAB 0x033c->0x1c9a ; ".@'c(ada).<secondary_"
1afd 034f | O | .STREND 0x034f->0x1ca4
1afe 7365 636f |seco| .STRTAB_STRINGS
1ca5 0000 0000 | | .XXX[0x3]
1ca7 0000 | |
1ca8 ; --------------------------------------------------------------------------------------
1ca8 ; Debug Table
1ca8 ; --------------------------------------------------------------------------------------
1ca8 0004 000d | | .DEBUG4 0x0004,0x000d,0x6e16,0x0000,0x0001,0x0000
1cae 0000 0000 | | .BLANK 0000[0x152]