|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0998 | | .CONST 0x0998 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ed | | .CONST 0x00ed ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0041 | A | .CONST 0x0041 ; 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 0092 0877 | w| Action Push_String_Extended,0x877 ; "Check_Consistency"
0025 0129 | ) | Execute Any,Make_Visible
0026 c21a | | Store 0x1,0x1a
0027 0092 0878 | x| Action Push_String_Extended,0x878 ; "Host_Only"
0029 0129 | ) | Execute Any,Make_Visible
002a c21b | | Store 0x1,0x1b
002b 0092 0879 | y| Action Push_String_Extended,0x879 ; "Echo_Command_Output"
002d 0129 | ) | Execute Any,Make_Visible
002e c217 | | Store 0x1,0x17
002f 0092 087a | z| Action Push_String_Extended,0x87a ; "Trace_command_output"
0031 0129 | ) | Execute Any,Make_Visible
0032 c224 | $ | Store 0x1,0x24
0033 0092 087b | {| Action Push_String_Extended,0x87b ; "Compiler_Pre_Options"
0035 0129 | ) | Execute Any,Make_Visible
0036 c21d | | Store 0x1,0x1d
0037 0092 087c | || Action Push_String_Extended,0x87c ; "Compiler_Post_Options"
0039 0129 | ) | Execute Any,Make_Visible
003a c21e | | Store 0x1,0x1e
003b 0092 087d | }| Action Push_String_Extended,0x87d ; "Linker_Pre_Options"
003d 0129 | ) | Execute Any,Make_Visible
003e c21f | | Store 0x1,0x1f
003f 0092 087e | ~| Action Push_String_Extended,0x87e ; "Linker_Post_Options"
0041 0129 | ) | Execute Any,Make_Visible
0042 c220 | | Store 0x1,0x20
0043 0092 087f | | Action Push_String_Extended,0x87f ; "Generate_Batch_Script"
0045 0129 | ) | Execute Any,Make_Visible
0046 c21c | | Store 0x1,0x1c
0047 e001 | | Load 0x0,0x1
0048 0129 | ) | Execute Any,Make_Visible
0049 c218 | | Store 0x1,0x18
004a e002 | | Load 0x0,0x2
004b 0129 | ) | Execute Any,Make_Visible
004c c219 | | Store 0x1,0x19
004d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
004f c221 | ! | Store 0x1,0x21
0050 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0052 c222 | " | Store 0x1,0x22
0053 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0055 c223 | # | Store 0x1,0x23
0056 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0058 c216 | | Store 0x1,0x16
0059 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
005b c213 | | Store 0x1,0x13
005c 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
005e c214 | | Store 0x1,0x14
005f 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
0061 c215 | | Store 0x1,0x15
0062 00bf | | Action Accept_Activation
0063 e003 | | Load 0x0,0x3
0064 180d | | Execute Package,Field_Execute,Field_Number 0xd
0065 00e3 | | Load_Encached Natural_Cache
0066 00d8 | | Load_Top At_Offset_0
0067 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0068 00e9 | | Load_Encached String_Cache
0069 02a0 | | Declare_Subprogram Null_Subprogram
006a 03ad | | Declare_Type Heap_Access,Defined
006b 00e9 | | Load_Encached String_Cache
006c 00d8 | | Load_Top At_Offset_0
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e 03ad | | Declare_Type Heap_Access,Defined
006f 4800 |H | Short_Literal 0x0
0070 4803 |H | Short_Literal 0x3
0071 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call
0073 03fd | | Declare_Type Discrete,Defined
0074 00d8 | | Load_Top At_Offset_0
0075 4801 |H | Short_Literal 0x1
0076 00e1 | | Load_Encached Boolean_Cache
0077 4801 |H | Short_Literal 0x1
0078 00e2 | | Load_Encached Integer_Cache
0079 4801 |H | Short_Literal 0x1
007a e228 | ( | Load 0x1,0x28
007b 029f 048b | | Declare_Subprogram INIT_0488,For_Call
007d 4803 |H | Short_Literal 0x3
007e 4800 |H | Short_Literal 0x0
007f 4803 |H | Short_Literal 0x3
0080 4800 |H | Short_Literal 0x0
0081 4801 |H | Short_Literal 0x1
0082 031d | | Declare_Type Variant_Record,Defined
0083 e228 | ( | Load 0x1,0x28
0084 00d9 | | Load_Top At_Offset_1
0085 e228 | ( | Load 0x1,0x28
0086 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call
0088 4803 |H | Short_Literal 0x3
0089 032d | - | Declare_Type Record,Defined
008a 0092 0880 | | Action Push_String_Extended,0x880 ; "dummy"
008c 029b 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Unelaborated
008e e004 | | Load 0x0,0x4
008f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0090 02ff | | Declare_Variable Variant_Record
0091 00d8 | | Load_Top At_Offset_0
0092 1c00 | | Execute_Immediate Run_Utility,0x0
0093 029b 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Unelaborated
0095 029b 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Unelaborated
0097 e005 | | Load 0x0,0x5
0098 e006 | | Load 0x0,0x6
0099 e226 | & | Load 0x1,0x26
009a e22d | - | Load 0x1,0x2d
009b 00e3 | | Load_Encached Natural_Cache
009c 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
009d e007 | | Load 0x0,0x7
009e 0387 | | Declare_Variable Package
009f 00d8 | | Load_Top At_Offset_0
00a0 020f | | Execute Module,Activate
00a1 00d8 | | Load_Top At_Offset_0
00a2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a3 00d9 | | Load_Top At_Offset_1
00a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a5 02a0 | | Declare_Subprogram Null_Subprogram
00a6 03ad | | Declare_Type Heap_Access,Defined
00a7 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00ac 00c7 | | Action Elaborate_Subprogram
00ad 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call
00af 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call
00b1 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call
00b3 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call
00b5 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
00b7 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
00b9 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call
00bb 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call
00bd 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call
00bf 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call
00c1 e008 | | Load 0x0,0x8
00c2 e009 | | Load 0x0,0x9
00c3 8231 | 1 | Call 0x1,0x31
00c4 4801 |H | Short_Literal 0x1
00c5 e004 | | Load 0x0,0x4
00c6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00c7 0387 | | Declare_Variable Package
00c8 00d8 | | Load_Top At_Offset_0
00c9 020f | | Execute Module,Activate
00ca e00a | | Load 0x0,0xa
00cb e00b | | Load 0x0,0xb
00cc e226 | & | Load 0x1,0x26
00cd 00e9 | | Load_Encached String_Cache
00ce e22a | * | Load 0x1,0x2a
00cf 484c |HL | Short_Literal 0x4c
00d0 e22e | . | Load 0x1,0x2e
00d1 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
00d2 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
00d3 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
00d4 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
00d5 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
00d6 00ea | | Load_Encached Null_String_Cache
00d7 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
00d8 e004 | | Load 0x0,0x4
00d9 191f | | Execute Package,Field_Reference,Field_Number 0x1f
00da e240 | @ | Load 0x1,0x40
00db 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00dc 0387 | | Declare_Variable Package
00dd 00d8 | | Load_Top At_Offset_0
00de 020f | | Execute Module,Activate
00df 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00e4 00c7 | | Action Elaborate_Subprogram
00e5 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00ec 00c7 | | Action Elaborate_Subprogram
00ed BODY_0008:
00ed e233 | 3 | Load 0x1,0x33
00ee 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ef e225 | % | Load 0x1,0x25
00f0 e233 | 3 | Load 0x1,0x33
00f1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f2 c234 | 4 | Store 0x1,0x34
00f3 822f | / | Call 0x1,0x2f
00f4 e230 | 0 | Load 0x1,0x30
00f5 016d | m | Execute Variant_Record,Structure_Write
00f6 00bc | | Action Signal_Activated
00f7 00bb | | Action Signal_Completion
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 011e | | .CONST 0x011e ; Address of begin
00f9 0164 | d | .CONST 0x0164 ; Address of exception handler
00fa 0005 | | .CONST 0x0005 ; Number of locals
00fb INIT_00f8:
00fb e226 | & | Load 0x1,0x26
00fc 0007 | | Action Break_Optional
00fd 4801 |H | Short_Literal 0x1
00fe e5fe | | Load 0x2,-0x2
00ff 01db | | Execute Vector,Length
0100 00d8 | | Load_Top At_Offset_0
0101 00e2 | | Load_Encached Integer_Cache
0102 0260 | ` | Execute Discrete,In_Type
0103 7001 |p | Jump_Nonzero 0x105
0104 0801 | | Execute_Immediate Raise,0x1
0105 e228 | ( | Load 0x1,0x28
0106 e225 | % | Load 0x1,0x25
0107 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0108 4801 |H | Short_Literal 0x1
0109 e5ff | | Load 0x2,-0x1
010a 01db | | Execute Vector,Length
010b 00d8 | | Load_Top At_Offset_0
010c 00e2 | | Load_Encached Integer_Cache
010d 0260 | ` | Execute Discrete,In_Type
010e 7001 |p | Jump_Nonzero 0x110
010f 0801 | | Execute_Immediate Raise,0x1
0110 e228 | ( | Load 0x1,0x28
0111 e225 | % | Load 0x1,0x25
0112 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0113 4801 |H | Short_Literal 0x1
0114 e5fd | | Load 0x2,-0x3
0115 01db | | Execute Vector,Length
0116 00d8 | | Load_Top At_Offset_0
0117 00e2 | | Load_Encached Integer_Cache
0118 0260 | ` | Execute Discrete,In_Type
0119 7001 |p | Jump_Nonzero 0x11b
011a 0801 | | Execute_Immediate Raise,0x1
011b e228 | ( | Load 0x1,0x28
011c e225 | % | Load 0x1,0x25
011d 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
011e BODY_00f8:
011e e5fe | | Load 0x2,-0x2
011f 00db | | Load_Top At_Offset_3
0120 0218 | | Execute Heap_Access,All_Write
0121 e5ff | | Load 0x2,-0x1
0122 00da | | Load_Top At_Offset_2
0123 0218 | | Execute Heap_Access,All_Write
0124 e5fd | | Load 0x2,-0x3
0125 00d9 | | Load_Top At_Offset_1
0126 0218 | | Execute Heap_Access,All_Write
0127 e5ff | | Load 0x2,-0x1
0128 8216 | | Call 0x1,0x16
0129 6816 |h | Jump_Zero 0x140
012a e00c | | Load 0x0,0xc
012b 180e | | Execute Package,Field_Execute,Field_Number 0xe
012c 4801 |H | Short_Literal 0x1
012d 4801 |H | Short_Literal 0x1
012e e00d | | Load 0x0,0xd
012f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0130 035b | [ | Declare_Type Array,Constrained
0131 0337 | 7 | Declare_Variable Array
0132 e5ff | | Load 0x2,-0x1
0133 e00d | | Load 0x0,0xd
0134 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0135 e00d | | Load 0x0,0xd
0136 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0137 0119 | | Execute Any,Check_In_Formal_Type
0138 4801 |H | Short_Literal 0x1
0139 00da | | Load_Top At_Offset_2
013a 01d6 | | Execute Vector,Field_Write
013b 4806 |H | Short_Literal 0x6
013c 604f |`O | Indirect_Literal Discrete,0x18c,{0x00000000, 0x0000814c}
013d e00e | | Load 0x0,0xe
013e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
013f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0140 4800 |H | Short_Literal 0x0
0141 e22d | - | Load 0x1,0x2d
0142 0322 | " | Declare_Variable Record
0143 00db | | Load_Top At_Offset_3
0144 00d9 | | Load_Top At_Offset_1
0145 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0146 4802 |H | Short_Literal 0x2
0147 e22c | , | Load 0x1,0x2c
0148 1c08 | | Execute_Immediate Run_Utility,0x8
0149 e403 | | Load 0x2,0x3
014a 00d9 | | Load_Top At_Offset_1
014b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
014c 00d9 | | Load_Top At_Offset_1
014d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014e 00da | | Load_Top At_Offset_2
014f 00d9 | | Load_Top At_Offset_1
0150 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0151 e227 | ' | Load 0x1,0x27
0152 e234 | 4 | Load 0x1,0x34
0153 e233 | 3 | Load 0x1,0x33
0154 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0155 e241 | A | Load 0x1,0x41
0156 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0157 e5ff | | Load 0x2,-0x1
0158 e241 | A | Load 0x1,0x41
0159 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
015a c402 | | Store 0x2,0x2
015b 00db | | Load_Top At_Offset_3
015c e227 | ' | Load 0x1,0x27
015d 027f | | Execute Discrete,Equal
015e 7001 |p | Jump_Nonzero 0x160
015f 0887 | | Execute_Immediate Raise,0x87
0160 e227 | ' | Load 0x1,0x27
0161 0a01 | | Execute_Immediate Plus,0x1
0162 c227 | ' | Store 0x1,0x27
0163 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0164 TRAP_00f8:
0164 0007 | | Action Break_Optional
0165 e00c | | Load 0x0,0xc
0166 180e | | Execute Package,Field_Execute,Field_Number 0xe
0167 4801 |H | Short_Literal 0x1
0168 4802 |H | Short_Literal 0x2
0169 e00d | | Load 0x0,0xd
016a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016b 035b | [ | Declare_Type Array,Constrained
016c 0337 | 7 | Declare_Variable Array
016d 0092 0881 | | Action Push_String_Extended,0x881 ; "Rcf_Switch_Implementation.Define"
016f e00d | | Load 0x0,0xd
0170 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0171 e00d | | Load 0x0,0xd
0172 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0173 0119 | | Execute Any,Check_In_Formal_Type
0174 4801 |H | Short_Literal 0x1
0175 00da | | Load_Top At_Offset_2
0176 01d6 | | Execute Vector,Field_Write
0177 4800 |H | Short_Literal 0x0
0178 4801 |H | Short_Literal 0x1
0179 e00f | | Load 0x0,0xf
017a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
017b e00d | | Load 0x0,0xd
017c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
017d e00d | | Load 0x0,0xd
017e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017f 0119 | | Execute Any,Check_In_Formal_Type
0180 4802 |H | Short_Literal 0x2
0181 00da | | Load_Top At_Offset_2
0182 01d6 | | Execute Vector,Field_Write
0183 4805 |H | Short_Literal 0x5
0184 6003 |` | Indirect_Literal Discrete,0x188,{0x00000000, 0x0000813b}
0185 e00e | | Load 0x0,0xe
0186 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0187 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0188 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
018c 0000 0000 | | .LITERAL {0x00000000, 0x0000814c}
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01ab | | .CONST 0x01ab ; Address of begin
0191 01ee | | .CONST 0x01ee ; Address of exception handler
0192 0004 | | .CONST 0x0004 ; Number of locals
0193 INIT_0190:
0193 e226 | & | Load 0x1,0x26
0194 0007 | | Action Break_Optional
0195 4801 |H | Short_Literal 0x1
0196 e5ff | | Load 0x2,-0x1
0197 01db | | Execute Vector,Length
0198 00d8 | | Load_Top At_Offset_0
0199 00e2 | | Load_Encached Integer_Cache
019a 0260 | ` | Execute Discrete,In_Type
019b 7001 |p | Jump_Nonzero 0x19d
019c 0801 | | Execute_Immediate Raise,0x1
019d e228 | ( | Load 0x1,0x28
019e e225 | % | Load 0x1,0x25
019f 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
01a0 4801 |H | Short_Literal 0x1
01a1 e5fd | | Load 0x2,-0x3
01a2 01db | | Execute Vector,Length
01a3 00d8 | | Load_Top At_Offset_0
01a4 00e2 | | Load_Encached Integer_Cache
01a5 0260 | ` | Execute Discrete,In_Type
01a6 7001 |p | Jump_Nonzero 0x1a8
01a7 0801 | | Execute_Immediate Raise,0x1
01a8 e228 | ( | Load 0x1,0x28
01a9 e225 | % | Load 0x1,0x25
01aa 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
01ab BODY_0190:
01ab e5ff | | Load 0x2,-0x1
01ac 00da | | Load_Top At_Offset_2
01ad 0218 | | Execute Heap_Access,All_Write
01ae e5fd | | Load 0x2,-0x3
01af 00d9 | | Load_Top At_Offset_1
01b0 0218 | | Execute Heap_Access,All_Write
01b1 e5ff | | Load 0x2,-0x1
01b2 8216 | | Call 0x1,0x16
01b3 6816 |h | Jump_Zero 0x1ca
01b4 e00c | | Load 0x0,0xc
01b5 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b6 4801 |H | Short_Literal 0x1
01b7 4801 |H | Short_Literal 0x1
01b8 e00d | | Load 0x0,0xd
01b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ba 035b | [ | Declare_Type Array,Constrained
01bb 0337 | 7 | Declare_Variable Array
01bc e5ff | | Load 0x2,-0x1
01bd e00d | | Load 0x0,0xd
01be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01bf e00d | | Load 0x0,0xd
01c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c1 0119 | | Execute Any,Check_In_Formal_Type
01c2 4801 |H | Short_Literal 0x1
01c3 00da | | Load_Top At_Offset_2
01c4 01d6 | | Execute Vector,Field_Write
01c5 4806 |H | Short_Literal 0x6
01c6 67c5 |g | Indirect_Literal Discrete,0x18c,{0x00000000, 0x0000814c}
01c7 e00e | | Load 0x0,0xe
01c8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ca 4800 |H | Short_Literal 0x0
01cb e22d | - | Load 0x1,0x2d
01cc 0322 | " | Declare_Variable Record
01cd 00db | | Load_Top At_Offset_3
01ce 00d9 | | Load_Top At_Offset_1
01cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d0 4800 |H | Short_Literal 0x0
01d1 e22c | , | Load 0x1,0x2c
01d2 1c08 | | Execute_Immediate Run_Utility,0x8
01d3 e5fe | | Load 0x2,-0x2
01d4 00d9 | | Load_Top At_Offset_1
01d5 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01d6 00d9 | | Load_Top At_Offset_1
01d7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d8 00da | | Load_Top At_Offset_2
01d9 00d9 | | Load_Top At_Offset_1
01da 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01db e227 | ' | Load 0x1,0x27
01dc e234 | 4 | Load 0x1,0x34
01dd e233 | 3 | Load 0x1,0x33
01de 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01df e241 | A | Load 0x1,0x41
01e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e1 e5ff | | Load 0x2,-0x1
01e2 e241 | A | Load 0x1,0x41
01e3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01e4 005b | [ | Store_Top Discrete,At_Offset_3
01e5 00da | | Load_Top At_Offset_2
01e6 e227 | ' | Load 0x1,0x27
01e7 027f | | Execute Discrete,Equal
01e8 7001 |p | Jump_Nonzero 0x1ea
01e9 0887 | | Execute_Immediate Raise,0x87
01ea e227 | ' | Load 0x1,0x27
01eb 0a01 | | Execute_Immediate Plus,0x1
01ec c227 | ' | Store 0x1,0x27
01ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ee TRAP_0190:
01ee 0007 | | Action Break_Optional
01ef e00c | | Load 0x0,0xc
01f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f1 4801 |H | Short_Literal 0x1
01f2 4802 |H | Short_Literal 0x2
01f3 e00d | | Load 0x0,0xd
01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f5 035b | [ | Declare_Type Array,Constrained
01f6 0337 | 7 | Declare_Variable Array
01f7 0092 0881 | | Action Push_String_Extended,0x881 ; "Rcf_Switch_Implementation.Define"
01f9 e00d | | Load 0x0,0xd
01fa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01fb e00d | | Load 0x0,0xd
01fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fd 0119 | | Execute Any,Check_In_Formal_Type
01fe 4801 |H | Short_Literal 0x1
01ff 00da | | Load_Top At_Offset_2
0200 01d6 | | Execute Vector,Field_Write
0201 4800 |H | Short_Literal 0x0
0202 4801 |H | Short_Literal 0x1
0203 e00f | | Load 0x0,0xf
0204 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0205 e00d | | Load 0x0,0xd
0206 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0207 e00d | | Load 0x0,0xd
0208 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0209 0119 | | Execute Any,Check_In_Formal_Type
020a 4802 |H | Short_Literal 0x2
020b 00da | | Load_Top At_Offset_2
020c 01d6 | | Execute Vector,Field_Write
020d 4805 |H | Short_Literal 0x5
020e 6779 |gy | Indirect_Literal Discrete,0x188,{0x00000000, 0x0000813b}
020f e00e | | Load 0x0,0xe
0210 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0211 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0233 | 3 | .CONST 0x0233 ; Address of begin
0219 0276 | v | .CONST 0x0276 ; Address of exception handler
021a 0004 | | .CONST 0x0004 ; Number of locals
021b INIT_0218:
021b e226 | & | Load 0x1,0x26
021c 0007 | | Action Break_Optional
021d 4801 |H | Short_Literal 0x1
021e e5ff | | Load 0x2,-0x1
021f 01db | | Execute Vector,Length
0220 00d8 | | Load_Top At_Offset_0
0221 00e2 | | Load_Encached Integer_Cache
0222 0260 | ` | Execute Discrete,In_Type
0223 7001 |p | Jump_Nonzero 0x225
0224 0801 | | Execute_Immediate Raise,0x1
0225 e228 | ( | Load 0x1,0x28
0226 e225 | % | Load 0x1,0x25
0227 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0228 4801 |H | Short_Literal 0x1
0229 e5fd | | Load 0x2,-0x3
022a 01db | | Execute Vector,Length
022b 00d8 | | Load_Top At_Offset_0
022c 00e2 | | Load_Encached Integer_Cache
022d 0260 | ` | Execute Discrete,In_Type
022e 7001 |p | Jump_Nonzero 0x230
022f 0801 | | Execute_Immediate Raise,0x1
0230 e228 | ( | Load 0x1,0x28
0231 e225 | % | Load 0x1,0x25
0232 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0233 BODY_0218:
0233 e5ff | | Load 0x2,-0x1
0234 00da | | Load_Top At_Offset_2
0235 0218 | | Execute Heap_Access,All_Write
0236 e5fd | | Load 0x2,-0x3
0237 00d9 | | Load_Top At_Offset_1
0238 0218 | | Execute Heap_Access,All_Write
0239 e5ff | | Load 0x2,-0x1
023a 8216 | | Call 0x1,0x16
023b 6816 |h | Jump_Zero 0x252
023c e00c | | Load 0x0,0xc
023d 180e | | Execute Package,Field_Execute,Field_Number 0xe
023e 4801 |H | Short_Literal 0x1
023f 4801 |H | Short_Literal 0x1
0240 e00d | | Load 0x0,0xd
0241 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0242 035b | [ | Declare_Type Array,Constrained
0243 0337 | 7 | Declare_Variable Array
0244 e5ff | | Load 0x2,-0x1
0245 e00d | | Load 0x0,0xd
0246 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0247 e00d | | Load 0x0,0xd
0248 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0249 0119 | | Execute Any,Check_In_Formal_Type
024a 4801 |H | Short_Literal 0x1
024b 00da | | Load_Top At_Offset_2
024c 01d6 | | Execute Vector,Field_Write
024d 4806 |H | Short_Literal 0x6
024e 6051 |`Q | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0000814c}
024f e00e | | Load 0x0,0xe
0250 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0251 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0252 4800 |H | Short_Literal 0x0
0253 e22d | - | Load 0x1,0x2d
0254 0322 | " | Declare_Variable Record
0255 00db | | Load_Top At_Offset_3
0256 00d9 | | Load_Top At_Offset_1
0257 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0258 4801 |H | Short_Literal 0x1
0259 e22c | , | Load 0x1,0x2c
025a 1c08 | | Execute_Immediate Run_Utility,0x8
025b e5fe | | Load 0x2,-0x2
025c 00d9 | | Load_Top At_Offset_1
025d 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
025e 00d9 | | Load_Top At_Offset_1
025f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0260 00da | | Load_Top At_Offset_2
0261 00d9 | | Load_Top At_Offset_1
0262 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0263 e227 | ' | Load 0x1,0x27
0264 e234 | 4 | Load 0x1,0x34
0265 e233 | 3 | Load 0x1,0x33
0266 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0267 e241 | A | Load 0x1,0x41
0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0269 e5ff | | Load 0x2,-0x1
026a e241 | A | Load 0x1,0x41
026b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
026c 005b | [ | Store_Top Discrete,At_Offset_3
026d 00da | | Load_Top At_Offset_2
026e e227 | ' | Load 0x1,0x27
026f 027f | | Execute Discrete,Equal
0270 7001 |p | Jump_Nonzero 0x272
0271 0887 | | Execute_Immediate Raise,0x87
0272 e227 | ' | Load 0x1,0x27
0273 0a01 | | Execute_Immediate Plus,0x1
0274 c227 | ' | Store 0x1,0x27
0275 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0276 TRAP_0218:
0276 0007 | | Action Break_Optional
0277 e00c | | Load 0x0,0xc
0278 180e | | Execute Package,Field_Execute,Field_Number 0xe
0279 4801 |H | Short_Literal 0x1
027a 4802 |H | Short_Literal 0x2
027b e00d | | Load 0x0,0xd
027c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
027d 035b | [ | Declare_Type Array,Constrained
027e 0337 | 7 | Declare_Variable Array
027f 0092 0881 | | Action Push_String_Extended,0x881 ; "Rcf_Switch_Implementation.Define"
0281 e00d | | Load 0x0,0xd
0282 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0283 e00d | | Load 0x0,0xd
0284 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0285 0119 | | Execute Any,Check_In_Formal_Type
0286 4801 |H | Short_Literal 0x1
0287 00da | | Load_Top At_Offset_2
0288 01d6 | | Execute Vector,Field_Write
0289 4800 |H | Short_Literal 0x0
028a 4801 |H | Short_Literal 0x1
028b e00f | | Load 0x0,0xf
028c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
028d e00d | | Load 0x0,0xd
028e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
028f e00d | | Load 0x0,0xd
0290 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0291 0119 | | Execute Any,Check_In_Formal_Type
0292 4802 |H | Short_Literal 0x2
0293 00da | | Load_Top At_Offset_2
0294 01d6 | | Execute Vector,Field_Write
0295 4805 |H | Short_Literal 0x5
0296 6005 |` | Indirect_Literal Discrete,0x29c,{0x00000000, 0x0000813b}
0297 e00e | | Load 0x0,0xe
0298 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0299 4504 |E | Exit_Suprogram New_Top_Offset 0x4
029a 0000 0000 | | .XXX[0x2]
029c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
02a0 0000 0000 | | .LITERAL {0x00000000, 0x0000814c}
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b3 | | .CONST 0x02b3 ; Address of begin
02a9 02d8 | | .CONST 0x02d8 ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab 482e |H. | Short_Literal 0x2e
02ac 8231 | 1 | Call 0x1,0x31
02ad 01cb | | Execute Vector,Append
02ae 00db | | Load_Top At_Offset_3
02af 01cc | | Execute Vector,Catenate
02b0 0007 | | Action Break_Optional
02b1 e233 | 3 | Load 0x1,0x33
02b2 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02b3 BODY_02a8:
02b3 00d9 | | Load_Top At_Offset_1
02b4 e004 | | Load 0x0,0x4
02b5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02b6 681f |h | Jump_Zero 0x2d6
02b7 e233 | 3 | Load 0x1,0x33
02b8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02b9 e225 | % | Load 0x1,0x25
02ba e234 | 4 | Load 0x1,0x34
02bb e233 | 3 | Load 0x1,0x33
02bc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02bd 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02be 00cf | | Action Mark_Auxiliary
02bf 7811 |x | Jump 0x2d1
02c0 4801 |H | Short_Literal 0x1
02c1 00da | | Load_Top At_Offset_2
02c2 e233 | 3 | Load 0x1,0x33
02c3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c5 0217 | | Execute Heap_Access,All_Reference
02c6 e5ff | | Load 0x2,-0x1
02c7 e010 | | Load 0x0,0x10
02c8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02c9 6802 |h | Jump_Zero 0x2cc
02ca 4801 |H | Short_Literal 0x1
02cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02cc 00d9 | | Load_Top At_Offset_1
02cd e233 | 3 | Load 0x1,0x33
02ce 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02cf 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02d0 00c9 | | Action Pop_Auxiliary_Loop
02d1 00d9 | | Load_Top At_Offset_1
02d2 e233 | 3 | Load 0x1,0x33
02d3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02d4 6feb |o | Jump_Zero 0x2c0
02d5 00ce | | Action Pop_Auxiliary
02d6 4800 |H | Short_Literal 0x0
02d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d8 TRAP_02a8:
02d8 0007 | | Action Break_Optional
02d9 e00c | | Load 0x0,0xc
02da 180e | | Execute Package,Field_Execute,Field_Number 0xe
02db 4801 |H | Short_Literal 0x1
02dc 4802 |H | Short_Literal 0x2
02dd e00d | | Load 0x0,0xd
02de 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02df 035b | [ | Declare_Type Array,Constrained
02e0 0337 | 7 | Declare_Variable Array
02e1 0092 0882 | | Action Push_String_Extended,0x882 ; "Rcf_Switch_Implementation.Is_Defined"
02e3 e00d | | Load 0x0,0xd
02e4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e5 e00d | | Load 0x0,0xd
02e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02e7 0119 | | Execute Any,Check_In_Formal_Type
02e8 4801 |H | Short_Literal 0x1
02e9 00da | | Load_Top At_Offset_2
02ea 01d6 | | Execute Vector,Field_Write
02eb 4800 |H | Short_Literal 0x0
02ec 4801 |H | Short_Literal 0x1
02ed e00f | | Load 0x0,0xf
02ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02ef e00d | | Load 0x0,0xd
02f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f1 e00d | | Load 0x0,0xd
02f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02f3 0119 | | Execute Any,Check_In_Formal_Type
02f4 4802 |H | Short_Literal 0x2
02f5 00da | | Load_Top At_Offset_2
02f6 01d6 | | Execute Vector,Field_Write
02f7 4805 |H | Short_Literal 0x5
02f8 67a3 |g | Indirect_Literal Discrete,0x29c,{0x00000000, 0x0000813b}
02f9 e00e | | Load 0x0,0xe
02fa 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02fb 4800 |H | Short_Literal 0x0
02fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02fd 0000 0000 | | .XXX[0x3]
02ff 0000 | |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 030f | | .CONST 0x030f ; Address of begin
0301 0317 | | .CONST 0x0317 ; Address of exception handler
0302 0004 | | .CONST 0x0004 ; Number of locals
0303 INIT_0300:
0303 482e |H. | Short_Literal 0x2e
0304 8231 | 1 | Call 0x1,0x31
0305 01cb | | Execute Vector,Append
0306 00db | | Load_Top At_Offset_3
0307 01cc | | Execute Vector,Catenate
0308 0007 | | Action Break_Optional
0309 e226 | & | Load 0x1,0x26
030a 0007 | | Action Break_Optional
030b e22c | , | Load 0x1,0x2c
030c 02ff | | Declare_Variable Variant_Record
030d 00d8 | | Load_Top At_Offset_0
030e 1c00 | | Execute_Immediate Run_Utility,0x0
030f BODY_0300:
030f 6064 |`d | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
0310 e011 | | Load 0x0,0x11
0311 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0312 e402 | | Load 0x2,0x2
0313 e5fe | | Load 0x2,-0x2
0314 e004 | | Load 0x0,0x4
0315 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0316 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0317 TRAP_0300:
0317 e004 | | Load 0x0,0x4
0318 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0319 010f | | Execute Exception,Equal
031a 6817 |h | Jump_Zero 0x332
031b e00c | | Load 0x0,0xc
031c 180e | | Execute Package,Field_Execute,Field_Number 0xe
031d 4801 |H | Short_Literal 0x1
031e 4801 |H | Short_Literal 0x1
031f e00d | | Load 0x0,0xd
0320 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0321 035b | [ | Declare_Type Array,Constrained
0322 0337 | 7 | Declare_Variable Array
0323 e402 | | Load 0x2,0x2
0324 e00d | | Load 0x0,0xd
0325 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0326 e00d | | Load 0x0,0xd
0327 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0328 0119 | | Execute Any,Check_In_Formal_Type
0329 4801 |H | Short_Literal 0x1
032a 00da | | Load_Top At_Offset_2
032b 01d6 | | Execute Vector,Field_Write
032c 4805 |H | Short_Literal 0x5
032d 6042 |`B | Indirect_Literal Discrete,0x370,{0x00000000, 0x0000814d}
032e e00e | | Load 0x0,0xe
032f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0330 4800 |H | Short_Literal 0x0
0331 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0332 e00c | | Load 0x0,0xc
0333 180e | | Execute Package,Field_Execute,Field_Number 0xe
0334 4801 |H | Short_Literal 0x1
0335 4802 |H | Short_Literal 0x2
0336 e00d | | Load 0x0,0xd
0337 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0338 035b | [ | Declare_Type Array,Constrained
0339 0337 | 7 | Declare_Variable Array
033a 0092 0883 | | Action Push_String_Extended,0x883 ; "Rcf_Switch_Implementation.Value"
033c e00d | | Load 0x0,0xd
033d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
033e e00d | | Load 0x0,0xd
033f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0340 0119 | | Execute Any,Check_In_Formal_Type
0341 4801 |H | Short_Literal 0x1
0342 00da | | Load_Top At_Offset_2
0343 01d6 | | Execute Vector,Field_Write
0344 4800 |H | Short_Literal 0x0
0345 4801 |H | Short_Literal 0x1
0346 e00f | | Load 0x0,0xf
0347 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0348 e00d | | Load 0x0,0xd
0349 1810 | | Execute Package,Field_Execute,Field_Number 0x10
034a e00d | | Load 0x0,0xd
034b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034c 0119 | | Execute Any,Check_In_Formal_Type
034d 4802 |H | Short_Literal 0x2
034e 00da | | Load_Top At_Offset_2
034f 01d6 | | Execute Vector,Field_Write
0350 4805 |H | Short_Literal 0x5
0351 601a |` | Indirect_Literal Discrete,0x36c,{0x00000000, 0x0000813b}
0352 e00e | | Load 0x0,0xe
0353 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0354 e5ff | | Load 0x2,-0x1
0355 8216 | | Call 0x1,0x16
0356 6810 |h | Jump_Zero 0x367
0357 e241 | A | Load 0x1,0x41
0358 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0359 e5ff | | Load 0x2,-0x1
035a e241 | A | Load 0x1,0x41
035b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
035c 005b | [ | Store_Top Discrete,At_Offset_3
035d 00da | | Load_Top At_Offset_2
035e e234 | 4 | Load 0x1,0x34
035f e233 | 3 | Load 0x1,0x33
0360 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0361 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0362 00da | | Load_Top At_Offset_2
0363 016d | m | Execute Variant_Record,Structure_Write
0364 00d9 | | Load_Top At_Offset_1
0365 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0366 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0367 4800 |H | Short_Literal 0x0
0368 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0369 0000 0000 | | .XXX[0x3]
036b 0000 | |
036c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0370 0000 0000 | | .LITERAL {0x00000000, 0x0000814d}
0374 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0387 | | .CONST 0x0387 ; Address of begin
0379 038f | | .CONST 0x038f ; Address of exception handler
037a 0004 | | .CONST 0x0004 ; Number of locals
037b INIT_0378:
037b 482e |H. | Short_Literal 0x2e
037c 8231 | 1 | Call 0x1,0x31
037d 01cb | | Execute Vector,Append
037e 00db | | Load_Top At_Offset_3
037f 01cc | | Execute Vector,Catenate
0380 0007 | | Action Break_Optional
0381 e226 | & | Load 0x1,0x26
0382 0007 | | Action Break_Optional
0383 e22c | , | Load 0x1,0x2c
0384 02ff | | Declare_Variable Variant_Record
0385 00d8 | | Load_Top At_Offset_0
0386 1c00 | | Execute_Immediate Run_Utility,0x0
0387 BODY_0378:
0387 67ec |g | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
0388 e011 | | Load 0x0,0x11
0389 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038a e402 | | Load 0x2,0x2
038b e5fe | | Load 0x2,-0x2
038c e004 | | Load 0x0,0x4
038d 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
038e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038f TRAP_0378:
038f e004 | | Load 0x0,0x4
0390 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0391 010f | | Execute Exception,Equal
0392 6817 |h | Jump_Zero 0x3aa
0393 e00c | | Load 0x0,0xc
0394 180e | | Execute Package,Field_Execute,Field_Number 0xe
0395 4801 |H | Short_Literal 0x1
0396 4801 |H | Short_Literal 0x1
0397 e00d | | Load 0x0,0xd
0398 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0399 035b | [ | Declare_Type Array,Constrained
039a 0337 | 7 | Declare_Variable Array
039b e402 | | Load 0x2,0x2
039c e00d | | Load 0x0,0xd
039d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
039e e00d | | Load 0x0,0xd
039f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a0 0119 | | Execute Any,Check_In_Formal_Type
03a1 4801 |H | Short_Literal 0x1
03a2 00da | | Load_Top At_Offset_2
03a3 01d6 | | Execute Vector,Field_Write
03a4 4805 |H | Short_Literal 0x5
03a5 67ca |g | Indirect_Literal Discrete,0x370,{0x00000000, 0x0000814d}
03a6 e00e | | Load 0x0,0xe
03a7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03a8 4800 |H | Short_Literal 0x0
03a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03aa e00c | | Load 0x0,0xc
03ab 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ac 4801 |H | Short_Literal 0x1
03ad 4802 |H | Short_Literal 0x2
03ae e00d | | Load 0x0,0xd
03af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b0 035b | [ | Declare_Type Array,Constrained
03b1 0337 | 7 | Declare_Variable Array
03b2 0092 0883 | | Action Push_String_Extended,0x883 ; "Rcf_Switch_Implementation.Value"
03b4 e00d | | Load 0x0,0xd
03b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b6 e00d | | Load 0x0,0xd
03b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b8 0119 | | Execute Any,Check_In_Formal_Type
03b9 4801 |H | Short_Literal 0x1
03ba 00da | | Load_Top At_Offset_2
03bb 01d6 | | Execute Vector,Field_Write
03bc 4800 |H | Short_Literal 0x0
03bd 4801 |H | Short_Literal 0x1
03be e00f | | Load 0x0,0xf
03bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03c0 e00d | | Load 0x0,0xd
03c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03c2 e00d | | Load 0x0,0xd
03c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c4 0119 | | Execute Any,Check_In_Formal_Type
03c5 4802 |H | Short_Literal 0x2
03c6 00da | | Load_Top At_Offset_2
03c7 01d6 | | Execute Vector,Field_Write
03c8 4805 |H | Short_Literal 0x5
03c9 67a2 |g | Indirect_Literal Discrete,0x36c,{0x00000000, 0x0000813b}
03ca e00e | | Load 0x0,0xe
03cb 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03cc e5ff | | Load 0x2,-0x1
03cd 8216 | | Call 0x1,0x16
03ce 6810 |h | Jump_Zero 0x3df
03cf e241 | A | Load 0x1,0x41
03d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d1 e5ff | | Load 0x2,-0x1
03d2 e241 | A | Load 0x1,0x41
03d3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03d4 005b | [ | Store_Top Discrete,At_Offset_3
03d5 00da | | Load_Top At_Offset_2
03d6 e234 | 4 | Load 0x1,0x34
03d7 e233 | 3 | Load 0x1,0x33
03d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03d9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03da 00da | | Load_Top At_Offset_2
03db 016d | m | Execute Variant_Record,Structure_Write
03dc 00d9 | | Load_Top At_Offset_1
03dd 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03df 4800 |H | Short_Literal 0x0
03e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e1 0000 0000 | | .BLANK 0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f7 | | .CONST 0x03f7 ; Address of begin
03e9 03ff | | .CONST 0x03ff ; Address of exception handler
03ea 0004 | | .CONST 0x0004 ; Number of locals
03eb INIT_03e8:
03eb 482e |H. | Short_Literal 0x2e
03ec 8231 | 1 | Call 0x1,0x31
03ed 01cb | | Execute Vector,Append
03ee 00db | | Load_Top At_Offset_3
03ef 01cc | | Execute Vector,Catenate
03f0 0007 | | Action Break_Optional
03f1 e226 | & | Load 0x1,0x26
03f2 0007 | | Action Break_Optional
03f3 e22c | , | Load 0x1,0x2c
03f4 02ff | | Declare_Variable Variant_Record
03f5 00d8 | | Load_Top At_Offset_0
03f6 1c00 | | Execute_Immediate Run_Utility,0x0
03f7 BODY_03e8:
03f7 6064 |`d | Indirect_Literal Discrete,0x45c,{0x00000000, 0x00004000}
03f8 e011 | | Load 0x0,0x11
03f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fa e402 | | Load 0x2,0x2
03fb e5fe | | Load 0x2,-0x2
03fc e004 | | Load 0x0,0x4
03fd 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ff TRAP_03e8:
03ff e004 | | Load 0x0,0x4
0400 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0401 010f | | Execute Exception,Equal
0402 6817 |h | Jump_Zero 0x41a
0403 e00c | | Load 0x0,0xc
0404 180e | | Execute Package,Field_Execute,Field_Number 0xe
0405 4801 |H | Short_Literal 0x1
0406 4801 |H | Short_Literal 0x1
0407 e00d | | Load 0x0,0xd
0408 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0409 035b | [ | Declare_Type Array,Constrained
040a 0337 | 7 | Declare_Variable Array
040b e402 | | Load 0x2,0x2
040c e00d | | Load 0x0,0xd
040d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
040e e00d | | Load 0x0,0xd
040f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0410 0119 | | Execute Any,Check_In_Formal_Type
0411 4801 |H | Short_Literal 0x1
0412 00da | | Load_Top At_Offset_2
0413 01d6 | | Execute Vector,Field_Write
0414 4805 |H | Short_Literal 0x5
0415 6042 |`B | Indirect_Literal Discrete,0x458,{0x00000000, 0x0000814d}
0416 e00e | | Load 0x0,0xe
0417 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0418 00ea | | Load_Encached Null_String_Cache
0419 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
041a e00c | | Load 0x0,0xc
041b 180e | | Execute Package,Field_Execute,Field_Number 0xe
041c 4801 |H | Short_Literal 0x1
041d 4802 |H | Short_Literal 0x2
041e e00d | | Load 0x0,0xd
041f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0420 035b | [ | Declare_Type Array,Constrained
0421 0337 | 7 | Declare_Variable Array
0422 0092 0883 | | Action Push_String_Extended,0x883 ; "Rcf_Switch_Implementation.Value"
0424 e00d | | Load 0x0,0xd
0425 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0426 e00d | | Load 0x0,0xd
0427 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0428 0119 | | Execute Any,Check_In_Formal_Type
0429 4801 |H | Short_Literal 0x1
042a 00da | | Load_Top At_Offset_2
042b 01d6 | | Execute Vector,Field_Write
042c 4800 |H | Short_Literal 0x0
042d 4801 |H | Short_Literal 0x1
042e e00f | | Load 0x0,0xf
042f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0430 e00d | | Load 0x0,0xd
0431 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0432 e00d | | Load 0x0,0xd
0433 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0434 0119 | | Execute Any,Check_In_Formal_Type
0435 4802 |H | Short_Literal 0x2
0436 00da | | Load_Top At_Offset_2
0437 01d6 | | Execute Vector,Field_Write
0438 4805 |H | Short_Literal 0x5
0439 601a |` | Indirect_Literal Discrete,0x454,{0x00000000, 0x0000813b}
043a e00e | | Load 0x0,0xe
043b 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
043c e5ff | | Load 0x2,-0x1
043d 8216 | | Call 0x1,0x16
043e 6813 |h | Jump_Zero 0x452
043f e241 | A | Load 0x1,0x41
0440 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0441 e5ff | | Load 0x2,-0x1
0442 e241 | A | Load 0x1,0x41
0443 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0444 005b | [ | Store_Top Discrete,At_Offset_3
0445 00da | | Load_Top At_Offset_2
0446 e234 | 4 | Load 0x1,0x34
0447 e233 | 3 | Load 0x1,0x33
0448 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0449 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
044a 00da | | Load_Top At_Offset_2
044b 016d | m | Execute Variant_Record,Structure_Write
044c 00d9 | | Load_Top At_Offset_1
044d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
044e 0217 | | Execute Heap_Access,All_Reference
044f 0335 | 5 | Declare_Variable Array,Duplicate
0450 00cd | | Action Spare6_Action
0451 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0452 00ea | | Load_Encached Null_String_Cache
0453 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0454 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0458 0000 0000 | | .LITERAL {0x00000000, 0x0000814d}
045c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 4607 |F | Jump_Case 0x8
0464 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0465 7806 |x | Jump 0x46c ; case 0x1
0466 7809 |x | Jump 0x470 ; case 0x2
0467 780d |x | Jump 0x475 ; case 0x3
0468 7810 |x | Jump 0x479 ; case 0x4
0469 7811 |x | Jump 0x47b ; case 0x5
046a 7812 |x | Jump 0x47d ; case 0x6
046b 7815 |x | Jump 0x481 ; case 0x7
046c 00da | | Load_Top At_Offset_2
046d 0091 0873 | s| Action Push_String_Extended_Indexed,0x873 ; "BOOLEAN_KIND"
046f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0470 00db | | Load_Top At_Offset_3
0471 00db | | Load_Top At_Offset_3
0472 00e0 | | Load_Encached Standard_Cache
0473 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0474 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0475 00da | | Load_Top At_Offset_2
0476 00e0 | | Load_Encached Standard_Cache
0477 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0478 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0479 00db | | Load_Top At_Offset_3
047a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
047b 00db | | Load_Top At_Offset_3
047c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
047d e22b | + | Load 0x1,0x2b
047e 00dc | | Load_Top At_Offset_4
047f 0267 | g | Execute Discrete,Predecessor
0480 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0481 e22b | + | Load 0x1,0x2b
0482 00dc | | Load_Top At_Offset_4
0483 0268 | h | Execute Discrete,Successor
0484 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 4608 |F | Jump_Case 0x9
048c 7808 |x | Jump 0x495 ; case 0x0
048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
048e 783f |x? | Jump 0x4ce ; case 0x2
048f 783e |x> | Jump 0x4ce ; case 0x3
0490 783d |x= | Jump 0x4ce ; case 0x4
0491 783c |x< | Jump 0x4ce ; case 0x5
0492 7815 |x | Jump 0x4a8 ; case 0x6
0493 7822 |x" | Jump 0x4b6 ; case 0x7
0494 7832 |x2 | Jump 0x4c7 ; case 0x8
0495 00da | | Load_Top At_Offset_2
0496 016c | l | Execute Variant_Record,Is_Constrained
0497 7009 |p | Jump_Nonzero 0x4a1
0498 00cf | | Action Mark_Auxiliary
0499 4803 |H | Short_Literal 0x3
049a e5ff | | Load 0x2,-0x1
049b 1c08 | | Execute_Immediate Run_Utility,0x8
049c 00d8 | | Load_Top At_Offset_0
049d 1c00 | | Execute_Immediate Run_Utility,0x0
049e c5ff | | Store 0x2,-0x1
049f 00ce | | Action Pop_Auxiliary
04a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04a1 00da | | Load_Top At_Offset_2
04a2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04a3 4603 |F | Jump_Case 0x4
04a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04a6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
04a7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
04a8 00db | | Load_Top At_Offset_3
04a9 4603 |F | Jump_Case 0x4
04aa 7805 |x | Jump 0x4b0 ; case 0x0
04ab 7806 |x | Jump 0x4b2 ; case 0x1
04ac 7807 |x | Jump 0x4b4 ; case 0x2
04ad 7800 |x | Jump 0x4ae ; case 0x3
04ae 48ff |H | Short_Literal 0xff
04af 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b0 4801 |H | Short_Literal 0x1
04b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b2 4802 |H | Short_Literal 0x2
04b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b4 4803 |H | Short_Literal 0x3
04b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b6 00db | | Load_Top At_Offset_3
04b7 e5fe | | Load 0x2,-0x2
04b8 4603 |F | Jump_Case 0x4
04b9 7805 |x | Jump 0x4bf ; case 0x0
04ba 7806 |x | Jump 0x4c1 ; case 0x1
04bb 7807 |x | Jump 0x4c3 ; case 0x2
04bc 7800 |x | Jump 0x4bd ; case 0x3
04bd 48ff |H | Short_Literal 0xff
04be 7805 |x | Jump 0x4c4
04bf 4801 |H | Short_Literal 0x1
04c0 7803 |x | Jump 0x4c4
04c1 4802 |H | Short_Literal 0x2
04c2 7801 |x | Jump 0x4c4
04c3 4803 |H | Short_Literal 0x3
04c4 e5ff | | Load 0x2,-0x1
04c5 031b | | Declare_Type Variant_Record,Constrained
04c6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04c7 00db | | Load_Top At_Offset_3
04c8 e5fe | | Load 0x2,-0x2
04c9 e5ff | | Load 0x2,-0x1
04ca 1c06 | | Execute_Immediate Run_Utility,0x6
04cb e5ff | | Load 0x2,-0x1
04cc 02fc | | Declare_Variable Variant_Record,With_Constraint
04cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04ce 0869 | i | Execute_Immediate Raise,0x69
04cf 0000 | | .XXX[0x1]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 4608 |F | Jump_Case 0x9
04d4 7808 |x | Jump 0x4dd ; case 0x0
04d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04d6 780a |x | Jump 0x4e1 ; case 0x2
04d7 7809 |x | Jump 0x4e1 ; case 0x3
04d8 7808 |x | Jump 0x4e1 ; case 0x4
04d9 7807 |x | Jump 0x4e1 ; case 0x5
04da 7806 |x | Jump 0x4e1 ; case 0x6
04db 7805 |x | Jump 0x4e1 ; case 0x7
04dc 7804 |x | Jump 0x4e1 ; case 0x8
04dd 00da | | Load_Top At_Offset_2
04de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04df 1c00 | | Execute_Immediate Run_Utility,0x0
04e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04e1 0869 | i | Execute_Immediate Raise,0x69
04e2 0000 0000 | | .BLANK 0000[0x6]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 0510 | | .CONST 0x0510 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0009 | | .CONST 0x0009 ; Number of locals
04eb INIT_04e8:
04eb e012 | | Load 0x0,0x12
04ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ed 02c7 | | Declare_Variable Any
04ee 00d8 | | Load_Top At_Offset_0
04ef 1c00 | | Execute_Immediate Run_Utility,0x0
04f0 e012 | | Load 0x0,0x12
04f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04f2 02ff | | Declare_Variable Variant_Record
04f3 00d8 | | Load_Top At_Offset_0
04f4 1c00 | | Execute_Immediate Run_Utility,0x0
04f5 e012 | | Load 0x0,0x12
04f6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f8 02c7 | | Declare_Variable Any
04f9 00d8 | | Load_Top At_Offset_0
04fa 1c00 | | Execute_Immediate Run_Utility,0x0
04fb e012 | | Load 0x0,0x12
04fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04fd 02c7 | | Declare_Variable Any
04fe 00d8 | | Load_Top At_Offset_0
04ff 1c00 | | Execute_Immediate Run_Utility,0x0
0500 e012 | | Load 0x0,0x12
0501 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0502 e012 | | Load 0x0,0x12
0503 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0504 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0505 e011 | | Load 0x0,0x11
0506 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0507 02c7 | | Declare_Variable Any
0508 e011 | | Load 0x0,0x11
0509 1b0e | | Execute Package,Field_Read,Field_Number 0xe
050a a408 | | Store_Unchecked 0x2,0x8
050b e004 | | Load 0x0,0x4
050c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050d 02ff | | Declare_Variable Variant_Record
050e 00d8 | | Load_Top At_Offset_0
050f 1c00 | | Execute_Immediate Run_Utility,0x0
0510 BODY_04e8:
0510 e012 | | Load 0x0,0x12
0511 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0512 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0513 e403 | | Load 0x2,0x3
0514 604b |`K | Indirect_Literal Discrete,0x560,{0x00000000, 0x00004000}
0515 e011 | | Load 0x0,0x11
0516 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0517 4800 |H | Short_Literal 0x0
0518 e013 | | Load 0x0,0x13
0519 1811 | | Execute Package,Field_Execute,Field_Number 0x11
051a e012 | | Load 0x0,0x12
051b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
051c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
051d 0092 0884 | | Action Push_String_Extended,0x884 ; "$"
051f e012 | | Load 0x0,0x12
0520 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0521 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0522 00d1 | | Pop_Control Pop_Count_1
0523 005b | [ | Store_Top Discrete,At_Offset_3
0524 e012 | | Load 0x0,0x12
0525 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0526 e402 | | Load 0x2,0x2
0527 0120 | | Execute Any,Is_Value
0528 6803 |h | Jump_Zero 0x52c
0529 e012 | | Load 0x0,0x12
052a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
052b 7801 |x | Jump 0x52d
052c e402 | | Load 0x2,0x2
052d 6032 |`2 | Indirect_Literal Discrete,0x560,{0x00000000, 0x00004000}
052e e011 | | Load 0x0,0x11
052f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0530 e403 | | Load 0x2,0x3
0531 e012 | | Load 0x0,0x12
0532 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0533 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0534 c402 | | Store 0x2,0x2
0535 c406 | | Store 0x2,0x6
0536 00db | | Load_Top At_Offset_3
0537 7026 |p& | Jump_Nonzero 0x55e
0538 e402 | | Load 0x2,0x2
0539 e012 | | Load 0x0,0x12
053a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
053b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
053c c404 | | Store 0x2,0x4
053d e012 | | Load 0x0,0x12
053e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053f e405 | | Load 0x2,0x5
0540 0120 | | Execute Any,Is_Value
0541 6803 |h | Jump_Zero 0x545
0542 e012 | | Load 0x0,0x12
0543 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0544 7801 |x | Jump 0x546
0545 e405 | | Load 0x2,0x5
0546 6019 |` | Indirect_Literal Discrete,0x560,{0x00000000, 0x00004000}
0547 e408 | | Load 0x2,0x8
0548 e404 | | Load 0x2,0x4
0549 e012 | | Load 0x0,0x12
054a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
054b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
054c c405 | | Store 0x2,0x5
054d c406 | | Store 0x2,0x6
054e 00db | | Load_Top At_Offset_3
054f 700e |p | Jump_Nonzero 0x55e
0550 e012 | | Load 0x0,0x12
0551 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0552 00d9 | | Load_Top At_Offset_1
0553 600c |` | Indirect_Literal Discrete,0x560,{0x00000000, 0x00004000}
0554 e408 | | Load 0x2,0x8
0555 4800 |H | Short_Literal 0x0
0556 e405 | | Load 0x2,0x5
0557 e012 | | Load 0x0,0x12
0558 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0559 181a | | Execute Package,Field_Execute,Field_Number 0x1a
055a 00d1 | | Pop_Control Pop_Count_1
055b c406 | | Store 0x2,0x6
055c 00d8 | | Load_Top At_Offset_0
055d 00ca | | Action Exit_Nullary_Function
055e 0831 | 1 | Execute_Immediate Raise,0x31
055f 0000 | | .XXX[0x1]
0560 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0564 0000 0000 | | .BLANK 0000[0x4]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 0092 0885 | | Action Push_String_Extended,0x885 ; "Rcf"
056d e014 | | Load 0x0,0x14
056e 180e | | Execute Package,Field_Execute,Field_Number 0xe
056f 01cc | | Execute Vector,Catenate
0570 00ca | | Action Exit_Nullary_Function
0571 0000 0000 | | .BLANK 0000[0x7]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b | { | .CONST 0x057b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0001 | | .CONST 0x0001 ; Number of locals
057b BODY_0578:
057b INIT_0578:
057b 00da | | Load_Top At_Offset_2
057c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
057d 0000 0000 | | .XXX[0x3]
057f 0000 | |
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 058e | | .CONST 0x058e ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0004 | | .CONST 0x0004 ; Number of locals
0583 INIT_0580:
0583 00da | | Load_Top At_Offset_2
0584 01dd | | Execute Vector,First
0585 00e2 | | Load_Encached Integer_Cache
0586 03f1 | | Declare_Variable Discrete,With_Value
0587 00db | | Load_Top At_Offset_3
0588 01dc | | Execute Vector,Last
0589 00e2 | | Load_Encached Integer_Cache
058a 03f1 | | Declare_Variable Discrete,With_Value
058b 00d9 | | Load_Top At_Offset_1
058c 00e3 | | Load_Encached Natural_Cache
058d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
058e BODY_0580:
058e 00cf | | Action Mark_Auxiliary
058f 782f |x/ | Jump 0x5bf
0590 4801 |H | Short_Literal 0x1
0591 00da | | Load_Top At_Offset_2
0592 e403 | | Load 0x2,0x3
0593 e5ff | | Load 0x2,-0x1
0594 01cf | | Execute Vector,Slice_Read
0595 e5fe | | Load 0x2,-0x2
0596 e010 | | Load 0x0,0x10
0597 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0598 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0599 00d9 | | Load_Top At_Offset_1
059a 0c01 | | Execute_Immediate Greater_Equal,0x1
059b 682b |h+ | Jump_Zero 0x5c7
059c 00d9 | | Load_Top At_Offset_1
059d e5fe | | Load 0x2,-0x2
059e 01db | | Execute Vector,Length
059f 0273 | s | Execute Discrete,Plus
05a0 e5ff | | Load 0x2,-0x1
05a1 01d7 | | Execute Vector,Field_Read
05a2 0f20 | | Execute_Immediate Equal,0x20
05a3 6816 |h | Jump_Zero 0x5ba
05a4 00d9 | | Load_Top At_Offset_1
05a5 e402 | | Load 0x2,0x2
05a6 027f | | Execute Discrete,Equal
05a7 7006 |p | Jump_Nonzero 0x5ae
05a8 00d9 | | Load_Top At_Offset_1
05a9 0aff | | Execute_Immediate Plus,-0x1
05aa e5ff | | Load 0x2,-0x1
05ab 01d7 | | Execute Vector,Field_Read
05ac 0f0a | | Execute_Immediate Equal,0xa
05ad 680c |h | Jump_Zero 0x5ba
05ae 00d9 | | Load_Top At_Offset_1
05af 4800 |H | Short_Literal 0x0
05b0 00db | | Load_Top At_Offset_3
05b1 e403 | | Load 0x2,0x3
05b2 e5ff | | Load 0x2,-0x1
05b3 01cf | | Execute Vector,Slice_Read
05b4 480a |H | Short_Literal 0xa
05b5 e010 | | Load 0x0,0x10
05b6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05b7 e5ff | | Load 0x2,-0x1
05b8 01cf | | Execute Vector,Slice_Read
05b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05ba 00d9 | | Load_Top At_Offset_1
05bb 0a01 | | Execute_Immediate Plus,0x1
05bc 005a | Z | Store_Top Discrete,At_Offset_2
05bd 7800 |x | Jump 0x5be
05be 00c9 | | Action Pop_Auxiliary_Loop
05bf 00d9 | | Load_Top At_Offset_1
05c0 00db | | Load_Top At_Offset_3
05c1 e5fe | | Load 0x2,-0x2
05c2 01db | | Execute Vector,Length
05c3 0272 | r | Execute Discrete,Minus
05c4 0aff | | Execute_Immediate Plus,-0x1
05c5 027a | z | Execute Discrete,Less_Equal
05c6 77c9 |w | Jump_Nonzero 0x590
05c7 00ce | | Action Pop_Auxiliary
05c8 00ea | | Load_Encached Null_String_Cache
05c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05ca 0000 0000 | | .BLANK 0000[0x6]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 00da | | Load_Top At_Offset_2
05d4 01dd | | Execute Vector,First
05d5 00db | | Load_Top At_Offset_3
05d6 01d7 | | Execute Vector,Field_Read
05d7 0e22 | " | Execute_Immediate Not_Equal,0x22
05d8 6803 |h | Jump_Zero 0x5dc
05d9 e004 | | Load 0x0,0x4
05da 1b14 | | Execute Package,Field_Read,Field_Number 0x14
05db 0257 | W | Execute Discrete,Raise
05dc 00cf | | Action Mark_Auxiliary
05dd 00db | | Load_Top At_Offset_3
05de 01dc | | Execute Vector,Last
05df 0aff | | Execute_Immediate Plus,-0x1
05e0 00d8 | | Load_Top At_Offset_0
05e1 00e2 | | Load_Encached Integer_Cache
05e2 0260 | ` | Execute Discrete,In_Type
05e3 7001 |p | Jump_Nonzero 0x5e5
05e4 0801 | | Execute_Immediate Raise,0x1
05e5 e5ff | | Load 0x2,-0x1
05e6 01dd | | Execute Vector,First
05e7 0a01 | | Execute_Immediate Plus,0x1
05e8 00d8 | | Load_Top At_Offset_0
05e9 00e2 | | Load_Encached Integer_Cache
05ea 0260 | ` | Execute Discrete,In_Type
05eb 7001 |p | Jump_Nonzero 0x5ed
05ec 0801 | | Execute_Immediate Raise,0x1
05ed 0263 | c | Execute Discrete,Above_Bound
05ee 7020 |p | Jump_Nonzero 0x60f
05ef 00d8 | | Load_Top At_Offset_0
05f0 e5ff | | Load 0x2,-0x1
05f1 01d7 | | Execute Vector,Field_Read
05f2 0f22 | " | Execute_Immediate Equal,0x22
05f3 6819 |h | Jump_Zero 0x60d
05f4 e5ff | | Load 0x2,-0x1
05f5 01dd | | Execute Vector,First
05f6 0a01 | | Execute_Immediate Plus,0x1
05f7 00d8 | | Load_Top At_Offset_0
05f8 00e2 | | Load_Encached Integer_Cache
05f9 0260 | ` | Execute Discrete,In_Type
05fa 7001 |p | Jump_Nonzero 0x5fc
05fb 0801 | | Execute_Immediate Raise,0x1
05fc 00d9 | | Load_Top At_Offset_1
05fd e5ff | | Load 0x2,-0x1
05fe 01cf | | Execute Vector,Slice_Read
05ff 00d9 | | Load_Top At_Offset_1
0600 0a01 | | Execute_Immediate Plus,0x1
0601 00d8 | | Load_Top At_Offset_0
0602 00e2 | | Load_Encached Integer_Cache
0603 0260 | ` | Execute Discrete,In_Type
0604 7001 |p | Jump_Nonzero 0x606
0605 0801 | | Execute_Immediate Raise,0x1
0606 e5ff | | Load 0x2,-0x1
0607 01dc | | Execute Vector,Last
0608 e5ff | | Load 0x2,-0x1
0609 01cf | | Execute Vector,Slice_Read
060a 8237 | 7 | Call 0x1,0x37
060b 01cc | | Execute Vector,Catenate
060c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
060d 00c8 | | Action Pop_Auxiliary_Range
060e 3fe0 |? | Loop_Increasing 0x5ef
060f 00ce | | Action Pop_Auxiliary
0610 00da | | Load_Top At_Offset_2
0611 01dc | | Execute Vector,Last
0612 00db | | Load_Top At_Offset_3
0613 01d7 | | Execute Vector,Field_Read
0614 0e22 | " | Execute_Immediate Not_Equal,0x22
0615 6803 |h | Jump_Zero 0x619
0616 e004 | | Load 0x0,0x4
0617 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0618 0257 | W | Execute Discrete,Raise
0619 00da | | Load_Top At_Offset_2
061a 01dd | | Execute Vector,First
061b 0a01 | | Execute_Immediate Plus,0x1
061c 00d8 | | Load_Top At_Offset_0
061d 00e2 | | Load_Encached Integer_Cache
061e 0260 | ` | Execute Discrete,In_Type
061f 7001 |p | Jump_Nonzero 0x621
0620 0801 | | Execute_Immediate Raise,0x1
0621 00db | | Load_Top At_Offset_3
0622 01dc | | Execute Vector,Last
0623 0aff | | Execute_Immediate Plus,-0x1
0624 00d8 | | Load_Top At_Offset_0
0625 00e2 | | Load_Encached Integer_Cache
0626 0260 | ` | Execute Discrete,In_Type
0627 7001 |p | Jump_Nonzero 0x629
0628 0801 | | Execute_Immediate Raise,0x1
0629 e5ff | | Load 0x2,-0x1
062a 01cf | | Execute Vector,Slice_Read
062b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
062c 0000 0000 | | .BLANK 0000[0x4]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633 | 3 | .CONST 0x0633 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0001 | | .CONST 0x0001 ; Number of locals
0633 BODY_0630:
0633 INIT_0630:
0633 00cf | | Action Mark_Auxiliary
0634 00db | | Load_Top At_Offset_3
0635 01d9 | | Execute Vector,Reverse_Bounds
0636 0263 | c | Execute Discrete,Above_Bound
0637 701c |p | Jump_Nonzero 0x654
0638 00d8 | | Load_Top At_Offset_0
0639 e5ff | | Load 0x2,-0x1
063a 01d7 | | Execute Vector,Field_Read
063b 0f22 | " | Execute_Immediate Equal,0x22
063c 6815 |h | Jump_Zero 0x652
063d 4822 |H" | Short_Literal 0x22
063e e5ff | | Load 0x2,-0x1
063f 01dd | | Execute Vector,First
0640 00da | | Load_Top At_Offset_2
0641 e5ff | | Load 0x2,-0x1
0642 01cf | | Execute Vector,Slice_Read
0643 01ca | | Execute Vector,Prepend
0644 00d9 | | Load_Top At_Offset_1
0645 0a01 | | Execute_Immediate Plus,0x1
0646 00d8 | | Load_Top At_Offset_0
0647 00e2 | | Load_Encached Integer_Cache
0648 0260 | ` | Execute Discrete,In_Type
0649 7001 |p | Jump_Nonzero 0x64b
064a 0801 | | Execute_Immediate Raise,0x1
064b e5ff | | Load 0x2,-0x1
064c 01dc | | Execute Vector,Last
064d e5ff | | Load 0x2,-0x1
064e 01cf | | Execute Vector,Slice_Read
064f 8238 | 8 | Call 0x1,0x38
0650 01cc | | Execute Vector,Catenate
0651 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0652 00c8 | | Action Pop_Auxiliary_Range
0653 3fe4 |? | Loop_Increasing 0x638
0654 00ce | | Action Pop_Auxiliary
0655 4822 |H" | Short_Literal 0x22
0656 4822 |H" | Short_Literal 0x22
0657 e5ff | | Load 0x2,-0x1
0658 01ca | | Execute Vector,Prepend
0659 01cb | | Execute Vector,Append
065a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
065b 0000 0000 | | .BLANK 0000[0x5]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0665 | e | .CONST 0x0665 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0002 | | .CONST 0x0002 ; Number of locals
0663 INIT_0660:
0663 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call
0665 BODY_0660:
0665 8402 | | Call 0x2,0x2
0666 0831 | 1 | Execute_Immediate Raise,0x31
0667 0000 | | .XXX[0x1]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b 00da | | Load_Top At_Offset_2
066c e234 | 4 | Load 0x1,0x34
066d e233 | 3 | Load 0x1,0x33
066e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
066f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0670 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0671 4603 |F | Jump_Case 0x4
0672 7804 |x | Jump 0x677 ; case 0x0
0673 7805 |x | Jump 0x679 ; case 0x1
0674 7806 |x | Jump 0x67b ; case 0x2
0675 7800 |x | Jump 0x676 ; case 0x3
0676 08e2 | | Execute_Immediate Raise,0xe2
0677 4800 |H | Short_Literal 0x0
0678 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0679 4801 |H | Short_Literal 0x1
067a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
067b 4802 |H | Short_Literal 0x2
067c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
067d 0000 0000 | | .XXX[0x3]
067f 0000 | |
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0688 | | .CONST 0x0688 ; Address of begin
0681 068b | | .CONST 0x068b ; Address of exception handler
0682 0004 | | .CONST 0x0004 ; Number of locals
0683 INIT_0680:
0683 00e3 | | Load_Encached Natural_Cache
0684 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call
0686 029f 0773 | s| Declare_Subprogram INIT_0770,For_Call
0688 BODY_0680:
0688 8403 | | Call 0x2,0x3
0689 8404 | | Call 0x2,0x4
068a 0831 | 1 | Execute_Immediate Raise,0x31
068b TRAP_0680:
068b 0007 | | Action Break_Optional
068c e00c | | Load 0x0,0xc
068d 180e | | Execute Package,Field_Execute,Field_Number 0xe
068e 4801 |H | Short_Literal 0x1
068f 4802 |H | Short_Literal 0x2
0690 e00d | | Load 0x0,0xd
0691 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0692 035b | [ | Declare_Type Array,Constrained
0693 0337 | 7 | Declare_Variable Array
0694 0092 0886 | | Action Push_String_Extended,0x886 ; "Rcf_Switch_Implementation.Help"
0696 e00d | | Load 0x0,0xd
0697 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0698 e00d | | Load 0x0,0xd
0699 1b0e | | Execute Package,Field_Read,Field_Number 0xe
069a 0119 | | Execute Any,Check_In_Formal_Type
069b 4801 |H | Short_Literal 0x1
069c 00da | | Load_Top At_Offset_2
069d 01d6 | | Execute Vector,Field_Write
069e 4800 |H | Short_Literal 0x0
069f 4801 |H | Short_Literal 0x1
06a0 e00f | | Load 0x0,0xf
06a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06a2 e00d | | Load 0x0,0xd
06a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06a4 e00d | | Load 0x0,0xd
06a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a6 0119 | | Execute Any,Check_In_Formal_Type
06a7 4802 |H | Short_Literal 0x2
06a8 00da | | Load_Top At_Offset_2
06a9 01d6 | | Execute Vector,Field_Write
06aa 4805 |H | Short_Literal 0x5
06ab 6004 |` | Indirect_Literal Discrete,0x6b0,{0x00000000, 0x0000813b}
06ac e00e | | Load 0x0,0xe
06ad 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
06ae 00ea | | Load_Encached Null_String_Cache
06af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06b0 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
06b4 0000 0000 | | .BLANK 0000[0x4]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bf | | .CONST 0x06bf ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0003 | | .CONST 0x0003 ; Number of locals
06bb INIT_06b8:
06bb 029f 079b | | Declare_Subprogram INIT_0798,For_Call
06bd 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call
06bf BODY_06b8:
06bf e00c | | Load 0x0,0xc
06c0 180e | | Execute Package,Field_Execute,Field_Number 0xe
06c1 4801 |H | Short_Literal 0x1
06c2 0092 0887 | | Action Push_String_Extended,0x887 ; "IMAGE - value => "
06c4 e5ff | | Load 0x2,-0x1
06c5 01cc | | Execute Vector,Catenate
06c6 0092 0888 | | Action Push_String_Extended,0x888 ; ", field => "
06c8 01cc | | Execute Vector,Catenate
06c9 e5fe | | Load 0x2,-0x2
06ca 00e0 | | Load_Encached Standard_Cache
06cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06cc 01cc | | Execute Vector,Catenate
06cd e015 | | Load 0x0,0x15
06ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06cf 8403 | | Call 0x2,0x3
06d0 0831 | 1 | Execute_Immediate Raise,0x31
06d1 0000 0000 | | .BLANK 0000[0x7]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06ea | | .CONST 0x06ea ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0006 | | .CONST 0x0006 ; Number of locals
06db INIT_06d8:
06db 00db | | Load_Top At_Offset_3
06dc 8239 | 9 | Call 0x1,0x39
06dd 4801 |H | Short_Literal 0x1
06de 00d9 | | Load_Top At_Offset_1
06df e5fd | | Load 0x2,-0x3
06e0 e010 | | Load 0x0,0x10
06e1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
06e2 00e1 | | Load_Encached Boolean_Cache
06e3 03f1 | | Declare_Variable Discrete,With_Value
06e4 029f 07fb | | Declare_Subprogram INIT_07f8,For_Call
06e6 029f 080b | | Declare_Subprogram INIT_0808,For_Call
06e8 029f 081b | | Declare_Subprogram INIT_0818,For_Call
06ea BODY_06d8:
06ea e00c | | Load 0x0,0xc
06eb 180e | | Execute Package,Field_Execute,Field_Number 0xe
06ec 4801 |H | Short_Literal 0x1
06ed 0092 0889 | | Action Push_String_Extended,0x889 ; "VALUE - Input =>"
06ef e5ff | | Load 0x2,-0x1
06f0 01cc | | Execute Vector,Catenate
06f1 0092 0888 | | Action Push_String_Extended,0x888 ; ", field => "
06f3 01cc | | Execute Vector,Catenate
06f4 e5fe | | Load 0x2,-0x2
06f5 00e0 | | Load_Encached Standard_Cache
06f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06f7 01cc | | Execute Vector,Catenate
06f8 0092 088a | | Action Push_String_Extended,0x88a ; ", image => "
06fa 01cc | | Execute Vector,Catenate
06fb e5fd | | Load 0x2,-0x3
06fc 01cc | | Execute Vector,Catenate
06fd 0092 088b | | Action Push_String_Extended,0x88b ; ", default_image => "
06ff 01cc | | Execute Vector,Catenate
0700 e402 | | Load 0x2,0x2
0701 01cc | | Execute Vector,Catenate
0702 0092 088c | | Action Push_String_Extended,0x88c ; ", is_default => "
0704 01cc | | Execute Vector,Catenate
0705 e403 | | Load 0x2,0x3
0706 00e1 | | Load_Encached Boolean_Cache
0707 011c | | Execute Any,Convert_Unchecked
0708 1c01 | | Execute_Immediate Run_Utility,0x1
0709 01cc | | Execute Vector,Catenate
070a e015 | | Load 0x0,0x15
070b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
070c 8406 | | Call 0x2,0x6
070d 0831 | 1 | Execute_Immediate Raise,0x31
070e 0000 0000 | | .XXX[0x2]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713 | | .CONST 0x0713 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0001 | | .CONST 0x0001 ; Number of locals
0713 BODY_0710:
0713 INIT_0710:
0713 00ea | | Load_Encached Null_String_Cache
0714 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0715 0000 0000 | | .XXX[0x3]
0717 0000 | |
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00da | | Load_Top At_Offset_2
071c e234 | 4 | Load 0x1,0x34
071d e233 | 3 | Load 0x1,0x33
071e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
071f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0720 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0721 4603 |F | Jump_Case 0x4
0722 7804 |x | Jump 0x727 ; case 0x0
0723 7806 |x | Jump 0x72a ; case 0x1
0724 7808 |x | Jump 0x72d ; case 0x2
0725 7800 |x | Jump 0x726 ; case 0x3
0726 08e2 | | Execute_Immediate Raise,0xe2
0727 0092 088d | | Action Push_String_Extended,0x88d ; "Boolean"
0729 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
072a 0092 088e | | Action Push_String_Extended,0x88e ; "Integer"
072c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
072d 0092 088f | | Action Push_String_Extended,0x88f ; "String"
072f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0739 | 9 | .CONST 0x0739 ; Address of begin
0731 0756 | V | .CONST 0x0756 ; Address of exception handler
0732 0002 | | .CONST 0x0002 ; Number of locals
0733 INIT_0730:
0733 e5ff | | Load 0x2,-0x1
0734 e234 | 4 | Load 0x1,0x34
0735 e233 | 3 | Load 0x1,0x33
0736 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0737 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0738 0007 | | Action Break_Optional
0739 BODY_0730:
0739 00d8 | | Load_Top At_Offset_0
073a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
073b 4603 |F | Jump_Case 0x4
073c 7812 |x | Jump 0x74f ; case 0x0
073d 7802 |x | Jump 0x740 ; case 0x1
073e 780a |x | Jump 0x749 ; case 0x2
073f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3
0740 4820 |H | Short_Literal 0x20
0741 00d9 | | Load_Top At_Offset_1
0742 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0743 00e0 | | Load_Encached Standard_Cache
0744 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0745 e010 | | Load 0x0,0x10
0746 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0747 00cb | | Action Pop_Block_With_Result
0748 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0749 00d8 | | Load_Top At_Offset_0
074a 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
074b 0217 | | Execute Heap_Access,All_Reference
074c 8238 | 8 | Call 0x1,0x38
074d 00cb | | Action Pop_Block_With_Result
074e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
074f 00d8 | | Load_Top At_Offset_0
0750 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0751 00e1 | | Load_Encached Boolean_Cache
0752 011c | | Execute Any,Convert_Unchecked
0753 1c01 | | Execute_Immediate Run_Utility,0x1
0754 00cb | | Action Pop_Block_With_Result
0755 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0756 TRAP_0730:
0756 e233 | 3 | Load 0x1,0x33
0757 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0758 010f | | Execute Exception,Equal
0759 6801 |h | Jump_Zero 0x75b
075a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
075b 0100 | | Execute Exception,Raise
075c 0000 0000 | | .BLANK 0000[0x4]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 e5ff | | Load 0x2,-0x1
0764 00e2 | | Load_Encached Integer_Cache
0765 00e0 | | Load_Encached Standard_Cache
0766 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0767 c402 | | Store 0x2,0x2
0768 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0769 0000 0000 | | .BLANK 0000[0x7]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0781 | | .CONST 0x0781 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0004 | | .CONST 0x0004 ; Number of locals
0773 INIT_0770:
0773 e402 | | Load 0x2,0x2
0774 e234 | 4 | Load 0x1,0x34
0775 e233 | 3 | Load 0x1,0x33
0776 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0777 00d8 | | Load_Top At_Offset_0
0778 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0779 0217 | | Execute Heap_Access,All_Reference
077a 0335 | 5 | Declare_Variable Array,Duplicate
077b 00cd | | Action Spare6_Action
077c 00d9 | | Load_Top At_Offset_1
077d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
077e 0217 | | Execute Heap_Access,All_Reference
077f 0335 | 5 | Declare_Variable Array,Duplicate
0780 00cd | | Action Spare6_Action
0781 BODY_0770:
0781 00d9 | | Load_Top At_Offset_1
0782 01db | | Execute Vector,Length
0783 700b |p | Jump_Nonzero 0x78f
0784 0092 0890 | | Action Push_String_Extended,0x890 ; "No help available for "
0786 00d9 | | Load_Top At_Offset_1
0787 e010 | | Load 0x0,0x10
0788 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0789 01cc | | Execute Vector,Catenate
078a 0092 0891 | | Action Push_String_Extended,0x891 ; "."
078c 01cc | | Execute Vector,Catenate
078d 00cb | | Action Pop_Block_With_Result
078e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
078f 00d9 | | Load_Top At_Offset_1
0790 00cb | | Action Pop_Block_With_Result
0791 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0792 0000 0000 | | .BLANK 0000[0x6]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b | | .CONST 0x079b ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0001 | | .CONST 0x0001 ; Number of locals
079b BODY_0798:
079b INIT_0798:
079b e00c | | Load 0x0,0xc
079c 180e | | Execute Package,Field_Execute,Field_Number 0xe
079d 4801 |H | Short_Literal 0x1
079e 0092 0892 | | Action Push_String_Extended,0x892 ; "IMAGE - returning: "
07a0 e7ff | | Load 0x3,-0x1
07a1 01cc | | Execute Vector,Catenate
07a2 e015 | | Load 0x0,0x15
07a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07a4 00da | | Load_Top At_Offset_2
07a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a6 0000 0000 | | .XXX[0x2]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07bd | | .CONST 0x07bd ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0004 | | .CONST 0x0004 ; Number of locals
07ab INIT_07a8:
07ab e5fe | | Load 0x2,-0x2
07ac e234 | 4 | Load 0x1,0x34
07ad e233 | 3 | Load 0x1,0x33
07ae 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07b0 0217 | | Execute Heap_Access,All_Reference
07b1 0335 | 5 | Declare_Variable Array,Duplicate
07b2 00cd | | Action Spare6_Action
07b3 00d8 | | Load_Top At_Offset_0
07b4 e5ff | | Load 0x2,-0x1
07b5 8236 | 6 | Call 0x1,0x36
07b6 4800 |H | Short_Literal 0x0
07b7 00d9 | | Load_Top At_Offset_1
07b8 4820 |H | Short_Literal 0x20
07b9 e010 | | Load 0x0,0x10
07ba 181e | | Execute Package,Field_Execute,Field_Number 0x1e
07bb 00e3 | | Load_Encached Natural_Cache
07bc 03f1 | | Declare_Variable Discrete,With_Value
07bd BODY_07a8:
07bd 00d9 | | Load_Top At_Offset_1
07be 01db | | Execute Vector,Length
07bf 7005 |p | Jump_Nonzero 0x7c5
07c0 e5fe | | Load 0x2,-0x2
07c1 8239 | 9 | Call 0x1,0x39
07c2 8402 | | Call 0x2,0x2
07c3 00cb | | Action Pop_Block_With_Result
07c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07c5 00d8 | | Load_Top At_Offset_0
07c6 7001 |p | Jump_Nonzero 0x7c8
07c7 0887 | | Execute_Immediate Raise,0x87
07c8 e5fe | | Load 0x2,-0x2
07c9 823a | : | Call 0x1,0x3a
07ca 0f02 | | Execute_Immediate Equal,0x2
07cb 6815 |h | Jump_Zero 0x7e1
07cc 00d8 | | Load_Top At_Offset_0
07cd 0a01 | | Execute_Immediate Plus,0x1
07ce 00d8 | | Load_Top At_Offset_0
07cf 00e2 | | Load_Encached Integer_Cache
07d0 0260 | ` | Execute Discrete,In_Type
07d1 7001 |p | Jump_Nonzero 0x7d3
07d2 0801 | | Execute_Immediate Raise,0x1
07d3 00da | | Load_Top At_Offset_2
07d4 01dc | | Execute Vector,Last
07d5 0aff | | Execute_Immediate Plus,-0x1
07d6 00d8 | | Load_Top At_Offset_0
07d7 00e2 | | Load_Encached Integer_Cache
07d8 0260 | ` | Execute Discrete,In_Type
07d9 7001 |p | Jump_Nonzero 0x7db
07da 0801 | | Execute_Immediate Raise,0x1
07db 00db | | Load_Top At_Offset_3
07dc 01cf | | Execute Vector,Slice_Read
07dd 8238 | 8 | Call 0x1,0x38
07de 8402 | | Call 0x2,0x2
07df 00cb | | Action Pop_Block_With_Result
07e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07e1 00d8 | | Load_Top At_Offset_0
07e2 0a01 | | Execute_Immediate Plus,0x1
07e3 00d8 | | Load_Top At_Offset_0
07e4 00e2 | | Load_Encached Integer_Cache
07e5 0260 | ` | Execute Discrete,In_Type
07e6 7001 |p | Jump_Nonzero 0x7e8
07e7 0801 | | Execute_Immediate Raise,0x1
07e8 00da | | Load_Top At_Offset_2
07e9 01dc | | Execute Vector,Last
07ea 0aff | | Execute_Immediate Plus,-0x1
07eb 00d8 | | Load_Top At_Offset_0
07ec 00e2 | | Load_Encached Integer_Cache
07ed 0260 | ` | Execute Discrete,In_Type
07ee 7001 |p | Jump_Nonzero 0x7f0
07ef 0801 | | Execute_Immediate Raise,0x1
07f0 00db | | Load_Top At_Offset_3
07f1 01cf | | Execute Vector,Slice_Read
07f2 8402 | | Call 0x2,0x2
07f3 00cb | | Action Pop_Block_With_Result
07f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07f5 0000 0000 | | .XXX[0x3]
07f7 0000 | |
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb | | .CONST 0x07fb ; Address of begin
07f9 0004 | | .CONST 0x0004 ; Address of exception handler
07fa 0001 | | .CONST 0x0001 ; Number of locals
07fb BODY_07f8:
07fb INIT_07f8:
07fb e00c | | Load 0x0,0xc
07fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
07fd 4801 |H | Short_Literal 0x1
07fe 0092 0893 | | Action Push_String_Extended,0x893 ; "VALUE - returning: "
0800 e7ff | | Load 0x3,-0x1
0801 01cc | | Execute Vector,Catenate
0802 e015 | | Load 0x0,0x15
0803 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0804 00da | | Load_Top At_Offset_2
0805 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0806 0000 0000 | | .XXX[0x2]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b e5fe | | Load 0x2,-0x2
080c 823a | : | Call 0x1,0x3a
080d 0f02 | | Execute_Immediate Equal,0x2
080e 6803 |h | Jump_Zero 0x812
080f 00da | | Load_Top At_Offset_2
0810 8237 | 7 | Call 0x1,0x37
0811 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0812 00da | | Load_Top At_Offset_2
0813 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0814 0000 0000 | | .BLANK 0000[0x4]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 082d | - | .CONST 0x082d ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0004 | | .CONST 0x0004 ; Number of locals
081b INIT_0818:
081b e5fe | | Load 0x2,-0x2
081c e234 | 4 | Load 0x1,0x34
081d e233 | 3 | Load 0x1,0x33
081e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
081f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0820 0217 | | Execute Heap_Access,All_Reference
0821 0335 | 5 | Declare_Variable Array,Duplicate
0822 00cd | | Action Spare6_Action
0823 00d8 | | Load_Top At_Offset_0
0824 e5ff | | Load 0x2,-0x1
0825 8236 | 6 | Call 0x1,0x36
0826 4800 |H | Short_Literal 0x0
0827 00d9 | | Load_Top At_Offset_1
0828 4820 |H | Short_Literal 0x20
0829 e010 | | Load 0x0,0x10
082a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
082b 00e3 | | Load_Encached Natural_Cache
082c 03f1 | | Declare_Variable Discrete,With_Value
082d BODY_0818:
082d 00d9 | | Load_Top At_Offset_1
082e 01db | | Execute Vector,Length
082f 7013 |p | Jump_Nonzero 0x843
0830 e403 | | Load 0x2,0x3
0831 6804 |h | Jump_Zero 0x836
0832 e5ff | | Load 0x2,-0x1
0833 8404 | | Call 0x2,0x4
0834 00cb | | Action Pop_Block_With_Result
0835 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0836 480a |H | Short_Literal 0xa
0837 4820 |H | Short_Literal 0x20
0838 e5ff | | Load 0x2,-0x1
0839 e602 | | Load 0x3,0x2
083a 01cc | | Execute Vector,Catenate
083b 01cb | | Execute Vector,Append
083c e5fd | | Load 0x2,-0x3
083d 8405 | | Call 0x2,0x5
083e 01cc | | Execute Vector,Catenate
083f 01cb | | Execute Vector,Append
0840 8404 | | Call 0x2,0x4
0841 00cb | | Action Pop_Block_With_Result
0842 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0843 e403 | | Load 0x2,0x3
0844 681c |h | Jump_Zero 0x861
0845 e5ff | | Load 0x2,-0x1
0846 01dd | | Execute Vector,First
0847 00da | | Load_Top At_Offset_2
0848 01dd | | Execute Vector,First
0849 0aff | | Execute_Immediate Plus,-0x1
084a 00d8 | | Load_Top At_Offset_0
084b 00e2 | | Load_Encached Integer_Cache
084c 0260 | ` | Execute Discrete,In_Type
084d 7001 |p | Jump_Nonzero 0x84f
084e 0801 | | Execute_Immediate Raise,0x1
084f e5ff | | Load 0x2,-0x1
0850 01cf | | Execute Vector,Slice_Read
0851 00da | | Load_Top At_Offset_2
0852 01dc | | Execute Vector,Last
0853 0a01 | | Execute_Immediate Plus,0x1
0854 00d8 | | Load_Top At_Offset_0
0855 00e2 | | Load_Encached Integer_Cache
0856 0260 | ` | Execute Discrete,In_Type
0857 7001 |p | Jump_Nonzero 0x859
0858 0801 | | Execute_Immediate Raise,0x1
0859 e5ff | | Load 0x2,-0x1
085a 01dc | | Execute Vector,Last
085b e5ff | | Load 0x2,-0x1
085c 01cf | | Execute Vector,Slice_Read
085d 01cc | | Execute Vector,Catenate
085e 8404 | | Call 0x2,0x4
085f 00cb | | Action Pop_Block_With_Result
0860 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0861 e5ff | | Load 0x2,-0x1
0862 01dd | | Execute Vector,First
0863 00d9 | | Load_Top At_Offset_1
0864 e5ff | | Load 0x2,-0x1
0865 01cf | | Execute Vector,Slice_Read
0866 e5fd | | Load 0x2,-0x3
0867 8405 | | Call 0x2,0x5
0868 01cc | | Execute Vector,Catenate
0869 00da | | Load_Top At_Offset_2
086a 01dc | | Execute Vector,Last
086b e5ff | | Load 0x2,-0x1
086c 01dc | | Execute Vector,Last
086d e5ff | | Load 0x2,-0x1
086e 01cf | | Execute Vector,Slice_Read
086f 01cc | | Execute Vector,Catenate
0870 8404 | | Call 0x2,0x4
0871 00cb | | Action Pop_Block_With_Result
0872 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0873 ; --------------------------------------------------------------------------------------
0873 ; STRING TABLE
0873 ; --------------------------------------------------------------------------------------
0873 0044 | D | .STRTAB 0x0044->0x0895 ; "BOOLEAN_KIND"
0874 004e | N | .STRTAB 0x004e->0x089b ; "INTEGER_KIND"
0875 0058 | X | .STRTAB 0x0058->0x08a1 ; "TEXT_KIND"
0876 005f | _ | .STRTAB 0x005f->0x08a5 ; "UNDEFINED"
0877 0066 | f | .STRTAB 0x0066->0x08aa ; "Check_Consistency"
0878 0075 | u | .STRTAB 0x0075->0x08b2 ; "Host_Only"
0879 007c | | | .STRTAB 0x007c->0x08b7 ; "Echo_Command_Output"
087a 008d | | .STRTAB 0x008d->0x08c0 ; "Trace_command_output"
087b 009f | | .STRTAB 0x009f->0x08ca ; "Compiler_Pre_Options"
087c 00b1 | | .STRTAB 0x00b1->0x08d4 ; "Compiler_Post_Options"
087d 00c4 | | .STRTAB 0x00c4->0x08df ; "Linker_Pre_Options"
087e 00d4 | | .STRTAB 0x00d4->0x08e8 ; "Linker_Post_Options"
087f 00e5 | | .STRTAB 0x00e5->0x08f1 ; "Generate_Batch_Script"
0880 00f8 | | .STRTAB 0x00f8->0x08fc ; "dummy"
0881 00fb | | .STRTAB 0x00fb->0x08fe ; "Rcf_Switch_Implementation.Define"
0882 0119 | | .STRTAB 0x0119->0x090e ; "Rcf_Switch_Implementation.Is_Defined"
0883 013b | ; | .STRTAB 0x013b->0x0920 ; "Rcf_Switch_Implementation.Value"
0884 0158 | X | .STRTAB 0x0158->0x0930 ; "$"
0885 0157 | W | .STRTAB 0x0157->0x0930 ; "Rcf"
0886 0158 | X | .STRTAB 0x0158->0x0932 ; "Rcf_Switch_Implementation.Help"
0887 0174 | t | .STRTAB 0x0174->0x0941 ; "IMAGE - value => "
0888 0183 | | .STRTAB 0x0183->0x0949 ; ", field => "
0889 018c | | .STRTAB 0x018c->0x094f ; "VALUE - Input =>"
088a 019a | | .STRTAB 0x019a->0x0957 ; ", image => "
088b 01a3 | | .STRTAB 0x01a3->0x095c ; ", default_image => "
088c 01b4 | | .STRTAB 0x01b4->0x0966 ; ", is_default => "
088d 01c2 | | .STRTAB 0x01c2->0x096e ; "Boolean"
088e 01c7 | | .STRTAB 0x01c7->0x0971 ; "Integer"
088f 01cc | | .STRTAB 0x01cc->0x0975 ; "String"
0890 01d0 | | .STRTAB 0x01d0->0x0978 ; "No help available for "
0891 01e4 | | .STRTAB 0x01e4->0x0983 ; "."
0892 01e3 | | .STRTAB 0x01e3->0x0983 ; "IMAGE - returning: "
0893 01f4 | | .STRTAB 0x01f4->0x098d ; "VALUE - returning: "
0894 0205 | | .STREND 0x0205->0x0996
0895 424f 4f4c |BOOL| .STRTAB_STRINGS
0997 0000 | | .XXX[0x1]
0998 ; --------------------------------------------------------------------------------------
0998 ; Debug Table
0998 ; --------------------------------------------------------------------------------------
0998 0004 000d | | .DEBUG4 0x0004,0x000d,0x4e66,0x0000,0x0001,0x0000
099e 0000 0000 | | .BLANK 0000[0x8]
09a6 0057 26c5 | W& | .XXX[0x2]
09a8 0000 0000 | | .BLANK 0000[0x7]
09af 0054 | T | .XXX[0x1]
09b0 0000 0000 | | .BLANK 0000[0x8]
09b8 005a bcda | Z | .XXX[0x5]
09ba 0800 0600 | |
09bc 8000 | |
09bd 0000 0000 | | .BLANK 0000[0x9]
09c6 0057 26c5 | W& | .XXX[0x2]
09c8 0000 0000 | | .BLANK 0000[0x7]
09cf 0060 | ` | .XXX[0x1]
09d0 0000 0000 | | .BLANK 0000[0x8]
09d8 0001 0404 | | .XXX[0x5]
09da 0000 0280 | |
09dc 8000 | |
09dd 0000 0000 | | .BLANK 0000[0x9]
09e6 0057 26c5 | W& | .XXX[0x2]
09e8 0000 0000 | | .BLANK 0000[0x7]
09ef 006c | l | .XXX[0x1]
09f0 0000 0000 | | .BLANK 0000[0x8]
09f8 0001 0404 | | .XXX[0x8]
09fa 0000 0700 | |
09fc 8000 0000 | |
09fe 0000 0000 | |