|
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_0a70f4
└─⟦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 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 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 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 0007 | | Action Break_Optional 001b 0007 | | Action Break_Optional 001c 0007 | | Action Break_Optional 001d 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 001f 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 0021 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 0023 e001 | | Load 0x0,0x1 0024 e002 | | Load 0x0,0x2 0025 e003 | | Load 0x0,0x3 0026 195f | _ | Execute Package,Field_Reference,Field_Number 0x5f 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 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 0084 | | .CONST 0x0084 ; 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 0007 | | Action Break_Optional 0083 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0084 TRAP_0068: 0084 0007 | | Action Break_Optional 0085 0008 | | Action Idle 0086 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0087 0000 | | .XXX[0x1] 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 0008 | | Action Idle 028c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 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 0004 | | .DEBUG4 0x0004,0x0004,0x7051,0x0000,0x0001,0x0000 0336 dcb8 e0b8 | | .XXX[0xa] 0338 e4b8 c4c0 | | 033a b8c4 c4b8 | | 033c c4c8 88b0 | | 033e 8080 2880 | ( | 0340 8080 8080 | | .BLANK 8080[0x6] 0346 80a0 a0c4 | | .XXX[0x18] 0348 b080 c8b0 | | 034a 80cc b080 | | 034c d0b0 80d4 | | 034e b080 d8a4 | | 0350 b080 a0dc | | 0352 b080 e0b0 | | 0354 80e4 b080 | | 0356 c4c0 b080 | | 0358 c4c4 b080 | | 035a c4c8 a4a4 | | 035c b080 8028 | (| 035e 8080 8080 | | .BLANK 8080[0x6] 0364 8081 4ddd | M | .XXX[0x1c] 0366 8589 7cc0 | | | 0368 c17c c0c4 | | | 036a 8098 814d | M| 036c dd85 897c | || 036e c0c1 7cc0 | | | 0370 c880 9881 | | 0372 4ddd 8589 |M | 0374 7cc0 c17c || || 0376 c0cc 8098 | | 0378 814d dd85 | M | 037a 897c c0c1 | | | 037c 7cc0 d080 || | 037e 9880 8028 | (| 0380 8080 8080 | | .BLANK 8080[0x8] 0388 814d dd85 | M | .XXX[0x1c] 038a 897c c0c1 | | | 038c 7cc0 d480 || | 038e 9881 4ddd | M | 0390 8589 7cc0 | | | 0392 c17c c0d8 | | | 0394 8098 814d | M| 0396 dd85 897c | || 0398 c0c1 7cc0 | | | 039a dc80 9881 | | 039c 4ddd 8589 |M | 039e 7cc0 c17c || || 03a0 c0e0 8098 | | 03a2 8080 2880 | ( | 03a4 8080 8080 | | .BLANK 8080[0x7] 03ab 8081 4ddd | M | .XXX[0x55] 03ad 8589 7cc0 | | | 03af c17c c0e4 | | | 03b1 8098 814d | M| 03b3 dd85 897c | || 03b5 c0c1 7cc1 | | | 03b7 8480 9881 | | 03b9 4ddd 8589 |M | 03bb 7cc0 c17c || || 03bd c188 8098 | | 03bf 814d dd85 | M | 03c1 897c c0c1 | | | 03c3 7cc1 8ca4 || | 03c5 ec80 8028 | (| 03c7 8080 8080 | | 03c9 8080 8081 | | 03cb 5195 cdd1 |Q | 03cd 7d25 bcb9 |}% | 03cf 3995 dd7d |9 }| 03d1 31a5 b994 |1 | 03d3 ec80 8028 | (| 03d5 8080 8081 | | 03d7 95b9 9081 | | 03d9 5195 cdd1 |Q | 03db 7d61 7d05 |}a} | 03dd c98d 7d05 | } | 03df c9c9 85e4 | | 03e1 ec28 2880 | (( | 03e3 8080 80b4 | | 03e5 b480 80b4 | | 03e7 b480 80b4 | | 03e9 b480 80b4 | | 03eb b480 80b4 | | 03ed b480 80b4 | | 03ef b480 80b4 | | 03f1 b480 80b4 | | 03f3 b480 80b4 | | 03f5 b480 80b4 | | 03f7 b480 80b4 | | 03f9 b480 80b4 | | 03fb b480 80b4 | | 03fd b480 80b4 | | 03ff b480 | |