|
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: 7168 (0x1c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0c30 | 0 | .CONST 0x0c30 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0036 | 6 | .CONST 0x0036 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 00e1 | | Load_Encached Boolean_Cache 0011 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0012 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 0014 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 0016 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 0018 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 001a 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call 001c 029d 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call 001e 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call 0020 029d 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call 0022 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call 0024 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call 0026 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call 0028 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call 002a 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call 002c 029d 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call 002e 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call 0030 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call 0032 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0033 00c7 | | Action Elaborate_Subprogram 0034 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0035 00c7 | | Action Elaborate_Subprogram 0036 BODY_0008: 0036 00bc | | Action Signal_Activated 0037 00bb | | Action Signal_Completion 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 009e | | .CONST 0x009e ; Address of begin 0039 01f4 | | .CONST 0x01f4 ; Address of exception handler 003a 0019 | | .CONST 0x0019 ; Number of locals 003b INIT_0038: 003b e001 | | Load 0x0,0x1 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 00e1 | | Load_Encached Boolean_Cache 003e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003f 00e1 | | Load_Encached Boolean_Cache 0040 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0041 e001 | | Load 0x0,0x1 0042 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0043 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0044 02c7 | | Declare_Variable Any 0045 00d8 | | Load_Top At_Offset_0 0046 1c00 | | Execute_Immediate Run_Utility,0x0 0047 e001 | | Load 0x0,0x1 0048 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0049 02c7 | | Declare_Variable Any 004a 00d8 | | Load_Top At_Offset_0 004b 1c00 | | Execute_Immediate Run_Utility,0x0 004c e001 | | Load 0x0,0x1 004d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004e 02c7 | | Declare_Variable Any 004f 00d8 | | Load_Top At_Offset_0 0050 1c00 | | Execute_Immediate Run_Utility,0x0 0051 e001 | | Load 0x0,0x1 0052 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0053 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0054 02c7 | | Declare_Variable Any 0055 00d8 | | Load_Top At_Offset_0 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 e001 | | Load 0x0,0x1 0058 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0059 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005a 02c7 | | Declare_Variable Any 005b 00d8 | | Load_Top At_Offset_0 005c 1c00 | | Execute_Immediate Run_Utility,0x0 005d e002 | | Load 0x0,0x2 005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0060 e003 | | Load 0x0,0x3 0061 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0062 e001 | | Load 0x0,0x1 0063 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0064 02ff | | Declare_Variable Variant_Record 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 00e1 | | Load_Encached Boolean_Cache 0068 00e1 | | Load_Encached Boolean_Cache 0069 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006a 00e1 | | Load_Encached Boolean_Cache 006b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006c 00e1 | | Load_Encached Boolean_Cache 006d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006e e004 | | Load 0x0,0x4 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 02c7 | | Declare_Variable Any 0071 00d8 | | Load_Top At_Offset_0 0072 1c00 | | Execute_Immediate Run_Utility,0x0 0073 e004 | | Load 0x0,0x4 0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0075 02c7 | | Declare_Variable Any 0076 00d8 | | Load_Top At_Offset_0 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 e001 | | Load 0x0,0x1 0079 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007a 02c7 | | Declare_Variable Any 007b e5fd | | Load 0x2,-0x3 007c 4801 |H | Short_Literal 0x1 007d e5ff | | Load 0x2,-0x1 007e e005 | | Load 0x0,0x5 007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0080 a413 | | Store_Unchecked 0x2,0x13 0081 e5fd | | Load 0x2,-0x3 0082 e5fe | | Load 0x2,-0x2 0083 e006 | | Load 0x0,0x6 0084 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0085 00da | | Load_Top At_Offset_2 0086 e007 | | Load 0x0,0x7 0087 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0088 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0089 0007 | | Action Break_Optional 008a e5fd | | Load 0x2,-0x3 008b e5ff | | Load 0x2,-0x1 008c e5fe | | Load 0x2,-0x2 008d e006 | | Load 0x0,0x6 008e 18ba | | Execute Package,Field_Execute,Field_Number 0xba 008f e5fd | | Load 0x2,-0x3 0090 e5ff | | Load 0x2,-0x1 0091 e5fe | | Load 0x2,-0x2 0092 e006 | | Load 0x0,0x6 0093 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 0094 e5fd | | Load 0x2,-0x3 0095 e5fe | | Load 0x2,-0x2 0096 e5ff | | Load 0x2,-0x1 0097 e008 | | Load 0x0,0x8 0098 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0099 180f | | Execute Package,Field_Execute,Field_Number 0xf 009a 029f 0973 | s| Declare_Subprogram INIT_0970,For_Call 009c 029f 0a1b | | Declare_Subprogram INIT_0a18,For_Call 009e BODY_0038: 009e 4800 |H | Short_Literal 0x0 009f a5fc | | Store_Unchecked 0x2,-0x4 00a0 e40a | | Load 0x2,0xa 00a1 e409 | | Load 0x2,0x9 00a2 e408 | | Load 0x2,0x8 00a3 e5fd | | Load 0x2,-0x3 00a4 e5ff | | Load 0x2,-0x1 00a5 8218 | | Call 0x1,0x18 00a6 c408 | | Store 0x2,0x8 00a7 c409 | | Store 0x2,0x9 00a8 c40a | | Store 0x2,0xa 00a9 4800 |H | Short_Literal 0x0 00aa e40a | | Load 0x2,0xa 00ab e002 | | Load 0x0,0x2 00ac 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00ad 7003 |p | Jump_Nonzero 0xb1 00ae e009 | | Load 0x0,0x9 00af 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00b0 0257 | W | Execute Discrete,Raise 00b1 e5fd | | Load 0x2,-0x3 00b2 e5ff | | Load 0x2,-0x1 00b3 821f | | Call 0x1,0x1f 00b4 e40c | | Load 0x2,0xc 00b5 016d | m | Execute Variant_Record,Structure_Write 00b6 4800 |H | Short_Literal 0x0 00b7 e40c | | Load 0x2,0xc 00b8 e009 | | Load 0x0,0x9 00b9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00ba e009 | | Load 0x0,0x9 00bb 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00bc a40d | | Store_Unchecked 0x2,0xd 00bd e002 | | Load 0x0,0x2 00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bf e5fd | | Load 0x2,-0x3 00c0 e40d | | Load 0x2,0xd 00c1 e416 | | Load 0x2,0x16 00c2 8213 | | Call 0x1,0x13 00c3 c40a | | Store 0x2,0xa 00c4 4800 |H | Short_Literal 0x0 00c5 e40a | | Load 0x2,0xa 00c6 e002 | | Load 0x0,0x2 00c7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00c8 7003 |p | Jump_Nonzero 0xcc 00c9 e009 | | Load 0x0,0x9 00ca 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00cb 0257 | W | Execute Discrete,Raise 00cc 4800 |H | Short_Literal 0x0 00cd e40c | | Load 0x2,0xc 00ce e009 | | Load 0x0,0x9 00cf 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 00d0 e009 | | Load 0x0,0x9 00d1 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00d2 a40e | | Store_Unchecked 0x2,0xe 00d3 e40c | | Load 0x2,0xc 00d4 e5fe | | Load 0x2,-0x2 00d5 e00a | | Load 0x0,0xa 00d6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d7 a40f | | Store_Unchecked 0x2,0xf 00d8 4800 |H | Short_Literal 0x0 00d9 e40c | | Load 0x2,0xc 00da e009 | | Load 0x0,0x9 00db 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00dc e009 | | Load 0x0,0x9 00dd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00de a410 | | Store_Unchecked 0x2,0x10 00df e40d | | Load 0x2,0xd 00e0 6820 |h | Jump_Zero 0x101 00e1 e5fd | | Load 0x2,-0x3 00e2 4801 |H | Short_Literal 0x1 00e3 4802 |H | Short_Literal 0x2 00e4 e00b | | Load 0x0,0xb 00e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e6 035b | [ | Declare_Type Array,Constrained 00e7 0337 | 7 | Declare_Variable Array 00e8 e5ff | | Load 0x2,-0x1 00e9 e001 | | Load 0x0,0x1 00ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00eb 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 00ec e00b | | Load 0x0,0xb 00ed 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ee e00b | | Load 0x0,0xb 00ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f0 0119 | | Execute Any,Check_In_Formal_Type 00f1 4801 |H | Short_Literal 0x1 00f2 00da | | Load_Top At_Offset_2 00f3 01d6 | | Execute Vector,Field_Write 00f4 0092 0b29 | )| Action Push_String_Extended,0xb29 ; "Compile" 00f6 e00b | | Load 0x0,0xb 00f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f8 e00b | | Load 0x0,0xb 00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fa 0119 | | Execute Any,Check_In_Formal_Type 00fb 4802 |H | Short_Literal 0x2 00fc 00da | | Load_Top At_Offset_2 00fd 01d6 | | Execute Vector,Field_Write 00fe 6189 |a | Indirect_Literal Discrete,0x288,{0x00000000, 0x0000817a} 00ff e002 | | Load 0x0,0x2 0100 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0101 4801 |H | Short_Literal 0x1 0102 0092 0b2a | *| Action Push_String_Extended,0xb2a ; "<error>" 0104 e414 | | Load 0x2,0x14 0105 e00c | | Load 0x0,0xc 0106 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0107 6829 |h) | Jump_Zero 0x131 0108 e5fd | | Load 0x2,-0x3 0109 4801 |H | Short_Literal 0x1 010a 4801 |H | Short_Literal 0x1 010b e00b | | Load 0x0,0xb 010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010d 035b | [ | Declare_Type Array,Constrained 010e 0337 | 7 | Declare_Variable Array 010f e5ff | | Load 0x2,-0x1 0110 e00b | | Load 0x0,0xb 0111 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0112 e00b | | Load 0x0,0xb 0113 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0114 0119 | | Execute Any,Check_In_Formal_Type 0115 4801 |H | Short_Literal 0x1 0116 00da | | Load_Top At_Offset_2 0117 01d6 | | Execute Vector,Field_Write 0118 616b |ak | Indirect_Literal Discrete,0x284,{0x00000000, 0x00008111} 0119 e002 | | Load 0x0,0x2 011a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 011b 4801 |H | Short_Literal 0x1 011c 4801 |H | Short_Literal 0x1 011d e00b | | Load 0x0,0xb 011e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011f 035b | [ | Declare_Type Array,Constrained 0120 0337 | 7 | Declare_Variable Array 0121 e5ff | | Load 0x2,-0x1 0122 e00b | | Load 0x0,0xb 0123 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0124 e00b | | Load 0x0,0xb 0125 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0126 0119 | | Execute Any,Check_In_Formal_Type 0127 4801 |H | Short_Literal 0x1 0128 00da | | Load_Top At_Offset_2 0129 01d6 | | Execute Vector,Field_Write 012a 6155 |aU | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000811a} 012b e002 | | Load 0x0,0x2 012c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012d a5fc | | Store_Unchecked 0x2,-0x4 012e e009 | | Load 0x0,0x9 012f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0130 0257 | W | Execute Discrete,Raise 0131 e5ff | | Load 0x2,-0x1 0132 c406 | | Store 0x2,0x6 0133 e002 | | Load 0x0,0x2 0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0135 00e1 | | Load_Encached Boolean_Cache 0136 e5fd | | Load 0x2,-0x3 0137 e406 | | Load 0x2,0x6 0138 e01b | | Load 0x0,0x1b 0139 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 013a c404 | | Store 0x2,0x4 013b c40a | | Store 0x2,0xa 013c 4800 |H | Short_Literal 0x0 013d e40a | | Load 0x2,0xa 013e e002 | | Load 0x0,0x2 013f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0140 7003 |p | Jump_Nonzero 0x144 0141 e002 | | Load 0x0,0x2 0142 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0143 0257 | W | Execute Discrete,Raise 0144 e404 | | Load 0x2,0x4 0145 6867 |hg | Jump_Zero 0x1ad 0146 e5fd | | Load 0x2,-0x3 0147 e406 | | Load 0x2,0x6 0148 e01b | | Load 0x0,0x1b 0149 1873 | s | Execute Package,Field_Execute,Field_Number 0x73 014a 6801 |h | Jump_Zero 0x14c 014b 8419 | | Call 0x2,0x19 014c e002 | | Load 0x0,0x2 014d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014e e405 | | Load 0x2,0x5 014f 0120 | | Execute Any,Is_Value 0150 6804 |h | Jump_Zero 0x155 0151 e001 | | Load 0x0,0x1 0152 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0153 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0154 7801 |x | Jump 0x156 0155 e405 | | Load 0x2,0x5 0156 e5fd | | Load 0x2,-0x3 0157 e406 | | Load 0x2,0x6 0158 e01b | | Load 0x0,0x1b 0159 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 015a c405 | | Store 0x2,0x5 015b c40a | | Store 0x2,0xa 015c 4800 |H | Short_Literal 0x0 015d e40a | | Load 0x2,0xa 015e e002 | | Load 0x0,0x2 015f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0160 7003 |p | Jump_Nonzero 0x164 0161 e002 | | Load 0x0,0x2 0162 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0163 0257 | W | Execute Discrete,Raise 0164 4801 |H | Short_Literal 0x1 0165 a403 | | Store_Unchecked 0x2,0x3 0166 00cf | | Action Mark_Auxiliary 0167 783e |x> | Jump 0x1a6 0168 e001 | | Load 0x0,0x1 0169 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016a e406 | | Load 0x2,0x6 016b 0120 | | Execute Any,Is_Value 016c 6803 |h | Jump_Zero 0x170 016d e001 | | Load 0x0,0x1 016e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016f 7801 |x | Jump 0x171 0170 e406 | | Load 0x2,0x6 0171 e405 | | Load 0x2,0x5 0172 e001 | | Load 0x0,0x1 0173 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0174 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0175 c406 | | Store 0x2,0x6 0176 c402 | | Store 0x2,0x2 0177 e402 | | Load 0x2,0x2 0178 6803 |h | Jump_Zero 0x17c 0179 e002 | | Load 0x0,0x2 017a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 017b 0257 | W | Execute Discrete,Raise 017c e002 | | Load 0x0,0x2 017d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017e e407 | | Load 0x2,0x7 017f 0120 | | Execute Any,Is_Value 0180 6803 |h | Jump_Zero 0x184 0181 e001 | | Load 0x0,0x1 0182 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0183 7801 |x | Jump 0x185 0184 e407 | | Load 0x2,0x7 0185 e5fd | | Load 0x2,-0x3 0186 e406 | | Load 0x2,0x6 0187 e01b | | Load 0x0,0x1b 0188 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 0189 c407 | | Store 0x2,0x7 018a c40a | | Store 0x2,0xa 018b 4800 |H | Short_Literal 0x0 018c e40a | | Load 0x2,0xa 018d e002 | | Load 0x0,0x2 018e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 018f 7003 |p | Jump_Nonzero 0x193 0190 e002 | | Load 0x0,0x2 0191 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0192 0257 | W | Execute Discrete,Raise 0193 8419 | | Call 0x2,0x19 0194 e002 | | Load 0x0,0x2 0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0196 e5fd | | Load 0x2,-0x3 0197 e407 | | Load 0x2,0x7 0198 e005 | | Load 0x0,0x5 0199 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 019a c40a | | Store 0x2,0xa 019b e402 | | Load 0x2,0x2 019c 6803 |h | Jump_Zero 0x1a0 019d e009 | | Load 0x0,0x9 019e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 019f 0257 | W | Execute Discrete,Raise 01a0 e405 | | Load 0x2,0x5 01a1 e001 | | Load 0x0,0x1 01a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01a4 c405 | | Store 0x2,0x5 01a5 00c9 | | Action Pop_Auxiliary_Loop 01a6 e405 | | Load 0x2,0x5 01a7 e001 | | Load 0x0,0x1 01a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a9 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01aa 6fbd |o | Jump_Zero 0x168 01ab 00ce | | Action Pop_Auxiliary 01ac 7801 |x | Jump 0x1ae 01ad 8419 | | Call 0x2,0x19 01ae 4800 |H | Short_Literal 0x0 01af e40a | | Load 0x2,0xa 01b0 e002 | | Load 0x0,0x2 01b1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 01b2 6839 |h9 | Jump_Zero 0x1ec 01b3 e004 | | Load 0x0,0x4 01b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b5 c412 | | Store 0x2,0x12 01b6 e40d | | Load 0x2,0xd 01b7 6824 |h$ | Jump_Zero 0x1dc 01b8 e5fd | | Load 0x2,-0x3 01b9 4801 |H | Short_Literal 0x1 01ba 4802 |H | Short_Literal 0x2 01bb e00b | | Load 0x0,0xb 01bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01bd 035b | [ | Declare_Type Array,Constrained 01be 0337 | 7 | Declare_Variable Array 01bf e5ff | | Load 0x2,-0x1 01c0 e005 | | Load 0x0,0x5 01c1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01c2 e00b | | Load 0x0,0xb 01c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c4 0119 | | Execute Any,Check_In_Formal_Type 01c5 4801 |H | Short_Literal 0x1 01c6 00da | | Load_Top At_Offset_2 01c7 01d6 | | Execute Vector,Field_Write 01c8 4800 |H | Short_Literal 0x0 01c9 4800 |H | Short_Literal 0x0 01ca 4800 |H | Short_Literal 0x0 01cb e412 | | Load 0x2,0x12 01cc e00e | | Load 0x0,0xe 01cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01ce e00e | | Load 0x0,0xe 01cf 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01d0 e00b | | Load 0x0,0xb 01d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d2 e00b | | Load 0x0,0xb 01d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d4 0119 | | Execute Any,Check_In_Formal_Type 01d5 4802 |H | Short_Literal 0x2 01d6 00da | | Load_Top At_Offset_2 01d7 01d6 | | Execute Vector,Field_Write 01d8 60a3 |` | Indirect_Literal Discrete,0x27c,{0x00000000, 0x000081f8} 01d9 e002 | | Load 0x0,0x2 01da 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01db 7810 |x | Jump 0x1ec 01dc e002 | | Load 0x0,0x2 01dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01de e5fd | | Load 0x2,-0x3 01df e412 | | Load 0x2,0x12 01e0 e5ff | | Load 0x2,-0x1 01e1 e00a | | Load 0x0,0xa 01e2 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e3 c40a | | Store 0x2,0xa 01e4 4800 |H | Short_Literal 0x0 01e5 e40a | | Load 0x2,0xa 01e6 e002 | | Load 0x0,0x2 01e7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 01e8 7003 |p | Jump_Nonzero 0x1ec 01e9 e009 | | Load 0x0,0x9 01ea 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01eb 0257 | W | Execute Discrete,Raise 01ec e40a | | Load 0x2,0xa 01ed a5fc | | Store_Unchecked 0x2,-0x4 01ee e40a | | Load 0x2,0xa 01ef e5fd | | Load 0x2,-0x3 01f0 e409 | | Load 0x2,0x9 01f1 8219 | | Call 0x1,0x19 01f2 c40a | | Store 0x2,0xa 01f3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01f4 TRAP_0038: 01f4 e009 | | Load 0x0,0x9 01f5 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01f6 010f | | Execute Exception,Equal 01f7 6808 |h | Jump_Zero 0x200 01f8 e40a | | Load 0x2,0xa 01f9 a5fc | | Store_Unchecked 0x2,-0x4 01fa e40a | | Load 0x2,0xa 01fb e5fd | | Load 0x2,-0x3 01fc e409 | | Load 0x2,0x9 01fd 8219 | | Call 0x1,0x19 01fe c40a | | Store 0x2,0xa 01ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0200 e009 | | Load 0x0,0x9 0201 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0202 010f | | Execute Exception,Equal 0203 6827 |h' | Jump_Zero 0x22b 0204 4801 |H | Short_Literal 0x1 0205 4801 |H | Short_Literal 0x1 0206 e00b | | Load 0x0,0xb 0207 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0208 035b | [ | Declare_Type Array,Constrained 0209 0337 | 7 | Declare_Variable Array 020a e5ff | | Load 0x2,-0x1 020b e005 | | Load 0x0,0x5 020c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 020d e00b | | Load 0x0,0xb 020e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020f 0119 | | Execute Any,Check_In_Formal_Type 0210 4801 |H | Short_Literal 0x1 0211 00da | | Load_Top At_Offset_2 0212 01d6 | | Execute Vector,Field_Write 0213 606c |`l | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000811a} 0214 e002 | | Load 0x0,0x2 0215 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0216 a5fc | | Store_Unchecked 0x2,-0x4 0217 e5fd | | Load 0x2,-0x3 0218 4801 |H | Short_Literal 0x1 0219 4801 |H | Short_Literal 0x1 021a e00b | | Load 0x0,0xb 021b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021c 035b | [ | Declare_Type Array,Constrained 021d 0337 | 7 | Declare_Variable Array 021e e5ff | | Load 0x2,-0x1 021f e005 | | Load 0x0,0x5 0220 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0221 e00b | | Load 0x0,0xb 0222 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0223 0119 | | Execute Any,Check_In_Formal_Type 0224 4801 |H | Short_Literal 0x1 0225 00da | | Load_Top At_Offset_2 0226 01d6 | | Execute Vector,Field_Write 0227 6058 |`X | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000811a} 0228 e002 | | Load 0x0,0x2 0229 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 022a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 022b e002 | | Load 0x0,0x2 022c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 022d 010f | | Execute Exception,Equal 022e 681c |h | Jump_Zero 0x24b 022f e002 | | Load 0x0,0x2 0230 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0231 a5fc | | Store_Unchecked 0x2,-0x4 0232 e40a | | Load 0x2,0xa 0233 e5fd | | Load 0x2,-0x3 0234 e409 | | Load 0x2,0x9 0235 8219 | | Call 0x1,0x19 0236 c40a | | Store 0x2,0xa 0237 e5fd | | Load 0x2,-0x3 0238 4801 |H | Short_Literal 0x1 0239 4801 |H | Short_Literal 0x1 023a e00b | | Load 0x0,0xb 023b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 023c 035b | [ | Declare_Type Array,Constrained 023d 0337 | 7 | Declare_Variable Array 023e e5ff | | Load 0x2,-0x1 023f e005 | | Load 0x0,0x5 0240 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0241 e00b | | Load 0x0,0xb 0242 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0243 0119 | | Execute Any,Check_In_Formal_Type 0244 4801 |H | Short_Literal 0x1 0245 00da | | Load_Top At_Offset_2 0246 01d6 | | Execute Vector,Field_Write 0247 6038 |`8 | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000811a} 0248 e002 | | Load 0x0,0x2 0249 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 024a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 024b e40a | | Load 0x2,0xa 024c e5fd | | Load 0x2,-0x3 024d e409 | | Load 0x2,0x9 024e 8219 | | Call 0x1,0x19 024f c40a | | Store 0x2,0xa 0250 4801 |H | Short_Literal 0x1 0251 4801 |H | Short_Literal 0x1 0252 e00b | | Load 0x0,0xb 0253 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0254 035b | [ | Declare_Type Array,Constrained 0255 0337 | 7 | Declare_Variable Array 0256 e5ff | | Load 0x2,-0x1 0257 e005 | | Load 0x0,0x5 0258 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0259 e00b | | Load 0x0,0xb 025a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025b 0119 | | Execute Any,Check_In_Formal_Type 025c 4801 |H | Short_Literal 0x1 025d 00da | | Load_Top At_Offset_2 025e 01d6 | | Execute Vector,Field_Write 025f 6020 |` | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000811a} 0260 e002 | | Load 0x0,0x2 0261 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0262 a5fc | | Store_Unchecked 0x2,-0x4 0263 e5fd | | Load 0x2,-0x3 0264 4801 |H | Short_Literal 0x1 0265 4801 |H | Short_Literal 0x1 0266 e00b | | Load 0x0,0xb 0267 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0268 035b | [ | Declare_Type Array,Constrained 0269 0337 | 7 | Declare_Variable Array 026a e5ff | | Load 0x2,-0x1 026b e005 | | Load 0x0,0x5 026c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 026d e00b | | Load 0x0,0xb 026e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026f 0119 | | Execute Any,Check_In_Formal_Type 0270 4801 |H | Short_Literal 0x1 0271 00da | | Load_Top At_Offset_2 0272 01d6 | | Execute Vector,Field_Write 0273 600c |` | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000811a} 0274 e002 | | Load 0x0,0x2 0275 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0276 e5fd | | Load 0x2,-0x3 0277 0092 0b2b | +| Action Push_String_Extended,0xb2b ; "Rcf_Compilation.Compile_Operations.Promote" 0279 e00f | | Load 0x0,0xf 027a 180f | | Execute Package,Field_Execute,Field_Number 0xf 027b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 027c 0000 0000 | | .LITERAL {0x00000000, 0x000081f8} 0280 0000 0000 | | .LITERAL {0x00000000, 0x0000811a} 0284 0000 0000 | | .LITERAL {0x00000000, 0x00008111} 0288 0000 0000 | | .LITERAL {0x00000000, 0x0000817a} 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 02d1 | | .CONST 0x02d1 ; Address of begin 0291 035c | \ | .CONST 0x035c ; Address of exception handler 0292 000c | | .CONST 0x000c ; Number of locals 0293 INIT_0290: 0293 e002 | | Load 0x0,0x2 0294 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0295 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0296 e001 | | Load 0x0,0x1 0297 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0298 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0299 02c7 | | Declare_Variable Any 029a 00d8 | | Load_Top At_Offset_0 029b 1c00 | | Execute_Immediate Run_Utility,0x0 029c e001 | | Load 0x0,0x1 029d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 029e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029f 02c7 | | Declare_Variable Any 02a0 00d8 | | Load_Top At_Offset_0 02a1 1c00 | | Execute_Immediate Run_Utility,0x0 02a2 e002 | | Load 0x0,0x2 02a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02a5 e003 | | Load 0x0,0x3 02a6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02a7 e001 | | Load 0x0,0x1 02a8 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 02a9 0322 | " | Declare_Variable Record 02aa e5fe | | Load 0x2,-0x2 02ab e006 | | Load 0x0,0x6 02ac 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02ad 00d9 | | Load_Top At_Offset_1 02ae 017d | } | Execute Record,Structure_Write 02af e5fd | | Load 0x2,-0x3 02b0 e5ff | | Load 0x2,-0x1 02b1 e5fe | | Load 0x2,-0x2 02b2 e006 | | Load 0x0,0x6 02b3 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 02b4 e001 | | Load 0x0,0x1 02b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b6 02c7 | | Declare_Variable Any 02b7 e5fd | | Load 0x2,-0x3 02b8 4801 |H | Short_Literal 0x1 02b9 e5ff | | Load 0x2,-0x1 02ba e005 | | Load 0x0,0x5 02bb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02bc a409 | | Store_Unchecked 0x2,0x9 02bd e5fd | | Load 0x2,-0x3 02be e5fe | | Load 0x2,-0x2 02bf e006 | | Load 0x0,0x6 02c0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02c1 00da | | Load_Top At_Offset_2 02c2 e007 | | Load 0x0,0x7 02c3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02c4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02c5 0007 | | Action Break_Optional 02c6 e5fd | | Load 0x2,-0x3 02c7 e5ff | | Load 0x2,-0x1 02c8 e5fe | | Load 0x2,-0x2 02c9 e006 | | Load 0x0,0x6 02ca 18ba | | Execute Package,Field_Execute,Field_Number 0xba 02cb e5fd | | Load 0x2,-0x3 02cc e5fe | | Load 0x2,-0x2 02cd e5ff | | Load 0x2,-0x1 02ce e008 | | Load 0x0,0x8 02cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d0 180f | | Execute Package,Field_Execute,Field_Number 0xf 02d1 BODY_0290: 02d1 e402 | | Load 0x2,0x2 02d2 e404 | | Load 0x2,0x4 02d3 e403 | | Load 0x2,0x3 02d4 e5fd | | Load 0x2,-0x3 02d5 e5ff | | Load 0x2,-0x1 02d6 8218 | | Call 0x1,0x18 02d7 c403 | | Store 0x2,0x3 02d8 c404 | | Store 0x2,0x4 02d9 c402 | | Store 0x2,0x2 02da 4800 |H | Short_Literal 0x0 02db e402 | | Load 0x2,0x2 02dc e002 | | Load 0x0,0x2 02dd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 02de 7003 |p | Jump_Nonzero 0x2e2 02df e009 | | Load 0x0,0x9 02e0 1b18 | | Execute Package,Field_Read,Field_Number 0x18 02e1 0257 | W | Execute Discrete,Raise 02e2 e5fd | | Load 0x2,-0x3 02e3 0092 0b2c | ,| Action Push_String_Extended,0xb2c ; "Demoting => " 02e5 e5ff | | Load 0x2,-0x1 02e6 e001 | | Load 0x0,0x1 02e7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02e8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02e9 01cc | | Execute Vector,Catenate 02ea e00f | | Load 0x0,0xf 02eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ec e407 | | Load 0x2,0x7 02ed e408 | | Load 0x2,0x8 02ee 00db | | Load_Top At_Offset_3 02ef e40a | | Load 0x2,0xa 02f0 e40c | | Load 0x2,0xc 02f1 e5ff | | Load 0x2,-0x1 02f2 e010 | | Load 0x0,0x10 02f3 180f | | Execute Package,Field_Execute,Field_Number 0xf 02f4 701a |p | Jump_Nonzero 0x30f 02f5 e5fd | | Load 0x2,-0x3 02f6 4801 |H | Short_Literal 0x1 02f7 4801 |H | Short_Literal 0x1 02f8 e00b | | Load 0x0,0xb 02f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02fa 035b | [ | Declare_Type Array,Constrained 02fb 0337 | 7 | Declare_Variable Array 02fc e5ff | | Load 0x2,-0x1 02fd e005 | | Load 0x0,0x5 02fe 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02ff e00b | | Load 0x0,0xb 0300 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0301 0119 | | Execute Any,Check_In_Formal_Type 0302 4801 |H | Short_Literal 0x1 0303 00da | | Load_Top At_Offset_2 0304 01d6 | | Execute Vector,Field_Write 0305 60e6 |` | Indirect_Literal Discrete,0x3ec,{0x00000000, 0x000081c1} 0306 e002 | | Load 0x0,0x2 0307 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0308 e00b | | Load 0x0,0xb 0309 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 030a 60e1 |` | Indirect_Literal Discrete,0x3ec,{0x00000000, 0x000081c1} 030b e002 | | Load 0x0,0x2 030c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 030d a5fc | | Store_Unchecked 0x2,-0x4 030e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 030f e405 | | Load 0x2,0x5 0310 e406 | | Load 0x2,0x6 0311 e5fd | | Load 0x2,-0x3 0312 e001 | | Load 0x0,0x1 0313 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0314 00ea | | Load_Encached Null_String_Cache 0315 e40a | | Load 0x2,0xa 0316 e40b | | Load 0x2,0xb 0317 e408 | | Load 0x2,0x8 0318 e40c | | Load 0x2,0xc 0319 e5ff | | Load 0x2,-0x1 031a 0092 0b2d | -| Action Push_String_Extended,0xb2d ; "Demote" 031c e006 | | Load 0x0,0x6 031d 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 031e 4800 |H | Short_Literal 0x0 031f e5fe | | Load 0x2,-0x2 0320 e006 | | Load 0x0,0x6 0321 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0322 e011 | | Load 0x0,0x11 0323 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0324 c406 | | Store 0x2,0x6 0325 c405 | | Store 0x2,0x5 0326 4800 |H | Short_Literal 0x0 0327 e405 | | Load 0x2,0x5 0328 e002 | | Load 0x0,0x2 0329 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 032a 7006 |p | Jump_Nonzero 0x331 032b e012 | | Load 0x0,0x12 032c 180e | | Execute Package,Field_Execute,Field_Number 0xe 032d e405 | | Load 0x2,0x5 032e e002 | | Load 0x0,0x2 032f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0330 7823 |x# | Jump 0x354 0331 e407 | | Load 0x2,0x7 0332 e408 | | Load 0x2,0x8 0333 00db | | Load_Top At_Offset_3 0334 e40a | | Load 0x2,0xa 0335 e40c | | Load 0x2,0xc 0336 e5ff | | Load 0x2,-0x1 0337 e010 | | Load 0x0,0x10 0338 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0339 701a |p | Jump_Nonzero 0x354 033a e5fd | | Load 0x2,-0x3 033b 4801 |H | Short_Literal 0x1 033c 4801 |H | Short_Literal 0x1 033d e00b | | Load 0x0,0xb 033e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 033f 035b | [ | Declare_Type Array,Constrained 0340 0337 | 7 | Declare_Variable Array 0341 e5ff | | Load 0x2,-0x1 0342 e005 | | Load 0x0,0x5 0343 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0344 e00b | | Load 0x0,0xb 0345 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0346 0119 | | Execute Any,Check_In_Formal_Type 0347 4801 |H | Short_Literal 0x1 0348 00da | | Load_Top At_Offset_2 0349 01d6 | | Execute Vector,Field_Write 034a 609d |` | Indirect_Literal Discrete,0x3e8,{0x00000000, 0x000081c2} 034b e002 | | Load 0x0,0x2 034c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 034d e00b | | Load 0x0,0xb 034e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 034f 6098 |` | Indirect_Literal Discrete,0x3e8,{0x00000000, 0x000081c2} 0350 e002 | | Load 0x0,0x2 0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0352 a5fc | | Store_Unchecked 0x2,-0x4 0353 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0354 e402 | | Load 0x2,0x2 0355 a5fc | | Store_Unchecked 0x2,-0x4 0356 e402 | | Load 0x2,0x2 0357 e5fd | | Load 0x2,-0x3 0358 e404 | | Load 0x2,0x4 0359 8219 | | Call 0x1,0x19 035a c402 | | Store 0x2,0x2 035b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 035c TRAP_0290: 035c e009 | | Load 0x0,0x9 035d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 035e 010f | | Execute Exception,Equal 035f 6808 |h | Jump_Zero 0x368 0360 e402 | | Load 0x2,0x2 0361 e5fd | | Load 0x2,-0x3 0362 e404 | | Load 0x2,0x4 0363 8219 | | Call 0x1,0x19 0364 c402 | | Store 0x2,0x2 0365 e402 | | Load 0x2,0x2 0366 a5fc | | Store_Unchecked 0x2,-0x4 0367 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0368 e009 | | Load 0x0,0x9 0369 1b18 | | Execute Package,Field_Read,Field_Number 0x18 036a 010f | | Execute Exception,Equal 036b 6827 |h' | Jump_Zero 0x393 036c 4801 |H | Short_Literal 0x1 036d 4801 |H | Short_Literal 0x1 036e e00b | | Load 0x0,0xb 036f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0370 035b | [ | Declare_Type Array,Constrained 0371 0337 | 7 | Declare_Variable Array 0372 e5ff | | Load 0x2,-0x1 0373 e005 | | Load 0x0,0x5 0374 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0375 e00b | | Load 0x0,0xb 0376 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0377 0119 | | Execute Any,Check_In_Formal_Type 0378 4801 |H | Short_Literal 0x1 0379 00da | | Load_Top At_Offset_2 037a 01d6 | | Execute Vector,Field_Write 037b 6068 |`h | Indirect_Literal Discrete,0x3e4,{0x00000000, 0x00008107} 037c e002 | | Load 0x0,0x2 037d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 037e a5fc | | Store_Unchecked 0x2,-0x4 037f e5fd | | Load 0x2,-0x3 0380 4801 |H | Short_Literal 0x1 0381 4801 |H | Short_Literal 0x1 0382 e00b | | Load 0x0,0xb 0383 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0384 035b | [ | Declare_Type Array,Constrained 0385 0337 | 7 | Declare_Variable Array 0386 e5ff | | Load 0x2,-0x1 0387 e005 | | Load 0x0,0x5 0388 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0389 e00b | | Load 0x0,0xb 038a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 038b 0119 | | Execute Any,Check_In_Formal_Type 038c 4801 |H | Short_Literal 0x1 038d 00da | | Load_Top At_Offset_2 038e 01d6 | | Execute Vector,Field_Write 038f 6054 |`T | Indirect_Literal Discrete,0x3e4,{0x00000000, 0x00008107} 0390 e002 | | Load 0x0,0x2 0391 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0392 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0393 e002 | | Load 0x0,0x2 0394 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0395 010f | | Execute Exception,Equal 0396 681c |h | Jump_Zero 0x3b3 0397 e002 | | Load 0x0,0x2 0398 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0399 a5fc | | Store_Unchecked 0x2,-0x4 039a e402 | | Load 0x2,0x2 039b e5fd | | Load 0x2,-0x3 039c e404 | | Load 0x2,0x4 039d 8219 | | Call 0x1,0x19 039e c402 | | Store 0x2,0x2 039f e5fd | | Load 0x2,-0x3 03a0 4801 |H | Short_Literal 0x1 03a1 4801 |H | Short_Literal 0x1 03a2 e00b | | Load 0x0,0xb 03a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03a4 035b | [ | Declare_Type Array,Constrained 03a5 0337 | 7 | Declare_Variable Array 03a6 e5ff | | Load 0x2,-0x1 03a7 e005 | | Load 0x0,0x5 03a8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03a9 e00b | | Load 0x0,0xb 03aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ab 0119 | | Execute Any,Check_In_Formal_Type 03ac 4801 |H | Short_Literal 0x1 03ad 00da | | Load_Top At_Offset_2 03ae 01d6 | | Execute Vector,Field_Write 03af 6034 |`4 | Indirect_Literal Discrete,0x3e4,{0x00000000, 0x00008107} 03b0 e002 | | Load 0x0,0x2 03b1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03b3 e402 | | Load 0x2,0x2 03b4 e5fd | | Load 0x2,-0x3 03b5 e404 | | Load 0x2,0x4 03b6 8219 | | Call 0x1,0x19 03b7 c402 | | Store 0x2,0x2 03b8 4801 |H | Short_Literal 0x1 03b9 4801 |H | Short_Literal 0x1 03ba e00b | | Load 0x0,0xb 03bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03bc 035b | [ | Declare_Type Array,Constrained 03bd 0337 | 7 | Declare_Variable Array 03be e5ff | | Load 0x2,-0x1 03bf e005 | | Load 0x0,0x5 03c0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03c1 e00b | | Load 0x0,0xb 03c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c3 0119 | | Execute Any,Check_In_Formal_Type 03c4 4801 |H | Short_Literal 0x1 03c5 00da | | Load_Top At_Offset_2 03c6 01d6 | | Execute Vector,Field_Write 03c7 601c |` | Indirect_Literal Discrete,0x3e4,{0x00000000, 0x00008107} 03c8 e002 | | Load 0x0,0x2 03c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ca a5fc | | Store_Unchecked 0x2,-0x4 03cb e5fd | | Load 0x2,-0x3 03cc 4801 |H | Short_Literal 0x1 03cd 4801 |H | Short_Literal 0x1 03ce e00b | | Load 0x0,0xb 03cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03d0 035b | [ | Declare_Type Array,Constrained 03d1 0337 | 7 | Declare_Variable Array 03d2 e5ff | | Load 0x2,-0x1 03d3 e005 | | Load 0x0,0x5 03d4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03d5 e00b | | Load 0x0,0xb 03d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d7 0119 | | Execute Any,Check_In_Formal_Type 03d8 4801 |H | Short_Literal 0x1 03d9 00da | | Load_Top At_Offset_2 03da 01d6 | | Execute Vector,Field_Write 03db 6008 |` | Indirect_Literal Discrete,0x3e4,{0x00000000, 0x00008107} 03dc e002 | | Load 0x0,0x2 03dd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03de e5fd | | Load 0x2,-0x3 03df 0092 0b2e | .| Action Push_String_Extended,0xb2e ; "Rcf_Compilation.Compile_Operations.Demote" 03e1 e00f | | Load 0x0,0xf 03e2 180f | | Execute Package,Field_Execute,Field_Number 0xf 03e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e4 0000 0000 | | .LITERAL {0x00000000, 0x00008107} 03e8 0000 0000 | | .LITERAL {0x00000000, 0x000081c2} 03ec 0000 0000 | | .LITERAL {0x00000000, 0x000081c1} 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 e20f | | Load 0x1,0xf 03f4 6807 |h | Jump_Zero 0x3fc 03f5 00db | | Load_Top At_Offset_3 03f6 0092 0b2f | /| Action Push_String_Extended,0xb2f ; "}?{ Check_Unit Rcf_Compilation.Compile_Operations." 03f8 e5ff | | Load 0x2,-0x1 03f9 01cc | | Execute Vector,Catenate 03fa e00f | | Load 0x0,0xf 03fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03fd 0000 0000 | | .XXX[0x3] 03ff 0000 | | 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0415 | | .CONST 0x0415 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0005 | | .CONST 0x0005 ; Number of locals 0403 INIT_0400: 0403 e004 | | Load 0x0,0x4 0404 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0405 02c7 | | Declare_Variable Any 0406 00d8 | | Load_Top At_Offset_0 0407 1c00 | | Execute_Immediate Run_Utility,0x0 0408 e004 | | Load 0x0,0x4 0409 1b0d | | Execute Package,Field_Read,Field_Number 0xd 040a 02c7 | | Declare_Variable Any 040b 00d8 | | Load_Top At_Offset_0 040c 1c00 | | Execute_Immediate Run_Utility,0x0 040d e002 | | Load 0x0,0x2 040e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 040f e012 | | Load 0x0,0x12 0410 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0411 02c7 | | Declare_Variable Any 0412 e012 | | Load 0x0,0x12 0413 180e | | Execute Package,Field_Execute,Field_Number 0xe 0414 a405 | | Store_Unchecked 0x2,0x5 0415 BODY_0400: 0415 e002 | | Load 0x0,0x2 0416 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0417 00db | | Load_Top At_Offset_3 0418 0120 | | Execute Any,Is_Value 0419 6803 |h | Jump_Zero 0x41d 041a e004 | | Load 0x0,0x4 041b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041c 7801 |x | Jump 0x41e 041d 00db | | Load_Top At_Offset_3 041e e402 | | Load 0x2,0x2 041f 0120 | | Execute Any,Is_Value 0420 6803 |h | Jump_Zero 0x424 0421 e004 | | Load 0x0,0x4 0422 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0423 7801 |x | Jump 0x425 0424 e402 | | Load 0x2,0x2 0425 00db | | Load_Top At_Offset_3 0426 e5fe | | Load 0x2,-0x2 0427 e5ff | | Load 0x2,-0x1 0428 e008 | | Load 0x0,0x8 0429 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 042b c402 | | Store 0x2,0x2 042c c403 | | Store 0x2,0x3 042d 005a | Z | Store_Top Discrete,At_Offset_2 042e 00da | | Load_Top At_Offset_2 042f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 043b | ; | .CONST 0x043b ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0003 | | .CONST 0x0003 ; Number of locals 0433 INIT_0430: 0433 e001 | | Load 0x0,0x1 0434 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0435 e013 | | Load 0x0,0x13 0436 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0437 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0438 02c7 | | Declare_Variable Any 0439 00d8 | | Load_Top At_Offset_0 043a 1c00 | | Execute_Immediate Run_Utility,0x0 043b BODY_0430: 043b 4801 |H | Short_Literal 0x1 043c e013 | | Load 0x0,0x13 043d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 043e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 043f e5ff | | Load 0x2,-0x1 0440 e001 | | Load 0x0,0x1 0441 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0442 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0443 e013 | | Load 0x0,0x13 0444 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0445 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0446 c403 | | Store 0x2,0x3 0447 00d8 | | Load_Top At_Offset_0 0448 e013 | | Load 0x0,0x13 0449 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 044b 6805 |h | Jump_Zero 0x451 044c 00d8 | | Load_Top At_Offset_0 044d e013 | | Load 0x0,0x13 044e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 044f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0450 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0451 e004 | | Load 0x0,0x4 0452 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0453 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 00db | | Load_Top At_Offset_3 045c 701e |p | Jump_Nonzero 0x47b 045d 00da | | Load_Top At_Offset_2 045e 01db | | Execute Vector,Length 045f 701b |p | Jump_Nonzero 0x47b 0460 e012 | | Load 0x0,0x12 0461 180e | | Execute Package,Field_Execute,Field_Number 0xe 0462 4801 |H | Short_Literal 0x1 0463 4801 |H | Short_Literal 0x1 0464 e00b | | Load 0x0,0xb 0465 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0466 035b | [ | Declare_Type Array,Constrained 0467 0337 | 7 | Declare_Variable Array 0468 00ea | | Load_Encached Null_String_Cache 0469 e00b | | Load 0x0,0xb 046a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 046b e00b | | Load 0x0,0xb 046c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 046d 0119 | | Execute Any,Check_In_Formal_Type 046e 4801 |H | Short_Literal 0x1 046f 00da | | Load_Top At_Offset_2 0470 01d6 | | Execute Vector,Field_Write 0471 600e |` | Indirect_Literal Discrete,0x480,{0x00000000, 0x00008210} 0472 e002 | | Load 0x0,0x2 0473 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0474 e00b | | Load 0x0,0xb 0475 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0476 6009 |` | Indirect_Literal Discrete,0x480,{0x00000000, 0x00008210} 0477 e002 | | Load 0x0,0x2 0478 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0479 a5fc | | Store_Unchecked 0x2,-0x4 047a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 047b 4800 |H | Short_Literal 0x0 047c a5fc | | Store_Unchecked 0x2,-0x4 047d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 047e 0000 0000 | | .XXX[0x2] 0480 0000 0000 | | .LITERAL {0x00000000, 0x00008210} 0484 0000 0000 | | .BLANK 0000[0x4] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 049e | | .CONST 0x049e ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0002 | | .CONST 0x0002 ; Number of locals 048b INIT_0488: 048b e012 | | Load 0x0,0x12 048c 180e | | Execute Package,Field_Execute,Field_Number 0xe 048d e012 | | Load 0x0,0x12 048e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 048f e012 | | Load 0x0,0x12 0490 180e | | Execute Package,Field_Execute,Field_Number 0xe 0491 e012 | | Load 0x0,0x12 0492 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0493 484d |HM | Short_Literal 0x4d 0494 e012 | | Load 0x0,0x12 0495 1b45 | E | Execute Package,Field_Read,Field_Number 0x45 0496 e012 | | Load 0x0,0x12 0497 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0498 4800 |H | Short_Literal 0x0 0499 e012 | | Load 0x0,0x12 049a 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 049b 00db | | Load_Top At_Offset_3 049c e01b | | Load 0x0,0x1b 049d 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 049e BODY_0488: 049e 4800 |H | Short_Literal 0x0 049f 00d9 | | Load_Top At_Offset_1 04a0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 04a1 e002 | | Load 0x0,0x2 04a2 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04a3 7003 |p | Jump_Nonzero 0x4a7 04a4 e002 | | Load 0x0,0x2 04a5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04a6 0257 | W | Execute Discrete,Raise 04a7 00d8 | | Load_Top At_Offset_0 04a8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04aa 0000 0000 | | .BLANK 0000[0x6] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 e5fd | | Load 0x2,-0x3 04b4 6803 |h | Jump_Zero 0x4b8 04b5 00da | | Load_Top At_Offset_2 04b6 8214 | | Call 0x1,0x14 04b7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04b8 00db | | Load_Top At_Offset_3 04b9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04ba 0000 0000 | | .BLANK 0000[0x6] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04d4 | | .CONST 0x04d4 ; Address of begin 04c1 0535 | 5 | .CONST 0x0535 ; Address of exception handler 04c2 0005 | | .CONST 0x0005 ; Number of locals 04c3 INIT_04c0: 04c3 e002 | | Load 0x0,0x2 04c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04c6 e004 | | Load 0x0,0x4 04c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c8 02c7 | | Declare_Variable Any 04c9 00d8 | | Load_Top At_Offset_0 04ca 1c00 | | Execute_Immediate Run_Utility,0x0 04cb e5ff | | Load 0x2,-0x1 04cc e001 | | Load 0x0,0x1 04cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ce 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 04cf e5fe | | Load 0x2,-0x2 04d0 e5fd | | Load 0x2,-0x3 04d1 e5fb | | Load 0x2,-0x5 04d2 e006 | | Load 0x0,0x6 04d3 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 04d4 BODY_04c0: 04d4 e5f9 | | Load 0x2,-0x7 04d5 0092 0b30 | 0| Action Push_String_Extended,0xb30 ; "Target_Builder.Unit.Establish_Download_Time" 04d7 e00f | | Load 0x0,0xf 04d8 180e | | Execute Package,Field_Execute,Field_Number 0xe 04d9 4800 |H | Short_Literal 0x0 04da e402 | | Load 0x2,0x2 04db e002 | | Load 0x0,0x2 04dc 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04dd 7003 |p | Jump_Nonzero 0x4e1 04de 00db | | Load_Top At_Offset_3 04df a5f8 | | Store_Unchecked 0x2,-0x8 04e0 4508 |E | Exit_Suprogram New_Top_Offset 0x8 04e1 00da | | Load_Top At_Offset_2 04e2 0120 | | Execute Any,Is_Value 04e3 6803 |h | Jump_Zero 0x4e7 04e4 e004 | | Load 0x0,0x4 04e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e6 7801 |x | Jump 0x4e8 04e7 00da | | Load_Top At_Offset_2 04e8 e002 | | Load 0x0,0x2 04e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ea e5fa | | Load 0x2,-0x6 04eb e5fc | | Load 0x2,-0x4 04ec e405 | | Load 0x2,0x5 04ed e003 | | Load 0x0,0x3 04ee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 04ef c402 | | Store 0x2,0x2 04f0 c403 | | Store 0x2,0x3 04f1 4800 |H | Short_Literal 0x0 04f2 e402 | | Load 0x2,0x2 04f3 e002 | | Load 0x0,0x2 04f4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04f5 701d |p | Jump_Nonzero 0x513 04f6 e5f9 | | Load 0x2,-0x7 04f7 4801 |H | Short_Literal 0x1 04f8 4802 |H | Short_Literal 0x2 04f9 e00b | | Load 0x0,0xb 04fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04fb 035b | [ | Declare_Type Array,Constrained 04fc 0337 | 7 | Declare_Variable Array 04fd 00db | | Load_Top At_Offset_3 04fe e00b | | Load 0x0,0xb 04ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0500 e00b | | Load 0x0,0xb 0501 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0502 0119 | | Execute Any,Check_In_Formal_Type 0503 4801 |H | Short_Literal 0x1 0504 00da | | Load_Top At_Offset_2 0505 01d6 | | Execute Vector,Field_Write 0506 e402 | | Load 0x2,0x2 0507 e002 | | Load 0x0,0x2 0508 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0509 e00b | | Load 0x0,0xb 050a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 050b 0119 | | Execute Any,Check_In_Formal_Type 050c 4802 |H | Short_Literal 0x2 050d 00da | | Load_Top At_Offset_2 050e 01d6 | | Execute Vector,Field_Write 050f 6060 |`` | Indirect_Literal Discrete,0x570,{0x00000000, 0x00008137} 0510 e002 | | Load 0x0,0x2 0511 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0512 781f |x | Jump 0x532 0513 e5f9 | | Load 0x2,-0x7 0514 0092 0b31 | 1| Action Push_String_Extended,0xb31 ; "Setting download time for => " 0516 00db | | Load_Top At_Offset_3 0517 01cc | | Execute Vector,Catenate 0518 0092 0b32 | 2| Action Push_String_Extended,0xb32 ; " to " 051a 01cc | | Execute Vector,Catenate 051b 4800 |H | Short_Literal 0x0 051c 4800 |H | Short_Literal 0x0 051d 4800 |H | Short_Literal 0x0 051e e403 | | Load 0x2,0x3 051f e00e | | Load 0x0,0xe 0520 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0521 e00e | | Load 0x0,0xe 0522 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0523 01cc | | Execute Vector,Catenate 0524 e00f | | Load 0x0,0xf 0525 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0526 e002 | | Load 0x0,0x2 0527 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0528 e5f9 | | Load 0x2,-0x7 0529 e5fb | | Load 0x2,-0x5 052a e5ff | | Load 0x2,-0x1 052b 8212 | | Call 0x1,0x12 052c e403 | | Load 0x2,0x3 052d e5ff | | Load 0x2,-0x1 052e e008 | | Load 0x0,0x8 052f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0530 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0531 c402 | | Store 0x2,0x2 0532 00db | | Load_Top At_Offset_3 0533 a5f8 | | Store_Unchecked 0x2,-0x8 0534 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0535 TRAP_04c0: 0535 e002 | | Load 0x0,0x2 0536 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0537 010f | | Execute Exception,Equal 0538 6817 |h | Jump_Zero 0x550 0539 e002 | | Load 0x0,0x2 053a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 053b a5f8 | | Store_Unchecked 0x2,-0x8 053c e5f9 | | Load 0x2,-0x7 053d 4801 |H | Short_Literal 0x1 053e 4801 |H | Short_Literal 0x1 053f e00b | | Load 0x0,0xb 0540 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0541 035b | [ | Declare_Type Array,Constrained 0542 0337 | 7 | Declare_Variable Array 0543 e404 | | Load 0x2,0x4 0544 e00b | | Load 0x0,0xb 0545 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0546 e00b | | Load 0x0,0xb 0547 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0548 0119 | | Execute Any,Check_In_Formal_Type 0549 4801 |H | Short_Literal 0x1 054a 00da | | Load_Top At_Offset_2 054b 01d6 | | Execute Vector,Field_Write 054c 601f |` | Indirect_Literal Discrete,0x56c,{0x00000000, 0x0000815e} 054d e002 | | Load 0x0,0x2 054e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 054f 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0550 e5f9 | | Load 0x2,-0x7 0551 0092 0b30 | 0| Action Push_String_Extended,0xb30 ; "Target_Builder.Unit.Establish_Download_Time" 0553 e00f | | Load 0x0,0xf 0554 180f | | Execute Package,Field_Execute,Field_Number 0xf 0555 4801 |H | Short_Literal 0x1 0556 4801 |H | Short_Literal 0x1 0557 e00b | | Load 0x0,0xb 0558 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0559 035b | [ | Declare_Type Array,Constrained 055a 0337 | 7 | Declare_Variable Array 055b 00db | | Load_Top At_Offset_3 055c e00b | | Load 0x0,0xb 055d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 055e e00b | | Load 0x0,0xb 055f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0560 0119 | | Execute Any,Check_In_Formal_Type 0561 4801 |H | Short_Literal 0x1 0562 00da | | Load_Top At_Offset_2 0563 01d6 | | Execute Vector,Field_Write 0564 6007 |` | Indirect_Literal Discrete,0x56c,{0x00000000, 0x0000815e} 0565 e002 | | Load 0x0,0x2 0566 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0567 a5f8 | | Store_Unchecked 0x2,-0x8 0568 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0569 0000 0000 | | .XXX[0x3] 056b 0000 | | 056c 0000 0000 | | .LITERAL {0x00000000, 0x0000815e} 0570 0000 0000 | | .LITERAL {0x00000000, 0x00008137} 0574 0000 0000 | | .BLANK 0000[0x4] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 0589 | | .CONST 0x0589 ; Address of begin 0579 05e6 | | .CONST 0x05e6 ; Address of exception handler 057a 0004 | | .CONST 0x0004 ; Number of locals 057b INIT_0578: 057b e002 | | Load 0x0,0x2 057c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 057e e004 | | Load 0x0,0x4 057f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0580 02c7 | | Declare_Variable Any 0581 00d8 | | Load_Top At_Offset_0 0582 1c00 | | Execute_Immediate Run_Utility,0x0 0583 e5ff | | Load 0x2,-0x1 0584 e5fe | | Load 0x2,-0x2 0585 8214 | | Call 0x1,0x14 0586 e5fc | | Load 0x2,-0x4 0587 e006 | | Load 0x0,0x6 0588 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0589 BODY_0578: 0589 e5fa | | Load 0x2,-0x6 058a 0092 0b30 | 0| Action Push_String_Extended,0xb30 ; "Target_Builder.Unit.Establish_Download_Time" 058c e00f | | Load 0x0,0xf 058d 180e | | Execute Package,Field_Execute,Field_Number 0xe 058e 4800 |H | Short_Literal 0x0 058f 00db | | Load_Top At_Offset_3 0590 e002 | | Load 0x0,0x2 0591 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0592 7003 |p | Jump_Nonzero 0x596 0593 00da | | Load_Top At_Offset_2 0594 a5f9 | | Store_Unchecked 0x2,-0x7 0595 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0596 00d9 | | Load_Top At_Offset_1 0597 0120 | | Execute Any,Is_Value 0598 6803 |h | Jump_Zero 0x59c 0599 e004 | | Load 0x0,0x4 059a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059b 7801 |x | Jump 0x59d 059c 00d9 | | Load_Top At_Offset_1 059d e002 | | Load 0x0,0x2 059e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059f e5fb | | Load 0x2,-0x5 05a0 e5fd | | Load 0x2,-0x3 05a1 e404 | | Load 0x2,0x4 05a2 e003 | | Load 0x0,0x3 05a3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05a4 c402 | | Store 0x2,0x2 05a5 c403 | | Store 0x2,0x3 05a6 4800 |H | Short_Literal 0x0 05a7 00db | | Load_Top At_Offset_3 05a8 e002 | | Load 0x0,0x2 05a9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 05aa 701d |p | Jump_Nonzero 0x5c8 05ab e5fa | | Load 0x2,-0x6 05ac 4801 |H | Short_Literal 0x1 05ad 4802 |H | Short_Literal 0x2 05ae e00b | | Load 0x0,0xb 05af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05b0 035b | [ | Declare_Type Array,Constrained 05b1 0337 | 7 | Declare_Variable Array 05b2 00da | | Load_Top At_Offset_2 05b3 e00b | | Load 0x0,0xb 05b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05b5 e00b | | Load 0x0,0xb 05b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b7 0119 | | Execute Any,Check_In_Formal_Type 05b8 4801 |H | Short_Literal 0x1 05b9 00da | | Load_Top At_Offset_2 05ba 01d6 | | Execute Vector,Field_Write 05bb e402 | | Load 0x2,0x2 05bc e002 | | Load 0x0,0x2 05bd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05be e00b | | Load 0x0,0xb 05bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05c0 0119 | | Execute Any,Check_In_Formal_Type 05c1 4802 |H | Short_Literal 0x2 05c2 00da | | Load_Top At_Offset_2 05c3 01d6 | | Execute Vector,Field_Write 05c4 67ab |g | Indirect_Literal Discrete,0x570,{0x00000000, 0x00008137} 05c5 e002 | | Load 0x0,0x2 05c6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 05c7 781b |x | Jump 0x5e3 05c8 e5fa | | Load 0x2,-0x6 05c9 0092 0b31 | 1| Action Push_String_Extended,0xb31 ; "Setting download time for => " 05cb 00da | | Load_Top At_Offset_2 05cc 01cc | | Execute Vector,Catenate 05cd 0092 0b32 | 2| Action Push_String_Extended,0xb32 ; " to " 05cf 01cc | | Execute Vector,Catenate 05d0 4800 |H | Short_Literal 0x0 05d1 4800 |H | Short_Literal 0x0 05d2 4800 |H | Short_Literal 0x0 05d3 e403 | | Load 0x2,0x3 05d4 e00e | | Load 0x0,0xe 05d5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05d6 e00e | | Load 0x0,0xe 05d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05d8 01cc | | Execute Vector,Catenate 05d9 e00f | | Load 0x0,0xf 05da 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05db e002 | | Load 0x0,0x2 05dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05dd e5fa | | Load 0x2,-0x6 05de 00db | | Load_Top At_Offset_3 05df e5fe | | Load 0x2,-0x2 05e0 e01b | | Load 0x0,0x1b 05e1 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 05e2 005b | [ | Store_Top Discrete,At_Offset_3 05e3 00da | | Load_Top At_Offset_2 05e4 a5f9 | | Store_Unchecked 0x2,-0x7 05e5 4507 |E | Exit_Suprogram New_Top_Offset 0x7 05e6 TRAP_0578: 05e6 e002 | | Load 0x0,0x2 05e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05e8 010f | | Execute Exception,Equal 05e9 6817 |h | Jump_Zero 0x601 05ea e002 | | Load 0x0,0x2 05eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05ec a5f9 | | Store_Unchecked 0x2,-0x7 05ed e5fa | | Load 0x2,-0x6 05ee 4801 |H | Short_Literal 0x1 05ef 4801 |H | Short_Literal 0x1 05f0 e00b | | Load 0x0,0xb 05f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05f2 035b | [ | Declare_Type Array,Constrained 05f3 0337 | 7 | Declare_Variable Array 05f4 00db | | Load_Top At_Offset_3 05f5 e00b | | Load 0x0,0xb 05f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05f7 e00b | | Load 0x0,0xb 05f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05f9 0119 | | Execute Any,Check_In_Formal_Type 05fa 4801 |H | Short_Literal 0x1 05fb 00da | | Load_Top At_Offset_2 05fc 01d6 | | Execute Vector,Field_Write 05fd 676e |gn | Indirect_Literal Discrete,0x56c,{0x00000000, 0x0000815e} 05fe e002 | | Load 0x0,0x2 05ff 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0600 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0601 e5fa | | Load 0x2,-0x6 0602 0092 0b30 | 0| Action Push_String_Extended,0xb30 ; "Target_Builder.Unit.Establish_Download_Time" 0604 e00f | | Load 0x0,0xf 0605 180f | | Execute Package,Field_Execute,Field_Number 0xf 0606 4801 |H | Short_Literal 0x1 0607 4801 |H | Short_Literal 0x1 0608 e00b | | Load 0x0,0xb 0609 1b0f | | Execute Package,Field_Read,Field_Number 0xf 060a 035b | [ | Declare_Type Array,Constrained 060b 0337 | 7 | Declare_Variable Array 060c 00da | | Load_Top At_Offset_2 060d e00b | | Load 0x0,0xb 060e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 060f e00b | | Load 0x0,0xb 0610 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0611 0119 | | Execute Any,Check_In_Formal_Type 0612 4801 |H | Short_Literal 0x1 0613 00da | | Load_Top At_Offset_2 0614 01d6 | | Execute Vector,Field_Write 0615 6756 |gV | Indirect_Literal Discrete,0x56c,{0x00000000, 0x0000815e} 0616 e002 | | Load 0x0,0x2 0617 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0618 a5f9 | | Store_Unchecked 0x2,-0x7 0619 4507 |E | Exit_Suprogram New_Top_Offset 0x7 061a 0000 0000 | | .BLANK 0000[0x6] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0625 | % | .CONST 0x0625 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0002 | | .CONST 0x0002 ; Number of locals 0623 INIT_0620: 0623 e001 | | Load 0x0,0x1 0624 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0625 BODY_0620: 0625 e001 | | Load 0x0,0x1 0626 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0627 e5fd | | Load 0x2,-0x3 0628 0120 | | Execute Any,Is_Value 0629 6804 |h | Jump_Zero 0x62e 062a e001 | | Load 0x0,0x1 062b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 062c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 062d 7801 |x | Jump 0x62f 062e e5fd | | Load 0x2,-0x3 062f 6068 |`h | Indirect_Literal Discrete,0x698,{0x00000000, 0x00004000} 0630 e014 | | Load 0x0,0x14 0631 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0632 4800 |H | Short_Literal 0x0 0633 e5ff | | Load 0x2,-0x1 0634 e001 | | Load 0x0,0x1 0635 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0636 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0637 c5fd | | Store 0x2,-0x3 0638 0059 | Y | Store_Top Discrete,At_Offset_1 0639 00d8 | | Load_Top At_Offset_0 063a 6821 |h! | Jump_Zero 0x65c 063b 4801 |H | Short_Literal 0x1 063c 4802 |H | Short_Literal 0x2 063d e00b | | Load 0x0,0xb 063e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 063f 035b | [ | Declare_Type Array,Constrained 0640 0337 | 7 | Declare_Variable Array 0641 e5ff | | Load 0x2,-0x1 0642 e00b | | Load 0x0,0xb 0643 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0644 e00b | | Load 0x0,0xb 0645 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0646 0119 | | Execute Any,Check_In_Formal_Type 0647 4801 |H | Short_Literal 0x1 0648 00da | | Load_Top At_Offset_2 0649 01d6 | | Execute Vector,Field_Write 064a 00d9 | | Load_Top At_Offset_1 064b e00b | | Load 0x0,0xb 064c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 064d e00b | | Load 0x0,0xb 064e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 064f 0119 | | Execute Any,Check_In_Formal_Type 0650 4802 |H | Short_Literal 0x2 0651 00da | | Load_Top At_Offset_2 0652 01d6 | | Execute Vector,Field_Write 0653 6040 |`@ | Indirect_Literal Discrete,0x694,{0x00000000, 0x0000813d} 0654 e002 | | Load 0x0,0x2 0655 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0656 a5fb | | Store_Unchecked 0x2,-0x5 0657 e5fe | | Load 0x2,-0x2 0658 e5fb | | Load 0x2,-0x5 0659 e002 | | Load 0x0,0x2 065a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 065b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 065c e015 | | Load 0x0,0x15 065d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 065e e001 | | Load 0x0,0x1 065f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0660 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0661 c5fc | | Store 0x2,-0x4 0662 e001 | | Load 0x0,0x1 0663 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0664 e015 | | Load 0x0,0x15 0665 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0666 e5fd | | Load 0x2,-0x3 0667 e001 | | Load 0x0,0x1 0668 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0669 1814 | | Execute Package,Field_Execute,Field_Number 0x14 066a 0059 | Y | Store_Top Discrete,At_Offset_1 066b 00d8 | | Load_Top At_Offset_0 066c 6820 |h | Jump_Zero 0x68d 066d 4801 |H | Short_Literal 0x1 066e 4802 |H | Short_Literal 0x2 066f e00b | | Load 0x0,0xb 0670 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0671 035b | [ | Declare_Type Array,Constrained 0672 0337 | 7 | Declare_Variable Array 0673 e5ff | | Load 0x2,-0x1 0674 e00b | | Load 0x0,0xb 0675 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0676 e00b | | Load 0x0,0xb 0677 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0678 0119 | | Execute Any,Check_In_Formal_Type 0679 4801 |H | Short_Literal 0x1 067a 00da | | Load_Top At_Offset_2 067b 01d6 | | Execute Vector,Field_Write 067c 00d9 | | Load_Top At_Offset_1 067d e00b | | Load 0x0,0xb 067e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 067f e00b | | Load 0x0,0xb 0680 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0681 0119 | | Execute Any,Check_In_Formal_Type 0682 4802 |H | Short_Literal 0x2 0683 00da | | Load_Top At_Offset_2 0684 01d6 | | Execute Vector,Field_Write 0685 600a |` | Indirect_Literal Discrete,0x690,{0x00000000, 0x00008159} 0686 e002 | | Load 0x0,0x2 0687 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0688 a5fb | | Store_Unchecked 0x2,-0x5 0689 e5fe | | Load 0x2,-0x2 068a e5fb | | Load 0x2,-0x5 068b e002 | | Load 0x0,0x2 068c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 068d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 068e 0000 0000 | | .XXX[0x2] 0690 0000 0000 | | .LITERAL {0x00000000, 0x00008159} 0694 0000 0000 | | .LITERAL {0x00000000, 0x0000813d} 0698 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 069c 0000 0000 | | .BLANK 0000[0x4] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a5 | | .CONST 0x06a5 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0002 | | .CONST 0x0002 ; Number of locals 06a3 INIT_06a0: 06a3 e001 | | Load 0x0,0x1 06a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06a5 BODY_06a0: 06a5 4800 |H | Short_Literal 0x0 06a6 a5fd | | Store_Unchecked 0x2,-0x3 06a7 e001 | | Load 0x0,0x1 06a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06a9 e015 | | Load 0x0,0x15 06aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06ab e5ff | | Load 0x2,-0x1 06ac e001 | | Load 0x0,0x1 06ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06af 0059 | Y | Store_Top Discrete,At_Offset_1 06b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06b1 0000 0000 | | .BLANK 0000[0x7] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06bb | | .CONST 0x06bb ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0001 | | .CONST 0x0001 ; Number of locals 06bb BODY_06b8: 06bb INIT_06b8: 06bb e5fc | | Load 0x2,-0x4 06bc 0092 0b33 | 3| Action Push_String_Extended,0xb33 ; "Acquiring Remote Connection => " 06be e5ff | | Load 0x2,-0x1 06bf 01cc | | Execute Vector,Catenate 06c0 e00f | | Load 0x0,0xf 06c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06c2 e002 | | Load 0x0,0x2 06c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c4 e003 | | Load 0x0,0x3 06c5 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 06c6 e5fd | | Load 0x2,-0x3 06c7 e016 | | Load 0x0,0x16 06c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06c9 e016 | | Load 0x0,0x16 06ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06cb e5ff | | Load 0x2,-0x1 06cc e5fe | | Load 0x2,-0x2 06cd e003 | | Load 0x0,0x3 06ce 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 06cf c5fb | | Store 0x2,-0x5 06d0 c5fa | | Store 0x2,-0x6 06d1 4800 |H | Short_Literal 0x0 06d2 e5fa | | Load 0x2,-0x6 06d3 e002 | | Load 0x0,0x2 06d4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 06d5 7004 |p | Jump_Nonzero 0x6da 06d6 e5fc | | Load 0x2,-0x4 06d7 e5fa | | Load 0x2,-0x6 06d8 e002 | | Load 0x0,0x2 06d9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 06da 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06db 0000 0000 | | .BLANK 0000[0x5] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e5 | | .CONST 0x06e5 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0002 | | .CONST 0x0002 ; Number of locals 06e3 INIT_06e0: 06e3 029f 0ac3 | | Declare_Subprogram INIT_0ac0,For_Call 06e5 BODY_06e0: 06e5 e5fe | | Load 0x2,-0x2 06e6 01db | | Execute Vector,Length 06e7 7008 |p | Jump_Nonzero 0x6f0 06e8 e00b | | Load 0x0,0xb 06e9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06ea 4806 |H | Short_Literal 0x6 06eb 6040 |`@ | Indirect_Literal Discrete,0x72c,{0x00000000, 0x0000818b} 06ec e002 | | Load 0x0,0x2 06ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06ee a5f9 | | Store_Unchecked 0x2,-0x7 06ef 782c |x, | Jump 0x71c 06f0 e5fb | | Load 0x2,-0x5 06f1 6814 |h | Jump_Zero 0x706 06f2 e5fa | | Load 0x2,-0x6 06f3 4801 |H | Short_Literal 0x1 06f4 4801 |H | Short_Literal 0x1 06f5 e00b | | Load 0x0,0xb 06f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06f7 035b | [ | Declare_Type Array,Constrained 06f8 0337 | 7 | Declare_Variable Array 06f9 e5fe | | Load 0x2,-0x2 06fa e00b | | Load 0x0,0xb 06fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06fc e00b | | Load 0x0,0xb 06fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06fe 0119 | | Execute Any,Check_In_Formal_Type 06ff 4801 |H | Short_Literal 0x1 0700 00da | | Load_Top At_Offset_2 0701 01d6 | | Execute Vector,Field_Write 0702 6025 |`% | Indirect_Literal Discrete,0x728,{0x00000000, 0x0000818e} 0703 e002 | | Load 0x0,0x2 0704 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0705 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0706 e002 | | Load 0x0,0x2 0707 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0708 4800 |H | Short_Literal 0x0 0709 e5fc | | Load 0x2,-0x4 070a e009 | | Load 0x0,0x9 070b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 070c e009 | | Load 0x0,0x9 070d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 070e 4801 |H | Short_Literal 0x1 070f e5ff | | Load 0x2,-0x1 0710 e006 | | Load 0x0,0x6 0711 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 0712 e5ff | | Load 0x2,-0x1 0713 e006 | | Load 0x0,0x6 0714 1869 | i | Execute Package,Field_Execute,Field_Number 0x69 0715 e5ff | | Load 0x2,-0x1 0716 8402 | | Call 0x2,0x2 0717 e5fd | | Load 0x2,-0x3 0718 e5fe | | Load 0x2,-0x2 0719 e003 | | Load 0x0,0x3 071a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 071b c5f9 | | Store 0x2,-0x7 071c 4800 |H | Short_Literal 0x0 071d e5f9 | | Load 0x2,-0x7 071e e002 | | Load 0x0,0x2 071f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0720 7004 |p | Jump_Nonzero 0x725 0721 e5fa | | Load 0x2,-0x6 0722 e5f9 | | Load 0x2,-0x7 0723 e002 | | Load 0x0,0x2 0724 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0725 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0726 0000 0000 | | .XXX[0x2] 0728 0000 0000 | | .LITERAL {0x00000000, 0x0000818e} 072c 0000 0000 | | .LITERAL {0x00000000, 0x0000818b} 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 073b | ; | .CONST 0x073b ; Address of begin 0731 07ac | | .CONST 0x07ac ; Address of exception handler 0732 0002 | | .CONST 0x0002 ; Number of locals 0733 INIT_0730: 0733 e001 | | Load 0x0,0x1 0734 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0735 0322 | " | Declare_Variable Record 0736 00db | | Load_Top At_Offset_3 0737 e006 | | Load 0x0,0x6 0738 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0739 00d9 | | Load_Top At_Offset_1 073a 017d | } | Execute Record,Structure_Write 073b BODY_0730: 073b e5fa | | Load 0x2,-0x6 073c 702a |p* | Jump_Nonzero 0x767 073d 00d8 | | Load_Top At_Offset_0 073e e5fe | | Load 0x2,-0x2 073f e5fb | | Load 0x2,-0x5 0740 e5fc | | Load 0x2,-0x4 0741 e010 | | Load 0x0,0x10 0742 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0743 7023 |p# | Jump_Nonzero 0x767 0744 e5f9 | | Load 0x2,-0x7 0745 4801 |H | Short_Literal 0x1 0746 4802 |H | Short_Literal 0x2 0747 e00b | | Load 0x0,0xb 0748 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0749 035b | [ | Declare_Type Array,Constrained 074a 0337 | 7 | Declare_Variable Array 074b e5fc | | Load 0x2,-0x4 074c e00b | | Load 0x0,0xb 074d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 074e e00b | | Load 0x0,0xb 074f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0750 0119 | | Execute Any,Check_In_Formal_Type 0751 4801 |H | Short_Literal 0x1 0752 00da | | Load_Top At_Offset_2 0753 01d6 | | Execute Vector,Field_Write 0754 e5fb | | Load 0x2,-0x5 0755 e00b | | Load 0x0,0xb 0756 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0757 e00b | | Load 0x0,0xb 0758 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0759 0119 | | Execute Any,Check_In_Formal_Type 075a 4802 |H | Short_Literal 0x2 075b 00da | | Load_Top At_Offset_2 075c 01d6 | | Execute Vector,Field_Write 075d 6082 |` | Indirect_Literal Discrete,0x7e0,{0x00000000, 0x000081c5} 075e e002 | | Load 0x0,0x2 075f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0760 e00b | | Load 0x0,0xb 0761 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0762 607d |`} | Indirect_Literal Discrete,0x7e0,{0x00000000, 0x000081c5} 0763 e002 | | Load 0x0,0x2 0764 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0765 a5f8 | | Store_Unchecked 0x2,-0x8 0766 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0767 00db | | Load_Top At_Offset_3 0768 e006 | | Load 0x0,0x6 0769 188c | | Execute Package,Field_Execute,Field_Number 0x8c 076a 01db | | Execute Vector,Length 076b 7001 |p | Jump_Nonzero 0x76d 076c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 076d e5f8 | | Load 0x2,-0x8 076e e5f9 | | Load 0x2,-0x7 076f e5fa | | Load 0x2,-0x6 0770 e5fd | | Load 0x2,-0x3 0771 e5fe | | Load 0x2,-0x2 0772 00ea | | Load_Encached Null_String_Cache 0773 e5fc | | Load 0x2,-0x4 0774 e5ff | | Load 0x2,-0x1 0775 e006 | | Load 0x0,0x6 0776 18b8 | | Execute Package,Field_Execute,Field_Number 0xb8 0777 e5ff | | Load 0x2,-0x1 0778 821b | | Call 0x1,0x1b 0779 c5f8 | | Store 0x2,-0x8 077a 4800 |H | Short_Literal 0x0 077b e5f8 | | Load 0x2,-0x8 077c e002 | | Load 0x0,0x2 077d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 077e 682c |h, | Jump_Zero 0x7ab 077f e5fa | | Load 0x2,-0x6 0780 702a |p* | Jump_Nonzero 0x7ab 0781 00d8 | | Load_Top At_Offset_0 0782 e5fe | | Load 0x2,-0x2 0783 e5fb | | Load 0x2,-0x5 0784 e5fc | | Load 0x2,-0x4 0785 e010 | | Load 0x0,0x10 0786 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0787 7023 |p# | Jump_Nonzero 0x7ab 0788 e5f9 | | Load 0x2,-0x7 0789 4801 |H | Short_Literal 0x1 078a 4802 |H | Short_Literal 0x2 078b e00b | | Load 0x0,0xb 078c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 078d 035b | [ | Declare_Type Array,Constrained 078e 0337 | 7 | Declare_Variable Array 078f e5fc | | Load 0x2,-0x4 0790 e00b | | Load 0x0,0xb 0791 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0792 e00b | | Load 0x0,0xb 0793 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0794 0119 | | Execute Any,Check_In_Formal_Type 0795 4801 |H | Short_Literal 0x1 0796 00da | | Load_Top At_Offset_2 0797 01d6 | | Execute Vector,Field_Write 0798 e5fb | | Load 0x2,-0x5 0799 e00b | | Load 0x0,0xb 079a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 079b e00b | | Load 0x0,0xb 079c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 079d 0119 | | Execute Any,Check_In_Formal_Type 079e 4802 |H | Short_Literal 0x2 079f 00da | | Load_Top At_Offset_2 07a0 01d6 | | Execute Vector,Field_Write 07a1 603a |`: | Indirect_Literal Discrete,0x7dc,{0x00000000, 0x000081c6} 07a2 e002 | | Load 0x0,0x2 07a3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 07a4 e00b | | Load 0x0,0xb 07a5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 07a6 6035 |`5 | Indirect_Literal Discrete,0x7dc,{0x00000000, 0x000081c6} 07a7 e002 | | Load 0x0,0x2 07a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07a9 a5f8 | | Store_Unchecked 0x2,-0x8 07aa 4508 |E | Exit_Suprogram New_Top_Offset 0x8 07ab 4508 |E | Exit_Suprogram New_Top_Offset 0x8 07ac TRAP_0730: 07ac e006 | | Load 0x0,0x6 07ad 1bbc | | Execute Package,Field_Read,Field_Number 0xbc 07ae 010f | | Execute Exception,Equal 07af 6824 |h$ | Jump_Zero 0x7d4 07b0 4801 |H | Short_Literal 0x1 07b1 4802 |H | Short_Literal 0x2 07b2 e00b | | Load 0x0,0xb 07b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07b4 035b | [ | Declare_Type Array,Constrained 07b5 0337 | 7 | Declare_Variable Array 07b6 0092 0b34 | 4| Action Push_String_Extended,0xb34 ; "Change Directory Context" 07b8 e00b | | Load 0x0,0xb 07b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07ba e00b | | Load 0x0,0xb 07bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07bc 0119 | | Execute Any,Check_In_Formal_Type 07bd 4801 |H | Short_Literal 0x1 07be 00da | | Load_Top At_Offset_2 07bf 01d6 | | Execute Vector,Field_Write 07c0 e5ff | | Load 0x2,-0x1 07c1 e006 | | Load 0x0,0x6 07c2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 07c3 e005 | | Load 0x0,0x5 07c4 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 07c5 e00b | | Load 0x0,0xb 07c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07c7 0119 | | Execute Any,Check_In_Formal_Type 07c8 4802 |H | Short_Literal 0x2 07c9 00da | | Load_Top At_Offset_2 07ca 01d6 | | Execute Vector,Field_Write 07cb 600c |` | Indirect_Literal Discrete,0x7d8,{0x00000000, 0x0000818c} 07cc e002 | | Load 0x0,0x2 07cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07ce a5f8 | | Store_Unchecked 0x2,-0x8 07cf e5f9 | | Load 0x2,-0x7 07d0 e5f8 | | Load 0x2,-0x8 07d1 e002 | | Load 0x0,0x2 07d2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 07d3 4508 |E | Exit_Suprogram New_Top_Offset 0x8 07d4 0100 | | Execute Exception,Raise 07d5 0000 0000 | | .XXX[0x3] 07d7 0000 | | 07d8 0000 0000 | | .LITERAL {0x00000000, 0x0000818c} 07dc 0000 0000 | | .LITERAL {0x00000000, 0x000081c6} 07e0 0000 0000 | | .LITERAL {0x00000000, 0x000081c5} 07e4 0000 0000 | | .BLANK 0000[0x4] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07ee | | .CONST 0x07ee ; Address of begin 07e9 0801 | | .CONST 0x0801 ; Address of exception handler 07ea 0002 | | .CONST 0x0002 ; Number of locals 07eb INIT_07e8: 07eb 00da | | Load_Top At_Offset_2 07ec e006 | | Load 0x0,0x6 07ed 1890 | | Execute Package,Field_Execute,Field_Number 0x90 07ee BODY_07e8: 07ee 00d8 | | Load_Top At_Offset_0 07ef 01db | | Execute Vector,Length 07f0 7001 |p | Jump_Nonzero 0x7f2 07f1 4508 |E | Exit_Suprogram New_Top_Offset 0x8 07f2 e5f8 | | Load 0x2,-0x8 07f3 e5f9 | | Load 0x2,-0x7 07f4 e5fa | | Load 0x2,-0x6 07f5 e5fd | | Load 0x2,-0x3 07f6 e5fe | | Load 0x2,-0x2 07f7 00ea | | Load_Encached Null_String_Cache 07f8 e5fb | | Load 0x2,-0x5 07f9 e5fc | | Load 0x2,-0x4 07fa e5ff | | Load 0x2,-0x1 07fb e006 | | Load 0x0,0x6 07fc 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 07fd e5ff | | Load 0x2,-0x1 07fe 821b | | Call 0x1,0x1b 07ff c5f8 | | Store 0x2,-0x8 0800 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0801 TRAP_07e8: 0801 e006 | | Load 0x0,0x6 0802 1bbc | | Execute Package,Field_Read,Field_Number 0xbc 0803 010f | | Execute Exception,Equal 0804 6824 |h$ | Jump_Zero 0x829 0805 4801 |H | Short_Literal 0x1 0806 4802 |H | Short_Literal 0x2 0807 e00b | | Load 0x0,0xb 0808 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0809 035b | [ | Declare_Type Array,Constrained 080a 0337 | 7 | Declare_Variable Array 080b 0092 0b35 | 5| Action Push_String_Extended,0xb35 ; "Change Library Context" 080d e00b | | Load 0x0,0xb 080e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 080f e00b | | Load 0x0,0xb 0810 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0811 0119 | | Execute Any,Check_In_Formal_Type 0812 4801 |H | Short_Literal 0x1 0813 00da | | Load_Top At_Offset_2 0814 01d6 | | Execute Vector,Field_Write 0815 e5ff | | Load 0x2,-0x1 0816 e006 | | Load 0x0,0x6 0817 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0818 e005 | | Load 0x0,0x5 0819 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 081a e00b | | Load 0x0,0xb 081b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 081c 0119 | | Execute Any,Check_In_Formal_Type 081d 4802 |H | Short_Literal 0x2 081e 00da | | Load_Top At_Offset_2 081f 01d6 | | Execute Vector,Field_Write 0820 67b7 |g | Indirect_Literal Discrete,0x7d8,{0x00000000, 0x0000818c} 0821 e002 | | Load 0x0,0x2 0822 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0823 a5f8 | | Store_Unchecked 0x2,-0x8 0824 e5f9 | | Load 0x2,-0x7 0825 e5f8 | | Load 0x2,-0x8 0826 e002 | | Load 0x0,0x2 0827 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0828 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0829 0100 | | Execute Exception,Raise 082a 0000 0000 | | .BLANK 0000[0x6] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0883 | | .CONST 0x0883 ; Address of begin 0831 091e | | .CONST 0x091e ; Address of exception handler 0832 000c | | .CONST 0x000c ; Number of locals 0833 INIT_0830: 0833 e001 | | Load 0x0,0x1 0834 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0835 02c7 | | Declare_Variable Any 0836 e5f6 | | Load 0x2,-0xa 0837 4801 |H | Short_Literal 0x1 0838 e5fe | | Load 0x2,-0x2 0839 e005 | | Load 0x0,0x5 083a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 083b a402 | | Store_Unchecked 0x2,0x2 083c e5f6 | | Load 0x2,-0xa 083d e5fe | | Load 0x2,-0x2 083e e5ff | | Load 0x2,-0x1 083f e006 | | Load 0x0,0x6 0840 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 0841 e5f6 | | Load 0x2,-0xa 0842 e5ff | | Load 0x2,-0x1 0843 e006 | | Load 0x0,0x6 0844 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0845 00db | | Load_Top At_Offset_3 0846 e007 | | Load 0x0,0x7 0847 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0848 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0849 0007 | | Action Break_Optional 084a e5f6 | | Load 0x2,-0xa 084b e5fe | | Load 0x2,-0x2 084c e5ff | | Load 0x2,-0x1 084d e006 | | Load 0x0,0x6 084e 18ba | | Execute Package,Field_Execute,Field_Number 0xba 084f e001 | | Load 0x0,0x1 0850 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0851 0322 | " | Declare_Variable Record 0852 e5ff | | Load 0x2,-0x1 0853 e006 | | Load 0x0,0x6 0854 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0855 00d9 | | Load_Top At_Offset_1 0856 017d | } | Execute Record,Structure_Write 0857 e5f6 | | Load 0x2,-0xa 0858 e5fe | | Load 0x2,-0x2 0859 4800 |H | Short_Literal 0x0 085a e5fb | | Load 0x2,-0x5 085b e009 | | Load 0x0,0x9 085c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 085d e009 | | Load 0x0,0x9 085e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 085f 4800 |H | Short_Literal 0x0 0860 4801 |H | Short_Literal 0x1 0861 e5ff | | Load 0x2,-0x1 0862 e006 | | Load 0x0,0x6 0863 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0864 e017 | | Load 0x0,0x17 0865 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0866 e5f6 | | Load 0x2,-0xa 0867 e5fe | | Load 0x2,-0x2 0868 4800 |H | Short_Literal 0x0 0869 e5fb | | Load 0x2,-0x5 086a e009 | | Load 0x0,0x9 086b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 086c e009 | | Load 0x0,0x9 086d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 086e 4801 |H | Short_Literal 0x1 086f 4801 |H | Short_Literal 0x1 0870 e5ff | | Load 0x2,-0x1 0871 e006 | | Load 0x0,0x6 0872 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0873 e017 | | Load 0x0,0x17 0874 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0875 00da | | Load_Top At_Offset_2 0876 e018 | | Load 0x0,0x18 0877 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0878 e019 | | Load 0x0,0x19 0879 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 087a e001 | | Load 0x0,0x1 087b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 087c 02c7 | | Declare_Variable Any 087d 00d8 | | Load_Top At_Offset_0 087e 1c00 | | Execute_Immediate Run_Utility,0x0 087f 029f 0adb | | Declare_Subprogram INIT_0ad8,For_Call 0881 029f 0af3 | | Declare_Subprogram INIT_0af0,For_Call 0883 BODY_0830: 0883 e5f8 | | Load 0x2,-0x8 0884 6803 |h | Jump_Zero 0x888 0885 e5fd | | Load 0x2,-0x3 0886 c40a | | Store 0x2,0xa 0887 7802 |x | Jump 0x88a 0888 e5fe | | Load 0x2,-0x2 0889 c40a | | Store 0x2,0xa 088a e406 | | Load 0x2,0x6 088b e5f8 | | Load 0x2,-0x8 088c e5fc | | Load 0x2,-0x4 088d e409 | | Load 0x2,0x9 088e e408 | | Load 0x2,0x8 088f e407 | | Load 0x2,0x7 0890 e403 | | Load 0x2,0x3 0891 e405 | | Load 0x2,0x5 0892 e404 | | Load 0x2,0x4 0893 e5fa | | Load 0x2,-0x6 0894 e40a | | Load 0x2,0xa 0895 e010 | | Load 0x0,0x10 0896 180d | | Execute Package,Field_Execute,Field_Number 0xd 0897 701a |p | Jump_Nonzero 0x8b2 0898 e5f6 | | Load 0x2,-0xa 0899 4801 |H | Short_Literal 0x1 089a 4801 |H | Short_Literal 0x1 089b e00b | | Load 0x0,0xb 089c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 089d 035b | [ | Declare_Type Array,Constrained 089e 0337 | 7 | Declare_Variable Array 089f e5fe | | Load 0x2,-0x2 08a0 e005 | | Load 0x0,0x5 08a1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 08a2 e00b | | Load 0x0,0xb 08a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08a4 0119 | | Execute Any,Check_In_Formal_Type 08a5 4801 |H | Short_Literal 0x1 08a6 00da | | Load_Top At_Offset_2 08a7 01d6 | | Execute Vector,Field_Write 08a8 60a7 |` | Indirect_Literal Discrete,0x950,{0x00000000, 0x000081bf} 08a9 e002 | | Load 0x0,0x2 08aa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 08ab e00b | | Load 0x0,0xb 08ac 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 08ad 60a2 |` | Indirect_Literal Discrete,0x950,{0x00000000, 0x000081bf} 08ae e002 | | Load 0x0,0x2 08af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08b0 a5f5 | | Store_Unchecked 0x2,-0xb 08b1 450b |E | Exit_Suprogram New_Top_Offset 0xb 08b2 e5ff | | Load 0x2,-0x1 08b3 e006 | | Load 0x0,0x6 08b4 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 08b5 01db | | Execute Vector,Length 08b6 0c01 | | Execute_Immediate Greater_Equal,0x1 08b7 6838 |h8 | Jump_Zero 0x8f0 08b8 840b | | Call 0x2,0xb 08b9 e5f8 | | Load 0x2,-0x8 08ba 680a |h | Jump_Zero 0x8c5 08bb e5f5 | | Load 0x2,-0xb 08bc e5f6 | | Load 0x2,-0xa 08bd e5f7 | | Load 0x2,-0x9 08be e5fb | | Load 0x2,-0x5 08bf e5fc | | Load 0x2,-0x4 08c0 e5f9 | | Load 0x2,-0x7 08c1 e5ff | | Load 0x2,-0x1 08c2 821b | | Call 0x1,0x1b 08c3 c5f5 | | Store 0x2,-0xb 08c4 782a |x* | Jump 0x8ef 08c5 e5f5 | | Load 0x2,-0xb 08c6 e5f6 | | Load 0x2,-0xa 08c7 e5f7 | | Load 0x2,-0x9 08c8 e5fb | | Load 0x2,-0x5 08c9 e5fc | | Load 0x2,-0x4 08ca e5f6 | | Load 0x2,-0xa 08cb e5fe | | Load 0x2,-0x2 08cc 4800 |H | Short_Literal 0x0 08cd e5fb | | Load 0x2,-0x5 08ce e009 | | Load 0x0,0x9 08cf 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 08d0 e009 | | Load 0x0,0x9 08d1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 08d2 4801 |H | Short_Literal 0x1 08d3 4801 |H | Short_Literal 0x1 08d4 e5ff | | Load 0x2,-0x1 08d5 e006 | | Load 0x0,0x6 08d6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 08d7 e017 | | Load 0x0,0x17 08d8 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 08d9 e5f6 | | Load 0x2,-0xa 08da e5fe | | Load 0x2,-0x2 08db 4800 |H | Short_Literal 0x0 08dc e5fb | | Load 0x2,-0x5 08dd e009 | | Load 0x0,0x9 08de 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 08df e009 | | Load 0x0,0x9 08e0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 08e1 4800 |H | Short_Literal 0x0 08e2 4801 |H | Short_Literal 0x1 08e3 e5ff | | Load 0x2,-0x1 08e4 e006 | | Load 0x0,0x6 08e5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 08e6 e017 | | Load 0x0,0x17 08e7 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 08e8 e5fa | | Load 0x2,-0x6 08e9 e5ff | | Load 0x2,-0x1 08ea e006 | | Load 0x0,0x6 08eb 18d6 | | Execute Package,Field_Execute,Field_Number 0xd6 08ec e5ff | | Load 0x2,-0x1 08ed 821b | | Call 0x1,0x1b 08ee c5f5 | | Store 0x2,-0xb 08ef 840c | | Call 0x2,0xc 08f0 4800 |H | Short_Literal 0x0 08f1 e5f5 | | Load 0x2,-0xb 08f2 e002 | | Load 0x0,0x2 08f3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 08f4 6828 |h( | Jump_Zero 0x91d 08f5 e406 | | Load 0x2,0x6 08f6 e5f8 | | Load 0x2,-0x8 08f7 e5fc | | Load 0x2,-0x4 08f8 e409 | | Load 0x2,0x9 08f9 e408 | | Load 0x2,0x8 08fa e407 | | Load 0x2,0x7 08fb e403 | | Load 0x2,0x3 08fc e405 | | Load 0x2,0x5 08fd e404 | | Load 0x2,0x4 08fe e5fa | | Load 0x2,-0x6 08ff e40a | | Load 0x2,0xa 0900 e010 | | Load 0x0,0x10 0901 180e | | Execute Package,Field_Execute,Field_Number 0xe 0902 701a |p | Jump_Nonzero 0x91d 0903 e5f6 | | Load 0x2,-0xa 0904 4801 |H | Short_Literal 0x1 0905 4801 |H | Short_Literal 0x1 0906 e00b | | Load 0x0,0xb 0907 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0908 035b | [ | Declare_Type Array,Constrained 0909 0337 | 7 | Declare_Variable Array 090a e5fe | | Load 0x2,-0x2 090b e005 | | Load 0x0,0x5 090c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 090d e00b | | Load 0x0,0xb 090e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 090f 0119 | | Execute Any,Check_In_Formal_Type 0910 4801 |H | Short_Literal 0x1 0911 00da | | Load_Top At_Offset_2 0912 01d6 | | Execute Vector,Field_Write 0913 6038 |`8 | Indirect_Literal Discrete,0x94c,{0x00000000, 0x000081c0} 0914 e002 | | Load 0x0,0x2 0915 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0916 e00b | | Load 0x0,0xb 0917 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0918 6033 |`3 | Indirect_Literal Discrete,0x94c,{0x00000000, 0x000081c0} 0919 e002 | | Load 0x0,0x2 091a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 091b a5f5 | | Store_Unchecked 0x2,-0xb 091c 450b |E | Exit_Suprogram New_Top_Offset 0xb 091d 450b |E | Exit_Suprogram New_Top_Offset 0xb 091e TRAP_0830: 091e e006 | | Load 0x0,0x6 091f 1bbc | | Execute Package,Field_Read,Field_Number 0xbc 0920 010f | | Execute Exception,Equal 0921 6824 |h$ | Jump_Zero 0x946 0922 4801 |H | Short_Literal 0x1 0923 4802 |H | Short_Literal 0x2 0924 e00b | | Load 0x0,0xb 0925 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0926 035b | [ | Declare_Type Array,Constrained 0927 0337 | 7 | Declare_Variable Array 0928 0092 0b29 | )| Action Push_String_Extended,0xb29 ; "Compile" 092a e00b | | Load 0x0,0xb 092b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 092c e00b | | Load 0x0,0xb 092d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 092e 0119 | | Execute Any,Check_In_Formal_Type 092f 4801 |H | Short_Literal 0x1 0930 00da | | Load_Top At_Offset_2 0931 01d6 | | Execute Vector,Field_Write 0932 e5ff | | Load 0x2,-0x1 0933 e006 | | Load 0x0,0x6 0934 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0935 e005 | | Load 0x0,0x5 0936 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0937 e00b | | Load 0x0,0xb 0938 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0939 0119 | | Execute Any,Check_In_Formal_Type 093a 4802 |H | Short_Literal 0x2 093b 00da | | Load_Top At_Offset_2 093c 01d6 | | Execute Vector,Field_Write 093d 600a |` | Indirect_Literal Discrete,0x948,{0x00000000, 0x0000818c} 093e e002 | | Load 0x0,0x2 093f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0940 a5f5 | | Store_Unchecked 0x2,-0xb 0941 e5f6 | | Load 0x2,-0xa 0942 e5f5 | | Load 0x2,-0xb 0943 e002 | | Load 0x0,0x2 0944 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0945 450b |E | Exit_Suprogram New_Top_Offset 0xb 0946 0100 | | Execute Exception,Raise 0947 0000 | | .XXX[0x1] 0948 0000 0000 | | .LITERAL {0x00000000, 0x0000818c} 094c 0000 0000 | | .LITERAL {0x00000000, 0x000081c0} 0950 0000 0000 | | .LITERAL {0x00000000, 0x000081bf} 0954 0000 0000 | | .BLANK 0000[0x4] 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 0960 | ` | .CONST 0x0960 ; Address of begin 0959 096c | l | .CONST 0x096c ; Address of exception handler 095a 0002 | | .CONST 0x0002 ; Number of locals 095b INIT_0958: 095b e001 | | Load 0x0,0x1 095c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 095d 02c7 | | Declare_Variable Any 095e 00d8 | | Load_Top At_Offset_0 095f 1c00 | | Execute_Immediate Run_Utility,0x0 0960 BODY_0958: 0960 e5fe | | Load 0x2,-0x2 0961 4800 |H | Short_Literal 0x0 0962 e5ff | | Load 0x2,-0x1 0963 e005 | | Load 0x0,0x5 0964 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0965 c402 | | Store 0x2,0x2 0966 e5fe | | Load 0x2,-0x2 0967 4800 |H | Short_Literal 0x0 0968 00da | | Load_Top At_Offset_2 0969 e005 | | Load 0x0,0x5 096a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 096b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 096c TRAP_0958: 096c 0007 | | Action Break_Optional 096d e001 | | Load 0x0,0x1 096e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 096f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 0981 | | .CONST 0x0981 ; Address of begin 0971 0004 | | .CONST 0x0004 ; Address of exception handler 0972 0003 | | .CONST 0x0003 ; Number of locals 0973 INIT_0970: 0973 e001 | | Load 0x0,0x1 0974 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0975 02c7 | | Declare_Variable Any 0976 00d8 | | Load_Top At_Offset_0 0977 1c00 | | Execute_Immediate Run_Utility,0x0 0978 e416 | | Load 0x2,0x16 0979 e5fe | | Load 0x2,-0x2 097a e403 | | Load 0x2,0x3 097b e417 | | Load 0x2,0x17 097c e406 | | Load 0x2,0x6 097d 8215 | | Call 0x1,0x15 097e e5fe | | Load 0x2,-0x2 097f e006 | | Load 0x0,0x6 0980 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0981 BODY_0970: 0981 e5fd | | Load 0x2,-0x3 0982 0092 0b36 | 6| Action Push_String_Extended,0xb36 ; "Transferring => " 0984 e406 | | Load 0x2,0x6 0985 e001 | | Load 0x0,0x1 0986 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0987 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0988 01cc | | Execute Vector,Catenate 0989 e00f | | Load 0x0,0xf 098a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 098b e403 | | Load 0x2,0x3 098c 6803 |h | Jump_Zero 0x990 098d e407 | | Load 0x2,0x7 098e c602 | | Store 0x3,0x2 098f 7814 |x | Jump 0x9a4 0990 e406 | | Load 0x2,0x6 0991 c602 | | Store 0x3,0x2 0992 e5fd | | Load 0x2,-0x3 0993 00d8 | | Load_Top At_Offset_0 0994 4800 |H | Short_Literal 0x0 0995 e602 | | Load 0x3,0x2 0996 e005 | | Load 0x0,0x5 0997 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0998 e005 | | Load 0x0,0x5 0999 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 099a 6809 |h | Jump_Zero 0x9a4 099b e5fe | | Load 0x2,-0x2 099c 00da | | Load_Top At_Offset_2 099d 8211 | | Call 0x1,0x11 099e 00da | | Load_Top At_Offset_2 099f 8212 | | Call 0x1,0x12 09a0 e004 | | Load 0x0,0x4 09a1 181e | | Execute Package,Field_Execute,Field_Number 0x1e 09a2 6801 |h | Jump_Zero 0x9a4 09a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09a4 e002 | | Load 0x0,0x2 09a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09a6 4800 |H | Short_Literal 0x0 09a7 e40c | | Load 0x2,0xc 09a8 e009 | | Load 0x0,0x9 09a9 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 09aa e009 | | Load 0x0,0x9 09ab 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 09ac 4800 |H | Short_Literal 0x0 09ad e40b | | Load 0x2,0xb 09ae e603 | | Load 0x3,0x3 09af e602 | | Load 0x3,0x2 09b0 e001 | | Load 0x0,0x1 09b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09b2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 09b3 e003 | | Load 0x0,0x3 09b4 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 09b5 c40a | | Store 0x2,0xa 09b6 4800 |H | Short_Literal 0x0 09b7 e40a | | Load 0x2,0xa 09b8 e002 | | Load 0x0,0x2 09b9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 09ba 7009 |p | Jump_Nonzero 0x9c4 09bb e5fd | | Load 0x2,-0x3 09bc e40a | | Load 0x2,0xa 09bd e002 | | Load 0x0,0x2 09be 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 09bf e40a | | Load 0x2,0xa 09c0 a5fc | | Store_Unchecked 0x2,-0x4 09c1 e009 | | Load 0x0,0x9 09c2 1b19 | | Execute Package,Field_Read,Field_Number 0x19 09c3 0257 | W | Execute Discrete,Raise 09c4 e5fd | | Load 0x2,-0x3 09c5 0092 0b37 | 7| Action Push_String_Extended,0xb37 ; "Retrieving remote update time for host unit => " 09c7 e406 | | Load 0x2,0x6 09c8 e001 | | Load 0x0,0x1 09c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09ca 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 09cb 01cc | | Execute Vector,Catenate 09cc e00f | | Load 0x0,0xf 09cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09ce e004 | | Load 0x0,0x4 09cf 1812 | | Execute Package,Field_Execute,Field_Number 0x12 09d0 c411 | | Store 0x2,0x11 09d1 e403 | | Load 0x2,0x3 09d2 680a |h | Jump_Zero 0x9dd 09d3 e40a | | Load 0x2,0xa 09d4 e5fd | | Load 0x2,-0x3 09d5 4800 |H | Short_Literal 0x0 09d6 e5fe | | Load 0x2,-0x2 09d7 e40b | | Load 0x2,0xb 09d8 e406 | | Load 0x2,0x6 09d9 e416 | | Load 0x2,0x16 09da 8217 | | Call 0x1,0x17 09db c40a | | Store 0x2,0xa 09dc 780a |x | Jump 0x9e7 09dd e40a | | Load 0x2,0xa 09de e5fd | | Load 0x2,-0x3 09df 4800 |H | Short_Literal 0x0 09e0 e5fe | | Load 0x2,-0x2 09e1 e40b | | Load 0x2,0xb 09e2 e417 | | Load 0x2,0x17 09e3 e416 | | Load 0x2,0x16 09e4 e406 | | Load 0x2,0x6 09e5 8216 | | Call 0x1,0x16 09e6 c40a | | Store 0x2,0xa 09e7 4800 |H | Short_Literal 0x0 09e8 e40a | | Load 0x2,0xa 09e9 e002 | | Load 0x0,0x2 09ea 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 09eb 7016 |p | Jump_Nonzero 0xa02 09ec e5fd | | Load 0x2,-0x3 09ed 4801 |H | Short_Literal 0x1 09ee 4801 |H | Short_Literal 0x1 09ef e00b | | Load 0x0,0xb 09f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09f1 035b | [ | Declare_Type Array,Constrained 09f2 0337 | 7 | Declare_Variable Array 09f3 e406 | | Load 0x2,0x6 09f4 e005 | | Load 0x0,0x5 09f5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 09f6 e00b | | Load 0x0,0xb 09f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09f8 0119 | | Execute Any,Check_In_Formal_Type 09f9 4801 |H | Short_Literal 0x1 09fa 00da | | Load_Top At_Offset_2 09fb 01d6 | | Execute Vector,Field_Write 09fc 6017 |` | Indirect_Literal Discrete,0xa14,{0x00000000, 0x0000815e} 09fd e002 | | Load 0x0,0x2 09fe 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09ff 4800 |H | Short_Literal 0x0 0a00 a40a | | Store_Unchecked 0x2,0xa 0a01 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a02 e5fd | | Load 0x2,-0x3 0a03 0092 0b38 | 8| Action Push_String_Extended,0xb38 ; "Elapsed time for setting download time => " 0a05 e411 | | Load 0x2,0x11 0a06 e004 | | Load 0x0,0x4 0a07 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a08 e004 | | Load 0x0,0x4 0a09 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a0a e01a | | Load 0x0,0x1a 0a0b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0a0c 01cc | | Execute Vector,Catenate 0a0d 0092 0b39 | 9| Action Push_String_Extended,0xb39 ; " seconds." 0a0f 01cc | | Execute Vector,Catenate 0a10 e00f | | Load 0x0,0xf 0a11 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a12 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a13 0000 | | .XXX[0x1] 0a14 0000 0000 | | .LITERAL {0x00000000, 0x0000815e} 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; SUBPROGRAM 0a18 ; -------------------------------------------------------------------------------------- 0a18 0a2b | + | .CONST 0x0a2b ; Address of begin 0a19 0004 | | .CONST 0x0004 ; Address of exception handler 0a1a 0005 | | .CONST 0x0005 ; Number of locals 0a1b INIT_0a18: 0a1b e002 | | Load 0x0,0x2 0a1c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a1d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a1e e001 | | Load 0x0,0x1 0a1f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a20 02c7 | | Declare_Variable Any 0a21 e5fd | | Load 0x2,-0x3 0a22 4800 |H | Short_Literal 0x0 0a23 e5ff | | Load 0x2,-0x1 0a24 e005 | | Load 0x0,0x5 0a25 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a26 a603 | | Store_Unchecked 0x3,0x3 0a27 00e1 | | Load_Encached Boolean_Cache 0a28 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a29 029f 0b0b | | Declare_Subprogram INIT_0b08,For_Call 0a2b BODY_0a18: 0a2b e5fd | | Load 0x2,-0x3 0a2c 0092 0b3a | :| Action Push_String_Extended,0xb3a ; "Promoting => " 0a2e e406 | | Load 0x2,0x6 0a2f e001 | | Load 0x0,0x1 0a30 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a31 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0a32 01cc | | Execute Vector,Catenate 0a33 e00f | | Load 0x0,0xf 0a34 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a35 e40f | | Load 0x2,0xf 0a36 e410 | | Load 0x2,0x10 0a37 0279 | y | Execute Discrete,And 0a38 e40f | | Load 0x2,0xf 0a39 0f00 | | Execute_Immediate Equal,0x0 0a3a 0278 | x | Execute Discrete,Or 0a3b 6802 |h | Jump_Zero 0xa3e 0a3c 4801 |H | Short_Literal 0x1 0a3d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0a3e e40d | | Load 0x2,0xd 0a3f 0f00 | | Execute_Immediate Equal,0x0 0a40 00da | | Load_Top At_Offset_2 0a41 0279 | y | Execute Discrete,And 0a42 6812 |h | Jump_Zero 0xa55 0a43 e40a | | Load 0x2,0xa 0a44 e003 | | Load 0x0,0x3 0a45 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0a46 e5fd | | Load 0x2,-0x3 0a47 e40e | | Load 0x2,0xe 0a48 e5fe | | Load 0x2,-0x2 0a49 e415 | | Load 0x2,0x15 0a4a 821a | | Call 0x1,0x1a 0a4b c40b | | Store 0x2,0xb 0a4c c40a | | Store 0x2,0xa 0a4d 4800 |H | Short_Literal 0x0 0a4e e40a | | Load 0x2,0xa 0a4f e002 | | Load 0x0,0x2 0a50 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0a51 7003 |p | Jump_Nonzero 0xa55 0a52 e009 | | Load 0x0,0x9 0a53 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0a54 0257 | W | Execute Discrete,Raise 0a55 e40f | | Load 0x2,0xf 0a56 7012 |p | Jump_Nonzero 0xa69 0a57 e40a | | Load 0x2,0xa 0a58 e5fd | | Load 0x2,-0x3 0a59 e40d | | Load 0x2,0xd 0a5a e414 | | Load 0x2,0x14 0a5b e416 | | Load 0x2,0x16 0a5c e40c | | Load 0x2,0xc 0a5d e40b | | Load 0x2,0xb 0a5e e5fe | | Load 0x2,-0x2 0a5f 821c | | Call 0x1,0x1c 0a60 c40a | | Store 0x2,0xa 0a61 4800 |H | Short_Literal 0x0 0a62 e40a | | Load 0x2,0xa 0a63 e002 | | Load 0x0,0x2 0a64 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0a65 7003 |p | Jump_Nonzero 0xa69 0a66 e009 | | Load 0x0,0x9 0a67 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0a68 0257 | W | Execute Discrete,Raise 0a69 00d9 | | Load_Top At_Offset_1 0a6a e40d | | Load 0x2,0xd 0a6b 0f00 | | Execute_Immediate Equal,0x0 0a6c 0279 | y | Execute Discrete,And 0a6d 6801 |h | Jump_Zero 0xa6f 0a6e 8418 | | Call 0x2,0x18 0a6f e40f | | Load 0x2,0xf 0a70 7012 |p | Jump_Nonzero 0xa83 0a71 e40a | | Load 0x2,0xa 0a72 e5fd | | Load 0x2,-0x3 0a73 e40d | | Load 0x2,0xd 0a74 e414 | | Load 0x2,0x14 0a75 e416 | | Load 0x2,0x16 0a76 e40c | | Load 0x2,0xc 0a77 e40b | | Load 0x2,0xb 0a78 e5fe | | Load 0x2,-0x2 0a79 821d | | Call 0x1,0x1d 0a7a c40a | | Store 0x2,0xa 0a7b 4800 |H | Short_Literal 0x0 0a7c e40a | | Load 0x2,0xa 0a7d e002 | | Load 0x0,0x2 0a7e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0a7f 7004 |p | Jump_Nonzero 0xa84 0a80 e009 | | Load 0x0,0x9 0a81 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0a82 0257 | W | Execute Discrete,Raise 0a83 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a84 e403 | | Load 0x2,0x3 0a85 6802 |h | Jump_Zero 0xa88 0a86 8605 | | Call 0x3,0x5 0a87 7826 |x& | Jump 0xaae 0a88 e40a | | Load 0x2,0xa 0a89 e5fd | | Load 0x2,-0x3 0a8a e40d | | Load 0x2,0xd 0a8b 4800 |H | Short_Literal 0x0 0a8c 00ea | | Load_Encached Null_String_Cache 0a8d e417 | | Load 0x2,0x17 0a8e e40c | | Load 0x2,0xc 0a8f e40b | | Load 0x2,0xb 0a90 e001 | | Load 0x0,0x1 0a91 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a92 e5ff | | Load 0x2,-0x1 0a93 e5fe | | Load 0x2,-0x2 0a94 821e | | Call 0x1,0x1e 0a95 c40a | | Store 0x2,0xa 0a96 00db | | Load_Top At_Offset_3 0a97 e40b | | Load 0x2,0xb 0a98 e5fd | | Load 0x2,-0x3 0a99 e40c | | Load 0x2,0xc 0a9a 00ea | | Load_Encached Null_String_Cache 0a9b e414 | | Load 0x2,0x14 0a9c e415 | | Load 0x2,0x15 0a9d e416 | | Load 0x2,0x16 0a9e e417 | | Load 0x2,0x17 0a9f e5ff | | Load 0x2,-0x1 0aa0 0092 0b3b | ;| Action Push_String_Extended,0xb3b ; "Promote" 0aa2 e006 | | Load 0x0,0x6 0aa3 18c8 | | Execute Package,Field_Execute,Field_Number 0xc8 0aa4 e40a | | Load 0x2,0xa 0aa5 e006 | | Load 0x0,0x6 0aa6 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 0aa7 e5fe | | Load 0x2,-0x2 0aa8 e006 | | Load 0x0,0x6 0aa9 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0aaa e011 | | Load 0x0,0x11 0aab 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0aac c40b | | Store 0x2,0xb 0aad c602 | | Store 0x3,0x2 0aae e40d | | Load 0x2,0xd 0aaf 6801 |h | Jump_Zero 0xab1 0ab0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ab1 4800 |H | Short_Literal 0x0 0ab2 e602 | | Load 0x3,0x2 0ab3 e002 | | Load 0x0,0x2 0ab4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0ab5 7005 |p | Jump_Nonzero 0xabb 0ab6 e012 | | Load 0x0,0x12 0ab7 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ab8 e602 | | Load 0x3,0x2 0ab9 e002 | | Load 0x0,0x2 0aba 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0abb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0abc 0000 0000 | | .BLANK 0000[0x4] 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 ; SUBPROGRAM 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 0ac5 | | .CONST 0x0ac5 ; Address of begin 0ac1 0004 | | .CONST 0x0004 ; Address of exception handler 0ac2 0002 | | .CONST 0x0002 ; Number of locals 0ac3 INIT_0ac0: 0ac3 e019 | | Load 0x0,0x19 0ac4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0ac5 BODY_0ac0: 0ac5 00db | | Load_Top At_Offset_3 0ac6 e006 | | Load 0x0,0x6 0ac7 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0ac8 e018 | | Load 0x0,0x18 0ac9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0aca e019 | | Load 0x0,0x19 0acb 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60 0acc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0acd 00d8 | | Load_Top At_Offset_0 0ace 7003 |p | Jump_Nonzero 0xad2 0acf 0092 0b3c | <| Action Push_String_Extended,0xb3c ; "Unix" 0ad1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ad2 0092 0b3d | =| Action Push_String_Extended,0xb3d ; "Other" 0ad4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ad5 0000 0000 | | .XXX[0x3] 0ad7 0000 | | 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 ; SUBPROGRAM 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 0ade | | .CONST 0x0ade ; Address of begin 0ad9 0004 | | .CONST 0x0004 ; Address of exception handler 0ada 0002 | | .CONST 0x0002 ; Number of locals 0adb INIT_0ad8: 0adb e5ff | | Load 0x2,-0x1 0adc e006 | | Load 0x0,0x6 0add 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 0ade BODY_0ad8: 0ade 00d8 | | Load_Top At_Offset_0 0adf 01db | | Execute Vector,Length 0ae0 0c01 | | Execute_Immediate Greater_Equal,0x1 0ae1 6809 |h | Jump_Zero 0xaeb 0ae2 e5f5 | | Load 0x2,-0xb 0ae3 e5f6 | | Load 0x2,-0xa 0ae4 e5f7 | | Load 0x2,-0x9 0ae5 e5fb | | Load 0x2,-0x5 0ae6 e5fc | | Load 0x2,-0x4 0ae7 e602 | | Load 0x3,0x2 0ae8 e5ff | | Load 0x2,-0x1 0ae9 821b | | Call 0x1,0x1b 0aea c5f5 | | Store 0x2,-0xb 0aeb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0aec 0000 0000 | | .BLANK 0000[0x4] 0af0 ; -------------------------------------------------------------------------------------- 0af0 ; SUBPROGRAM 0af0 ; -------------------------------------------------------------------------------------- 0af0 0af8 | | .CONST 0x0af8 ; Address of begin 0af1 0004 | | .CONST 0x0004 ; Address of exception handler 0af2 0003 | | .CONST 0x0003 ; Number of locals 0af3 INIT_0af0: 0af3 e002 | | Load 0x0,0x2 0af4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0af5 e5ff | | Load 0x2,-0x1 0af6 e006 | | Load 0x0,0x6 0af7 18cd | | Execute Package,Field_Execute,Field_Number 0xcd 0af8 BODY_0af0: 0af8 00d8 | | Load_Top At_Offset_0 0af9 01db | | Execute Vector,Length 0afa 0c01 | | Execute_Immediate Greater_Equal,0x1 0afb 6809 |h | Jump_Zero 0xb05 0afc 00d9 | | Load_Top At_Offset_1 0afd e5f6 | | Load 0x2,-0xa 0afe e5f7 | | Load 0x2,-0x9 0aff e5fb | | Load 0x2,-0x5 0b00 e5fc | | Load 0x2,-0x4 0b01 e603 | | Load 0x3,0x3 0b02 e5ff | | Load 0x2,-0x1 0b03 821b | | Call 0x1,0x1b 0b04 005a | Z | Store_Top Discrete,At_Offset_2 0b05 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b06 0000 0000 | | .XXX[0x2] 0b08 ; -------------------------------------------------------------------------------------- 0b08 ; SUBPROGRAM 0b08 ; -------------------------------------------------------------------------------------- 0b08 0b11 | | .CONST 0x0b11 ; Address of begin 0b09 0004 | | .CONST 0x0004 ; Address of exception handler 0b0a 0003 | | .CONST 0x0003 ; Number of locals 0b0b INIT_0b08: 0b0b e5fd | | Load 0x2,-0x3 0b0c e406 | | Load 0x2,0x6 0b0d e01b | | Load 0x0,0x1b 0b0e 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 0b0f e406 | | Load 0x2,0x6 0b10 8214 | | Call 0x1,0x14 0b11 BODY_0b08: 0b11 4800 |H | Short_Literal 0x0 0b12 00da | | Load_Top At_Offset_2 0b13 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b14 e002 | | Load 0x0,0x2 0b15 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0b16 7003 |p | Jump_Nonzero 0xb1a 0b17 e002 | | Load 0x0,0x2 0b18 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b19 0257 | W | Execute Discrete,Raise 0b1a e40a | | Load 0x2,0xa 0b1b e5fd | | Load 0x2,-0x3 0b1c e40d | | Load 0x2,0xd 0b1d 4801 |H | Short_Literal 0x1 0b1e e802 | | Load 0x4,0x2 0b1f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b20 e803 | | Load 0x4,0x3 0b21 e40c | | Load 0x2,0xc 0b22 e40b | | Load 0x2,0xb 0b23 e406 | | Load 0x2,0x6 0b24 e5ff | | Load 0x2,-0x1 0b25 e5fe | | Load 0x2,-0x2 0b26 821e | | Call 0x1,0x1e 0b27 c40a | | Store 0x2,0xa 0b28 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b29 ; -------------------------------------------------------------------------------------- 0b29 ; STRING TABLE 0b29 ; -------------------------------------------------------------------------------------- 0b29 002c | , | .STRTAB 0x002c->0x0b3f ; "Compile" 0b2a 0031 | 1 | .STRTAB 0x0031->0x0b42 ; "<error>" 0b2b 0036 | 6 | .STRTAB 0x0036->0x0b46 ; "Rcf_Compilation.Compile_Operations.Promote" 0b2c 005e | ^ | .STRTAB 0x005e->0x0b5b ; "Demoting => " 0b2d 0069 | i | .STRTAB 0x0069->0x0b61 ; "Demote" 0b2e 006d | m | .STRTAB 0x006d->0x0b64 ; "Rcf_Compilation.Compile_Operations.Demote" 0b2f 0094 | | .STRTAB 0x0094->0x0b79 ; "}?{ Check_Unit Rcf_Compilation.Compile_Operations." 0b30 00c7 | | .STRTAB 0x00c7->0x0b93 ; "Target_Builder.Unit.Establish_Download_Time" 0b31 00f0 | | .STRTAB 0x00f0->0x0ba9 ; "Setting download time for => " 0b32 010c | | .STRTAB 0x010c->0x0bb8 ; " to " 0b33 010e | | .STRTAB 0x010e->0x0bba ; "Acquiring Remote Connection => " 0b34 012c | , | .STRTAB 0x012c->0x0bca ; "Change Directory Context" 0b35 0142 | B | .STRTAB 0x0142->0x0bd6 ; "Change Library Context" 0b36 0156 | V | .STRTAB 0x0156->0x0be1 ; "Transferring => " 0b37 0165 | e | .STRTAB 0x0165->0x0be9 ; "Retrieving remote update time for host unit => " 0b38 0193 | | .STRTAB 0x0193->0x0c01 ; "Elapsed time for setting download time => " 0b39 01bb | | .STRTAB 0x01bb->0x0c16 ; " seconds." 0b3a 01c2 | | .STRTAB 0x01c2->0x0c1b ; "Promoting => " 0b3b 01ce | | .STRTAB 0x01ce->0x0c22 ; "Promote" 0b3c 01d3 | | .STRTAB 0x01d3->0x0c25 ; "Unix" 0b3d 01d5 | | .STRTAB 0x01d5->0x0c27 ; "Other" 0b3e 01d8 | | .STREND 0x01d8->0x0c2a 0b3f 436f 6d70 |Comp| .STRTAB_STRINGS 0c2a 0000 0000 | | .BLANK 0000[0x6] 0c30 ; -------------------------------------------------------------------------------------- 0c30 ; Debug Table 0c30 ; -------------------------------------------------------------------------------------- 0c30 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ee1,0x0000,0x0001,0x0000 0c36 0000 0000 | | .XXX[0x26] 0c38 09d2 5004 | P | 0c3a 0800 0138 | 8| 0c3c 313f 7d0b |1?} | 0c3e 0000 a2d2 | | 0c40 09d2 5004 | P | 0c42 0800 0138 | 8| 0c44 313f 7d0b |1?} | 0c46 0008 b8b2 | | 0c48 0000 0000 | | 0c4a 0000 003f | ?| 0c4c 0000 0000 | | 0c4e 0000 1fff | | 0c50 0000 0000 | | 0c52 0000 0049 | I| 0c54 0000 0000 | | 0c56 8098 000e | | 0c58 0000 0000 | | 0c5a 0000 0076 | v| 0c5c 0000 0000 | | .BLANK 0000[0x7] 0c63 0009 | | .XXX[0x1] 0c64 0000 0000 | | .BLANK 0000[0x6] 0c6a 8000 0000 | | .XXX[0xa] 0c6c 8015 b90b | | 0c6e 0016 0002 | | 0c70 000e 5ceb | \ | 0c72 8800 0110 | | 0c74 0000 0000 | | .BLANK 0000[0x4] 0c78 000c f0eb | | .XXX[0x4] 0c7a 8000 07c4 | | 0c7c 0000 0000 | | .BLANK 0000[0x4] 0c80 000d 28eb | ( | .XXX[0x4] 0c82 8800 0110 | | 0c84 0000 0000 | | .BLANK 0000[0x4] 0c88 000e c0eb | | .XXX[0x2c] 0c8a 0000 0036 | 6| 0c8c 0015 a90b | | 0c8e 0000 a9b2 | | 0c90 000e c0eb | | 0c92 0000 0036 | 6| 0c94 0015 a90b | | 0c96 0000 ae32 | 2| 0c98 000e c0eb | | 0c9a 0000 0036 | 6| 0c9c 0015 a90b | | 0c9e 0000 b1b2 | | 0ca0 000e c0eb | | 0ca2 0000 0036 | 6| 0ca4 0015 a90b | | 0ca6 0000 b4b2 | | 0ca8 000e c0eb | | 0caa 0000 0036 | 6| 0cac 0015 a90b | | 0cae 0000 b732 | 2| 0cb0 000d 28eb | ( | 0cb2 8800 0110 | | 0cb4 0000 0000 | | .BLANK 0000[0x4] 0cb8 000c f0eb | | .XXX[0x10] 0cba 0000 07c4 | | 0cbc 000e c0eb | | 0cbe 0000 0001 | | 0cc0 000d 28eb | ( | 0cc2 0000 1a44 | D| 0cc4 000e c0eb | | 0cc6 0000 0021 | !| 0cc8 0000 0000 | | .BLANK 0000[0x4] 0ccc bfff ffff | | .XXX[0x2c] 0cce 8000 0001 | | 0cd0 000d 28eb | ( | 0cd2 0000 1a44 | D| 0cd4 000e c0eb | | 0cd6 0000 0021 | !| 0cd8 000e c0eb | | 0cda 0000 0c16 | | 0cdc 0015 a90b | | 0cde 0000 40b3 | @ | 0ce0 000d 70eb | p | 0ce2 0800 1390 | | 0ce4 0000 0000 | | 0ce6 0000 0001 | | 0ce8 000d 70eb | p | 0cea 0000 007f | | 0cec 0015 a90b | | 0cee 0000 4042 | @B| 0cf0 000d 70eb | p | 0cf2 0000 003f | ?| 0cf4 0001 8025 | %| 0cf6 0000 0061 | a| 0cf8 0000 0000 | | .BLANK 0000[0x8] 0d00 000d 70eb | p | .XXX[0x6] 0d02 0000 1218 | | 0d04 000d 84eb | | 0d06 0000 0000 | | .BLANK 0000[0xfa]