|
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 0260 | ` | .CONST 0x0260 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0011 00c7 | | Action Elaborate_Subprogram 0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 004f | O | .CONST 0x004f ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0012 | | .CONST 0x0012 ; 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 4800 |H | Short_Literal 0x0 0029 4803 |H | Short_Literal 0x3 002a 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 002c 03fd | | Declare_Type Discrete,Defined 002d 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 002f 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0031 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0033 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 0035 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0037 a002 | | Store_Unchecked 0x0,0x2 0038 00c6 | | Action Check_Subprogram_Elaborated 0039 4805 |H | Short_Literal 0x5 003a 4802 |H | Short_Literal 0x2 003b 0099 | | Action Reference_Dynamic 003c e403 | | Load 0x2,0x3 003d 4804 |H | Short_Literal 0x4 003e 4802 |H | Short_Literal 0x2 003f 0099 | | Action Reference_Dynamic 0040 4806 |H | Short_Literal 0x6 0041 4802 |H | Short_Literal 0x2 0042 0099 | | Action Reference_Dynamic 0043 4807 |H | Short_Literal 0x7 0044 4802 |H | Short_Literal 0x2 0045 0099 | | Action Reference_Dynamic 0046 4808 |H | Short_Literal 0x8 0047 4802 |H | Short_Literal 0x2 0048 0099 | | Action Reference_Dynamic 0049 0092 01cc | | Action Push_String_Extended,0x1cc ; "Other Clause Info" 004b e003 | | Load 0x0,0x3 004c e004 | | Load 0x0,0x4 004d 4812 |H | Short_Literal 0x12 004e 0007 | | Action Break_Optional 004f BODY_0018: 004f e402 | | Load 0x2,0x2 0050 e001 | | Load 0x0,0x1 0051 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0052 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0053 680a |h | Jump_Zero 0x5e 0054 e005 | | Load 0x0,0x5 0055 180e | | Execute Package,Field_Execute,Field_Number 0xe 0056 4807 |H | Short_Literal 0x7 0057 e5ff | | Load 0x2,-0x1 0058 0092 01cd | | Action Push_String_Extended,0x1cd ; " is not a valid pathname" 005a 01cc | | Execute Vector,Catenate 005b e006 | | Load 0x0,0x6 005c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 005e e5fd | | Load 0x2,-0x3 005f e402 | | Load 0x2,0x2 0060 e5fe | | Load 0x2,-0x2 0061 4809 |H | Short_Literal 0x9 0062 4802 |H | Short_Literal 0x2 0063 0099 | | Action Reference_Dynamic 0064 e40a | | Load 0x2,0xa 0065 480b |H | Short_Literal 0xb 0066 4802 |H | Short_Literal 0x2 0067 0099 | | Action Reference_Dynamic 0068 480c |H | Short_Literal 0xc 0069 4802 |H | Short_Literal 0x2 006a 0099 | | Action Reference_Dynamic 006b 480d |H | Short_Literal 0xd 006c 4802 |H | Short_Literal 0x2 006d 0099 | | Action Reference_Dynamic 006e 480e |H | Short_Literal 0xe 006f 4802 |H | Short_Literal 0x2 0070 0099 | | Action Reference_Dynamic 0071 e40f | | Load 0x2,0xf 0072 4810 |H | Short_Literal 0x10 0073 4802 |H | Short_Literal 0x2 0074 0099 | | Action Reference_Dynamic 0075 8002 | | Call 0x0,0x2 0076 c402 | | Store 0x2,0x2 0077 c5fd | | Store 0x2,-0x3 0078 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008d | | .CONST 0x008d ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0003 | | .CONST 0x0003 ; Number of locals 0083 INIT_0080: 0083 e007 | | Load 0x0,0x7 0084 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0085 02c7 | | Declare_Variable Any 0086 00d8 | | Load_Top At_Offset_0 0087 1c00 | | Execute_Immediate Run_Utility,0x0 0088 e008 | | Load 0x0,0x8 0089 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008a 02c7 | | Declare_Variable Any 008b 00d8 | | Load_Top At_Offset_0 008c 1c00 | | Execute_Immediate Run_Utility,0x0 008d BODY_0080: 008d 00d9 | | Load_Top At_Offset_1 008e 00d9 | | Load_Top At_Offset_1 008f e5fe | | Load 0x2,-0x2 0090 8009 | | Call 0x0,0x9 0091 c403 | | Store 0x2,0x3 0092 c402 | | Store 0x2,0x2 0093 00d8 | | Load_Top At_Offset_0 0094 e008 | | Load 0x0,0x8 0095 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0096 4802 |H | Short_Literal 0x2 0097 4803 |H | Short_Literal 0x3 0098 0262 | b | Execute Discrete,In_Range 0099 700f |p | Jump_Nonzero 0xa9 009a 00d9 | | Load_Top At_Offset_1 009b e5fd | | Load 0x2,-0x3 009c e5ff | | Load 0x2,-0x1 009d 820d | | Call 0x1,0xd 009e c402 | | Store 0x2,0x2 009f 00d9 | | Load_Top At_Offset_1 00a0 e007 | | Load 0x0,0x7 00a1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00a2 c402 | | Store 0x2,0x2 00a3 4801 |H | Short_Literal 0x1 00a4 4800 |H | Short_Literal 0x0 00a5 e5fe | | Load 0x2,-0x2 00a6 e00a | | Load 0x0,0xa 00a7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a9 e005 | | Load 0x0,0x5 00aa 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ab 4807 |H | Short_Literal 0x7 00ac 0092 01ce | | Action Push_String_Extended,0x1ce ; "Problem creating object " 00ae e5fe | | Load 0x2,-0x2 00af 01cc | | Execute Vector,Catenate 00b0 0092 01cf | | Action Push_String_Extended,0x1cf ; ". " 00b2 01cc | | Execute Vector,Catenate 00b3 00db | | Load_Top At_Offset_3 00b4 e008 | | Load 0x0,0x8 00b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b6 01cc | | Execute Vector,Catenate 00b7 e006 | | Load 0x0,0x6 00b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4607 |F | Jump_Case 0x8 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00c5 7806 |x | Jump 0xcc ; case 0x1 00c6 7809 |x | Jump 0xd0 ; case 0x2 00c7 780d |x | Jump 0xd5 ; case 0x3 00c8 7810 |x | Jump 0xd9 ; case 0x4 00c9 7811 |x | Jump 0xdb ; case 0x5 00ca 7812 |x | Jump 0xdd ; case 0x6 00cb 7815 |x | Jump 0xe1 ; case 0x7 00cc 00da | | Load_Top At_Offset_2 00cd 0091 01c8 | | Action Push_String_Extended_Indexed,0x1c8 ; "PGM_UNIT" 00cf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d0 00db | | Load_Top At_Offset_3 00d1 00db | | Load_Top At_Offset_3 00d2 00e0 | | Load_Encached Standard_Cache 00d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d5 00da | | Load_Top At_Offset_2 00d6 00e0 | | Load_Encached Standard_Cache 00d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d9 00db | | Load_Top At_Offset_3 00da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00db 00db | | Load_Top At_Offset_3 00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dd e403 | | Load 0x2,0x3 00de 00dc | | Load_Top At_Offset_4 00df 0267 | g | Execute Discrete,Predecessor 00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e1 e403 | | Load 0x2,0x3 00e2 00dc | | Load_Top At_Offset_4 00e3 0268 | h | Execute Discrete,Successor 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 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 00da | | Load_Top At_Offset_2 00ec 0f02 | | Execute_Immediate Equal,0x2 00ed 7002 |p | Jump_Nonzero 0xf0 00ee 4800 |H | Short_Literal 0x0 00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f0 4801 |H | Short_Literal 0x1 00f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 00fc e00b | | Load 0x0,0xb 00fd 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00fe 0f02 | | Execute_Immediate Equal,0x2 00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 4603 |F | Jump_Case 0x4 0105 7805 |x | Jump 0x10b ; case 0x0 0106 780c |x | Jump 0x113 ; case 0x1 0107 7880 |x | Jump 0x188 ; case 0x2 0108 7800 |x | Jump 0x109 ; case 0x3 0109 00ea | | Load_Encached Null_String_Cache 010a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010b 00db | | Load_Top At_Offset_3 010c e00c | | Load 0x0,0xc 010d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 010e e00c | | Load 0x0,0xc 010f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0110 e00d | | Load 0x0,0xd 0111 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0112 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0113 00db | | Load_Top At_Offset_3 0114 e00e | | Load 0x0,0xe 0115 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0116 e00e | | Load 0x0,0xe 0117 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0118 4606 |F | Jump_Case 0x7 0119 7806 |x | Jump 0x120 ; case 0x0 011a 7805 |x | Jump 0x120 ; case 0x1 011b 782f |x/ | Jump 0x14b ; case 0x2 011c 7805 |x | Jump 0x122 ; case 0x3 011d 7802 |x | Jump 0x120 ; case 0x4 011e 7801 |x | Jump 0x120 ; case 0x5 011f 7800 |x | Jump 0x120 ; case 0x6 0120 00ea | | Load_Encached Null_String_Cache 0121 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0122 00db | | Load_Top At_Offset_3 0123 e00e | | Load 0x0,0xe 0124 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0125 e00f | | Load 0x0,0xf 0126 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0127 4613 |F | Jump_Case 0x14 0128 7813 |x | Jump 0x13c ; case 0x0 0129 7812 |x | Jump 0x13c ; case 0x1 012a 7811 |x | Jump 0x13c ; case 0x2 012b 7810 |x | Jump 0x13c ; case 0x3 012c 780f |x | Jump 0x13c ; case 0x4 012d 780e |x | Jump 0x13c ; case 0x5 012e 780d |x | Jump 0x13c ; case 0x6 012f 780c |x | Jump 0x13c ; case 0x7 0130 780b |x | Jump 0x13c ; case 0x8 0131 780a |x | Jump 0x13c ; case 0x9 0132 7809 |x | Jump 0x13c ; case 0xa 0133 7808 |x | Jump 0x13c ; case 0xb 0134 7809 |x | Jump 0x13e ; case 0xc 0135 7806 |x | Jump 0x13c ; case 0xd 0136 7811 |x | Jump 0x148 ; case 0xe 0137 7804 |x | Jump 0x13c ; case 0xf 0138 7803 |x | Jump 0x13c ; case 0x10 0139 7802 |x | Jump 0x13c ; case 0x11 013a 7801 |x | Jump 0x13c ; case 0x12 013b 7800 |x | Jump 0x13c ; case 0x13 013c 00ea | | Load_Encached Null_String_Cache 013d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013e 00db | | Load_Top At_Offset_3 013f e00e | | Load 0x0,0xe 0140 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0141 e00f | | Load 0x0,0xf 0142 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0143 e00f | | Load 0x0,0xf 0144 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0145 011c | | Execute Any,Convert_Unchecked 0146 1c01 | | Execute_Immediate Run_Utility,0x1 0147 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0148 0092 01d0 | | Action Push_String_Extended,0x1d0 ; "A Exception Handler" 014a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014b 00db | | Load_Top At_Offset_3 014c e00e | | Load 0x0,0xe 014d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 014e e00d | | Load 0x0,0xd 014f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0150 4626 |F& | Jump_Case 0x27 0151 7833 |x3 | Jump 0x185 ; case 0x0 0152 7832 |x2 | Jump 0x185 ; case 0x1 0153 7824 |x$ | Jump 0x178 ; case 0x2 0154 7823 |x# | Jump 0x178 ; case 0x3 0155 7822 |x" | Jump 0x178 ; case 0x4 0156 782e |x. | Jump 0x185 ; case 0x5 0157 7820 |x | Jump 0x178 ; case 0x6 0158 782c |x, | Jump 0x185 ; case 0x7 0159 781e |x | Jump 0x178 ; case 0x8 015a 7827 |x' | Jump 0x182 ; case 0x9 015b 781c |x | Jump 0x178 ; case 0xa 015c 7825 |x% | Jump 0x182 ; case 0xb 015d 781a |x | Jump 0x178 ; case 0xc 015e 7823 |x# | Jump 0x182 ; case 0xd 015f 7818 |x | Jump 0x178 ; case 0xe 0160 7817 |x | Jump 0x178 ; case 0xf 0161 7816 |x | Jump 0x178 ; case 0x10 0162 7815 |x | Jump 0x178 ; case 0x11 0163 7814 |x | Jump 0x178 ; case 0x12 0164 7813 |x | Jump 0x178 ; case 0x13 0165 7812 |x | Jump 0x178 ; case 0x14 0166 7811 |x | Jump 0x178 ; case 0x15 0167 7810 |x | Jump 0x178 ; case 0x16 0168 780f |x | Jump 0x178 ; case 0x17 0169 780e |x | Jump 0x178 ; case 0x18 016a 780d |x | Jump 0x178 ; case 0x19 016b 780c |x | Jump 0x178 ; case 0x1a 016c 780b |x | Jump 0x178 ; case 0x1b 016d 780a |x | Jump 0x178 ; case 0x1c 016e 7809 |x | Jump 0x178 ; case 0x1d 016f 7808 |x | Jump 0x178 ; case 0x1e 0170 7807 |x | Jump 0x178 ; case 0x1f 0171 7806 |x | Jump 0x178 ; case 0x20 0172 7805 |x | Jump 0x178 ; case 0x21 0173 7804 |x | Jump 0x178 ; case 0x22 0174 7803 |x | Jump 0x178 ; case 0x23 0175 7802 |x | Jump 0x178 ; case 0x24 0176 7801 |x | Jump 0x178 ; case 0x25 0177 7800 |x | Jump 0x178 ; case 0x26 0178 00db | | Load_Top At_Offset_3 0179 e00e | | Load 0x0,0xe 017a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017b e00d | | Load 0x0,0xd 017c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 017d e00d | | Load 0x0,0xd 017e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 017f 011c | | Execute Any,Convert_Unchecked 0180 1c01 | | Execute_Immediate Run_Utility,0x1 0181 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0182 0092 01d0 | | Action Push_String_Extended,0x1d0 ; "A Exception Handler" 0184 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0185 0092 01d1 | | Action Push_String_Extended,0x1d1 ; "aggregate" 0187 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0188 00db | | Load_Top At_Offset_3 0189 e00e | | Load 0x0,0xe 018a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018b 00e0 | | Load_Encached Standard_Cache 018c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 018d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 4603 |F | Jump_Case 0x4 0195 7806 |x | Jump 0x19c ; case 0x0 0196 7808 |x | Jump 0x19f ; case 0x1 0197 780a |x | Jump 0x1a2 ; case 0x2 0198 7800 |x | Jump 0x199 ; case 0x3 0199 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "Values which drive the Others Clause" 019b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019c 0092 01d3 | | Action Push_String_Extended,0x1d3 ; "Parent unit containing the others clause" 019e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019f 0092 01d4 | | Action Push_String_Extended,0x1d4 ; "Where others clause is used" 01a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a2 0092 01d5 | | Action Push_String_Extended,0x1d5 ; "line number of the Others Clause" 01a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a5 0000 0000 | | .XXX[0x3] 01a7 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e00e | | Load 0x0,0xe 01ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ad c7fd | | Store 0x3,-0x3 01ae e00e | | Load 0x0,0xe 01af 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01b0 c7fc | | Store 0x3,-0x4 01b1 00da | | Load_Top At_Offset_2 01b2 4603 |F | Jump_Case 0x4 01b3 7807 |x | Jump 0x1bb ; case 0x0 01b4 780b |x | Jump 0x1c0 ; case 0x1 01b5 780f |x | Jump 0x1c5 ; case 0x2 01b6 7800 |x | Jump 0x1b7 ; case 0x3 01b7 e00e | | Load 0x0,0xe 01b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b9 c7fd | | Store 0x3,-0x3 01ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bb 00db | | Load_Top At_Offset_3 01bc e00c | | Load 0x0,0xc 01bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01be c7fd | | Store 0x3,-0x3 01bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c0 00db | | Load_Top At_Offset_3 01c1 e00e | | Load 0x0,0xe 01c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c3 c7fd | | Store 0x3,-0x3 01c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c5 00db | | Load_Top At_Offset_3 01c6 c7fd | | Store 0x3,-0x3 01c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; STRING TABLE 01c8 ; -------------------------------------------------------------------------------------- 01c8 001e | | .STRTAB 0x001e->0x01d7 ; "PGM_UNIT" 01c9 0024 | $ | .STRTAB 0x0024->0x01db ; "OTHERS_TYPE" 01ca 002d | - | .STRTAB 0x002d->0x01e0 ; "LINE_NUMBER" 01cb 0036 | 6 | .STRTAB 0x0036->0x01e6 ; "VALUES" 01cc 003a | : | .STRTAB 0x003a->0x01e9 ; "Other Clause Info" 01cd 0049 | I | .STRTAB 0x0049->0x01f1 ; " is not a valid pathname" 01ce 005f | _ | .STRTAB 0x005f->0x01fd ; "Problem creating object " 01cf 0075 | u | .STRTAB 0x0075->0x0209 ; ". " 01d0 0076 | v | .STRTAB 0x0076->0x020b ; "A Exception Handler" 01d1 0087 | | .STRTAB 0x0087->0x0214 ; "aggregate" 01d2 008e | | .STRTAB 0x008e->0x0219 ; "Values which drive the Others Clause" 01d3 00b0 | | .STRTAB 0x00b0->0x022b ; "Parent unit containing the others clause" 01d4 00d6 | | .STRTAB 0x00d6->0x023f ; "Where others clause is used" 01d5 00ef | | .STRTAB 0x00ef->0x024c ; "line number of the Others Clause" 01d6 010d | | .STREND 0x010d->0x025c 01d7 5047 4d5f |PGM_| .STRTAB_STRINGS 025d 0000 0000 | | .XXX[0x3] 025f 0000 | | 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f65,0x0000,0x0001,0x000a 0266 000b 028e | | .DBG4T 0x000b,0x028e,0x8000,0x0000 026a 0010 0292 | | .DBG4T 0x0010,0x0292,0x8000,0x0000 026e 001b 0296 | | .DBG4T 0x001b,0x0296,0x0001,0x0000 0272 0083 02a3 | | .DBG4T 0x0083,0x02a3,0x0001,0x4000 0276 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0005,0x0000 027a 00eb 02b3 | | .DBG4T 0x00eb,0x02b3,0x0002,0x4000 027e 00fb 02bb | | .DBG4T 0x00fb,0x02bb,0x0002,0x0000 0282 0103 02be | | .DBG4T 0x0103,0x02be,0x0002,0x4000 0286 0193 02dc | | .DBG4T 0x0193,0x02dc,0x0002,0x4000 028a 01ab 02e8 | | .DBG4T 0x01ab,0x02e8,0x0001,0x4000 028e ; -------------------------------------------------------------------------------------- 028e ; Debug chain 028e ; -------------------------------------------------------------------------------------- 028e 0002 0000 | | .DBGLEN 0x0002,0x0000 0290 000b 000d | | .DBGLNO 0x000b,0x000d 0292 ; -------------------------------------------------------------------------------------- 0292 ; Debug chain 0292 ; -------------------------------------------------------------------------------------- 0292 0002 0000 | | .DBGLEN 0x0002,0x0000 0294 0010 0012 | | .DBGLNO 0x0010,0x0012 0296 ; -------------------------------------------------------------------------------------- 0296 ; Debug chain 0296 ; -------------------------------------------------------------------------------------- 0296 0008 0003 | | .DBGLEN 0x0008,0x0003 0298 001b 0028 | (| .DBGLNO 0x001b,0x0028,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x004f,0x0054,0x005e 02a3 ; -------------------------------------------------------------------------------------- 02a3 ; Debug chain 02a3 ; -------------------------------------------------------------------------------------- 02a3 0002 0006 | | .DBGLEN 0x0002,0x0006 02a5 0083 0088 | | .DBGLNO 0x0083,0x0088,0x008d,0x0093,0x009a,0x009f,0x00a3,0x00a9 02ad 0001 0002 | | .XXX[0x6] 02af 0004 0005 | | 02b1 0006 0003 | | 02b3 ; -------------------------------------------------------------------------------------- 02b3 ; Debug chain 02b3 ; -------------------------------------------------------------------------------------- 02b3 0000 0003 | | .DBGLEN 0x0000,0x0003 02b5 00eb 00ee | | .DBGLNO 0x00eb,0x00ee,0x00f0 02b8 0001 0003 | | .XXX[0x3] 02ba 0002 | | 02bb ; -------------------------------------------------------------------------------------- 02bb ; Debug chain 02bb ; -------------------------------------------------------------------------------------- 02bb 0000 0001 | | .DBGLEN 0x0000,0x0001 02bd 00fb | | .DBGLNO 0x00fb 02be ; -------------------------------------------------------------------------------------- 02be ; Debug chain 02be ; -------------------------------------------------------------------------------------- 02be 0000 000e | | .DBGLEN 0x0000,0x000e 02c0 0103 0109 | | .DBGLNO 0x0103,0x0109,0x010b,0x0113,0x0120,0x0122,0x013c,0x013e,0x0148,0x014b,0x0178,0x0182,0x0185,0x0188 02ce 0001 000f | | .XXX[0xe] 02d0 0002 0003 | | 02d2 000c 0004 | | 02d4 0007 0005 | | 02d6 0006 0008 | | 02d8 000b 0009 | | 02da 000a 000e | | 02dc ; -------------------------------------------------------------------------------------- 02dc ; Debug chain 02dc ; -------------------------------------------------------------------------------------- 02dc 0000 0005 | | .DBGLEN 0x0000,0x0005 02de 0193 0199 | | .DBGLNO 0x0193,0x0199,0x019c,0x019f,0x01a2 02e3 0001 0005 | | .XXX[0x5] 02e5 0002 0003 | | 02e7 0004 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug chain 02e8 ; -------------------------------------------------------------------------------------- 02e8 0000 0007 | | .DBGLEN 0x0000,0x0007 02ea 01ab 01ae | | .DBGLNO 0x01ab,0x01ae,0x01b1,0x01b7,0x01bb,0x01c0,0x01c5 02f1 0001 0002 | | .XXX[0x7] 02f3 0003 0007 | | 02f5 0004 0005 | | 02f7 0006 | | 02f8 0000 0000 | | .BLANK 0000[0x108]