|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0220f2
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0330 | 0 | .CONST 0x0330 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003a | : | .CONST 0x003a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0013 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0015 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0017 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 001c 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 001e 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 0020 e001 | | Load 0x0,0x1 0021 e002 | | Load 0x0,0x2 0022 e003 | | Load 0x0,0x3 0023 195f | _ | Execute Package,Field_Reference,Field_Number 0x5f 0024 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0025 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0026 4977 |Iw | Short_Literal 0x177 0027 00eb | | Load_Encached Diana_Cache 0028 0098 | | Execute Package,Field_Read_Dynamic 0029 0387 | | Declare_Variable Package 002a 00d8 | | Load_Top At_Offset_0 002b 020f | | Execute Module,Activate 002c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002d 00c7 | | Action Elaborate_Subprogram 002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002f 00c7 | | Action Elaborate_Subprogram 0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0031 00c7 | | Action Elaborate_Subprogram 0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0033 00c7 | | Action Elaborate_Subprogram 0034 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0035 00c7 | | Action Elaborate_Subprogram 0036 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0037 00c7 | | Action Elaborate_Subprogram 0038 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0039 00c7 | | Action Elaborate_Subprogram 003a BODY_0008: 003a 00bc | | Action Signal_Activated 003b 00bb | | Action Signal_Completion 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0048 | H | .CONST 0x0048 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0045 00eb | | Load_Encached Diana_Cache 0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0047 03f1 | | Declare_Variable Discrete,With_Value 0048 BODY_0040: 0048 7800 |x | Jump 0x49 0049 00d8 | | Load_Top At_Offset_0 004a e5fe | | Load 0x2,-0x2 004b 027e | ~ | Execute Discrete,Not_Equal 004c 6815 |h | Jump_Zero 0x62 004d 4807 |H | Short_Literal 0x7 004e e5fd | | Load 0x2,-0x3 004f 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "(" 0051 01cc | | Execute Vector,Catenate 0052 00da | | Load_Top At_Offset_2 0053 00eb | | Load_Encached Diana_Cache 0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0055 011c | | Execute Any,Convert_Unchecked 0056 1c01 | | Execute_Immediate Run_Utility,0x1 0057 01cc | | Execute Vector,Catenate 0058 0092 02b1 | | Action Push_String_Extended,0x2b1 ; " /= " 005a 01cc | | Execute Vector,Catenate 005b e5fe | | Load 0x2,-0x2 005c 00eb | | Load_Encached Diana_Cache 005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005e 011c | | Execute Any,Convert_Unchecked 005f 1c01 | | Execute_Immediate Run_Utility,0x1 0060 01cc | | Execute Vector,Catenate 0061 8214 | | Call 0x1,0x14 0062 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0063 0000 0000 | | .BLANK 0000[0x5] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0082 | | .CONST 0x0082 ; Address of begin 0069 0083 | | .CONST 0x0083 ; Address of exception handler 006a 0005 | | .CONST 0x0005 ; Number of locals 006b INIT_0068: 006b e006 | | Load 0x0,0x6 006c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 006d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006e 02c7 | | Declare_Variable Any 006f 00db | | Load_Top At_Offset_3 0070 e006 | | Load 0x0,0x6 0071 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0072 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0073 a402 | | Store_Unchecked 0x2,0x2 0074 e006 | | Load 0x0,0x6 0075 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0076 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0077 02c7 | | Declare_Variable Any 0078 00d8 | | Load_Top At_Offset_0 0079 1c00 | | Execute_Immediate Run_Utility,0x0 007a e006 | | Load 0x0,0x6 007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007c e006 | | Load 0x0,0x6 007d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 007e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 007f 02c7 | | Declare_Variable Any 0080 00d8 | | Load_Top At_Offset_0 0081 1c00 | | Execute_Immediate Run_Utility,0x0 0082 BODY_0068: 0082 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0083 TRAP_0068: 0083 0007 | | Action Break_Optional 0084 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009f | | .CONST 0x009f ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e006 | | Load 0x0,0x6 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 e006 | | Load 0x0,0x6 0096 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0097 02ff | | Declare_Variable Variant_Record 0098 00d8 | | Load_Top At_Offset_0 0099 1c00 | | Execute_Immediate Run_Utility,0x0 009a e006 | | Load 0x0,0x6 009b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 009c 02c7 | | Declare_Variable Any 009d 00d8 | | Load_Top At_Offset_0 009e 1c00 | | Execute_Immediate Run_Utility,0x0 009f BODY_0090: 009f e006 | | Load 0x0,0x6 00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a1 00da | | Load_Top At_Offset_2 00a2 67e5 |g | Indirect_Literal Discrete,0x88,{0x00000000, 0x00004000} 00a3 e007 | | Load 0x0,0x7 00a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a5 e5ff | | Load 0x2,-0x1 00a6 e006 | | Load 0x0,0x6 00a7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 00a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a9 00d1 | | Pop_Control Pop_Count_1 00aa 005b | [ | Store_Top Discrete,At_Offset_3 00ab 00da | | Load_Top At_Offset_2 00ac 681b |h | Jump_Zero 0xc8 00ad 00da | | Load_Top At_Offset_2 00ae 0f07 | | Execute_Immediate Equal,0x7 00af 7015 |p | Jump_Nonzero 0xc5 00b0 4807 |H | Short_Literal 0x7 00b1 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "Get_Other_Part (" 00b3 e5ff | | Load 0x2,-0x1 00b4 e006 | | Load 0x0,0x6 00b5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00b7 01cc | | Execute Vector,Catenate 00b8 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ") failed with " 00ba 01cc | | Execute Vector,Catenate 00bb e402 | | Load 0x2,0x2 00bc e006 | | Load 0x0,0x6 00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00be 011c | | Execute Any,Convert_Unchecked 00bf 1c01 | | Execute_Immediate Run_Utility,0x1 00c0 01cc | | Execute Vector,Catenate 00c1 0092 02b4 | | Action Push_String_Extended,0x2b4 ; ": Other_Part_Of" 00c3 01cc | | Execute Vector,Catenate 00c4 8214 | | Call 0x1,0x14 00c5 e006 | | Load 0x0,0x6 00c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c8 e006 | | Load 0x0,0x6 00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ca 00d9 | | Load_Top At_Offset_1 00cb 0120 | | Execute Any,Is_Value 00cc 6803 |h | Jump_Zero 0xd0 00cd e006 | | Load 0x0,0x6 00ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00cf 7801 |x | Jump 0xd1 00d0 00d9 | | Load_Top At_Offset_1 00d1 67b6 |g | Indirect_Literal Discrete,0x88,{0x00000000, 0x00004000} 00d2 e007 | | Load 0x0,0x7 00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d4 e403 | | Load 0x2,0x3 00d5 e006 | | Load 0x0,0x6 00d6 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 00d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d8 c404 | | Store 0x2,0x4 00d9 005b | [ | Store_Top Discrete,At_Offset_3 00da 00da | | Load_Top At_Offset_2 00db 6818 |h | Jump_Zero 0xf4 00dc 4807 |H | Short_Literal 0x7 00dd 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "get_Object (" 00df e5ff | | Load 0x2,-0x1 00e0 e006 | | Load 0x0,0x6 00e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e2 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00e3 01cc | | Execute Vector,Catenate 00e4 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ") failed with " 00e6 01cc | | Execute Vector,Catenate 00e7 e402 | | Load 0x2,0x2 00e8 e006 | | Load 0x0,0x6 00e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ea 011c | | Execute Any,Convert_Unchecked 00eb 1c01 | | Execute_Immediate Run_Utility,0x1 00ec 01cc | | Execute Vector,Catenate 00ed 0092 02b4 | | Action Push_String_Extended,0x2b4 ; ": Other_Part_Of" 00ef 01cc | | Execute Vector,Catenate 00f0 8214 | | Call 0x1,0x14 00f1 e006 | | Load 0x0,0x6 00f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f4 00d8 | | Load_Top At_Offset_0 00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0102 | | .CONST 0x0102 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb e006 | | Load 0x0,0x6 00fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00fd 02ff | | Declare_Variable Variant_Record 00fe 00d8 | | Load_Top At_Offset_0 00ff 1c00 | | Execute_Immediate Run_Utility,0x0 0100 e006 | | Load 0x0,0x6 0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0102 BODY_00f8: 0102 e5ff | | Load 0x2,-0x1 0103 e006 | | Load 0x0,0x6 0104 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0105 6807 |h | Jump_Zero 0x10d 0106 e5ff | | Load 0x2,-0x1 0107 00d8 | | Load_Top At_Offset_0 0108 0120 | | Execute Any,Is_Value 0109 7002 |p | Jump_Nonzero 0x10c 010a 00d8 | | Load_Top At_Offset_0 010b 011e | | Execute Any,Convert 010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010d e006 | | Load 0x0,0x6 010e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010f 00da | | Load_Top At_Offset_2 0110 602b |`+ | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00004000} 0111 e007 | | Load 0x0,0x7 0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0113 4800 |H | Short_Literal 0x0 0114 e5ff | | Load 0x2,-0x1 0115 e006 | | Load 0x0,0x6 0116 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0117 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0118 00d1 | | Pop_Control Pop_Count_1 0119 0059 | Y | Store_Top Discrete,At_Offset_1 011a 00d8 | | Load_Top At_Offset_0 011b 681c |h | Jump_Zero 0x138 011c 4807 |H | Short_Literal 0x7 011d 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "Get_Version ( " 011f e5ff | | Load 0x2,-0x1 0120 e006 | | Load 0x0,0x6 0121 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0122 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0123 01cc | | Execute Vector,Catenate 0124 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ") failed with " 0126 01cc | | Execute Vector,Catenate 0127 00da | | Load_Top At_Offset_2 0128 e006 | | Load 0x0,0x6 0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012a 011c | | Execute Any,Convert_Unchecked 012b 1c01 | | Execute_Immediate Run_Utility,0x1 012c 01cc | | Execute Vector,Catenate 012d 0092 02b7 | | Action Push_String_Extended,0x2b7 ; ": Body_Of" 012f 01cc | | Execute Vector,Catenate 0130 8214 | | Call 0x1,0x14 0131 e5ff | | Load 0x2,-0x1 0132 00d8 | | Load_Top At_Offset_0 0133 0120 | | Execute Any,Is_Value 0134 7002 |p | Jump_Nonzero 0x137 0135 00d8 | | Load_Top At_Offset_0 0136 011e | | Execute Any,Convert 0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0138 00d9 | | Load_Top At_Offset_1 0139 820f | | Call 0x1,0xf 013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013b 0000 | | .XXX[0x1] 013c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014a | J | .CONST 0x014a ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e006 | | Load 0x0,0x6 0144 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0145 02ff | | Declare_Variable Variant_Record 0146 00d8 | | Load_Top At_Offset_0 0147 1c00 | | Execute_Immediate Run_Utility,0x0 0148 e006 | | Load 0x0,0x6 0149 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014a BODY_0140: 014a e5ff | | Load 0x2,-0x1 014b e006 | | Load 0x0,0x6 014c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014d 6807 |h | Jump_Zero 0x155 014e e5ff | | Load 0x2,-0x1 014f 00d8 | | Load_Top At_Offset_0 0150 0120 | | Execute Any,Is_Value 0151 7002 |p | Jump_Nonzero 0x154 0152 00d8 | | Load_Top At_Offset_0 0153 011e | | Execute Any,Convert 0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0155 e006 | | Load 0x0,0x6 0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0157 00da | | Load_Top At_Offset_2 0158 67e3 |g | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00004000} 0159 e007 | | Load 0x0,0x7 015a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 015b 4800 |H | Short_Literal 0x0 015c e5ff | | Load 0x2,-0x1 015d e006 | | Load 0x0,0x6 015e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 015f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0160 00d1 | | Pop_Control Pop_Count_1 0161 0059 | Y | Store_Top Discrete,At_Offset_1 0162 00d8 | | Load_Top At_Offset_0 0163 681c |h | Jump_Zero 0x180 0164 4807 |H | Short_Literal 0x7 0165 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "Get_Version (" 0167 e5ff | | Load 0x2,-0x1 0168 e006 | | Load 0x0,0x6 0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 016a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 016b 01cc | | Execute Vector,Catenate 016c 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ") failed with " 016e 01cc | | Execute Vector,Catenate 016f 00da | | Load_Top At_Offset_2 0170 e006 | | Load 0x0,0x6 0171 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0172 011c | | Execute Any,Convert_Unchecked 0173 1c01 | | Execute_Immediate Run_Utility,0x1 0174 01cc | | Execute Vector,Catenate 0175 0092 02b7 | | Action Push_String_Extended,0x2b7 ; ": Body_Of" 0177 01cc | | Execute Vector,Catenate 0178 8214 | | Call 0x1,0x14 0179 e5ff | | Load 0x2,-0x1 017a 00d8 | | Load_Top At_Offset_0 017b 0120 | | Execute Any,Is_Value 017c 7002 |p | Jump_Nonzero 0x17f 017d 00d8 | | Load_Top At_Offset_0 017e 011e | | Execute Any,Convert 017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0180 00d9 | | Load_Top At_Offset_1 0181 e006 | | Load 0x0,0x6 0182 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0183 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0184 6803 |h | Jump_Zero 0x188 0185 00d9 | | Load_Top At_Offset_1 0186 820f | | Call 0x1,0xf 0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0188 e5ff | | Load 0x2,-0x1 0189 00d8 | | Load_Top At_Offset_0 018a 0120 | | Execute Any,Is_Value 018b 7002 |p | Jump_Nonzero 0x18e 018c 00d8 | | Load_Top At_Offset_0 018d 011e | | Execute Any,Convert 018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 01ba | | .CONST 0x01ba ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 000a | | .CONST 0x000a ; Number of locals 0193 INIT_0190: 0193 e006 | | Load 0x0,0x6 0194 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0196 02c7 | | Declare_Variable Any 0197 00db | | Load_Top At_Offset_3 0198 e006 | | Load 0x0,0x6 0199 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 019a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 019b a402 | | Store_Unchecked 0x2,0x2 019c e006 | | Load 0x0,0x6 019d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 019e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 019f 02c7 | | Declare_Variable Any 01a0 00d8 | | Load_Top At_Offset_0 01a1 1c00 | | Execute_Immediate Run_Utility,0x0 01a2 00ec | | Load_Encached Diana_Tree_Cache 01a3 02c7 | | Declare_Variable Any 01a4 00d8 | | Load_Top At_Offset_0 01a5 1c00 | | Execute_Immediate Run_Utility,0x0 01a6 00ee | | Load_Encached Diana_Seq_Type_Cache 01a7 02c7 | | Declare_Variable Any 01a8 00d8 | | Load_Top At_Offset_0 01a9 1c00 | | Execute_Immediate Run_Utility,0x0 01aa 00ec | | Load_Encached Diana_Tree_Cache 01ab 02c7 | | Declare_Variable Any 01ac 00d8 | | Load_Top At_Offset_0 01ad 1c00 | | Execute_Immediate Run_Utility,0x0 01ae e006 | | Load 0x0,0x6 01af 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01b0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01b1 02c7 | | Declare_Variable Any 01b2 00d8 | | Load_Top At_Offset_0 01b3 1c00 | | Execute_Immediate Run_Utility,0x0 01b4 e006 | | Load 0x0,0x6 01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b6 00e1 | | Load_Encached Boolean_Cache 01b7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01b8 029f 029b | | Declare_Subprogram INIT_0298,For_Call 01ba BODY_0190: 01ba e006 | | Load 0x0,0x6 01bb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01bd e5ff | | Load 0x2,-0x1 01be e006 | | Load 0x0,0x6 01bf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01c0 012e | . | Execute Any,Not_Equal 01c1 6802 |h | Jump_Zero 0x1c4 01c2 4800 |H | Short_Literal 0x0 01c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c4 e5ff | | Load 0x2,-0x1 01c5 820e | | Call 0x1,0xe 01c6 e006 | | Load 0x0,0x6 01c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c8 e407 | | Load 0x2,0x7 01c9 0120 | | Execute Any,Is_Value 01ca 6804 |h | Jump_Zero 0x1cf 01cb e006 | | Load 0x0,0x6 01cc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01cd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01ce 7801 |x | Jump 0x1d0 01cf e407 | | Load 0x2,0x7 01d0 e403 | | Load 0x2,0x3 01d1 0120 | | Execute Any,Is_Value 01d2 6804 |h | Jump_Zero 0x1d7 01d3 e006 | | Load 0x0,0x6 01d4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01d5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01d6 7801 |x | Jump 0x1d8 01d7 e403 | | Load 0x2,0x3 01d8 6067 |`g | Indirect_Literal Discrete,0x240,{0x00000000, 0x00004000} 01d9 4801 |H | Short_Literal 0x1 01da 4800 |H | Short_Literal 0x0 01db 4800 |H | Short_Literal 0x0 01dc e007 | | Load 0x0,0x7 01dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01de 4800 |H | Short_Literal 0x0 01df e402 | | Load 0x2,0x2 01e0 e006 | | Load 0x0,0x6 01e1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01e2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01e3 c403 | | Store 0x2,0x3 01e4 c407 | | Store 0x2,0x7 01e5 005b | [ | Store_Top Discrete,At_Offset_3 01e6 00da | | Load_Top At_Offset_2 01e7 0f0d | | Execute_Immediate Equal,0xd 01e8 6802 |h | Jump_Zero 0x1eb 01e9 4800 |H | Short_Literal 0x0 01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01eb 00da | | Load_Top At_Offset_2 01ec 680f |h | Jump_Zero 0x1fc 01ed 4807 |H | Short_Literal 0x7 01ee 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "Open for Comp_Unit failed (" 01f0 e408 | | Load 0x2,0x8 01f1 e006 | | Load 0x0,0x6 01f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f3 011c | | Execute Any,Convert_Unchecked 01f4 1c01 | | Execute_Immediate Run_Utility,0x1 01f5 01cc | | Execute Vector,Catenate 01f6 0092 02ba | | Action Push_String_Extended,0x2ba ; ")" 01f8 01cc | | Execute Vector,Catenate 01f9 8214 | | Call 0x1,0x14 01fa 4800 |H | Short_Literal 0x0 01fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fc 0092 02bb | | Action Push_String_Extended,0x2bb ; "Open => Unit_Root" 01fe 48a8 |H | Short_Literal 0xa8 01ff e403 | | Load 0x2,0x3 0200 820d | | Call 0x1,0xd 0201 e403 | | Load 0x2,0x3 0202 00eb | | Load_Encached Diana_Cache 0203 18db | | Execute Package,Field_Execute,Field_Number 0xdb 0204 c404 | | Store 0x2,0x4 0205 0092 02bc | | Action Push_String_Extended,0x2bc ; "As_Pragma_S => Pragma_S" 0207 4895 |H | Short_Literal 0x95 0208 e404 | | Load 0x2,0x4 0209 820d | | Call 0x1,0xd 020a e404 | | Load 0x2,0x4 020b 00eb | | Load_Encached Diana_Cache 020c 1889 | | Execute Package,Field_Execute,Field_Number 0x89 020d c405 | | Store 0x2,0x5 020e 00cf | | Action Mark_Auxiliary 020f 780e |x | Jump 0x21e 0210 e405 | | Load 0x2,0x5 0211 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 0212 c406 | | Store 0x2,0x6 0213 0092 02bd | | Action Push_String_Extended,0x2bd ; "Diana.Head => Next_Pragma" 0215 4840 |H@ | Short_Literal 0x40 0216 e406 | | Load 0x2,0x6 0217 820d | | Call 0x1,0xd 0218 840a | | Call 0x2,0xa 0219 e405 | | Load 0x2,0x5 021a 0217 | | Execute Heap_Access,All_Reference 021b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021c c405 | | Store 0x2,0x5 021d 00c9 | | Action Pop_Auxiliary_Loop 021e e405 | | Load 0x2,0x5 021f 77f0 |w | Jump_Nonzero 0x210 0220 00ce | | Action Pop_Auxiliary 0221 e006 | | Load 0x0,0x6 0222 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0223 4800 |H | Short_Literal 0x0 0224 4800 |H | Short_Literal 0x0 0225 e007 | | Load 0x0,0x7 0226 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0227 e403 | | Load 0x2,0x3 0228 e006 | | Load 0x0,0x6 0229 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 022a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 022b 005b | [ | Store_Top Discrete,At_Offset_3 022c 00da | | Load_Top At_Offset_2 022d 680d |h | Jump_Zero 0x23b 022e 4807 |H | Short_Literal 0x7 022f 0092 02be | | Action Push_String_Extended,0x2be ; "Close failed (" 0231 e408 | | Load 0x2,0x8 0232 e006 | | Load 0x0,0x6 0233 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0234 011c | | Execute Any,Convert_Unchecked 0235 1c01 | | Execute_Immediate Run_Utility,0x1 0236 01cc | | Execute Vector,Catenate 0237 0092 02ba | | Action Push_String_Extended,0x2ba ; ")" 0239 01cc | | Execute Vector,Catenate 023a 8214 | | Call 0x1,0x14 023b 00d9 | | Load_Top At_Offset_1 023c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0253 | S | .CONST 0x0253 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0003 | | .CONST 0x0003 ; Number of locals 024b INIT_0248: 024b e006 | | Load 0x0,0x6 024c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024d 02c7 | | Declare_Variable Any 024e 00d8 | | Load_Top At_Offset_0 024f 1c00 | | Execute_Immediate Run_Utility,0x0 0250 e006 | | Load 0x0,0x6 0251 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0252 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0253 BODY_0248: 0253 e006 | | Load 0x0,0x6 0254 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0255 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0256 00da | | Load_Top At_Offset_2 0257 0120 | | Execute Any,Is_Value 0258 6803 |h | Jump_Zero 0x25c 0259 e006 | | Load 0x0,0x6 025a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 025b 7801 |x | Jump 0x25d 025c 00da | | Load_Top At_Offset_2 025d 67e2 |g | Indirect_Literal Discrete,0x240,{0x00000000, 0x00004000} 025e e007 | | Load 0x0,0x7 025f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0260 e008 | | Load 0x0,0x8 0261 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0262 e006 | | Load 0x0,0x6 0263 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0264 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0265 e5ff | | Load 0x2,-0x1 0266 e006 | | Load 0x0,0x6 0267 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0268 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0269 c402 | | Store 0x2,0x2 026a 0059 | Y | Store_Top Discrete,At_Offset_1 026b 00d8 | | Load_Top At_Offset_0 026c 6802 |h | Jump_Zero 0x26f 026d 4800 |H | Short_Literal 0x0 026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026f 00d9 | | Load_Top At_Offset_1 0270 8212 | | Call 0x1,0x12 0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0272 0000 0000 | | .BLANK 0000[0x6] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b e004 | | Load 0x0,0x4 027c 180e | | Execute Package,Field_Execute,Field_Number 0xe 027d e5fe | | Load 0x2,-0x2 027e e5ff | | Load 0x2,-0x1 027f e005 | | Load 0x0,0x5 0280 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0281 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0282 0000 0000 | | .BLANK 0000[0x6] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 4801 |H | Short_Literal 0x1 0294 e003 | | Load 0x0,0x3 0295 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0296 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a2 | | .CONST 0x02a2 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e406 | | Load 0x2,0x6 029c 00eb | | Load_Encached Diana_Cache 029d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 029e 00eb | | Load_Encached Diana_Cache 029f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02a0 00eb | | Load_Encached Diana_Cache 02a1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02a2 BODY_0298: 02a2 00d8 | | Load_Top At_Offset_0 02a3 01db | | Execute Vector,Length 02a4 0f04 | | Execute_Immediate Equal,0x4 02a5 6809 |h | Jump_Zero 0x2af 02a6 00d8 | | Load_Top At_Offset_0 02a7 0092 02bf | | Action Push_String_Extended,0x2bf ; "MAIN" 02a9 01df | | Execute Vector,Equal 02aa 6804 |h | Jump_Zero 0x2af 02ab 4801 |H | Short_Literal 0x1 02ac a409 | | Store_Unchecked 0x2,0x9 02ad 00cc | | Action Pop_Block 02ae 7f71 | q | Jump 0x220 02af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; STRING TABLE 02b0 ; -------------------------------------------------------------------------------------- 02b0 0022 | " | .STRTAB 0x0022->0x02c1 ; "(" 02b1 0021 | ! | .STRTAB 0x0021->0x02c1 ; " /= " 02b2 0023 | # | .STRTAB 0x0023->0x02c3 ; "Get_Other_Part (" 02b3 0031 | 1 | .STRTAB 0x0031->0x02cb ; ") failed with " 02b4 003d | = | .STRTAB 0x003d->0x02d2 ; ": Other_Part_Of" 02b5 004a | J | .STRTAB 0x004a->0x02da ; "get_Object (" 02b6 0054 | T | .STRTAB 0x0054->0x02e0 ; "Get_Version ( " 02b7 0060 | ` | .STRTAB 0x0060->0x02e7 ; ": Body_Of" 02b8 0067 | g | .STRTAB 0x0067->0x02eb ; "Get_Version (" 02b9 0072 | r | .STRTAB 0x0072->0x02f2 ; "Open for Comp_Unit failed (" 02ba 008b | | .STRTAB 0x008b->0x02ff ; ")" 02bb 008a | | .STRTAB 0x008a->0x0300 ; "Open => Unit_Root" 02bc 0099 | | .STRTAB 0x0099->0x0308 ; "As_Pragma_S => Pragma_S" 02bd 00ae | | .STRTAB 0x00ae->0x0314 ; "Diana.Head => Next_Pragma" 02be 00c5 | | .STRTAB 0x00c5->0x0320 ; "Close failed (" 02bf 00d1 | | .STRTAB 0x00d1->0x0327 ; "MAIN" 02c0 00d3 | | .STREND 0x00d3->0x0329 02c1 2820 2f3d |( /=| .STRTAB_STRINGS 032a 0000 0000 | | .BLANK 0000[0x6] 0330 ; -------------------------------------------------------------------------------------- 0330 ; Debug Table 0330 ; -------------------------------------------------------------------------------------- 0330 0004 000d | | .DEBUG4 0x0004,0x000d,0x793a,0x0000,0x0001,0x0000 0336 0000 0000 | | .BLANK 0000[0xc] 0342 7780 0002 |w | .XXX[0x3] 0344 e660 | ` | 0345 0000 0000 | | .BLANK 0000[0x5] 034a 0040 0000 | @ | .XXX[0x13] 034c 0480 0000 | | 034e 0000 0000 | | 0350 0100 0000 | | 0352 1200 008d | | 0354 0400 0000 | | 0356 0402 ef14 | | 0358 1c00 033d | =| 035a a800 0003 | | 035c e710 | | 035d 0000 0000 | | .BLANK 0000[0x4] 0361 6000 |` | .XXX[0x1] 0362 0000 0000 | | .BLANK 0000[0xc] 036e 031c 8000 | | .XXX[0x2] 0370 0000 0000 | | .BLANK 0000[0x4] 0374 00fc 6000 | ` | .XXX[0x1b] 0376 0003 c989 | | 0378 e828 8bea | ( | 037a 0a49 e86a | I j| 037c 65ca 48a9 |e H | 037e a9ea 88ab | | 0380 e929 ca6a | ) j| 0382 8829 8984 | ) | 0384 ea6a 08a8 | j | 0386 6000 02e6 |` | 0388 6000 025d |` ]| 038a a000 04ad | | 038c a000 00b3 | | 038e e000 | | 038f 0000 0000 | | .BLANK 0000[0x7] 0396 3890 7000 |8 p | .XXX[0x4] 0398 01a3 7000 | p | 039a 0000 0000 | | .BLANK 0000[0x7] 03a1 3f00 003e |? >| .XXX[0x7] 03a3 8100 0000 | | 03a5 1000 0000 | | 03a7 2400 |$ | 03a8 0000 0000 | | .BLANK 0000[0x4] 03ac 0004 0000 | | .XXX[0x54] 03ae 0024 8000 | $ | 03b0 0000 1000 | | 03b2 0000 8000 | | 03b4 0000 0000 | | 03b6 0002 a000 | | 03b8 0000 0000 | | 03ba 0001 5000 | P | 03bc 0000 0000 | | 03be 0000 a800 | | 03c0 0000 0000 | | 03c2 0000 5400 | T | 03c4 0000 0000 | | 03c6 0000 2a00 | * | 03c8 0000 0000 | | 03ca 0000 1500 | | 03cc 0000 0000 | | 03ce 0000 0a80 | | 03d0 0000 0000 | | 03d2 0000 0540 | @| 03d4 0000 0000 | | 03d6 0000 00b0 | | 03d8 0002 8b80 | | 03da 0000 0020 | | 03dc 0003 a780 | | 03de 0000 0160 | `| 03e0 0005 1740 | @| 03e2 0000 0040 | @| 03e4 0007 6ec0 | n | 03e6 0000 02c0 | | 03e8 000a 2d80 | - | 03ea 0000 0080 | | 03ec 000f 1d00 | | 03ee 0000 0580 | | 03f0 0014 5900 | Y | 03f2 0000 0100 | | 03f4 001e b900 | | 03f6 0000 0b00 | | 03f8 0028 b400 | ( | 03fa 0000 0200 | | 03fc 003f 6e00 | ?n | 03fe 0000 0000 | |