|
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]