|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0980 | | .CONST 0x0980 ; 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 085f | _| Action Push_String_Extended,0x85f ; "Check_Consistency"
0025 0129 | ) | Execute Any,Make_Visible
0026 c21a | | Store 0x1,0x1a
0027 0092 0860 | `| Action Push_String_Extended,0x860 ; "Host_Only"
0029 0129 | ) | Execute Any,Make_Visible
002a c21b | | Store 0x1,0x1b
002b 0092 0861 | a| Action Push_String_Extended,0x861 ; "Echo_Command_Output"
002d 0129 | ) | Execute Any,Make_Visible
002e c217 | | Store 0x1,0x17
002f 0092 0862 | b| Action Push_String_Extended,0x862 ; "Trace_command_output"
0031 0129 | ) | Execute Any,Make_Visible
0032 c224 | $ | Store 0x1,0x24
0033 0092 0863 | c| Action Push_String_Extended,0x863 ; "Compiler_Pre_Options"
0035 0129 | ) | Execute Any,Make_Visible
0036 c21d | | Store 0x1,0x1d
0037 0092 0864 | d| Action Push_String_Extended,0x864 ; "Compiler_Post_Options"
0039 0129 | ) | Execute Any,Make_Visible
003a c21e | | Store 0x1,0x1e
003b 0092 0865 | e| Action Push_String_Extended,0x865 ; "Linker_Pre_Options"
003d 0129 | ) | Execute Any,Make_Visible
003e c21f | | Store 0x1,0x1f
003f 0092 0866 | f| Action Push_String_Extended,0x866 ; "Linker_Post_Options"
0041 0129 | ) | Execute Any,Make_Visible
0042 c220 | | Store 0x1,0x20
0043 0092 0867 | g| Action Push_String_Extended,0x867 ; "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 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0055 c223 | # | Store 0x1,0x23
0056 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0058 c216 | | Store 0x1,0x16
0059 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
005b c213 | | Store 0x1,0x13
005c 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
005e c214 | | Store 0x1,0x14
005f 029a 03d3 | | Declare_Subprogram INIT_03d0,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 044b | K| Declare_Subprogram INIT_0448,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 0473 | s| Declare_Subprogram INIT_0470,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 04bb | | Declare_Subprogram INIT_04b8,For_Call
0088 4803 |H | Short_Literal 0x3
0089 032d | - | Declare_Type Record,Defined
008a 0092 0868 | h| Action Push_String_Extended,0x868 ; "dummy"
008c 029b 04d3 | | Declare_Subprogram INIT_04d0,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 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Unelaborated
0095 029b 0563 | c| Declare_Subprogram INIT_0560,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 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call
00af 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call
00b1 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call
00b3 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
00b5 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call
00b7 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
00b9 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call
00bb 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call
00bd 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call
00bf 029d 0703 | | Declare_Subprogram INIT_0700,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 0163 | c | .CONST 0x0163 ; 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 6815 |h | Jump_Zero 0x13f
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 0334 | 4 | Declare_Variable Array,With_Constraint
0131 e5ff | | Load 0x2,-0x1
0132 e00d | | Load 0x0,0xd
0133 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0134 e00d | | Load 0x0,0xd
0135 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0136 0119 | | Execute Any,Check_In_Formal_Type
0137 4801 |H | Short_Literal 0x1
0138 00da | | Load_Top At_Offset_2
0139 01d6 | | Execute Vector,Field_Write
013a 4806 |H | Short_Literal 0x6
013b 6050 |`P | Indirect_Literal Discrete,0x18c,{0x00000000, 0x0000814c}
013c e00e | | Load 0x0,0xe
013d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
013e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
013f 4800 |H | Short_Literal 0x0
0140 e22d | - | Load 0x1,0x2d
0141 0322 | " | Declare_Variable Record
0142 00db | | Load_Top At_Offset_3
0143 00d9 | | Load_Top At_Offset_1
0144 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0145 4802 |H | Short_Literal 0x2
0146 e22c | , | Load 0x1,0x2c
0147 1c08 | | Execute_Immediate Run_Utility,0x8
0148 e403 | | Load 0x2,0x3
0149 00d9 | | Load_Top At_Offset_1
014a 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
014b 00d9 | | Load_Top At_Offset_1
014c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014d 00da | | Load_Top At_Offset_2
014e 00d9 | | Load_Top At_Offset_1
014f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0150 e227 | ' | Load 0x1,0x27
0151 e234 | 4 | Load 0x1,0x34
0152 e233 | 3 | Load 0x1,0x33
0153 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0154 e241 | A | Load 0x1,0x41
0155 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0156 e5ff | | Load 0x2,-0x1
0157 e241 | A | Load 0x1,0x41
0158 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0159 c402 | | Store 0x2,0x2
015a 00db | | Load_Top At_Offset_3
015b e227 | ' | Load 0x1,0x27
015c 027f | | Execute Discrete,Equal
015d 7001 |p | Jump_Nonzero 0x15f
015e 0887 | | Execute_Immediate Raise,0x87
015f e227 | ' | Load 0x1,0x27
0160 0a01 | | Execute_Immediate Plus,0x1
0161 c227 | ' | Store 0x1,0x27
0162 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0163 TRAP_00f8:
0163 0007 | | Action Break_Optional
0164 e00c | | Load 0x0,0xc
0165 180e | | Execute Package,Field_Execute,Field_Number 0xe
0166 4801 |H | Short_Literal 0x1
0167 4802 |H | Short_Literal 0x2
0168 e00d | | Load 0x0,0xd
0169 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016a 0334 | 4 | Declare_Variable Array,With_Constraint
016b 0092 0869 | i| Action Push_String_Extended,0x869 ; "Rcf_Switch_Implementation.Define"
016d e00d | | Load 0x0,0xd
016e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
016f e00d | | Load 0x0,0xd
0170 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0171 0119 | | Execute Any,Check_In_Formal_Type
0172 4801 |H | Short_Literal 0x1
0173 00da | | Load_Top At_Offset_2
0174 01d6 | | Execute Vector,Field_Write
0175 4800 |H | Short_Literal 0x0
0176 4801 |H | Short_Literal 0x1
0177 e00f | | Load 0x0,0xf
0178 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0179 e00d | | Load 0x0,0xd
017a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
017b e00d | | Load 0x0,0xd
017c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017d 0119 | | Execute Any,Check_In_Formal_Type
017e 4802 |H | Short_Literal 0x2
017f 00da | | Load_Top At_Offset_2
0180 01d6 | | Execute Vector,Field_Write
0181 4805 |H | Short_Literal 0x5
0182 6005 |` | Indirect_Literal Discrete,0x188,{0x00000000, 0x0000813b}
0183 e00e | | Load 0x0,0xe
0184 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0185 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0186 0000 0000 | | .XXX[0x2]
0188 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
018c 0000 0000 | | .LITERAL {0x00000000, 0x0000814c}
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01ab | | .CONST 0x01ab ; Address of begin
0191 01ed | | .CONST 0x01ed ; 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 6815 |h | Jump_Zero 0x1c9
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 0334 | 4 | Declare_Variable Array,With_Constraint
01bb e5ff | | Load 0x2,-0x1
01bc e00d | | Load 0x0,0xd
01bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01be e00d | | Load 0x0,0xd
01bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c0 0119 | | Execute Any,Check_In_Formal_Type
01c1 4801 |H | Short_Literal 0x1
01c2 00da | | Load_Top At_Offset_2
01c3 01d6 | | Execute Vector,Field_Write
01c4 4806 |H | Short_Literal 0x6
01c5 67c6 |g | Indirect_Literal Discrete,0x18c,{0x00000000, 0x0000814c}
01c6 e00e | | Load 0x0,0xe
01c7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01c8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01c9 4800 |H | Short_Literal 0x0
01ca e22d | - | Load 0x1,0x2d
01cb 0322 | " | Declare_Variable Record
01cc 00db | | Load_Top At_Offset_3
01cd 00d9 | | Load_Top At_Offset_1
01ce 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01cf 4800 |H | Short_Literal 0x0
01d0 e22c | , | Load 0x1,0x2c
01d1 1c08 | | Execute_Immediate Run_Utility,0x8
01d2 e5fe | | Load 0x2,-0x2
01d3 00d9 | | Load_Top At_Offset_1
01d4 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01d5 00d9 | | Load_Top At_Offset_1
01d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d7 00da | | Load_Top At_Offset_2
01d8 00d9 | | Load_Top At_Offset_1
01d9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01da e227 | ' | Load 0x1,0x27
01db e234 | 4 | Load 0x1,0x34
01dc e233 | 3 | Load 0x1,0x33
01dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01de e241 | A | Load 0x1,0x41
01df 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e0 e5ff | | Load 0x2,-0x1
01e1 e241 | A | Load 0x1,0x41
01e2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01e3 005b | [ | Store_Top Discrete,At_Offset_3
01e4 00da | | Load_Top At_Offset_2
01e5 e227 | ' | Load 0x1,0x27
01e6 027f | | Execute Discrete,Equal
01e7 7001 |p | Jump_Nonzero 0x1e9
01e8 0887 | | Execute_Immediate Raise,0x87
01e9 e227 | ' | Load 0x1,0x27
01ea 0a01 | | Execute_Immediate Plus,0x1
01eb c227 | ' | Store 0x1,0x27
01ec 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ed TRAP_0190:
01ed 0007 | | Action Break_Optional
01ee e00c | | Load 0x0,0xc
01ef 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f0 4801 |H | Short_Literal 0x1
01f1 4802 |H | Short_Literal 0x2
01f2 e00d | | Load 0x0,0xd
01f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f4 0334 | 4 | Declare_Variable Array,With_Constraint
01f5 0092 0869 | i| Action Push_String_Extended,0x869 ; "Rcf_Switch_Implementation.Define"
01f7 e00d | | Load 0x0,0xd
01f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f9 e00d | | Load 0x0,0xd
01fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fb 0119 | | Execute Any,Check_In_Formal_Type
01fc 4801 |H | Short_Literal 0x1
01fd 00da | | Load_Top At_Offset_2
01fe 01d6 | | Execute Vector,Field_Write
01ff 4800 |H | Short_Literal 0x0
0200 4801 |H | Short_Literal 0x1
0201 e00f | | Load 0x0,0xf
0202 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0203 e00d | | Load 0x0,0xd
0204 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0205 e00d | | Load 0x0,0xd
0206 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0207 0119 | | Execute Any,Check_In_Formal_Type
0208 4802 |H | Short_Literal 0x2
0209 00da | | Load_Top At_Offset_2
020a 01d6 | | Execute Vector,Field_Write
020b 4805 |H | Short_Literal 0x5
020c 677b |g{ | Indirect_Literal Discrete,0x188,{0x00000000, 0x0000813b}
020d e00e | | Load 0x0,0xe
020e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
020f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 022b | + | .CONST 0x022b ; Address of begin
0211 026d | m | .CONST 0x026d ; Address of exception handler
0212 0004 | | .CONST 0x0004 ; Number of locals
0213 INIT_0210:
0213 e226 | & | Load 0x1,0x26
0214 0007 | | Action Break_Optional
0215 4801 |H | Short_Literal 0x1
0216 e5ff | | Load 0x2,-0x1
0217 01db | | Execute Vector,Length
0218 00d8 | | Load_Top At_Offset_0
0219 00e2 | | Load_Encached Integer_Cache
021a 0260 | ` | Execute Discrete,In_Type
021b 7001 |p | Jump_Nonzero 0x21d
021c 0801 | | Execute_Immediate Raise,0x1
021d e228 | ( | Load 0x1,0x28
021e e225 | % | Load 0x1,0x25
021f 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0220 4801 |H | Short_Literal 0x1
0221 e5fd | | Load 0x2,-0x3
0222 01db | | Execute Vector,Length
0223 00d8 | | Load_Top At_Offset_0
0224 00e2 | | Load_Encached Integer_Cache
0225 0260 | ` | Execute Discrete,In_Type
0226 7001 |p | Jump_Nonzero 0x228
0227 0801 | | Execute_Immediate Raise,0x1
0228 e228 | ( | Load 0x1,0x28
0229 e225 | % | Load 0x1,0x25
022a 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
022b BODY_0210:
022b e5ff | | Load 0x2,-0x1
022c 00da | | Load_Top At_Offset_2
022d 0218 | | Execute Heap_Access,All_Write
022e e5fd | | Load 0x2,-0x3
022f 00d9 | | Load_Top At_Offset_1
0230 0218 | | Execute Heap_Access,All_Write
0231 e5ff | | Load 0x2,-0x1
0232 8216 | | Call 0x1,0x16
0233 6815 |h | Jump_Zero 0x249
0234 e00c | | Load 0x0,0xc
0235 180e | | Execute Package,Field_Execute,Field_Number 0xe
0236 4801 |H | Short_Literal 0x1
0237 4801 |H | Short_Literal 0x1
0238 e00d | | Load 0x0,0xd
0239 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023a 0334 | 4 | Declare_Variable Array,With_Constraint
023b e5ff | | Load 0x2,-0x1
023c e00d | | Load 0x0,0xd
023d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023e e00d | | Load 0x0,0xd
023f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0240 0119 | | Execute Any,Check_In_Formal_Type
0241 4801 |H | Short_Literal 0x1
0242 00da | | Load_Top At_Offset_2
0243 01d6 | | Execute Vector,Field_Write
0244 4806 |H | Short_Literal 0x6
0245 604e |`N | Indirect_Literal Discrete,0x294,{0x00000000, 0x0000814c}
0246 e00e | | Load 0x0,0xe
0247 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0248 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0249 4800 |H | Short_Literal 0x0
024a e22d | - | Load 0x1,0x2d
024b 0322 | " | Declare_Variable Record
024c 00db | | Load_Top At_Offset_3
024d 00d9 | | Load_Top At_Offset_1
024e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
024f 4801 |H | Short_Literal 0x1
0250 e22c | , | Load 0x1,0x2c
0251 1c08 | | Execute_Immediate Run_Utility,0x8
0252 e5fe | | Load 0x2,-0x2
0253 00d9 | | Load_Top At_Offset_1
0254 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0255 00d9 | | Load_Top At_Offset_1
0256 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0257 00da | | Load_Top At_Offset_2
0258 00d9 | | Load_Top At_Offset_1
0259 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
025a e227 | ' | Load 0x1,0x27
025b e234 | 4 | Load 0x1,0x34
025c e233 | 3 | Load 0x1,0x33
025d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
025e e241 | A | Load 0x1,0x41
025f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0260 e5ff | | Load 0x2,-0x1
0261 e241 | A | Load 0x1,0x41
0262 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0263 005b | [ | Store_Top Discrete,At_Offset_3
0264 00da | | Load_Top At_Offset_2
0265 e227 | ' | Load 0x1,0x27
0266 027f | | Execute Discrete,Equal
0267 7001 |p | Jump_Nonzero 0x269
0268 0887 | | Execute_Immediate Raise,0x87
0269 e227 | ' | Load 0x1,0x27
026a 0a01 | | Execute_Immediate Plus,0x1
026b c227 | ' | Store 0x1,0x27
026c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
026d TRAP_0210:
026d 0007 | | Action Break_Optional
026e e00c | | Load 0x0,0xc
026f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0270 4801 |H | Short_Literal 0x1
0271 4802 |H | Short_Literal 0x2
0272 e00d | | Load 0x0,0xd
0273 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0274 0334 | 4 | Declare_Variable Array,With_Constraint
0275 0092 0869 | i| Action Push_String_Extended,0x869 ; "Rcf_Switch_Implementation.Define"
0277 e00d | | Load 0x0,0xd
0278 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0279 e00d | | Load 0x0,0xd
027a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
027b 0119 | | Execute Any,Check_In_Formal_Type
027c 4801 |H | Short_Literal 0x1
027d 00da | | Load_Top At_Offset_2
027e 01d6 | | Execute Vector,Field_Write
027f 4800 |H | Short_Literal 0x0
0280 4801 |H | Short_Literal 0x1
0281 e00f | | Load 0x0,0xf
0282 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0283 e00d | | Load 0x0,0xd
0284 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0285 e00d | | Load 0x0,0xd
0286 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0287 0119 | | Execute Any,Check_In_Formal_Type
0288 4802 |H | Short_Literal 0x2
0289 00da | | Load_Top At_Offset_2
028a 01d6 | | Execute Vector,Field_Write
028b 4805 |H | Short_Literal 0x5
028c 6003 |` | Indirect_Literal Discrete,0x290,{0x00000000, 0x0000813b}
028d e00e | | Load 0x0,0xe
028e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
028f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0290 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0294 0000 0000 | | .LITERAL {0x00000000, 0x0000814c}
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a3 | | .CONST 0x02a3 ; Address of begin
0299 02c8 | | .CONST 0x02c8 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b 482e |H. | Short_Literal 0x2e
029c 8231 | 1 | Call 0x1,0x31
029d 01cb | | Execute Vector,Append
029e 00db | | Load_Top At_Offset_3
029f 01cc | | Execute Vector,Catenate
02a0 0007 | | Action Break_Optional
02a1 e233 | 3 | Load 0x1,0x33
02a2 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02a3 BODY_0298:
02a3 00d9 | | Load_Top At_Offset_1
02a4 e004 | | Load 0x0,0x4
02a5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02a6 681f |h | Jump_Zero 0x2c6
02a7 e233 | 3 | Load 0x1,0x33
02a8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02a9 e225 | % | Load 0x1,0x25
02aa e234 | 4 | Load 0x1,0x34
02ab e233 | 3 | Load 0x1,0x33
02ac 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02ad 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02ae 00cf | | Action Mark_Auxiliary
02af 7811 |x | Jump 0x2c1
02b0 4801 |H | Short_Literal 0x1
02b1 00da | | Load_Top At_Offset_2
02b2 e233 | 3 | Load 0x1,0x33
02b3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b5 0217 | | Execute Heap_Access,All_Reference
02b6 e5ff | | Load 0x2,-0x1
02b7 e010 | | Load 0x0,0x10
02b8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02b9 6802 |h | Jump_Zero 0x2bc
02ba 4801 |H | Short_Literal 0x1
02bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bc 00d9 | | Load_Top At_Offset_1
02bd e233 | 3 | Load 0x1,0x33
02be 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02bf 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02c0 00c9 | | Action Pop_Auxiliary_Loop
02c1 00d9 | | Load_Top At_Offset_1
02c2 e233 | 3 | Load 0x1,0x33
02c3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02c4 6feb |o | Jump_Zero 0x2b0
02c5 00ce | | Action Pop_Auxiliary
02c6 4800 |H | Short_Literal 0x0
02c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c8 TRAP_0298:
02c8 0007 | | Action Break_Optional
02c9 e00c | | Load 0x0,0xc
02ca 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cb 4801 |H | Short_Literal 0x1
02cc 4802 |H | Short_Literal 0x2
02cd e00d | | Load 0x0,0xd
02ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02cf 0334 | 4 | Declare_Variable Array,With_Constraint
02d0 0092 086a | j| Action Push_String_Extended,0x86a ; "Rcf_Switch_Implementation.Is_Defined"
02d2 e00d | | Load 0x0,0xd
02d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d4 e00d | | Load 0x0,0xd
02d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d6 0119 | | Execute Any,Check_In_Formal_Type
02d7 4801 |H | Short_Literal 0x1
02d8 00da | | Load_Top At_Offset_2
02d9 01d6 | | Execute Vector,Field_Write
02da 4800 |H | Short_Literal 0x0
02db 4801 |H | Short_Literal 0x1
02dc e00f | | Load 0x0,0xf
02dd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02de e00d | | Load 0x0,0xd
02df 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e0 e00d | | Load 0x0,0xd
02e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02e2 0119 | | Execute Any,Check_In_Formal_Type
02e3 4802 |H | Short_Literal 0x2
02e4 00da | | Load_Top At_Offset_2
02e5 01d6 | | Execute Vector,Field_Write
02e6 4805 |H | Short_Literal 0x5
02e7 67a8 |g | Indirect_Literal Discrete,0x290,{0x00000000, 0x0000813b}
02e8 e00e | | Load 0x0,0xe
02e9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02ea 4800 |H | Short_Literal 0x0
02eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02ff | | .CONST 0x02ff ; Address of begin
02f1 0307 | | .CONST 0x0307 ; Address of exception handler
02f2 0004 | | .CONST 0x0004 ; Number of locals
02f3 INIT_02f0:
02f3 482e |H. | Short_Literal 0x2e
02f4 8231 | 1 | Call 0x1,0x31
02f5 01cb | | Execute Vector,Append
02f6 00db | | Load_Top At_Offset_3
02f7 01cc | | Execute Vector,Catenate
02f8 0007 | | Action Break_Optional
02f9 e226 | & | Load 0x1,0x26
02fa 0007 | | Action Break_Optional
02fb e22c | , | Load 0x1,0x2c
02fc 02ff | | Declare_Variable Variant_Record
02fd 00d8 | | Load_Top At_Offset_0
02fe 1c00 | | Execute_Immediate Run_Utility,0x0
02ff BODY_02f0:
02ff 6060 |`` | Indirect_Literal Discrete,0x360,{0x00000000, 0x00004000}
0300 e011 | | Load 0x0,0x11
0301 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0302 e402 | | Load 0x2,0x2
0303 e5fe | | Load 0x2,-0x2
0304 e004 | | Load 0x0,0x4
0305 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0306 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0307 TRAP_02f0:
0307 e004 | | Load 0x0,0x4
0308 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0309 010f | | Execute Exception,Equal
030a 6816 |h | Jump_Zero 0x321
030b e00c | | Load 0x0,0xc
030c 180e | | Execute Package,Field_Execute,Field_Number 0xe
030d 4801 |H | Short_Literal 0x1
030e 4801 |H | Short_Literal 0x1
030f e00d | | Load 0x0,0xd
0310 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0311 0334 | 4 | Declare_Variable Array,With_Constraint
0312 e402 | | Load 0x2,0x2
0313 e00d | | Load 0x0,0xd
0314 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0315 e00d | | Load 0x0,0xd
0316 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0317 0119 | | Execute Any,Check_In_Formal_Type
0318 4801 |H | Short_Literal 0x1
0319 00da | | Load_Top At_Offset_2
031a 01d6 | | Execute Vector,Field_Write
031b 4805 |H | Short_Literal 0x5
031c 603f |`? | Indirect_Literal Discrete,0x35c,{0x00000000, 0x0000814d}
031d e00e | | Load 0x0,0xe
031e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
031f 4800 |H | Short_Literal 0x0
0320 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0321 e00c | | Load 0x0,0xc
0322 180e | | Execute Package,Field_Execute,Field_Number 0xe
0323 4801 |H | Short_Literal 0x1
0324 4802 |H | Short_Literal 0x2
0325 e00d | | Load 0x0,0xd
0326 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0327 0334 | 4 | Declare_Variable Array,With_Constraint
0328 0092 086b | k| Action Push_String_Extended,0x86b ; "Rcf_Switch_Implementation.Value"
032a e00d | | Load 0x0,0xd
032b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
032c e00d | | Load 0x0,0xd
032d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032e 0119 | | Execute Any,Check_In_Formal_Type
032f 4801 |H | Short_Literal 0x1
0330 00da | | Load_Top At_Offset_2
0331 01d6 | | Execute Vector,Field_Write
0332 4800 |H | Short_Literal 0x0
0333 4801 |H | Short_Literal 0x1
0334 e00f | | Load 0x0,0xf
0335 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0336 e00d | | Load 0x0,0xd
0337 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0338 e00d | | Load 0x0,0xd
0339 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033a 0119 | | Execute Any,Check_In_Formal_Type
033b 4802 |H | Short_Literal 0x2
033c 00da | | Load_Top At_Offset_2
033d 01d6 | | Execute Vector,Field_Write
033e 4805 |H | Short_Literal 0x5
033f 6018 |` | Indirect_Literal Discrete,0x358,{0x00000000, 0x0000813b}
0340 e00e | | Load 0x0,0xe
0341 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0342 e5ff | | Load 0x2,-0x1
0343 8216 | | Call 0x1,0x16
0344 6810 |h | Jump_Zero 0x355
0345 e241 | A | Load 0x1,0x41
0346 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0347 e5ff | | Load 0x2,-0x1
0348 e241 | A | Load 0x1,0x41
0349 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
034a 005b | [ | Store_Top Discrete,At_Offset_3
034b 00da | | Load_Top At_Offset_2
034c e234 | 4 | Load 0x1,0x34
034d e233 | 3 | Load 0x1,0x33
034e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
034f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0350 00da | | Load_Top At_Offset_2
0351 016d | m | Execute Variant_Record,Structure_Write
0352 00d9 | | Load_Top At_Offset_1
0353 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0354 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0355 4800 |H | Short_Literal 0x0
0356 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0357 0000 | | .XXX[0x1]
0358 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
035c 0000 0000 | | .LITERAL {0x00000000, 0x0000814d}
0360 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0364 0000 0000 | | .BLANK 0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0377 | w | .CONST 0x0377 ; Address of begin
0369 037f | | .CONST 0x037f ; Address of exception handler
036a 0004 | | .CONST 0x0004 ; Number of locals
036b INIT_0368:
036b 482e |H. | Short_Literal 0x2e
036c 8231 | 1 | Call 0x1,0x31
036d 01cb | | Execute Vector,Append
036e 00db | | Load_Top At_Offset_3
036f 01cc | | Execute Vector,Catenate
0370 0007 | | Action Break_Optional
0371 e226 | & | Load 0x1,0x26
0372 0007 | | Action Break_Optional
0373 e22c | , | Load 0x1,0x2c
0374 02ff | | Declare_Variable Variant_Record
0375 00d8 | | Load_Top At_Offset_0
0376 1c00 | | Execute_Immediate Run_Utility,0x0
0377 BODY_0368:
0377 67e8 |g | Indirect_Literal Discrete,0x360,{0x00000000, 0x00004000}
0378 e011 | | Load 0x0,0x11
0379 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037a e402 | | Load 0x2,0x2
037b e5fe | | Load 0x2,-0x2
037c e004 | | Load 0x0,0x4
037d 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
037e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
037f TRAP_0368:
037f e004 | | Load 0x0,0x4
0380 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0381 010f | | Execute Exception,Equal
0382 6816 |h | Jump_Zero 0x399
0383 e00c | | Load 0x0,0xc
0384 180e | | Execute Package,Field_Execute,Field_Number 0xe
0385 4801 |H | Short_Literal 0x1
0386 4801 |H | Short_Literal 0x1
0387 e00d | | Load 0x0,0xd
0388 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0389 0334 | 4 | Declare_Variable Array,With_Constraint
038a e402 | | Load 0x2,0x2
038b e00d | | Load 0x0,0xd
038c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
038d e00d | | Load 0x0,0xd
038e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038f 0119 | | Execute Any,Check_In_Formal_Type
0390 4801 |H | Short_Literal 0x1
0391 00da | | Load_Top At_Offset_2
0392 01d6 | | Execute Vector,Field_Write
0393 4805 |H | Short_Literal 0x5
0394 67c7 |g | Indirect_Literal Discrete,0x35c,{0x00000000, 0x0000814d}
0395 e00e | | Load 0x0,0xe
0396 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0397 4800 |H | Short_Literal 0x0
0398 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0399 e00c | | Load 0x0,0xc
039a 180e | | Execute Package,Field_Execute,Field_Number 0xe
039b 4801 |H | Short_Literal 0x1
039c 4802 |H | Short_Literal 0x2
039d e00d | | Load 0x0,0xd
039e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
039f 0334 | 4 | Declare_Variable Array,With_Constraint
03a0 0092 086b | k| Action Push_String_Extended,0x86b ; "Rcf_Switch_Implementation.Value"
03a2 e00d | | Load 0x0,0xd
03a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03a4 e00d | | Load 0x0,0xd
03a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a6 0119 | | Execute Any,Check_In_Formal_Type
03a7 4801 |H | Short_Literal 0x1
03a8 00da | | Load_Top At_Offset_2
03a9 01d6 | | Execute Vector,Field_Write
03aa 4800 |H | Short_Literal 0x0
03ab 4801 |H | Short_Literal 0x1
03ac e00f | | Load 0x0,0xf
03ad 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03ae e00d | | Load 0x0,0xd
03af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b0 e00d | | Load 0x0,0xd
03b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b2 0119 | | Execute Any,Check_In_Formal_Type
03b3 4802 |H | Short_Literal 0x2
03b4 00da | | Load_Top At_Offset_2
03b5 01d6 | | Execute Vector,Field_Write
03b6 4805 |H | Short_Literal 0x5
03b7 67a0 |g | Indirect_Literal Discrete,0x358,{0x00000000, 0x0000813b}
03b8 e00e | | Load 0x0,0xe
03b9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03ba e5ff | | Load 0x2,-0x1
03bb 8216 | | Call 0x1,0x16
03bc 6810 |h | Jump_Zero 0x3cd
03bd e241 | A | Load 0x1,0x41
03be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03bf e5ff | | Load 0x2,-0x1
03c0 e241 | A | Load 0x1,0x41
03c1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03c2 005b | [ | Store_Top Discrete,At_Offset_3
03c3 00da | | Load_Top At_Offset_2
03c4 e234 | 4 | Load 0x1,0x34
03c5 e233 | 3 | Load 0x1,0x33
03c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03c8 00da | | Load_Top At_Offset_2
03c9 016d | m | Execute Variant_Record,Structure_Write
03ca 00d9 | | Load_Top At_Offset_1
03cb 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03cd 4800 |H | Short_Literal 0x0
03ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03cf 0000 | | .XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03df | | .CONST 0x03df ; Address of begin
03d1 03e7 | | .CONST 0x03e7 ; Address of exception handler
03d2 0004 | | .CONST 0x0004 ; Number of locals
03d3 INIT_03d0:
03d3 482e |H. | Short_Literal 0x2e
03d4 8231 | 1 | Call 0x1,0x31
03d5 01cb | | Execute Vector,Append
03d6 00db | | Load_Top At_Offset_3
03d7 01cc | | Execute Vector,Catenate
03d8 0007 | | Action Break_Optional
03d9 e226 | & | Load 0x1,0x26
03da 0007 | | Action Break_Optional
03db e22c | , | Load 0x1,0x2c
03dc 02ff | | Declare_Variable Variant_Record
03dd 00d8 | | Load_Top At_Offset_0
03de 1c00 | | Execute_Immediate Run_Utility,0x0
03df BODY_03d0:
03df 6064 |`d | Indirect_Literal Discrete,0x444,{0x00000000, 0x00004000}
03e0 e011 | | Load 0x0,0x11
03e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e2 e402 | | Load 0x2,0x2
03e3 e5fe | | Load 0x2,-0x2
03e4 e004 | | Load 0x0,0x4
03e5 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e7 TRAP_03d0:
03e7 e004 | | Load 0x0,0x4
03e8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03e9 010f | | Execute Exception,Equal
03ea 6816 |h | Jump_Zero 0x401
03eb e00c | | Load 0x0,0xc
03ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ed 4801 |H | Short_Literal 0x1
03ee 4801 |H | Short_Literal 0x1
03ef e00d | | Load 0x0,0xd
03f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f1 0334 | 4 | Declare_Variable Array,With_Constraint
03f2 e402 | | Load 0x2,0x2
03f3 e00d | | Load 0x0,0xd
03f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03f5 e00d | | Load 0x0,0xd
03f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f7 0119 | | Execute Any,Check_In_Formal_Type
03f8 4801 |H | Short_Literal 0x1
03f9 00da | | Load_Top At_Offset_2
03fa 01d6 | | Execute Vector,Field_Write
03fb 4805 |H | Short_Literal 0x5
03fc 6043 |`C | Indirect_Literal Discrete,0x440,{0x00000000, 0x0000814d}
03fd e00e | | Load 0x0,0xe
03fe 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03ff 00ea | | Load_Encached Null_String_Cache
0400 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0401 e00c | | Load 0x0,0xc
0402 180e | | Execute Package,Field_Execute,Field_Number 0xe
0403 4801 |H | Short_Literal 0x1
0404 4802 |H | Short_Literal 0x2
0405 e00d | | Load 0x0,0xd
0406 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0407 0334 | 4 | Declare_Variable Array,With_Constraint
0408 0092 086b | k| Action Push_String_Extended,0x86b ; "Rcf_Switch_Implementation.Value"
040a e00d | | Load 0x0,0xd
040b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
040c e00d | | Load 0x0,0xd
040d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040e 0119 | | Execute Any,Check_In_Formal_Type
040f 4801 |H | Short_Literal 0x1
0410 00da | | Load_Top At_Offset_2
0411 01d6 | | Execute Vector,Field_Write
0412 4800 |H | Short_Literal 0x0
0413 4801 |H | Short_Literal 0x1
0414 e00f | | Load 0x0,0xf
0415 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0416 e00d | | Load 0x0,0xd
0417 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0418 e00d | | Load 0x0,0xd
0419 1b0e | | Execute Package,Field_Read,Field_Number 0xe
041a 0119 | | Execute Any,Check_In_Formal_Type
041b 4802 |H | Short_Literal 0x2
041c 00da | | Load_Top At_Offset_2
041d 01d6 | | Execute Vector,Field_Write
041e 4805 |H | Short_Literal 0x5
041f 601c |` | Indirect_Literal Discrete,0x43c,{0x00000000, 0x0000813b}
0420 e00e | | Load 0x0,0xe
0421 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0422 e5ff | | Load 0x2,-0x1
0423 8216 | | Call 0x1,0x16
0424 6813 |h | Jump_Zero 0x438
0425 e241 | A | Load 0x1,0x41
0426 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0427 e5ff | | Load 0x2,-0x1
0428 e241 | A | Load 0x1,0x41
0429 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
042a 005b | [ | Store_Top Discrete,At_Offset_3
042b 00da | | Load_Top At_Offset_2
042c e234 | 4 | Load 0x1,0x34
042d e233 | 3 | Load 0x1,0x33
042e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
042f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0430 00da | | Load_Top At_Offset_2
0431 016d | m | Execute Variant_Record,Structure_Write
0432 00d9 | | Load_Top At_Offset_1
0433 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0434 0217 | | Execute Heap_Access,All_Reference
0435 0335 | 5 | Declare_Variable Array,Duplicate
0436 00cd | | Action Spare6_Action
0437 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0438 00ea | | Load_Encached Null_String_Cache
0439 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
043a 0000 0000 | | .XXX[0x2]
043c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0440 0000 0000 | | .LITERAL {0x00000000, 0x0000814d}
0444 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 4607 |F | Jump_Case 0x8
044c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
044d 7806 |x | Jump 0x454 ; case 0x1
044e 7809 |x | Jump 0x458 ; case 0x2
044f 780d |x | Jump 0x45d ; case 0x3
0450 7810 |x | Jump 0x461 ; case 0x4
0451 7811 |x | Jump 0x463 ; case 0x5
0452 7812 |x | Jump 0x465 ; case 0x6
0453 7815 |x | Jump 0x469 ; case 0x7
0454 00da | | Load_Top At_Offset_2
0455 0091 085b | [| Action Push_String_Extended_Indexed,0x85b ; "BOOLEAN_KIND"
0457 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0458 00db | | Load_Top At_Offset_3
0459 00db | | Load_Top At_Offset_3
045a 00e0 | | Load_Encached Standard_Cache
045b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
045c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
045d 00da | | Load_Top At_Offset_2
045e 00e0 | | Load_Encached Standard_Cache
045f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0460 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0461 00db | | Load_Top At_Offset_3
0462 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0463 00db | | Load_Top At_Offset_3
0464 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0465 e22b | + | Load 0x1,0x2b
0466 00dc | | Load_Top At_Offset_4
0467 0267 | g | Execute Discrete,Predecessor
0468 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0469 e22b | + | Load 0x1,0x2b
046a 00dc | | Load_Top At_Offset_4
046b 0268 | h | Execute Discrete,Successor
046c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
046d 0000 0000 | | .XXX[0x3]
046f 0000 | |
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 4608 |F | Jump_Case 0x9
0474 7808 |x | Jump 0x47d ; case 0x0
0475 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0476 783f |x? | Jump 0x4b6 ; case 0x2
0477 783e |x> | Jump 0x4b6 ; case 0x3
0478 783d |x= | Jump 0x4b6 ; case 0x4
0479 783c |x< | Jump 0x4b6 ; case 0x5
047a 7815 |x | Jump 0x490 ; case 0x6
047b 7822 |x" | Jump 0x49e ; case 0x7
047c 7832 |x2 | Jump 0x4af ; case 0x8
047d 00da | | Load_Top At_Offset_2
047e 016c | l | Execute Variant_Record,Is_Constrained
047f 7009 |p | Jump_Nonzero 0x489
0480 00cf | | Action Mark_Auxiliary
0481 4803 |H | Short_Literal 0x3
0482 e5ff | | Load 0x2,-0x1
0483 1c08 | | Execute_Immediate Run_Utility,0x8
0484 00d8 | | Load_Top At_Offset_0
0485 1c00 | | Execute_Immediate Run_Utility,0x0
0486 c5ff | | Store 0x2,-0x1
0487 00ce | | Action Pop_Auxiliary
0488 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0489 00da | | Load_Top At_Offset_2
048a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
048b 4603 |F | Jump_Case 0x4
048c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
048e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
048f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0490 00db | | Load_Top At_Offset_3
0491 4603 |F | Jump_Case 0x4
0492 7805 |x | Jump 0x498 ; case 0x0
0493 7806 |x | Jump 0x49a ; case 0x1
0494 7807 |x | Jump 0x49c ; case 0x2
0495 7800 |x | Jump 0x496 ; case 0x3
0496 48ff |H | Short_Literal 0xff
0497 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0498 4801 |H | Short_Literal 0x1
0499 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
049a 4802 |H | Short_Literal 0x2
049b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
049c 4803 |H | Short_Literal 0x3
049d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
049e 00db | | Load_Top At_Offset_3
049f e5fe | | Load 0x2,-0x2
04a0 4603 |F | Jump_Case 0x4
04a1 7805 |x | Jump 0x4a7 ; case 0x0
04a2 7806 |x | Jump 0x4a9 ; case 0x1
04a3 7807 |x | Jump 0x4ab ; case 0x2
04a4 7800 |x | Jump 0x4a5 ; case 0x3
04a5 48ff |H | Short_Literal 0xff
04a6 7805 |x | Jump 0x4ac
04a7 4801 |H | Short_Literal 0x1
04a8 7803 |x | Jump 0x4ac
04a9 4802 |H | Short_Literal 0x2
04aa 7801 |x | Jump 0x4ac
04ab 4803 |H | Short_Literal 0x3
04ac e5ff | | Load 0x2,-0x1
04ad 031b | | Declare_Type Variant_Record,Constrained
04ae 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04af 00db | | Load_Top At_Offset_3
04b0 e5fe | | Load 0x2,-0x2
04b1 e5ff | | Load 0x2,-0x1
04b2 1c06 | | Execute_Immediate Run_Utility,0x6
04b3 e5ff | | Load 0x2,-0x1
04b4 02fc | | Declare_Variable Variant_Record,With_Constraint
04b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b6 0869 | i | Execute_Immediate Raise,0x69
04b7 0000 | | .XXX[0x1]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 4608 |F | Jump_Case 0x9
04bc 7808 |x | Jump 0x4c5 ; case 0x0
04bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04be 780a |x | Jump 0x4c9 ; case 0x2
04bf 7809 |x | Jump 0x4c9 ; case 0x3
04c0 7808 |x | Jump 0x4c9 ; case 0x4
04c1 7807 |x | Jump 0x4c9 ; case 0x5
04c2 7806 |x | Jump 0x4c9 ; case 0x6
04c3 7805 |x | Jump 0x4c9 ; case 0x7
04c4 7804 |x | Jump 0x4c9 ; case 0x8
04c5 00da | | Load_Top At_Offset_2
04c6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04c7 1c00 | | Execute_Immediate Run_Utility,0x0
04c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04c9 0869 | i | Execute_Immediate Raise,0x69
04ca 0000 0000 | | .BLANK 0000[0x6]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04f8 | | .CONST 0x04f8 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0009 | | .CONST 0x0009 ; Number of locals
04d3 INIT_04d0:
04d3 e012 | | Load 0x0,0x12
04d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d5 02c7 | | Declare_Variable Any
04d6 00d8 | | Load_Top At_Offset_0
04d7 1c00 | | Execute_Immediate Run_Utility,0x0
04d8 e012 | | Load 0x0,0x12
04d9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04da 02ff | | Declare_Variable Variant_Record
04db 00d8 | | Load_Top At_Offset_0
04dc 1c00 | | Execute_Immediate Run_Utility,0x0
04dd e012 | | Load 0x0,0x12
04de 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e0 02c7 | | Declare_Variable Any
04e1 00d8 | | Load_Top At_Offset_0
04e2 1c00 | | Execute_Immediate Run_Utility,0x0
04e3 e012 | | Load 0x0,0x12
04e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04e5 02c7 | | Declare_Variable Any
04e6 00d8 | | Load_Top At_Offset_0
04e7 1c00 | | Execute_Immediate Run_Utility,0x0
04e8 e012 | | Load 0x0,0x12
04e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ea e012 | | Load 0x0,0x12
04eb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ed e011 | | Load 0x0,0x11
04ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ef 02c7 | | Declare_Variable Any
04f0 e011 | | Load 0x0,0x11
04f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f2 a408 | | Store_Unchecked 0x2,0x8
04f3 e004 | | Load 0x0,0x4
04f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f5 02ff | | Declare_Variable Variant_Record
04f6 00d8 | | Load_Top At_Offset_0
04f7 1c00 | | Execute_Immediate Run_Utility,0x0
04f8 BODY_04d0:
04f8 e012 | | Load 0x0,0x12
04f9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04fb e403 | | Load 0x2,0x3
04fc 604b |`K | Indirect_Literal Discrete,0x548,{0x00000000, 0x00004000}
04fd e011 | | Load 0x0,0x11
04fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ff 4800 |H | Short_Literal 0x0
0500 e013 | | Load 0x0,0x13
0501 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0502 e012 | | Load 0x0,0x12
0503 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0504 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0505 0092 086c | l| Action Push_String_Extended,0x86c ; "$"
0507 e012 | | Load 0x0,0x12
0508 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0509 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
050a 00d1 | | Pop_Control Pop_Count_1
050b 005b | [ | Store_Top Discrete,At_Offset_3
050c e012 | | Load 0x0,0x12
050d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050e e402 | | Load 0x2,0x2
050f 0120 | | Execute Any,Is_Value
0510 6803 |h | Jump_Zero 0x514
0511 e012 | | Load 0x0,0x12
0512 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0513 7801 |x | Jump 0x515
0514 e402 | | Load 0x2,0x2
0515 6032 |`2 | Indirect_Literal Discrete,0x548,{0x00000000, 0x00004000}
0516 e011 | | Load 0x0,0x11
0517 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0518 e403 | | Load 0x2,0x3
0519 e012 | | Load 0x0,0x12
051a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
051b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
051c c402 | | Store 0x2,0x2
051d c406 | | Store 0x2,0x6
051e 00db | | Load_Top At_Offset_3
051f 7026 |p& | Jump_Nonzero 0x546
0520 e402 | | Load 0x2,0x2
0521 e012 | | Load 0x0,0x12
0522 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0523 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0524 c404 | | Store 0x2,0x4
0525 e012 | | Load 0x0,0x12
0526 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0527 e405 | | Load 0x2,0x5
0528 0120 | | Execute Any,Is_Value
0529 6803 |h | Jump_Zero 0x52d
052a e012 | | Load 0x0,0x12
052b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
052c 7801 |x | Jump 0x52e
052d e405 | | Load 0x2,0x5
052e 6019 |` | Indirect_Literal Discrete,0x548,{0x00000000, 0x00004000}
052f e408 | | Load 0x2,0x8
0530 e404 | | Load 0x2,0x4
0531 e012 | | Load 0x0,0x12
0532 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0533 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0534 c405 | | Store 0x2,0x5
0535 c406 | | Store 0x2,0x6
0536 00db | | Load_Top At_Offset_3
0537 700e |p | Jump_Nonzero 0x546
0538 e012 | | Load 0x0,0x12
0539 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053a 00d9 | | Load_Top At_Offset_1
053b 600c |` | Indirect_Literal Discrete,0x548,{0x00000000, 0x00004000}
053c e408 | | Load 0x2,0x8
053d 4800 |H | Short_Literal 0x0
053e e405 | | Load 0x2,0x5
053f e012 | | Load 0x0,0x12
0540 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0541 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0542 00d1 | | Pop_Control Pop_Count_1
0543 c406 | | Store 0x2,0x6
0544 00d8 | | Load_Top At_Offset_0
0545 00ca | | Action Exit_Nullary_Function
0546 0831 | 1 | Execute_Immediate Raise,0x31
0547 0000 | | .XXX[0x1]
0548 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
054c 0000 0000 | | .BLANK 0000[0x4]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 0092 086d | m| Action Push_String_Extended,0x86d ; "Rcf"
0555 e014 | | Load 0x0,0x14
0556 180e | | Execute Package,Field_Execute,Field_Number 0xe
0557 01cc | | Execute Vector,Catenate
0558 00ca | | Action Exit_Nullary_Function
0559 0000 0000 | | .BLANK 0000[0x7]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 00da | | Load_Top At_Offset_2
0564 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0565 0000 0000 | | .XXX[0x3]
0567 0000 | |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0576 | v | .CONST 0x0576 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0004 | | .CONST 0x0004 ; Number of locals
056b INIT_0568:
056b 00da | | Load_Top At_Offset_2
056c 01dd | | Execute Vector,First
056d 00e2 | | Load_Encached Integer_Cache
056e 03f1 | | Declare_Variable Discrete,With_Value
056f 00db | | Load_Top At_Offset_3
0570 01dc | | Execute Vector,Last
0571 00e2 | | Load_Encached Integer_Cache
0572 03f1 | | Declare_Variable Discrete,With_Value
0573 00d9 | | Load_Top At_Offset_1
0574 00e3 | | Load_Encached Natural_Cache
0575 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0576 BODY_0568:
0576 00cf | | Action Mark_Auxiliary
0577 782f |x/ | Jump 0x5a7
0578 4801 |H | Short_Literal 0x1
0579 00da | | Load_Top At_Offset_2
057a e403 | | Load 0x2,0x3
057b e5ff | | Load 0x2,-0x1
057c 01cf | | Execute Vector,Slice_Read
057d e5fe | | Load 0x2,-0x2
057e e010 | | Load 0x0,0x10
057f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0580 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0581 00d9 | | Load_Top At_Offset_1
0582 0c01 | | Execute_Immediate Greater_Equal,0x1
0583 682b |h+ | Jump_Zero 0x5af
0584 00d9 | | Load_Top At_Offset_1
0585 e5fe | | Load 0x2,-0x2
0586 01db | | Execute Vector,Length
0587 0273 | s | Execute Discrete,Plus
0588 e5ff | | Load 0x2,-0x1
0589 01d7 | | Execute Vector,Field_Read
058a 0f20 | | Execute_Immediate Equal,0x20
058b 6816 |h | Jump_Zero 0x5a2
058c 00d9 | | Load_Top At_Offset_1
058d e402 | | Load 0x2,0x2
058e 027f | | Execute Discrete,Equal
058f 7006 |p | Jump_Nonzero 0x596
0590 00d9 | | Load_Top At_Offset_1
0591 0aff | | Execute_Immediate Plus,-0x1
0592 e5ff | | Load 0x2,-0x1
0593 01d7 | | Execute Vector,Field_Read
0594 0f0a | | Execute_Immediate Equal,0xa
0595 680c |h | Jump_Zero 0x5a2
0596 00d9 | | Load_Top At_Offset_1
0597 4800 |H | Short_Literal 0x0
0598 00db | | Load_Top At_Offset_3
0599 e403 | | Load 0x2,0x3
059a e5ff | | Load 0x2,-0x1
059b 01cf | | Execute Vector,Slice_Read
059c 480a |H | Short_Literal 0xa
059d e010 | | Load 0x0,0x10
059e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
059f e5ff | | Load 0x2,-0x1
05a0 01cf | | Execute Vector,Slice_Read
05a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a2 00d9 | | Load_Top At_Offset_1
05a3 0a01 | | Execute_Immediate Plus,0x1
05a4 005a | Z | Store_Top Discrete,At_Offset_2
05a5 7800 |x | Jump 0x5a6
05a6 00c9 | | Action Pop_Auxiliary_Loop
05a7 00d9 | | Load_Top At_Offset_1
05a8 00db | | Load_Top At_Offset_3
05a9 e5fe | | Load 0x2,-0x2
05aa 01db | | Execute Vector,Length
05ab 0272 | r | Execute Discrete,Minus
05ac 0aff | | Execute_Immediate Plus,-0x1
05ad 027a | z | Execute Discrete,Less_Equal
05ae 77c9 |w | Jump_Nonzero 0x578
05af 00ce | | Action Pop_Auxiliary
05b0 00ea | | Load_Encached Null_String_Cache
05b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05b2 0000 0000 | | .BLANK 0000[0x6]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00da | | Load_Top At_Offset_2
05bc 01dd | | Execute Vector,First
05bd 00db | | Load_Top At_Offset_3
05be 01d7 | | Execute Vector,Field_Read
05bf 0e22 | " | Execute_Immediate Not_Equal,0x22
05c0 6803 |h | Jump_Zero 0x5c4
05c1 e004 | | Load 0x0,0x4
05c2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
05c3 0257 | W | Execute Discrete,Raise
05c4 00cf | | Action Mark_Auxiliary
05c5 00db | | Load_Top At_Offset_3
05c6 01dc | | Execute Vector,Last
05c7 0aff | | Execute_Immediate Plus,-0x1
05c8 00d8 | | Load_Top At_Offset_0
05c9 00e2 | | Load_Encached Integer_Cache
05ca 0260 | ` | Execute Discrete,In_Type
05cb 7001 |p | Jump_Nonzero 0x5cd
05cc 0801 | | Execute_Immediate Raise,0x1
05cd e5ff | | Load 0x2,-0x1
05ce 01dd | | Execute Vector,First
05cf 0a01 | | Execute_Immediate Plus,0x1
05d0 00d8 | | Load_Top At_Offset_0
05d1 00e2 | | Load_Encached Integer_Cache
05d2 0260 | ` | Execute Discrete,In_Type
05d3 7001 |p | Jump_Nonzero 0x5d5
05d4 0801 | | Execute_Immediate Raise,0x1
05d5 0263 | c | Execute Discrete,Above_Bound
05d6 7020 |p | Jump_Nonzero 0x5f7
05d7 00d8 | | Load_Top At_Offset_0
05d8 e5ff | | Load 0x2,-0x1
05d9 01d7 | | Execute Vector,Field_Read
05da 0f22 | " | Execute_Immediate Equal,0x22
05db 6819 |h | Jump_Zero 0x5f5
05dc e5ff | | Load 0x2,-0x1
05dd 01dd | | Execute Vector,First
05de 0a01 | | Execute_Immediate Plus,0x1
05df 00d8 | | Load_Top At_Offset_0
05e0 00e2 | | Load_Encached Integer_Cache
05e1 0260 | ` | Execute Discrete,In_Type
05e2 7001 |p | Jump_Nonzero 0x5e4
05e3 0801 | | Execute_Immediate Raise,0x1
05e4 00d9 | | Load_Top At_Offset_1
05e5 e5ff | | Load 0x2,-0x1
05e6 01cf | | Execute Vector,Slice_Read
05e7 00d9 | | Load_Top At_Offset_1
05e8 0a01 | | Execute_Immediate Plus,0x1
05e9 00d8 | | Load_Top At_Offset_0
05ea 00e2 | | Load_Encached Integer_Cache
05eb 0260 | ` | Execute Discrete,In_Type
05ec 7001 |p | Jump_Nonzero 0x5ee
05ed 0801 | | Execute_Immediate Raise,0x1
05ee e5ff | | Load 0x2,-0x1
05ef 01dc | | Execute Vector,Last
05f0 e5ff | | Load 0x2,-0x1
05f1 01cf | | Execute Vector,Slice_Read
05f2 8237 | 7 | Call 0x1,0x37
05f3 01cc | | Execute Vector,Catenate
05f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f5 00c8 | | Action Pop_Auxiliary_Range
05f6 3fe0 |? | Loop_Increasing 0x5d7
05f7 00ce | | Action Pop_Auxiliary
05f8 00da | | Load_Top At_Offset_2
05f9 01dc | | Execute Vector,Last
05fa 00db | | Load_Top At_Offset_3
05fb 01d7 | | Execute Vector,Field_Read
05fc 0e22 | " | Execute_Immediate Not_Equal,0x22
05fd 6803 |h | Jump_Zero 0x601
05fe e004 | | Load 0x0,0x4
05ff 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0600 0257 | W | Execute Discrete,Raise
0601 00da | | Load_Top At_Offset_2
0602 01dd | | Execute Vector,First
0603 0a01 | | Execute_Immediate Plus,0x1
0604 00d8 | | Load_Top At_Offset_0
0605 00e2 | | Load_Encached Integer_Cache
0606 0260 | ` | Execute Discrete,In_Type
0607 7001 |p | Jump_Nonzero 0x609
0608 0801 | | Execute_Immediate Raise,0x1
0609 00db | | Load_Top At_Offset_3
060a 01dc | | Execute Vector,Last
060b 0aff | | Execute_Immediate Plus,-0x1
060c 00d8 | | Load_Top At_Offset_0
060d 00e2 | | Load_Encached Integer_Cache
060e 0260 | ` | Execute Discrete,In_Type
060f 7001 |p | Jump_Nonzero 0x611
0610 0801 | | Execute_Immediate Raise,0x1
0611 e5ff | | Load 0x2,-0x1
0612 01cf | | Execute Vector,Slice_Read
0613 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0614 0000 0000 | | .BLANK 0000[0x4]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b | | .CONST 0x061b ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0001 | | .CONST 0x0001 ; Number of locals
061b BODY_0618:
061b INIT_0618:
061b 00cf | | Action Mark_Auxiliary
061c 00db | | Load_Top At_Offset_3
061d 01d9 | | Execute Vector,Reverse_Bounds
061e 0263 | c | Execute Discrete,Above_Bound
061f 701c |p | Jump_Nonzero 0x63c
0620 00d8 | | Load_Top At_Offset_0
0621 e5ff | | Load 0x2,-0x1
0622 01d7 | | Execute Vector,Field_Read
0623 0f22 | " | Execute_Immediate Equal,0x22
0624 6815 |h | Jump_Zero 0x63a
0625 4822 |H" | Short_Literal 0x22
0626 e5ff | | Load 0x2,-0x1
0627 01dd | | Execute Vector,First
0628 00da | | Load_Top At_Offset_2
0629 e5ff | | Load 0x2,-0x1
062a 01cf | | Execute Vector,Slice_Read
062b 01ca | | Execute Vector,Prepend
062c 00d9 | | Load_Top At_Offset_1
062d 0a01 | | Execute_Immediate Plus,0x1
062e 00d8 | | Load_Top At_Offset_0
062f 00e2 | | Load_Encached Integer_Cache
0630 0260 | ` | Execute Discrete,In_Type
0631 7001 |p | Jump_Nonzero 0x633
0632 0801 | | Execute_Immediate Raise,0x1
0633 e5ff | | Load 0x2,-0x1
0634 01dc | | Execute Vector,Last
0635 e5ff | | Load 0x2,-0x1
0636 01cf | | Execute Vector,Slice_Read
0637 8238 | 8 | Call 0x1,0x38
0638 01cc | | Execute Vector,Catenate
0639 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
063a 00c8 | | Action Pop_Auxiliary_Range
063b 3fe4 |? | Loop_Increasing 0x620
063c 00ce | | Action Pop_Auxiliary
063d 4822 |H" | Short_Literal 0x22
063e 4822 |H" | Short_Literal 0x22
063f e5ff | | Load 0x2,-0x1
0640 01ca | | Execute Vector,Prepend
0641 01cb | | Execute Vector,Append
0642 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0643 0000 0000 | | .BLANK 0000[0x5]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064d | M | .CONST 0x064d ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0002 | | .CONST 0x0002 ; Number of locals
064b INIT_0648:
064b 029f 071b | | Declare_Subprogram INIT_0718,For_Call
064d BODY_0648:
064d 8402 | | Call 0x2,0x2
064e 0831 | 1 | Execute_Immediate Raise,0x31
064f 0000 | | .XXX[0x1]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 00da | | Load_Top At_Offset_2
0654 e234 | 4 | Load 0x1,0x34
0655 e233 | 3 | Load 0x1,0x33
0656 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0657 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0658 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0659 4603 |F | Jump_Case 0x4
065a 7804 |x | Jump 0x65f ; case 0x0
065b 7805 |x | Jump 0x661 ; case 0x1
065c 7806 |x | Jump 0x663 ; case 0x2
065d 7800 |x | Jump 0x65e ; case 0x3
065e 08e2 | | Execute_Immediate Raise,0xe2
065f 4800 |H | Short_Literal 0x0
0660 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0661 4801 |H | Short_Literal 0x1
0662 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0663 4802 |H | Short_Literal 0x2
0664 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0665 0000 0000 | | .XXX[0x3]
0667 0000 | |
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 0670 | p | .CONST 0x0670 ; Address of begin
0669 0673 | s | .CONST 0x0673 ; Address of exception handler
066a 0004 | | .CONST 0x0004 ; Number of locals
066b INIT_0668:
066b 00e3 | | Load_Encached Natural_Cache
066c 029f 074b | K| Declare_Subprogram INIT_0748,For_Call
066e 029f 075b | [| Declare_Subprogram INIT_0758,For_Call
0670 BODY_0668:
0670 8403 | | Call 0x2,0x3
0671 8404 | | Call 0x2,0x4
0672 0831 | 1 | Execute_Immediate Raise,0x31
0673 TRAP_0668:
0673 0007 | | Action Break_Optional
0674 e00c | | Load 0x0,0xc
0675 180e | | Execute Package,Field_Execute,Field_Number 0xe
0676 4801 |H | Short_Literal 0x1
0677 4802 |H | Short_Literal 0x2
0678 e00d | | Load 0x0,0xd
0679 1b0f | | Execute Package,Field_Read,Field_Number 0xf
067a 0334 | 4 | Declare_Variable Array,With_Constraint
067b 0092 086e | n| Action Push_String_Extended,0x86e ; "Rcf_Switch_Implementation.Help"
067d e00d | | Load 0x0,0xd
067e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
067f e00d | | Load 0x0,0xd
0680 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0681 0119 | | Execute Any,Check_In_Formal_Type
0682 4801 |H | Short_Literal 0x1
0683 00da | | Load_Top At_Offset_2
0684 01d6 | | Execute Vector,Field_Write
0685 4800 |H | Short_Literal 0x0
0686 4801 |H | Short_Literal 0x1
0687 e00f | | Load 0x0,0xf
0688 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0689 e00d | | Load 0x0,0xd
068a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
068b e00d | | Load 0x0,0xd
068c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
068d 0119 | | Execute Any,Check_In_Formal_Type
068e 4802 |H | Short_Literal 0x2
068f 00da | | Load_Top At_Offset_2
0690 01d6 | | Execute Vector,Field_Write
0691 4805 |H | Short_Literal 0x5
0692 6005 |` | Indirect_Literal Discrete,0x698,{0x00000000, 0x0000813b}
0693 e00e | | Load 0x0,0xe
0694 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0695 00ea | | Load_Encached Null_String_Cache
0696 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0697 0000 | | .XXX[0x1]
0698 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
069c 0000 0000 | | .BLANK 0000[0x4]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a7 | | .CONST 0x06a7 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0003 | | .CONST 0x0003 ; Number of locals
06a3 INIT_06a0:
06a3 029f 0783 | | Declare_Subprogram INIT_0780,For_Call
06a5 029f 0793 | | Declare_Subprogram INIT_0790,For_Call
06a7 BODY_06a0:
06a7 e00c | | Load 0x0,0xc
06a8 180e | | Execute Package,Field_Execute,Field_Number 0xe
06a9 4801 |H | Short_Literal 0x1
06aa 0092 086f | o| Action Push_String_Extended,0x86f ; "IMAGE - value => "
06ac e5ff | | Load 0x2,-0x1
06ad 01cc | | Execute Vector,Catenate
06ae 0092 0870 | p| Action Push_String_Extended,0x870 ; ", field => "
06b0 01cc | | Execute Vector,Catenate
06b1 e5fe | | Load 0x2,-0x2
06b2 00e0 | | Load_Encached Standard_Cache
06b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06b4 01cc | | Execute Vector,Catenate
06b5 e015 | | Load 0x0,0x15
06b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06b7 8403 | | Call 0x2,0x3
06b8 0831 | 1 | Execute_Immediate Raise,0x31
06b9 0000 0000 | | .BLANK 0000[0x7]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06d2 | | .CONST 0x06d2 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0006 | | .CONST 0x0006 ; Number of locals
06c3 INIT_06c0:
06c3 00db | | Load_Top At_Offset_3
06c4 8239 | 9 | Call 0x1,0x39
06c5 4801 |H | Short_Literal 0x1
06c6 00d9 | | Load_Top At_Offset_1
06c7 e5fd | | Load 0x2,-0x3
06c8 e010 | | Load 0x0,0x10
06c9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
06ca 00e1 | | Load_Encached Boolean_Cache
06cb 03f1 | | Declare_Variable Discrete,With_Value
06cc 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call
06ce 029f 07f3 | | Declare_Subprogram INIT_07f0,For_Call
06d0 029f 0803 | | Declare_Subprogram INIT_0800,For_Call
06d2 BODY_06c0:
06d2 e00c | | Load 0x0,0xc
06d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
06d4 4801 |H | Short_Literal 0x1
06d5 0092 0871 | q| Action Push_String_Extended,0x871 ; "VALUE - Input =>"
06d7 e5ff | | Load 0x2,-0x1
06d8 01cc | | Execute Vector,Catenate
06d9 0092 0870 | p| Action Push_String_Extended,0x870 ; ", field => "
06db 01cc | | Execute Vector,Catenate
06dc e5fe | | Load 0x2,-0x2
06dd 00e0 | | Load_Encached Standard_Cache
06de 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06df 01cc | | Execute Vector,Catenate
06e0 0092 0872 | r| Action Push_String_Extended,0x872 ; ", image => "
06e2 01cc | | Execute Vector,Catenate
06e3 e5fd | | Load 0x2,-0x3
06e4 01cc | | Execute Vector,Catenate
06e5 0092 0873 | s| Action Push_String_Extended,0x873 ; ", default_image => "
06e7 01cc | | Execute Vector,Catenate
06e8 e402 | | Load 0x2,0x2
06e9 01cc | | Execute Vector,Catenate
06ea 0092 0874 | t| Action Push_String_Extended,0x874 ; ", is_default => "
06ec 01cc | | Execute Vector,Catenate
06ed e403 | | Load 0x2,0x3
06ee 00e1 | | Load_Encached Boolean_Cache
06ef 011c | | Execute Any,Convert_Unchecked
06f0 1c01 | | Execute_Immediate Run_Utility,0x1
06f1 01cc | | Execute Vector,Catenate
06f2 e015 | | Load 0x0,0x15
06f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06f4 8406 | | Call 0x2,0x6
06f5 0831 | 1 | Execute_Immediate Raise,0x31
06f6 0000 0000 | | .XXX[0x2]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb 00ea | | Load_Encached Null_String_Cache
06fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06fd 0000 0000 | | .XXX[0x3]
06ff 0000 | |
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703 | | .CONST 0x0703 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0001 | | .CONST 0x0001 ; Number of locals
0703 BODY_0700:
0703 INIT_0700:
0703 00da | | Load_Top At_Offset_2
0704 e234 | 4 | Load 0x1,0x34
0705 e233 | 3 | Load 0x1,0x33
0706 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0707 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0708 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0709 4603 |F | Jump_Case 0x4
070a 7804 |x | Jump 0x70f ; case 0x0
070b 7806 |x | Jump 0x712 ; case 0x1
070c 7808 |x | Jump 0x715 ; case 0x2
070d 7800 |x | Jump 0x70e ; case 0x3
070e 08e2 | | Execute_Immediate Raise,0xe2
070f 0092 0875 | u| Action Push_String_Extended,0x875 ; "Boolean"
0711 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0712 0092 0876 | v| Action Push_String_Extended,0x876 ; "Integer"
0714 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0715 0092 0877 | w| Action Push_String_Extended,0x877 ; "String"
0717 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 0721 | ! | .CONST 0x0721 ; Address of begin
0719 073e | > | .CONST 0x073e ; Address of exception handler
071a 0002 | | .CONST 0x0002 ; Number of locals
071b INIT_0718:
071b e5ff | | Load 0x2,-0x1
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 0007 | | Action Break_Optional
0721 BODY_0718:
0721 00d8 | | Load_Top At_Offset_0
0722 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0723 4603 |F | Jump_Case 0x4
0724 7812 |x | Jump 0x737 ; case 0x0
0725 7802 |x | Jump 0x728 ; case 0x1
0726 780a |x | Jump 0x731 ; case 0x2
0727 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3
0728 4820 |H | Short_Literal 0x20
0729 00d9 | | Load_Top At_Offset_1
072a 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
072b 00e0 | | Load_Encached Standard_Cache
072c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
072d e010 | | Load 0x0,0x10
072e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
072f 00cb | | Action Pop_Block_With_Result
0730 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0731 00d8 | | Load_Top At_Offset_0
0732 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0733 0217 | | Execute Heap_Access,All_Reference
0734 8238 | 8 | Call 0x1,0x38
0735 00cb | | Action Pop_Block_With_Result
0736 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0737 00d8 | | Load_Top At_Offset_0
0738 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0739 00e1 | | Load_Encached Boolean_Cache
073a 011c | | Execute Any,Convert_Unchecked
073b 1c01 | | Execute_Immediate Run_Utility,0x1
073c 00cb | | Action Pop_Block_With_Result
073d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
073e TRAP_0718:
073e e233 | 3 | Load 0x1,0x33
073f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0740 010f | | Execute Exception,Equal
0741 6801 |h | Jump_Zero 0x743
0742 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0743 0100 | | Execute Exception,Raise
0744 0000 0000 | | .BLANK 0000[0x4]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b e5ff | | Load 0x2,-0x1
074c 00e2 | | Load_Encached Integer_Cache
074d 00e0 | | Load_Encached Standard_Cache
074e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
074f c402 | | Store 0x2,0x2
0750 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0751 0000 0000 | | .BLANK 0000[0x7]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 0769 | i | .CONST 0x0769 ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0004 | | .CONST 0x0004 ; Number of locals
075b INIT_0758:
075b e402 | | Load 0x2,0x2
075c e234 | 4 | Load 0x1,0x34
075d e233 | 3 | Load 0x1,0x33
075e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
075f 00d8 | | Load_Top At_Offset_0
0760 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0761 0217 | | Execute Heap_Access,All_Reference
0762 0335 | 5 | Declare_Variable Array,Duplicate
0763 00cd | | Action Spare6_Action
0764 00d9 | | Load_Top At_Offset_1
0765 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0766 0217 | | Execute Heap_Access,All_Reference
0767 0335 | 5 | Declare_Variable Array,Duplicate
0768 00cd | | Action Spare6_Action
0769 BODY_0758:
0769 00d9 | | Load_Top At_Offset_1
076a 01db | | Execute Vector,Length
076b 700b |p | Jump_Nonzero 0x777
076c 0092 0878 | x| Action Push_String_Extended,0x878 ; "No help available for "
076e 00d9 | | Load_Top At_Offset_1
076f e010 | | Load 0x0,0x10
0770 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0771 01cc | | Execute Vector,Catenate
0772 0092 0879 | y| Action Push_String_Extended,0x879 ; "."
0774 01cc | | Execute Vector,Catenate
0775 00cb | | Action Pop_Block_With_Result
0776 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0777 00d9 | | Load_Top At_Offset_1
0778 00cb | | Action Pop_Block_With_Result
0779 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
077a 0000 0000 | | .BLANK 0000[0x6]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783 | | .CONST 0x0783 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0001 | | .CONST 0x0001 ; Number of locals
0783 BODY_0780:
0783 INIT_0780:
0783 e00c | | Load 0x0,0xc
0784 180e | | Execute Package,Field_Execute,Field_Number 0xe
0785 4801 |H | Short_Literal 0x1
0786 0092 087a | z| Action Push_String_Extended,0x87a ; "IMAGE - returning: "
0788 e7ff | | Load 0x3,-0x1
0789 01cc | | Execute Vector,Catenate
078a e015 | | Load 0x0,0x15
078b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
078c 00da | | Load_Top At_Offset_2
078d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
078e 0000 0000 | | .XXX[0x2]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 07a5 | | .CONST 0x07a5 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0004 | | .CONST 0x0004 ; Number of locals
0793 INIT_0790:
0793 e5fe | | Load 0x2,-0x2
0794 e234 | 4 | Load 0x1,0x34
0795 e233 | 3 | Load 0x1,0x33
0796 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0797 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0798 0217 | | Execute Heap_Access,All_Reference
0799 0335 | 5 | Declare_Variable Array,Duplicate
079a 00cd | | Action Spare6_Action
079b 00d8 | | Load_Top At_Offset_0
079c e5ff | | Load 0x2,-0x1
079d 8236 | 6 | Call 0x1,0x36
079e 4800 |H | Short_Literal 0x0
079f 00d9 | | Load_Top At_Offset_1
07a0 4820 |H | Short_Literal 0x20
07a1 e010 | | Load 0x0,0x10
07a2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
07a3 00e3 | | Load_Encached Natural_Cache
07a4 03f1 | | Declare_Variable Discrete,With_Value
07a5 BODY_0790:
07a5 00d9 | | Load_Top At_Offset_1
07a6 01db | | Execute Vector,Length
07a7 7005 |p | Jump_Nonzero 0x7ad
07a8 e5fe | | Load 0x2,-0x2
07a9 8239 | 9 | Call 0x1,0x39
07aa 8402 | | Call 0x2,0x2
07ab 00cb | | Action Pop_Block_With_Result
07ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07ad 00d8 | | Load_Top At_Offset_0
07ae 7001 |p | Jump_Nonzero 0x7b0
07af 0887 | | Execute_Immediate Raise,0x87
07b0 e5fe | | Load 0x2,-0x2
07b1 823a | : | Call 0x1,0x3a
07b2 0f02 | | Execute_Immediate Equal,0x2
07b3 6815 |h | Jump_Zero 0x7c9
07b4 00d8 | | Load_Top At_Offset_0
07b5 0a01 | | Execute_Immediate Plus,0x1
07b6 00d8 | | Load_Top At_Offset_0
07b7 00e2 | | Load_Encached Integer_Cache
07b8 0260 | ` | Execute Discrete,In_Type
07b9 7001 |p | Jump_Nonzero 0x7bb
07ba 0801 | | Execute_Immediate Raise,0x1
07bb 00da | | Load_Top At_Offset_2
07bc 01dc | | Execute Vector,Last
07bd 0aff | | Execute_Immediate Plus,-0x1
07be 00d8 | | Load_Top At_Offset_0
07bf 00e2 | | Load_Encached Integer_Cache
07c0 0260 | ` | Execute Discrete,In_Type
07c1 7001 |p | Jump_Nonzero 0x7c3
07c2 0801 | | Execute_Immediate Raise,0x1
07c3 00db | | Load_Top At_Offset_3
07c4 01cf | | Execute Vector,Slice_Read
07c5 8238 | 8 | Call 0x1,0x38
07c6 8402 | | Call 0x2,0x2
07c7 00cb | | Action Pop_Block_With_Result
07c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07c9 00d8 | | Load_Top At_Offset_0
07ca 0a01 | | Execute_Immediate Plus,0x1
07cb 00d8 | | Load_Top At_Offset_0
07cc 00e2 | | Load_Encached Integer_Cache
07cd 0260 | ` | Execute Discrete,In_Type
07ce 7001 |p | Jump_Nonzero 0x7d0
07cf 0801 | | Execute_Immediate Raise,0x1
07d0 00da | | Load_Top At_Offset_2
07d1 01dc | | Execute Vector,Last
07d2 0aff | | Execute_Immediate Plus,-0x1
07d3 00d8 | | Load_Top At_Offset_0
07d4 00e2 | | Load_Encached Integer_Cache
07d5 0260 | ` | Execute Discrete,In_Type
07d6 7001 |p | Jump_Nonzero 0x7d8
07d7 0801 | | Execute_Immediate Raise,0x1
07d8 00db | | Load_Top At_Offset_3
07d9 01cf | | Execute Vector,Slice_Read
07da 8402 | | Call 0x2,0x2
07db 00cb | | Action Pop_Block_With_Result
07dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07dd 0000 0000 | | .XXX[0x3]
07df 0000 | |
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 e00c | | Load 0x0,0xc
07e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
07e5 4801 |H | Short_Literal 0x1
07e6 0092 087b | {| Action Push_String_Extended,0x87b ; "VALUE - returning: "
07e8 e7ff | | Load 0x3,-0x1
07e9 01cc | | Execute Vector,Catenate
07ea e015 | | Load 0x0,0x15
07eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07ec 00da | | Load_Top At_Offset_2
07ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ee 0000 0000 | | .XXX[0x2]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 e5fe | | Load 0x2,-0x2
07f4 823a | : | Call 0x1,0x3a
07f5 0f02 | | Execute_Immediate Equal,0x2
07f6 6803 |h | Jump_Zero 0x7fa
07f7 00da | | Load_Top At_Offset_2
07f8 8237 | 7 | Call 0x1,0x37
07f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07fa 00da | | Load_Top At_Offset_2
07fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07fc 0000 0000 | | .BLANK 0000[0x4]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0815 | | .CONST 0x0815 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0004 | | .CONST 0x0004 ; Number of locals
0803 INIT_0800:
0803 e5fe | | Load 0x2,-0x2
0804 e234 | 4 | Load 0x1,0x34
0805 e233 | 3 | Load 0x1,0x33
0806 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0807 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0808 0217 | | Execute Heap_Access,All_Reference
0809 0335 | 5 | Declare_Variable Array,Duplicate
080a 00cd | | Action Spare6_Action
080b 00d8 | | Load_Top At_Offset_0
080c e5ff | | Load 0x2,-0x1
080d 8236 | 6 | Call 0x1,0x36
080e 4800 |H | Short_Literal 0x0
080f 00d9 | | Load_Top At_Offset_1
0810 4820 |H | Short_Literal 0x20
0811 e010 | | Load 0x0,0x10
0812 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0813 00e3 | | Load_Encached Natural_Cache
0814 03f1 | | Declare_Variable Discrete,With_Value
0815 BODY_0800:
0815 00d9 | | Load_Top At_Offset_1
0816 01db | | Execute Vector,Length
0817 7013 |p | Jump_Nonzero 0x82b
0818 e403 | | Load 0x2,0x3
0819 6804 |h | Jump_Zero 0x81e
081a e5ff | | Load 0x2,-0x1
081b 8404 | | Call 0x2,0x4
081c 00cb | | Action Pop_Block_With_Result
081d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
081e 480a |H | Short_Literal 0xa
081f 4820 |H | Short_Literal 0x20
0820 e5ff | | Load 0x2,-0x1
0821 e602 | | Load 0x3,0x2
0822 01cc | | Execute Vector,Catenate
0823 01cb | | Execute Vector,Append
0824 e5fd | | Load 0x2,-0x3
0825 8405 | | Call 0x2,0x5
0826 01cc | | Execute Vector,Catenate
0827 01cb | | Execute Vector,Append
0828 8404 | | Call 0x2,0x4
0829 00cb | | Action Pop_Block_With_Result
082a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
082b e403 | | Load 0x2,0x3
082c 681c |h | Jump_Zero 0x849
082d e5ff | | Load 0x2,-0x1
082e 01dd | | Execute Vector,First
082f 00da | | Load_Top At_Offset_2
0830 01dd | | Execute Vector,First
0831 0aff | | Execute_Immediate Plus,-0x1
0832 00d8 | | Load_Top At_Offset_0
0833 00e2 | | Load_Encached Integer_Cache
0834 0260 | ` | Execute Discrete,In_Type
0835 7001 |p | Jump_Nonzero 0x837
0836 0801 | | Execute_Immediate Raise,0x1
0837 e5ff | | Load 0x2,-0x1
0838 01cf | | Execute Vector,Slice_Read
0839 00da | | Load_Top At_Offset_2
083a 01dc | | Execute Vector,Last
083b 0a01 | | Execute_Immediate Plus,0x1
083c 00d8 | | Load_Top At_Offset_0
083d 00e2 | | Load_Encached Integer_Cache
083e 0260 | ` | Execute Discrete,In_Type
083f 7001 |p | Jump_Nonzero 0x841
0840 0801 | | Execute_Immediate Raise,0x1
0841 e5ff | | Load 0x2,-0x1
0842 01dc | | Execute Vector,Last
0843 e5ff | | Load 0x2,-0x1
0844 01cf | | Execute Vector,Slice_Read
0845 01cc | | Execute Vector,Catenate
0846 8404 | | Call 0x2,0x4
0847 00cb | | Action Pop_Block_With_Result
0848 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0849 e5ff | | Load 0x2,-0x1
084a 01dd | | Execute Vector,First
084b 00d9 | | Load_Top At_Offset_1
084c e5ff | | Load 0x2,-0x1
084d 01cf | | Execute Vector,Slice_Read
084e e5fd | | Load 0x2,-0x3
084f 8405 | | Call 0x2,0x5
0850 01cc | | Execute Vector,Catenate
0851 00da | | Load_Top At_Offset_2
0852 01dc | | Execute Vector,Last
0853 e5ff | | Load 0x2,-0x1
0854 01dc | | Execute Vector,Last
0855 e5ff | | Load 0x2,-0x1
0856 01cf | | Execute Vector,Slice_Read
0857 01cc | | Execute Vector,Catenate
0858 8404 | | Call 0x2,0x4
0859 00cb | | Action Pop_Block_With_Result
085a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
085b ; --------------------------------------------------------------------------------------
085b ; STRING TABLE
085b ; --------------------------------------------------------------------------------------
085b 0044 | D | .STRTAB 0x0044->0x087d ; "BOOLEAN_KIND"
085c 004e | N | .STRTAB 0x004e->0x0883 ; "INTEGER_KIND"
085d 0058 | X | .STRTAB 0x0058->0x0889 ; "TEXT_KIND"
085e 005f | _ | .STRTAB 0x005f->0x088d ; "UNDEFINED"
085f 0066 | f | .STRTAB 0x0066->0x0892 ; "Check_Consistency"
0860 0075 | u | .STRTAB 0x0075->0x089a ; "Host_Only"
0861 007c | | | .STRTAB 0x007c->0x089f ; "Echo_Command_Output"
0862 008d | | .STRTAB 0x008d->0x08a8 ; "Trace_command_output"
0863 009f | | .STRTAB 0x009f->0x08b2 ; "Compiler_Pre_Options"
0864 00b1 | | .STRTAB 0x00b1->0x08bc ; "Compiler_Post_Options"
0865 00c4 | | .STRTAB 0x00c4->0x08c7 ; "Linker_Pre_Options"
0866 00d4 | | .STRTAB 0x00d4->0x08d0 ; "Linker_Post_Options"
0867 00e5 | | .STRTAB 0x00e5->0x08d9 ; "Generate_Batch_Script"
0868 00f8 | | .STRTAB 0x00f8->0x08e4 ; "dummy"
0869 00fb | | .STRTAB 0x00fb->0x08e6 ; "Rcf_Switch_Implementation.Define"
086a 0119 | | .STRTAB 0x0119->0x08f6 ; "Rcf_Switch_Implementation.Is_Defined"
086b 013b | ; | .STRTAB 0x013b->0x0908 ; "Rcf_Switch_Implementation.Value"
086c 0158 | X | .STRTAB 0x0158->0x0918 ; "$"
086d 0157 | W | .STRTAB 0x0157->0x0918 ; "Rcf"
086e 0158 | X | .STRTAB 0x0158->0x091a ; "Rcf_Switch_Implementation.Help"
086f 0174 | t | .STRTAB 0x0174->0x0929 ; "IMAGE - value => "
0870 0183 | | .STRTAB 0x0183->0x0931 ; ", field => "
0871 018c | | .STRTAB 0x018c->0x0937 ; "VALUE - Input =>"
0872 019a | | .STRTAB 0x019a->0x093f ; ", image => "
0873 01a3 | | .STRTAB 0x01a3->0x0944 ; ", default_image => "
0874 01b4 | | .STRTAB 0x01b4->0x094e ; ", is_default => "
0875 01c2 | | .STRTAB 0x01c2->0x0956 ; "Boolean"
0876 01c7 | | .STRTAB 0x01c7->0x0959 ; "Integer"
0877 01cc | | .STRTAB 0x01cc->0x095d ; "String"
0878 01d0 | | .STRTAB 0x01d0->0x0960 ; "No help available for "
0879 01e4 | | .STRTAB 0x01e4->0x096b ; "."
087a 01e3 | | .STRTAB 0x01e3->0x096b ; "IMAGE - returning: "
087b 01f4 | | .STRTAB 0x01f4->0x0975 ; "VALUE - returning: "
087c 0205 | | .STREND 0x0205->0x097e
087d 424f 4f4c |BOOL| .STRTAB_STRINGS
097f 0000 | | .XXX[0x1]
0980 ; --------------------------------------------------------------------------------------
0980 ; Debug Table
0980 ; --------------------------------------------------------------------------------------
0980 0004 000c | | .DEBUG4 0x0004,0x000c,0x2de8,0x0000,0x0001,0x0000
0986 0000 0000 | | .BLANK 0000[0x7a]