|
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 0668 | h | .CONST 0x0668 ; 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 0074 | t | .CONST 0x0074 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000d 0129 | ) | Execute Any,Make_Visible
000e 00e3 | | Load_Encached Natural_Cache
000f 0266 | f | Execute Discrete,Bounds
0010 00da | | Load_Top At_Offset_2
0011 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0013 4801 |H | Short_Literal 0x1
0014 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0015 00e3 | | Load_Encached Natural_Cache
0016 e002 | | Load 0x0,0x2
0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0018 4801 |H | Short_Literal 0x1
0019 6076 |`v | Indirect_Literal Discrete,0x90,{0x00000000, 0x7fffffff}
001a e20e | | Load 0x1,0xe
001b 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
001c 029f 0583 | | Declare_Subprogram INIT_0580,For_Call
001e 4800 |H | Short_Literal 0x0
001f 4801 |H | Short_Literal 0x1
0020 4801 |H | Short_Literal 0x1
0021 4800 |H | Short_Literal 0x0
0022 4801 |H | Short_Literal 0x1
0023 4801 |H | Short_Literal 0x1
0024 031e | | Declare_Type Variant_Record,Defined,Visible
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
003c c216 | | Store 0x1,0x16
003d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
003f c21b | | Store 0x1,0x1b
0040 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0042 c21c | | Store 0x1,0x1c
0043 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0045 c21d | | Store 0x1,0x1d
0046 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0048 c21e | | Store 0x1,0x1e
0049 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
004b c21f | | Store 0x1,0x1f
004c 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
004e c220 | | Store 0x1,0x20
004f 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0051 c221 | ! | Store 0x1,0x21
0052 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
0054 c217 | | Store 0x1,0x17
0055 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
0057 c222 | " | Store 0x1,0x22
0058 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
005a c224 | $ | Store 0x1,0x24
005b 00bf | | Action Accept_Activation
005c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005d 00c7 | | Action Elaborate_Subprogram
005e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
005f 00c7 | | Action Elaborate_Subprogram
0060 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0067 00c7 | | Action Elaborate_Subprogram
0068 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0069 00c7 | | Action Elaborate_Subprogram
006a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
006b 00c7 | | Action Elaborate_Subprogram
006c 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call
006e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
006f 00c7 | | Action Elaborate_Subprogram
0070 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0071 00c7 | | Action Elaborate_Subprogram
0072 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0073 00c7 | | Action Elaborate_Subprogram
0074 BODY_0008:
0074 00bc | | Action Signal_Activated
0075 00bb | | Action Signal_Completion
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00d1 | | Pop_Control Pop_Count_1
007c 00da | | Load_Top At_Offset_2
007d 01dc | | Execute Vector,Last
007e 00db | | Load_Top At_Offset_3
007f 01dd | | Execute Vector,First
0080 0263 | c | Execute Discrete,Above_Bound
0081 700a |p | Jump_Nonzero 0x8c
0082 00d8 | | Load_Top At_Offset_0
0083 e5ff | | Load 0x2,-0x1
0084 01d5 | | Execute Vector,Field_Reference
0085 0125 | % | Execute Any,Set_Constraint
0086 00d8 | | Load_Top At_Offset_0
0087 e5ff | | Load 0x2,-0x1
0088 01d5 | | Execute Vector,Field_Reference
0089 1c00 | | Execute_Immediate Run_Utility,0x0
008a 0a01 | | Execute_Immediate Plus,0x1
008b 7ff4 | | Jump 0x80
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 00a3 | | .CONST 0x00a3 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c e003 | | Load 0x0,0x3
009d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
009e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
009f c5fe | | Store 0x2,-0x2
00a0 4800 |H | Short_Literal 0x0
00a1 a5fd | | Store_Unchecked 0x2,-0x3
00a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a3 TRAP_0098:
00a3 0007 | | Action Break_Optional
00a4 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "Convert"
00a6 e004 | | Load 0x0,0x4
00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a8 a5fd | | Store_Unchecked 0x2,-0x3
00a9 e001 | | Load 0x0,0x1
00aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ab c5fe | | Store 0x2,-0x2
00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00d4 | | .CONST 0x00d4 ; Address of begin
00b1 015a | Z | .CONST 0x015a ; Address of exception handler
00b2 0009 | | .CONST 0x0009 ; Number of locals
00b3 INIT_00b0:
00b3 e001 | | Load 0x0,0x1
00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b5 02c7 | | Declare_Variable Any
00b6 00d8 | | Load_Top At_Offset_0
00b7 1c00 | | Execute_Immediate Run_Utility,0x0
00b8 e001 | | Load 0x0,0x1
00b9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bb 02c7 | | Declare_Variable Any
00bc 00d8 | | Load_Top At_Offset_0
00bd 1c00 | | Execute_Immediate Run_Utility,0x0
00be e001 | | Load 0x0,0x1
00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c0 e002 | | Load 0x0,0x2
00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c3 4800 |H | Short_Literal 0x0
00c4 e20f | | Load 0x1,0xf
00c5 1c08 | | Execute_Immediate Run_Utility,0x8
00c6 00d8 | | Load_Top At_Offset_0
00c7 1c00 | | Execute_Immediate Run_Utility,0x0
00c8 e005 | | Load 0x0,0x5
00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ca e006 | | Load 0x0,0x6
00cb 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
00cc 0322 | " | Declare_Variable Record
00cd e5fe | | Load 0x2,-0x2
00ce e006 | | Load 0x0,0x6
00cf 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
00d0 00d9 | | Load_Top At_Offset_1
00d1 017d | } | Execute Record,Structure_Write
00d2 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call
00d4 BODY_00b0:
00d4 e5fd | | Load 0x2,-0x3
00d5 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "Rcf_Compilation.Promotion_Prerequisites"
00d7 e004 | | Load 0x0,0x4
00d8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d9 e002 | | Load 0x0,0x2
00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00db e005 | | Load 0x0,0x5
00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dd e5fd | | Load 0x2,-0x3
00de e005 | | Load 0x0,0x5
00df 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e0 c407 | | Store 0x2,0x7
00e1 c405 | | Store 0x2,0x5
00e2 e405 | | Load 0x2,0x5
00e3 6805 |h | Jump_Zero 0xe9
00e4 e405 | | Load 0x2,0x5
00e5 e406 | | Load 0x2,0x6
00e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e7 00db | | Load_Top At_Offset_3
00e8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00e9 e5fd | | Load 0x2,-0x3
00ea 4801 |H | Short_Literal 0x1
00eb e5ff | | Load 0x2,-0x1
00ec e007 | | Load 0x0,0x7
00ed 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ee c402 | | Store 0x2,0x2
00ef e5fd | | Load 0x2,-0x3
00f0 e005 | | Load 0x0,0x5
00f1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f2 6811 |h | Jump_Zero 0x104
00f3 e5fd | | Load 0x2,-0x3
00f4 e005 | | Load 0x0,0x5
00f5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00f6 700d |p | Jump_Nonzero 0x104
00f7 e002 | | Load 0x0,0x2
00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f9 e5fd | | Load 0x2,-0x3
00fa e005 | | Load 0x0,0x5
00fb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00fc c405 | | Store 0x2,0x5
00fd e405 | | Load 0x2,0x5
00fe 6805 |h | Jump_Zero 0x104
00ff e405 | | Load 0x2,0x5
0100 e406 | | Load 0x2,0x6
0101 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0102 00db | | Load_Top At_Offset_3
0103 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0104 e5fd | | Load 0x2,-0x3
0105 e005 | | Load 0x0,0x5
0106 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0107 701e |p | Jump_Nonzero 0x126
0108 e002 | | Load 0x0,0x2
0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010a e005 | | Load 0x0,0x5
010b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010c e5fd | | Load 0x2,-0x3
010d 4800 |H | Short_Literal 0x0
010e 4800 |H | Short_Literal 0x0
010f 4801 |H | Short_Literal 0x1
0110 e408 | | Load 0x2,0x8
0111 e402 | | Load 0x2,0x2
0112 e005 | | Load 0x0,0x5
0113 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0114 c407 | | Store 0x2,0x7
0115 c405 | | Store 0x2,0x5
0116 e405 | | Load 0x2,0x5
0117 6805 |h | Jump_Zero 0x11d
0118 e405 | | Load 0x2,0x5
0119 e406 | | Load 0x2,0x6
011a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
011b 00db | | Load_Top At_Offset_3
011c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
011d e002 | | Load 0x0,0x2
011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011f e5fd | | Load 0x2,-0x3
0120 4801 |H | Short_Literal 0x1
0121 e407 | | Load 0x2,0x7
0122 e005 | | Load 0x0,0x5
0123 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0124 c405 | | Store 0x2,0x5
0125 7820 |x | Jump 0x146
0126 e5fd | | Load 0x2,-0x3
0127 00da | | Load_Top At_Offset_2
0128 e402 | | Load 0x2,0x2
0129 e407 | | Load 0x2,0x7
012a e005 | | Load 0x0,0x5
012b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
012c 7019 |p | Jump_Nonzero 0x146
012d e002 | | Load 0x0,0x2
012e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012f 00db | | Load_Top At_Offset_3
0130 e5fd | | Load 0x2,-0x3
0131 e408 | | Load 0x2,0x8
0132 e402 | | Load 0x2,0x2
0133 e005 | | Load 0x0,0x5
0134 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0135 c407 | | Store 0x2,0x7
0136 c405 | | Store 0x2,0x5
0137 e405 | | Load 0x2,0x5
0138 6805 |h | Jump_Zero 0x13e
0139 e405 | | Load 0x2,0x5
013a e406 | | Load 0x2,0x6
013b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
013c 00db | | Load_Top At_Offset_3
013d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
013e e002 | | Load 0x0,0x2
013f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0140 e5fd | | Load 0x2,-0x3
0141 4801 |H | Short_Literal 0x1
0142 e407 | | Load 0x2,0x7
0143 e005 | | Load 0x0,0x5
0144 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0145 c405 | | Store 0x2,0x5
0146 e002 | | Load 0x0,0x2
0147 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0148 e5fd | | Load 0x2,-0x3
0149 00db | | Load_Top At_Offset_3
014a e407 | | Load 0x2,0x7
014b e402 | | Load 0x2,0x2
014c e5ff | | Load 0x2,-0x1
014d e003 | | Load 0x0,0x3
014e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
014f 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0150 c405 | | Store 0x2,0x5
0151 e405 | | Load 0x2,0x5
0152 6805 |h | Jump_Zero 0x158
0153 e405 | | Load 0x2,0x5
0154 e406 | | Load 0x2,0x6
0155 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0156 00db | | Load_Top At_Offset_3
0157 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0158 8409 | | Call 0x2,0x9
0159 0831 | 1 | Execute_Immediate Raise,0x31
015a TRAP_00b0:
015a e002 | | Load 0x0,0x2
015b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
015c 010f | | Execute Exception,Equal
015d 6806 |h | Jump_Zero 0x164
015e e002 | | Load 0x0,0x2
015f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0160 e406 | | Load 0x2,0x6
0161 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0162 e406 | | Load 0x2,0x6
0163 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0164 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "Promotion_Prerequisites"
0166 e004 | | Load 0x0,0x4
0167 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0168 e406 | | Load 0x2,0x6
0169 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
016a e406 | | Load 0x2,0x6
016b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0187 | | .CONST 0x0187 ; Address of begin
0171 01e8 | | .CONST 0x01e8 ; Address of exception handler
0172 0006 | | .CONST 0x0006 ; Number of locals
0173 INIT_0170:
0173 e002 | | Load 0x0,0x2
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0176 4800 |H | Short_Literal 0x0
0177 e20f | | Load 0x1,0xf
0178 1c08 | | Execute_Immediate Run_Utility,0x8
0179 00d8 | | Load_Top At_Offset_0
017a 1c00 | | Execute_Immediate Run_Utility,0x0
017b e005 | | Load 0x0,0x5
017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017d e006 | | Load 0x0,0x6
017e 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
017f 0322 | " | Declare_Variable Record
0180 e5fe | | Load 0x2,-0x2
0181 e006 | | Load 0x0,0x6
0182 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0183 00d9 | | Load_Top At_Offset_1
0184 017d | } | Execute Record,Structure_Write
0185 029f 050b | | Declare_Subprogram INIT_0508,For_Call
0187 BODY_0170:
0187 e5fd | | Load 0x2,-0x3
0188 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Rcf_Compilation.Demotion_Effects"
018a e004 | | Load 0x0,0x4
018b 180e | | Execute Package,Field_Execute,Field_Number 0xe
018c e5fd | | Load 0x2,-0x3
018d 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "Valid Supplier Domain => "
018f e5fd | | Load 0x2,-0x3
0190 e005 | | Load 0x0,0x5
0191 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0192 00e1 | | Load_Encached Boolean_Cache
0193 011c | | Execute Any,Convert_Unchecked
0194 1c01 | | Execute_Immediate Run_Utility,0x1
0195 01cc | | Execute Vector,Catenate
0196 e004 | | Load 0x0,0x4
0197 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0198 e002 | | Load 0x0,0x2
0199 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019a e005 | | Load 0x0,0x5
019b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019c e5fd | | Load 0x2,-0x3
019d e005 | | Load 0x0,0x5
019e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019f c404 | | Store 0x2,0x4
01a0 c402 | | Store 0x2,0x2
01a1 e402 | | Load 0x2,0x2
01a2 6805 |h | Jump_Zero 0x1a8
01a3 e402 | | Load 0x2,0x2
01a4 e403 | | Load 0x2,0x3
01a5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a6 00db | | Load_Top At_Offset_3
01a7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01a8 e5fd | | Load 0x2,-0x3
01a9 e005 | | Load 0x0,0x5
01aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01ab 681d |h | Jump_Zero 0x1c9
01ac e5fd | | Load 0x2,-0x3
01ad 00da | | Load_Top At_Offset_2
01ae e5fd | | Load 0x2,-0x3
01af 4801 |H | Short_Literal 0x1
01b0 e5ff | | Load 0x2,-0x1
01b1 e007 | | Load 0x0,0x7
01b2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b3 e404 | | Load 0x2,0x4
01b4 e005 | | Load 0x0,0x5
01b5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01b6 e5fd | | Load 0x2,-0x3
01b7 e005 | | Load 0x0,0x5
01b8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01b9 0f00 | | Execute_Immediate Equal,0x0
01ba 0279 | y | Execute Discrete,And
01bb 700d |p | Jump_Nonzero 0x1c9
01bc e002 | | Load 0x0,0x2
01bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01be e5fd | | Load 0x2,-0x3
01bf e005 | | Load 0x0,0x5
01c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01c1 c402 | | Store 0x2,0x2
01c2 e402 | | Load 0x2,0x2
01c3 6805 |h | Jump_Zero 0x1c9
01c4 e402 | | Load 0x2,0x2
01c5 e403 | | Load 0x2,0x3
01c6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01c7 00db | | Load_Top At_Offset_3
01c8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01c9 e5fd | | Load 0x2,-0x3
01ca e005 | | Load 0x0,0x5
01cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01cc 7019 |p | Jump_Nonzero 0x1e6
01cd e002 | | Load 0x0,0x2
01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cf 00db | | Load_Top At_Offset_3
01d0 e5fd | | Load 0x2,-0x3
01d1 e405 | | Load 0x2,0x5
01d2 e5ff | | Load 0x2,-0x1
01d3 e005 | | Load 0x0,0x5
01d4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01d5 c404 | | Store 0x2,0x4
01d6 c402 | | Store 0x2,0x2
01d7 e402 | | Load 0x2,0x2
01d8 6805 |h | Jump_Zero 0x1de
01d9 e402 | | Load 0x2,0x2
01da e403 | | Load 0x2,0x3
01db 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01dc 00db | | Load_Top At_Offset_3
01dd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01de e002 | | Load 0x0,0x2
01df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e0 e5fd | | Load 0x2,-0x3
01e1 4800 |H | Short_Literal 0x0
01e2 e404 | | Load 0x2,0x4
01e3 e005 | | Load 0x0,0x5
01e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e5 c402 | | Store 0x2,0x2
01e6 8406 | | Call 0x2,0x6
01e7 0831 | 1 | Execute_Immediate Raise,0x31
01e8 TRAP_0170:
01e8 e002 | | Load 0x0,0x2
01e9 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01ea 010f | | Execute Exception,Equal
01eb 6806 |h | Jump_Zero 0x1f2
01ec e002 | | Load 0x0,0x2
01ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ee e403 | | Load 0x2,0x3
01ef 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f0 e403 | | Load 0x2,0x3
01f1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01f2 0092 05aa | | Action Push_String_Extended,0x5aa ; "Demotion_Effects"
01f4 e004 | | Load 0x0,0x4
01f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f6 e403 | | Load 0x2,0x3
01f7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f8 e403 | | Load 0x2,0x3
01f9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01fa 0000 0000 | | .BLANK 0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0221 | ! | .CONST 0x0221 ; Address of begin
0201 0289 | | .CONST 0x0289 ; Address of exception handler
0202 0009 | | .CONST 0x0009 ; Number of locals
0203 INIT_0200:
0203 e005 | | Load 0x0,0x5
0204 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0205 e002 | | Load 0x0,0x2
0206 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0207 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0208 e006 | | Load 0x0,0x6
0209 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
020a 0322 | " | Declare_Variable Record
020b e5fe | | Load 0x2,-0x2
020c e006 | | Load 0x0,0x6
020d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
020e 00d9 | | Load_Top At_Offset_1
020f 017d | } | Execute Record,Structure_Write
0210 e001 | | Load 0x0,0x1
0211 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0212 02c7 | | Declare_Variable Any
0213 00d8 | | Load_Top At_Offset_0
0214 1c00 | | Execute_Immediate Run_Utility,0x0
0215 e001 | | Load 0x0,0x1
0216 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0217 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0218 02c7 | | Declare_Variable Any
0219 00d8 | | Load_Top At_Offset_0
021a 1c00 | | Execute_Immediate Run_Utility,0x0
021b e001 | | Load 0x0,0x1
021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021d 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call
021f 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call
0221 BODY_0200:
0221 e5fd | | Load 0x2,-0x3
0222 0092 05ab | | Action Push_String_Extended,0x5ab ; "Rcf_Compilation.Promote"
0224 e004 | | Load 0x0,0x4
0225 180e | | Execute Package,Field_Execute,Field_Number 0xe
0226 e002 | | Load 0x0,0x2
0227 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0228 e005 | | Load 0x0,0x5
0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022a e5fd | | Load 0x2,-0x3
022b e005 | | Load 0x0,0x5
022c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
022d c402 | | Store 0x2,0x2
022e c403 | | Store 0x2,0x3
022f e403 | | Load 0x2,0x3
0230 6803 |h | Jump_Zero 0x234
0231 e403 | | Load 0x2,0x3
0232 a5fc | | Store_Unchecked 0x2,-0x4
0233 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0234 e5fd | | Load 0x2,-0x3
0235 4801 |H | Short_Literal 0x1
0236 e5ff | | Load 0x2,-0x1
0237 e007 | | Load 0x0,0x7
0238 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0239 c405 | | Store 0x2,0x5
023a e402 | | Load 0x2,0x2
023b e005 | | Load 0x0,0x5
023c 180f | | Execute Package,Field_Execute,Field_Number 0xf
023d 681c |h | Jump_Zero 0x25a
023e e002 | | Load 0x0,0x2
023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0240 e005 | | Load 0x0,0x5
0241 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0242 e5fd | | Load 0x2,-0x3
0243 4800 |H | Short_Literal 0x0
0244 4800 |H | Short_Literal 0x0
0245 4801 |H | Short_Literal 0x1
0246 e404 | | Load 0x2,0x4
0247 e405 | | Load 0x2,0x5
0248 e005 | | Load 0x0,0x5
0249 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
024a c402 | | Store 0x2,0x2
024b c403 | | Store 0x2,0x3
024c e403 | | Load 0x2,0x3
024d 6803 |h | Jump_Zero 0x251
024e e403 | | Load 0x2,0x3
024f a5fc | | Store_Unchecked 0x2,-0x4
0250 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0251 e002 | | Load 0x0,0x2
0252 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0253 e5fd | | Load 0x2,-0x3
0254 4801 |H | Short_Literal 0x1
0255 e402 | | Load 0x2,0x2
0256 e005 | | Load 0x0,0x5
0257 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0258 c403 | | Store 0x2,0x3
0259 781e |x | Jump 0x278
025a e5fd | | Load 0x2,-0x3
025b e404 | | Load 0x2,0x4
025c e405 | | Load 0x2,0x5
025d e402 | | Load 0x2,0x2
025e e005 | | Load 0x0,0x5
025f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0260 7017 |p | Jump_Nonzero 0x278
0261 e002 | | Load 0x0,0x2
0262 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0263 e5fd | | Load 0x2,-0x3
0264 e404 | | Load 0x2,0x4
0265 e405 | | Load 0x2,0x5
0266 e402 | | Load 0x2,0x2
0267 e003 | | Load 0x0,0x3
0268 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0269 186b | k | Execute Package,Field_Execute,Field_Number 0x6b
026a c403 | | Store 0x2,0x3
026b e403 | | Load 0x2,0x3
026c 6803 |h | Jump_Zero 0x270
026d e403 | | Load 0x2,0x3
026e a5fc | | Store_Unchecked 0x2,-0x4
026f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0270 e002 | | Load 0x0,0x2
0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0272 e5fd | | Load 0x2,-0x3
0273 4801 |H | Short_Literal 0x1
0274 e402 | | Load 0x2,0x2
0275 e005 | | Load 0x0,0x5
0276 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0277 c403 | | Store 0x2,0x3
0278 e002 | | Load 0x0,0x2
0279 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027a e5fd | | Load 0x2,-0x3
027b e404 | | Load 0x2,0x4
027c e5ff | | Load 0x2,-0x1
027d e402 | | Load 0x2,0x2
027e e003 | | Load 0x0,0x3
027f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0280 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0281 c5fc | | Store 0x2,-0x4
0282 e002 | | Load 0x0,0x2
0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0284 e5fd | | Load 0x2,-0x3
0285 e005 | | Load 0x0,0x5
0286 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0287 c403 | | Store 0x2,0x3
0288 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0289 TRAP_0200:
0289 e002 | | Load 0x0,0x2
028a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
028b 010f | | Execute Exception,Equal
028c 6805 |h | Jump_Zero 0x292
028d e002 | | Load 0x0,0x2
028e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
028f a5fc | | Store_Unchecked 0x2,-0x4
0290 8408 | | Call 0x2,0x8
0291 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0292 8409 | | Call 0x2,0x9
0293 0092 05ac | | Action Push_String_Extended,0x5ac ; "Promote"
0295 e004 | | Load 0x0,0x4
0296 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0297 a5fc | | Store_Unchecked 0x2,-0x4
0298 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02b4 | | .CONST 0x02b4 ; Address of begin
02a1 02c4 | | .CONST 0x02c4 ; Address of exception handler
02a2 0006 | | .CONST 0x0006 ; Number of locals
02a3 INIT_02a0:
02a3 e005 | | Load 0x0,0x5
02a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a5 e002 | | Load 0x0,0x2
02a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02a8 e006 | | Load 0x0,0x6
02a9 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
02aa 0322 | " | Declare_Variable Record
02ab e5fe | | Load 0x2,-0x2
02ac e006 | | Load 0x0,0x6
02ad 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
02ae 00d9 | | Load_Top At_Offset_1
02af 017d | } | Execute Record,Structure_Write
02b0 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call
02b2 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call
02b4 BODY_02a0:
02b4 e5fd | | Load 0x2,-0x3
02b5 0092 05ad | | Action Push_String_Extended,0x5ad ; "Rcf_Compilation.Demote"
02b7 e004 | | Load 0x0,0x4
02b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b9 e002 | | Load 0x0,0x2
02ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02bb e5fd | | Load 0x2,-0x3
02bc e404 | | Load 0x2,0x4
02bd e5ff | | Load 0x2,-0x1
02be e402 | | Load 0x2,0x2
02bf e003 | | Load 0x0,0x3
02c0 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02c1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02c2 c5fc | | Store 0x2,-0x4
02c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02c4 TRAP_02a0:
02c4 e002 | | Load 0x0,0x2
02c5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02c6 010f | | Execute Exception,Equal
02c7 6805 |h | Jump_Zero 0x2cd
02c8 e002 | | Load 0x0,0x2
02c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02ca a5fc | | Store_Unchecked 0x2,-0x4
02cb 8405 | | Call 0x2,0x5
02cc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02cd 8406 | | Call 0x2,0x6
02ce 0092 05ae | | Action Push_String_Extended,0x5ae ; "Demote"
02d0 e004 | | Load 0x0,0x4
02d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d2 a5fc | | Store_Unchecked 0x2,-0x4
02d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e8 | | .CONST 0x02e8 ; Address of begin
02d9 031f | | .CONST 0x031f ; Address of exception handler
02da 0004 | | .CONST 0x0004 ; Number of locals
02db INIT_02d8:
02db e002 | | Load 0x0,0x2
02dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02de e005 | | Load 0x0,0x5
02df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e0 e006 | | Load 0x0,0x6
02e1 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
02e2 0322 | " | Declare_Variable Record
02e3 e5fd | | Load 0x2,-0x3
02e4 e006 | | Load 0x0,0x6
02e5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
02e6 00d9 | | Load_Top At_Offset_1
02e7 017d | } | Execute Record,Structure_Write
02e8 BODY_02d8:
02e8 e5fb | | Load 0x2,-0x5
02e9 0092 05af | | Action Push_String_Extended,0x5af ; "Rcf_Compilation.Link"
02eb e004 | | Load 0x0,0x4
02ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ed e002 | | Load 0x0,0x2
02ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ef 00da | | Load_Top At_Offset_2
02f0 e5fb | | Load 0x2,-0x5
02f1 00db | | Load_Top At_Offset_3
02f2 e5ff | | Load 0x2,-0x1
02f3 e005 | | Load 0x0,0x5
02f4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02f5 003b | ; | Store_Top Access,At_Offset_3
02f6 005b | [ | Store_Top Discrete,At_Offset_3
02f7 00da | | Load_Top At_Offset_2
02f8 6803 |h | Jump_Zero 0x2fc
02f9 00da | | Load_Top At_Offset_2
02fa a5fa | | Store_Unchecked 0x2,-0x6
02fb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02fc e002 | | Load 0x0,0x2
02fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fe e5fb | | Load 0x2,-0x5
02ff 00da | | Load_Top At_Offset_2
0300 e5fc | | Load 0x2,-0x4
0301 e5fe | | Load 0x2,-0x2
0302 e5ff | | Load 0x2,-0x1
0303 e403 | | Load 0x2,0x3
0304 e003 | | Load 0x0,0x3
0305 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0306 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0307 005b | [ | Store_Top Discrete,At_Offset_3
0308 00da | | Load_Top At_Offset_2
0309 a5fa | | Store_Unchecked 0x2,-0x6
030a 00da | | Load_Top At_Offset_2
030b 6809 |h | Jump_Zero 0x315
030c e002 | | Load 0x0,0x2
030d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030e 00da | | Load_Top At_Offset_2
030f e5fb | | Load 0x2,-0x5
0310 e005 | | Load 0x0,0x5
0311 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0312 003b | ; | Store_Top Access,At_Offset_3
0313 005b | [ | Store_Top Discrete,At_Offset_3
0314 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0315 e002 | | Load 0x0,0x2
0316 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0317 00da | | Load_Top At_Offset_2
0318 e5fb | | Load 0x2,-0x5
0319 e003 | | Load 0x0,0x3
031a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
031b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
031c 003b | ; | Store_Top Access,At_Offset_3
031d 005b | [ | Store_Top Discrete,At_Offset_3
031e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
031f TRAP_02d8:
031f e002 | | Load 0x0,0x2
0320 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0321 010f | | Execute Exception,Equal
0322 6810 |h | Jump_Zero 0x333
0323 e002 | | Load 0x0,0x2
0324 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0325 a5fa | | Store_Unchecked 0x2,-0x6
0326 00da | | Load_Top At_Offset_2
0327 e005 | | Load 0x0,0x5
0328 180f | | Execute Package,Field_Execute,Field_Number 0xf
0329 7008 |p | Jump_Nonzero 0x332
032a e002 | | Load 0x0,0x2
032b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032c 00db | | Load_Top At_Offset_3
032d e5fb | | Load 0x2,-0x5
032e e005 | | Load 0x0,0x5
032f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0330 c403 | | Store 0x2,0x3
0331 c402 | | Store 0x2,0x2
0332 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0333 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "Link"
0335 e004 | | Load 0x0,0x4
0336 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0337 a5fa | | Store_Unchecked 0x2,-0x6
0338 00da | | Load_Top At_Offset_2
0339 e005 | | Load 0x0,0x5
033a 180f | | Execute Package,Field_Execute,Field_Number 0xf
033b 7008 |p | Jump_Nonzero 0x344
033c e002 | | Load 0x0,0x2
033d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033e 00db | | Load_Top At_Offset_3
033f e5fb | | Load 0x2,-0x5
0340 e005 | | Load 0x0,0x5
0341 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0342 c403 | | Store 0x2,0x3
0343 c402 | | Store 0x2,0x2
0344 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0358 | X | .CONST 0x0358 ; Address of begin
0349 0390 | | .CONST 0x0390 ; Address of exception handler
034a 0004 | | .CONST 0x0004 ; Number of locals
034b INIT_0348:
034b e006 | | Load 0x0,0x6
034c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
034d 0322 | " | Declare_Variable Record
034e e5fd | | Load 0x2,-0x3
034f e006 | | Load 0x0,0x6
0350 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0351 00d9 | | Load_Top At_Offset_1
0352 017d | } | Execute Record,Structure_Write
0353 e005 | | Load 0x0,0x5
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 e002 | | Load 0x0,0x2
0356 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0357 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0358 BODY_0348:
0358 4800 |H | Short_Literal 0x0
0359 a5fb | | Store_Unchecked 0x2,-0x5
035a e002 | | Load 0x0,0x2
035b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035c e005 | | Load 0x0,0x5
035d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035e e5fc | | Load 0x2,-0x4
035f 4800 |H | Short_Literal 0x0
0360 4800 |H | Short_Literal 0x0
0361 4801 |H | Short_Literal 0x1
0362 e402 | | Load 0x2,0x2
0363 e5fe | | Load 0x2,-0x2
0364 e005 | | Load 0x0,0x5
0365 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0366 003b | ; | Store_Top Access,At_Offset_3
0367 0059 | Y | Store_Top Discrete,At_Offset_1
0368 00d8 | | Load_Top At_Offset_0
0369 6803 |h | Jump_Zero 0x36d
036a 00d8 | | Load_Top At_Offset_0
036b a5fb | | Store_Unchecked 0x2,-0x5
036c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
036d 00d9 | | Load_Top At_Offset_1
036e e005 | | Load 0x0,0x5
036f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0370 6807 |h | Jump_Zero 0x378
0371 e008 | | Load 0x0,0x8
0372 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0373 602c |`, | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x00008147}
0374 e002 | | Load 0x0,0x2
0375 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0376 a5fb | | Store_Unchecked 0x2,-0x5
0377 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0378 e5ff | | Load 0x2,-0x1
0379 e007 | | Load 0x0,0x7
037a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
037b 700b |p | Jump_Nonzero 0x387
037c e002 | | Load 0x0,0x2
037d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037e e5fc | | Load 0x2,-0x4
037f e402 | | Load 0x2,0x2
0380 e403 | | Load 0x2,0x3
0381 e5fe | | Load 0x2,-0x2
0382 e5ff | | Load 0x2,-0x1
0383 e003 | | Load 0x0,0x3
0384 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0385 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0386 c5fb | | Store 0x2,-0x5
0387 e002 | | Load 0x0,0x2
0388 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0389 00da | | Load_Top At_Offset_2
038a e5fc | | Load 0x2,-0x4
038b e005 | | Load 0x0,0x5
038c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
038d 003b | ; | Store_Top Access,At_Offset_3
038e 0059 | Y | Store_Top Discrete,At_Offset_1
038f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0390 TRAP_0348:
0390 e002 | | Load 0x0,0x2
0391 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0392 010f | | Execute Exception,Equal
0393 6804 |h | Jump_Zero 0x398
0394 e002 | | Load 0x0,0x2
0395 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0396 a5fb | | Store_Unchecked 0x2,-0x5
0397 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0398 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "Refresh_Suppliers"
039a e004 | | Load 0x0,0x4
039b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
039c a5fb | | Store_Unchecked 0x2,-0x5
039d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
039e 0000 0000 | | .XXX[0x2]
03a0 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b3 | | .CONST 0x03b3 ; Address of begin
03a9 03be | | .CONST 0x03be ; Address of exception handler
03aa 0002 | | .CONST 0x0002 ; Number of locals
03ab INIT_03a8:
03ab e006 | | Load 0x0,0x6
03ac 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
03ad 0322 | " | Declare_Variable Record
03ae e5fd | | Load 0x2,-0x3
03af e006 | | Load 0x0,0x6
03b0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
03b1 00d9 | | Load_Top At_Offset_1
03b2 017d | } | Execute Record,Structure_Write
03b3 BODY_03a8:
03b3 e002 | | Load 0x0,0x2
03b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b5 e5fc | | Load 0x2,-0x4
03b6 00da | | Load_Top At_Offset_2
03b7 e5fe | | Load 0x2,-0x2
03b8 e5ff | | Load 0x2,-0x1
03b9 e003 | | Load 0x0,0x3
03ba 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03bb 186c | l | Execute Package,Field_Execute,Field_Number 0x6c
03bc c5fb | | Store 0x2,-0x5
03bd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03be TRAP_03a8:
03be e002 | | Load 0x0,0x2
03bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03c0 010f | | Execute Exception,Equal
03c1 6804 |h | Jump_Zero 0x3c6
03c2 e002 | | Load 0x0,0x2
03c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03c4 a5fb | | Store_Unchecked 0x2,-0x5
03c5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03c6 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "Unregister_Unit"
03c8 e004 | | Load 0x0,0x4
03c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ca a5fb | | Store_Unchecked 0x2,-0x5
03cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d5 | | .CONST 0x03d5 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0002 | | .CONST 0x0002 ; Number of locals
03d3 INIT_03d0:
03d3 e009 | | Load 0x0,0x9
03d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d5 BODY_03d0:
03d5 00db | | Load_Top At_Offset_3
03d6 682b |h+ | Jump_Zero 0x402
03d7 00db | | Load_Top At_Offset_3
03d8 e002 | | Load 0x0,0x2
03d9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
03da e002 | | Load 0x0,0x2
03db 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03dc 460b |F | Jump_Case 0xc
03dd 780b |x | Jump 0x3e9 ; case 0x0
03de 780a |x | Jump 0x3e9 ; case 0x1
03df 7809 |x | Jump 0x3e9 ; case 0x2
03e0 7808 |x | Jump 0x3e9 ; case 0x3
03e1 7807 |x | Jump 0x3e9 ; case 0x4
03e2 7809 |x | Jump 0x3ec ; case 0x5
03e3 780b |x | Jump 0x3ef ; case 0x6
03e4 780d |x | Jump 0x3f2 ; case 0x7
03e5 780f |x | Jump 0x3f5 ; case 0x8
03e6 7802 |x | Jump 0x3e9 ; case 0x9
03e7 7801 |x | Jump 0x3e9 ; case 0xa
03e8 7800 |x | Jump 0x3e9 ; case 0xb
03e9 4800 |H | Short_Literal 0x0
03ea 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03eb 780b |x | Jump 0x3f7
03ec 4803 |H | Short_Literal 0x3
03ed 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03ee 7808 |x | Jump 0x3f7
03ef 4801 |H | Short_Literal 0x1
03f0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03f1 7805 |x | Jump 0x3f7
03f2 4803 |H | Short_Literal 0x3
03f3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03f4 7802 |x | Jump 0x3f7
03f5 4803 |H | Short_Literal 0x3
03f6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03f7 e5fe | | Load 0x2,-0x2
03f8 00d9 | | Load_Top At_Offset_1
03f9 e5ff | | Load 0x2,-0x1
03fa e002 | | Load 0x0,0x2
03fb 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
03fc 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "TBU error"
03fe e009 | | Load 0x0,0x9
03ff 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0400 c5fe | | Store 0x2,-0x2
0401 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0402 e5fe | | Load 0x2,-0x2
0403 e009 | | Load 0x0,0x9
0404 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0405 c5fe | | Store 0x2,-0x2
0406 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0407 0000 | | .XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0418 | | .CONST 0x0418 ; Address of begin
0409 0450 | P | .CONST 0x0450 ; Address of exception handler
040a 0004 | | .CONST 0x0004 ; Number of locals
040b INIT_0408:
040b e006 | | Load 0x0,0x6
040c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
040d 0322 | " | Declare_Variable Record
040e e5fd | | Load 0x2,-0x3
040f e006 | | Load 0x0,0x6
0410 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0411 00d9 | | Load_Top At_Offset_1
0412 017d | } | Execute Record,Structure_Write
0413 e005 | | Load 0x0,0x5
0414 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0415 e002 | | Load 0x0,0x2
0416 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0417 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0418 BODY_0408:
0418 4800 |H | Short_Literal 0x0
0419 a5fb | | Store_Unchecked 0x2,-0x5
041a e002 | | Load 0x0,0x2
041b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041c e005 | | Load 0x0,0x5
041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041e e5fc | | Load 0x2,-0x4
041f 4800 |H | Short_Literal 0x0
0420 4800 |H | Short_Literal 0x0
0421 4801 |H | Short_Literal 0x1
0422 e402 | | Load 0x2,0x2
0423 e5fe | | Load 0x2,-0x2
0424 e005 | | Load 0x0,0x5
0425 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0426 003b | ; | Store_Top Access,At_Offset_3
0427 0059 | Y | Store_Top Discrete,At_Offset_1
0428 00d8 | | Load_Top At_Offset_0
0429 6803 |h | Jump_Zero 0x42d
042a 00d8 | | Load_Top At_Offset_0
042b a5fb | | Store_Unchecked 0x2,-0x5
042c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
042d 00d9 | | Load_Top At_Offset_1
042e e005 | | Load 0x0,0x5
042f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0430 6807 |h | Jump_Zero 0x438
0431 e008 | | Load 0x0,0x8
0432 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0433 602c |`, | Indirect_Literal Discrete,0x460,{0x00000000, 0x00008147}
0434 e002 | | Load 0x0,0x2
0435 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0436 a5fb | | Store_Unchecked 0x2,-0x5
0437 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0438 e5ff | | Load 0x2,-0x1
0439 e007 | | Load 0x0,0x7
043a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
043b 700b |p | Jump_Nonzero 0x447
043c e002 | | Load 0x0,0x2
043d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043e e5fc | | Load 0x2,-0x4
043f e402 | | Load 0x2,0x2
0440 e403 | | Load 0x2,0x3
0441 e5fe | | Load 0x2,-0x2
0442 e5ff | | Load 0x2,-0x1
0443 e003 | | Load 0x0,0x3
0444 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0445 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0446 c5fb | | Store 0x2,-0x5
0447 e002 | | Load 0x0,0x2
0448 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0449 00da | | Load_Top At_Offset_2
044a e5fc | | Load 0x2,-0x4
044b e005 | | Load 0x0,0x5
044c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
044d 003b | ; | Store_Top Access,At_Offset_3
044e 0059 | Y | Store_Top Discrete,At_Offset_1
044f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0450 TRAP_0408:
0450 e002 | | Load 0x0,0x2
0451 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0452 010f | | Execute Exception,Equal
0453 6804 |h | Jump_Zero 0x458
0454 e002 | | Load 0x0,0x2
0455 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0456 a5fb | | Store_Unchecked 0x2,-0x5
0457 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0458 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "Register"
045a e004 | | Load 0x0,0x4
045b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
045c a5fb | | Store_Unchecked 0x2,-0x5
045d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
045e 0000 0000 | | .XXX[0x2]
0460 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
0464 0000 0000 | | .BLANK 0000[0x4]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0470 | p | .CONST 0x0470 ; Address of begin
0469 04a5 | | .CONST 0x04a5 ; Address of exception handler
046a 0003 | | .CONST 0x0003 ; Number of locals
046b INIT_0468:
046b e005 | | Load 0x0,0x5
046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046d e002 | | Load 0x0,0x2
046e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0470 BODY_0468:
0470 4800 |H | Short_Literal 0x0
0471 a5fd | | Store_Unchecked 0x2,-0x3
0472 e5fe | | Load 0x2,-0x2
0473 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "Rcf_Compilation.Refresh_View"
0475 e004 | | Load 0x0,0x4
0476 180e | | Execute Package,Field_Execute,Field_Number 0xe
0477 e002 | | Load 0x0,0x2
0478 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0479 e005 | | Load 0x0,0x5
047a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047b e5fe | | Load 0x2,-0x2
047c 4801 |H | Short_Literal 0x1
047d 4801 |H | Short_Literal 0x1
047e 4801 |H | Short_Literal 0x1
047f e5fe | | Load 0x2,-0x2
0480 e5ff | | Load 0x2,-0x1
0481 e007 | | Load 0x0,0x7
0482 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0483 e006 | | Load 0x0,0x6
0484 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0485 e5ff | | Load 0x2,-0x1
0486 e005 | | Load 0x0,0x5
0487 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0488 003b | ; | Store_Top Access,At_Offset_3
0489 0059 | Y | Store_Top Discrete,At_Offset_1
048a 00d8 | | Load_Top At_Offset_0
048b 6803 |h | Jump_Zero 0x48f
048c 00d8 | | Load_Top At_Offset_0
048d a5fd | | Store_Unchecked 0x2,-0x3
048e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
048f 00d9 | | Load_Top At_Offset_1
0490 e005 | | Load 0x0,0x5
0491 180f | | Execute Package,Field_Execute,Field_Number 0xf
0492 6807 |h | Jump_Zero 0x49a
0493 e008 | | Load 0x0,0x8
0494 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0495 67ca |g | Indirect_Literal Discrete,0x460,{0x00000000, 0x00008147}
0496 e002 | | Load 0x0,0x2
0497 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0498 a5fd | | Store_Unchecked 0x2,-0x3
0499 4503 |E | Exit_Suprogram New_Top_Offset 0x3
049a e002 | | Load 0x0,0x2
049b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049c 00da | | Load_Top At_Offset_2
049d e5fe | | Load 0x2,-0x2
049e e005 | | Load 0x0,0x5
049f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04a0 003b | ; | Store_Top Access,At_Offset_3
04a1 0059 | Y | Store_Top Discrete,At_Offset_1
04a2 00d8 | | Load_Top At_Offset_0
04a3 a5fd | | Store_Unchecked 0x2,-0x3
04a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04a5 TRAP_0468:
04a5 e002 | | Load 0x0,0x2
04a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04a7 010f | | Execute Exception,Equal
04a8 6804 |h | Jump_Zero 0x4ad
04a9 e002 | | Load 0x0,0x2
04aa 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04ab a5fd | | Store_Unchecked 0x2,-0x3
04ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04ad 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "Refresh_View"
04af e004 | | Load 0x0,0x4
04b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04b1 a5fd | | Store_Unchecked 0x2,-0x3
04b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04b3 0000 0000 | | .BLANK 0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 04c2 | | .CONST 0x04c2 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb e002 | | Load 0x0,0x2
04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bd 00db | | Load_Top At_Offset_3
04be e005 | | Load 0x0,0x5
04bf 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04c0 c5fe | | Store 0x2,-0x2
04c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04c2 TRAP_04b8:
04c2 e002 | | Load 0x0,0x2
04c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04c4 010f | | Execute Exception,Equal
04c5 6804 |h | Jump_Zero 0x4ca
04c6 e002 | | Load 0x0,0x2
04c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04c8 a5fe | | Store_Unchecked 0x2,-0x2
04c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ca 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "Close_Compilation_Domain"
04cc e004 | | Load 0x0,0x4
04cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ce a5fe | | Store_Unchecked 0x2,-0x2
04cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04e0 | | .CONST 0x04e0 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0003 | | .CONST 0x0003 ; Number of locals
04d3 INIT_04d0:
04d3 e5fd | | Load 0x2,-0x3
04d4 e408 | | Load 0x2,0x8
04d5 e5ff | | Load 0x2,-0x1
04d6 e407 | | Load 0x2,0x7
04d7 e003 | | Load 0x0,0x3
04d8 1b18 | | Execute Package,Field_Read,Field_Number 0x18
04d9 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
04da 00d8 | | Load_Top At_Offset_0
04db 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04dc e20f | | Load 0x1,0xf
04dd 1c08 | | Execute_Immediate Run_Utility,0x8
04de 00d8 | | Load_Top At_Offset_0
04df 1c00 | | Execute_Immediate Run_Utility,0x0
04e0 BODY_04d0:
04e0 00d9 | | Load_Top At_Offset_1
04e1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04e2 6807 |h | Jump_Zero 0x4ea
04e3 00d9 | | Load_Top At_Offset_1
04e4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04e5 e406 | | Load 0x2,0x6
04e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04e7 e406 | | Load 0x2,0x6
04e8 00cb | | Action Pop_Block_With_Result
04e9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04ea 4800 |H | Short_Literal 0x0
04eb 00d9 | | Load_Top At_Offset_1
04ec 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04ed 00cf | | Action Mark_Auxiliary
04ee 00da | | Load_Top At_Offset_2
04ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04f0 01dc | | Execute Vector,Last
04f1 4801 |H | Short_Literal 0x1
04f2 0263 | c | Execute Discrete,Above_Bound
04f3 700a |p | Jump_Nonzero 0x4fe
04f4 00d8 | | Load_Top At_Offset_0
04f5 e602 | | Load 0x3,0x2
04f6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04f7 01d7 | | Execute Vector,Field_Read
04f8 00d9 | | Load_Top At_Offset_1
04f9 e603 | | Load 0x3,0x3
04fa 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04fb 01d6 | | Execute Vector,Field_Write
04fc 00c8 | | Action Pop_Auxiliary_Range
04fd 3ff6 |? | Loop_Increasing 0x4f4
04fe 00ce | | Action Pop_Auxiliary
04ff 00d8 | | Load_Top At_Offset_0
0500 00cb | | Action Pop_Block_With_Result
0501 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0502 0000 0000 | | .BLANK 0000[0x6]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0518 | | .CONST 0x0518 ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0003 | | .CONST 0x0003 ; Number of locals
050b INIT_0508:
050b e5fd | | Load 0x2,-0x3
050c e405 | | Load 0x2,0x5
050d e5ff | | Load 0x2,-0x1
050e e404 | | Load 0x2,0x4
050f e003 | | Load 0x0,0x3
0510 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0511 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0512 00d8 | | Load_Top At_Offset_0
0513 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0514 e20f | | Load 0x1,0xf
0515 1c08 | | Execute_Immediate Run_Utility,0x8
0516 00d8 | | Load_Top At_Offset_0
0517 1c00 | | Execute_Immediate Run_Utility,0x0
0518 BODY_0508:
0518 00d9 | | Load_Top At_Offset_1
0519 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
051a 6807 |h | Jump_Zero 0x522
051b 00d9 | | Load_Top At_Offset_1
051c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
051d e403 | | Load 0x2,0x3
051e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
051f e403 | | Load 0x2,0x3
0520 00cb | | Action Pop_Block_With_Result
0521 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0522 4800 |H | Short_Literal 0x0
0523 00d9 | | Load_Top At_Offset_1
0524 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0525 00cf | | Action Mark_Auxiliary
0526 00da | | Load_Top At_Offset_2
0527 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0528 01dc | | Execute Vector,Last
0529 4801 |H | Short_Literal 0x1
052a 0263 | c | Execute Discrete,Above_Bound
052b 700a |p | Jump_Nonzero 0x536
052c 00d8 | | Load_Top At_Offset_0
052d e602 | | Load 0x3,0x2
052e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
052f 01d7 | | Execute Vector,Field_Read
0530 00d9 | | Load_Top At_Offset_1
0531 e603 | | Load 0x3,0x3
0532 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0533 01d6 | | Execute Vector,Field_Write
0534 00c8 | | Action Pop_Auxiliary_Range
0535 3ff6 |? | Loop_Increasing 0x52c
0536 00ce | | Action Pop_Auxiliary
0537 00d8 | | Load_Top At_Offset_0
0538 00cb | | Action Pop_Block_With_Result
0539 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
053a 0000 0000 | | .BLANK 0000[0x6]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543 | C | .CONST 0x0543 ; Address of begin
0541 054c | L | .CONST 0x054c ; Address of exception handler
0542 0001 | | .CONST 0x0001 ; Number of locals
0543 BODY_0540:
0543 INIT_0540:
0543 e002 | | Load 0x0,0x2
0544 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0545 e402 | | Load 0x2,0x2
0546 e5fd | | Load 0x2,-0x3
0547 e005 | | Load 0x0,0x5
0548 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0549 c402 | | Store 0x2,0x2
054a c403 | | Store 0x2,0x3
054b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
054c TRAP_0540:
054c 0007 | | Action Break_Optional
054d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
054e 0000 0000 | | .XXX[0x2]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 055c | \ | .CONST 0x055c ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 e002 | | Load 0x0,0x2
0554 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0555 e402 | | Load 0x2,0x2
0556 e5fd | | Load 0x2,-0x3
0557 e005 | | Load 0x0,0x5
0558 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0559 c402 | | Store 0x2,0x2
055a c403 | | Store 0x2,0x3
055b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
055c TRAP_0550:
055c 0007 | | Action Break_Optional
055d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
055e 0000 0000 | | .XXX[0x2]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 056c | l | .CONST 0x056c ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 e002 | | Load 0x0,0x2
0564 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0565 e402 | | Load 0x2,0x2
0566 e5fd | | Load 0x2,-0x3
0567 e005 | | Load 0x0,0x5
0568 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0569 c402 | | Store 0x2,0x2
056a c403 | | Store 0x2,0x3
056b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
056c TRAP_0560:
056c 0007 | | Action Break_Optional
056d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
056e 0000 0000 | | .XXX[0x2]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573 | s | .CONST 0x0573 ; Address of begin
0571 057c | | | .CONST 0x057c ; Address of exception handler
0572 0001 | | .CONST 0x0001 ; Number of locals
0573 BODY_0570:
0573 INIT_0570:
0573 e002 | | Load 0x0,0x2
0574 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0575 e402 | | Load 0x2,0x2
0576 e5fd | | Load 0x2,-0x3
0577 e005 | | Load 0x0,0x5
0578 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0579 c402 | | Store 0x2,0x2
057a c403 | | Store 0x2,0x3
057b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
057c TRAP_0570:
057c 0007 | | Action Break_Optional
057d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
057e 0000 0000 | | .XXX[0x2]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 4608 |F | Jump_Case 0x9
0584 7808 |x | Jump 0x58d ; case 0x0
0585 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0586 781d |x | Jump 0x5a4 ; case 0x2
0587 781c |x | Jump 0x5a4 ; case 0x3
0588 781b |x | Jump 0x5a4 ; case 0x4
0589 781a |x | Jump 0x5a4 ; case 0x5
058a 7819 |x | Jump 0x5a4 ; case 0x6
058b 7805 |x | Jump 0x591 ; case 0x7
058c 780d |x | Jump 0x59a ; case 0x8
058d 00da | | Load_Top At_Offset_2
058e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
058f 1c00 | | Execute_Immediate Run_Utility,0x0
0590 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0591 00db | | Load_Top At_Offset_3
0592 4801 |H | Short_Literal 0x1
0593 e5fe | | Load 0x2,-0x2
0594 e20e | | Load 0x1,0xe
0595 035b | [ | Declare_Type Array,Constrained
0596 4801 |H | Short_Literal 0x1
0597 e5ff | | Load 0x2,-0x1
0598 031b | | Declare_Type Variant_Record,Constrained
0599 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
059a 00db | | Load_Top At_Offset_3
059b 00db | | Load_Top At_Offset_3
059c 02fc | | Declare_Variable Variant_Record,With_Constraint
059d 4801 |H | Short_Literal 0x1
059e e5fe | | Load 0x2,-0x2
059f e20e | | Load 0x1,0xe
05a0 0334 | 4 | Declare_Variable Array,With_Constraint
05a1 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
05a2 016a | j | QQ_execute Variant_Record,XXX
05a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
05a4 0869 | i | Execute_Immediate Raise,0x69
05a5 ; --------------------------------------------------------------------------------------
05a5 ; STRING TABLE
05a5 ; --------------------------------------------------------------------------------------
05a5 0028 | ( | .STRTAB 0x0028->0x05b9 ; "Convert"
05a6 002d | - | .STRTAB 0x002d->0x05bc ; "Rcf_Compilation.Promotion_Prerequisites"
05a7 0052 | R | .STRTAB 0x0052->0x05d0 ; "Promotion_Prerequisites"
05a8 0067 | g | .STRTAB 0x0067->0x05db ; "Rcf_Compilation.Demotion_Effects"
05a9 0085 | | .STRTAB 0x0085->0x05eb ; "Valid Supplier Domain => "
05aa 009c | | .STRTAB 0x009c->0x05f8 ; "Demotion_Effects"
05ab 00aa | | .STRTAB 0x00aa->0x0600 ; "Rcf_Compilation.Promote"
05ac 00bf | | .STRTAB 0x00bf->0x060b ; "Promote"
05ad 00c4 | | .STRTAB 0x00c4->0x060f ; "Rcf_Compilation.Demote"
05ae 00d8 | | .STRTAB 0x00d8->0x061a ; "Demote"
05af 00dc | | .STRTAB 0x00dc->0x061d ; "Rcf_Compilation.Link"
05b0 00ee | | .STRTAB 0x00ee->0x0627 ; "Link"
05b1 00f0 | | .STRTAB 0x00f0->0x0629 ; "Refresh_Suppliers"
05b2 00ff | | .STRTAB 0x00ff->0x0631 ; "Unregister_Unit"
05b3 010c | | .STRTAB 0x010c->0x0639 ; "TBU error"
05b4 0113 | | .STRTAB 0x0113->0x063d ; "Register"
05b5 0119 | | .STRTAB 0x0119->0x0641 ; "Rcf_Compilation.Refresh_View"
05b6 0133 | 3 | .STRTAB 0x0133->0x064f ; "Refresh_View"
05b7 013d | = | .STRTAB 0x013d->0x0655 ; "Close_Compilation_Domain"
05b8 0153 | S | .STREND 0x0153->0x0661
05b9 436f 6e76 |Conv| .STRTAB_STRINGS
0662 0000 0000 | | .BLANK 0000[0x6]
0668 ; --------------------------------------------------------------------------------------
0668 ; Debug Table
0668 ; --------------------------------------------------------------------------------------
0668 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dd7,0x0000,0x0001,0x0000
066e 0000 0000 | | .BLANK 0000[0x11]
067f 0200 009e | | .XXX[0x25]
0681 9c85 c038 | 8|
0683 5c00 0006 |\ |
0685 eeb4 4b80 | K |
0687 8008 0004 | |
0689 c800 0000 | |
068b 8078 0000 | x |
068d 2000 0000 | |
068f 3801 4000 |8 @ |
0691 0000 4000 | @ |
0693 0010 0000 | |
0695 0088 0000 | |
0697 0000 4000 | @ |
0699 0002 9000 | |
069b 0100 d596 | |
069d 5000 0100 |P |
069f d596 9000 | |
06a1 0100 d596 | |
06a3 c000 | |
06a4 0000 0000 | | .BLANK 0000[0x14]
06b8 0040 0013 | @ | .XXX[0x25]
06ba d390 b807 | |
06bc 0b80 0000 | |
06be ddd6 8970 | p|
06c0 1001 0000 | |
06c2 9900 0000 | |
06c4 100f 0000 | |
06c6 0400 0000 | |
06c8 0700 2800 | ( |
06ca 0000 0800 | |
06cc 0002 0000 | |
06ce 0011 0000 | |
06d0 0000 0800 | |
06d2 0000 5200 | R |
06d4 0020 1ab2 | |
06d6 ca00 0020 | |
06d8 1ab2 d200 | |
06da 0020 1ab2 | |
06dc d800 | |
06dd 0000 0000 | | .BLANK 0000[0x14]
06f1 0008 0002 | | .XXX[0x3]
06f3 7a70 |zp |
06f4 0000 0000 | | .BLANK 0000[0xd]
0701 0020 0500 | | .XXX[0xc]
0703 0000 0000 | |
0705 0000 4000 | @ |
0707 0002 2000 | |
0709 0000 0100 | |
070b 0000 0a00 | |
070d 0000 0000 | | .BLANK 0000[0x2d]
073a 0004 00a0 | | .XXX[0xc]
073c 0000 0000 | |
073e 0000 0800 | |
0740 0000 4400 | D |
0742 0000 0020 | |
0744 0000 0140 | @|
0746 0000 0000 | | .BLANK 0000[0x2e]
0774 8014 0000 | | .XXX[0xb]
0776 0000 0000 | |
0778 0100 0000 | |
077a 0880 0000 | |
077c 0004 0000 | |
077e 0028 | ( |
077f 0000 0000 | | .BLANK 0000[0x2e]
07ad 1002 8000 | | .XXX[0xb]
07af 0000 0000 | |
07b1 0020 0000 | |
07b3 0110 0000 | |
07b5 0000 8000 | |
07b7 0005 | |
07b8 0000 0000 | | .BLANK 0000[0x48]