|
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_5f28f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0310 | | .CONST 0x0310 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003d | = | .CONST 0x003d ; 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 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0011 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0013 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0015 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0017 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 0007 | | Action Break_Optional 001b 0007 | | Action Break_Optional 001c 0007 | | Action Break_Optional 001d 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call 001f 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 0021 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 0023 e001 | | Load 0x0,0x1 0024 e002 | | Load 0x0,0x2 0025 e003 | | Load 0x0,0x3 0026 194b | K | Execute Package,Field_Reference,Field_Number 0x4b 0027 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0028 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0029 4977 |Iw | Short_Literal 0x177 002a 00eb | | Load_Encached Diana_Cache 002b 0098 | | Execute Package,Field_Read_Dynamic 002c 0387 | | Declare_Variable Package 002d 00d8 | | Load_Top At_Offset_0 002e 020f | | Execute Module,Activate 002f 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0030 00c7 | | Action Elaborate_Subprogram 0031 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0032 00c7 | | Action Elaborate_Subprogram 0033 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0034 00c7 | | Action Elaborate_Subprogram 0035 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0036 00c7 | | Action Elaborate_Subprogram 0037 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0038 00c7 | | Action Elaborate_Subprogram 0039 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003a 00c7 | | Action Elaborate_Subprogram 003b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003c 00c7 | | Action Elaborate_Subprogram 003d BODY_0008: 003d 00bc | | Action Signal_Activated 003e 00bb | | Action Signal_Completion 003f 0000 | | .XXX[0x1] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0049 | I | .CONST 0x0049 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 e5ff | | Load 0x2,-0x1 0044 00eb | | Load_Encached Diana_Cache 0045 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0046 00eb | | Load_Encached Diana_Cache 0047 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0048 03f1 | | Declare_Variable Discrete,With_Value 0049 BODY_0040: 0049 0007 | | Action Break_Optional 004a 00d8 | | Load_Top At_Offset_0 004b e5fe | | Load 0x2,-0x2 004c 027e | ~ | Execute Discrete,Not_Equal 004d 6815 |h | Jump_Zero 0x63 004e 4807 |H | Short_Literal 0x7 004f e5fd | | Load 0x2,-0x3 0050 0092 0294 | | Action Push_String_Extended,0x294 ; "(" 0052 01cc | | Execute Vector,Catenate 0053 e402 | | Load 0x2,0x2 0054 00eb | | Load_Encached Diana_Cache 0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0056 025e | ^ | Execute Discrete,Convert 0057 1c01 | | Execute_Immediate Run_Utility,0x1 0058 01cc | | Execute Vector,Catenate 0059 0092 0295 | | Action Push_String_Extended,0x295 ; " /= " 005b 01cc | | Execute Vector,Catenate 005c e5fe | | Load 0x2,-0x2 005d 00eb | | Load_Encached Diana_Cache 005e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005f 025e | ^ | Execute Discrete,Convert 0060 1c01 | | Execute_Immediate Run_Utility,0x1 0061 01cc | | Execute Vector,Catenate 0062 8214 | | Call 0x1,0x14 0063 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 007f | | .CONST 0x007f ; Address of begin 0069 0081 | | .CONST 0x0081 ; Address of exception handler 006a 0005 | | .CONST 0x0005 ; Number of locals 006b INIT_0068: 006b e004 | | Load 0x0,0x4 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 e5ff | | Load 0x2,-0x1 0070 e004 | | Load 0x0,0x4 0071 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0072 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0073 c402 | | Store 0x2,0x2 0074 e004 | | Load 0x0,0x4 0075 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0076 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0077 e004 | | Load 0x0,0x4 0078 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0079 e004 | | Load 0x0,0x4 007a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 007b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 007c 02c7 | | Declare_Variable Any 007d 00d8 | | Load_Top At_Offset_0 007e 1c00 | | Execute_Immediate Run_Utility,0x0 007f BODY_0068: 007f 0007 | | Action Break_Optional 0080 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0081 TRAP_0068: 0081 0007 | | Action Break_Optional 0082 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0083 0000 0000 | | .BLANK 0000[0x5] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0097 | | .CONST 0x0097 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0004 | | .CONST 0x0004 ; Number of locals 008b INIT_0088: 008b e004 | | Load 0x0,0x4 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d e004 | | Load 0x0,0x4 008e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 008f 02ff | | Declare_Variable Variant_Record 0090 00d8 | | Load_Top At_Offset_0 0091 1c00 | | Execute_Immediate Run_Utility,0x0 0092 e004 | | Load 0x0,0x4 0093 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0094 02c7 | | Declare_Variable Any 0095 00d8 | | Load_Top At_Offset_0 0096 1c00 | | Execute_Immediate Run_Utility,0x0 0097 BODY_0088: 0097 e004 | | Load 0x0,0x4 0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0099 e403 | | Load 0x2,0x3 009a 61f5 |a | Indirect_Literal Discrete,0x290,{0x00000000, 0x00004000} 009b e005 | | Load 0x0,0x5 009c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009d e5ff | | Load 0x2,-0x1 009e e004 | | Load 0x0,0x4 009f 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 00a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a1 00d1 | | Pop_Control Pop_Count_1 00a2 c402 | | Store 0x2,0x2 00a3 e402 | | Load 0x2,0x2 00a4 681b |h | Jump_Zero 0xc0 00a5 e402 | | Load 0x2,0x2 00a6 0f07 | | Execute_Immediate Equal,0x7 00a7 7015 |p | Jump_Nonzero 0xbd 00a8 4807 |H | Short_Literal 0x7 00a9 0092 0296 | | Action Push_String_Extended,0x296 ; "Get_Other_Part (" 00ab e5ff | | Load 0x2,-0x1 00ac e004 | | Load 0x0,0x4 00ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ae 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00af 01cc | | Execute Vector,Catenate 00b0 0092 0297 | | Action Push_String_Extended,0x297 ; ") failed with " 00b2 01cc | | Execute Vector,Catenate 00b3 e402 | | Load 0x2,0x2 00b4 e004 | | Load 0x0,0x4 00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b6 025e | ^ | Execute Discrete,Convert 00b7 1c01 | | Execute_Immediate Run_Utility,0x1 00b8 01cc | | Execute Vector,Catenate 00b9 0092 0298 | | Action Push_String_Extended,0x298 ; ": Other_Part_Of" 00bb 01cc | | Execute Vector,Catenate 00bc 8214 | | Call 0x1,0x14 00bd e004 | | Load 0x0,0x4 00be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c0 e004 | | Load 0x0,0x4 00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c2 e404 | | Load 0x2,0x4 00c3 0120 | | Execute Any,Is_Value 00c4 6803 |h | Jump_Zero 0xc8 00c5 e004 | | Load 0x0,0x4 00c6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00c7 7801 |x | Jump 0xc9 00c8 e404 | | Load 0x2,0x4 00c9 61c6 |a | Indirect_Literal Discrete,0x290,{0x00000000, 0x00004000} 00ca e005 | | Load 0x0,0x5 00cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00cc e403 | | Load 0x2,0x3 00cd e004 | | Load 0x0,0x4 00ce 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d0 c404 | | Store 0x2,0x4 00d1 c402 | | Store 0x2,0x2 00d2 e402 | | Load 0x2,0x2 00d3 6818 |h | Jump_Zero 0xec 00d4 4807 |H | Short_Literal 0x7 00d5 0092 0299 | | Action Push_String_Extended,0x299 ; "get_Object (" 00d7 e5ff | | Load 0x2,-0x1 00d8 e004 | | Load 0x0,0x4 00d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00da 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00db 01cc | | Execute Vector,Catenate 00dc 0092 0297 | | Action Push_String_Extended,0x297 ; ") failed with " 00de 01cc | | Execute Vector,Catenate 00df e402 | | Load 0x2,0x2 00e0 e004 | | Load 0x0,0x4 00e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e2 025e | ^ | Execute Discrete,Convert 00e3 1c01 | | Execute_Immediate Run_Utility,0x1 00e4 01cc | | Execute Vector,Catenate 00e5 0092 0298 | | Action Push_String_Extended,0x298 ; ": Other_Part_Of" 00e7 01cc | | Execute Vector,Catenate 00e8 8214 | | Call 0x1,0x14 00e9 e004 | | Load 0x0,0x4 00ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ec 00d8 | | Load_Top At_Offset_0 00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fa | | .CONST 0x00fa ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 e004 | | Load 0x0,0x4 00f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00f5 02ff | | Declare_Variable Variant_Record 00f6 00d8 | | Load_Top At_Offset_0 00f7 1c00 | | Execute_Immediate Run_Utility,0x0 00f8 e004 | | Load 0x0,0x4 00f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fa BODY_00f0: 00fa e5ff | | Load 0x2,-0x1 00fb e004 | | Load 0x0,0x4 00fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00fd 6807 |h | Jump_Zero 0x105 00fe e5ff | | Load 0x2,-0x1 00ff 00d8 | | Load_Top At_Offset_0 0100 0120 | | Execute Any,Is_Value 0101 7002 |p | Jump_Nonzero 0x104 0102 00d8 | | Load_Top At_Offset_0 0103 011e | | Execute Any,Convert 0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0105 e004 | | Load 0x0,0x4 0106 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0107 e402 | | Load 0x2,0x2 0108 6187 |a | Indirect_Literal Discrete,0x290,{0x00000000, 0x00004000} 0109 e005 | | Load 0x0,0x5 010a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010b 4800 |H | Short_Literal 0x0 010c e5ff | | Load 0x2,-0x1 010d e004 | | Load 0x0,0x4 010e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 010f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0110 00d1 | | Pop_Control Pop_Count_1 0111 c403 | | Store 0x2,0x3 0112 00d8 | | Load_Top At_Offset_0 0113 681c |h | Jump_Zero 0x130 0114 4807 |H | Short_Literal 0x7 0115 0092 029a | | Action Push_String_Extended,0x29a ; "Get_Version ( " 0117 e5ff | | Load 0x2,-0x1 0118 e004 | | Load 0x0,0x4 0119 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 011b 01cc | | Execute Vector,Catenate 011c 0092 0297 | | Action Push_String_Extended,0x297 ; ") failed with " 011e 01cc | | Execute Vector,Catenate 011f e403 | | Load 0x2,0x3 0120 e004 | | Load 0x0,0x4 0121 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0122 025e | ^ | Execute Discrete,Convert 0123 1c01 | | Execute_Immediate Run_Utility,0x1 0124 01cc | | Execute Vector,Catenate 0125 0092 029b | | Action Push_String_Extended,0x29b ; ": Body_Of" 0127 01cc | | Execute Vector,Catenate 0128 8214 | | Call 0x1,0x14 0129 e5ff | | Load 0x2,-0x1 012a 00d8 | | Load_Top At_Offset_0 012b 0120 | | Execute Any,Is_Value 012c 7002 |p | Jump_Nonzero 0x12f 012d 00d8 | | Load_Top At_Offset_0 012e 011e | | Execute Any,Convert 012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0130 e402 | | Load 0x2,0x2 0131 820f | | Call 0x1,0xf 0132 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0133 0000 0000 | | .BLANK 0000[0x5] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0142 | B | .CONST 0x0142 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0003 | | .CONST 0x0003 ; Number of locals 013b INIT_0138: 013b e004 | | Load 0x0,0x4 013c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 013d 02ff | | Declare_Variable Variant_Record 013e 00d8 | | Load_Top At_Offset_0 013f 1c00 | | Execute_Immediate Run_Utility,0x0 0140 e004 | | Load 0x0,0x4 0141 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0142 BODY_0138: 0142 e5ff | | Load 0x2,-0x1 0143 e004 | | Load 0x0,0x4 0144 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0145 6807 |h | Jump_Zero 0x14d 0146 e5ff | | Load 0x2,-0x1 0147 00d8 | | Load_Top At_Offset_0 0148 0120 | | Execute Any,Is_Value 0149 7002 |p | Jump_Nonzero 0x14c 014a 00d8 | | Load_Top At_Offset_0 014b 011e | | Execute Any,Convert 014c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014d e004 | | Load 0x0,0x4 014e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014f e402 | | Load 0x2,0x2 0150 613f |a? | Indirect_Literal Discrete,0x290,{0x00000000, 0x00004000} 0151 e005 | | Load 0x0,0x5 0152 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0153 4800 |H | Short_Literal 0x0 0154 e5ff | | Load 0x2,-0x1 0155 e004 | | Load 0x0,0x4 0156 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0157 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0158 00d1 | | Pop_Control Pop_Count_1 0159 c403 | | Store 0x2,0x3 015a 00d8 | | Load_Top At_Offset_0 015b 681c |h | Jump_Zero 0x178 015c 4807 |H | Short_Literal 0x7 015d 0092 029c | | Action Push_String_Extended,0x29c ; "Get_Version (" 015f e5ff | | Load 0x2,-0x1 0160 e004 | | Load 0x0,0x4 0161 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0162 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0163 01cc | | Execute Vector,Catenate 0164 0092 0297 | | Action Push_String_Extended,0x297 ; ") failed with " 0166 01cc | | Execute Vector,Catenate 0167 e403 | | Load 0x2,0x3 0168 e004 | | Load 0x0,0x4 0169 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016a 025e | ^ | Execute Discrete,Convert 016b 1c01 | | Execute_Immediate Run_Utility,0x1 016c 01cc | | Execute Vector,Catenate 016d 0092 029b | | Action Push_String_Extended,0x29b ; ": Body_Of" 016f 01cc | | Execute Vector,Catenate 0170 8214 | | Call 0x1,0x14 0171 e5ff | | Load 0x2,-0x1 0172 00d8 | | Load_Top At_Offset_0 0173 0120 | | Execute Any,Is_Value 0174 7002 |p | Jump_Nonzero 0x177 0175 00d8 | | Load_Top At_Offset_0 0176 011e | | Execute Any,Convert 0177 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0178 e402 | | Load 0x2,0x2 0179 e004 | | Load 0x0,0x4 017a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 017b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017c 6803 |h | Jump_Zero 0x180 017d e402 | | Load 0x2,0x2 017e 820f | | Call 0x1,0xf 017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0180 e5ff | | Load 0x2,-0x1 0181 00d8 | | Load_Top At_Offset_0 0182 0120 | | Execute Any,Is_Value 0183 7002 |p | Jump_Nonzero 0x186 0184 00d8 | | Load_Top At_Offset_0 0185 011e | | Execute Any,Convert 0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 01a6 | | .CONST 0x01a6 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 000a | | .CONST 0x000a ; Number of locals 018b INIT_0188: 018b e004 | | Load 0x0,0x4 018c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 018d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018e 02c7 | | Declare_Variable Any 018f e5ff | | Load 0x2,-0x1 0190 e004 | | Load 0x0,0x4 0191 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0192 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0193 c402 | | Store 0x2,0x2 0194 e004 | | Load 0x0,0x4 0195 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0196 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0197 00ec | | Load_Encached Diana_Tree_Cache 0198 00ee | | Load_Encached Diana_Seq_Type_Cache 0199 00ec | | Load_Encached Diana_Tree_Cache 019a e004 | | Load 0x0,0x4 019b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 019c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 019d 02c7 | | Declare_Variable Any 019e 00d8 | | Load_Top At_Offset_0 019f 1c00 | | Execute_Immediate Run_Utility,0x0 01a0 e004 | | Load 0x0,0x4 01a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a2 00e1 | | Load_Encached Boolean_Cache 01a3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01a4 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 01a6 BODY_0188: 01a6 e004 | | Load 0x0,0x4 01a7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01a8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a9 e5ff | | Load 0x2,-0x1 01aa e004 | | Load 0x0,0x4 01ab 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01ac 012e | . | Execute Any,Not_Equal 01ad 6802 |h | Jump_Zero 0x1b0 01ae 4800 |H | Short_Literal 0x0 01af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b0 e5ff | | Load 0x2,-0x1 01b1 820e | | Call 0x1,0xe 01b2 e004 | | Load 0x0,0x4 01b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b4 e407 | | Load 0x2,0x7 01b5 0120 | | Execute Any,Is_Value 01b6 6804 |h | Jump_Zero 0x1bb 01b7 e004 | | Load 0x0,0x4 01b8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01b9 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01ba 7801 |x | Jump 0x1bc 01bb e407 | | Load 0x2,0x7 01bc e004 | | Load 0x0,0x4 01bd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01be 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01bf 60d0 |` | Indirect_Literal Discrete,0x290,{0x00000000, 0x00004000} 01c0 4801 |H | Short_Literal 0x1 01c1 4800 |H | Short_Literal 0x0 01c2 4800 |H | Short_Literal 0x0 01c3 e005 | | Load 0x0,0x5 01c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c5 4800 |H | Short_Literal 0x0 01c6 e402 | | Load 0x2,0x2 01c7 e004 | | Load 0x0,0x4 01c8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01c9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01ca c403 | | Store 0x2,0x3 01cb c407 | | Store 0x2,0x7 01cc c408 | | Store 0x2,0x8 01cd e408 | | Load 0x2,0x8 01ce 0f0d | | Execute_Immediate Equal,0xd 01cf 6802 |h | Jump_Zero 0x1d2 01d0 4800 |H | Short_Literal 0x0 01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d2 e408 | | Load 0x2,0x8 01d3 680f |h | Jump_Zero 0x1e3 01d4 4807 |H | Short_Literal 0x7 01d5 0092 029d | | Action Push_String_Extended,0x29d ; "Open for Comp_Unit failed (" 01d7 e408 | | Load 0x2,0x8 01d8 e004 | | Load 0x0,0x4 01d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01da 025e | ^ | Execute Discrete,Convert 01db 1c01 | | Execute_Immediate Run_Utility,0x1 01dc 01cc | | Execute Vector,Catenate 01dd 0092 029e | | Action Push_String_Extended,0x29e ; ")" 01df 01cc | | Execute Vector,Catenate 01e0 8214 | | Call 0x1,0x14 01e1 4800 |H | Short_Literal 0x0 01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e3 0092 029f | | Action Push_String_Extended,0x29f ; "Open => Unit_Root" 01e5 48a8 |H | Short_Literal 0xa8 01e6 e403 | | Load 0x2,0x3 01e7 820d | | Call 0x1,0xd 01e8 e403 | | Load 0x2,0x3 01e9 00eb | | Load_Encached Diana_Cache 01ea 18db | | Execute Package,Field_Execute,Field_Number 0xdb 01eb a404 | | Store_Unchecked 0x2,0x4 01ec 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "As_Pragma_S => Pragma_S" 01ee 4895 |H | Short_Literal 0x95 01ef e404 | | Load 0x2,0x4 01f0 820d | | Call 0x1,0xd 01f1 e404 | | Load 0x2,0x4 01f2 00eb | | Load_Encached Diana_Cache 01f3 1889 | | Execute Package,Field_Execute,Field_Number 0x89 01f4 a405 | | Store_Unchecked 0x2,0x5 01f5 00cf | | Action Mark_Auxiliary 01f6 780f |x | Jump 0x206 01f7 e405 | | Load 0x2,0x5 01f8 00eb | | Load_Encached Diana_Cache 01f9 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 01fa a406 | | Store_Unchecked 0x2,0x6 01fb 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "Diana.Head => Next_Pragma" 01fd 4840 |H@ | Short_Literal 0x40 01fe e406 | | Load 0x2,0x6 01ff 820d | | Call 0x1,0xd 0200 840a | | Call 0x2,0xa 0201 e405 | | Load 0x2,0x5 0202 00eb | | Load_Encached Diana_Cache 0203 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0204 a405 | | Store_Unchecked 0x2,0x5 0205 00c9 | | Action Pop_Auxiliary_Loop 0206 e405 | | Load 0x2,0x5 0207 00eb | | Load_Encached Diana_Cache 0208 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 0209 6fed |o | Jump_Zero 0x1f7 020a 00ce | | Action Pop_Auxiliary 020b e004 | | Load 0x0,0x4 020c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020d 4800 |H | Short_Literal 0x0 020e 4800 |H | Short_Literal 0x0 020f e005 | | Load 0x0,0x5 0210 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0211 e403 | | Load 0x2,0x3 0212 e004 | | Load 0x0,0x4 0213 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0214 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0215 c408 | | Store 0x2,0x8 0216 e408 | | Load 0x2,0x8 0217 680d |h | Jump_Zero 0x225 0218 4807 |H | Short_Literal 0x7 0219 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "Close failed (" 021b e408 | | Load 0x2,0x8 021c e004 | | Load 0x0,0x4 021d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021e 025e | ^ | Execute Discrete,Convert 021f 1c01 | | Execute_Immediate Run_Utility,0x1 0220 01cc | | Execute Vector,Catenate 0221 0092 029e | | Action Push_String_Extended,0x29e ; ")" 0223 01cc | | Execute Vector,Catenate 0224 8214 | | Call 0x1,0x14 0225 e409 | | Load 0x2,0x9 0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0227 0000 | | .XXX[0x1] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0233 | 3 | .CONST 0x0233 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0003 | | .CONST 0x0003 ; Number of locals 022b INIT_0228: 022b e004 | | Load 0x0,0x4 022c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 022d 02c7 | | Declare_Variable Any 022e 00d8 | | Load_Top At_Offset_0 022f 1c00 | | Execute_Immediate Run_Utility,0x0 0230 e004 | | Load 0x0,0x4 0231 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0232 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0233 BODY_0228: 0233 e004 | | Load 0x0,0x4 0234 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0235 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0236 e402 | | Load 0x2,0x2 0237 0120 | | Execute Any,Is_Value 0238 6803 |h | Jump_Zero 0x23c 0239 e004 | | Load 0x0,0x4 023a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 023b 7801 |x | Jump 0x23d 023c e402 | | Load 0x2,0x2 023d 6052 |`R | Indirect_Literal Discrete,0x290,{0x00000000, 0x00004000} 023e e005 | | Load 0x0,0x5 023f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0240 e006 | | Load 0x0,0x6 0241 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0242 e004 | | Load 0x0,0x4 0243 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0244 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0245 e5ff | | Load 0x2,-0x1 0246 e004 | | Load 0x0,0x4 0247 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0248 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0249 c402 | | Store 0x2,0x2 024a c403 | | Store 0x2,0x3 024b 00d8 | | Load_Top At_Offset_0 024c 6802 |h | Jump_Zero 0x24f 024d 4800 |H | Short_Literal 0x0 024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024f e402 | | Load 0x2,0x2 0250 8212 | | Call 0x1,0x12 0251 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0252 0000 0000 | | .BLANK 0000[0x6] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e007 | | Load 0x0,0x7 025c 180e | | Execute Package,Field_Execute,Field_Number 0xe 025d e5fe | | Load 0x2,-0x2 025e e5ff | | Load 0x2,-0x1 025f e008 | | Load 0x0,0x8 0260 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0261 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0262 0000 0000 | | .BLANK 0000[0x6] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 026c 0000 0000 | | .BLANK 0000[0x4] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 4801 |H | Short_Literal 0x1 0274 e003 | | Load 0x0,0x3 0275 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0276 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0277 0000 | | .XXX[0x1] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0282 | | .CONST 0x0282 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b e406 | | Load 0x2,0x6 027c 00eb | | Load_Encached Diana_Cache 027d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 027e 00eb | | Load_Encached Diana_Cache 027f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0280 00eb | | Load_Encached Diana_Cache 0281 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0282 BODY_0278: 0282 00d8 | | Load_Top At_Offset_0 0283 01db | | Execute Vector,Length 0284 0f04 | | Execute_Immediate Equal,0x4 0285 6809 |h | Jump_Zero 0x28f 0286 00d8 | | Load_Top At_Offset_0 0287 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "MAIN" 0289 01df | | Execute Vector,Equal 028a 6804 |h | Jump_Zero 0x28f 028b 4801 |H | Short_Literal 0x1 028c a409 | | Store_Unchecked 0x2,0x9 028d 00cc | | Action Pop_Block 028e 7f7b | { | Jump 0x20a 028f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0290 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0294 ; -------------------------------------------------------------------------------------- 0294 ; STRING TABLE 0294 ; -------------------------------------------------------------------------------------- 0294 0022 | " | .STRTAB 0x0022->0x02a5 ; "(" 0295 0021 | ! | .STRTAB 0x0021->0x02a5 ; " /= " 0296 0023 | # | .STRTAB 0x0023->0x02a7 ; "Get_Other_Part (" 0297 0031 | 1 | .STRTAB 0x0031->0x02af ; ") failed with " 0298 003d | = | .STRTAB 0x003d->0x02b6 ; ": Other_Part_Of" 0299 004a | J | .STRTAB 0x004a->0x02be ; "get_Object (" 029a 0054 | T | .STRTAB 0x0054->0x02c4 ; "Get_Version ( " 029b 0060 | ` | .STRTAB 0x0060->0x02cb ; ": Body_Of" 029c 0067 | g | .STRTAB 0x0067->0x02cf ; "Get_Version (" 029d 0072 | r | .STRTAB 0x0072->0x02d6 ; "Open for Comp_Unit failed (" 029e 008b | | .STRTAB 0x008b->0x02e3 ; ")" 029f 008a | | .STRTAB 0x008a->0x02e4 ; "Open => Unit_Root" 02a0 0099 | | .STRTAB 0x0099->0x02ec ; "As_Pragma_S => Pragma_S" 02a1 00ae | | .STRTAB 0x00ae->0x02f8 ; "Diana.Head => Next_Pragma" 02a2 00c5 | | .STRTAB 0x00c5->0x0304 ; "Close failed (" 02a3 00d1 | | .STRTAB 0x00d1->0x030b ; "MAIN" 02a4 00d3 | | .STREND 0x00d3->0x030d 02a5 2820 2f3d |( /=| .STRTAB_STRINGS 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; Debug Table 0310 ; -------------------------------------------------------------------------------------- 0310 0004 000c | | .DEBUG4 0x0004,0x000c,0x4221,0x0000,0x0001,0x0000 0316 0002 023e | >| .XXX[0x4e] 0318 1e40 0002 | @ | 031a 023e 5940 | >Y@| 031c 0002 023e | >| 031e 5640 0002 |V@ | 0320 023e c640 | > @| 0322 0002 023e | >| 0324 ad40 0002 | @ | 0326 023e d740 | > @| 0328 0002 023e | >| 032a a000 0000 | | 032c 0000 fc60 | `| 032e 00fc 4000 | @ | 0330 061e da20 | | 0332 4040 0200 |@@ | 0334 0264 0000 | d | 0336 006c e500 | l | 0338 0010 0000 | | 033a 329c 00a0 |2 | 033c 0000 1440 | @| 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0148 | H| 0346 0000 4047 | @G| 0348 c368 0000 | h | 034a 4047 cd68 |@G h| 034c 0000 4047 | @G| 034e d1c8 0000 | | 0350 4047 c3c8 |@G | 0352 0000 4047 | @G| 0354 cb28 0000 | ( | 0356 4047 cac8 |@G | 0358 0000 4047 | @G| 035a d8c8 0000 | | 035c 4047 d5a8 |@G | 035e 0000 4047 | @G| 0360 dae8 0000 | | 0362 4047 d400 |@G | 0364 0000 0000 | | .BLANK 0000[0x10] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]