|
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: 4096 (0x1000) 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 0640 | @ | .CONST 0x0640 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0078 | x | .CONST 0x0078 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0011 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0013 00e1 | | Load_Encached Boolean_Cache 0014 00e1 | | Load_Encached Boolean_Cache 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4802 |H | Short_Literal 0x2 0017 032e | . | Declare_Type Record,Defined,Visible 0018 00d8 | | Load_Top At_Offset_0 0019 0322 | " | Declare_Variable Record 001a 4801 |H | Short_Literal 0x1 001b 00d9 | | Load_Top At_Offset_1 001c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 001d 4800 |H | Short_Literal 0x0 001e 00d9 | | Load_Top At_Offset_1 001f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0020 0129 | ) | Execute Any,Make_Visible 0021 4801 |H | Short_Literal 0x1 0022 4840 |H@ | Short_Literal 0x40 0023 00e9 | | Load_Encached String_Cache 0024 035c | \ | Declare_Type Array,Constrained,Visible 0025 00e2 | | Load_Encached Integer_Cache 0026 02a0 | | Declare_Subprogram Null_Subprogram 0027 4802 |H | Short_Literal 0x2 0028 032e | . | Declare_Type Record,Defined,Visible 0029 00d8 | | Load_Top At_Offset_0 002a 0322 | " | Declare_Variable Record 002b 00d9 | | Load_Top At_Offset_1 002c 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 002d 0337 | 7 | Declare_Variable Array 002e 4840 |H@ | Short_Literal 0x40 002f 4801 |H | Short_Literal 0x1 0030 4820 |H | Short_Literal 0x20 0031 00d9 | | Load_Top At_Offset_1 0032 e215 | | Load 0x1,0x15 0033 01d6 | | Execute Vector,Field_Write 0034 3ffb |? | Loop_Increasing 0x30 0035 00da | | Load_Top At_Offset_2 0036 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0037 0119 | | Execute Any,Check_In_Formal_Type 0038 00d9 | | Load_Top At_Offset_1 0039 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003a 4fff |O | Short_Literal -0x1 003b 00d9 | | Load_Top At_Offset_1 003c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 003d 0129 | ) | Execute Any,Make_Visible 003e 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0040 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0042 00bf | | Action Accept_Activation 0043 00e1 | | Load_Encached Boolean_Cache 0044 0266 | f | Execute Discrete,Bounds 0045 00e8 | | Load_Encached Character_Cache 0046 02a0 | | Declare_Subprogram Null_Subprogram 0047 4801 |H | Short_Literal 0x1 0048 035d | ] | Declare_Type Array,Defined 0049 00d8 | | Load_Top At_Offset_0 004a 0337 | 7 | Declare_Variable Array 004b 00d8 | | Load_Top At_Offset_0 004c 0335 | 5 | Declare_Variable Array,Duplicate 004d 00cd | | Action Spare6_Action 004e 4854 |HT | Short_Literal 0x54 004f 4801 |H | Short_Literal 0x1 0050 00da | | Load_Top At_Offset_2 0051 01d6 | | Execute Vector,Field_Write 0052 4846 |HF | Short_Literal 0x46 0053 4800 |H | Short_Literal 0x0 0054 00da | | Load_Top At_Offset_2 0055 01d6 | | Execute Vector,Field_Write 0056 00d9 | | Load_Top At_Offset_1 0057 01d4 | | Execute Vector,Structure_Write 0058 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 005a 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 005c 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call 005e 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 0060 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 0062 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 0064 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 0066 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0068 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 006a 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call 006c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 006d 00c7 | | Action Elaborate_Subprogram 006e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 006f 00c7 | | Action Elaborate_Subprogram 0070 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0071 00c7 | | Action Elaborate_Subprogram 0072 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0073 00c7 | | Action Elaborate_Subprogram 0074 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0075 00c7 | | Action Elaborate_Subprogram 0076 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0077 00c7 | | Action Elaborate_Subprogram 0078 BODY_0008: 0078 00bc | | Action Signal_Activated 0079 00bb | | Action Signal_Completion 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 009f | | .CONST 0x009f ; Address of begin 0081 00a8 | | .CONST 0x00a8 ; Address of exception handler 0082 0009 | | .CONST 0x0009 ; Number of locals 0083 INIT_0080: 0083 00db | | Load_Top At_Offset_3 0084 00db | | Load_Top At_Offset_3 0085 e5fd | | Load 0x2,-0x3 0086 e001 | | Load 0x0,0x1 0087 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0088 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0089 00e2 | | Load_Encached Integer_Cache 008a 00d9 | | Load_Top At_Offset_1 008b 01dd | | Execute Vector,First 008c 00e2 | | Load_Encached Integer_Cache 008d 03f1 | | Declare_Variable Discrete,With_Value 008e 00da | | Load_Top At_Offset_2 008f 01dc | | Execute Vector,Last 0090 00e2 | | Load_Encached Integer_Cache 0091 03f1 | | Declare_Variable Discrete,With_Value 0092 00e2 | | Load_Encached Integer_Cache 0093 e002 | | Load 0x0,0x2 0094 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 0095 02c7 | | Declare_Variable Any 0096 00d8 | | Load_Top At_Offset_0 0097 1c00 | | Execute_Immediate Run_Utility,0x0 0098 e002 | | Load 0x0,0x2 0099 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 009a 02c7 | | Declare_Variable Any 009b 00d8 | | Load_Top At_Offset_0 009c 1c00 | | Execute_Immediate Run_Utility,0x0 009d 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call 009f BODY_0080: 009f e5fe | | Load 0x2,-0x2 00a0 e5ff | | Load 0x2,-0x1 00a1 e003 | | Load 0x0,0x3 00a2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a3 e004 | | Load 0x0,0x4 00a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a5 c407 | | Store 0x2,0x7 00a6 8409 | | Call 0x2,0x9 00a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a8 TRAP_0080: 00a8 0007 | | Action Break_Optional 00a9 e5fe | | Load 0x2,-0x2 00aa 0092 0608 | | Action Push_String_Extended,0x608 ; "Rcf_Unit_Options.Display" 00ac e005 | | Load 0x0,0x5 00ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ae e006 | | Load 0x0,0x6 00af 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00e0 | | .CONST 0x00e0 ; Address of begin 00b9 0103 | | .CONST 0x0103 ; Address of exception handler 00ba 000c | | .CONST 0x000c ; Number of locals 00bb INIT_00b8: 00bb e5fc | | Load 0x2,-0x4 00bc 00db | | Load_Top At_Offset_3 00bd e5fb | | Load 0x2,-0x5 00be e001 | | Load 0x0,0x1 00bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c1 e002 | | Load 0x0,0x2 00c2 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 00c3 02c7 | | Declare_Variable Any 00c4 e5fc | | Load 0x2,-0x4 00c5 e5ff | | Load 0x2,-0x1 00c6 e003 | | Load 0x0,0x3 00c7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00c8 e004 | | Load 0x0,0x4 00c9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ca a403 | | Store_Unchecked 0x2,0x3 00cb 00d8 | | Load_Top At_Offset_0 00cc e002 | | Load 0x0,0x2 00cd 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 00ce e5fc | | Load 0x2,-0x4 00cf e5ff | | Load 0x2,-0x1 00d0 e5fe | | Load 0x2,-0x2 00d1 821f | | Call 0x1,0x1f 00d2 e002 | | Load 0x0,0x2 00d3 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00d4 02c7 | | Declare_Variable Any 00d5 00d8 | | Load_Top At_Offset_0 00d6 1c00 | | Execute_Immediate Run_Utility,0x0 00d7 00e1 | | Load_Encached Boolean_Cache 00d8 00e2 | | Load_Encached Integer_Cache 00d9 00e2 | | Load_Encached Integer_Cache 00da 00e2 | | Load_Encached Integer_Cache 00db e006 | | Load 0x0,0x6 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00de 029f 0493 | | Declare_Subprogram INIT_0490,For_Call 00e0 BODY_00b8: 00e0 e5fc | | Load 0x2,-0x4 00e1 e404 | | Load 0x2,0x4 00e2 e405 | | Load 0x2,0x5 00e3 8221 | ! | Call 0x1,0x21 00e4 c406 | | Store 0x2,0x6 00e5 e406 | | Load 0x2,0x6 00e6 e002 | | Load 0x0,0x2 00e7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00e8 6801 |h | Jump_Zero 0xea 00e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ea e406 | | Load 0x2,0x6 00eb e002 | | Load 0x0,0x2 00ec 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00ed 7013 |p | Jump_Nonzero 0x101 00ee e5fc | | Load 0x2,-0x4 00ef 4801 |H | Short_Literal 0x1 00f0 4801 |H | Short_Literal 0x1 00f1 e007 | | Load 0x0,0x7 00f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f3 0334 | 4 | Declare_Variable Array,With_Constraint 00f4 e405 | | Load 0x2,0x5 00f5 e007 | | Load 0x0,0x7 00f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f7 e007 | | Load 0x0,0x7 00f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f9 0119 | | Execute Any,Check_In_Formal_Type 00fa 4801 |H | Short_Literal 0x1 00fb 00da | | Load_Top At_Offset_2 00fc 01d6 | | Execute Vector,Field_Write 00fd 600e |` | Indirect_Literal Discrete,0x10c,{0x00000000, 0x000081b4} 00fe e006 | | Load 0x0,0x6 00ff 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0100 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0101 840c | | Call 0x2,0xc 0102 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0103 TRAP_00b8: 0103 0007 | | Action Break_Optional 0104 e5fc | | Load 0x2,-0x4 0105 0092 0609 | | Action Push_String_Extended,0x609 ; "Rcf_Unit_Options.Set" 0107 e005 | | Load 0x0,0x5 0108 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0109 e006 | | Load 0x0,0x6 010a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 010b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 010c 0000 0000 | | .LITERAL {0x00000000, 0x000081b4} 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0139 | 9 | .CONST 0x0139 ; Address of begin 0111 015c | \ | .CONST 0x015c ; Address of exception handler 0112 000d | | .CONST 0x000d ; Number of locals 0113 INIT_0110: 0113 e5fc | | Load 0x2,-0x4 0114 00db | | Load_Top At_Offset_3 0115 e5fb | | Load 0x2,-0x5 0116 e001 | | Load 0x0,0x1 0117 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0118 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0119 e002 | | Load 0x0,0x2 011a 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 011b 02c7 | | Declare_Variable Any 011c e5fc | | Load 0x2,-0x4 011d e5ff | | Load 0x2,-0x1 011e e003 | | Load 0x0,0x3 011f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0120 e004 | | Load 0x0,0x4 0121 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0122 a403 | | Store_Unchecked 0x2,0x3 0123 00d8 | | Load_Top At_Offset_0 0124 e002 | | Load 0x0,0x2 0125 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0126 e002 | | Load 0x0,0x2 0127 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0128 02c7 | | Declare_Variable Any 0129 00d8 | | Load_Top At_Offset_0 012a 1c00 | | Execute_Immediate Run_Utility,0x0 012b e5fc | | Load 0x2,-0x4 012c e5ff | | Load 0x2,-0x1 012d e5fe | | Load 0x2,-0x2 012e 821f | | Call 0x1,0x1f 012f 00e1 | | Load_Encached Boolean_Cache 0130 00e1 | | Load_Encached Boolean_Cache 0131 00e2 | | Load_Encached Integer_Cache 0132 00e2 | | Load_Encached Integer_Cache 0133 00e2 | | Load_Encached Integer_Cache 0134 e006 | | Load 0x0,0x6 0135 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0136 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0137 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call 0139 BODY_0110: 0139 e5fc | | Load 0x2,-0x4 013a e404 | | Load 0x2,0x4 013b e406 | | Load 0x2,0x6 013c 8221 | ! | Call 0x1,0x21 013d c405 | | Store 0x2,0x5 013e e405 | | Load 0x2,0x5 013f e002 | | Load 0x0,0x2 0140 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0141 6801 |h | Jump_Zero 0x143 0142 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0143 e405 | | Load 0x2,0x5 0144 e002 | | Load 0x0,0x2 0145 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0146 6813 |h | Jump_Zero 0x15a 0147 e5fc | | Load 0x2,-0x4 0148 4801 |H | Short_Literal 0x1 0149 4801 |H | Short_Literal 0x1 014a e007 | | Load 0x0,0x7 014b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014c 0334 | 4 | Declare_Variable Array,With_Constraint 014d e406 | | Load 0x2,0x6 014e e007 | | Load 0x0,0x7 014f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0150 e007 | | Load 0x0,0x7 0151 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0152 0119 | | Execute Any,Check_In_Formal_Type 0153 4801 |H | Short_Literal 0x1 0154 00da | | Load_Top At_Offset_2 0155 01d6 | | Execute Vector,Field_Write 0156 6011 |` | Indirect_Literal Discrete,0x168,{0x00000000, 0x000081b3} 0157 e006 | | Load 0x0,0x6 0158 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0159 4506 |E | Exit_Suprogram New_Top_Offset 0x6 015a 840d | | Call 0x2,0xd 015b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 015c TRAP_0110: 015c 0007 | | Action Break_Optional 015d e5fc | | Load 0x2,-0x4 015e 0092 0609 | | Action Push_String_Extended,0x609 ; "Rcf_Unit_Options.Set" 0160 e005 | | Load 0x0,0x5 0161 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0162 e006 | | Load 0x0,0x6 0163 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0164 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 0000 0000 | | .LITERAL {0x00000000, 0x000081b3} 016c 0000 0000 | | .BLANK 0000[0x4] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0183 | | .CONST 0x0183 ; Address of begin 0171 019d | | .CONST 0x019d ; Address of exception handler 0172 0005 | | .CONST 0x0005 ; Number of locals 0173 INIT_0170: 0173 e5fd | | Load 0x2,-0x3 0174 00db | | Load_Top At_Offset_3 0175 e5fc | | Load 0x2,-0x4 0176 e001 | | Load 0x0,0x1 0177 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0178 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0179 e002 | | Load 0x0,0x2 017a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 017b 02c7 | | Declare_Variable Any 017c 00d8 | | Load_Top At_Offset_0 017d 1c00 | | Execute_Immediate Run_Utility,0x0 017e e006 | | Load 0x0,0x6 017f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0180 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0181 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 0183 BODY_0170: 0183 4801 |H | Short_Literal 0x1 0184 0092 060a | | Action Push_String_Extended,0x60a ; "<ALL>" 0186 e5fe | | Load 0x2,-0x2 0187 e008 | | Load 0x0,0x8 0188 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0189 680b |h | Jump_Zero 0x195 018a e006 | | Load 0x0,0x6 018b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018c 00ea | | Load_Encached Null_String_Cache 018d e5fd | | Load 0x2,-0x3 018e e5ff | | Load 0x2,-0x1 018f e5fc | | Load 0x2,-0x4 0190 e001 | | Load 0x0,0x1 0191 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0192 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0193 005a | Z | Store_Top Discrete,At_Offset_2 0194 7801 |x | Jump 0x196 0195 8405 | | Call 0x2,0x5 0196 00d9 | | Load_Top At_Offset_1 0197 6804 |h | Jump_Zero 0x19c 0198 e5fd | | Load 0x2,-0x3 0199 00da | | Load_Top At_Offset_2 019a e006 | | Load 0x0,0x6 019b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 019c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 019d TRAP_0170: 019d 0007 | | Action Break_Optional 019e e5fd | | Load 0x2,-0x3 019f 0092 060b | | Action Push_String_Extended,0x60b ; "Rcf_Unit_Options.Remove" 01a1 e005 | | Load 0x0,0x5 01a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a3 e006 | | Load 0x0,0x6 01a4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01a5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01bd | | .CONST 0x01bd ; Address of begin 01a9 01da | | .CONST 0x01da ; Address of exception handler 01aa 0008 | | .CONST 0x0008 ; Number of locals 01ab INIT_01a8: 01ab e5fd | | Load 0x2,-0x3 01ac 00db | | Load_Top At_Offset_3 01ad e5fc | | Load 0x2,-0x4 01ae e001 | | Load 0x0,0x1 01af 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b1 e5fe | | Load 0x2,-0x2 01b2 e002 | | Load 0x0,0x2 01b3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01b4 00e1 | | Load_Encached Boolean_Cache 01b5 00e2 | | Load_Encached Integer_Cache 01b6 00e2 | | Load_Encached Integer_Cache 01b7 00e2 | | Load_Encached Integer_Cache 01b8 e211 | | Load 0x1,0x11 01b9 0322 | " | Declare_Variable Record 01ba e212 | | Load 0x1,0x12 01bb 00d9 | | Load_Top At_Offset_1 01bc 017d | } | Execute Record,Structure_Write 01bd BODY_01a8: 01bd 00e2 | | Load_Encached Integer_Cache 01be 00e2 | | Load_Encached Integer_Cache 01bf 00e2 | | Load_Encached Integer_Cache 01c0 00e1 | | Load_Encached Boolean_Cache 01c1 e5fd | | Load 0x2,-0x3 01c2 e403 | | Load 0x2,0x3 01c3 e402 | | Load 0x2,0x2 01c4 e5ff | | Load 0x2,-0x1 01c5 8222 | " | Call 0x1,0x22 01c6 c404 | | Store 0x2,0x4 01c7 c405 | | Store 0x2,0x5 01c8 c406 | | Store 0x2,0x6 01c9 005a | Z | Store_Top Discrete,At_Offset_2 01ca e404 | | Load 0x2,0x4 01cb 680c |h | Jump_Zero 0x1d8 01cc 4800 |H | Short_Literal 0x0 01cd 00d9 | | Load_Top At_Offset_1 01ce 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01cf 00d9 | | Load_Top At_Offset_1 01d0 e402 | | Load 0x2,0x2 01d1 01d7 | | Execute Vector,Field_Read 01d2 4801 |H | Short_Literal 0x1 01d3 e218 | | Load 0x1,0x18 01d4 01d7 | | Execute Vector,Field_Read 01d5 027f | | Execute Discrete,Equal 01d6 00d9 | | Load_Top At_Offset_1 01d7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d8 00d8 | | Load_Top At_Offset_0 01d9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01da TRAP_01a8: 01da 0007 | | Action Break_Optional 01db e5fd | | Load 0x2,-0x3 01dc 0092 060c | | Action Push_String_Extended,0x60c ; "Rcf_Unit_Options.Get" 01de e005 | | Load 0x0,0x5 01df 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e0 e006 | | Load 0x0,0x6 01e1 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01e2 e212 | | Load 0x1,0x12 01e3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01fe | | .CONST 0x01fe ; Address of begin 01e9 0226 | & | .CONST 0x0226 ; Address of exception handler 01ea 0009 | | .CONST 0x0009 ; Number of locals 01eb INIT_01e8: 01eb e5fd | | Load 0x2,-0x3 01ec 00db | | Load_Top At_Offset_3 01ed e5fc | | Load 0x2,-0x4 01ee e001 | | Load 0x0,0x1 01ef 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f1 e5fe | | Load 0x2,-0x2 01f2 e002 | | Load 0x0,0x2 01f3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01f4 00e1 | | Load_Encached Boolean_Cache 01f5 00e2 | | Load_Encached Integer_Cache 01f6 00e2 | | Load_Encached Integer_Cache 01f7 00e2 | | Load_Encached Integer_Cache 01f8 e213 | | Load 0x1,0x13 01f9 0322 | " | Declare_Variable Record 01fa e214 | | Load 0x1,0x14 01fb 00d9 | | Load_Top At_Offset_1 01fc 017d | } | Execute Record,Structure_Write 01fd 00e3 | | Load_Encached Natural_Cache 01fe BODY_01e8: 01fe 00e2 | | Load_Encached Integer_Cache 01ff 00e2 | | Load_Encached Integer_Cache 0200 00e2 | | Load_Encached Integer_Cache 0201 00e1 | | Load_Encached Boolean_Cache 0202 e5fd | | Load 0x2,-0x3 0203 e403 | | Load 0x2,0x3 0204 e402 | | Load 0x2,0x2 0205 e5ff | | Load 0x2,-0x1 0206 8222 | " | Call 0x1,0x22 0207 c404 | | Store 0x2,0x4 0208 c405 | | Store 0x2,0x5 0209 c406 | | Store 0x2,0x6 020a 005b | [ | Store_Top Discrete,At_Offset_3 020b e404 | | Load 0x2,0x4 020c 6817 |h | Jump_Zero 0x224 020d 00da | | Load_Top At_Offset_2 020e e406 | | Load 0x2,0x6 020f 0272 | r | Execute Discrete,Minus 0210 0aff | | Execute_Immediate Plus,-0x1 0211 0059 | Y | Store_Top Discrete,At_Offset_1 0212 00d8 | | Load_Top At_Offset_0 0213 00da | | Load_Top At_Offset_2 0214 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0215 00db | | Load_Top At_Offset_3 0216 0a02 | | Execute_Immediate Plus,0x2 0217 00d8 | | Load_Top At_Offset_0 0218 00e2 | | Load_Encached Integer_Cache 0219 0260 | ` | Execute Discrete,In_Type 021a 7001 |p | Jump_Nonzero 0x21c 021b 0801 | | Execute_Immediate Raise,0x1 021c 00db | | Load_Top At_Offset_3 021d e402 | | Load 0x2,0x2 021e 01cf | | Execute Vector,Slice_Read 021f 4801 |H | Short_Literal 0x1 0220 00da | | Load_Top At_Offset_2 0221 e408 | | Load 0x2,0x8 0222 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0223 01ce | | Execute Vector,Slice_Write 0224 00d9 | | Load_Top At_Offset_1 0225 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0226 TRAP_01e8: 0226 0007 | | Action Break_Optional 0227 e5fd | | Load 0x2,-0x3 0228 0092 060c | | Action Push_String_Extended,0x60c ; "Rcf_Unit_Options.Get" 022a e005 | | Load 0x0,0x5 022b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022c e006 | | Load 0x0,0x6 022d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 022e e214 | | Load 0x1,0x14 022f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 01dd | | Execute Vector,First 0235 00db | | Load_Top At_Offset_3 0236 01d7 | | Execute Vector,Field_Read 0237 0e22 | " | Execute_Immediate Not_Equal,0x22 0238 6802 |h | Jump_Zero 0x23b 0239 e009 | | Load 0x0,0x9 023a 0257 | W | Execute Discrete,Raise 023b 00cf | | Action Mark_Auxiliary 023c 00db | | Load_Top At_Offset_3 023d 01dc | | Execute Vector,Last 023e 0aff | | Execute_Immediate Plus,-0x1 023f 00d8 | | Load_Top At_Offset_0 0240 00e2 | | Load_Encached Integer_Cache 0241 0260 | ` | Execute Discrete,In_Type 0242 7001 |p | Jump_Nonzero 0x244 0243 0801 | | Execute_Immediate Raise,0x1 0244 e5ff | | Load 0x2,-0x1 0245 01dd | | Execute Vector,First 0246 0a01 | | Execute_Immediate Plus,0x1 0247 00d8 | | Load_Top At_Offset_0 0248 00e2 | | Load_Encached Integer_Cache 0249 0260 | ` | Execute Discrete,In_Type 024a 7001 |p | Jump_Nonzero 0x24c 024b 0801 | | Execute_Immediate Raise,0x1 024c 0263 | c | Execute Discrete,Above_Bound 024d 7020 |p | Jump_Nonzero 0x26e 024e 00d8 | | Load_Top At_Offset_0 024f e5ff | | Load 0x2,-0x1 0250 01d7 | | Execute Vector,Field_Read 0251 0f22 | " | Execute_Immediate Equal,0x22 0252 6819 |h | Jump_Zero 0x26c 0253 e5ff | | Load 0x2,-0x1 0254 01dd | | Execute Vector,First 0255 0a01 | | Execute_Immediate Plus,0x1 0256 00d8 | | Load_Top At_Offset_0 0257 00e2 | | Load_Encached Integer_Cache 0258 0260 | ` | Execute Discrete,In_Type 0259 7001 |p | Jump_Nonzero 0x25b 025a 0801 | | Execute_Immediate Raise,0x1 025b 00d9 | | Load_Top At_Offset_1 025c e5ff | | Load 0x2,-0x1 025d 01cf | | Execute Vector,Slice_Read 025e 00d9 | | Load_Top At_Offset_1 025f 0a01 | | Execute_Immediate Plus,0x1 0260 00d8 | | Load_Top At_Offset_0 0261 00e2 | | Load_Encached Integer_Cache 0262 0260 | ` | Execute Discrete,In_Type 0263 7001 |p | Jump_Nonzero 0x265 0264 0801 | | Execute_Immediate Raise,0x1 0265 e5ff | | Load 0x2,-0x1 0266 01dc | | Execute Vector,Last 0267 e5ff | | Load 0x2,-0x1 0268 01cf | | Execute Vector,Slice_Read 0269 8219 | | Call 0x1,0x19 026a 01cc | | Execute Vector,Catenate 026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026c 00c8 | | Action Pop_Auxiliary_Range 026d 3fe0 |? | Loop_Increasing 0x24e 026e 00ce | | Action Pop_Auxiliary 026f 00da | | Load_Top At_Offset_2 0270 01dc | | Execute Vector,Last 0271 00db | | Load_Top At_Offset_3 0272 01d7 | | Execute Vector,Field_Read 0273 0e22 | " | Execute_Immediate Not_Equal,0x22 0274 6802 |h | Jump_Zero 0x277 0275 e009 | | Load 0x0,0x9 0276 0257 | W | Execute Discrete,Raise 0277 00da | | Load_Top At_Offset_2 0278 01dd | | Execute Vector,First 0279 0a01 | | Execute_Immediate Plus,0x1 027a 00d8 | | Load_Top At_Offset_0 027b 00e2 | | Load_Encached Integer_Cache 027c 0260 | ` | Execute Discrete,In_Type 027d 7001 |p | Jump_Nonzero 0x27f 027e 0801 | | Execute_Immediate Raise,0x1 027f 00db | | Load_Top At_Offset_3 0280 01dc | | Execute Vector,Last 0281 0aff | | Execute_Immediate Plus,-0x1 0282 00d8 | | Load_Top At_Offset_0 0283 00e2 | | Load_Encached Integer_Cache 0284 0260 | ` | Execute Discrete,In_Type 0285 7001 |p | Jump_Nonzero 0x287 0286 0801 | | Execute_Immediate Raise,0x1 0287 e5ff | | Load 0x2,-0x1 0288 01cf | | Execute Vector,Slice_Read 0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028a 0000 0000 | | .BLANK 0000[0x6] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00cf | | Action Mark_Auxiliary 0294 00db | | Load_Top At_Offset_3 0295 01d9 | | Execute Vector,Reverse_Bounds 0296 0263 | c | Execute Discrete,Above_Bound 0297 701c |p | Jump_Nonzero 0x2b4 0298 00d8 | | Load_Top At_Offset_0 0299 e5ff | | Load 0x2,-0x1 029a 01d7 | | Execute Vector,Field_Read 029b 0f22 | " | Execute_Immediate Equal,0x22 029c 6815 |h | Jump_Zero 0x2b2 029d 4822 |H" | Short_Literal 0x22 029e e5ff | | Load 0x2,-0x1 029f 01dd | | Execute Vector,First 02a0 00da | | Load_Top At_Offset_2 02a1 e5ff | | Load 0x2,-0x1 02a2 01cf | | Execute Vector,Slice_Read 02a3 01ca | | Execute Vector,Prepend 02a4 00d9 | | Load_Top At_Offset_1 02a5 0a01 | | Execute_Immediate Plus,0x1 02a6 00d8 | | Load_Top At_Offset_0 02a7 00e2 | | Load_Encached Integer_Cache 02a8 0260 | ` | Execute Discrete,In_Type 02a9 7001 |p | Jump_Nonzero 0x2ab 02aa 0801 | | Execute_Immediate Raise,0x1 02ab e5ff | | Load 0x2,-0x1 02ac 01dc | | Execute Vector,Last 02ad e5ff | | Load 0x2,-0x1 02ae 01cf | | Execute Vector,Slice_Read 02af 821a | | Call 0x1,0x1a 02b0 01cc | | Execute Vector,Catenate 02b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b2 00c8 | | Action Pop_Auxiliary_Range 02b3 3fe4 |? | Loop_Increasing 0x298 02b4 00ce | | Action Pop_Auxiliary 02b5 4822 |H" | Short_Literal 0x22 02b6 4822 |H" | Short_Literal 0x22 02b7 e5ff | | Load 0x2,-0x1 02b8 01ca | | Execute Vector,Prepend 02b9 01cb | | Execute Vector,Append 02ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bb 0000 0000 | | .BLANK 0000[0x5] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 00db | | Load_Top At_Offset_3 02c4 4801 |H | Short_Literal 0x1 02c5 4801 |H | Short_Literal 0x1 02c6 e007 | | Load 0x0,0x7 02c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c8 0334 | 4 | Declare_Variable Array,With_Constraint 02c9 e5ff | | Load 0x2,-0x1 02ca e007 | | Load 0x0,0x7 02cb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02cc e007 | | Load 0x0,0x7 02cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ce 0119 | | Execute Any,Check_In_Formal_Type 02cf 4801 |H | Short_Literal 0x1 02d0 00da | | Load_Top At_Offset_2 02d1 01d6 | | Execute Vector,Field_Write 02d2 6005 |` | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x000081ad} 02d3 e006 | | Load 0x0,0x6 02d4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02d6 0000 0000 | | .XXX[0x2] 02d8 0000 0000 | | .LITERAL {0x00000000, 0x000081ad} 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 e5fd | | Load 0x2,-0x3 02e4 4801 |H | Short_Literal 0x1 02e5 4802 |H | Short_Literal 0x2 02e6 e007 | | Load 0x0,0x7 02e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02e8 0334 | 4 | Declare_Variable Array,With_Constraint 02e9 e5ff | | Load 0x2,-0x1 02ea e007 | | Load 0x0,0x7 02eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ec e007 | | Load 0x0,0x7 02ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ee 0119 | | Execute Any,Check_In_Formal_Type 02ef 4801 |H | Short_Literal 0x1 02f0 00da | | Load_Top At_Offset_2 02f1 01d6 | | Execute Vector,Field_Write 02f2 e5fe | | Load 0x2,-0x2 02f3 00e1 | | Load_Encached Boolean_Cache 02f4 011c | | Execute Any,Convert_Unchecked 02f5 1c01 | | Execute_Immediate Run_Utility,0x1 02f6 e007 | | Load 0x0,0x7 02f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f8 e007 | | Load 0x0,0x7 02f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02fa 0119 | | Execute Any,Check_In_Formal_Type 02fb 4802 |H | Short_Literal 0x2 02fc 00da | | Load_Top At_Offset_2 02fd 01d6 | | Execute Vector,Field_Write 02fe 6005 |` | Indirect_Literal Discrete,0x304,{0x00000000, 0x000081af} 02ff e006 | | Load 0x0,0x6 0300 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0301 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0302 0000 0000 | | .XXX[0x2] 0304 0000 0000 | | .LITERAL {0x00000000, 0x000081af} 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b e5fd | | Load 0x2,-0x3 030c 4801 |H | Short_Literal 0x1 030d 4802 |H | Short_Literal 0x2 030e e007 | | Load 0x0,0x7 030f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0310 0334 | 4 | Declare_Variable Array,With_Constraint 0311 e5ff | | Load 0x2,-0x1 0312 e007 | | Load 0x0,0x7 0313 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0314 e007 | | Load 0x0,0x7 0315 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0316 0119 | | Execute Any,Check_In_Formal_Type 0317 4801 |H | Short_Literal 0x1 0318 00da | | Load_Top At_Offset_2 0319 01d6 | | Execute Vector,Field_Write 031a e5fe | | Load 0x2,-0x2 031b 821a | | Call 0x1,0x1a 031c e007 | | Load 0x0,0x7 031d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 031e e007 | | Load 0x0,0x7 031f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0320 0119 | | Execute Any,Check_In_Formal_Type 0321 4802 |H | Short_Literal 0x2 0322 00da | | Load_Top At_Offset_2 0323 01d6 | | Execute Vector,Field_Write 0324 6003 |` | Indirect_Literal Discrete,0x328,{0x00000000, 0x000081ae} 0325 e006 | | Load 0x0,0x6 0326 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0327 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0328 0000 0000 | | .LITERAL {0x00000000, 0x000081ae} 032c 0000 0000 | | .BLANK 0000[0x4] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0338 | 8 | .CONST 0x0338 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0002 | | .CONST 0x0002 ; Number of locals 0333 INIT_0330: 0333 4801 |H | Short_Literal 0x1 0334 00db | | Load_Top At_Offset_3 0335 e5fe | | Load 0x2,-0x2 0336 e008 | | Load 0x0,0x8 0337 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0338 BODY_0330: 0338 00d8 | | Load_Top At_Offset_0 0339 e5ff | | Load 0x2,-0x1 033a 01dd | | Execute Vector,First 033b 027b | { | Execute Discrete,Greater_Equal 033c 680f |h | Jump_Zero 0x34c 033d 00d8 | | Load_Top At_Offset_0 033e e5fe | | Load 0x2,-0x2 033f 01db | | Execute Vector,Length 0340 0273 | s | Execute Discrete,Plus 0341 0a01 | | Execute_Immediate Plus,0x1 0342 00d8 | | Load_Top At_Offset_0 0343 00e2 | | Load_Encached Integer_Cache 0344 0260 | ` | Execute Discrete,In_Type 0345 7001 |p | Jump_Nonzero 0x347 0346 0801 | | Execute_Immediate Raise,0x1 0347 e5ff | | Load 0x2,-0x1 0348 01dc | | Execute Vector,Last 0349 e5ff | | Load 0x2,-0x1 034a 01cf | | Execute Vector,Slice_Read 034b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 034c 00db | | Load_Top At_Offset_3 034d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 034e 0000 0000 | | .XXX[0x2] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 e5fd | | Load 0x2,-0x3 0354 e5fe | | Load 0x2,-0x2 0355 e003 | | Load 0x0,0x3 0356 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0357 00db | | Load_Top At_Offset_3 0358 821e | | Call 0x1,0x1e 0359 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 035a 0000 0000 | | .BLANK 0000[0x6] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00cf | | Action Mark_Auxiliary 0364 e5fe | | Load 0x2,-0x2 0365 01d9 | | Execute Vector,Reverse_Bounds 0366 0263 | c | Execute Discrete,Above_Bound 0367 7010 |p | Jump_Nonzero 0x378 0368 4800 |H | Short_Literal 0x0 0369 e5ff | | Load 0x2,-0x1 036a 00da | | Load_Top At_Offset_2 036b e5fe | | Load 0x2,-0x2 036c 01d7 | | Execute Vector,Field_Read 036d e002 | | Load 0x0,0x2 036e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 036f e008 | | Load 0x0,0x8 0370 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0371 6804 |h | Jump_Zero 0x376 0372 00d8 | | Load_Top At_Offset_0 0373 e5fe | | Load 0x2,-0x2 0374 01d7 | | Execute Vector,Field_Read 0375 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0376 00c8 | | Action Pop_Auxiliary_Range 0377 3ff0 |? | Loop_Increasing 0x368 0378 00ce | | Action Pop_Auxiliary 0379 e5fd | | Load 0x2,-0x3 037a 4801 |H | Short_Literal 0x1 037b 4801 |H | Short_Literal 0x1 037c e007 | | Load 0x0,0x7 037d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 037e 0334 | 4 | Declare_Variable Array,With_Constraint 037f e5ff | | Load 0x2,-0x1 0380 e007 | | Load 0x0,0x7 0381 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0382 e007 | | Load 0x0,0x7 0383 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0384 0119 | | Execute Any,Check_In_Formal_Type 0385 4801 |H | Short_Literal 0x1 0386 00da | | Load_Top At_Offset_2 0387 01d6 | | Execute Vector,Field_Write 0388 6007 |` | Indirect_Literal Discrete,0x390,{0x00000000, 0x000081b1} 0389 e006 | | Load 0x0,0x6 038a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 038b e002 | | Load 0x0,0x2 038c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 038d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 038e 0000 0000 | | .XXX[0x2] 0390 0000 0000 | | .LITERAL {0x00000000, 0x000081b1} 0394 0000 0000 | | .BLANK 0000[0x4] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00cf | | Action Mark_Auxiliary 039c e5fe | | Load 0x2,-0x2 039d 01d9 | | Execute Vector,Reverse_Bounds 039e 0263 | c | Execute Discrete,Above_Bound 039f 7010 |p | Jump_Nonzero 0x3b0 03a0 4801 |H | Short_Literal 0x1 03a1 e5ff | | Load 0x2,-0x1 03a2 00da | | Load_Top At_Offset_2 03a3 e5fe | | Load 0x2,-0x2 03a4 01d7 | | Execute Vector,Field_Read 03a5 e002 | | Load 0x0,0x2 03a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03a7 e008 | | Load 0x0,0x8 03a8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 03a9 6804 |h | Jump_Zero 0x3ae 03aa 00d8 | | Load_Top At_Offset_0 03ab e5fe | | Load 0x2,-0x2 03ac 01d7 | | Execute Vector,Field_Read 03ad 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03ae 00c8 | | Action Pop_Auxiliary_Range 03af 3ff0 |? | Loop_Increasing 0x3a0 03b0 00ce | | Action Pop_Auxiliary 03b1 e5fd | | Load 0x2,-0x3 03b2 4801 |H | Short_Literal 0x1 03b3 4801 |H | Short_Literal 0x1 03b4 e007 | | Load 0x0,0x7 03b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b6 0334 | 4 | Declare_Variable Array,With_Constraint 03b7 e5ff | | Load 0x2,-0x1 03b8 e007 | | Load 0x0,0x7 03b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ba e007 | | Load 0x0,0x7 03bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03bc 0119 | | Execute Any,Check_In_Formal_Type 03bd 4801 |H | Short_Literal 0x1 03be 00da | | Load_Top At_Offset_2 03bf 01d6 | | Execute Vector,Field_Write 03c0 6007 |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x0000815b} 03c1 e006 | | Load 0x0,0x6 03c2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03c3 e002 | | Load 0x0,0x2 03c4 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 03c5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03c6 0000 0000 | | .XXX[0x2] 03c8 0000 0000 | | .LITERAL {0x00000000, 0x0000815b} 03cc 0000 0000 | | .BLANK 0000[0x4] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03e0 | | .CONST 0x03e0 ; Address of begin 03d1 0432 | 2 | .CONST 0x0432 ; Address of exception handler 03d2 0005 | | .CONST 0x0005 ; Number of locals 03d3 INIT_03d0: 03d3 00db | | Load_Top At_Offset_3 03d4 01dd | | Execute Vector,First 03d5 00e2 | | Load_Encached Integer_Cache 03d6 03f1 | | Declare_Variable Discrete,With_Value 03d7 e5fe | | Load 0x2,-0x2 03d8 01dd | | Execute Vector,First 03d9 00e2 | | Load_Encached Integer_Cache 03da 03f1 | | Declare_Variable Discrete,With_Value 03db 00e2 | | Load_Encached Integer_Cache 03dc e5fe | | Load 0x2,-0x2 03dd 01dc | | Execute Vector,Last 03de 00e2 | | Load_Encached Integer_Cache 03df 03f1 | | Declare_Variable Discrete,With_Value 03e0 BODY_03d0: 03e0 4800 |H | Short_Literal 0x0 03e1 a5fb | | Store_Unchecked 0x2,-0x5 03e2 00da | | Load_Top At_Offset_2 03e3 a5fa | | Store_Unchecked 0x2,-0x6 03e4 00d8 | | Load_Top At_Offset_0 03e5 a5f8 | | Store_Unchecked 0x2,-0x8 03e6 00d8 | | Load_Top At_Offset_0 03e7 a5f9 | | Store_Unchecked 0x2,-0x7 03e8 00cf | | Action Mark_Auxiliary 03e9 4800 |H | Short_Literal 0x0 03ea e402 | | Load 0x2,0x2 03eb 00db | | Load_Top At_Offset_3 03ec e5fe | | Load 0x2,-0x2 03ed 01cf | | Execute Vector,Slice_Read 03ee e5fd | | Load 0x2,-0x3 03ef e008 | | Load 0x0,0x8 03f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03f1 a403 | | Store_Unchecked 0x2,0x3 03f2 00db | | Load_Top At_Offset_3 03f3 e402 | | Load 0x2,0x2 03f4 027c | | | Execute Discrete,Less 03f5 6801 |h | Jump_Zero 0x3f7 03f6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03f7 00db | | Load_Top At_Offset_3 03f8 e402 | | Load 0x2,0x2 03f9 027f | | Execute Discrete,Equal 03fa 7006 |p | Jump_Nonzero 0x401 03fb 00db | | Load_Top At_Offset_3 03fc 0aff | | Execute_Immediate Plus,-0x1 03fd e5fe | | Load 0x2,-0x2 03fe 01d7 | | Execute Vector,Field_Read 03ff 0f0a | | Execute_Immediate Equal,0xa 0400 682c |h, | Jump_Zero 0x42d 0401 00db | | Load_Top At_Offset_3 0402 e5fd | | Load 0x2,-0x3 0403 01db | | Execute Vector,Length 0404 0273 | s | Execute Discrete,Plus 0405 005b | [ | Store_Top Discrete,At_Offset_3 0406 00da | | Load_Top At_Offset_2 0407 e5fe | | Load 0x2,-0x2 0408 01d7 | | Execute Vector,Field_Read 0409 0f20 | | Execute_Immediate Equal,0x20 040a 6812 |h | Jump_Zero 0x41d 040b 4801 |H | Short_Literal 0x1 040c a5fb | | Store_Unchecked 0x2,-0x5 040d 00db | | Load_Top At_Offset_3 040e a5fa | | Store_Unchecked 0x2,-0x6 040f 00da | | Load_Top At_Offset_2 0410 0aff | | Execute_Immediate Plus,-0x1 0411 c5f9 | | Store 0x2,-0x7 0412 4801 |H | Short_Literal 0x1 0413 00db | | Load_Top At_Offset_3 0414 00db | | Load_Top At_Offset_3 0415 e5fe | | Load 0x2,-0x2 0416 01cf | | Execute Vector,Slice_Read 0417 480a |H | Short_Literal 0xa 0418 e008 | | Load 0x0,0x8 0419 181e | | Execute Package,Field_Execute,Field_Number 0x1e 041a 0aff | | Execute_Immediate Plus,-0x1 041b a5f8 | | Store_Unchecked 0x2,-0x8 041c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 041d 00da | | Load_Top At_Offset_2 041e e5fe | | Load 0x2,-0x2 041f 01d7 | | Execute Vector,Field_Read 0420 0f0a | | Execute_Immediate Equal,0xa 0421 680b |h | Jump_Zero 0x42d 0422 4801 |H | Short_Literal 0x1 0423 a5fb | | Store_Unchecked 0x2,-0x5 0424 00db | | Load_Top At_Offset_3 0425 a5fa | | Store_Unchecked 0x2,-0x6 0426 00da | | Load_Top At_Offset_2 0427 0aff | | Execute_Immediate Plus,-0x1 0428 c5f9 | | Store 0x2,-0x7 0429 00da | | Load_Top At_Offset_2 042a 0aff | | Execute_Immediate Plus,-0x1 042b c5f8 | | Store 0x2,-0x8 042c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 042d 00db | | Load_Top At_Offset_3 042e 0a01 | | Execute_Immediate Plus,0x1 042f c402 | | Store 0x2,0x2 0430 00c9 | | Action Pop_Auxiliary_Loop 0431 7fb7 | | Jump 0x3e9 0432 TRAP_03d0: 0432 0007 | | Action Break_Optional 0433 e5fc | | Load 0x2,-0x4 0434 4801 |H | Short_Literal 0x1 0435 4801 |H | Short_Literal 0x1 0436 e007 | | Load 0x0,0x7 0437 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0438 0334 | 4 | Declare_Variable Array,With_Constraint 0439 e5ff | | Load 0x2,-0x1 043a e007 | | Load 0x0,0x7 043b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 043c e007 | | Load 0x0,0x7 043d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 043e 0119 | | Execute Any,Check_In_Formal_Type 043f 4801 |H | Short_Literal 0x1 0440 00da | | Load_Top At_Offset_2 0441 01d6 | | Execute Vector,Field_Write 0442 6005 |` | Indirect_Literal Discrete,0x448,{0x00000000, 0x000081b2} 0443 e006 | | Load 0x0,0x6 0444 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0445 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0446 0000 0000 | | .XXX[0x2] 0448 0000 0000 | | .LITERAL {0x00000000, 0x000081b2} 044c 0000 0000 | | .BLANK 0000[0x4] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0458 | X | .CONST 0x0458 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0003 | | .CONST 0x0003 ; Number of locals 0453 INIT_0450: 0453 e407 | | Load 0x2,0x7 0454 e002 | | Load 0x0,0x2 0455 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0456 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 0458 BODY_0450: 0458 e5fe | | Load 0x2,-0x2 0459 e5ff | | Load 0x2,-0x1 045a 821b | | Call 0x1,0x1b 045b 00cf | | Action Mark_Auxiliary 045c 4800 |H | Short_Literal 0x0 045d e404 | | Load 0x2,0x4 045e e405 | | Load 0x2,0x5 045f e402 | | Load 0x2,0x2 0460 01cf | | Execute Vector,Slice_Read 0461 480a |H | Short_Literal 0xa 0462 e008 | | Load 0x0,0x8 0463 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0464 a403 | | Store_Unchecked 0x2,0x3 0465 e403 | | Load 0x2,0x3 0466 e404 | | Load 0x2,0x4 0467 027c | | | Execute Discrete,Less 0468 6801 |h | Jump_Zero 0x46a 0469 4501 |E | Exit_Suprogram New_Top_Offset 0x1 046a 4800 |H | Short_Literal 0x0 046b e404 | | Load 0x2,0x4 046c e403 | | Load 0x2,0x3 046d e402 | | Load 0x2,0x2 046e 01cf | | Execute Vector,Slice_Read 046f 0092 060d | | Action Push_String_Extended,0x60d ; " " 0471 e008 | | Load 0x0,0x8 0472 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0473 a406 | | Store_Unchecked 0x2,0x6 0474 e5fe | | Load 0x2,-0x2 0475 00db | | Load_Top At_Offset_3 0476 e404 | | Load 0x2,0x4 0477 e406 | | Load 0x2,0x6 0478 0aff | | Execute_Immediate Plus,-0x1 0479 00d8 | | Load_Top At_Offset_0 047a 00e2 | | Load_Encached Integer_Cache 047b 0260 | ` | Execute Discrete,In_Type 047c 7001 |p | Jump_Nonzero 0x47e 047d 0801 | | Execute_Immediate Raise,0x1 047e e402 | | Load 0x2,0x2 047f 01cf | | Execute Vector,Slice_Read 0480 8220 | | Call 0x1,0x20 0481 c408 | | Store 0x2,0x8 0482 8603 | | Call 0x3,0x3 0483 e403 | | Load 0x2,0x3 0484 e405 | | Load 0x2,0x5 0485 027f | | Execute Discrete,Equal 0486 6801 |h | Jump_Zero 0x488 0487 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0488 e403 | | Load 0x2,0x3 0489 0a01 | | Execute_Immediate Plus,0x1 048a c404 | | Store 0x2,0x4 048b 00c9 | | Action Pop_Auxiliary_Loop 048c 7fcf | | Jump 0x45c 048d 0000 0000 | | .XXX[0x3] 048f 0000 | | 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0496 | | .CONST 0x0496 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0002 | | .CONST 0x0002 ; Number of locals 0493 INIT_0490: 0493 e406 | | Load 0x2,0x6 0494 e002 | | Load 0x0,0x2 0495 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0496 BODY_0490: 0496 00e2 | | Load_Encached Integer_Cache 0497 00e2 | | Load_Encached Integer_Cache 0498 00e2 | | Load_Encached Integer_Cache 0499 00e1 | | Load_Encached Boolean_Cache 049a e5fc | | Load 0x2,-0x4 049b e602 | | Load 0x3,0x2 049c e402 | | Load 0x2,0x2 049d e5ff | | Load 0x2,-0x1 049e 8222 | " | Call 0x1,0x22 049f c407 | | Store 0x2,0x7 04a0 c408 | | Store 0x2,0x8 04a1 c409 | | Store 0x2,0x9 04a2 c40a | | Store 0x2,0xa 04a3 e407 | | Load 0x2,0x7 04a4 6823 |h# | Jump_Zero 0x4c8 04a5 e006 | | Load 0x0,0x6 04a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a7 e402 | | Load 0x2,0x2 04a8 01dd | | Execute Vector,First 04a9 e409 | | Load 0x2,0x9 04aa 0a01 | | Execute_Immediate Plus,0x1 04ab 00d8 | | Load_Top At_Offset_0 04ac 00e2 | | Load_Encached Integer_Cache 04ad 0260 | ` | Execute Discrete,In_Type 04ae 7001 |p | Jump_Nonzero 0x4b0 04af 0801 | | Execute_Immediate Raise,0x1 04b0 e402 | | Load 0x2,0x2 04b1 01cf | | Execute Vector,Slice_Read 04b2 e5fd | | Load 0x2,-0x3 04b3 01cc | | Execute Vector,Catenate 04b4 e40a | | Load 0x2,0xa 04b5 0a01 | | Execute_Immediate Plus,0x1 04b6 00d8 | | Load_Top At_Offset_0 04b7 00e2 | | Load_Encached Integer_Cache 04b8 0260 | ` | Execute Discrete,In_Type 04b9 7001 |p | Jump_Nonzero 0x4bb 04ba 0801 | | Execute_Immediate Raise,0x1 04bb e402 | | Load 0x2,0x2 04bc 01dc | | Execute Vector,Last 04bd e402 | | Load 0x2,0x2 04be 01cf | | Execute Vector,Slice_Read 04bf 01cc | | Execute Vector,Catenate 04c0 e5fc | | Load 0x2,-0x4 04c1 e5ff | | Load 0x2,-0x1 04c2 e5fb | | Load 0x2,-0x5 04c3 e001 | | Load 0x0,0x1 04c4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04c5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04c6 c40b | | Store 0x2,0xb 04c7 7813 |x | Jump 0x4db 04c8 e006 | | Load 0x0,0x6 04c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ca 480a |H | Short_Literal 0xa 04cb 00da | | Load_Top At_Offset_2 04cc 0092 060d | | Action Push_String_Extended,0x60d ; " " 04ce 01cc | | Execute Vector,Catenate 04cf e5fd | | Load 0x2,-0x3 04d0 01cc | | Execute Vector,Catenate 04d1 01cb | | Execute Vector,Append 04d2 e402 | | Load 0x2,0x2 04d3 01cc | | Execute Vector,Catenate 04d4 e5fc | | Load 0x2,-0x4 04d5 e5ff | | Load 0x2,-0x1 04d6 e5fb | | Load 0x2,-0x5 04d7 e001 | | Load 0x0,0x1 04d8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04d9 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04da c40b | | Store 0x2,0xb 04db e40b | | Load 0x2,0xb 04dc 6804 |h | Jump_Zero 0x4e1 04dd e5fc | | Load 0x2,-0x4 04de e40b | | Load 0x2,0xb 04df e006 | | Load 0x0,0x6 04e0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 04e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e2 0000 0000 | | .BLANK 0000[0x6] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04ee | | .CONST 0x04ee ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0002 | | .CONST 0x0002 ; Number of locals 04eb INIT_04e8: 04eb e405 | | Load 0x2,0x5 04ec e002 | | Load 0x0,0x2 04ed 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04ee BODY_04e8: 04ee 00e2 | | Load_Encached Integer_Cache 04ef 00e2 | | Load_Encached Integer_Cache 04f0 00e2 | | Load_Encached Integer_Cache 04f1 00e1 | | Load_Encached Boolean_Cache 04f2 e5fc | | Load 0x2,-0x4 04f3 e602 | | Load 0x3,0x2 04f4 e402 | | Load 0x2,0x2 04f5 e5ff | | Load 0x2,-0x1 04f6 8222 | " | Call 0x1,0x22 04f7 c408 | | Store 0x2,0x8 04f8 c409 | | Store 0x2,0x9 04f9 c40a | | Store 0x2,0xa 04fa c40b | | Store 0x2,0xb 04fb e408 | | Load 0x2,0x8 04fc 6833 |h3 | Jump_Zero 0x530 04fd e40b | | Load 0x2,0xb 04fe e402 | | Load 0x2,0x2 04ff 01d7 | | Execute Vector,Field_Read 0500 4801 |H | Short_Literal 0x1 0501 e218 | | Load 0x1,0x18 0502 01d7 | | Execute Vector,Field_Read 0503 027f | | Execute Discrete,Equal 0504 a407 | | Store_Unchecked 0x2,0x7 0505 e5fd | | Load 0x2,-0x3 0506 e407 | | Load 0x2,0x7 0507 027f | | Execute Discrete,Equal 0508 6802 |h | Jump_Zero 0x50b 0509 00cc | | Action Pop_Block 050a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 050b e006 | | Load 0x0,0x6 050c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050d e5fd | | Load 0x2,-0x3 050e e218 | | Load 0x1,0x18 050f 01d7 | | Execute Vector,Field_Read 0510 e402 | | Load 0x2,0x2 0511 01dd | | Execute Vector,First 0512 e40a | | Load 0x2,0xa 0513 0a01 | | Execute_Immediate Plus,0x1 0514 00d8 | | Load_Top At_Offset_0 0515 00e2 | | Load_Encached Integer_Cache 0516 0260 | ` | Execute Discrete,In_Type 0517 7001 |p | Jump_Nonzero 0x519 0518 0801 | | Execute_Immediate Raise,0x1 0519 e402 | | Load 0x2,0x2 051a 01cf | | Execute Vector,Slice_Read 051b 01cb | | Execute Vector,Append 051c e40b | | Load 0x2,0xb 051d 0a01 | | Execute_Immediate Plus,0x1 051e 00d8 | | Load_Top At_Offset_0 051f 00e2 | | Load_Encached Integer_Cache 0520 0260 | ` | Execute Discrete,In_Type 0521 7001 |p | Jump_Nonzero 0x523 0522 0801 | | Execute_Immediate Raise,0x1 0523 e402 | | Load 0x2,0x2 0524 01dc | | Execute Vector,Last 0525 e402 | | Load 0x2,0x2 0526 01cf | | Execute Vector,Slice_Read 0527 01cc | | Execute Vector,Catenate 0528 e5fc | | Load 0x2,-0x4 0529 e5ff | | Load 0x2,-0x1 052a e5fb | | Load 0x2,-0x5 052b e001 | | Load 0x0,0x1 052c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 052d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 052e c40c | | Store 0x2,0xc 052f 7815 |x | Jump 0x545 0530 e006 | | Load 0x0,0x6 0531 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0532 480a |H | Short_Literal 0xa 0533 e5fd | | Load 0x2,-0x3 0534 e218 | | Load 0x1,0x18 0535 01d7 | | Execute Vector,Field_Read 0536 00db | | Load_Top At_Offset_3 0537 0092 060d | | Action Push_String_Extended,0x60d ; " " 0539 01cc | | Execute Vector,Catenate 053a 01cb | | Execute Vector,Append 053b 01cb | | Execute Vector,Append 053c e402 | | Load 0x2,0x2 053d 01cc | | Execute Vector,Catenate 053e e5fc | | Load 0x2,-0x4 053f e5ff | | Load 0x2,-0x1 0540 e5fb | | Load 0x2,-0x5 0541 e001 | | Load 0x0,0x1 0542 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0543 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0544 c40c | | Store 0x2,0xc 0545 e40c | | Load 0x2,0xc 0546 6804 |h | Jump_Zero 0x54b 0547 e5fc | | Load 0x2,-0x4 0548 e40c | | Load 0x2,0xc 0549 e006 | | Load 0x0,0x6 054a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 054b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054c 0000 0000 | | .BLANK 0000[0x4] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0571 | q | .CONST 0x0571 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 000a | | .CONST 0x000a ; Number of locals 0553 INIT_0550: 0553 e5fd | | Load 0x2,-0x3 0554 e5ff | | Load 0x2,-0x1 0555 e5fe | | Load 0x2,-0x2 0556 821f | | Call 0x1,0x1f 0557 e002 | | Load 0x0,0x2 0558 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 0559 02c7 | | Declare_Variable Any 055a e5fd | | Load 0x2,-0x3 055b e5ff | | Load 0x2,-0x1 055c e003 | | Load 0x0,0x3 055d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 055e e004 | | Load 0x0,0x4 055f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0560 a603 | | Store_Unchecked 0x3,0x3 0561 00d8 | | Load_Top At_Offset_0 0562 e002 | | Load 0x0,0x2 0563 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0564 e5fd | | Load 0x2,-0x3 0565 00d9 | | Load_Top At_Offset_1 0566 e602 | | Load 0x3,0x2 0567 8221 | ! | Call 0x1,0x21 0568 e002 | | Load 0x0,0x2 0569 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 056a 011e | | Execute Any,Convert 056b 00e1 | | Load_Encached Boolean_Cache 056c 00e2 | | Load_Encached Integer_Cache 056d 00e2 | | Load_Encached Integer_Cache 056e 00e2 | | Load_Encached Integer_Cache 056f 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 0571 BODY_0550: 0571 e605 | | Load 0x3,0x5 0572 e002 | | Load 0x0,0x2 0573 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0574 6802 |h | Jump_Zero 0x577 0575 00cc | | Action Pop_Block 0576 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0577 860a | | Call 0x3,0xa 0578 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0579 0000 0000 | | .BLANK 0000[0x7] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0586 | | .CONST 0x0586 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0002 | | .CONST 0x0002 ; Number of locals 0583 INIT_0580: 0583 e408 | | Load 0x2,0x8 0584 e002 | | Load 0x0,0x2 0585 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0586 BODY_0580: 0586 e408 | | Load 0x2,0x8 0587 e002 | | Load 0x0,0x2 0588 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0589 6814 |h | Jump_Zero 0x59e 058a e5fe | | Load 0x2,-0x2 058b e406 | | Load 0x2,0x6 058c 0a01 | | Execute_Immediate Plus,0x1 058d 00d8 | | Load_Top At_Offset_0 058e 00e2 | | Load_Encached Integer_Cache 058f 0260 | ` | Execute Discrete,In_Type 0590 7001 |p | Jump_Nonzero 0x592 0591 0801 | | Execute_Immediate Raise,0x1 0592 e403 | | Load 0x2,0x3 0593 0aff | | Execute_Immediate Plus,-0x1 0594 00d8 | | Load_Top At_Offset_0 0595 00e2 | | Load_Encached Integer_Cache 0596 0260 | ` | Execute Discrete,In_Type 0597 7001 |p | Jump_Nonzero 0x599 0598 0801 | | Execute_Immediate Raise,0x1 0599 e402 | | Load 0x2,0x2 059a 01cf | | Execute Vector,Slice_Read 059b 00da | | Load_Top At_Offset_2 059c 821d | | Call 0x1,0x1d 059d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 059e e5fe | | Load 0x2,-0x2 059f e406 | | Load 0x2,0x6 05a0 0a01 | | Execute_Immediate Plus,0x1 05a1 e402 | | Load 0x2,0x2 05a2 01d7 | | Execute Vector,Field_Read 05a3 4801 |H | Short_Literal 0x1 05a4 e218 | | Load 0x1,0x18 05a5 01d7 | | Execute Vector,Field_Read 05a6 027f | | Execute Discrete,Equal 05a7 00da | | Load_Top At_Offset_2 05a8 821c | | Call 0x1,0x1c 05a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05aa 0000 0000 | | .BLANK 0000[0x6] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b6 | | .CONST 0x05b6 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0002 | | .CONST 0x0002 ; Number of locals 05b3 INIT_05b0: 05b3 e605 | | Load 0x3,0x5 05b4 e002 | | Load 0x0,0x2 05b5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05b6 BODY_05b0: 05b6 00e2 | | Load_Encached Integer_Cache 05b7 00e2 | | Load_Encached Integer_Cache 05b8 00e2 | | Load_Encached Integer_Cache 05b9 00e1 | | Load_Encached Boolean_Cache 05ba e5fd | | Load 0x2,-0x3 05bb e802 | | Load 0x4,0x2 05bc e402 | | Load 0x2,0x2 05bd e5ff | | Load 0x2,-0x1 05be 8222 | " | Call 0x1,0x22 05bf c606 | | Store 0x3,0x6 05c0 c607 | | Store 0x3,0x7 05c1 c608 | | Store 0x3,0x8 05c2 c609 | | Store 0x3,0x9 05c3 e606 | | Load 0x3,0x6 05c4 6821 |h! | Jump_Zero 0x5e6 05c5 e006 | | Load 0x0,0x6 05c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c7 e402 | | Load 0x2,0x2 05c8 01dd | | Execute Vector,First 05c9 e607 | | Load 0x3,0x7 05ca 0aff | | Execute_Immediate Plus,-0x1 05cb 00d8 | | Load_Top At_Offset_0 05cc 00e2 | | Load_Encached Integer_Cache 05cd 0260 | ` | Execute Discrete,In_Type 05ce 7001 |p | Jump_Nonzero 0x5d0 05cf 0801 | | Execute_Immediate Raise,0x1 05d0 e402 | | Load 0x2,0x2 05d1 01cf | | Execute Vector,Slice_Read 05d2 e609 | | Load 0x3,0x9 05d3 0a02 | | Execute_Immediate Plus,0x2 05d4 00d8 | | Load_Top At_Offset_0 05d5 00e2 | | Load_Encached Integer_Cache 05d6 0260 | ` | Execute Discrete,In_Type 05d7 7001 |p | Jump_Nonzero 0x5d9 05d8 0801 | | Execute_Immediate Raise,0x1 05d9 e402 | | Load 0x2,0x2 05da 01dc | | Execute Vector,Last 05db e402 | | Load 0x2,0x2 05dc 01cf | | Execute Vector,Slice_Read 05dd 01cc | | Execute Vector,Catenate 05de e5fd | | Load 0x2,-0x3 05df e5ff | | Load 0x2,-0x1 05e0 e5fc | | Load 0x2,-0x4 05e1 e001 | | Load 0x0,0x1 05e2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05e3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05e4 c404 | | Store 0x2,0x4 05e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05e6 e5fd | | Load 0x2,-0x3 05e7 4801 |H | Short_Literal 0x1 05e8 4802 |H | Short_Literal 0x2 05e9 e007 | | Load 0x0,0x7 05ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05eb 0334 | 4 | Declare_Variable Array,With_Constraint 05ec e5ff | | Load 0x2,-0x1 05ed e007 | | Load 0x0,0x7 05ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a 05ef e007 | | Load 0x0,0x7 05f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05f1 0119 | | Execute Any,Check_In_Formal_Type 05f2 4801 |H | Short_Literal 0x1 05f3 00da | | Load_Top At_Offset_2 05f4 01d6 | | Execute Vector,Field_Write 05f5 00da | | Load_Top At_Offset_2 05f6 e007 | | Load 0x0,0x7 05f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05f8 e007 | | Load 0x0,0x7 05f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05fa 0119 | | Execute Any,Check_In_Formal_Type 05fb 4802 |H | Short_Literal 0x2 05fc 00da | | Load_Top At_Offset_2 05fd 01d6 | | Execute Vector,Field_Write 05fe 6005 |` | Indirect_Literal Discrete,0x604,{0x00000000, 0x000081b0} 05ff e006 | | Load 0x0,0x6 0600 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0601 00cc | | Action Pop_Block 0602 00cc | | Action Pop_Block 0603 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0604 0000 0000 | | .LITERAL {0x00000000, 0x000081b0} 0608 ; -------------------------------------------------------------------------------------- 0608 ; STRING TABLE 0608 ; -------------------------------------------------------------------------------------- 0608 000e | | .STRTAB 0x000e->0x060f ; "Rcf_Unit_Options.Display" 0609 0024 | $ | .STRTAB 0x0024->0x061b ; "Rcf_Unit_Options.Set" 060a 0036 | 6 | .STRTAB 0x0036->0x0625 ; "<ALL>" 060b 0039 | 9 | .STRTAB 0x0039->0x0627 ; "Rcf_Unit_Options.Remove" 060c 004e | N | .STRTAB 0x004e->0x0633 ; "Rcf_Unit_Options.Get" 060d 0060 | ` | .STRTAB 0x0060->0x063d ; " " 060e 005f | _ | .STREND 0x005f->0x063d 060f 5263 665f |Rcf_| .STRTAB_STRINGS 063e 0000 0000 | | .XXX[0x2] 0640 ; -------------------------------------------------------------------------------------- 0640 ; Debug Table 0640 ; -------------------------------------------------------------------------------------- 0640 0004 000c | | .DEBUG4 0x0004,0x000c,0x2df0,0x0000,0x0001,0x0000 0646 000d 1de0 | | .XXX[0x2] 0648 0000 0000 | | .BLANK 0000[0x4] 064c 298d d000 |) | .XXX[0x6] 064e 000c f500 | | 0650 010c 1d70 | p| 0652 0000 0000 | | .BLANK 0000[0x6] 0658 0086 3400 | 4 | .XXX[0x6] 065a 0000 0000 | | 065c 0086 3e08 | > | 065e 0000 0000 | | .BLANK 0000[0x8] 0666 0007 2546 | %F| .XXX[0x12] 0668 0010 c701 | | 066a 0000 0000 | | 066c 0000 0004 | | 066e 0000 0000 | | 0670 0001 1bb1 | | 0672 0000 0000 | | 0674 0010 c761 | a| 0676 8001 1bdb | | 0678 0000 0000 | | .BLANK 0000[0x4] 067c 0008 6421 | d!| .XXX[0x15] 067e 0000 0000 | | 0680 0000 0001 | | 0682 0000 0000 | | 0684 0000 8dd8 | | 0686 8000 0000 | | 0688 0000 0000 | | 068a 035e f242 | ^ B| 068c 8000 345d | 4]| 068e 8004 3157 | 1W| 0690 4000 |@ | 0691 0000 0000 | | .BLANK 0000[0x5] 0696 0002 194c | L| .XXX[0x3] 0698 c000 | | 0699 0000 0000 | | .BLANK 0000[0xc] 06a5 077c e000 | | | .XXX[0x1c] 06a7 432b 9c00 |C+ | 06a9 0000 0000 | | 06ab 0000 1000 | | 06ad 0000 0000 | | 06af 0133 6400 | 3d | 06b1 0000 0000 | | 06b3 432d 1e00 |C- | 06b5 0133 b800 | 3 | 06b7 0000 0000 | | 06b9 0000 0003 | | 06bb 4afa 1600 |J | 06bd 019e d400 | | 06bf 2192 8600 |! | 06c1 0000 0000 | | .BLANK 0000[0x6] 06c7 10cd 6b00 | k | .XXX[0x2] 06c9 0000 0000 | | .BLANK 0000[0xc] 06d5 0078 6dc0 | xm | .XXX[0xc] 06d7 0219 bd80 | | 06d9 0000 0000 | | 06db 0000 0040 | @| 06dd 0000 0000 | | 06df 000c eea0 | | 06e1 0000 0000 | | .BLANK 0000[0x4] 06e5 1d84 10a0 | | .XXX[0x6] 06e7 000c f6a0 | | 06e9 010c c480 | | 06eb 0000 0000 | | .BLANK 0000[0x6] 06f1 0086 8080 | | .XXX[0x2] 06f3 0000 0000 | | .BLANK 0000[0xc] 06ff 0001 d1f7 | | .XXX[0xc] 0701 0010 d091 | | 0703 0000 0000 | | 0705 0000 0002 | | 0707 0000 0000 | | 0709 0000 4ca1 | L | 070b 0000 0000 | | .BLANK 0000[0x4] 070f 00d0 d485 | | .XXX[0x7] 0711 8000 67b5 | g | 0713 0008 6776 | gv| 0715 8000 | | 0716 0000 0000 | | .BLANK 0000[0x5] 071b 0004 34ad | 4 | .XXX[0x7] 071d 4000 0000 |@ | 071f 0004 35a5 | 5 | 0721 8000 | | 0722 0000 0000 | | .BLANK 0000[0x8] 072a 4035 3800 |@58 | .XXX[0xc] 072c 86ae b000 | | 072e 0000 0000 | | 0730 0001 9000 | | 0732 0000 0000 | | 0734 08b7 f000 | | 0736 0000 0000 | | .BLANK 0000[0x4] 073a 08b8 a800 | | .XXX[0x8] 073c 8699 b000 | | 073e 869f b000 | | 0740 08d7 6800 | h | 0742 0000 0000 | | .BLANK 0000[0x4] 0746 08d7 9800 | | .XXX[0x8] 0748 869c b000 | | 074a 86a8 b000 | | 074c 08d8 8000 | | 074e 0000 0000 | | .BLANK 0000[0x4] 0752 08dd 3000 | 0 | .XXX[0x8] 0754 86a5 b000 | | 0756 86ab b000 | | 0758 08e0 e000 | | 075a 0000 0000 | | .BLANK 0000[0x4] 075e 08e5 f000 | | .XXX[0x8] 0760 86a2 b001 | | 0762 8fb5 ac00 | | 0764 08e9 2000 | | 0766 0000 0000 | | .BLANK 0000[0x4] 076a 4366 dc00 |Cf | .XXX[0xa] 076c 0000 0000 | | 076e 0000 c000 | | 0770 0000 0000 | | 0772 045b f800 | [ | 0774 0000 0000 | | .BLANK 0000[0x4] 0778 045c 5400 | \T | .XXX[0x8] 077a 435c 5c00 |C\\ | 077c 435f 5c00 |C_\ | 077e 046b b400 | k | 0780 0000 0000 | | .BLANK 0000[0x4] 0784 046b cc00 | k | .XXX[0x8] 0786 435d dc00 |C] | 0788 4363 dc00 |Cc | 078a 046c 4000 | l@ | 078c 0000 0000 | | .BLANK 0000[0x4] 0790 046e 9800 | n | .XXX[0x8] 0792 4362 5c00 |Cb\ | 0794 4365 5c00 |Ce\ | 0796 0470 7000 | pp | 0798 0000 0000 | | .BLANK 0000[0x4] 079c 0474 9000 | t | .XXX[0xc] 079e 4360 dc00 |C` | 07a0 ce10 3e1a | > | 07a2 934a 1400 | J | 07a4 01a1 0e00 | | 07a6 21a3 2400 |! $ | 07a8 0000 0000 | | .BLANK 0000[0x6] 07ae 10db db00 | | .XXX[0x2] 07b0 0000 0000 | | .BLANK 0000[0xc] 07bc 0063 63a0 | cc | .XXX[0x12] 07be 021b 8b80 | | 07c0 0000 0000 | | 07c2 0000 0080 | | 07c4 0000 0000 | | 07c6 000c 8500 | | 07c8 0000 0000 | | 07ca 021b 9790 | | 07cc 000c 8780 | | 07ce 0000 0000 | | .BLANK 0000[0x4] 07d2 32a1 90b0 |2 | .XXX[0x6] 07d4 000c f6a0 | | 07d6 010d ab80 | | 07d8 0000 0000 | | .BLANK 0000[0x4] 07dc 0086 f700 | | .XXX[0x8] 07de 0087 1308 | | 07e0 0000 0000 | | 07e2 0087 3510 | 5 | 07e4 0000 0000 | | .BLANK 0000[0x4] 07e8 0087 3c18 | < | .XXX[0x10] 07ea 0000 0000 | | 07ec 0008 8214 | | 07ee 0010 e081 | | 07f0 0000 0000 | | 07f2 0000 0010 | | 07f4 0000 0000 | | 07f6 0000 67c6 | g | 07f8 0000 0000 | | .BLANK 0000[0x5] 07fd 67d0 0010 |g | .XXX[0x3] 07ff df61 | a |