|
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 0298 | | .CONST 0x0298 ; 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 011b | | Declare_Subprogram INIT_0118,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 014b | K| Declare_Subprogram INIT_0148,For_Call 0034 03fd | | Declare_Type Discrete,Defined 0035 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0037 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 0039 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 003b 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 003d 029f 01db | | Declare_Subprogram INIT_01d8,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 01f8 | | Action Push_String_Extended,0x1f8 ; "LITERALS" 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 01f9 | | Action Push_String_Extended,0x1f9 ; " 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 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0066 e5f7 | | Load 0x2,-0x9 0067 e402 | | Load 0x2,0x2 0068 0092 01fa | | Action Push_String_Extended,0x1fa ; "<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 c5f7 | | Store 0x2,-0x9 0081 4509 |E | Exit_Suprogram New_Top_Offset 0x9 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 7015 |p | Jump_Nonzero 0xb7 00a2 00d9 | | Load_Top At_Offset_1 00a3 e5f7 | | Load 0x2,-0x9 00a4 e5f8 | | Load 0x2,-0x8 00a5 e5f9 | | Load 0x2,-0x7 00a6 e5fa | | Load 0x2,-0x6 00a7 e5fb | | Load 0x2,-0x5 00a8 e5fc | | Load 0x2,-0x4 00a9 e5fd | | Load 0x2,-0x3 00aa e5ff | | Load 0x2,-0x1 00ab 820d | | Call 0x1,0xd 00ac c402 | | Store 0x2,0x2 00ad 00d9 | | Load_Top At_Offset_1 00ae e007 | | Load 0x0,0x7 00af 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00b0 c402 | | Store 0x2,0x2 00b1 4801 |H | Short_Literal 0x1 00b2 4800 |H | Short_Literal 0x0 00b3 e5fe | | Load 0x2,-0x2 00b4 e00a | | Load 0x0,0xa 00b5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b6 450a |E | Exit_Suprogram New_Top_Offset 0xa 00b7 e005 | | Load 0x0,0x5 00b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b9 4807 |H | Short_Literal 0x7 00ba 0092 01fb | | Action Push_String_Extended,0x1fb ; "Problem creating object " 00bc e5fe | | Load 0x2,-0x2 00bd 01cc | | Execute Vector,Catenate 00be 0092 01fc | | Action Push_String_Extended,0x1fc ; ". " 00c0 01cc | | Execute Vector,Catenate 00c1 00db | | Load_Top At_Offset_3 00c2 e008 | | Load 0x0,0x8 00c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c4 01cc | | Execute Vector,Catenate 00c5 e006 | | Load 0x0,0x6 00c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c7 450a |E | Exit_Suprogram New_Top_Offset 0xa 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d2 | | .CONST 0x00d2 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb e00b | | Load 0x0,0xb 00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00cd 02c7 | | Declare_Variable Any 00ce 00db | | Load_Top At_Offset_3 00cf e00b | | Load 0x0,0xb 00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d1 a402 | | Store_Unchecked 0x2,0x2 00d2 BODY_00c8: 00d2 00d8 | | Load_Top At_Offset_0 00d3 e00b | | Load 0x0,0xb 00d4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00d5 4606 |F | Jump_Case 0x7 00d6 7806 |x | Jump 0xdd ; case 0x0 00d7 7805 |x | Jump 0xdd ; case 0x1 00d8 7814 |x | Jump 0xed ; case 0x2 00d9 7806 |x | Jump 0xe0 ; case 0x3 00da 7837 |x7 | Jump 0x112 ; case 0x4 00db 7839 |x9 | Jump 0x115 ; case 0x5 00dc 7800 |x | Jump 0xdd ; case 0x6 00dd 0092 01fd | | Action Push_String_Extended,0x1fd ; "OTHER" 00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e0 4800 |H | Short_Literal 0x0 00e1 4820 |H | Short_Literal 0x20 00e2 485f |H_ | Short_Literal 0x5f 00e3 00db | | Load_Top At_Offset_3 00e4 e00c | | Load 0x0,0xc 00e5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00e6 e00c | | Load 0x0,0xc 00e7 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00e8 011c | | Execute Any,Convert_Unchecked 00e9 1c01 | | Execute_Immediate Run_Utility,0x1 00ea e00d | | Load 0x0,0xd 00eb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ed 00d8 | | Load_Top At_Offset_0 00ee e00e | | Load 0x0,0xe 00ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f0 680d |h | Jump_Zero 0xfe 00f1 4800 |H | Short_Literal 0x0 00f2 4820 |H | Short_Literal 0x20 00f3 485f |H_ | Short_Literal 0x5f 00f4 00db | | Load_Top At_Offset_3 00f5 e00e | | Load 0x0,0xe 00f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f7 e00e | | Load 0x0,0xe 00f8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00f9 011c | | Execute Any,Convert_Unchecked 00fa 1c01 | | Execute_Immediate Run_Utility,0x1 00fb e00d | | Load 0x0,0xd 00fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fe 00d8 | | Load_Top At_Offset_0 00ff e00f | | Load 0x0,0xf 0100 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0101 680d |h | Jump_Zero 0x10f 0102 4800 |H | Short_Literal 0x0 0103 4820 |H | Short_Literal 0x20 0104 485f |H_ | Short_Literal 0x5f 0105 00db | | Load_Top At_Offset_3 0106 e00e | | Load 0x0,0xe 0107 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0108 e00e | | Load 0x0,0xe 0109 1b15 | | Execute Package,Field_Read,Field_Number 0x15 010a 011c | | Execute Any,Convert_Unchecked 010b 1c01 | | Execute_Immediate Run_Utility,0x1 010c e00d | | Load 0x0,0xd 010d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010f 0092 01fe | | Action Push_String_Extended,0x1fe ; "A RECORD COMPONENT" 0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0112 0092 01ff | | Action Push_String_Extended,0x1ff ; "PRAGMA" 0114 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0115 0092 0200 | | Action Push_String_Extended,0x200 ; "REP SPEC" 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 e010 | | Load 0x0,0x10 011d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 011e 4612 |F | Jump_Case 0x13 011f 7812 |x | Jump 0x132 ; case 0x0 0120 7811 |x | Jump 0x132 ; case 0x1 0121 7810 |x | Jump 0x132 ; case 0x2 0122 780f |x | Jump 0x132 ; case 0x3 0123 780e |x | Jump 0x132 ; case 0x4 0124 780d |x | Jump 0x132 ; case 0x5 0125 780f |x | Jump 0x135 ; case 0x6 0126 7811 |x | Jump 0x138 ; case 0x7 0127 7813 |x | Jump 0x13b ; case 0x8 0128 7815 |x | Jump 0x13e ; case 0x9 0129 7817 |x | Jump 0x141 ; case 0xa 012a 7819 |x | Jump 0x144 ; case 0xb 012b 7806 |x | Jump 0x132 ; case 0xc 012c 7805 |x | Jump 0x132 ; case 0xd 012d 7804 |x | Jump 0x132 ; case 0xe 012e 7803 |x | Jump 0x132 ; case 0xf 012f 7802 |x | Jump 0x132 ; case 0x10 0130 7801 |x | Jump 0x132 ; case 0x11 0131 7800 |x | Jump 0x132 ; case 0x12 0132 0092 0201 | | Action Push_String_Extended,0x201 ; "UNKNOWN" 0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0135 0092 0202 | | Action Push_String_Extended,0x202 ; "CHARACTER" 0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0138 0092 0203 | | Action Push_String_Extended,0x203 ; "INTEGER" 013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013b 0092 0204 | | Action Push_String_Extended,0x204 ; "REAL" 013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013e 0092 0205 | | Action Push_String_Extended,0x205 ; "ENUMERATION" 0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0141 0092 0206 | | Action Push_String_Extended,0x206 ; "NULL" 0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0144 0092 0207 | | Action Push_String_Extended,0x207 ; "STRING" 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 0000 | | .XXX[0x1] 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 4607 |F | Jump_Case 0x8 014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 014d 7806 |x | Jump 0x154 ; case 0x1 014e 7809 |x | Jump 0x158 ; case 0x2 014f 780d |x | Jump 0x15d ; case 0x3 0150 7810 |x | Jump 0x161 ; case 0x4 0151 7811 |x | Jump 0x163 ; case 0x5 0152 7812 |x | Jump 0x165 ; case 0x6 0153 7815 |x | Jump 0x169 ; case 0x7 0154 00da | | Load_Top At_Offset_2 0155 0091 01f4 | | Action Push_String_Extended_Indexed,0x1f4 ; "KIND" 0157 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0158 00db | | Load_Top At_Offset_3 0159 00db | | Load_Top At_Offset_3 015a 00e0 | | Load_Encached Standard_Cache 015b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015d 00da | | Load_Top At_Offset_2 015e 00e0 | | Load_Encached Standard_Cache 015f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0161 00db | | Load_Top At_Offset_3 0162 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0163 00db | | Load_Top At_Offset_3 0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0165 e403 | | Load 0x2,0x3 0166 00dc | | Load_Top At_Offset_4 0167 0267 | g | Execute Discrete,Predecessor 0168 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0169 e403 | | Load 0x2,0x3 016a 00dc | | Load_Top At_Offset_4 016b 0268 | h | Execute Discrete,Successor 016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4800 |H | Short_Literal 0x0 0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c e010 | | Load 0x0,0x10 017d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 017e 4612 |F | Jump_Case 0x13 017f 7812 |x | Jump 0x192 ; case 0x0 0180 7811 |x | Jump 0x192 ; case 0x1 0181 7810 |x | Jump 0x192 ; case 0x2 0182 780f |x | Jump 0x192 ; case 0x3 0183 780e |x | Jump 0x192 ; case 0x4 0184 780d |x | Jump 0x192 ; case 0x5 0185 780e |x | Jump 0x194 ; case 0x6 0186 780f |x | Jump 0x196 ; case 0x7 0187 7810 |x | Jump 0x198 ; case 0x8 0188 7811 |x | Jump 0x19a ; case 0x9 0189 7812 |x | Jump 0x19c ; case 0xa 018a 7813 |x | Jump 0x19e ; case 0xb 018b 7806 |x | Jump 0x192 ; case 0xc 018c 7805 |x | Jump 0x192 ; case 0xd 018d 7804 |x | Jump 0x192 ; case 0xe 018e 7803 |x | Jump 0x192 ; case 0xf 018f 7802 |x | Jump 0x192 ; case 0x10 0190 7801 |x | Jump 0x192 ; case 0x11 0191 7800 |x | Jump 0x192 ; case 0x12 0192 4800 |H | Short_Literal 0x0 0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0194 e5fd | | Load 0x2,-0x3 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 e5fc | | Load 0x2,-0x4 0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0198 e5fb | | Load 0x2,-0x5 0199 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019a e5fa | | Load 0x2,-0x6 019b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019c e5f9 | | Load 0x2,-0x7 019d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019e e5fe | | Load 0x2,-0x2 019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 4603 |F | Jump_Case 0x4 01a5 7809 |x | Jump 0x1af ; case 0x0 01a6 780b |x | Jump 0x1b2 ; case 0x1 01a7 7804 |x | Jump 0x1ac ; case 0x2 01a8 7800 |x | Jump 0x1a9 ; case 0x3 01a9 0092 0208 | | Action Push_String_Extended,0x208 ; "The type of the literal" 01ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ac 0092 0209 | | Action Push_String_Extended,0x209 ; "The literal" 01ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01af 0092 020a | | Action Push_String_Extended,0x20a ; "The kind of the literal" 01b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b2 0092 020b | | Action Push_String_Extended,0x20b ; "Context is which the literal appears" 01b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b5 0000 0000 | | .XXX[0x3] 01b7 0000 | | 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 4603 |F | Jump_Case 0x4 01bd 7812 |x | Jump 0x1d0 ; case 0x0 01be 780e |x | Jump 0x1cd ; case 0x1 01bf 7809 |x | Jump 0x1c9 ; case 0x2 01c0 7800 |x | Jump 0x1c1 ; case 0x3 01c1 00db | | Load_Top At_Offset_3 01c2 e010 | | Load 0x0,0x10 01c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c4 e00e | | Load 0x0,0xe 01c5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01c6 e00e | | Load 0x0,0xe 01c7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c9 00db | | Load_Top At_Offset_3 01ca e00b | | Load 0x0,0xb 01cb 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01cd 00db | | Load_Top At_Offset_3 01ce 820f | | Call 0x1,0xf 01cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d0 00db | | Load_Top At_Offset_3 01d1 8210 | | Call 0x1,0x10 01d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d3 0000 0000 | | .BLANK 0000[0x5] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e00b | | Load 0x0,0xb 01dc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01dd c7fc | | Store 0x3,-0x4 01de 00da | | Load_Top At_Offset_2 01df 4603 |F | Jump_Case 0x4 01e0 7810 |x | Jump 0x1f1 ; case 0x0 01e1 780a |x | Jump 0x1ec ; case 0x1 01e2 7806 |x | Jump 0x1e9 ; case 0x2 01e3 7800 |x | Jump 0x1e4 ; case 0x3 01e4 00db | | Load_Top At_Offset_3 01e5 e010 | | Load 0x0,0x10 01e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e7 c7fd | | Store 0x3,-0x3 01e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e9 00db | | Load_Top At_Offset_3 01ea c7fd | | Store 0x3,-0x3 01eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ec 00db | | Load_Top At_Offset_3 01ed e00b | | Load 0x0,0xb 01ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ef c7fd | | Store 0x3,-0x3 01f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f1 00db | | Load_Top At_Offset_3 01f2 c7fd | | Store 0x3,-0x3 01f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f4 ; -------------------------------------------------------------------------------------- 01f4 ; STRING TABLE 01f4 ; -------------------------------------------------------------------------------------- 01f4 0032 | 2 | .STRTAB 0x0032->0x020d ; "KIND" 01f5 0034 | 4 | .STRTAB 0x0034->0x020f ; "CONTEXT" 01f6 0039 | 9 | .STRTAB 0x0039->0x0212 ; "LITERAL" 01f7 003e | > | .STRTAB 0x003e->0x0216 ; "TYPE_NAME" 01f8 0045 | E | .STRTAB 0x0045->0x021a ; "LITERALS" 01f9 004b | K | .STRTAB 0x004b->0x021e ; " is not a valid pathname" 01fa 0061 | a | .STRTAB 0x0061->0x022a ; "<PROFILE>" 01fb 0068 | h | .STRTAB 0x0068->0x022f ; "Problem creating object " 01fc 007e | ~ | .STRTAB 0x007e->0x023b ; ". " 01fd 007f | | .STRTAB 0x007f->0x023c ; "OTHER" 01fe 0082 | | .STRTAB 0x0082->0x023f ; "A RECORD COMPONENT" 01ff 0092 | | .STRTAB 0x0092->0x0248 ; "PRAGMA" 0200 0096 | | .STRTAB 0x0096->0x024b ; "REP SPEC" 0201 009c | | .STRTAB 0x009c->0x024f ; "UNKNOWN" 0202 00a1 | | .STRTAB 0x00a1->0x0252 ; "CHARACTER" 0203 00a8 | | .STRTAB 0x00a8->0x0257 ; "INTEGER" 0204 00ad | | .STRTAB 0x00ad->0x025a ; "REAL" 0205 00af | | .STRTAB 0x00af->0x025c ; "ENUMERATION" 0206 00b8 | | .STRTAB 0x00b8->0x0262 ; "NULL" 0207 00ba | | .STRTAB 0x00ba->0x0264 ; "STRING" 0208 00be | | .STRTAB 0x00be->0x0267 ; "The type of the literal" 0209 00d3 | | .STRTAB 0x00d3->0x0272 ; "The literal" 020a 00dc | | .STRTAB 0x00dc->0x0278 ; "The kind of the literal" 020b 00f1 | | .STRTAB 0x00f1->0x0283 ; "Context is which the literal appears" 020c 0113 | | .STREND 0x0113->0x0295 020d 4b49 4e44 |KIND| .STRTAB_STRINGS 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; Debug Table 0298 ; -------------------------------------------------------------------------------------- 0298 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f5c,0x0000,0x0001,0x000c 029e 000b 02ce | | .DBG4T 0x000b,0x02ce,0x8000,0x0000 02a2 0010 02d2 | | .DBG4T 0x0010,0x02d2,0x8000,0x0000 02a6 0023 02d8 | # | .DBG4T 0x0023,0x02d8,0x0001,0x0000 02aa 008b 02e5 | | .DBG4T 0x008b,0x02e5,0x0001,0x4000 02ae 00cb 02f5 | | .DBG4T 0x00cb,0x02f5,0x0002,0x4000 02b2 011b 030c | | .DBG4T 0x011b,0x030c,0x0002,0x4000 02b6 014b 0000 | K | .DBG4T 0x014b,0x0000,0x0005,0x0000 02ba 0173 031e | s | .DBG4T 0x0173,0x031e,0x0002,0x0000 02be 017b 0321 | { !| .DBG4T 0x017b,0x0321,0x0002,0x4000 02c2 01a3 0333 | 3| .DBG4T 0x01a3,0x0333,0x0002,0x4000 02c6 01bb 033f | ?| .DBG4T 0x01bb,0x033f,0x0002,0x4000 02ca 01db 034b | K| .DBG4T 0x01db,0x034b,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 0004 0000 | | .DBGLEN 0x0004,0x0000 02d4 0010 0012 | | .DBGLNO 0x0010,0x0012,0x0014,0x0016 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug chain 02d8 ; -------------------------------------------------------------------------------------- 02d8 0008 0003 | | .DBGLEN 0x0008,0x0003 02da 0023 0030 | # 0| .DBGLNO 0x0023,0x0030,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0057,0x005c,0x0066 02e5 ; -------------------------------------------------------------------------------------- 02e5 ; Debug chain 02e5 ; -------------------------------------------------------------------------------------- 02e5 0002 0006 | | .DBGLEN 0x0002,0x0006 02e7 008b 0090 | | .DBGLNO 0x008b,0x0090,0x0095,0x009b,0x00a2,0x00ad,0x00b1,0x00b7 02ef 0001 0002 | | .XXX[0x6] 02f1 0004 0005 | | 02f3 0006 0003 | | 02f5 ; -------------------------------------------------------------------------------------- 02f5 ; Debug chain 02f5 ; -------------------------------------------------------------------------------------- 02f5 0001 000a | | .DBGLEN 0x0001,0x000a 02f7 00cb 00d2 | | .DBGLNO 0x00cb,0x00d2,0x00dd,0x00e0,0x00ed,0x00f1,0x00fe,0x0102,0x010f,0x0112,0x0115 0302 0001 000a | | .XXX[0xa] 0304 0002 0003 | | 0306 0007 0004 | | 0308 0005 0006 | | 030a 0008 0009 | | 030c ; -------------------------------------------------------------------------------------- 030c ; Debug chain 030c ; -------------------------------------------------------------------------------------- 030c 0000 0008 | | .DBGLEN 0x0000,0x0008 030e 011b 0132 | 2| .DBGLNO 0x011b,0x0132,0x0135,0x0138,0x013b,0x013e,0x0141,0x0144 0316 0001 0008 | | .XXX[0x8] 0318 0002 0003 | | 031a 0004 0005 | | 031c 0006 0007 | | 031e ; -------------------------------------------------------------------------------------- 031e ; Debug chain 031e ; -------------------------------------------------------------------------------------- 031e 0000 0001 | | .DBGLEN 0x0000,0x0001 0320 0173 | s | .DBGLNO 0x0173 0321 ; -------------------------------------------------------------------------------------- 0321 ; Debug chain 0321 ; -------------------------------------------------------------------------------------- 0321 0000 0008 | | .DBGLEN 0x0000,0x0008 0323 017b 0192 | { | .DBGLNO 0x017b,0x0192,0x0194,0x0196,0x0198,0x019a,0x019c,0x019e 032b 0001 0008 | | .XXX[0x8] 032d 0002 0003 | | 032f 0004 0005 | | 0331 0006 0007 | | 0333 ; -------------------------------------------------------------------------------------- 0333 ; Debug chain 0333 ; -------------------------------------------------------------------------------------- 0333 0000 0005 | | .DBGLEN 0x0000,0x0005 0335 01a3 01a9 | | .DBGLNO 0x01a3,0x01a9,0x01ac,0x01af,0x01b2 033a 0001 0005 | | .XXX[0x5] 033c 0002 0003 | | 033e 0004 | | 033f ; -------------------------------------------------------------------------------------- 033f ; Debug chain 033f ; -------------------------------------------------------------------------------------- 033f 0000 0005 | | .DBGLEN 0x0000,0x0005 0341 01bb 01c1 | | .DBGLNO 0x01bb,0x01c1,0x01c9,0x01cd,0x01d0 0346 0001 0005 | | .XXX[0x5] 0348 0002 0003 | | 034a 0004 | | 034b ; -------------------------------------------------------------------------------------- 034b ; Debug chain 034b ; -------------------------------------------------------------------------------------- 034b 0000 0006 | | .DBGLEN 0x0000,0x0006 034d 01db 01de | | .DBGLNO 0x01db,0x01de,0x01e4,0x01e9,0x01ec,0x01f1 0353 0001 0002 | | .XXX[0x6] 0355 0006 0003 | | 0357 0004 0005 | | 0359 0000 0000 | | .BLANK 0000[0xa7]