|
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_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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[0x22]
0300 0022 c804 | " | .XXX[0x4]
0302 0000 5ad8 | Z |
0304 0000 0000 | | .BLANK 0000[0xe8]
03ec 002f 340c | /4 | .XXX[0x14]
03ee 0000 0006 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 002f 340c | /4 |
03f6 0000 1a70 | p|
03f8 fffe 0003 | |
03fa 0000 0001 | |
03fc 0000 0000 | |
03fe 0000 0003 | |