|
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 02a0 | | .CONST 0x02a0 ; 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 4804 |H | Short_Literal 0x4 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 010b | | Declare_Subprogram INIT_0108,For_Call 0033 029f 012b | +| Declare_Subprogram INIT_0128,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 4807 |H | Short_Literal 0x7 0041 4802 |H | Short_Literal 0x2 0042 0099 | | Action Reference_Dynamic 0043 4806 |H | Short_Literal 0x6 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 0202 | | Action Push_String_Extended,0x202 ; "ALLOCATORS" 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 0203 | | Action Push_String_Extended,0x203 ; " 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 0092 0204 | | Action Push_String_Extended,0x204 ; "<PROFILE>" 0062 4809 |H | Short_Literal 0x9 0063 4802 |H | Short_Literal 0x2 0064 0099 | | Action Reference_Dynamic 0065 e40a | | Load 0x2,0xa 0066 480b |H | Short_Literal 0xb 0067 4802 |H | Short_Literal 0x2 0068 0099 | | Action Reference_Dynamic 0069 480c |H | Short_Literal 0xc 006a 4802 |H | Short_Literal 0x2 006b 0099 | | Action Reference_Dynamic 006c 480d |H | Short_Literal 0xd 006d 4802 |H | Short_Literal 0x2 006e 0099 | | Action Reference_Dynamic 006f 480e |H | Short_Literal 0xe 0070 4802 |H | Short_Literal 0x2 0071 0099 | | Action Reference_Dynamic 0072 e40f | | Load 0x2,0xf 0073 4810 |H | Short_Literal 0x10 0074 4802 |H | Short_Literal 0x2 0075 0099 | | Action Reference_Dynamic 0076 8002 | | Call 0x0,0x2 0077 c402 | | Store 0x2,0x2 0078 c5fd | | Store 0x2,-0x3 0079 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007a 0000 0000 | | .BLANK 0000[0x6] 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 0205 | | Action Push_String_Extended,0x205 ; "Problem creating object " 00ae e5fe | | Load 0x2,-0x2 00af 01cc | | Execute Vector,Catenate 00b0 0092 0206 | | Action Push_String_Extended,0x206 ; ". " 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 01fd | | Action Push_String_Extended_Indexed,0x1fd ; "SIZE" 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 6802 |h | Jump_Zero 0xef 00ed 4800 |H | Short_Literal 0x0 00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ef 4801 |H | Short_Literal 0x1 00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f1 0000 0000 | | .BLANK 0000[0x7] 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 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00fe 0f0f | | Execute_Immediate Equal,0xf 00ff 7002 |p | Jump_Nonzero 0x102 0100 4800 |H | Short_Literal 0x0 0101 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0102 4801 |H | Short_Literal 0x1 0103 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0104 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 010c 4604 |F | Jump_Case 0x5 010d 780a |x | Jump 0x118 ; case 0x0 010e 7806 |x | Jump 0x115 ; case 0x1 010f 780b |x | Jump 0x11b ; case 0x2 0110 780d |x | Jump 0x11e ; case 0x3 0111 7800 |x | Jump 0x112 ; case 0x4 0112 0092 0207 | | Action Push_String_Extended,0x207 ; "Type of the allocated object" 0114 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0115 0092 0208 | | Action Push_String_Extended,0x208 ; "Allocator" 0117 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0118 0092 0209 | | Action Push_String_Extended,0x209 ; "Size of the allocated type" 011a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011b 0092 020a | | Action Push_String_Extended,0x20a ; "Object holding the access value" 011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011e 0092 020b | | Action Push_String_Extended,0x20b ; "Allocation kind; whether a subtype or qualified allocation" 0120 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 013b | ; | .CONST 0x013b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0005 | | .CONST 0x0005 ; Number of locals 012b INIT_0128: 012b e00c | | Load 0x0,0xc 012c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012d e00d | | Load 0x0,0xd 012e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012f 02c7 | | Declare_Variable Any 0130 00d8 | | Load_Top At_Offset_0 0131 1c00 | | Execute_Immediate Run_Utility,0x0 0132 00e1 | | Load_Encached Boolean_Cache 0133 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0134 e00d | | Load 0x0,0xd 0135 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0136 02c7 | | Declare_Variable Any 0137 e7fe | | Load 0x3,-0x2 0138 e00d | | Load 0x0,0xd 0139 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013a a605 | | Store_Unchecked 0x3,0x5 013b BODY_0128: 013b e7ff | | Load 0x3,-0x1 013c 4604 |F | Jump_Case 0x5 013d 7821 |x! | Jump 0x15f ; case 0x0 013e 781c |x | Jump 0x15b ; case 0x1 013f 783c |x< | Jump 0x17c ; case 0x2 0140 785d |x] | Jump 0x19e ; case 0x3 0141 7800 |x | Jump 0x142 ; case 0x4 0142 e7fe | | Load 0x3,-0x2 0143 e00b | | Load 0x0,0xb 0144 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0145 680a |h | Jump_Zero 0x150 0146 e7fe | | Load 0x3,-0x2 0147 e00b | | Load 0x0,0xb 0148 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0149 e00b | | Load 0x0,0xb 014a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 014b e00e | | Load 0x0,0xe 014c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 014d e00e | | Load 0x0,0xe 014e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 014f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0150 4801 |H | Short_Literal 0x1 0151 e7fe | | Load 0x3,-0x2 0152 e00b | | Load 0x0,0xb 0153 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0154 e00d | | Load 0x0,0xd 0155 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0156 e00e | | Load 0x0,0xe 0157 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0158 e00e | | Load 0x0,0xe 0159 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 015a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015b e7fe | | Load 0x3,-0x2 015c e00d | | Load 0x0,0xd 015d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 015e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015f e7fe | | Load 0x3,-0x2 0160 e00b | | Load 0x0,0xb 0161 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0162 6807 |h | Jump_Zero 0x16a 0163 e7fe | | Load 0x3,-0x2 0164 e00b | | Load 0x0,0xb 0165 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0166 e00b | | Load 0x0,0xb 0167 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0168 c603 | | Store 0x3,0x3 0169 7804 |x | Jump 0x16e 016a e7fe | | Load 0x3,-0x2 016b e00b | | Load 0x0,0xb 016c 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 016d c603 | | Store 0x3,0x3 016e 00d9 | | Load_Top At_Offset_1 016f e00c | | Load 0x0,0xc 0170 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0171 4800 |H | Short_Literal 0x0 0172 e603 | | Load 0x3,0x3 0173 e00c | | Load 0x0,0xc 0174 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0175 c602 | | Store 0x3,0x2 0176 005a | Z | Store_Top Discrete,At_Offset_2 0177 00db | | Load_Top At_Offset_3 0178 09fd | | Execute_Immediate Binary_Scale,-0x3 0179 00e0 | | Load_Encached Standard_Cache 017a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 017b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017c 00d8 | | Load_Top At_Offset_0 017d e00d | | Load 0x0,0xd 017e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 017f 4606 |F | Jump_Case 0x7 0180 7806 |x | Jump 0x187 ; case 0x0 0181 7805 |x | Jump 0x187 ; case 0x1 0182 7807 |x | Jump 0x18a ; case 0x2 0183 780a |x | Jump 0x18e ; case 0x3 0184 7802 |x | Jump 0x187 ; case 0x4 0185 7801 |x | Jump 0x187 ; case 0x5 0186 7800 |x | Jump 0x187 ; case 0x6 0187 0092 020c | | Action Push_String_Extended,0x20c ; "???" 0189 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018a 00d8 | | Load_Top At_Offset_0 018b e00e | | Load 0x0,0xe 018c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 018d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018e 00d8 | | Load_Top At_Offset_0 018f e00f | | Load 0x0,0xf 0190 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0191 0f01 | | Execute_Immediate Equal,0x1 0192 7002 |p | Jump_Nonzero 0x195 0193 00ea | | Load_Encached Null_String_Cache 0194 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0195 4801 |H | Short_Literal 0x1 0196 00d9 | | Load_Top At_Offset_1 0197 e00f | | Load 0x0,0xf 0198 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0199 e00d | | Load 0x0,0xd 019a 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 019b e00e | | Load 0x0,0xe 019c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 019d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019e e7fe | | Load 0x3,-0x2 019f e00b | | Load 0x0,0xb 01a0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01a1 6803 |h | Jump_Zero 0x1a5 01a2 0092 020d | | Action Push_String_Extended,0x20d ; "qualified" 01a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a5 0092 020e | | Action Push_String_Extended,0x20e ; "subtype" 01a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b2 | | .CONST 0x01b2 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0002 | | .CONST 0x0002 ; Number of locals 01ab INIT_01a8: 01ab e00d | | Load 0x0,0xd 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 02c7 | | Declare_Variable Any 01ae e7fe | | Load 0x3,-0x2 01af e00d | | Load 0x0,0xd 01b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b1 a602 | | Store_Unchecked 0x3,0x2 01b2 BODY_01a8: 01b2 e00d | | Load 0x0,0xd 01b3 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01b4 c7fc | | Store 0x3,-0x4 01b5 00db | | Load_Top At_Offset_3 01b6 4604 |F | Jump_Case 0x5 01b7 7841 |xA | Jump 0x1f9 ; case 0x0 01b8 781a |x | Jump 0x1d3 ; case 0x1 01b9 781c |x | Jump 0x1d6 ; case 0x2 01ba 783e |x> | Jump 0x1f9 ; case 0x3 01bb 7800 |x | Jump 0x1bc ; case 0x4 01bc e7fe | | Load 0x3,-0x2 01bd e00b | | Load 0x0,0xb 01be 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01bf 6809 |h | Jump_Zero 0x1c9 01c0 e7fe | | Load 0x3,-0x2 01c1 e00b | | Load 0x0,0xb 01c2 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01c3 e00b | | Load 0x0,0xb 01c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c5 e00e | | Load 0x0,0xe 01c6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01c7 c7fd | | Store 0x3,-0x3 01c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c9 4801 |H | Short_Literal 0x1 01ca e7fe | | Load 0x3,-0x2 01cb e00b | | Load 0x0,0xb 01cc 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01cd e00d | | Load 0x0,0xd 01ce 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 01cf e00e | | Load 0x0,0xe 01d0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01d1 c7fd | | Store 0x3,-0x3 01d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d3 e7fe | | Load 0x3,-0x2 01d4 c7fd | | Store 0x3,-0x3 01d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d6 00d8 | | Load_Top At_Offset_0 01d7 e00d | | Load 0x0,0xd 01d8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01d9 4606 |F | Jump_Case 0x7 01da 7806 |x | Jump 0x1e1 ; case 0x0 01db 7805 |x | Jump 0x1e1 ; case 0x1 01dc 7819 |x | Jump 0x1f6 ; case 0x2 01dd 7807 |x | Jump 0x1e5 ; case 0x3 01de 7802 |x | Jump 0x1e1 ; case 0x4 01df 7801 |x | Jump 0x1e1 ; case 0x5 01e0 7800 |x | Jump 0x1e1 ; case 0x6 01e1 e00d | | Load 0x0,0xd 01e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e3 c7fd | | Store 0x3,-0x3 01e4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e5 00d8 | | Load_Top At_Offset_0 01e6 e00f | | Load 0x0,0xf 01e7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01e8 0f01 | | Execute_Immediate Equal,0x1 01e9 7004 |p | Jump_Nonzero 0x1ee 01ea e00d | | Load 0x0,0xd 01eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ec c7fd | | Store 0x3,-0x3 01ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ee 4801 |H | Short_Literal 0x1 01ef 00d9 | | Load_Top At_Offset_1 01f0 e00f | | Load 0x0,0xf 01f1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01f2 e00d | | Load 0x0,0xd 01f3 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 01f4 c7fd | | Store 0x3,-0x3 01f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f6 00d8 | | Load_Top At_Offset_0 01f7 c7fd | | Store 0x3,-0x3 01f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f9 e00d | | Load 0x0,0xd 01fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fb c7fd | | Store 0x3,-0x3 01fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01fd ; -------------------------------------------------------------------------------------- 01fd ; STRING TABLE 01fd ; -------------------------------------------------------------------------------------- 01fd 0026 | & | .STRTAB 0x0026->0x0210 ; "SIZE" 01fe 0028 | ( | .STRTAB 0x0028->0x0212 ; "ALLOCATOR" 01ff 002f | / | .STRTAB 0x002f->0x0216 ; "ACCESS_OBJECT" 0200 003a | : | .STRTAB 0x003a->0x021d ; "KIND" 0201 003c | < | .STRTAB 0x003c->0x021f ; "ALLOCATED_TYPE" 0202 0048 | H | .STRTAB 0x0048->0x0226 ; "ALLOCATORS" 0203 0050 | P | .STRTAB 0x0050->0x022b ; " is not a valid pathname" 0204 0066 | f | .STRTAB 0x0066->0x0237 ; "<PROFILE>" 0205 006d | m | .STRTAB 0x006d->0x023b ; "Problem creating object " 0206 0083 | | .STRTAB 0x0083->0x0247 ; ". " 0207 0084 | | .STRTAB 0x0084->0x0249 ; "Type of the allocated object" 0208 009e | | .STRTAB 0x009e->0x0257 ; "Allocator" 0209 00a5 | | .STRTAB 0x00a5->0x025b ; "Size of the allocated type" 020a 00bd | | .STRTAB 0x00bd->0x0268 ; "Object holding the access value" 020b 00da | | .STRTAB 0x00da->0x0278 ; "Allocation kind; whether a subtype or qualified allocation" 020c 0112 | | .STRTAB 0x0112->0x0295 ; "???" 020d 0113 | | .STRTAB 0x0113->0x0296 ; "qualified" 020e 011a | | .STRTAB 0x011a->0x029b ; "subtype" 020f 011f | | .STREND 0x011f->0x029e 0210 5349 5a45 |SIZE| .STRTAB_STRINGS 029f 0000 | | .XXX[0x1] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug Table 02a0 ; -------------------------------------------------------------------------------------- 02a0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f43,0x0000,0x0001,0x000a 02a6 000b 02ce | | .DBG4T 0x000b,0x02ce,0x8000,0x0000 02aa 0010 02d2 | | .DBG4T 0x0010,0x02d2,0x8000,0x0000 02ae 001b 02d6 | | .DBG4T 0x001b,0x02d6,0x0001,0x0000 02b2 0083 02e3 | | .DBG4T 0x0083,0x02e3,0x0001,0x4000 02b6 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0005,0x0000 02ba 00eb 02f3 | | .DBG4T 0x00eb,0x02f3,0x0002,0x4000 02be 00fb 02fb | | .DBG4T 0x00fb,0x02fb,0x0002,0x4000 02c2 010b 0303 | | .DBG4T 0x010b,0x0303,0x0002,0x4000 02c6 012b 0311 | + | .DBG4T 0x012b,0x0311,0x0002,0x4000 02ca 01ab 033d | =| .DBG4T 0x01ab,0x033d,0x0001,0x4000 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0002 0000 | | .DBGLEN 0x0002,0x0000 02d0 000b 000d | | .DBGLNO 0x000b,0x000d 02d2 ; -------------------------------------------------------------------------------------- 02d2 ; Debug chain 02d2 ; -------------------------------------------------------------------------------------- 02d2 0002 0000 | | .DBGLEN 0x0002,0x0000 02d4 0010 0012 | | .DBGLNO 0x0010,0x0012 02d6 ; -------------------------------------------------------------------------------------- 02d6 ; Debug chain 02d6 ; -------------------------------------------------------------------------------------- 02d6 0008 0003 | | .DBGLEN 0x0008,0x0003 02d8 001b 0028 | (| .DBGLNO 0x001b,0x0028,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x004f,0x0054,0x005e 02e3 ; -------------------------------------------------------------------------------------- 02e3 ; Debug chain 02e3 ; -------------------------------------------------------------------------------------- 02e3 0002 0006 | | .DBGLEN 0x0002,0x0006 02e5 0083 0088 | | .DBGLNO 0x0083,0x0088,0x008d,0x0093,0x009a,0x009f,0x00a3,0x00a9 02ed 0001 0002 | | .XXX[0x6] 02ef 0004 0005 | | 02f1 0006 0003 | | 02f3 ; -------------------------------------------------------------------------------------- 02f3 ; Debug chain 02f3 ; -------------------------------------------------------------------------------------- 02f3 0000 0003 | | .DBGLEN 0x0000,0x0003 02f5 00eb 00ed | | .DBGLNO 0x00eb,0x00ed,0x00ef 02f8 0001 0003 | | .XXX[0x3] 02fa 0002 | | 02fb ; -------------------------------------------------------------------------------------- 02fb ; Debug chain 02fb ; -------------------------------------------------------------------------------------- 02fb 0000 0003 | | .DBGLEN 0x0000,0x0003 02fd 00fb 0100 | | .DBGLNO 0x00fb,0x0100,0x0102 0300 0001 0003 | | .XXX[0x3] 0302 0002 | | 0303 ; -------------------------------------------------------------------------------------- 0303 ; Debug chain 0303 ; -------------------------------------------------------------------------------------- 0303 0000 0006 | | .DBGLEN 0x0000,0x0006 0305 010b 0112 | | .DBGLNO 0x010b,0x0112,0x0115,0x0118,0x011b,0x011e 030b 0001 0006 | | .XXX[0x6] 030d 0002 0003 | | 030f 0004 0005 | | 0311 ; -------------------------------------------------------------------------------------- 0311 ; Debug chain 0311 ; -------------------------------------------------------------------------------------- 0311 0004 0013 | | .DBGLEN 0x0004,0x0013 0313 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0132,0x0134,0x013b,0x0142,0x0146,0x0150,0x015b,0x015f,0x0163,0x016a,0x016e,0x0177,0x017c,0x0187,0x018a,0x018e,0x0193,0x0195,0x019e,0x01a2,0x01a5 032a 0001 0011 | | .XXX[0x13] 032c 0013 0012 | | 032e 0002 0003 | | 0330 0005 0004 | | 0332 0006 0007 | | 0334 0008 000d | | 0336 0009 000a | | 0338 000c 000b | | 033a 000e 0010 | | 033c 000f | | 033d ; -------------------------------------------------------------------------------------- 033d ; Debug chain 033d ; -------------------------------------------------------------------------------------- 033d 0001 000d | | .DBGLEN 0x0001,0x000d 033f 01ab 01b2 | | .DBGLNO 0x01ab,0x01b2,0x01b5,0x01bc,0x01c0,0x01c9,0x01d3,0x01d6,0x01e1,0x01e5,0x01ea,0x01ee,0x01f6,0x01f9 034d 0001 0002 | | .XXX[0xd] 034f 000a 000c | | 0351 000b 0003 | | 0353 0004 0009 | | 0355 0005 0007 | | 0357 0006 0008 | | 0359 000d | | 035a 0000 0000 | | .BLANK 0000[0xa6]