|
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 0240 | @ | .CONST 0x0240 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; 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 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call 0012 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 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 e001 | | Load 0x0,0x1 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 e001 | | Load 0x0,0x1 0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002b e5ff | | Load 0x2,-0x1 002c e001 | | Load 0x0,0x1 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 4803 |H | Short_Literal 0x3 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 0193 | | Declare_Subprogram INIT_0190,For_Call 003f a002 | | Store_Unchecked 0x0,0x2 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 01b7 | | Action Push_String_Extended,0x1b7 ; "VARIABLE REFERENCES" 0053 e003 | | Load 0x0,0x3 0054 e004 | | Load 0x0,0x4 0055 4812 |H | Short_Literal 0x12 0056 0007 | | Action Break_Optional 0057 BODY_0020: 0057 e402 | | Load 0x2,0x2 0058 e001 | | Load 0x0,0x1 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 e005 | | Load 0x0,0x5 005d 180e | | Execute Package,Field_Execute,Field_Number 0xe 005e 4807 |H | Short_Literal 0x7 005f e5ff | | Load 0x2,-0x1 0060 0092 01b8 | | Action Push_String_Extended,0x1b8 ; " is not a valid pathname" 0062 01cc | | Execute Vector,Catenate 0063 e006 | | Load 0x0,0x6 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 01b9 | | Action Push_String_Extended,0x1b9 ; "<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 8002 | | Call 0x0,0x2 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 e007 | | Load 0x0,0x7 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 e008 | | Load 0x0,0x8 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 8009 | | Call 0x0,0x9 0099 c403 | | Store 0x2,0x3 009a c402 | | Store 0x2,0x2 009b 00d8 | | Load_Top At_Offset_0 009c e008 | | Load 0x0,0x8 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 e007 | | Load 0x0,0x7 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 e00a | | Load 0x0,0xa 00af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b1 e005 | | Load 0x0,0x5 00b2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b3 4807 |H | Short_Literal 0x7 00b4 0092 01ba | | Action Push_String_Extended,0x1ba ; "Problem creating object " 00b6 e5fe | | Load 0x2,-0x2 00b7 01cc | | Execute Vector,Catenate 00b8 0092 01bb | | Action Push_String_Extended,0x1bb ; ". " 00ba 01cc | | Execute Vector,Catenate 00bb 00db | | Load_Top At_Offset_3 00bc e008 | | Load 0x0,0x8 00bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00be 01cc | | Execute Vector,Catenate 00bf e006 | | Load 0x0,0x6 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 e00b | | Load 0x0,0xb 00cd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ce e00b | | Load 0x0,0xb 00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d0 e00c | | Load 0x0,0xc 00d1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc e00b | | Load 0x0,0xb 00dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00de e00b | | Load 0x0,0xb 00df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e0 e00c | | Load 0x0,0xc 00e1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00e2 e00d | | Load 0x0,0xd 00e3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 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 01b3 | | Action Push_String_Extended_Indexed,0x1b3 ; "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 e00d | | Load 0x0,0xd 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 e00e | | Load 0x0,0xe 0122 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0123 4612 |F | Jump_Case 0x13 0124 7814 |x | Jump 0x139 ; case 0x0 0125 7811 |x | Jump 0x137 ; case 0x1 0126 7812 |x | Jump 0x139 ; case 0x2 0127 7811 |x | Jump 0x139 ; case 0x3 0128 780e |x | Jump 0x137 ; case 0x4 0129 780d |x | Jump 0x137 ; case 0x5 012a 780c |x | Jump 0x137 ; case 0x6 012b 780b |x | Jump 0x137 ; case 0x7 012c 780a |x | Jump 0x137 ; case 0x8 012d 7809 |x | Jump 0x137 ; case 0x9 012e 7808 |x | Jump 0x137 ; case 0xa 012f 7807 |x | Jump 0x137 ; case 0xb 0130 7806 |x | Jump 0x137 ; case 0xc 0131 7805 |x | Jump 0x137 ; case 0xd 0132 7804 |x | Jump 0x137 ; case 0xe 0133 7803 |x | Jump 0x137 ; case 0xf 0134 7802 |x | Jump 0x137 ; case 0x10 0135 7801 |x | Jump 0x137 ; case 0x11 0136 7800 |x | Jump 0x137 ; case 0x12 0137 4800 |H | Short_Literal 0x0 0138 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0139 4801 |H | Short_Literal 0x1 013a e7ff | | Load 0x3,-0x1 013b e00d | | Load 0x0,0xd 013c 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 013d c602 | | Store 0x3,0x2 013e 00d8 | | Load_Top At_Offset_0 013f e00c | | Load 0x0,0xc 0140 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0141 6802 |h | Jump_Zero 0x144 0142 4800 |H | Short_Literal 0x0 0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0144 00d8 | | Load_Top At_Offset_0 0145 e00f | | Load 0x0,0xf 0146 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0147 6802 |h | Jump_Zero 0x14a 0148 4801 |H | Short_Literal 0x1 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 4603 |F | Jump_Case 0x4 0155 7809 |x | Jump 0x15f ; case 0x0 0156 780b |x | Jump 0x162 ; case 0x1 0157 7804 |x | Jump 0x15c ; case 0x2 0158 7800 |x | Jump 0x159 ; case 0x3 0159 0092 01bc | | Action Push_String_Extended,0x1bc ; "Kind of reference" 015b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015c 0092 01bd | | Action Push_String_Extended,0x1bd ; "Unit containing the referenced object" 015e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015f 0092 01be | | Action Push_String_Extended,0x1be ; "Unit containing the reference" 0161 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0162 0092 01bf | | Action Push_String_Extended,0x1bf ; "An object reference" 0164 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 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 4603 |F | Jump_Case 0x4 016d 7819 |x | Jump 0x187 ; case 0x0 016e 781b |x | Jump 0x18a ; case 0x1 016f 7811 |x | Jump 0x181 ; case 0x2 0170 7800 |x | Jump 0x171 ; case 0x3 0171 00db | | Load_Top At_Offset_3 0172 e010 | | Load 0x0,0x10 0173 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0174 4602 |F | Jump_Case 0x3 0175 7805 |x | Jump 0x17b ; case 0x0 0176 7807 |x | Jump 0x17e ; case 0x1 0177 7800 |x | Jump 0x178 ; case 0x2 0178 0092 01c0 | | Action Push_String_Extended,0x1c0 ; "SET/USED" 017a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017b 0092 01c1 | | Action Push_String_Extended,0x1c1 ; "SET" 017d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017e 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "USED" 0180 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0181 4801 |H | Short_Literal 0x1 0182 e7fe | | Load 0x3,-0x2 0183 e00d | | Load 0x0,0xd 0184 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0185 820f | | Call 0x1,0xf 0186 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0187 00db | | Load_Top At_Offset_3 0188 820f | | Call 0x1,0xf 0189 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018a 00db | | Load_Top At_Offset_3 018b e00f | | Load 0x0,0xf 018c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 018d e00d | | Load 0x0,0xd 018e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 018f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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 e00d | | Load 0x0,0xd 0194 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0195 c7fd | | Store 0x3,-0x3 0196 e00d | | Load 0x0,0xd 0197 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0198 c7fc | | Store 0x3,-0x4 0199 00da | | Load_Top At_Offset_2 019a 4603 |F | Jump_Case 0x4 019b 780e |x | Jump 0x1aa ; case 0x0 019c 7811 |x | Jump 0x1ae ; case 0x1 019d 7805 |x | Jump 0x1a3 ; case 0x2 019e 7800 |x | Jump 0x19f ; case 0x3 019f e00d | | Load 0x0,0xd 01a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a1 c7fd | | Store 0x3,-0x3 01a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a3 4801 |H | Short_Literal 0x1 01a4 e7fe | | Load 0x3,-0x2 01a5 e00d | | Load 0x0,0xd 01a6 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 01a7 8210 | | Call 0x1,0x10 01a8 c7fd | | Store 0x3,-0x3 01a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01aa 00db | | Load_Top At_Offset_3 01ab 8210 | | Call 0x1,0x10 01ac c7fd | | Store 0x3,-0x3 01ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ae 00db | | Load_Top At_Offset_3 01af e00f | | Load 0x0,0xf 01b0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b1 c7fd | | Store 0x3,-0x3 01b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b3 ; -------------------------------------------------------------------------------------- 01b3 ; STRING TABLE 01b3 ; -------------------------------------------------------------------------------------- 01b3 0022 | " | .STRTAB 0x0022->0x01c4 ; "UNIT" 01b4 0024 | $ | .STRTAB 0x0024->0x01c6 ; "REFERENCE" 01b5 002b | + | .STRTAB 0x002b->0x01ca ; "REFERENCED_PARENT" 01b6 003a | : | .STRTAB 0x003a->0x01d3 ; "SET_USED" 01b7 0040 | @ | .STRTAB 0x0040->0x01d7 ; "VARIABLE REFERENCES" 01b8 0051 | Q | .STRTAB 0x0051->0x01e0 ; " is not a valid pathname" 01b9 0067 | g | .STRTAB 0x0067->0x01ec ; "<PROFILE>" 01ba 006e | n | .STRTAB 0x006e->0x01f1 ; "Problem creating object " 01bb 0084 | | .STRTAB 0x0084->0x01fd ; ". " 01bc 0085 | | .STRTAB 0x0085->0x01fe ; "Kind of reference" 01bd 0094 | | .STRTAB 0x0094->0x0207 ; "Unit containing the referenced object" 01be 00b7 | | .STRTAB 0x00b7->0x0219 ; "Unit containing the reference" 01bf 00d2 | | .STRTAB 0x00d2->0x0228 ; "An object reference" 01c0 00e3 | | .STRTAB 0x00e3->0x0231 ; "SET/USED" 01c1 00e9 | | .STRTAB 0x00e9->0x0235 ; "SET" 01c2 00ea | | .STRTAB 0x00ea->0x0237 ; "USED" 01c3 00ec | | .STREND 0x00ec->0x0239 01c4 554e 4954 |UNIT| .STRTAB_STRINGS 0239 0000 0000 | | .BLANK 0000[0x7] 0240 ; -------------------------------------------------------------------------------------- 0240 ; Debug Table 0240 ; -------------------------------------------------------------------------------------- 0240 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f86,0x0000,0x0001,0x000c 0246 000b 0276 | v| .DBG4T 0x000b,0x0276,0x8000,0x0000 024a 0010 027a | z| .DBG4T 0x0010,0x027a,0x8000,0x0000 024e 0023 0280 | # | .DBG4T 0x0023,0x0280,0x0001,0x0000 0252 008b 028d | | .DBG4T 0x008b,0x028d,0x0001,0x4000 0256 00cb 029d | | .DBG4T 0x00cb,0x029d,0x0002,0x0000 025a 00db 02a0 | | .DBG4T 0x00db,0x02a0,0x0002,0x0000 025e 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000 0262 0113 02a3 | | .DBG4T 0x0113,0x02a3,0x0002,0x0000 0266 011b 02a6 | | .DBG4T 0x011b,0x02a6,0x0002,0x4000 026a 0153 02b9 | S | .DBG4T 0x0153,0x02b9,0x0002,0x4000 026e 016b 02c5 | k | .DBG4T 0x016b,0x02c5,0x0002,0x4000 0272 0193 02d7 | | .DBG4T 0x0193,0x02d7,0x0001,0x4000 0276 ; -------------------------------------------------------------------------------------- 0276 ; Debug chain 0276 ; -------------------------------------------------------------------------------------- 0276 0002 0000 | | .DBGLEN 0x0002,0x0000 0278 000b 000d | | .DBGLNO 0x000b,0x000d 027a ; -------------------------------------------------------------------------------------- 027a ; Debug chain 027a ; -------------------------------------------------------------------------------------- 027a 0004 0000 | | .DBGLEN 0x0004,0x0000 027c 0010 0012 | | .DBGLNO 0x0010,0x0012,0x0014,0x0016 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug chain 0280 ; -------------------------------------------------------------------------------------- 0280 0008 0003 | | .DBGLEN 0x0008,0x0003 0282 0023 0030 | # 0| .DBGLNO 0x0023,0x0030,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0057,0x005c,0x0066 028d ; -------------------------------------------------------------------------------------- 028d ; Debug chain 028d ; -------------------------------------------------------------------------------------- 028d 0002 0006 | | .DBGLEN 0x0002,0x0006 028f 008b 0090 | | .DBGLNO 0x008b,0x0090,0x0095,0x009b,0x00a2,0x00a7,0x00ab,0x00b1 0297 0001 0002 | | .XXX[0x6] 0299 0004 0005 | | 029b 0006 0003 | | 029d ; -------------------------------------------------------------------------------------- 029d ; Debug chain 029d ; -------------------------------------------------------------------------------------- 029d 0000 0001 | | .DBGLEN 0x0000,0x0001 029f 00cb | | .DBGLNO 0x00cb 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug chain 02a0 ; -------------------------------------------------------------------------------------- 02a0 0000 0001 | | .DBGLEN 0x0000,0x0001 02a2 00db | | .DBGLNO 0x00db 02a3 ; -------------------------------------------------------------------------------------- 02a3 ; Debug chain 02a3 ; -------------------------------------------------------------------------------------- 02a3 0000 0001 | | .DBGLEN 0x0000,0x0001 02a5 0113 | | .DBGLNO 0x0113 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 0001 0008 | | .DBGLEN 0x0001,0x0008 02a8 011b 0120 | | .DBGLNO 0x011b,0x0120,0x0137,0x0139,0x013e,0x0142,0x0144,0x0148,0x014a 02b1 0001 0008 | | .XXX[0x8] 02b3 0002 0003 | | 02b5 0007 0004 | | 02b7 0005 0006 | | 02b9 ; -------------------------------------------------------------------------------------- 02b9 ; Debug chain 02b9 ; -------------------------------------------------------------------------------------- 02b9 0000 0005 | | .DBGLEN 0x0000,0x0005 02bb 0153 0159 | S Y| .DBGLNO 0x0153,0x0159,0x015c,0x015f,0x0162 02c0 0001 0005 | | .XXX[0x5] 02c2 0002 0003 | | 02c4 0004 | | 02c5 ; -------------------------------------------------------------------------------------- 02c5 ; Debug chain 02c5 ; -------------------------------------------------------------------------------------- 02c5 0000 0008 | | .DBGLEN 0x0000,0x0008 02c7 016b 0171 | k q| .DBGLNO 0x016b,0x0171,0x0178,0x017b,0x017e,0x0181,0x0187,0x018a 02cf 0001 0005 | | .XXX[0x8] 02d1 0008 0006 | | 02d3 0007 0002 | | 02d5 0003 0004 | | 02d7 ; -------------------------------------------------------------------------------------- 02d7 ; Debug chain 02d7 ; -------------------------------------------------------------------------------------- 02d7 0000 0007 | | .DBGLEN 0x0000,0x0007 02d9 0193 0196 | | .DBGLNO 0x0193,0x0196,0x0199,0x019f,0x01a3,0x01aa,0x01ae 02e0 0001 0002 | | .XXX[0x7] 02e2 0003 0007 | | 02e4 0004 0005 | | 02e6 0006 | | 02e7 0000 0000 | | .BLANK 0000[0x119]