|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0548 | H | .CONST 0x0548 ; 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 0045 | E | .CONST 0x0045 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0021 | ! | .CONST 0x0021 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0048
000d 029a 006b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0068
000f 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
0011 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
0013 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0015 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
0017 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
0019 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
001b e001 | | Load 0x0,0x1
001c 0129 | ) | Execute Any,Make_Visible
001d 00bf | | Action Accept_Activation
001e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001f 029d 019b | | Declare_Subprogram For_Outer_Call,INIT_0198
0021 029d 01c3 | | Declare_Subprogram For_Outer_Call,INIT_01c0
0023 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0024 00c7 | | Action Elaborate_Subprogram
0025 029d 01e3 | | Declare_Subprogram For_Outer_Call,INIT_01e0
0027 029d 0203 | | Declare_Subprogram For_Outer_Call,INIT_0200
0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002a 00c7 | | Action Elaborate_Subprogram
002b 029d 0213 | | Declare_Subprogram For_Outer_Call,INIT_0210
002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002e 00c7 | | Action Elaborate_Subprogram
002f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0030 00c7 | | Action Elaborate_Subprogram
0031 029d 0233 | 3| Declare_Subprogram For_Outer_Call,INIT_0230
0033 029d 024b | K| Declare_Subprogram For_Outer_Call,INIT_0248
0035 029d 025b | [| Declare_Subprogram For_Outer_Call,INIT_0258
0037 029d 0273 | s| Declare_Subprogram For_Outer_Call,INIT_0270
0039 029d 02ab | | Declare_Subprogram For_Outer_Call,INIT_02a8
003b 029d 02bb | | Declare_Subprogram For_Outer_Call,INIT_02b8
003d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003e 00c7 | | Action Elaborate_Subprogram
003f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0040 00c7 | | Action Elaborate_Subprogram
0041 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0042 00c7 | | Action Elaborate_Subprogram
0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0044 00c7 | | Action Elaborate_Subprogram
0045 BODY_0008:
0045 00bc | | Action Signal_Activated
0046 00bb | | Action Signal_Completion
0047 0000 | | .XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2
004c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
004d 00d8 | | Load_Top At_Offset_0
004e 4842 |HB | Short_Literal 0x42
004f 4845 |HE | Short_Literal 0x45
0050 0262 | b | Execute Discrete,In_Range
0051 700b |p | Jump_Nonzero 0x5d
0052 0f40 | @ | Execute_Immediate Equal,0x40
0053 700c |p | Jump_Nonzero 0x60
0054 00da | | Load_Top At_Offset_2
0055 e002 | | Load 0x0,0x2
0056 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0057 6803 |h | Jump_Zero 0x5b
0058 00da | | Load_Top At_Offset_2
0059 8218 | | Call 0x1,0x18
005a 4401 |D | Exit_Subprogram With_Result,0x1
005b 4801 |H | Short_Literal 0x1
005c 4401 |D | Exit_Subprogram With_Result,0x1
005d 00d1 | | Pop_Control Pop_Count_1
005e 4800 |H | Short_Literal 0x0
005f 4401 |D | Exit_Subprogram With_Result,0x1
0060 00da | | Load_Top At_Offset_2
0061 49a1 |I | Short_Literal 0x1a1
0062 00eb | | Load_Encached Diana_Cache
0063 0096 | | Execute Package,Field_Execute_Dynamic
0064 0f00 | | Execute_Immediate Equal,0x0
0065 4401 |D | Exit_Subprogram With_Result,0x1
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d | m | .CONST 0x006d ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b 00e3 | | Load_Encached Natural_Cache
006c 00ec | | Load_Encached Diana_Tree_Cache
006d BODY_0068:
006d e5ff | | Load 0x2,-0x1
006e 821a | | Call 0x1,0x1a
006f e5fe | | Load 0x2,-0x2
0070 6017 |` | Indirect_Literal Discrete,0x88,{0x00000000, 0x7fffffff}
0071 027f | | Execute Discrete,Equal
0072 6802 |h | Jump_Zero 0x75
0073 e5ff | | Load 0x2,-0x1
0074 4402 |D | Exit_Subprogram With_Result,0x2
0075 00e3 | | Load_Encached Natural_Cache
0076 00ec | | Load_Encached Diana_Tree_Cache
0077 00ec | | Load_Encached Diana_Tree_Cache
0078 e5fe | | Load 0x2,-0x2
0079 e5ff | | Load 0x2,-0x1
007a 8219 | | Call 0x1,0x19
007b 0032 | 2 | Store_Top Heap_Access,At_Offset_2
007c 005a | Z | Store_Top Discrete,At_Offset_2
007d 00d9 | | Load_Top At_Offset_1
007e e5fe | | Load 0x2,-0x2
007f 027b | { | Execute Discrete,Greater_Equal
0080 6802 |h | Jump_Zero 0x83
0081 00d8 | | Load_Top At_Offset_0
0082 4402 |D | Exit_Subprogram With_Result,0x2
0083 00ec | | Load_Encached Diana_Tree_Cache
0084 4402 |D | Exit_Subprogram With_Result,0x2
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0099 | | .CONST 0x0099 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0007 | | .CONST 0x0007 ; Number of locals
0093 INIT_0090:
0093 00ee | | Load_Encached Diana_Seq_Type_Cache
0094 00ee | | Load_Encached Diana_Seq_Type_Cache
0095 00e2 | | Load_Encached Integer_Cache
0096 00ec | | Load_Encached Diana_Tree_Cache
0097 00e2 | | Load_Encached Integer_Cache
0098 00e2 | | Load_Encached Integer_Cache
0099 BODY_0090:
0099 e403 | | Load 0x2,0x3
009a e402 | | Load 0x2,0x2
009b e5ff | | Load 0x2,-0x1
009c 821f | | Call 0x1,0x1f
009d c402 | | Store 0x2,0x2
009e c403 | | Store 0x2,0x3
009f 00e3 | | Load_Encached Natural_Cache
00a0 00ec | | Load_Encached Diana_Tree_Cache
00a1 00ec | | Load_Encached Diana_Tree_Cache
00a2 e5fe | | Load 0x2,-0x2
00a3 e402 | | Load 0x2,0x2
00a4 8221 | ! | Call 0x1,0x21
00a5 c405 | | Store 0x2,0x5
00a6 005a | Z | Store_Top Discrete,At_Offset_2
00a7 00da | | Load_Top At_Offset_2
00a8 6802 |h | Jump_Zero 0xab
00a9 00da | | Load_Top At_Offset_2
00aa 4402 |D | Exit_Subprogram With_Result,0x2
00ab e5fe | | Load 0x2,-0x2
00ac 00da | | Load_Top At_Offset_2
00ad 0272 | r | Execute Discrete,Minus
00ae c404 | | Store 0x2,0x4
00af 00db | | Load_Top At_Offset_3
00b0 e403 | | Load 0x2,0x3
00b1 4975 |Iu | Short_Literal 0x175
00b2 00eb | | Load_Encached Diana_Cache
00b3 0098 | | Execute Package,Field_Read_Dynamic
00b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b5 027a | z | Execute Discrete,Less_Equal
00b6 680f |h | Jump_Zero 0xc6
00b7 00e3 | | Load_Encached Natural_Cache
00b8 00ec | | Load_Encached Diana_Tree_Cache
00b9 00ec | | Load_Encached Diana_Tree_Cache
00ba e404 | | Load 0x2,0x4
00bb 00d8 | | Load_Top At_Offset_0
00bc 00e4 | | Load_Encached Positive_Cache
00bd 0260 | ` | Execute Discrete,In_Type
00be 7001 |p | Jump_Nonzero 0xc0
00bf 0801 | | Execute_Immediate Raise,0x1
00c0 e403 | | Load 0x2,0x3
00c1 8221 | ! | Call 0x1,0x21
00c2 c405 | | Store 0x2,0x5
00c3 0059 | Y | Store_Top Discrete,At_Offset_1
00c4 00da | | Load_Top At_Offset_2
00c5 4402 |D | Exit_Subprogram With_Result,0x2
00c6 00ec | | Load_Encached Diana_Tree_Cache
00c7 4402 |D | Exit_Subprogram With_Result,0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00db | | Load_Top At_Offset_3
00cc 0c01 | | Execute_Immediate Greater_Equal,0x1
00cd 6809 |h | Jump_Zero 0xd7
00ce 00db | | Load_Top At_Offset_3
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 00db | | Load_Top At_Offset_3
00d5 820e | | Call 0x1,0xe
00d6 4402 |D | Exit_Subprogram With_Result,0x2
00d7 00db | | Load_Top At_Offset_3
00d8 0d00 | | Execute_Immediate Less,0x0
00d9 680a |h | Jump_Zero 0xe4
00da 00db | | Load_Top At_Offset_3
00db 0275 | u | Execute Discrete,Unary_Minus
00dc 00d8 | | Load_Top At_Offset_0
00dd 00e4 | | Load_Encached Positive_Cache
00de 0260 | ` | Execute Discrete,In_Type
00df 7001 |p | Jump_Nonzero 0xe1
00e0 0801 | | Execute_Immediate Raise,0x1
00e1 00db | | Load_Top At_Offset_3
00e2 820f | | Call 0x1,0xf
00e3 4402 |D | Exit_Subprogram With_Result,0x2
00e4 00ec | | Load_Encached Diana_Tree_Cache
00e5 4402 |D | Exit_Subprogram With_Result,0x2
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ef | | .CONST 0x00ef ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0005 | | .CONST 0x0005 ; Number of locals
00eb INIT_00e8:
00eb 00e3 | | Load_Encached Natural_Cache
00ec 00e2 | | Load_Encached Integer_Cache
00ed 00ec | | Load_Encached Diana_Tree_Cache
00ee 039d | | Declare_Variable Heap_Access,Duplicate
00ef BODY_00e8:
00ef e5ff | | Load 0x2,-0x1
00f0 821a | | Call 0x1,0x1a
00f1 e5fe | | Load 0x2,-0x2
00f2 e002 | | Load 0x0,0x2
00f3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00f4 7002 |p | Jump_Nonzero 0xf7
00f5 e215 | | Load 0x1,0x15
00f6 0257 | W | Execute Discrete,Raise
00f7 e5fe | | Load 0x2,-0x2
00f8 821b | | Call 0x1,0x1b
00f9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00fa e5fe | | Load 0x2,-0x2
00fb e003 | | Load 0x0,0x3
00fc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00fd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00fe 680f |h | Jump_Zero 0x10e
00ff e5fe | | Load 0x2,-0x2
0100 e003 | | Load 0x0,0x3
0101 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0102 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0103 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0104 00da | | Load_Top At_Offset_2
0105 0c01 | | Execute_Immediate Greater_Equal,0x1
0106 6807 |h | Jump_Zero 0x10e
0107 00da | | Load_Top At_Offset_2
0108 00d8 | | Load_Top At_Offset_0
0109 00e3 | | Load_Encached Natural_Cache
010a 0260 | ` | Execute Discrete,In_Type
010b 7001 |p | Jump_Nonzero 0x10d
010c 0801 | | Execute_Immediate Raise,0x1
010d 4402 |D | Exit_Subprogram With_Result,0x2
010e 00e3 | | Load_Encached Natural_Cache
010f 00ec | | Load_Encached Diana_Tree_Cache
0110 00da | | Load_Top At_Offset_2
0111 600e |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x7fffffff}
0112 e5ff | | Load 0x2,-0x1
0113 8219 | | Call 0x1,0x19
0114 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0115 c402 | | Store 0x2,0x2
0116 00d9 | | Load_Top At_Offset_1
0117 00d9 | | Load_Top At_Offset_1
0118 021f | | Execute Heap_Access,Equal
0119 6802 |h | Jump_Zero 0x11c
011a 00db | | Load_Top At_Offset_3
011b 4402 |D | Exit_Subprogram With_Result,0x2
011c 4800 |H | Short_Literal 0x0
011d 4402 |D | Exit_Subprogram With_Result,0x2
011e 0000 0000 | | .XXX[0x2]
0120 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0130 | 0 | .CONST 0x0130 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0006 | | .CONST 0x0006 ; Number of locals
012b INIT_0128:
012b 00ee | | Load_Encached Diana_Seq_Type_Cache
012c 00ee | | Load_Encached Diana_Seq_Type_Cache
012d 00ec | | Load_Encached Diana_Tree_Cache
012e 00e3 | | Load_Encached Natural_Cache
012f 00e3 | | Load_Encached Natural_Cache
0130 BODY_0128:
0130 e5fe | | Load 0x2,-0x2
0131 0092 04fb | | Action Push_String_Extended,0x4fb ; "Get_Declaration_Number passed non Decl Node"
0133 e5fe | | Load 0x2,-0x2
0134 e002 | | Load 0x0,0x2
0135 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0136 821e | | Call 0x1,0x1e
0137 e5fe | | Load 0x2,-0x2
0138 0092 04fc | | Action Push_String_Extended,0x4fc ; "Get_Declaration_Number passed unnumbered Decl_Node"
013a e5fe | | Load 0x2,-0x2
013b 8216 | | Call 0x1,0x16
013c 821e | | Call 0x1,0x1e
013d 00db | | Load_Top At_Offset_3
013e e402 | | Load 0x2,0x2
013f e5ff | | Load 0x2,-0x1
0140 821f | | Call 0x1,0x1f
0141 c402 | | Store 0x2,0x2
0142 c403 | | Store 0x2,0x3
0143 00e3 | | Load_Encached Natural_Cache
0144 00ec | | Load_Encached Diana_Tree_Cache
0145 e5fe | | Load 0x2,-0x2
0146 67d9 |g | Indirect_Literal Discrete,0x120,{0x00000000, 0x7fffffff}
0147 e402 | | Load 0x2,0x2
0148 8221 | ! | Call 0x1,0x21
0149 c404 | | Store 0x2,0x4
014a 005a | Z | Store_Top Discrete,At_Offset_2
014b 00da | | Load_Top At_Offset_2
014c e5fe | | Load 0x2,-0x2
014d 021f | | Execute Heap_Access,Equal
014e 6802 |h | Jump_Zero 0x151
014f 00d9 | | Load_Top At_Offset_1
0150 4402 |D | Exit_Subprogram With_Result,0x2
0151 00d9 | | Load_Top At_Offset_1
0152 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0153 00e3 | | Load_Encached Natural_Cache
0154 00ec | | Load_Encached Diana_Tree_Cache
0155 e5fe | | Load 0x2,-0x2
0156 67c9 |g | Indirect_Literal Discrete,0x120,{0x00000000, 0x7fffffff}
0157 e403 | | Load 0x2,0x3
0158 8221 | ! | Call 0x1,0x21
0159 c404 | | Store 0x2,0x4
015a 005a | Z | Store_Top Discrete,At_Offset_2
015b 00da | | Load_Top At_Offset_2
015c e5fe | | Load 0x2,-0x2
015d 021f | | Execute Heap_Access,Equal
015e 6809 |h | Jump_Zero 0x168
015f 00d9 | | Load_Top At_Offset_1
0160 00d9 | | Load_Top At_Offset_1
0161 0273 | s | Execute Discrete,Plus
0162 00d8 | | Load_Top At_Offset_0
0163 00e3 | | Load_Encached Natural_Cache
0164 0260 | ` | Execute Discrete,In_Type
0165 7001 |p | Jump_Nonzero 0x167
0166 0801 | | Execute_Immediate Raise,0x1
0167 4402 |D | Exit_Subprogram With_Result,0x2
0168 4800 |H | Short_Literal 0x0
0169 4402 |D | Exit_Subprogram With_Result,0x2
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0177 | w | .CONST 0x0177 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00db | | Load_Top At_Offset_3
0174 00db | | Load_Top At_Offset_3
0175 8211 | | Call 0x1,0x11
0176 4402 |D | Exit_Subprogram With_Result,0x2
0177 TRAP_0170:
0177 0007 | | Action Break_Optional
0178 e5fe | | Load 0x2,-0x2
0179 e5ff | | Load 0x2,-0x1
017a 8212 | | Call 0x1,0x12
017b 0275 | u | Execute Discrete,Unary_Minus
017c 4402 |D | Exit_Subprogram With_Result,0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185 | | .CONST 0x0185 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 00ec | | Load_Encached Diana_Tree_Cache
0184 00e3 | | Load_Encached Natural_Cache
0185 BODY_0180:
0185 e5ff | | Load 0x2,-0x1
0186 821a | | Call 0x1,0x1a
0187 00e3 | | Load_Encached Natural_Cache
0188 00ec | | Load_Encached Diana_Tree_Cache
0189 00ec | | Load_Encached Diana_Tree_Cache
018a 6009 |` | Indirect_Literal Discrete,0x194,{0x00000000, 0x7fffffff}
018b e5ff | | Load 0x2,-0x1
018c 8219 | | Call 0x1,0x19
018d 0033 | 3 | Store_Top Heap_Access,At_Offset_3
018e 0059 | Y | Store_Top Discrete,At_Offset_1
018f 00d8 | | Load_Top At_Offset_0
0190 4401 |D | Exit_Subprogram With_Result,0x1
0191 0000 0000 | | .XXX[0x3]
0193 0000 | |
0194 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a0 | | .CONST 0x01a0 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0005 | | .CONST 0x0005 ; Number of locals
019b INIT_0198:
019b 00ec | | Load_Encached Diana_Tree_Cache
019c 039d | | Declare_Variable Heap_Access,Duplicate
019d 00ee | | Load_Encached Diana_Seq_Type_Cache
019e 029f 02f3 | | Declare_Subprogram For_Call,INIT_02f0
01a0 BODY_0198:
01a0 e5ff | | Load 0x2,-0x1
01a1 00eb | | Load_Encached Diana_Cache
01a2 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01a3 a402 | | Store_Unchecked 0x2,0x2
01a4 00db | | Load_Top At_Offset_3
01a5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01a6 0f97 | | Execute_Immediate Equal,0x97
01a7 6815 |h | Jump_Zero 0x1bd
01a8 00db | | Load_Top At_Offset_3
01a9 00eb | | Load_Encached Diana_Cache
01aa 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01ab 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01ac 00da | | Load_Top At_Offset_2
01ad 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01ae 0b60 | ` | Execute_Immediate Case_Compare,0x60
01af 7004 |p | Jump_Nonzero 0x1b4
01b0 0f9e | | Execute_Immediate Equal,0x9e
01b1 7003 |p | Jump_Nonzero 0x1b5
01b2 4800 |H | Short_Literal 0x0
01b3 4401 |D | Exit_Subprogram With_Result,0x1
01b4 00d1 | | Pop_Control Pop_Count_1
01b5 00db | | Load_Top At_Offset_3
01b6 00eb | | Load_Encached Diana_Cache
01b7 1888 | | Execute Package,Field_Execute,Field_Number 0x88
01b8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01b9 e5ff | | Load 0x2,-0x1
01ba 8405 | | Call 0x2,0x5
01bb 021f | | Execute Heap_Access,Equal
01bc 4401 |D | Exit_Subprogram With_Result,0x1
01bd 4800 |H | Short_Literal 0x0
01be 4401 |D | Exit_Subprogram With_Result,0x1
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01c5 00d8 | | Load_Top At_Offset_0
01c6 0d52 | R | Execute_Immediate Less,0x52
01c7 700b |p | Jump_Nonzero 0x1d3
01c8 00d8 | | Load_Top At_Offset_0
01c9 0c53 | S | Execute_Immediate Greater_Equal,0x53
01ca 7005 |p | Jump_Nonzero 0x1d0
01cb 00d1 | | Pop_Control Pop_Count_1
01cc 00da | | Load_Top At_Offset_2
01cd 8217 | | Call 0x1,0x17
01ce 0f00 | | Execute_Immediate Equal,0x0
01cf 4401 |D | Exit_Subprogram With_Result,0x1
01d0 0f5f | _ | Execute_Immediate Equal,0x5f
01d1 700a |p | Jump_Nonzero 0x1dc
01d2 780b |x | Jump 0x1de
01d3 0f40 | @ | Execute_Immediate Equal,0x40
01d4 7001 |p | Jump_Nonzero 0x1d6
01d5 7808 |x | Jump 0x1de
01d6 00da | | Load_Top At_Offset_2
01d7 49a1 |I | Short_Literal 0x1a1
01d8 00eb | | Load_Encached Diana_Cache
01d9 0096 | | Execute Package,Field_Execute_Dynamic
01da 0f00 | | Execute_Immediate Equal,0x0
01db 4401 |D | Exit_Subprogram With_Result,0x1
01dc 4800 |H | Short_Literal 0x0
01dd 4401 |D | Exit_Subprogram With_Result,0x1
01de 4801 |H | Short_Literal 0x1
01df 4401 |D | Exit_Subprogram With_Result,0x1
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f6 | | .CONST 0x01f6 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0009 | | .CONST 0x0009 ; Number of locals
01e3 INIT_01e0:
01e3 00ec | | Load_Encached Diana_Tree_Cache
01e4 00e3 | | Load_Encached Natural_Cache
01e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01e6 00e1 | | Load_Encached Boolean_Cache
01e7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01e8 029e 0313 | | Declare_Subprogram For_Call,Unelaborated,INIT_0310
01ea 029f 0393 | | Declare_Subprogram For_Call,INIT_0390
01ec 029f 03a3 | | Declare_Subprogram For_Call,INIT_03a0
01ee 029f 03b3 | | Declare_Subprogram For_Call,INIT_03b0
01f0 029f 03cb | | Declare_Subprogram For_Call,INIT_03c8
01f2 4805 |H | Short_Literal 0x5
01f3 4802 |H | Short_Literal 0x2
01f4 0099 | | Action Reference_Dynamic
01f5 00c7 | | Action Elaborate_Subprogram
01f6 BODY_01e0:
01f6 e5ff | | Load 0x2,-0x1
01f7 8405 | | Call 0x2,0x5
01f8 e402 | | Load 0x2,0x2
01f9 a5fc | | Store_Unchecked 0x2,-0x4
01fa e403 | | Load 0x2,0x3
01fb a5fb | | Store_Unchecked 0x2,-0x5
01fc 4504 |E | Exit_Subprogram 0x4
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0205 0b4e | N | Execute_Immediate Case_Compare,0x4e
0206 7004 |p | Jump_Nonzero 0x20b
0207 0f4c | L | Execute_Immediate Equal,0x4c
0208 7003 |p | Jump_Nonzero 0x20c
0209 e215 | | Load 0x1,0x15
020a 0257 | W | Execute Discrete,Raise
020b 00d1 | | Pop_Control Pop_Count_1
020c 4502 |E | Exit_Subprogram 0x2
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0215 00d8 | | Load_Top At_Offset_0
0216 4857 |HW | Short_Literal 0x57
0217 4858 |HX | Short_Literal 0x58
0218 0262 | b | Execute Discrete,In_Range
0219 7004 |p | Jump_Nonzero 0x21e
021a 0f59 | Y | Execute_Immediate Equal,0x59
021b 7007 |p | Jump_Nonzero 0x223
021c 00da | | Load_Top At_Offset_2
021d 4401 |D | Exit_Subprogram With_Result,0x1
021e 00d1 | | Pop_Control Pop_Count_1
021f 00da | | Load_Top At_Offset_2
0220 00eb | | Load_Encached Diana_Cache
0221 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0222 4401 |D | Exit_Subprogram With_Result,0x1
0223 00da | | Load_Top At_Offset_2
0224 00eb | | Load_Encached Diana_Cache
0225 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0226 00eb | | Load_Encached Diana_Cache
0227 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0228 4401 |D | Exit_Subprogram With_Result,0x1
0229 0000 0000 | | .BLANK 0000[0x7]
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 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0235 008a | | Execute Discrete,Diana_Spare0
0236 6809 |h | Jump_Zero 0x240
0237 0092 04fd | | Action Push_String_Extended,0x4fd ; "."
0239 00db | | Load_Top At_Offset_3
023a 00eb | | Load_Encached Diana_Cache
023b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
023c 00eb | | Load_Encached Diana_Cache
023d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
023e 01cc | | Execute Vector,Catenate
023f 4401 |D | Exit_Subprogram With_Result,0x1
0240 00ea | | Load_Encached Null_String_Cache
0241 4401 |D | Exit_Subprogram With_Result,0x1
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
024d 00eb | | Load_Encached Diana_Cache
024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
024f 011c | | Execute Any,Convert_Unchecked
0250 1c01 | | Execute_Immediate Run_Utility,0x1
0251 00db | | Load_Top At_Offset_3
0252 821c | | Call 0x1,0x1c
0253 01cc | | Execute Vector,Catenate
0254 4401 |D | Exit_Subprogram With_Result,0x1
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 700d |p | Jump_Nonzero 0x26a
025d e5fd | | Load 0x2,-0x3
025e 7001 |p | Jump_Nonzero 0x260
025f 08e2 | | Execute_Immediate Raise,0xe2
0260 00db | | Load_Top At_Offset_3
0261 0092 04fe | | Action Push_String_Extended,0x4fe ; ": "
0263 01cc | | Execute Vector,Catenate
0264 e5fd | | Load 0x2,-0x3
0265 821d | | Call 0x1,0x1d
0266 01cc | | Execute Vector,Catenate
0267 e004 | | Load 0x0,0x4
0268 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0269 08e2 | | Execute_Immediate Raise,0xe2
026a 4504 |E | Exit_Subprogram 0x4
026b 0000 0000 | | .BLANK 0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0275 00d8 | | Load_Top At_Offset_0
0276 0d4c | L | Execute_Immediate Less,0x4c
0277 700b |p | Jump_Nonzero 0x283
0278 00d8 | | Load_Top At_Offset_0
0279 0c4f | O | Execute_Immediate Greater_Equal,0x4f
027a 7005 |p | Jump_Nonzero 0x280
027b 0b4c | L | Execute_Immediate Case_Compare,0x4c
027c 700d |p | Jump_Nonzero 0x28a
027d 0f4e | N | Execute_Immediate Equal,0x4e
027e 7011 |p | Jump_Nonzero 0x290
027f 7804 |x | Jump 0x284
0280 0f7c | | | Execute_Immediate Equal,0x7c
0281 7017 |p | Jump_Nonzero 0x299
0282 7801 |x | Jump 0x284
0283 00d1 | | Pop_Control Pop_Count_1
0284 00da | | Load_Top At_Offset_2
0285 0092 04ff | | Action Push_String_Extended,0x4ff ; "Get_Nth_Declaration passed incorrect node"
0287 4800 |H | Short_Literal 0x0
0288 821e | | Call 0x1,0x1e
0289 4502 |E | Exit_Subprogram 0x2
028a 00d1 | | Pop_Control Pop_Count_1
028b 00ee | | Load_Encached Diana_Seq_Type_Cache
028c a5fe | | Store_Unchecked 0x2,-0x2
028d 00ee | | Load_Encached Diana_Seq_Type_Cache
028e a5fe | | Store_Unchecked 0x2,-0x2
028f 4502 |E | Exit_Subprogram 0x2
0290 00da | | Load_Top At_Offset_2
0291 00eb | | Load_Encached Diana_Cache
0292 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
0293 00eb | | Load_Encached Diana_Cache
0294 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0295 a5fe | | Store_Unchecked 0x2,-0x2
0296 00ee | | Load_Encached Diana_Seq_Type_Cache
0297 a5fd | | Store_Unchecked 0x2,-0x3
0298 4502 |E | Exit_Subprogram 0x2
0299 00da | | Load_Top At_Offset_2
029a 00eb | | Load_Encached Diana_Cache
029b 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
029c 00eb | | Load_Encached Diana_Cache
029d 1888 | | Execute Package,Field_Execute,Field_Number 0x88
029e a5fe | | Store_Unchecked 0x2,-0x2
029f 00da | | Load_Top At_Offset_2
02a0 00eb | | Load_Encached Diana_Cache
02a1 18be | | Execute Package,Field_Execute,Field_Number 0xbe
02a2 00eb | | Load_Encached Diana_Cache
02a3 1888 | | Execute Package,Field_Execute,Field_Number 0x88
02a4 a5fd | | Store_Unchecked 0x2,-0x3
02a5 4502 |E | Exit_Subprogram 0x2
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00db | | Load_Top At_Offset_3
02ac 6804 |h | Jump_Zero 0x2b1
02ad 00da | | Load_Top At_Offset_2
02ae e5fe | | Load 0x2,-0x2
02af 021f | | Execute Heap_Access,Equal
02b0 4402 |D | Exit_Subprogram With_Result,0x2
02b1 4800 |H | Short_Literal 0x0
02b2 4402 |D | Exit_Subprogram With_Result,0x2
02b3 0000 0000 | | .BLANK 0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c5 | | .CONST 0x02c5 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0004 | | .CONST 0x0004 ; Number of locals
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 4975 |Iu | Short_Literal 0x175
02bd 00eb | | Load_Encached Diana_Cache
02be 0098 | | Execute Package,Field_Read_Dynamic
02bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c0 00e3 | | Load_Encached Natural_Cache
02c1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02c2 00e3 | | Load_Encached Natural_Cache
02c3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02c4 00ec | | Load_Encached Diana_Tree_Cache
02c5 BODY_02b8:
02c5 00cf | | Action Mark_Auxiliary
02c6 00db | | Load_Top At_Offset_3
02c7 4801 |H | Short_Literal 0x1
02c8 0263 | c | Execute Discrete,Above_Bound
02c9 701c |p | Jump_Nonzero 0x2e6
02ca 00d8 | | Load_Top At_Offset_0
02cb e5ff | | Load 0x2,-0x1
02cc 4975 |Iu | Short_Literal 0x175
02cd 00eb | | Load_Encached Diana_Cache
02ce 0098 | | Execute Package,Field_Read_Dynamic
02cf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02d0 a404 | | Store_Unchecked 0x2,0x4
02d1 00db | | Load_Top At_Offset_3
02d2 8216 | | Call 0x1,0x16
02d3 6810 |h | Jump_Zero 0x2e4
02d4 e403 | | Load 0x2,0x3
02d5 0a01 | | Execute_Immediate Plus,0x1
02d6 c403 | | Store 0x2,0x3
02d7 e403 | | Load 0x2,0x3
02d8 e5fe | | Load 0x2,-0x2
02d9 027f | | Execute Discrete,Equal
02da 7004 |p | Jump_Nonzero 0x2df
02db e5fd | | Load 0x2,-0x3
02dc e404 | | Load 0x2,0x4
02dd 8220 | | Call 0x1,0x20
02de 6805 |h | Jump_Zero 0x2e4
02df 00db | | Load_Top At_Offset_3
02e0 a5fc | | Store_Unchecked 0x2,-0x4
02e1 e403 | | Load 0x2,0x3
02e2 a5fb | | Store_Unchecked 0x2,-0x5
02e3 4504 |E | Exit_Subprogram 0x4
02e4 00c8 | | Action Pop_Auxiliary_Range
02e5 3fe4 |? | Loop_Increasing 0x2ca
02e6 00ce | | Action Pop_Auxiliary
02e7 00d9 | | Load_Top At_Offset_1
02e8 a5fb | | Store_Unchecked 0x2,-0x5
02e9 00ec | | Load_Encached Diana_Tree_Cache
02ea a5fc | | Store_Unchecked 0x2,-0x4
02eb 4504 |E | Exit_Subprogram 0x4
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f4 | | .CONST 0x02f4 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 00ec | | Load_Encached Diana_Tree_Cache
02f4 BODY_02f0:
02f4 00cf | | Action Mark_Auxiliary
02f5 780f |x | Jump 0x305
02f6 e404 | | Load 0x2,0x4
02f7 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
02f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02f9 00d9 | | Load_Top At_Offset_1
02fa 49a1 |I | Short_Literal 0x1a1
02fb 00eb | | Load_Encached Diana_Cache
02fc 0096 | | Execute Package,Field_Execute_Dynamic
02fd 7002 |p | Jump_Nonzero 0x300
02fe 00d9 | | Load_Top At_Offset_1
02ff 00ca | | Action Exit_Nullary_Function
0300 e404 | | Load 0x2,0x4
0301 0217 | | Execute Heap_Access,All_Reference
0302 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0303 a404 | | Store_Unchecked 0x2,0x4
0304 00c9 | | Action Pop_Auxiliary_Loop
0305 e404 | | Load 0x2,0x4
0306 77ef |w | Jump_Nonzero 0x2f6
0307 00ce | | Action Pop_Auxiliary
0308 00ec | | Load_Encached Diana_Tree_Cache
0309 00ca | | Action Exit_Nullary_Function
030a 0000 0000 | | .BLANK 0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 032f | / | .CONST 0x032f ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 000f | | .CONST 0x000f ; Number of locals
0313 INIT_0310:
0313 029f 03db | | Declare_Subprogram For_Call,INIT_03d8
0315 029f 03eb | | Declare_Subprogram For_Call,INIT_03e8
0317 029f 0403 | | Declare_Subprogram For_Call,INIT_0400
0319 029f 0413 | | Declare_Subprogram For_Call,INIT_0410
031b 029f 0423 | #| Declare_Subprogram For_Call,INIT_0420
031d 029f 042b | +| Declare_Subprogram For_Call,INIT_0428
031f 029f 043b | ;| Declare_Subprogram For_Call,INIT_0438
0321 029f 044b | K| Declare_Subprogram For_Call,INIT_0448
0323 029f 0453 | S| Declare_Subprogram For_Call,INIT_0450
0325 029f 046b | k| Declare_Subprogram For_Call,INIT_0468
0327 029f 0483 | | Declare_Subprogram For_Call,INIT_0480
0329 029f 04a3 | | Declare_Subprogram For_Call,INIT_04a0
032b 029f 04d3 | | Declare_Subprogram For_Call,INIT_04d0
032d 029f 04e3 | | Declare_Subprogram For_Call,INIT_04e0
032f BODY_0310:
032f e7ff | | Load 0x3,-0x1
0330 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0331 00d8 | | Load_Top At_Offset_0
0332 0d4a | J | Execute_Immediate Less,0x4a
0333 7043 |pC | Jump_Nonzero 0x377
0334 00d8 | | Load_Top At_Offset_0
0335 0c59 | Y | Execute_Immediate Greater_Equal,0x59
0336 7016 |p | Jump_Nonzero 0x34d
0337 0ab6 | | Execute_Immediate Plus,-0x4a
0338 460e |F | Jump_Case 0xe
0339 7841 |xA | Jump 0x37b ; case 0x0
033a 7835 |x5 | Jump 0x370 ; case 0x1
033b 784e |xN | Jump 0x38a ; case 0x2
033c 7833 |x3 | Jump 0x370 ; case 0x3
033d 7845 |xE | Jump 0x383 ; case 0x4
033e 7842 |xB | Jump 0x381 ; case 0x5
033f 7830 |x0 | Jump 0x370 ; case 0x6
0340 7847 |xG | Jump 0x388 ; case 0x7
0341 782e |x. | Jump 0x370 ; case 0x8
0342 782d |x- | Jump 0x370 ; case 0x9
0343 782c |x, | Jump 0x370 ; case 0xa
0344 782b |x+ | Jump 0x370 ; case 0xb
0345 7833 |x3 | Jump 0x379 ; case 0xc
0346 7801 |x | Jump 0x348 ; case 0xd
0347 7800 |x | Jump 0x348 ; case 0xe
0348 e7ff | | Load 0x3,-0x1
0349 00eb | | Load_Encached Diana_Cache
034a 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
034b 8405 | | Call 0x2,0x5
034c 4502 |E | Exit_Subprogram 0x2
034d 00d8 | | Load_Top At_Offset_0
034e 0d97 | | Execute_Immediate Less,0x97
034f 7022 |p" | Jump_Nonzero 0x372
0350 00d8 | | Load_Top At_Offset_0
0351 0c98 | | Execute_Immediate Greater_Equal,0x98
0352 7004 |p | Jump_Nonzero 0x357
0353 00d1 | | Pop_Control Pop_Count_1
0354 e7ff | | Load 0x3,-0x1
0355 8409 | | Call 0x2,0x9
0356 4502 |E | Exit_Subprogram 0x2
0357 4f68 |Oh | Short_Literal 0x768
0358 0273 | s | Execute Discrete,Plus
0359 4615 |F | Jump_Case 0x15
035a 7815 |x | Jump 0x370 ; case 0x0
035b 7814 |x | Jump 0x370 ; case 0x1
035c 7813 |x | Jump 0x370 ; case 0x2
035d 7812 |x | Jump 0x370 ; case 0x3
035e 7811 |x | Jump 0x370 ; case 0x4
035f 7810 |x | Jump 0x370 ; case 0x5
0360 782b |x+ | Jump 0x38c ; case 0x6
0361 781b |x | Jump 0x37d ; case 0x7
0362 780d |x | Jump 0x370 ; case 0x8
0363 781b |x | Jump 0x37f ; case 0x9
0364 780b |x | Jump 0x370 ; case 0xa
0365 780a |x | Jump 0x370 ; case 0xb
0366 7809 |x | Jump 0x370 ; case 0xc
0367 7808 |x | Jump 0x370 ; case 0xd
0368 7807 |x | Jump 0x370 ; case 0xe
0369 7806 |x | Jump 0x370 ; case 0xf
036a 7805 |x | Jump 0x370 ; case 0x10
036b 7804 |x | Jump 0x370 ; case 0x11
036c 7803 |x | Jump 0x370 ; case 0x12
036d 7802 |x | Jump 0x370 ; case 0x13
036e 7801 |x | Jump 0x370 ; case 0x14
036f 7800 |x | Jump 0x370 ; case 0x15
0370 860f | | Call 0x3,0xf
0371 4502 |E | Exit_Subprogram 0x2
0372 0b5e | ^ | Execute_Immediate Case_Compare,0x5e
0373 7011 |p | Jump_Nonzero 0x385
0374 0f60 | ` | Execute_Immediate Equal,0x60
0375 7012 |p | Jump_Nonzero 0x388
0376 7ff9 | | Jump 0x370
0377 6816 |h | Jump_Zero 0x38e
0378 7ff7 | | Jump 0x370
0379 8603 | | Call 0x3,0x3
037a 4502 |E | Exit_Subprogram 0x2
037b 8604 | | Call 0x3,0x4
037c 4502 |E | Exit_Subprogram 0x2
037d 8606 | | Call 0x3,0x6
037e 4502 |E | Exit_Subprogram 0x2
037f 8607 | | Call 0x3,0x7
0380 4502 |E | Exit_Subprogram 0x2
0381 8605 | | Call 0x3,0x5
0382 4502 |E | Exit_Subprogram 0x2
0383 860a | | Call 0x3,0xa
0384 4502 |E | Exit_Subprogram 0x2
0385 00d1 | | Pop_Control Pop_Count_1
0386 860d | | Call 0x3,0xd
0387 4502 |E | Exit_Subprogram 0x2
0388 860e | | Call 0x3,0xe
0389 4502 |E | Exit_Subprogram 0x2
038a 8609 | | Call 0x3,0x9
038b 4502 |E | Exit_Subprogram 0x2
038c 860c | | Call 0x3,0xc
038d 4502 |E | Exit_Subprogram 0x2
038e 4502 |E | Exit_Subprogram 0x2
038f 0000 | | .XXX[0x1]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 e5fd | | Load 0x2,-0x3
0394 6804 |h | Jump_Zero 0x399
0395 e402 | | Load 0x2,0x2
0396 e5fd | | Load 0x2,-0x3
0397 021f | | Execute Heap_Access,Equal
0398 00ca | | Action Exit_Nullary_Function
0399 4800 |H | Short_Literal 0x0
039a 00ca | | Action Exit_Nullary_Function
039b 0000 0000 | | .BLANK 0000[0x5]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 e403 | | Load 0x2,0x3
03a4 e5fe | | Load 0x2,-0x2
03a5 027b | { | Execute Discrete,Greater_Equal
03a6 8406 | | Call 0x2,0x6
03a7 0278 | x | Execute Discrete,Or
03a8 00ca | | Action Exit_Nullary_Function
03a9 0000 0000 | | .BLANK 0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b4 | | .CONST 0x03b4 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0002 | | .CONST 0x0002 ; Number of locals
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 BODY_03b0:
03b4 00cf | | Action Mark_Auxiliary
03b5 7808 |x | Jump 0x3be
03b6 00d9 | | Load_Top At_Offset_1
03b7 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
03b8 8405 | | Call 0x2,0x5
03b9 00d9 | | Load_Top At_Offset_1
03ba 0217 | | Execute Heap_Access,All_Reference
03bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03bc 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03bd 00c9 | | Action Pop_Auxiliary_Loop
03be 8407 | | Call 0x2,0x7
03bf 0f00 | | Execute_Immediate Equal,0x0
03c0 00da | | Load_Top At_Offset_2
03c1 021d | | Execute Heap_Access,Is_Null
03c2 0f00 | | Execute_Immediate Equal,0x0
03c3 0279 | y | Execute Discrete,And
03c4 77f1 |w | Jump_Nonzero 0x3b6
03c5 4502 |E | Exit_Subprogram 0x2
03c6 0000 0000 | | .XXX[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 8407 | | Call 0x2,0x7
03cc 7004 |p | Jump_Nonzero 0x3d1
03cd 00da | | Load_Top At_Offset_2
03ce 00eb | | Load_Encached Diana_Cache
03cf 1888 | | Execute Package,Field_Execute,Field_Number 0x88
03d0 8408 | | Call 0x2,0x8
03d1 4502 |E | Exit_Subprogram 0x2
03d2 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
03dc 8218 | | Call 0x1,0x18
03dd 6805 |h | Jump_Zero 0x3e3
03de e403 | | Load 0x2,0x3
03df 0a01 | | Execute_Immediate Plus,0x1
03e0 c403 | | Store 0x2,0x3
03e1 00da | | Load_Top At_Offset_2
03e2 a402 | | Store_Unchecked 0x2,0x2
03e3 4502 |E | Exit_Subprogram 0x2
03e4 0000 0000 | | .BLANK 0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb e7ff | | Load 0x3,-0x1
03ec 8602 | | Call 0x3,0x2
03ed e7ff | | Load 0x3,-0x1
03ee 00eb | | Load_Encached Diana_Cache
03ef 1888 | | Execute Package,Field_Execute,Field_Number 0x88
03f0 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
03f1 00eb | | Load_Encached Diana_Cache
03f2 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
03f3 8409 | | Call 0x2,0x9
03f4 e7ff | | Load 0x3,-0x1
03f5 00eb | | Load_Encached Diana_Cache
03f6 1888 | | Execute Package,Field_Execute,Field_Number 0x88
03f7 0217 | | Execute Heap_Access,All_Reference
03f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03f9 8408 | | Call 0x2,0x8
03fa 4501 |E | Exit_Subprogram 0x1
03fb 0000 0000 | | .BLANK 0000[0x5]
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 e7ff | | Load 0x3,-0x1
0404 8602 | | Call 0x3,0x2
0405 e7ff | | Load 0x3,-0x1
0406 00eb | | Load_Encached Diana_Cache
0407 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0408 8409 | | Call 0x2,0x9
0409 4501 |E | Exit_Subprogram 0x1
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 e7ff | | Load 0x3,-0x1
0414 8602 | | Call 0x3,0x2
0415 e7ff | | Load 0x3,-0x1
0416 00eb | | Load_Encached Diana_Cache
0417 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
0418 8409 | | Call 0x2,0x9
0419 4501 |E | Exit_Subprogram 0x1
041a 0000 0000 | | .BLANK 0000[0x6]
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 00eb | | Load_Encached Diana_Cache
0425 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0426 8409 | | Call 0x2,0x9
0427 4501 |E | Exit_Subprogram 0x1
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042e | . | .CONST 0x042e ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b e7ff | | Load 0x3,-0x1
042c 00eb | | Load_Encached Diana_Cache
042d 18ca | | Execute Package,Field_Execute,Field_Number 0xca
042e BODY_0428:
042e 00d8 | | Load_Top At_Offset_0
042f 6802 |h | Jump_Zero 0x432
0430 e7ff | | Load 0x3,-0x1
0431 8602 | | Call 0x3,0x2
0432 e7ff | | Load 0x3,-0x1
0433 00eb | | Load_Encached Diana_Cache
0434 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0435 8409 | | Call 0x2,0x9
0436 4501 |E | Exit_Subprogram 0x1
0437 0000 | | .XXX[0x1]
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 e404 | | Load 0x2,0x4
043c 7007 |p | Jump_Nonzero 0x444
043d 4801 |H | Short_Literal 0x1
043e a404 | | Store_Unchecked 0x2,0x4
043f 00da | | Load_Top At_Offset_2
0440 00eb | | Load_Encached Diana_Cache
0441 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0442 8409 | | Call 0x2,0x9
0443 4502 |E | Exit_Subprogram 0x2
0444 00da | | Load_Top At_Offset_2
0445 8602 | | Call 0x3,0x2
0446 4502 |E | Exit_Subprogram 0x2
0447 0000 | | .XXX[0x1]
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 8608 | | Call 0x3,0x8
044d 4501 |E | Exit_Subprogram 0x1
044e 0000 0000 | | .XXX[0x2]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 e404 | | Load 0x2,0x4
0454 700b |p | Jump_Nonzero 0x460
0455 4801 |H | Short_Literal 0x1
0456 a404 | | Store_Unchecked 0x2,0x4
0457 e7ff | | Load 0x3,-0x1
0458 00eb | | Load_Encached Diana_Cache
0459 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
045a 8409 | | Call 0x2,0x9
045b e7ff | | Load 0x3,-0x1
045c 00eb | | Load_Encached Diana_Cache
045d 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
045e 8409 | | Call 0x2,0x9
045f 4501 |E | Exit_Subprogram 0x1
0460 e7ff | | Load 0x3,-0x1
0461 8602 | | Call 0x3,0x2
0462 4501 |E | Exit_Subprogram 0x1
0463 0000 0000 | | .BLANK 0000[0x5]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 00cf | | Action Mark_Auxiliary
046c 7805 |x | Jump 0x472
046d 00db | | Load_Top At_Offset_3
046e 0217 | | Execute Heap_Access,All_Reference
046f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0470 a9ff | | Store_Unchecked 0x4,-0x1
0471 00c9 | | Action Pop_Auxiliary_Loop
0472 00db | | Load_Top At_Offset_3
0473 6806 |h | Jump_Zero 0x47a
0474 00db | | Load_Top At_Offset_3
0475 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
0476 49a1 |I | Short_Literal 0x1a1
0477 00eb | | Load_Encached Diana_Cache
0478 0096 | | Execute Package,Field_Execute_Dynamic
0479 77f3 |w | Jump_Nonzero 0x46d
047a 4501 |E | Exit_Subprogram 0x1
047b 0000 0000 | | .BLANK 0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0489 | | .CONST 0x0489 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0003 | | .CONST 0x0003 ; Number of locals
0483 INIT_0480:
0483 00ec | | Load_Encached Diana_Tree_Cache
0484 e7ff | | Load 0x3,-0x1
0485 00eb | | Load_Encached Diana_Cache
0486 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0487 00eb | | Load_Encached Diana_Cache
0488 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0489 BODY_0480:
0489 00d8 | | Load_Top At_Offset_0
048a 860b | | Call 0x3,0xb
048b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
048c 00d8 | | Load_Top At_Offset_0
048d 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
048e 0032 | 2 | Store_Top Heap_Access,At_Offset_2
048f 00d9 | | Load_Top At_Offset_1
0490 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0491 0f4c | L | Execute_Immediate Equal,0x4c
0492 6802 |h | Jump_Zero 0x495
0493 00d9 | | Load_Top At_Offset_1
0494 8608 | | Call 0x3,0x8
0495 00d8 | | Load_Top At_Offset_0
0496 0217 | | Execute Heap_Access,All_Reference
0497 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0498 8408 | | Call 0x2,0x8
0499 4501 |E | Exit_Subprogram 0x1
049a 0000 0000 | | .BLANK 0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a7 | | .CONST 0x04a7 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0004 | | .CONST 0x0004 ; Number of locals
04a3 INIT_04a0:
04a3 00ee | | Load_Encached Diana_Seq_Type_Cache
04a4 00ec | | Load_Encached Diana_Tree_Cache
04a5 029f 04eb | | Declare_Subprogram For_Call,INIT_04e8
04a7 BODY_04a0:
04a7 e7ff | | Load 0x3,-0x1
04a8 8602 | | Call 0x3,0x2
04a9 8407 | | Call 0x2,0x7
04aa 6801 |h | Jump_Zero 0x4ac
04ab 4501 |E | Exit_Subprogram 0x1
04ac e7ff | | Load 0x3,-0x1
04ad 00eb | | Load_Encached Diana_Cache
04ae 18df | | Execute Package,Field_Execute,Field_Number 0xdf
04af 00eb | | Load_Encached Diana_Cache
04b0 1888 | | Execute Package,Field_Execute,Field_Number 0x88
04b1 0033 | 3 | Store_Top Heap_Access,At_Offset_3
04b2 00da | | Load_Top At_Offset_2
04b3 860b | | Call 0x3,0xb
04b4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
04b5 00da | | Load_Top At_Offset_2
04b6 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
04b7 8405 | | Call 0x2,0x5
04b8 00da | | Load_Top At_Offset_2
04b9 0217 | | Execute Heap_Access,All_Reference
04ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04bb 8804 | | Call 0x4,0x4
04bc e7ff | | Load 0x3,-0x1
04bd 00eb | | Load_Encached Diana_Cache
04be 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
04bf 0032 | 2 | Store_Top Heap_Access,At_Offset_2
04c0 00d9 | | Load_Top At_Offset_1
04c1 6806 |h | Jump_Zero 0x4c8
04c2 00d9 | | Load_Top At_Offset_1
04c3 00eb | | Load_Encached Diana_Cache
04c4 1888 | | Execute Package,Field_Execute,Field_Number 0x88
04c5 6802 |h | Jump_Zero 0x4c8
04c6 00d9 | | Load_Top At_Offset_1
04c7 8405 | | Call 0x2,0x5
04c8 4501 |E | Exit_Subprogram 0x1
04c9 0000 0000 | | .BLANK 0000[0x7]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 e7ff | | Load 0x3,-0x1
04d4 8602 | | Call 0x3,0x2
04d5 e7ff | | Load 0x3,-0x1
04d6 00eb | | Load_Encached Diana_Cache
04d7 18e2 | | Execute Package,Field_Execute,Field_Number 0xe2
04d8 8409 | | Call 0x2,0x9
04d9 e7ff | | Load 0x3,-0x1
04da 00eb | | Load_Encached Diana_Cache
04db 18e3 | | Execute Package,Field_Execute,Field_Number 0xe3
04dc 8409 | | Call 0x2,0x9
04dd 4501 |E | Exit_Subprogram 0x1
04de 0000 0000 | | .XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 e7ff | | Load 0x3,-0x1
04e4 8602 | | Call 0x3,0x2
04e5 4501 |E | Exit_Subprogram 0x1
04e6 0000 0000 | | .XXX[0x2]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ec | | .CONST 0x04ec ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0002 | | .CONST 0x0002 ; Number of locals
04eb INIT_04e8:
04eb 00da | | Load_Top At_Offset_2
04ec BODY_04e8:
04ec 00cf | | Action Mark_Auxiliary
04ed 7808 |x | Jump 0x4f6
04ee 00d9 | | Load_Top At_Offset_1
04ef 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
04f0 8405 | | Call 0x2,0x5
04f1 00d9 | | Load_Top At_Offset_1
04f2 0217 | | Execute Heap_Access,All_Reference
04f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04f4 0032 | 2 | Store_Top Heap_Access,At_Offset_2
04f5 00c9 | | Action Pop_Auxiliary_Loop
04f6 8407 | | Call 0x2,0x7
04f7 7002 |p | Jump_Nonzero 0x4fa
04f8 00d9 | | Load_Top At_Offset_1
04f9 77f4 |w | Jump_Nonzero 0x4ee
04fa 4502 |E | Exit_Subprogram 0x2
04fb ; --------------------------------------------------------------------------------------
04fb ; STRING TABLE
04fb ; --------------------------------------------------------------------------------------
04fb 000c | | .STRTAB 0x000c->0x0501 ; "Get_Declaration_Number passed non Decl Node"
04fc 0035 | 5 | .STRTAB 0x0035->0x0516 ; "Get_Declaration_Number passed unnumbered Decl_Node"
04fd 0065 | e | .STRTAB 0x0065->0x052f ; "."
04fe 0064 | d | .STRTAB 0x0064->0x0530 ; ": "
04ff 0064 | d | .STRTAB 0x0064->0x0531 ; "Get_Nth_Declaration passed incorrect node"
0500 008b | | .STREND 0x008b->0x0545
0501 4765 745f |Get_| .STRTAB_STRINGS
0546 0000 0000 | | .XXX[0x2]
0548 ; --------------------------------------------------------------------------------------
0548 ; Debug Table
0548 ; --------------------------------------------------------------------------------------
0548 0004 0011 | | .DEBUG4 0x0004,0x0011,0xb6ac,0x0000,0x0001,0x0000
054e 0000 0000 | | .BLANK 0000[0x26]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]