|
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: 2048 (0x800)
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 03e0 | | .CONST 0x03e0 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0068 | h | .CONST 0x0068 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; 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 0073 | s| Declare_Subprogram INIT_0070,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 606e |`n | Indirect_Literal Discrete,0x88,{0x00000000, 0x7fffffff}
001a e20e | | Load 0x1,0xe
001b 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
001c 029f 0363 | c| Declare_Subprogram INIT_0360,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 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
003c c216 | | Store 0x1,0x16
003d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
003f c21d | | Store 0x1,0x1d
0040 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0042 c21e | | Store 0x1,0x1e
0043 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0045 c21f | | Store 0x1,0x1f
0046 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0048 c220 | | Store 0x1,0x20
0049 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
004b c221 | ! | Store 0x1,0x21
004c 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
004e c217 | | Store 0x1,0x17
004f 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0051 c222 | " | Store 0x1,0x22
0052 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0054 c224 | $ | Store 0x1,0x24
0055 00bf | | Action Accept_Activation
0056 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0059 00c7 | | Action Elaborate_Subprogram
005a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
005d 00c7 | | Action Elaborate_Subprogram
005e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
005f 00c7 | | Action Elaborate_Subprogram
0060 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0061 00c7 | | Action Elaborate_Subprogram
0062 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0063 00c7 | | Action Elaborate_Subprogram
0064 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0065 00c7 | | Action Elaborate_Subprogram
0066 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0067 00c7 | | Action Elaborate_Subprogram
0068 BODY_0008:
0068 00bc | | Action Signal_Activated
0069 00bb | | Action Signal_Completion
006a 0000 0000 | | .BLANK 0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00d1 | | Pop_Control Pop_Count_1
0074 00da | | Load_Top At_Offset_2
0075 01dc | | Execute Vector,Last
0076 00db | | Load_Top At_Offset_3
0077 01dd | | Execute Vector,First
0078 0263 | c | Execute Discrete,Above_Bound
0079 700a |p | Jump_Nonzero 0x84
007a 00d8 | | Load_Top At_Offset_0
007b e5ff | | Load 0x2,-0x1
007c 01d5 | | Execute Vector,Field_Reference
007d 0125 | % | Execute Any,Set_Constraint
007e 00d8 | | Load_Top At_Offset_0
007f e5ff | | Load 0x2,-0x1
0080 01d5 | | Execute Vector,Field_Reference
0081 1c00 | | Execute_Immediate Run_Utility,0x0
0082 0a01 | | Execute_Immediate Plus,0x1
0083 7ff4 | | Jump 0x78
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 009b | | .CONST 0x009b ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e003 | | Load 0x0,0x3
0095 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0096 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0097 c5fe | | Store 0x2,-0x2
0098 4800 |H | Short_Literal 0x0
0099 a5fd | | Store_Unchecked 0x2,-0x3
009a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009b TRAP_0090:
009b 0007 | | Action Break_Optional
009c 0092 0385 | | Action Push_String_Extended,0x385 ; "Convert"
009e e004 | | Load 0x0,0x4
009f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a0 a5fd | | Store_Unchecked 0x2,-0x3
00a1 e001 | | Load 0x0,0x1
00a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a3 c5fe | | Store 0x2,-0x2
00a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00c9 | | .CONST 0x00c9 ; Address of begin
00a9 00f8 | | .CONST 0x00f8 ; Address of exception handler
00aa 0009 | | .CONST 0x0009 ; Number of locals
00ab INIT_00a8:
00ab e005 | | Load 0x0,0x5
00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ad e002 | | Load 0x0,0x2
00ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b0 e006 | | Load 0x0,0x6
00b1 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
00b2 0322 | " | Declare_Variable Record
00b3 e5fe | | Load 0x2,-0x2
00b4 e006 | | Load 0x0,0x6
00b5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
00b6 00d9 | | Load_Top At_Offset_1
00b7 017d | } | Execute Record,Structure_Write
00b8 e001 | | Load 0x0,0x1
00b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ba 02c7 | | Declare_Variable Any
00bb 00d8 | | Load_Top At_Offset_0
00bc 1c00 | | Execute_Immediate Run_Utility,0x0
00bd e001 | | Load 0x0,0x1
00be 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c0 02c7 | | Declare_Variable Any
00c1 00d8 | | Load_Top At_Offset_0
00c2 1c00 | | Execute_Immediate Run_Utility,0x0
00c3 e001 | | Load 0x0,0x1
00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c5 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call
00c7 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
00c9 BODY_00a8:
00c9 e5fd | | Load 0x2,-0x3
00ca 4801 |H | Short_Literal 0x1
00cb e5ff | | Load 0x2,-0x1
00cc e007 | | Load 0x0,0x7
00cd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ce c405 | | Store 0x2,0x5
00cf e002 | | Load 0x0,0x2
00d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d1 e005 | | Load 0x0,0x5
00d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d3 e5fd | | Load 0x2,-0x3
00d4 4800 |H | Short_Literal 0x0
00d5 4800 |H | Short_Literal 0x0
00d6 4801 |H | Short_Literal 0x1
00d7 e404 | | Load 0x2,0x4
00d8 e405 | | Load 0x2,0x5
00d9 e005 | | Load 0x0,0x5
00da 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00db c402 | | Store 0x2,0x2
00dc c403 | | Store 0x2,0x3
00dd 4800 |H | Short_Literal 0x0
00de e403 | | Load 0x2,0x3
00df e002 | | Load 0x0,0x2
00e0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00e1 7003 |p | Jump_Nonzero 0xe5
00e2 e403 | | Load 0x2,0x3
00e3 a5fc | | Store_Unchecked 0x2,-0x4
00e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e5 e002 | | Load 0x0,0x2
00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e7 e5fd | | Load 0x2,-0x3
00e8 e404 | | Load 0x2,0x4
00e9 e5ff | | Load 0x2,-0x1
00ea e402 | | Load 0x2,0x2
00eb e003 | | Load 0x0,0x3
00ec 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00ed 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00ee c5fc | | Store 0x2,-0x4
00ef e002 | | Load 0x0,0x2
00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f1 e402 | | Load 0x2,0x2
00f2 e5fd | | Load 0x2,-0x3
00f3 e005 | | Load 0x0,0x5
00f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f5 c402 | | Store 0x2,0x2
00f6 c403 | | Store 0x2,0x3
00f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00f8 TRAP_00a8:
00f8 e002 | | Load 0x0,0x2
00f9 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00fa 010f | | Execute Exception,Equal
00fb 6805 |h | Jump_Zero 0x101
00fc e002 | | Load 0x0,0x2
00fd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fe a5fc | | Store_Unchecked 0x2,-0x4
00ff 8408 | | Call 0x2,0x8
0100 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0101 8409 | | Call 0x2,0x9
0102 0092 0386 | | Action Push_String_Extended,0x386 ; "Promote"
0104 e004 | | Load 0x0,0x4
0105 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0106 a5fc | | Store_Unchecked 0x2,-0x4
0107 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 011c | | .CONST 0x011c ; Address of begin
0109 0159 | Y | .CONST 0x0159 ; Address of exception handler
010a 0006 | | .CONST 0x0006 ; Number of locals
010b INIT_0108:
010b e005 | | Load 0x0,0x5
010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010d e002 | | Load 0x0,0x2
010e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0110 e006 | | Load 0x0,0x6
0111 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0112 0322 | " | Declare_Variable Record
0113 e5fe | | Load 0x2,-0x2
0114 e006 | | Load 0x0,0x6
0115 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0116 00d9 | | Load_Top At_Offset_1
0117 017d | } | Execute Record,Structure_Write
0118 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
011a 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
011c BODY_0108:
011c e5fd | | Load 0x2,-0x3
011d 0092 0387 | | Action Push_String_Extended,0x387 ; "Rcf_Compilation.Demote"
011f e004 | | Load 0x0,0x4
0120 180e | | Execute Package,Field_Execute,Field_Number 0xe
0121 e002 | | Load 0x0,0x2
0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0123 e005 | | Load 0x0,0x5
0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0125 e5fd | | Load 0x2,-0x3
0126 4800 |H | Short_Literal 0x0
0127 4800 |H | Short_Literal 0x0
0128 4800 |H | Short_Literal 0x0
0129 e404 | | Load 0x2,0x4
012a e5fd | | Load 0x2,-0x3
012b 4801 |H | Short_Literal 0x1
012c e5ff | | Load 0x2,-0x1
012d e007 | | Load 0x0,0x7
012e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012f e005 | | Load 0x0,0x5
0130 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0131 c402 | | Store 0x2,0x2
0132 c403 | | Store 0x2,0x3
0133 4800 |H | Short_Literal 0x0
0134 e403 | | Load 0x2,0x3
0135 e002 | | Load 0x0,0x2
0136 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0137 7003 |p | Jump_Nonzero 0x13b
0138 00db | | Load_Top At_Offset_3
0139 a5fc | | Store_Unchecked 0x2,-0x4
013a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
013b e402 | | Load 0x2,0x2
013c e005 | | Load 0x0,0x5
013d 180f | | Execute Package,Field_Execute,Field_Number 0xf
013e 6807 |h | Jump_Zero 0x146
013f e008 | | Load 0x0,0x8
0140 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0141 602a |`* | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00008147}
0142 e002 | | Load 0x0,0x2
0143 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0144 a5fc | | Store_Unchecked 0x2,-0x4
0145 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0146 e002 | | Load 0x0,0x2
0147 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0148 e5fd | | Load 0x2,-0x3
0149 e404 | | Load 0x2,0x4
014a e5ff | | Load 0x2,-0x1
014b e402 | | Load 0x2,0x2
014c e003 | | Load 0x0,0x3
014d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
014e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
014f c5fc | | Store 0x2,-0x4
0150 e002 | | Load 0x0,0x2
0151 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0152 e402 | | Load 0x2,0x2
0153 e5fd | | Load 0x2,-0x3
0154 e005 | | Load 0x0,0x5
0155 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0156 c402 | | Store 0x2,0x2
0157 c403 | | Store 0x2,0x3
0158 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0159 TRAP_0108:
0159 e002 | | Load 0x0,0x2
015a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
015b 010f | | Execute Exception,Equal
015c 6805 |h | Jump_Zero 0x162
015d e002 | | Load 0x0,0x2
015e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
015f a5fc | | Store_Unchecked 0x2,-0x4
0160 8405 | | Call 0x2,0x5
0161 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0162 8406 | | Call 0x2,0x6
0163 0092 0388 | | Action Push_String_Extended,0x388 ; "Demote"
0165 e004 | | Load 0x0,0x4
0166 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0167 a5fc | | Store_Unchecked 0x2,-0x4
0168 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0169 0000 0000 | | .XXX[0x3]
016b 0000 | |
016c 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0180 | | .CONST 0x0180 ; Address of begin
0171 018a | | .CONST 0x018a ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e006 | | Load 0x0,0x6
0174 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0175 0322 | " | Declare_Variable Record
0176 e5fd | | Load 0x2,-0x3
0177 e006 | | Load 0x0,0x6
0178 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0179 00d9 | | Load_Top At_Offset_1
017a 017d | } | Execute Record,Structure_Write
017b e009 | | Load 0x0,0x9
017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017d 02c7 | | Declare_Variable Any
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 BODY_0170:
0180 e002 | | Load 0x0,0x2
0181 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0182 e5fb | | Load 0x2,-0x5
0183 00db | | Load_Top At_Offset_3
0184 e5fe | | Load 0x2,-0x2
0185 e5ff | | Load 0x2,-0x1
0186 e00a | | Load 0x0,0xa
0187 180d | | Execute Package,Field_Execute,Field_Number 0xd
0188 c5fa | | Store 0x2,-0x6
0189 4506 |E | Exit_Suprogram New_Top_Offset 0x6
018a TRAP_0170:
018a e002 | | Load 0x0,0x2
018b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
018c 010f | | Execute Exception,Equal
018d 6804 |h | Jump_Zero 0x192
018e e002 | | Load 0x0,0x2
018f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0190 a5fa | | Store_Unchecked 0x2,-0x6
0191 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0192 0092 0389 | | Action Push_String_Extended,0x389 ; "Link"
0194 e004 | | Load 0x0,0x4
0195 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0196 a5fa | | Store_Unchecked 0x2,-0x6
0197 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a8 | | .CONST 0x01a8 ; Address of begin
0199 01e3 | | .CONST 0x01e3 ; Address of exception handler
019a 0004 | | .CONST 0x0004 ; Number of locals
019b INIT_0198:
019b e006 | | Load 0x0,0x6
019c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
019d 0322 | " | Declare_Variable Record
019e e5fd | | Load 0x2,-0x3
019f e006 | | Load 0x0,0x6
01a0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01a1 00d9 | | Load_Top At_Offset_1
01a2 017d | } | Execute Record,Structure_Write
01a3 e005 | | Load 0x0,0x5
01a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a5 e002 | | Load 0x0,0x2
01a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01a8 BODY_0198:
01a8 4800 |H | Short_Literal 0x0
01a9 a5fb | | Store_Unchecked 0x2,-0x5
01aa e002 | | Load 0x0,0x2
01ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ac e005 | | Load 0x0,0x5
01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ae e5fc | | Load 0x2,-0x4
01af 4800 |H | Short_Literal 0x0
01b0 4800 |H | Short_Literal 0x0
01b1 4801 |H | Short_Literal 0x1
01b2 e402 | | Load 0x2,0x2
01b3 e5fe | | Load 0x2,-0x2
01b4 e005 | | Load 0x0,0x5
01b5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01b6 003b | ; | Store_Top Access,At_Offset_3
01b7 0059 | Y | Store_Top Discrete,At_Offset_1
01b8 4800 |H | Short_Literal 0x0
01b9 00d9 | | Load_Top At_Offset_1
01ba e002 | | Load 0x0,0x2
01bb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01bc 7003 |p | Jump_Nonzero 0x1c0
01bd 00d8 | | Load_Top At_Offset_0
01be a5fb | | Store_Unchecked 0x2,-0x5
01bf 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01c0 00d9 | | Load_Top At_Offset_1
01c1 e005 | | Load 0x0,0x5
01c2 180f | | Execute Package,Field_Execute,Field_Number 0xf
01c3 6807 |h | Jump_Zero 0x1cb
01c4 e008 | | Load 0x0,0x8
01c5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01c6 602d |`- | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00008147}
01c7 e002 | | Load 0x0,0x2
01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c9 a5fb | | Store_Unchecked 0x2,-0x5
01ca 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01cb e5ff | | Load 0x2,-0x1
01cc e007 | | Load 0x0,0x7
01cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ce 700b |p | Jump_Nonzero 0x1da
01cf e002 | | Load 0x0,0x2
01d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d1 e5fc | | Load 0x2,-0x4
01d2 e402 | | Load 0x2,0x2
01d3 e403 | | Load 0x2,0x3
01d4 e5fe | | Load 0x2,-0x2
01d5 e5ff | | Load 0x2,-0x1
01d6 e003 | | Load 0x0,0x3
01d7 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01d8 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
01d9 c5fb | | Store 0x2,-0x5
01da e002 | | Load 0x0,0x2
01db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dc 00da | | Load_Top At_Offset_2
01dd e5fc | | Load 0x2,-0x4
01de e005 | | Load 0x0,0x5
01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e0 003b | ; | Store_Top Access,At_Offset_3
01e1 0059 | Y | Store_Top Discrete,At_Offset_1
01e2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01e3 TRAP_0198:
01e3 e002 | | Load 0x0,0x2
01e4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01e5 010f | | Execute Exception,Equal
01e6 6804 |h | Jump_Zero 0x1eb
01e7 e002 | | Load 0x0,0x2
01e8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e9 a5fb | | Store_Unchecked 0x2,-0x5
01ea 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01eb 0092 038a | | Action Push_String_Extended,0x38a ; "Refresh_Suppliers"
01ed e004 | | Load 0x0,0x4
01ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ef a5fb | | Store_Unchecked 0x2,-0x5
01f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01f1 0000 0000 | | .XXX[0x3]
01f3 0000 | |
01f4 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0203 | | .CONST 0x0203 ; Address of begin
01f9 020e | | .CONST 0x020e ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e006 | | Load 0x0,0x6
01fc 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
01fd 0322 | " | Declare_Variable Record
01fe e5fd | | Load 0x2,-0x3
01ff e006 | | Load 0x0,0x6
0200 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0201 00d9 | | Load_Top At_Offset_1
0202 017d | } | Execute Record,Structure_Write
0203 BODY_01f8:
0203 e002 | | Load 0x0,0x2
0204 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0205 e5fc | | Load 0x2,-0x4
0206 00da | | Load_Top At_Offset_2
0207 e5fe | | Load 0x2,-0x2
0208 e5ff | | Load 0x2,-0x1
0209 e003 | | Load 0x0,0x3
020a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
020b 186c | l | Execute Package,Field_Execute,Field_Number 0x6c
020c c5fb | | Store 0x2,-0x5
020d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
020e TRAP_01f8:
020e e002 | | Load 0x0,0x2
020f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0210 010f | | Execute Exception,Equal
0211 6804 |h | Jump_Zero 0x216
0212 e002 | | Load 0x0,0x2
0213 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0214 a5fb | | Store_Unchecked 0x2,-0x5
0215 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0216 0092 038b | | Action Push_String_Extended,0x38b ; "Unregister_Unit"
0218 e004 | | Load 0x0,0x4
0219 1810 | | Execute Package,Field_Execute,Field_Number 0x10
021a a5fb | | Store_Unchecked 0x2,-0x5
021b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225 | % | .CONST 0x0225 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e00b | | Load 0x0,0xb
0224 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0225 BODY_0220:
0225 4800 |H | Short_Literal 0x0
0226 e5ff | | Load 0x2,-0x1
0227 e002 | | Load 0x0,0x2
0228 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0229 702b |p+ | Jump_Nonzero 0x255
022a 00db | | Load_Top At_Offset_3
022b e002 | | Load 0x0,0x2
022c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
022d e002 | | Load 0x0,0x2
022e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
022f 460b |F | Jump_Case 0xc
0230 780b |x | Jump 0x23c ; case 0x0
0231 780a |x | Jump 0x23c ; case 0x1
0232 7809 |x | Jump 0x23c ; case 0x2
0233 7808 |x | Jump 0x23c ; case 0x3
0234 7807 |x | Jump 0x23c ; case 0x4
0235 7809 |x | Jump 0x23f ; case 0x5
0236 780b |x | Jump 0x242 ; case 0x6
0237 780d |x | Jump 0x245 ; case 0x7
0238 780f |x | Jump 0x248 ; case 0x8
0239 7802 |x | Jump 0x23c ; case 0x9
023a 7801 |x | Jump 0x23c ; case 0xa
023b 7800 |x | Jump 0x23c ; case 0xb
023c 4800 |H | Short_Literal 0x0
023d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
023e 780b |x | Jump 0x24a
023f 4803 |H | Short_Literal 0x3
0240 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0241 7808 |x | Jump 0x24a
0242 4801 |H | Short_Literal 0x1
0243 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0244 7805 |x | Jump 0x24a
0245 4803 |H | Short_Literal 0x3
0246 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0247 7802 |x | Jump 0x24a
0248 4803 |H | Short_Literal 0x3
0249 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
024a e5fe | | Load 0x2,-0x2
024b 00d9 | | Load_Top At_Offset_1
024c e5ff | | Load 0x2,-0x1
024d e002 | | Load 0x0,0x2
024e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
024f 0092 038c | | Action Push_String_Extended,0x38c ; "RCF error"
0251 e00b | | Load 0x0,0xb
0252 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0253 c5fe | | Store 0x2,-0x2
0254 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0255 00db | | Load_Top At_Offset_3
0256 e002 | | Load 0x0,0x2
0257 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0258 e002 | | Load 0x0,0x2
0259 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
025a 0f06 | | Execute_Immediate Equal,0x6
025b 680b |h | Jump_Zero 0x267
025c e5fe | | Load 0x2,-0x2
025d 4801 |H | Short_Literal 0x1
025e e5ff | | Load 0x2,-0x1
025f e002 | | Load 0x0,0x2
0260 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0261 0092 038d | | Action Push_String_Extended,0x38d ; "RCF warning"
0263 e00b | | Load 0x0,0xb
0264 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0265 c5fe | | Store 0x2,-0x2
0266 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0267 e5fe | | Load 0x2,-0x2
0268 e00b | | Load 0x0,0xb
0269 1810 | | Execute Package,Field_Execute,Field_Number 0x10
026a c5fe | | Store 0x2,-0x2
026b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0280 | | .CONST 0x0280 ; Address of begin
0271 02bb | | .CONST 0x02bb ; Address of exception handler
0272 0004 | | .CONST 0x0004 ; Number of locals
0273 INIT_0270:
0273 e006 | | Load 0x0,0x6
0274 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0275 0322 | " | Declare_Variable Record
0276 e5fd | | Load 0x2,-0x3
0277 e006 | | Load 0x0,0x6
0278 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0279 00d9 | | Load_Top At_Offset_1
027a 017d | } | Execute Record,Structure_Write
027b e005 | | Load 0x0,0x5
027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027d e002 | | Load 0x0,0x2
027e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0280 BODY_0270:
0280 4800 |H | Short_Literal 0x0
0281 a5fb | | Store_Unchecked 0x2,-0x5
0282 e002 | | Load 0x0,0x2
0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0284 e005 | | Load 0x0,0x5
0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0286 e5fc | | Load 0x2,-0x4
0287 4800 |H | Short_Literal 0x0
0288 4800 |H | Short_Literal 0x0
0289 4801 |H | Short_Literal 0x1
028a e402 | | Load 0x2,0x2
028b e5fe | | Load 0x2,-0x2
028c e005 | | Load 0x0,0x5
028d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
028e 003b | ; | Store_Top Access,At_Offset_3
028f 0059 | Y | Store_Top Discrete,At_Offset_1
0290 4800 |H | Short_Literal 0x0
0291 00d9 | | Load_Top At_Offset_1
0292 e002 | | Load 0x0,0x2
0293 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0294 7003 |p | Jump_Nonzero 0x298
0295 00d8 | | Load_Top At_Offset_0
0296 a5fb | | Store_Unchecked 0x2,-0x5
0297 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0298 00d9 | | Load_Top At_Offset_1
0299 e005 | | Load 0x0,0x5
029a 180f | | Execute Package,Field_Execute,Field_Number 0xf
029b 6807 |h | Jump_Zero 0x2a3
029c e008 | | Load 0x0,0x8
029d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
029e 602d |`- | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x00008147}
029f e002 | | Load 0x0,0x2
02a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a1 a5fb | | Store_Unchecked 0x2,-0x5
02a2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02a3 e5ff | | Load 0x2,-0x1
02a4 e007 | | Load 0x0,0x7
02a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02a6 700b |p | Jump_Nonzero 0x2b2
02a7 e002 | | Load 0x0,0x2
02a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a9 e5fc | | Load 0x2,-0x4
02aa e402 | | Load 0x2,0x2
02ab e403 | | Load 0x2,0x3
02ac e5fe | | Load 0x2,-0x2
02ad e5ff | | Load 0x2,-0x1
02ae e003 | | Load 0x0,0x3
02af 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02b0 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
02b1 c5fb | | Store 0x2,-0x5
02b2 e002 | | Load 0x0,0x2
02b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b4 00da | | Load_Top At_Offset_2
02b5 e5fc | | Load 0x2,-0x4
02b6 e005 | | Load 0x0,0x5
02b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02b8 003b | ; | Store_Top Access,At_Offset_3
02b9 0059 | Y | Store_Top Discrete,At_Offset_1
02ba 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02bb TRAP_0270:
02bb e002 | | Load 0x0,0x2
02bc 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02bd 010f | | Execute Exception,Equal
02be 6804 |h | Jump_Zero 0x2c3
02bf e002 | | Load 0x0,0x2
02c0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02c1 a5fb | | Store_Unchecked 0x2,-0x5
02c2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02c3 0092 038e | | Action Push_String_Extended,0x38e ; "Register"
02c5 e004 | | Load 0x0,0x4
02c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02c7 a5fb | | Store_Unchecked 0x2,-0x5
02c8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02c9 0000 0000 | | .XXX[0x3]
02cb 0000 | |
02cc 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d8 | | .CONST 0x02d8 ; Address of begin
02d1 0310 | | .CONST 0x0310 ; Address of exception handler
02d2 0003 | | .CONST 0x0003 ; Number of locals
02d3 INIT_02d0:
02d3 e005 | | Load 0x0,0x5
02d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d5 e002 | | Load 0x0,0x2
02d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02d8 BODY_02d0:
02d8 4800 |H | Short_Literal 0x0
02d9 a5fd | | Store_Unchecked 0x2,-0x3
02da e5fe | | Load 0x2,-0x2
02db 0092 038f | | Action Push_String_Extended,0x38f ; "Rcf_Compilation.Refresh_View"
02dd e004 | | Load 0x0,0x4
02de 180e | | Execute Package,Field_Execute,Field_Number 0xe
02df e002 | | Load 0x0,0x2
02e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e1 e005 | | Load 0x0,0x5
02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e3 e5fe | | Load 0x2,-0x2
02e4 4801 |H | Short_Literal 0x1
02e5 4801 |H | Short_Literal 0x1
02e6 4801 |H | Short_Literal 0x1
02e7 e5fe | | Load 0x2,-0x2
02e8 e5ff | | Load 0x2,-0x1
02e9 e007 | | Load 0x0,0x7
02ea 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02eb e006 | | Load 0x0,0x6
02ec 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
02ed e5ff | | Load 0x2,-0x1
02ee e005 | | Load 0x0,0x5
02ef 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02f0 003b | ; | Store_Top Access,At_Offset_3
02f1 0059 | Y | Store_Top Discrete,At_Offset_1
02f2 4800 |H | Short_Literal 0x0
02f3 00d9 | | Load_Top At_Offset_1
02f4 e002 | | Load 0x0,0x2
02f5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02f6 7003 |p | Jump_Nonzero 0x2fa
02f7 00d8 | | Load_Top At_Offset_0
02f8 a5fd | | Store_Unchecked 0x2,-0x3
02f9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fa 00d9 | | Load_Top At_Offset_1
02fb e005 | | Load 0x0,0x5
02fc 180f | | Execute Package,Field_Execute,Field_Number 0xf
02fd 6807 |h | Jump_Zero 0x305
02fe e008 | | Load 0x0,0x8
02ff 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0300 67cb |g | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x00008147}
0301 e002 | | Load 0x0,0x2
0302 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0303 a5fd | | Store_Unchecked 0x2,-0x3
0304 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0305 e002 | | Load 0x0,0x2
0306 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0307 00da | | Load_Top At_Offset_2
0308 e5fe | | Load 0x2,-0x2
0309 e005 | | Load 0x0,0x5
030a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
030b 003b | ; | Store_Top Access,At_Offset_3
030c 0059 | Y | Store_Top Discrete,At_Offset_1
030d 00d8 | | Load_Top At_Offset_0
030e a5fd | | Store_Unchecked 0x2,-0x3
030f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0310 TRAP_02d0:
0310 e002 | | Load 0x0,0x2
0311 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0312 010f | | Execute Exception,Equal
0313 6804 |h | Jump_Zero 0x318
0314 e002 | | Load 0x0,0x2
0315 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0316 a5fd | | Store_Unchecked 0x2,-0x3
0317 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0318 0092 0390 | | Action Push_String_Extended,0x390 ; "Refresh_View"
031a e004 | | Load 0x0,0x4
031b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
031c a5fd | | Store_Unchecked 0x2,-0x3
031d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
031e 0000 0000 | | .XXX[0x2]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 032c | , | .CONST 0x032c ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 e002 | | Load 0x0,0x2
0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0325 e402 | | Load 0x2,0x2
0326 e5fd | | Load 0x2,-0x3
0327 e005 | | Load 0x0,0x5
0328 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0329 c402 | | Store 0x2,0x2
032a c403 | | Store 0x2,0x3
032b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
032c TRAP_0320:
032c 0007 | | Action Break_Optional
032d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
032e 0000 0000 | | .XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 033c | < | .CONST 0x033c ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 e002 | | Load 0x0,0x2
0334 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0335 e402 | | Load 0x2,0x2
0336 e5fd | | Load 0x2,-0x3
0337 e005 | | Load 0x0,0x5
0338 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0339 c402 | | Store 0x2,0x2
033a c403 | | Store 0x2,0x3
033b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
033c TRAP_0330:
033c 0007 | | Action Break_Optional
033d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
033e 0000 0000 | | .XXX[0x2]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 034c | L | .CONST 0x034c ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 e002 | | Load 0x0,0x2
0344 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0345 e402 | | Load 0x2,0x2
0346 e5fd | | Load 0x2,-0x3
0347 e005 | | Load 0x0,0x5
0348 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0349 c402 | | Store 0x2,0x2
034a c403 | | Store 0x2,0x3
034b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034c TRAP_0340:
034c 0007 | | Action Break_Optional
034d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034e 0000 0000 | | .XXX[0x2]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 035c | \ | .CONST 0x035c ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e002 | | Load 0x0,0x2
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 e402 | | Load 0x2,0x2
0356 e5fd | | Load 0x2,-0x3
0357 e005 | | Load 0x0,0x5
0358 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0359 c402 | | Store 0x2,0x2
035a c403 | | Store 0x2,0x3
035b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
035c TRAP_0350:
035c 0007 | | Action Break_Optional
035d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 4608 |F | Jump_Case 0x9
0364 7808 |x | Jump 0x36d ; case 0x0
0365 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0366 781d |x | Jump 0x384 ; case 0x2
0367 781c |x | Jump 0x384 ; case 0x3
0368 781b |x | Jump 0x384 ; case 0x4
0369 781a |x | Jump 0x384 ; case 0x5
036a 7819 |x | Jump 0x384 ; case 0x6
036b 7805 |x | Jump 0x371 ; case 0x7
036c 780d |x | Jump 0x37a ; case 0x8
036d 00da | | Load_Top At_Offset_2
036e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
036f 1c00 | | Execute_Immediate Run_Utility,0x0
0370 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0371 00db | | Load_Top At_Offset_3
0372 4801 |H | Short_Literal 0x1
0373 e5fe | | Load 0x2,-0x2
0374 e20e | | Load 0x1,0xe
0375 035b | [ | Declare_Type Array,Constrained
0376 4801 |H | Short_Literal 0x1
0377 e5ff | | Load 0x2,-0x1
0378 031b | | Declare_Type Variant_Record,Constrained
0379 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
037a 00db | | Load_Top At_Offset_3
037b 00db | | Load_Top At_Offset_3
037c 02fc | | Declare_Variable Variant_Record,With_Constraint
037d 4801 |H | Short_Literal 0x1
037e e5fe | | Load 0x2,-0x2
037f e20e | | Load 0x1,0xe
0380 0334 | 4 | Declare_Variable Array,With_Constraint
0381 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0382 016a | j | QQ_execute Variant_Record,XXX
0383 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0384 0869 | i | Execute_Immediate Raise,0x69
0385 ; --------------------------------------------------------------------------------------
0385 ; STRING TABLE
0385 ; --------------------------------------------------------------------------------------
0385 001a | | .STRTAB 0x001a->0x0392 ; "Convert"
0386 001f | | .STRTAB 0x001f->0x0395 ; "Promote"
0387 0024 | $ | .STRTAB 0x0024->0x0399 ; "Rcf_Compilation.Demote"
0388 0038 | 8 | .STRTAB 0x0038->0x03a4 ; "Demote"
0389 003c | < | .STRTAB 0x003c->0x03a7 ; "Link"
038a 003e | > | .STRTAB 0x003e->0x03a9 ; "Refresh_Suppliers"
038b 004d | M | .STRTAB 0x004d->0x03b1 ; "Unregister_Unit"
038c 005a | Z | .STRTAB 0x005a->0x03b9 ; "RCF error"
038d 0061 | a | .STRTAB 0x0061->0x03bd ; "RCF warning"
038e 006a | j | .STRTAB 0x006a->0x03c3 ; "Register"
038f 0070 | p | .STRTAB 0x0070->0x03c7 ; "Rcf_Compilation.Refresh_View"
0390 008a | | .STRTAB 0x008a->0x03d5 ; "Refresh_View"
0391 0094 | | .STREND 0x0094->0x03db
0392 436f 6e76 |Conv| .STRTAB_STRINGS
03db 0000 0000 | | .BLANK 0000[0x5]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug Table
03e0 ; --------------------------------------------------------------------------------------
03e0 0004 000d | | .DEBUG4 0x0004,0x000d,0x4f90,0x0000,0x0001,0x0000
03e6 0000 0000 | | .BLANK 0000[0x8]
03ee 0002 04a0 | | .XXX[0x9]
03f0 2000 0001 | |
03f2 07e0 0007 | |
03f4 d000 0007 | |
03f6 d280 | |
03f7 0000 0000 | | .BLANK 0000[0x9]