|
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: 9216 (0x2400)
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 10d0 | | .CONST 0x10d0 ; 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 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01b9 | | .CONST 0x01b9 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 005b | [ | .CONST 0x005b ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
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 0092 0dfd | | Action Push_String_Extended,0xdfd ; "Check_Consistency"
003c 0129 | ) | Execute Any,Make_Visible
003d c21a | | Store 0x1,0x1a
003e 0092 0dfe | | Action Push_String_Extended,0xdfe ; "Host_Only"
0040 0129 | ) | Execute Any,Make_Visible
0041 c21b | | Store 0x1,0x1b
0042 0092 0dff | | Action Push_String_Extended,0xdff ; "Echo_Command_Output"
0044 0129 | ) | Execute Any,Make_Visible
0045 c217 | | Store 0x1,0x17
0046 0092 0e00 | | Action Push_String_Extended,0xe00 ; "Trace_command_output"
0048 0129 | ) | Execute Any,Make_Visible
0049 c224 | $ | Store 0x1,0x24
004a 0092 0e01 | | Action Push_String_Extended,0xe01 ; "Compiler_Pre_Options"
004c 0129 | ) | Execute Any,Make_Visible
004d c21d | | Store 0x1,0x1d
004e 0092 0e02 | | Action Push_String_Extended,0xe02 ; "Compiler_Post_Options"
0050 0129 | ) | Execute Any,Make_Visible
0051 c21e | | Store 0x1,0x1e
0052 0092 0e03 | | Action Push_String_Extended,0xe03 ; "Linker_Pre_Options"
0054 0129 | ) | Execute Any,Make_Visible
0055 c21f | | Store 0x1,0x1f
0056 0092 0e04 | | Action Push_String_Extended,0xe04 ; "Linker_Post_Options"
0058 0129 | ) | Execute Any,Make_Visible
0059 c220 | | Store 0x1,0x20
005a 0092 0e05 | | Action Push_String_Extended,0xe05 ; "Remote_Library"
005c 0129 | ) | Execute Any,Make_Visible
005d c235 | 5 | Store 0x1,0x35
005e 0092 0e06 | | Action Push_String_Extended,0xe06 ; "Generate_Batch_Script"
0060 0129 | ) | Execute Any,Make_Visible
0061 c21c | | Store 0x1,0x1c
0062 0092 0e07 | | Action Push_String_Extended,0xe07 ; "optimize_download"
0064 0129 | ) | Execute Any,Make_Visible
0065 c23b | ; | Store 0x1,0x3b
0066 0092 0e08 | | Action Push_String_Extended,0xe08 ; "Auto_Create_Remote_Directory"
0068 0129 | ) | Execute Any,Make_Visible
0069 c233 | 3 | Store 0x1,0x33
006a 0092 0e09 | | Action Push_String_Extended,0xe09 ; "Retrieve_Executable"
006c 0129 | ) | Execute Any,Make_Visible
006d c23a | : | Store 0x1,0x3a
006e 0092 0e0a | | Action Push_String_Extended,0xe0a ; "auto_transfer"
0070 0129 | ) | Execute Any,Make_Visible
0071 c227 | ' | Store 0x1,0x27
0072 0092 0e0b | | Action Push_String_Extended,0xe0b ; "operation_mode"
0074 0129 | ) | Execute Any,Make_Visible
0075 c228 | ( | Store 0x1,0x28
0076 0092 0e0c | | Action Push_String_Extended,0xe0c ; "_default_roof"
0078 0129 | ) | Execute Any,Make_Visible
0079 c229 | ) | Store 0x1,0x29
007a 0092 0e0d | | Action Push_String_Extended,0xe0d ; "_default_machine"
007c 0129 | ) | Execute Any,Make_Visible
007d c22a | * | Store 0x1,0x2a
007e e001 | | Load 0x0,0x1
007f 0129 | ) | Execute Any,Make_Visible
0080 c218 | | Store 0x1,0x18
0081 e002 | | Load 0x0,0x2
0082 0129 | ) | Execute Any,Make_Visible
0083 c219 | | Store 0x1,0x19
0084 4800 |H | Short_Literal 0x0
0085 4801 |H | Short_Literal 0x1
0086 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0088 03fe | | Declare_Type Discrete,Defined,Visible
0089 c22b | + | Store 0x1,0x2b
008a 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
008c c22c | , | Store 0x1,0x2c
008d 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
008f c22d | - | Store 0x1,0x2d
0090 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0092 c22e | . | Store 0x1,0x2e
0093 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
0095 c22f | / | Store 0x1,0x2f
0096 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
0098 c236 | 6 | Store 0x1,0x36
0099 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated
009b c237 | 7 | Store 0x1,0x37
009c 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated
009e c238 | 8 | Store 0x1,0x38
009f 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated
00a1 c230 | 0 | Store 0x1,0x30
00a2 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
00a4 c231 | 1 | Store 0x1,0x31
00a5 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated
00a7 c232 | 2 | Store 0x1,0x32
00a8 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated
00aa c234 | 4 | Store 0x1,0x34
00ab 00bf | | Action Accept_Activation
00ac 00e1 | | Load_Encached Boolean_Cache
00ad 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ae e003 | | Load 0x0,0x3
00af 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b0 00e1 | | Load_Encached Boolean_Cache
00b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b2 00e3 | | Load_Encached Natural_Cache
00b3 00e9 | | Load_Encached String_Cache
00b4 02a0 | | Declare_Subprogram Null_Subprogram
00b5 03ad | | Declare_Type Heap_Access,Defined
00b6 00e9 | | Load_Encached String_Cache
00b7 00d8 | | Load_Top At_Offset_0
00b8 02a0 | | Declare_Subprogram Null_Subprogram
00b9 03ad | | Declare_Type Heap_Access,Defined
00ba 4800 |H | Short_Literal 0x0
00bb 4803 |H | Short_Literal 0x3
00bc 029f 0783 | | Declare_Subprogram INIT_0780,For_Call
00be 03fd | | Declare_Type Discrete,Defined
00bf 00d8 | | Load_Top At_Offset_0
00c0 4801 |H | Short_Literal 0x1
00c1 00e1 | | Load_Encached Boolean_Cache
00c2 4801 |H | Short_Literal 0x1
00c3 00e2 | | Load_Encached Integer_Cache
00c4 4801 |H | Short_Literal 0x1
00c5 e240 | @ | Load 0x1,0x40
00c6 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call
00c8 4803 |H | Short_Literal 0x3
00c9 4800 |H | Short_Literal 0x0
00ca 4803 |H | Short_Literal 0x3
00cb 4800 |H | Short_Literal 0x0
00cc 4801 |H | Short_Literal 0x1
00cd 031d | | Declare_Type Variant_Record,Defined
00ce e240 | @ | Load 0x1,0x40
00cf 00d9 | | Load_Top At_Offset_1
00d0 e240 | @ | Load 0x1,0x40
00d1 029f 07f3 | | Declare_Subprogram INIT_07f0,For_Call
00d3 4803 |H | Short_Literal 0x3
00d4 032d | - | Declare_Type Record,Defined
00d5 029b 080b | | Declare_Subprogram INIT_0808,For_Outer_Call,Unelaborated
00d7 e004 | | Load 0x0,0x4
00d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d9 02ff | | Declare_Variable Variant_Record
00da 00d8 | | Load_Top At_Offset_0
00db 1c00 | | Execute_Immediate Run_Utility,0x0
00dc 029b 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Unelaborated
00de 029b 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Unelaborated
00e0 e005 | | Load 0x0,0x5
00e1 e006 | | Load 0x0,0x6
00e2 e23f | ? | Load 0x1,0x3f
00e3 e245 | E | Load 0x1,0x45
00e4 00e3 | | Load_Encached Natural_Cache
00e5 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
00e6 e007 | | Load 0x0,0x7
00e7 0387 | | Declare_Variable Package
00e8 00d8 | | Load_Top At_Offset_0
00e9 020f | | Execute Module,Activate
00ea 00d8 | | Load_Top At_Offset_0
00eb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ec e23f | ? | Load 0x1,0x3f
00ed 029f 08ab | | Declare_Subprogram INIT_08a8,For_Call
00ef 4802 |H | Short_Literal 0x2
00f0 032d | - | Declare_Type Record,Defined
00f1 e22b | + | Load 0x1,0x2b
00f2 0266 | f | Execute Discrete,Bounds
00f3 00da | | Load_Top At_Offset_2
00f4 029f 08c3 | | Declare_Subprogram INIT_08c0,For_Call
00f6 4801 |H | Short_Literal 0x1
00f7 035d | ] | Declare_Type Array,Defined
00f8 00d8 | | Load_Top At_Offset_0
00f9 0337 | 7 | Declare_Variable Array
00fa 00d8 | | Load_Top At_Offset_0
00fb 1c00 | | Execute_Immediate Run_Utility,0x0
00fc 00db | | Load_Top At_Offset_3
00fd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00fe 02a0 | | Declare_Subprogram Null_Subprogram
00ff 03ad | | Declare_Type Heap_Access,Defined
0100 029d 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call
0102 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
0103 00c7 | | Action Elaborate_Subprogram
0104 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
0105 00c7 | | Action Elaborate_Subprogram
0106 029d 0933 | 3| Declare_Subprogram INIT_0930,For_Outer_Call
0108 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
0109 00c7 | | Action Elaborate_Subprogram
010a 4803 |H | Short_Literal 0x3
010b 0093 0a7b | {| push_full_address INIT_0a78
010d 02a0 | | Declare_Subprogram Null_Subprogram
010e 038c | | Declare_Type Package,Defined,Not_Elaborated
010f 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0110 e008 | | Load 0x0,0x8
0111 e009 | | Load 0x0,0x9
0112 e00a | | Load 0x0,0xa
0113 e24d | M | Load 0x1,0x4d
0114 e24a | J | Load 0x1,0x4a
0115 e00b | | Load 0x0,0xb
0116 e00c | | Load 0x0,0xc
0117 e00d | | Load 0x0,0xd
0118 e004 | | Load 0x0,0x4
0119 480a |H | Short_Literal 0xa
011a e251 | Q | Load 0x1,0x51
011b 020e | | Execute Module,Augment_Imports
011c 00d8 | | Load_Top At_Offset_0
011d 020d | | Execute Module,Elaborate
011e 0007 | | Action Break_Optional
011f e00e | | Load 0x0,0xe
0120 e00f | | Load 0x0,0xf
0121 4800 |H | Short_Literal 0x0
0122 00db | | Load_Top At_Offset_3
0123 0387 | | Declare_Variable Package
0124 00d8 | | Load_Top At_Offset_0
0125 020f | | Execute Module,Activate
0126 e010 | | Load 0x0,0x10
0127 e011 | | Load 0x0,0x11
0128 4801 |H | Short_Literal 0x1
0129 e251 | Q | Load 0x1,0x51
012a 0387 | | Declare_Variable Package
012b 00d8 | | Load_Top At_Offset_0
012c 020f | | Execute Module,Activate
012d e012 | | Load 0x0,0x12
012e e013 | | Load 0x0,0x13
012f 4800 |H | Short_Literal 0x0
0130 8248 | H | Call 0x1,0x48
0131 4801 |H | Short_Literal 0x1
0132 e004 | | Load 0x0,0x4
0133 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0134 0387 | | Declare_Variable Package
0135 00d8 | | Load_Top At_Offset_0
0136 020f | | Execute Module,Activate
0137 e014 | | Load 0x0,0x14
0138 e015 | | Load 0x0,0x15
0139 e23f | ? | Load 0x1,0x3f
013a 00e9 | | Load_Encached String_Cache
013b e242 | B | Load 0x1,0x42
013c 484c |HL | Short_Literal 0x4c
013d e252 | R | Load 0x1,0x52
013e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
013f e252 | R | Load 0x1,0x52
0140 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0141 e252 | R | Load 0x1,0x52
0142 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0143 e252 | R | Load 0x1,0x52
0144 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0145 e252 | R | Load 0x1,0x52
0146 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0147 e252 | R | Load 0x1,0x52
0148 1915 | | Execute Package,Field_Reference,Field_Number 0x15
0149 00ea | | Load_Encached Null_String_Cache
014a e252 | R | Load 0x1,0x52
014b 1916 | | Execute Package,Field_Reference,Field_Number 0x16
014c e004 | | Load 0x0,0x4
014d 191f | | Execute Package,Field_Reference,Field_Number 0x1f
014e e254 | T | Load 0x1,0x54
014f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0150 0387 | | Declare_Variable Package
0151 00d8 | | Load_Top At_Offset_0
0152 020f | | Execute Module,Activate
0153 e016 | | Load 0x0,0x16
0154 e017 | | Load 0x0,0x17
0155 4800 |H | Short_Literal 0x0
0156 8250 | P | Call 0x1,0x50
0157 4801 |H | Short_Literal 0x1
0158 e004 | | Load 0x0,0x4
0159 1b20 | | Execute Package,Field_Read,Field_Number 0x20
015a 0387 | | Declare_Variable Package
015b 00d8 | | Load_Top At_Offset_0
015c 020f | | Execute Module,Activate
015d e018 | | Load 0x0,0x18
015e e019 | | Load 0x0,0x19
015f e23f | ? | Load 0x1,0x3f
0160 00e9 | | Load_Encached String_Cache
0161 e242 | B | Load 0x1,0x42
0162 484c |HL | Short_Literal 0x4c
0163 e252 | R | Load 0x1,0x52
0164 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0165 e252 | R | Load 0x1,0x52
0166 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0167 e252 | R | Load 0x1,0x52
0168 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0169 e252 | R | Load 0x1,0x52
016a 1913 | | Execute Package,Field_Reference,Field_Number 0x13
016b e252 | R | Load 0x1,0x52
016c 1914 | | Execute Package,Field_Reference,Field_Number 0x14
016d e252 | R | Load 0x1,0x52
016e 1915 | | Execute Package,Field_Reference,Field_Number 0x15
016f 00ea | | Load_Encached Null_String_Cache
0170 e252 | R | Load 0x1,0x52
0171 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0172 e004 | | Load 0x0,0x4
0173 191f | | Execute Package,Field_Reference,Field_Number 0x1f
0174 e256 | V | Load 0x1,0x56
0175 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0176 0387 | | Declare_Variable Package
0177 00d8 | | Load_Top At_Offset_0
0178 020f | | Execute Module,Activate
0179 e01a | | Load 0x0,0x1a
017a e01b | | Load 0x0,0x1b
017b 4801 |H | Short_Literal 0x1
017c 8248 | H | Call 0x1,0x48
017d 4801 |H | Short_Literal 0x1
017e e004 | | Load 0x0,0x4
017f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0180 0387 | | Declare_Variable Package
0181 00d8 | | Load_Top At_Offset_0
0182 020f | | Execute Module,Activate
0183 e01c | | Load 0x0,0x1c
0184 e01d | | Load 0x0,0x1d
0185 e23f | ? | Load 0x1,0x3f
0186 00e9 | | Load_Encached String_Cache
0187 e242 | B | Load 0x1,0x42
0188 4853 |HS | Short_Literal 0x53
0189 e253 | S | Load 0x1,0x53
018a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
018b e253 | S | Load 0x1,0x53
018c 1911 | | Execute Package,Field_Reference,Field_Number 0x11
018d e253 | S | Load 0x1,0x53
018e 1912 | | Execute Package,Field_Reference,Field_Number 0x12
018f e253 | S | Load 0x1,0x53
0190 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0191 e253 | S | Load 0x1,0x53
0192 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0193 e253 | S | Load 0x1,0x53
0194 1915 | | Execute Package,Field_Reference,Field_Number 0x15
0195 00ea | | Load_Encached Null_String_Cache
0196 e253 | S | Load 0x1,0x53
0197 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0198 e004 | | Load 0x0,0x4
0199 191f | | Execute Package,Field_Reference,Field_Number 0x1f
019a e258 | X | Load 0x1,0x58
019b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
019c 0387 | | Declare_Variable Package
019d 00d8 | | Load_Top At_Offset_0
019e 020f | | Execute Module,Activate
019f 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call
01a1 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
01a2 00c7 | | Action Elaborate_Subprogram
01a3 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
01a4 00c7 | | Action Elaborate_Subprogram
01a5 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
01a6 00c7 | | Action Elaborate_Subprogram
01a7 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
01a8 00c7 | | Action Elaborate_Subprogram
01a9 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
01aa 00c7 | | Action Elaborate_Subprogram
01ab 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
01ac 00c7 | | Action Elaborate_Subprogram
01ad 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
01ae 00c7 | | Action Elaborate_Subprogram
01af 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
01b0 00c7 | | Action Elaborate_Subprogram
01b1 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
01b2 00c7 | | Action Elaborate_Subprogram
01b3 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
01b4 00c7 | | Action Elaborate_Subprogram
01b5 029d 0953 | S| Declare_Subprogram INIT_0950,For_Outer_Call
01b7 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
01b8 00c7 | | Action Elaborate_Subprogram
01b9 BODY_0008:
01b9 4800 |H | Short_Literal 0x0
01ba e24d | M | Load 0x1,0x4d
01bb 01d5 | | Execute Vector,Field_Reference
01bc e24a | J | Load 0x1,0x4a
01bd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01be e23d | = | Load 0x1,0x3d
01bf e24a | J | Load 0x1,0x4a
01c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c1 00d9 | | Load_Top At_Offset_1
01c2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c3 00d1 | | Pop_Control Pop_Count_1
01c4 4801 |H | Short_Literal 0x1
01c5 e24d | M | Load 0x1,0x4d
01c6 01d5 | | Execute Vector,Field_Reference
01c7 e24a | J | Load 0x1,0x4a
01c8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01c9 e23d | = | Load 0x1,0x3d
01ca e24a | J | Load 0x1,0x4a
01cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01cc 00d9 | | Load_Top At_Offset_1
01cd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ce 00d1 | | Pop_Control Pop_Count_1
01cf 8246 | F | Call 0x1,0x46
01d0 e247 | G | Load 0x1,0x47
01d1 016d | m | Execute Variant_Record,Structure_Write
01d2 00bc | | Action Signal_Activated
01d3 00bb | | Action Signal_Completion
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4607 |F | Jump_Case 0x8
01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01dd 7806 |x | Jump 0x1e4 ; case 0x1
01de 7809 |x | Jump 0x1e8 ; case 0x2
01df 780d |x | Jump 0x1ed ; case 0x3
01e0 7810 |x | Jump 0x1f1 ; case 0x4
01e1 7811 |x | Jump 0x1f3 ; case 0x5
01e2 7812 |x | Jump 0x1f5 ; case 0x6
01e3 7815 |x | Jump 0x1f9 ; case 0x7
01e4 00da | | Load_Top At_Offset_2
01e5 0091 0df7 | | Action Push_String_Extended_Indexed,0xdf7 ; "LIBRARY_SWITCH"
01e7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e8 00db | | Load_Top At_Offset_3
01e9 00db | | Load_Top At_Offset_3
01ea 00e0 | | Load_Encached Standard_Cache
01eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ed 00da | | Load_Top At_Offset_2
01ee 00e0 | | Load_Encached Standard_Cache
01ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f1 00db | | Load_Top At_Offset_3
01f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f3 00db | | Load_Top At_Offset_3
01f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f5 e22b | + | Load 0x1,0x2b
01f6 00dc | | Load_Top At_Offset_4
01f7 0267 | g | Execute Discrete,Predecessor
01f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f9 e22b | + | Load 0x1,0x2b
01fa 00dc | | Load_Top At_Offset_4
01fb 0268 | h | Execute Discrete,Successor
01fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0226 | & | .CONST 0x0226 ; Address of begin
0201 027b | { | .CONST 0x027b ; Address of exception handler
0202 0005 | | .CONST 0x0005 ; Number of locals
0203 INIT_0200:
0203 e23f | ? | Load 0x1,0x3f
0204 0007 | | Action Break_Optional
0205 4801 |H | Short_Literal 0x1
0206 e5fe | | Load 0x2,-0x2
0207 01db | | Execute Vector,Length
0208 00d8 | | Load_Top At_Offset_0
0209 00e2 | | Load_Encached Integer_Cache
020a 0260 | ` | Execute Discrete,In_Type
020b 7001 |p | Jump_Nonzero 0x20d
020c 0801 | | Execute_Immediate Raise,0x1
020d e240 | @ | Load 0x1,0x40
020e e23d | = | Load 0x1,0x3d
020f 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0210 4801 |H | Short_Literal 0x1
0211 e5ff | | Load 0x2,-0x1
0212 01db | | Execute Vector,Length
0213 00d8 | | Load_Top At_Offset_0
0214 00e2 | | Load_Encached Integer_Cache
0215 0260 | ` | Execute Discrete,In_Type
0216 7001 |p | Jump_Nonzero 0x218
0217 0801 | | Execute_Immediate Raise,0x1
0218 e240 | @ | Load 0x1,0x40
0219 e23d | = | Load 0x1,0x3d
021a 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
021b 4801 |H | Short_Literal 0x1
021c e5fd | | Load 0x2,-0x3
021d 01db | | Execute Vector,Length
021e 00d8 | | Load_Top At_Offset_0
021f 00e2 | | Load_Encached Integer_Cache
0220 0260 | ` | Execute Discrete,In_Type
0221 7001 |p | Jump_Nonzero 0x223
0222 0801 | | Execute_Immediate Raise,0x1
0223 e240 | @ | Load 0x1,0x40
0224 e23d | = | Load 0x1,0x3d
0225 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0226 BODY_0200:
0226 e5fe | | Load 0x2,-0x2
0227 00db | | Load_Top At_Offset_3
0228 0218 | | Execute Heap_Access,All_Write
0229 e5ff | | Load 0x2,-0x1
022a 00da | | Load_Top At_Offset_2
022b 0218 | | Execute Heap_Access,All_Write
022c e5fd | | Load 0x2,-0x3
022d 00d9 | | Load_Top At_Offset_1
022e 0218 | | Execute Heap_Access,All_Write
022f e5fc | | Load 0x2,-0x4
0230 e5ff | | Load 0x2,-0x1
0231 822f | / | Call 0x1,0x2f
0232 6816 |h | Jump_Zero 0x249
0233 e008 | | Load 0x0,0x8
0234 180e | | Execute Package,Field_Execute,Field_Number 0xe
0235 4801 |H | Short_Literal 0x1
0236 4801 |H | Short_Literal 0x1
0237 e00b | | Load 0x0,0xb
0238 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0239 035b | [ | Declare_Type Array,Constrained
023a 0337 | 7 | Declare_Variable Array
023b e5ff | | Load 0x2,-0x1
023c e00b | | Load 0x0,0xb
023d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023e e00b | | Load 0x0,0xb
023f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0240 0119 | | Execute Any,Check_In_Formal_Type
0241 4801 |H | Short_Literal 0x1
0242 00da | | Load_Top At_Offset_2
0243 01d6 | | Execute Vector,Field_Write
0244 4806 |H | Short_Literal 0x6
0245 605e |`^ | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x0000814c}
0246 e00d | | Load 0x0,0xd
0247 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0248 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0249 4800 |H | Short_Literal 0x0
024a e245 | E | Load 0x1,0x45
024b 0322 | " | Declare_Variable Record
024c 00db | | Load_Top At_Offset_3
024d 00d9 | | Load_Top At_Offset_1
024e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
024f 4802 |H | Short_Literal 0x2
0250 e244 | D | Load 0x1,0x44
0251 1c08 | | Execute_Immediate Run_Utility,0x8
0252 e403 | | Load 0x2,0x3
0253 00d9 | | Load_Top At_Offset_1
0254 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0255 00d9 | | Load_Top At_Offset_1
0256 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0257 00da | | Load_Top At_Offset_2
0258 00d9 | | Load_Top At_Offset_1
0259 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
025a e5fc | | Load 0x2,-0x4
025b e24d | M | Load 0x1,0x4d
025c 01d5 | | Execute Vector,Field_Reference
025d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025e e5fc | | Load 0x2,-0x4
025f e24d | M | Load 0x1,0x4d
0260 01d5 | | Execute Vector,Field_Reference
0261 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0262 e24a | J | Load 0x1,0x4a
0263 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0264 e23f | ? | Load 0x1,0x3f
0265 e5fc | | Load 0x2,-0x4
0266 e5ff | | Load 0x2,-0x1
0267 825a | Z | Call 0x1,0x5a
0268 c402 | | Store 0x2,0x2
0269 00db | | Load_Top At_Offset_3
026a e5fc | | Load 0x2,-0x4
026b e24d | M | Load 0x1,0x4d
026c 01d5 | | Execute Vector,Field_Reference
026d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
026e 027f | | Execute Discrete,Equal
026f 7001 |p | Jump_Nonzero 0x271
0270 0887 | | Execute_Immediate Raise,0x87
0271 e5fc | | Load 0x2,-0x4
0272 e24d | M | Load 0x1,0x4d
0273 01d5 | | Execute Vector,Field_Reference
0274 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0275 0a01 | | Execute_Immediate Plus,0x1
0276 e5fc | | Load 0x2,-0x4
0277 e24d | M | Load 0x1,0x4d
0278 01d5 | | Execute Vector,Field_Reference
0279 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
027a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
027b TRAP_0200:
027b 0007 | | Action Break_Optional
027c e008 | | Load 0x0,0x8
027d 180e | | Execute Package,Field_Execute,Field_Number 0xe
027e 4801 |H | Short_Literal 0x1
027f 4802 |H | Short_Literal 0x2
0280 e00b | | Load 0x0,0xb
0281 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0282 035b | [ | Declare_Type Array,Constrained
0283 0337 | 7 | Declare_Variable Array
0284 0092 0e0e | | Action Push_String_Extended,0xe0e ; "Rcf_Switch_Implementation.Define"
0286 e00b | | Load 0x0,0xb
0287 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0288 e00b | | Load 0x0,0xb
0289 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028a 0119 | | Execute Any,Check_In_Formal_Type
028b 4801 |H | Short_Literal 0x1
028c 00da | | Load_Top At_Offset_2
028d 01d6 | | Execute Vector,Field_Write
028e 4800 |H | Short_Literal 0x0
028f 4801 |H | Short_Literal 0x1
0290 e00c | | Load 0x0,0xc
0291 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0292 e00b | | Load 0x0,0xb
0293 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0294 e00b | | Load 0x0,0xb
0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0296 0119 | | Execute Any,Check_In_Formal_Type
0297 4802 |H | Short_Literal 0x2
0298 00da | | Load_Top At_Offset_2
0299 01d6 | | Execute Vector,Field_Write
029a 4805 |H | Short_Literal 0x5
029b 6004 |` | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0000813b}
029c e00d | | Load 0x0,0xd
029d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
029e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
029f 0000 | | .XXX[0x1]
02a0 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
02a4 0000 0000 | | .LITERAL {0x00000000, 0x0000814c}
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02c3 | | .CONST 0x02c3 ; Address of begin
02a9 0315 | | .CONST 0x0315 ; Address of exception handler
02aa 0004 | | .CONST 0x0004 ; Number of locals
02ab INIT_02a8:
02ab e23f | ? | Load 0x1,0x3f
02ac 0007 | | Action Break_Optional
02ad 4801 |H | Short_Literal 0x1
02ae e5ff | | Load 0x2,-0x1
02af 01db | | Execute Vector,Length
02b0 00d8 | | Load_Top At_Offset_0
02b1 00e2 | | Load_Encached Integer_Cache
02b2 0260 | ` | Execute Discrete,In_Type
02b3 7001 |p | Jump_Nonzero 0x2b5
02b4 0801 | | Execute_Immediate Raise,0x1
02b5 e240 | @ | Load 0x1,0x40
02b6 e23d | = | Load 0x1,0x3d
02b7 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
02b8 4801 |H | Short_Literal 0x1
02b9 e5fd | | Load 0x2,-0x3
02ba 01db | | Execute Vector,Length
02bb 00d8 | | Load_Top At_Offset_0
02bc 00e2 | | Load_Encached Integer_Cache
02bd 0260 | ` | Execute Discrete,In_Type
02be 7001 |p | Jump_Nonzero 0x2c0
02bf 0801 | | Execute_Immediate Raise,0x1
02c0 e240 | @ | Load 0x1,0x40
02c1 e23d | = | Load 0x1,0x3d
02c2 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
02c3 BODY_02a8:
02c3 e5ff | | Load 0x2,-0x1
02c4 00da | | Load_Top At_Offset_2
02c5 0218 | | Execute Heap_Access,All_Write
02c6 e5fd | | Load 0x2,-0x3
02c7 00d9 | | Load_Top At_Offset_1
02c8 0218 | | Execute Heap_Access,All_Write
02c9 e5fc | | Load 0x2,-0x4
02ca e5ff | | Load 0x2,-0x1
02cb 822f | / | Call 0x1,0x2f
02cc 6816 |h | Jump_Zero 0x2e3
02cd e008 | | Load 0x0,0x8
02ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cf 4801 |H | Short_Literal 0x1
02d0 4801 |H | Short_Literal 0x1
02d1 e00b | | Load 0x0,0xb
02d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d3 035b | [ | Declare_Type Array,Constrained
02d4 0337 | 7 | Declare_Variable Array
02d5 e5ff | | Load 0x2,-0x1
02d6 e00b | | Load 0x0,0xb
02d7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d8 e00b | | Load 0x0,0xb
02d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02da 0119 | | Execute Any,Check_In_Formal_Type
02db 4801 |H | Short_Literal 0x1
02dc 00da | | Load_Top At_Offset_2
02dd 01d6 | | Execute Vector,Field_Write
02de 4806 |H | Short_Literal 0x6
02df 67c4 |g | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x0000814c}
02e0 e00d | | Load 0x0,0xd
02e1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02e2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02e3 4800 |H | Short_Literal 0x0
02e4 e245 | E | Load 0x1,0x45
02e5 0322 | " | Declare_Variable Record
02e6 00db | | Load_Top At_Offset_3
02e7 00d9 | | Load_Top At_Offset_1
02e8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02e9 4800 |H | Short_Literal 0x0
02ea e244 | D | Load 0x1,0x44
02eb 1c08 | | Execute_Immediate Run_Utility,0x8
02ec e5fe | | Load 0x2,-0x2
02ed 00d9 | | Load_Top At_Offset_1
02ee 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02ef 00d9 | | Load_Top At_Offset_1
02f0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f1 00da | | Load_Top At_Offset_2
02f2 00d9 | | Load_Top At_Offset_1
02f3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02f4 e5fc | | Load 0x2,-0x4
02f5 e24d | M | Load 0x1,0x4d
02f6 01d5 | | Execute Vector,Field_Reference
02f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f8 e5fc | | Load 0x2,-0x4
02f9 e24d | M | Load 0x1,0x4d
02fa 01d5 | | Execute Vector,Field_Reference
02fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02fc e24a | J | Load 0x1,0x4a
02fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02fe e23f | ? | Load 0x1,0x3f
02ff e5fc | | Load 0x2,-0x4
0300 e5ff | | Load 0x2,-0x1
0301 825a | Z | Call 0x1,0x5a
0302 005b | [ | Store_Top Discrete,At_Offset_3
0303 00da | | Load_Top At_Offset_2
0304 e5fc | | Load 0x2,-0x4
0305 e24d | M | Load 0x1,0x4d
0306 01d5 | | Execute Vector,Field_Reference
0307 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0308 027f | | Execute Discrete,Equal
0309 7001 |p | Jump_Nonzero 0x30b
030a 0887 | | Execute_Immediate Raise,0x87
030b e5fc | | Load 0x2,-0x4
030c e24d | M | Load 0x1,0x4d
030d 01d5 | | Execute Vector,Field_Reference
030e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030f 0a01 | | Execute_Immediate Plus,0x1
0310 e5fc | | Load 0x2,-0x4
0311 e24d | M | Load 0x1,0x4d
0312 01d5 | | Execute Vector,Field_Reference
0313 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0314 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0315 TRAP_02a8:
0315 0007 | | Action Break_Optional
0316 e008 | | Load 0x0,0x8
0317 180e | | Execute Package,Field_Execute,Field_Number 0xe
0318 4801 |H | Short_Literal 0x1
0319 4802 |H | Short_Literal 0x2
031a e00b | | Load 0x0,0xb
031b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
031c 035b | [ | Declare_Type Array,Constrained
031d 0337 | 7 | Declare_Variable Array
031e 0092 0e0e | | Action Push_String_Extended,0xe0e ; "Rcf_Switch_Implementation.Define"
0320 e00b | | Load 0x0,0xb
0321 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0322 e00b | | Load 0x0,0xb
0323 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0324 0119 | | Execute Any,Check_In_Formal_Type
0325 4801 |H | Short_Literal 0x1
0326 00da | | Load_Top At_Offset_2
0327 01d6 | | Execute Vector,Field_Write
0328 4800 |H | Short_Literal 0x0
0329 4801 |H | Short_Literal 0x1
032a e00c | | Load 0x0,0xc
032b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
032c e00b | | Load 0x0,0xb
032d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
032e e00b | | Load 0x0,0xb
032f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0330 0119 | | Execute Any,Check_In_Formal_Type
0331 4802 |H | Short_Literal 0x2
0332 00da | | Load_Top At_Offset_2
0333 01d6 | | Execute Vector,Field_Write
0334 4805 |H | Short_Literal 0x5
0335 676a |gj | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0000813b}
0336 e00d | | Load 0x0,0xd
0337 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0338 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 035b | [ | .CONST 0x035b ; Address of begin
0341 03ad | | .CONST 0x03ad ; Address of exception handler
0342 0004 | | .CONST 0x0004 ; Number of locals
0343 INIT_0340:
0343 e23f | ? | Load 0x1,0x3f
0344 0007 | | Action Break_Optional
0345 4801 |H | Short_Literal 0x1
0346 e5ff | | Load 0x2,-0x1
0347 01db | | Execute Vector,Length
0348 00d8 | | Load_Top At_Offset_0
0349 00e2 | | Load_Encached Integer_Cache
034a 0260 | ` | Execute Discrete,In_Type
034b 7001 |p | Jump_Nonzero 0x34d
034c 0801 | | Execute_Immediate Raise,0x1
034d e240 | @ | Load 0x1,0x40
034e e23d | = | Load 0x1,0x3d
034f 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0350 4801 |H | Short_Literal 0x1
0351 e5fd | | Load 0x2,-0x3
0352 01db | | Execute Vector,Length
0353 00d8 | | Load_Top At_Offset_0
0354 00e2 | | Load_Encached Integer_Cache
0355 0260 | ` | Execute Discrete,In_Type
0356 7001 |p | Jump_Nonzero 0x358
0357 0801 | | Execute_Immediate Raise,0x1
0358 e240 | @ | Load 0x1,0x40
0359 e23d | = | Load 0x1,0x3d
035a 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
035b BODY_0340:
035b e5ff | | Load 0x2,-0x1
035c 00da | | Load_Top At_Offset_2
035d 0218 | | Execute Heap_Access,All_Write
035e e5fd | | Load 0x2,-0x3
035f 00d9 | | Load_Top At_Offset_1
0360 0218 | | Execute Heap_Access,All_Write
0361 e5fc | | Load 0x2,-0x4
0362 e5ff | | Load 0x2,-0x1
0363 822f | / | Call 0x1,0x2f
0364 6816 |h | Jump_Zero 0x37b
0365 e008 | | Load 0x0,0x8
0366 180e | | Execute Package,Field_Execute,Field_Number 0xe
0367 4801 |H | Short_Literal 0x1
0368 4801 |H | Short_Literal 0x1
0369 e00b | | Load 0x0,0xb
036a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036b 035b | [ | Declare_Type Array,Constrained
036c 0337 | 7 | Declare_Variable Array
036d e5ff | | Load 0x2,-0x1
036e e00b | | Load 0x0,0xb
036f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0370 e00b | | Load 0x0,0xb
0371 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0372 0119 | | Execute Any,Check_In_Formal_Type
0373 4801 |H | Short_Literal 0x1
0374 00da | | Load_Top At_Offset_2
0375 01d6 | | Execute Vector,Field_Write
0376 4806 |H | Short_Literal 0x6
0377 6060 |`` | Indirect_Literal Discrete,0x3d8,{0x00000000, 0x0000814c}
0378 e00d | | Load 0x0,0xd
0379 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
037a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
037b 4800 |H | Short_Literal 0x0
037c e245 | E | Load 0x1,0x45
037d 0322 | " | Declare_Variable Record
037e 00db | | Load_Top At_Offset_3
037f 00d9 | | Load_Top At_Offset_1
0380 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0381 4801 |H | Short_Literal 0x1
0382 e244 | D | Load 0x1,0x44
0383 1c08 | | Execute_Immediate Run_Utility,0x8
0384 e5fe | | Load 0x2,-0x2
0385 00d9 | | Load_Top At_Offset_1
0386 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0387 00d9 | | Load_Top At_Offset_1
0388 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0389 00da | | Load_Top At_Offset_2
038a 00d9 | | Load_Top At_Offset_1
038b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
038c e5fc | | Load 0x2,-0x4
038d e24d | M | Load 0x1,0x4d
038e 01d5 | | Execute Vector,Field_Reference
038f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0390 e5fc | | Load 0x2,-0x4
0391 e24d | M | Load 0x1,0x4d
0392 01d5 | | Execute Vector,Field_Reference
0393 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0394 e24a | J | Load 0x1,0x4a
0395 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0396 e23f | ? | Load 0x1,0x3f
0397 e5fc | | Load 0x2,-0x4
0398 e5ff | | Load 0x2,-0x1
0399 825a | Z | Call 0x1,0x5a
039a 005b | [ | Store_Top Discrete,At_Offset_3
039b 00da | | Load_Top At_Offset_2
039c e5fc | | Load 0x2,-0x4
039d e24d | M | Load 0x1,0x4d
039e 01d5 | | Execute Vector,Field_Reference
039f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03a0 027f | | Execute Discrete,Equal
03a1 7001 |p | Jump_Nonzero 0x3a3
03a2 0887 | | Execute_Immediate Raise,0x87
03a3 e5fc | | Load 0x2,-0x4
03a4 e24d | M | Load 0x1,0x4d
03a5 01d5 | | Execute Vector,Field_Reference
03a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03a7 0a01 | | Execute_Immediate Plus,0x1
03a8 e5fc | | Load 0x2,-0x4
03a9 e24d | M | Load 0x1,0x4d
03aa 01d5 | | Execute Vector,Field_Reference
03ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03ac 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03ad TRAP_0340:
03ad 0007 | | Action Break_Optional
03ae e008 | | Load 0x0,0x8
03af 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b0 4801 |H | Short_Literal 0x1
03b1 4802 |H | Short_Literal 0x2
03b2 e00b | | Load 0x0,0xb
03b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b4 035b | [ | Declare_Type Array,Constrained
03b5 0337 | 7 | Declare_Variable Array
03b6 0092 0e0e | | Action Push_String_Extended,0xe0e ; "Rcf_Switch_Implementation.Define"
03b8 e00b | | Load 0x0,0xb
03b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ba e00b | | Load 0x0,0xb
03bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03bc 0119 | | Execute Any,Check_In_Formal_Type
03bd 4801 |H | Short_Literal 0x1
03be 00da | | Load_Top At_Offset_2
03bf 01d6 | | Execute Vector,Field_Write
03c0 4800 |H | Short_Literal 0x0
03c1 4801 |H | Short_Literal 0x1
03c2 e00c | | Load 0x0,0xc
03c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03c4 e00b | | Load 0x0,0xb
03c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03c6 e00b | | Load 0x0,0xb
03c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c8 0119 | | Execute Any,Check_In_Formal_Type
03c9 4802 |H | Short_Literal 0x2
03ca 00da | | Load_Top At_Offset_2
03cb 01d6 | | Execute Vector,Field_Write
03cc 4805 |H | Short_Literal 0x5
03cd 6006 |` | Indirect_Literal Discrete,0x3d4,{0x00000000, 0x0000813b}
03ce e00d | | Load 0x0,0xd
03cf 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03d0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03d1 0000 0000 | | .XXX[0x3]
03d3 0000 | |
03d4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
03d8 0000 0000 | | .LITERAL {0x00000000, 0x0000814c}
03dc 0000 0000 | | .BLANK 0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03ec | | .CONST 0x03ec ; Address of begin
03e1 0414 | | .CONST 0x0414 ; Address of exception handler
03e2 0003 | | .CONST 0x0003 ; Number of locals
03e3 INIT_03e0:
03e3 482e |H. | Short_Literal 0x2e
03e4 e5fe | | Load 0x2,-0x2
03e5 8248 | H | Call 0x1,0x48
03e6 01cb | | Execute Vector,Append
03e7 00db | | Load_Top At_Offset_3
03e8 01cc | | Execute Vector,Catenate
03e9 0007 | | Action Break_Optional
03ea e24a | J | Load 0x1,0x4a
03eb 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03ec BODY_03e0:
03ec 00d9 | | Load_Top At_Offset_1
03ed e004 | | Load 0x0,0x4
03ee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03ef 6822 |h" | Jump_Zero 0x412
03f0 e24a | J | Load 0x1,0x4a
03f1 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03f2 e23d | = | Load 0x1,0x3d
03f3 e5fe | | Load 0x2,-0x2
03f4 e24d | M | Load 0x1,0x4d
03f5 01d5 | | Execute Vector,Field_Reference
03f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03f7 e24a | J | Load 0x1,0x4a
03f8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03f9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03fa 00cf | | Action Mark_Auxiliary
03fb 7811 |x | Jump 0x40d
03fc 4801 |H | Short_Literal 0x1
03fd 00da | | Load_Top At_Offset_2
03fe e24a | J | Load 0x1,0x4a
03ff 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0400 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0401 0217 | | Execute Heap_Access,All_Reference
0402 e5ff | | Load 0x2,-0x1
0403 e00a | | Load 0x0,0xa
0404 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0405 6802 |h | Jump_Zero 0x408
0406 4801 |H | Short_Literal 0x1
0407 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0408 00d9 | | Load_Top At_Offset_1
0409 e24a | J | Load 0x1,0x4a
040a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
040b 0032 | 2 | Store_Top Heap_Access,At_Offset_2
040c 00c9 | | Action Pop_Auxiliary_Loop
040d 00d9 | | Load_Top At_Offset_1
040e e24a | J | Load 0x1,0x4a
040f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0410 6feb |o | Jump_Zero 0x3fc
0411 00ce | | Action Pop_Auxiliary
0412 4800 |H | Short_Literal 0x0
0413 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0414 TRAP_03e0:
0414 0007 | | Action Break_Optional
0415 e008 | | Load 0x0,0x8
0416 180e | | Execute Package,Field_Execute,Field_Number 0xe
0417 4801 |H | Short_Literal 0x1
0418 4802 |H | Short_Literal 0x2
0419 e00b | | Load 0x0,0xb
041a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
041b 035b | [ | Declare_Type Array,Constrained
041c 0337 | 7 | Declare_Variable Array
041d 0092 0e0f | | Action Push_String_Extended,0xe0f ; "Rcf_Switch_Implementation.Is_Defined"
041f e00b | | Load 0x0,0xb
0420 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0421 e00b | | Load 0x0,0xb
0422 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0423 0119 | | Execute Any,Check_In_Formal_Type
0424 4801 |H | Short_Literal 0x1
0425 00da | | Load_Top At_Offset_2
0426 01d6 | | Execute Vector,Field_Write
0427 4800 |H | Short_Literal 0x0
0428 4801 |H | Short_Literal 0x1
0429 e00c | | Load 0x0,0xc
042a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
042b e00b | | Load 0x0,0xb
042c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
042d e00b | | Load 0x0,0xb
042e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
042f 0119 | | Execute Any,Check_In_Formal_Type
0430 4802 |H | Short_Literal 0x2
0431 00da | | Load_Top At_Offset_2
0432 01d6 | | Execute Vector,Field_Write
0433 4805 |H | Short_Literal 0x5
0434 679f |g | Indirect_Literal Discrete,0x3d4,{0x00000000, 0x0000813b}
0435 e00d | | Load 0x0,0xd
0436 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0437 4800 |H | Short_Literal 0x0
0438 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0439 0000 0000 | | .BLANK 0000[0x7]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 044a | J | .CONST 0x044a ; Address of begin
0441 0456 | V | .CONST 0x0456 ; Address of exception handler
0442 0002 | | .CONST 0x0002 ; Number of locals
0443 INIT_0440:
0443 482e |H. | Short_Literal 0x2e
0444 e5fc | | Load 0x2,-0x4
0445 8248 | H | Call 0x1,0x48
0446 01cb | | Execute Vector,Append
0447 00db | | Load_Top At_Offset_3
0448 01cc | | Execute Vector,Catenate
0449 0007 | | Action Break_Optional
044a BODY_0440:
044a 6051 |`Q | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00004000}
044b e01e | | Load 0x0,0x1e
044c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044d e5fd | | Load 0x2,-0x3
044e 00e1 | | Load_Encached Boolean_Cache
044f 011c | | Execute Any,Convert_Unchecked
0450 1c01 | | Execute_Immediate Run_Utility,0x1
0451 00db | | Load_Top At_Offset_3
0452 e5fe | | Load 0x2,-0x2
0453 e004 | | Load 0x0,0x4
0454 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0455 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0456 TRAP_0440:
0456 e004 | | Load 0x0,0x4
0457 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0458 010f | | Execute Exception,Equal
0459 6816 |h | Jump_Zero 0x470
045a e008 | | Load 0x0,0x8
045b 180e | | Execute Package,Field_Execute,Field_Number 0xe
045c 4801 |H | Short_Literal 0x1
045d 4801 |H | Short_Literal 0x1
045e e00b | | Load 0x0,0xb
045f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0460 035b | [ | Declare_Type Array,Constrained
0461 0337 | 7 | Declare_Variable Array
0462 00db | | Load_Top At_Offset_3
0463 e00b | | Load 0x0,0xb
0464 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0465 e00b | | Load 0x0,0xb
0466 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0467 0119 | | Execute Any,Check_In_Formal_Type
0468 4801 |H | Short_Literal 0x1
0469 00da | | Load_Top At_Offset_2
046a 01d6 | | Execute Vector,Field_Write
046b 4805 |H | Short_Literal 0x5
046c 602b |`+ | Indirect_Literal Discrete,0x498,{0x00000000, 0x0000814d}
046d e00d | | Load 0x0,0xd
046e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
046f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0470 e008 | | Load 0x0,0x8
0471 180e | | Execute Package,Field_Execute,Field_Number 0xe
0472 4801 |H | Short_Literal 0x1
0473 4802 |H | Short_Literal 0x2
0474 e00b | | Load 0x0,0xb
0475 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0476 035b | [ | Declare_Type Array,Constrained
0477 0337 | 7 | Declare_Variable Array
0478 0092 0e10 | | Action Push_String_Extended,0xe10 ; "Rcf_Switch_Implementation.Set"
047a e00b | | Load 0x0,0xb
047b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
047c e00b | | Load 0x0,0xb
047d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
047e 0119 | | Execute Any,Check_In_Formal_Type
047f 4801 |H | Short_Literal 0x1
0480 00da | | Load_Top At_Offset_2
0481 01d6 | | Execute Vector,Field_Write
0482 4800 |H | Short_Literal 0x0
0483 4801 |H | Short_Literal 0x1
0484 e00c | | Load 0x0,0xc
0485 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0486 e00b | | Load 0x0,0xb
0487 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0488 e00b | | Load 0x0,0xb
0489 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048a 0119 | | Execute Any,Check_In_Formal_Type
048b 4802 |H | Short_Literal 0x2
048c 00da | | Load_Top At_Offset_2
048d 01d6 | | Execute Vector,Field_Write
048e 4805 |H | Short_Literal 0x5
048f 6004 |` | Indirect_Literal Discrete,0x494,{0x00000000, 0x0000813b}
0490 e00d | | Load 0x0,0xd
0491 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0492 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0493 0000 | | .XXX[0x1]
0494 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0498 0000 0000 | | .LITERAL {0x00000000, 0x0000814d}
049c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04aa | | .CONST 0x04aa ; Address of begin
04a1 04b5 | | .CONST 0x04b5 ; Address of exception handler
04a2 0002 | | .CONST 0x0002 ; Number of locals
04a3 INIT_04a0:
04a3 482e |H. | Short_Literal 0x2e
04a4 e5fc | | Load 0x2,-0x4
04a5 8248 | H | Call 0x1,0x48
04a6 01cb | | Execute Vector,Append
04a7 00db | | Load_Top At_Offset_3
04a8 01cc | | Execute Vector,Catenate
04a9 0007 | | Action Break_Optional
04aa BODY_04a0:
04aa 67f1 |g | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00004000}
04ab e01e | | Load 0x0,0x1e
04ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ad e5fd | | Load 0x2,-0x3
04ae 00e0 | | Load_Encached Standard_Cache
04af 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04b0 00db | | Load_Top At_Offset_3
04b1 e5fe | | Load 0x2,-0x2
04b2 e004 | | Load 0x0,0x4
04b3 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04b4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04b5 TRAP_04a0:
04b5 e004 | | Load 0x0,0x4
04b6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04b7 010f | | Execute Exception,Equal
04b8 6816 |h | Jump_Zero 0x4cf
04b9 e008 | | Load 0x0,0x8
04ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
04bb 4801 |H | Short_Literal 0x1
04bc 4801 |H | Short_Literal 0x1
04bd e00b | | Load 0x0,0xb
04be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04bf 035b | [ | Declare_Type Array,Constrained
04c0 0337 | 7 | Declare_Variable Array
04c1 00db | | Load_Top At_Offset_3
04c2 e00b | | Load 0x0,0xb
04c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04c4 e00b | | Load 0x0,0xb
04c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c6 0119 | | Execute Any,Check_In_Formal_Type
04c7 4801 |H | Short_Literal 0x1
04c8 00da | | Load_Top At_Offset_2
04c9 01d6 | | Execute Vector,Field_Write
04ca 4805 |H | Short_Literal 0x5
04cb 67cc |g | Indirect_Literal Discrete,0x498,{0x00000000, 0x0000814d}
04cc e00d | | Load 0x0,0xd
04cd 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
04ce 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04cf e008 | | Load 0x0,0x8
04d0 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d1 4801 |H | Short_Literal 0x1
04d2 4802 |H | Short_Literal 0x2
04d3 e00b | | Load 0x0,0xb
04d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d5 035b | [ | Declare_Type Array,Constrained
04d6 0337 | 7 | Declare_Variable Array
04d7 0092 0e10 | | Action Push_String_Extended,0xe10 ; "Rcf_Switch_Implementation.Set"
04d9 e00b | | Load 0x0,0xb
04da 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04db e00b | | Load 0x0,0xb
04dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04dd 0119 | | Execute Any,Check_In_Formal_Type
04de 4801 |H | Short_Literal 0x1
04df 00da | | Load_Top At_Offset_2
04e0 01d6 | | Execute Vector,Field_Write
04e1 4800 |H | Short_Literal 0x0
04e2 4801 |H | Short_Literal 0x1
04e3 e00c | | Load 0x0,0xc
04e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04e5 e00b | | Load 0x0,0xb
04e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04e7 e00b | | Load 0x0,0xb
04e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e9 0119 | | Execute Any,Check_In_Formal_Type
04ea 4802 |H | Short_Literal 0x2
04eb 00da | | Load_Top At_Offset_2
04ec 01d6 | | Execute Vector,Field_Write
04ed 4805 |H | Short_Literal 0x5
04ee 67a5 |g | Indirect_Literal Discrete,0x494,{0x00000000, 0x0000813b}
04ef e00d | | Load 0x0,0xd
04f0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
04f1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04f2 0000 0000 | | .BLANK 0000[0x6]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0502 | | .CONST 0x0502 ; Address of begin
04f9 050f | | .CONST 0x050f ; Address of exception handler
04fa 0002 | | .CONST 0x0002 ; Number of locals
04fb INIT_04f8:
04fb 482e |H. | Short_Literal 0x2e
04fc e5fc | | Load 0x2,-0x4
04fd 8248 | H | Call 0x1,0x48
04fe 01cb | | Execute Vector,Append
04ff 00db | | Load_Top At_Offset_3
0500 01cc | | Execute Vector,Catenate
0501 0007 | | Action Break_Optional
0502 BODY_04f8:
0502 6051 |`Q | Indirect_Literal Discrete,0x554,{0x00000000, 0x00004000}
0503 e01e | | Load 0x0,0x1e
0504 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0505 4822 |H" | Short_Literal 0x22
0506 4822 |H" | Short_Literal 0x22
0507 e5fd | | Load 0x2,-0x3
0508 01ca | | Execute Vector,Prepend
0509 01cb | | Execute Vector,Append
050a 00db | | Load_Top At_Offset_3
050b e5fe | | Load 0x2,-0x2
050c e004 | | Load 0x0,0x4
050d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
050e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
050f TRAP_04f8:
050f e004 | | Load 0x0,0x4
0510 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0511 010f | | Execute Exception,Equal
0512 6816 |h | Jump_Zero 0x529
0513 e008 | | Load 0x0,0x8
0514 180e | | Execute Package,Field_Execute,Field_Number 0xe
0515 4801 |H | Short_Literal 0x1
0516 4801 |H | Short_Literal 0x1
0517 e00b | | Load 0x0,0xb
0518 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0519 035b | [ | Declare_Type Array,Constrained
051a 0337 | 7 | Declare_Variable Array
051b 00db | | Load_Top At_Offset_3
051c e00b | | Load 0x0,0xb
051d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
051e e00b | | Load 0x0,0xb
051f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0520 0119 | | Execute Any,Check_In_Formal_Type
0521 4801 |H | Short_Literal 0x1
0522 00da | | Load_Top At_Offset_2
0523 01d6 | | Execute Vector,Field_Write
0524 4805 |H | Short_Literal 0x5
0525 602a |`* | Indirect_Literal Discrete,0x550,{0x00000000, 0x0000814d}
0526 e00d | | Load 0x0,0xd
0527 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0528 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0529 e008 | | Load 0x0,0x8
052a 180e | | Execute Package,Field_Execute,Field_Number 0xe
052b 4801 |H | Short_Literal 0x1
052c 4802 |H | Short_Literal 0x2
052d e00b | | Load 0x0,0xb
052e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
052f 035b | [ | Declare_Type Array,Constrained
0530 0337 | 7 | Declare_Variable Array
0531 0092 0e10 | | Action Push_String_Extended,0xe10 ; "Rcf_Switch_Implementation.Set"
0533 e00b | | Load 0x0,0xb
0534 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0535 e00b | | Load 0x0,0xb
0536 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0537 0119 | | Execute Any,Check_In_Formal_Type
0538 4801 |H | Short_Literal 0x1
0539 00da | | Load_Top At_Offset_2
053a 01d6 | | Execute Vector,Field_Write
053b 4800 |H | Short_Literal 0x0
053c 4801 |H | Short_Literal 0x1
053d e00c | | Load 0x0,0xc
053e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
053f e00b | | Load 0x0,0xb
0540 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0541 e00b | | Load 0x0,0xb
0542 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0543 0119 | | Execute Any,Check_In_Formal_Type
0544 4802 |H | Short_Literal 0x2
0545 00da | | Load_Top At_Offset_2
0546 01d6 | | Execute Vector,Field_Write
0547 4805 |H | Short_Literal 0x5
0548 6003 |` | Indirect_Literal Discrete,0x54c,{0x00000000, 0x0000813b}
0549 e00d | | Load 0x0,0xd
054a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
054b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
054c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0550 0000 0000 | | .LITERAL {0x00000000, 0x0000814d}
0554 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0568 | h | .CONST 0x0568 ; Address of begin
0559 0570 | p | .CONST 0x0570 ; Address of exception handler
055a 0004 | | .CONST 0x0004 ; Number of locals
055b INIT_0558:
055b 482e |H. | Short_Literal 0x2e
055c e5fd | | Load 0x2,-0x3
055d 8248 | H | Call 0x1,0x48
055e 01cb | | Execute Vector,Append
055f 00db | | Load_Top At_Offset_3
0560 01cc | | Execute Vector,Catenate
0561 0007 | | Action Break_Optional
0562 e23f | ? | Load 0x1,0x3f
0563 0007 | | Action Break_Optional
0564 e244 | D | Load 0x1,0x44
0565 02ff | | Declare_Variable Variant_Record
0566 00d8 | | Load_Top At_Offset_0
0567 1c00 | | Execute_Immediate Run_Utility,0x0
0568 BODY_0558:
0568 67eb |g | Indirect_Literal Discrete,0x554,{0x00000000, 0x00004000}
0569 e01e | | Load 0x0,0x1e
056a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056b e402 | | Load 0x2,0x2
056c e5fe | | Load 0x2,-0x2
056d e004 | | Load 0x0,0x4
056e 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
056f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0570 TRAP_0558:
0570 e004 | | Load 0x0,0x4
0571 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0572 010f | | Execute Exception,Equal
0573 6817 |h | Jump_Zero 0x58b
0574 e008 | | Load 0x0,0x8
0575 180e | | Execute Package,Field_Execute,Field_Number 0xe
0576 4801 |H | Short_Literal 0x1
0577 4801 |H | Short_Literal 0x1
0578 e00b | | Load 0x0,0xb
0579 1b0f | | Execute Package,Field_Read,Field_Number 0xf
057a 035b | [ | Declare_Type Array,Constrained
057b 0337 | 7 | Declare_Variable Array
057c e402 | | Load 0x2,0x2
057d e00b | | Load 0x0,0xb
057e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
057f e00b | | Load 0x0,0xb
0580 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0581 0119 | | Execute Any,Check_In_Formal_Type
0582 4801 |H | Short_Literal 0x1
0583 00da | | Load_Top At_Offset_2
0584 01d6 | | Execute Vector,Field_Write
0585 4805 |H | Short_Literal 0x5
0586 67c9 |g | Indirect_Literal Discrete,0x550,{0x00000000, 0x0000814d}
0587 e00d | | Load 0x0,0xd
0588 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0589 4800 |H | Short_Literal 0x0
058a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
058b e008 | | Load 0x0,0x8
058c 180e | | Execute Package,Field_Execute,Field_Number 0xe
058d 4801 |H | Short_Literal 0x1
058e 4802 |H | Short_Literal 0x2
058f e00b | | Load 0x0,0xb
0590 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0591 035b | [ | Declare_Type Array,Constrained
0592 0337 | 7 | Declare_Variable Array
0593 0092 0e11 | | Action Push_String_Extended,0xe11 ; "Rcf_Switch_Implementation.Value"
0595 e00b | | Load 0x0,0xb
0596 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0597 e00b | | Load 0x0,0xb
0598 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0599 0119 | | Execute Any,Check_In_Formal_Type
059a 4801 |H | Short_Literal 0x1
059b 00da | | Load_Top At_Offset_2
059c 01d6 | | Execute Vector,Field_Write
059d 4800 |H | Short_Literal 0x0
059e 4801 |H | Short_Literal 0x1
059f e00c | | Load 0x0,0xc
05a0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05a1 e00b | | Load 0x0,0xb
05a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05a3 e00b | | Load 0x0,0xb
05a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05a5 0119 | | Execute Any,Check_In_Formal_Type
05a6 4802 |H | Short_Literal 0x2
05a7 00da | | Load_Top At_Offset_2
05a8 01d6 | | Execute Vector,Field_Write
05a9 4805 |H | Short_Literal 0x5
05aa 67a1 |g | Indirect_Literal Discrete,0x54c,{0x00000000, 0x0000813b}
05ab e00d | | Load 0x0,0xd
05ac 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
05ad e5fd | | Load 0x2,-0x3
05ae e5ff | | Load 0x2,-0x1
05af 822f | / | Call 0x1,0x2f
05b0 6812 |h | Jump_Zero 0x5c3
05b1 e23f | ? | Load 0x1,0x3f
05b2 e5fd | | Load 0x2,-0x3
05b3 e5ff | | Load 0x2,-0x1
05b4 825a | Z | Call 0x1,0x5a
05b5 005b | [ | Store_Top Discrete,At_Offset_3
05b6 00da | | Load_Top At_Offset_2
05b7 e5fd | | Load 0x2,-0x3
05b8 e24d | M | Load 0x1,0x4d
05b9 01d5 | | Execute Vector,Field_Reference
05ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05bb e24a | J | Load 0x1,0x4a
05bc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05bd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05be 00da | | Load_Top At_Offset_2
05bf 016d | m | Execute Variant_Record,Structure_Write
05c0 00d9 | | Load_Top At_Offset_1
05c1 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
05c2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05c3 4800 |H | Short_Literal 0x0
05c4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05c5 0000 0000 | | .XXX[0x3]
05c7 0000 | |
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d8 | | .CONST 0x05d8 ; Address of begin
05c9 05e0 | | .CONST 0x05e0 ; Address of exception handler
05ca 0004 | | .CONST 0x0004 ; Number of locals
05cb INIT_05c8:
05cb 482e |H. | Short_Literal 0x2e
05cc e5fd | | Load 0x2,-0x3
05cd 8248 | H | Call 0x1,0x48
05ce 01cb | | Execute Vector,Append
05cf 00db | | Load_Top At_Offset_3
05d0 01cc | | Execute Vector,Catenate
05d1 0007 | | Action Break_Optional
05d2 e23f | ? | Load 0x1,0x3f
05d3 0007 | | Action Break_Optional
05d4 e244 | D | Load 0x1,0x44
05d5 02ff | | Declare_Variable Variant_Record
05d6 00d8 | | Load_Top At_Offset_0
05d7 1c00 | | Execute_Immediate Run_Utility,0x0
05d8 BODY_05c8:
05d8 6067 |`g | Indirect_Literal Discrete,0x640,{0x00000000, 0x00004000}
05d9 e01e | | Load 0x0,0x1e
05da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05db e402 | | Load 0x2,0x2
05dc e5fe | | Load 0x2,-0x2
05dd e004 | | Load 0x0,0x4
05de 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
05df 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05e0 TRAP_05c8:
05e0 e004 | | Load 0x0,0x4
05e1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05e2 010f | | Execute Exception,Equal
05e3 6817 |h | Jump_Zero 0x5fb
05e4 e008 | | Load 0x0,0x8
05e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
05e6 4801 |H | Short_Literal 0x1
05e7 4801 |H | Short_Literal 0x1
05e8 e00b | | Load 0x0,0xb
05e9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ea 035b | [ | Declare_Type Array,Constrained
05eb 0337 | 7 | Declare_Variable Array
05ec e402 | | Load 0x2,0x2
05ed e00b | | Load 0x0,0xb
05ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ef e00b | | Load 0x0,0xb
05f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f1 0119 | | Execute Any,Check_In_Formal_Type
05f2 4801 |H | Short_Literal 0x1
05f3 00da | | Load_Top At_Offset_2
05f4 01d6 | | Execute Vector,Field_Write
05f5 4805 |H | Short_Literal 0x5
05f6 6045 |`E | Indirect_Literal Discrete,0x63c,{0x00000000, 0x0000814d}
05f7 e00d | | Load 0x0,0xd
05f8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
05f9 4800 |H | Short_Literal 0x0
05fa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05fb e008 | | Load 0x0,0x8
05fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
05fd 4801 |H | Short_Literal 0x1
05fe 4802 |H | Short_Literal 0x2
05ff e00b | | Load 0x0,0xb
0600 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0601 035b | [ | Declare_Type Array,Constrained
0602 0337 | 7 | Declare_Variable Array
0603 0092 0e11 | | Action Push_String_Extended,0xe11 ; "Rcf_Switch_Implementation.Value"
0605 e00b | | Load 0x0,0xb
0606 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0607 e00b | | Load 0x0,0xb
0608 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0609 0119 | | Execute Any,Check_In_Formal_Type
060a 4801 |H | Short_Literal 0x1
060b 00da | | Load_Top At_Offset_2
060c 01d6 | | Execute Vector,Field_Write
060d 4800 |H | Short_Literal 0x0
060e 4801 |H | Short_Literal 0x1
060f e00c | | Load 0x0,0xc
0610 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0611 e00b | | Load 0x0,0xb
0612 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0613 e00b | | Load 0x0,0xb
0614 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0615 0119 | | Execute Any,Check_In_Formal_Type
0616 4802 |H | Short_Literal 0x2
0617 00da | | Load_Top At_Offset_2
0618 01d6 | | Execute Vector,Field_Write
0619 4805 |H | Short_Literal 0x5
061a 601d |` | Indirect_Literal Discrete,0x638,{0x00000000, 0x0000813b}
061b e00d | | Load 0x0,0xd
061c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
061d e5fd | | Load 0x2,-0x3
061e e5ff | | Load 0x2,-0x1
061f 822f | / | Call 0x1,0x2f
0620 6812 |h | Jump_Zero 0x633
0621 e23f | ? | Load 0x1,0x3f
0622 e5fd | | Load 0x2,-0x3
0623 e5ff | | Load 0x2,-0x1
0624 825a | Z | Call 0x1,0x5a
0625 005b | [ | Store_Top Discrete,At_Offset_3
0626 00da | | Load_Top At_Offset_2
0627 e5fd | | Load 0x2,-0x3
0628 e24d | M | Load 0x1,0x4d
0629 01d5 | | Execute Vector,Field_Reference
062a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
062b e24a | J | Load 0x1,0x4a
062c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
062d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
062e 00da | | Load_Top At_Offset_2
062f 016d | m | Execute Variant_Record,Structure_Write
0630 00d9 | | Load_Top At_Offset_1
0631 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0632 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0633 4800 |H | Short_Literal 0x0
0634 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0635 0000 0000 | | .XXX[0x3]
0637 0000 | |
0638 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
063c 0000 0000 | | .LITERAL {0x00000000, 0x0000814d}
0640 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0644 0000 0000 | | .BLANK 0000[0x4]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 0658 | X | .CONST 0x0658 ; Address of begin
0649 0660 | ` | .CONST 0x0660 ; Address of exception handler
064a 0004 | | .CONST 0x0004 ; Number of locals
064b INIT_0648:
064b 482e |H. | Short_Literal 0x2e
064c e5fd | | Load 0x2,-0x3
064d 8248 | H | Call 0x1,0x48
064e 01cb | | Execute Vector,Append
064f 00db | | Load_Top At_Offset_3
0650 01cc | | Execute Vector,Catenate
0651 0007 | | Action Break_Optional
0652 e23f | ? | Load 0x1,0x3f
0653 0007 | | Action Break_Optional
0654 e244 | D | Load 0x1,0x44
0655 02ff | | Declare_Variable Variant_Record
0656 00d8 | | Load_Top At_Offset_0
0657 1c00 | | Execute_Immediate Run_Utility,0x0
0658 BODY_0648:
0658 67e7 |g | Indirect_Literal Discrete,0x640,{0x00000000, 0x00004000}
0659 e01e | | Load 0x0,0x1e
065a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
065b e402 | | Load 0x2,0x2
065c e5fe | | Load 0x2,-0x2
065d e004 | | Load 0x0,0x4
065e 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
065f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0660 TRAP_0648:
0660 e004 | | Load 0x0,0x4
0661 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0662 010f | | Execute Exception,Equal
0663 6817 |h | Jump_Zero 0x67b
0664 e008 | | Load 0x0,0x8
0665 180e | | Execute Package,Field_Execute,Field_Number 0xe
0666 4801 |H | Short_Literal 0x1
0667 4801 |H | Short_Literal 0x1
0668 e00b | | Load 0x0,0xb
0669 1b0f | | Execute Package,Field_Read,Field_Number 0xf
066a 035b | [ | Declare_Type Array,Constrained
066b 0337 | 7 | Declare_Variable Array
066c e402 | | Load 0x2,0x2
066d e00b | | Load 0x0,0xb
066e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
066f e00b | | Load 0x0,0xb
0670 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0671 0119 | | Execute Any,Check_In_Formal_Type
0672 4801 |H | Short_Literal 0x1
0673 00da | | Load_Top At_Offset_2
0674 01d6 | | Execute Vector,Field_Write
0675 4805 |H | Short_Literal 0x5
0676 67c5 |g | Indirect_Literal Discrete,0x63c,{0x00000000, 0x0000814d}
0677 e00d | | Load 0x0,0xd
0678 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0679 00ea | | Load_Encached Null_String_Cache
067a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
067b e008 | | Load 0x0,0x8
067c 180e | | Execute Package,Field_Execute,Field_Number 0xe
067d 4801 |H | Short_Literal 0x1
067e 4802 |H | Short_Literal 0x2
067f e00b | | Load 0x0,0xb
0680 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0681 035b | [ | Declare_Type Array,Constrained
0682 0337 | 7 | Declare_Variable Array
0683 0092 0e11 | | Action Push_String_Extended,0xe11 ; "Rcf_Switch_Implementation.Value"
0685 e00b | | Load 0x0,0xb
0686 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0687 e00b | | Load 0x0,0xb
0688 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0689 0119 | | Execute Any,Check_In_Formal_Type
068a 4801 |H | Short_Literal 0x1
068b 00da | | Load_Top At_Offset_2
068c 01d6 | | Execute Vector,Field_Write
068d 4800 |H | Short_Literal 0x0
068e 4801 |H | Short_Literal 0x1
068f e00c | | Load 0x0,0xc
0690 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0691 e00b | | Load 0x0,0xb
0692 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0693 e00b | | Load 0x0,0xb
0694 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0695 0119 | | Execute Any,Check_In_Formal_Type
0696 4802 |H | Short_Literal 0x2
0697 00da | | Load_Top At_Offset_2
0698 01d6 | | Execute Vector,Field_Write
0699 4805 |H | Short_Literal 0x5
069a 679d |g | Indirect_Literal Discrete,0x638,{0x00000000, 0x0000813b}
069b e00d | | Load 0x0,0xd
069c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
069d e5fd | | Load 0x2,-0x3
069e e5ff | | Load 0x2,-0x1
069f 822f | / | Call 0x1,0x2f
06a0 6815 |h | Jump_Zero 0x6b6
06a1 e23f | ? | Load 0x1,0x3f
06a2 e5fd | | Load 0x2,-0x3
06a3 e5ff | | Load 0x2,-0x1
06a4 825a | Z | Call 0x1,0x5a
06a5 005b | [ | Store_Top Discrete,At_Offset_3
06a6 00da | | Load_Top At_Offset_2
06a7 e5fd | | Load 0x2,-0x3
06a8 e24d | M | Load 0x1,0x4d
06a9 01d5 | | Execute Vector,Field_Reference
06aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06ab e24a | J | Load 0x1,0x4a
06ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06ad 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06ae 00da | | Load_Top At_Offset_2
06af 016d | m | Execute Variant_Record,Structure_Write
06b0 00d9 | | Load_Top At_Offset_1
06b1 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
06b2 0217 | | Execute Heap_Access,All_Reference
06b3 0335 | 5 | Declare_Variable Array,Duplicate
06b4 00cd | | Action Spare6_Action
06b5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
06b6 00ea | | Load_Encached Null_String_Cache
06b7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06cf | | .CONST 0x06cf ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0007 | | .CONST 0x0007 ; Number of locals
06bb INIT_06b8:
06bb e01f | | Load 0x0,0x1f
06bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06bd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
06be 02c7 | | Declare_Variable Any
06bf 00d8 | | Load_Top At_Offset_0
06c0 1c00 | | Execute_Immediate Run_Utility,0x0
06c1 e01f | | Load 0x0,0x1f
06c2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06c3 02ff | | Declare_Variable Variant_Record
06c4 00d8 | | Load_Top At_Offset_0
06c5 1c00 | | Execute_Immediate Run_Utility,0x0
06c6 e01f | | Load 0x0,0x1f
06c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06c9 e01f | | Load 0x0,0x1f
06ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06cb 0092 0e12 | | Action Push_String_Extended,0xe12 ; "!??.compiler_switches'c(switch)"
06cd 00e2 | | Load_Encached Integer_Cache
06ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06cf BODY_06b8:
06cf e01f | | Load 0x0,0x1f
06d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06d2 e402 | | Load 0x2,0x2
06d3 60a4 |` | Indirect_Literal Discrete,0x778,{0x00000000, 0x00004000}
06d4 e01e | | Load 0x0,0x1e
06d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06d6 e020 | | Load 0x0,0x20
06d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06d8 e021 | ! | Load 0x0,0x21
06d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06da 4801 |H | Short_Literal 0x1
06db 4800 |H | Short_Literal 0x0
06dc e020 | | Load 0x0,0x20
06dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06de e01f | | Load 0x0,0x1f
06df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06e1 e406 | | Load 0x2,0x6
06e2 e01f | | Load 0x0,0x1f
06e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06e5 c402 | | Store 0x2,0x2
06e6 c404 | | Store 0x2,0x4
06e7 00db | | Load_Top At_Offset_3
06e8 6827 |h' | Jump_Zero 0x710
06e9 e008 | | Load 0x0,0x8
06ea 180e | | Execute Package,Field_Execute,Field_Number 0xe
06eb 4801 |H | Short_Literal 0x1
06ec 4802 |H | Short_Literal 0x2
06ed e00b | | Load 0x0,0xb
06ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06ef 035b | [ | Declare_Type Array,Constrained
06f0 0337 | 7 | Declare_Variable Array
06f1 00db | | Load_Top At_Offset_3
06f2 e00b | | Load 0x0,0xb
06f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06f4 e00b | | Load 0x0,0xb
06f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06f6 0119 | | Execute Any,Check_In_Formal_Type
06f7 4801 |H | Short_Literal 0x1
06f8 00da | | Load_Top At_Offset_2
06f9 01d6 | | Execute Vector,Field_Write
06fa e404 | | Load 0x2,0x4
06fb e00b | | Load 0x0,0xb
06fc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06fd e00b | | Load 0x0,0xb
06fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06ff 0119 | | Execute Any,Check_In_Formal_Type
0700 4802 |H | Short_Literal 0x2
0701 00da | | Load_Top At_Offset_2
0702 01d6 | | Execute Vector,Field_Write
0703 6070 |`p | Indirect_Literal Discrete,0x774,{0x00000000, 0x00008197}
0704 e00d | | Load 0x0,0xd
0705 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0706 e00d | | Load 0x0,0xd
0707 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0708 e008 | | Load 0x0,0x8
0709 180e | | Execute Package,Field_Execute,Field_Number 0xe
070a 4802 |H | Short_Literal 0x2
070b 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Not converting RCF switches"
070d e009 | | Load 0x0,0x9
070e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
070f 7848 |xH | Jump 0x758
0710 e008 | | Load 0x0,0x8
0711 180e | | Execute Package,Field_Execute,Field_Number 0xe
0712 4800 |H | Short_Literal 0x0
0713 0092 0e14 | | Action Push_String_Extended,0xe14 ; "Converting RCF switches"
0715 e009 | | Load 0x0,0x9
0716 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0717 00cf | | Action Mark_Auxiliary
0718 7839 |x9 | Jump 0x752
0719 e01f | | Load 0x0,0x1f
071a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
071b e403 | | Load 0x2,0x3
071c 605b |`[ | Indirect_Literal Discrete,0x778,{0x00000000, 0x00004000}
071d e01e | | Load 0x0,0x1e
071e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
071f e402 | | Load 0x2,0x2
0720 e01f | | Load 0x0,0x1f
0721 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0722 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0723 00d1 | | Pop_Control Pop_Count_1
0724 c405 | | Store 0x2,0x5
0725 00db | | Load_Top At_Offset_3
0726 7006 |p | Jump_Nonzero 0x72d
0727 00d9 | | Load_Top At_Offset_1
0728 e403 | | Load 0x2,0x3
0729 825b | [ | Call 0x1,0x5b
072a 00d1 | | Pop_Control Pop_Count_1
072b 005a | Z | Store_Top Discrete,At_Offset_2
072c 781f |x | Jump 0x74c
072d e008 | | Load 0x0,0x8
072e 180e | | Execute Package,Field_Execute,Field_Number 0xe
072f 4801 |H | Short_Literal 0x1
0730 4802 |H | Short_Literal 0x2
0731 e00b | | Load 0x0,0xb
0732 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0733 035b | [ | Declare_Type Array,Constrained
0734 0337 | 7 | Declare_Variable Array
0735 00ea | | Load_Encached Null_String_Cache
0736 e00b | | Load 0x0,0xb
0737 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0738 e00b | | Load 0x0,0xb
0739 1b0e | | Execute Package,Field_Read,Field_Number 0xe
073a 0119 | | Execute Any,Check_In_Formal_Type
073b 4801 |H | Short_Literal 0x1
073c 00da | | Load_Top At_Offset_2
073d 01d6 | | Execute Vector,Field_Write
073e e405 | | Load 0x2,0x5
073f e00b | | Load 0x0,0xb
0740 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0741 e00b | | Load 0x0,0xb
0742 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0743 0119 | | Execute Any,Check_In_Formal_Type
0744 4802 |H | Short_Literal 0x2
0745 00da | | Load_Top At_Offset_2
0746 01d6 | | Execute Vector,Field_Write
0747 6028 |`( | Indirect_Literal Discrete,0x770,{0x00000000, 0x0000810f}
0748 e00d | | Load 0x0,0xd
0749 1813 | | Execute Package,Field_Execute,Field_Number 0x13
074a e00d | | Load 0x0,0xd
074b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
074c e402 | | Load 0x2,0x2
074d e01f | | Load 0x0,0x1f
074e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
074f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0750 c402 | | Store 0x2,0x2
0751 00c9 | | Action Pop_Auxiliary_Loop
0752 e402 | | Load 0x2,0x2
0753 e01f | | Load 0x0,0x1f
0754 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0755 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0756 6fc2 |o | Jump_Zero 0x719
0757 00ce | | Action Pop_Auxiliary
0758 e008 | | Load 0x0,0x8
0759 180e | | Execute Package,Field_Execute,Field_Number 0xe
075a 4803 |H | Short_Literal 0x3
075b 0092 0e15 | | Action Push_String_Extended,0xe15 ; "Converted "
075d 00db | | Load_Top At_Offset_3
075e 00e0 | | Load_Encached Standard_Cache
075f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0760 01cc | | Execute Vector,Catenate
0761 0092 0e16 | | Action Push_String_Extended,0xe16 ; " switch files"
0763 01cc | | Execute Vector,Catenate
0764 e009 | | Load 0x0,0x9
0765 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0766 e008 | | Load 0x0,0x8
0767 180e | | Execute Package,Field_Execute,Field_Number 0xe
0768 4800 |H | Short_Literal 0x0
0769 0092 0e17 | | Action Push_String_Extended,0xe17 ; "Done converting switches"
076b e009 | | Load 0x0,0x9
076c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
076d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
076e 0000 0000 | | .XXX[0x2]
0770 0000 0000 | | .LITERAL {0x00000000, 0x0000810f}
0774 0000 0000 | | .LITERAL {0x00000000, 0x00008197}
0778 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
077c 0000 0000 | | .BLANK 0000[0x4]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783 | | .CONST 0x0783 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0001 | | .CONST 0x0001 ; Number of locals
0783 BODY_0780:
0783 INIT_0780:
0783 4607 |F | Jump_Case 0x8
0784 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0785 7806 |x | Jump 0x78c ; case 0x1
0786 7809 |x | Jump 0x790 ; case 0x2
0787 780d |x | Jump 0x795 ; case 0x3
0788 7810 |x | Jump 0x799 ; case 0x4
0789 7811 |x | Jump 0x79b ; case 0x5
078a 7812 |x | Jump 0x79d ; case 0x6
078b 7815 |x | Jump 0x7a1 ; case 0x7
078c 00da | | Load_Top At_Offset_2
078d 0091 0df9 | | Action Push_String_Extended_Indexed,0xdf9 ; "BOOLEAN_KIND"
078f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0790 00db | | Load_Top At_Offset_3
0791 00db | | Load_Top At_Offset_3
0792 00e0 | | Load_Encached Standard_Cache
0793 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0794 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0795 00da | | Load_Top At_Offset_2
0796 00e0 | | Load_Encached Standard_Cache
0797 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0798 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0799 00db | | Load_Top At_Offset_3
079a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
079b 00db | | Load_Top At_Offset_3
079c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
079d e243 | C | Load 0x1,0x43
079e 00dc | | Load_Top At_Offset_4
079f 0267 | g | Execute Discrete,Predecessor
07a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07a1 e243 | C | Load 0x1,0x43
07a2 00dc | | Load_Top At_Offset_4
07a3 0268 | h | Execute Discrete,Successor
07a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07a5 0000 0000 | | .XXX[0x3]
07a7 0000 | |
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab | | .CONST 0x07ab ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0001 | | .CONST 0x0001 ; Number of locals
07ab BODY_07a8:
07ab INIT_07a8:
07ab 4608 |F | Jump_Case 0x9
07ac 7808 |x | Jump 0x7b5 ; case 0x0
07ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
07ae 783f |x? | Jump 0x7ee ; case 0x2
07af 783e |x> | Jump 0x7ee ; case 0x3
07b0 783d |x= | Jump 0x7ee ; case 0x4
07b1 783c |x< | Jump 0x7ee ; case 0x5
07b2 7815 |x | Jump 0x7c8 ; case 0x6
07b3 7822 |x" | Jump 0x7d6 ; case 0x7
07b4 7832 |x2 | Jump 0x7e7 ; case 0x8
07b5 00da | | Load_Top At_Offset_2
07b6 016c | l | Execute Variant_Record,Is_Constrained
07b7 7009 |p | Jump_Nonzero 0x7c1
07b8 00cf | | Action Mark_Auxiliary
07b9 4803 |H | Short_Literal 0x3
07ba e5ff | | Load 0x2,-0x1
07bb 1c08 | | Execute_Immediate Run_Utility,0x8
07bc 00d8 | | Load_Top At_Offset_0
07bd 1c00 | | Execute_Immediate Run_Utility,0x0
07be c5ff | | Store 0x2,-0x1
07bf 00ce | | Action Pop_Auxiliary
07c0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
07c1 00da | | Load_Top At_Offset_2
07c2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07c3 4603 |F | Jump_Case 0x4
07c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
07c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
07c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
07c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
07c8 00db | | Load_Top At_Offset_3
07c9 4603 |F | Jump_Case 0x4
07ca 7805 |x | Jump 0x7d0 ; case 0x0
07cb 7806 |x | Jump 0x7d2 ; case 0x1
07cc 7807 |x | Jump 0x7d4 ; case 0x2
07cd 7800 |x | Jump 0x7ce ; case 0x3
07ce 48ff |H | Short_Literal 0xff
07cf 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07d0 4801 |H | Short_Literal 0x1
07d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07d2 4802 |H | Short_Literal 0x2
07d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07d4 4803 |H | Short_Literal 0x3
07d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07d6 00db | | Load_Top At_Offset_3
07d7 e5fe | | Load 0x2,-0x2
07d8 4603 |F | Jump_Case 0x4
07d9 7805 |x | Jump 0x7df ; case 0x0
07da 7806 |x | Jump 0x7e1 ; case 0x1
07db 7807 |x | Jump 0x7e3 ; case 0x2
07dc 7800 |x | Jump 0x7dd ; case 0x3
07dd 48ff |H | Short_Literal 0xff
07de 7805 |x | Jump 0x7e4
07df 4801 |H | Short_Literal 0x1
07e0 7803 |x | Jump 0x7e4
07e1 4802 |H | Short_Literal 0x2
07e2 7801 |x | Jump 0x7e4
07e3 4803 |H | Short_Literal 0x3
07e4 e5ff | | Load 0x2,-0x1
07e5 031b | | Declare_Type Variant_Record,Constrained
07e6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07e7 00db | | Load_Top At_Offset_3
07e8 e5fe | | Load 0x2,-0x2
07e9 e5ff | | Load 0x2,-0x1
07ea 1c06 | | Execute_Immediate Run_Utility,0x6
07eb e5ff | | Load 0x2,-0x1
07ec 02fc | | Declare_Variable Variant_Record,With_Constraint
07ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
07ee 0869 | i | Execute_Immediate Raise,0x69
07ef 0000 | | .XXX[0x1]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 4608 |F | Jump_Case 0x9
07f4 7808 |x | Jump 0x7fd ; case 0x0
07f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
07f6 780a |x | Jump 0x801 ; case 0x2
07f7 7809 |x | Jump 0x801 ; case 0x3
07f8 7808 |x | Jump 0x801 ; case 0x4
07f9 7807 |x | Jump 0x801 ; case 0x5
07fa 7806 |x | Jump 0x801 ; case 0x6
07fb 7805 |x | Jump 0x801 ; case 0x7
07fc 7804 |x | Jump 0x801 ; case 0x8
07fd 00da | | Load_Top At_Offset_2
07fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
07ff 1c00 | | Execute_Immediate Run_Utility,0x0
0800 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0801 0869 | i | Execute_Immediate Raise,0x69
0802 0000 0000 | | .BLANK 0000[0x6]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 0830 | 0 | .CONST 0x0830 ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0009 | | .CONST 0x0009 ; Number of locals
080b INIT_0808:
080b e01f | | Load 0x0,0x1f
080c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
080d 02c7 | | Declare_Variable Any
080e 00d8 | | Load_Top At_Offset_0
080f 1c00 | | Execute_Immediate Run_Utility,0x0
0810 e01f | | Load 0x0,0x1f
0811 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0812 02ff | | Declare_Variable Variant_Record
0813 00d8 | | Load_Top At_Offset_0
0814 1c00 | | Execute_Immediate Run_Utility,0x0
0815 e01f | | Load 0x0,0x1f
0816 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0817 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0818 02c7 | | Declare_Variable Any
0819 00d8 | | Load_Top At_Offset_0
081a 1c00 | | Execute_Immediate Run_Utility,0x0
081b e01f | | Load 0x0,0x1f
081c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
081d 02c7 | | Declare_Variable Any
081e 00d8 | | Load_Top At_Offset_0
081f 1c00 | | Execute_Immediate Run_Utility,0x0
0820 e01f | | Load 0x0,0x1f
0821 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0822 e01f | | Load 0x0,0x1f
0823 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0824 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0825 e01e | | Load 0x0,0x1e
0826 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0827 02c7 | | Declare_Variable Any
0828 e01e | | Load 0x0,0x1e
0829 1b0e | | Execute Package,Field_Read,Field_Number 0xe
082a a408 | | Store_Unchecked 0x2,0x8
082b e004 | | Load 0x0,0x4
082c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082d 02ff | | Declare_Variable Variant_Record
082e 00d8 | | Load_Top At_Offset_0
082f 1c00 | | Execute_Immediate Run_Utility,0x0
0830 BODY_0808:
0830 e01f | | Load 0x0,0x1f
0831 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0832 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0833 e403 | | Load 0x2,0x3
0834 604b |`K | Indirect_Literal Discrete,0x880,{0x00000000, 0x00004000}
0835 e01e | | Load 0x0,0x1e
0836 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0837 4800 |H | Short_Literal 0x0
0838 e020 | | Load 0x0,0x20
0839 1811 | | Execute Package,Field_Execute,Field_Number 0x11
083a e01f | | Load 0x0,0x1f
083b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
083c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
083d 0092 0e18 | | Action Push_String_Extended,0xe18 ; "$"
083f e01f | | Load 0x0,0x1f
0840 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0841 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0842 00d1 | | Pop_Control Pop_Count_1
0843 005b | [ | Store_Top Discrete,At_Offset_3
0844 e01f | | Load 0x0,0x1f
0845 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0846 e402 | | Load 0x2,0x2
0847 0120 | | Execute Any,Is_Value
0848 6803 |h | Jump_Zero 0x84c
0849 e01f | | Load 0x0,0x1f
084a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
084b 7801 |x | Jump 0x84d
084c e402 | | Load 0x2,0x2
084d 6032 |`2 | Indirect_Literal Discrete,0x880,{0x00000000, 0x00004000}
084e e01e | | Load 0x0,0x1e
084f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0850 e403 | | Load 0x2,0x3
0851 e01f | | Load 0x0,0x1f
0852 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0853 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0854 c402 | | Store 0x2,0x2
0855 c406 | | Store 0x2,0x6
0856 00db | | Load_Top At_Offset_3
0857 7026 |p& | Jump_Nonzero 0x87e
0858 e402 | | Load 0x2,0x2
0859 e01f | | Load 0x0,0x1f
085a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
085b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
085c c404 | | Store 0x2,0x4
085d e01f | | Load 0x0,0x1f
085e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085f e405 | | Load 0x2,0x5
0860 0120 | | Execute Any,Is_Value
0861 6803 |h | Jump_Zero 0x865
0862 e01f | | Load 0x0,0x1f
0863 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0864 7801 |x | Jump 0x866
0865 e405 | | Load 0x2,0x5
0866 6019 |` | Indirect_Literal Discrete,0x880,{0x00000000, 0x00004000}
0867 e408 | | Load 0x2,0x8
0868 e404 | | Load 0x2,0x4
0869 e01f | | Load 0x0,0x1f
086a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
086b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
086c c405 | | Store 0x2,0x5
086d c406 | | Store 0x2,0x6
086e 00db | | Load_Top At_Offset_3
086f 700e |p | Jump_Nonzero 0x87e
0870 e01f | | Load 0x0,0x1f
0871 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0872 00d9 | | Load_Top At_Offset_1
0873 600c |` | Indirect_Literal Discrete,0x880,{0x00000000, 0x00004000}
0874 e408 | | Load 0x2,0x8
0875 4800 |H | Short_Literal 0x0
0876 e405 | | Load 0x2,0x5
0877 e01f | | Load 0x0,0x1f
0878 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0879 181a | | Execute Package,Field_Execute,Field_Number 0x1a
087a 00d1 | | Pop_Control Pop_Count_1
087b c406 | | Store 0x2,0x6
087c 00d8 | | Load_Top At_Offset_0
087d 00ca | | Action Exit_Nullary_Function
087e 0831 | 1 | Execute_Immediate Raise,0x31
087f 0000 | | .XXX[0x1]
0880 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0884 0000 0000 | | .BLANK 0000[0x4]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 00da | | Load_Top At_Offset_2
088c 6806 |h | Jump_Zero 0x893
088d 0092 0e19 | | Action Push_String_Extended,0xe19 ; "Session_Rci"
088f e022 | " | Load 0x0,0x22
0890 180e | | Execute Package,Field_Execute,Field_Number 0xe
0891 01cc | | Execute Vector,Catenate
0892 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0893 0092 0e1a | | Action Push_String_Extended,0xe1a ; "Rci"
0895 e022 | " | Load 0x0,0x22
0896 180e | | Execute Package,Field_Execute,Field_Number 0xe
0897 01cc | | Execute Vector,Catenate
0898 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0899 0000 0000 | | .BLANK 0000[0x7]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 00da | | Load_Top At_Offset_2
08a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a5 0000 0000 | | .XXX[0x3]
08a7 0000 | |
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ab | | .CONST 0x08ab ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0001 | | .CONST 0x0001 ; Number of locals
08ab BODY_08a8:
08ab INIT_08a8:
08ab 4608 |F | Jump_Case 0x9
08ac 7808 |x | Jump 0x8b5 ; case 0x0
08ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
08ae 780a |x | Jump 0x8b9 ; case 0x2
08af 7809 |x | Jump 0x8b9 ; case 0x3
08b0 7808 |x | Jump 0x8b9 ; case 0x4
08b1 7807 |x | Jump 0x8b9 ; case 0x5
08b2 7806 |x | Jump 0x8b9 ; case 0x6
08b3 7805 |x | Jump 0x8b9 ; case 0x7
08b4 7804 |x | Jump 0x8b9 ; case 0x8
08b5 4800 |H | Short_Literal 0x0
08b6 00db | | Load_Top At_Offset_3
08b7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
08b9 0869 | i | Execute_Immediate Raise,0x69
08ba 0000 0000 | | .BLANK 0000[0x6]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3 | | .CONST 0x08c3 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0001 | | .CONST 0x0001 ; Number of locals
08c3 BODY_08c0:
08c3 INIT_08c0:
08c3 00d1 | | Pop_Control Pop_Count_1
08c4 00da | | Load_Top At_Offset_2
08c5 01d8 | | Execute Vector,Element_Type
08c6 0322 | " | Declare_Variable Record
08c7 00d8 | | Load_Top At_Offset_0
08c8 1c00 | | Execute_Immediate Run_Utility,0x0
08c9 00db | | Load_Top At_Offset_3
08ca 01dc | | Execute Vector,Last
08cb e5ff | | Load 0x2,-0x1
08cc 01dd | | Execute Vector,First
08cd 0263 | c | Execute Discrete,Above_Bound
08ce 7006 |p | Jump_Nonzero 0x8d5
08cf 00da | | Load_Top At_Offset_2
08d0 00d9 | | Load_Top At_Offset_1
08d1 e5ff | | Load 0x2,-0x1
08d2 01d6 | | Execute Vector,Field_Write
08d3 0a01 | | Execute_Immediate Plus,0x1
08d4 7ff8 | | Jump 0x8cd
08d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
08d6 0000 0000 | | .XXX[0x2]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08ea | | .CONST 0x08ea ; Address of begin
08d9 0004 | | .CONST 0x0004 ; Address of exception handler
08da 0005 | | .CONST 0x0005 ; Number of locals
08db INIT_08d8:
08db 0092 0e1b | | Action Push_String_Extended,0xe1b ; "!machine.rci.switches_converted"
08dd e01f | | Load 0x0,0x1f
08de 1b14 | | Execute Package,Field_Read,Field_Number 0x14
08df 02ff | | Declare_Variable Variant_Record
08e0 00d8 | | Load_Top At_Offset_0
08e1 1c00 | | Execute_Immediate Run_Utility,0x0
08e2 e01f | | Load 0x0,0x1f
08e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08e5 e023 | # | Load 0x0,0x23
08e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08e7 02c7 | | Declare_Variable Any
08e8 00d8 | | Load_Top At_Offset_0
08e9 1c00 | | Execute_Immediate Run_Utility,0x0
08ea BODY_08d8:
08ea e01f | | Load 0x0,0x1f
08eb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08ed 00db | | Load_Top At_Offset_3
08ee 603d |`= | Indirect_Literal Discrete,0x92c,{0x00000000, 0x00004000}
08ef e01e | | Load 0x0,0x1e
08f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08f1 4800 |H | Short_Literal 0x0
08f2 e020 | | Load 0x0,0x20
08f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08f4 e01f | | Load 0x0,0x1f
08f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08f7 0092 0e1c | | Action Push_String_Extended,0xe1c ; "!machine.rci.switches_converted'C(TEXT)"
08f9 e01f | | Load 0x0,0x1f
08fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08fb 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
08fc 00d1 | | Pop_Control Pop_Count_1
08fd 005a | Z | Store_Top Discrete,At_Offset_2
08fe 00d9 | | Load_Top At_Offset_1
08ff 460e |F | Jump_Case 0xf
0900 7822 |x" | Jump 0x923 ; case 0x0
0901 780d |x | Jump 0x90f ; case 0x1
0902 780c |x | Jump 0x90f ; case 0x2
0903 7822 |x" | Jump 0x926 ; case 0x3
0904 780a |x | Jump 0x90f ; case 0x4
0905 7809 |x | Jump 0x90f ; case 0x5
0906 7808 |x | Jump 0x90f ; case 0x6
0907 7807 |x | Jump 0x90f ; case 0x7
0908 7806 |x | Jump 0x90f ; case 0x8
0909 7805 |x | Jump 0x90f ; case 0x9
090a 7804 |x | Jump 0x90f ; case 0xa
090b 7803 |x | Jump 0x90f ; case 0xb
090c 7802 |x | Jump 0x90f ; case 0xc
090d 7801 |x | Jump 0x90f ; case 0xd
090e 7800 |x | Jump 0x90f ; case 0xe
090f 4800 |H | Short_Literal 0x0
0910 a23c | < | Store_Unchecked 0x1,0x3c
0911 e008 | | Load 0x0,0x8
0912 180e | | Execute Package,Field_Execute,Field_Number 0xe
0913 4807 |H | Short_Literal 0x7
0914 0092 0e1d | | Action Push_String_Extended,0xe1d ; "Bad status resolving name !machine.rci.switches_converted: "
0916 e404 | | Load 0x2,0x4
0917 e01f | | Load 0x0,0x1f
0918 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0919 1b0f | | Execute Package,Field_Read,Field_Number 0xf
091a 011c | | Execute Any,Convert_Unchecked
091b 1c01 | | Execute_Immediate Run_Utility,0x1
091c 01cc | | Execute Vector,Catenate
091d 0092 0e1e | | Action Push_String_Extended,0xe1e ; "; RCI switches will not be converted from RCF"
091f 01cc | | Execute Vector,Catenate
0920 e009 | | Load 0x0,0x9
0921 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0922 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0923 4800 |H | Short_Literal 0x0
0924 a23c | < | Store_Unchecked 0x1,0x3c
0925 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0926 4801 |H | Short_Literal 0x1
0927 a23c | < | Store_Unchecked 0x1,0x3c
0928 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0929 0000 0000 | | .XXX[0x3]
092b 0000 | |
092c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933 | 3 | .CONST 0x0933 ; Address of begin
0931 0004 | | .CONST 0x0004 ; Address of exception handler
0932 0001 | | .CONST 0x0001 ; Number of locals
0933 BODY_0930:
0933 INIT_0930:
0933 0092 0e1f | | Action Push_String_Extended,0xe1f ; "Rcf"
0935 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0936 0000 0000 | | .XXX[0x2]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093b | ; | .CONST 0x093b ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0001 | | .CONST 0x0001 ; Number of locals
093b BODY_0938:
093b INIT_0938:
093b 00db | | Load_Top At_Offset_3
093c 6807 |h | Jump_Zero 0x944
093d e259 | Y | Load 0x1,0x59
093e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
093f 00db | | Load_Top At_Offset_3
0940 e259 | Y | Load 0x1,0x59
0941 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0942 c5fd | | Store 0x2,-0x3
0943 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0944 e255 | U | Load 0x1,0x55
0945 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0946 00db | | Load_Top At_Offset_3
0947 e255 | U | Load 0x1,0x55
0948 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0949 c5fd | | Store 0x2,-0x3
094a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
094b 0000 0000 | | .BLANK 0000[0x5]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0962 | b | .CONST 0x0962 ; Address of begin
0951 0004 | | .CONST 0x0004 ; Address of exception handler
0952 0006 | | .CONST 0x0006 ; Number of locals
0953 INIT_0950:
0953 e01f | | Load 0x0,0x1f
0954 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0955 e01f | | Load 0x0,0x1f
0956 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0957 02c7 | | Declare_Variable Any
0958 00d8 | | Load_Top At_Offset_0
0959 1c00 | | Execute_Immediate Run_Utility,0x0
095a e024 | $ | Load 0x0,0x24
095b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
095c 02c7 | | Declare_Variable Any
095d 00d8 | | Load_Top At_Offset_0
095e 1c00 | | Execute_Immediate Run_Utility,0x0
095f 00e1 | | Load_Encached Boolean_Cache
0960 029f 09cb | | Declare_Subprogram INIT_09c8,For_Call
0962 BODY_0950:
0962 00be | | Action Activate_Tasks
0963 e01f | | Load 0x0,0x1f
0964 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0965 e403 | | Load 0x2,0x3
0966 0120 | | Execute Any,Is_Value
0967 6803 |h | Jump_Zero 0x96b
0968 e01f | | Load 0x0,0x1f
0969 1b0f | | Execute Package,Field_Read,Field_Number 0xf
096a 7801 |x | Jump 0x96c
096b e403 | | Load 0x2,0x3
096c 6057 |`W | Indirect_Literal Discrete,0x9c4,{0x00000000, 0x00004000}
096d e01e | | Load 0x0,0x1e
096e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
096f e5ff | | Load 0x2,-0x1
0970 e01f | | Load 0x0,0x1f
0971 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0972 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0973 c403 | | Store 0x2,0x3
0974 c402 | | Store 0x2,0x2
0975 e402 | | Load 0x2,0x2
0976 7035 |p5 | Jump_Nonzero 0x9ac
0977 e01f | | Load 0x0,0x1f
0978 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0979 00e1 | | Load_Encached Boolean_Cache
097a 6049 |`I | Indirect_Literal Discrete,0x9c4,{0x00000000, 0x00004000}
097b e01e | | Load 0x0,0x1e
097c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
097d e403 | | Load 0x2,0x3
097e e01f | | Load 0x0,0x1f
097f 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0980 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0981 005b | [ | Store_Top Discrete,At_Offset_3
0982 c402 | | Store 0x2,0x2
0983 e402 | | Load 0x2,0x2
0984 7011 |p | Jump_Nonzero 0x996
0985 00d9 | | Load_Top At_Offset_1
0986 680d |h | Jump_Zero 0x994
0987 e008 | | Load 0x0,0x8
0988 180e | | Execute Package,Field_Execute,Field_Number 0xe
0989 4807 |H | Short_Literal 0x7
098a e403 | | Load 0x2,0x3
098b e01f | | Load 0x0,0x1f
098c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
098d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
098e 0092 0e20 | | Action Push_String_Extended,0xe20 ; " is frozen"
0990 01cc | | Execute Vector,Catenate
0991 e009 | | Load 0x0,0x9
0992 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0993 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0994 8406 | | Call 0x2,0x6
0995 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0996 e008 | | Load 0x0,0x8
0997 180e | | Execute Package,Field_Execute,Field_Number 0xe
0998 4807 |H | Short_Literal 0x7
0999 0092 0e21 | !| Action Push_String_Extended,0xe21 ; "Error inspecting object: "
099b e403 | | Load 0x2,0x3
099c e01f | | Load 0x0,0x1f
099d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
099e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
099f 01cc | | Execute Vector,Catenate
09a0 0092 0e22 | "| Action Push_String_Extended,0xe22 ; ": "
09a2 01cc | | Execute Vector,Catenate
09a3 e402 | | Load 0x2,0x2
09a4 e01f | | Load 0x0,0x1f
09a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09a6 011c | | Execute Any,Convert_Unchecked
09a7 1c01 | | Execute_Immediate Run_Utility,0x1
09a8 01cc | | Execute Vector,Catenate
09a9 e009 | | Load 0x0,0x9
09aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09ac e008 | | Load 0x0,0x8
09ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
09ae 4807 |H | Short_Literal 0x7
09af 0092 0e23 | #| Action Push_String_Extended,0xe23 ; "Error getting object for "
09b1 e5ff | | Load 0x2,-0x1
09b2 e01f | | Load 0x0,0x1f
09b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09b4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
09b5 01cc | | Execute Vector,Catenate
09b6 0092 0e22 | "| Action Push_String_Extended,0xe22 ; ": "
09b8 01cc | | Execute Vector,Catenate
09b9 e402 | | Load 0x2,0x2
09ba e01f | | Load 0x0,0x1f
09bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09bc 011c | | Execute Any,Convert_Unchecked
09bd 1c01 | | Execute_Immediate Run_Utility,0x1
09be 01cc | | Execute Vector,Catenate
09bf e009 | | Load 0x0,0x9
09c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09c2 0000 0000 | | .XXX[0x2]
09c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09cd | | .CONST 0x09cd ; Address of begin
09c9 0004 | | .CONST 0x0004 ; Address of exception handler
09ca 0002 | | .CONST 0x0002 ; Number of locals
09cb INIT_09c8:
09cb 029f 0a0b | | Declare_Subprogram INIT_0a08,For_Call
09cd BODY_09c8:
09cd e008 | | Load 0x0,0x8
09ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
09cf 4801 |H | Short_Literal 0x1
09d0 0092 0e24 | $| Action Push_String_Extended,0xe24 ; "Switch_file => "
09d2 e5ff | | Load 0x2,-0x1
09d3 e01f | | Load 0x0,0x1f
09d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09d5 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
09d6 01cc | | Execute Vector,Catenate
09d7 e009 | | Load 0x0,0x9
09d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09d9 e024 | $ | Load 0x0,0x24
09da 1b10 | | Execute Package,Field_Read,Field_Number 0x10
09db e5ff | | Load 0x2,-0x1
09dc e404 | | Load 0x2,0x4
09dd 4800 |H | Short_Literal 0x0
09de 67e5 |g | Indirect_Literal Discrete,0x9c4,{0x00000000, 0x00004000}
09df e01e | | Load 0x0,0x1e
09e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09e1 4802 |H | Short_Literal 0x2
09e2 e024 | $ | Load 0x0,0x24
09e3 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
09e4 c404 | | Store 0x2,0x4
09e5 00d1 | | Pop_Control Pop_Count_1
09e6 c402 | | Store 0x2,0x2
09e7 e402 | | Load 0x2,0x2
09e8 7002 |p | Jump_Nonzero 0x9eb
09e9 8602 | | Call 0x3,0x2
09ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09eb e008 | | Load 0x0,0x8
09ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
09ed 4802 |H | Short_Literal 0x2
09ee 0092 0e25 | %| Action Push_String_Extended,0xe25 ; "Error opening switch file "
09f0 e5ff | | Load 0x2,-0x1
09f1 e01f | | Load 0x0,0x1f
09f2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09f3 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
09f4 01cc | | Execute Vector,Catenate
09f5 0092 0e22 | "| Action Push_String_Extended,0xe22 ; ": "
09f7 01cc | | Execute Vector,Catenate
09f8 e402 | | Load 0x2,0x2
09f9 e01f | | Load 0x0,0x1f
09fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09fb 011c | | Execute Any,Convert_Unchecked
09fc 1c01 | | Execute_Immediate Run_Utility,0x1
09fd 01cc | | Execute Vector,Catenate
09fe e009 | | Load 0x0,0x9
09ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a00 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a01 0000 0000 | | .BLANK 0000[0x7]
0a08 ; --------------------------------------------------------------------------------------
0a08 ; SUBPROGRAM
0a08 ; --------------------------------------------------------------------------------------
0a08 0a1c | | .CONST 0x0a1c ; Address of begin
0a09 0a41 | A | .CONST 0x0a41 ; Address of exception handler
0a0a 0004 | | .CONST 0x0004 ; Number of locals
0a0b INIT_0a08:
0a0b e01e | | Load 0x0,0x1e
0a0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a0d 02c7 | | Declare_Variable Any
0a0e e404 | | Load 0x2,0x4
0a0f e024 | $ | Load 0x0,0x24
0a10 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0a11 a802 | | Store_Unchecked 0x4,0x2
0a12 6061 |`a | Indirect_Literal Discrete,0xa74,{0x00000000, 0x00004000}
0a13 00d9 | | Load_Top At_Offset_1
0a14 e5ff | | Load 0x2,-0x1
0a15 e257 | W | Load 0x1,0x57
0a16 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0a17 605c |`\ | Indirect_Literal Discrete,0xa74,{0x00000000, 0x00004000}
0a18 00da | | Load_Top At_Offset_2
0a19 e5ff | | Load 0x2,-0x1
0a1a e255 | U | Load 0x1,0x55
0a1b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0a1c BODY_0a08:
0a1c e008 | | Load 0x0,0x8
0a1d 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a1e 4801 |H | Short_Literal 0x1
0a1f 0092 0e26 | &| Action Push_String_Extended,0xe26 ; "RCF Switch => "
0a21 e803 | | Load 0x4,0x3
0a22 01cc | | Execute Vector,Catenate
0a23 e009 | | Load 0x0,0x9
0a24 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a25 e008 | | Load 0x0,0x8
0a26 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a27 4801 |H | Short_Literal 0x1
0a28 0092 0e27 | '| Action Push_String_Extended,0xe27 ; "RCI switch => "
0a2a 00db | | Load_Top At_Offset_3
0a2b 01cc | | Execute Vector,Catenate
0a2c e009 | | Load 0x0,0x9
0a2d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a2e 6045 |`E | Indirect_Literal Discrete,0xa74,{0x00000000, 0x00004000}
0a2f e404 | | Load 0x2,0x4
0a30 e024 | $ | Load 0x0,0x24
0a31 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0a32 00db | | Load_Top At_Offset_3
0a33 e5ff | | Load 0x2,-0x1
0a34 e255 | U | Load 0x1,0x55
0a35 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0a36 e5fe | | Load 0x2,-0x2
0a37 0a01 | | Execute_Immediate Plus,0x1
0a38 c5fe | | Store 0x2,-0x2
0a39 e024 | $ | Load 0x0,0x24
0a3a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0a3b e404 | | Load 0x2,0x4
0a3c e024 | $ | Load 0x0,0x24
0a3d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0a3e c404 | | Store 0x2,0x4
0a3f c402 | | Store 0x2,0x2
0a40 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a41 TRAP_0a08:
0a41 0007 | | Action Break_Optional
0a42 e008 | | Load 0x0,0x8
0a43 180e | | Execute Package,Field_Execute,Field_Number 0xe
0a44 4801 |H | Short_Literal 0x1
0a45 4802 |H | Short_Literal 0x2
0a46 e00b | | Load 0x0,0xb
0a47 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a48 035b | [ | Declare_Type Array,Constrained
0a49 0337 | 7 | Declare_Variable Array
0a4a 0092 0e28 | (| Action Push_String_Extended,0xe28 ; "Rci switch upgrade of "
0a4c e5ff | | Load 0x2,-0x1
0a4d e01f | | Load 0x0,0x1f
0a4e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a4f 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0a50 01cc | | Execute Vector,Catenate
0a51 e00b | | Load 0x0,0xb
0a52 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a53 e00b | | Load 0x0,0xb
0a54 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a55 0119 | | Execute Any,Check_In_Formal_Type
0a56 4801 |H | Short_Literal 0x1
0a57 00da | | Load_Top At_Offset_2
0a58 01d6 | | Execute Vector,Field_Write
0a59 4800 |H | Short_Literal 0x0
0a5a 4801 |H | Short_Literal 0x1
0a5b e00c | | Load 0x0,0xc
0a5c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0a5d e00b | | Load 0x0,0xb
0a5e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a5f e00b | | Load 0x0,0xb
0a60 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a61 0119 | | Execute Any,Check_In_Formal_Type
0a62 4802 |H | Short_Literal 0x2
0a63 00da | | Load_Top At_Offset_2
0a64 01d6 | | Execute Vector,Field_Write
0a65 600a |` | Indirect_Literal Discrete,0xa70,{0x00000000, 0x0000813b}
0a66 e00d | | Load 0x0,0xd
0a67 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a68 e024 | $ | Load 0x0,0x24
0a69 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0a6a e404 | | Load 0x2,0x4
0a6b e024 | $ | Load 0x0,0x24
0a6c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0a6d c404 | | Store 0x2,0x4
0a6e c402 | | Store 0x2,0x2
0a6f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a70 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0a74 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0a78 ; --------------------------------------------------------------------------------------
0a78 ; SUBPROGRAM
0a78 ; --------------------------------------------------------------------------------------
0a78 0aa5 | | .CONST 0x0aa5 ; Address of begin
0a79 0004 | | .CONST 0x0004 ; Address of exception handler
0a7a 001d | | .CONST 0x001d ; Number of locals
0a7b INIT_0a78:
0a7b 0092 0e29 | )| Action Push_String_Extended,0xe29 ; "dummy"
0a7d 0129 | ) | Execute Any,Make_Visible
0a7e 029a 0aab | | Declare_Subprogram INIT_0aa8,For_Outer_Call,Visible,Unelaborated
0a80 029a 0acb | | Declare_Subprogram INIT_0ac8,For_Outer_Call,Visible,Unelaborated
0a82 029a 0b03 | | Declare_Subprogram INIT_0b00,For_Outer_Call,Visible,Unelaborated
0a84 029a 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible,Unelaborated
0a86 029a 0b43 | C| Declare_Subprogram INIT_0b40,For_Outer_Call,Visible,Unelaborated
0a88 029a 0b5b | [| Declare_Subprogram INIT_0b58,For_Outer_Call,Visible,Unelaborated
0a8a 00bf | | Action Accept_Activation
0a8b 029d 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call
0a8d 029d 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call
0a8f 029d 0c43 | C| Declare_Subprogram INIT_0c40,For_Outer_Call
0a91 029d 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call
0a93 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0a94 00c7 | | Action Elaborate_Subprogram
0a95 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0a96 00c7 | | Action Elaborate_Subprogram
0a97 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0a98 00c7 | | Action Elaborate_Subprogram
0a99 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0a9a 00c7 | | Action Elaborate_Subprogram
0a9b 029d 0c7b | {| Declare_Subprogram INIT_0c78,For_Outer_Call
0a9d 029d 0c8b | | Declare_Subprogram INIT_0c88,For_Outer_Call
0a9f 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call
0aa1 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0aa2 00c7 | | Action Elaborate_Subprogram
0aa3 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0aa4 00c7 | | Action Elaborate_Subprogram
0aa5 BODY_0a78:
0aa5 00bc | | Action Signal_Activated
0aa6 00bb | | Action Signal_Completion
0aa7 0000 | | .XXX[0x1]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0aaf | | .CONST 0x0aaf ; Address of begin
0aa9 0004 | | .CONST 0x0004 ; Address of exception handler
0aaa 0003 | | .CONST 0x0003 ; Number of locals
0aab INIT_0aa8:
0aab 029f 0cb3 | | Declare_Subprogram INIT_0cb0,For_Call
0aad 029f 0cc3 | | Declare_Subprogram INIT_0cc0,For_Call
0aaf BODY_0aa8:
0aaf e001 | | Load 0x0,0x1
0ab0 6810 |h | Jump_Zero 0xac1
0ab1 e002 | | Load 0x0,0x2
0ab2 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ab3 4801 |H | Short_Literal 0x1
0ab4 0092 0e2a | *| Action Push_String_Extended,0xe2a ; "IMAGE - value => "
0ab6 e5ff | | Load 0x2,-0x1
0ab7 01cc | | Execute Vector,Catenate
0ab8 0092 0e2b | +| Action Push_String_Extended,0xe2b ; ", field => "
0aba 01cc | | Execute Vector,Catenate
0abb e5fe | | Load 0x2,-0x2
0abc 00e0 | | Load_Encached Standard_Cache
0abd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0abe 01cc | | Execute Vector,Catenate
0abf e003 | | Load 0x0,0x3
0ac0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ac1 8403 | | Call 0x2,0x3
0ac2 0831 | 1 | Execute_Immediate Raise,0x31
0ac3 0000 0000 | | .BLANK 0000[0x5]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0ada | | .CONST 0x0ada ; Address of begin
0ac9 0004 | | .CONST 0x0004 ; Address of exception handler
0aca 0006 | | .CONST 0x0006 ; Number of locals
0acb INIT_0ac8:
0acb 00db | | Load_Top At_Offset_3
0acc 821a | | Call 0x1,0x1a
0acd 4801 |H | Short_Literal 0x1
0ace 00d9 | | Load_Top At_Offset_1
0acf e5fd | | Load 0x2,-0x3
0ad0 e004 | | Load 0x0,0x4
0ad1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0ad2 00e1 | | Load_Encached Boolean_Cache
0ad3 03f1 | | Declare_Variable Discrete,With_Value
0ad4 029f 0d13 | | Declare_Subprogram INIT_0d10,For_Call
0ad6 029f 0d23 | #| Declare_Subprogram INIT_0d20,For_Call
0ad8 029f 0d33 | 3| Declare_Subprogram INIT_0d30,For_Call
0ada BODY_0ac8:
0ada e001 | | Load 0x0,0x1
0adb 6822 |h" | Jump_Zero 0xafe
0adc e002 | | Load 0x0,0x2
0add 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ade 4801 |H | Short_Literal 0x1
0adf 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "VALUE - Input =>"
0ae1 e5ff | | Load 0x2,-0x1
0ae2 01cc | | Execute Vector,Catenate
0ae3 0092 0e2b | +| Action Push_String_Extended,0xe2b ; ", field => "
0ae5 01cc | | Execute Vector,Catenate
0ae6 e5fe | | Load 0x2,-0x2
0ae7 00e0 | | Load_Encached Standard_Cache
0ae8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ae9 01cc | | Execute Vector,Catenate
0aea 0092 0e2d | -| Action Push_String_Extended,0xe2d ; ", image => "
0aec 01cc | | Execute Vector,Catenate
0aed e5fd | | Load 0x2,-0x3
0aee 01cc | | Execute Vector,Catenate
0aef 0092 0e2e | .| Action Push_String_Extended,0xe2e ; ", default_image => "
0af1 01cc | | Execute Vector,Catenate
0af2 e402 | | Load 0x2,0x2
0af3 01cc | | Execute Vector,Catenate
0af4 0092 0e2f | /| Action Push_String_Extended,0xe2f ; ", is_default => "
0af6 01cc | | Execute Vector,Catenate
0af7 e403 | | Load 0x2,0x3
0af8 00e1 | | Load_Encached Boolean_Cache
0af9 011c | | Execute Any,Convert_Unchecked
0afa 1c01 | | Execute_Immediate Run_Utility,0x1
0afb 01cc | | Execute Vector,Catenate
0afc e003 | | Load 0x0,0x3
0afd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0afe 8406 | | Call 0x2,0x6
0aff 0831 | 1 | Execute_Immediate Raise,0x31
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b03 | | .CONST 0x0b03 ; Address of begin
0b01 0004 | | .CONST 0x0004 ; Address of exception handler
0b02 0001 | | .CONST 0x0001 ; Number of locals
0b03 BODY_0b00:
0b03 INIT_0b00:
0b03 00da | | Load_Top At_Offset_2
0b04 e20f | | Load 0x1,0xf
0b05 e005 | | Load 0x0,0x5
0b06 01d5 | | Execute Vector,Field_Reference
0b07 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b08 e006 | | Load 0x0,0x6
0b09 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b0a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0b0b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b0c 4603 |F | Jump_Case 0x4
0b0d 7806 |x | Jump 0xb14 ; case 0x0
0b0e 7808 |x | Jump 0xb17 ; case 0x1
0b0f 780a |x | Jump 0xb1a ; case 0x2
0b10 7800 |x | Jump 0xb11 ; case 0x3
0b11 0092 0e30 | 0| Action Push_String_Extended,0xe30 ; "Undefined RCI Switch Type"
0b13 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b14 00db | | Load_Top At_Offset_3
0b15 821c | | Call 0x1,0x1c
0b16 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b17 00db | | Load_Top At_Offset_3
0b18 821b | | Call 0x1,0x1b
0b19 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b1a 00db | | Load_Top At_Offset_3
0b1b 821d | | Call 0x1,0x1d
0b1c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b1d 0000 0000 | | .XXX[0x3]
0b1f 0000 | |
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b23 | # | .CONST 0x0b23 ; Address of begin
0b21 0004 | | .CONST 0x0004 ; Address of exception handler
0b22 0001 | | .CONST 0x0001 ; Number of locals
0b23 BODY_0b20:
0b23 INIT_0b20:
0b23 00da | | Load_Top At_Offset_2
0b24 e20f | | Load 0x1,0xf
0b25 e005 | | Load 0x0,0x5
0b26 01d5 | | Execute Vector,Field_Reference
0b27 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b28 e006 | | Load 0x0,0x6
0b29 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b2a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0b2b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b2c 4603 |F | Jump_Case 0x4
0b2d 7804 |x | Jump 0xb32 ; case 0x0
0b2e 7806 |x | Jump 0xb35 ; case 0x1
0b2f 7808 |x | Jump 0xb38 ; case 0x2
0b30 7800 |x | Jump 0xb31 ; case 0x3
0b31 08e2 | | Execute_Immediate Raise,0xe2
0b32 0092 0e31 | 1| Action Push_String_Extended,0xe31 ; "Boolean"
0b34 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b35 0092 0e32 | 2| Action Push_String_Extended,0xe32 ; "Integer"
0b37 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b38 0092 0e33 | 3| Action Push_String_Extended,0xe33 ; "String"
0b3a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b3b 0000 0000 | | .BLANK 0000[0x5]
0b40 ; --------------------------------------------------------------------------------------
0b40 ; SUBPROGRAM
0b40 ; --------------------------------------------------------------------------------------
0b40 0b43 | C | .CONST 0x0b43 ; Address of begin
0b41 0004 | | .CONST 0x0004 ; Address of exception handler
0b42 0001 | | .CONST 0x0001 ; Number of locals
0b43 BODY_0b40:
0b43 INIT_0b40:
0b43 00da | | Load_Top At_Offset_2
0b44 e20f | | Load 0x1,0xf
0b45 e005 | | Load 0x0,0x5
0b46 01d5 | | Execute Vector,Field_Reference
0b47 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b48 e006 | | Load 0x0,0x6
0b49 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b4a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0b4b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b4c 4603 |F | Jump_Case 0x4
0b4d 7804 |x | Jump 0xb52 ; case 0x0
0b4e 7805 |x | Jump 0xb54 ; case 0x1
0b4f 7806 |x | Jump 0xb56 ; case 0x2
0b50 7800 |x | Jump 0xb51 ; case 0x3
0b51 08e2 | | Execute_Immediate Raise,0xe2
0b52 4800 |H | Short_Literal 0x0
0b53 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b54 4801 |H | Short_Literal 0x1
0b55 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b56 4802 |H | Short_Literal 0x2
0b57 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; --------------------------------------------------------------------------------------
0b58 0b60 | ` | .CONST 0x0b60 ; Address of begin
0b59 0b63 | c | .CONST 0x0b63 ; Address of exception handler
0b5a 0004 | | .CONST 0x0004 ; Number of locals
0b5b INIT_0b58:
0b5b 00e3 | | Load_Encached Natural_Cache
0b5c 029f 0d93 | | Declare_Subprogram INIT_0d90,For_Call
0b5e 029f 0da3 | | Declare_Subprogram INIT_0da0,For_Call
0b60 BODY_0b58:
0b60 8403 | | Call 0x2,0x3
0b61 8404 | | Call 0x2,0x4
0b62 0831 | 1 | Execute_Immediate Raise,0x31
0b63 TRAP_0b58:
0b63 0007 | | Action Break_Optional
0b64 e002 | | Load 0x0,0x2
0b65 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b66 4801 |H | Short_Literal 0x1
0b67 4802 |H | Short_Literal 0x2
0b68 e007 | | Load 0x0,0x7
0b69 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b6a 035b | [ | Declare_Type Array,Constrained
0b6b 0337 | 7 | Declare_Variable Array
0b6c 0092 0e34 | 4| Action Push_String_Extended,0xe34 ; "Rcf_Switch_Implementation.Help"
0b6e e007 | | Load 0x0,0x7
0b6f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b70 e007 | | Load 0x0,0x7
0b71 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b72 0119 | | Execute Any,Check_In_Formal_Type
0b73 4801 |H | Short_Literal 0x1
0b74 00da | | Load_Top At_Offset_2
0b75 01d6 | | Execute Vector,Field_Write
0b76 4800 |H | Short_Literal 0x0
0b77 4801 |H | Short_Literal 0x1
0b78 e008 | | Load 0x0,0x8
0b79 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0b7a e007 | | Load 0x0,0x7
0b7b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b7c e007 | | Load 0x0,0x7
0b7d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b7e 0119 | | Execute Any,Check_In_Formal_Type
0b7f 4802 |H | Short_Literal 0x2
0b80 00da | | Load_Top At_Offset_2
0b81 01d6 | | Execute Vector,Field_Write
0b82 4805 |H | Short_Literal 0x5
0b83 6004 |` | Indirect_Literal Discrete,0xb88,{0x00000000, 0x0000813b}
0b84 e009 | | Load 0x0,0x9
0b85 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0b86 00ea | | Load_Encached Null_String_Cache
0b87 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b88 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0b8c 0000 0000 | | .BLANK 0000[0x4]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b9e | | .CONST 0x0b9e ; Address of begin
0b91 0004 | | .CONST 0x0004 ; Address of exception handler
0b92 0004 | | .CONST 0x0004 ; Number of locals
0b93 INIT_0b90:
0b93 00da | | Load_Top At_Offset_2
0b94 01dd | | Execute Vector,First
0b95 00e2 | | Load_Encached Integer_Cache
0b96 03f1 | | Declare_Variable Discrete,With_Value
0b97 00db | | Load_Top At_Offset_3
0b98 01dc | | Execute Vector,Last
0b99 00e2 | | Load_Encached Integer_Cache
0b9a 03f1 | | Declare_Variable Discrete,With_Value
0b9b 00d9 | | Load_Top At_Offset_1
0b9c 00e3 | | Load_Encached Natural_Cache
0b9d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0b9e BODY_0b90:
0b9e 00cf | | Action Mark_Auxiliary
0b9f 782f |x/ | Jump 0xbcf
0ba0 4801 |H | Short_Literal 0x1
0ba1 00da | | Load_Top At_Offset_2
0ba2 e403 | | Load 0x2,0x3
0ba3 e5ff | | Load 0x2,-0x1
0ba4 01cf | | Execute Vector,Slice_Read
0ba5 e5fe | | Load 0x2,-0x2
0ba6 e004 | | Load 0x0,0x4
0ba7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0ba8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0ba9 00d9 | | Load_Top At_Offset_1
0baa 0c01 | | Execute_Immediate Greater_Equal,0x1
0bab 682b |h+ | Jump_Zero 0xbd7
0bac 00d9 | | Load_Top At_Offset_1
0bad e5fe | | Load 0x2,-0x2
0bae 01db | | Execute Vector,Length
0baf 0273 | s | Execute Discrete,Plus
0bb0 e5ff | | Load 0x2,-0x1
0bb1 01d7 | | Execute Vector,Field_Read
0bb2 0f20 | | Execute_Immediate Equal,0x20
0bb3 6816 |h | Jump_Zero 0xbca
0bb4 00d9 | | Load_Top At_Offset_1
0bb5 e402 | | Load 0x2,0x2
0bb6 027f | | Execute Discrete,Equal
0bb7 7006 |p | Jump_Nonzero 0xbbe
0bb8 00d9 | | Load_Top At_Offset_1
0bb9 0aff | | Execute_Immediate Plus,-0x1
0bba e5ff | | Load 0x2,-0x1
0bbb 01d7 | | Execute Vector,Field_Read
0bbc 0f0a | | Execute_Immediate Equal,0xa
0bbd 680c |h | Jump_Zero 0xbca
0bbe 00d9 | | Load_Top At_Offset_1
0bbf 4800 |H | Short_Literal 0x0
0bc0 00db | | Load_Top At_Offset_3
0bc1 e403 | | Load 0x2,0x3
0bc2 e5ff | | Load 0x2,-0x1
0bc3 01cf | | Execute Vector,Slice_Read
0bc4 480a |H | Short_Literal 0xa
0bc5 e004 | | Load 0x0,0x4
0bc6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0bc7 e5ff | | Load 0x2,-0x1
0bc8 01cf | | Execute Vector,Slice_Read
0bc9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bca 00d9 | | Load_Top At_Offset_1
0bcb 0a01 | | Execute_Immediate Plus,0x1
0bcc 005a | Z | Store_Top Discrete,At_Offset_2
0bcd 7800 |x | Jump 0xbce
0bce 00c9 | | Action Pop_Auxiliary_Loop
0bcf 00d9 | | Load_Top At_Offset_1
0bd0 00db | | Load_Top At_Offset_3
0bd1 e5fe | | Load 0x2,-0x2
0bd2 01db | | Execute Vector,Length
0bd3 0272 | r | Execute Discrete,Minus
0bd4 0aff | | Execute_Immediate Plus,-0x1
0bd5 027a | z | Execute Discrete,Less_Equal
0bd6 77c9 |w | Jump_Nonzero 0xba0
0bd7 00ce | | Action Pop_Auxiliary
0bd8 00ea | | Load_Encached Null_String_Cache
0bd9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bda 0000 0000 | | .BLANK 0000[0x6]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; --------------------------------------------------------------------------------------
0be0 0be3 | | .CONST 0x0be3 ; Address of begin
0be1 0004 | | .CONST 0x0004 ; Address of exception handler
0be2 0001 | | .CONST 0x0001 ; Number of locals
0be3 BODY_0be0:
0be3 INIT_0be0:
0be3 00da | | Load_Top At_Offset_2
0be4 01dd | | Execute Vector,First
0be5 00db | | Load_Top At_Offset_3
0be6 01d7 | | Execute Vector,Field_Read
0be7 0e22 | " | Execute_Immediate Not_Equal,0x22
0be8 6803 |h | Jump_Zero 0xbec
0be9 e00a | | Load 0x0,0xa
0bea 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0beb 0257 | W | Execute Discrete,Raise
0bec 00cf | | Action Mark_Auxiliary
0bed 00db | | Load_Top At_Offset_3
0bee 01dc | | Execute Vector,Last
0bef 0aff | | Execute_Immediate Plus,-0x1
0bf0 00d8 | | Load_Top At_Offset_0
0bf1 00e2 | | Load_Encached Integer_Cache
0bf2 0260 | ` | Execute Discrete,In_Type
0bf3 7001 |p | Jump_Nonzero 0xbf5
0bf4 0801 | | Execute_Immediate Raise,0x1
0bf5 e5ff | | Load 0x2,-0x1
0bf6 01dd | | Execute Vector,First
0bf7 0a01 | | Execute_Immediate Plus,0x1
0bf8 00d8 | | Load_Top At_Offset_0
0bf9 00e2 | | Load_Encached Integer_Cache
0bfa 0260 | ` | Execute Discrete,In_Type
0bfb 7001 |p | Jump_Nonzero 0xbfd
0bfc 0801 | | Execute_Immediate Raise,0x1
0bfd 0263 | c | Execute Discrete,Above_Bound
0bfe 7020 |p | Jump_Nonzero 0xc1f
0bff 00d8 | | Load_Top At_Offset_0
0c00 e5ff | | Load 0x2,-0x1
0c01 01d7 | | Execute Vector,Field_Read
0c02 0f22 | " | Execute_Immediate Equal,0x22
0c03 6819 |h | Jump_Zero 0xc1d
0c04 e5ff | | Load 0x2,-0x1
0c05 01dd | | Execute Vector,First
0c06 0a01 | | Execute_Immediate Plus,0x1
0c07 00d8 | | Load_Top At_Offset_0
0c08 00e2 | | Load_Encached Integer_Cache
0c09 0260 | ` | Execute Discrete,In_Type
0c0a 7001 |p | Jump_Nonzero 0xc0c
0c0b 0801 | | Execute_Immediate Raise,0x1
0c0c 00d9 | | Load_Top At_Offset_1
0c0d e5ff | | Load 0x2,-0x1
0c0e 01cf | | Execute Vector,Slice_Read
0c0f 00d9 | | Load_Top At_Offset_1
0c10 0a01 | | Execute_Immediate Plus,0x1
0c11 00d8 | | Load_Top At_Offset_0
0c12 00e2 | | Load_Encached Integer_Cache
0c13 0260 | ` | Execute Discrete,In_Type
0c14 7001 |p | Jump_Nonzero 0xc16
0c15 0801 | | Execute_Immediate Raise,0x1
0c16 e5ff | | Load 0x2,-0x1
0c17 01dc | | Execute Vector,Last
0c18 e5ff | | Load 0x2,-0x1
0c19 01cf | | Execute Vector,Slice_Read
0c1a 8218 | | Call 0x1,0x18
0c1b 01cc | | Execute Vector,Catenate
0c1c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c1d 00c8 | | Action Pop_Auxiliary_Range
0c1e 3fe0 |? | Loop_Increasing 0xbff
0c1f 00ce | | Action Pop_Auxiliary
0c20 00da | | Load_Top At_Offset_2
0c21 01dc | | Execute Vector,Last
0c22 00db | | Load_Top At_Offset_3
0c23 01d7 | | Execute Vector,Field_Read
0c24 0e22 | " | Execute_Immediate Not_Equal,0x22
0c25 6803 |h | Jump_Zero 0xc29
0c26 e00a | | Load 0x0,0xa
0c27 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0c28 0257 | W | Execute Discrete,Raise
0c29 00da | | Load_Top At_Offset_2
0c2a 01dd | | Execute Vector,First
0c2b 0a01 | | Execute_Immediate Plus,0x1
0c2c 00d8 | | Load_Top At_Offset_0
0c2d 00e2 | | Load_Encached Integer_Cache
0c2e 0260 | ` | Execute Discrete,In_Type
0c2f 7001 |p | Jump_Nonzero 0xc31
0c30 0801 | | Execute_Immediate Raise,0x1
0c31 00db | | Load_Top At_Offset_3
0c32 01dc | | Execute Vector,Last
0c33 0aff | | Execute_Immediate Plus,-0x1
0c34 00d8 | | Load_Top At_Offset_0
0c35 00e2 | | Load_Encached Integer_Cache
0c36 0260 | ` | Execute Discrete,In_Type
0c37 7001 |p | Jump_Nonzero 0xc39
0c38 0801 | | Execute_Immediate Raise,0x1
0c39 e5ff | | Load 0x2,-0x1
0c3a 01cf | | Execute Vector,Slice_Read
0c3b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c3c 0000 0000 | | .BLANK 0000[0x4]
0c40 ; --------------------------------------------------------------------------------------
0c40 ; SUBPROGRAM
0c40 ; --------------------------------------------------------------------------------------
0c40 0c43 | C | .CONST 0x0c43 ; Address of begin
0c41 0004 | | .CONST 0x0004 ; Address of exception handler
0c42 0001 | | .CONST 0x0001 ; Number of locals
0c43 BODY_0c40:
0c43 INIT_0c40:
0c43 00cf | | Action Mark_Auxiliary
0c44 00db | | Load_Top At_Offset_3
0c45 01d9 | | Execute Vector,Reverse_Bounds
0c46 0263 | c | Execute Discrete,Above_Bound
0c47 701c |p | Jump_Nonzero 0xc64
0c48 00d8 | | Load_Top At_Offset_0
0c49 e5ff | | Load 0x2,-0x1
0c4a 01d7 | | Execute Vector,Field_Read
0c4b 0f22 | " | Execute_Immediate Equal,0x22
0c4c 6815 |h | Jump_Zero 0xc62
0c4d 4822 |H" | Short_Literal 0x22
0c4e e5ff | | Load 0x2,-0x1
0c4f 01dd | | Execute Vector,First
0c50 00da | | Load_Top At_Offset_2
0c51 e5ff | | Load 0x2,-0x1
0c52 01cf | | Execute Vector,Slice_Read
0c53 01ca | | Execute Vector,Prepend
0c54 00d9 | | Load_Top At_Offset_1
0c55 0a01 | | Execute_Immediate Plus,0x1
0c56 00d8 | | Load_Top At_Offset_0
0c57 00e2 | | Load_Encached Integer_Cache
0c58 0260 | ` | Execute Discrete,In_Type
0c59 7001 |p | Jump_Nonzero 0xc5b
0c5a 0801 | | Execute_Immediate Raise,0x1
0c5b e5ff | | Load 0x2,-0x1
0c5c 01dc | | Execute Vector,Last
0c5d e5ff | | Load 0x2,-0x1
0c5e 01cf | | Execute Vector,Slice_Read
0c5f 8219 | | Call 0x1,0x19
0c60 01cc | | Execute Vector,Catenate
0c61 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c62 00c8 | | Action Pop_Auxiliary_Range
0c63 3fe4 |? | Loop_Increasing 0xc48
0c64 00ce | | Action Pop_Auxiliary
0c65 4822 |H" | Short_Literal 0x22
0c66 4822 |H" | Short_Literal 0x22
0c67 e5ff | | Load 0x2,-0x1
0c68 01ca | | Execute Vector,Prepend
0c69 01cb | | Execute Vector,Append
0c6a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c6b 0000 0000 | | .BLANK 0000[0x5]
0c70 ; --------------------------------------------------------------------------------------
0c70 ; SUBPROGRAM
0c70 ; --------------------------------------------------------------------------------------
0c70 0c75 | u | .CONST 0x0c75 ; Address of begin
0c71 0004 | | .CONST 0x0004 ; Address of exception handler
0c72 0002 | | .CONST 0x0002 ; Number of locals
0c73 INIT_0c70:
0c73 029f 0dcb | | Declare_Subprogram INIT_0dc8,For_Call
0c75 BODY_0c70:
0c75 8402 | | Call 0x2,0x2
0c76 0831 | 1 | Execute_Immediate Raise,0x31
0c77 0000 | | .XXX[0x1]
0c78 ; --------------------------------------------------------------------------------------
0c78 ; SUBPROGRAM
0c78 ; --------------------------------------------------------------------------------------
0c78 0c7b | { | .CONST 0x0c7b ; Address of begin
0c79 0c82 | | .CONST 0x0c82 ; Address of exception handler
0c7a 0001 | | .CONST 0x0001 ; Number of locals
0c7b BODY_0c78:
0c7b INIT_0c78:
0c7b 00da | | Load_Top At_Offset_2
0c7c 00e2 | | Load_Encached Integer_Cache
0c7d 00e0 | | Load_Encached Standard_Cache
0c7e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0c7f 7000 |p | Jump_Nonzero 0xc80
0c80 00ea | | Load_Encached Null_String_Cache
0c81 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c82 TRAP_0c78:
0c82 0007 | | Action Break_Optional
0c83 00db | | Load_Top At_Offset_3
0c84 0092 0e35 | 5| Action Push_String_Extended,0xe35 ; " is not an Ada integer literal"
0c86 01cc | | Execute Vector,Catenate
0c87 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c88 ; --------------------------------------------------------------------------------------
0c88 ; SUBPROGRAM
0c88 ; --------------------------------------------------------------------------------------
0c88 0c8e | | .CONST 0x0c8e ; Address of begin
0c89 0004 | | .CONST 0x0004 ; Address of exception handler
0c8a 0002 | | .CONST 0x0002 ; Number of locals
0c8b INIT_0c88:
0c8b 00da | | Load_Top At_Offset_2
0c8c e004 | | Load 0x0,0x4
0c8d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0c8e BODY_0c88:
0c8e 00d8 | | Load_Top At_Offset_0
0c8f 0092 0e36 | 6| Action Push_String_Extended,0xe36 ; "TRUE"
0c91 01df | | Execute Vector,Equal
0c92 7005 |p | Jump_Nonzero 0xc98
0c93 00d8 | | Load_Top At_Offset_0
0c94 0092 0e37 | 7| Action Push_String_Extended,0xe37 ; "FALSE"
0c96 01df | | Execute Vector,Equal
0c97 6802 |h | Jump_Zero 0xc9a
0c98 00ea | | Load_Encached Null_String_Cache
0c99 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c9a 00db | | Load_Top At_Offset_3
0c9b 0092 0e38 | 8| Action Push_String_Extended,0xe38 ; " must be one of 'True' or 'False'"
0c9d 01cc | | Execute Vector,Catenate
0c9e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c9f 0000 | | .XXX[0x1]
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0ca3 | | .CONST 0x0ca3 ; Address of begin
0ca1 0ca9 | | .CONST 0x0ca9 ; Address of exception handler
0ca2 0001 | | .CONST 0x0001 ; Number of locals
0ca3 BODY_0ca0:
0ca3 INIT_0ca0:
0ca3 00da | | Load_Top At_Offset_2
0ca4 8218 | | Call 0x1,0x18
0ca5 01db | | Execute Vector,Length
0ca6 7000 |p | Jump_Nonzero 0xca7
0ca7 00ea | | Load_Encached Null_String_Cache
0ca8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ca9 TRAP_0ca0:
0ca9 0007 | | Action Break_Optional
0caa 00db | | Load_Top At_Offset_3
0cab 0092 0e39 | 9| Action Push_String_Extended,0xe39 ; " is not an Ada string literal"
0cad 01cc | | Execute Vector,Catenate
0cae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0caf 0000 | | .XXX[0x1]
0cb0 ; --------------------------------------------------------------------------------------
0cb0 ; SUBPROGRAM
0cb0 ; --------------------------------------------------------------------------------------
0cb0 0cb3 | | .CONST 0x0cb3 ; Address of begin
0cb1 0004 | | .CONST 0x0004 ; Address of exception handler
0cb2 0001 | | .CONST 0x0001 ; Number of locals
0cb3 BODY_0cb0:
0cb3 INIT_0cb0:
0cb3 e001 | | Load 0x0,0x1
0cb4 6809 |h | Jump_Zero 0xcbe
0cb5 e002 | | Load 0x0,0x2
0cb6 180e | | Execute Package,Field_Execute,Field_Number 0xe
0cb7 4801 |H | Short_Literal 0x1
0cb8 0092 0e3a | :| Action Push_String_Extended,0xe3a ; "IMAGE - returning: "
0cba e7ff | | Load 0x3,-0x1
0cbb 01cc | | Execute Vector,Catenate
0cbc e003 | | Load 0x0,0x3
0cbd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0cbe 00da | | Load_Top At_Offset_2
0cbf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0cd8 | | .CONST 0x0cd8 ; Address of begin
0cc1 0004 | | .CONST 0x0004 ; Address of exception handler
0cc2 0004 | | .CONST 0x0004 ; Number of locals
0cc3 INIT_0cc0:
0cc3 e5fe | | Load 0x2,-0x2
0cc4 e20f | | Load 0x1,0xf
0cc5 e005 | | Load 0x0,0x5
0cc6 01d5 | | Execute Vector,Field_Reference
0cc7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0cc8 e006 | | Load 0x0,0x6
0cc9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0cca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ccb 0217 | | Execute Heap_Access,All_Reference
0ccc 0335 | 5 | Declare_Variable Array,Duplicate
0ccd 00cd | | Action Spare6_Action
0cce 00d8 | | Load_Top At_Offset_0
0ccf e5ff | | Load 0x2,-0x1
0cd0 8217 | | Call 0x1,0x17
0cd1 4800 |H | Short_Literal 0x0
0cd2 00d9 | | Load_Top At_Offset_1
0cd3 4820 |H | Short_Literal 0x20
0cd4 e004 | | Load 0x0,0x4
0cd5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0cd6 00e3 | | Load_Encached Natural_Cache
0cd7 03f1 | | Declare_Variable Discrete,With_Value
0cd8 BODY_0cc0:
0cd8 00d9 | | Load_Top At_Offset_1
0cd9 01db | | Execute Vector,Length
0cda 7005 |p | Jump_Nonzero 0xce0
0cdb e5fe | | Load 0x2,-0x2
0cdc 821a | | Call 0x1,0x1a
0cdd 8402 | | Call 0x2,0x2
0cde 00cb | | Action Pop_Block_With_Result
0cdf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ce0 00d8 | | Load_Top At_Offset_0
0ce1 7001 |p | Jump_Nonzero 0xce3
0ce2 0887 | | Execute_Immediate Raise,0x87
0ce3 e5fe | | Load 0x2,-0x2
0ce4 8215 | | Call 0x1,0x15
0ce5 0f02 | | Execute_Immediate Equal,0x2
0ce6 6815 |h | Jump_Zero 0xcfc
0ce7 00d8 | | Load_Top At_Offset_0
0ce8 0a01 | | Execute_Immediate Plus,0x1
0ce9 00d8 | | Load_Top At_Offset_0
0cea 00e2 | | Load_Encached Integer_Cache
0ceb 0260 | ` | Execute Discrete,In_Type
0cec 7001 |p | Jump_Nonzero 0xcee
0ced 0801 | | Execute_Immediate Raise,0x1
0cee 00da | | Load_Top At_Offset_2
0cef 01dc | | Execute Vector,Last
0cf0 0aff | | Execute_Immediate Plus,-0x1
0cf1 00d8 | | Load_Top At_Offset_0
0cf2 00e2 | | Load_Encached Integer_Cache
0cf3 0260 | ` | Execute Discrete,In_Type
0cf4 7001 |p | Jump_Nonzero 0xcf6
0cf5 0801 | | Execute_Immediate Raise,0x1
0cf6 00db | | Load_Top At_Offset_3
0cf7 01cf | | Execute Vector,Slice_Read
0cf8 8219 | | Call 0x1,0x19
0cf9 8402 | | Call 0x2,0x2
0cfa 00cb | | Action Pop_Block_With_Result
0cfb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0cfc 00d8 | | Load_Top At_Offset_0
0cfd 0a01 | | Execute_Immediate Plus,0x1
0cfe 00d8 | | Load_Top At_Offset_0
0cff 00e2 | | Load_Encached Integer_Cache
0d00 0260 | ` | Execute Discrete,In_Type
0d01 7001 |p | Jump_Nonzero 0xd03
0d02 0801 | | Execute_Immediate Raise,0x1
0d03 00da | | Load_Top At_Offset_2
0d04 01dc | | Execute Vector,Last
0d05 0aff | | Execute_Immediate Plus,-0x1
0d06 00d8 | | Load_Top At_Offset_0
0d07 00e2 | | Load_Encached Integer_Cache
0d08 0260 | ` | Execute Discrete,In_Type
0d09 7001 |p | Jump_Nonzero 0xd0b
0d0a 0801 | | Execute_Immediate Raise,0x1
0d0b 00db | | Load_Top At_Offset_3
0d0c 01cf | | Execute Vector,Slice_Read
0d0d 8402 | | Call 0x2,0x2
0d0e 00cb | | Action Pop_Block_With_Result
0d0f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0d10 ; --------------------------------------------------------------------------------------
0d10 ; SUBPROGRAM
0d10 ; --------------------------------------------------------------------------------------
0d10 0d13 | | .CONST 0x0d13 ; Address of begin
0d11 0004 | | .CONST 0x0004 ; Address of exception handler
0d12 0001 | | .CONST 0x0001 ; Number of locals
0d13 BODY_0d10:
0d13 INIT_0d10:
0d13 e001 | | Load 0x0,0x1
0d14 6809 |h | Jump_Zero 0xd1e
0d15 e002 | | Load 0x0,0x2
0d16 180e | | Execute Package,Field_Execute,Field_Number 0xe
0d17 4801 |H | Short_Literal 0x1
0d18 0092 0e3b | ;| Action Push_String_Extended,0xe3b ; "VALUE - returning: "
0d1a e7ff | | Load 0x3,-0x1
0d1b 01cc | | Execute Vector,Catenate
0d1c e003 | | Load 0x0,0x3
0d1d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d1e 00da | | Load_Top At_Offset_2
0d1f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d20 ; --------------------------------------------------------------------------------------
0d20 ; SUBPROGRAM
0d20 ; --------------------------------------------------------------------------------------
0d20 0d23 | # | .CONST 0x0d23 ; Address of begin
0d21 0004 | | .CONST 0x0004 ; Address of exception handler
0d22 0001 | | .CONST 0x0001 ; Number of locals
0d23 BODY_0d20:
0d23 INIT_0d20:
0d23 e5fe | | Load 0x2,-0x2
0d24 8215 | | Call 0x1,0x15
0d25 0f02 | | Execute_Immediate Equal,0x2
0d26 6803 |h | Jump_Zero 0xd2a
0d27 00da | | Load_Top At_Offset_2
0d28 8218 | | Call 0x1,0x18
0d29 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d2a 00da | | Load_Top At_Offset_2
0d2b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d2c 0000 0000 | | .BLANK 0000[0x4]
0d30 ; --------------------------------------------------------------------------------------
0d30 ; SUBPROGRAM
0d30 ; --------------------------------------------------------------------------------------
0d30 0d48 | H | .CONST 0x0d48 ; Address of begin
0d31 0004 | | .CONST 0x0004 ; Address of exception handler
0d32 0004 | | .CONST 0x0004 ; Number of locals
0d33 INIT_0d30:
0d33 e5fe | | Load 0x2,-0x2
0d34 e20f | | Load 0x1,0xf
0d35 e005 | | Load 0x0,0x5
0d36 01d5 | | Execute Vector,Field_Reference
0d37 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d38 e006 | | Load 0x0,0x6
0d39 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d3a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d3b 0217 | | Execute Heap_Access,All_Reference
0d3c 0335 | 5 | Declare_Variable Array,Duplicate
0d3d 00cd | | Action Spare6_Action
0d3e 00d8 | | Load_Top At_Offset_0
0d3f e5ff | | Load 0x2,-0x1
0d40 8217 | | Call 0x1,0x17
0d41 4800 |H | Short_Literal 0x0
0d42 00d9 | | Load_Top At_Offset_1
0d43 4820 |H | Short_Literal 0x20
0d44 e004 | | Load 0x0,0x4
0d45 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0d46 00e3 | | Load_Encached Natural_Cache
0d47 03f1 | | Declare_Variable Discrete,With_Value
0d48 BODY_0d30:
0d48 00d9 | | Load_Top At_Offset_1
0d49 01db | | Execute Vector,Length
0d4a 7013 |p | Jump_Nonzero 0xd5e
0d4b e403 | | Load 0x2,0x3
0d4c 6804 |h | Jump_Zero 0xd51
0d4d e5ff | | Load 0x2,-0x1
0d4e 8404 | | Call 0x2,0x4
0d4f 00cb | | Action Pop_Block_With_Result
0d50 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0d51 480a |H | Short_Literal 0xa
0d52 4820 |H | Short_Literal 0x20
0d53 e5ff | | Load 0x2,-0x1
0d54 e602 | | Load 0x3,0x2
0d55 01cc | | Execute Vector,Catenate
0d56 01cb | | Execute Vector,Append
0d57 e5fd | | Load 0x2,-0x3
0d58 8405 | | Call 0x2,0x5
0d59 01cc | | Execute Vector,Catenate
0d5a 01cb | | Execute Vector,Append
0d5b 8404 | | Call 0x2,0x4
0d5c 00cb | | Action Pop_Block_With_Result
0d5d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0d5e e403 | | Load 0x2,0x3
0d5f 681c |h | Jump_Zero 0xd7c
0d60 e5ff | | Load 0x2,-0x1
0d61 01dd | | Execute Vector,First
0d62 00da | | Load_Top At_Offset_2
0d63 01dd | | Execute Vector,First
0d64 0aff | | Execute_Immediate Plus,-0x1
0d65 00d8 | | Load_Top At_Offset_0
0d66 00e2 | | Load_Encached Integer_Cache
0d67 0260 | ` | Execute Discrete,In_Type
0d68 7001 |p | Jump_Nonzero 0xd6a
0d69 0801 | | Execute_Immediate Raise,0x1
0d6a e5ff | | Load 0x2,-0x1
0d6b 01cf | | Execute Vector,Slice_Read
0d6c 00da | | Load_Top At_Offset_2
0d6d 01dc | | Execute Vector,Last
0d6e 0a01 | | Execute_Immediate Plus,0x1
0d6f 00d8 | | Load_Top At_Offset_0
0d70 00e2 | | Load_Encached Integer_Cache
0d71 0260 | ` | Execute Discrete,In_Type
0d72 7001 |p | Jump_Nonzero 0xd74
0d73 0801 | | Execute_Immediate Raise,0x1
0d74 e5ff | | Load 0x2,-0x1
0d75 01dc | | Execute Vector,Last
0d76 e5ff | | Load 0x2,-0x1
0d77 01cf | | Execute Vector,Slice_Read
0d78 01cc | | Execute Vector,Catenate
0d79 8404 | | Call 0x2,0x4
0d7a 00cb | | Action Pop_Block_With_Result
0d7b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0d7c e5ff | | Load 0x2,-0x1
0d7d 01dd | | Execute Vector,First
0d7e 00d9 | | Load_Top At_Offset_1
0d7f e5ff | | Load 0x2,-0x1
0d80 01cf | | Execute Vector,Slice_Read
0d81 e5fd | | Load 0x2,-0x3
0d82 8405 | | Call 0x2,0x5
0d83 01cc | | Execute Vector,Catenate
0d84 00da | | Load_Top At_Offset_2
0d85 01dc | | Execute Vector,Last
0d86 e5ff | | Load 0x2,-0x1
0d87 01dc | | Execute Vector,Last
0d88 e5ff | | Load 0x2,-0x1
0d89 01cf | | Execute Vector,Slice_Read
0d8a 01cc | | Execute Vector,Catenate
0d8b 8404 | | Call 0x2,0x4
0d8c 00cb | | Action Pop_Block_With_Result
0d8d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0d8e 0000 0000 | | .XXX[0x2]
0d90 ; --------------------------------------------------------------------------------------
0d90 ; SUBPROGRAM
0d90 ; --------------------------------------------------------------------------------------
0d90 0d93 | | .CONST 0x0d93 ; Address of begin
0d91 0004 | | .CONST 0x0004 ; Address of exception handler
0d92 0001 | | .CONST 0x0001 ; Number of locals
0d93 BODY_0d90:
0d93 INIT_0d90:
0d93 e5ff | | Load 0x2,-0x1
0d94 00e2 | | Load_Encached Integer_Cache
0d95 00e0 | | Load_Encached Standard_Cache
0d96 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d97 c402 | | Store 0x2,0x2
0d98 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d99 0000 0000 | | .BLANK 0000[0x7]
0da0 ; --------------------------------------------------------------------------------------
0da0 ; SUBPROGRAM
0da0 ; --------------------------------------------------------------------------------------
0da0 0db4 | | .CONST 0x0db4 ; Address of begin
0da1 0004 | | .CONST 0x0004 ; Address of exception handler
0da2 0004 | | .CONST 0x0004 ; Number of locals
0da3 INIT_0da0:
0da3 e402 | | Load 0x2,0x2
0da4 e20f | | Load 0x1,0xf
0da5 e005 | | Load 0x0,0x5
0da6 01d5 | | Execute Vector,Field_Reference
0da7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0da8 e006 | | Load 0x0,0x6
0da9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0daa 00d8 | | Load_Top At_Offset_0
0dab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0dac 0217 | | Execute Heap_Access,All_Reference
0dad 0335 | 5 | Declare_Variable Array,Duplicate
0dae 00cd | | Action Spare6_Action
0daf 00d9 | | Load_Top At_Offset_1
0db0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0db1 0217 | | Execute Heap_Access,All_Reference
0db2 0335 | 5 | Declare_Variable Array,Duplicate
0db3 00cd | | Action Spare6_Action
0db4 BODY_0da0:
0db4 00d9 | | Load_Top At_Offset_1
0db5 01db | | Execute Vector,Length
0db6 700b |p | Jump_Nonzero 0xdc2
0db7 0092 0e3c | <| Action Push_String_Extended,0xe3c ; "No help available for "
0db9 00d9 | | Load_Top At_Offset_1
0dba e004 | | Load 0x0,0x4
0dbb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0dbc 01cc | | Execute Vector,Catenate
0dbd 0092 0e3d | =| Action Push_String_Extended,0xe3d ; "."
0dbf 01cc | | Execute Vector,Catenate
0dc0 00cb | | Action Pop_Block_With_Result
0dc1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0dc2 00d9 | | Load_Top At_Offset_1
0dc3 00cb | | Action Pop_Block_With_Result
0dc4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0dc5 0000 0000 | | .XXX[0x3]
0dc7 0000 | |
0dc8 ; --------------------------------------------------------------------------------------
0dc8 ; SUBPROGRAM
0dc8 ; --------------------------------------------------------------------------------------
0dc8 0dd4 | | .CONST 0x0dd4 ; Address of begin
0dc9 0df1 | | .CONST 0x0df1 ; Address of exception handler
0dca 0002 | | .CONST 0x0002 ; Number of locals
0dcb INIT_0dc8:
0dcb e5ff | | Load 0x2,-0x1
0dcc e20f | | Load 0x1,0xf
0dcd e005 | | Load 0x0,0x5
0dce 01d5 | | Execute Vector,Field_Reference
0dcf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0dd0 e006 | | Load 0x0,0x6
0dd1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0dd2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0dd3 0007 | | Action Break_Optional
0dd4 BODY_0dc8:
0dd4 00d8 | | Load_Top At_Offset_0
0dd5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0dd6 4603 |F | Jump_Case 0x4
0dd7 7812 |x | Jump 0xdea ; case 0x0
0dd8 7802 |x | Jump 0xddb ; case 0x1
0dd9 780a |x | Jump 0xde4 ; case 0x2
0dda 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3
0ddb 4820 |H | Short_Literal 0x20
0ddc 00d9 | | Load_Top At_Offset_1
0ddd 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0dde 00e0 | | Load_Encached Standard_Cache
0ddf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0de0 e004 | | Load 0x0,0x4
0de1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0de2 00cb | | Action Pop_Block_With_Result
0de3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0de4 00d8 | | Load_Top At_Offset_0
0de5 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0de6 0217 | | Execute Heap_Access,All_Reference
0de7 8219 | | Call 0x1,0x19
0de8 00cb | | Action Pop_Block_With_Result
0de9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dea 00d8 | | Load_Top At_Offset_0
0deb 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0dec 00e1 | | Load_Encached Boolean_Cache
0ded 011c | | Execute Any,Convert_Unchecked
0dee 1c01 | | Execute_Immediate Run_Utility,0x1
0def 00cb | | Action Pop_Block_With_Result
0df0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0df1 TRAP_0dc8:
0df1 e006 | | Load 0x0,0x6
0df2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0df3 010f | | Execute Exception,Equal
0df4 6801 |h | Jump_Zero 0xdf6
0df5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0df6 0100 | | Execute Exception,Raise
0df7 ; --------------------------------------------------------------------------------------
0df7 ; STRING TABLE
0df7 ; --------------------------------------------------------------------------------------
0df7 0090 | | .STRTAB 0x0090->0x0e3f ; "LIBRARY_SWITCH"
0df8 009c | | .STRTAB 0x009c->0x0e46 ; "SESSION_SWITCH"
0df9 00a8 | | .STRTAB 0x00a8->0x0e4d ; "BOOLEAN_KIND"
0dfa 00b2 | | .STRTAB 0x00b2->0x0e53 ; "INTEGER_KIND"
0dfb 00bc | | .STRTAB 0x00bc->0x0e59 ; "TEXT_KIND"
0dfc 00c3 | | .STRTAB 0x00c3->0x0e5d ; "UNDEFINED"
0dfd 00ca | | .STRTAB 0x00ca->0x0e62 ; "Check_Consistency"
0dfe 00d9 | | .STRTAB 0x00d9->0x0e6a ; "Host_Only"
0dff 00e0 | | .STRTAB 0x00e0->0x0e6f ; "Echo_Command_Output"
0e00 00f1 | | .STRTAB 0x00f1->0x0e78 ; "Trace_command_output"
0e01 0103 | | .STRTAB 0x0103->0x0e82 ; "Compiler_Pre_Options"
0e02 0115 | | .STRTAB 0x0115->0x0e8c ; "Compiler_Post_Options"
0e03 0128 | ( | .STRTAB 0x0128->0x0e97 ; "Linker_Pre_Options"
0e04 0138 | 8 | .STRTAB 0x0138->0x0ea0 ; "Linker_Post_Options"
0e05 0149 | I | .STRTAB 0x0149->0x0ea9 ; "Remote_Library"
0e06 0155 | U | .STRTAB 0x0155->0x0eb0 ; "Generate_Batch_Script"
0e07 0168 | h | .STRTAB 0x0168->0x0ebb ; "optimize_download"
0e08 0177 | w | .STRTAB 0x0177->0x0ec3 ; "Auto_Create_Remote_Directory"
0e09 0191 | | .STRTAB 0x0191->0x0ed1 ; "Retrieve_Executable"
0e0a 01a2 | | .STRTAB 0x01a2->0x0edb ; "auto_transfer"
0e0b 01ad | | .STRTAB 0x01ad->0x0ee1 ; "operation_mode"
0e0c 01b9 | | .STRTAB 0x01b9->0x0ee8 ; "_default_roof"
0e0d 01c4 | | .STRTAB 0x01c4->0x0eef ; "_default_machine"
0e0e 01d2 | | .STRTAB 0x01d2->0x0ef7 ; "Rcf_Switch_Implementation.Define"
0e0f 01f0 | | .STRTAB 0x01f0->0x0f07 ; "Rcf_Switch_Implementation.Is_Defined"
0e10 0212 | | .STRTAB 0x0212->0x0f19 ; "Rcf_Switch_Implementation.Set"
0e11 022d | - | .STRTAB 0x022d->0x0f27 ; "Rcf_Switch_Implementation.Value"
0e12 024a | J | .STRTAB 0x024a->0x0f37 ; "!??.compiler_switches'c(switch)"
0e13 0267 | g | .STRTAB 0x0267->0x0f46 ; "Not converting RCF switches"
0e14 0280 | | .STRTAB 0x0280->0x0f54 ; "Converting RCF switches"
0e15 0295 | | .STRTAB 0x0295->0x0f5f ; "Converted "
0e16 029d | | .STRTAB 0x029d->0x0f64 ; " switch files"
0e17 02a8 | | .STRTAB 0x02a8->0x0f6b ; "Done converting switches"
0e18 02be | | .STRTAB 0x02be->0x0f77 ; "$"
0e19 02bd | | .STRTAB 0x02bd->0x0f77 ; "Session_Rci"
0e1a 02c6 | | .STRTAB 0x02c6->0x0f7d ; "Rci"
0e1b 02c7 | | .STRTAB 0x02c7->0x0f7e ; "!machine.rci.switches_converted"
0e1c 02e4 | | .STRTAB 0x02e4->0x0f8e ; "!machine.rci.switches_converted'C(TEXT)"
0e1d 0309 | | .STRTAB 0x0309->0x0fa1 ; "Bad status resolving name !machine.rci.switches_converted: "
0e1e 0342 | B | .STRTAB 0x0342->0x0fbf ; "; RCI switches will not be converted from RCF"
0e1f 036d | m | .STRTAB 0x036d->0x0fd5 ; "Rcf"
0e20 036e | n | .STRTAB 0x036e->0x0fd7 ; " is frozen"
0e21 0376 | v | .STRTAB 0x0376->0x0fdc ; "Error inspecting object: "
0e22 038d | | .STRTAB 0x038d->0x0fe8 ; ": "
0e23 038d | | .STRTAB 0x038d->0x0fe9 ; "Error getting object for "
0e24 03a4 | | .STRTAB 0x03a4->0x0ff6 ; "Switch_file => "
0e25 03b1 | | .STRTAB 0x03b1->0x0ffd ; "Error opening switch file "
0e26 03c9 | | .STRTAB 0x03c9->0x100a ; "RCF Switch => "
0e27 03d5 | | .STRTAB 0x03d5->0x1011 ; "RCI switch => "
0e28 03e1 | | .STRTAB 0x03e1->0x1018 ; "Rci switch upgrade of "
0e29 03f5 | | .STRTAB 0x03f5->0x1023 ; "dummy"
0e2a 03f8 | | .STRTAB 0x03f8->0x1026 ; "IMAGE - value => "
0e2b 0407 | | .STRTAB 0x0407->0x102e ; ", field => "
0e2c 0410 | | .STRTAB 0x0410->0x1034 ; "VALUE - Input =>"
0e2d 041e | | .STRTAB 0x041e->0x103c ; ", image => "
0e2e 0427 | ' | .STRTAB 0x0427->0x1041 ; ", default_image => "
0e2f 0438 | 8 | .STRTAB 0x0438->0x104b ; ", is_default => "
0e30 0446 | F | .STRTAB 0x0446->0x1053 ; "Undefined RCI Switch Type"
0e31 045d | ] | .STRTAB 0x045d->0x105f ; "Boolean"
0e32 0462 | b | .STRTAB 0x0462->0x1063 ; "Integer"
0e33 0467 | g | .STRTAB 0x0467->0x1066 ; "String"
0e34 046b | k | .STRTAB 0x046b->0x1069 ; "Rcf_Switch_Implementation.Help"
0e35 0487 | | .STRTAB 0x0487->0x1078 ; " is not an Ada integer literal"
0e36 04a3 | | .STRTAB 0x04a3->0x1087 ; "TRUE"
0e37 04a5 | | .STRTAB 0x04a5->0x1089 ; "FALSE"
0e38 04a8 | | .STRTAB 0x04a8->0x108c ; " must be one of 'True' or 'False'"
0e39 04c7 | | .STRTAB 0x04c7->0x109c ; " is not an Ada string literal"
0e3a 04e2 | | .STRTAB 0x04e2->0x10ab ; "IMAGE - returning: "
0e3b 04f3 | | .STRTAB 0x04f3->0x10b4 ; "VALUE - returning: "
0e3c 0504 | | .STRTAB 0x0504->0x10be ; "No help available for "
0e3d 0518 | | .STRTAB 0x0518->0x10c9 ; "."
0e3e 0517 | | .STREND 0x0517->0x10c9
0e3f 4c49 4252 |LIBR| .STRTAB_STRINGS
10ca 0000 0000 | | .BLANK 0000[0x6]
10d0 ; --------------------------------------------------------------------------------------
10d0 ; Debug Table
10d0 ; --------------------------------------------------------------------------------------
10d0 0004 000f | | .DEBUG4 0x0004,0x000f,0x03bb,0x0000,0x0001,0x0000
10d6 0000 0000 | | .BLANK 0000[0x12a]