|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe, 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 05a0 | | .CONST 0x05a0 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0047 | G | .CONST 0x0047 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0013 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0015 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0017 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0019 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
001b 0093 0000 | | push_full_address 0x0
001d 6052 |`R | Indirect_Literal Discrete,0x70,{0x80000000, 0x00010000}
001e 0273 | s | Execute Discrete,Plus
001f 0129 | ) | Execute Any,Make_Visible
0020 00bf | | Action Accept_Activation
0021 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
0023 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
0025 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0026 00c7 | | Action Elaborate_Subprogram
0027 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
0029 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
002b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002c 00c7 | | Action Elaborate_Subprogram
002d 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call
002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0030 00c7 | | Action Elaborate_Subprogram
0031 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0032 00c7 | | Action Elaborate_Subprogram
0033 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call
0035 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
0037 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
0039 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
003b 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call
003d 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call
003f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0040 00c7 | | Action Elaborate_Subprogram
0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0042 00c7 | | Action Elaborate_Subprogram
0043 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0044 00c7 | | Action Elaborate_Subprogram
0045 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0046 00c7 | | Action Elaborate_Subprogram
0047 BODY_0008:
0047 00bc | | Action Signal_Activated
0048 00bb | | Action Signal_Completion
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 00eb | | Load_Encached Diana_Cache
0055 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0056 00d8 | | Load_Top At_Offset_0
0057 4842 |HB | Short_Literal 0x42
0058 4845 |HE | Short_Literal 0x45
0059 0262 | b | Execute Discrete,In_Range
005a 700b |p | Jump_Nonzero 0x66
005b 0f40 | @ | Execute_Immediate Equal,0x40
005c 700c |p | Jump_Nonzero 0x69
005d 00da | | Load_Top At_Offset_2
005e e002 | | Load 0x0,0x2
005f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0060 6803 |h | Jump_Zero 0x64
0061 00da | | Load_Top At_Offset_2
0062 8217 | | Call 0x1,0x17
0063 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0064 4801 |H | Short_Literal 0x1
0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0066 00d1 | | Pop_Control Pop_Count_1
0067 4800 |H | Short_Literal 0x0
0068 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0069 00da | | Load_Top At_Offset_2
006a 49a1 |I | Short_Literal 0x1a1
006b 00eb | | Load_Encached Diana_Cache
006c 0096 | | Execute Package,Entry
006d 0f00 | | Execute_Immediate Equal,0x0
006e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006f 0000 | | .XXX[0x1]
0070 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007d | } | .CONST 0x007d ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b 00e3 | | Load_Encached Natural_Cache
007c 00ec | | Load_Encached Diana_Tree_Cache
007d BODY_0078:
007d e5ff | | Load 0x2,-0x1
007e 8219 | | Call 0x1,0x19
007f e5fe | | Load 0x2,-0x2
0080 6017 |` | Indirect_Literal Discrete,0x98,{0x00000000, 0x7fffffff}
0081 027f | | Execute Discrete,Equal
0082 6802 |h | Jump_Zero 0x85
0083 e5ff | | Load 0x2,-0x1
0084 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0085 00e3 | | Load_Encached Natural_Cache
0086 00ec | | Load_Encached Diana_Tree_Cache
0087 00eb | | Load_Encached Diana_Cache
0088 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0089 e5fe | | Load 0x2,-0x2
008a e5ff | | Load 0x2,-0x1
008b 8218 | | Call 0x1,0x18
008c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
008d 005a | Z | Store_Top Discrete,At_Offset_2
008e 00d9 | | Load_Top At_Offset_1
008f e5fe | | Load 0x2,-0x2
0090 027b | { | Execute Discrete,Greater_Equal
0091 6802 |h | Jump_Zero 0x94
0092 00d8 | | Load_Top At_Offset_0
0093 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0094 00eb | | Load_Encached Diana_Cache
0095 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0096 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0097 0000 | | .XXX[0x1]
0098 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a9 | | .CONST 0x00a9 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0007 | | .CONST 0x0007 ; Number of locals
00a3 INIT_00a0:
00a3 00ee | | Load_Encached Diana_Seq_Type_Cache
00a4 00ee | | Load_Encached Diana_Seq_Type_Cache
00a5 00e2 | | Load_Encached Integer_Cache
00a6 00ec | | Load_Encached Diana_Tree_Cache
00a7 00e2 | | Load_Encached Integer_Cache
00a8 00e2 | | Load_Encached Integer_Cache
00a9 BODY_00a0:
00a9 e403 | | Load 0x2,0x3
00aa e402 | | Load 0x2,0x2
00ab e5ff | | Load 0x2,-0x1
00ac 821e | | Call 0x1,0x1e
00ad c402 | | Store 0x2,0x2
00ae c403 | | Store 0x2,0x3
00af 00e3 | | Load_Encached Natural_Cache
00b0 00ec | | Load_Encached Diana_Tree_Cache
00b1 00eb | | Load_Encached Diana_Cache
00b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b3 e5fe | | Load 0x2,-0x2
00b4 e402 | | Load 0x2,0x2
00b5 8220 | | Call 0x1,0x20
00b6 c405 | | Store 0x2,0x5
00b7 005a | Z | Store_Top Discrete,At_Offset_2
00b8 00da | | Load_Top At_Offset_2
00b9 00eb | | Load_Encached Diana_Cache
00ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bb 7002 |p | Jump_Nonzero 0xbe
00bc 00da | | Load_Top At_Offset_2
00bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00be e5fe | | Load 0x2,-0x2
00bf 00da | | Load_Top At_Offset_2
00c0 0272 | r | Execute Discrete,Minus
00c1 c404 | | Store 0x2,0x4
00c2 00db | | Load_Top At_Offset_3
00c3 e403 | | Load 0x2,0x3
00c4 4975 |Iu | Short_Literal 0x175
00c5 00eb | | Load_Encached Diana_Cache
00c6 0098 | | Execute Package,Field_Read_Dynamic
00c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c8 027a | z | Execute Discrete,Less_Equal
00c9 6810 |h | Jump_Zero 0xda
00ca 00e3 | | Load_Encached Natural_Cache
00cb 00ec | | Load_Encached Diana_Tree_Cache
00cc 00eb | | Load_Encached Diana_Cache
00cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ce e404 | | Load 0x2,0x4
00cf 00d8 | | Load_Top At_Offset_0
00d0 00e4 | | Load_Encached Positive_Cache
00d1 0260 | ` | Execute Discrete,In_Type
00d2 7001 |p | Jump_Nonzero 0xd4
00d3 0801 | | Execute_Immediate Raise,0x1
00d4 e403 | | Load 0x2,0x3
00d5 8220 | | Call 0x1,0x20
00d6 c405 | | Store 0x2,0x5
00d7 0059 | Y | Store_Top Discrete,At_Offset_1
00d8 00da | | Load_Top At_Offset_2
00d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00da 00eb | | Load_Encached Diana_Cache
00db 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3
00e4 0c01 | | Execute_Immediate Greater_Equal,0x1
00e5 6809 |h | Jump_Zero 0xef
00e6 00db | | Load_Top At_Offset_3
00e7 00d8 | | Load_Top At_Offset_0
00e8 00e4 | | Load_Encached Positive_Cache
00e9 0260 | ` | Execute Discrete,In_Type
00ea 7001 |p | Jump_Nonzero 0xec
00eb 0801 | | Execute_Immediate Raise,0x1
00ec 00db | | Load_Top At_Offset_3
00ed 820e | | Call 0x1,0xe
00ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ef 00db | | Load_Top At_Offset_3
00f0 0d00 | | Execute_Immediate Less,0x0
00f1 680a |h | Jump_Zero 0xfc
00f2 00db | | Load_Top At_Offset_3
00f3 0275 | u | Execute Discrete,Unary_Minus
00f4 00d8 | | Load_Top At_Offset_0
00f5 00e4 | | Load_Encached Positive_Cache
00f6 0260 | ` | Execute Discrete,In_Type
00f7 7001 |p | Jump_Nonzero 0xf9
00f8 0801 | | Execute_Immediate Raise,0x1
00f9 00db | | Load_Top At_Offset_3
00fa 820f | | Call 0x1,0xf
00fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00fc 00eb | | Load_Encached Diana_Cache
00fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0107 | | .CONST 0x0107 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0005 | | .CONST 0x0005 ; Number of locals
0103 INIT_0100:
0103 00e3 | | Load_Encached Natural_Cache
0104 00e2 | | Load_Encached Integer_Cache
0105 00ec | | Load_Encached Diana_Tree_Cache
0106 039d | | Declare_Variable Heap_Access,Duplicate
0107 BODY_0100:
0107 e5ff | | Load 0x2,-0x1
0108 8219 | | Call 0x1,0x19
0109 e5fe | | Load 0x2,-0x2
010a e002 | | Load 0x0,0x2
010b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
010c 7002 |p | Jump_Nonzero 0x10f
010d e215 | | Load 0x1,0x15
010e 0257 | W | Execute Discrete,Raise
010f e5fe | | Load 0x2,-0x2
0110 821a | | Call 0x1,0x1a
0111 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0112 e5fe | | Load 0x2,-0x2
0113 e003 | | Load 0x0,0x3
0114 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0115 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0116 680f |h | Jump_Zero 0x126
0117 e5fe | | Load 0x2,-0x2
0118 e003 | | Load 0x0,0x3
0119 1b10 | | Execute Package,Field_Read,Field_Number 0x10
011a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
011b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
011c 00da | | Load_Top At_Offset_2
011d 0c01 | | Execute_Immediate Greater_Equal,0x1
011e 6807 |h | Jump_Zero 0x126
011f 00da | | Load_Top At_Offset_2
0120 00d8 | | Load_Top At_Offset_0
0121 00e3 | | Load_Encached Natural_Cache
0122 0260 | ` | Execute Discrete,In_Type
0123 7001 |p | Jump_Nonzero 0x125
0124 0801 | | Execute_Immediate Raise,0x1
0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0126 00e3 | | Load_Encached Natural_Cache
0127 00ec | | Load_Encached Diana_Tree_Cache
0128 00da | | Load_Top At_Offset_2
0129 600e |` | Indirect_Literal Discrete,0x138,{0x00000000, 0x7fffffff}
012a e5ff | | Load 0x2,-0x1
012b 8218 | | Call 0x1,0x18
012c 0033 | 3 | Store_Top Heap_Access,At_Offset_3
012d c402 | | Store 0x2,0x2
012e 00d9 | | Load_Top At_Offset_1
012f 00d9 | | Load_Top At_Offset_1
0130 021f | | Execute Heap_Access,Equal
0131 6802 |h | Jump_Zero 0x134
0132 00db | | Load_Top At_Offset_3
0133 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0134 4800 |H | Short_Literal 0x0
0135 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0136 0000 0000 | | .XXX[0x2]
0138 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0148 | H | .CONST 0x0148 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0006 | | .CONST 0x0006 ; Number of locals
0143 INIT_0140:
0143 00ee | | Load_Encached Diana_Seq_Type_Cache
0144 00ee | | Load_Encached Diana_Seq_Type_Cache
0145 00ec | | Load_Encached Diana_Tree_Cache
0146 00e3 | | Load_Encached Natural_Cache
0147 00e3 | | Load_Encached Natural_Cache
0148 BODY_0140:
0148 0092 053e | >| Action Push_String_Extended,0x53e ; "Get_Declaration_Number passed empty Decl_Node"
014a e5fe | | Load 0x2,-0x2
014b 00eb | | Load_Encached Diana_Cache
014c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014d 0f00 | | Execute_Immediate Equal,0x0
014e e004 | | Load 0x0,0x4
014f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0150 e5fe | | Load 0x2,-0x2
0151 0092 053f | ?| Action Push_String_Extended,0x53f ; "Get_Declaration_Number passed non Decl Node"
0153 e5fe | | Load 0x2,-0x2
0154 e002 | | Load 0x0,0x2
0155 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0156 821d | | Call 0x1,0x1d
0157 e5fe | | Load 0x2,-0x2
0158 0092 0540 | @| Action Push_String_Extended,0x540 ; "Get_Declaration_Number passed unnumbered Decl_Node"
015a e5fe | | Load 0x2,-0x2
015b 820d | | Call 0x1,0xd
015c 821d | | Call 0x1,0x1d
015d 00db | | Load_Top At_Offset_3
015e e402 | | Load 0x2,0x2
015f e5ff | | Load 0x2,-0x1
0160 821e | | Call 0x1,0x1e
0161 c402 | | Store 0x2,0x2
0162 c403 | | Store 0x2,0x3
0163 00e3 | | Load_Encached Natural_Cache
0164 00ec | | Load_Encached Diana_Tree_Cache
0165 e5fe | | Load 0x2,-0x2
0166 67d1 |g | Indirect_Literal Discrete,0x138,{0x00000000, 0x7fffffff}
0167 e402 | | Load 0x2,0x2
0168 8220 | | Call 0x1,0x20
0169 c404 | | Store 0x2,0x4
016a 005a | Z | Store_Top Discrete,At_Offset_2
016b 00da | | Load_Top At_Offset_2
016c e5fe | | Load 0x2,-0x2
016d 021f | | Execute Heap_Access,Equal
016e 6802 |h | Jump_Zero 0x171
016f 00d9 | | Load_Top At_Offset_1
0170 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0171 00d9 | | Load_Top At_Offset_1
0172 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0173 00e3 | | Load_Encached Natural_Cache
0174 00ec | | Load_Encached Diana_Tree_Cache
0175 e5fe | | Load 0x2,-0x2
0176 67c1 |g | Indirect_Literal Discrete,0x138,{0x00000000, 0x7fffffff}
0177 e403 | | Load 0x2,0x3
0178 8220 | | Call 0x1,0x20
0179 c404 | | Store 0x2,0x4
017a 005a | Z | Store_Top Discrete,At_Offset_2
017b 00da | | Load_Top At_Offset_2
017c e5fe | | Load 0x2,-0x2
017d 021f | | Execute Heap_Access,Equal
017e 6809 |h | Jump_Zero 0x188
017f 00d9 | | Load_Top At_Offset_1
0180 00d9 | | Load_Top At_Offset_1
0181 0273 | s | Execute Discrete,Plus
0182 00d8 | | Load_Top At_Offset_0
0183 00e3 | | Load_Encached Natural_Cache
0184 0260 | ` | Execute Discrete,In_Type
0185 7001 |p | Jump_Nonzero 0x187
0186 0801 | | Execute_Immediate Raise,0x1
0187 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0188 4800 |H | Short_Literal 0x0
0189 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0197 | | .CONST 0x0197 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00db | | Load_Top At_Offset_3
0194 00db | | Load_Top At_Offset_3
0195 8211 | | Call 0x1,0x11
0196 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0197 TRAP_0190:
0197 0007 | | Action Break_Optional
0198 e5fe | | Load 0x2,-0x2
0199 e5ff | | Load 0x2,-0x1
019a 8212 | | Call 0x1,0x12
019b 0275 | u | Execute Discrete,Unary_Minus
019c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5 | | .CONST 0x01a5 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 00ec | | Load_Encached Diana_Tree_Cache
01a4 00e3 | | Load_Encached Natural_Cache
01a5 BODY_01a0:
01a5 e5ff | | Load 0x2,-0x1
01a6 8219 | | Call 0x1,0x19
01a7 00e3 | | Load_Encached Natural_Cache
01a8 00ec | | Load_Encached Diana_Tree_Cache
01a9 00eb | | Load_Encached Diana_Cache
01aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ab 6008 |` | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x7fffffff}
01ac e5ff | | Load 0x2,-0x1
01ad 8218 | | Call 0x1,0x18
01ae 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01af 0059 | Y | Store_Top Discrete,At_Offset_1
01b0 00d8 | | Load_Top At_Offset_0
01b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b2 0000 0000 | | .XXX[0x2]
01b4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c0 | | .CONST 0x01c0 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0005 | | .CONST 0x0005 ; Number of locals
01bb INIT_01b8:
01bb 00ec | | Load_Encached Diana_Tree_Cache
01bc 039d | | Declare_Variable Heap_Access,Duplicate
01bd 00ee | | Load_Encached Diana_Seq_Type_Cache
01be 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
01c0 BODY_01b8:
01c0 e5ff | | Load 0x2,-0x1
01c1 00eb | | Load_Encached Diana_Cache
01c2 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01c3 a402 | | Store_Unchecked 0x2,0x2
01c4 00db | | Load_Top At_Offset_3
01c5 00eb | | Load_Encached Diana_Cache
01c6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01c7 0f97 | | Execute_Immediate Equal,-0x69
01c8 6816 |h | Jump_Zero 0x1df
01c9 00db | | Load_Top At_Offset_3
01ca 00eb | | Load_Encached Diana_Cache
01cb 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01cc 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01cd 00da | | Load_Top At_Offset_2
01ce 00eb | | Load_Encached Diana_Cache
01cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01d0 0b60 | ` | Execute_Immediate Case_Compare,0x60
01d1 7004 |p | Jump_Nonzero 0x1d6
01d2 0f9e | | Execute_Immediate Equal,-0x62
01d3 7003 |p | Jump_Nonzero 0x1d7
01d4 4800 |H | Short_Literal 0x0
01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d6 00d1 | | Pop_Control Pop_Count_1
01d7 00db | | Load_Top At_Offset_3
01d8 00eb | | Load_Encached Diana_Cache
01d9 1888 | | Execute Package,Field_Execute,Field_Number 0x88
01da 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01db e5ff | | Load 0x2,-0x1
01dc 8405 | | Call 0x2,0x5
01dd 021f | | Execute Heap_Access,Equal
01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01df 4800 |H | Short_Literal 0x0
01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 00eb | | Load_Encached Diana_Cache
01ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ee 00d8 | | Load_Top At_Offset_0
01ef 0d52 | R | Execute_Immediate Less,0x52
01f0 700b |p | Jump_Nonzero 0x1fc
01f1 00d8 | | Load_Top At_Offset_0
01f2 0c53 | S | Execute_Immediate Greater_Equal,0x53
01f3 7005 |p | Jump_Nonzero 0x1f9
01f4 00d1 | | Pop_Control Pop_Count_1
01f5 00da | | Load_Top At_Offset_2
01f6 8216 | | Call 0x1,0x16
01f7 0f00 | | Execute_Immediate Equal,0x0
01f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f9 0f5f | _ | Execute_Immediate Equal,0x5f
01fa 700a |p | Jump_Nonzero 0x205
01fb 780b |x | Jump 0x207
01fc 0f40 | @ | Execute_Immediate Equal,0x40
01fd 7001 |p | Jump_Nonzero 0x1ff
01fe 7808 |x | Jump 0x207
01ff 00da | | Load_Top At_Offset_2
0200 49a1 |I | Short_Literal 0x1a1
0201 00eb | | Load_Encached Diana_Cache
0202 0096 | | Execute Package,Entry
0203 0f00 | | Execute_Immediate Equal,0x0
0204 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0205 4800 |H | Short_Literal 0x0
0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0207 4801 |H | Short_Literal 0x1
0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0226 | & | .CONST 0x0226 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0009 | | .CONST 0x0009 ; Number of locals
0213 INIT_0210:
0213 00ec | | Load_Encached Diana_Tree_Cache
0214 00e3 | | Load_Encached Natural_Cache
0215 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0216 00e1 | | Load_Encached Boolean_Cache
0217 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0218 029e 034b | K| Declare_Subprogram INIT_0348,For_Call,Unelaborated
021a 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
021c 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
021e 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
0220 029f 0403 | | Declare_Subprogram INIT_0400,For_Call
0222 4805 |H | Short_Literal 0x5
0223 4802 |H | Short_Literal 0x2
0224 0099 | | Action Reference_Dynamic
0225 00c7 | | Action Elaborate_Subprogram
0226 BODY_0210:
0226 e5ff | | Load 0x2,-0x1
0227 8405 | | Call 0x2,0x5
0228 e402 | | Load 0x2,0x2
0229 a5fc | | Store_Unchecked 0x2,-0x4
022a e403 | | Load 0x2,0x3
022b a5fb | | Store_Unchecked 0x2,-0x5
022c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 00eb | | Load_Encached Diana_Cache
0235 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0236 0b4e | N | Execute_Immediate Case_Compare,0x4e
0237 7004 |p | Jump_Nonzero 0x23c
0238 0f4c | L | Execute_Immediate Equal,0x4c
0239 7003 |p | Jump_Nonzero 0x23d
023a e215 | | Load 0x1,0x15
023b 0257 | W | Execute Discrete,Raise
023c 00d1 | | Pop_Control Pop_Count_1
023d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 00eb | | Load_Encached Diana_Cache
0245 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0246 00d8 | | Load_Top At_Offset_0
0247 4857 |HW | Short_Literal 0x57
0248 4858 |HX | Short_Literal 0x58
0249 0262 | b | Execute Discrete,In_Range
024a 7004 |p | Jump_Nonzero 0x24f
024b 0f59 | Y | Execute_Immediate Equal,0x59
024c 7007 |p | Jump_Nonzero 0x254
024d 00da | | Load_Top At_Offset_2
024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024f 00d1 | | Pop_Control Pop_Count_1
0250 00da | | Load_Top At_Offset_2
0251 00eb | | Load_Encached Diana_Cache
0252 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0253 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0254 00da | | Load_Top At_Offset_2
0255 00eb | | Load_Encached Diana_Cache
0256 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0257 00eb | | Load_Encached Diana_Cache
0258 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 00eb | | Load_Encached Diana_Cache
0265 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0266 6809 |h | Jump_Zero 0x270
0267 0092 0541 | A| Action Push_String_Extended,0x541 ; "."
0269 00db | | Load_Top At_Offset_3
026a 00eb | | Load_Encached Diana_Cache
026b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
026c 00eb | | Load_Encached Diana_Cache
026d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
026e 01cc | | Execute Vector,Catenate
026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0270 00ea | | Load_Encached Null_String_Cache
0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0272 0000 0000 | | .BLANK 0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 00eb | | Load_Encached Diana_Cache
027d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
027e 00eb | | Load_Encached Diana_Cache
027f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0280 011c | | Execute Any,Convert_Unchecked
0281 1c01 | | Execute_Immediate Run_Utility,0x1
0282 00db | | Load_Top At_Offset_3
0283 821b | | Call 0x1,0x1b
0284 01cc | | Execute Vector,Catenate
0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 7011 |p | Jump_Nonzero 0x29e
028d e5fd | | Load 0x2,-0x3
028e 00eb | | Load_Encached Diana_Cache
028f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0290 6804 |h | Jump_Zero 0x295
0291 00db | | Load_Top At_Offset_3
0292 e004 | | Load 0x0,0x4
0293 180f | | Execute Package,Field_Execute,Field_Number 0xf
0294 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0295 00db | | Load_Top At_Offset_3
0296 0092 0542 | B| Action Push_String_Extended,0x542 ; ": "
0298 01cc | | Execute Vector,Catenate
0299 e5fd | | Load 0x2,-0x3
029a 821c | | Call 0x1,0x1c
029b 01cc | | Execute Vector,Catenate
029c e004 | | Load 0x0,0x4
029d 180f | | Execute Package,Field_Execute,Field_Number 0xf
029e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
029f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
02a4 00eb | | Load_Encached Diana_Cache
02a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02a6 00d8 | | Load_Top At_Offset_0
02a7 0d4c | L | Execute_Immediate Less,0x4c
02a8 700b |p | Jump_Nonzero 0x2b4
02a9 00d8 | | Load_Top At_Offset_0
02aa 0c4f | O | Execute_Immediate Greater_Equal,0x4f
02ab 7005 |p | Jump_Nonzero 0x2b1
02ac 0b4c | L | Execute_Immediate Case_Compare,0x4c
02ad 700d |p | Jump_Nonzero 0x2bb
02ae 0f4e | N | Execute_Immediate Equal,0x4e
02af 7013 |p | Jump_Nonzero 0x2c3
02b0 7804 |x | Jump 0x2b5
02b1 0f7c | | | Execute_Immediate Equal,0x7c
02b2 701a |p | Jump_Nonzero 0x2cd
02b3 7801 |x | Jump 0x2b5
02b4 00d1 | | Pop_Control Pop_Count_1
02b5 00da | | Load_Top At_Offset_2
02b6 0092 0543 | C| Action Push_String_Extended,0x543 ; "Get_Nth_Declaration passed incorrect node"
02b8 4800 |H | Short_Literal 0x0
02b9 821d | | Call 0x1,0x1d
02ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bb 00d1 | | Pop_Control Pop_Count_1
02bc 00eb | | Load_Encached Diana_Cache
02bd 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
02be a5fe | | Store_Unchecked 0x2,-0x2
02bf 00eb | | Load_Encached Diana_Cache
02c0 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
02c1 a5fe | | Store_Unchecked 0x2,-0x2
02c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c3 00da | | Load_Top At_Offset_2
02c4 00eb | | Load_Encached Diana_Cache
02c5 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
02c6 00eb | | Load_Encached Diana_Cache
02c7 1888 | | Execute Package,Field_Execute,Field_Number 0x88
02c8 a5fe | | Store_Unchecked 0x2,-0x2
02c9 00eb | | Load_Encached Diana_Cache
02ca 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
02cb a5fd | | Store_Unchecked 0x2,-0x3
02cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02cd 00da | | Load_Top At_Offset_2
02ce 00eb | | Load_Encached Diana_Cache
02cf 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
02d0 00eb | | Load_Encached Diana_Cache
02d1 1888 | | Execute Package,Field_Execute,Field_Number 0x88
02d2 a5fe | | Store_Unchecked 0x2,-0x2
02d3 00da | | Load_Top At_Offset_2
02d4 00eb | | Load_Encached Diana_Cache
02d5 18be | | Execute Package,Field_Execute,Field_Number 0xbe
02d6 00eb | | Load_Encached Diana_Cache
02d7 1888 | | Execute Package,Field_Execute,Field_Number 0x88
02d8 a5fd | | Store_Unchecked 0x2,-0x3
02d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02da 0000 0000 | | .BLANK 0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00db | | Load_Top At_Offset_3
02e4 00eb | | Load_Encached Diana_Cache
02e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e6 7004 |p | Jump_Nonzero 0x2eb
02e7 00da | | Load_Top At_Offset_2
02e8 e5fe | | Load 0x2,-0x2
02e9 021f | | Execute Heap_Access,Equal
02ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02eb 4800 |H | Short_Literal 0x0
02ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02ed 0000 0000 | | .XXX[0x3]
02ef 0000 | |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02fd | | .CONST 0x02fd ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0004 | | .CONST 0x0004 ; Number of locals
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 4975 |Iu | Short_Literal 0x175
02f5 00eb | | Load_Encached Diana_Cache
02f6 0098 | | Execute Package,Field_Read_Dynamic
02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f8 00e3 | | Load_Encached Natural_Cache
02f9 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02fa 00e3 | | Load_Encached Natural_Cache
02fb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02fc 00ec | | Load_Encached Diana_Tree_Cache
02fd BODY_02f0:
02fd 00cf | | Action Mark_Auxiliary
02fe 00db | | Load_Top At_Offset_3
02ff 4801 |H | Short_Literal 0x1
0300 0263 | c | Execute Discrete,Above_Bound
0301 701c |p | Jump_Nonzero 0x31e
0302 00d8 | | Load_Top At_Offset_0
0303 e5ff | | Load 0x2,-0x1
0304 4975 |Iu | Short_Literal 0x175
0305 00eb | | Load_Encached Diana_Cache
0306 0098 | | Execute Package,Field_Read_Dynamic
0307 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0308 a404 | | Store_Unchecked 0x2,0x4
0309 00db | | Load_Top At_Offset_3
030a 820d | | Call 0x1,0xd
030b 6810 |h | Jump_Zero 0x31c
030c e403 | | Load 0x2,0x3
030d 0a01 | | Execute_Immediate Plus,0x1
030e c403 | | Store 0x2,0x3
030f e403 | | Load 0x2,0x3
0310 e5fe | | Load 0x2,-0x2
0311 027f | | Execute Discrete,Equal
0312 7004 |p | Jump_Nonzero 0x317
0313 e5fd | | Load 0x2,-0x3
0314 e404 | | Load 0x2,0x4
0315 821f | | Call 0x1,0x1f
0316 6805 |h | Jump_Zero 0x31c
0317 00db | | Load_Top At_Offset_3
0318 a5fc | | Store_Unchecked 0x2,-0x4
0319 e403 | | Load 0x2,0x3
031a a5fb | | Store_Unchecked 0x2,-0x5
031b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
031c 00c8 | | Action Pop_Auxiliary_Range
031d 3fe4 |? | Loop_Increasing 0x302
031e 00ce | | Action Pop_Auxiliary
031f 00d9 | | Load_Top At_Offset_1
0320 a5fb | | Store_Unchecked 0x2,-0x5
0321 00eb | | Load_Encached Diana_Cache
0322 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0323 a5fc | | Store_Unchecked 0x2,-0x4
0324 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032c | , | .CONST 0x032c ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0002 | | .CONST 0x0002 ; Number of locals
032b INIT_0328:
032b 00ec | | Load_Encached Diana_Tree_Cache
032c BODY_0328:
032c 00cf | | Action Mark_Auxiliary
032d 7810 |x | Jump 0x33e
032e e404 | | Load 0x2,0x4
032f 00eb | | Load_Encached Diana_Cache
0330 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0331 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0332 00d9 | | Load_Top At_Offset_1
0333 49a1 |I | Short_Literal 0x1a1
0334 00eb | | Load_Encached Diana_Cache
0335 0096 | | Execute Package,Entry
0336 7002 |p | Jump_Nonzero 0x339
0337 00d9 | | Load_Top At_Offset_1
0338 00ca | | Action Exit_Nullary_Function
0339 e404 | | Load 0x2,0x4
033a 00eb | | Load_Encached Diana_Cache
033b 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
033c a404 | | Store_Unchecked 0x2,0x4
033d 00c9 | | Action Pop_Auxiliary_Loop
033e e404 | | Load 0x2,0x4
033f 00eb | | Load_Encached Diana_Cache
0340 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0341 6fec |o | Jump_Zero 0x32e
0342 00ce | | Action Pop_Auxiliary
0343 00eb | | Load_Encached Diana_Cache
0344 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0345 00ca | | Action Exit_Nullary_Function
0346 0000 0000 | | .XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0367 | g | .CONST 0x0367 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 000f | | .CONST 0x000f ; Number of locals
034b INIT_0348:
034b 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
034d 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
034f 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
0351 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
0353 029f 045b | [| Declare_Subprogram INIT_0458,For_Call
0355 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call
0357 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
0359 029f 048b | | Declare_Subprogram INIT_0488,For_Call
035b 029f 0493 | | Declare_Subprogram INIT_0490,For_Call
035d 029f 04ab | | Declare_Subprogram INIT_04a8,For_Call
035f 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call
0361 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
0363 029f 0513 | | Declare_Subprogram INIT_0510,For_Call
0365 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
0367 BODY_0348:
0367 e7ff | | Load 0x3,-0x1
0368 00eb | | Load_Encached Diana_Cache
0369 1814 | | Execute Package,Field_Execute,Field_Number 0x14
036a 00d8 | | Load_Top At_Offset_0
036b 0d4a | J | Execute_Immediate Less,0x4a
036c 7043 |pC | Jump_Nonzero 0x3b0
036d 00d8 | | Load_Top At_Offset_0
036e 0c59 | Y | Execute_Immediate Greater_Equal,0x59
036f 7016 |p | Jump_Nonzero 0x386
0370 0ab6 | | Execute_Immediate Plus,-0x4a
0371 460e |F | Jump_Case 0xf
0372 7841 |xA | Jump 0x3b4 ; case 0x0
0373 7835 |x5 | Jump 0x3a9 ; case 0x1
0374 784e |xN | Jump 0x3c3 ; case 0x2
0375 7833 |x3 | Jump 0x3a9 ; case 0x3
0376 7845 |xE | Jump 0x3bc ; case 0x4
0377 7842 |xB | Jump 0x3ba ; case 0x5
0378 7830 |x0 | Jump 0x3a9 ; case 0x6
0379 7847 |xG | Jump 0x3c1 ; case 0x7
037a 782e |x. | Jump 0x3a9 ; case 0x8
037b 782d |x- | Jump 0x3a9 ; case 0x9
037c 782c |x, | Jump 0x3a9 ; case 0xa
037d 782b |x+ | Jump 0x3a9 ; case 0xb
037e 7833 |x3 | Jump 0x3b2 ; case 0xc
037f 7801 |x | Jump 0x381 ; case 0xd
0380 7800 |x | Jump 0x381 ; case 0xe
0381 e7ff | | Load 0x3,-0x1
0382 00eb | | Load_Encached Diana_Cache
0383 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0384 8405 | | Call 0x2,0x5
0385 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0386 00d8 | | Load_Top At_Offset_0
0387 0d97 | | Execute_Immediate Less,-0x69
0388 7022 |p" | Jump_Nonzero 0x3ab
0389 00d8 | | Load_Top At_Offset_0
038a 0c98 | | Execute_Immediate Greater_Equal,-0x68
038b 7004 |p | Jump_Nonzero 0x390
038c 00d1 | | Pop_Control Pop_Count_1
038d e7ff | | Load 0x3,-0x1
038e 8409 | | Call 0x2,0x9
038f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0390 4f68 |Oh | Short_Literal -0x98
0391 0273 | s | Execute Discrete,Plus
0392 4615 |F | Jump_Case 0x16
0393 7815 |x | Jump 0x3a9 ; case 0x0
0394 7814 |x | Jump 0x3a9 ; case 0x1
0395 7813 |x | Jump 0x3a9 ; case 0x2
0396 7812 |x | Jump 0x3a9 ; case 0x3
0397 7811 |x | Jump 0x3a9 ; case 0x4
0398 7810 |x | Jump 0x3a9 ; case 0x5
0399 782b |x+ | Jump 0x3c5 ; case 0x6
039a 781b |x | Jump 0x3b6 ; case 0x7
039b 780d |x | Jump 0x3a9 ; case 0x8
039c 781b |x | Jump 0x3b8 ; case 0x9
039d 780b |x | Jump 0x3a9 ; case 0xa
039e 780a |x | Jump 0x3a9 ; case 0xb
039f 7809 |x | Jump 0x3a9 ; case 0xc
03a0 7808 |x | Jump 0x3a9 ; case 0xd
03a1 7807 |x | Jump 0x3a9 ; case 0xe
03a2 7806 |x | Jump 0x3a9 ; case 0xf
03a3 7805 |x | Jump 0x3a9 ; case 0x10
03a4 7804 |x | Jump 0x3a9 ; case 0x11
03a5 7803 |x | Jump 0x3a9 ; case 0x12
03a6 7802 |x | Jump 0x3a9 ; case 0x13
03a7 7801 |x | Jump 0x3a9 ; case 0x14
03a8 7800 |x | Jump 0x3a9 ; case 0x15
03a9 860f | | Call 0x3,0xf
03aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ab 0b5e | ^ | Execute_Immediate Case_Compare,0x5e
03ac 7011 |p | Jump_Nonzero 0x3be
03ad 0f60 | ` | Execute_Immediate Equal,0x60
03ae 7012 |p | Jump_Nonzero 0x3c1
03af 7ff9 | | Jump 0x3a9
03b0 6816 |h | Jump_Zero 0x3c7
03b1 7ff7 | | Jump 0x3a9
03b2 8603 | | Call 0x3,0x3
03b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b4 8604 | | Call 0x3,0x4
03b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b6 8606 | | Call 0x3,0x6
03b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b8 8607 | | Call 0x3,0x7
03b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ba 8605 | | Call 0x3,0x5
03bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bc 860a | | Call 0x3,0xa
03bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03be 00d1 | | Pop_Control Pop_Count_1
03bf 860d | | Call 0x3,0xd
03c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c1 860e | | Call 0x3,0xe
03c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c3 8609 | | Call 0x3,0x9
03c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c5 860c | | Call 0x3,0xc
03c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb e5fd | | Load 0x2,-0x3
03cc 00eb | | Load_Encached Diana_Cache
03cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ce 7004 |p | Jump_Nonzero 0x3d3
03cf e402 | | Load 0x2,0x2
03d0 e5fd | | Load 0x2,-0x3
03d1 021f | | Execute Heap_Access,Equal
03d2 00ca | | Action Exit_Nullary_Function
03d3 4800 |H | Short_Literal 0x0
03d4 00ca | | Action Exit_Nullary_Function
03d5 0000 0000 | | .XXX[0x3]
03d7 0000 | |
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db e403 | | Load 0x2,0x3
03dc e5fe | | Load 0x2,-0x2
03dd 027b | { | Execute Discrete,Greater_Equal
03de 8406 | | Call 0x2,0x6
03df 0278 | x | Execute Discrete,Or
03e0 00ca | | Action Exit_Nullary_Function
03e1 0000 0000 | | .BLANK 0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03ec | | .CONST 0x03ec ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0002 | | .CONST 0x0002 ; Number of locals
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec BODY_03e8:
03ec 00cf | | Action Mark_Auxiliary
03ed 7809 |x | Jump 0x3f7
03ee 00d9 | | Load_Top At_Offset_1
03ef 00eb | | Load_Encached Diana_Cache
03f0 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
03f1 8405 | | Call 0x2,0x5
03f2 00d9 | | Load_Top At_Offset_1
03f3 00eb | | Load_Encached Diana_Cache
03f4 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
03f5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03f6 00c9 | | Action Pop_Auxiliary_Loop
03f7 8407 | | Call 0x2,0x7
03f8 0f00 | | Execute_Immediate Equal,0x0
03f9 00da | | Load_Top At_Offset_2
03fa 00eb | | Load_Encached Diana_Cache
03fb 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
03fc 0f00 | | Execute_Immediate Equal,0x0
03fd 0279 | y | Execute Discrete,And
03fe 77ef |w | Jump_Nonzero 0x3ee
03ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 8407 | | Call 0x2,0x7
0404 7004 |p | Jump_Nonzero 0x409
0405 00da | | Load_Top At_Offset_2
0406 00eb | | Load_Encached Diana_Cache
0407 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0408 8408 | | Call 0x2,0x8
0409 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040a 0000 0000 | | .BLANK 0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 8217 | | Call 0x1,0x17
0415 6805 |h | Jump_Zero 0x41b
0416 e403 | | Load 0x2,0x3
0417 0a01 | | Execute_Immediate Plus,0x1
0418 c403 | | Store 0x2,0x3
0419 00da | | Load_Top At_Offset_2
041a a402 | | Store_Unchecked 0x2,0x2
041b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
041c 0000 0000 | | .BLANK 0000[0x4]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 e7ff | | Load 0x3,-0x1
0424 8602 | | Call 0x3,0x2
0425 e7ff | | Load 0x3,-0x1
0426 00eb | | Load_Encached Diana_Cache
0427 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0428 00eb | | Load_Encached Diana_Cache
0429 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
042a 00eb | | Load_Encached Diana_Cache
042b 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
042c 8409 | | Call 0x2,0x9
042d e7ff | | Load 0x3,-0x1
042e 00eb | | Load_Encached Diana_Cache
042f 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0430 00eb | | Load_Encached Diana_Cache
0431 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0432 8408 | | Call 0x2,0x8
0433 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b e7ff | | Load 0x3,-0x1
043c 8602 | | Call 0x3,0x2
043d e7ff | | Load 0x3,-0x1
043e 00eb | | Load_Encached Diana_Cache
043f 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0440 8409 | | Call 0x2,0x9
0441 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0442 0000 0000 | | .BLANK 0000[0x6]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e7ff | | Load 0x3,-0x1
044c 8602 | | Call 0x3,0x2
044d e7ff | | Load 0x3,-0x1
044e 00eb | | Load_Encached Diana_Cache
044f 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
0450 8409 | | Call 0x2,0x9
0451 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0452 0000 0000 | | .BLANK 0000[0x6]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b e7ff | | Load 0x3,-0x1
045c 00eb | | Load_Encached Diana_Cache
045d 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
045e 8409 | | Call 0x2,0x9
045f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0466 | f | .CONST 0x0466 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 e7ff | | Load 0x3,-0x1
0464 00eb | | Load_Encached Diana_Cache
0465 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0466 BODY_0460:
0466 00d8 | | Load_Top At_Offset_0
0467 00eb | | Load_Encached Diana_Cache
0468 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0469 7002 |p | Jump_Nonzero 0x46c
046a e7ff | | Load 0x3,-0x1
046b 8602 | | Call 0x3,0x2
046c e7ff | | Load 0x3,-0x1
046d 00eb | | Load_Encached Diana_Cache
046e 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
046f 8409 | | Call 0x2,0x9
0470 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0471 0000 0000 | | .BLANK 0000[0x7]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b e404 | | Load 0x2,0x4
047c 7007 |p | Jump_Nonzero 0x484
047d 4801 |H | Short_Literal 0x1
047e a404 | | Store_Unchecked 0x2,0x4
047f 00da | | Load_Top At_Offset_2
0480 00eb | | Load_Encached Diana_Cache
0481 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0482 8409 | | Call 0x2,0x9
0483 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0484 00da | | Load_Top At_Offset_2
0485 8602 | | Call 0x3,0x2
0486 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0487 0000 | | .XXX[0x1]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b e7ff | | Load 0x3,-0x1
048c 8608 | | Call 0x3,0x8
048d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 e404 | | Load 0x2,0x4
0494 700b |p | Jump_Nonzero 0x4a0
0495 4801 |H | Short_Literal 0x1
0496 a404 | | Store_Unchecked 0x2,0x4
0497 e7ff | | Load 0x3,-0x1
0498 00eb | | Load_Encached Diana_Cache
0499 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
049a 8409 | | Call 0x2,0x9
049b e7ff | | Load 0x3,-0x1
049c 00eb | | Load_Encached Diana_Cache
049d 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
049e 8409 | | Call 0x2,0x9
049f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a0 e7ff | | Load 0x3,-0x1
04a1 8602 | | Call 0x3,0x2
04a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a3 0000 0000 | | .BLANK 0000[0x5]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 00cf | | Action Mark_Auxiliary
04ac 7805 |x | Jump 0x4b2
04ad 00db | | Load_Top At_Offset_3
04ae 00eb | | Load_Encached Diana_Cache
04af 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
04b0 a9ff | | Store_Unchecked 0x4,-0x1
04b1 00c9 | | Action Pop_Auxiliary_Loop
04b2 00db | | Load_Top At_Offset_3
04b3 00eb | | Load_Encached Diana_Cache
04b4 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
04b5 7007 |p | Jump_Nonzero 0x4bd
04b6 00db | | Load_Top At_Offset_3
04b7 00eb | | Load_Encached Diana_Cache
04b8 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
04b9 49a1 |I | Short_Literal 0x1a1
04ba 00eb | | Load_Encached Diana_Cache
04bb 0096 | | Execute Package,Entry
04bc 77f0 |w | Jump_Nonzero 0x4ad
04bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04be 0000 0000 | | .XXX[0x2]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c9 | | .CONST 0x04c9 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0003 | | .CONST 0x0003 ; Number of locals
04c3 INIT_04c0:
04c3 00ec | | Load_Encached Diana_Tree_Cache
04c4 e7ff | | Load 0x3,-0x1
04c5 00eb | | Load_Encached Diana_Cache
04c6 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
04c7 00eb | | Load_Encached Diana_Cache
04c8 1888 | | Execute Package,Field_Execute,Field_Number 0x88
04c9 BODY_04c0:
04c9 00d8 | | Load_Top At_Offset_0
04ca 860b | | Call 0x3,0xb
04cb 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04cc 00d8 | | Load_Top At_Offset_0
04cd 00eb | | Load_Encached Diana_Cache
04ce 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
04cf 0032 | 2 | Store_Top Heap_Access,At_Offset_2
04d0 00d9 | | Load_Top At_Offset_1
04d1 00eb | | Load_Encached Diana_Cache
04d2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04d3 0f4c | L | Execute_Immediate Equal,0x4c
04d4 6802 |h | Jump_Zero 0x4d7
04d5 00d9 | | Load_Top At_Offset_1
04d6 8608 | | Call 0x3,0x8
04d7 00d8 | | Load_Top At_Offset_0
04d8 00eb | | Load_Encached Diana_Cache
04d9 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
04da 8408 | | Call 0x2,0x8
04db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04dc 0000 0000 | | .BLANK 0000[0x4]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e7 | | .CONST 0x04e7 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0004 | | .CONST 0x0004 ; Number of locals
04e3 INIT_04e0:
04e3 00ee | | Load_Encached Diana_Seq_Type_Cache
04e4 00ec | | Load_Encached Diana_Tree_Cache
04e5 029f 052b | +| Declare_Subprogram INIT_0528,For_Call
04e7 BODY_04e0:
04e7 e7ff | | Load 0x3,-0x1
04e8 8602 | | Call 0x3,0x2
04e9 8407 | | Call 0x2,0x7
04ea 6801 |h | Jump_Zero 0x4ec
04eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ec e7ff | | Load 0x3,-0x1
04ed 00eb | | Load_Encached Diana_Cache
04ee 18df | | Execute Package,Field_Execute,Field_Number 0xdf
04ef 00eb | | Load_Encached Diana_Cache
04f0 1888 | | Execute Package,Field_Execute,Field_Number 0x88
04f1 0033 | 3 | Store_Top Heap_Access,At_Offset_3
04f2 00da | | Load_Top At_Offset_2
04f3 860b | | Call 0x3,0xb
04f4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
04f5 00da | | Load_Top At_Offset_2
04f6 00eb | | Load_Encached Diana_Cache
04f7 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
04f8 8405 | | Call 0x2,0x5
04f9 00da | | Load_Top At_Offset_2
04fa 00eb | | Load_Encached Diana_Cache
04fb 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
04fc 8804 | | Call 0x4,0x4
04fd e7ff | | Load 0x3,-0x1
04fe 00eb | | Load_Encached Diana_Cache
04ff 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0500 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0501 00d9 | | Load_Top At_Offset_1
0502 00eb | | Load_Encached Diana_Cache
0503 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0504 7008 |p | Jump_Nonzero 0x50d
0505 00d9 | | Load_Top At_Offset_1
0506 00eb | | Load_Encached Diana_Cache
0507 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0508 00eb | | Load_Encached Diana_Cache
0509 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
050a 7002 |p | Jump_Nonzero 0x50d
050b 00d9 | | Load_Top At_Offset_1
050c 8405 | | Call 0x2,0x5
050d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
050e 0000 0000 | | .XXX[0x2]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513 | | .CONST 0x0513 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0001 | | .CONST 0x0001 ; Number of locals
0513 BODY_0510:
0513 INIT_0510:
0513 e7ff | | Load 0x3,-0x1
0514 8602 | | Call 0x3,0x2
0515 e7ff | | Load 0x3,-0x1
0516 00eb | | Load_Encached Diana_Cache
0517 18e2 | | Execute Package,Field_Execute,Field_Number 0xe2
0518 8409 | | Call 0x2,0x9
0519 e7ff | | Load 0x3,-0x1
051a 00eb | | Load_Encached Diana_Cache
051b 18e3 | | Execute Package,Field_Execute,Field_Number 0xe3
051c 8409 | | Call 0x2,0x9
051d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051e 0000 0000 | | .XXX[0x2]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 e7ff | | Load 0x3,-0x1
0524 8602 | | Call 0x3,0x2
0525 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0526 0000 0000 | | .XXX[0x2]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052c | , | .CONST 0x052c ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0002 | | .CONST 0x0002 ; Number of locals
052b INIT_0528:
052b 00da | | Load_Top At_Offset_2
052c BODY_0528:
052c 00cf | | Action Mark_Auxiliary
052d 7809 |x | Jump 0x537
052e 00d9 | | Load_Top At_Offset_1
052f 00eb | | Load_Encached Diana_Cache
0530 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0531 8405 | | Call 0x2,0x5
0532 00d9 | | Load_Top At_Offset_1
0533 00eb | | Load_Encached Diana_Cache
0534 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0535 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0536 00c9 | | Action Pop_Auxiliary_Loop
0537 8407 | | Call 0x2,0x7
0538 7004 |p | Jump_Nonzero 0x53d
0539 00d9 | | Load_Top At_Offset_1
053a 00eb | | Load_Encached Diana_Cache
053b 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
053c 6ff1 |o | Jump_Zero 0x52e
053d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
053e ; --------------------------------------------------------------------------------------
053e ; STRING TABLE
053e ; --------------------------------------------------------------------------------------
053e 000e | | .STRTAB 0x000e->0x0545 ; "Get_Declaration_Number passed empty Decl_Node"
053f 0039 | 9 | .STRTAB 0x0039->0x055b ; "Get_Declaration_Number passed non Decl Node"
0540 0062 | b | .STRTAB 0x0062->0x0571 ; "Get_Declaration_Number passed unnumbered Decl_Node"
0541 0092 | | .STRTAB 0x0092->0x058a ; "."
0542 0091 | | .STRTAB 0x0091->0x058a ; ": "
0543 0091 | | .STRTAB 0x0091->0x058b ; "Get_Nth_Declaration passed incorrect node"
0544 00b8 | | .STREND 0x00b8->0x05a0
0545 4765 745f |Get_| .STRTAB_STRINGS
05a0 ; --------------------------------------------------------------------------------------
05a0 ; Debug Table
05a0 ; --------------------------------------------------------------------------------------
05a0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a9d,0x0000,0x0001,0x0000
05a6 0000 0000 | | .BLANK 0000[0x5a]