|
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_779ce4
└─⟦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 0290 | | .CONST 0x0290 ; 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 0043 | C | .CONST 0x0043 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000f 4800 |H | Short_Literal 0x0 0010 4802 |H | Short_Literal 0x2 0011 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0013 03fe | | Declare_Type Discrete,Defined,Visible 0014 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0018 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 001a 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 001c 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001e 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0020 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0022 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0024 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0026 00bf | | Action Accept_Activation 0027 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0029 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 002b 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 002d 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002e 00c7 | | Action Elaborate_Subprogram 002f 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0030 00c7 | | Action Elaborate_Subprogram 0031 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0032 00c7 | | Action Elaborate_Subprogram 0033 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0034 00c7 | | Action Elaborate_Subprogram 0035 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0036 00c7 | | Action Elaborate_Subprogram 0037 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0038 00c7 | | Action Elaborate_Subprogram 0039 1d18 | | Execute_Immediate Reference_Lex_1,0x18 003a 00c7 | | Action Elaborate_Subprogram 003b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003c 00c7 | | Action Elaborate_Subprogram 003d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003e 00c7 | | Action Elaborate_Subprogram 003f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0040 00c7 | | Action Elaborate_Subprogram 0041 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0042 00c7 | | Action Elaborate_Subprogram 0043 BODY_0008: 0043 00bc | | Action Signal_Activated 0044 00bb | | Action Signal_Completion 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004c | L | .CONST 0x004c ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b 00ec | | Load_Encached Diana_Tree_Cache 004c BODY_0048: 004c 00db | | Load_Top At_Offset_3 004d 8002 | | Call 0x0,0x2 004e 8219 | | Call 0x1,0x19 004f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0050 00d8 | | Load_Top At_Offset_0 0051 00eb | | Load_Encached Diana_Cache 0052 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 0053 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0054 00d8 | | Load_Top At_Offset_0 0055 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0056 0f49 | I | Execute_Immediate Equal,0x49 0057 6804 |h | Jump_Zero 0x5c 0058 00d8 | | Load_Top At_Offset_0 0059 00eb | | Load_Encached Diana_Cache 005a 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5 005b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 005c 00d8 | | Load_Top At_Offset_0 005d 8003 | | Call 0x0,0x3 005e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005f 0000 | | .XXX[0x1] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0064 | d | .CONST 0x0064 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 00ec | | Load_Encached Diana_Tree_Cache 0064 BODY_0060: 0064 00db | | Load_Top At_Offset_3 0065 8002 | | Call 0x0,0x2 0066 8219 | | Call 0x1,0x19 0067 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0068 00d8 | | Load_Top At_Offset_0 0069 00eb | | Load_Encached Diana_Cache 006a 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 006b 00eb | | Load_Encached Diana_Cache 006c 1889 | | Execute Package,Field_Execute,Field_Number 0x89 006d 8004 | | Call 0x0,0x4 006e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006f 0000 | | .XXX[0x1] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4607 |F | Jump_Case 0x8 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7807 |x | Jump 0x7d ; case 0x1 0076 780a |x | Jump 0x81 ; case 0x2 0077 780e |x | Jump 0x86 ; case 0x3 0078 7811 |x | Jump 0x8a ; case 0x4 0079 7812 |x | Jump 0x8c ; case 0x5 007a 7813 |x | Jump 0x8e ; case 0x6 007b 7816 |x | Jump 0x92 ; case 0x7 007c 4302 |C | .XXX[0x1] 007d 00da | | Load_Top At_Offset_2 007e 0091 0224 | $| Action Push_String_Extended_Indexed,0x224 ; "A_WITH_CLAUSE" 0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0081 00db | | Load_Top At_Offset_3 0082 00db | | Load_Top At_Offset_3 0083 00e0 | | Load_Encached Standard_Cache 0084 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 00da | | Load_Top At_Offset_2 0087 00e0 | | Load_Encached Standard_Cache 0088 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0089 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 008a 00db | | Load_Top At_Offset_3 008b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008c 00db | | Load_Top At_Offset_3 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e e20f | | Load 0x1,0xf 008f 00dc | | Load_Top At_Offset_4 0090 0267 | g | Execute Discrete,Predecessor 0091 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0092 e20f | | Load 0x1,0xf 0093 00dc | | Load_Top At_Offset_4 0094 0268 | h | Execute Discrete,Successor 0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0096 0000 0000 | | .XXX[0x2] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c 8002 | | Call 0x0,0x2 009d 0145 | E | Execute Heap_Access,Diana_Tree_Kind 009e 0b85 | | Execute_Immediate Case_Compare,0x85 009f 7004 |p | Jump_Nonzero 0xa4 00a0 0f45 | E | Execute_Immediate Equal,0x45 00a1 7005 |p | Jump_Nonzero 0xa7 00a2 4802 |H | Short_Literal 0x2 00a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a4 00d1 | | Pop_Control Pop_Count_1 00a5 4800 |H | Short_Literal 0x0 00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a7 4801 |H | Short_Literal 0x1 00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a9 0000 0000 | | .BLANK 0000[0x7] 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 00da | | Load_Top At_Offset_2 00b4 4801 |H | Short_Literal 0x1 00b5 821b | | Call 0x1,0x1b 00b6 00da | | Load_Top At_Offset_2 00b7 8002 | | Call 0x0,0x2 00b8 00eb | | Load_Encached Diana_Cache 00b9 1889 | | Execute Package,Field_Execute,Field_Number 0x89 00ba 8004 | | Call 0x0,0x4 00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c4 | | .CONST 0x00c4 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 00ec | | Load_Encached Diana_Tree_Cache 00c4 BODY_00c0: 00c4 00db | | Load_Top At_Offset_3 00c5 8002 | | Call 0x0,0x2 00c6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00c7 00d8 | | Load_Top At_Offset_0 00c8 7002 |p | Jump_Nonzero 0xcb 00c9 e005 | | Load 0x0,0x5 00ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cb 00d8 | | Load_Top At_Offset_0 00cc 4974 |It | Short_Literal 0x174 00cd 00eb | | Load_Encached Diana_Cache 00ce 0098 | | Execute Package,Field_Read_Dynamic 00cf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00d1 00d8 | | Load_Top At_Offset_0 00d2 0145 | E | Execute Heap_Access,Diana_Tree_Kind 00d3 0fa8 | | Execute_Immediate Equal,-0x58 00d4 6803 |h | Jump_Zero 0xd8 00d5 00d8 | | Load_Top At_Offset_0 00d6 8003 | | Call 0x0,0x3 00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d8 0092 0227 | '| Action Push_String_Extended,0x227 ; "Element is not in a compilation unit" 00da e006 | | Load 0x0,0x6 00db 8007 | | Call 0x0,0x7 00dc e008 | | Load 0x0,0x8 00dd 0257 | W | Execute Discrete,Raise 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e4 | | .CONST 0x00e4 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 00ec | | Load_Encached Diana_Tree_Cache 00e4 BODY_00e0: 00e4 00db | | Load_Top At_Offset_3 00e5 8002 | | Call 0x0,0x2 00e6 8219 | | Call 0x1,0x19 00e7 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00e8 00d8 | | Load_Top At_Offset_0 00e9 00eb | | Load_Encached Diana_Cache 00ea 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 00eb 0145 | E | Execute Heap_Access,Diana_Tree_Kind 00ec 0f49 | I | Execute_Immediate Equal,0x49 00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f4 | | .CONST 0x00f4 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 00ec | | Load_Encached Diana_Tree_Cache 00f4 BODY_00f0: 00f4 00db | | Load_Top At_Offset_3 00f5 8215 | | Call 0x1,0x15 00f6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00f7 00d8 | | Load_Top At_Offset_0 00f8 8002 | | Call 0x0,0x2 00f9 4974 |It | Short_Literal 0x174 00fa 00eb | | Load_Encached Diana_Cache 00fb 0098 | | Execute Package,Field_Read_Dynamic 00fc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00fd 8003 | | Call 0x0,0x3 00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0112 | | .CONST 0x0112 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0006 | | .CONST 0x0006 ; Number of locals 0103 INIT_0100: 0103 00ec | | Load_Encached Diana_Tree_Cache 0104 00ec | | Load_Encached Diana_Tree_Cache 0105 e009 | | Load 0x0,0x9 0106 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0107 02c7 | | Declare_Variable Any 0108 00d8 | | Load_Top At_Offset_0 0109 1c00 | | Execute_Immediate Run_Utility,0x0 010a e009 | | Load 0x0,0x9 010b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 010c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010d 02c7 | | Declare_Variable Any 010e 00d8 | | Load_Top At_Offset_0 010f 1c00 | | Execute_Immediate Run_Utility,0x0 0110 e009 | | Load 0x0,0x9 0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0112 BODY_0100: 0112 e5ff | | Load 0x2,-0x1 0113 8002 | | Call 0x0,0x2 0114 8219 | | Call 0x1,0x19 0115 a402 | | Store_Unchecked 0x2,0x2 0116 e402 | | Load 0x2,0x2 0117 00eb | | Load_Encached Diana_Cache 0118 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 0119 0145 | E | Execute Heap_Access,Diana_Tree_Kind 011a 0f49 | I | Execute_Immediate Equal,0x49 011b 7006 |p | Jump_Nonzero 0x122 011c 0092 0228 | (| Action Push_String_Extended,0x228 ; "Element is not in a subunit" 011e e006 | | Load 0x0,0x6 011f 8007 | | Call 0x0,0x7 0120 e008 | | Load 0x0,0x8 0121 0257 | W | Execute Discrete,Raise 0122 e009 | | Load 0x0,0x9 0123 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0124 00da | | Load_Top At_Offset_2 0125 0120 | | Execute Any,Is_Value 0126 6804 |h | Jump_Zero 0x12b 0127 e009 | | Load 0x0,0x9 0128 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0129 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012a 7801 |x | Jump 0x12c 012b 00da | | Load_Top At_Offset_2 012c e402 | | Load 0x2,0x2 012d e009 | | Load 0x0,0x9 012e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0130 c405 | | Store 0x2,0x5 0131 0059 | Y | Store_Top Discrete,At_Offset_1 0132 00d8 | | Load_Top At_Offset_0 0133 821a | | Call 0x1,0x1a 0134 00d9 | | Load_Top At_Offset_1 0135 e009 | | Load 0x0,0x9 0136 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0137 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0138 c404 | | Store 0x2,0x4 0139 e009 | | Load 0x0,0x9 013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013b e009 | | Load 0x0,0x9 013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013d 6012 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00004000} 013e e00a | | Load 0x0,0xa 013f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0140 4800 |H | Short_Literal 0x0 0141 e404 | | Load 0x2,0x4 0142 e009 | | Load 0x0,0x9 0143 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0144 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0145 c403 | | Store 0x2,0x3 0146 0059 | Y | Store_Top Discrete,At_Offset_1 0147 00d8 | | Load_Top At_Offset_0 0148 821a | | Call 0x1,0x1a 0149 00db | | Load_Top At_Offset_3 014a 8003 | | Call 0x0,0x3 014b 800b | | Call 0x0,0xb 014c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015d | ] | .CONST 0x015d ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0003 | | .CONST 0x0003 ; Number of locals 015b INIT_0158: 015b 00ec | | Load_Encached Diana_Tree_Cache 015c 00ee | | Load_Encached Diana_Seq_Type_Cache 015d BODY_0158: 015d e5ff | | Load 0x2,-0x1 015e 8002 | | Call 0x0,0x2 015f 8219 | | Call 0x1,0x19 0160 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0161 00d9 | | Load_Top At_Offset_1 0162 00eb | | Load_Encached Diana_Cache 0163 18db | | Execute Package,Field_Execute,Field_Number 0xdb 0164 00eb | | Load_Encached Diana_Cache 0165 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0166 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0167 00d8 | | Load_Top At_Offset_0 0168 8004 | | Call 0x0,0x4 0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0176 | v | .CONST 0x0176 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0004 | | .CONST 0x0004 ; Number of locals 0173 INIT_0170: 0173 00ec | | Load_Encached Diana_Tree_Cache 0174 00ec | | Load_Encached Diana_Tree_Cache 0175 00ee | | Load_Encached Diana_Seq_Type_Cache 0176 BODY_0170: 0176 e5ff | | Load 0x2,-0x1 0177 8002 | | Call 0x0,0x2 0178 8219 | | Call 0x1,0x19 0179 0032 | 2 | Store_Top Heap_Access,At_Offset_2 017a 00d9 | | Load_Top At_Offset_1 017b 00eb | | Load_Encached Diana_Cache 017c 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 017d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 017e 00da | | Load_Top At_Offset_2 017f 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0180 0f49 | I | Execute_Immediate Equal,0x49 0181 6804 |h | Jump_Zero 0x186 0182 00da | | Load_Top At_Offset_2 0183 00eb | | Load_Encached Diana_Cache 0184 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5 0185 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0186 00da | | Load_Top At_Offset_2 0187 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0188 0b48 | H | Execute_Immediate Case_Compare,0x48 0189 7008 |p | Jump_Nonzero 0x192 018a 0f3d | = | Execute_Immediate Equal,0x3d 018b 7007 |p | Jump_Nonzero 0x193 018c 0092 0229 | )| Action Push_String_Extended,0x229 ; "Element is not a procedure" 018e e006 | | Load 0x0,0x6 018f 8007 | | Call 0x0,0x7 0190 e008 | | Load 0x0,0x8 0191 0257 | W | Execute Discrete,Raise 0192 00d1 | | Pop_Control Pop_Count_1 0193 00d9 | | Load_Top At_Offset_1 0194 00eb | | Load_Encached Diana_Cache 0195 18db | | Execute Package,Field_Execute,Field_Number 0xdb 0196 00eb | | Load_Encached Diana_Cache 0197 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0198 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0199 00cf | | Action Mark_Auxiliary 019a 780e |x | Jump 0x1a9 019b 0092 022a | *| Action Push_String_Extended,0x22a ; "MAIN" 019d 00da | | Load_Top At_Offset_2 019e 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 019f 800c | | Call 0x0,0xc 01a0 01df | | Execute Vector,Equal 01a1 6802 |h | Jump_Zero 0x1a4 01a2 4801 |H | Short_Literal 0x1 01a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a4 00d9 | | Load_Top At_Offset_1 01a5 0217 | | Execute Heap_Access,All_Reference 01a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01a8 00c9 | | Action Pop_Auxiliary_Loop 01a9 00d9 | | Load_Top At_Offset_1 01aa 77f0 |w | Jump_Nonzero 0x19b 01ab 00ce | | Action Pop_Auxiliary 01ac 4800 |H | Short_Literal 0x0 01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ae 0000 0000 | | .XXX[0x2] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b8 | | .CONST 0x01b8 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 8002 | | Call 0x0,0x2 01b5 8219 | | Call 0x1,0x19 01b6 00eb | | Load_Encached Diana_Cache 01b7 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 01b8 BODY_01b0: 01b8 00d8 | | Load_Top At_Offset_0 01b9 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01ba 0f49 | I | Execute_Immediate Equal,0x49 01bb 7006 |p | Jump_Nonzero 0x1c2 01bc 0092 0228 | (| Action Push_String_Extended,0x228 ; "Element is not in a subunit" 01be e006 | | Load 0x0,0x6 01bf 8007 | | Call 0x0,0x7 01c0 e008 | | Load 0x0,0x8 01c1 0257 | W | Execute Discrete,Raise 01c2 00d8 | | Load_Top At_Offset_0 01c3 00eb | | Load_Encached Diana_Cache 01c4 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 01c5 8003 | | Call 0x0,0x3 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cc | | .CONST 0x01cc ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb 00ec | | Load_Encached Diana_Tree_Cache 01cc BODY_01c8: 01cc 00db | | Load_Top At_Offset_3 01cd 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01ce 008a | | Action Discrete,Diana_Spare0 01cf 6805 |h | Jump_Zero 0x1d5 01d0 00db | | Load_Top At_Offset_3 01d1 00eb | | Load_Encached Diana_Cache 01d2 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01d3 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01d4 7802 |x | Jump 0x1d7 01d5 00db | | Load_Top At_Offset_3 01d6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01d7 00d8 | | Load_Top At_Offset_0 01d8 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01d9 00d8 | | Load_Top At_Offset_0 01da 483d |H= | Short_Literal 0x3d 01db 483e |H> | Short_Literal 0x3e 01dc 0262 | b | Execute Discrete,In_Range 01dd 7005 |p | Jump_Nonzero 0x1e3 01de 4846 |HF | Short_Literal 0x46 01df 4848 |HH | Short_Literal 0x48 01e0 0262 | b | Execute Discrete,In_Range 01e1 7002 |p | Jump_Nonzero 0x1e4 01e2 7805 |x | Jump 0x1e8 01e3 00d1 | | Pop_Control Pop_Count_1 01e4 00d8 | | Load_Top At_Offset_0 01e5 00eb | | Load_Encached Diana_Cache 01e6 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01e7 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01e8 00d8 | | Load_Top At_Offset_0 01e9 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01ea 0f49 | I | Execute_Immediate Equal,0x49 01eb 6804 |h | Jump_Zero 0x1f0 01ec 00d8 | | Load_Top At_Offset_0 01ed 00eb | | Load_Encached Diana_Cache 01ee 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01ef 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01f0 00d8 | | Load_Top At_Offset_0 01f1 8003 | | Call 0x0,0x3 01f2 800d | | Call 0x0,0xd 01f3 7002 |p | Jump_Nonzero 0x1f6 01f4 00d8 | | Load_Top At_Offset_0 01f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f6 0092 022b | +| Action Push_String_Extended,0x22b ; "Element is not a compilation unit" 01f8 e006 | | Load 0x0,0x6 01f9 8007 | | Call 0x0,0x7 01fa e008 | | Load 0x0,0x8 01fb 0257 | W | Execute Discrete,Raise 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 6807 |h | Jump_Zero 0x20c 0205 00da | | Load_Top At_Offset_2 0206 e009 | | Load 0x0,0x9 0207 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0208 011c | | Execute Any,Convert_Unchecked 0209 1c01 | | Execute_Immediate Run_Utility,0x1 020a e006 | | Load 0x0,0x6 020b 8007 | | Call 0x0,0x7 020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00db | | Load_Top At_Offset_3 0214 800d | | Call 0x0,0xd 0215 00db | | Load_Top At_Offset_3 0216 027f | | Execute Discrete,Equal 0217 700b |p | Jump_Nonzero 0x223 0218 0092 022c | ,| Action Push_String_Extended,0x22c ; "Element is not " 021a 00db | | Load_Top At_Offset_3 021b e00e | | Load 0x0,0xe 021c 011c | | Execute Any,Convert_Unchecked 021d 1c01 | | Execute_Immediate Run_Utility,0x1 021e 01cc | | Execute Vector,Catenate 021f e006 | | Load 0x0,0x6 0220 8007 | | Call 0x0,0x7 0221 e008 | | Load 0x0,0x8 0222 0257 | W | Execute Discrete,Raise 0223 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0224 ; -------------------------------------------------------------------------------------- 0224 ; STRING TABLE 0224 ; -------------------------------------------------------------------------------------- 0224 0014 | | .STRTAB 0x0014->0x022e ; "A_WITH_CLAUSE" 0225 001f | | .STRTAB 0x001f->0x0234 ; "A_USE_CLAUSE" 0226 0029 | ) | .STRTAB 0x0029->0x023a ; "NOT_A_CONTEXT_CLAUSE" 0227 003b | ; | .STRTAB 0x003b->0x0244 ; "Element is not in a compilation unit" 0228 005d | ] | .STRTAB 0x005d->0x0256 ; "Element is not in a subunit" 0229 0076 | v | .STRTAB 0x0076->0x0264 ; "Element is not a procedure" 022a 008e | | .STRTAB 0x008e->0x0271 ; "MAIN" 022b 0090 | | .STRTAB 0x0090->0x0273 ; "Element is not a compilation unit" 022c 00af | | .STRTAB 0x00af->0x0283 ; "Element is not " 022d 00bc | | .STREND 0x00bc->0x028b 022e 415f 5749 |A_WI| .STRTAB_STRINGS 028b 0000 0000 | | .BLANK 0000[0x5] 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug Table 0290 ; -------------------------------------------------------------------------------------- 0290 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d84,0x0000,0x0001,0x0000 0296 0000 0000 | | .BLANK 0000[0x16a]