|
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_03b8fe
└─⟦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 02d8 | | .CONST 0x02d8 ; 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 005c | \ | .CONST 0x005c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000e e002 | | Load 0x0,0x2 000f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0010 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0011 e002 | | Load 0x0,0x2 0012 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0013 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 4803 |H | Short_Literal 0x3 0016 032e | . | Declare_Type Record,Defined,Visible 0017 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0019 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 001b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 001d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0021 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0023 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0025 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0027 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0029 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 002b 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 002d 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 002f 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0031 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0033 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0035 00bf | | Action Accept_Activation 0036 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0039 00c7 | | Action Elaborate_Subprogram 003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003b 00c7 | | Action Elaborate_Subprogram 003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003d 00c7 | | Action Elaborate_Subprogram 003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003f 00c7 | | Action Elaborate_Subprogram 0040 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0041 00c7 | | Action Elaborate_Subprogram 0042 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0043 00c7 | | Action Elaborate_Subprogram 0044 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0045 00c7 | | Action Elaborate_Subprogram 0046 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0047 00c7 | | Action Elaborate_Subprogram 0048 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0049 00c7 | | Action Elaborate_Subprogram 004a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004b 00c7 | | Action Elaborate_Subprogram 004c 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004d 00c7 | | Action Elaborate_Subprogram 004e 0092 02aa | | Action Push_String_Extended,0x2aa ; "SUBSYSTEM" 0050 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0052 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 0054 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0055 00c7 | | Action Elaborate_Subprogram 0056 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0057 00c7 | | Action Elaborate_Subprogram 0058 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005b 00c7 | | Action Elaborate_Subprogram 005c BODY_0008: 005c 00bc | | Action Signal_Activated 005d 00bb | | Action Signal_Completion 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 00da | | Load_Top At_Offset_2 0064 e5fc | | Load 0x2,-0x4 0065 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0066 00db | | Load_Top At_Offset_3 0067 e5fc | | Load 0x2,-0x4 0068 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0069 e5fd | | Load 0x2,-0x3 006a e5fc | | Load 0x2,-0x4 006b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 006c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0075 | u | .CONST 0x0075 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 e20d | | Load 0x1,0xd 0074 0322 | " | Declare_Variable Record 0075 BODY_0070: 0075 600a |` | Indirect_Literal Discrete,0x80,{0x00000000, 0x7fffffff} 0076 00d9 | | Load_Top At_Offset_1 0077 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0078 4801 |H | Short_Literal 0x1 0079 00d9 | | Load_Top At_Offset_1 007a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007b 4800 |H | Short_Literal 0x0 007c 00d9 | | Load_Top At_Offset_1 007d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 007e 00d8 | | Load_Top At_Offset_0 007f 00ca | | Action Exit_Nullary_Function 0080 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 008d 0f00 | | Execute_Immediate Equal,0x0 008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0097 | | .CONST 0x0097 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 00ec | | Load_Encached Diana_Tree_Cache 0094 00e1 | | Load_Encached Boolean_Cache 0095 e003 | | Load 0x0,0x3 0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0097 BODY_0090: 0097 e003 | | Load 0x0,0x3 0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0099 e003 | | Load 0x0,0x3 009a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 009b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 009c e5ff | | Load 0x2,-0x1 009d e003 | | Load 0x0,0x3 009e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 009f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00a0 c402 | | Store 0x2,0x2 00a1 0059 | Y | Store_Top Discrete,At_Offset_1 00a2 00d8 | | Load_Top At_Offset_0 00a3 821d | | Call 0x1,0x1d 00a4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00a5 00d9 | | Load_Top At_Offset_1 00a6 6802 |h | Jump_Zero 0xa9 00a7 00da | | Load_Top At_Offset_2 00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a9 00eb | | Load_Encached Diana_Cache 00aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ac 0000 0000 | | .BLANK 0000[0x4] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e004 | | Load 0x0,0x4 00b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b5 6006 |` | Indirect_Literal Discrete,0xbc,{0x00007fff, 0xffffffff} 00b6 e5ff | | Load 0x2,-0x1 00b7 e005 | | Load 0x0,0x5 00b8 180f | | Execute Package,Field_Execute,Field_Number 0xf 00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ba 0000 0000 | | .XXX[0x2] 00bc 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e004 | | Load 0x0,0x4 00c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c5 67f6 |g | Indirect_Literal Discrete,0xbc,{0x00007fff, 0xffffffff} 00c6 e5ff | | Load 0x2,-0x1 00c7 e005 | | Load 0x0,0x5 00c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d7 | | .CONST 0x00d7 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0003 | | .CONST 0x0003 ; Number of locals 00d3 INIT_00d0: 00d3 00ec | | Load_Encached Diana_Tree_Cache 00d4 e003 | | Load 0x0,0x3 00d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d7 BODY_00d0: 00d7 e003 | | Load 0x0,0x3 00d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00da e003 | | Load 0x0,0x3 00db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00dc 6017 |` | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00004000} 00dd e004 | | Load 0x0,0x4 00de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00df e006 | | Load 0x0,0x6 00e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e1 e003 | | Load 0x0,0x3 00e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00e4 e5ff | | Load 0x2,-0x1 00e5 e007 | | Load 0x0,0x7 00e6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e7 e003 | | Load 0x0,0x3 00e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00ea 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00eb 0059 | Y | Store_Top Discrete,At_Offset_1 00ec 00d8 | | Load_Top At_Offset_0 00ed 6803 |h | Jump_Zero 0xf1 00ee 00eb | | Load_Encached Diana_Cache 00ef 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f1 00d9 | | Load_Top At_Offset_1 00f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f3 0000 | | .XXX[0x1] 00f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fd | | .CONST 0x00fd ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e008 | | Load 0x0,0x8 00fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fd BODY_00f8: 00fd 00db | | Load_Top At_Offset_3 00fe e002 | | Load 0x0,0x2 00ff 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0100 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0101 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0102 00d8 | | Load_Top At_Offset_0 0103 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0114 | | .CONST 0x0114 ; Address of begin 0109 016b | k | .CONST 0x016b ; Address of exception handler 010a 0007 | | .CONST 0x0007 ; Number of locals 010b INIT_0108: 010b e20d | | Load 0x1,0xd 010c 0322 | " | Declare_Variable Record 010d e009 | | Load 0x0,0x9 010e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010f e00a | | Load 0x0,0xa 0110 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0111 00e3 | | Load_Encached Natural_Cache 0112 00ec | | Load_Encached Diana_Tree_Cache 0113 00ec | | Load_Encached Diana_Tree_Cache 0114 BODY_0108: 0114 e5ff | | Load 0x2,-0x1 0115 00eb | | Load_Encached Diana_Cache 0116 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0117 00d8 | | Load_Top At_Offset_0 0118 0d21 | ! | Execute_Immediate Less,0x21 0119 700d |p | Jump_Nonzero 0x127 011a 00d8 | | Load_Top At_Offset_0 011b 0c29 | ) | Execute_Immediate Greater_Equal,0x29 011c 7005 |p | Jump_Nonzero 0x122 011d 0f21 | ! | Execute_Immediate Equal,0x21 011e 700d |p | Jump_Nonzero 0x12c 011f e5ff | | Load 0x2,-0x1 0120 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0121 782a |x* | Jump 0x14c 0122 0b29 | ) | Execute_Immediate Case_Compare,0x29 0123 7007 |p | Jump_Nonzero 0x12b 0124 0f2c | , | Execute_Immediate Equal,0x2c 0125 7006 |p | Jump_Nonzero 0x12c 0126 7ff8 | | Jump 0x11f 0127 6801 |h | Jump_Zero 0x129 0128 7ff6 | | Jump 0x11f 0129 820f | | Call 0x1,0xf 012a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012b 00d1 | | Pop_Control Pop_Count_1 012c e5ff | | Load 0x2,-0x1 012d 00eb | | Load_Encached Diana_Cache 012e 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8 012f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0130 00d8 | | Load_Top At_Offset_0 0131 00eb | | Load_Encached Diana_Cache 0132 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0133 0f36 | 6 | Execute_Immediate Equal,0x36 0134 6809 |h | Jump_Zero 0x13e 0135 00d8 | | Load_Top At_Offset_0 0136 00eb | | Load_Encached Diana_Cache 0137 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0138 4976 |Iv | Short_Literal 0x176 0139 00eb | | Load_Encached Diana_Cache 013a 0098 | | Execute Package,Field_Read_Dynamic 013b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 013d 780e |x | Jump 0x14c 013e e5ff | | Load 0x2,-0x1 013f 00eb | | Load_Encached Diana_Cache 0140 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0141 0f29 | ) | Execute_Immediate Equal,0x29 0142 6803 |h | Jump_Zero 0x146 0143 e5ff | | Load 0x2,-0x1 0144 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0145 7806 |x | Jump 0x14c 0146 e5ff | | Load 0x2,-0x1 0147 490b |I | Short_Literal 0x10b 0148 00eb | | Load_Encached Diana_Cache 0149 0096 | | Execute Package,Entry 014a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 014b 7800 |x | Jump 0x14c 014c e002 | | Load 0x0,0x2 014d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014f e002 | | Load 0x0,0x2 0150 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0151 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0152 e002 | | Load 0x0,0x2 0153 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0155 e406 | | Load 0x2,0x6 0156 e002 | | Load 0x0,0x2 0157 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0158 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0159 c403 | | Store 0x2,0x3 015a c404 | | Store 0x2,0x4 015b 005b | [ | Store_Top Discrete,At_Offset_3 015c e20d | | Load 0x1,0xd 015d 0322 | " | Declare_Variable Record 015e 00db | | Load_Top At_Offset_3 015f 00d9 | | Load_Top At_Offset_1 0160 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0161 e403 | | Load 0x2,0x3 0162 00d9 | | Load_Top At_Offset_1 0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0164 e404 | | Load 0x2,0x4 0165 00d9 | | Load_Top At_Offset_1 0166 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0167 e402 | | Load 0x2,0x2 0168 017d | } | Execute Record,Structure_Write 0169 e402 | | Load 0x2,0x2 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b TRAP_0108: 016b 0007 | | Action Break_Optional 016c 820f | | Call 0x1,0xf 016d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017a | z | .CONST 0x017a ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0004 | | .CONST 0x0004 ; Number of locals 0173 INIT_0170: 0173 e002 | | Load 0x0,0x2 0174 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0175 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0176 e002 | | Load 0x0,0x2 0177 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0178 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0179 00ec | | Load_Encached Diana_Tree_Cache 017a BODY_0170: 017a e5ff | | Load 0x2,-0x1 017b 8210 | | Call 0x1,0x10 017c 6804 |h | Jump_Zero 0x181 017d 00eb | | Load_Encached Diana_Cache 017e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 017f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0180 780a |x | Jump 0x18b 0181 e5ff | | Load 0x2,-0x1 0182 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0183 e5ff | | Load 0x2,-0x1 0184 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0185 e5ff | | Load 0x2,-0x1 0186 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0187 e002 | | Load 0x0,0x2 0188 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0189 1816 | | Execute Package,Field_Execute,Field_Number 0x16 018a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 018b 00d8 | | Load_Top At_Offset_0 018c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018d 0000 0000 | | .XXX[0x3] 018f 0000 | | 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0195 | | .CONST 0x0195 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 e20d | | Load 0x1,0xd 0194 0322 | " | Declare_Variable Record 0195 BODY_0190: 0195 00db | | Load_Top At_Offset_3 0196 00eb | | Load_Encached Diana_Cache 0197 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0198 6803 |h | Jump_Zero 0x19c 0199 0092 02ab | | Action Push_String_Extended,0x2ab ; " Void" 019b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019c 00db | | Load_Top At_Offset_3 019d 8216 | | Call 0x1,0x16 019e 00d9 | | Load_Top At_Offset_1 019f 017d | } | Execute Record,Structure_Write 01a0 00d8 | | Load_Top At_Offset_0 01a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a2 00e0 | | Load_Encached Standard_Cache 01a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a5 0000 0000 | | .XXX[0x3] 01a7 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b5 | | .CONST 0x01b5 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0005 | | .CONST 0x0005 ; Number of locals 01ab INIT_01a8: 01ab e003 | | Load 0x0,0x3 01ac 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ae 02c7 | | Declare_Variable Any 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 e003 | | Load 0x0,0x3 01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b3 00ec | | Load_Encached Diana_Tree_Cache 01b4 039d | | Declare_Variable Heap_Access,Duplicate 01b5 BODY_01a8: 01b5 e5ff | | Load 0x2,-0x1 01b6 00eb | | Load_Encached Diana_Cache 01b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01b8 4870 |Hp | Short_Literal 0x70 01b9 4871 |Hq | Short_Literal 0x71 01ba 0262 | b | Execute Discrete,In_Range 01bb 7002 |p | Jump_Nonzero 0x1be 01bc 4800 |H | Short_Literal 0x0 01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01be e003 | | Load 0x0,0x3 01bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c0 e402 | | Load 0x2,0x2 01c1 0120 | | Execute Any,Is_Value 01c2 6804 |h | Jump_Zero 0x1c7 01c3 e003 | | Load 0x0,0x3 01c4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c6 7801 |x | Jump 0x1c8 01c7 e402 | | Load 0x2,0x2 01c8 e5ff | | Load 0x2,-0x1 01c9 e003 | | Load 0x0,0x3 01ca 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01cc c402 | | Store 0x2,0x2 01cd 005b | [ | Store_Top Discrete,At_Offset_3 01ce 00da | | Load_Top At_Offset_2 01cf 821d | | Call 0x1,0x1d 01d0 6819 |h | Jump_Zero 0x1ea 01d1 e003 | | Load 0x0,0x3 01d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d3 e003 | | Load 0x0,0x3 01d4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01d5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01d6 e5ff | | Load 0x2,-0x1 01d7 e003 | | Load 0x0,0x3 01d8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01d9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01da 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01db 005b | [ | Store_Top Discrete,At_Offset_3 01dc 00da | | Load_Top At_Offset_2 01dd 821d | | Call 0x1,0x1d 01de 6809 |h | Jump_Zero 0x1e8 01df 00d9 | | Load_Top At_Offset_1 01e0 4976 |Iv | Short_Literal 0x176 01e1 00eb | | Load_Encached Diana_Cache 01e2 0098 | | Execute Package,Field_Read_Dynamic 01e3 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e4 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01e5 00d8 | | Load_Top At_Offset_0 01e6 8220 | | Call 0x1,0x20 01e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e8 4800 |H | Short_Literal 0x0 01e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ea 4800 |H | Short_Literal 0x0 01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 01f8 | | .CONST 0x01f8 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 01f4 e002 | | Load 0x0,0x2 01f5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01f6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f8 TRAP_01f0: 01f8 e002 | | Load 0x0,0x2 01f9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01fa 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01fb 010f | | Execute Exception,Equal 01fc 6803 |h | Jump_Zero 0x200 01fd 00eb | | Load_Encached Diana_Cache 01fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0200 0100 | | Execute Exception,Raise 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0211 | | .CONST 0x0211 ; Address of begin 0209 0230 | 0 | .CONST 0x0230 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b e002 | | Load 0x0,0x2 020c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 020d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020e e002 | | Load 0x0,0x2 020f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0210 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0211 BODY_0208: 0211 e5ff | | Load 0x2,-0x1 0212 09e0 | | Execute_Immediate Binary_Scale,-0x20 0213 00d8 | | Load_Top At_Offset_0 0214 e00a | | Load 0x0,0xa 0215 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0216 0260 | ` | Execute Discrete,In_Type 0217 7001 |p | Jump_Nonzero 0x219 0218 0801 | | Execute_Immediate Raise,0x1 0219 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 021a e5ff | | Load 0x2,-0x1 021b 6028 |`( | Indirect_Literal Discrete,0x244,{0x00000000, 0xffffffff} 021c 0279 | y | Execute Discrete,And 021d 00d8 | | Load_Top At_Offset_0 021e e009 | | Load 0x0,0x9 021f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0220 0260 | ` | Execute Discrete,In_Type 0221 7001 |p | Jump_Nonzero 0x223 0222 0801 | | Execute_Immediate Raise,0x1 0223 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0224 e5fe | | Load 0x2,-0x2 0225 00d8 | | Load_Top At_Offset_0 0226 00e3 | | Load_Encached Natural_Cache 0227 0260 | ` | Execute Discrete,In_Type 0228 7001 |p | Jump_Nonzero 0x22a 0229 0801 | | Execute_Immediate Raise,0x1 022a 00da | | Load_Top At_Offset_2 022b 00da | | Load_Top At_Offset_2 022c e002 | | Load 0x0,0x2 022d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 022e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 022f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0230 TRAP_0208: 0230 e002 | | Load 0x0,0x2 0231 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0232 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0233 010f | | Execute Exception,Equal 0234 6803 |h | Jump_Zero 0x238 0235 00eb | | Load_Encached Diana_Cache 0236 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0237 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0238 e002 | | Load 0x0,0x2 0239 1b11 | | Execute Package,Field_Read,Field_Number 0x11 023a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 023b 010f | | Execute Exception,Equal 023c 6803 |h | Jump_Zero 0x240 023d 00eb | | Load_Encached Diana_Cache 023e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 023f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0240 0100 | | Execute Exception,Raise 0241 0000 0000 | | .XXX[0x3] 0243 0000 | | 0244 0000 0000 | | .LITERAL {0x00000000, 0xffffffff} 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024c | L | .CONST 0x024c ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b 00ec | | Load_Encached Diana_Tree_Cache 024c BODY_0248: 024c 00db | | Load_Top At_Offset_3 024d e005 | | Load 0x0,0x5 024e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 024f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0250 0092 02ac | | Action Push_String_Extended,0x2ac ; "corresponding_def_Id_In_Generic (Generic_Id) returned: " 0252 00d9 | | Load_Top At_Offset_1 0253 e00b | | Load 0x0,0xb 0254 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0255 01cc | | Execute Vector,Catenate 0256 0092 02ad | | Action Push_String_Extended,0x2ad ; " for Def_Id: " 0258 01cc | | Execute Vector,Catenate 0259 e5ff | | Load 0x2,-0x1 025a e00b | | Load 0x0,0xb 025b 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 025c 01cc | | Execute Vector,Catenate 025d 00d9 | | Load_Top At_Offset_1 025e 00eb | | Load_Encached Diana_Cache 025f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0260 e5ff | | Load 0x2,-0x1 0261 00eb | | Load_Encached Diana_Cache 0262 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0263 027f | | Execute Discrete,Equal 0264 e00c | | Load 0x0,0xc 0265 180e | | Execute Package,Field_Execute,Field_Number 0xe 0266 00d8 | | Load_Top At_Offset_0 0267 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 026c 6802 |h | Jump_Zero 0x26f 026d 4800 |H | Short_Literal 0x0 026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026f 4801 |H | Short_Literal 0x1 0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027f | | .CONST 0x027f ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0003 | | .CONST 0x0003 ; Number of locals 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c e00d | | Load 0x0,0xd 027d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 027e 00ec | | Load_Encached Diana_Tree_Cache 027f BODY_0278: 027f 00cf | | Action Mark_Auxiliary 0280 7815 |x | Jump 0x296 0281 00da | | Load_Top At_Offset_2 0282 00eb | | Load_Encached Diana_Cache 0283 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0284 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0285 e5fe | | Load 0x2,-0x2 0286 00da | | Load_Top At_Offset_2 0287 00eb | | Load_Encached Diana_Cache 0288 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0289 00eb | | Load_Encached Diana_Cache 028a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 028b 00eb | | Load_Encached Diana_Cache 028c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 028d 01df | | Execute Vector,Equal 028e 6802 |h | Jump_Zero 0x291 028f 00d9 | | Load_Top At_Offset_1 0290 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0291 00da | | Load_Top At_Offset_2 0292 00eb | | Load_Encached Diana_Cache 0293 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0294 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0295 00c9 | | Action Pop_Auxiliary_Loop 0296 00da | | Load_Top At_Offset_2 0297 00eb | | Load_Encached Diana_Cache 0298 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0299 6fe7 |o | Jump_Zero 0x281 029a 00ce | | Action Pop_Auxiliary 029b 00eb | | Load_Encached Diana_Cache 029c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 029d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 029e 0000 0000 | | .XXX[0x2] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 e21e | | Load 0x1,0x1e 02a4 00db | | Load_Top At_Offset_3 02a5 821f | | Call 0x1,0x1f 02a6 00eb | | Load_Encached Diana_Cache 02a7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a8 0f00 | | Execute_Immediate Equal,0x0 02a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02aa ; -------------------------------------------------------------------------------------- 02aa ; STRING TABLE 02aa ; -------------------------------------------------------------------------------------- 02aa 000a | | .STRTAB 0x000a->0x02af ; "SUBSYSTEM" 02ab 0011 | | .STRTAB 0x0011->0x02b3 ; " Void" 02ac 0014 | | .STRTAB 0x0014->0x02b6 ; "corresponding_def_Id_In_Generic (Generic_Id) returned: " 02ad 0049 | I | .STRTAB 0x0049->0x02d1 ; " for Def_Id: " 02ae 0054 | T | .STREND 0x0054->0x02d8 02af 5355 4253 |SUBS| .STRTAB_STRINGS 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug Table 02d8 ; -------------------------------------------------------------------------------------- 02d8 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a55,0x0000,0x0001,0x0000 02de 0000 0000 | | .BLANK 0000[0x37] 0315 0020 | | .XXX[0x1] 0316 0000 0000 | | .BLANK 0000[0x5] 031b 05c0 0000 | | .XXX[0x50] 031d 0100 0000 | | 031f 0100 0100 | | 0321 0000 0000 | | 0323 0d00 0000 | | 0325 0600 0000 | | 0327 0400 0400 | | 0329 0000 0000 | | 032b 3800 0000 |8 | 032d 2000 0000 | | 032f 1000 1000 | | 0331 0000 0000 | | 0333 f000 0000 | | 0335 c000 0000 | | 0337 4000 4000 |@ @ | 0339 0000 0004 | | 033b 0000 0003 | | 033d 8000 0001 | | 033f 0001 0000 | | 0341 0000 0011 | | 0343 0000 0010 | | 0345 0000 0004 | | 0347 0004 0000 | | 0349 0000 0048 | H| 034b 0000 0050 | P| 034d 0000 0010 | | 034f 0010 0000 | | 0351 0000 0130 | 0| 0353 0000 0180 | | 0355 0000 0040 | @| 0357 0040 0000 | @ | 0359 0000 0500 | | 035b 0000 0780 | | 035d 0000 0100 | | 035f 0100 0000 | | 0361 0000 1500 | | 0363 0000 2000 | | 0365 0000 0400 | | 0367 0400 0000 | | 0369 0000 5800 | X | 036b 0000 0000 | | .BLANK 0000[0x95]