|
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 |