|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0250 | P | .CONST 0x0250 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001b | | .CONST 0x001b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 e001 | | Load 0x0,0x1 0011 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0012 0007 | | Action Break_Optional 0013 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call 0015 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 0017 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0018 00c7 | | Action Elaborate_Subprogram 0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001a 00c7 | | Action Elaborate_Subprogram 001b BODY_0008: 001b 00bc | | Action Signal_Activated 001c 00bb | | Action Signal_Completion 001d 0000 0000 | | .XXX[0x3] 001f 0000 | | 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0057 | W | .CONST 0x0057 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0012 | | .CONST 0x0012 ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0026 02c7 | | Declare_Variable Any 0027 4801 |H | Short_Literal 0x1 0028 e002 | | Load 0x0,0x2 0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002b e5ff | | Load 0x2,-0x1 002c e002 | | Load 0x0,0x2 002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 002f a402 | | Store_Unchecked 0x2,0x2 0030 4800 |H | Short_Literal 0x0 0031 4802 |H | Short_Literal 0x2 0032 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0034 03fd | | Declare_Type Discrete,Defined 0035 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0037 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0039 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 003b 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 003d 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 003f a003 | | Store_Unchecked 0x0,0x3 0040 00c6 | | Action Check_Subprogram_Elaborated 0041 4805 |H | Short_Literal 0x5 0042 4802 |H | Short_Literal 0x2 0043 0099 | | Action Reference_Dynamic 0044 e403 | | Load 0x2,0x3 0045 4804 |H | Short_Literal 0x4 0046 4802 |H | Short_Literal 0x2 0047 0099 | | Action Reference_Dynamic 0048 4807 |H | Short_Literal 0x7 0049 4802 |H | Short_Literal 0x2 004a 0099 | | Action Reference_Dynamic 004b 4806 |H | Short_Literal 0x6 004c 4802 |H | Short_Literal 0x2 004d 0099 | | Action Reference_Dynamic 004e 4808 |H | Short_Literal 0x8 004f 4802 |H | Short_Literal 0x2 0050 0099 | | Action Reference_Dynamic 0051 0092 01c0 | | Action Push_String_Extended,0x1c0 ; "UNUSED DECLARATIONS" 0053 e004 | | Load 0x0,0x4 0054 e005 | | Load 0x0,0x5 0055 4812 |H | Short_Literal 0x12 0056 0007 | | Action Break_Optional 0057 BODY_0020: 0057 e402 | | Load 0x2,0x2 0058 e002 | | Load 0x0,0x2 0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 005b 680a |h | Jump_Zero 0x66 005c e006 | | Load 0x0,0x6 005d 180e | | Execute Package,Field_Execute,Field_Number 0xe 005e 4807 |H | Short_Literal 0x7 005f e5ff | | Load 0x2,-0x1 0060 0092 01c1 | | Action Push_String_Extended,0x1c1 ; " is not a valid pathname" 0062 01cc | | Execute Vector,Catenate 0063 e007 | | Load 0x0,0x7 0064 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0065 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0066 e5fd | | Load 0x2,-0x3 0067 e402 | | Load 0x2,0x2 0068 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "<PROFILE>" 006a 4809 |H | Short_Literal 0x9 006b 4802 |H | Short_Literal 0x2 006c 0099 | | Action Reference_Dynamic 006d e40a | | Load 0x2,0xa 006e 480b |H | Short_Literal 0xb 006f 4802 |H | Short_Literal 0x2 0070 0099 | | Action Reference_Dynamic 0071 480c |H | Short_Literal 0xc 0072 4802 |H | Short_Literal 0x2 0073 0099 | | Action Reference_Dynamic 0074 480d |H | Short_Literal 0xd 0075 4802 |H | Short_Literal 0x2 0076 0099 | | Action Reference_Dynamic 0077 480e |H | Short_Literal 0xe 0078 4802 |H | Short_Literal 0x2 0079 0099 | | Action Reference_Dynamic 007a e40f | | Load 0x2,0xf 007b 4810 |H | Short_Literal 0x10 007c 4802 |H | Short_Literal 0x2 007d 0099 | | Action Reference_Dynamic 007e 8003 | | Call 0x0,0x3 007f c402 | | Store 0x2,0x2 0080 c5fd | | Store 0x2,-0x3 0081 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0095 | | .CONST 0x0095 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0003 | | .CONST 0x0003 ; Number of locals 008b INIT_0088: 008b e008 | | Load 0x0,0x8 008c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 008d 02c7 | | Declare_Variable Any 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 e009 | | Load 0x0,0x9 0091 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0092 02c7 | | Declare_Variable Any 0093 00d8 | | Load_Top At_Offset_0 0094 1c00 | | Execute_Immediate Run_Utility,0x0 0095 BODY_0088: 0095 00d9 | | Load_Top At_Offset_1 0096 00d9 | | Load_Top At_Offset_1 0097 e5fe | | Load 0x2,-0x2 0098 800a | | Call 0x0,0xa 0099 c403 | | Store 0x2,0x3 009a c402 | | Store 0x2,0x2 009b 00d8 | | Load_Top At_Offset_0 009c e009 | | Load 0x0,0x9 009d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 009e 4802 |H | Short_Literal 0x2 009f 4803 |H | Short_Literal 0x3 00a0 0262 | b | Execute Discrete,In_Range 00a1 700f |p | Jump_Nonzero 0xb1 00a2 00d9 | | Load_Top At_Offset_1 00a3 e5fd | | Load 0x2,-0x3 00a4 e5ff | | Load 0x2,-0x1 00a5 820d | | Call 0x1,0xd 00a6 c402 | | Store 0x2,0x2 00a7 00d9 | | Load_Top At_Offset_1 00a8 e008 | | Load 0x0,0x8 00a9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00aa c402 | | Store 0x2,0x2 00ab 4801 |H | Short_Literal 0x1 00ac 4800 |H | Short_Literal 0x0 00ad e5fe | | Load 0x2,-0x2 00ae e00b | | Load 0x0,0xb 00af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b1 e006 | | Load 0x0,0x6 00b2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b3 4807 |H | Short_Literal 0x7 00b4 0092 01c3 | | Action Push_String_Extended,0x1c3 ; "Problem creating object " 00b6 e5fe | | Load 0x2,-0x2 00b7 01cc | | Execute Vector,Catenate 00b8 0092 01c4 | | Action Push_String_Extended,0x1c4 ; ". " 00ba 01cc | | Execute Vector,Catenate 00bb 00db | | Load_Top At_Offset_3 00bc e009 | | Load 0x0,0x9 00bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00be 01cc | | Execute Vector,Catenate 00bf e007 | | Load 0x0,0x7 00c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c2 0000 0000 | | .BLANK 0000[0x6] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc e00c | | Load 0x0,0xc 00cd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ce 0f00 | | Execute_Immediate Equal,0x0 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 8210 | | Call 0x1,0x10 00d5 680a |h | Jump_Zero 0xe0 00d6 4800 |H | Short_Literal 0x0 00d7 0092 01c5 | | Action Push_String_Extended,0x1c5 ; "<ALL_WORLDS>" 00d9 4801 |H | Short_Literal 0x1 00da e5ff | | Load 0x2,-0x1 00db e00c | | Load 0x0,0xc 00dc 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 00dd e00c | | Load 0x0,0xc 00de 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e0 4800 |H | Short_Literal 0x0 00e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4607 |F | Jump_Case 0x8 00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00ed 7806 |x | Jump 0xf4 ; case 0x1 00ee 7809 |x | Jump 0xf8 ; case 0x2 00ef 780d |x | Jump 0xfd ; case 0x3 00f0 7810 |x | Jump 0x101 ; case 0x4 00f1 7811 |x | Jump 0x103 ; case 0x5 00f2 7812 |x | Jump 0x105 ; case 0x6 00f3 7815 |x | Jump 0x109 ; case 0x7 00f4 00da | | Load_Top At_Offset_2 00f5 0091 01bd | | Action Push_String_Extended_Indexed,0x1bd ; "PARENT_UNIT" 00f7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f8 00db | | Load_Top At_Offset_3 00f9 00db | | Load_Top At_Offset_3 00fa 00e0 | | Load_Encached Standard_Cache 00fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fd 00da | | Load_Top At_Offset_2 00fe 00e0 | | Load_Encached Standard_Cache 00ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0101 00db | | Load_Top At_Offset_3 0102 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0103 00db | | Load_Top At_Offset_3 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 e403 | | Load 0x2,0x3 0106 00dc | | Load_Top At_Offset_4 0107 0267 | g | Execute Discrete,Predecessor 0108 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0109 e403 | | Load 0x2,0x3 010a 00dc | | Load_Top At_Offset_4 010b 0268 | h | Execute Discrete,Successor 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4800 |H | Short_Literal 0x0 0114 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0120 | | .CONST 0x0120 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e00c | | Load 0x0,0xc 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 02c7 | | Declare_Variable Any 011e 00d8 | | Load_Top At_Offset_0 011f 1c00 | | Execute_Immediate Run_Utility,0x0 0120 BODY_0118: 0120 00db | | Load_Top At_Offset_3 0121 e00d | | Load 0x0,0xd 0122 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0123 0b26 | & | Execute_Immediate Case_Compare,0x26 0124 7005 |p | Jump_Nonzero 0x12a 0125 0f22 | " | Execute_Immediate Equal,0x22 0126 7006 |p | Jump_Nonzero 0x12d 0127 00db | | Load_Top At_Offset_3 0128 8211 | | Call 0x1,0x11 0129 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012a 00d1 | | Pop_Control Pop_Count_1 012b 4800 |H | Short_Literal 0x0 012c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012d 00db | | Load_Top At_Offset_3 012e e00c | | Load 0x0,0xc 012f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0130 6807 |h | Jump_Zero 0x138 0131 00db | | Load_Top At_Offset_3 0132 e00c | | Load 0x0,0xc 0133 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0134 e00d | | Load 0x0,0xd 0135 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0136 c602 | | Store 0x3,0x2 0137 7808 |x | Jump 0x140 0138 00db | | Load_Top At_Offset_3 0139 e00c | | Load 0x0,0xc 013a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013b e00c | | Load 0x0,0xc 013c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013d e00d | | Load 0x0,0xd 013e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 013f c602 | | Store 0x3,0x2 0140 00d8 | | Load_Top At_Offset_0 0141 e00d | | Load 0x0,0xd 0142 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0143 480f |H | Short_Literal 0xf 0144 4810 |H | Short_Literal 0x10 0145 0262 | b | Execute Discrete,In_Range 0146 7003 |p | Jump_Nonzero 0x14a 0147 00db | | Load_Top At_Offset_3 0148 8211 | | Call 0x1,0x11 0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014a 4800 |H | Short_Literal 0x0 014b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 4602 |F | Jump_Case 0x3 0155 7808 |x | Jump 0x15e ; case 0x0 0156 7804 |x | Jump 0x15b ; case 0x1 0157 7800 |x | Jump 0x158 ; case 0x2 0158 0092 01c6 | | Action Push_String_Extended,0x1c6 ; "The kind of the declaration" 015a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015b 0092 01c7 | | Action Push_String_Extended,0x1c7 ; "Name of the unused declaration" 015d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015e 0092 01c8 | | Action Push_String_Extended,0x1c8 ; "Name of the parent unit containing the declaration" 0160 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 4602 |F | Jump_Case 0x3 016d 7823 |x# | Jump 0x191 ; case 0x0 016e 781e |x | Jump 0x18d ; case 0x1 016f 7800 |x | Jump 0x170 ; case 0x2 0170 00db | | Load_Top At_Offset_3 0171 e00d | | Load 0x0,0xd 0172 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0173 4801 |H | Short_Literal 0x1 0174 4826 |H& | Short_Literal 0x26 0175 0262 | b | Execute Discrete,In_Range 0176 700a |p | Jump_Nonzero 0x181 0177 7800 |x | Jump 0x178 0178 00db | | Load_Top At_Offset_3 0179 e00d | | Load 0x0,0xd 017a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 017b e00e | | Load 0x0,0xe 017c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017d 7003 |p | Jump_Nonzero 0x181 017e 0092 01c9 | | Action Push_String_Extended,0x1c9 ; "A RECORD COMPONENT DECLARATION" 0180 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0181 4800 |H | Short_Literal 0x0 0182 4820 |H | Short_Literal 0x20 0183 485f |H_ | Short_Literal 0x5f 0184 e7fe | | Load 0x3,-0x2 0185 e00d | | Load 0x0,0xd 0186 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0187 e00d | | Load 0x0,0xd 0188 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0189 011c | | Execute Any,Convert_Unchecked 018a 1c01 | | Execute_Immediate Run_Utility,0x1 018b 820f | | Call 0x1,0xf 018c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018d 00db | | Load_Top At_Offset_3 018e e00d | | Load 0x0,0xd 018f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0190 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0191 00db | | Load_Top At_Offset_3 0192 e00f | | Load 0x0,0xf 0193 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0194 e00f | | Load 0x0,0xf 0195 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0196 e00d | | Load 0x0,0xd 0197 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0198 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e00c | | Load 0x0,0xc 01a4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01a5 c7fc | | Store 0x3,-0x4 01a6 00da | | Load_Top At_Offset_2 01a7 4602 |F | Jump_Case 0x3 01a8 7809 |x | Jump 0x1b2 ; case 0x0 01a9 7805 |x | Jump 0x1af ; case 0x1 01aa 7800 |x | Jump 0x1ab ; case 0x2 01ab e00c | | Load 0x0,0xc 01ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ad c7fd | | Store 0x3,-0x3 01ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01af 00db | | Load_Top At_Offset_3 01b0 c7fd | | Store 0x3,-0x3 01b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b2 00db | | Load_Top At_Offset_3 01b3 e00f | | Load 0x0,0xf 01b4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b5 e00f | | Load 0x0,0xf 01b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b7 e00d | | Load 0x0,0xd 01b8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01b9 e00c | | Load 0x0,0xc 01ba 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01bb c7fd | | Store 0x3,-0x3 01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bd ; -------------------------------------------------------------------------------------- 01bd ; STRING TABLE 01bd ; -------------------------------------------------------------------------------------- 01bd 001c | | .STRTAB 0x001c->0x01cb ; "PARENT_UNIT" 01be 0025 | % | .STRTAB 0x0025->0x01d0 ; "DECLARATION" 01bf 002e | . | .STRTAB 0x002e->0x01d6 ; "KIND" 01c0 0030 | 0 | .STRTAB 0x0030->0x01d8 ; "UNUSED DECLARATIONS" 01c1 0041 | A | .STRTAB 0x0041->0x01e1 ; " is not a valid pathname" 01c2 0057 | W | .STRTAB 0x0057->0x01ed ; "<PROFILE>" 01c3 005e | ^ | .STRTAB 0x005e->0x01f2 ; "Problem creating object " 01c4 0074 | t | .STRTAB 0x0074->0x01fe ; ". " 01c5 0075 | u | .STRTAB 0x0075->0x01ff ; "<ALL_WORLDS>" 01c6 007f | | .STRTAB 0x007f->0x0205 ; "The kind of the declaration" 01c7 0098 | | .STRTAB 0x0098->0x0213 ; "Name of the unused declaration" 01c8 00b4 | | .STRTAB 0x00b4->0x0222 ; "Name of the parent unit containing the declaration" 01c9 00e4 | | .STRTAB 0x00e4->0x023b ; "A RECORD COMPONENT DECLARATION" 01ca 0100 | | .STREND 0x0100->0x024a 01cb 5041 5245 |PARE| .STRTAB_STRINGS 024a 0000 0000 | | .BLANK 0000[0x6] 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug Table 0250 ; -------------------------------------------------------------------------------------- 0250 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f7a,0x0000,0x0001,0x000c 0256 000b 0286 | | .DBG4T 0x000b,0x0286,0x8000,0x0000 025a 0010 028a | | .DBG4T 0x0010,0x028a,0x8000,0x0000 025e 0023 0291 | # | .DBG4T 0x0023,0x0291,0x0001,0x0000 0262 008b 029e | | .DBG4T 0x008b,0x029e,0x0001,0x4000 0266 00cb 02ae | | .DBG4T 0x00cb,0x02ae,0x0002,0x0000 026a 00d3 02b1 | | .DBG4T 0x00d3,0x02b1,0x0002,0x0000 026e 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000 0272 0113 02b6 | | .DBG4T 0x0113,0x02b6,0x0002,0x0000 0276 011b 02b9 | | .DBG4T 0x011b,0x02b9,0x0002,0x4000 027a 0153 02ce | S | .DBG4T 0x0153,0x02ce,0x0002,0x4000 027e 016b 02d8 | k | .DBG4T 0x016b,0x02d8,0x0002,0x4000 0282 01a3 02e8 | | .DBG4T 0x01a3,0x02e8,0x0001,0x0000 0286 ; -------------------------------------------------------------------------------------- 0286 ; Debug chain 0286 ; -------------------------------------------------------------------------------------- 0286 0002 0000 | | .DBGLEN 0x0002,0x0000 0288 000b 000d | | .DBGLNO 0x000b,0x000d 028a ; -------------------------------------------------------------------------------------- 028a ; Debug chain 028a ; -------------------------------------------------------------------------------------- 028a 0005 0000 | | .DBGLEN 0x0005,0x0000 028c 0010 0013 | | .DBGLNO 0x0010,0x0013,0x0015,0x0017,0x0019 0291 ; -------------------------------------------------------------------------------------- 0291 ; Debug chain 0291 ; -------------------------------------------------------------------------------------- 0291 0008 0003 | | .DBGLEN 0x0008,0x0003 0293 0023 0030 | # 0| .DBGLNO 0x0023,0x0030,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0057,0x005c,0x0066 029e ; -------------------------------------------------------------------------------------- 029e ; Debug chain 029e ; -------------------------------------------------------------------------------------- 029e 0002 0006 | | .DBGLEN 0x0002,0x0006 02a0 008b 0090 | | .DBGLNO 0x008b,0x0090,0x0095,0x009b,0x00a2,0x00a7,0x00ab,0x00b1 02a8 0001 0002 | | .XXX[0x6] 02aa 0004 0005 | | 02ac 0006 0003 | | 02ae ; -------------------------------------------------------------------------------------- 02ae ; Debug chain 02ae ; -------------------------------------------------------------------------------------- 02ae 0000 0001 | | .DBGLEN 0x0000,0x0001 02b0 00cb | | .DBGLNO 0x00cb 02b1 ; -------------------------------------------------------------------------------------- 02b1 ; Debug chain 02b1 ; -------------------------------------------------------------------------------------- 02b1 0000 0003 | | .DBGLEN 0x0000,0x0003 02b3 00d3 00d6 | | .DBGLNO 0x00d3,0x00d6,0x00e0 02b6 ; -------------------------------------------------------------------------------------- 02b6 ; Debug chain 02b6 ; -------------------------------------------------------------------------------------- 02b6 0000 0001 | | .DBGLEN 0x0000,0x0001 02b8 0113 | | .DBGLNO 0x0113 02b9 ; -------------------------------------------------------------------------------------- 02b9 ; Debug chain 02b9 ; -------------------------------------------------------------------------------------- 02b9 0001 0009 | | .DBGLEN 0x0001,0x0009 02bb 011b 0120 | | .DBGLNO 0x011b,0x0120,0x0127,0x012b,0x012d,0x0131,0x0138,0x0140,0x0147,0x014a 02c5 0001 0009 | | .XXX[0x9] 02c7 0002 0003 | | 02c9 0005 0004 | | 02cb 0006 0008 | | 02cd 0007 | | 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0000 0004 | | .DBGLEN 0x0000,0x0004 02d0 0153 0158 | S X| .DBGLNO 0x0153,0x0158,0x015b,0x015e 02d4 0001 0004 | | .XXX[0x4] 02d6 0002 0003 | | 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug chain 02d8 ; -------------------------------------------------------------------------------------- 02d8 0000 0007 | | .DBGLEN 0x0000,0x0007 02da 016b 0170 | k p| .DBGLNO 0x016b,0x0170,0x0178,0x017e,0x0181,0x018d,0x0191 02e1 0001 0004 | | .XXX[0x7] 02e3 0005 0006 | | 02e5 0008 0002 | | 02e7 0003 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug chain 02e8 ; -------------------------------------------------------------------------------------- 02e8 0000 0005 | | .DBGLEN 0x0000,0x0005 02ea 01a3 01a6 | | .DBGLNO 0x01a3,0x01a6,0x01ab,0x01af,0x01b2 02ef 0000 0000 | | .BLANK 0000[0x111]