|
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 0308 | | .CONST 0x0308 ; 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 0016 | | .CONST 0x0016 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 BODY_0008: 0016 00bc | | Action Signal_Activated 0017 00bb | | Action Signal_Completion 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0068 | h | .CONST 0x0068 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0016 | | .CONST 0x0016 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 001e 02c7 | | Declare_Variable Any 001f 4801 |H | Short_Literal 0x1 0020 e001 | | Load 0x0,0x1 0021 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0022 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0023 e5ff | | Load 0x2,-0x1 0024 e001 | | Load 0x0,0x1 0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0026 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0027 a402 | | Store_Unchecked 0x2,0x2 0028 e001 | | Load 0x0,0x1 0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 002b 02c7 | | Declare_Variable Any 002c 4801 |H | Short_Literal 0x1 002d e001 | | Load 0x0,0x1 002e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0030 e5ff | | Load 0x2,-0x1 0031 e001 | | Load 0x0,0x1 0032 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0033 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0034 a403 | | Store_Unchecked 0x2,0x3 0035 4800 |H | Short_Literal 0x0 0036 4803 |H | Short_Literal 0x3 0037 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0039 03fd | | Declare_Type Discrete,Defined 003a e002 | | Load 0x0,0x2 003b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 003c 02c7 | | Declare_Variable Any 003d e002 | | Load 0x0,0x2 003e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 003f a405 | | Store_Unchecked 0x2,0x5 0040 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0042 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0044 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 0046 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0048 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 004a 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 004c e003 | | Load 0x0,0x3 004d 190e | | Execute Package,Field_Reference,Field_Number 0xe 004e 00c6 | | Action Check_Subprogram_Elaborated 004f 4807 |H | Short_Literal 0x7 0050 4802 |H | Short_Literal 0x2 0051 0099 | | Action Reference_Dynamic 0052 e404 | | Load 0x2,0x4 0053 4806 |H | Short_Literal 0x6 0054 4802 |H | Short_Literal 0x2 0055 0099 | | Action Reference_Dynamic 0056 4808 |H | Short_Literal 0x8 0057 4802 |H | Short_Literal 0x2 0058 0099 | | Action Reference_Dynamic 0059 4809 |H | Short_Literal 0x9 005a 4802 |H | Short_Literal 0x2 005b 0099 | | Action Reference_Dynamic 005c 480a |H | Short_Literal 0xa 005d 4802 |H | Short_Literal 0x2 005e 0099 | | Action Reference_Dynamic 005f 0092 0229 | )| Action Push_String_Extended,0x229 ; "Exceptions Information" 0061 480b |H | Short_Literal 0xb 0062 4802 |H | Short_Literal 0x2 0063 0099 | | Action Reference_Dynamic 0064 e004 | | Load 0x0,0x4 0065 e005 | | Load 0x0,0x5 0066 4816 |H | Short_Literal 0x16 0067 0007 | | Action Break_Optional 0068 BODY_0018: 0068 e402 | | Load 0x2,0x2 0069 e001 | | Load 0x0,0x1 006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 006c 680a |h | Jump_Zero 0x77 006d e006 | | Load 0x0,0x6 006e 180e | | Execute Package,Field_Execute,Field_Number 0xe 006f 4807 |H | Short_Literal 0x7 0070 e5ff | | Load 0x2,-0x1 0071 0092 022a | *| Action Push_String_Extended,0x22a ; " is not a valid pathname" 0073 01cc | | Execute Vector,Catenate 0074 e007 | | Load 0x0,0x7 0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0076 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0077 00cf | | Action Mark_Auxiliary 0078 780f |x | Jump 0x88 0079 e402 | | Load 0x2,0x2 007a e001 | | Load 0x0,0x1 007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 007d e001 | | Load 0x0,0x1 007e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0080 e008 | | Load 0x0,0x8 0081 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0082 e402 | | Load 0x2,0x2 0083 e001 | | Load 0x0,0x1 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0086 c402 | | Store 0x2,0x2 0087 00c9 | | Action Pop_Auxiliary_Loop 0088 e402 | | Load 0x2,0x2 0089 e001 | | Load 0x0,0x1 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 008c 6fec |o | Jump_Zero 0x79 008d 00ce | | Action Pop_Auxiliary 008e e402 | | Load 0x2,0x2 008f e001 | | Load 0x0,0x1 0090 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0091 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0092 e5fd | | Load 0x2,-0x3 0093 e402 | | Load 0x2,0x2 0094 e5fe | | Load 0x2,-0x2 0095 480c |H | Short_Literal 0xc 0096 4802 |H | Short_Literal 0x2 0097 0099 | | Action Reference_Dynamic 0098 e40d | | Load 0x2,0xd 0099 480e |H | Short_Literal 0xe 009a 4802 |H | Short_Literal 0x2 009b 0099 | | Action Reference_Dynamic 009c 480f |H | Short_Literal 0xf 009d 4802 |H | Short_Literal 0x2 009e 0099 | | Action Reference_Dynamic 009f 4810 |H | Short_Literal 0x10 00a0 4802 |H | Short_Literal 0x2 00a1 0099 | | Action Reference_Dynamic 00a2 4811 |H | Short_Literal 0x11 00a3 4802 |H | Short_Literal 0x2 00a4 0099 | | Action Reference_Dynamic 00a5 e412 | | Load 0x2,0x12 00a6 4813 |H | Short_Literal 0x13 00a7 4802 |H | Short_Literal 0x2 00a8 0099 | | Action Reference_Dynamic 00a9 4814 |H | Short_Literal 0x14 00aa 4802 |H | Short_Literal 0x2 00ab 0099 | | Action Reference_Dynamic 00ac e003 | | Load 0x0,0x3 00ad 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ae c402 | | Store 0x2,0x2 00af c5fd | | Store 0x2,-0x3 00b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c5 | | .CONST 0x00c5 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0003 | | .CONST 0x0003 ; Number of locals 00bb INIT_00b8: 00bb e009 | | Load 0x0,0x9 00bc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00bd 02c7 | | Declare_Variable Any 00be 00d8 | | Load_Top At_Offset_0 00bf 1c00 | | Execute_Immediate Run_Utility,0x0 00c0 e00a | | Load 0x0,0xa 00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c2 02c7 | | Declare_Variable Any 00c3 00d8 | | Load_Top At_Offset_0 00c4 1c00 | | Execute_Immediate Run_Utility,0x0 00c5 BODY_00b8: 00c5 00d9 | | Load_Top At_Offset_1 00c6 00d9 | | Load_Top At_Offset_1 00c7 e5fe | | Load 0x2,-0x2 00c8 800b | | Call 0x0,0xb 00c9 c403 | | Store 0x2,0x3 00ca c402 | | Store 0x2,0x2 00cb 00d8 | | Load_Top At_Offset_0 00cc e00a | | Load 0x0,0xa 00cd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ce 4802 |H | Short_Literal 0x2 00cf 4803 |H | Short_Literal 0x3 00d0 0262 | b | Execute Discrete,In_Range 00d1 700f |p | Jump_Nonzero 0xe1 00d2 00d9 | | Load_Top At_Offset_1 00d3 e5fd | | Load 0x2,-0x3 00d4 e5ff | | Load 0x2,-0x1 00d5 820d | | Call 0x1,0xd 00d6 c402 | | Store 0x2,0x2 00d7 00d9 | | Load_Top At_Offset_1 00d8 e009 | | Load 0x0,0x9 00d9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00da c402 | | Store 0x2,0x2 00db 4801 |H | Short_Literal 0x1 00dc 4800 |H | Short_Literal 0x0 00dd e5fe | | Load 0x2,-0x2 00de e00c | | Load 0x0,0xc 00df 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e1 e006 | | Load 0x0,0x6 00e2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e3 4807 |H | Short_Literal 0x7 00e4 0092 022b | +| Action Push_String_Extended,0x22b ; "Problem creating object " 00e6 e5fe | | Load 0x2,-0x2 00e7 01cc | | Execute Vector,Catenate 00e8 0092 022c | ,| Action Push_String_Extended,0x22c ; ". " 00ea 01cc | | Execute Vector,Catenate 00eb 00db | | Load_Top At_Offset_3 00ec e00a | | Load 0x0,0xa 00ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ee 01cc | | Execute Vector,Catenate 00ef e007 | | Load 0x0,0x7 00f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00db | | Load_Top At_Offset_3 00fc e00d | | Load 0x0,0xd 00fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00fe e002 | | Load 0x0,0x2 00ff 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0100 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0101 00db | | Load_Top At_Offset_3 0102 e001 | | Load 0x0,0x1 0103 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0104 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0105 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4607 |F | Jump_Case 0x8 010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 010d 7806 |x | Jump 0x114 ; case 0x1 010e 7809 |x | Jump 0x118 ; case 0x2 010f 780d |x | Jump 0x11d ; case 0x3 0110 7810 |x | Jump 0x121 ; case 0x4 0111 7811 |x | Jump 0x123 ; case 0x5 0112 7812 |x | Jump 0x125 ; case 0x6 0113 7815 |x | Jump 0x129 ; case 0x7 0114 00da | | Load_Top At_Offset_2 0115 0091 0225 | %| Action Push_String_Extended_Indexed,0x225 ; "EXCEPTION_NAME" 0117 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0118 00db | | Load_Top At_Offset_3 0119 00db | | Load_Top At_Offset_3 011a 00e0 | | Load_Encached Standard_Cache 011b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011d 00da | | Load_Top At_Offset_2 011e 00e0 | | Load_Encached Standard_Cache 011f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0120 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0121 00db | | Load_Top At_Offset_3 0122 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0123 00db | | Load_Top At_Offset_3 0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0125 e404 | | Load 0x2,0x4 0126 00dc | | Load_Top At_Offset_4 0127 0267 | g | Execute Discrete,Predecessor 0128 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0129 e404 | | Load 0x2,0x4 012a 00dc | | Load_Top At_Offset_4 012b 0268 | h | Execute Discrete,Successor 012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 00d1 | | Pop_Control Pop_Count_1 0135 4800 |H | Short_Literal 0x0 0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013d | = | .CONST 0x013d ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b 029f 020b | | Declare_Subprogram INIT_0208,For_Call 013d BODY_0138: 013d 00db | | Load_Top At_Offset_3 013e e002 | | Load 0x0,0x2 013f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0140 4602 |F | Jump_Case 0x3 0141 7804 |x | Jump 0x146 ; case 0x0 0142 7819 |x | Jump 0x15c ; case 0x1 0143 7800 |x | Jump 0x144 ; case 0x2 0144 4800 |H | Short_Literal 0x0 0145 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0146 00db | | Load_Top At_Offset_3 0147 e00e | | Load 0x0,0xe 0148 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0149 e00e | | Load 0x0,0xe 014a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 014b 0f1d | | Execute_Immediate Equal,0x1d 014c 680d |h | Jump_Zero 0x15a 014d e405 | | Load 0x2,0x5 014e 4800 |H | Short_Literal 0x0 014f 0092 022d | -| Action Push_String_Extended,0x22d ; "<ALL_WORLDS>" 0151 4801 |H | Short_Literal 0x1 0152 e7ff | | Load 0x3,-0x1 0153 e002 | | Load 0x0,0x2 0154 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0155 e002 | | Load 0x0,0x2 0156 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0157 c405 | | Store 0x2,0x5 0158 4801 |H | Short_Literal 0x1 0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015a 4800 |H | Short_Literal 0x0 015b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015c 8602 | | Call 0x3,0x2 015d 0831 | 1 | Execute_Immediate Raise,0x31 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 4603 |F | Jump_Case 0x4 0165 7809 |x | Jump 0x16f ; case 0x0 0166 782f |x/ | Jump 0x196 ; case 0x1 0167 7847 |xG | Jump 0x1af ; case 0x2 0168 7800 |x | Jump 0x169 ; case 0x3 0169 00db | | Load_Top At_Offset_3 016a e00f | | Load 0x0,0xf 016b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016c e002 | | Load 0x0,0x2 016d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 016e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016f 00db | | Load_Top At_Offset_3 0170 e002 | | Load 0x0,0x2 0171 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0172 4602 |F | Jump_Case 0x3 0173 7805 |x | Jump 0x179 ; case 0x0 0174 7811 |x | Jump 0x186 ; case 0x1 0175 7800 |x | Jump 0x176 ; case 0x2 0176 0092 022e | .| Action Push_String_Extended,0x22e ; "*** unexpected element fed to column_image ***" 0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0179 00db | | Load_Top At_Offset_3 017a e00f | | Load 0x0,0xf 017b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017c e002 | | Load 0x0,0x2 017d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 017e 0092 022f | /| Action Push_String_Extended,0x22f ; "." 0180 01cc | | Execute Vector,Catenate 0181 e7fe | | Load 0x3,-0x2 0182 e002 | | Load 0x0,0x2 0183 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0184 01cc | | Execute Vector,Catenate 0185 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0186 4801 |H | Short_Literal 0x1 0187 e7fe | | Load 0x3,-0x2 0188 e002 | | Load 0x0,0x2 0189 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 018a e00f | | Load 0x0,0xf 018b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018c e002 | | Load 0x0,0x2 018d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 018e 0092 022f | /| Action Push_String_Extended,0x22f ; "." 0190 01cc | | Execute Vector,Catenate 0191 e7fe | | Load 0x3,-0x2 0192 e002 | | Load 0x0,0x2 0193 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0194 01cc | | Execute Vector,Catenate 0195 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0196 00db | | Load_Top At_Offset_3 0197 e002 | | Load 0x0,0x2 0198 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0199 4602 |F | Jump_Case 0x3 019a 7804 |x | Jump 0x19f ; case 0x0 019b 7806 |x | Jump 0x1a2 ; case 0x1 019c 7800 |x | Jump 0x19d ; case 0x2 019d 00ea | | Load_Encached Null_String_Cache 019e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019f 0092 0230 | 0| Action Push_String_Extended,0x230 ; "Definition" 01a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a2 00db | | Load_Top At_Offset_3 01a3 e002 | | Load 0x0,0x2 01a4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a5 e002 | | Load 0x0,0x2 01a6 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01a7 0f03 | | Execute_Immediate Equal,0x3 01a8 6803 |h | Jump_Zero 0x1ac 01a9 0092 0231 | 1| Action Push_String_Extended,0x231 ; "Raised" 01ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ac 0092 0232 | 2| Action Push_String_Extended,0x232 ; "Handled" 01ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01af 00db | | Load_Top At_Offset_3 01b0 e002 | | Load 0x0,0x2 01b1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01b2 700a |p | Jump_Nonzero 0x1bd 01b3 00db | | Load_Top At_Offset_3 01b4 e00e | | Load 0x0,0xe 01b5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01b6 6803 |h | Jump_Zero 0x1ba 01b7 0092 0233 | 3| Action Push_String_Extended,0x233 ; "Yes" 01b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ba 0092 0234 | 4| Action Push_String_Extended,0x234 ; "No" 01bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01bd 00ea | | Load_Encached Null_String_Cache 01be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 4603 |F | Jump_Case 0x4 01c5 7806 |x | Jump 0x1cc ; case 0x0 01c6 7808 |x | Jump 0x1cf ; case 0x1 01c7 780a |x | Jump 0x1d2 ; case 0x2 01c8 7800 |x | Jump 0x1c9 ; case 0x3 01c9 0092 0235 | 5| Action Push_String_Extended,0x235 ; "The name of the Ada unit containing the declaration or reference." 01cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01cc 0092 0236 | 6| Action Push_String_Extended,0x236 ; "The full ada name of the exception." 01ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01cf 0092 0237 | 7| Action Push_String_Extended,0x237 ; "The type of exception reference or declaration." 01d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d2 0092 0238 | 8| Action Push_String_Extended,0x238 ; "Indicates if this exception is declared in a package spec." 01d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e002 | | Load 0x0,0x2 01dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01dd c7fd | | Store 0x3,-0x3 01de e002 | | Load 0x0,0x2 01df 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01e0 c7fc | | Store 0x3,-0x4 01e1 00db | | Load_Top At_Offset_3 01e2 e002 | | Load 0x0,0x2 01e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01e4 4602 |F | Jump_Case 0x3 01e5 780d |x | Jump 0x1f3 ; case 0x0 01e6 7801 |x | Jump 0x1e8 ; case 0x1 01e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x2 01e8 00da | | Load_Top At_Offset_2 01e9 6803 |h | Jump_Zero 0x1ed 01ea 00db | | Load_Top At_Offset_3 01eb c7fd | | Store 0x3,-0x3 01ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ed 4801 |H | Short_Literal 0x1 01ee e7fe | | Load 0x3,-0x2 01ef e002 | | Load 0x0,0x2 01f0 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 01f1 c7fd | | Store 0x3,-0x3 01f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f3 00db | | Load_Top At_Offset_3 01f4 c7fd | | Store 0x3,-0x3 01f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e405 | | Load 0x2,0x5 01fc 00d8 | | Load_Top At_Offset_0 01fd 0120 | | Execute Any,Is_Value 01fe 7002 |p | Jump_Nonzero 0x201 01ff 00d8 | | Load_Top At_Offset_0 0200 011e | | Execute Any,Convert 0201 00ca | | Action Exit_Nullary_Function 0202 0000 0000 | | .BLANK 0000[0x6] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0213 | | .CONST 0x0213 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0002 | | .CONST 0x0002 ; Number of locals 020b INIT_0208: 020b e002 | | Load 0x0,0x2 020c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 020d 02c7 | | Declare_Variable Any 020e 4801 |H | Short_Literal 0x1 020f e7ff | | Load 0x3,-0x1 0210 e002 | | Load 0x0,0x2 0211 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0212 a802 | | Store_Unchecked 0x4,0x2 0213 BODY_0208: 0213 00d8 | | Load_Top At_Offset_0 0214 e00e | | Load 0x0,0xe 0215 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0216 0f1d | | Execute_Immediate Equal,0x1d 0217 680a |h | Jump_Zero 0x222 0218 00d8 | | Load_Top At_Offset_0 0219 e403 | | Load 0x2,0x3 021a 820f | | Call 0x1,0xf 021b 6803 |h | Jump_Zero 0x21f 021c 4800 |H | Short_Literal 0x0 021d 00cb | | Action Pop_Block_With_Result 021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021f 4801 |H | Short_Literal 0x1 0220 00cb | | Action Pop_Block_With_Result 0221 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0222 4800 |H | Short_Literal 0x0 0223 00cb | | Action Pop_Block_With_Result 0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0225 ; -------------------------------------------------------------------------------------- 0225 ; STRING TABLE 0225 ; -------------------------------------------------------------------------------------- 0225 002a | * | .STRTAB 0x002a->0x023a ; "EXCEPTION_NAME" 0226 0036 | 6 | .STRTAB 0x0036->0x0241 ; "TYPE_OF_REF" 0227 003f | ? | .STRTAB 0x003f->0x0246 ; "VISIBLE" 0228 0044 | D | .STRTAB 0x0044->0x024a ; "UNIT_NAME" 0229 004b | K | .STRTAB 0x004b->0x024e ; "Exceptions Information" 022a 005f | _ | .STRTAB 0x005f->0x0259 ; " is not a valid pathname" 022b 0075 | u | .STRTAB 0x0075->0x0265 ; "Problem creating object " 022c 008b | | .STRTAB 0x008b->0x0271 ; ". " 022d 008c | | .STRTAB 0x008c->0x0273 ; "<ALL_WORLDS>" 022e 0096 | | .STRTAB 0x0096->0x0279 ; "*** unexpected element fed to column_image ***" 022f 00c2 | | .STRTAB 0x00c2->0x0290 ; "." 0230 00c1 | | .STRTAB 0x00c1->0x0290 ; "Definition" 0231 00c9 | | .STRTAB 0x00c9->0x0295 ; "Raised" 0232 00cd | | .STRTAB 0x00cd->0x0298 ; "Handled" 0233 00d2 | | .STRTAB 0x00d2->0x029c ; "Yes" 0234 00d3 | | .STRTAB 0x00d3->0x029d ; "No" 0235 00d3 | | .STRTAB 0x00d3->0x029e ; "The name of the Ada unit containing the declaration or reference." 0236 0112 | | .STRTAB 0x0112->0x02bf ; "The full ada name of the exception." 0237 0133 | 3 | .STRTAB 0x0133->0x02d0 ; "The type of exception reference or declaration." 0238 0160 | ` | .STRTAB 0x0160->0x02e8 ; "Indicates if this exception is declared in a package spec." 0239 0198 | | .STREND 0x0198->0x0305 023a 4558 4345 |EXCE| .STRTAB_STRINGS 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; Debug Table 0308 ; -------------------------------------------------------------------------------------- 0308 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f4b,0x0000,0x0001,0x000d 030e 000b 0342 | B| .DBG4T 0x000b,0x0342,0x8000,0x0000 0312 0010 0346 | F| .DBG4T 0x0010,0x0346,0x8000,0x0000 0316 001b 034b | K| .DBG4T 0x001b,0x034b,0x0001,0x4000 031a 00bb 0366 | f| .DBG4T 0x00bb,0x0366,0x0001,0x4000 031e 00fb 0376 | v| .DBG4T 0x00fb,0x0376,0x0002,0x0000 0322 010b 0000 | | .DBG4T 0x010b,0x0000,0x0005,0x0000 0326 0133 0379 | 3 y| .DBG4T 0x0133,0x0379,0x0002,0x0000 032a 013b 037d | ; }| .DBG4T 0x013b,0x037d,0x0002,0x4000 032e 0163 038d | c | .DBG4T 0x0163,0x038d,0x0002,0x4000 0332 01c3 03b1 | | .DBG4T 0x01c3,0x03b1,0x0002,0x4000 0336 01db 03bd | | .DBG4T 0x01db,0x03bd,0x0001,0x4000 033a 01fb 03cd | | .DBG4T 0x01fb,0x03cd,0x0002,0x0000 033e 020b 03d0 | | .DBG4T 0x020b,0x03d0,0x0004,0x0000 0342 ; -------------------------------------------------------------------------------------- 0342 ; Debug chain 0342 ; -------------------------------------------------------------------------------------- 0342 0002 0000 | | .DBGLEN 0x0002,0x0000 0344 000b 000d | | .DBGLNO 0x000b,0x000d 0346 ; -------------------------------------------------------------------------------------- 0346 ; Debug chain 0346 ; -------------------------------------------------------------------------------------- 0346 0003 0000 | | .DBGLEN 0x0003,0x0000 0348 0010 0012 | | .DBGLNO 0x0010,0x0012,0x0014 034b ; -------------------------------------------------------------------------------------- 034b ; Debug chain 034b ; -------------------------------------------------------------------------------------- 034b 000b 0007 | | .DBGLEN 0x000b,0x0007 034d 001b 0028 | (| .DBGLNO 0x001b,0x0028,0x0035,0x003a,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x0068,0x006d,0x0079,0x0082,0x0088,0x008e,0x0092 035f 0001 0002 | | .XXX[0x7] 0361 0004 0005 | | 0363 0003 0006 | | 0365 0007 | | 0366 ; -------------------------------------------------------------------------------------- 0366 ; Debug chain 0366 ; -------------------------------------------------------------------------------------- 0366 0002 0006 | | .DBGLEN 0x0002,0x0006 0368 00bb 00c0 | | .DBGLNO 0x00bb,0x00c0,0x00c5,0x00cb,0x00d2,0x00d7,0x00db,0x00e1 0370 0001 0002 | | .XXX[0x6] 0372 0004 0005 | | 0374 0006 0003 | | 0376 ; -------------------------------------------------------------------------------------- 0376 ; Debug chain 0376 ; -------------------------------------------------------------------------------------- 0376 0000 0001 | | .DBGLEN 0x0000,0x0001 0378 00fb | | .DBGLNO 0x00fb 0379 ; -------------------------------------------------------------------------------------- 0379 ; Debug chain 0379 ; -------------------------------------------------------------------------------------- 0379 0000 0002 | | .DBGLEN 0x0000,0x0002 037b 0133 0135 | 3 5| .DBGLNO 0x0133,0x0135 037d ; -------------------------------------------------------------------------------------- 037d ; Debug chain 037d ; -------------------------------------------------------------------------------------- 037d 0000 0007 | | .DBGLEN 0x0000,0x0007 037f 013d 0144 | = D| .DBGLNO 0x013d,0x0144,0x0146,0x014d,0x0158,0x015a,0x015c 0386 0001 0007 | | .XXX[0x7] 0388 0002 0003 | | 038a 0004 0005 | | 038c 0006 | | 038d ; -------------------------------------------------------------------------------------- 038d ; Debug chain 038d ; -------------------------------------------------------------------------------------- 038d 0000 0011 | | .DBGLEN 0x0000,0x0011 038f 0163 0169 | c i| .DBGLNO 0x0163,0x0169,0x016f,0x0176,0x0179,0x0186,0x0196,0x019d,0x019f,0x01a2,0x01a9,0x01ac,0x01af,0x01b3,0x01b7,0x01ba,0x01bd 03a0 0001 0011 | | .XXX[0x11] 03a2 0002 0005 | | 03a4 0003 0004 | | 03a6 0006 000b | | 03a8 0007 0008 | | 03aa 0009 000a | | 03ac 000c 000d | | 03ae 000e 000f | | 03b0 0010 | | 03b1 ; -------------------------------------------------------------------------------------- 03b1 ; Debug chain 03b1 ; -------------------------------------------------------------------------------------- 03b1 0000 0005 | | .DBGLEN 0x0000,0x0005 03b3 01c3 01c9 | | .DBGLNO 0x01c3,0x01c9,0x01cc,0x01cf,0x01d2 03b8 0001 0005 | | .XXX[0x5] 03ba 0002 0003 | | 03bc 0004 | | 03bd ; -------------------------------------------------------------------------------------- 03bd ; Debug chain 03bd ; -------------------------------------------------------------------------------------- 03bd 0000 0007 | | .DBGLEN 0x0000,0x0007 03bf 01db 01de | | .DBGLNO 0x01db,0x01de,0x01e1,0x01e8,0x01ea,0x01ed,0x01f3 03c6 0001 0002 | | .XXX[0x7] 03c8 0003 0005 | | 03ca 0007 0006 | | 03cc 0004 | | 03cd ; -------------------------------------------------------------------------------------- 03cd ; Debug chain 03cd ; -------------------------------------------------------------------------------------- 03cd 0000 0001 | | .DBGLEN 0x0000,0x0001 03cf 01fb | | .DBGLNO 0x01fb 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; Debug chain 03d0 ; -------------------------------------------------------------------------------------- 03d0 0001 0005 | | .DBGLEN 0x0001,0x0005 03d2 020b 0213 | | .DBGLNO 0x020b,0x0213,0x0218,0x021c,0x021f,0x0222 03d8 0000 0000 | | .BLANK 0000[0x28]