|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 02f0 | | .CONST 0x02f0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0059 | Y | .CONST 0x0059 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0023 | # | .CONST 0x0023 ; Number of locals 000b INIT_0008: 000b 4803 |H | Short_Literal 0x3 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0015 e001 | | Load 0x0,0x1 0016 0129 | ) | Execute Any,Make_Visible 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0028 c21d | | Store 0x1,0x1d 0029 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 002b c21e | | Store 0x1,0x1e 002c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 002e c21f | | Store 0x1,0x1f 002f 4900 |I | Short_Literal 0x100 0030 e002 | | Load 0x0,0x2 0031 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0032 1c07 | | Execute_Immediate Run_Utility,0x7 0033 c219 | | Store 0x1,0x19 0034 00e3 | | Load_Encached Natural_Cache 0035 0266 | f | Execute Discrete,Bounds 0036 e219 | | Load 0x1,0x19 0037 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0039 4801 |H | Short_Literal 0x1 003a 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 003b c21a | | Store 0x1,0x1a 003c 4801 |H | Short_Literal 0x1 003d 4880 |H | Short_Literal 0x80 003e e21a | | Load 0x1,0x1a 003f 035b | [ | Declare_Type Array,Constrained 0040 00e3 | | Load_Encached Natural_Cache 0041 00e3 | | Load_Encached Natural_Cache 0042 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 0044 e20d | | Load 0x1,0xd 0045 0326 | & | Complete_Type Record,By_Defining 0046 00bf | | Action Accept_Activation 0047 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0048 00c7 | | Action Elaborate_Subprogram 0049 1d0f | | Execute_Immediate Reference_Lex_1,0xf 004a 00c7 | | Action Elaborate_Subprogram 004b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004c 00c7 | | Action Elaborate_Subprogram 004d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004e 00c7 | | Action Elaborate_Subprogram 004f 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 0051 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 0053 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0054 00c7 | | Action Elaborate_Subprogram 0055 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0056 00c7 | | Action Elaborate_Subprogram 0057 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0058 00c7 | | Action Elaborate_Subprogram 0059 BODY_0008: 0059 00bc | | Action Signal_Activated 005a 00bb | | Action Signal_Completion 005b 0000 0000 | | .BLANK 0000[0x5] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 00da | | Load_Top At_Offset_2 0064 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0065 0a01 | | Execute_Immediate Plus,0x1 0066 00db | | Load_Top At_Offset_3 0067 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0068 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4801 |H | Short_Literal 0x1 0074 00db | | Load_Top At_Offset_3 0075 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007d 00db | | Load_Top At_Offset_3 007e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007f 027d | } | Execute Discrete,Greater 0080 6802 |h | Jump_Zero 0x83 0081 e212 | | Load 0x1,0x12 0082 0257 | W | Execute Discrete,Raise 0083 00da | | Load_Top At_Offset_2 0084 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0085 00db | | Load_Top At_Offset_3 0086 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0087 01d5 | | Execute Vector,Field_Reference 0088 e002 | | Load 0x0,0x2 0089 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008b 0000 0000 | | .BLANK 0000[0x5] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0095 00db | | Load_Top At_Offset_3 0096 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0097 027d | } | Execute Discrete,Greater 0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00ad | | .CONST 0x00ad ; Address of begin 00a1 00c5 | | .CONST 0x00c5 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 e003 | | Load 0x0,0x3 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 e004 | | Load 0x0,0x4 00a6 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 00a7 0322 | " | Declare_Variable Record 00a8 e5fd | | Load 0x2,-0x3 00a9 e004 | | Load 0x0,0x4 00aa 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00ab 00d9 | | Load_Top At_Offset_1 00ac 017d | } | Execute Record,Structure_Write 00ad BODY_00a0: 00ad e5fc | | Load 0x2,-0x4 00ae 0092 02bc | | Action Push_String_Extended,0x2bc ; "Rcf_Imports.Get_Imports" 00b0 e005 | | Load 0x0,0x5 00b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b2 00d9 | | Load_Top At_Offset_1 00b3 e5fb | | Load 0x2,-0x5 00b4 0120 | | Execute Any,Is_Value 00b5 6804 |h | Jump_Zero 0xba 00b6 e006 | | Load 0x0,0x6 00b7 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 00b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b9 7801 |x | Jump 0xbb 00ba e5fb | | Load 0x2,-0x5 00bb e5fc | | Load 0x2,-0x4 00bc 00db | | Load_Top At_Offset_3 00bd e5fe | | Load 0x2,-0x2 00be e5ff | | Load 0x2,-0x1 00bf 8223 | # | Call 0x1,0x23 00c0 c5fb | | Store 0x2,-0x5 00c1 005a | Z | Store_Top Discrete,At_Offset_2 00c2 00d9 | | Load_Top At_Offset_1 00c3 a5fa | | Store_Unchecked 0x2,-0x6 00c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00c5 TRAP_00a0: 00c5 e003 | | Load 0x0,0x3 00c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00c7 010f | | Execute Exception,Equal 00c8 6804 |h | Jump_Zero 0xcd 00c9 e003 | | Load 0x0,0x3 00ca 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00cb a5fa | | Store_Unchecked 0x2,-0x6 00cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00cd 0092 02bc | | Action Push_String_Extended,0x2bc ; "Rcf_Imports.Get_Imports" 00cf e005 | | Load 0x0,0x5 00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d1 a5fa | | Store_Unchecked 0x2,-0x6 00d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00ee | | .CONST 0x00ee ; Address of begin 00d9 013e | > | .CONST 0x013e ; Address of exception handler 00da 0005 | | .CONST 0x0005 ; Number of locals 00db INIT_00d8: 00db e006 | | Load 0x0,0x6 00dc 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 00dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00de 02c7 | | Declare_Variable Any 00df 00d8 | | Load_Top At_Offset_0 00e0 1c00 | | Execute_Immediate Run_Utility,0x0 00e1 e003 | | Load 0x0,0x3 00e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e4 e004 | | Load 0x0,0x4 00e5 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 00e6 0322 | " | Declare_Variable Record 00e7 e5fd | | Load 0x2,-0x3 00e8 e004 | | Load 0x0,0x4 00e9 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00ea 00d9 | | Load_Top At_Offset_1 00eb 017d | } | Execute Record,Structure_Write 00ec 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 00ee BODY_00d8: 00ee e003 | | Load 0x0,0x3 00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f0 e402 | | Load 0x2,0x2 00f1 0120 | | Execute Any,Is_Value 00f2 6804 |h | Jump_Zero 0xf7 00f3 e006 | | Load 0x0,0x6 00f4 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 00f5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00f6 7801 |x | Jump 0xf8 00f7 e402 | | Load 0x2,0x2 00f8 e5fc | | Load 0x2,-0x4 00f9 e5fd | | Load 0x2,-0x3 00fa e5fe | | Load 0x2,-0x2 00fb e5ff | | Load 0x2,-0x1 00fc 821d | | Call 0x1,0x1d 00fd c402 | | Store 0x2,0x2 00fe 005b | [ | Store_Top Discrete,At_Offset_3 00ff 4800 |H | Short_Literal 0x0 0100 00db | | Load_Top At_Offset_3 0101 e003 | | Load 0x0,0x3 0102 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0103 7003 |p | Jump_Nonzero 0x107 0104 00da | | Load_Top At_Offset_2 0105 a5fa | | Store_Unchecked 0x2,-0x6 0106 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0107 00cf | | Action Mark_Auxiliary 0108 7824 |x$ | Jump 0x12d 0109 8405 | | Call 0x2,0x5 010a e5fb | | Load 0x2,-0x5 010b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010c 0a01 | | Execute_Immediate Plus,0x1 010d e5fb | | Load 0x2,-0x5 010e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 010f e5fb | | Load 0x2,-0x5 0110 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0111 0c81 | | Execute_Immediate Greater_Equal,-0x7f 0112 6814 |h | Jump_Zero 0x127 0113 4801 |H | Short_Literal 0x1 0114 4801 |H | Short_Literal 0x1 0115 e007 | | Load 0x0,0x7 0116 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0117 035b | [ | Declare_Type Array,Constrained 0118 0337 | 7 | Declare_Variable Array 0119 e5ff | | Load 0x2,-0x1 011a e007 | | Load 0x0,0x7 011b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 011c e007 | | Load 0x0,0x7 011d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011e 0119 | | Execute Any,Check_In_Formal_Type 011f 4801 |H | Short_Literal 0x1 0120 00da | | Load_Top At_Offset_2 0121 01d6 | | Execute Vector,Field_Write 0122 6029 |`) | Indirect_Literal Discrete,0x14c,{0x00000000, 0x0000815f} 0123 e003 | | Load 0x0,0x3 0124 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0125 a5fa | | Store_Unchecked 0x2,-0x6 0126 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0127 e402 | | Load 0x2,0x2 0128 e006 | | Load 0x0,0x6 0129 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 012a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 012b c402 | | Store 0x2,0x2 012c 00c9 | | Action Pop_Auxiliary_Loop 012d e402 | | Load 0x2,0x2 012e e006 | | Load 0x0,0x6 012f 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0130 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0131 6fd7 |o | Jump_Zero 0x109 0132 00ce | | Action Pop_Auxiliary 0133 e5fb | | Load 0x2,-0x5 0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0135 0aff | | Execute_Immediate Plus,-0x1 0136 e5fb | | Load 0x2,-0x5 0137 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0138 4801 |H | Short_Literal 0x1 0139 e5fb | | Load 0x2,-0x5 013a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013b 00da | | Load_Top At_Offset_2 013c a5fa | | Store_Unchecked 0x2,-0x6 013d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 013e TRAP_00d8: 013e e003 | | Load 0x0,0x3 013f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0140 010f | | Execute Exception,Equal 0141 6804 |h | Jump_Zero 0x146 0142 e003 | | Load 0x0,0x3 0143 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0144 a5fa | | Store_Unchecked 0x2,-0x6 0145 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0146 0092 02bd | | Action Push_String_Extended,0x2bd ; "Rcf_Imports.Get_Remote_Imports" 0148 e005 | | Load 0x0,0x5 0149 1810 | | Execute Package,Field_Execute,Field_Number 0x10 014a a5fa | | Store_Unchecked 0x2,-0x6 014b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 014c 0000 0000 | | .LITERAL {0x00000000, 0x0000815f} 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 015d | ] | .CONST 0x015d ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e5fd | | Load 0x2,-0x3 0154 0092 02be | | Action Push_String_Extended,0x2be ; "Rcf_Imports.Has_Static_Imports" 0156 e005 | | Load 0x0,0x5 0157 180e | | Execute Package,Field_Execute,Field_Number 0xe 0158 4801 |H | Short_Literal 0x1 0159 a5fc | | Store_Unchecked 0x2,-0x4 015a 4800 |H | Short_Literal 0x0 015b a5fb | | Store_Unchecked 0x2,-0x5 015c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 015d TRAP_0150: 015d e003 | | Load 0x0,0x3 015e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 015f 010f | | Execute Exception,Equal 0160 6806 |h | Jump_Zero 0x167 0161 e003 | | Load 0x0,0x3 0162 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0163 a5fb | | Store_Unchecked 0x2,-0x5 0164 4800 |H | Short_Literal 0x0 0165 a5fc | | Store_Unchecked 0x2,-0x4 0166 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0167 0092 02be | | Action Push_String_Extended,0x2be ; "Rcf_Imports.Has_Static_Imports" 0169 e005 | | Load 0x0,0x5 016a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 016b a5fb | | Store_Unchecked 0x2,-0x5 016c 4800 |H | Short_Literal 0x0 016d a5fc | | Store_Unchecked 0x2,-0x4 016e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4605 |F | Jump_Case 0x6 0174 7804 |x | Jump 0x179 ; case 0x0 0175 7814 |x | Jump 0x18a ; case 0x1 0176 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0177 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0178 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0179 00da | | Load_Top At_Offset_2 ; case 0x5 017a 01dc | | Execute Vector,Last 017b 00db | | Load_Top At_Offset_3 017c 01dd | | Execute Vector,First 017d 0263 | c | Execute Discrete,Above_Bound 017e 700a |p | Jump_Nonzero 0x189 017f 00d8 | | Load_Top At_Offset_0 0180 e5ff | | Load 0x2,-0x1 0181 01d5 | | Execute Vector,Field_Reference 0182 0125 | % | Execute Any,Set_Constraint 0183 00d8 | | Load_Top At_Offset_0 0184 e5ff | | Load 0x2,-0x1 0185 01d5 | | Execute Vector,Field_Reference 0186 1c00 | | Execute_Immediate Run_Utility,0x0 0187 0a01 | | Execute_Immediate Plus,0x1 0188 7ff4 | | Jump 0x17d 0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 018a 00da | | Load_Top At_Offset_2 018b 01dc | | Execute Vector,Last 018c 00db | | Load_Top At_Offset_3 018d 01dd | | Execute Vector,First 018e 0263 | c | Execute Discrete,Above_Bound 018f 700a |p | Jump_Nonzero 0x19a 0190 00d8 | | Load_Top At_Offset_0 0191 e5ff | | Load 0x2,-0x1 0192 01d5 | | Execute Vector,Field_Reference 0193 0125 | % | Execute Any,Set_Constraint 0194 00d8 | | Load_Top At_Offset_0 0195 e5ff | | Load 0x2,-0x1 0196 01d7 | | Execute Vector,Field_Read 0197 1c00 | | Execute_Immediate Run_Utility,0x0 0198 0a01 | | Execute_Immediate Plus,0x1 0199 7ff4 | | Jump 0x18e 019a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 019b 0000 0000 | | .BLANK 0000[0x5] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01aa | | .CONST 0x01aa ; Address of begin 01a1 01b1 | | .CONST 0x01b1 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 0092 02bf | | Action Push_String_Extended,0x2bf ; "<QUIET>" 01a5 4800 |H | Short_Literal 0x0 01a6 e5fe | | Load 0x2,-0x2 01a7 e5ff | | Load 0x2,-0x1 01a8 e008 | | Load 0x0,0x8 01a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01aa BODY_01a0: 01aa e5fd | | Load 0x2,-0x3 01ab 4801 |H | Short_Literal 0x1 01ac 00da | | Load_Top At_Offset_2 01ad e009 | | Load 0x0,0x9 01ae 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01af c5fc | | Store 0x2,-0x4 01b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01b1 TRAP_01a0: 01b1 0007 | | Action Break_Optional 01b2 e006 | | Load 0x0,0x6 01b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01b5 c5fc | | Store 0x2,-0x4 01b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01d7 | | .CONST 0x01d7 ; Address of begin 01b9 0230 | 0 | .CONST 0x0230 ; Address of exception handler 01ba 0007 | | .CONST 0x0007 ; Number of locals 01bb INIT_01b8: 01bb e003 | | Load 0x0,0x3 01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01be e006 | | Load 0x0,0x6 01bf 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 01c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c1 02c7 | | Declare_Variable Any 01c2 00d8 | | Load_Top At_Offset_0 01c3 1c00 | | Execute_Immediate Run_Utility,0x0 01c4 e006 | | Load 0x0,0x6 01c5 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 01c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01c7 02c7 | | Declare_Variable Any 01c8 00d8 | | Load_Top At_Offset_0 01c9 1c00 | | Execute_Immediate Run_Utility,0x0 01ca e006 | | Load 0x0,0x6 01cb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01cc 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01cd 02c7 | | Declare_Variable Any 01ce 00d8 | | Load_Top At_Offset_0 01cf 1c00 | | Execute_Immediate Run_Utility,0x0 01d0 e006 | | Load 0x0,0x6 01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d2 e006 | | Load 0x0,0x6 01d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d4 02c7 | | Declare_Variable Any 01d5 00d8 | | Load_Top At_Offset_0 01d6 1c00 | | Execute_Immediate Run_Utility,0x0 01d7 BODY_01b8: 01d7 4800 |H | Short_Literal 0x0 01d8 a5fa | | Store_Unchecked 0x2,-0x6 01d9 e403 | | Load 0x2,0x3 01da 0120 | | Execute Any,Is_Value 01db 6804 |h | Jump_Zero 0x1e0 01dc e006 | | Load 0x0,0x6 01dd 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 01de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01df 7801 |x | Jump 0x1e1 01e0 e403 | | Load 0x2,0x3 01e1 e00a | | Load 0x0,0xa 01e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e3 e00b | | Load 0x0,0xb 01e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e5 e006 | | Load 0x0,0x6 01e6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 01e7 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e8 c403 | | Store 0x2,0x3 01e9 00da | | Load_Top At_Offset_2 01ea 0120 | | Execute Any,Is_Value 01eb 6804 |h | Jump_Zero 0x1f0 01ec e006 | | Load 0x0,0x6 01ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01ee 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01ef 7801 |x | Jump 0x1f1 01f0 00da | | Load_Top At_Offset_2 01f1 e5fc | | Load 0x2,-0x4 01f2 e5fe | | Load 0x2,-0x2 01f3 e5ff | | Load 0x2,-0x1 01f4 e009 | | Load 0x0,0x9 01f5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01f6 8222 | " | Call 0x1,0x22 01f7 c405 | | Store 0x2,0x5 01f8 00cf | | Action Mark_Auxiliary 01f9 781c |x | Jump 0x216 01fa e006 | | Load 0x0,0x6 01fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fc 00da | | Load_Top At_Offset_2 01fd 0120 | | Execute Any,Is_Value 01fe 6803 |h | Jump_Zero 0x202 01ff e006 | | Load 0x0,0x6 0200 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0201 7801 |x | Jump 0x203 0202 00da | | Load_Top At_Offset_2 0203 e405 | | Load 0x2,0x5 0204 e006 | | Load 0x0,0x6 0205 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0206 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0207 c407 | | Store 0x2,0x7 0208 005b | [ | Store_Top Discrete,At_Offset_3 0209 00da | | Load_Top At_Offset_2 020a 7005 |p | Jump_Nonzero 0x210 020b 00d9 | | Load_Top At_Offset_1 020c e403 | | Load 0x2,0x3 020d e006 | | Load 0x0,0x6 020e 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 020f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0210 00db | | Load_Top At_Offset_3 0211 e006 | | Load 0x0,0x6 0212 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0213 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0214 c405 | | Store 0x2,0x5 0215 00c9 | | Action Pop_Auxiliary_Loop 0216 00db | | Load_Top At_Offset_3 0217 e006 | | Load 0x0,0x6 0218 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0219 181e | | Execute Package,Field_Execute,Field_Number 0x1e 021a 6fdf |o | Jump_Zero 0x1fa 021b 00ce | | Action Pop_Auxiliary 021c 00db | | Load_Top At_Offset_3 021d 0120 | | Execute Any,Is_Value 021e 6804 |h | Jump_Zero 0x223 021f e006 | | Load 0x0,0x6 0220 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0221 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0222 7801 |x | Jump 0x224 0223 00db | | Load_Top At_Offset_3 0224 e00a | | Load 0x0,0xa 0225 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0226 e00b | | Load 0x0,0xb 0227 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0228 e403 | | Load 0x2,0x3 0229 e006 | | Load 0x0,0x6 022a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 022b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 022c c404 | | Store 0x2,0x4 022d 00db | | Load_Top At_Offset_3 022e c5fb | | Store 0x2,-0x5 022f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0230 TRAP_01b8: 0230 0007 | | Action Break_Optional 0231 e5fc | | Load 0x2,-0x4 0232 4801 |H | Short_Literal 0x1 0233 4801 |H | Short_Literal 0x1 0234 e007 | | Load 0x0,0x7 0235 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0236 035b | [ | Declare_Type Array,Constrained 0237 0337 | 7 | Declare_Variable Array 0238 e5ff | | Load 0x2,-0x1 0239 e009 | | Load 0x0,0x9 023a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 023b e007 | | Load 0x0,0x7 023c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 023d e007 | | Load 0x0,0x7 023e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023f 0119 | | Execute Any,Check_In_Formal_Type 0240 4801 |H | Short_Literal 0x1 0241 00da | | Load_Top At_Offset_2 0242 01d6 | | Execute Vector,Field_Write 0243 6018 |` | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00008144} 0244 e003 | | Load 0x0,0x3 0245 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0246 e5fb | | Load 0x2,-0x5 0247 0120 | | Execute Any,Is_Value 0248 6804 |h | Jump_Zero 0x24d 0249 e006 | | Load 0x0,0x6 024a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 024b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 024c 7801 |x | Jump 0x24e 024d e5fb | | Load 0x2,-0x5 024e e00a | | Load 0x0,0xa 024f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0250 e00b | | Load 0x0,0xb 0251 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0252 e006 | | Load 0x0,0x6 0253 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0254 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0255 e006 | | Load 0x0,0x6 0256 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0257 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0258 c5fb | | Store 0x2,-0x5 0259 4505 |E | Exit_Suprogram New_Top_Offset 0x5 025a 0000 0000 | | .XXX[0x2] 025c 0000 0000 | | .LITERAL {0x00000000, 0x00008144} 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 027c | | | .CONST 0x027c ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0005 | | .CONST 0x0005 ; Number of locals 0263 INIT_0260: 0263 e006 | | Load 0x0,0x6 0264 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0265 02c7 | | Declare_Variable Any 0266 e402 | | Load 0x2,0x2 0267 e006 | | Load 0x0,0x6 0268 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0269 181a | | Execute Package,Field_Execute,Field_Number 0x1a 026a a602 | | Store_Unchecked 0x3,0x2 026b e5fc | | Load 0x2,-0x4 026c e5fd | | Load 0x2,-0x3 026d 00da | | Load_Top At_Offset_2 026e e00c | | Load 0x0,0xc 026f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0270 e5fc | | Load 0x2,-0x4 0271 e5fd | | Load 0x2,-0x3 0272 00db | | Load_Top At_Offset_3 0273 e00c | | Load 0x0,0xc 0274 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0275 00d9 | | Load_Top At_Offset_1 0276 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0277 00d9 | | Load_Top At_Offset_1 0278 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0279 e404 | | Load 0x2,0x4 027a e004 | | Load 0x0,0x4 027b 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 027c BODY_0260: 027c e5fb | | Load 0x2,-0x5 027d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 027e e5fb | | Load 0x2,-0x5 027f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0280 01d5 | | Execute Vector,Field_Reference 0281 00d8 | | Load_Top At_Offset_0 0282 00da | | Load_Top At_Offset_2 0283 e002 | | Load 0x0,0x2 0284 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0285 e002 | | Load 0x0,0x2 0286 180f | | Execute Package,Field_Execute,Field_Number 0xf 0287 00d2 | | Pop_Control Pop_Count_2 0288 4800 |H | Short_Literal 0x0 0289 00da | | Load_Top At_Offset_2 028a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 028b e003 | | Load 0x0,0x3 028c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 028d 7004 |p | Jump_Nonzero 0x292 028e 00d9 | | Load_Top At_Offset_1 028f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0290 a403 | | Store_Unchecked 0x2,0x3 0291 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0292 4800 |H | Short_Literal 0x0 0293 00db | | Load_Top At_Offset_3 0294 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0295 e003 | | Load 0x0,0x3 0296 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0297 7003 |p | Jump_Nonzero 0x29b 0298 00da | | Load_Top At_Offset_2 0299 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 029a a403 | | Store_Unchecked 0x2,0x3 029b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029c 0000 0000 | | .BLANK 0000[0x4] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 4608 |F | Jump_Case 0x9 02a4 7808 |x | Jump 0x2ad ; case 0x0 02a5 7811 |x | Jump 0x2b7 ; case 0x1 02a6 7814 |x | Jump 0x2bb ; case 0x2 02a7 7813 |x | Jump 0x2bb ; case 0x3 02a8 7812 |x | Jump 0x2bb ; case 0x4 02a9 7811 |x | Jump 0x2bb ; case 0x5 02aa 7810 |x | Jump 0x2bb ; case 0x6 02ab 780f |x | Jump 0x2bb ; case 0x7 02ac 780e |x | Jump 0x2bb ; case 0x8 02ad 00da | | Load_Top At_Offset_2 02ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02af 1c00 | | Execute_Immediate Run_Utility,0x0 02b0 4801 |H | Short_Literal 0x1 02b1 00db | | Load_Top At_Offset_3 02b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02b3 4800 |H | Short_Literal 0x0 02b4 00db | | Load_Top At_Offset_3 02b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02b6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02b7 00da | | Load_Top At_Offset_2 02b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02b9 1c01 | | Execute_Immediate Run_Utility,0x1 02ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02bb 0869 | i | Execute_Immediate Raise,0x69 02bc ; -------------------------------------------------------------------------------------- 02bc ; STRING TABLE 02bc ; -------------------------------------------------------------------------------------- 02bc 000a | | .STRTAB 0x000a->0x02c1 ; "Rcf_Imports.Get_Imports" 02bd 001f | | .STRTAB 0x001f->0x02cc ; "Rcf_Imports.Get_Remote_Imports" 02be 003b | ; | .STRTAB 0x003b->0x02db ; "Rcf_Imports.Has_Static_Imports" 02bf 0057 | W | .STRTAB 0x0057->0x02ea ; "<QUIET>" 02c0 005c | \ | .STREND 0x005c->0x02ee 02c1 5263 665f |Rcf_| .STRTAB_STRINGS 02ee 0000 0000 | | .XXX[0x2] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; Debug Table 02f0 ; -------------------------------------------------------------------------------------- 02f0 0004 000e | | .DEBUG4 0x0004,0x000e,0xbe98,0x0000,0x0001,0x0000 02f6 0000 0000 | | .BLANK 0000[0xb] 0301 0200 0000 | | .XXX[0x3] 0303 0004 | | 0304 0000 0000 | | .BLANK 0000[0x5] 0309 0090 001d | | .XXX[0x8] 030b 8d80 0000 | | 030d 003b 0000 | ; | 030f 0000 4000 | @ | 0311 0000 0000 | | .BLANK 0000[0x4] 0315 0002 1555 | U| .XXX[0x83] 0317 3455 2532 |4U%2| 0319 e475 3544 | u5D| 031b 14c5 4455 | DU| 031d 22e4 1444 |" D| 031f 12e5 4455 | DU| 0321 3543 1800 |5C | 0323 0000 9000 | | 0325 0000 2000 | | 0327 0000 2000 | | 0329 00fd 0000 | | 032b 0003 242a | $*| 032d aa68 aa4a | h J| 032f 65c8 ea6a |e j| 0331 8829 8a88 | ) | 0333 aa45 c828 | E (| 0335 8825 ca88 | % | 0337 aa6a 8620 | j | 0339 0000 0020 | | 033b 0000 0629 | )| 033d 84ec adce | | 033f 8e4c aca4 | L | 0341 0c6d eeae | m | 0343 4c2d ce8c |L- | 0345 a40c ae6e | n| 0347 8407 4404 | D | 0349 2aaa 68aa |* h | 034b 4a65 c8ea |Je | 034d 6a88 298a |j ) | 034f 88aa 45c8 | E | 0351 2888 25ca |( % | 0353 88aa 6a86 | j | 0355 2000 0000 | | 0357 2000 0006 | | 0359 4984 ecad |I | 035b ce8e 4cac | L | 035d a40c 6dee | m | 035f ae4c 2dce | L- | 0361 8ca4 0cae | | 0363 6e84 0744 |n D| 0365 042a aa68 | * h| 0367 aa4a 65c8 | Je | 0369 ea6a 8829 | j )| 036b 8a88 aa45 | E| 036d c828 8825 | ( %| 036f ca88 aa6a | j| 0371 8621 4000 | !@ | 0373 0000 2000 | | 0375 0004 2984 | ) | 0377 ec2d cc2d | - -| 0379 8f2e 6ca4 | .l | 037b 0e6f 2dce | o- | 037d 8c2f 0d2e | / .| 037f 2eac a40c |. | 0381 240e 4cae |$ L | 0383 ae6e 6d24 | nm$| 0385 0424 2420 | $$ | 0387 0000 0020 | | 0389 0000 010a | | 038b 8d2d cf2a | - *| 038d 8c2d 8d60 | - `| 038f 0000 0020 | | 0391 0000 010c | | 0393 2e4d cd2c |.M ,| 0395 6c27 460f |l'F | 0397 f000 | | 0398 0000 0000 | | .BLANK 0000[0x1d] 03b5 0001 5800 | X | .XXX[0x7] 03b7 0008 1400 | | 03b9 0000 0000 | | 03bb 0100 | | 03bc 0000 0000 | | .BLANK 0000[0x13] 03cf f000 | | .XXX[0x1] 03d0 0000 0000 | | .BLANK 0000[0x5] 03d5 0004 | | .XXX[0x1] 03d6 0000 0000 | | .BLANK 0000[0x13] 03e9 0001 0a8e | | .XXX[0x17] 03eb 4c2d ce6d |L- m| 03ed ad2e 8000 | . | 03ef 0000 0000 | | 03f1 0003 0a8e | | 03f3 4c2d ce6e |L- n| 03f5 0dee 4e84 | N | 03f7 0e0c 2c6d | ,m| 03f9 6c2c eca4 |l, | 03fb 0cae 4e4d | NM| 03fd ee47 4000 | G@ | 03ff 0000 | |