|
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: 13312 (0x3400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 18e8 | | .CONST 0x18e8 ; 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 800f | | .CONST 0x800f ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01cb | | .CONST 0x01cb ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 00af | | .CONST 0x00af ; 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 1693 | | Declare_Subprogram INIT_1690,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 00c4 | | Action Make_Default
0098 00c4 | | Action Make_Default
0099 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
009b c27e | ~ | Store 0x1,0x7e
009c 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
009e c27f | | Store 0x1,0x7f
009f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
00a1 c280 | | Store 0x1,0x80
00a2 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
00a4 c281 | | Store 0x1,0x81
00a5 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
00a7 c227 | ' | Store 0x1,0x27
00a8 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
00aa c228 | ( | Store 0x1,0x28
00ab 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
00ad c229 | ) | Store 0x1,0x29
00ae 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
00b0 c22a | * | Store 0x1,0x2a
00b1 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
00b3 c22b | + | Store 0x1,0x2b
00b4 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
00b6 c22c | , | Store 0x1,0x2c
00b7 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
00b9 c278 | x | Store 0x1,0x78
00ba 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
00bc c277 | w | Store 0x1,0x77
00bd 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
00bf c28d | | Store 0x1,0x8d
00c0 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
00c2 c28e | | Store 0x1,0x8e
00c3 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated
00c5 c288 | | Store 0x1,0x88
00c6 029a 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Visible,Unelaborated
00c8 c289 | | Store 0x1,0x89
00c9 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated
00cb c28a | | Store 0x1,0x8a
00cc 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated
00ce c28b | | Store 0x1,0x8b
00cf 029a 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call,Visible,Unelaborated
00d1 c231 | 1 | Store 0x1,0x31
00d2 029a 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call,Visible,Unelaborated
00d4 c232 | 2 | Store 0x1,0x32
00d5 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated
00d7 c286 | | Store 0x1,0x86
00d8 029a 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call,Visible,Unelaborated
00da c279 | y | Store 0x1,0x79
00db 029a 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call,Visible,Unelaborated
00dd c265 | e | Store 0x1,0x65
00de 029a 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call,Visible,Unelaborated
00e0 c25a | Z | Store 0x1,0x5a
00e1 029a 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call,Visible,Unelaborated
00e3 c245 | E | Store 0x1,0x45
00e4 029a 0aeb | | Declare_Subprogram INIT_0ae8,For_Outer_Call,Visible,Unelaborated
00e6 c266 | f | Store 0x1,0x66
00e7 029a 0b0b | | Declare_Subprogram INIT_0b08,For_Outer_Call,Visible,Unelaborated
00e9 c267 | g | Store 0x1,0x67
00ea 029a 0b4b | K| Declare_Subprogram INIT_0b48,For_Outer_Call,Visible,Unelaborated
00ec c26a | j | Store 0x1,0x6a
00ed 029a 0b63 | c| Declare_Subprogram INIT_0b60,For_Outer_Call,Visible,Unelaborated
00ef c25d | ] | Store 0x1,0x5d
00f0 029a 0bcb | | Declare_Subprogram INIT_0bc8,For_Outer_Call,Visible,Unelaborated
00f2 c25e | ^ | Store 0x1,0x5e
00f3 029a 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call,Visible,Unelaborated
00f5 c25f | _ | Store 0x1,0x5f
00f6 029a 0bfb | | Declare_Subprogram INIT_0bf8,For_Outer_Call,Visible,Unelaborated
00f8 c270 | p | Store 0x1,0x70
00f9 029a 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call,Visible,Unelaborated
00fb c271 | q | Store 0x1,0x71
00fc 029a 0c43 | C| Declare_Subprogram INIT_0c40,For_Outer_Call,Visible,Unelaborated
00fe c273 | s | Store 0x1,0x73
00ff e001 | | Load 0x0,0x1
0100 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0101 4801 |H | Short_Literal 0x1
0102 4880 |H | Short_Literal 0x80
0103 00e9 | | Load_Encached String_Cache
0104 035c | \ | Declare_Type Array,Constrained,Visible
0105 00e3 | | Load_Encached Natural_Cache
0106 4801 |H | Short_Literal 0x1
0107 4880 |H | Short_Literal 0x80
0108 00e9 | | Load_Encached String_Cache
0109 035c | \ | Declare_Type Array,Constrained,Visible
010a 00e3 | | Load_Encached Natural_Cache
010b 4801 |H | Short_Literal 0x1
010c 4880 |H | Short_Literal 0x80
010d 00e9 | | Load_Encached String_Cache
010e 035c | \ | Declare_Type Array,Constrained,Visible
010f 00e3 | | Load_Encached Natural_Cache
0110 4801 |H | Short_Literal 0x1
0111 4880 |H | Short_Literal 0x80
0112 00e9 | | Load_Encached String_Cache
0113 035c | \ | Declare_Type Array,Constrained,Visible
0114 00e3 | | Load_Encached Natural_Cache
0115 029f 16bb | | Declare_Subprogram INIT_16b8,For_Call
0117 4809 |H | Short_Literal 0x9
0118 032e | . | Declare_Type Record,Defined,Visible
0119 c26f | o | Store 0x1,0x6f
011a 029a 0c5b | [| Declare_Subprogram INIT_0c58,For_Outer_Call,Visible,Unelaborated
011c c250 | P | Store 0x1,0x50
011d 029a 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call,Visible,Unelaborated
011f c27d | } | Store 0x1,0x7d
0120 029a 0cc3 | | Declare_Subprogram INIT_0cc0,For_Outer_Call,Visible,Unelaborated
0122 c26d | m | Store 0x1,0x6d
0123 029a 0d23 | #| Declare_Subprogram INIT_0d20,For_Outer_Call,Visible,Unelaborated
0125 c26e | n | Store 0x1,0x6e
0126 029a 0d83 | | Declare_Subprogram INIT_0d80,For_Outer_Call,Visible,Unelaborated
0128 c28c | | Store 0x1,0x8c
0129 029a 0e4b | K| Declare_Subprogram INIT_0e48,For_Outer_Call,Visible,Unelaborated
012b c283 | | Store 0x1,0x83
012c 029a 0eeb | | Declare_Subprogram INIT_0ee8,For_Outer_Call,Visible,Unelaborated
012e c284 | | Store 0x1,0x84
012f 029a 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call,Visible,Unelaborated
0131 c287 | | Store 0x1,0x87
0132 00bf | | Action Accept_Activation
0133 00e1 | | Load_Encached Boolean_Cache
0134 02a0 | | Declare_Subprogram Null_Subprogram
0135 4801 |H | Short_Literal 0x1
0136 032d | - | Declare_Type Record,Defined
0137 0092 1711 | | Action Push_String_Extended,0x1711 ; "secondary_"
0139 0092 1712 | | Action Push_String_Extended,0x1712 ; "<secondary_[@,~state]>"
013b 029d 0f3b | ;| Declare_Subprogram INIT_0f38,For_Outer_Call
013d 029d 0f4b | K| Declare_Subprogram INIT_0f48,For_Outer_Call
013f 029d 0f5b | [| Declare_Subprogram INIT_0f58,For_Outer_Call
0141 029d 0f93 | | Declare_Subprogram INIT_0f90,For_Outer_Call
0143 029d 0fa3 | | Declare_Subprogram INIT_0fa0,For_Outer_Call
0145 029d 0fb3 | | Declare_Subprogram INIT_0fb0,For_Outer_Call
0147 029d 0fd3 | | Declare_Subprogram INIT_0fd0,For_Outer_Call
0149 029d 0feb | | Declare_Subprogram INIT_0fe8,For_Outer_Call
014b 029d 101b | | Declare_Subprogram INIT_1018,For_Outer_Call
014d 029d 1063 | c| Declare_Subprogram INIT_1060,For_Outer_Call
014f 029d 109b | | Declare_Subprogram INIT_1098,For_Outer_Call
0151 029d 10ab | | Declare_Subprogram INIT_10a8,For_Outer_Call
0153 029d 10d3 | | Declare_Subprogram INIT_10d0,For_Outer_Call
0155 029d 10db | | Declare_Subprogram INIT_10d8,For_Outer_Call
0157 029d 10eb | | Declare_Subprogram INIT_10e8,For_Outer_Call
0159 029d 10fb | | Declare_Subprogram INIT_10f8,For_Outer_Call
015b 029d 1103 | | Declare_Subprogram INIT_1100,For_Outer_Call
015d 029d 110b | | Declare_Subprogram INIT_1108,For_Outer_Call
015f 029d 1143 | C| Declare_Subprogram INIT_1140,For_Outer_Call
0161 029d 1153 | S| Declare_Subprogram INIT_1150,For_Outer_Call
0163 029d 11a3 | | Declare_Subprogram INIT_11a0,For_Outer_Call
0165 029d 11f3 | | Declare_Subprogram INIT_11f0,For_Outer_Call
0167 029d 1233 | 3| Declare_Subprogram INIT_1230,For_Outer_Call
0169 029d 126b | k| Declare_Subprogram INIT_1268,For_Outer_Call
016b 029d 129b | | Declare_Subprogram INIT_1298,For_Outer_Call
016d 029d 12d3 | | Declare_Subprogram INIT_12d0,For_Outer_Call
016f 029d 1353 | S| Declare_Subprogram INIT_1350,For_Outer_Call
0171 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e
0172 00c7 | | Action Elaborate_Subprogram
0173 1d7f | | Execute_Immediate Reference_Lex_1,0x7f
0174 00c7 | | Action Elaborate_Subprogram
0175 1d80 | | Execute_Immediate Reference_Lex_1,0x80
0176 00c7 | | Action Elaborate_Subprogram
0177 1d81 | | Execute_Immediate Reference_Lex_1,0x81
0178 00c7 | | Action Elaborate_Subprogram
0179 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
017a 00c7 | | Action Elaborate_Subprogram
017b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
017c 00c7 | | Action Elaborate_Subprogram
017d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
017e 00c7 | | Action Elaborate_Subprogram
017f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0180 00c7 | | Action Elaborate_Subprogram
0181 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0182 00c7 | | Action Elaborate_Subprogram
0183 1d8e | | Execute_Immediate Reference_Lex_1,0x8e
0184 00c7 | | Action Elaborate_Subprogram
0185 1d8d | | Execute_Immediate Reference_Lex_1,0x8d
0186 00c7 | | Action Elaborate_Subprogram
0187 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0188 00c7 | | Action Elaborate_Subprogram
0189 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
018a 00c7 | | Action Elaborate_Subprogram
018b 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
018c 00c7 | | Action Elaborate_Subprogram
018d 029d 13bb | | Declare_Subprogram INIT_13b8,For_Outer_Call
018f 029d 13e3 | | Declare_Subprogram INIT_13e0,For_Outer_Call
0191 1d88 | | Execute_Immediate Reference_Lex_1,0x88
0192 00c7 | | Action Elaborate_Subprogram
0193 1d89 | | Execute_Immediate Reference_Lex_1,0x89
0194 00c7 | | Action Elaborate_Subprogram
0195 1d8a | | Execute_Immediate Reference_Lex_1,0x8a
0196 00c7 | | Action Elaborate_Subprogram
0197 1d8b | | Execute_Immediate Reference_Lex_1,0x8b
0198 00c7 | | Action Elaborate_Subprogram
0199 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
019a 00c7 | | Action Elaborate_Subprogram
019b 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
019c 00c7 | | Action Elaborate_Subprogram
019d 1d86 | | Execute_Immediate Reference_Lex_1,0x86
019e 00c7 | | Action Elaborate_Subprogram
019f 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
01a0 00c7 | | Action Elaborate_Subprogram
01a1 1d65 | e | Execute_Immediate Reference_Lex_1,0x65
01a2 00c7 | | Action Elaborate_Subprogram
01a3 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
01a4 00c7 | | Action Elaborate_Subprogram
01a5 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
01a6 00c7 | | Action Elaborate_Subprogram
01a7 029d 13fb | | Declare_Subprogram INIT_13f8,For_Outer_Call
01a9 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
01aa 00c7 | | Action Elaborate_Subprogram
01ab 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
01ac 00c7 | | Action Elaborate_Subprogram
01ad 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a
01ae 00c7 | | Action Elaborate_Subprogram
01af 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
01b0 00c7 | | Action Elaborate_Subprogram
01b1 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
01b2 00c7 | | Action Elaborate_Subprogram
01b3 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
01b4 00c7 | | Action Elaborate_Subprogram
01b5 1d70 | p | Execute_Immediate Reference_Lex_1,0x70
01b6 00c7 | | Action Elaborate_Subprogram
01b7 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
01b8 00c7 | | Action Elaborate_Subprogram
01b9 1d73 | s | Execute_Immediate Reference_Lex_1,0x73
01ba 00c7 | | Action Elaborate_Subprogram
01bb 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
01bc 00c7 | | Action Elaborate_Subprogram
01bd 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d
01be 00c7 | | Action Elaborate_Subprogram
01bf 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
01c0 00c7 | | Action Elaborate_Subprogram
01c1 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
01c2 00c7 | | Action Elaborate_Subprogram
01c3 1d8c | | Execute_Immediate Reference_Lex_1,0x8c
01c4 00c7 | | Action Elaborate_Subprogram
01c5 1d83 | | Execute_Immediate Reference_Lex_1,0x83
01c6 00c7 | | Action Elaborate_Subprogram
01c7 1d84 | | Execute_Immediate Reference_Lex_1,0x84
01c8 00c7 | | Action Elaborate_Subprogram
01c9 1d87 | | Execute_Immediate Reference_Lex_1,0x87
01ca 00c7 | | Action Elaborate_Subprogram
01cb BODY_0008:
01cb 00bc | | Action Signal_Activated
01cc 00bb | | Action Signal_Completion
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 01df | | .CONST 0x01df ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4800 |H | Short_Literal 0x0
01d4 a5fc | | Store_Unchecked 0x2,-0x4
01d5 e5fd | | Load 0x2,-0x3
01d6 0092 1713 | | Action Push_String_Extended,0x1713 ; "Rcf_Unit.Display_Unit_Options"
01d8 e002 | | Load 0x0,0x2
01d9 180e | | Execute Package,Field_Execute,Field_Number 0xe
01da e5fd | | Load 0x2,-0x3
01db e5fe | | Load 0x2,-0x2
01dc e003 | | Load 0x0,0x3
01dd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01de 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01df TRAP_01d0:
01df e001 | | Load 0x0,0x1
01e0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01e1 010f | | Execute Exception,Equal
01e2 6804 |h | Jump_Zero 0x1e7
01e3 e001 | | Load 0x0,0x1
01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e5 a5fc | | Store_Unchecked 0x2,-0x4
01e6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e7 e5fd | | Load 0x2,-0x3
01e8 0092 1713 | | Action Push_String_Extended,0x1713 ; "Rcf_Unit.Display_Unit_Options"
01ea e002 | | Load 0x0,0x2
01eb 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ec 0092 1713 | | Action Push_String_Extended,0x1713 ; "Rcf_Unit.Display_Unit_Options"
01ee e002 | | Load 0x0,0x2
01ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f0 a5fc | | Store_Unchecked 0x2,-0x4
01f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0209 | | .CONST 0x0209 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e5fb | | Load 0x2,-0x5
01fc 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options"
01fe e002 | | Load 0x0,0x2
01ff 180e | | Execute Package,Field_Execute,Field_Number 0xe
0200 4800 |H | Short_Literal 0x0
0201 a5fa | | Store_Unchecked 0x2,-0x6
0202 e5fb | | Load 0x2,-0x5
0203 e5fc | | Load 0x2,-0x4
0204 e5fd | | Load 0x2,-0x3
0205 e5fe | | Load 0x2,-0x2
0206 e003 | | Load 0x0,0x3
0207 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0208 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0209 TRAP_01f8:
0209 e001 | | Load 0x0,0x1
020a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
020b 010f | | Execute Exception,Equal
020c 6804 |h | Jump_Zero 0x211
020d e001 | | Load 0x0,0x1
020e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020f a5fa | | Store_Unchecked 0x2,-0x6
0210 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0211 e5fb | | Load 0x2,-0x5
0212 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options"
0214 e002 | | Load 0x0,0x2
0215 180f | | Execute Package,Field_Execute,Field_Number 0xf
0216 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options"
0218 e002 | | Load 0x0,0x2
0219 1810 | | Execute Package,Field_Execute,Field_Number 0x10
021a a5fa | | Store_Unchecked 0x2,-0x6
021b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0231 | 1 | .CONST 0x0231 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e5fb | | Load 0x2,-0x5
0224 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options"
0226 e002 | | Load 0x0,0x2
0227 180e | | Execute Package,Field_Execute,Field_Number 0xe
0228 4800 |H | Short_Literal 0x0
0229 a5fa | | Store_Unchecked 0x2,-0x6
022a e5fb | | Load 0x2,-0x5
022b e5fc | | Load 0x2,-0x4
022c e5fd | | Load 0x2,-0x3
022d e5fe | | Load 0x2,-0x2
022e e003 | | Load 0x0,0x3
022f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0230 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0231 TRAP_0220:
0231 e001 | | Load 0x0,0x1
0232 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0233 010f | | Execute Exception,Equal
0234 6804 |h | Jump_Zero 0x239
0235 e001 | | Load 0x0,0x1
0236 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0237 a5fa | | Store_Unchecked 0x2,-0x6
0238 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0239 e5fb | | Load 0x2,-0x5
023a 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options"
023c e002 | | Load 0x0,0x2
023d 180f | | Execute Package,Field_Execute,Field_Number 0xf
023e 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options"
0240 e002 | | Load 0x0,0x2
0241 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0242 a5fa | | Store_Unchecked 0x2,-0x6
0243 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0258 | X | .CONST 0x0258 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e5fc | | Load 0x2,-0x4
024c 0092 1715 | | Action Push_String_Extended,0x1715 ; "Rcf_Unit.Remove_Unit_Options"
024e e002 | | Load 0x0,0x2
024f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0250 4800 |H | Short_Literal 0x0
0251 a5fb | | Store_Unchecked 0x2,-0x5
0252 e5fc | | Load 0x2,-0x4
0253 e5fd | | Load 0x2,-0x3
0254 e5fe | | Load 0x2,-0x2
0255 e003 | | Load 0x0,0x3
0256 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0257 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0258 TRAP_0248:
0258 e001 | | Load 0x0,0x1
0259 1b17 | | Execute Package,Field_Read,Field_Number 0x17
025a 010f | | Execute Exception,Equal
025b 6804 |h | Jump_Zero 0x260
025c e001 | | Load 0x0,0x1
025d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
025e a5fb | | Store_Unchecked 0x2,-0x5
025f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0260 e5fc | | Load 0x2,-0x4
0261 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options"
0263 e002 | | Load 0x0,0x2
0264 180f | | Execute Package,Field_Execute,Field_Number 0xf
0265 0092 1714 | | Action Push_String_Extended,0x1714 ; "Rcf_Unit.Set_Unit_Options"
0267 e002 | | Load 0x0,0x2
0268 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0269 a5fb | | Store_Unchecked 0x2,-0x5
026a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
026b 0000 0000 | | .BLANK 0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0280 | | .CONST 0x0280 ; Address of begin
0271 0287 | | .CONST 0x0287 ; Address of exception handler
0272 0004 | | .CONST 0x0004 ; Number of locals
0273 INIT_0270:
0273 4800 |H | Short_Literal 0x0
0274 e20d | | Load 0x1,0xd
0275 1c08 | | Execute_Immediate Run_Utility,0x8
0276 e004 | | Load 0x0,0x4
0277 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0278 0322 | " | Declare_Variable Record
0279 e5fd | | Load 0x2,-0x3
027a e004 | | Load 0x0,0x4
027b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
027c 00d9 | | Load_Top At_Offset_1
027d 017d | } | Execute Record,Structure_Write
027e 029f 1453 | S| Declare_Subprogram INIT_1450,For_Call
0280 BODY_0270:
0280 e5fc | | Load 0x2,-0x4
0281 0092 1716 | | Action Push_String_Extended,0x1716 ; "Rcf_Unit.Remote_Unit_Name"
0283 e002 | | Load 0x0,0x2
0284 180e | | Execute Package,Field_Execute,Field_Number 0xe
0285 8404 | | Call 0x2,0x4
0286 0831 | 1 | Execute_Immediate Raise,0x31
0287 TRAP_0270:
0287 e001 | | Load 0x0,0x1
0288 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0289 010f | | Execute Exception,Equal
028a 6806 |h | Jump_Zero 0x291
028b e001 | | Load 0x0,0x1
028c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
028d e402 | | Load 0x2,0x2
028e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
028f 00db | | Load_Top At_Offset_3
0290 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0291 e5fc | | Load 0x2,-0x4
0292 0092 1716 | | Action Push_String_Extended,0x1716 ; "Rcf_Unit.Remote_Unit_Name"
0294 e002 | | Load 0x0,0x2
0295 180f | | Execute Package,Field_Execute,Field_Number 0xf
0296 0092 1716 | | Action Push_String_Extended,0x1716 ; "Rcf_Unit.Remote_Unit_Name"
0298 e002 | | Load 0x0,0x2
0299 1810 | | Execute Package,Field_Execute,Field_Number 0x10
029a e402 | | Load 0x2,0x2
029b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
029c 00db | | Load_Top At_Offset_3
029d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02b0 | | .CONST 0x02b0 ; Address of begin
02a1 02b7 | | .CONST 0x02b7 ; Address of exception handler
02a2 0004 | | .CONST 0x0004 ; Number of locals
02a3 INIT_02a0:
02a3 4800 |H | Short_Literal 0x0
02a4 e20d | | Load 0x1,0xd
02a5 1c08 | | Execute_Immediate Run_Utility,0x8
02a6 e004 | | Load 0x0,0x4
02a7 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
02a8 0322 | " | Declare_Variable Record
02a9 e5fe | | Load 0x2,-0x2
02aa e004 | | Load 0x0,0x4
02ab 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
02ac 00d9 | | Load_Top At_Offset_1
02ad 017d | } | Execute Record,Structure_Write
02ae 029f 147b | {| Declare_Subprogram INIT_1478,For_Call
02b0 BODY_02a0:
02b0 e5fc | | Load 0x2,-0x4
02b1 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name"
02b3 e002 | | Load 0x0,0x2
02b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b5 8404 | | Call 0x2,0x4
02b6 0831 | 1 | Execute_Immediate Raise,0x31
02b7 TRAP_02a0:
02b7 e001 | | Load 0x0,0x1
02b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02b9 010f | | Execute Exception,Equal
02ba 6806 |h | Jump_Zero 0x2c1
02bb e001 | | Load 0x0,0x1
02bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02bd e402 | | Load 0x2,0x2
02be 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02bf 00db | | Load_Top At_Offset_3
02c0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
02c1 e5fc | | Load 0x2,-0x4
02c2 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name"
02c4 e002 | | Load 0x0,0x2
02c5 180f | | Execute Package,Field_Execute,Field_Number 0xf
02c6 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name"
02c8 e002 | | Load 0x0,0x2
02c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ca e402 | | Load 0x2,0x2
02cb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02cc 00db | | Load_Top At_Offset_3
02cd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
02ce 0000 0000 | | .XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e8 | | .CONST 0x02e8 ; Address of begin
02d1 02ea | | .CONST 0x02ea ; Address of exception handler
02d2 0006 | | .CONST 0x0006 ; Number of locals
02d3 INIT_02d0:
02d3 e004 | | Load 0x0,0x4
02d4 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
02d5 0322 | " | Declare_Variable Record
02d6 e5fe | | Load 0x2,-0x2
02d7 e004 | | Load 0x0,0x4
02d8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
02d9 00d9 | | Load_Top At_Offset_1
02da 017d | } | Execute Record,Structure_Write
02db e5fc | | Load 0x2,-0x4
02dc e5fe | | Load 0x2,-0x2
02dd e5ff | | Load 0x2,-0x1
02de e005 | | Load 0x0,0x5
02df 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02e0 00d9 | | Load_Top At_Offset_1
02e1 e004 | | Load 0x0,0x4
02e2 186e | n | Execute Package,Field_Execute,Field_Number 0x6e
02e3 4800 |H | Short_Literal 0x0
02e4 e20d | | Load 0x1,0xd
02e5 1c08 | | Execute_Immediate Run_Utility,0x8
02e6 029f 148b | | Declare_Subprogram INIT_1488,For_Call
02e8 BODY_02d0:
02e8 8406 | | Call 0x2,0x6
02e9 0831 | 1 | Execute_Immediate Raise,0x31
02ea TRAP_02d0:
02ea e001 | | Load 0x0,0x1
02eb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02ec 010f | | Execute Exception,Equal
02ed 6806 |h | Jump_Zero 0x2f4
02ee e001 | | Load 0x0,0x1
02ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02f0 00db | | Load_Top At_Offset_3
02f1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02f2 00da | | Load_Top At_Offset_2
02f3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
02f4 e5fc | | Load 0x2,-0x4
02f5 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name"
02f7 e002 | | Load 0x0,0x2
02f8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02f9 0092 1717 | | Action Push_String_Extended,0x1717 ; "Rcf_Unit.Full_Remote_Unit_Name"
02fb e002 | | Load 0x0,0x2
02fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02fd 00db | | Load_Top At_Offset_3
02fe 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02ff 00da | | Load_Top At_Offset_2
0300 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0301 0000 0000 | | .BLANK 0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0316 | | .CONST 0x0316 ; Address of begin
0309 032f | / | .CONST 0x032f ; Address of exception handler
030a 0003 | | .CONST 0x0003 ; Number of locals
030b INIT_0308:
030b e001 | | Load 0x0,0x1
030c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
030e e004 | | Load 0x0,0x4
030f 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0310 0322 | " | Declare_Variable Record
0311 e5fc | | Load 0x2,-0x4
0312 e004 | | Load 0x0,0x4
0313 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0314 00d9 | | Load_Top At_Offset_1
0315 017d | } | Execute Record,Structure_Write
0316 BODY_0308:
0316 e5fb | | Load 0x2,-0x5
0317 0092 1718 | | Action Push_String_Extended,0x1718 ; "Rcf_Unit.Set_Remote_Unit_Name"
0319 e002 | | Load 0x0,0x2
031a 180e | | Execute Package,Field_Execute,Field_Number 0xe
031b 4800 |H | Short_Literal 0x0
031c a5fa | | Store_Unchecked 0x2,-0x6
031d e001 | | Load 0x0,0x1
031e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031f e5fb | | Load 0x2,-0x5
0320 00da | | Load_Top At_Offset_2
0321 e5fd | | Load 0x2,-0x3
0322 e5fe | | Load 0x2,-0x2
0323 e006 | | Load 0x0,0x6
0324 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0325 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0326 005a | Z | Store_Top Discrete,At_Offset_2
0327 4800 |H | Short_Literal 0x0
0328 00da | | Load_Top At_Offset_2
0329 e001 | | Load 0x0,0x1
032a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
032b 7002 |p | Jump_Nonzero 0x32e
032c 00d9 | | Load_Top At_Offset_1
032d a5fa | | Store_Unchecked 0x2,-0x6
032e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
032f TRAP_0308:
032f e001 | | Load 0x0,0x1
0330 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0331 010f | | Execute Exception,Equal
0332 6804 |h | Jump_Zero 0x337
0333 e001 | | Load 0x0,0x1
0334 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0335 a5fa | | Store_Unchecked 0x2,-0x6
0336 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0337 e5fb | | Load 0x2,-0x5
0338 0092 1718 | | Action Push_String_Extended,0x1718 ; "Rcf_Unit.Set_Remote_Unit_Name"
033a e002 | | Load 0x0,0x2
033b 180f | | Execute Package,Field_Execute,Field_Number 0xf
033c 0092 1718 | | Action Push_String_Extended,0x1718 ; "Rcf_Unit.Set_Remote_Unit_Name"
033e e002 | | Load 0x0,0x2
033f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0340 a5fa | | Store_Unchecked 0x2,-0x6
0341 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0342 0000 0000 | | .BLANK 0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0358 | X | .CONST 0x0358 ; Address of begin
0349 037d | } | .CONST 0x037d ; Address of exception handler
034a 0003 | | .CONST 0x0003 ; Number of locals
034b INIT_0348:
034b e004 | | Load 0x0,0x4
034c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
034d 0322 | " | Declare_Variable Record
034e e5fd | | Load 0x2,-0x3
034f e004 | | Load 0x0,0x4
0350 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0351 00d9 | | Load_Top At_Offset_1
0352 017d | } | Execute Record,Structure_Write
0353 e007 | | Load 0x0,0x7
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 02c7 | | Declare_Variable Any
0356 00d8 | | Load_Top At_Offset_0
0357 1c00 | | Execute_Immediate Run_Utility,0x0
0358 BODY_0348:
0358 4800 |H | Short_Literal 0x0
0359 a5fa | | Store_Unchecked 0x2,-0x6
035a e006 | | Load 0x0,0x6
035b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
035d c5fb | | Store 0x2,-0x5
035e e5fc | | Load 0x2,-0x4
035f 0092 1719 | | Action Push_String_Extended,0x1719 ; "Rcf_Unit.Local_Update_Time"
0361 e002 | | Load 0x0,0x2
0362 180e | | Execute Package,Field_Execute,Field_Number 0xe
0363 e001 | | Load 0x0,0x1
0364 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0365 00d9 | | Load_Top At_Offset_1
0366 0120 | | Execute Any,Is_Value
0367 6803 |h | Jump_Zero 0x36b
0368 e007 | | Load 0x0,0x7
0369 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036a 7801 |x | Jump 0x36c
036b 00d9 | | Load_Top At_Offset_1
036c e5fb | | Load 0x2,-0x5
036d 0120 | | Execute Any,Is_Value
036e 6803 |h | Jump_Zero 0x372
036f e007 | | Load 0x0,0x7
0370 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0371 7801 |x | Jump 0x373
0372 e5fb | | Load 0x2,-0x5
0373 e5fc | | Load 0x2,-0x4
0374 e402 | | Load 0x2,0x2
0375 e5fe | | Load 0x2,-0x2
0376 e006 | | Load 0x0,0x6
0377 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0378 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0379 c5fb | | Store 0x2,-0x5
037a c403 | | Store 0x2,0x3
037b c5fa | | Store 0x2,-0x6
037c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
037d TRAP_0348:
037d e001 | | Load 0x0,0x1
037e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
037f 010f | | Execute Exception,Equal
0380 6804 |h | Jump_Zero 0x385
0381 e001 | | Load 0x0,0x1
0382 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0383 a5fa | | Store_Unchecked 0x2,-0x6
0384 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0385 e5fc | | Load 0x2,-0x4
0386 0092 1719 | | Action Push_String_Extended,0x1719 ; "Rcf_Unit.Local_Update_Time"
0388 e002 | | Load 0x0,0x2
0389 180f | | Execute Package,Field_Execute,Field_Number 0xf
038a 0092 1719 | | Action Push_String_Extended,0x1719 ; "Rcf_Unit.Local_Update_Time"
038c e002 | | Load 0x0,0x2
038d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
038e a5fa | | Store_Unchecked 0x2,-0x6
038f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 039e | | .CONST 0x039e ; Address of begin
0391 03c2 | | .CONST 0x03c2 ; Address of exception handler
0392 0003 | | .CONST 0x0003 ; Number of locals
0393 INIT_0390:
0393 e001 | | Load 0x0,0x1
0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0395 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0396 e004 | | Load 0x0,0x4
0397 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0398 0322 | " | Declare_Variable Record
0399 e5fc | | Load 0x2,-0x4
039a e004 | | Load 0x0,0x4
039b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
039c 00d9 | | Load_Top At_Offset_1
039d 017d | } | Execute Record,Structure_Write
039e BODY_0390:
039e e5fb | | Load 0x2,-0x5
039f 0092 171a | | Action Push_String_Extended,0x171a ; "Rcf_Unit.Set_Local_Update_Time: Time = "
03a1 4800 |H | Short_Literal 0x0
03a2 4800 |H | Short_Literal 0x0
03a3 4800 |H | Short_Literal 0x0
03a4 e5fd | | Load 0x2,-0x3
03a5 e008 | | Load 0x0,0x8
03a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03a7 e008 | | Load 0x0,0x8
03a8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03a9 01cc | | Execute Vector,Catenate
03aa e002 | | Load 0x0,0x2
03ab 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ac 4800 |H | Short_Literal 0x0
03ad a5fa | | Store_Unchecked 0x2,-0x6
03ae e001 | | Load 0x0,0x1
03af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b0 e5fb | | Load 0x2,-0x5
03b1 00da | | Load_Top At_Offset_2
03b2 e5fe | | Load 0x2,-0x2
03b3 828d | | Call 0x1,0x8d
03b4 e5fd | | Load 0x2,-0x3
03b5 e5fe | | Load 0x2,-0x2
03b6 e006 | | Load 0x0,0x6
03b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03b9 005a | Z | Store_Top Discrete,At_Offset_2
03ba 4800 |H | Short_Literal 0x0
03bb 00da | | Load_Top At_Offset_2
03bc e001 | | Load 0x0,0x1
03bd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03be 7002 |p | Jump_Nonzero 0x3c1
03bf 00d9 | | Load_Top At_Offset_1
03c0 a5fa | | Store_Unchecked 0x2,-0x6
03c1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
03c2 TRAP_0390:
03c2 e001 | | Load 0x0,0x1
03c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03c4 010f | | Execute Exception,Equal
03c5 6804 |h | Jump_Zero 0x3ca
03c6 e001 | | Load 0x0,0x1
03c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03c8 a5fa | | Store_Unchecked 0x2,-0x6
03c9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
03ca e5fb | | Load 0x2,-0x5
03cb 0092 171b | | Action Push_String_Extended,0x171b ; "Rcf_Unit.Set_Local_Update_Time"
03cd e002 | | Load 0x0,0x2
03ce 180f | | Execute Package,Field_Execute,Field_Number 0xf
03cf 0092 171b | | Action Push_String_Extended,0x171b ; "Rcf_Unit.Set_Local_Update_Time"
03d1 e002 | | Load 0x0,0x2
03d2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d3 a5fa | | Store_Unchecked 0x2,-0x6
03d4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
03d5 0000 0000 | | .XXX[0x3]
03d7 0000 | |
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e2 | | .CONST 0x03e2 ; Address of begin
03d9 03f2 | | .CONST 0x03f2 ; Address of exception handler
03da 0003 | | .CONST 0x0003 ; Number of locals
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc e009 | | Load 0x0,0x9
03dd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03de e26f | o | Load 0x1,0x6f
03df 0322 | " | Declare_Variable Record
03e0 00d8 | | Load_Top At_Offset_0
03e1 1c00 | | Execute_Immediate Run_Utility,0x0
03e2 BODY_03d8:
03e2 4800 |H | Short_Literal 0x0
03e3 a5fc | | Store_Unchecked 0x2,-0x4
03e4 00d8 | | Load_Top At_Offset_0
03e5 e5fe | | Load 0x2,-0x2
03e6 00db | | Load_Top At_Offset_3
03e7 82a8 | | Call 0x1,0xa8
03e8 00d1 | | Pop_Control Pop_Count_1
03e9 4801 |H | Short_Literal 0x1
03ea 00d9 | | Load_Top At_Offset_1
03eb 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03ec 00da | | Load_Top At_Offset_2
03ed 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
03ee 01cf | | Execute Vector,Slice_Read
03ef 82a0 | | Call 0x1,0xa0
03f0 c5fd | | Store 0x2,-0x3
03f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f2 TRAP_03d8:
03f2 0007 | | Action Break_Optional
03f3 6004 |` | Indirect_Literal Discrete,0x3f8,{0x00000000, 0x0000813b}
03f4 a5fc | | Store_Unchecked 0x2,-0x4
03f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f6 0000 0000 | | .XXX[0x2]
03f8 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
03fc 0000 0000 | | .BLANK 0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 040c | | .CONST 0x040c ; Address of begin
0401 0438 | 8 | .CONST 0x0438 ; Address of exception handler
0402 0004 | | .CONST 0x0004 ; Number of locals
0403 INIT_0400:
0403 00da | | Load_Top At_Offset_2
0404 e009 | | Load 0x0,0x9
0405 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0406 e26f | o | Load 0x1,0x6f
0407 0322 | " | Declare_Variable Record
0408 00d8 | | Load_Top At_Offset_0
0409 1c00 | | Execute_Immediate Run_Utility,0x0
040a e5fe | | Load 0x2,-0x2
040b 829f | | Call 0x1,0x9f
040c BODY_0400:
040c 4800 |H | Short_Literal 0x0
040d a5fc | | Store_Unchecked 0x2,-0x4
040e 00d9 | | Load_Top At_Offset_1
040f e5fd | | Load 0x2,-0x3
0410 e402 | | Load 0x2,0x2
0411 82a8 | | Call 0x1,0xa8
0412 00d1 | | Pop_Control Pop_Count_1
0413 00d8 | | Load_Top At_Offset_0
0414 4801 |H | Short_Literal 0x1
0415 00da | | Load_Top At_Offset_2
0416 01db | | Execute Vector,Length
0417 00d8 | | Load_Top At_Offset_0
0418 00e2 | | Load_Encached Integer_Cache
0419 0260 | ` | Execute Discrete,In_Type
041a 7001 |p | Jump_Nonzero 0x41c
041b 0801 | | Execute_Immediate Raise,0x1
041c e403 | | Load 0x2,0x3
041d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
041e 01ce | | Execute Vector,Slice_Write
041f 00d8 | | Load_Top At_Offset_0
0420 01db | | Execute Vector,Length
0421 00da | | Load_Top At_Offset_2
0422 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0423 e001 | | Load 0x0,0x1
0424 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0425 e5fd | | Load 0x2,-0x3
0426 e5ff | | Load 0x2,-0x1
0427 e009 | | Load 0x0,0x9
0428 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
0429 c5fc | | Store 0x2,-0x4
042a e5fd | | Load 0x2,-0x3
042b 00da | | Load_Top At_Offset_2
042c e402 | | Load 0x2,0x2
042d 82aa | | Call 0x1,0xaa
042e e001 | | Load 0x0,0x1
042f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0430 e5fd | | Load 0x2,-0x3
0431 e5ff | | Load 0x2,-0x1
0432 e009 | | Load 0x0,0x9
0433 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0434 c5fc | | Store 0x2,-0x4
0435 4800 |H | Short_Literal 0x0
0436 a5fc | | Store_Unchecked 0x2,-0x4
0437 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0438 TRAP_0400:
0438 e00a | | Load 0x0,0xa
0439 010f | | Execute Exception,Equal
043a 6817 |h | Jump_Zero 0x452
043b e5fd | | Load 0x2,-0x3
043c 4801 |H | Short_Literal 0x1
043d 4801 |H | Short_Literal 0x1
043e e00b | | Load 0x0,0xb
043f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0440 035b | [ | Declare_Type Array,Constrained
0441 0337 | 7 | Declare_Variable Array
0442 0092 171c | | Action Push_String_Extended,0x171c ; " 128"
0444 e00b | | Load 0x0,0xb
0445 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0446 e00b | | Load 0x0,0xb
0447 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0448 0119 | | Execute Any,Check_In_Formal_Type
0449 4801 |H | Short_Literal 0x1
044a 00da | | Load_Top At_Offset_2
044b 01d6 | | Execute Vector,Field_Write
044c 600b |` | Indirect_Literal Discrete,0x458,{0x00000000, 0x0000819e}
044d e001 | | Load 0x0,0x1
044e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
044f 6008 |` | Indirect_Literal Discrete,0x458,{0x00000000, 0x0000819e}
0450 a5fc | | Store_Unchecked 0x2,-0x4
0451 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0452 67a5 |g | Indirect_Literal Discrete,0x3f8,{0x00000000, 0x0000813b}
0453 a5fc | | Store_Unchecked 0x2,-0x4
0454 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0455 0000 0000 | | .XXX[0x3]
0457 0000 | |
0458 0000 0000 | | .LITERAL {0x00000000, 0x0000819e}
045c 0000 0000 | | .BLANK 0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 046b | k | .CONST 0x046b ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0003 | | .CONST 0x0003 ; Number of locals
0463 INIT_0460:
0463 e00c | | Load 0x0,0xc
0464 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0465 e00d | | Load 0x0,0xd
0466 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0467 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0468 02c7 | | Declare_Variable Any
0469 00d8 | | Load_Top At_Offset_0
046a 1c00 | | Execute_Immediate Run_Utility,0x0
046b BODY_0460:
046b 4801 |H | Short_Literal 0x1
046c e00d | | Load 0x0,0xd
046d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
046e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
046f e5ff | | Load 0x2,-0x1
0470 e00c | | Load 0x0,0xc
0471 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0472 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0473 e00d | | Load 0x0,0xd
0474 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0475 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0476 c403 | | Store 0x2,0x3
0477 00d8 | | Load_Top At_Offset_0
0478 e00d | | Load 0x0,0xd
0479 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
047b 6805 |h | Jump_Zero 0x481
047c 00d8 | | Load_Top At_Offset_0
047d e00d | | Load 0x0,0xd
047e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
047f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0480 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0481 e007 | | Load 0x0,0x7
0482 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0483 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0484 0000 0000 | | .BLANK 0000[0x4]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 049d | | .CONST 0x049d ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0005 | | .CONST 0x0005 ; Number of locals
048b INIT_0488:
048b e007 | | Load 0x0,0x7
048c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048d 02c7 | | Declare_Variable Any
048e 00d8 | | Load_Top At_Offset_0
048f 1c00 | | Execute_Immediate Run_Utility,0x0
0490 e007 | | Load 0x0,0x7
0491 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0492 02c7 | | Declare_Variable Any
0493 00d8 | | Load_Top At_Offset_0
0494 1c00 | | Execute_Immediate Run_Utility,0x0
0495 e001 | | Load 0x0,0x1
0496 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0497 e00e | | Load 0x0,0xe
0498 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0499 02c7 | | Declare_Variable Any
049a e00e | | Load 0x0,0xe
049b 180e | | Execute Package,Field_Execute,Field_Number 0xe
049c a405 | | Store_Unchecked 0x2,0x5
049d BODY_0488:
049d e001 | | Load 0x0,0x1
049e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049f 00db | | Load_Top At_Offset_3
04a0 0120 | | Execute Any,Is_Value
04a1 6803 |h | Jump_Zero 0x4a5
04a2 e007 | | Load 0x0,0x7
04a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a4 7801 |x | Jump 0x4a6
04a5 00db | | Load_Top At_Offset_3
04a6 e402 | | Load 0x2,0x2
04a7 0120 | | Execute Any,Is_Value
04a8 6803 |h | Jump_Zero 0x4ac
04a9 e007 | | Load 0x0,0x7
04aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ab 7801 |x | Jump 0x4ad
04ac e402 | | Load 0x2,0x2
04ad 00db | | Load_Top At_Offset_3
04ae e5fe | | Load 0x2,-0x2
04af e004 | | Load 0x0,0x4
04b0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
04b1 e5ff | | Load 0x2,-0x1
04b2 e006 | | Load 0x0,0x6
04b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04b5 c402 | | Store 0x2,0x2
04b6 c403 | | Store 0x2,0x3
04b7 005a | Z | Store_Top Discrete,At_Offset_2
04b8 00da | | Load_Top At_Offset_2
04b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04ba 0000 0000 | | .BLANK 0000[0x6]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04ef | | .CONST 0x04ef ; Address of begin
04c1 05f0 | | .CONST 0x05f0 ; Address of exception handler
04c2 0009 | | .CONST 0x0009 ; Number of locals
04c3 INIT_04c0:
04c3 e004 | | Load 0x0,0x4
04c4 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
04c5 0322 | " | Declare_Variable Record
04c6 e5fd | | Load 0x2,-0x3
04c7 e004 | | Load 0x0,0x4
04c8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
04c9 00d9 | | Load_Top At_Offset_1
04ca 017d | } | Execute Record,Structure_Write
04cb e5fe | | Load 0x2,-0x2
04cc 82ae | | Call 0x1,0xae
04cd 0092 171d | | Action Push_String_Extended,0x171d ; "Rci_Temp_"
04cf 4800 |H | Short_Literal 0x0
04d0 4803 |H | Short_Literal 0x3
04d1 4804 |H | Short_Literal 0x4
04d2 e008 | | Load 0x0,0x8
04d3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04d4 e008 | | Load 0x0,0x8
04d5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04d6 01cc | | Execute Vector,Catenate
04d7 e5fe | | Load 0x2,-0x2
04d8 82ad | | Call 0x1,0xad
04d9 e5fa | | Load 0x2,-0x6
04da e5fc | | Load 0x2,-0x4
04db e5fd | | Load 0x2,-0x3
04dc e5ff | | Load 0x2,-0x1
04dd 8229 | ) | Call 0x1,0x29
04de e001 | | Load 0x0,0x1
04df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04e1 e00c | | Load 0x0,0xc
04e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04e3 02c7 | | Declare_Variable Any
04e4 e00c | | Load 0x0,0xc
04e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04e6 a407 | | Store_Unchecked 0x2,0x7
04e7 e00f | | Load 0x0,0xf
04e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04ea e007 | | Load 0x0,0x7
04eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ec 02c7 | | Declare_Variable Any
04ed 00d8 | | Load_Top At_Offset_0
04ee 1c00 | | Execute_Immediate Run_Utility,0x0
04ef BODY_04c0:
04ef e00c | | Load 0x0,0xc
04f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04f1 c5f9 | | Store 0x2,-0x7
04f2 4800 |H | Short_Literal 0x0
04f3 a5f8 | | Store_Unchecked 0x2,-0x8
04f4 e5fa | | Load 0x2,-0x6
04f5 e5ff | | Load 0x2,-0x1
04f6 e009 | | Load 0x0,0x9
04f7 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
04f8 6815 |h | Jump_Zero 0x50e
04f9 e5fa | | Load 0x2,-0x6
04fa 4801 |H | Short_Literal 0x1
04fb 4801 |H | Short_Literal 0x1
04fc e00b | | Load 0x0,0xb
04fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04fe 035b | [ | Declare_Type Array,Constrained
04ff 0337 | 7 | Declare_Variable Array
0500 0092 171e | | Action Push_String_Extended,0x171e ; "Upload_Ada_Unit"
0502 e00b | | Load 0x0,0xb
0503 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0504 e00b | | Load 0x0,0xb
0505 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0506 0119 | | Execute Any,Check_In_Formal_Type
0507 4801 |H | Short_Literal 0x1
0508 00da | | Load_Top At_Offset_2
0509 01d6 | | Execute Vector,Field_Write
050a 6101 |a | Indirect_Literal Discrete,0x60c,{0x00000000, 0x0000818f}
050b e001 | | Load 0x0,0x1
050c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
050d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
050e e001 | | Load 0x0,0x1
050f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0510 e5fa | | Load 0x2,-0x6
0511 e5ff | | Load 0x2,-0x1
0512 e009 | | Load 0x0,0x9
0513 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0514 4800 |H | Short_Literal 0x0
0515 e5fb | | Load 0x2,-0x5
0516 e405 | | Load 0x2,0x5
0517 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0518 e404 | | Load 0x2,0x4
0519 e010 | | Load 0x0,0x10
051a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
051b c406 | | Store 0x2,0x6
051c 4800 |H | Short_Literal 0x0
051d e406 | | Load 0x2,0x6
051e e001 | | Load 0x0,0x1
051f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0520 7007 |p | Jump_Nonzero 0x528
0521 e5fa | | Load 0x2,-0x6
0522 e406 | | Load 0x2,0x6
0523 e001 | | Load 0x0,0x1
0524 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0525 00db | | Load_Top At_Offset_3
0526 a5f8 | | Store_Unchecked 0x2,-0x8
0527 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0528 e5fa | | Load 0x2,-0x6
0529 60de |` | Indirect_Literal Discrete,0x608,{0x00000000, 0x00008191}
052a e001 | | Load 0x0,0x1
052b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
052c e00f | | Load 0x0,0xf
052d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052e 00db | | Load_Top At_Offset_3
052f 0120 | | Execute Any,Is_Value
0530 6803 |h | Jump_Zero 0x534
0531 e00c | | Load 0x0,0xc
0532 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0533 7801 |x | Jump 0x535
0534 00db | | Load_Top At_Offset_3
0535 e00e | | Load 0x0,0xe
0536 180e | | Execute Package,Field_Execute,Field_Number 0xe
0537 e00e | | Load 0x0,0xe
0538 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0539 e00e | | Load 0x0,0xe
053a 180e | | Execute Package,Field_Execute,Field_Number 0xe
053b e00e | | Load 0x0,0xe
053c 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
053d e00e | | Load 0x0,0xe
053e 180e | | Execute Package,Field_Execute,Field_Number 0xe
053f e00e | | Load 0x0,0xe
0540 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0541 e00e | | Load 0x0,0xe
0542 180e | | Execute Package,Field_Execute,Field_Number 0xe
0543 e00e | | Load 0x0,0xe
0544 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0545 e00e | | Load 0x0,0xe
0546 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0547 0337 | 7 | Declare_Variable Array
0548 4801 |H | Short_Literal 0x1
0549 4805 |H | Short_Literal 0x5
054a 00da | | Load_Top At_Offset_2
054b 01d6 | | Execute Vector,Field_Write
054c 4801 |H | Short_Literal 0x1
054d 4807 |H | Short_Literal 0x7
054e 00da | | Load_Top At_Offset_2
054f 01d6 | | Execute Vector,Field_Write
0550 4801 |H | Short_Literal 0x1
0551 4808 |H | Short_Literal 0x8
0552 00da | | Load_Top At_Offset_2
0553 01d6 | | Execute Vector,Field_Write
0554 4804 |H | Short_Literal 0x4
0555 4800 |H | Short_Literal 0x0
0556 4800 |H | Short_Literal 0x0
0557 00d9 | | Load_Top At_Offset_1
0558 e410 | | Load 0x2,0x10
0559 01d6 | | Execute Vector,Field_Write
055a 3ffb |? | Loop_Increasing 0x556
055b 4800 |H | Short_Literal 0x0
055c 4806 |H | Short_Literal 0x6
055d 00da | | Load_Top At_Offset_2
055e 01d6 | | Execute Vector,Field_Write
055f 480b |H | Short_Literal 0xb
0560 4809 |H | Short_Literal 0x9
0561 4800 |H | Short_Literal 0x0
0562 00d9 | | Load_Top At_Offset_1
0563 e410 | | Load 0x2,0x10
0564 01d6 | | Execute Vector,Field_Write
0565 3ffb |? | Loop_Increasing 0x561
0566 e00e | | Load 0x0,0xe
0567 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0568 01c3 | | Execute Vector,Check_In_Type
0569 4802 |H | Short_Literal 0x2
056a e00e | | Load 0x0,0xe
056b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
056c e011 | | Load 0x0,0x11
056d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056e 00ea | | Load_Encached Null_String_Cache
056f 4800 |H | Short_Literal 0x0
0570 4801 |H | Short_Literal 0x1
0571 4804 |H | Short_Literal 0x4
0572 e403 | | Load 0x2,0x3
0573 e404 | | Load 0x2,0x4
0574 e00f | | Load 0x0,0xf
0575 180e | | Execute Package,Field_Execute,Field_Number 0xe
0576 c407 | | Store 0x2,0x7
0577 005a | Z | Store_Top Discrete,At_Offset_2
0578 00d9 | | Load_Top At_Offset_1
0579 6827 |h' | Jump_Zero 0x5a1
057a e5fa | | Load 0x2,-0x6
057b 4801 |H | Short_Literal 0x1
057c 4802 |H | Short_Literal 0x2
057d e00b | | Load 0x0,0xb
057e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
057f 035b | [ | Declare_Type Array,Constrained
0580 0337 | 7 | Declare_Variable Array
0581 e404 | | Load 0x2,0x4
0582 e00b | | Load 0x0,0xb
0583 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0584 e00b | | Load 0x0,0xb
0585 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0586 0119 | | Execute Any,Check_In_Formal_Type
0587 4801 |H | Short_Literal 0x1
0588 00da | | Load_Top At_Offset_2
0589 01d6 | | Execute Vector,Field_Write
058a 00db | | Load_Top At_Offset_3
058b e00f | | Load 0x0,0xf
058c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058d 011c | | Execute Any,Convert_Unchecked
058e 1c01 | | Execute_Immediate Run_Utility,0x1
058f e00b | | Load 0x0,0xb
0590 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0591 e00b | | Load 0x0,0xb
0592 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0593 0119 | | Execute Any,Check_In_Formal_Type
0594 4802 |H | Short_Literal 0x2
0595 00da | | Load_Top At_Offset_2
0596 01d6 | | Execute Vector,Field_Write
0597 606c |`l | Indirect_Literal Discrete,0x604,{0x00000000, 0x0000815d}
0598 e001 | | Load 0x0,0x1
0599 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
059a e00b | | Load 0x0,0xb
059b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
059c 6067 |`g | Indirect_Literal Discrete,0x604,{0x00000000, 0x0000815d}
059d e001 | | Load 0x0,0x1
059e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059f a5f8 | | Store_Unchecked 0x2,-0x8
05a0 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05a1 00da | | Load_Top At_Offset_2
05a2 c5f9 | | Store 0x2,-0x7
05a3 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>"
05a5 0092 1720 | | Action Push_String_Extended,0x1720 ; "<DIRECTORIES>"
05a7 e404 | | Load 0x2,0x4
05a8 e012 | | Load 0x0,0x12
05a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05aa e5fa | | Load 0x2,-0x6
05ab 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit"
05ad e002 | | Load 0x0,0x2
05ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
05af 00d8 | | Load_Top At_Offset_0
05b0 0120 | | Execute Any,Is_Value
05b1 6803 |h | Jump_Zero 0x5b5
05b2 e007 | | Load 0x0,0x7
05b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b4 7801 |x | Jump 0x5b6
05b5 00d8 | | Load_Top At_Offset_0
05b6 e001 | | Load 0x0,0x1
05b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b8 e5fa | | Load 0x2,-0x6
05b9 e5ff | | Load 0x2,-0x1
05ba e009 | | Load 0x0,0x9
05bb 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
05bc e5fb | | Load 0x2,-0x5
05bd e405 | | Load 0x2,0x5
05be 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05bf e010 | | Load 0x0,0x10
05c0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05c1 c406 | | Store 0x2,0x6
05c2 c409 | | Store 0x2,0x9
05c3 4800 |H | Short_Literal 0x0
05c4 e406 | | Load 0x2,0x6
05c5 e001 | | Load 0x0,0x1
05c6 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05c7 7005 |p | Jump_Nonzero 0x5cd
05c8 e5fa | | Load 0x2,-0x6
05c9 e406 | | Load 0x2,0x6
05ca e001 | | Load 0x0,0x1
05cb 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
05cc 7820 |x | Jump 0x5ed
05cd e5fa | | Load 0x2,-0x6
05ce 0092 1722 | "| Action Push_String_Extended,0x1722 ; "Setting local download time (from remote time) to "
05d0 4800 |H | Short_Literal 0x0
05d1 4800 |H | Short_Literal 0x0
05d2 4800 |H | Short_Literal 0x0
05d3 e409 | | Load 0x2,0x9
05d4 e008 | | Load 0x0,0x8
05d5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05d6 e008 | | Load 0x0,0x8
05d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
05d8 01cc | | Execute Vector,Catenate
05d9 e002 | | Load 0x0,0x2
05da 180e | | Execute Package,Field_Execute,Field_Number 0xe
05db e001 | | Load 0x0,0x1
05dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05dd e5fa | | Load 0x2,-0x6
05de e402 | | Load 0x2,0x2
05df e407 | | Load 0x2,0x7
05e0 828d | | Call 0x1,0x8d
05e1 e409 | | Load 0x2,0x9
05e2 e407 | | Load 0x2,0x7
05e3 e006 | | Load 0x0,0x6
05e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05e5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05e6 c406 | | Store 0x2,0x6
05e7 4800 |H | Short_Literal 0x0
05e8 e406 | | Load 0x2,0x6
05e9 e001 | | Load 0x0,0x1
05ea 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05eb 6801 |h | Jump_Zero 0x5ed
05ec 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05ed 00db | | Load_Top At_Offset_3
05ee a5f8 | | Store_Unchecked 0x2,-0x8
05ef 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05f0 TRAP_04c0:
05f0 e001 | | Load 0x0,0x1
05f1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05f2 010f | | Execute Exception,Equal
05f3 6804 |h | Jump_Zero 0x5f8
05f4 e001 | | Load 0x0,0x1
05f5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05f6 a5f8 | | Store_Unchecked 0x2,-0x8
05f7 4507 |E | Exit_Suprogram New_Top_Offset 0x7
05f8 e5fa | | Load 0x2,-0x6
05f9 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit"
05fb e002 | | Load 0x0,0x2
05fc 180f | | Execute Package,Field_Execute,Field_Number 0xf
05fd 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit"
05ff e002 | | Load 0x0,0x2
0600 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0601 a5f8 | | Store_Unchecked 0x2,-0x8
0602 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0603 0000 | | .XXX[0x1]
0604 0000 0000 | | .LITERAL {0x00000000, 0x0000815d}
0608 0000 0000 | | .LITERAL {0x00000000, 0x00008191}
060c 0000 0000 | | .LITERAL {0x00000000, 0x0000818f}
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0618 | | .CONST 0x0618 ; Address of begin
0611 0675 | u | .CONST 0x0675 ; Address of exception handler
0612 0003 | | .CONST 0x0003 ; Number of locals
0613 INIT_0610:
0613 e001 | | Load 0x0,0x1
0614 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0615 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0616 e010 | | Load 0x0,0x10
0617 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0618 BODY_0610:
0618 e00c | | Load 0x0,0xc
0619 1810 | | Execute Package,Field_Execute,Field_Number 0x10
061a c5fa | | Store 0x2,-0x6
061b 4800 |H | Short_Literal 0x0
061c a5f9 | | Store_Unchecked 0x2,-0x7
061d e5fb | | Load 0x2,-0x5
061e e5ff | | Load 0x2,-0x1
061f e009 | | Load 0x0,0x9
0620 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0621 6817 |h | Jump_Zero 0x639
0622 e5fb | | Load 0x2,-0x5
0623 4801 |H | Short_Literal 0x1
0624 4801 |H | Short_Literal 0x1
0625 e00b | | Load 0x0,0xb
0626 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0627 035b | [ | Declare_Type Array,Constrained
0628 0337 | 7 | Declare_Variable Array
0629 0092 171e | | Action Push_String_Extended,0x171e ; "Upload_Ada_Unit"
062b e00b | | Load 0x0,0xb
062c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
062d e00b | | Load 0x0,0xb
062e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
062f 0119 | | Execute Any,Check_In_Formal_Type
0630 4801 |H | Short_Literal 0x1
0631 00da | | Load_Top At_Offset_2
0632 01d6 | | Execute Vector,Field_Write
0633 67d8 |g | Indirect_Literal Discrete,0x60c,{0x00000000, 0x0000818f}
0634 e001 | | Load 0x0,0x1
0635 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0636 4800 |H | Short_Literal 0x0
0637 a5f9 | | Store_Unchecked 0x2,-0x7
0638 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0639 e001 | | Load 0x0,0x1
063a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063b e010 | | Load 0x0,0x10
063c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
063d e5fb | | Load 0x2,-0x5
063e e5ff | | Load 0x2,-0x1
063f e009 | | Load 0x0,0x9
0640 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0641 e013 | | Load 0x0,0x13
0642 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0643 e013 | | Load 0x0,0x13
0644 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0645 e013 | | Load 0x0,0x13
0646 180d | | Execute Package,Field_Execute,Field_Number 0xd
0647 e5fd | | Load 0x2,-0x3
0648 e004 | | Load 0x0,0x4
0649 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
064a e010 | | Load 0x0,0x10
064b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
064c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
064d 005a | Z | Store_Top Discrete,At_Offset_2
064e 4800 |H | Short_Literal 0x0
064f 00da | | Load_Top At_Offset_2
0650 e001 | | Load 0x0,0x1
0651 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0652 7007 |p | Jump_Nonzero 0x65a
0653 e5fb | | Load 0x2,-0x5
0654 00da | | Load_Top At_Offset_2
0655 e001 | | Load 0x0,0x1
0656 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0657 00d9 | | Load_Top At_Offset_1
0658 a5f9 | | Store_Unchecked 0x2,-0x7
0659 4506 |E | Exit_Suprogram New_Top_Offset 0x6
065a e001 | | Load 0x0,0x1
065b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065c e5fa | | Load 0x2,-0x6
065d 0120 | | Execute Any,Is_Value
065e 6803 |h | Jump_Zero 0x662
065f e00c | | Load 0x0,0xc
0660 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0661 7801 |x | Jump 0x663
0662 e5fa | | Load 0x2,-0x6
0663 e5fb | | Load 0x2,-0x5
0664 00db | | Load_Top At_Offset_3
0665 e5fc | | Load 0x2,-0x4
0666 e5fd | | Load 0x2,-0x3
0667 e5fe | | Load 0x2,-0x2
0668 e5ff | | Load 0x2,-0x1
0669 8288 | | Call 0x1,0x88
066a c5fa | | Store 0x2,-0x6
066b 005a | Z | Store_Top Discrete,At_Offset_2
066c 4800 |H | Short_Literal 0x0
066d 00da | | Load_Top At_Offset_2
066e e001 | | Load 0x0,0x1
066f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0670 7003 |p | Jump_Nonzero 0x674
0671 00d9 | | Load_Top At_Offset_1
0672 a5f9 | | Store_Unchecked 0x2,-0x7
0673 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0674 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0675 TRAP_0610:
0675 e001 | | Load 0x0,0x1
0676 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0677 010f | | Execute Exception,Equal
0678 6804 |h | Jump_Zero 0x67d
0679 e001 | | Load 0x0,0x1
067a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
067b a5f9 | | Store_Unchecked 0x2,-0x7
067c 4506 |E | Exit_Suprogram New_Top_Offset 0x6
067d e5fb | | Load 0x2,-0x5
067e 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit"
0680 e002 | | Load 0x0,0x2
0681 180f | | Execute Package,Field_Execute,Field_Number 0xf
0682 0092 1721 | !| Action Push_String_Extended,0x1721 ; "Rcf_Unit.Upload_Ada_Unit"
0684 e002 | | Load 0x0,0x2
0685 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0686 a5f9 | | Store_Unchecked 0x2,-0x7
0687 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 069b | | .CONST 0x069b ; Address of begin
0689 0703 | | .CONST 0x0703 ; Address of exception handler
068a 0005 | | .CONST 0x0005 ; Number of locals
068b INIT_0688:
068b e5fb | | Load 0x2,-0x5
068c e5fe | | Load 0x2,-0x2
068d 82ad | | Call 0x1,0xad
068e e5f8 | | Load 0x2,-0x8
068f e5fc | | Load 0x2,-0x4
0690 e5fd | | Load 0x2,-0x3
0691 e5ff | | Load 0x2,-0x1
0692 8229 | ) | Call 0x1,0x29
0693 e001 | | Load 0x0,0x1
0694 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0695 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0696 e00c | | Load 0x0,0xc
0697 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0698 02c7 | | Declare_Variable Any
0699 00d8 | | Load_Top At_Offset_0
069a 1c00 | | Execute_Immediate Run_Utility,0x0
069b BODY_0688:
069b 4800 |H | Short_Literal 0x0
069c a5f7 | | Store_Unchecked 0x2,-0x9
069d e5f8 | | Load 0x2,-0x8
069e 4800 |H | Short_Literal 0x0
069f e402 | | Load 0x2,0x2
06a0 e009 | | Load 0x0,0x9
06a1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06a2 c405 | | Store 0x2,0x5
06a3 00d8 | | Load_Top At_Offset_0
06a4 e00c | | Load 0x0,0xc
06a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06a6 7028 |p( | Jump_Nonzero 0x6cf
06a7 e5f9 | | Load 0x2,-0x7
06a8 7026 |p& | Jump_Nonzero 0x6cf
06a9 e5f8 | | Load 0x2,-0x8
06aa 4801 |H | Short_Literal 0x1
06ab 4801 |H | Short_Literal 0x1
06ac e00b | | Load 0x0,0xb
06ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06ae 035b | [ | Declare_Type Array,Constrained
06af 0337 | 7 | Declare_Variable Array
06b0 0092 1723 | #| Action Push_String_Extended,0x1723 ; "Can't upload from remote unit \x22"
06b2 e5fc | | Load 0x2,-0x4
06b3 01cc | | Execute Vector,Catenate
06b4 0092 1724 | $| Action Push_String_Extended,0x1724 ; "\x22 into existing text file \x22"
06b6 01cc | | Execute Vector,Catenate
06b7 e5fb | | Load 0x2,-0x5
06b8 01cc | | Execute Vector,Catenate
06b9 0092 1725 | %| Action Push_String_Extended,0x1725 ; "\x22."
06bb 01cc | | Execute Vector,Catenate
06bc e00b | | Load 0x0,0xb
06bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06be e00b | | Load 0x0,0xb
06bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06c0 0119 | | Execute Any,Check_In_Formal_Type
06c1 4801 |H | Short_Literal 0x1
06c2 00da | | Load_Top At_Offset_2
06c3 01d6 | | Execute Vector,Field_Write
06c4 4807 |H | Short_Literal 0x7
06c5 6056 |`V | Indirect_Literal Discrete,0x71c,{0x00000000, 0x00008128}
06c6 e001 | | Load 0x0,0x1
06c7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
06c8 e00b | | Load 0x0,0xb
06c9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
06ca 6051 |`Q | Indirect_Literal Discrete,0x71c,{0x00000000, 0x00008128}
06cb e001 | | Load 0x0,0x1
06cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06cd a5f7 | | Store_Unchecked 0x2,-0x9
06ce 4509 |E | Exit_Suprogram New_Top_Offset 0x9
06cf e5f8 | | Load 0x2,-0x8
06d0 e5ff | | Load 0x2,-0x1
06d1 e009 | | Load 0x0,0x9
06d2 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
06d3 6815 |h | Jump_Zero 0x6e9
06d4 e5f8 | | Load 0x2,-0x8
06d5 4801 |H | Short_Literal 0x1
06d6 4801 |H | Short_Literal 0x1
06d7 e00b | | Load 0x0,0xb
06d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06d9 035b | [ | Declare_Type Array,Constrained
06da 0337 | 7 | Declare_Variable Array
06db 0092 1726 | &| Action Push_String_Extended,0x1726 ; "Upload_Text_File"
06dd e00b | | Load 0x0,0xb
06de 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06df e00b | | Load 0x0,0xb
06e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06e1 0119 | | Execute Any,Check_In_Formal_Type
06e2 4801 |H | Short_Literal 0x1
06e3 00da | | Load_Top At_Offset_2
06e4 01d6 | | Execute Vector,Field_Write
06e5 6032 |`2 | Indirect_Literal Discrete,0x718,{0x00000000, 0x0000818f}
06e6 e001 | | Load 0x0,0x1
06e7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
06e8 4509 |E | Exit_Suprogram New_Top_Offset 0x9
06e9 e001 | | Load 0x0,0x1
06ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06eb e5f8 | | Load 0x2,-0x8
06ec e5ff | | Load 0x2,-0x1
06ed e009 | | Load 0x0,0x9
06ee 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
06ef 4800 |H | Short_Literal 0x0
06f0 e5fa | | Load 0x2,-0x6
06f1 e403 | | Load 0x2,0x3
06f2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06f3 e402 | | Load 0x2,0x2
06f4 e010 | | Load 0x0,0x10
06f5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
06f6 005a | Z | Store_Top Discrete,At_Offset_2
06f7 4800 |H | Short_Literal 0x0
06f8 00da | | Load_Top At_Offset_2
06f9 e001 | | Load 0x0,0x1
06fa 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
06fb 7006 |p | Jump_Nonzero 0x702
06fc e5f8 | | Load 0x2,-0x8
06fd 00da | | Load_Top At_Offset_2
06fe e001 | | Load 0x0,0x1
06ff 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0700 00d9 | | Load_Top At_Offset_1
0701 a5f7 | | Store_Unchecked 0x2,-0x9
0702 4509 |E | Exit_Suprogram New_Top_Offset 0x9
0703 TRAP_0688:
0703 e001 | | Load 0x0,0x1
0704 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0705 010f | | Execute Exception,Equal
0706 6804 |h | Jump_Zero 0x70b
0707 e001 | | Load 0x0,0x1
0708 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0709 a5f7 | | Store_Unchecked 0x2,-0x9
070a 4509 |E | Exit_Suprogram New_Top_Offset 0x9
070b e5f8 | | Load 0x2,-0x8
070c 0092 1727 | '| Action Push_String_Extended,0x1727 ; "Rcf_Unit.Upload_Text_File"
070e e002 | | Load 0x0,0x2
070f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0710 0092 1727 | '| Action Push_String_Extended,0x1727 ; "Rcf_Unit.Upload_Text_File"
0712 e002 | | Load 0x0,0x2
0713 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0714 a5f7 | | Store_Unchecked 0x2,-0x9
0715 4509 |E | Exit_Suprogram New_Top_Offset 0x9
0716 0000 0000 | | .XXX[0x2]
0718 0000 0000 | | .LITERAL {0x00000000, 0x0000818f}
071c 0000 0000 | | .LITERAL {0x00000000, 0x00008128}
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0728 | ( | .CONST 0x0728 ; Address of begin
0721 077c | | | .CONST 0x077c ; Address of exception handler
0722 0003 | | .CONST 0x0003 ; Number of locals
0723 INIT_0720:
0723 e001 | | Load 0x0,0x1
0724 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0725 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0726 e010 | | Load 0x0,0x10
0727 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0728 BODY_0720:
0728 4800 |H | Short_Literal 0x0
0729 a5f8 | | Store_Unchecked 0x2,-0x8
072a e5f9 | | Load 0x2,-0x7
072b e5ff | | Load 0x2,-0x1
072c e009 | | Load 0x0,0x9
072d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
072e 6817 |h | Jump_Zero 0x746
072f e5f9 | | Load 0x2,-0x7
0730 4801 |H | Short_Literal 0x1
0731 4801 |H | Short_Literal 0x1
0732 e00b | | Load 0x0,0xb
0733 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0734 035b | [ | Declare_Type Array,Constrained
0735 0337 | 7 | Declare_Variable Array
0736 0092 1726 | &| Action Push_String_Extended,0x1726 ; "Upload_Text_File"
0738 e00b | | Load 0x0,0xb
0739 1810 | | Execute Package,Field_Execute,Field_Number 0x10
073a e00b | | Load 0x0,0xb
073b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
073c 0119 | | Execute Any,Check_In_Formal_Type
073d 4801 |H | Short_Literal 0x1
073e 00da | | Load_Top At_Offset_2
073f 01d6 | | Execute Vector,Field_Write
0740 67d7 |g | Indirect_Literal Discrete,0x718,{0x00000000, 0x0000818f}
0741 e001 | | Load 0x0,0x1
0742 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0743 4800 |H | Short_Literal 0x0
0744 a5f8 | | Store_Unchecked 0x2,-0x8
0745 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0746 e001 | | Load 0x0,0x1
0747 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0748 e010 | | Load 0x0,0x10
0749 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
074a e5f9 | | Load 0x2,-0x7
074b e5ff | | Load 0x2,-0x1
074c e009 | | Load 0x0,0x9
074d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
074e e013 | | Load 0x0,0x13
074f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0750 e013 | | Load 0x0,0x13
0751 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0752 e013 | | Load 0x0,0x13
0753 180d | | Execute Package,Field_Execute,Field_Number 0xd
0754 e5fd | | Load 0x2,-0x3
0755 e004 | | Load 0x0,0x4
0756 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0757 e010 | | Load 0x0,0x10
0758 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0759 0032 | 2 | Store_Top Heap_Access,At_Offset_2
075a 005a | Z | Store_Top Discrete,At_Offset_2
075b 4800 |H | Short_Literal 0x0
075c 00da | | Load_Top At_Offset_2
075d e001 | | Load 0x0,0x1
075e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
075f 7007 |p | Jump_Nonzero 0x767
0760 e5f9 | | Load 0x2,-0x7
0761 00da | | Load_Top At_Offset_2
0762 e001 | | Load 0x0,0x1
0763 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0764 00d9 | | Load_Top At_Offset_1
0765 a5f8 | | Store_Unchecked 0x2,-0x8
0766 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0767 e001 | | Load 0x0,0x1
0768 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0769 e5f9 | | Load 0x2,-0x7
076a e5fa | | Load 0x2,-0x6
076b 00db | | Load_Top At_Offset_3
076c e5fb | | Load 0x2,-0x5
076d e5fc | | Load 0x2,-0x4
076e e5fd | | Load 0x2,-0x3
076f e5fe | | Load 0x2,-0x2
0770 e5ff | | Load 0x2,-0x1
0771 828a | | Call 0x1,0x8a
0772 005a | Z | Store_Top Discrete,At_Offset_2
0773 4800 |H | Short_Literal 0x0
0774 00da | | Load_Top At_Offset_2
0775 e001 | | Load 0x0,0x1
0776 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0777 7003 |p | Jump_Nonzero 0x77b
0778 00d9 | | Load_Top At_Offset_1
0779 a5f8 | | Store_Unchecked 0x2,-0x8
077a 4508 |E | Exit_Suprogram New_Top_Offset 0x8
077b 4508 |E | Exit_Suprogram New_Top_Offset 0x8
077c TRAP_0720:
077c e001 | | Load 0x0,0x1
077d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
077e 010f | | Execute Exception,Equal
077f 6804 |h | Jump_Zero 0x784
0780 e001 | | Load 0x0,0x1
0781 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0782 a5f8 | | Store_Unchecked 0x2,-0x8
0783 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0784 e5f9 | | Load 0x2,-0x7
0785 0092 1727 | '| Action Push_String_Extended,0x1727 ; "Rcf_Unit.Upload_Text_File"
0787 e002 | | Load 0x0,0x2
0788 180f | | Execute Package,Field_Execute,Field_Number 0xf
0789 0092 1727 | '| Action Push_String_Extended,0x1727 ; "Rcf_Unit.Upload_Text_File"
078b e002 | | Load 0x0,0x2
078c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
078d a5f8 | | Store_Unchecked 0x2,-0x8
078e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
078f 0000 | | .XXX[0x1]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 07a0 | | .CONST 0x07a0 ; Address of begin
0791 07e3 | | .CONST 0x07e3 ; Address of exception handler
0792 0004 | | .CONST 0x0004 ; Number of locals
0793 INIT_0790:
0793 e007 | | Load 0x0,0x7
0794 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0795 02c7 | | Declare_Variable Any
0796 00d8 | | Load_Top At_Offset_0
0797 1c00 | | Execute_Immediate Run_Utility,0x0
0798 e5fb | | Load 0x2,-0x5
0799 e5fe | | Load 0x2,-0x2
079a e5fd | | Load 0x2,-0x3
079b e5ff | | Load 0x2,-0x1
079c 8228 | ( | Call 0x1,0x28
079d e001 | | Load 0x0,0x1
079e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
079f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07a0 BODY_0790:
07a0 e5fb | | Load 0x2,-0x5
07a1 e5ff | | Load 0x2,-0x1
07a2 e009 | | Load 0x0,0x9
07a3 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
07a4 6817 |h | Jump_Zero 0x7bc
07a5 e5fb | | Load 0x2,-0x5
07a6 4801 |H | Short_Literal 0x1
07a7 4801 |H | Short_Literal 0x1
07a8 e00b | | Load 0x0,0xb
07a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07aa 035b | [ | Declare_Type Array,Constrained
07ab 0337 | 7 | Declare_Variable Array
07ac 0092 1728 | (| Action Push_String_Extended,0x1728 ; "Update_Consistency"
07ae e00b | | Load 0x0,0xb
07af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07b0 e00b | | Load 0x0,0xb
07b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07b2 0119 | | Execute Any,Check_In_Formal_Type
07b3 4801 |H | Short_Literal 0x1
07b4 00da | | Load_Top At_Offset_2
07b5 01d6 | | Execute Vector,Field_Write
07b6 6041 |`A | Indirect_Literal Discrete,0x7f8,{0x00000000, 0x0000818f}
07b7 e001 | | Load 0x0,0x1
07b8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07b9 4800 |H | Short_Literal 0x0
07ba a5fa | | Store_Unchecked 0x2,-0x6
07bb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
07bc 00da | | Load_Top At_Offset_2
07bd 0120 | | Execute Any,Is_Value
07be 6803 |h | Jump_Zero 0x7c2
07bf e007 | | Load 0x0,0x7
07c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c1 7801 |x | Jump 0x7c3
07c2 00da | | Load_Top At_Offset_2
07c3 e001 | | Load 0x0,0x1
07c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c5 4800 |H | Short_Literal 0x0
07c6 e5fc | | Load 0x2,-0x4
07c7 e403 | | Load 0x2,0x3
07c8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07c9 e010 | | Load 0x0,0x10
07ca 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
07cb 005a | Z | Store_Top Discrete,At_Offset_2
07cc c402 | | Store 0x2,0x2
07cd 4800 |H | Short_Literal 0x0
07ce 00d9 | | Load_Top At_Offset_1
07cf e001 | | Load 0x0,0x1
07d0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
07d1 7005 |p | Jump_Nonzero 0x7d7
07d2 e5fb | | Load 0x2,-0x5
07d3 00d9 | | Load_Top At_Offset_1
07d4 e001 | | Load 0x0,0x1
07d5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
07d6 7809 |x | Jump 0x7e0
07d7 e001 | | Load 0x0,0x1
07d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07d9 e5fb | | Load 0x2,-0x5
07da e5fd | | Load 0x2,-0x3
07db e402 | | Load 0x2,0x2
07dc e5fe | | Load 0x2,-0x2
07dd e5ff | | Load 0x2,-0x1
07de 822c | , | Call 0x1,0x2c
07df 0059 | Y | Store_Top Discrete,At_Offset_1
07e0 00d8 | | Load_Top At_Offset_0
07e1 a5fa | | Store_Unchecked 0x2,-0x6
07e2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
07e3 TRAP_0790:
07e3 e001 | | Load 0x0,0x1
07e4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
07e5 010f | | Execute Exception,Equal
07e6 6804 |h | Jump_Zero 0x7eb
07e7 e001 | | Load 0x0,0x1
07e8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07e9 a5fa | | Store_Unchecked 0x2,-0x6
07ea 4506 |E | Exit_Suprogram New_Top_Offset 0x6
07eb e5fb | | Load 0x2,-0x5
07ec 0092 1729 | )| Action Push_String_Extended,0x1729 ; "Rcf_Unit.Update_Consistency"
07ee e002 | | Load 0x0,0x2
07ef 180f | | Execute Package,Field_Execute,Field_Number 0xf
07f0 0092 1729 | )| Action Push_String_Extended,0x1729 ; "Rcf_Unit.Update_Consistency"
07f2 e002 | | Load 0x0,0x2
07f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07f4 a5fa | | Store_Unchecked 0x2,-0x6
07f5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
07f6 0000 0000 | | .XXX[0x2]
07f8 0000 0000 | | .LITERAL {0x00000000, 0x0000818f}
07fc 0000 0000 | | .BLANK 0000[0x4]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0808 | | .CONST 0x0808 ; Address of begin
0801 0856 | V | .CONST 0x0856 ; Address of exception handler
0802 0003 | | .CONST 0x0003 ; Number of locals
0803 INIT_0800:
0803 e001 | | Load 0x0,0x1
0804 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0805 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0806 e010 | | Load 0x0,0x10
0807 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0808 BODY_0800:
0808 4800 |H | Short_Literal 0x0
0809 a5fb | | Store_Unchecked 0x2,-0x5
080a e5fc | | Load 0x2,-0x4
080b e5ff | | Load 0x2,-0x1
080c e009 | | Load 0x0,0x9
080d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
080e 6817 |h | Jump_Zero 0x826
080f e5fc | | Load 0x2,-0x4
0810 4801 |H | Short_Literal 0x1
0811 4801 |H | Short_Literal 0x1
0812 e00b | | Load 0x0,0xb
0813 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0814 035b | [ | Declare_Type Array,Constrained
0815 0337 | 7 | Declare_Variable Array
0816 0092 1728 | (| Action Push_String_Extended,0x1728 ; "Update_Consistency"
0818 e00b | | Load 0x0,0xb
0819 1810 | | Execute Package,Field_Execute,Field_Number 0x10
081a e00b | | Load 0x0,0xb
081b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
081c 0119 | | Execute Any,Check_In_Formal_Type
081d 4801 |H | Short_Literal 0x1
081e 00da | | Load_Top At_Offset_2
081f 01d6 | | Execute Vector,Field_Write
0820 67d7 |g | Indirect_Literal Discrete,0x7f8,{0x00000000, 0x0000818f}
0821 e001 | | Load 0x0,0x1
0822 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0823 4800 |H | Short_Literal 0x0
0824 a5fb | | Store_Unchecked 0x2,-0x5
0825 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0826 e001 | | Load 0x0,0x1
0827 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0828 e010 | | Load 0x0,0x10
0829 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
082a 4800 |H | Short_Literal 0x0
082b e013 | | Load 0x0,0x13
082c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
082d e013 | | Load 0x0,0x13
082e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
082f e013 | | Load 0x0,0x13
0830 180d | | Execute Package,Field_Execute,Field_Number 0xd
0831 e5fd | | Load 0x2,-0x3
0832 e004 | | Load 0x0,0x4
0833 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0834 e010 | | Load 0x0,0x10
0835 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0836 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0837 005a | Z | Store_Top Discrete,At_Offset_2
0838 4800 |H | Short_Literal 0x0
0839 00da | | Load_Top At_Offset_2
083a e001 | | Load 0x0,0x1
083b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
083c 7007 |p | Jump_Nonzero 0x844
083d e5fc | | Load 0x2,-0x4
083e 00da | | Load_Top At_Offset_2
083f e001 | | Load 0x0,0x1
0840 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0841 00d9 | | Load_Top At_Offset_1
0842 a5fb | | Store_Unchecked 0x2,-0x5
0843 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0844 e001 | | Load 0x0,0x1
0845 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0846 e5fc | | Load 0x2,-0x4
0847 00da | | Load_Top At_Offset_2
0848 e5fd | | Load 0x2,-0x3
0849 e5fe | | Load 0x2,-0x2
084a e5ff | | Load 0x2,-0x1
084b 8231 | 1 | Call 0x1,0x31
084c 005a | Z | Store_Top Discrete,At_Offset_2
084d 4800 |H | Short_Literal 0x0
084e 00da | | Load_Top At_Offset_2
084f e001 | | Load 0x0,0x1
0850 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0851 7003 |p | Jump_Nonzero 0x855
0852 00d9 | | Load_Top At_Offset_1
0853 a5fb | | Store_Unchecked 0x2,-0x5
0854 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0855 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0856 TRAP_0800:
0856 e001 | | Load 0x0,0x1
0857 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0858 010f | | Execute Exception,Equal
0859 6804 |h | Jump_Zero 0x85e
085a e001 | | Load 0x0,0x1
085b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
085c a5fb | | Store_Unchecked 0x2,-0x5
085d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
085e e5fc | | Load 0x2,-0x4
085f 0092 1729 | )| Action Push_String_Extended,0x1729 ; "Rcf_Unit.Update_Consistency"
0861 e002 | | Load 0x0,0x2
0862 180f | | Execute Package,Field_Execute,Field_Number 0xf
0863 0092 1729 | )| Action Push_String_Extended,0x1729 ; "Rcf_Unit.Update_Consistency"
0865 e002 | | Load 0x0,0x2
0866 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0867 a5fb | | Store_Unchecked 0x2,-0x5
0868 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0869 0000 0000 | | .BLANK 0000[0x7]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0891 | | .CONST 0x0891 ; Address of begin
0871 090e | | .CONST 0x090e ; Address of exception handler
0872 0008 | | .CONST 0x0008 ; Number of locals
0873 INIT_0870:
0873 e00c | | Load 0x0,0xc
0874 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0875 02c7 | | Declare_Variable Any
0876 00d8 | | Load_Top At_Offset_0
0877 1c00 | | Execute_Immediate Run_Utility,0x0
0878 e014 | | Load 0x0,0x14
0879 1b0d | | Execute Package,Field_Read,Field_Number 0xd
087a 02c7 | | Declare_Variable Any
087b 00d8 | | Load_Top At_Offset_0
087c 1c00 | | Execute_Immediate Run_Utility,0x0
087d e001 | | Load 0x0,0x1
087e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
087f 00e1 | | Load_Encached Boolean_Cache
0880 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0881 e00c | | Load 0x0,0xc
0882 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0883 02c7 | | Declare_Variable Any
0884 00d8 | | Load_Top At_Offset_0
0885 1c00 | | Execute_Immediate Run_Utility,0x0
0886 00e1 | | Load_Encached Boolean_Cache
0887 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0888 e5ff | | Load 0x2,-0x1
0889 e009 | | Load 0x0,0x9
088a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
088b 0092 172a | *| Action Push_String_Extended,0x172a ; "."
088d 01cc | | Execute Vector,Catenate
088e e5fe | | Load 0x2,-0x2
088f 01cc | | Execute Vector,Catenate
0890 0007 | | Action Break_Optional
0891 BODY_0870:
0891 4800 |H | Short_Literal 0x0
0892 a5fc | | Store_Unchecked 0x2,-0x4
0893 e5fe | | Load 0x2,-0x2
0894 01db | | Execute Vector,Length
0895 0f00 | | Execute_Immediate Equal,0x0
0896 e5fe | | Load 0x2,-0x2
0897 0092 172b | +| Action Push_String_Extended,0x172b ; "state"
0899 01df | | Execute Vector,Equal
089a 0278 | x | Execute Discrete,Or
089b 6803 |h | Jump_Zero 0x89f
089c e001 | | Load 0x0,0x1
089d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
089e 0257 | W | Execute Discrete,Raise
089f 00e1 | | Load_Encached Boolean_Cache
08a0 e403 | | Load 0x2,0x3
08a1 e5fd | | Load 0x2,-0x3
08a2 00db | | Load_Top At_Offset_3
08a3 82a3 | | Call 0x1,0xa3
08a4 c403 | | Store 0x2,0x3
08a5 c405 | | Store 0x2,0x5
08a6 00db | | Load_Top At_Offset_3
08a7 700c |p | Jump_Nonzero 0x8b4
08a8 e403 | | Load 0x2,0x3
08a9 00ea | | Load_Encached Null_String_Cache
08aa 00da | | Load_Top At_Offset_2
08ab 4801 |H | Short_Literal 0x1
08ac e014 | | Load 0x0,0x14
08ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08ae c403 | | Store 0x2,0x3
08af e403 | | Load 0x2,0x3
08b0 e014 | | Load 0x0,0x14
08b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08b2 c403 | | Store 0x2,0x3
08b3 7804 |x | Jump 0x8b8
08b4 e403 | | Load 0x2,0x3
08b5 e014 | | Load 0x0,0x14
08b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08b7 c403 | | Store 0x2,0x3
08b8 e5fd | | Load 0x2,-0x3
08b9 00d9 | | Load_Top At_Offset_1
08ba 829a | | Call 0x1,0x9a
08bb c402 | | Store 0x2,0x2
08bc e402 | | Load 0x2,0x2
08bd e009 | | Load 0x0,0x9
08be 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
08bf 6816 |h | Jump_Zero 0x8d6
08c0 e5fd | | Load 0x2,-0x3
08c1 4801 |H | Short_Literal 0x1
08c2 4801 |H | Short_Literal 0x1
08c3 e00b | | Load 0x0,0xb
08c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08c5 035b | [ | Declare_Type Array,Constrained
08c6 0337 | 7 | Declare_Variable Array
08c7 00da | | Load_Top At_Offset_2
08c8 e00b | | Load 0x0,0xb
08c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08ca e00b | | Load 0x0,0xb
08cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08cc 0119 | | Execute Any,Check_In_Formal_Type
08cd 4801 |H | Short_Literal 0x1
08ce 00da | | Load_Top At_Offset_2
08cf 01d6 | | Execute Vector,Field_Write
08d0 6063 |`c | Indirect_Literal Discrete,0x934,{0x00000000, 0x000081ac}
08d1 e001 | | Load 0x0,0x1
08d2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08d3 e001 | | Load 0x0,0x1
08d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08d5 0257 | W | Execute Discrete,Raise
08d6 00db | | Load_Top At_Offset_3
08d7 682e |h. | Jump_Zero 0x906
08d8 00e1 | | Load_Encached Boolean_Cache
08d9 00db | | Load_Top At_Offset_3
08da 0120 | | Execute Any,Is_Value
08db 6803 |h | Jump_Zero 0x8df
08dc e00c | | Load 0x0,0xc
08dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08de 7801 |x | Jump 0x8e0
08df 00db | | Load_Top At_Offset_3
08e0 e5fd | | Load 0x2,-0x3
08e1 e402 | | Load 0x2,0x2
08e2 8287 | | Call 0x1,0x87
08e3 c406 | | Store 0x2,0x6
08e4 005a | Z | Store_Top Discrete,At_Offset_2
08e5 00d9 | | Load_Top At_Offset_1
08e6 681f |h | Jump_Zero 0x906
08e7 e5fd | | Load 0x2,-0x3
08e8 4801 |H | Short_Literal 0x1
08e9 4802 |H | Short_Literal 0x2
08ea e00b | | Load 0x0,0xb
08eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08ec 035b | [ | Declare_Type Array,Constrained
08ed 0337 | 7 | Declare_Variable Array
08ee e402 | | Load 0x2,0x2
08ef e009 | | Load 0x0,0x9
08f0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08f1 e00b | | Load 0x0,0xb
08f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08f3 0119 | | Execute Any,Check_In_Formal_Type
08f4 4801 |H | Short_Literal 0x1
08f5 00da | | Load_Top At_Offset_2
08f6 01d6 | | Execute Vector,Field_Write
08f7 e406 | | Load 0x2,0x6
08f8 e009 | | Load 0x0,0x9
08f9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08fa e00b | | Load 0x0,0xb
08fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08fc 0119 | | Execute Any,Check_In_Formal_Type
08fd 4802 |H | Short_Literal 0x2
08fe 00da | | Load_Top At_Offset_2
08ff 01d6 | | Execute Vector,Field_Write
0900 602f |`/ | Indirect_Literal Discrete,0x930,{0x00000000, 0x000081cb}
0901 e001 | | Load 0x0,0x1
0902 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0903 e001 | | Load 0x0,0x1
0904 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0905 0257 | W | Execute Discrete,Raise
0906 e001 | | Load 0x0,0x1
0907 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0908 e5fd | | Load 0x2,-0x3
0909 e402 | | Load 0x2,0x2
090a e009 | | Load 0x0,0x9
090b 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
090c c404 | | Store 0x2,0x4
090d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
090e TRAP_0870:
090e 0007 | | Action Break_Optional
090f e5fd | | Load 0x2,-0x3
0910 4801 |H | Short_Literal 0x1
0911 4801 |H | Short_Literal 0x1
0912 e00b | | Load 0x0,0xb
0913 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0914 035b | [ | Declare_Type Array,Constrained
0915 0337 | 7 | Declare_Variable Array
0916 00db | | Load_Top At_Offset_3
0917 e00b | | Load 0x0,0xb
0918 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0919 e00b | | Load 0x0,0xb
091a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
091b 0119 | | Execute Any,Check_In_Formal_Type
091c 4801 |H | Short_Literal 0x1
091d 00da | | Load_Top At_Offset_2
091e 01d6 | | Execute Vector,Field_Write
091f 600c |` | Indirect_Literal Discrete,0x92c,{0x00000000, 0x000081a1}
0920 e001 | | Load 0x0,0x1
0921 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0922 e00b | | Load 0x0,0xb
0923 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0924 6007 |` | Indirect_Literal Discrete,0x92c,{0x00000000, 0x000081a1}
0925 e001 | | Load 0x0,0x1
0926 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0927 a5fc | | Store_Unchecked 0x2,-0x4
0928 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0929 0000 0000 | | .XXX[0x3]
092b 0000 | |
092c 0000 0000 | | .LITERAL {0x00000000, 0x000081a1}
0930 0000 0000 | | .LITERAL {0x00000000, 0x000081cb}
0934 0000 0000 | | .LITERAL {0x00000000, 0x000081ac}
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093f | ? | .CONST 0x093f ; Address of begin
0939 0955 | U | .CONST 0x0955 ; Address of exception handler
093a 0003 | | .CONST 0x0003 ; Number of locals
093b INIT_0938:
093b e28f | | Load 0x1,0x8f
093c 0322 | " | Declare_Variable Record
093d 00db | | Load_Top At_Offset_3
093e 8296 | | Call 0x1,0x96
093f BODY_0938:
093f 4800 |H | Short_Literal 0x0
0940 a5f9 | | Store_Unchecked 0x2,-0x7
0941 00d9 | | Load_Top At_Offset_1
0942 e5fa | | Load 0x2,-0x6
0943 00da | | Load_Top At_Offset_2
0944 82a7 | | Call 0x1,0xa7
0945 00d1 | | Pop_Control Pop_Count_1
0946 00d9 | | Load_Top At_Offset_1
0947 e5fb | | Load 0x2,-0x5
0948 82a2 | | Call 0x1,0xa2
0949 00d1 | | Pop_Control Pop_Count_1
094a e5fa | | Load 0x2,-0x6
094b 00da | | Load_Top At_Offset_2
094c 00da | | Load_Top At_Offset_2
094d 82a5 | | Call 0x1,0xa5
094e e5fa | | Load 0x2,-0x6
094f e5fc | | Load 0x2,-0x4
0950 e5fd | | Load 0x2,-0x3
0951 e5fe | | Load 0x2,-0x2
0952 e5ff | | Load 0x2,-0x1
0953 82ac | | Call 0x1,0xac
0954 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0955 TRAP_0938:
0955 0007 | | Action Break_Optional
0956 e5fa | | Load 0x2,-0x6
0957 4801 |H | Short_Literal 0x1
0958 4801 |H | Short_Literal 0x1
0959 e00b | | Load 0x0,0xb
095a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
095b 035b | [ | Declare_Type Array,Constrained
095c 0337 | 7 | Declare_Variable Array
095d e5ff | | Load 0x2,-0x1
095e e00b | | Load 0x0,0xb
095f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0960 e00b | | Load 0x0,0xb
0961 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0962 0119 | | Execute Any,Check_In_Formal_Type
0963 4801 |H | Short_Literal 0x1
0964 00da | | Load_Top At_Offset_2
0965 01d6 | | Execute Vector,Field_Write
0966 6009 |` | Indirect_Literal Discrete,0x970,{0x00000000, 0x000081a2}
0967 e001 | | Load 0x0,0x1
0968 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0969 e00b | | Load 0x0,0xb
096a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
096b 6004 |` | Indirect_Literal Discrete,0x970,{0x00000000, 0x000081a2}
096c e001 | | Load 0x0,0x1
096d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
096e a5f9 | | Store_Unchecked 0x2,-0x7
096f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0970 0000 0000 | | .LITERAL {0x00000000, 0x000081a2}
0974 0000 0000 | | .BLANK 0000[0x4]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 0986 | | .CONST 0x0986 ; Address of begin
0979 09a7 | | .CONST 0x09a7 ; Address of exception handler
097a 0005 | | .CONST 0x0005 ; Number of locals
097b INIT_0978:
097b e00c | | Load 0x0,0xc
097c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
097d 02c7 | | Declare_Variable Any
097e 00d8 | | Load_Top At_Offset_0
097f 1c00 | | Execute_Immediate Run_Utility,0x0
0980 00e2 | | Load_Encached Integer_Cache
0981 e5ff | | Load 0x2,-0x1
0982 e009 | | Load 0x0,0x9
0983 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0984 029f 14a3 | | Declare_Subprogram INIT_14a0,For_Call
0986 BODY_0978:
0986 4800 |H | Short_Literal 0x0
0987 a5fd | | Store_Unchecked 0x2,-0x3
0988 e001 | | Load 0x0,0x1
0989 1b0d | | Execute Package,Field_Read,Field_Number 0xd
098a 00e2 | | Load_Encached Integer_Cache
098b e402 | | Load 0x2,0x2
098c 0120 | | Execute Any,Is_Value
098d 6803 |h | Jump_Zero 0x991
098e e00c | | Load 0x0,0xc
098f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0990 7801 |x | Jump 0x992
0991 e402 | | Load 0x2,0x2
0992 e5fe | | Load 0x2,-0x2
0993 e5ff | | Load 0x2,-0x1
0994 8267 | g | Call 0x1,0x67
0995 c402 | | Store 0x2,0x2
0996 c403 | | Store 0x2,0x3
0997 c5fd | | Store 0x2,-0x3
0998 e001 | | Load 0x0,0x1
0999 1b0d | | Execute Package,Field_Read,Field_Number 0xd
099a e5fe | | Load 0x2,-0x2
099b e5ff | | Load 0x2,-0x1
099c e009 | | Load 0x0,0x9
099d 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
099e c5fd | | Store 0x2,-0x3
099f e5fe | | Load 0x2,-0x2
09a0 00da | | Load_Top At_Offset_2
09a1 8294 | | Call 0x1,0x94
09a2 00da | | Load_Top At_Offset_2
09a3 0f01 | | Execute_Immediate Equal,0x1
09a4 6801 |h | Jump_Zero 0x9a6
09a5 8405 | | Call 0x2,0x5
09a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09a7 TRAP_0978:
09a7 0007 | | Action Break_Optional
09a8 e5fe | | Load 0x2,-0x2
09a9 4801 |H | Short_Literal 0x1
09aa 4801 |H | Short_Literal 0x1
09ab e00b | | Load 0x0,0xb
09ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09ad 035b | [ | Declare_Type Array,Constrained
09ae 0337 | 7 | Declare_Variable Array
09af e404 | | Load 0x2,0x4
09b0 e00b | | Load 0x0,0xb
09b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09b2 e00b | | Load 0x0,0xb
09b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09b4 0119 | | Execute Any,Check_In_Formal_Type
09b5 4801 |H | Short_Literal 0x1
09b6 00da | | Load_Top At_Offset_2
09b7 01d6 | | Execute Vector,Field_Write
09b8 600b |` | Indirect_Literal Discrete,0x9c4,{0x00000000, 0x000081a3}
09b9 e001 | | Load 0x0,0x1
09ba 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09bb e00b | | Load 0x0,0xb
09bc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
09bd 6006 |` | Indirect_Literal Discrete,0x9c4,{0x00000000, 0x000081a3}
09be e001 | | Load 0x0,0x1
09bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09c0 a5fd | | Store_Unchecked 0x2,-0x3
09c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09c2 0000 0000 | | .XXX[0x2]
09c4 0000 0000 | | .LITERAL {0x00000000, 0x000081a3}
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09df | | .CONST 0x09df ; Address of begin
09c9 0a9f | | .CONST 0x0a9f ; Address of exception handler
09ca 0006 | | .CONST 0x0006 ; Number of locals
09cb INIT_09c8:
09cb e00c | | Load 0x0,0xc
09cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09cd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
09ce 02c7 | | Declare_Variable Any
09cf 00d8 | | Load_Top At_Offset_0
09d0 1c00 | | Execute_Immediate Run_Utility,0x0
09d1 e26f | o | Load 0x1,0x6f
09d2 0322 | " | Declare_Variable Record
09d3 00d8 | | Load_Top At_Offset_0
09d4 1c00 | | Execute_Immediate Run_Utility,0x0
09d5 e00c | | Load 0x0,0xc
09d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09d7 02c7 | | Declare_Variable Any
09d8 00d8 | | Load_Top At_Offset_0
09d9 1c00 | | Execute_Immediate Run_Utility,0x0
09da e001 | | Load 0x0,0x1
09db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09dd 00e1 | | Load_Encached Boolean_Cache
09de 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
09df BODY_09c8:
09df 4800 |H | Short_Literal 0x0
09e0 a5fd | | Store_Unchecked 0x2,-0x3
09e1 e001 | | Load 0x0,0x1
09e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09e3 e402 | | Load 0x2,0x2
09e4 0120 | | Execute Any,Is_Value
09e5 6804 |h | Jump_Zero 0x9ea
09e6 e00c | | Load 0x0,0xc
09e7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09e8 1b18 | | Execute Package,Field_Read,Field_Number 0x18
09e9 7801 |x | Jump 0x9eb
09ea e402 | | Load 0x2,0x2
09eb e5fe | | Load 0x2,-0x2
09ec e5ff | | Load 0x2,-0x1
09ed 825f | _ | Call 0x1,0x5f
09ee c402 | | Store 0x2,0x2
09ef 005a | Z | Store_Top Discrete,At_Offset_2
09f0 4800 |H | Short_Literal 0x0
09f1 00da | | Load_Top At_Offset_2
09f2 e001 | | Load 0x0,0x1
09f3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
09f4 7003 |p | Jump_Nonzero 0x9f8
09f5 e001 | | Load 0x0,0x1
09f6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
09f7 0257 | W | Execute Discrete,Raise
09f8 e402 | | Load 0x2,0x2
09f9 e00c | | Load 0x0,0xc
09fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
09fc 6814 |h | Jump_Zero 0xa11
09fd e5fe | | Load 0x2,-0x2
09fe 4801 |H | Short_Literal 0x1
09ff 4801 |H | Short_Literal 0x1
0a00 e00b | | Load 0x0,0xb
0a01 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a02 035b | [ | Declare_Type Array,Constrained
0a03 0337 | 7 | Declare_Variable Array
0a04 e5ff | | Load 0x2,-0x1
0a05 e009 | | Load 0x0,0x9
0a06 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a07 e00b | | Load 0x0,0xb
0a08 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a09 0119 | | Execute Any,Check_In_Formal_Type
0a0a 4801 |H | Short_Literal 0x1
0a0b 00da | | Load_Top At_Offset_2
0a0c 01d6 | | Execute Vector,Field_Write
0a0d 60a2 |` | Indirect_Literal Discrete,0xab0,{0x00000000, 0x000081a8}
0a0e e001 | | Load 0x0,0x1
0a0f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a10 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a11 e5fe | | Load 0x2,-0x2
0a12 4801 |H | Short_Literal 0x1
0a13 4801 |H | Short_Literal 0x1
0a14 e00b | | Load 0x0,0xb
0a15 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a16 035b | [ | Declare_Type Array,Constrained
0a17 0337 | 7 | Declare_Variable Array
0a18 e5ff | | Load 0x2,-0x1
0a19 e009 | | Load 0x0,0x9
0a1a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a1b e00b | | Load 0x0,0xb
0a1c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a1d 0119 | | Execute Any,Check_In_Formal_Type
0a1e 4801 |H | Short_Literal 0x1
0a1f 00da | | Load_Top At_Offset_2
0a20 01d6 | | Execute Vector,Field_Write
0a21 608a |` | Indirect_Literal Discrete,0xaac,{0x00000000, 0x000081a9}
0a22 e001 | | Load 0x0,0x1
0a23 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a24 e5fe | | Load 0x2,-0x2
0a25 e5ff | | Load 0x2,-0x1
0a26 8273 | s | Call 0x1,0x73
0a27 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0a28 e5fe | | Load 0x2,-0x2
0a29 4801 |H | Short_Literal 0x1
0a2a 4802 |H | Short_Literal 0x2
0a2b e00b | | Load 0x0,0xb
0a2c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a2d 035b | [ | Declare_Type Array,Constrained
0a2e 0337 | 7 | Declare_Variable Array
0a2f e5ff | | Load 0x2,-0x1
0a30 e009 | | Load 0x0,0x9
0a31 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a32 e00b | | Load 0x0,0xb
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 00da | | Load_Top At_Offset_2
0a39 00e1 | | Load_Encached Boolean_Cache
0a3a 011c | | Execute Any,Convert_Unchecked
0a3b 1c01 | | Execute_Immediate Run_Utility,0x1
0a3c e00b | | Load 0x0,0xb
0a3d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a3e e00b | | Load 0x0,0xb
0a3f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a40 0119 | | Execute Any,Check_In_Formal_Type
0a41 4802 |H | Short_Literal 0x2
0a42 00da | | Load_Top At_Offset_2
0a43 01d6 | | Execute Vector,Field_Write
0a44 6063 |`c | Indirect_Literal Discrete,0xaa8,{0x00000000, 0x000081ab}
0a45 e001 | | Load 0x0,0x1
0a46 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a47 00cf | | Action Mark_Auxiliary
0a48 7850 |xP | Jump 0xa99
0a49 e5fe | | Load 0x2,-0x2
0a4a 4801 |H | Short_Literal 0x1
0a4b e402 | | Load 0x2,0x2
0a4c e009 | | Load 0x0,0x9
0a4d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0a4e c404 | | Store 0x2,0x4
0a4f e403 | | Load 0x2,0x3
0a50 e5fe | | Load 0x2,-0x2
0a51 e404 | | Load 0x2,0x4
0a52 e009 | | Load 0x0,0x9
0a53 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0a54 82a8 | | Call 0x1,0xa8
0a55 00d1 | | Pop_Control Pop_Count_1
0a56 e5fe | | Load 0x2,-0x2
0a57 4801 |H | Short_Literal 0x1
0a58 4804 |H | Short_Literal 0x4
0a59 e00b | | Load 0x0,0xb
0a5a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a5b 035b | [ | Declare_Type Array,Constrained
0a5c 0337 | 7 | Declare_Variable Array
0a5d e404 | | Load 0x2,0x4
0a5e e009 | | Load 0x0,0x9
0a5f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a60 e00b | | Load 0x0,0xb
0a61 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a62 0119 | | Execute Any,Check_In_Formal_Type
0a63 4801 |H | Short_Literal 0x1
0a64 00da | | Load_Top At_Offset_2
0a65 01d6 | | Execute Vector,Field_Write
0a66 4801 |H | Short_Literal 0x1
0a67 e403 | | Load 0x2,0x3
0a68 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0a69 e403 | | Load 0x2,0x3
0a6a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0a6b 01cf | | Execute Vector,Slice_Read
0a6c e00b | | Load 0x0,0xb
0a6d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a6e e00b | | Load 0x0,0xb
0a6f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a70 0119 | | Execute Any,Check_In_Formal_Type
0a71 4802 |H | Short_Literal 0x2
0a72 00da | | Load_Top At_Offset_2
0a73 01d6 | | Execute Vector,Field_Write
0a74 4801 |H | Short_Literal 0x1
0a75 e403 | | Load 0x2,0x3
0a76 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0a77 e403 | | Load 0x2,0x3
0a78 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0a79 01cf | | Execute Vector,Slice_Read
0a7a e00b | | Load 0x0,0xb
0a7b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a7c e00b | | Load 0x0,0xb
0a7d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a7e 0119 | | Execute Any,Check_In_Formal_Type
0a7f 4803 |H | Short_Literal 0x3
0a80 00da | | Load_Top At_Offset_2
0a81 01d6 | | Execute Vector,Field_Write
0a82 4801 |H | Short_Literal 0x1
0a83 e403 | | Load 0x2,0x3
0a84 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a85 e403 | | Load 0x2,0x3
0a86 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0a87 01cf | | Execute Vector,Slice_Read
0a88 e00b | | Load 0x0,0xb
0a89 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a8a e00b | | Load 0x0,0xb
0a8b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a8c 0119 | | Execute Any,Check_In_Formal_Type
0a8d 4804 |H | Short_Literal 0x4
0a8e 00da | | Load_Top At_Offset_2
0a8f 01d6 | | Execute Vector,Field_Write
0a90 6013 |` | Indirect_Literal Discrete,0xaa4,{0x00000000, 0x000081aa}
0a91 e001 | | Load 0x0,0x1
0a92 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a93 e402 | | Load 0x2,0x2
0a94 e00c | | Load 0x0,0xc
0a95 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a96 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0a97 c402 | | Store 0x2,0x2
0a98 00c9 | | Action Pop_Auxiliary_Loop
0a99 e402 | | Load 0x2,0x2
0a9a e00c | | Load 0x0,0xc
0a9b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a9c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a9d 6fab |o | Jump_Zero 0xa49
0a9e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0a9f TRAP_09c8:
0a9f 0007 | | Action Break_Optional
0aa0 00da | | Load_Top At_Offset_2
0aa1 a5fd | | Store_Unchecked 0x2,-0x3
0aa2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0aa3 0000 | | .XXX[0x1]
0aa4 0000 0000 | | .LITERAL {0x00000000, 0x000081aa}
0aa8 0000 0000 | | .LITERAL {0x00000000, 0x000081ab}
0aac 0000 0000 | | .LITERAL {0x00000000, 0x000081a9}
0ab0 0000 0000 | | .LITERAL {0x00000000, 0x000081a8}
0ab4 0000 0000 | | .BLANK 0000[0x4]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0ac1 | | .CONST 0x0ac1 ; Address of begin
0ab9 0ad9 | | .CONST 0x0ad9 ; Address of exception handler
0aba 0002 | | .CONST 0x0002 ; Number of locals
0abb INIT_0ab8:
0abb e00c | | Load 0x0,0xc
0abc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0abd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0abe 02c7 | | Declare_Variable Any
0abf 00d8 | | Load_Top At_Offset_0
0ac0 1c00 | | Execute_Immediate Run_Utility,0x0
0ac1 BODY_0ab8:
0ac1 4800 |H | Short_Literal 0x0
0ac2 a5fc | | Store_Unchecked 0x2,-0x4
0ac3 4800 |H | Short_Literal 0x0
0ac4 a5fd | | Store_Unchecked 0x2,-0x3
0ac5 00db | | Load_Top At_Offset_3
0ac6 e009 | | Load 0x0,0x9
0ac7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ac8 e291 | | Load 0x1,0x91
0ac9 01cc | | Execute Vector,Catenate
0aca 829b | | Call 0x1,0x9b
0acb c402 | | Store 0x2,0x2
0acc 00d8 | | Load_Top At_Offset_0
0acd e00c | | Load 0x0,0xc
0ace 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0acf 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0ad0 7007 |p | Jump_Nonzero 0xad8
0ad1 00d8 | | Load_Top At_Offset_0
0ad2 e00c | | Load 0x0,0xc
0ad3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ad4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0ad5 7002 |p | Jump_Nonzero 0xad8
0ad6 4801 |H | Short_Literal 0x1
0ad7 a5fd | | Store_Unchecked 0x2,-0x3
0ad8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ad9 TRAP_0ab8:
0ad9 0007 | | Action Break_Optional
0ada e00b | | Load 0x0,0xb
0adb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0adc 6007 |` | Indirect_Literal Discrete,0xae4,{0x00000000, 0x0000813b}
0add e001 | | Load 0x0,0x1
0ade 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0adf a5fc | | Store_Unchecked 0x2,-0x4
0ae0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ae1 0000 0000 | | .XXX[0x3]
0ae3 0000 | |
0ae4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0ae8 ; --------------------------------------------------------------------------------------
0ae8 ; SUBPROGRAM
0ae8 ; --------------------------------------------------------------------------------------
0ae8 0aeb | | .CONST 0x0aeb ; Address of begin
0ae9 0aff | | .CONST 0x0aff ; Address of exception handler
0aea 0001 | | .CONST 0x0001 ; Number of locals
0aeb BODY_0ae8:
0aeb INIT_0ae8:
0aeb 4800 |H | Short_Literal 0x0
0aec a5fa | | Store_Unchecked 0x2,-0x6
0aed 00e2 | | Load_Encached Integer_Cache
0aee 00e1 | | Load_Encached Boolean_Cache
0aef e5fd | | Load 0x2,-0x3
0af0 0120 | | Execute Any,Is_Value
0af1 6803 |h | Jump_Zero 0xaf5
0af2 e00c | | Load 0x0,0xc
0af3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0af4 7801 |x | Jump 0xaf6
0af5 e5fd | | Load 0x2,-0x3
0af6 e5fe | | Load 0x2,-0x2
0af7 e5ff | | Load 0x2,-0x1
0af8 e009 | | Load 0x0,0x9
0af9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0afa 82af | | Call 0x1,0xaf
0afb c5fd | | Store 0x2,-0x3
0afc c5fc | | Store 0x2,-0x4
0afd c5fb | | Store 0x2,-0x5
0afe 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0aff TRAP_0ae8:
0aff 0007 | | Action Break_Optional
0b00 e00b | | Load 0x0,0xb
0b01 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0b02 67e1 |g | Indirect_Literal Discrete,0xae4,{0x00000000, 0x0000813b}
0b03 e001 | | Load 0x0,0x1
0b04 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b05 a5fa | | Store_Unchecked 0x2,-0x6
0b06 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b07 0000 | | .XXX[0x1]
0b08 ; --------------------------------------------------------------------------------------
0b08 ; SUBPROGRAM
0b08 ; --------------------------------------------------------------------------------------
0b08 0b0c | | .CONST 0x0b0c ; Address of begin
0b09 0b3c | < | .CONST 0x0b3c ; Address of exception handler
0b0a 0002 | | .CONST 0x0002 ; Number of locals
0b0b INIT_0b08:
0b0b 00e1 | | Load_Encached Boolean_Cache
0b0c BODY_0b08:
0b0c 4800 |H | Short_Literal 0x0
0b0d a5fb | | Store_Unchecked 0x2,-0x5
0b0e e001 | | Load 0x0,0x1
0b0f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b10 00e2 | | Load_Encached Integer_Cache
0b11 00e1 | | Load_Encached Boolean_Cache
0b12 e5fd | | Load 0x2,-0x3
0b13 0120 | | Execute Any,Is_Value
0b14 6803 |h | Jump_Zero 0xb18
0b15 e00c | | Load 0x0,0xc
0b16 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b17 7801 |x | Jump 0xb19
0b18 e5fd | | Load 0x2,-0x3
0b19 e5fe | | Load 0x2,-0x2
0b1a e5ff | | Load 0x2,-0x1
0b1b 8266 | f | Call 0x1,0x66
0b1c c5fd | | Store 0x2,-0x3
0b1d 005b | [ | Store_Top Discrete,At_Offset_3
0b1e c5fc | | Store 0x2,-0x4
0b1f c5fb | | Store 0x2,-0x5
0b20 00d8 | | Load_Top At_Offset_0
0b21 7019 |p | Jump_Nonzero 0xb3b
0b22 e5fe | | Load 0x2,-0x2
0b23 4801 |H | Short_Literal 0x1
0b24 4801 |H | Short_Literal 0x1
0b25 e00b | | Load 0x0,0xb
0b26 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b27 035b | [ | Declare_Type Array,Constrained
0b28 0337 | 7 | Declare_Variable Array
0b29 e5ff | | Load 0x2,-0x1
0b2a e009 | | Load 0x0,0x9
0b2b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0b2c e00b | | Load 0x0,0xb
0b2d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b2e 0119 | | Execute Any,Check_In_Formal_Type
0b2f 4801 |H | Short_Literal 0x1
0b30 00da | | Load_Top At_Offset_2
0b31 01d6 | | Execute Vector,Field_Write
0b32 600d |` | Indirect_Literal Discrete,0xb40,{0x00000000, 0x000081a4}
0b33 e001 | | Load 0x0,0x1
0b34 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b35 e00b | | Load 0x0,0xb
0b36 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0b37 6008 |` | Indirect_Literal Discrete,0xb40,{0x00000000, 0x000081a4}
0b38 e001 | | Load 0x0,0x1
0b39 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b3a a5fb | | Store_Unchecked 0x2,-0x5
0b3b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b3c TRAP_0b08:
0b3c 0007 | | Action Break_Optional
0b3d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b3e 0000 0000 | | .XXX[0x2]
0b40 0000 0000 | | .LITERAL {0x00000000, 0x000081a4}
0b44 0000 0000 | | .BLANK 0000[0x4]
0b48 ; --------------------------------------------------------------------------------------
0b48 ; SUBPROGRAM
0b48 ; --------------------------------------------------------------------------------------
0b48 0b54 | T | .CONST 0x0b54 ; Address of begin
0b49 0b5d | ] | .CONST 0x0b5d ; Address of exception handler
0b4a 0003 | | .CONST 0x0003 ; Number of locals
0b4b INIT_0b48:
0b4b 00db | | Load_Top At_Offset_3
0b4c 00db | | Load_Top At_Offset_3
0b4d 8298 | | Call 0x1,0x98
0b4e e00c | | Load 0x0,0xc
0b4f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b50 02c7 | | Declare_Variable Any
0b51 00d9 | | Load_Top At_Offset_1
0b52 8299 | | Call 0x1,0x99
0b53 a403 | | Store_Unchecked 0x2,0x3
0b54 BODY_0b48:
0b54 00d8 | | Load_Top At_Offset_0
0b55 e00c | | Load 0x0,0xc
0b56 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b57 012e | . | Execute Any,Not_Equal
0b58 6802 |h | Jump_Zero 0xb5b
0b59 4801 |H | Short_Literal 0x1
0b5a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b5b 4800 |H | Short_Literal 0x0
0b5c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b5d TRAP_0b48:
0b5d 0007 | | Action Break_Optional
0b5e 4800 |H | Short_Literal 0x0
0b5f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; --------------------------------------------------------------------------------------
0b60 0b74 | t | .CONST 0x0b74 ; Address of begin
0b61 0b9e | | .CONST 0x0b9e ; Address of exception handler
0b62 0005 | | .CONST 0x0005 ; Number of locals
0b63 INIT_0b60:
0b63 00da | | Load_Top At_Offset_2
0b64 e009 | | Load 0x0,0x9
0b65 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0b66 e26f | o | Load 0x1,0x6f
0b67 0322 | " | Declare_Variable Record
0b68 00d8 | | Load_Top At_Offset_0
0b69 1c00 | | Execute_Immediate Run_Utility,0x0
0b6a e00c | | Load 0x0,0xc
0b6b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b6c 02c7 | | Declare_Variable Any
0b6d 00d8 | | Load_Top At_Offset_0
0b6e 1c00 | | Execute_Immediate Run_Utility,0x0
0b6f e00c | | Load 0x0,0xc
0b70 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b71 02c7 | | Declare_Variable Any
0b72 00d8 | | Load_Top At_Offset_0
0b73 1c00 | | Execute_Immediate Run_Utility,0x0
0b74 BODY_0b60:
0b74 4800 |H | Short_Literal 0x0
0b75 a5fc | | Store_Unchecked 0x2,-0x4
0b76 e5fe | | Load 0x2,-0x2
0b77 4801 |H | Short_Literal 0x1
0b78 e5ff | | Load 0x2,-0x1
0b79 e009 | | Load 0x0,0x9
0b7a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b7b c405 | | Store 0x2,0x5
0b7c 00da | | Load_Top At_Offset_2
0b7d e5fe | | Load 0x2,-0x2
0b7e e402 | | Load 0x2,0x2
0b7f 82a8 | | Call 0x1,0xa8
0b80 00d1 | | Pop_Control Pop_Count_1
0b81 e5fe | | Load 0x2,-0x2
0b82 4801 |H | Short_Literal 0x1
0b83 e5ff | | Load 0x2,-0x1
0b84 e009 | | Load 0x0,0x9
0b85 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0b86 e009 | | Load 0x0,0x9
0b87 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0b88 0092 172a | *| Action Push_String_Extended,0x172a ; "."
0b8a 01cc | | Execute Vector,Catenate
0b8b 4801 |H | Short_Literal 0x1
0b8c e403 | | Load 0x2,0x3
0b8d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0b8e e403 | | Load 0x2,0x3
0b8f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0b90 01cf | | Execute Vector,Slice_Read
0b91 01cc | | Execute Vector,Catenate
0b92 8299 | | Call 0x1,0x99
0b93 c404 | | Store 0x2,0x4
0b94 00d9 | | Load_Top At_Offset_1
0b95 e00c | | Load 0x0,0xc
0b96 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b97 6803 |h | Jump_Zero 0xb9b
0b98 e001 | | Load 0x0,0x1
0b99 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b9a 0257 | W | Execute Discrete,Raise
0b9b 00d9 | | Load_Top At_Offset_1
0b9c c5fd | | Store 0x2,-0x3
0b9d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b9e TRAP_0b60:
0b9e 0007 | | Action Break_Optional
0b9f e5fe | | Load 0x2,-0x2
0ba0 4801 |H | Short_Literal 0x1
0ba1 4801 |H | Short_Literal 0x1
0ba2 e00b | | Load 0x0,0xb
0ba3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ba4 035b | [ | Declare_Type Array,Constrained
0ba5 0337 | 7 | Declare_Variable Array
0ba6 4801 |H | Short_Literal 0x1
0ba7 e403 | | Load 0x2,0x3
0ba8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0ba9 e403 | | Load 0x2,0x3
0baa 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0bab 01cf | | Execute Vector,Slice_Read
0bac e00b | | Load 0x0,0xb
0bad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0bae e00b | | Load 0x0,0xb
0baf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bb0 0119 | | Execute Any,Check_In_Formal_Type
0bb1 4801 |H | Short_Literal 0x1
0bb2 00da | | Load_Top At_Offset_2
0bb3 01d6 | | Execute Vector,Field_Write
0bb4 600b |` | Indirect_Literal Discrete,0xbc0,{0x00000000, 0x000081a7}
0bb5 e001 | | Load 0x0,0x1
0bb6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0bb7 e00b | | Load 0x0,0xb
0bb8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0bb9 6006 |` | Indirect_Literal Discrete,0xbc0,{0x00000000, 0x000081a7}
0bba e001 | | Load 0x0,0x1
0bbb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0bbc a5fc | | Store_Unchecked 0x2,-0x4
0bbd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bbe 0000 0000 | | .XXX[0x2]
0bc0 0000 0000 | | .LITERAL {0x00000000, 0x000081a7}
0bc4 0000 0000 | | .BLANK 0000[0x4]
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bcc | | .CONST 0x0bcc ; Address of begin
0bc9 0004 | | .CONST 0x0004 ; Address of exception handler
0bca 0002 | | .CONST 0x0002 ; Number of locals
0bcb INIT_0bc8:
0bcb 00e2 | | Load_Encached Integer_Cache
0bcc BODY_0bc8:
0bcc 4800 |H | Short_Literal 0x0
0bcd a5fc | | Store_Unchecked 0x2,-0x4
0bce e001 | | Load 0x0,0x1
0bcf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0bd0 00e2 | | Load_Encached Integer_Cache
0bd1 e5fd | | Load 0x2,-0x3
0bd2 0120 | | Execute Any,Is_Value
0bd3 6803 |h | Jump_Zero 0xbd7
0bd4 e00c | | Load 0x0,0xc
0bd5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bd6 7801 |x | Jump 0xbd8
0bd7 e5fd | | Load 0x2,-0x3
0bd8 e5fe | | Load 0x2,-0x2
0bd9 e5ff | | Load 0x2,-0x1
0bda 8267 | g | Call 0x1,0x67
0bdb c5fd | | Store 0x2,-0x3
0bdc 005a | Z | Store_Top Discrete,At_Offset_2
0bdd c5fc | | Store 0x2,-0x4
0bde 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bdf 0000 | | .XXX[0x1]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; --------------------------------------------------------------------------------------
0be0 0be6 | | .CONST 0x0be6 ; Address of begin
0be1 0bee | | .CONST 0x0bee ; Address of exception handler
0be2 0002 | | .CONST 0x0002 ; Number of locals
0be3 INIT_0be0:
0be3 00da | | Load_Top At_Offset_2
0be4 e009 | | Load 0x0,0x9
0be5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0be6 BODY_0be0:
0be6 4800 |H | Short_Literal 0x0
0be7 a5fc | | Store_Unchecked 0x2,-0x4
0be8 00d8 | | Load_Top At_Offset_0
0be9 e291 | | Load 0x1,0x91
0bea 01cc | | Execute Vector,Catenate
0beb 829b | | Call 0x1,0x9b
0bec c5fd | | Store 0x2,-0x3
0bed 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bee TRAP_0be0:
0bee 0007 | | Action Break_Optional
0bef 6004 |` | Indirect_Literal Discrete,0xbf4,{0x00000000, 0x0000813b}
0bf0 a5fc | | Store_Unchecked 0x2,-0x4
0bf1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bf2 0000 0000 | | .XXX[0x2]
0bf4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0bf8 ; --------------------------------------------------------------------------------------
0bf8 ; SUBPROGRAM
0bf8 ; --------------------------------------------------------------------------------------
0bf8 0c07 | | .CONST 0x0c07 ; Address of begin
0bf9 0c0e | | .CONST 0x0c0e ; Address of exception handler
0bfa 0005 | | .CONST 0x0005 ; Number of locals
0bfb INIT_0bf8:
0bfb 00da | | Load_Top At_Offset_2
0bfc e009 | | Load 0x0,0x9
0bfd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0bfe e26f | o | Load 0x1,0x6f
0bff 0322 | " | Declare_Variable Record
0c00 00d8 | | Load_Top At_Offset_0
0c01 1c00 | | Execute_Immediate Run_Utility,0x0
0c02 4801 |H | Short_Literal 0x1
0c03 e20d | | Load 0x1,0xd
0c04 1c08 | | Execute_Immediate Run_Utility,0x8
0c05 029f 14bb | | Declare_Subprogram INIT_14b8,For_Call
0c07 BODY_0bf8:
0c07 00da | | Load_Top At_Offset_2
0c08 e5fe | | Load 0x2,-0x2
0c09 e402 | | Load 0x2,0x2
0c0a 82a8 | | Call 0x1,0xa8
0c0b 00d1 | | Pop_Control Pop_Count_1
0c0c 8405 | | Call 0x2,0x5
0c0d 0831 | 1 | Execute_Immediate Raise,0x31
0c0e TRAP_0bf8:
0c0e 0007 | | Action Break_Optional
0c0f e00b | | Load 0x0,0xb
0c10 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0c11 67e2 |g | Indirect_Literal Discrete,0xbf4,{0x00000000, 0x0000813b}
0c12 e001 | | Load 0x0,0x1
0c13 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0c14 00db | | Load_Top At_Offset_3
0c15 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c16 0831 | 1 | Execute_Immediate Raise,0x31
0c17 0000 | | .XXX[0x1]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c27 | ' | .CONST 0x0c27 ; Address of begin
0c19 0c2e | . | .CONST 0x0c2e ; Address of exception handler
0c1a 0005 | | .CONST 0x0005 ; Number of locals
0c1b INIT_0c18:
0c1b 00da | | Load_Top At_Offset_2
0c1c e009 | | Load 0x0,0x9
0c1d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c1e e26f | o | Load 0x1,0x6f
0c1f 0322 | " | Declare_Variable Record
0c20 00d8 | | Load_Top At_Offset_0
0c21 1c00 | | Execute_Immediate Run_Utility,0x0
0c22 4801 |H | Short_Literal 0x1
0c23 e20d | | Load 0x1,0xd
0c24 1c08 | | Execute_Immediate Run_Utility,0x8
0c25 029f 14d3 | | Declare_Subprogram INIT_14d0,For_Call
0c27 BODY_0c18:
0c27 00da | | Load_Top At_Offset_2
0c28 e5fe | | Load 0x2,-0x2
0c29 e402 | | Load 0x2,0x2
0c2a 82a8 | | Call 0x1,0xa8
0c2b 00d1 | | Pop_Control Pop_Count_1
0c2c 8405 | | Call 0x2,0x5
0c2d 0831 | 1 | Execute_Immediate Raise,0x31
0c2e TRAP_0c18:
0c2e 0007 | | Action Break_Optional
0c2f e00b | | Load 0x0,0xb
0c30 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0c31 6006 |` | Indirect_Literal Discrete,0xc38,{0x00000000, 0x0000813b}
0c32 e001 | | Load 0x0,0x1
0c33 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0c34 00db | | Load_Top At_Offset_3
0c35 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c36 00da | | Load_Top At_Offset_2
0c37 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c38 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0c3c 0000 0000 | | .BLANK 0000[0x4]
0c40 ; --------------------------------------------------------------------------------------
0c40 ; SUBPROGRAM
0c40 ; --------------------------------------------------------------------------------------
0c40 0c47 | G | .CONST 0x0c47 ; Address of begin
0c41 0c4f | O | .CONST 0x0c4f ; Address of exception handler
0c42 0003 | | .CONST 0x0003 ; Number of locals
0c43 INIT_0c40:
0c43 e28f | | Load 0x1,0x8f
0c44 0322 | " | Declare_Variable Record
0c45 00db | | Load_Top At_Offset_3
0c46 8296 | | Call 0x1,0x96
0c47 BODY_0c40:
0c47 00d9 | | Load_Top At_Offset_1
0c48 e5fe | | Load 0x2,-0x2
0c49 00da | | Load_Top At_Offset_2
0c4a 82a7 | | Call 0x1,0xa7
0c4b 00d1 | | Pop_Control Pop_Count_1
0c4c 00d9 | | Load_Top At_Offset_1
0c4d 82a1 | | Call 0x1,0xa1
0c4e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c4f TRAP_0c40:
0c4f 0007 | | Action Break_Optional
0c50 4800 |H | Short_Literal 0x0
0c51 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c52 0000 0000 | | .BLANK 0000[0x6]
0c58 ; --------------------------------------------------------------------------------------
0c58 ; SUBPROGRAM
0c58 ; --------------------------------------------------------------------------------------
0c58 0c62 | b | .CONST 0x0c62 ; Address of begin
0c59 0c69 | i | .CONST 0x0c69 ; Address of exception handler
0c5a 0003 | | .CONST 0x0003 ; Number of locals
0c5b INIT_0c58:
0c5b 00da | | Load_Top At_Offset_2
0c5c e009 | | Load 0x0,0x9
0c5d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c5e e26f | o | Load 0x1,0x6f
0c5f 0322 | " | Declare_Variable Record
0c60 00d8 | | Load_Top At_Offset_0
0c61 1c00 | | Execute_Immediate Run_Utility,0x0
0c62 BODY_0c58:
0c62 00d8 | | Load_Top At_Offset_0
0c63 e5fe | | Load 0x2,-0x2
0c64 00db | | Load_Top At_Offset_3
0c65 82a8 | | Call 0x1,0xa8
0c66 00d1 | | Pop_Control Pop_Count_1
0c67 00d8 | | Load_Top At_Offset_0
0c68 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c69 TRAP_0c58:
0c69 0007 | | Action Break_Optional
0c6a 00d9 | | Load_Top At_Offset_1
0c6b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c6c 0000 0000 | | .BLANK 0000[0x4]
0c70 ; --------------------------------------------------------------------------------------
0c70 ; SUBPROGRAM
0c70 ; --------------------------------------------------------------------------------------
0c70 0c7b | { | .CONST 0x0c7b ; Address of begin
0c71 0cb3 | | .CONST 0x0cb3 ; Address of exception handler
0c72 0005 | | .CONST 0x0005 ; Number of locals
0c73 INIT_0c70:
0c73 e28f | | Load 0x1,0x8f
0c74 0322 | " | Declare_Variable Record
0c75 00e1 | | Load_Encached Boolean_Cache
0c76 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0c77 e001 | | Load 0x0,0x1
0c78 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c79 e5ff | | Load 0x2,-0x1
0c7a 8296 | | Call 0x1,0x96
0c7b BODY_0c70:
0c7b 4800 |H | Short_Literal 0x0
0c7c a5fc | | Store_Unchecked 0x2,-0x4
0c7d e001 | | Load 0x0,0x1
0c7e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c7f 00e1 | | Load_Encached Boolean_Cache
0c80 e5fd | | Load 0x2,-0x3
0c81 e5ff | | Load 0x2,-0x1
0c82 8245 | E | Call 0x1,0x45
0c83 c403 | | Store 0x2,0x3
0c84 005a | Z | Store_Top Discrete,At_Offset_2
0c85 4800 |H | Short_Literal 0x0
0c86 00da | | Load_Top At_Offset_2
0c87 e001 | | Load 0x0,0x1
0c88 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0c89 7003 |p | Jump_Nonzero 0xc8d
0c8a e001 | | Load 0x0,0x1
0c8b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0c8c 0257 | W | Execute Discrete,Raise
0c8d 00da | | Load_Top At_Offset_2
0c8e 7016 |p | Jump_Nonzero 0xca5
0c8f e5fd | | Load 0x2,-0x3
0c90 4801 |H | Short_Literal 0x1
0c91 4801 |H | Short_Literal 0x1
0c92 e00b | | Load 0x0,0xb
0c93 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c94 035b | [ | Declare_Type Array,Constrained
0c95 0337 | 7 | Declare_Variable Array
0c96 e5ff | | Load 0x2,-0x1
0c97 e009 | | Load 0x0,0x9
0c98 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c99 e00b | | Load 0x0,0xb
0c9a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c9b 0119 | | Execute Any,Check_In_Formal_Type
0c9c 4801 |H | Short_Literal 0x1
0c9d 00da | | Load_Top At_Offset_2
0c9e 01d6 | | Execute Vector,Field_Write
0c9f 601c |` | Indirect_Literal Discrete,0xcbc,{0x00000000, 0x000081a8}
0ca0 e001 | | Load 0x0,0x1
0ca1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ca2 6019 |` | Indirect_Literal Discrete,0xcbc,{0x00000000, 0x000081a8}
0ca3 a5fc | | Store_Unchecked 0x2,-0x4
0ca4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0ca5 00db | | Load_Top At_Offset_3
0ca6 e5fd | | Load 0x2,-0x3
0ca7 00da | | Load_Top At_Offset_2
0ca8 82a7 | | Call 0x1,0xa7
0ca9 00d1 | | Pop_Control Pop_Count_1
0caa 00db | | Load_Top At_Offset_3
0cab e5fe | | Load 0x2,-0x2
0cac 82a2 | | Call 0x1,0xa2
0cad 00d1 | | Pop_Control Pop_Count_1
0cae e5fd | | Load 0x2,-0x3
0caf e402 | | Load 0x2,0x2
0cb0 00da | | Load_Top At_Offset_2
0cb1 82a5 | | Call 0x1,0xa5
0cb2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0cb3 TRAP_0c70:
0cb3 0007 | | Action Break_Optional
0cb4 6003 |` | Indirect_Literal Discrete,0xcb8,{0x00000000, 0x0000813b}
0cb5 a5fc | | Store_Unchecked 0x2,-0x4
0cb6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0cb7 0000 | | .XXX[0x1]
0cb8 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0cbc 0000 0000 | | .LITERAL {0x00000000, 0x000081a8}
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0cca | | .CONST 0x0cca ; Address of begin
0cc1 0cfa | | .CONST 0x0cfa ; Address of exception handler
0cc2 0003 | | .CONST 0x0003 ; Number of locals
0cc3 INIT_0cc0:
0cc3 00da | | Load_Top At_Offset_2
0cc4 e009 | | Load 0x0,0x9
0cc5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0cc6 e26f | o | Load 0x1,0x6f
0cc7 0322 | " | Declare_Variable Record
0cc8 00d8 | | Load_Top At_Offset_0
0cc9 1c00 | | Execute_Immediate Run_Utility,0x0
0cca BODY_0cc0:
0cca 4800 |H | Short_Literal 0x0
0ccb a5fc | | Store_Unchecked 0x2,-0x4
0ccc 00d8 | | Load_Top At_Offset_0
0ccd e5fd | | Load 0x2,-0x3
0cce 00db | | Load_Top At_Offset_3
0ccf 82a8 | | Call 0x1,0xa8
0cd0 00d1 | | Pop_Control Pop_Count_1
0cd1 e5fe | | Load 0x2,-0x2
0cd2 01db | | Execute Vector,Length
0cd3 0c81 | | Execute_Immediate Greater_Equal,-0x7f
0cd4 6802 |h | Jump_Zero 0xcd7
0cd5 e015 | | Load 0x0,0x15
0cd6 0257 | W | Execute Discrete,Raise
0cd7 e5fe | | Load 0x2,-0x2
0cd8 4801 |H | Short_Literal 0x1
0cd9 e5fe | | Load 0x2,-0x2
0cda 01db | | Execute Vector,Length
0cdb 00d8 | | Load_Top At_Offset_0
0cdc 00e2 | | Load_Encached Integer_Cache
0cdd 0260 | ` | Execute Discrete,In_Type
0cde 7001 |p | Jump_Nonzero 0xce0
0cdf 0801 | | Execute_Immediate Raise,0x1
0ce0 00db | | Load_Top At_Offset_3
0ce1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ce2 01ce | | Execute Vector,Slice_Write
0ce3 e5fe | | Load 0x2,-0x2
0ce4 01db | | Execute Vector,Length
0ce5 00d9 | | Load_Top At_Offset_1
0ce6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0ce7 e001 | | Load 0x0,0x1
0ce8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ce9 e5fd | | Load 0x2,-0x3
0cea e5ff | | Load 0x2,-0x1
0ceb e009 | | Load 0x0,0x9
0cec 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
0ced c5fc | | Store 0x2,-0x4
0cee e5fd | | Load 0x2,-0x3
0cef 00d9 | | Load_Top At_Offset_1
0cf0 00db | | Load_Top At_Offset_3
0cf1 82aa | | Call 0x1,0xaa
0cf2 e001 | | Load 0x0,0x1
0cf3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cf4 e5fd | | Load 0x2,-0x3
0cf5 e5ff | | Load 0x2,-0x1
0cf6 e009 | | Load 0x0,0x9
0cf7 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0cf8 c5fc | | Store 0x2,-0x4
0cf9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0cfa TRAP_0cc0:
0cfa e015 | | Load 0x0,0x15
0cfb 010f | | Execute Exception,Equal
0cfc 6817 |h | Jump_Zero 0xd14
0cfd e5fd | | Load 0x2,-0x3
0cfe 4801 |H | Short_Literal 0x1
0cff 4801 |H | Short_Literal 0x1
0d00 e00b | | Load 0x0,0xb
0d01 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d02 035b | [ | Declare_Type Array,Constrained
0d03 0337 | 7 | Declare_Variable Array
0d04 0092 171c | | Action Push_String_Extended,0x171c ; " 128"
0d06 e00b | | Load 0x0,0xb
0d07 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d08 e00b | | Load 0x0,0xb
0d09 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d0a 0119 | | Execute Any,Check_In_Formal_Type
0d0b 4801 |H | Short_Literal 0x1
0d0c 00da | | Load_Top At_Offset_2
0d0d 01d6 | | Execute Vector,Field_Write
0d0e 6009 |` | Indirect_Literal Discrete,0xd18,{0x00000000, 0x0000819e}
0d0f e001 | | Load 0x0,0x1
0d10 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d11 6006 |` | Indirect_Literal Discrete,0xd18,{0x00000000, 0x0000819e}
0d12 a5fc | | Store_Unchecked 0x2,-0x4
0d13 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0d14 67a3 |g | Indirect_Literal Discrete,0xcb8,{0x00000000, 0x0000813b}
0d15 a5fc | | Store_Unchecked 0x2,-0x4
0d16 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0d17 0000 | | .XXX[0x1]
0d18 0000 0000 | | .LITERAL {0x00000000, 0x0000819e}
0d1c 0000 0000 | | .BLANK 0000[0x4]
0d20 ; --------------------------------------------------------------------------------------
0d20 ; SUBPROGRAM
0d20 ; --------------------------------------------------------------------------------------
0d20 0d2a | * | .CONST 0x0d2a ; Address of begin
0d21 0d5a | Z | .CONST 0x0d5a ; Address of exception handler
0d22 0003 | | .CONST 0x0003 ; Number of locals
0d23 INIT_0d20:
0d23 00da | | Load_Top At_Offset_2
0d24 e009 | | Load 0x0,0x9
0d25 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0d26 e26f | o | Load 0x1,0x6f
0d27 0322 | " | Declare_Variable Record
0d28 00d8 | | Load_Top At_Offset_0
0d29 1c00 | | Execute_Immediate Run_Utility,0x0
0d2a BODY_0d20:
0d2a 4800 |H | Short_Literal 0x0
0d2b a5fc | | Store_Unchecked 0x2,-0x4
0d2c 00d8 | | Load_Top At_Offset_0
0d2d e5fd | | Load 0x2,-0x3
0d2e 00db | | Load_Top At_Offset_3
0d2f 82a8 | | Call 0x1,0xa8
0d30 00d1 | | Pop_Control Pop_Count_1
0d31 e5fe | | Load 0x2,-0x2
0d32 01db | | Execute Vector,Length
0d33 0c81 | | Execute_Immediate Greater_Equal,-0x7f
0d34 6802 |h | Jump_Zero 0xd37
0d35 e016 | | Load 0x0,0x16
0d36 0257 | W | Execute Discrete,Raise
0d37 e5fe | | Load 0x2,-0x2
0d38 4801 |H | Short_Literal 0x1
0d39 e5fe | | Load 0x2,-0x2
0d3a 01db | | Execute Vector,Length
0d3b 00d8 | | Load_Top At_Offset_0
0d3c 00e2 | | Load_Encached Integer_Cache
0d3d 0260 | ` | Execute Discrete,In_Type
0d3e 7001 |p | Jump_Nonzero 0xd40
0d3f 0801 | | Execute_Immediate Raise,0x1
0d40 00db | | Load_Top At_Offset_3
0d41 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0d42 01ce | | Execute Vector,Slice_Write
0d43 e5fe | | Load 0x2,-0x2
0d44 01db | | Execute Vector,Length
0d45 00d9 | | Load_Top At_Offset_1
0d46 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0d47 e001 | | Load 0x0,0x1
0d48 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d49 e5fd | | Load 0x2,-0x3
0d4a e5ff | | Load 0x2,-0x1
0d4b e009 | | Load 0x0,0x9
0d4c 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
0d4d c5fc | | Store 0x2,-0x4
0d4e e5fd | | Load 0x2,-0x3
0d4f 00d9 | | Load_Top At_Offset_1
0d50 00db | | Load_Top At_Offset_3
0d51 82aa | | Call 0x1,0xaa
0d52 e001 | | Load 0x0,0x1
0d53 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d54 e5fd | | Load 0x2,-0x3
0d55 e5ff | | Load 0x2,-0x1
0d56 e009 | | Load 0x0,0x9
0d57 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0d58 c5fc | | Store 0x2,-0x4
0d59 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0d5a TRAP_0d20:
0d5a e016 | | Load 0x0,0x16
0d5b 010f | | Execute Exception,Equal
0d5c 6817 |h | Jump_Zero 0xd74
0d5d e5fd | | Load 0x2,-0x3
0d5e 4801 |H | Short_Literal 0x1
0d5f 4801 |H | Short_Literal 0x1
0d60 e00b | | Load 0x0,0xb
0d61 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d62 035b | [ | Declare_Type Array,Constrained
0d63 0337 | 7 | Declare_Variable Array
0d64 0092 171c | | Action Push_String_Extended,0x171c ; " 128"
0d66 e00b | | Load 0x0,0xb
0d67 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d68 e00b | | Load 0x0,0xb
0d69 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d6a 0119 | | Execute Any,Check_In_Formal_Type
0d6b 4801 |H | Short_Literal 0x1
0d6c 00da | | Load_Top At_Offset_2
0d6d 01d6 | | Execute Vector,Field_Write
0d6e 67a9 |g | Indirect_Literal Discrete,0xd18,{0x00000000, 0x0000819e}
0d6f e001 | | Load 0x0,0x1
0d70 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d71 67a6 |g | Indirect_Literal Discrete,0xd18,{0x00000000, 0x0000819e}
0d72 a5fc | | Store_Unchecked 0x2,-0x4
0d73 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0d74 6003 |` | Indirect_Literal Discrete,0xd78,{0x00000000, 0x0000813b}
0d75 a5fc | | Store_Unchecked 0x2,-0x4
0d76 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0d77 0000 | | .XXX[0x1]
0d78 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0d7c 0000 0000 | | .BLANK 0000[0x4]
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d95 | | .CONST 0x0d95 ; Address of begin
0d81 0e25 | % | .CONST 0x0e25 ; Address of exception handler
0d82 0006 | | .CONST 0x0006 ; Number of locals
0d83 INIT_0d80:
0d83 e00c | | Load 0x0,0xc
0d84 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d85 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d86 e00c | | Load 0x0,0xc
0d87 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d88 e00c | | Load 0x0,0xc
0d89 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d8a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0d8b 02c7 | | Declare_Variable Any
0d8c 00d8 | | Load_Top At_Offset_0
0d8d 1c00 | | Execute_Immediate Run_Utility,0x0
0d8e e00c | | Load 0x0,0xc
0d8f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d90 02c7 | | Declare_Variable Any
0d91 00d8 | | Load_Top At_Offset_0
0d92 1c00 | | Execute_Immediate Run_Utility,0x0
0d93 029f 14eb | | Declare_Subprogram INIT_14e8,For_Call
0d95 BODY_0d80:
0d95 4800 |H | Short_Literal 0x0
0d96 a5fc | | Store_Unchecked 0x2,-0x4
0d97 e00c | | Load 0x0,0xc
0d98 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0d99 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d9a 00db | | Load_Top At_Offset_3
0d9b 60a8 |` | Indirect_Literal Discrete,0xe44,{0x00000000, 0x00004000}
0d9c e011 | | Load 0x0,0x11
0d9d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d9e e017 | | Load 0x0,0x17
0d9f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0da0 e018 | | Load 0x0,0x18
0da1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0da2 4801 |H | Short_Literal 0x1
0da3 4800 |H | Short_Literal 0x0
0da4 e017 | | Load 0x0,0x17
0da5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0da6 e00c | | Load 0x0,0xc
0da7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0da8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0da9 e5ff | | Load 0x2,-0x1
0daa 0092 172c | ,| Action Push_String_Extended,0x172c ; ".??'c(library)"
0dac 01cc | | Execute Vector,Catenate
0dad e00c | | Load 0x0,0xc
0dae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0daf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0db0 c404 | | Store 0x2,0x4
0db1 c402 | | Store 0x2,0x2
0db2 e402 | | Load 0x2,0x2
0db3 6819 |h | Jump_Zero 0xdcd
0db4 e5fe | | Load 0x2,-0x2
0db5 4801 |H | Short_Literal 0x1
0db6 4801 |H | Short_Literal 0x1
0db7 e00b | | Load 0x0,0xb
0db8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0db9 035b | [ | Declare_Type Array,Constrained
0dba 0337 | 7 | Declare_Variable Array
0dbb e5ff | | Load 0x2,-0x1
0dbc 0092 172d | -| Action Push_String_Extended,0x172d ; "??'c(library)"
0dbe 01cc | | Execute Vector,Catenate
0dbf e00b | | Load 0x0,0xb
0dc0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dc1 e00b | | Load 0x0,0xb
0dc2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dc3 0119 | | Execute Any,Check_In_Formal_Type
0dc4 4801 |H | Short_Literal 0x1
0dc5 00da | | Load_Top At_Offset_2
0dc6 01d6 | | Execute Vector,Field_Write
0dc7 6078 |`x | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197}
0dc8 e001 | | Load 0x0,0x1
0dc9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0dca 6075 |`u | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197}
0dcb a5fc | | Store_Unchecked 0x2,-0x4
0dcc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0dcd 00da | | Load_Top At_Offset_2
0dce e00c | | Load 0x0,0xc
0dcf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0dd0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0dd1 6819 |h | Jump_Zero 0xdeb
0dd2 e5fe | | Load 0x2,-0x2
0dd3 4801 |H | Short_Literal 0x1
0dd4 4801 |H | Short_Literal 0x1
0dd5 e00b | | Load 0x0,0xb
0dd6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0dd7 035b | [ | Declare_Type Array,Constrained
0dd8 0337 | 7 | Declare_Variable Array
0dd9 e5ff | | Load 0x2,-0x1
0dda 0092 172d | -| Action Push_String_Extended,0x172d ; "??'c(library)"
0ddc 01cc | | Execute Vector,Catenate
0ddd e00b | | Load 0x0,0xb
0dde 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ddf e00b | | Load 0x0,0xb
0de0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0de1 0119 | | Execute Any,Check_In_Formal_Type
0de2 4801 |H | Short_Literal 0x1
0de3 00da | | Load_Top At_Offset_2
0de4 01d6 | | Execute Vector,Field_Write
0de5 605a |`Z | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197}
0de6 e001 | | Load 0x0,0x1
0de7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0de8 6057 |`W | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197}
0de9 a5fc | | Store_Unchecked 0x2,-0x4
0dea 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0deb 00cf | | Action Mark_Auxiliary
0dec 7832 |x2 | Jump 0xe1f
0ded e00c | | Load 0x0,0xc
0dee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0def 00db | | Load_Top At_Offset_3
0df0 0120 | | Execute Any,Is_Value
0df1 6803 |h | Jump_Zero 0xdf5
0df2 e00c | | Load 0x0,0xc
0df3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0df4 7801 |x | Jump 0xdf6
0df5 00db | | Load_Top At_Offset_3
0df6 e404 | | Load 0x2,0x4
0df7 e00c | | Load 0x0,0xc
0df8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0df9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0dfa c405 | | Store 0x2,0x5
0dfb c403 | | Store 0x2,0x3
0dfc e403 | | Load 0x2,0x3
0dfd 6819 |h | Jump_Zero 0xe17
0dfe e5fe | | Load 0x2,-0x2
0dff 4801 |H | Short_Literal 0x1
0e00 4801 |H | Short_Literal 0x1
0e01 e00b | | Load 0x0,0xb
0e02 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e03 035b | [ | Declare_Type Array,Constrained
0e04 0337 | 7 | Declare_Variable Array
0e05 e5ff | | Load 0x2,-0x1
0e06 0092 172d | -| Action Push_String_Extended,0x172d ; "??'c(library)"
0e08 01cc | | Execute Vector,Catenate
0e09 e00b | | Load 0x0,0xb
0e0a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0e0b e00b | | Load 0x0,0xb
0e0c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e0d 0119 | | Execute Any,Check_In_Formal_Type
0e0e 4801 |H | Short_Literal 0x1
0e0f 00da | | Load_Top At_Offset_2
0e10 01d6 | | Execute Vector,Field_Write
0e11 602e |`. | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197}
0e12 e001 | | Load 0x0,0x1
0e13 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0e14 602b |`+ | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197}
0e15 a5fc | | Store_Unchecked 0x2,-0x4
0e16 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0e17 00da | | Load_Top At_Offset_2
0e18 8406 | | Call 0x2,0x6
0e19 00db | | Load_Top At_Offset_3
0e1a e00c | | Load 0x0,0xc
0e1b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e1c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0e1d c404 | | Store 0x2,0x4
0e1e 00c9 | | Action Pop_Auxiliary_Loop
0e1f 00db | | Load_Top At_Offset_3
0e20 e00c | | Load 0x0,0xc
0e21 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e22 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0e23 6fc9 |o | Jump_Zero 0xded
0e24 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0e25 TRAP_0d80:
0e25 0007 | | Action Break_Optional
0e26 e5fe | | Load 0x2,-0x2
0e27 4801 |H | Short_Literal 0x1
0e28 4801 |H | Short_Literal 0x1
0e29 e00b | | Load 0x0,0xb
0e2a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e2b 035b | [ | Declare_Type Array,Constrained
0e2c 0337 | 7 | Declare_Variable Array
0e2d e5ff | | Load 0x2,-0x1
0e2e e00b | | Load 0x0,0xb
0e2f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0e30 e00b | | Load 0x0,0xb
0e31 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e32 0119 | | Execute Any,Check_In_Formal_Type
0e33 4801 |H | Short_Literal 0x1
0e34 00da | | Load_Top At_Offset_2
0e35 01d6 | | Execute Vector,Field_Write
0e36 6005 |` | Indirect_Literal Discrete,0xe3c,{0x00000000, 0x000081b6}
0e37 e001 | | Load 0x0,0x1
0e38 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0e39 6002 |` | Indirect_Literal Discrete,0xe3c,{0x00000000, 0x000081b6}
0e3a a5fc | | Store_Unchecked 0x2,-0x4
0e3b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0e3c 0000 0000 | | .LITERAL {0x00000000, 0x000081b6}
0e40 0000 0000 | | .LITERAL {0x00000000, 0x00008197}
0e44 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0e48 ; --------------------------------------------------------------------------------------
0e48 ; SUBPROGRAM
0e48 ; --------------------------------------------------------------------------------------
0e48 0e63 | c | .CONST 0x0e63 ; Address of begin
0e49 0ec6 | | .CONST 0x0ec6 ; Address of exception handler
0e4a 0009 | | .CONST 0x0009 ; Number of locals
0e4b INIT_0e48:
0e4b e00c | | Load 0x0,0xc
0e4c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e4d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e4e e00c | | Load 0x0,0xc
0e4f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0e50 0092 172e | .| Action Push_String_Extended,0x172e ; "_secondary_"
0e52 e00c | | Load 0x0,0xc
0e53 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e54 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0e55 02c7 | | Declare_Variable Any
0e56 00d8 | | Load_Top At_Offset_0
0e57 1c00 | | Execute_Immediate Run_Utility,0x0
0e58 e00c | | Load 0x0,0xc
0e59 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e5a 02c7 | | Declare_Variable Any
0e5b 00d8 | | Load_Top At_Offset_0
0e5c 1c00 | | Execute_Immediate Run_Utility,0x0
0e5d 029f 1533 | 3| Declare_Subprogram INIT_1530,For_Call
0e5f 029f 1563 | c| Declare_Subprogram INIT_1560,For_Call
0e61 029f 158b | | Declare_Subprogram INIT_1588,For_Call
0e63 BODY_0e48:
0e63 4800 |H | Short_Literal 0x0
0e64 a5fd | | Store_Unchecked 0x2,-0x3
0e65 e00c | | Load 0x0,0xc
0e66 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e67 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e68 e405 | | Load 0x2,0x5
0e69 67da |g | Indirect_Literal Discrete,0xe44,{0x00000000, 0x00004000}
0e6a e011 | | Load 0x0,0x11
0e6b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e6c e017 | | Load 0x0,0x17
0e6d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e6e e018 | | Load 0x0,0x18
0e6f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e70 4801 |H | Short_Literal 0x1
0e71 4800 |H | Short_Literal 0x0
0e72 e017 | | Load 0x0,0x17
0e73 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0e74 e00c | | Load 0x0,0xc
0e75 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e76 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0e77 e5ff | | Load 0x2,-0x1
0e78 0092 172f | /| Action Push_String_Extended,0x172f ; ".??[@_secondary_@_spec,@_secondary_@_body]"
0e7a 01cc | | Execute Vector,Catenate
0e7b e00c | | Load 0x0,0xc
0e7c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e7d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0e7e c405 | | Store 0x2,0x5
0e7f c402 | | Store 0x2,0x2
0e80 e402 | | Load 0x2,0x2
0e81 6803 |h | Jump_Zero 0xe85
0e82 4800 |H | Short_Literal 0x0
0e83 a5fd | | Store_Unchecked 0x2,-0x3
0e84 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0e85 e405 | | Load 0x2,0x5
0e86 e00c | | Load 0x0,0xc
0e87 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e88 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0e89 6802 |h | Jump_Zero 0xe8c
0e8a 4800 |H | Short_Literal 0x0
0e8b a5fd | | Store_Unchecked 0x2,-0x3
0e8c 00cf | | Action Mark_Auxiliary
0e8d 7832 |x2 | Jump 0xec0
0e8e e00c | | Load 0x0,0xc
0e8f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0e90 e406 | | Load 0x2,0x6
0e91 0120 | | Execute Any,Is_Value
0e92 6803 |h | Jump_Zero 0xe96
0e93 e00c | | Load 0x0,0xc
0e94 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e95 7801 |x | Jump 0xe97
0e96 e406 | | Load 0x2,0x6
0e97 e405 | | Load 0x2,0x5
0e98 e00c | | Load 0x0,0xc
0e99 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0e9a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0e9b c406 | | Store 0x2,0x6
0e9c c403 | | Store 0x2,0x3
0e9d e403 | | Load 0x2,0x3
0e9e 6819 |h | Jump_Zero 0xeb8
0e9f 67a0 |g | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197}
0ea0 a5fd | | Store_Unchecked 0x2,-0x3
0ea1 e5fe | | Load 0x2,-0x2
0ea2 4801 |H | Short_Literal 0x1
0ea3 4801 |H | Short_Literal 0x1
0ea4 e00b | | Load 0x0,0xb
0ea5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ea6 035b | [ | Declare_Type Array,Constrained
0ea7 0337 | 7 | Declare_Variable Array
0ea8 e5ff | | Load 0x2,-0x1
0ea9 0092 172f | /| Action Push_String_Extended,0x172f ; ".??[@_secondary_@_spec,@_secondary_@_body]"
0eab 01cc | | Execute Vector,Catenate
0eac e00b | | Load 0x0,0xb
0ead 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0eae e00b | | Load 0x0,0xb
0eaf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0eb0 0119 | | Execute Any,Check_In_Formal_Type
0eb1 4801 |H | Short_Literal 0x1
0eb2 00da | | Load_Top At_Offset_2
0eb3 01d6 | | Execute Vector,Field_Write
0eb4 678b |g | Indirect_Literal Discrete,0xe40,{0x00000000, 0x00008197}
0eb5 e001 | | Load 0x0,0x1
0eb6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0eb7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0eb8 e406 | | Load 0x2,0x6
0eb9 8409 | | Call 0x2,0x9
0eba e405 | | Load 0x2,0x5
0ebb e00c | | Load 0x0,0xc
0ebc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ebd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0ebe c405 | | Store 0x2,0x5
0ebf 00c9 | | Action Pop_Auxiliary_Loop
0ec0 e405 | | Load 0x2,0x5
0ec1 e00c | | Load 0x0,0xc
0ec2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ec3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0ec4 6fc9 |o | Jump_Zero 0xe8e
0ec5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ec6 TRAP_0e48:
0ec6 0007 | | Action Break_Optional
0ec7 e5fe | | Load 0x2,-0x2
0ec8 4801 |H | Short_Literal 0x1
0ec9 4801 |H | Short_Literal 0x1
0eca e00b | | Load 0x0,0xb
0ecb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ecc 035b | [ | Declare_Type Array,Constrained
0ecd 0337 | 7 | Declare_Variable Array
0ece e5ff | | Load 0x2,-0x1
0ecf e00b | | Load 0x0,0xb
0ed0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ed1 e00b | | Load 0x0,0xb
0ed2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ed3 0119 | | Execute Any,Check_In_Formal_Type
0ed4 4801 |H | Short_Literal 0x1
0ed5 00da | | Load_Top At_Offset_2
0ed6 01d6 | | Execute Vector,Field_Write
0ed7 6008 |` | Indirect_Literal Discrete,0xee0,{0x00000000, 0x000081b7}
0ed8 e001 | | Load 0x0,0x1
0ed9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0eda 6005 |` | Indirect_Literal Discrete,0xee0,{0x00000000, 0x000081b7}
0edb a5fd | | Store_Unchecked 0x2,-0x3
0edc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0edd 0000 0000 | | .XXX[0x3]
0edf 0000 | |
0ee0 0000 0000 | | .LITERAL {0x00000000, 0x000081b7}
0ee4 0000 0000 | | .BLANK 0000[0x4]
0ee8 ; --------------------------------------------------------------------------------------
0ee8 ; SUBPROGRAM
0ee8 ; --------------------------------------------------------------------------------------
0ee8 0eeb | | .CONST 0x0eeb ; Address of begin
0ee9 0ef8 | | .CONST 0x0ef8 ; Address of exception handler
0eea 0001 | | .CONST 0x0001 ; Number of locals
0eeb BODY_0ee8:
0eeb INIT_0ee8:
0eeb 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>"
0eed 0092 1720 | | Action Push_String_Extended,0x1720 ; "<DIRECTORIES>"
0eef e5ff | | Load 0x2,-0x1
0ef0 0092 172f | /| Action Push_String_Extended,0x172f ; ".??[@_secondary_@_spec,@_secondary_@_body]"
0ef2 01cc | | Execute Vector,Catenate
0ef3 e012 | | Load 0x0,0x12
0ef4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ef5 4800 |H | Short_Literal 0x0
0ef6 a5fd | | Store_Unchecked 0x2,-0x3
0ef7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ef8 TRAP_0ee8:
0ef8 0007 | | Action Break_Optional
0ef9 e5fe | | Load 0x2,-0x2
0efa 4801 |H | Short_Literal 0x1
0efb 4801 |H | Short_Literal 0x1
0efc e00b | | Load 0x0,0xb
0efd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0efe 035b | [ | Declare_Type Array,Constrained
0eff 0337 | 7 | Declare_Variable Array
0f00 e5ff | | Load 0x2,-0x1
0f01 e00b | | Load 0x0,0xb
0f02 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0f03 e00b | | Load 0x0,0xb
0f04 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f05 0119 | | Execute Any,Check_In_Formal_Type
0f06 4801 |H | Short_Literal 0x1
0f07 00da | | Load_Top At_Offset_2
0f08 01d6 | | Execute Vector,Field_Write
0f09 6006 |` | Indirect_Literal Discrete,0xf10,{0x00000000, 0x000081b5}
0f0a e001 | | Load 0x0,0x1
0f0b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0f0c 6003 |` | Indirect_Literal Discrete,0xf10,{0x00000000, 0x000081b5}
0f0d a5fd | | Store_Unchecked 0x2,-0x3
0f0e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f0f 0000 | | .XXX[0x1]
0f10 0000 0000 | | .LITERAL {0x00000000, 0x000081b5}
0f14 0000 0000 | | .BLANK 0000[0x4]
0f18 ; --------------------------------------------------------------------------------------
0f18 ; SUBPROGRAM
0f18 ; --------------------------------------------------------------------------------------
0f18 0f2d | - | .CONST 0x0f2d ; Address of begin
0f19 0004 | | .CONST 0x0004 ; Address of exception handler
0f1a 0007 | | .CONST 0x0007 ; Number of locals
0f1b INIT_0f18:
0f1b e00c | | Load 0x0,0xc
0f1c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0f1d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0f1e 02c7 | | Declare_Variable Any
0f1f 00d8 | | Load_Top At_Offset_0
0f20 1c00 | | Execute_Immediate Run_Utility,0x0
0f21 e00c | | Load 0x0,0xc
0f22 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f23 02c7 | | Declare_Variable Any
0f24 00d8 | | Load_Top At_Offset_0
0f25 1c00 | | Execute_Immediate Run_Utility,0x0
0f26 e001 | | Load 0x0,0x1
0f27 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f28 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f29 00e2 | | Load_Encached Integer_Cache
0f2a 00e1 | | Load_Encached Boolean_Cache
0f2b 029f 15e3 | | Declare_Subprogram INIT_15e0,For_Call
0f2d BODY_0f18:
0f2d e5ff | | Load 0x2,-0x1
0f2e e009 | | Load 0x0,0x9
0f2f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0f30 7001 |p | Jump_Nonzero 0xf32
0f31 8407 | | Call 0x2,0x7
0f32 4800 |H | Short_Literal 0x0
0f33 a5fc | | Store_Unchecked 0x2,-0x4
0f34 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f35 0000 0000 | | .XXX[0x3]
0f37 0000 | |
0f38 ; --------------------------------------------------------------------------------------
0f38 ; SUBPROGRAM
0f38 ; --------------------------------------------------------------------------------------
0f38 0f3b | ; | .CONST 0x0f3b ; Address of begin
0f39 0f40 | @ | .CONST 0x0f40 ; Address of exception handler
0f3a 0001 | | .CONST 0x0001 ; Number of locals
0f3b BODY_0f38:
0f3b INIT_0f38:
0f3b 00da | | Load_Top At_Offset_2
0f3c e019 | | Load 0x0,0x19
0f3d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f3e c5ff | | Store 0x2,-0x1
0f3f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f40 TRAP_0f38:
0f40 0007 | | Action Break_Optional
0f41 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f42 0000 0000 | | .BLANK 0000[0x6]
0f48 ; --------------------------------------------------------------------------------------
0f48 ; SUBPROGRAM
0f48 ; --------------------------------------------------------------------------------------
0f48 0f4b | K | .CONST 0x0f4b ; Address of begin
0f49 0f50 | P | .CONST 0x0f50 ; Address of exception handler
0f4a 0001 | | .CONST 0x0001 ; Number of locals
0f4b BODY_0f48:
0f4b INIT_0f48:
0f4b 00da | | Load_Top At_Offset_2
0f4c e014 | | Load 0x0,0x14
0f4d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0f4e c5ff | | Store 0x2,-0x1
0f4f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f50 TRAP_0f48:
0f50 0007 | | Action Break_Optional
0f51 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f52 0000 0000 | | .BLANK 0000[0x6]
0f58 ; --------------------------------------------------------------------------------------
0f58 ; SUBPROGRAM
0f58 ; --------------------------------------------------------------------------------------
0f58 0f60 | ` | .CONST 0x0f60 ; Address of begin
0f59 0f70 | p | .CONST 0x0f70 ; Address of exception handler
0f5a 0002 | | .CONST 0x0002 ; Number of locals
0f5b INIT_0f58:
0f5b e019 | | Load 0x0,0x19
0f5c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f5d 02c7 | | Declare_Variable Any
0f5e 00d8 | | Load_Top At_Offset_0
0f5f 1c00 | | Execute_Immediate Run_Utility,0x0
0f60 BODY_0f58:
0f60 00d8 | | Load_Top At_Offset_0
0f61 e011 | | Load 0x0,0x11
0f62 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f63 e00c | | Load 0x0,0xc
0f64 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0f65 00ea | | Load_Encached Null_String_Cache
0f66 e5ff | | Load 0x2,-0x1
0f67 4801 |H | Short_Literal 0x1
0f68 e019 | | Load 0x0,0x19
0f69 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f6a c402 | | Store 0x2,0x2
0f6b 00d8 | | Load_Top At_Offset_0
0f6c e019 | | Load 0x0,0x19
0f6d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0f6e c402 | | Store 0x2,0x2
0f6f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f70 TRAP_0f58:
0f70 0007 | | Action Break_Optional
0f71 00d9 | | Load_Top At_Offset_1
0f72 8292 | | Call 0x1,0x92
0f73 c402 | | Store 0x2,0x2
0f74 e5fe | | Load 0x2,-0x2
0f75 4801 |H | Short_Literal 0x1
0f76 4801 |H | Short_Literal 0x1
0f77 e00b | | Load 0x0,0xb
0f78 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f79 035b | [ | Declare_Type Array,Constrained
0f7a 0337 | 7 | Declare_Variable Array
0f7b e5ff | | Load 0x2,-0x1
0f7c e00b | | Load 0x0,0xb
0f7d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0f7e e00b | | Load 0x0,0xb
0f7f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f80 0119 | | Execute Any,Check_In_Formal_Type
0f81 4801 |H | Short_Literal 0x1
0f82 00da | | Load_Top At_Offset_2
0f83 01d6 | | Execute Vector,Field_Write
0f84 6007 |` | Indirect_Literal Discrete,0xf8c,{0x00000000, 0x00008196}
0f85 e001 | | Load 0x0,0x1
0f86 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0f87 e001 | | Load 0x0,0x1
0f88 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0f89 0257 | W | Execute Discrete,Raise
0f8a 0000 0000 | | .XXX[0x2]
0f8c 0000 0000 | | .LITERAL {0x00000000, 0x00008196}
0f90 ; --------------------------------------------------------------------------------------
0f90 ; SUBPROGRAM
0f90 ; --------------------------------------------------------------------------------------
0f90 0f93 | | .CONST 0x0f93 ; Address of begin
0f91 0004 | | .CONST 0x0004 ; Address of exception handler
0f92 0001 | | .CONST 0x0001 ; Number of locals
0f93 BODY_0f90:
0f93 INIT_0f90:
0f93 4800 |H | Short_Literal 0x0
0f94 4801 |H | Short_Literal 0x1
0f95 4801 |H | Short_Literal 0x1
0f96 6005 |` | Indirect_Literal Discrete,0xf9c,{0x00000000, 0x0000076d}
0f97 e007 | | Load 0x0,0x7
0f98 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0f99 00ca | | Action Exit_Nullary_Function
0f9a 0000 0000 | | .XXX[0x2]
0f9c 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
0fa0 ; --------------------------------------------------------------------------------------
0fa0 ; SUBPROGRAM
0fa0 ; --------------------------------------------------------------------------------------
0fa0 0fa6 | | .CONST 0x0fa6 ; Address of begin
0fa1 0004 | | .CONST 0x0004 ; Address of exception handler
0fa2 0002 | | .CONST 0x0002 ; Number of locals
0fa3 INIT_0fa0:
0fa3 00da | | Load_Top At_Offset_2
0fa4 e009 | | Load 0x0,0x9
0fa5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0fa6 BODY_0fa0:
0fa6 00d8 | | Load_Top At_Offset_0
0fa7 0092 1730 | 0| Action Push_String_Extended,0x1730 ; ".<"
0fa9 01cc | | Execute Vector,Catenate
0faa e290 | | Load 0x1,0x90
0fab 01cc | | Execute Vector,Catenate
0fac 0092 1731 | 1| Action Push_String_Extended,0x1731 ; "state>"
0fae 01cc | | Execute Vector,Catenate
0faf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0fb0 ; --------------------------------------------------------------------------------------
0fb0 ; SUBPROGRAM
0fb0 ; --------------------------------------------------------------------------------------
0fb0 0fb3 | | .CONST 0x0fb3 ; Address of begin
0fb1 0004 | | .CONST 0x0004 ; Address of exception handler
0fb2 0001 | | .CONST 0x0001 ; Number of locals
0fb3 BODY_0fb0:
0fb3 INIT_0fb0:
0fb3 00da | | Load_Top At_Offset_2
0fb4 01db | | Execute Vector,Length
0fb5 0c02 | | Execute_Immediate Greater_Equal,0x2
0fb6 6810 |h | Jump_Zero 0xfc7
0fb7 4801 |H | Short_Literal 0x1
0fb8 00db | | Load_Top At_Offset_3
0fb9 01d7 | | Execute Vector,Field_Read
0fba 0f20 | | Execute_Immediate Equal,0x20
0fbb 680b |h | Jump_Zero 0xfc7
0fbc 4802 |H | Short_Literal 0x2
0fbd 00db | | Load_Top At_Offset_3
0fbe 01db | | Execute Vector,Length
0fbf 00d8 | | Load_Top At_Offset_0
0fc0 00e2 | | Load_Encached Integer_Cache
0fc1 0260 | ` | Execute Discrete,In_Type
0fc2 7001 |p | Jump_Nonzero 0xfc4
0fc3 0801 | | Execute_Immediate Raise,0x1
0fc4 e5ff | | Load 0x2,-0x1
0fc5 01cf | | Execute Vector,Slice_Read
0fc6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0fc7 00da | | Load_Top At_Offset_2
0fc8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0fc9 0000 0000 | | .BLANK 0000[0x7]
0fd0 ; --------------------------------------------------------------------------------------
0fd0 ; SUBPROGRAM
0fd0 ; --------------------------------------------------------------------------------------
0fd0 0fd6 | | .CONST 0x0fd6 ; Address of begin
0fd1 0004 | | .CONST 0x0004 ; Address of exception handler
0fd2 0002 | | .CONST 0x0002 ; Number of locals
0fd3 INIT_0fd0:
0fd3 00da | | Load_Top At_Offset_2
0fd4 e009 | | Load 0x0,0x9
0fd5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0fd6 BODY_0fd0:
0fd6 00d8 | | Load_Top At_Offset_0
0fd7 0092 1730 | 0| Action Push_String_Extended,0x1730 ; ".<"
0fd9 01cc | | Execute Vector,Catenate
0fda e290 | | Load 0x1,0x90
0fdb 01cc | | Execute Vector,Catenate
0fdc e5fe | | Load 0x2,-0x2
0fdd 01cc | | Execute Vector,Catenate
0fde 0092 1732 | 2| Action Push_String_Extended,0x1732 ; ">"
0fe0 01cc | | Execute Vector,Catenate
0fe1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0fe2 0000 0000 | | .BLANK 0000[0x6]
0fe8 ; --------------------------------------------------------------------------------------
0fe8 ; SUBPROGRAM
0fe8 ; --------------------------------------------------------------------------------------
0fe8 0ff3 | | .CONST 0x0ff3 ; Address of begin
0fe9 0004 | | .CONST 0x0004 ; Address of exception handler
0fea 0003 | | .CONST 0x0003 ; Number of locals
0feb INIT_0fe8:
0feb e00c | | Load 0x0,0xc
0fec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0fed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fee e00c | | Load 0x0,0xc
0fef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ff0 02c7 | | Declare_Variable Any
0ff1 00d8 | | Load_Top At_Offset_0
0ff2 1c00 | | Execute_Immediate Run_Utility,0x0
0ff3 BODY_0fe8:
0ff3 e00c | | Load 0x0,0xc
0ff4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0ff5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ff6 00d9 | | Load_Top At_Offset_1
0ff7 0120 | | Execute Any,Is_Value
0ff8 6803 |h | Jump_Zero 0xffc
0ff9 e00c | | Load 0x0,0xc
0ffa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ffb 7801 |x | Jump 0xffd
0ffc 00d9 | | Load_Top At_Offset_1
0ffd 6016 |` | Indirect_Literal Discrete,0x1014,{0x00000000, 0x00004000}
0ffe e011 | | Load 0x0,0x11
0fff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1000 e017 | | Load 0x0,0x17
1001 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1002 e00c | | Load 0x0,0xc
1003 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1004 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1005 e5ff | | Load 0x2,-0x1
1006 e00c | | Load 0x0,0xc
1007 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1008 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
1009 c403 | | Store 0x2,0x3
100a 005a | Z | Store_Top Discrete,At_Offset_2
100b 00d9 | | Load_Top At_Offset_1
100c 6803 |h | Jump_Zero 0x1010
100d e00c | | Load 0x0,0xc
100e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
100f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1010 00d8 | | Load_Top At_Offset_0
1011 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1012 0000 0000 | | .XXX[0x2]
1014 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1018 ; --------------------------------------------------------------------------------------
1018 ; SUBPROGRAM
1018 ; --------------------------------------------------------------------------------------
1018 1023 | # | .CONST 0x1023 ; Address of begin
1019 0004 | | .CONST 0x0004 ; Address of exception handler
101a 0003 | | .CONST 0x0003 ; Number of locals
101b INIT_1018:
101b e00c | | Load 0x0,0xc
101c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
101d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
101e e00c | | Load 0x0,0xc
101f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1020 02c7 | | Declare_Variable Any
1021 00d8 | | Load_Top At_Offset_0
1022 1c00 | | Execute_Immediate Run_Utility,0x0
1023 BODY_1018:
1023 e00c | | Load 0x0,0xc
1024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1025 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1026 00d9 | | Load_Top At_Offset_1
1027 0120 | | Execute Any,Is_Value
1028 6803 |h | Jump_Zero 0x102c
1029 e00c | | Load 0x0,0xc
102a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
102b 7801 |x | Jump 0x102d
102c 00d9 | | Load_Top At_Offset_1
102d 67e6 |g | Indirect_Literal Discrete,0x1014,{0x00000000, 0x00004000}
102e e011 | | Load 0x0,0x11
102f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1030 e017 | | Load 0x0,0x17
1031 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1032 e00c | | Load 0x0,0xc
1033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1034 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1035 e5ff | | Load 0x2,-0x1
1036 e00c | | Load 0x0,0xc
1037 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1038 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
1039 c403 | | Store 0x2,0x3
103a 005a | Z | Store_Top Discrete,At_Offset_2
103b 00d9 | | Load_Top At_Offset_1
103c 6816 |h | Jump_Zero 0x1053
103d e5fe | | Load 0x2,-0x2
103e 4801 |H | Short_Literal 0x1
103f 4801 |H | Short_Literal 0x1
1040 e00b | | Load 0x0,0xb
1041 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1042 035b | [ | Declare_Type Array,Constrained
1043 0337 | 7 | Declare_Variable Array
1044 e5ff | | Load 0x2,-0x1
1045 e00b | | Load 0x0,0xb
1046 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1047 e00b | | Load 0x0,0xb
1048 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1049 0119 | | Execute Any,Check_In_Formal_Type
104a 4801 |H | Short_Literal 0x1
104b 00da | | Load_Top At_Offset_2
104c 01d6 | | Execute Vector,Field_Write
104d 600a |` | Indirect_Literal Discrete,0x1058,{0x00000000, 0x00008197}
104e e001 | | Load 0x0,0x1
104f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1050 e001 | | Load 0x0,0x1
1051 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1052 0257 | W | Execute Discrete,Raise
1053 00d8 | | Load_Top At_Offset_0
1054 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1055 0000 0000 | | .XXX[0x3]
1057 0000 | |
1058 0000 0000 | | .LITERAL {0x00000000, 0x00008197}
105c 0000 0000 | | .BLANK 0000[0x4]
1060 ; --------------------------------------------------------------------------------------
1060 ; SUBPROGRAM
1060 ; --------------------------------------------------------------------------------------
1060 106c | l | .CONST 0x106c ; Address of begin
1061 0004 | | .CONST 0x0004 ; Address of exception handler
1062 0003 | | .CONST 0x0003 ; Number of locals
1063 INIT_1060:
1063 e00c | | Load 0x0,0xc
1064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1065 1b18 | | Execute Package,Field_Read,Field_Number 0x18
1066 02c7 | | Declare_Variable Any
1067 00d8 | | Load_Top At_Offset_0
1068 1c00 | | Execute_Immediate Run_Utility,0x0
1069 e00c | | Load 0x0,0xc
106a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
106b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
106c BODY_1060:
106c e00c | | Load 0x0,0xc
106d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
106e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
106f 00da | | Load_Top At_Offset_2
1070 601f |` | Indirect_Literal Discrete,0x1090,{0x00000000, 0x00004000}
1071 e011 | | Load 0x0,0x11
1072 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1073 e017 | | Load 0x0,0x17
1074 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1075 e018 | | Load 0x0,0x18
1076 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1077 4801 |H | Short_Literal 0x1
1078 4800 |H | Short_Literal 0x0
1079 e017 | | Load 0x0,0x17
107a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
107b e00c | | Load 0x0,0xc
107c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
107d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
107e e5ff | | Load 0x2,-0x1
107f e00c | | Load 0x0,0xc
1080 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1081 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1082 c402 | | Store 0x2,0x2
1083 0059 | Y | Store_Top Discrete,At_Offset_1
1084 00d8 | | Load_Top At_Offset_0
1085 0e00 | | Execute_Immediate Not_Equal,0x0
1086 00d9 | | Load_Top At_Offset_1
1087 0e03 | | Execute_Immediate Not_Equal,0x3
1088 0279 | y | Execute Discrete,And
1089 6804 |h | Jump_Zero 0x108e
108a e00c | | Load 0x0,0xc
108b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
108c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
108d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
108e 00d9 | | Load_Top At_Offset_1
108f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1090 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1094 0000 0000 | | .BLANK 0000[0x4]
1098 ; --------------------------------------------------------------------------------------
1098 ; SUBPROGRAM
1098 ; --------------------------------------------------------------------------------------
1098 109b | | .CONST 0x109b ; Address of begin
1099 0004 | | .CONST 0x0004 ; Address of exception handler
109a 0001 | | .CONST 0x0001 ; Number of locals
109b BODY_1098:
109b INIT_1098:
109b 4801 |H | Short_Literal 0x1
109c 0092 1733 | 3| Action Push_String_Extended,0x1733 ; "<DEFAULT>"
109e e5ff | | Load 0x2,-0x1
109f e01a | | Load 0x0,0x1a
10a0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
10a1 6802 |h | Jump_Zero 0x10a4
10a2 00db | | Load_Top At_Offset_3
10a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
10a4 00da | | Load_Top At_Offset_2
10a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
10a6 0000 0000 | | .XXX[0x2]
10a8 ; --------------------------------------------------------------------------------------
10a8 ; SUBPROGRAM
10a8 ; --------------------------------------------------------------------------------------
10a8 10b2 | | .CONST 0x10b2 ; Address of begin
10a9 0004 | | .CONST 0x0004 ; Address of exception handler
10aa 0003 | | .CONST 0x0003 ; Number of locals
10ab INIT_10a8:
10ab e00c | | Load 0x0,0xc
10ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10ad 02c7 | | Declare_Variable Any
10ae 00d8 | | Load_Top At_Offset_0
10af 1c00 | | Execute_Immediate Run_Utility,0x0
10b0 e00c | | Load 0x0,0xc
10b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10b2 BODY_10a8:
10b2 e00c | | Load 0x0,0xc
10b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10b4 00da | | Load_Top At_Offset_2
10b5 0120 | | Execute Any,Is_Value
10b6 6803 |h | Jump_Zero 0x10ba
10b7 e00c | | Load 0x0,0xc
10b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10b9 7801 |x | Jump 0x10bb
10ba 00da | | Load_Top At_Offset_2
10bb e5ff | | Load 0x2,-0x1
10bc e00c | | Load 0x0,0xc
10bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
10be 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
10bf c402 | | Store 0x2,0x2
10c0 0059 | Y | Store_Top Discrete,At_Offset_1
10c1 00d8 | | Load_Top At_Offset_0
10c2 7004 |p | Jump_Nonzero 0x10c7
10c3 00d9 | | Load_Top At_Offset_1
10c4 e009 | | Load 0x0,0x9
10c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
10c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10c7 00ea | | Load_Encached Null_String_Cache
10c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10c9 0000 0000 | | .BLANK 0000[0x7]
10d0 ; --------------------------------------------------------------------------------------
10d0 ; SUBPROGRAM
10d0 ; --------------------------------------------------------------------------------------
10d0 10d3 | | .CONST 0x10d3 ; Address of begin
10d1 0004 | | .CONST 0x0004 ; Address of exception handler
10d2 0001 | | .CONST 0x0001 ; Number of locals
10d3 BODY_10d0:
10d3 INIT_10d0:
10d3 00da | | Load_Top At_Offset_2
10d4 e00c | | Load 0x0,0xc
10d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
10d6 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
10d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10d8 ; --------------------------------------------------------------------------------------
10d8 ; SUBPROGRAM
10d8 ; --------------------------------------------------------------------------------------
10d8 10db | | .CONST 0x10db ; Address of begin
10d9 0004 | | .CONST 0x0004 ; Address of exception handler
10da 0001 | | .CONST 0x0001 ; Number of locals
10db BODY_10d8:
10db INIT_10d8:
10db 4800 |H | Short_Literal 0x0
10dc 4800 |H | Short_Literal 0x0
10dd 4800 |H | Short_Literal 0x0
10de e5ff | | Load 0x2,-0x1
10df e008 | | Load 0x0,0x8
10e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
10e1 e008 | | Load 0x0,0x8
10e2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
10e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10e4 0000 0000 | | .BLANK 0000[0x4]
10e8 ; --------------------------------------------------------------------------------------
10e8 ; SUBPROGRAM
10e8 ; --------------------------------------------------------------------------------------
10e8 10eb | | .CONST 0x10eb ; Address of begin
10e9 0004 | | .CONST 0x0004 ; Address of exception handler
10ea 0001 | | .CONST 0x0001 ; Number of locals
10eb BODY_10e8:
10eb INIT_10e8:
10eb 00da | | Load_Top At_Offset_2
10ec e008 | | Load 0x0,0x8
10ed 1820 | | Execute Package,Field_Execute,Field_Number 0x20
10ee e008 | | Load 0x0,0x8
10ef 1817 | | Execute Package,Field_Execute,Field_Number 0x17
10f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10f1 0000 0000 | | .BLANK 0000[0x7]
10f8 ; --------------------------------------------------------------------------------------
10f8 ; SUBPROGRAM
10f8 ; --------------------------------------------------------------------------------------
10f8 10fb | | .CONST 0x10fb ; Address of begin
10f9 0004 | | .CONST 0x0004 ; Address of exception handler
10fa 0001 | | .CONST 0x0001 ; Number of locals
10fb BODY_10f8:
10fb INIT_10f8:
10fb 00da | | Load_Top At_Offset_2
10fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
10fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10fe 0000 0000 | | .XXX[0x2]
1100 ; --------------------------------------------------------------------------------------
1100 ; SUBPROGRAM
1100 ; --------------------------------------------------------------------------------------
1100 1103 | | .CONST 0x1103 ; Address of begin
1101 0004 | | .CONST 0x0004 ; Address of exception handler
1102 0001 | | .CONST 0x0001 ; Number of locals
1103 BODY_1100:
1103 INIT_1100:
1103 00da | | Load_Top At_Offset_2
1104 e5fe | | Load 0x2,-0x2
1105 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1106 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1107 0000 | | .XXX[0x1]
1108 ; --------------------------------------------------------------------------------------
1108 ; SUBPROGRAM
1108 ; --------------------------------------------------------------------------------------
1108 110b | | .CONST 0x110b ; Address of begin
1109 1115 | | .CONST 0x1115 ; Address of exception handler
110a 0001 | | .CONST 0x0001 ; Number of locals
110b BODY_1108:
110b INIT_1108:
110b e5fd | | Load 0x2,-0x3
110c 00ea | | Load_Encached Null_String_Cache
110d e5ff | | Load 0x2,-0x1
110e 4800 |H | Short_Literal 0x0
110f e014 | | Load 0x0,0x14
1110 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1111 c5fd | | Store 0x2,-0x3
1112 4801 |H | Short_Literal 0x1
1113 a5fc | | Store_Unchecked 0x2,-0x4
1114 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1115 TRAP_1108:
1115 00d8 | | Load_Top At_Offset_0
1116 0107 | | Execute Exception,Get_Name
1117 4920 |I | Short_Literal 0x120
1118 492f |I/ | Short_Literal 0x12f
1119 0262 | b | Execute Discrete,In_Range
111a 6803 |h | Jump_Zero 0x111e
111b 4800 |H | Short_Literal 0x0
111c a5fc | | Store_Unchecked 0x2,-0x4
111d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
111e e5fd | | Load 0x2,-0x3
111f 8293 | | Call 0x1,0x93
1120 c5fd | | Store 0x2,-0x3
1121 e5fe | | Load 0x2,-0x2
1122 4801 |H | Short_Literal 0x1
1123 4801 |H | Short_Literal 0x1
1124 e00b | | Load 0x0,0xb
1125 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1126 035b | [ | Declare_Type Array,Constrained
1127 0337 | 7 | Declare_Variable Array
1128 e5ff | | Load 0x2,-0x1
1129 e00b | | Load 0x0,0xb
112a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
112b e00b | | Load 0x0,0xb
112c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
112d 0119 | | Execute Any,Check_In_Formal_Type
112e 4801 |H | Short_Literal 0x1
112f 00da | | Load_Top At_Offset_2
1130 01d6 | | Execute Vector,Field_Write
1131 6006 |` | Indirect_Literal Discrete,0x1138,{0x00000000, 0x00008198}
1132 e001 | | Load 0x0,0x1
1133 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1134 e001 | | Load 0x0,0x1
1135 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1136 0257 | W | Execute Discrete,Raise
1137 0000 | | .XXX[0x1]
1138 0000 0000 | | .LITERAL {0x00000000, 0x00008198}
113c 0000 0000 | | .BLANK 0000[0x4]
1140 ; --------------------------------------------------------------------------------------
1140 ; SUBPROGRAM
1140 ; --------------------------------------------------------------------------------------
1140 1143 | C | .CONST 0x1143 ; Address of begin
1141 0004 | | .CONST 0x0004 ; Address of exception handler
1142 0001 | | .CONST 0x0001 ; Number of locals
1143 BODY_1140:
1143 INIT_1140:
1143 00db | | Load_Top At_Offset_3
1144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1145 00e1 | | Load_Encached Boolean_Cache
1146 011c | | Execute Any,Convert_Unchecked
1147 1c01 | | Execute_Immediate Run_Utility,0x1
1148 00db | | Load_Top At_Offset_3
1149 e014 | | Load 0x0,0x14
114a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
114b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
114c 0000 0000 | | .BLANK 0000[0x4]
1150 ; --------------------------------------------------------------------------------------
1150 ; SUBPROGRAM
1150 ; --------------------------------------------------------------------------------------
1150 1161 | a | .CONST 0x1161 ; Address of begin
1151 117e | ~ | .CONST 0x117e ; Address of exception handler
1152 0004 | | .CONST 0x0004 ; Number of locals
1153 INIT_1150:
1153 e014 | | Load 0x0,0x14
1154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1155 02c7 | | Declare_Variable Any
1156 00d8 | | Load_Top At_Offset_0
1157 1c00 | | Execute_Immediate Run_Utility,0x0
1158 e00c | | Load 0x0,0xc
1159 1b0f | | Execute Package,Field_Read,Field_Number 0xf
115a 02c7 | | Declare_Variable Any
115b e5fd | | Load 0x2,-0x3
115c e5ff | | Load 0x2,-0x1
115d 829a | | Call 0x1,0x9a
115e a403 | | Store_Unchecked 0x2,0x3
115f e001 | | Load 0x0,0x1
1160 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1161 BODY_1150:
1161 e001 | | Load 0x0,0x1
1162 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1163 e5fd | | Load 0x2,-0x3
1164 00db | | Load_Top At_Offset_3
1165 e009 | | Load 0x0,0x9
1166 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
1167 0059 | Y | Store_Top Discrete,At_Offset_1
1168 00da | | Load_Top At_Offset_2
1169 00ea | | Load_Encached Null_String_Cache
116a e5ff | | Load 0x2,-0x1
116b 4801 |H | Short_Literal 0x1
116c e014 | | Load 0x0,0x14
116d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
116e c402 | | Store 0x2,0x2
116f e5fe | | Load 0x2,-0x2
1170 00db | | Load_Top At_Offset_3
1171 82a4 | | Call 0x1,0xa4
1172 00da | | Load_Top At_Offset_2
1173 e014 | | Load 0x0,0x14
1174 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1175 c402 | | Store 0x2,0x2
1176 e001 | | Load 0x0,0x1
1177 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1178 e5fd | | Load 0x2,-0x3
1179 00db | | Load_Top At_Offset_3
117a e009 | | Load 0x0,0x9
117b 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
117c 0059 | Y | Store_Top Discrete,At_Offset_1
117d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
117e TRAP_1150:
117e 0007 | | Action Break_Optional
117f 00db | | Load_Top At_Offset_3
1180 8293 | | Call 0x1,0x93
1181 c402 | | Store 0x2,0x2
1182 e5fd | | Load 0x2,-0x3
1183 4801 |H | Short_Literal 0x1
1184 4801 |H | Short_Literal 0x1
1185 e00b | | Load 0x0,0xb
1186 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1187 035b | [ | Declare_Type Array,Constrained
1188 0337 | 7 | Declare_Variable Array
1189 e5ff | | Load 0x2,-0x1
118a e00b | | Load 0x0,0xb
118b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
118c e00b | | Load 0x0,0xb
118d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
118e 0119 | | Execute Any,Check_In_Formal_Type
118f 4801 |H | Short_Literal 0x1
1190 00da | | Load_Top At_Offset_2
1191 01d6 | | Execute Vector,Field_Write
1192 6005 |` | Indirect_Literal Discrete,0x1198,{0x00000000, 0x00008199}
1193 e001 | | Load 0x0,0x1
1194 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1195 e001 | | Load 0x0,0x1
1196 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1197 0257 | W | Execute Discrete,Raise
1198 0000 0000 | | .LITERAL {0x00000000, 0x00008199}
119c 0000 0000 | | .BLANK 0000[0x4]
11a0 ; --------------------------------------------------------------------------------------
11a0 ; SUBPROGRAM
11a0 ; --------------------------------------------------------------------------------------
11a0 11b1 | | .CONST 0x11b1 ; Address of begin
11a1 11d1 | | .CONST 0x11d1 ; Address of exception handler
11a2 0005 | | .CONST 0x0005 ; Number of locals
11a3 INIT_11a0:
11a3 e014 | | Load 0x0,0x14
11a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11a5 02c7 | | Declare_Variable Any
11a6 00d8 | | Load_Top At_Offset_0
11a7 1c00 | | Execute_Immediate Run_Utility,0x0
11a8 e28f | | Load 0x1,0x8f
11a9 0322 | " | Declare_Variable Record
11aa e00c | | Load 0x0,0xc
11ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11ac 02c7 | | Declare_Variable Any
11ad 00d8 | | Load_Top At_Offset_0
11ae 1c00 | | Execute_Immediate Run_Utility,0x0
11af e001 | | Load 0x0,0x1
11b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11b1 BODY_11a0:
11b1 00db | | Load_Top At_Offset_3
11b2 00ea | | Load_Encached Null_String_Cache
11b3 e5ff | | Load 0x2,-0x1
11b4 4801 |H | Short_Literal 0x1
11b5 e014 | | Load 0x0,0x14
11b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
11b7 c402 | | Store 0x2,0x2
11b8 4800 |H | Short_Literal 0x0
11b9 00db | | Load_Top At_Offset_3
11ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
11bb 00da | | Load_Top At_Offset_2
11bc e402 | | Load 0x2,0x2
11bd 82a4 | | Call 0x1,0xa4
11be 00db | | Load_Top At_Offset_3
11bf e014 | | Load 0x0,0x14
11c0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
11c1 c402 | | Store 0x2,0x2
11c2 e5fe | | Load 0x2,-0x2
11c3 e5ff | | Load 0x2,-0x1
11c4 829a | | Call 0x1,0x9a
11c5 c404 | | Store 0x2,0x4
11c6 e001 | | Load 0x0,0x1
11c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11c8 e5fe | | Load 0x2,-0x2
11c9 00db | | Load_Top At_Offset_3
11ca e009 | | Load 0x0,0x9
11cb 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
11cc 0059 | Y | Store_Top Discrete,At_Offset_1
11cd 00da | | Load_Top At_Offset_2
11ce e5fd | | Load 0x2,-0x3
11cf 017d | } | Execute Record,Structure_Write
11d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
11d1 TRAP_11a0:
11d1 0007 | | Action Break_Optional
11d2 e5fe | | Load 0x2,-0x2
11d3 4801 |H | Short_Literal 0x1
11d4 4801 |H | Short_Literal 0x1
11d5 e00b | | Load 0x0,0xb
11d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11d7 035b | [ | Declare_Type Array,Constrained
11d8 0337 | 7 | Declare_Variable Array
11d9 e5ff | | Load 0x2,-0x1
11da e00b | | Load 0x0,0xb
11db 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11dc e00b | | Load 0x0,0xb
11dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
11de 0119 | | Execute Any,Check_In_Formal_Type
11df 4801 |H | Short_Literal 0x1
11e0 00da | | Load_Top At_Offset_2
11e1 01d6 | | Execute Vector,Field_Write
11e2 6005 |` | Indirect_Literal Discrete,0x11e8,{0x00000000, 0x0000819a}
11e3 e001 | | Load 0x0,0x1
11e4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
11e5 e001 | | Load 0x0,0x1
11e6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
11e7 0257 | W | Execute Discrete,Raise
11e8 0000 0000 | | .LITERAL {0x00000000, 0x0000819a}
11ec 0000 0000 | | .BLANK 0000[0x4]
11f0 ; --------------------------------------------------------------------------------------
11f0 ; SUBPROGRAM
11f0 ; --------------------------------------------------------------------------------------
11f0 11f9 | | .CONST 0x11f9 ; Address of begin
11f1 1214 | | .CONST 0x1214 ; Address of exception handler
11f2 0003 | | .CONST 0x0003 ; Number of locals
11f3 INIT_11f0:
11f3 e014 | | Load 0x0,0x14
11f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11f5 02c7 | | Declare_Variable Any
11f6 00d8 | | Load_Top At_Offset_0
11f7 1c00 | | Execute_Immediate Run_Utility,0x0
11f8 00e1 | | Load_Encached Boolean_Cache
11f9 BODY_11f0:
11f9 00e1 | | Load_Encached Boolean_Cache
11fa 00da | | Load_Top At_Offset_2
11fb e5fe | | Load 0x2,-0x2
11fc e5ff | | Load 0x2,-0x1
11fd 82a3 | | Call 0x1,0xa3
11fe c402 | | Store 0x2,0x2
11ff 0059 | Y | Store_Top Discrete,At_Offset_1
1200 00d8 | | Load_Top At_Offset_0
1201 7006 |p | Jump_Nonzero 0x1208
1202 e5fd | | Load 0x2,-0x3
1203 e5fe | | Load 0x2,-0x2
1204 e5ff | | Load 0x2,-0x1
1205 82a6 | | Call 0x1,0xa6
1206 00d1 | | Pop_Control Pop_Count_1
1207 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1208 00d9 | | Load_Top At_Offset_1
1209 e014 | | Load 0x0,0x14
120a 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
120b 00e1 | | Load_Encached Boolean_Cache
120c 1c02 | | Execute_Immediate Run_Utility,0x2
120d e5fd | | Load 0x2,-0x3
120e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
120f 00d9 | | Load_Top At_Offset_1
1210 e014 | | Load 0x0,0x14
1211 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1212 c402 | | Store 0x2,0x2
1213 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1214 TRAP_11f0:
1214 0007 | | Action Break_Optional
1215 e5fe | | Load 0x2,-0x2
1216 4801 |H | Short_Literal 0x1
1217 4801 |H | Short_Literal 0x1
1218 e00b | | Load 0x0,0xb
1219 1b0f | | Execute Package,Field_Read,Field_Number 0xf
121a 035b | [ | Declare_Type Array,Constrained
121b 0337 | 7 | Declare_Variable Array
121c e5ff | | Load 0x2,-0x1
121d e00b | | Load 0x0,0xb
121e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
121f e00b | | Load 0x0,0xb
1220 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1221 0119 | | Execute Any,Check_In_Formal_Type
1222 4801 |H | Short_Literal 0x1
1223 00da | | Load_Top At_Offset_2
1224 01d6 | | Execute Vector,Field_Write
1225 6006 |` | Indirect_Literal Discrete,0x122c,{0x00000000, 0x0000819b}
1226 e001 | | Load 0x0,0x1
1227 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1228 e001 | | Load 0x0,0x1
1229 1b17 | | Execute Package,Field_Read,Field_Number 0x17
122a 0257 | W | Execute Discrete,Raise
122b 0000 | | .XXX[0x1]
122c 0000 0000 | | .LITERAL {0x00000000, 0x0000819b}
1230 ; --------------------------------------------------------------------------------------
1230 ; SUBPROGRAM
1230 ; --------------------------------------------------------------------------------------
1230 123a | : | .CONST 0x123a ; Address of begin
1231 1247 | G | .CONST 0x1247 ; Address of exception handler
1232 0003 | | .CONST 0x0003 ; Number of locals
1233 INIT_1230:
1233 e014 | | Load 0x0,0x14
1234 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1235 02c7 | | Declare_Variable Any
1236 00d8 | | Load_Top At_Offset_0
1237 1c00 | | Execute_Immediate Run_Utility,0x0
1238 029f 1623 | #| Declare_Subprogram INIT_1620,For_Call
123a BODY_1230:
123a 00d9 | | Load_Top At_Offset_1
123b 00ea | | Load_Encached Null_String_Cache
123c e5ff | | Load 0x2,-0x1
123d 4800 |H | Short_Literal 0x0
123e e014 | | Load 0x0,0x14
123f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1240 c402 | | Store 0x2,0x2
1241 8403 | | Call 0x2,0x3
1242 00d9 | | Load_Top At_Offset_1
1243 e014 | | Load 0x0,0x14
1244 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1245 c402 | | Store 0x2,0x2
1246 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1247 TRAP_1230:
1247 0007 | | Action Break_Optional
1248 00da | | Load_Top At_Offset_2
1249 8293 | | Call 0x1,0x93
124a c402 | | Store 0x2,0x2
124b e5fe | | Load 0x2,-0x2
124c 4801 |H | Short_Literal 0x1
124d 4801 |H | Short_Literal 0x1
124e e00b | | Load 0x0,0xb
124f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1250 035b | [ | Declare_Type Array,Constrained
1251 0337 | 7 | Declare_Variable Array
1252 e5ff | | Load 0x2,-0x1
1253 e00b | | Load 0x0,0xb
1254 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1255 e00b | | Load 0x0,0xb
1256 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1257 0119 | | Execute Any,Check_In_Formal_Type
1258 4801 |H | Short_Literal 0x1
1259 00da | | Load_Top At_Offset_2
125a 01d6 | | Execute Vector,Field_Write
125b 6008 |` | Indirect_Literal Discrete,0x1264,{0x00000000, 0x0000819c}
125c e001 | | Load 0x0,0x1
125d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
125e e001 | | Load 0x0,0x1
125f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1260 0257 | W | Execute Discrete,Raise
1261 0000 0000 | | .XXX[0x3]
1263 0000 | |
1264 0000 0000 | | .LITERAL {0x00000000, 0x0000819c}
1268 ; --------------------------------------------------------------------------------------
1268 ; SUBPROGRAM
1268 ; --------------------------------------------------------------------------------------
1268 126b | k | .CONST 0x126b ; Address of begin
1269 1290 | | .CONST 0x1290 ; Address of exception handler
126a 0001 | | .CONST 0x0001 ; Number of locals
126b BODY_1268:
126b INIT_1268:
126b 4801 |H | Short_Literal 0x1
126c e5fe | | Load 0x2,-0x2
126d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
126e e5fe | | Load 0x2,-0x2
126f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
1270 01cf | | Execute Vector,Slice_Read
1271 00db | | Load_Top At_Offset_3
1272 e014 | | Load 0x0,0x14
1273 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1274 4801 |H | Short_Literal 0x1
1275 e5fe | | Load 0x2,-0x2
1276 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
1277 e5fe | | Load 0x2,-0x2
1278 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
1279 01cf | | Execute Vector,Slice_Read
127a 00db | | Load_Top At_Offset_3
127b e014 | | Load 0x0,0x14
127c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
127d 4801 |H | Short_Literal 0x1
127e e5fe | | Load 0x2,-0x2
127f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
1280 e5fe | | Load 0x2,-0x2
1281 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
1282 01cf | | Execute Vector,Slice_Read
1283 00db | | Load_Top At_Offset_3
1284 e014 | | Load 0x0,0x14
1285 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
1286 4801 |H | Short_Literal 0x1
1287 e5fe | | Load 0x2,-0x2
1288 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
1289 e5fe | | Load 0x2,-0x2
128a 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
128b 01cf | | Execute Vector,Slice_Read
128c 00db | | Load_Top At_Offset_3
128d e014 | | Load 0x0,0x14
128e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
128f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1290 TRAP_1268:
1290 0007 | | Action Break_Optional
1291 e001 | | Load 0x0,0x1
1292 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1293 0257 | W | Execute Discrete,Raise
1294 0000 0000 | | .BLANK 0000[0x4]
1298 ; --------------------------------------------------------------------------------------
1298 ; SUBPROGRAM
1298 ; --------------------------------------------------------------------------------------
1298 12a0 | | .CONST 0x12a0 ; Address of begin
1299 12b0 | | .CONST 0x12b0 ; Address of exception handler
129a 0002 | | .CONST 0x0002 ; Number of locals
129b INIT_1298:
129b e014 | | Load 0x0,0x14
129c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
129d 02c7 | | Declare_Variable Any
129e 00d8 | | Load_Top At_Offset_0
129f 1c00 | | Execute_Immediate Run_Utility,0x0
12a0 BODY_1298:
12a0 00d8 | | Load_Top At_Offset_0
12a1 00ea | | Load_Encached Null_String_Cache
12a2 e5ff | | Load 0x2,-0x1
12a3 4801 |H | Short_Literal 0x1
12a4 e014 | | Load 0x0,0x14
12a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
12a6 c402 | | Store 0x2,0x2
12a7 e5fd | | Load 0x2,-0x3
12a8 e5fe | | Load 0x2,-0x2
12a9 00da | | Load_Top At_Offset_2
12aa 82a9 | | Call 0x1,0xa9
12ab 00d8 | | Load_Top At_Offset_0
12ac e014 | | Load 0x0,0x14
12ad 181b | | Execute Package,Field_Execute,Field_Number 0x1b
12ae c402 | | Store 0x2,0x2
12af 4504 |E | Exit_Suprogram New_Top_Offset 0x4
12b0 TRAP_1298:
12b0 0007 | | Action Break_Optional
12b1 00d9 | | Load_Top At_Offset_1
12b2 8293 | | Call 0x1,0x93
12b3 c402 | | Store 0x2,0x2
12b4 e5fd | | Load 0x2,-0x3
12b5 4801 |H | Short_Literal 0x1
12b6 4801 |H | Short_Literal 0x1
12b7 e00b | | Load 0x0,0xb
12b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12b9 035b | [ | Declare_Type Array,Constrained
12ba 0337 | 7 | Declare_Variable Array
12bb e5ff | | Load 0x2,-0x1
12bc e00b | | Load 0x0,0xb
12bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
12be e00b | | Load 0x0,0xb
12bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12c0 0119 | | Execute Any,Check_In_Formal_Type
12c1 4801 |H | Short_Literal 0x1
12c2 00da | | Load_Top At_Offset_2
12c3 01d6 | | Execute Vector,Field_Write
12c4 6007 |` | Indirect_Literal Discrete,0x12cc,{0x00000000, 0x0000819d}
12c5 e001 | | Load 0x0,0x1
12c6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
12c7 e001 | | Load 0x0,0x1
12c8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
12c9 0257 | W | Execute Discrete,Raise
12ca 0000 0000 | | .XXX[0x2]
12cc 0000 0000 | | .LITERAL {0x00000000, 0x0000819d}
12d0 ; --------------------------------------------------------------------------------------
12d0 ; SUBPROGRAM
12d0 ; --------------------------------------------------------------------------------------
12d0 12d5 | | .CONST 0x12d5 ; Address of begin
12d1 1324 | $ | .CONST 0x1324 ; Address of exception handler
12d2 0002 | | .CONST 0x0002 ; Number of locals
12d3 INIT_12d0:
12d3 e5fc | | Load 0x2,-0x4
12d4 829f | | Call 0x1,0x9f
12d5 BODY_12d0:
12d5 00db | | Load_Top At_Offset_3
12d6 01db | | Execute Vector,Length
12d7 0c81 | | Execute_Immediate Greater_Equal,-0x7f
12d8 e5fe | | Load 0x2,-0x2
12d9 01db | | Execute Vector,Length
12da 0c81 | | Execute_Immediate Greater_Equal,-0x7f
12db 0278 | x | Execute Discrete,Or
12dc e5fd | | Load 0x2,-0x3
12dd 01db | | Execute Vector,Length
12de 0c81 | | Execute_Immediate Greater_Equal,-0x7f
12df 0278 | x | Execute Discrete,Or
12e0 6802 |h | Jump_Zero 0x12e3
12e1 e01b | | Load 0x0,0x1b
12e2 0257 | W | Execute Discrete,Raise
12e3 00db | | Load_Top At_Offset_3
12e4 4801 |H | Short_Literal 0x1
12e5 e5ff | | Load 0x2,-0x1
12e6 01db | | Execute Vector,Length
12e7 00d8 | | Load_Top At_Offset_0
12e8 00e2 | | Load_Encached Integer_Cache
12e9 0260 | ` | Execute Discrete,In_Type
12ea 7001 |p | Jump_Nonzero 0x12ec
12eb 0801 | | Execute_Immediate Raise,0x1
12ec e5fa | | Load 0x2,-0x6
12ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
12ee 01ce | | Execute Vector,Slice_Write
12ef 00db | | Load_Top At_Offset_3
12f0 01db | | Execute Vector,Length
12f1 e5fa | | Load 0x2,-0x6
12f2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
12f3 e5fe | | Load 0x2,-0x2
12f4 4801 |H | Short_Literal 0x1
12f5 e5fe | | Load 0x2,-0x2
12f6 01db | | Execute Vector,Length
12f7 00d8 | | Load_Top At_Offset_0
12f8 00e2 | | Load_Encached Integer_Cache
12f9 0260 | ` | Execute Discrete,In_Type
12fa 7001 |p | Jump_Nonzero 0x12fc
12fb 0801 | | Execute_Immediate Raise,0x1
12fc e5fa | | Load 0x2,-0x6
12fd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
12fe 01ce | | Execute Vector,Slice_Write
12ff e5fe | | Load 0x2,-0x2
1300 01db | | Execute Vector,Length
1301 e5fa | | Load 0x2,-0x6
1302 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
1303 e5fd | | Load 0x2,-0x3
1304 4801 |H | Short_Literal 0x1
1305 e5fd | | Load 0x2,-0x3
1306 01db | | Execute Vector,Length
1307 00d8 | | Load_Top At_Offset_0
1308 00e2 | | Load_Encached Integer_Cache
1309 0260 | ` | Execute Discrete,In_Type
130a 7001 |p | Jump_Nonzero 0x130c
130b 0801 | | Execute_Immediate Raise,0x1
130c e5fa | | Load 0x2,-0x6
130d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
130e 01ce | | Execute Vector,Slice_Write
130f e5fd | | Load 0x2,-0x3
1310 01db | | Execute Vector,Length
1311 e5fa | | Load 0x2,-0x6
1312 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
1313 00d8 | | Load_Top At_Offset_0
1314 4801 |H | Short_Literal 0x1
1315 00da | | Load_Top At_Offset_2
1316 01db | | Execute Vector,Length
1317 00d8 | | Load_Top At_Offset_0
1318 00e2 | | Load_Encached Integer_Cache
1319 0260 | ` | Execute Discrete,In_Type
131a 7001 |p | Jump_Nonzero 0x131c
131b 0801 | | Execute_Immediate Raise,0x1
131c e5fa | | Load 0x2,-0x6
131d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
131e 01ce | | Execute Vector,Slice_Write
131f 00d8 | | Load_Top At_Offset_0
1320 01db | | Execute Vector,Length
1321 e5fa | | Load 0x2,-0x6
1322 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
1323 4506 |E | Exit_Suprogram New_Top_Offset 0x6
1324 TRAP_12d0:
1324 e01b | | Load 0x0,0x1b
1325 010f | | Execute Exception,Equal
1326 6817 |h | Jump_Zero 0x133e
1327 e5fb | | Load 0x2,-0x5
1328 4801 |H | Short_Literal 0x1
1329 4801 |H | Short_Literal 0x1
132a e00b | | Load 0x0,0xb
132b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
132c 035b | [ | Declare_Type Array,Constrained
132d 0337 | 7 | Declare_Variable Array
132e 0092 171c | | Action Push_String_Extended,0x171c ; " 128"
1330 e00b | | Load 0x0,0xb
1331 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1332 e00b | | Load 0x0,0xb
1333 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1334 0119 | | Execute Any,Check_In_Formal_Type
1335 4801 |H | Short_Literal 0x1
1336 00da | | Load_Top At_Offset_2
1337 01d6 | | Execute Vector,Field_Write
1338 6013 |` | Indirect_Literal Discrete,0x134c,{0x00000000, 0x0000819e}
1339 e001 | | Load 0x0,0x1
133a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
133b e001 | | Load 0x0,0x1
133c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
133d 0257 | W | Execute Discrete,Raise
133e e5fb | | Load 0x2,-0x5
133f e00b | | Load 0x0,0xb
1340 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1341 6006 |` | Indirect_Literal Discrete,0x1348,{0x00000000, 0x0000819f}
1342 e001 | | Load 0x0,0x1
1343 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
1344 e001 | | Load 0x0,0x1
1345 1b17 | | Execute Package,Field_Read,Field_Number 0x17
1346 0257 | W | Execute Discrete,Raise
1347 0000 | | .XXX[0x1]
1348 0000 0000 | | .LITERAL {0x00000000, 0x0000819f}
134c 0000 0000 | | .LITERAL {0x00000000, 0x0000819e}
1350 ; --------------------------------------------------------------------------------------
1350 ; SUBPROGRAM
1350 ; --------------------------------------------------------------------------------------
1350 1367 | g | .CONST 0x1367 ; Address of begin
1351 1398 | | .CONST 0x1398 ; Address of exception handler
1352 0006 | | .CONST 0x0006 ; Number of locals
1353 INIT_1350:
1353 e014 | | Load 0x0,0x14
1354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1355 02c7 | | Declare_Variable Any
1356 00d8 | | Load_Top At_Offset_0
1357 1c00 | | Execute_Immediate Run_Utility,0x0
1358 e26f | o | Load 0x1,0x6f
1359 0322 | " | Declare_Variable Record
135a 00d8 | | Load_Top At_Offset_0
135b 1c00 | | Execute_Immediate Run_Utility,0x0
135c e001 | | Load 0x0,0x1
135d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
135e e5fd | | Load 0x2,-0x3
135f e5ff | | Load 0x2,-0x1
1360 8298 | | Call 0x1,0x98
1361 e00c | | Load 0x0,0xc
1362 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1363 02c7 | | Declare_Variable Any
1364 00d9 | | Load_Top At_Offset_1
1365 8299 | | Call 0x1,0x99
1366 a406 | | Store_Unchecked 0x2,0x6
1367 BODY_1350:
1367 00d8 | | Load_Top At_Offset_0
1368 e00c | | Load 0x0,0xc
1369 1810 | | Execute Package,Field_Execute,Field_Number 0x10
136a 012e | . | Execute Any,Not_Equal
136b 6807 |h | Jump_Zero 0x1373
136c e001 | | Load 0x0,0x1
136d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
136e e5fb | | Load 0x2,-0x5
136f 00da | | Load_Top At_Offset_2
1370 e009 | | Load 0x0,0x9
1371 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
1372 005b | [ | Store_Top Discrete,At_Offset_3
1373 e402 | | Load 0x2,0x2
1374 00ea | | Load_Encached Null_String_Cache
1375 00db | | Load_Top At_Offset_3
1376 4801 |H | Short_Literal 0x1
1377 e014 | | Load 0x0,0x14
1378 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1379 c402 | | Store 0x2,0x2
137a 00db | | Load_Top At_Offset_3
137b e5fb | | Load 0x2,-0x5
137c 8295 | | Call 0x1,0x95
137d e5fd | | Load 0x2,-0x3
137e e5fc | | Load 0x2,-0x4
137f 829c | | Call 0x1,0x9c
1380 e5fd | | Load 0x2,-0x3
1381 e5fe | | Load 0x2,-0x2
1382 82ab | | Call 0x1,0xab
1383 00d1 | | Pop_Control Pop_Count_1
1384 e5fb | | Load 0x2,-0x5
1385 e403 | | Load 0x2,0x3
1386 e402 | | Load 0x2,0x2
1387 82a9 | | Call 0x1,0xa9
1388 e402 | | Load 0x2,0x2
1389 e014 | | Load 0x0,0x14
138a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
138b c402 | | Store 0x2,0x2
138c e5fb | | Load 0x2,-0x5
138d 00da | | Load_Top At_Offset_2
138e 829a | | Call 0x1,0x9a
138f c406 | | Store 0x2,0x6
1390 e001 | | Load 0x0,0x1
1391 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1392 e5fb | | Load 0x2,-0x5
1393 00da | | Load_Top At_Offset_2
1394 e009 | | Load 0x0,0x9
1395 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
1396 005b | [ | Store_Top Discrete,At_Offset_3
1397 4506 |E | Exit_Suprogram New_Top_Offset 0x6
1398 TRAP_1350:
1398 0007 | | Action Break_Optional
1399 e5fb | | Load 0x2,-0x5
139a 4801 |H | Short_Literal 0x1
139b 4801 |H | Short_Literal 0x1
139c e00b | | Load 0x0,0xb
139d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
139e 035b | [ | Declare_Type Array,Constrained
139f 0337 | 7 | Declare_Variable Array
13a0 e405 | | Load 0x2,0x5
13a1 e00b | | Load 0x0,0xb
13a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
13a3 e00b | | Load 0x0,0xb
13a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13a5 0119 | | Execute Any,Check_In_Formal_Type
13a6 4801 |H | Short_Literal 0x1
13a7 00da | | Load_Top At_Offset_2
13a8 01d6 | | Execute Vector,Field_Write
13a9 6006 |` | Indirect_Literal Discrete,0x13b0,{0x00000000, 0x000081a0}
13aa e001 | | Load 0x0,0x1
13ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
13ac e001 | | Load 0x0,0x1
13ad 1b17 | | Execute Package,Field_Read,Field_Number 0x17
13ae 0257 | W | Execute Discrete,Raise
13af 0000 | | .XXX[0x1]
13b0 0000 0000 | | .LITERAL {0x00000000, 0x000081a0}
13b4 0000 0000 | | .BLANK 0000[0x4]
13b8 ; --------------------------------------------------------------------------------------
13b8 ; SUBPROGRAM
13b8 ; --------------------------------------------------------------------------------------
13b8 13bb | | .CONST 0x13bb ; Address of begin
13b9 0004 | | .CONST 0x0004 ; Address of exception handler
13ba 0001 | | .CONST 0x0001 ; Number of locals
13bb BODY_13b8:
13bb INIT_13b8:
13bb 4800 |H | Short_Literal 0x0
13bc e5fe | | Load 0x2,-0x2
13bd 4821 |H! | Short_Literal 0x21
13be e01a | | Load 0x0,0x1a
13bf 181e | | Execute Package,Field_Execute,Field_Number 0x1e
13c0 6802 |h | Jump_Zero 0x13c3
13c1 00db | | Load_Top At_Offset_3
13c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
13c3 00da | | Load_Top At_Offset_2
13c4 e009 | | Load 0x0,0x9
13c5 180e | | Execute Package,Field_Execute,Field_Number 0xe
13c6 6809 |h | Jump_Zero 0x13d0
13c7 00da | | Load_Top At_Offset_2
13c8 e009 | | Load 0x0,0x9
13c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
13ca 0092 1734 | 4| Action Push_String_Extended,0x1734 ; ".Units."
13cc 01cc | | Execute Vector,Catenate
13cd e5fe | | Load 0x2,-0x2
13ce 01cc | | Execute Vector,Catenate
13cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
13d0 00da | | Load_Top At_Offset_2
13d1 e009 | | Load 0x0,0x9
13d2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
13d3 0092 172a | *| Action Push_String_Extended,0x172a ; "."
13d5 01cc | | Execute Vector,Catenate
13d6 e5fe | | Load 0x2,-0x2
13d7 01cc | | Execute Vector,Catenate
13d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
13d9 0000 0000 | | .BLANK 0000[0x7]
13e0 ; --------------------------------------------------------------------------------------
13e0 ; SUBPROGRAM
13e0 ; --------------------------------------------------------------------------------------
13e0 13e3 | | .CONST 0x13e3 ; Address of begin
13e1 0004 | | .CONST 0x0004 ; Address of exception handler
13e2 0001 | | .CONST 0x0001 ; Number of locals
13e3 BODY_13e0:
13e3 INIT_13e0:
13e3 00da | | Load_Top At_Offset_2
13e4 e009 | | Load 0x0,0x9
13e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
13e6 6807 |h | Jump_Zero 0x13ee
13e7 00da | | Load_Top At_Offset_2
13e8 e009 | | Load 0x0,0x9
13e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
13ea 0092 1735 | 5| Action Push_String_Extended,0x1735 ; ".units"
13ec 01cc | | Execute Vector,Catenate
13ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
13ee 00da | | Load_Top At_Offset_2
13ef e009 | | Load 0x0,0x9
13f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
13f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
13f2 0000 0000 | | .BLANK 0000[0x6]
13f8 ; --------------------------------------------------------------------------------------
13f8 ; SUBPROGRAM
13f8 ; --------------------------------------------------------------------------------------
13f8 1415 | | .CONST 0x1415 ; Address of begin
13f9 0004 | | .CONST 0x0004 ; Address of exception handler
13fa 0009 | | .CONST 0x0009 ; Number of locals
13fb INIT_13f8:
13fb e00c | | Load 0x0,0xc
13fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13fd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
13fe 02c7 | | Declare_Variable Any
13ff 00d8 | | Load_Top At_Offset_0
1400 1c00 | | Execute_Immediate Run_Utility,0x0
1401 e00c | | Load 0x0,0xc
1402 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1403 02c7 | | Declare_Variable Any
1404 00d8 | | Load_Top At_Offset_0
1405 1c00 | | Execute_Immediate Run_Utility,0x0
1406 00e2 | | Load_Encached Integer_Cache
1407 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1408 00e1 | | Load_Encached Boolean_Cache
1409 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
140a e00c | | Load 0x0,0xc
140b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
140c e5ff | | Load 0x2,-0x1
140d 829e | | Call 0x1,0x9e
140e e00c | | Load 0x0,0xc
140f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1410 02c7 | | Declare_Variable Any
1411 00d8 | | Load_Top At_Offset_0
1412 1c00 | | Execute_Immediate Run_Utility,0x0
1413 029f 1673 | s| Declare_Subprogram INIT_1670,For_Call
1415 BODY_13f8:
1415 4800 |H | Short_Literal 0x0
1416 a5fc | | Store_Unchecked 0x2,-0x4
1417 4800 |H | Short_Literal 0x0
1418 a5fb | | Store_Unchecked 0x2,-0x5
1419 e00c | | Load 0x0,0xc
141a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
141b c5fd | | Store 0x2,-0x3
141c 00da | | Load_Top At_Offset_2
141d 8299 | | Call 0x1,0x99
141e c408 | | Store 0x2,0x8
141f 00d9 | | Load_Top At_Offset_1
1420 e00c | | Load 0x0,0xc
1421 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1422 7004 |p | Jump_Nonzero 0x1427
1423 00d9 | | Load_Top At_Offset_1
1424 e009 | | Load 0x0,0x9
1425 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
1426 7001 |p | Jump_Nonzero 0x1428
1427 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1428 00da | | Load_Top At_Offset_2
1429 e291 | | Load 0x1,0x91
142a 01cc | | Execute Vector,Catenate
142b 829b | | Call 0x1,0x9b
142c c402 | | Store 0x2,0x2
142d e402 | | Load 0x2,0x2
142e e00c | | Load 0x0,0xc
142f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1430 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1431 6801 |h | Jump_Zero 0x1433
1432 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1433 00cf | | Action Mark_Auxiliary
1434 780c |x | Jump 0x1441
1435 e404 | | Load 0x2,0x4
1436 0a01 | | Execute_Immediate Plus,0x1
1437 c404 | | Store 0x2,0x4
1438 e405 | | Load 0x2,0x5
1439 7001 |p | Jump_Nonzero 0x143b
143a 8409 | | Call 0x2,0x9
143b e402 | | Load 0x2,0x2
143c e00c | | Load 0x0,0xc
143d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
143e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
143f c402 | | Store 0x2,0x2
1440 00c9 | | Action Pop_Auxiliary_Loop
1441 e402 | | Load 0x2,0x2
1442 e00c | | Load 0x0,0xc
1443 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1444 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1445 6fef |o | Jump_Zero 0x1435
1446 00ce | | Action Pop_Auxiliary
1447 e405 | | Load 0x2,0x5
1448 a5fc | | Store_Unchecked 0x2,-0x4
1449 e404 | | Load 0x2,0x4
144a a5fb | | Store_Unchecked 0x2,-0x5
144b 00d9 | | Load_Top At_Offset_1
144c c5fd | | Store 0x2,-0x3
144d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
144e 0000 0000 | | .XXX[0x2]
1450 ; --------------------------------------------------------------------------------------
1450 ; SUBPROGRAM
1450 ; --------------------------------------------------------------------------------------
1450 145d | ] | .CONST 0x145d ; Address of begin
1451 0004 | | .CONST 0x0004 ; Address of exception handler
1452 0003 | | .CONST 0x0003 ; Number of locals
1453 INIT_1450:
1453 e5fc | | Load 0x2,-0x4
1454 e403 | | Load 0x2,0x3
1455 e5fe | | Load 0x2,-0x2
1456 e006 | | Load 0x0,0x6
1457 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1458 180f | | Execute Package,Field_Execute,Field_Number 0xf
1459 00d8 | | Load_Top At_Offset_0
145a 01db | | Execute Vector,Length
145b e20d | | Load 0x1,0xd
145c 1c08 | | Execute_Immediate Run_Utility,0x8
145d BODY_1450:
145d 00d9 | | Load_Top At_Offset_1
145e 0092 1736 | 6| Action Push_String_Extended,0x1736 ; "<error>"
1460 01df | | Execute Vector,Equal
1461 6808 |h | Jump_Zero 0x146a
1462 e00b | | Load 0x0,0xb
1463 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
1464 600f |` | Indirect_Literal Discrete,0x1474,{0x00000000, 0x00008128}
1465 e001 | | Load 0x0,0x1
1466 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1467 00d9 | | Load_Top At_Offset_1
1468 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1469 7803 |x | Jump 0x146d
146a 4800 |H | Short_Literal 0x0
146b 00d9 | | Load_Top At_Offset_1
146c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
146d 00d9 | | Load_Top At_Offset_1
146e 00d9 | | Load_Top At_Offset_1
146f 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
1470 00d8 | | Load_Top At_Offset_0
1471 00cb | | Action Pop_Block_With_Result
1472 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1473 0000 | | .XXX[0x1]
1474 0000 0000 | | .LITERAL {0x00000000, 0x00008128}
1478 ; --------------------------------------------------------------------------------------
1478 ; SUBPROGRAM
1478 ; --------------------------------------------------------------------------------------
1478 1485 | | .CONST 0x1485 ; Address of begin
1479 0004 | | .CONST 0x0004 ; Address of exception handler
147a 0002 | | .CONST 0x0002 ; Number of locals
147b INIT_1478:
147b e5fc | | Load 0x2,-0x4
147c 00d8 | | Load_Top At_Offset_0
147d e403 | | Load 0x2,0x3
147e e5fd | | Load 0x2,-0x3
147f e006 | | Load 0x0,0x6
1480 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1481 180f | | Execute Package,Field_Execute,Field_Number 0xf
1482 e5fe | | Load 0x2,-0x2
1483 e5ff | | Load 0x2,-0x1
1484 8229 | ) | Call 0x1,0x29
1485 BODY_1478:
1485 00d8 | | Load_Top At_Offset_0
1486 00cb | | Action Pop_Block_With_Result
1487 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1488 ; --------------------------------------------------------------------------------------
1488 ; SUBPROGRAM
1488 ; --------------------------------------------------------------------------------------
1488 1495 | | .CONST 0x1495 ; Address of begin
1489 0004 | | .CONST 0x0004 ; Address of exception handler
148a 0003 | | .CONST 0x0003 ; Number of locals
148b INIT_1488:
148b e403 | | Load 0x2,0x3
148c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
148d e5fd | | Load 0x2,-0x3
148e e402 | | Load 0x2,0x2
148f e004 | | Load 0x0,0x4
1490 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
1491 00d8 | | Load_Top At_Offset_0
1492 01db | | Execute Vector,Length
1493 e20d | | Load 0x1,0xd
1494 1c08 | | Execute_Immediate Run_Utility,0x8
1495 BODY_1488:
1495 00d9 | | Load_Top At_Offset_1
1496 00d9 | | Load_Top At_Offset_1
1497 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
1498 4800 |H | Short_Literal 0x0
1499 00d9 | | Load_Top At_Offset_1
149a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
149b 00d8 | | Load_Top At_Offset_0
149c 00cb | | Action Pop_Block_With_Result
149d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
149e 0000 0000 | | .XXX[0x2]
14a0 ; --------------------------------------------------------------------------------------
14a0 ; SUBPROGRAM
14a0 ; --------------------------------------------------------------------------------------
14a0 14a5 | | .CONST 0x14a5 ; Address of begin
14a1 0004 | | .CONST 0x0004 ; Address of exception handler
14a2 0002 | | .CONST 0x0002 ; Number of locals
14a3 INIT_14a0:
14a3 e402 | | Load 0x2,0x2
14a4 8296 | | Call 0x1,0x96
14a5 BODY_14a0:
14a5 e001 | | Load 0x0,0x1
14a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
14a7 e5fe | | Load 0x2,-0x2
14a8 00da | | Load_Top At_Offset_2
14a9 8299 | | Call 0x1,0x99
14aa e009 | | Load 0x0,0x9
14ab 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
14ac c5fd | | Store 0x2,-0x3
14ad e5fe | | Load 0x2,-0x2
14ae 00d9 | | Load_Top At_Offset_1
14af 8294 | | Call 0x1,0x94
14b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
14b1 0000 0000 | | .BLANK 0000[0x7]
14b8 ; --------------------------------------------------------------------------------------
14b8 ; SUBPROGRAM
14b8 ; --------------------------------------------------------------------------------------
14b8 14bf | | .CONST 0x14bf ; Address of begin
14b9 0004 | | .CONST 0x0004 ; Address of exception handler
14ba 0002 | | .CONST 0x0002 ; Number of locals
14bb INIT_14b8:
14bb e403 | | Load 0x2,0x3
14bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
14bd e20d | | Load 0x1,0xd
14be 1c08 | | Execute_Immediate Run_Utility,0x8
14bf BODY_14b8:
14bf 4801 |H | Short_Literal 0x1
14c0 e403 | | Load 0x2,0x3
14c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
14c2 e403 | | Load 0x2,0x3
14c3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
14c4 01cf | | Execute Vector,Slice_Read
14c5 00d9 | | Load_Top At_Offset_1
14c6 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
14c7 4800 |H | Short_Literal 0x0
14c8 00d9 | | Load_Top At_Offset_1
14c9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
14ca 00d8 | | Load_Top At_Offset_0
14cb 00cb | | Action Pop_Block_With_Result
14cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
14cd 0000 0000 | | .XXX[0x3]
14cf 0000 | |
14d0 ; --------------------------------------------------------------------------------------
14d0 ; SUBPROGRAM
14d0 ; --------------------------------------------------------------------------------------
14d0 14d7 | | .CONST 0x14d7 ; Address of begin
14d1 0004 | | .CONST 0x0004 ; Address of exception handler
14d2 0002 | | .CONST 0x0002 ; Number of locals
14d3 INIT_14d0:
14d3 e403 | | Load 0x2,0x3
14d4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
14d5 e20d | | Load 0x1,0xd
14d6 1c08 | | Execute_Immediate Run_Utility,0x8
14d7 BODY_14d0:
14d7 4801 |H | Short_Literal 0x1
14d8 e403 | | Load 0x2,0x3
14d9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
14da e403 | | Load 0x2,0x3
14db 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
14dc 01cf | | Execute Vector,Slice_Read
14dd 00d9 | | Load_Top At_Offset_1
14de 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
14df 4800 |H | Short_Literal 0x0
14e0 00d9 | | Load_Top At_Offset_1
14e1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
14e2 00d8 | | Load_Top At_Offset_0
14e3 00cb | | Action Pop_Block_With_Result
14e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
14e5 0000 0000 | | .XXX[0x3]
14e7 0000 | |
14e8 ; --------------------------------------------------------------------------------------
14e8 ; SUBPROGRAM
14e8 ; --------------------------------------------------------------------------------------
14e8 14f9 | | .CONST 0x14f9 ; Address of begin
14e9 0004 | | .CONST 0x0004 ; Address of exception handler
14ea 0004 | | .CONST 0x0004 ; Number of locals
14eb INIT_14e8:
14eb 00da | | Load_Top At_Offset_2
14ec e00c | | Load 0x0,0xc
14ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
14ee 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
14ef 00d8 | | Load_Top At_Offset_0
14f0 0092 1737 | 7| Action Push_String_Extended,0x1737 ; ".@_secondary_@_spec"
14f2 01cc | | Execute Vector,Catenate
14f3 0007 | | Action Break_Optional
14f4 00d9 | | Load_Top At_Offset_1
14f5 0092 1738 | 8| Action Push_String_Extended,0x1738 ; ".@_secondary_@_body"
14f7 01cc | | Execute Vector,Catenate
14f8 0007 | | Action Break_Optional
14f9 BODY_14e8:
14f9 00ea | | Load_Encached Null_String_Cache
14fa 4801 |H | Short_Literal 0x1
14fb 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>"
14fd 4801 |H | Short_Literal 0x1
14fe e603 | | Load 0x3,0x3
14ff e602 | | Load 0x3,0x2
1500 0092 1739 | 9| Action Push_String_Extended,0x1739 ; ".@'spec.<secondary_@>"
1502 01cc | | Execute Vector,Catenate
1503 e012 | | Load 0x0,0x12
1504 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1505 00ea | | Load_Encached Null_String_Cache
1506 4801 |H | Short_Literal 0x1
1507 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>"
1509 4801 |H | Short_Literal 0x1
150a e604 | | Load 0x3,0x4
150b e602 | | Load 0x3,0x2
150c 0092 173a | :| Action Push_String_Extended,0x173a ; ".@'body.<secondary_@>"
150e 01cc | | Execute Vector,Catenate
150f e012 | | Load 0x0,0x12
1510 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1511 e5fd | | Load 0x2,-0x3
1512 6818 |h | Jump_Zero 0x152b
1513 0092 171f | | Action Push_String_Extended,0x171f ; "<QUIET>"
1515 0092 1733 | 3| Action Push_String_Extended,0x1733 ; "<DEFAULT>"
1517 00ea | | Load_Encached Null_String_Cache
1518 4801 |H | Short_Literal 0x1
1519 0092 173b | ;| Action Push_String_Extended,0x173b ; "<NONE>"
151b 0092 173c | <| Action Push_String_Extended,0x173c ; "<AUTO_GENERATE>"
151d 0092 173d | =| Action Push_String_Extended,0x173d ; "["
151f e603 | | Load 0x3,0x3
1520 01cc | | Execute Vector,Catenate
1521 0092 173e | >| Action Push_String_Extended,0x173e ; ","
1523 01cc | | Execute Vector,Catenate
1524 e604 | | Load 0x3,0x4
1525 01cc | | Execute Vector,Catenate
1526 0092 173f | ?| Action Push_String_Extended,0x173f ; "]"
1528 01cc | | Execute Vector,Catenate
1529 e01c | | Load 0x0,0x1c
152a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
152b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
152c 0000 0000 | | .BLANK 0000[0x4]
1530 ; --------------------------------------------------------------------------------------
1530 ; SUBPROGRAM
1530 ; --------------------------------------------------------------------------------------
1530 1535 | 5 | .CONST 0x1535 ; Address of begin
1531 0004 | | .CONST 0x0004 ; Address of exception handler
1532 0003 | | .CONST 0x0003 ; Number of locals
1533 INIT_1530:
1533 00e2 | | Load_Encached Integer_Cache
1534 00e2 | | Load_Encached Integer_Cache
1535 BODY_1530:
1535 4801 |H | Short_Literal 0x1
1536 e7ff | | Load 0x3,-0x1
1537 e404 | | Load 0x2,0x4
1538 e01a | | Load 0x0,0x1a
1539 181d | | Execute Package,Field_Execute,Field_Number 0x1d
153a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
153b 4801 |H | Short_Literal 0x1
153c e7ff | | Load 0x3,-0x1
153d 0092 1740 | @| Action Push_String_Extended,0x1740 ; "_"
153f e01a | | Load 0x0,0x1a
1540 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1541 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
1542 e7ff | | Load 0x3,-0x1
1543 01dd | | Execute Vector,First
1544 00da | | Load_Top At_Offset_2
1545 0aff | | Execute_Immediate Plus,-0x1
1546 00d8 | | Load_Top At_Offset_0
1547 00e2 | | Load_Encached Integer_Cache
1548 0260 | ` | Execute Discrete,In_Type
1549 7001 |p | Jump_Nonzero 0x154b
154a 0801 | | Execute_Immediate Raise,0x1
154b e7ff | | Load 0x3,-0x1
154c 01cf | | Execute Vector,Slice_Read
154d 0092 1741 | A| Action Push_String_Extended,0x1741 ; "'"
154f 01cc | | Execute Vector,Catenate
1550 00d9 | | Load_Top At_Offset_1
1551 0a01 | | Execute_Immediate Plus,0x1
1552 00d8 | | Load_Top At_Offset_0
1553 00e2 | | Load_Encached Integer_Cache
1554 0260 | ` | Execute Discrete,In_Type
1555 7001 |p | Jump_Nonzero 0x1557
1556 0801 | | Execute_Immediate Raise,0x1
1557 e7ff | | Load 0x3,-0x1
1558 01dc | | Execute Vector,Last
1559 e7ff | | Load 0x3,-0x1
155a 01cf | | Execute Vector,Slice_Read
155b 01cc | | Execute Vector,Catenate
155c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
155d 0000 0000 | | .XXX[0x3]
155f 0000 | |
1560 ; --------------------------------------------------------------------------------------
1560 ; SUBPROGRAM
1560 ; --------------------------------------------------------------------------------------
1560 1565 | e | .CONST 0x1565 ; Address of begin
1561 0004 | | .CONST 0x0004 ; Address of exception handler
1562 0003 | | .CONST 0x0003 ; Number of locals
1563 INIT_1560:
1563 00e2 | | Load_Encached Integer_Cache
1564 00e2 | | Load_Encached Integer_Cache
1565 BODY_1560:
1565 4801 |H | Short_Literal 0x1
1566 e7ff | | Load 0x3,-0x1
1567 e404 | | Load 0x2,0x4
1568 e01a | | Load 0x0,0x1a
1569 181d | | Execute Package,Field_Execute,Field_Number 0x1d
156a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
156b 4801 |H | Short_Literal 0x1
156c e7ff | | Load 0x3,-0x1
156d 0092 1740 | @| Action Push_String_Extended,0x1740 ; "_"
156f e01a | | Load 0x0,0x1a
1570 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1571 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
1572 00d9 | | Load_Top At_Offset_1
1573 0a0b | | Execute_Immediate Plus,0xb
1574 00d8 | | Load_Top At_Offset_0
1575 00e2 | | Load_Encached Integer_Cache
1576 0260 | ` | Execute Discrete,In_Type
1577 7001 |p | Jump_Nonzero 0x1579
1578 0801 | | Execute_Immediate Raise,0x1
1579 00d9 | | Load_Top At_Offset_1
157a 0aff | | Execute_Immediate Plus,-0x1
157b 00d8 | | Load_Top At_Offset_0
157c 00e2 | | Load_Encached Integer_Cache
157d 0260 | ` | Execute Discrete,In_Type
157e 7001 |p | Jump_Nonzero 0x1580
157f 0801 | | Execute_Immediate Raise,0x1
1580 e7ff | | Load 0x3,-0x1
1581 01cf | | Execute Vector,Slice_Read
1582 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1583 0000 0000 | | .BLANK 0000[0x5]
1588 ; --------------------------------------------------------------------------------------
1588 ; SUBPROGRAM
1588 ; --------------------------------------------------------------------------------------
1588 15b2 | | .CONST 0x15b2 ; Address of begin
1589 15d7 | | .CONST 0x15d7 ; Address of exception handler
158a 0007 | | .CONST 0x0007 ; Number of locals
158b INIT_1588:
158b 00da | | Load_Top At_Offset_2
158c e00c | | Load 0x0,0xc
158d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
158e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
158f 00d8 | | Load_Top At_Offset_0
1590 e00c | | Load 0x0,0xc
1591 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1592 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
1593 00d9 | | Load_Top At_Offset_1
1594 e00c | | Load 0x0,0xc
1595 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1596 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
1597 00d9 | | Load_Top At_Offset_1
1598 0092 172a | *| Action Push_String_Extended,0x172a ; "."
159a 01cc | | Execute Vector,Catenate
159b 00d9 | | Load_Top At_Offset_1
159c 8407 | | Call 0x2,0x7
159d 01cc | | Execute Vector,Catenate
159e 0092 1742 | B| Action Push_String_Extended,0x1742 ; ".<secondary_"
15a0 01cc | | Execute Vector,Catenate
15a1 00d9 | | Load_Top At_Offset_1
15a2 8408 | | Call 0x2,0x8
15a3 01cc | | Execute Vector,Catenate
15a4 0092 1732 | 2| Action Push_String_Extended,0x1732 ; ">"
15a6 01cc | | Execute Vector,Catenate
15a7 0007 | | Action Break_Optional
15a8 e014 | | Load 0x0,0x14
15a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15aa 02c7 | | Declare_Variable Any
15ab 00d8 | | Load_Top At_Offset_0
15ac 1c00 | | Execute_Immediate Run_Utility,0x0
15ad e014 | | Load 0x0,0x14
15ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
15af 02c7 | | Declare_Variable Any
15b0 00d8 | | Load_Top At_Offset_0
15b1 1c00 | | Execute_Immediate Run_Utility,0x0
15b2 BODY_1588:
15b2 00d9 | | Load_Top At_Offset_1
15b3 00ea | | Load_Encached Null_String_Cache
15b4 e605 | | Load 0x3,0x5
15b5 4801 |H | Short_Literal 0x1
15b6 e014 | | Load 0x0,0x14
15b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
15b8 c606 | | Store 0x3,0x6
15b9 00d8 | | Load_Top At_Offset_0
15ba 00ea | | Load_Encached Null_String_Cache
15bb e602 | | Load 0x3,0x2
15bc 4800 |H | Short_Literal 0x0
15bd e014 | | Load 0x0,0x14
15be 1815 | | Execute Package,Field_Execute,Field_Number 0x15
15bf c607 | | Store 0x3,0x7
15c0 00cf | | Action Mark_Auxiliary
15c1 7807 |x | Jump 0x15c9
15c2 00d9 | | Load_Top At_Offset_1
15c3 e014 | | Load 0x0,0x14
15c4 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
15c5 00db | | Load_Top At_Offset_3
15c6 e014 | | Load 0x0,0x14
15c7 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
15c8 00c9 | | Action Pop_Auxiliary_Loop
15c9 00d9 | | Load_Top At_Offset_1
15ca e014 | | Load 0x0,0x14
15cb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
15cc 6ff5 |o | Jump_Zero 0x15c2
15cd 00ce | | Action Pop_Auxiliary
15ce 00d9 | | Load_Top At_Offset_1
15cf e014 | | Load 0x0,0x14
15d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
15d1 c606 | | Store 0x3,0x6
15d2 00d8 | | Load_Top At_Offset_0
15d3 e014 | | Load 0x0,0x14
15d4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
15d5 c607 | | Store 0x3,0x7
15d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
15d7 TRAP_1588:
15d7 0007 | | Action Break_Optional
15d8 00da | | Load_Top At_Offset_2
15d9 8293 | | Call 0x1,0x93
15da c606 | | Store 0x3,0x6
15db 00d9 | | Load_Top At_Offset_1
15dc 8293 | | Call 0x1,0x93
15dd c607 | | Store 0x3,0x7
15de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
15df 0000 | | .XXX[0x1]
15e0 ; --------------------------------------------------------------------------------------
15e0 ; SUBPROGRAM
15e0 ; --------------------------------------------------------------------------------------
15e0 15f5 | | .CONST 0x15f5 ; Address of begin
15e1 0004 | | .CONST 0x0004 ; Address of exception handler
15e2 0002 | | .CONST 0x0002 ; Number of locals
15e3 INIT_15e0:
15e3 e5fe | | Load 0x2,-0x2
15e4 4801 |H | Short_Literal 0x1
15e5 e5ff | | Load 0x2,-0x1
15e6 e009 | | Load 0x0,0x9
15e7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
15e8 e009 | | Load 0x0,0x9
15e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
15ea 0092 1743 | C| Action Push_String_Extended,0x1743 ; ".@'c(ada).<secondary_"
15ec 01cc | | Execute Vector,Catenate
15ed e5ff | | Load 0x2,-0x1
15ee e009 | | Load 0x0,0x9
15ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18
15f0 01cc | | Execute Vector,Catenate
15f1 0092 1732 | 2| Action Push_String_Extended,0x1732 ; ">"
15f3 01cc | | Execute Vector,Catenate
15f4 0007 | | Action Break_Optional
15f5 BODY_15e0:
15f5 00d8 | | Load_Top At_Offset_0
15f6 829b | | Call 0x1,0x9b
15f7 c402 | | Store 0x2,0x2
15f8 e402 | | Load 0x2,0x2
15f9 e00c | | Load 0x0,0xc
15fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
15fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
15fc 7021 |p! | Jump_Nonzero 0x161e
15fd e402 | | Load 0x2,0x2
15fe e00c | | Load 0x0,0xc
15ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1600 181e | | Execute Package,Field_Execute,Field_Number 0x1e
1601 701c |p | Jump_Nonzero 0x161e
1602 e5fe | | Load 0x2,-0x2
1603 4801 |H | Short_Literal 0x1
1604 e402 | | Load 0x2,0x2
1605 e009 | | Load 0x0,0x9
1606 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
1607 c403 | | Store 0x2,0x3
1608 e001 | | Load 0x0,0x1
1609 1b0d | | Execute Package,Field_Read,Field_Number 0xd
160a 00e2 | | Load_Encached Integer_Cache
160b 00e1 | | Load_Encached Boolean_Cache
160c e5fd | | Load 0x2,-0x3
160d 0120 | | Execute Any,Is_Value
160e 6803 |h | Jump_Zero 0x1612
160f e00c | | Load 0x0,0xc
1610 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1611 7801 |x | Jump 0x1613
1612 e5fd | | Load 0x2,-0x3
1613 e5fe | | Load 0x2,-0x2
1614 e403 | | Load 0x2,0x3
1615 8266 | f | Call 0x1,0x66
1616 c5fd | | Store 0x2,-0x3
1617 c406 | | Store 0x2,0x6
1618 c405 | | Store 0x2,0x5
1619 c404 | | Store 0x2,0x4
161a e406 | | Load 0x2,0x6
161b a5fc | | Store_Unchecked 0x2,-0x4
161c 00cc | | Action Pop_Block
161d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
161e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
161f 0000 | | .XXX[0x1]
1620 ; --------------------------------------------------------------------------------------
1620 ; SUBPROGRAM
1620 ; --------------------------------------------------------------------------------------
1620 162f | / | .CONST 0x162f ; Address of begin
1621 0004 | | .CONST 0x0004 ; Address of exception handler
1622 0005 | | .CONST 0x0005 ; Number of locals
1623 INIT_1620:
1623 e402 | | Load 0x2,0x2
1624 e014 | | Load 0x0,0x14
1625 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
1626 e402 | | Load 0x2,0x2
1627 e014 | | Load 0x0,0x14
1628 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
1629 e402 | | Load 0x2,0x2
162a e014 | | Load 0x0,0x14
162b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
162c e402 | | Load 0x2,0x2
162d e014 | | Load 0x0,0x14
162e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
162f BODY_1620:
162f 00db | | Load_Top At_Offset_3
1630 4801 |H | Short_Literal 0x1
1631 e602 | | Load 0x3,0x2
1632 01db | | Execute Vector,Length
1633 00d8 | | Load_Top At_Offset_0
1634 00e2 | | Load_Encached Integer_Cache
1635 0260 | ` | Execute Discrete,In_Type
1636 7001 |p | Jump_Nonzero 0x1638
1637 0801 | | Execute_Immediate Raise,0x1
1638 e5fd | | Load 0x2,-0x3
1639 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
163a 01ce | | Execute Vector,Slice_Write
163b 00db | | Load_Top At_Offset_3
163c 01db | | Execute Vector,Length
163d e5fd | | Load 0x2,-0x3
163e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
163f 00da | | Load_Top At_Offset_2
1640 4801 |H | Short_Literal 0x1
1641 e603 | | Load 0x3,0x3
1642 01db | | Execute Vector,Length
1643 00d8 | | Load_Top At_Offset_0
1644 00e2 | | Load_Encached Integer_Cache
1645 0260 | ` | Execute Discrete,In_Type
1646 7001 |p | Jump_Nonzero 0x1648
1647 0801 | | Execute_Immediate Raise,0x1
1648 e5fd | | Load 0x2,-0x3
1649 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
164a 01ce | | Execute Vector,Slice_Write
164b 00da | | Load_Top At_Offset_2
164c 01db | | Execute Vector,Length
164d e5fd | | Load 0x2,-0x3
164e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
164f 00d9 | | Load_Top At_Offset_1
1650 4801 |H | Short_Literal 0x1
1651 00db | | Load_Top At_Offset_3
1652 01db | | Execute Vector,Length
1653 00d8 | | Load_Top At_Offset_0
1654 00e2 | | Load_Encached Integer_Cache
1655 0260 | ` | Execute Discrete,In_Type
1656 7001 |p | Jump_Nonzero 0x1658
1657 0801 | | Execute_Immediate Raise,0x1
1658 e5fd | | Load 0x2,-0x3
1659 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
165a 01ce | | Execute Vector,Slice_Write
165b 00d9 | | Load_Top At_Offset_1
165c 01db | | Execute Vector,Length
165d e5fd | | Load 0x2,-0x3
165e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
165f 00d8 | | Load_Top At_Offset_0
1660 4801 |H | Short_Literal 0x1
1661 00da | | Load_Top At_Offset_2
1662 01db | | Execute Vector,Length
1663 00d8 | | Load_Top At_Offset_0
1664 00e2 | | Load_Encached Integer_Cache
1665 0260 | ` | Execute Discrete,In_Type
1666 7001 |p | Jump_Nonzero 0x1668
1667 0801 | | Execute_Immediate Raise,0x1
1668 e5fd | | Load 0x2,-0x3
1669 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
166a 01ce | | Execute Vector,Slice_Write
166b 00d8 | | Load_Top At_Offset_0
166c 01db | | Execute Vector,Length
166d e5fd | | Load 0x2,-0x3
166e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
166f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1670 ; --------------------------------------------------------------------------------------
1670 ; SUBPROGRAM
1670 ; --------------------------------------------------------------------------------------
1670 1675 | u | .CONST 0x1675 ; Address of begin
1671 0004 | | .CONST 0x0004 ; Address of exception handler
1672 0002 | | .CONST 0x0002 ; Number of locals
1673 INIT_1670:
1673 e402 | | Load 0x2,0x2
1674 829d | | Call 0x1,0x9d
1675 BODY_1670:
1675 4801 |H | Short_Literal 0x1
1676 e5ff | | Load 0x2,-0x1
1677 00da | | Load_Top At_Offset_2
1678 e01a | | Load 0x0,0x1a
1679 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
167a 6811 |h | Jump_Zero 0x168c
167b 4801 |H | Short_Literal 0x1
167c a405 | | Store_Unchecked 0x2,0x5
167d e00c | | Load 0x0,0xc
167e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
167f e403 | | Load 0x2,0x3
1680 0120 | | Execute Any,Is_Value
1681 6803 |h | Jump_Zero 0x1685
1682 e00c | | Load 0x0,0xc
1683 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1684 7801 |x | Jump 0x1686
1685 e403 | | Load 0x2,0x3
1686 e402 | | Load 0x2,0x2
1687 e00c | | Load 0x0,0xc
1688 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1689 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
168a c403 | | Store 0x2,0x3
168b c406 | | Store 0x2,0x6
168c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
168d 0000 0000 | | .XXX[0x3]
168f 0000 | |
1690 ; --------------------------------------------------------------------------------------
1690 ; SUBPROGRAM
1690 ; --------------------------------------------------------------------------------------
1690 1693 | | .CONST 0x1693 ; Address of begin
1691 0004 | | .CONST 0x0004 ; Address of exception handler
1692 0001 | | .CONST 0x0001 ; Number of locals
1693 BODY_1690:
1693 INIT_1690:
1693 4608 |F | Jump_Case 0x9
1694 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
1695 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
1696 7819 |x | Jump 0x16b0 ; case 0x2
1697 7818 |x | Jump 0x16b0 ; case 0x3
1698 7817 |x | Jump 0x16b0 ; case 0x4
1699 7816 |x | Jump 0x16b0 ; case 0x5
169a 7815 |x | Jump 0x16b0 ; case 0x6
169b 7801 |x | Jump 0x169d ; case 0x7
169c 7809 |x | Jump 0x16a6 ; case 0x8
169d 00db | | Load_Top At_Offset_3
169e 4801 |H | Short_Literal 0x1
169f e5fe | | Load 0x2,-0x2
16a0 00e9 | | Load_Encached String_Cache
16a1 035b | [ | Declare_Type Array,Constrained
16a2 4801 |H | Short_Literal 0x1
16a3 e5ff | | Load 0x2,-0x1
16a4 031b | | Declare_Type Variant_Record,Constrained
16a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
16a6 00db | | Load_Top At_Offset_3
16a7 00db | | Load_Top At_Offset_3
16a8 02fc | | Declare_Variable Variant_Record,With_Constraint
16a9 4801 |H | Short_Literal 0x1
16aa e5fe | | Load 0x2,-0x2
16ab 00e9 | | Load_Encached String_Cache
16ac 0334 | 4 | Declare_Variable Array,With_Constraint
16ad 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
16ae 016a | j | QQ_execute Variant_Record,XXX
16af 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
16b0 0869 | i | Execute_Immediate Raise,0x69
16b1 0000 0000 | | .BLANK 0000[0x7]
16b8 ; --------------------------------------------------------------------------------------
16b8 ; SUBPROGRAM
16b8 ; --------------------------------------------------------------------------------------
16b8 16bb | | .CONST 0x16bb ; Address of begin
16b9 0004 | | .CONST 0x0004 ; Address of exception handler
16ba 0001 | | .CONST 0x0001 ; Number of locals
16bb BODY_16b8:
16bb INIT_16b8:
16bb 4608 |F | Jump_Case 0x9
16bc 7808 |x | Jump 0x16c5 ; case 0x0
16bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
16be 7851 |xQ | Jump 0x1710 ; case 0x2
16bf 7850 |xP | Jump 0x1710 ; case 0x3
16c0 784f |xO | Jump 0x1710 ; case 0x4
16c1 784e |xN | Jump 0x1710 ; case 0x5
16c2 784d |xM | Jump 0x1710 ; case 0x6
16c3 784c |xL | Jump 0x1710 ; case 0x7
16c4 784b |xK | Jump 0x1710 ; case 0x8
16c5 e26f | o | Load 0x1,0x6f
16c6 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
16c7 0337 | 7 | Declare_Variable Array
16c8 4880 |H | Short_Literal 0x80
16c9 4801 |H | Short_Literal 0x1
16ca 4820 |H | Short_Literal 0x20
16cb 00d9 | | Load_Top At_Offset_1
16cc e402 | | Load 0x2,0x2
16cd 01d6 | | Execute Vector,Field_Write
16ce 3ffb |? | Loop_Increasing 0x16ca
16cf 00db | | Load_Top At_Offset_3
16d0 00d9 | | Load_Top At_Offset_1
16d1 00d9 | | Load_Top At_Offset_1
16d2 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
16d3 0119 | | Execute Any,Check_In_Formal_Type
16d4 00d1 | | Pop_Control Pop_Count_1
16d5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
16d6 4800 |H | Short_Literal 0x0
16d7 00db | | Load_Top At_Offset_3
16d8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
16d9 e26f | o | Load 0x1,0x6f
16da 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
16db 0337 | 7 | Declare_Variable Array
16dc 4880 |H | Short_Literal 0x80
16dd 4801 |H | Short_Literal 0x1
16de 4820 |H | Short_Literal 0x20
16df 00d9 | | Load_Top At_Offset_1
16e0 e402 | | Load 0x2,0x2
16e1 01d6 | | Execute Vector,Field_Write
16e2 3ffb |? | Loop_Increasing 0x16de
16e3 00db | | Load_Top At_Offset_3
16e4 00d9 | | Load_Top At_Offset_1
16e5 00d9 | | Load_Top At_Offset_1
16e6 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
16e7 0119 | | Execute Any,Check_In_Formal_Type
16e8 00d1 | | Pop_Control Pop_Count_1
16e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
16ea e26f | o | Load 0x1,0x6f
16eb 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
16ec 0337 | 7 | Declare_Variable Array
16ed 4880 |H | Short_Literal 0x80
16ee 4801 |H | Short_Literal 0x1
16ef 4820 |H | Short_Literal 0x20
16f0 00d9 | | Load_Top At_Offset_1
16f1 e402 | | Load 0x2,0x2
16f2 01d6 | | Execute Vector,Field_Write
16f3 3ffb |? | Loop_Increasing 0x16ef
16f4 00db | | Load_Top At_Offset_3
16f5 00d9 | | Load_Top At_Offset_1
16f6 00d9 | | Load_Top At_Offset_1
16f7 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
16f8 0119 | | Execute Any,Check_In_Formal_Type
16f9 00d1 | | Pop_Control Pop_Count_1
16fa 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
16fb 4800 |H | Short_Literal 0x0
16fc 00db | | Load_Top At_Offset_3
16fd 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
16fe e26f | o | Load 0x1,0x6f
16ff 3007 |0 | Execute Record,Field_Type,Field_Number 0x7
1700 0337 | 7 | Declare_Variable Array
1701 4880 |H | Short_Literal 0x80
1702 4801 |H | Short_Literal 0x1
1703 4820 |H | Short_Literal 0x20
1704 00d9 | | Load_Top At_Offset_1
1705 e402 | | Load 0x2,0x2
1706 01d6 | | Execute Vector,Field_Write
1707 3ffb |? | Loop_Increasing 0x1703
1708 00db | | Load_Top At_Offset_3
1709 00d9 | | Load_Top At_Offset_1
170a 00d9 | | Load_Top At_Offset_1
170b 3007 |0 | Execute Record,Field_Type,Field_Number 0x7
170c 0119 | | Execute Any,Check_In_Formal_Type
170d 00d1 | | Pop_Control Pop_Count_1
170e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
170f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
1710 0869 | i | Execute_Immediate Raise,0x69
1711 ; --------------------------------------------------------------------------------------
1711 ; STRING TABLE
1711 ; --------------------------------------------------------------------------------------
1711 0068 | h | .STRTAB 0x0068->0x1745 ; "secondary_"
1712 0070 | p | .STRTAB 0x0070->0x174a ; "<secondary_[@,~state]>"
1713 0084 | | .STRTAB 0x0084->0x1755 ; "Rcf_Unit.Display_Unit_Options"
1714 009f | | .STRTAB 0x009f->0x1763 ; "Rcf_Unit.Set_Unit_Options"
1715 00b6 | | .STRTAB 0x00b6->0x1770 ; "Rcf_Unit.Remove_Unit_Options"
1716 00d0 | | .STRTAB 0x00d0->0x177e ; "Rcf_Unit.Remote_Unit_Name"
1717 00e7 | | .STRTAB 0x00e7->0x178a ; "Rcf_Unit.Full_Remote_Unit_Name"
1718 0103 | | .STRTAB 0x0103->0x1799 ; "Rcf_Unit.Set_Remote_Unit_Name"
1719 011e | | .STRTAB 0x011e->0x17a8 ; "Rcf_Unit.Local_Update_Time"
171a 0136 | 6 | .STRTAB 0x0136->0x17b5 ; "Rcf_Unit.Set_Local_Update_Time: Time = "
171b 015b | [ | .STRTAB 0x015b->0x17c8 ; "Rcf_Unit.Set_Local_Update_Time"
171c 0177 | w | .STRTAB 0x0177->0x17d7 ; " 128"
171d 0179 | y | .STRTAB 0x0179->0x17d9 ; "Rci_Temp_"
171e 0180 | | .STRTAB 0x0180->0x17de ; "Upload_Ada_Unit"
171f 018d | | .STRTAB 0x018d->0x17e5 ; "<QUIET>"
1720 0192 | | .STRTAB 0x0192->0x17e9 ; "<DIRECTORIES>"
1721 019d | | .STRTAB 0x019d->0x17ef ; "Rcf_Unit.Upload_Ada_Unit"
1722 01b3 | | .STRTAB 0x01b3->0x17fb ; "Setting local download time (from remote time) to "
1723 01e3 | | .STRTAB 0x01e3->0x1814 ; "Can't upload from remote unit \x22"
1724 0200 | | .STRTAB 0x0200->0x1824 ; "\x22 into existing text file \x22"
1725 0219 | | .STRTAB 0x0219->0x1831 ; "\x22."
1726 0219 | | .STRTAB 0x0219->0x1832 ; "Upload_Text_File"
1727 0227 | ' | .STRTAB 0x0227->0x183a ; "Rcf_Unit.Upload_Text_File"
1728 023e | > | .STRTAB 0x023e->0x1847 ; "Update_Consistency"
1729 024e | N | .STRTAB 0x024e->0x1850 ; "Rcf_Unit.Update_Consistency"
172a 0267 | g | .STRTAB 0x0267->0x185d ; "."
172b 0266 | f | .STRTAB 0x0266->0x185e ; "state"
172c 0269 | i | .STRTAB 0x0269->0x1860 ; ".??'c(library)"
172d 0275 | u | .STRTAB 0x0275->0x1867 ; "??'c(library)"
172e 0280 | | .STRTAB 0x0280->0x186e ; "_secondary_"
172f 0289 | | .STRTAB 0x0289->0x1873 ; ".??[@_secondary_@_spec,@_secondary_@_body]"
1730 02b1 | | .STRTAB 0x02b1->0x1888 ; ".<"
1731 02b1 | | .STRTAB 0x02b1->0x1889 ; "state>"
1732 02b5 | | .STRTAB 0x02b5->0x188c ; ">"
1733 02b4 | | .STRTAB 0x02b4->0x188d ; "<DEFAULT>"
1734 02bb | | .STRTAB 0x02bb->0x1891 ; ".Units."
1735 02c0 | | .STRTAB 0x02c0->0x1895 ; ".units"
1736 02c4 | | .STRTAB 0x02c4->0x1898 ; "<error>"
1737 02c9 | | .STRTAB 0x02c9->0x189b ; ".@_secondary_@_spec"
1738 02da | | .STRTAB 0x02da->0x18a5 ; ".@_secondary_@_body"
1739 02eb | | .STRTAB 0x02eb->0x18ae ; ".@'spec.<secondary_@>"
173a 02fe | | .STRTAB 0x02fe->0x18b9 ; ".@'body.<secondary_@>"
173b 0311 | | .STRTAB 0x0311->0x18c3 ; "<NONE>"
173c 0315 | | .STRTAB 0x0315->0x18c6 ; "<AUTO_GENERATE>"
173d 0322 | " | .STRTAB 0x0322->0x18ce ; "["
173e 0321 | ! | .STRTAB 0x0321->0x18ce ; ","
173f 0320 | | .STRTAB 0x0320->0x18cf ; "]"
1740 031f | | .STRTAB 0x031f->0x18cf ; "_"
1741 031e | | .STRTAB 0x031e->0x18d0 ; "'"
1742 031d | | .STRTAB 0x031d->0x18d0 ; ".<secondary_"
1743 0327 | ' | .STRTAB 0x0327->0x18d6 ; ".@'c(ada).<secondary_"
1744 033a | : | .STREND 0x033a->0x18e1
1745 7365 636f |seco| .STRTAB_STRINGS
18e1 0000 0000 | | .BLANK 0000[0x7]
18e8 ; --------------------------------------------------------------------------------------
18e8 ; Debug Table
18e8 ; --------------------------------------------------------------------------------------
18e8 0004 000f | | .DEBUG4 0x0004,0x000f,0x349b,0x0000,0x0001,0x0000
18ee 0c80 0502 | | .XXX[0x5]
18f0 c001 a004 | |
18f2 002c | , |
18f3 0000 0000 | | .BLANK 0000[0xa]
18fd 0800 0578 | x| .XXX[0xc]
18ff a800 8000 | |
1901 00e8 b200 | |
1903 00e8 b200 | |
1905 0000 0000 | |
1907 00af 1580 | |
1909 0000 0000 | | .BLANK 0000[0x10]
1919 01e4 9200 | | .XXX[0x8]
191b 0000 0000 | |
191d 0000 007f | |
191f ffff ff80 | |
1921 0000 0000 | | .BLANK 0000[0xc]
192d 0051 b880 | Q | .XXX[0x6]
192f 0000 0000 | |
1931 0000 1100 | |
1933 0000 0000 | | .BLANK 0000[0x6]
1939 0027 1a20 | ' | .XXX[0x2]
193b 0000 0000 | | .BLANK 0000[0x5]
1940 0030 0036 | 0 6| .XXX[0x4c]
1942 6260 0000 |b` |
1944 0025 f715 | % |
1946 2140 0000 |!@ |
1948 1008 00d9 | |
194a cc08 0000 | |
194c 0000 0000 | |
194e 0001 7dc5 | } |
1950 4850 0000 |HP |
1952 0400 0001 | |
1954 0000 0000 | |
1956 0000 0001 | |
1958 8000 8000 | |
195a 0012 2fb8 | / |
195c a90a 0000 | |
195e 4020 32c0 |@ 2 |
1960 0000 0000 | |
1962 0000 0004 | |
1964 b000 0000 | |
1966 0024 0000 | $ |
1968 00c4 0000 | |
196a 003c 0000 | < |
196c 0198 0000 | |
196e 0130 0000 | 0 |
1970 0000 c400 | |
1972 0000 0000 | |
1974 bee2 a428 | (|
1976 0000 7274 | rt|
1978 0000 0000 | |
197a 0004 c31c | |
197c 0004 e549 | I|
197e c76f 31fc | o1 |
1980 350f b9d8 |5 |
1982 0003 e278 | x|
1984 0000 0800 | |
1986 0001 0000 | |
1988 0004 e54a | J|
198a 0001 efbc | |
198c 0000 0000 | | .BLANK 0000[0x4]
1990 3e27 8000 |>' | .XXX[0x15]
1992 3e54 8000 |>T |
1994 3e54 8000 |>T |
1996 1efb c000 | |
1998 0000 00cf | |
199a c400 04b5 | |
199c dc00 03e2 | |
199e 7800 03e2 |x |
19a0 79a4 0000 |y |
19a2 0000 3fff | ? |
19a4 ffc0 | |
19a5 0000 0000 | | .BLANK 0000[0xa]
19af f6d2 6000 | ` | .XXX[0x6]
19b1 f71b 6020 | ` |
19b3 012c 1000 | , |
19b5 0000 0000 | | .BLANK 0000[0xc]
19c1 0f71 b600 | q | .XXX[0x5]
19c3 0f78 8eff | x |
19c5 2c00 |, |
19c6 0000 0000 | | .BLANK 0000[0xd]
19d3 00f7 6460 | d`| .XXX[0x6]
19d5 00f7 ad60 | `|
19d7 2001 d400 | |
19d9 0000 0000 | | .BLANK 0000[0xc]
19e5 000f 788e | x | .XXX[0x7]
19e7 000f 7d1e | } |
19e9 0200 12c4 | |
19eb 4000 |@ |
19ec 0000 0000 | | .BLANK 0000[0xc]
19f8 f7ad 6000 | ` | .XXX[0x8]
19fa f7f6 6020 | ` |
19fc 010b 7f9a | |
19fe ac00 0000 | |