|
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: 3072 (0xc00) 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 0490 | | .CONST 0x0490 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0040 | @ | .CONST 0x0040 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 e001 | | Load 0x0,0x1 0011 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0012 e001 | | Load 0x0,0x1 0013 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0014 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0016 4802 |H | Short_Literal 0x2 0017 032d | - | Declare_Type Record,Defined 0018 00d8 | | Load_Top At_Offset_0 0019 0322 | " | Declare_Variable Record 001a e001 | | Load 0x0,0x1 001b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 001c 00da | | Load_Top At_Offset_2 001d 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 001e 0119 | | Execute Any,Check_In_Formal_Type 001f 00d9 | | Load_Top At_Offset_1 0020 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0021 e001 | | Load 0x0,0x1 0022 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0023 00da | | Load_Top At_Offset_2 0024 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0025 0119 | | Execute Any,Check_In_Formal_Type 0026 00d9 | | Load_Top At_Offset_1 0027 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0028 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 002a 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 002c 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 002e e001 | | Load 0x0,0x1 002f 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28 0030 00c6 | | Action Check_Subprogram_Elaborated 0031 e20f | | Load 0x1,0xf 0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0033 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0034 e002 | | Load 0x0,0x2 0035 e003 | | Load 0x0,0x3 0036 4800 |H | Short_Literal 0x0 0037 0007 | | Action Break_Optional 0038 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call 003a 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call 003c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003d 00c7 | | Action Elaborate_Subprogram 003e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003f 00c7 | | Action Elaborate_Subprogram 0040 BODY_0008: 0040 00bc | | Action Signal_Activated 0041 00bb | | Action Signal_Completion 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0083 | | .CONST 0x0083 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0013 | | .CONST 0x0013 ; Number of locals 004b INIT_0048: 004b e004 | | Load 0x0,0x4 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 004e 02c7 | | Declare_Variable Any 004f 4801 |H | Short_Literal 0x1 0050 e004 | | Load 0x0,0x4 0051 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0052 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0053 e5ff | | Load 0x2,-0x1 0054 e004 | | Load 0x0,0x4 0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0056 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0057 a402 | | Store_Unchecked 0x2,0x2 0058 4800 |H | Short_Literal 0x0 0059 4805 |H | Short_Literal 0x5 005a 029f 019b | | Declare_Subprogram INIT_0198,For_Call 005c 03fd | | Declare_Type Discrete,Defined 005d e20f | | Load 0x1,0xf 005e 0322 | " | Declare_Variable Record 005f 00d8 | | Load_Top At_Offset_0 0060 1c00 | | Execute_Immediate Run_Utility,0x0 0061 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0063 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 0065 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0067 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 0069 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 006b a005 | | Store_Unchecked 0x0,0x5 006c 00c6 | | Action Check_Subprogram_Elaborated 006d 4806 |H | Short_Literal 0x6 006e 4802 |H | Short_Literal 0x2 006f 0099 | | Action Reference_Dynamic 0070 e403 | | Load 0x2,0x3 0071 4805 |H | Short_Literal 0x5 0072 4802 |H | Short_Literal 0x2 0073 0099 | | Action Reference_Dynamic 0074 4808 |H | Short_Literal 0x8 0075 4802 |H | Short_Literal 0x2 0076 0099 | | Action Reference_Dynamic 0077 4807 |H | Short_Literal 0x7 0078 4802 |H | Short_Literal 0x2 0079 0099 | | Action Reference_Dynamic 007a 4809 |H | Short_Literal 0x9 007b 4802 |H | Short_Literal 0x2 007c 0099 | | Action Reference_Dynamic 007d 0092 0323 | #| Action Push_String_Extended,0x323 ; "OBJECT DECLARATIONS" 007f e006 | | Load 0x0,0x6 0080 e007 | | Load 0x0,0x7 0081 4813 |H | Short_Literal 0x13 0082 0007 | | Action Break_Optional 0083 BODY_0048: 0083 e402 | | Load 0x2,0x2 0084 e004 | | Load 0x0,0x4 0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0086 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0087 680a |h | Jump_Zero 0x92 0088 e008 | | Load 0x0,0x8 0089 180e | | Execute Package,Field_Execute,Field_Number 0xe 008a 4807 |H | Short_Literal 0x7 008b e5ff | | Load 0x2,-0x1 008c 0092 0324 | $| Action Push_String_Extended,0x324 ; " is not a valid pathname" 008e 01cc | | Execute Vector,Catenate 008f e009 | | Load 0x0,0x9 0090 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0091 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0092 e5fc | | Load 0x2,-0x4 0093 e402 | | Load 0x2,0x2 0094 0092 0325 | %| Action Push_String_Extended,0x325 ; "<PROFILE>" 0096 480a |H | Short_Literal 0xa 0097 4802 |H | Short_Literal 0x2 0098 0099 | | Action Reference_Dynamic 0099 e40b | | Load 0x2,0xb 009a 480c |H | Short_Literal 0xc 009b 4802 |H | Short_Literal 0x2 009c 0099 | | Action Reference_Dynamic 009d 480d |H | Short_Literal 0xd 009e 4802 |H | Short_Literal 0x2 009f 0099 | | Action Reference_Dynamic 00a0 480e |H | Short_Literal 0xe 00a1 4802 |H | Short_Literal 0x2 00a2 0099 | | Action Reference_Dynamic 00a3 480f |H | Short_Literal 0xf 00a4 4802 |H | Short_Literal 0x2 00a5 0099 | | Action Reference_Dynamic 00a6 e410 | | Load 0x2,0x10 00a7 4811 |H | Short_Literal 0x11 00a8 4802 |H | Short_Literal 0x2 00a9 0099 | | Action Reference_Dynamic 00aa 8005 | | Call 0x0,0x5 00ab c402 | | Store 0x2,0x2 00ac c5fc | | Store 0x2,-0x4 00ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00bd | | .CONST 0x00bd ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e00a | | Load 0x0,0xa 00b4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 e00b | | Load 0x0,0xb 00b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ba 02c7 | | Declare_Variable Any 00bb 00d8 | | Load_Top At_Offset_0 00bc 1c00 | | Execute_Immediate Run_Utility,0x0 00bd BODY_00b0: 00bd 00d9 | | Load_Top At_Offset_1 00be 00d9 | | Load_Top At_Offset_1 00bf e5fd | | Load 0x2,-0x3 00c0 800c | | Call 0x0,0xc 00c1 c403 | | Store 0x2,0x3 00c2 c402 | | Store 0x2,0x2 00c3 00d8 | | Load_Top At_Offset_0 00c4 e00b | | Load 0x0,0xb 00c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c6 4802 |H | Short_Literal 0x2 00c7 4803 |H | Short_Literal 0x3 00c8 0262 | b | Execute Discrete,In_Range 00c9 7010 |p | Jump_Nonzero 0xda 00ca 00d9 | | Load_Top At_Offset_1 00cb e5fc | | Load 0x2,-0x4 00cc e5fe | | Load 0x2,-0x2 00cd e5ff | | Load 0x2,-0x1 00ce 820d | | Call 0x1,0xd 00cf c402 | | Store 0x2,0x2 00d0 00d9 | | Load_Top At_Offset_1 00d1 e00a | | Load 0x0,0xa 00d2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00d3 c402 | | Store 0x2,0x2 00d4 4801 |H | Short_Literal 0x1 00d5 4800 |H | Short_Literal 0x0 00d6 e5fd | | Load 0x2,-0x3 00d7 e00d | | Load 0x0,0xd 00d8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00da e008 | | Load 0x0,0x8 00db 180e | | Execute Package,Field_Execute,Field_Number 0xe 00dc 4807 |H | Short_Literal 0x7 00dd 0092 0326 | &| Action Push_String_Extended,0x326 ; "Problem creating object " 00df e5fd | | Load 0x2,-0x3 00e0 01cc | | Execute Vector,Catenate 00e1 0092 0327 | '| Action Push_String_Extended,0x327 ; ". " 00e3 01cc | | Execute Vector,Catenate 00e4 00db | | Load_Top At_Offset_3 00e5 e00b | | Load 0x0,0xb 00e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00e7 01cc | | Execute Vector,Catenate 00e8 e009 | | Load 0x0,0x9 00e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ea 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4608 |F | Jump_Case 0x9 00f4 7808 |x | Jump 0xfd ; case 0x0 00f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00f6 7813 |x | Jump 0x10a ; case 0x2 00f7 7812 |x | Jump 0x10a ; case 0x3 00f8 7811 |x | Jump 0x10a ; case 0x4 00f9 7810 |x | Jump 0x10a ; case 0x5 00fa 780f |x | Jump 0x10a ; case 0x6 00fb 780e |x | Jump 0x10a ; case 0x7 00fc 780d |x | Jump 0x10a ; case 0x8 00fd 00da | | Load_Top At_Offset_2 00fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ff 0125 | % | Execute Any,Set_Constraint 0100 00da | | Load_Top At_Offset_2 0101 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0102 1c00 | | Execute_Immediate Run_Utility,0x0 0103 00da | | Load_Top At_Offset_2 0104 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0105 0125 | % | Execute Any,Set_Constraint 0106 00da | | Load_Top At_Offset_2 0107 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0108 1c00 | | Execute_Immediate Run_Utility,0x0 0109 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 010a 0869 | i | Execute_Immediate Raise,0x69 010b 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 0114 e001 | | Load 0x0,0x1 0115 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0116 0f00 | | Execute_Immediate Equal,0x0 0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c e001 | | Load 0x0,0x1 011d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 011e 0f01 | | Execute_Immediate Equal,0x1 011f 6825 |h% | Jump_Zero 0x145 0120 00da | | Load_Top At_Offset_2 0121 e00e | | Load 0x0,0xe 0122 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0123 4602 |F | Jump_Case 0x3 0124 7811 |x | Jump 0x136 ; case 0x0 0125 7818 |x | Jump 0x13e ; case 0x1 0126 7800 |x | Jump 0x127 ; case 0x2 0127 00db | | Load_Top At_Offset_3 0128 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0129 00db | | Load_Top At_Offset_3 012a e001 | | Load 0x0,0x1 012b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 012c e5fe | | Load 0x2,-0x2 012d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012e 00db | | Load_Top At_Offset_3 012f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0130 00db | | Load_Top At_Offset_3 0131 e001 | | Load 0x0,0x1 0132 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0133 e5fe | | Load 0x2,-0x2 0134 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0136 00db | | Load_Top At_Offset_3 0137 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0138 00db | | Load_Top At_Offset_3 0139 e001 | | Load 0x0,0x1 013a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 013b e5fe | | Load 0x2,-0x2 013c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 013d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013e 00db | | Load_Top At_Offset_3 013f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0140 00db | | Load_Top At_Offset_3 0141 e001 | | Load 0x0,0x1 0142 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0143 e5fe | | Load 0x2,-0x2 0144 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4800 |H | Short_Literal 0x0 014c a5fd | | Store_Unchecked 0x2,-0x3 014d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015a | Z | .CONST 0x015a ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 e001 | | Load 0x0,0x1 0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0155 02c7 | | Declare_Variable Any 0156 00db | | Load_Top At_Offset_3 0157 e001 | | Load 0x0,0x1 0158 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0159 a402 | | Store_Unchecked 0x2,0x2 015a BODY_0150: 015a 00d8 | | Load_Top At_Offset_0 015b e001 | | Load 0x0,0x1 015c 180f | | Execute Package,Field_Execute,Field_Number 0xf 015d 6802 |h | Jump_Zero 0x160 015e 4800 |H | Short_Literal 0x0 015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0160 00d8 | | Load_Top At_Offset_0 0161 e001 | | Load 0x0,0x1 0162 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0163 0f03 | | Execute_Immediate Equal,0x3 0164 6802 |h | Jump_Zero 0x167 0165 4801 |H | Short_Literal 0x1 0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0167 00d8 | | Load_Top At_Offset_0 0168 e00f | | Load 0x0,0xf 0169 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 016a 6802 |h | Jump_Zero 0x16d 016b 4801 |H | Short_Literal 0x1 016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016d 00d8 | | Load_Top At_Offset_0 016e 821a | | Call 0x1,0x1a 016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017e | ~ | .CONST 0x017e ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e001 | | Load 0x0,0x1 0174 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0175 02c7 | | Declare_Variable Any 0176 4800 |H | Short_Literal 0x0 0177 0092 0328 | (| Action Push_String_Extended,0x328 ; "<ALL_WORLDS>" 0179 4801 |H | Short_Literal 0x1 017a e5ff | | Load 0x2,-0x1 017b e001 | | Load 0x0,0x1 017c 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 017d a402 | | Store_Unchecked 0x2,0x2 017e BODY_0170: 017e 00cf | | Action Mark_Auxiliary 017f 7811 |x | Jump 0x191 0180 e5fe | | Load 0x2,-0x2 0181 4800 |H | Short_Literal 0x0 0182 00db | | Load_Top At_Offset_3 0183 e001 | | Load 0x0,0x1 0184 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0185 e214 | | Load 0x1,0x14 0186 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0187 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0188 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0189 e001 | | Load 0x0,0x1 018a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 018b 00d1 | | Pop_Control Pop_Count_1 018c 00d9 | | Load_Top At_Offset_1 018d e001 | | Load 0x0,0x1 018e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 018f c402 | | Store 0x2,0x2 0190 00c9 | | Action Pop_Auxiliary_Loop 0191 00d9 | | Load_Top At_Offset_1 0192 e001 | | Load 0x0,0x1 0193 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0194 6feb |o | Jump_Zero 0x180 0195 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 4607 |F | Jump_Case 0x8 019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 019d 7806 |x | Jump 0x1a4 ; case 0x1 019e 7809 |x | Jump 0x1a8 ; case 0x2 019f 780d |x | Jump 0x1ad ; case 0x3 01a0 7810 |x | Jump 0x1b1 ; case 0x4 01a1 7811 |x | Jump 0x1b3 ; case 0x5 01a2 7812 |x | Jump 0x1b5 ; case 0x6 01a3 7815 |x | Jump 0x1b9 ; case 0x7 01a4 00da | | Load_Top At_Offset_2 01a5 0091 031d | | Action Push_String_Extended_Indexed,0x31d ; "OBJ_SIZE" 01a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a8 00db | | Load_Top At_Offset_3 01a9 00db | | Load_Top At_Offset_3 01aa 00e0 | | Load_Encached Standard_Cache 01ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ad 00da | | Load_Top At_Offset_2 01ae 00e0 | | Load_Encached Standard_Cache 01af 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b1 00db | | Load_Top At_Offset_3 01b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b3 00db | | Load_Top At_Offset_3 01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b5 e403 | | Load 0x2,0x3 01b6 00dc | | Load_Top At_Offset_4 01b7 0267 | g | Execute Discrete,Predecessor 01b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b9 e403 | | Load 0x2,0x3 01ba 00dc | | Load_Top At_Offset_4 01bb 0268 | h | Execute Discrete,Successor 01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 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 4801 |H | Short_Literal 0x1 01c5 4803 |H | Short_Literal 0x3 01c6 0262 | b | Execute Discrete,In_Range 01c7 7003 |p | Jump_Nonzero 0x1cb 01c8 7800 |x | Jump 0x1c9 01c9 4801 |H | Short_Literal 0x1 01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cb 4800 |H | Short_Literal 0x0 01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d8 | | .CONST 0x01d8 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 e001 | | Load 0x0,0x1 01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d5 02c7 | | Declare_Variable Any 01d6 00d8 | | Load_Top At_Offset_0 01d7 1c00 | | Execute_Immediate Run_Utility,0x0 01d8 BODY_01d0: 01d8 00db | | Load_Top At_Offset_3 01d9 8211 | | Call 0x1,0x11 01da 682b |h+ | Jump_Zero 0x206 01db 00db | | Load_Top At_Offset_3 01dc e00f | | Load 0x0,0xf 01dd 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01de c602 | | Store 0x3,0x2 01df 00d8 | | Load_Top At_Offset_0 01e0 e00f | | Load 0x0,0xf 01e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e2 4800 |H | Short_Literal 0x0 01e3 4804 |H | Short_Literal 0x4 01e4 0262 | b | Execute Discrete,In_Range 01e5 7002 |p | Jump_Nonzero 0x1e8 01e6 4800 |H | Short_Literal 0x0 01e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e8 00d8 | | Load_Top At_Offset_0 01e9 e010 | | Load 0x0,0x10 01ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01eb 6818 |h | Jump_Zero 0x204 01ec e5fe | | Load 0x2,-0x2 01ed 6814 |h | Jump_Zero 0x202 01ee e210 | | Load 0x1,0x10 01ef e404 | | Load 0x2,0x4 01f0 017d | } | Execute Record,Structure_Write 01f1 e404 | | Load 0x2,0x4 01f2 e7ff | | Load 0x3,-0x1 01f3 821b | | Call 0x1,0x1b 01f4 00d1 | | Pop_Control Pop_Count_1 01f5 00d8 | | Load_Top At_Offset_0 01f6 e00f | | Load 0x0,0xf 01f7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01f8 6809 |h | Jump_Zero 0x202 01f9 e404 | | Load 0x2,0x4 01fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01fb 00d9 | | Load_Top At_Offset_1 01fc e00f | | Load 0x0,0xf 01fd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01fe e001 | | Load 0x0,0x1 01ff 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0200 e404 | | Load 0x2,0x4 0201 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0202 4801 |H | Short_Literal 0x1 0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0204 4800 |H | Short_Literal 0x0 0205 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0206 4800 |H | Short_Literal 0x0 0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c 4605 |F | Jump_Case 0x6 020d 7818 |x | Jump 0x226 ; case 0x0 020e 7807 |x | Jump 0x216 ; case 0x1 020f 7809 |x | Jump 0x219 ; case 0x2 0210 7822 |x" | Jump 0x233 ; case 0x3 0211 7844 |xD | Jump 0x256 ; case 0x4 0212 7800 |x | Jump 0x213 ; case 0x5 0213 0092 0329 | )| Action Push_String_Extended,0x329 ; "Number of places where the object is used" 0215 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0216 0092 032a | *| Action Push_String_Extended,0x32a ; "Name of the object declaration" 0218 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0219 00db | | Load_Top At_Offset_3 021a e00f | | Load 0x0,0xf 021b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 021c 4803 |H | Short_Literal 0x3 021d 4804 |H | Short_Literal 0x4 021e 0262 | b | Execute Discrete,In_Range 021f 7003 |p | Jump_Nonzero 0x223 0220 0092 032b | +| Action Push_String_Extended,0x32b ; "Name of the object's type" 0222 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0223 0092 032c | ,| Action Push_String_Extended,0x32c ; "Integer and Real number declarations have no explicit type" 0225 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0226 00db | | Load_Top At_Offset_3 0227 e00f | | Load 0x0,0xf 0228 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0229 4802 |H | Short_Literal 0x2 022a 4804 |H | Short_Literal 0x4 022b 0262 | b | Execute Discrete,In_Range 022c 7003 |p | Jump_Nonzero 0x230 022d 0092 032d | -| Action Push_String_Extended,0x32d ; "Size of the object in bytes. Zero indicates non-static size" 022f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0230 0092 032e | .| Action Push_String_Extended,0x32e ; "This declaration has no size" 0232 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0233 00db | | Load_Top At_Offset_3 0234 e00f | | Load 0x0,0xf 0235 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0236 0b00 | | Execute_Immediate Case_Compare,0x0 0237 700d |p | Jump_Nonzero 0x245 0238 0b03 | | Execute_Immediate Case_Compare,0x3 0239 7015 |p | Jump_Nonzero 0x24f 023a 0f04 | | Execute_Immediate Equal,0x4 023b 7017 |p | Jump_Nonzero 0x253 023c 00db | | Load_Top At_Offset_3 023d 821a | | Call 0x1,0x1a 023e 6803 |h | Jump_Zero 0x242 023f 0092 032f | /| Action Push_String_Extended,0x32f ; "Constant declared in a subprogram" 0241 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0242 0092 0330 | 0| Action Push_String_Extended,0x330 ; "Constant declared in a package" 0244 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0245 00d1 | | Pop_Control Pop_Count_1 0246 00db | | Load_Top At_Offset_3 0247 821a | | Call 0x1,0x1a 0248 6803 |h | Jump_Zero 0x24c 0249 0092 0331 | 1| Action Push_String_Extended,0x331 ; "Subprogram local variable" 024b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 024c 0092 0332 | 2| Action Push_String_Extended,0x332 ; "Variable declaration in a package" 024e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 024f 00d1 | | Pop_Control Pop_Count_1 0250 0092 0333 | 3| Action Push_String_Extended,0x333 ; "An Integer Number declaration" 0252 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0253 0092 0334 | 4| Action Push_String_Extended,0x334 ; "A Real Number declaration" 0255 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0256 0092 0335 | 5| Action Push_String_Extended,0x335 ; "Number of places where the object is set" 0258 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0267 | g | .CONST 0x0267 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0003 | | .CONST 0x0003 ; Number of locals 0263 INIT_0260: 0263 e011 | | Load 0x0,0x11 0264 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0265 00e1 | | Load_Encached Boolean_Cache 0266 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0267 BODY_0260: 0267 e7ff | | Load 0x3,-0x1 0268 4605 |F | Jump_Case 0x6 0269 7834 |x4 | Jump 0x29e ; case 0x0 026a 780b |x | Jump 0x276 ; case 0x1 026b 780e |x | Jump 0x27a ; case 0x2 026c 784b |xK | Jump 0x2b8 ; case 0x3 026d 786d |xm | Jump 0x2db ; case 0x4 026e 7800 |x | Jump 0x26f ; case 0x5 026f e404 | | Load 0x2,0x4 0270 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0271 e010 | | Load 0x0,0x10 0272 180e | | Execute Package,Field_Execute,Field_Number 0xe 0273 00e0 | | Load_Encached Standard_Cache 0274 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0275 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0276 e7fe | | Load 0x3,-0x2 0277 e00f | | Load 0x0,0xf 0278 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0279 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 027a e7fe | | Load 0x3,-0x2 027b e00f | | Load 0x0,0xf 027c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 027d 00d8 | | Load_Top At_Offset_0 027e 4803 |H | Short_Literal 0x3 027f 4804 |H | Short_Literal 0x4 0280 0262 | b | Execute Discrete,In_Range 0281 700d |p | Jump_Nonzero 0x28f 0282 0f02 | | Execute_Immediate Equal,0x2 0283 700f |p | Jump_Nonzero 0x293 0284 4801 |H | Short_Literal 0x1 0285 e7fe | | Load 0x3,-0x2 0286 e00f | | Load 0x0,0xf 0287 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0288 e001 | | Load 0x0,0x1 0289 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 028a e00f | | Load 0x0,0xf 028b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 028c e00f | | Load 0x0,0xf 028d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 028e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 028f 00d1 | | Pop_Control Pop_Count_1 0290 0092 0336 | 6| Action Push_String_Extended,0x336 ; "[NO TYPE]" 0292 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0293 4801 |H | Short_Literal 0x1 0294 e7fe | | Load 0x3,-0x2 0295 e00f | | Load 0x0,0xf 0296 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0297 e001 | | Load 0x0,0x1 0298 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0299 e00f | | Load 0x0,0xf 029a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 029b e00f | | Load 0x0,0xf 029c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 029d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 029e e7fe | | Load 0x3,-0x2 029f e00f | | Load 0x0,0xf 02a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02a1 4802 |H | Short_Literal 0x2 02a2 4804 |H | Short_Literal 0x4 02a3 0262 | b | Execute Discrete,In_Range 02a4 7010 |p | Jump_Nonzero 0x2b5 02a5 00d8 | | Load_Top At_Offset_0 02a6 e011 | | Load 0x0,0x11 02a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a8 4800 |H | Short_Literal 0x0 02a9 e7fe | | Load 0x3,-0x2 02aa e00f | | Load 0x0,0xf 02ab 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02ac e011 | | Load 0x0,0x11 02ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02ae 005b | [ | Store_Top Discrete,At_Offset_3 02af 0059 | Y | Store_Top Discrete,At_Offset_1 02b0 00d9 | | Load_Top At_Offset_1 02b1 09fd | | Execute_Immediate Binary_Scale,-0x3 02b2 00e0 | | Load_Encached Standard_Cache 02b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b5 0092 0337 | 7| Action Push_String_Extended,0x337 ; " 0" 02b7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b8 e7fe | | Load 0x3,-0x2 02b9 e00f | | Load 0x0,0xf 02ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02bb 0b00 | | Execute_Immediate Case_Compare,0x0 02bc 700d |p | Jump_Nonzero 0x2ca 02bd 0b03 | | Execute_Immediate Case_Compare,0x3 02be 7015 |p | Jump_Nonzero 0x2d4 02bf 0f04 | | Execute_Immediate Equal,0x4 02c0 7017 |p | Jump_Nonzero 0x2d8 02c1 e7fe | | Load 0x3,-0x2 02c2 821a | | Call 0x1,0x1a 02c3 6803 |h | Jump_Zero 0x2c7 02c4 0092 0338 | 8| Action Push_String_Extended,0x338 ; "Constant" 02c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c7 0092 0339 | 9| Action Push_String_Extended,0x339 ; "Pkg Constant" 02c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ca 00d1 | | Pop_Control Pop_Count_1 02cb e7fe | | Load 0x3,-0x2 02cc 821a | | Call 0x1,0x1a 02cd 6803 |h | Jump_Zero 0x2d1 02ce 0092 033a | :| Action Push_String_Extended,0x33a ; "Variable" 02d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d1 0092 033b | ;| Action Push_String_Extended,0x33b ; "Pkg Variable" 02d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d4 00d1 | | Pop_Control Pop_Count_1 02d5 0092 033c | <| Action Push_String_Extended,0x33c ; "Integer Number" 02d7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d8 0092 033d | =| Action Push_String_Extended,0x33d ; "Real Number" 02da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02db e404 | | Load 0x2,0x4 02dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02dd e010 | | Load 0x0,0x10 02de 180e | | Execute Package,Field_Execute,Field_Number 0xe 02df 00e0 | | Load_Encached Standard_Cache 02e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02e2 0000 0000 | | .BLANK 0000[0x6] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e001 | | Load 0x0,0x1 02ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ed c7fd | | Store 0x3,-0x3 02ee e001 | | Load 0x0,0x1 02ef 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02f0 c7fc | | Store 0x3,-0x4 02f1 00da | | Load_Top At_Offset_2 02f2 4605 |F | Jump_Case 0x6 02f3 7821 |x! | Jump 0x315 ; case 0x0 02f4 7808 |x | Jump 0x2fd ; case 0x1 02f5 780a |x | Jump 0x300 ; case 0x2 02f6 781e |x | Jump 0x315 ; case 0x3 02f7 7821 |x! | Jump 0x319 ; case 0x4 02f8 7800 |x | Jump 0x2f9 ; case 0x5 02f9 e404 | | Load 0x2,0x4 02fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02fb c7fc | | Store 0x3,-0x4 02fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02fd 00db | | Load_Top At_Offset_3 02fe c7fd | | Store 0x3,-0x3 02ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0300 00db | | Load_Top At_Offset_3 0301 e00f | | Load 0x0,0xf 0302 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0303 4802 |H | Short_Literal 0x2 0304 4804 |H | Short_Literal 0x4 0305 0262 | b | Execute Discrete,In_Range 0306 700a |p | Jump_Nonzero 0x311 0307 4801 |H | Short_Literal 0x1 0308 e7fe | | Load 0x3,-0x2 0309 e00f | | Load 0x0,0xf 030a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 030b e001 | | Load 0x0,0x1 030c 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 030d e00f | | Load 0x0,0xf 030e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 030f c7fd | | Store 0x3,-0x3 0310 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0311 e001 | | Load 0x0,0x1 0312 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0313 c7fd | | Store 0x3,-0x3 0314 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0315 e001 | | Load 0x0,0x1 0316 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0317 c7fd | | Store 0x3,-0x3 0318 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0319 e404 | | Load 0x2,0x4 031a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 031b c7fc | | Store 0x3,-0x4 031c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 031d ; -------------------------------------------------------------------------------------- 031d ; STRING TABLE 031d ; -------------------------------------------------------------------------------------- 031d 0044 | D | .STRTAB 0x0044->0x033f ; "OBJ_SIZE" 031e 004a | J | .STRTAB 0x004a->0x0343 ; "OBJ_NAME" 031f 0050 | P | .STRTAB 0x0050->0x0347 ; "OBJ_TYPE" 0320 0056 | V | .STRTAB 0x0056->0x034b ; "C_OR_V" 0321 005a | Z | .STRTAB 0x005a->0x034e ; "SET" 0322 005b | [ | .STRTAB 0x005b->0x034f ; "USED" 0323 005d | ] | .STRTAB 0x005d->0x0351 ; "OBJECT DECLARATIONS" 0324 006e | n | .STRTAB 0x006e->0x035b ; " is not a valid pathname" 0325 0084 | | .STRTAB 0x0084->0x0367 ; "<PROFILE>" 0326 008b | | .STRTAB 0x008b->0x036b ; "Problem creating object " 0327 00a1 | | .STRTAB 0x00a1->0x0377 ; ". " 0328 00a2 | | .STRTAB 0x00a2->0x0379 ; "<ALL_WORLDS>" 0329 00ac | | .STRTAB 0x00ac->0x037f ; "Number of places where the object is used" 032a 00d3 | | .STRTAB 0x00d3->0x0393 ; "Name of the object declaration" 032b 00ef | | .STRTAB 0x00ef->0x03a2 ; "Name of the object's type" 032c 0106 | | .STRTAB 0x0106->0x03af ; "Integer and Real number declarations have no explicit type" 032d 013e | > | .STRTAB 0x013e->0x03cc ; "Size of the object in bytes. Zero indicates non-static size" 032e 0177 | w | .STRTAB 0x0177->0x03e9 ; "This declaration has no size" 032f 0191 | | .STRTAB 0x0191->0x03f7 ; "Constant declared in a subprogram" 0330 01b0 | | .STRTAB 0x01b0->0x0408 ; "Constant declared in a package" 0331 01cc | | .STRTAB 0x01cc->0x0417 ; "Subprogram local variable" 0332 01e3 | | .STRTAB 0x01e3->0x0423 ; "Variable declaration in a package" 0333 0202 | | .STRTAB 0x0202->0x0434 ; "An Integer Number declaration" 0334 021d | | .STRTAB 0x021d->0x0442 ; "A Real Number declaration" 0335 0234 | 4 | .STRTAB 0x0234->0x044f ; "Number of places where the object is set" 0336 025a | Z | .STRTAB 0x025a->0x0463 ; "[NO TYPE]" 0337 0261 | a | .STRTAB 0x0261->0x0467 ; " 0" 0338 0261 | a | .STRTAB 0x0261->0x0468 ; "Constant" 0339 0267 | g | .STRTAB 0x0267->0x046c ; "Pkg Constant" 033a 0271 | q | .STRTAB 0x0271->0x0472 ; "Variable" 033b 0277 | w | .STRTAB 0x0277->0x0476 ; "Pkg Variable" 033c 0281 | | .STRTAB 0x0281->0x047c ; "Integer Number" 033d 028d | | .STRTAB 0x028d->0x0483 ; "Real Number" 033e 0296 | | .STREND 0x0296->0x0489 033f 4f42 4a5f |OBJ_| .STRTAB_STRINGS 0489 0000 0000 | | .BLANK 0000[0x7] 0490 ; -------------------------------------------------------------------------------------- 0490 ; Debug Table 0490 ; -------------------------------------------------------------------------------------- 0490 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f62,0x0000,0x0001,0x0010 0496 000b 04d6 | | .DBG4T 0x000b,0x04d6,0x8000,0x0000 049a 0010 04da | | .DBG4T 0x0010,0x04da,0x8000,0x0000 049e 004b 04e6 | K | .DBG4T 0x004b,0x04e6,0x0001,0x0000 04a2 00b3 04f4 | | .DBG4T 0x00b3,0x04f4,0x0001,0x4000 04a6 00f3 0000 | | .DBG4T 0x00f3,0x0000,0x0005,0x0000 04aa 0113 0504 | | .DBG4T 0x0113,0x0504,0x0002,0x0000 04ae 011b 0507 | | .DBG4T 0x011b,0x0507,0x0001,0x4000 04b2 014b 0515 | K | .DBG4T 0x014b,0x0515,0x0001,0x0000 04b6 0153 0518 | S | .DBG4T 0x0153,0x0518,0x0002,0x0000 04ba 0173 0522 | s "| .DBG4T 0x0173,0x0522,0x0001,0x4000 04be 019b 0000 | | .DBG4T 0x019b,0x0000,0x0005,0x0000 04c2 01c3 052b | +| .DBG4T 0x01c3,0x052b,0x0002,0x0000 04c6 01d3 0530 | 0| .DBG4T 0x01d3,0x0530,0x0002,0x4000 04ca 020b 054d | M| .DBG4T 0x020b,0x054d,0x0002,0x4000 04ce 0263 0575 | c u| .DBG4T 0x0263,0x0575,0x0002,0x4000 04d2 02eb 05a3 | | .DBG4T 0x02eb,0x05a3,0x0001,0x4000 04d6 ; -------------------------------------------------------------------------------------- 04d6 ; Debug chain 04d6 ; -------------------------------------------------------------------------------------- 04d6 0002 0000 | | .DBGLEN 0x0002,0x0000 04d8 000b 000d | | .DBGLNO 0x000b,0x000d 04da ; -------------------------------------------------------------------------------------- 04da ; Debug chain 04da ; -------------------------------------------------------------------------------------- 04da 000a 0000 | | .DBGLEN 0x000a,0x0000 04dc 0010 0018 | | .DBGLNO 0x0010,0x0018,0x0028,0x002a,0x002c,0x002e,0x0038,0x003a,0x003c,0x003e 04e6 ; -------------------------------------------------------------------------------------- 04e6 ; Debug chain 04e6 ; -------------------------------------------------------------------------------------- 04e6 0009 0003 | | .DBGLEN 0x0009,0x0003 04e8 004b 0058 | K X| .DBGLNO 0x004b,0x0058,0x005d,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x0083,0x0088,0x0092 04f4 ; -------------------------------------------------------------------------------------- 04f4 ; Debug chain 04f4 ; -------------------------------------------------------------------------------------- 04f4 0002 0006 | | .DBGLEN 0x0002,0x0006 04f6 00b3 00b8 | | .DBGLNO 0x00b3,0x00b8,0x00bd,0x00c3,0x00ca,0x00d0,0x00d4,0x00da 04fe 0001 0002 | | .XXX[0x6] 0500 0004 0005 | | 0502 0006 0003 | | 0504 ; -------------------------------------------------------------------------------------- 0504 ; Debug chain 0504 ; -------------------------------------------------------------------------------------- 0504 0000 0001 | | .DBGLEN 0x0000,0x0001 0506 0113 | | .DBGLNO 0x0113 0507 ; -------------------------------------------------------------------------------------- 0507 ; Debug chain 0507 ; -------------------------------------------------------------------------------------- 0507 0000 0006 | | .DBGLEN 0x0000,0x0006 0509 011b 0120 | | .DBGLNO 0x011b,0x0120,0x0127,0x012e,0x0136,0x013e 050f 0001 0002 | | .XXX[0x6] 0511 0005 0006 | | 0513 0003 0004 | | 0515 ; -------------------------------------------------------------------------------------- 0515 ; Debug chain 0515 ; -------------------------------------------------------------------------------------- 0515 0000 0001 | | .DBGLEN 0x0000,0x0001 0517 014b | K | .DBGLNO 0x014b 0518 ; -------------------------------------------------------------------------------------- 0518 ; Debug chain 0518 ; -------------------------------------------------------------------------------------- 0518 0001 0007 | | .DBGLEN 0x0001,0x0007 051a 0153 015a | S Z| .DBGLNO 0x0153,0x015a,0x015e,0x0160,0x0165,0x0167,0x016b,0x016d 0522 ; -------------------------------------------------------------------------------------- 0522 ; Debug chain 0522 ; -------------------------------------------------------------------------------------- 0522 0001 0003 | | .DBGLEN 0x0001,0x0003 0524 0173 0180 | s | .DBGLNO 0x0173,0x0180,0x018c,0x0191 0528 0002 0003 | | .XXX[0x3] 052a 0001 | | 052b ; -------------------------------------------------------------------------------------- 052b ; Debug chain 052b ; -------------------------------------------------------------------------------------- 052b 0000 0003 | | .DBGLEN 0x0000,0x0003 052d 01c3 01c9 | | .DBGLNO 0x01c3,0x01c9,0x01cb 0530 ; -------------------------------------------------------------------------------------- 0530 ; Debug chain 0530 ; -------------------------------------------------------------------------------------- 0530 0001 000d | | .DBGLEN 0x0001,0x000d 0532 01d3 01d8 | | .DBGLNO 0x01d3,0x01d8,0x01db,0x01df,0x01e6,0x01e8,0x01ec,0x01ee,0x01f1,0x01f5,0x01f9,0x0202,0x0204,0x0206 0540 0001 0002 | | .XXX[0xd] 0542 0003 000c | | 0544 0004 0005 | | 0546 0006 0007 | | 0548 0008 0009 | | 054a 000a 000b | | 054c 000d | | 054d ; -------------------------------------------------------------------------------------- 054d ; Debug chain 054d ; -------------------------------------------------------------------------------------- 054d 0000 0013 | | .DBGLEN 0x0000,0x0013 054f 020b 0213 | | .DBGLNO 0x020b,0x0213,0x0216,0x0219,0x0220,0x0223,0x0226,0x022d,0x0230,0x0233,0x023c,0x023f,0x0242,0x0246,0x0249,0x024c,0x0250,0x0253,0x0256 0562 0001 0013 | | .XXX[0x13] 0564 0002 0003 | | 0566 0005 0004 | | 0568 0006 0008 | | 056a 0007 0009 | | 056c 000f 0010 | | 056e 0011 000a | | 0570 000b 000c | | 0572 000d 000e | | 0574 0012 | | 0575 ; -------------------------------------------------------------------------------------- 0575 ; Debug chain 0575 ; -------------------------------------------------------------------------------------- 0575 0002 0015 | | .DBGLEN 0x0002,0x0015 0577 0263 0265 | c e| .DBGLNO 0x0263,0x0265,0x0267,0x026f,0x0276,0x027a,0x0284,0x0290,0x0293,0x029e,0x02a5,0x02b0,0x02b5,0x02b8,0x02c1,0x02c4,0x02c7,0x02cb,0x02ce,0x02d1,0x02d5,0x02d8,0x02db 058e 0001 0015 | | .XXX[0x15] 0590 0002 0003 | | 0592 0006 0004 | | 0594 0005 0007 | | 0596 0009 000a | | 0598 0008 000b | | 059a 0011 0012 | | 059c 0013 000c | | 059e 000d 000e | | 05a0 000f 0010 | | 05a2 0014 | | 05a3 ; -------------------------------------------------------------------------------------- 05a3 ; Debug chain 05a3 ; -------------------------------------------------------------------------------------- 05a3 0000 000a | | .DBGLEN 0x0000,0x000a 05a5 02eb 02ee | | .DBGLNO 0x02eb,0x02ee,0x02f1,0x02f9,0x02fd,0x0300,0x0307,0x0311,0x0315,0x0319 05af 0001 0002 | | .XXX[0xa] 05b1 0003 000a | | 05b3 0004 0005 | | 05b5 0007 0006 | | 05b7 0008 0009 | | 05b9 0000 0000 | | .BLANK 0000[0x47]