|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 06d8 | | .CONST 0x06d8 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007c | | | .CONST 0x007c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; 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 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0011 029a 017b | {| Declare_Subprogram INIT_0178,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 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0040 029a 01fb | | Declare_Subprogram INIT_01f8,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 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call
005a 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
005c 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call
005e 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call
0060 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call
0062 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
0064 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
0066 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
0068 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
006a 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
006c 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
006e 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
0070 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0071 00c7 | | Action Elaborate_Subprogram
0072 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0073 00c7 | | Action Elaborate_Subprogram
0074 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0075 00c7 | | Action Elaborate_Subprogram
0076 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0077 00c7 | | Action Elaborate_Subprogram
0078 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0079 00c7 | | Action Elaborate_Subprogram
007a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
007b 00c7 | | Action Elaborate_Subprogram
007c BODY_0008:
007c 00bc | | Action Signal_Activated
007d 00bb | | Action Signal_Completion
007e 0000 0000 | | .XXX[0x2]
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 04e3 | | Declare_Subprogram INIT_04e0,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 06a0 | | Action Push_String_Extended,0x6a0 ; "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 0108 | | .CONST 0x0108 ; 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 052b | +| Declare_Subprogram INIT_0528,For_Call
00e0 BODY_00b8:
00e0 e5fc | | Load 0x2,-0x4
00e1 00d8 | | Load_Top At_Offset_0
00e2 e5ff | | Load 0x2,-0x1
00e3 e003 | | Load 0x0,0x3
00e4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00e5 e404 | | Load 0x2,0x4
00e6 e405 | | Load 0x2,0x5
00e7 8221 | ! | Call 0x1,0x21
00e8 c406 | | Store 0x2,0x6
00e9 e406 | | Load 0x2,0x6
00ea e002 | | Load 0x0,0x2
00eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ec 6801 |h | Jump_Zero 0xee
00ed 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00ee e406 | | Load 0x2,0x6
00ef e002 | | Load 0x0,0x2
00f0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00f1 7014 |p | Jump_Nonzero 0x106
00f2 e5fc | | Load 0x2,-0x4
00f3 4801 |H | Short_Literal 0x1
00f4 4801 |H | Short_Literal 0x1
00f5 e007 | | Load 0x0,0x7
00f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f7 035b | [ | Declare_Type Array,Constrained
00f8 0337 | 7 | Declare_Variable Array
00f9 e405 | | Load 0x2,0x5
00fa e007 | | Load 0x0,0x7
00fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00fc e007 | | Load 0x0,0x7
00fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fe 0119 | | Execute Any,Check_In_Formal_Type
00ff 4801 |H | Short_Literal 0x1
0100 00da | | Load_Top At_Offset_2
0101 01d6 | | Execute Vector,Field_Write
0102 6011 |` | Indirect_Literal Discrete,0x114,{0x00000000, 0x000081b4}
0103 e006 | | Load 0x0,0x6
0104 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0105 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0106 840c | | Call 0x2,0xc
0107 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0108 TRAP_00b8:
0108 0007 | | Action Break_Optional
0109 e5fc | | Load 0x2,-0x4
010a 0092 06a1 | | Action Push_String_Extended,0x6a1 ; "Rcf_Unit_Options.Set"
010c e005 | | Load 0x0,0x5
010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010e e006 | | Load 0x0,0x6
010f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0110 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0111 0000 0000 | | .XXX[0x3]
0113 0000 | |
0114 0000 0000 | | .LITERAL {0x00000000, 0x000081b4}
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0141 | A | .CONST 0x0141 ; Address of begin
0119 0169 | i | .CONST 0x0169 ; Address of exception handler
011a 000d | | .CONST 0x000d ; Number of locals
011b INIT_0118:
011b e5fc | | Load 0x2,-0x4
011c 00db | | Load_Top At_Offset_3
011d e5fb | | Load 0x2,-0x5
011e e001 | | Load 0x0,0x1
011f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0120 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0121 e002 | | Load 0x0,0x2
0122 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
0123 02c7 | | Declare_Variable Any
0124 e5fc | | Load 0x2,-0x4
0125 e5ff | | Load 0x2,-0x1
0126 e003 | | Load 0x0,0x3
0127 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0128 e004 | | Load 0x0,0x4
0129 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012a a403 | | Store_Unchecked 0x2,0x3
012b 00d8 | | Load_Top At_Offset_0
012c e002 | | Load 0x0,0x2
012d 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
012e e002 | | Load 0x0,0x2
012f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0130 02c7 | | Declare_Variable Any
0131 00d8 | | Load_Top At_Offset_0
0132 1c00 | | Execute_Immediate Run_Utility,0x0
0133 e5fc | | Load 0x2,-0x4
0134 e5ff | | Load 0x2,-0x1
0135 e5fe | | Load 0x2,-0x2
0136 821f | | Call 0x1,0x1f
0137 00e1 | | Load_Encached Boolean_Cache
0138 00e1 | | Load_Encached Boolean_Cache
0139 00e2 | | Load_Encached Integer_Cache
013a 00e2 | | Load_Encached Integer_Cache
013b 00e2 | | Load_Encached Integer_Cache
013c e006 | | Load 0x0,0x6
013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
013f 029f 0583 | | Declare_Subprogram INIT_0580,For_Call
0141 BODY_0118:
0141 e5fc | | Load 0x2,-0x4
0142 00d8 | | Load_Top At_Offset_0
0143 e5ff | | Load 0x2,-0x1
0144 e003 | | Load 0x0,0x3
0145 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0146 e404 | | Load 0x2,0x4
0147 e406 | | Load 0x2,0x6
0148 8221 | ! | Call 0x1,0x21
0149 c405 | | Store 0x2,0x5
014a e405 | | Load 0x2,0x5
014b e002 | | Load 0x0,0x2
014c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
014d 6801 |h | Jump_Zero 0x14f
014e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
014f e405 | | Load 0x2,0x5
0150 e002 | | Load 0x0,0x2
0151 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0152 6814 |h | Jump_Zero 0x167
0153 e5fc | | Load 0x2,-0x4
0154 4801 |H | Short_Literal 0x1
0155 4801 |H | Short_Literal 0x1
0156 e007 | | Load 0x0,0x7
0157 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0158 035b | [ | Declare_Type Array,Constrained
0159 0337 | 7 | Declare_Variable Array
015a e406 | | Load 0x2,0x6
015b e007 | | Load 0x0,0x7
015c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
015d e007 | | Load 0x0,0x7
015e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015f 0119 | | Execute Any,Check_In_Formal_Type
0160 4801 |H | Short_Literal 0x1
0161 00da | | Load_Top At_Offset_2
0162 01d6 | | Execute Vector,Field_Write
0163 6010 |` | Indirect_Literal Discrete,0x174,{0x00000000, 0x000081b3}
0164 e006 | | Load 0x0,0x6
0165 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0166 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0167 840d | | Call 0x2,0xd
0168 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0169 TRAP_0118:
0169 0007 | | Action Break_Optional
016a e5fc | | Load 0x2,-0x4
016b 0092 06a1 | | Action Push_String_Extended,0x6a1 ; "Rcf_Unit_Options.Set"
016d e005 | | Load 0x0,0x5
016e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
016f e006 | | Load 0x0,0x6
0170 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0171 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0172 0000 0000 | | .XXX[0x2]
0174 0000 0000 | | .LITERAL {0x00000000, 0x000081b3}
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 018b | | .CONST 0x018b ; Address of begin
0179 01a8 | | .CONST 0x01a8 ; Address of exception handler
017a 0005 | | .CONST 0x0005 ; Number of locals
017b INIT_0178:
017b e5fd | | Load 0x2,-0x3
017c 00db | | Load_Top At_Offset_3
017d e5fc | | Load 0x2,-0x4
017e e001 | | Load 0x0,0x1
017f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0180 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0181 e002 | | Load 0x0,0x2
0182 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0183 02c7 | | Declare_Variable Any
0184 00d8 | | Load_Top At_Offset_0
0185 1c00 | | Execute_Immediate Run_Utility,0x0
0186 e006 | | Load 0x0,0x6
0187 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0188 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0189 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call
018b BODY_0178:
018b 4801 |H | Short_Literal 0x1
018c 0092 06a2 | | Action Push_String_Extended,0x6a2 ; "<ALL>"
018e e5fe | | Load 0x2,-0x2
018f e008 | | Load 0x0,0x8
0190 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0191 680b |h | Jump_Zero 0x19d
0192 e006 | | Load 0x0,0x6
0193 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0194 00ea | | Load_Encached Null_String_Cache
0195 e5fd | | Load 0x2,-0x3
0196 e5ff | | Load 0x2,-0x1
0197 e5fc | | Load 0x2,-0x4
0198 e001 | | Load 0x0,0x1
0199 1b17 | | Execute Package,Field_Read,Field_Number 0x17
019a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
019b 005a | Z | Store_Top Discrete,At_Offset_2
019c 7801 |x | Jump 0x19e
019d 8405 | | Call 0x2,0x5
019e 4800 |H | Short_Literal 0x0
019f 00da | | Load_Top At_Offset_2
01a0 e006 | | Load 0x0,0x6
01a1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01a2 7004 |p | Jump_Nonzero 0x1a7
01a3 e5fd | | Load 0x2,-0x3
01a4 00da | | Load_Top At_Offset_2
01a5 e006 | | Load 0x0,0x6
01a6 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01a7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01a8 TRAP_0178:
01a8 0007 | | Action Break_Optional
01a9 e5fd | | Load 0x2,-0x3
01aa 0092 06a3 | | Action Push_String_Extended,0x6a3 ; "Rcf_Unit_Options.Remove"
01ac e005 | | Load 0x0,0x5
01ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ae e006 | | Load 0x0,0x6
01af 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01b0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01cc | | .CONST 0x01cc ; Address of begin
01b9 01e9 | | .CONST 0x01e9 ; Address of exception handler
01ba 0008 | | .CONST 0x0008 ; Number of locals
01bb INIT_01b8:
01bb e5fd | | Load 0x2,-0x3
01bc 00db | | Load_Top At_Offset_3
01bd e5fc | | Load 0x2,-0x4
01be e001 | | Load 0x0,0x1
01bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c1 e5fe | | Load 0x2,-0x2
01c2 8223 | # | Call 0x1,0x23
01c3 00e1 | | Load_Encached Boolean_Cache
01c4 00e2 | | Load_Encached Integer_Cache
01c5 00e2 | | Load_Encached Integer_Cache
01c6 00e2 | | Load_Encached Integer_Cache
01c7 e211 | | Load 0x1,0x11
01c8 0322 | " | Declare_Variable Record
01c9 e212 | | Load 0x1,0x12
01ca 00d9 | | Load_Top At_Offset_1
01cb 017d | } | Execute Record,Structure_Write
01cc BODY_01b8:
01cc 00e2 | | Load_Encached Integer_Cache
01cd 00e2 | | Load_Encached Integer_Cache
01ce 00e2 | | Load_Encached Integer_Cache
01cf 00e1 | | Load_Encached Boolean_Cache
01d0 e5fd | | Load 0x2,-0x3
01d1 e403 | | Load 0x2,0x3
01d2 e402 | | Load 0x2,0x2
01d3 e5ff | | Load 0x2,-0x1
01d4 8224 | $ | Call 0x1,0x24
01d5 c404 | | Store 0x2,0x4
01d6 c405 | | Store 0x2,0x5
01d7 c406 | | Store 0x2,0x6
01d8 005a | Z | Store_Top Discrete,At_Offset_2
01d9 e404 | | Load 0x2,0x4
01da 680c |h | Jump_Zero 0x1e7
01db 4800 |H | Short_Literal 0x0
01dc 00d9 | | Load_Top At_Offset_1
01dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01de 00d9 | | Load_Top At_Offset_1
01df e402 | | Load 0x2,0x2
01e0 01d7 | | Execute Vector,Field_Read
01e1 4801 |H | Short_Literal 0x1
01e2 e218 | | Load 0x1,0x18
01e3 01d7 | | Execute Vector,Field_Read
01e4 027f | | Execute Discrete,Equal
01e5 00d9 | | Load_Top At_Offset_1
01e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e7 00d8 | | Load_Top At_Offset_0
01e8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01e9 TRAP_01b8:
01e9 0007 | | Action Break_Optional
01ea e5fd | | Load 0x2,-0x3
01eb 0092 06a4 | | Action Push_String_Extended,0x6a4 ; "Rcf_Unit_Options.Get"
01ed e005 | | Load 0x0,0x5
01ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ef e006 | | Load 0x0,0x6
01f0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01f1 e212 | | Load 0x1,0x12
01f2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 020d | | .CONST 0x020d ; Address of begin
01f9 0235 | 5 | .CONST 0x0235 ; Address of exception handler
01fa 0009 | | .CONST 0x0009 ; Number of locals
01fb INIT_01f8:
01fb e5fd | | Load 0x2,-0x3
01fc 00db | | Load_Top At_Offset_3
01fd e5fc | | Load 0x2,-0x4
01fe e001 | | Load 0x0,0x1
01ff 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0200 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0201 e5fe | | Load 0x2,-0x2
0202 8223 | # | Call 0x1,0x23
0203 00e1 | | Load_Encached Boolean_Cache
0204 00e2 | | Load_Encached Integer_Cache
0205 00e2 | | Load_Encached Integer_Cache
0206 00e2 | | Load_Encached Integer_Cache
0207 e213 | | Load 0x1,0x13
0208 0322 | " | Declare_Variable Record
0209 e214 | | Load 0x1,0x14
020a 00d9 | | Load_Top At_Offset_1
020b 017d | } | Execute Record,Structure_Write
020c 00e3 | | Load_Encached Natural_Cache
020d BODY_01f8:
020d 00e2 | | Load_Encached Integer_Cache
020e 00e2 | | Load_Encached Integer_Cache
020f 00e2 | | Load_Encached Integer_Cache
0210 00e1 | | Load_Encached Boolean_Cache
0211 e5fd | | Load 0x2,-0x3
0212 e403 | | Load 0x2,0x3
0213 e402 | | Load 0x2,0x2
0214 e5ff | | Load 0x2,-0x1
0215 8224 | $ | Call 0x1,0x24
0216 c404 | | Store 0x2,0x4
0217 c405 | | Store 0x2,0x5
0218 c406 | | Store 0x2,0x6
0219 005b | [ | Store_Top Discrete,At_Offset_3
021a e404 | | Load 0x2,0x4
021b 6817 |h | Jump_Zero 0x233
021c 00da | | Load_Top At_Offset_2
021d e406 | | Load 0x2,0x6
021e 0272 | r | Execute Discrete,Minus
021f 0aff | | Execute_Immediate Plus,-0x1
0220 0059 | Y | Store_Top Discrete,At_Offset_1
0221 00d8 | | Load_Top At_Offset_0
0222 00da | | Load_Top At_Offset_2
0223 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0224 00db | | Load_Top At_Offset_3
0225 0a02 | | Execute_Immediate Plus,0x2
0226 00d8 | | Load_Top At_Offset_0
0227 00e2 | | Load_Encached Integer_Cache
0228 0260 | ` | Execute Discrete,In_Type
0229 7001 |p | Jump_Nonzero 0x22b
022a 0801 | | Execute_Immediate Raise,0x1
022b 00db | | Load_Top At_Offset_3
022c e402 | | Load 0x2,0x2
022d 01cf | | Execute Vector,Slice_Read
022e 4801 |H | Short_Literal 0x1
022f 00da | | Load_Top At_Offset_2
0230 e408 | | Load 0x2,0x8
0231 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0232 01ce | | Execute Vector,Slice_Write
0233 00d9 | | Load_Top At_Offset_1
0234 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0235 TRAP_01f8:
0235 0007 | | Action Break_Optional
0236 e5fd | | Load 0x2,-0x3
0237 0092 06a4 | | Action Push_String_Extended,0x6a4 ; "Rcf_Unit_Options.Get"
0239 e005 | | Load 0x0,0x5
023a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023b e006 | | Load 0x0,0x6
023c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
023d e214 | | Load 0x1,0x14
023e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 01dd | | Execute Vector,First
0245 00db | | Load_Top At_Offset_3
0246 01d7 | | Execute Vector,Field_Read
0247 0e22 | " | Execute_Immediate Not_Equal,0x22
0248 6802 |h | Jump_Zero 0x24b
0249 e009 | | Load 0x0,0x9
024a 0257 | W | Execute Discrete,Raise
024b 00cf | | Action Mark_Auxiliary
024c 00db | | Load_Top At_Offset_3
024d 01dc | | Execute Vector,Last
024e 0aff | | Execute_Immediate Plus,-0x1
024f 00d8 | | Load_Top At_Offset_0
0250 00e2 | | Load_Encached Integer_Cache
0251 0260 | ` | Execute Discrete,In_Type
0252 7001 |p | Jump_Nonzero 0x254
0253 0801 | | Execute_Immediate Raise,0x1
0254 e5ff | | Load 0x2,-0x1
0255 01dd | | Execute Vector,First
0256 0a01 | | Execute_Immediate Plus,0x1
0257 00d8 | | Load_Top At_Offset_0
0258 00e2 | | Load_Encached Integer_Cache
0259 0260 | ` | Execute Discrete,In_Type
025a 7001 |p | Jump_Nonzero 0x25c
025b 0801 | | Execute_Immediate Raise,0x1
025c 0263 | c | Execute Discrete,Above_Bound
025d 7020 |p | Jump_Nonzero 0x27e
025e 00d8 | | Load_Top At_Offset_0
025f e5ff | | Load 0x2,-0x1
0260 01d7 | | Execute Vector,Field_Read
0261 0f22 | " | Execute_Immediate Equal,0x22
0262 6819 |h | Jump_Zero 0x27c
0263 e5ff | | Load 0x2,-0x1
0264 01dd | | Execute Vector,First
0265 0a01 | | Execute_Immediate Plus,0x1
0266 00d8 | | Load_Top At_Offset_0
0267 00e2 | | Load_Encached Integer_Cache
0268 0260 | ` | Execute Discrete,In_Type
0269 7001 |p | Jump_Nonzero 0x26b
026a 0801 | | Execute_Immediate Raise,0x1
026b 00d9 | | Load_Top At_Offset_1
026c e5ff | | Load 0x2,-0x1
026d 01cf | | Execute Vector,Slice_Read
026e 00d9 | | Load_Top At_Offset_1
026f 0a01 | | Execute_Immediate Plus,0x1
0270 00d8 | | Load_Top At_Offset_0
0271 00e2 | | Load_Encached Integer_Cache
0272 0260 | ` | Execute Discrete,In_Type
0273 7001 |p | Jump_Nonzero 0x275
0274 0801 | | Execute_Immediate Raise,0x1
0275 e5ff | | Load 0x2,-0x1
0276 01dc | | Execute Vector,Last
0277 e5ff | | Load 0x2,-0x1
0278 01cf | | Execute Vector,Slice_Read
0279 8219 | | Call 0x1,0x19
027a 01cc | | Execute Vector,Catenate
027b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027c 00c8 | | Action Pop_Auxiliary_Range
027d 3fe0 |? | Loop_Increasing 0x25e
027e 00ce | | Action Pop_Auxiliary
027f 00da | | Load_Top At_Offset_2
0280 01dc | | Execute Vector,Last
0281 00db | | Load_Top At_Offset_3
0282 01d7 | | Execute Vector,Field_Read
0283 0e22 | " | Execute_Immediate Not_Equal,0x22
0284 6802 |h | Jump_Zero 0x287
0285 e009 | | Load 0x0,0x9
0286 0257 | W | Execute Discrete,Raise
0287 00da | | Load_Top At_Offset_2
0288 01dd | | Execute Vector,First
0289 0a01 | | Execute_Immediate Plus,0x1
028a 00d8 | | Load_Top At_Offset_0
028b 00e2 | | Load_Encached Integer_Cache
028c 0260 | ` | Execute Discrete,In_Type
028d 7001 |p | Jump_Nonzero 0x28f
028e 0801 | | Execute_Immediate Raise,0x1
028f 00db | | Load_Top At_Offset_3
0290 01dc | | Execute Vector,Last
0291 0aff | | Execute_Immediate Plus,-0x1
0292 00d8 | | Load_Top At_Offset_0
0293 00e2 | | Load_Encached Integer_Cache
0294 0260 | ` | Execute Discrete,In_Type
0295 7001 |p | Jump_Nonzero 0x297
0296 0801 | | Execute_Immediate Raise,0x1
0297 e5ff | | Load 0x2,-0x1
0298 01cf | | Execute Vector,Slice_Read
0299 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029a 0000 0000 | | .BLANK 0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00cf | | Action Mark_Auxiliary
02a4 00db | | Load_Top At_Offset_3
02a5 01d9 | | Execute Vector,Reverse_Bounds
02a6 0263 | c | Execute Discrete,Above_Bound
02a7 701c |p | Jump_Nonzero 0x2c4
02a8 00d8 | | Load_Top At_Offset_0
02a9 e5ff | | Load 0x2,-0x1
02aa 01d7 | | Execute Vector,Field_Read
02ab 0f22 | " | Execute_Immediate Equal,0x22
02ac 6815 |h | Jump_Zero 0x2c2
02ad 4822 |H" | Short_Literal 0x22
02ae e5ff | | Load 0x2,-0x1
02af 01dd | | Execute Vector,First
02b0 00da | | Load_Top At_Offset_2
02b1 e5ff | | Load 0x2,-0x1
02b2 01cf | | Execute Vector,Slice_Read
02b3 01ca | | Execute Vector,Prepend
02b4 00d9 | | Load_Top At_Offset_1
02b5 0a01 | | Execute_Immediate Plus,0x1
02b6 00d8 | | Load_Top At_Offset_0
02b7 00e2 | | Load_Encached Integer_Cache
02b8 0260 | ` | Execute Discrete,In_Type
02b9 7001 |p | Jump_Nonzero 0x2bb
02ba 0801 | | Execute_Immediate Raise,0x1
02bb e5ff | | Load 0x2,-0x1
02bc 01dc | | Execute Vector,Last
02bd e5ff | | Load 0x2,-0x1
02be 01cf | | Execute Vector,Slice_Read
02bf 821a | | Call 0x1,0x1a
02c0 01cc | | Execute Vector,Catenate
02c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c2 00c8 | | Action Pop_Auxiliary_Range
02c3 3fe4 |? | Loop_Increasing 0x2a8
02c4 00ce | | Action Pop_Auxiliary
02c5 4822 |H" | Short_Literal 0x22
02c6 4822 |H" | Short_Literal 0x22
02c7 e5ff | | Load 0x2,-0x1
02c8 01ca | | Execute Vector,Prepend
02c9 01cb | | Execute Vector,Append
02ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02cb 0000 0000 | | .BLANK 0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00db | | Load_Top At_Offset_3
02d4 4801 |H | Short_Literal 0x1
02d5 4801 |H | Short_Literal 0x1
02d6 e007 | | Load 0x0,0x7
02d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d8 035b | [ | Declare_Type Array,Constrained
02d9 0337 | 7 | Declare_Variable Array
02da e5ff | | Load 0x2,-0x1
02db e007 | | Load 0x0,0x7
02dc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02dd e007 | | Load 0x0,0x7
02de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02df 0119 | | Execute Any,Check_In_Formal_Type
02e0 4801 |H | Short_Literal 0x1
02e1 00da | | Load_Top At_Offset_2
02e2 01d6 | | Execute Vector,Field_Write
02e3 6004 |` | Indirect_Literal Discrete,0x2e8,{0x00000000, 0x000081ad}
02e4 e006 | | Load 0x0,0x6
02e5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e7 0000 | | .XXX[0x1]
02e8 0000 0000 | | .LITERAL {0x00000000, 0x000081ad}
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e5fd | | Load 0x2,-0x3
02f4 4801 |H | Short_Literal 0x1
02f5 4802 |H | Short_Literal 0x2
02f6 e007 | | Load 0x0,0x7
02f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f8 035b | [ | Declare_Type Array,Constrained
02f9 0337 | 7 | Declare_Variable Array
02fa e5ff | | Load 0x2,-0x1
02fb e007 | | Load 0x0,0x7
02fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02fd e007 | | Load 0x0,0x7
02fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ff 0119 | | Execute Any,Check_In_Formal_Type
0300 4801 |H | Short_Literal 0x1
0301 00da | | Load_Top At_Offset_2
0302 01d6 | | Execute Vector,Field_Write
0303 e5fe | | Load 0x2,-0x2
0304 00e1 | | Load_Encached Boolean_Cache
0305 011c | | Execute Any,Convert_Unchecked
0306 1c01 | | Execute_Immediate Run_Utility,0x1
0307 e007 | | Load 0x0,0x7
0308 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0309 e007 | | Load 0x0,0x7
030a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
030b 0119 | | Execute Any,Check_In_Formal_Type
030c 4802 |H | Short_Literal 0x2
030d 00da | | Load_Top At_Offset_2
030e 01d6 | | Execute Vector,Field_Write
030f 6004 |` | Indirect_Literal Discrete,0x314,{0x00000000, 0x000081af}
0310 e006 | | Load 0x0,0x6
0311 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0312 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0313 0000 | | .XXX[0x1]
0314 0000 0000 | | .LITERAL {0x00000000, 0x000081af}
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b e5fd | | Load 0x2,-0x3
031c 4801 |H | Short_Literal 0x1
031d 4802 |H | Short_Literal 0x2
031e e007 | | Load 0x0,0x7
031f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0320 035b | [ | Declare_Type Array,Constrained
0321 0337 | 7 | Declare_Variable Array
0322 e5ff | | Load 0x2,-0x1
0323 e007 | | Load 0x0,0x7
0324 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0325 e007 | | Load 0x0,0x7
0326 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0327 0119 | | Execute Any,Check_In_Formal_Type
0328 4801 |H | Short_Literal 0x1
0329 00da | | Load_Top At_Offset_2
032a 01d6 | | Execute Vector,Field_Write
032b e5fe | | Load 0x2,-0x2
032c 821a | | Call 0x1,0x1a
032d e007 | | Load 0x0,0x7
032e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
032f e007 | | Load 0x0,0x7
0330 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0331 0119 | | Execute Any,Check_In_Formal_Type
0332 4802 |H | Short_Literal 0x2
0333 00da | | Load_Top At_Offset_2
0334 01d6 | | Execute Vector,Field_Write
0335 6006 |` | Indirect_Literal Discrete,0x33c,{0x00000000, 0x000081ae}
0336 e006 | | Load 0x0,0x6
0337 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0338 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0339 0000 0000 | | .XXX[0x3]
033b 0000 | |
033c 0000 0000 | | .LITERAL {0x00000000, 0x000081ae}
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0348 | H | .CONST 0x0348 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0002 | | .CONST 0x0002 ; Number of locals
0343 INIT_0340:
0343 4801 |H | Short_Literal 0x1
0344 00db | | Load_Top At_Offset_3
0345 e5fe | | Load 0x2,-0x2
0346 e008 | | Load 0x0,0x8
0347 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0348 BODY_0340:
0348 00d8 | | Load_Top At_Offset_0
0349 e5ff | | Load 0x2,-0x1
034a 01dd | | Execute Vector,First
034b 027b | { | Execute Discrete,Greater_Equal
034c 680f |h | Jump_Zero 0x35c
034d 00d8 | | Load_Top At_Offset_0
034e e5fe | | Load 0x2,-0x2
034f 01db | | Execute Vector,Length
0350 0273 | s | Execute Discrete,Plus
0351 0a01 | | Execute_Immediate Plus,0x1
0352 00d8 | | Load_Top At_Offset_0
0353 00e2 | | Load_Encached Integer_Cache
0354 0260 | ` | Execute Discrete,In_Type
0355 7001 |p | Jump_Nonzero 0x357
0356 0801 | | Execute_Immediate Raise,0x1
0357 e5ff | | Load 0x2,-0x1
0358 01dc | | Execute Vector,Last
0359 e5ff | | Load 0x2,-0x1
035a 01cf | | Execute Vector,Slice_Read
035b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
035c 00db | | Load_Top At_Offset_3
035d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
035e 0000 0000 | | .XXX[0x2]
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 e5fd | | Load 0x2,-0x3
0364 e5fe | | Load 0x2,-0x2
0365 e003 | | Load 0x0,0x3
0366 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0367 00db | | Load_Top At_Offset_3
0368 821e | | Call 0x1,0x1e
0369 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
036a 0000 0000 | | .BLANK 0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00cf | | Action Mark_Auxiliary
0374 e5fe | | Load 0x2,-0x2
0375 01d9 | | Execute Vector,Reverse_Bounds
0376 0263 | c | Execute Discrete,Above_Bound
0377 7010 |p | Jump_Nonzero 0x388
0378 4800 |H | Short_Literal 0x0
0379 e5ff | | Load 0x2,-0x1
037a 00da | | Load_Top At_Offset_2
037b e5fe | | Load 0x2,-0x2
037c 01d7 | | Execute Vector,Field_Read
037d e002 | | Load 0x0,0x2
037e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
037f e008 | | Load 0x0,0x8
0380 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0381 6804 |h | Jump_Zero 0x386
0382 00d8 | | Load_Top At_Offset_0
0383 e5fe | | Load 0x2,-0x2
0384 01d7 | | Execute Vector,Field_Read
0385 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0386 00c8 | | Action Pop_Auxiliary_Range
0387 3ff0 |? | Loop_Increasing 0x378
0388 00ce | | Action Pop_Auxiliary
0389 e5fc | | Load 0x2,-0x4
038a 4801 |H | Short_Literal 0x1
038b 4802 |H | Short_Literal 0x2
038c e007 | | Load 0x0,0x7
038d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
038e 035b | [ | Declare_Type Array,Constrained
038f 0337 | 7 | Declare_Variable Array
0390 e5ff | | Load 0x2,-0x1
0391 e007 | | Load 0x0,0x7
0392 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0393 e007 | | Load 0x0,0x7
0394 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0395 0119 | | Execute Any,Check_In_Formal_Type
0396 4801 |H | Short_Literal 0x1
0397 00da | | Load_Top At_Offset_2
0398 01d6 | | Execute Vector,Field_Write
0399 e5fd | | Load 0x2,-0x3
039a e007 | | Load 0x0,0x7
039b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
039c e007 | | Load 0x0,0x7
039d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
039e 0119 | | Execute Any,Check_In_Formal_Type
039f 4802 |H | Short_Literal 0x2
03a0 00da | | Load_Top At_Offset_2
03a1 01d6 | | Execute Vector,Field_Write
03a2 6005 |` | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x0000815b}
03a3 e006 | | Load 0x0,0x6
03a4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03a5 e002 | | Load 0x0,0x2
03a6 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03a7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
03a8 0000 0000 | | .LITERAL {0x00000000, 0x0000815b}
03ac 0000 0000 | | .BLANK 0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00cf | | Action Mark_Auxiliary
03b4 e5fe | | Load 0x2,-0x2
03b5 01d9 | | Execute Vector,Reverse_Bounds
03b6 0263 | c | Execute Discrete,Above_Bound
03b7 7010 |p | Jump_Nonzero 0x3c8
03b8 4801 |H | Short_Literal 0x1
03b9 e5ff | | Load 0x2,-0x1
03ba 00da | | Load_Top At_Offset_2
03bb e5fe | | Load 0x2,-0x2
03bc 01d7 | | Execute Vector,Field_Read
03bd e002 | | Load 0x0,0x2
03be 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03bf e008 | | Load 0x0,0x8
03c0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03c1 6804 |h | Jump_Zero 0x3c6
03c2 00d8 | | Load_Top At_Offset_0
03c3 e5fe | | Load 0x2,-0x2
03c4 01d7 | | Execute Vector,Field_Read
03c5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
03c6 00c8 | | Action Pop_Auxiliary_Range
03c7 3ff0 |? | Loop_Increasing 0x3b8
03c8 00ce | | Action Pop_Auxiliary
03c9 e5fc | | Load 0x2,-0x4
03ca 4801 |H | Short_Literal 0x1
03cb 4802 |H | Short_Literal 0x2
03cc e007 | | Load 0x0,0x7
03cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ce 035b | [ | Declare_Type Array,Constrained
03cf 0337 | 7 | Declare_Variable Array
03d0 e5ff | | Load 0x2,-0x1
03d1 e007 | | Load 0x0,0x7
03d2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d3 e007 | | Load 0x0,0x7
03d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d5 0119 | | Execute Any,Check_In_Formal_Type
03d6 4801 |H | Short_Literal 0x1
03d7 00da | | Load_Top At_Offset_2
03d8 01d6 | | Execute Vector,Field_Write
03d9 e5fd | | Load 0x2,-0x3
03da e007 | | Load 0x0,0x7
03db 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03dc e007 | | Load 0x0,0x7
03dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03de 0119 | | Execute Any,Check_In_Formal_Type
03df 4802 |H | Short_Literal 0x2
03e0 00da | | Load_Top At_Offset_2
03e1 01d6 | | Execute Vector,Field_Write
03e2 67c5 |g | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x0000815b}
03e3 e006 | | Load 0x0,0x6
03e4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03e5 e002 | | Load 0x0,0x2
03e6 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03e7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00cf | | Action Mark_Auxiliary
03ec e5fe | | Load 0x2,-0x2
03ed 01d9 | | Execute Vector,Reverse_Bounds
03ee 0263 | c | Execute Discrete,Above_Bound
03ef 7010 |p | Jump_Nonzero 0x400
03f0 4800 |H | Short_Literal 0x0
03f1 e5ff | | Load 0x2,-0x1
03f2 00da | | Load_Top At_Offset_2
03f3 e5fe | | Load 0x2,-0x2
03f4 01d7 | | Execute Vector,Field_Read
03f5 e002 | | Load 0x0,0x2
03f6 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03f7 e008 | | Load 0x0,0x8
03f8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03f9 6804 |h | Jump_Zero 0x3fe
03fa 00d8 | | Load_Top At_Offset_0
03fb e5fe | | Load 0x2,-0x2
03fc 01d7 | | Execute Vector,Field_Read
03fd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
03fe 00c8 | | Action Pop_Auxiliary_Range
03ff 3ff0 |? | Loop_Increasing 0x3f0
0400 00c9 | | Action Pop_Auxiliary_Loop
0401 e5fe | | Load 0x2,-0x2
0402 01d9 | | Execute Vector,Reverse_Bounds
0403 0263 | c | Execute Discrete,Above_Bound
0404 7010 |p | Jump_Nonzero 0x415
0405 4801 |H | Short_Literal 0x1
0406 e5ff | | Load 0x2,-0x1
0407 00da | | Load_Top At_Offset_2
0408 e5fe | | Load 0x2,-0x2
0409 01d7 | | Execute Vector,Field_Read
040a e002 | | Load 0x0,0x2
040b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
040c e008 | | Load 0x0,0x8
040d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
040e 6804 |h | Jump_Zero 0x413
040f 00d8 | | Load_Top At_Offset_0
0410 e5fe | | Load 0x2,-0x2
0411 01d7 | | Execute Vector,Field_Read
0412 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0413 00c8 | | Action Pop_Auxiliary_Range
0414 3ff0 |? | Loop_Increasing 0x405
0415 00ce | | Action Pop_Auxiliary
0416 e5fc | | Load 0x2,-0x4
0417 4801 |H | Short_Literal 0x1
0418 4802 |H | Short_Literal 0x2
0419 e007 | | Load 0x0,0x7
041a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
041b 035b | [ | Declare_Type Array,Constrained
041c 0337 | 7 | Declare_Variable Array
041d e5ff | | Load 0x2,-0x1
041e e007 | | Load 0x0,0x7
041f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0420 e007 | | Load 0x0,0x7
0421 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0422 0119 | | Execute Any,Check_In_Formal_Type
0423 4801 |H | Short_Literal 0x1
0424 00da | | Load_Top At_Offset_2
0425 01d6 | | Execute Vector,Field_Write
0426 e5fd | | Load 0x2,-0x3
0427 e007 | | Load 0x0,0x7
0428 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0429 e007 | | Load 0x0,0x7
042a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
042b 0119 | | Execute Any,Check_In_Formal_Type
042c 4802 |H | Short_Literal 0x2
042d 00da | | Load_Top At_Offset_2
042e 01d6 | | Execute Vector,Field_Write
042f 6008 |` | Indirect_Literal Discrete,0x438,{0x00000000, 0x0000815b}
0430 e006 | | Load 0x0,0x6
0431 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0432 e002 | | Load 0x0,0x2
0433 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0434 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0435 0000 0000 | | .XXX[0x3]
0437 0000 | |
0438 0000 0000 | | .LITERAL {0x00000000, 0x0000815b}
043c 0000 0000 | | .BLANK 0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0446 | F | .CONST 0x0446 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0002 | | .CONST 0x0002 ; Number of locals
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 e002 | | Load 0x0,0x2
0445 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0446 BODY_0440:
0446 00d8 | | Load_Top At_Offset_0
0447 01db | | Execute Vector,Length
0448 680a |h | Jump_Zero 0x453
0449 4800 |H | Short_Literal 0x0
044a 00d9 | | Load_Top At_Offset_1
044b 0092 06a5 | | Action Push_String_Extended,0x6a5 ; " "
044d e008 | | Load 0x0,0x8
044e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
044f 00d9 | | Load_Top At_Offset_1
0450 01dd | | Execute Vector,First
0451 027b | { | Execute Discrete,Greater_Equal
0452 6804 |h | Jump_Zero 0x457
0453 00db | | Load_Top At_Offset_3
0454 e002 | | Load 0x0,0x2
0455 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0456 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0457 00d8 | | Load_Top At_Offset_0
0458 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0459 0000 0000 | | .BLANK 0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0470 | p | .CONST 0x0470 ; Address of begin
0461 04c2 | | .CONST 0x04c2 ; Address of exception handler
0462 0005 | | .CONST 0x0005 ; Number of locals
0463 INIT_0460:
0463 00db | | Load_Top At_Offset_3
0464 01dd | | Execute Vector,First
0465 00e2 | | Load_Encached Integer_Cache
0466 03f1 | | Declare_Variable Discrete,With_Value
0467 e5fe | | Load 0x2,-0x2
0468 01dd | | Execute Vector,First
0469 00e2 | | Load_Encached Integer_Cache
046a 03f1 | | Declare_Variable Discrete,With_Value
046b 00e2 | | Load_Encached Integer_Cache
046c e5fe | | Load 0x2,-0x2
046d 01dc | | Execute Vector,Last
046e 00e2 | | Load_Encached Integer_Cache
046f 03f1 | | Declare_Variable Discrete,With_Value
0470 BODY_0460:
0470 4800 |H | Short_Literal 0x0
0471 a5fb | | Store_Unchecked 0x2,-0x5
0472 00da | | Load_Top At_Offset_2
0473 a5fa | | Store_Unchecked 0x2,-0x6
0474 00d8 | | Load_Top At_Offset_0
0475 a5f8 | | Store_Unchecked 0x2,-0x8
0476 00d8 | | Load_Top At_Offset_0
0477 a5f9 | | Store_Unchecked 0x2,-0x7
0478 00cf | | Action Mark_Auxiliary
0479 4800 |H | Short_Literal 0x0
047a e402 | | Load 0x2,0x2
047b 00db | | Load_Top At_Offset_3
047c e5fe | | Load 0x2,-0x2
047d 01cf | | Execute Vector,Slice_Read
047e e5fd | | Load 0x2,-0x3
047f e008 | | Load 0x0,0x8
0480 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0481 a403 | | Store_Unchecked 0x2,0x3
0482 00db | | Load_Top At_Offset_3
0483 e402 | | Load 0x2,0x2
0484 027c | | | Execute Discrete,Less
0485 6801 |h | Jump_Zero 0x487
0486 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0487 00db | | Load_Top At_Offset_3
0488 e402 | | Load 0x2,0x2
0489 027f | | Execute Discrete,Equal
048a 7006 |p | Jump_Nonzero 0x491
048b 00db | | Load_Top At_Offset_3
048c 0aff | | Execute_Immediate Plus,-0x1
048d e5fe | | Load 0x2,-0x2
048e 01d7 | | Execute Vector,Field_Read
048f 0f0a | | Execute_Immediate Equal,0xa
0490 682c |h, | Jump_Zero 0x4bd
0491 00db | | Load_Top At_Offset_3
0492 e5fd | | Load 0x2,-0x3
0493 01db | | Execute Vector,Length
0494 0273 | s | Execute Discrete,Plus
0495 005b | [ | Store_Top Discrete,At_Offset_3
0496 00da | | Load_Top At_Offset_2
0497 e5fe | | Load 0x2,-0x2
0498 01d7 | | Execute Vector,Field_Read
0499 0f20 | | Execute_Immediate Equal,0x20
049a 6812 |h | Jump_Zero 0x4ad
049b 4801 |H | Short_Literal 0x1
049c a5fb | | Store_Unchecked 0x2,-0x5
049d 00db | | Load_Top At_Offset_3
049e a5fa | | Store_Unchecked 0x2,-0x6
049f 00da | | Load_Top At_Offset_2
04a0 0aff | | Execute_Immediate Plus,-0x1
04a1 c5f9 | | Store 0x2,-0x7
04a2 4801 |H | Short_Literal 0x1
04a3 00db | | Load_Top At_Offset_3
04a4 00db | | Load_Top At_Offset_3
04a5 e5fe | | Load 0x2,-0x2
04a6 01cf | | Execute Vector,Slice_Read
04a7 480a |H | Short_Literal 0xa
04a8 e008 | | Load 0x0,0x8
04a9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04aa 0aff | | Execute_Immediate Plus,-0x1
04ab a5f8 | | Store_Unchecked 0x2,-0x8
04ac 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04ad 00da | | Load_Top At_Offset_2
04ae e5fe | | Load 0x2,-0x2
04af 01d7 | | Execute Vector,Field_Read
04b0 0f0a | | Execute_Immediate Equal,0xa
04b1 680b |h | Jump_Zero 0x4bd
04b2 4801 |H | Short_Literal 0x1
04b3 a5fb | | Store_Unchecked 0x2,-0x5
04b4 00db | | Load_Top At_Offset_3
04b5 a5fa | | Store_Unchecked 0x2,-0x6
04b6 00da | | Load_Top At_Offset_2
04b7 0aff | | Execute_Immediate Plus,-0x1
04b8 c5f9 | | Store 0x2,-0x7
04b9 00da | | Load_Top At_Offset_2
04ba 0aff | | Execute_Immediate Plus,-0x1
04bb c5f8 | | Store 0x2,-0x8
04bc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04bd 00db | | Load_Top At_Offset_3
04be 0a01 | | Execute_Immediate Plus,0x1
04bf c402 | | Store 0x2,0x2
04c0 00c9 | | Action Pop_Auxiliary_Loop
04c1 7fb7 | | Jump 0x479
04c2 TRAP_0460:
04c2 0007 | | Action Break_Optional
04c3 e5fc | | Load 0x2,-0x4
04c4 4801 |H | Short_Literal 0x1
04c5 4801 |H | Short_Literal 0x1
04c6 e007 | | Load 0x0,0x7
04c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04c8 035b | [ | Declare_Type Array,Constrained
04c9 0337 | 7 | Declare_Variable Array
04ca e5ff | | Load 0x2,-0x1
04cb e007 | | Load 0x0,0x7
04cc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04cd e007 | | Load 0x0,0x7
04ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04cf 0119 | | Execute Any,Check_In_Formal_Type
04d0 4801 |H | Short_Literal 0x1
04d1 00da | | Load_Top At_Offset_2
04d2 01d6 | | Execute Vector,Field_Write
04d3 6004 |` | Indirect_Literal Discrete,0x4d8,{0x00000000, 0x000081b2}
04d4 e006 | | Load 0x0,0x6
04d5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04d6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04d7 0000 | | .XXX[0x1]
04d8 0000 0000 | | .LITERAL {0x00000000, 0x000081b2}
04dc 0000 0000 | | .BLANK 0000[0x4]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e8 | | .CONST 0x04e8 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0003 | | .CONST 0x0003 ; Number of locals
04e3 INIT_04e0:
04e3 e407 | | Load 0x2,0x7
04e4 e002 | | Load 0x0,0x2
04e5 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
04e6 029f 061b | | Declare_Subprogram INIT_0618,For_Call
04e8 BODY_04e0:
04e8 e5fe | | Load 0x2,-0x2
04e9 e5ff | | Load 0x2,-0x1
04ea 821b | | Call 0x1,0x1b
04eb 00cf | | Action Mark_Auxiliary
04ec 4800 |H | Short_Literal 0x0
04ed e404 | | Load 0x2,0x4
04ee e405 | | Load 0x2,0x5
04ef e402 | | Load 0x2,0x2
04f0 01cf | | Execute Vector,Slice_Read
04f1 480a |H | Short_Literal 0xa
04f2 e008 | | Load 0x0,0x8
04f3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04f4 a403 | | Store_Unchecked 0x2,0x3
04f5 e403 | | Load 0x2,0x3
04f6 e404 | | Load 0x2,0x4
04f7 027c | | | Execute Discrete,Less
04f8 6801 |h | Jump_Zero 0x4fa
04f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04fa 4800 |H | Short_Literal 0x0
04fb e404 | | Load 0x2,0x4
04fc e403 | | Load 0x2,0x3
04fd e402 | | Load 0x2,0x2
04fe 01cf | | Execute Vector,Slice_Read
04ff 0092 06a5 | | Action Push_String_Extended,0x6a5 ; " "
0501 e008 | | Load 0x0,0x8
0502 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0503 a406 | | Store_Unchecked 0x2,0x6
0504 e5fe | | Load 0x2,-0x2
0505 00d8 | | Load_Top At_Offset_0
0506 e5ff | | Load 0x2,-0x1
0507 e003 | | Load 0x0,0x3
0508 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0509 e602 | | Load 0x3,0x2
050a e404 | | Load 0x2,0x4
050b e406 | | Load 0x2,0x6
050c 0aff | | Execute_Immediate Plus,-0x1
050d 00d8 | | Load_Top At_Offset_0
050e 00e2 | | Load_Encached Integer_Cache
050f 0260 | ` | Execute Discrete,In_Type
0510 7001 |p | Jump_Nonzero 0x512
0511 0801 | | Execute_Immediate Raise,0x1
0512 e402 | | Load 0x2,0x2
0513 01cf | | Execute Vector,Slice_Read
0514 8222 | " | Call 0x1,0x22
0515 c408 | | Store 0x2,0x8
0516 8603 | | Call 0x3,0x3
0517 e403 | | Load 0x2,0x3
0518 e405 | | Load 0x2,0x5
0519 027f | | Execute Discrete,Equal
051a 6801 |h | Jump_Zero 0x51c
051b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051c e403 | | Load 0x2,0x3
051d 0a01 | | Execute_Immediate Plus,0x1
051e c404 | | Store 0x2,0x4
051f 00c9 | | Action Pop_Auxiliary_Loop
0520 7fcb | | Jump 0x4ec
0521 0000 0000 | | .BLANK 0000[0x7]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052d | - | .CONST 0x052d ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0002 | | .CONST 0x0002 ; Number of locals
052b INIT_0528:
052b e406 | | Load 0x2,0x6
052c 8223 | # | Call 0x1,0x23
052d BODY_0528:
052d 00e2 | | Load_Encached Integer_Cache
052e 00e2 | | Load_Encached Integer_Cache
052f 00e2 | | Load_Encached Integer_Cache
0530 00e1 | | Load_Encached Boolean_Cache
0531 e5fc | | Load 0x2,-0x4
0532 e602 | | Load 0x3,0x2
0533 e402 | | Load 0x2,0x2
0534 e5ff | | Load 0x2,-0x1
0535 8224 | $ | Call 0x1,0x24
0536 c407 | | Store 0x2,0x7
0537 c408 | | Store 0x2,0x8
0538 c409 | | Store 0x2,0x9
0539 c40a | | Store 0x2,0xa
053a e407 | | Load 0x2,0x7
053b 6823 |h# | Jump_Zero 0x55f
053c e006 | | Load 0x0,0x6
053d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053e e402 | | Load 0x2,0x2
053f 01dd | | Execute Vector,First
0540 e409 | | Load 0x2,0x9
0541 0a01 | | Execute_Immediate Plus,0x1
0542 00d8 | | Load_Top At_Offset_0
0543 00e2 | | Load_Encached Integer_Cache
0544 0260 | ` | Execute Discrete,In_Type
0545 7001 |p | Jump_Nonzero 0x547
0546 0801 | | Execute_Immediate Raise,0x1
0547 e402 | | Load 0x2,0x2
0548 01cf | | Execute Vector,Slice_Read
0549 e5fd | | Load 0x2,-0x3
054a 01cc | | Execute Vector,Catenate
054b e40a | | Load 0x2,0xa
054c 0a01 | | Execute_Immediate Plus,0x1
054d 00d8 | | Load_Top At_Offset_0
054e 00e2 | | Load_Encached Integer_Cache
054f 0260 | ` | Execute Discrete,In_Type
0550 7001 |p | Jump_Nonzero 0x552
0551 0801 | | Execute_Immediate Raise,0x1
0552 e402 | | Load 0x2,0x2
0553 01dc | | Execute Vector,Last
0554 e402 | | Load 0x2,0x2
0555 01cf | | Execute Vector,Slice_Read
0556 01cc | | Execute Vector,Catenate
0557 e5fc | | Load 0x2,-0x4
0558 e5ff | | Load 0x2,-0x1
0559 e5fb | | Load 0x2,-0x5
055a e001 | | Load 0x0,0x1
055b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
055c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
055d c40b | | Store 0x2,0xb
055e 7813 |x | Jump 0x572
055f e006 | | Load 0x0,0x6
0560 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0561 480a |H | Short_Literal 0xa
0562 00da | | Load_Top At_Offset_2
0563 0092 06a5 | | Action Push_String_Extended,0x6a5 ; " "
0565 01cc | | Execute Vector,Catenate
0566 e5fd | | Load 0x2,-0x3
0567 01cc | | Execute Vector,Catenate
0568 01cb | | Execute Vector,Append
0569 e402 | | Load 0x2,0x2
056a 01cc | | Execute Vector,Catenate
056b e5fc | | Load 0x2,-0x4
056c e5ff | | Load 0x2,-0x1
056d e5fb | | Load 0x2,-0x5
056e e001 | | Load 0x0,0x1
056f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0570 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0571 c40b | | Store 0x2,0xb
0572 4800 |H | Short_Literal 0x0
0573 e40b | | Load 0x2,0xb
0574 e006 | | Load 0x0,0x6
0575 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0576 7004 |p | Jump_Nonzero 0x57b
0577 e5fc | | Load 0x2,-0x4
0578 e40b | | Load 0x2,0xb
0579 e006 | | Load 0x0,0x6
057a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
057b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
057c 0000 0000 | | .BLANK 0000[0x4]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0585 | | .CONST 0x0585 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0002 | | .CONST 0x0002 ; Number of locals
0583 INIT_0580:
0583 e405 | | Load 0x2,0x5
0584 8223 | # | Call 0x1,0x23
0585 BODY_0580:
0585 00e2 | | Load_Encached Integer_Cache
0586 00e2 | | Load_Encached Integer_Cache
0587 00e2 | | Load_Encached Integer_Cache
0588 00e1 | | Load_Encached Boolean_Cache
0589 e5fc | | Load 0x2,-0x4
058a e602 | | Load 0x3,0x2
058b e402 | | Load 0x2,0x2
058c e5ff | | Load 0x2,-0x1
058d 8224 | $ | Call 0x1,0x24
058e c408 | | Store 0x2,0x8
058f c409 | | Store 0x2,0x9
0590 c40a | | Store 0x2,0xa
0591 c40b | | Store 0x2,0xb
0592 e408 | | Load 0x2,0x8
0593 6833 |h3 | Jump_Zero 0x5c7
0594 e40b | | Load 0x2,0xb
0595 e402 | | Load 0x2,0x2
0596 01d7 | | Execute Vector,Field_Read
0597 4801 |H | Short_Literal 0x1
0598 e218 | | Load 0x1,0x18
0599 01d7 | | Execute Vector,Field_Read
059a 027f | | Execute Discrete,Equal
059b a407 | | Store_Unchecked 0x2,0x7
059c e5fd | | Load 0x2,-0x3
059d e407 | | Load 0x2,0x7
059e 027f | | Execute Discrete,Equal
059f 6802 |h | Jump_Zero 0x5a2
05a0 00cc | | Action Pop_Block
05a1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
05a2 e006 | | Load 0x0,0x6
05a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a4 e5fd | | Load 0x2,-0x3
05a5 e218 | | Load 0x1,0x18
05a6 01d7 | | Execute Vector,Field_Read
05a7 e402 | | Load 0x2,0x2
05a8 01dd | | Execute Vector,First
05a9 e40a | | Load 0x2,0xa
05aa 0a01 | | Execute_Immediate Plus,0x1
05ab 00d8 | | Load_Top At_Offset_0
05ac 00e2 | | Load_Encached Integer_Cache
05ad 0260 | ` | Execute Discrete,In_Type
05ae 7001 |p | Jump_Nonzero 0x5b0
05af 0801 | | Execute_Immediate Raise,0x1
05b0 e402 | | Load 0x2,0x2
05b1 01cf | | Execute Vector,Slice_Read
05b2 01cb | | Execute Vector,Append
05b3 e40b | | Load 0x2,0xb
05b4 0a01 | | Execute_Immediate Plus,0x1
05b5 00d8 | | Load_Top At_Offset_0
05b6 00e2 | | Load_Encached Integer_Cache
05b7 0260 | ` | Execute Discrete,In_Type
05b8 7001 |p | Jump_Nonzero 0x5ba
05b9 0801 | | Execute_Immediate Raise,0x1
05ba e402 | | Load 0x2,0x2
05bb 01dc | | Execute Vector,Last
05bc e402 | | Load 0x2,0x2
05bd 01cf | | Execute Vector,Slice_Read
05be 01cc | | Execute Vector,Catenate
05bf e5fc | | Load 0x2,-0x4
05c0 e5ff | | Load 0x2,-0x1
05c1 e5fb | | Load 0x2,-0x5
05c2 e001 | | Load 0x0,0x1
05c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05c4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05c5 c40c | | Store 0x2,0xc
05c6 7815 |x | Jump 0x5dc
05c7 e006 | | Load 0x0,0x6
05c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c9 480a |H | Short_Literal 0xa
05ca e5fd | | Load 0x2,-0x3
05cb e218 | | Load 0x1,0x18
05cc 01d7 | | Execute Vector,Field_Read
05cd 00db | | Load_Top At_Offset_3
05ce 0092 06a5 | | Action Push_String_Extended,0x6a5 ; " "
05d0 01cc | | Execute Vector,Catenate
05d1 01cb | | Execute Vector,Append
05d2 01cb | | Execute Vector,Append
05d3 e402 | | Load 0x2,0x2
05d4 01cc | | Execute Vector,Catenate
05d5 e5fc | | Load 0x2,-0x4
05d6 e5ff | | Load 0x2,-0x1
05d7 e5fb | | Load 0x2,-0x5
05d8 e001 | | Load 0x0,0x1
05d9 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05da 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05db c40c | | Store 0x2,0xc
05dc 4800 |H | Short_Literal 0x0
05dd e40c | | Load 0x2,0xc
05de e006 | | Load 0x0,0x6
05df 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
05e0 7004 |p | Jump_Nonzero 0x5e5
05e1 e5fc | | Load 0x2,-0x4
05e2 e40c | | Load 0x2,0xc
05e3 e006 | | Load 0x0,0x6
05e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
05e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05e6 0000 0000 | | .XXX[0x2]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 060d | | .CONST 0x060d ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 000a | | .CONST 0x000a ; Number of locals
05eb INIT_05e8:
05eb e5fd | | Load 0x2,-0x3
05ec e5ff | | Load 0x2,-0x1
05ed e5fe | | Load 0x2,-0x2
05ee 821f | | Call 0x1,0x1f
05ef e002 | | Load 0x0,0x2
05f0 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
05f1 02c7 | | Declare_Variable Any
05f2 e5fd | | Load 0x2,-0x3
05f3 e5ff | | Load 0x2,-0x1
05f4 e003 | | Load 0x0,0x3
05f5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05f6 e004 | | Load 0x0,0x4
05f7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05f8 a603 | | Store_Unchecked 0x3,0x3
05f9 00d8 | | Load_Top At_Offset_0
05fa e002 | | Load 0x0,0x2
05fb 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
05fc e5fd | | Load 0x2,-0x3
05fd 00d8 | | Load_Top At_Offset_0
05fe e5ff | | Load 0x2,-0x1
05ff e003 | | Load 0x0,0x3
0600 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0601 00da | | Load_Top At_Offset_2
0602 e602 | | Load 0x3,0x2
0603 8221 | ! | Call 0x1,0x21
0604 e002 | | Load 0x0,0x2
0605 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0606 011e | | Execute Any,Convert
0607 00e1 | | Load_Encached Boolean_Cache
0608 00e2 | | Load_Encached Integer_Cache
0609 00e2 | | Load_Encached Integer_Cache
060a 00e2 | | Load_Encached Integer_Cache
060b 029f 064b | K| Declare_Subprogram INIT_0648,For_Call
060d BODY_05e8:
060d e605 | | Load 0x3,0x5
060e e002 | | Load 0x0,0x2
060f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0610 6802 |h | Jump_Zero 0x613
0611 00cc | | Action Pop_Block
0612 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0613 860a | | Call 0x3,0xa
0614 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0615 0000 0000 | | .XXX[0x3]
0617 0000 | |
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061e | | .CONST 0x061e ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0002 | | .CONST 0x0002 ; Number of locals
061b INIT_0618:
061b e408 | | Load 0x2,0x8
061c e002 | | Load 0x0,0x2
061d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
061e BODY_0618:
061e e408 | | Load 0x2,0x8
061f e002 | | Load 0x0,0x2
0620 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0621 6814 |h | Jump_Zero 0x636
0622 e5fe | | Load 0x2,-0x2
0623 e406 | | Load 0x2,0x6
0624 0a01 | | Execute_Immediate Plus,0x1
0625 00d8 | | Load_Top At_Offset_0
0626 00e2 | | Load_Encached Integer_Cache
0627 0260 | ` | Execute Discrete,In_Type
0628 7001 |p | Jump_Nonzero 0x62a
0629 0801 | | Execute_Immediate Raise,0x1
062a e403 | | Load 0x2,0x3
062b 0aff | | Execute_Immediate Plus,-0x1
062c 00d8 | | Load_Top At_Offset_0
062d 00e2 | | Load_Encached Integer_Cache
062e 0260 | ` | Execute Discrete,In_Type
062f 7001 |p | Jump_Nonzero 0x631
0630 0801 | | Execute_Immediate Raise,0x1
0631 e402 | | Load 0x2,0x2
0632 01cf | | Execute Vector,Slice_Read
0633 00da | | Load_Top At_Offset_2
0634 821d | | Call 0x1,0x1d
0635 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0636 e5fe | | Load 0x2,-0x2
0637 e406 | | Load 0x2,0x6
0638 0a01 | | Execute_Immediate Plus,0x1
0639 e402 | | Load 0x2,0x2
063a 01d7 | | Execute Vector,Field_Read
063b 4801 |H | Short_Literal 0x1
063c e218 | | Load 0x1,0x18
063d 01d7 | | Execute Vector,Field_Read
063e 027f | | Execute Discrete,Equal
063f 00da | | Load_Top At_Offset_2
0640 821c | | Call 0x1,0x1c
0641 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0642 0000 0000 | | .BLANK 0000[0x6]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064d | M | .CONST 0x064d ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0002 | | .CONST 0x0002 ; Number of locals
064b INIT_0648:
064b e605 | | Load 0x3,0x5
064c 8223 | # | Call 0x1,0x23
064d BODY_0648:
064d 00e2 | | Load_Encached Integer_Cache
064e 00e2 | | Load_Encached Integer_Cache
064f 00e2 | | Load_Encached Integer_Cache
0650 00e1 | | Load_Encached Boolean_Cache
0651 e5fd | | Load 0x2,-0x3
0652 e802 | | Load 0x4,0x2
0653 e402 | | Load 0x2,0x2
0654 e5ff | | Load 0x2,-0x1
0655 8224 | $ | Call 0x1,0x24
0656 c606 | | Store 0x3,0x6
0657 c607 | | Store 0x3,0x7
0658 c608 | | Store 0x3,0x8
0659 c609 | | Store 0x3,0x9
065a e606 | | Load 0x3,0x6
065b 6821 |h! | Jump_Zero 0x67d
065c e006 | | Load 0x0,0x6
065d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065e e402 | | Load 0x2,0x2
065f 01dd | | Execute Vector,First
0660 e607 | | Load 0x3,0x7
0661 0aff | | Execute_Immediate Plus,-0x1
0662 00d8 | | Load_Top At_Offset_0
0663 00e2 | | Load_Encached Integer_Cache
0664 0260 | ` | Execute Discrete,In_Type
0665 7001 |p | Jump_Nonzero 0x667
0666 0801 | | Execute_Immediate Raise,0x1
0667 e402 | | Load 0x2,0x2
0668 01cf | | Execute Vector,Slice_Read
0669 e609 | | Load 0x3,0x9
066a 0a02 | | Execute_Immediate Plus,0x2
066b 00d8 | | Load_Top At_Offset_0
066c 00e2 | | Load_Encached Integer_Cache
066d 0260 | ` | Execute Discrete,In_Type
066e 7001 |p | Jump_Nonzero 0x670
066f 0801 | | Execute_Immediate Raise,0x1
0670 e402 | | Load 0x2,0x2
0671 01dc | | Execute Vector,Last
0672 e402 | | Load 0x2,0x2
0673 01cf | | Execute Vector,Slice_Read
0674 01cc | | Execute Vector,Catenate
0675 e5fd | | Load 0x2,-0x3
0676 e5ff | | Load 0x2,-0x1
0677 e5fc | | Load 0x2,-0x4
0678 e001 | | Load 0x0,0x1
0679 1b17 | | Execute Package,Field_Read,Field_Number 0x17
067a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
067b c404 | | Store 0x2,0x4
067c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
067d e5fd | | Load 0x2,-0x3
067e 4801 |H | Short_Literal 0x1
067f 4802 |H | Short_Literal 0x2
0680 e007 | | Load 0x0,0x7
0681 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0682 035b | [ | Declare_Type Array,Constrained
0683 0337 | 7 | Declare_Variable Array
0684 e5ff | | Load 0x2,-0x1
0685 e007 | | Load 0x0,0x7
0686 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0687 e007 | | Load 0x0,0x7
0688 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0689 0119 | | Execute Any,Check_In_Formal_Type
068a 4801 |H | Short_Literal 0x1
068b 00da | | Load_Top At_Offset_2
068c 01d6 | | Execute Vector,Field_Write
068d e5fe | | Load 0x2,-0x2
068e e007 | | Load 0x0,0x7
068f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0690 e007 | | Load 0x0,0x7
0691 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0692 0119 | | Execute Any,Check_In_Formal_Type
0693 4802 |H | Short_Literal 0x2
0694 00da | | Load_Top At_Offset_2
0695 01d6 | | Execute Vector,Field_Write
0696 6005 |` | Indirect_Literal Discrete,0x69c,{0x00000000, 0x000081b0}
0697 e006 | | Load 0x0,0x6
0698 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0699 00cc | | Action Pop_Block
069a 00cc | | Action Pop_Block
069b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
069c 0000 0000 | | .LITERAL {0x00000000, 0x000081b0}
06a0 ; --------------------------------------------------------------------------------------
06a0 ; STRING TABLE
06a0 ; --------------------------------------------------------------------------------------
06a0 000e | | .STRTAB 0x000e->0x06a7 ; "Rcf_Unit_Options.Display"
06a1 0024 | $ | .STRTAB 0x0024->0x06b3 ; "Rcf_Unit_Options.Set"
06a2 0036 | 6 | .STRTAB 0x0036->0x06bd ; "<ALL>"
06a3 0039 | 9 | .STRTAB 0x0039->0x06bf ; "Rcf_Unit_Options.Remove"
06a4 004e | N | .STRTAB 0x004e->0x06cb ; "Rcf_Unit_Options.Get"
06a5 0060 | ` | .STRTAB 0x0060->0x06d5 ; " "
06a6 005f | _ | .STREND 0x005f->0x06d5
06a7 5263 665f |Rcf_| .STRTAB_STRINGS
06d6 0000 0000 | | .XXX[0x2]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; Debug Table
06d8 ; --------------------------------------------------------------------------------------
06d8 0004 000d | | .DEBUG4 0x0004,0x000d,0x4e76,0x0000,0x0001,0x0000
06de 0000 0000 | | .BLANK 0000[0x122]