|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0638 | 8 | .CONST 0x0638 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003a | : | .CONST 0x003a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 4800 |H | Short_Literal 0x0
0011 4807 |H | Short_Literal 0x7
0012 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0014 03fd | | Declare_Type Discrete,Defined
0015 4802 |H | Short_Literal 0x2
0016 4807 |H | Short_Literal 0x7
0017 00da | | Load_Top At_Offset_2
0018 03f8 | | Declare_Type Discrete,Constrained
0019 0092 05dd | | Action Push_String_Extended,0x5dd ; "???"
001b 00ec | | Load_Encached Diana_Tree_Cache
001c 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call
001e 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call
0020 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
0022 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
0024 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call
0026 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
0028 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call
002a 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
002c 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
002e 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
0030 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
0032 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
0034 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0037 00c7 | | Action Elaborate_Subprogram
0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0039 00c7 | | Action Elaborate_Subprogram
003a BODY_0008:
003a 00bc | | Action Signal_Activated
003b 00bb | | Action Signal_Completion
003c 0000 0000 | | .BLANK 0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0048 | H | .CONST 0x0048 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0004 | | .CONST 0x0004 ; Number of locals
0043 INIT_0040:
0043 00da | | Load_Top At_Offset_2
0044 8213 | | Call 0x1,0x13
0045 00e3 | | Load_Encached Natural_Cache
0046 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call
0048 BODY_0040:
0048 00da | | Load_Top At_Offset_2
0049 01db | | Execute Vector,Length
004a 0f01 | | Execute_Immediate Equal,0x1
004b 6803 |h | Jump_Zero 0x4f
004c 0092 05de | | Action Push_String_Extended,0x5de ; "."
004e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004f 00da | | Load_Top At_Offset_2
0050 01db | | Execute Vector,Length
0051 0902 | | Execute_Immediate Binary_Scale,0x2
0052 005a | Z | Store_Top Discrete,At_Offset_2
0053 00cf | | Action Mark_Auxiliary
0054 8404 | | Call 0x2,0x4
0055 00c9 | | Action Pop_Auxiliary_Loop
0056 7ffd | | Jump 0x54
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005d | ] | .CONST 0x005d ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0003 | | .CONST 0x0003 ; Number of locals
005b INIT_0058:
005b 00ec | | Load_Encached Diana_Tree_Cache
005c 00e3 | | Load_Encached Natural_Cache
005d BODY_0058:
005d e5fe | | Load 0x2,-0x2
005e 01db | | Execute Vector,Length
005f 7002 |p | Jump_Nonzero 0x62
0060 00ec | | Load_Encached Diana_Tree_Cache
0061 a5fd | | Store_Unchecked 0x2,-0x3
0062 e5fc | | Load 0x2,-0x4
0063 e003 | | Load 0x0,0x3
0064 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0065 c5fc | | Store 0x2,-0x4
0066 e5ff | | Load 0x2,-0x1
0067 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0068 e5fe | | Load 0x2,-0x2
0069 01dd | | Execute Vector,First
006a 0a01 | | Execute_Immediate Plus,0x1
006b 0059 | Y | Store_Top Discrete,At_Offset_1
006c 00cf | | Action Mark_Auxiliary
006d e5fe | | Load 0x2,-0x2
006e 01dc | | Execute Vector,Last
006f e5fe | | Load 0x2,-0x2
0070 01dd | | Execute Vector,First
0071 0a01 | | Execute_Immediate Plus,0x1
0072 00d8 | | Load_Top At_Offset_0
0073 00e2 | | Load_Encached Integer_Cache
0074 0260 | ` | Execute Discrete,In_Type
0075 7001 |p | Jump_Nonzero 0x77
0076 0801 | | Execute_Immediate Raise,0x1
0077 0263 | c | Execute Discrete,Above_Bound
0078 7031 |p1 | Jump_Nonzero 0xaa
0079 00d8 | | Load_Top At_Offset_0
007a e5fe | | Load 0x2,-0x2
007b 01d7 | | Execute Vector,Field_Read
007c 0f2e | . | Execute_Immediate Equal,0x2e
007d 6811 |h | Jump_Zero 0x8f
007e 00db | | Load_Top At_Offset_3
007f 00d9 | | Load_Top At_Offset_1
0080 0aff | | Execute_Immediate Plus,-0x1
0081 00d8 | | Load_Top At_Offset_0
0082 00e2 | | Load_Encached Integer_Cache
0083 0260 | ` | Execute Discrete,In_Type
0084 7001 |p | Jump_Nonzero 0x86
0085 0801 | | Execute_Immediate Raise,0x1
0086 e5fe | | Load 0x2,-0x2
0087 01cf | | Execute Vector,Slice_Read
0088 e402 | | Load 0x2,0x2
0089 821b | | Call 0x1,0x1b
008a a402 | | Store_Unchecked 0x2,0x2
008b 00d8 | | Load_Top At_Offset_0
008c 0a01 | | Execute_Immediate Plus,0x1
008d c403 | | Store 0x2,0x3
008e 780c |x | Jump 0x9b
008f 00d8 | | Load_Top At_Offset_0
0090 e5fe | | Load 0x2,-0x2
0091 01dc | | Execute Vector,Last
0092 027f | | Execute Discrete,Equal
0093 6807 |h | Jump_Zero 0x9b
0094 00db | | Load_Top At_Offset_3
0095 00d9 | | Load_Top At_Offset_1
0096 e5fe | | Load 0x2,-0x2
0097 01cf | | Execute Vector,Slice_Read
0098 e402 | | Load 0x2,0x2
0099 821b | | Call 0x1,0x1b
009a a402 | | Store_Unchecked 0x2,0x2
009b e402 | | Load 0x2,0x2
009c e212 | | Load 0x1,0x12
009d 021f | | Execute Heap_Access,Equal
009e 6809 |h | Jump_Zero 0xa8
009f e5fc | | Load 0x2,-0x4
00a0 0092 05df | | Action Push_String_Extended,0x5df ; "Unable to locate specified position within Ada unit"
00a2 e004 | | Load 0x0,0x4
00a3 e003 | | Load 0x0,0x3
00a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a5 c5fc | | Store 0x2,-0x4
00a6 00d2 | | Pop_Control Pop_Count_2
00a7 7802 |x | Jump 0xaa
00a8 00c8 | | Action Pop_Auxiliary_Range
00a9 3fcf |? | Loop_Increasing 0x79
00aa 00ce | | Action Pop_Auxiliary
00ab 00d9 | | Load_Top At_Offset_1
00ac a5fd | | Store_Unchecked 0x2,-0x3
00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4607 |F | Jump_Case 0x8
00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00b5 7807 |x | Jump 0xbd ; case 0x1
00b6 780a |x | Jump 0xc1 ; case 0x2
00b7 780e |x | Jump 0xc6 ; case 0x3
00b8 7811 |x | Jump 0xca ; case 0x4
00b9 7812 |x | Jump 0xcc ; case 0x5
00ba 7813 |x | Jump 0xce ; case 0x6
00bb 7816 |x | Jump 0xd2 ; case 0x7
00bc 4302 |C | .XXX[0x1]
00bd 00da | | Load_Top At_Offset_2
00be 0091 05d5 | | Action Push_String_Extended_Indexed,0x5d5 ; "POSITIONAL_NAME"
00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db | | Load_Top At_Offset_3
00c2 00db | | Load_Top At_Offset_3
00c3 00e0 | | Load_Encached Standard_Cache
00c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c6 00da | | Load_Top At_Offset_2
00c7 00e0 | | Load_Encached Standard_Cache
00c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ca 00db | | Load_Top At_Offset_3
00cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cc 00db | | Load_Top At_Offset_3
00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ce e20f | | Load 0x1,0xf
00cf 00dc | | Load_Top At_Offset_4
00d0 0267 | g | Execute Discrete,Predecessor
00d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d2 e20f | | Load 0x1,0xf
00d3 00dc | | Load_Top At_Offset_4
00d4 0268 | h | Execute Discrete,Successor
00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00df | | .CONST 0x00df ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0004 | | .CONST 0x0004 ; Number of locals
00db INIT_00d8:
00db 00ec | | Load_Encached Diana_Tree_Cache
00dc 00e3 | | Load_Encached Natural_Cache
00dd 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call
00df BODY_00d8:
00df e5ff | | Load 0x2,-0x1
00e0 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00e1 4800 |H | Short_Literal 0x0
00e2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00e3 00cf | | Action Mark_Auxiliary
00e4 7808 |x | Jump 0xed
00e5 00da | | Load_Top At_Offset_2
00e6 0a01 | | Execute_Immediate Plus,0x1
00e7 005b | [ | Store_Top Discrete,At_Offset_3
00e8 00db | | Load_Top At_Offset_3
00e9 00eb | | Load_Encached Diana_Cache
00ea 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00eb a402 | | Store_Unchecked 0x2,0x2
00ec 00c9 | | Action Pop_Auxiliary_Loop
00ed 00db | | Load_Top At_Offset_3
00ee 77f6 |w | Jump_Nonzero 0xe5
00ef 00ce | | Action Pop_Auxiliary
00f0 8404 | | Call 0x2,0x4
00f1 0831 | 1 | Execute_Immediate Raise,0x31
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00fd 00d8 | | Load_Top At_Offset_0
00fe 4842 |HB | Short_Literal 0x42
00ff 4845 |HE | Short_Literal 0x45
0100 0262 | b | Execute Discrete,In_Range
0101 7004 |p | Jump_Nonzero 0x106
0102 0f40 | @ | Execute_Immediate Equal,0x40
0103 7003 |p | Jump_Nonzero 0x107
0104 4801 |H | Short_Literal 0x1
0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0106 00d1 | | Pop_Control Pop_Count_1
0107 4800 |H | Short_Literal 0x0
0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0114 | | .CONST 0x0114 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 00ee | | Load_Encached Diana_Seq_Type_Cache
0114 BODY_0110:
0114 00db | | Load_Top At_Offset_3
0115 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0116 0b02 | | Execute_Immediate Case_Compare,0x2
0117 700e |p | Jump_Nonzero 0x126
0118 4837 |H7 | Short_Literal 0x37
0119 483a |H: | Short_Literal 0x3a
011a 0262 | b | Execute Discrete,In_Range
011b 700b |p | Jump_Nonzero 0x127
011c 00db | | Load_Top At_Offset_3
011d 4976 |Iv | Short_Literal 0x176
011e 00eb | | Load_Encached Diana_Cache
011f 0098 | | Execute Package,Field_Read_Dynamic
0120 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0121 00eb | | Load_Encached Diana_Cache
0122 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0123 00eb | | Load_Encached Diana_Cache
0124 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0126 00d1 | | Pop_Control Pop_Count_1
0127 00db | | Load_Top At_Offset_3
0128 00eb | | Load_Encached Diana_Cache
0129 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
012a 00eb | | Load_Encached Diana_Cache
012b 1889 | | Execute Package,Field_Execute,Field_Number 0x89
012c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
012d 00d8 | | Load_Top At_Offset_0
012e 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
012f 00eb | | Load_Encached Diana_Cache
0130 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0131 00eb | | Load_Encached Diana_Cache
0132 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0133 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013e | > | .CONST 0x013e ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0004 | | .CONST 0x0004 ; Number of locals
013b INIT_0138:
013b 00ec | | Load_Encached Diana_Tree_Cache
013c 00ee | | Load_Encached Diana_Seq_Type_Cache
013d 00e3 | | Load_Encached Natural_Cache
013e BODY_0138:
013e 4800 |H | Short_Literal 0x0
013f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0140 e5ff | | Load 0x2,-0x1
0141 00eb | | Load_Encached Diana_Cache
0142 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0143 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0144 00cf | | Action Mark_Auxiliary
0145 00da | | Load_Top At_Offset_2
0146 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0147 a402 | | Store_Unchecked 0x2,0x2
0148 00db | | Load_Top At_Offset_3
0149 8214 | | Call 0x1,0x14
014a 6808 |h | Jump_Zero 0x153
014b 00db | | Load_Top At_Offset_3
014c 8215 | | Call 0x1,0x15
014d e5fe | | Load 0x2,-0x2
014e 01df | | Execute Vector,Equal
014f 6803 |h | Jump_Zero 0x153
0150 00d9 | | Load_Top At_Offset_1
0151 0a01 | | Execute_Immediate Plus,0x1
0152 005a | Z | Store_Top Discrete,At_Offset_2
0153 00d9 | | Load_Top At_Offset_1
0154 e5fd | | Load 0x2,-0x3
0155 027f | | Execute Discrete,Equal
0156 700a |p | Jump_Nonzero 0x161
0157 00da | | Load_Top At_Offset_2
0158 0217 | | Execute Heap_Access,All_Reference
0159 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015a 0033 | 3 | Store_Top Heap_Access,At_Offset_3
015b 00da | | Load_Top At_Offset_2
015c 7002 |p | Jump_Nonzero 0x15f
015d e212 | | Load 0x1,0x12
015e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
015f 00c9 | | Action Pop_Auxiliary_Loop
0160 7fe4 | | Jump 0x145
0161 00ce | | Action Pop_Auxiliary
0162 00da | | Load_Top At_Offset_2
0163 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
016d 4842 |HB | Short_Literal 0x42
016e 4844 |HD | Short_Literal 0x44
016f 0262 | b | Execute Discrete,In_Range
0170 7002 |p | Jump_Nonzero 0x173
0171 4800 |H | Short_Literal 0x0
0172 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0173 4801 |H | Short_Literal 0x1
0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
017d 0b85 | | Execute_Immediate Case_Compare,0x85
017e 7004 |p | Jump_Nonzero 0x183
017f 0f45 | E | Execute_Immediate Equal,0x45
0180 7003 |p | Jump_Nonzero 0x184
0181 4800 |H | Short_Literal 0x0
0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0183 00d1 | | Pop_Control Pop_Count_1
0184 4801 |H | Short_Literal 0x1
0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0186 0000 0000 | | .XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018e | | .CONST 0x018e ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0004 | | .CONST 0x0004 ; Number of locals
018b INIT_0188:
018b 00e3 | | Load_Encached Natural_Cache
018c 00ee | | Load_Encached Diana_Seq_Type_Cache
018d 00ec | | Load_Encached Diana_Tree_Cache
018e BODY_0188:
018e e5fd | | Load 0x2,-0x3
018f 0e06 | | Execute_Immediate Not_Equal,0x6
0190 6855 |hU | Jump_Zero 0x1e6
0191 e5fd | | Load 0x2,-0x3
0192 0e03 | | Execute_Immediate Not_Equal,0x3
0193 6852 |hR | Jump_Zero 0x1e6
0194 e5ff | | Load 0x2,-0x1
0195 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0196 00d8 | | Load_Top At_Offset_0
0197 0d84 | | Execute_Immediate Less,-0x7c
0198 702f |p/ | Jump_Nonzero 0x1c8
0199 4f7c |O| | Short_Literal -0x84
019a 0273 | s | Execute Discrete,Plus
019b 4629 |F) | Jump_Case 0x2a
019c 783c |x< | Jump 0x1d9 ; case 0x0
019d 7828 |x( | Jump 0x1c6 ; case 0x1
019e 7827 |x' | Jump 0x1c6 ; case 0x2
019f 7826 |x& | Jump 0x1c6 ; case 0x3
01a0 7825 |x% | Jump 0x1c6 ; case 0x4
01a1 782d |x- | Jump 0x1cf ; case 0x5
01a2 7823 |x# | Jump 0x1c6 ; case 0x6
01a3 7822 |x" | Jump 0x1c6 ; case 0x7
01a4 7839 |x9 | Jump 0x1de ; case 0x8
01a5 7820 |x | Jump 0x1c6 ; case 0x9
01a6 781f |x | Jump 0x1c6 ; case 0xa
01a7 781e |x | Jump 0x1c6 ; case 0xb
01a8 781d |x | Jump 0x1c6 ; case 0xc
01a9 7834 |x4 | Jump 0x1de ; case 0xd
01aa 781b |x | Jump 0x1c6 ; case 0xe
01ab 781a |x | Jump 0x1c6 ; case 0xf
01ac 7819 |x | Jump 0x1c6 ; case 0x10
01ad 7826 |x& | Jump 0x1d4 ; case 0x11
01ae 7817 |x | Jump 0x1c6 ; case 0x12
01af 781a |x | Jump 0x1ca ; case 0x13
01b0 7815 |x | Jump 0x1c6 ; case 0x14
01b1 7814 |x | Jump 0x1c6 ; case 0x15
01b2 7813 |x | Jump 0x1c6 ; case 0x16
01b3 7812 |x | Jump 0x1c6 ; case 0x17
01b4 7811 |x | Jump 0x1c6 ; case 0x18
01b5 7810 |x | Jump 0x1c6 ; case 0x19
01b6 780f |x | Jump 0x1c6 ; case 0x1a
01b7 780e |x | Jump 0x1c6 ; case 0x1b
01b8 780d |x | Jump 0x1c6 ; case 0x1c
01b9 780c |x | Jump 0x1c6 ; case 0x1d
01ba 780b |x | Jump 0x1c6 ; case 0x1e
01bb 780a |x | Jump 0x1c6 ; case 0x1f
01bc 7809 |x | Jump 0x1c6 ; case 0x20
01bd 7808 |x | Jump 0x1c6 ; case 0x21
01be 7807 |x | Jump 0x1c6 ; case 0x22
01bf 7806 |x | Jump 0x1c6 ; case 0x23
01c0 7805 |x | Jump 0x1c6 ; case 0x24
01c1 7804 |x | Jump 0x1c6 ; case 0x25
01c2 7803 |x | Jump 0x1c6 ; case 0x26
01c3 7802 |x | Jump 0x1c6 ; case 0x27
01c4 7801 |x | Jump 0x1c6 ; case 0x28
01c5 7800 |x | Jump 0x1c6 ; case 0x29
01c6 e212 | | Load 0x1,0x12
01c7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01c8 00d1 | | Pop_Control Pop_Count_1
01c9 7ffc | | Jump 0x1c6
01ca e5fd | | Load 0x2,-0x3
01cb 0e02 | | Execute_Immediate Not_Equal,0x2
01cc 6819 |h | Jump_Zero 0x1e6
01cd e212 | | Load 0x1,0x12
01ce 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01cf e5fd | | Load 0x2,-0x3
01d0 0e04 | | Execute_Immediate Not_Equal,0x4
01d1 6814 |h | Jump_Zero 0x1e6
01d2 e212 | | Load 0x1,0x12
01d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01d4 e5fd | | Load 0x2,-0x3
01d5 0e03 | | Execute_Immediate Not_Equal,0x3
01d6 680f |h | Jump_Zero 0x1e6
01d7 e212 | | Load 0x1,0x12
01d8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01d9 e5fd | | Load 0x2,-0x3
01da 0e05 | | Execute_Immediate Not_Equal,0x5
01db 680a |h | Jump_Zero 0x1e6
01dc e212 | | Load 0x1,0x12
01dd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01de e5fd | | Load 0x2,-0x3
01df 0e07 | | Execute_Immediate Not_Equal,0x7
01e0 6805 |h | Jump_Zero 0x1e6
01e1 e5fd | | Load 0x2,-0x3
01e2 0e05 | | Execute_Immediate Not_Equal,0x5
01e3 6802 |h | Jump_Zero 0x1e6
01e4 e212 | | Load 0x1,0x12
01e5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01e6 4800 |H | Short_Literal 0x0
01e7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01e8 e5ff | | Load 0x2,-0x1
01e9 00eb | | Load_Encached Diana_Cache
01ea 1889 | | Execute Package,Field_Execute,Field_Number 0x89
01eb 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01ec 00cf | | Action Mark_Auxiliary
01ed 00da | | Load_Top At_Offset_2
01ee 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
01ef 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01f0 e5fd | | Load 0x2,-0x3
01f1 0afe | | Execute_Immediate Plus,-0x2
01f2 4605 |F | Jump_Case 0x6
01f3 7824 |x$ | Jump 0x218 ; case 0x0
01f4 7814 |x | Jump 0x209 ; case 0x1
01f5 7822 |x" | Jump 0x218 ; case 0x2
01f6 781a |x | Jump 0x211 ; case 0x3
01f7 7808 |x | Jump 0x200 ; case 0x4
01f8 7800 |x | Jump 0x1f9 ; case 0x5
01f9 00d9 | | Load_Top At_Offset_1
01fa 8217 | | Call 0x1,0x17
01fb 6823 |h# | Jump_Zero 0x21f
01fc 00db | | Load_Top At_Offset_3
01fd 0a01 | | Execute_Immediate Plus,0x1
01fe c402 | | Store 0x2,0x2
01ff 781f |x | Jump 0x21f
0200 00d9 | | Load_Top At_Offset_1
0201 49a1 |I | Short_Literal 0x1a1
0202 00eb | | Load_Encached Diana_Cache
0203 0096 | | Execute Package,Entry
0204 681a |h | Jump_Zero 0x21f
0205 00db | | Load_Top At_Offset_3
0206 0a01 | | Execute_Immediate Plus,0x1
0207 c402 | | Store 0x2,0x2
0208 7816 |x | Jump 0x21f
0209 00d9 | | Load_Top At_Offset_1
020a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
020b 0f40 | @ | Execute_Immediate Equal,0x40
020c 6812 |h | Jump_Zero 0x21f
020d 00db | | Load_Top At_Offset_3
020e 0a01 | | Execute_Immediate Plus,0x1
020f c402 | | Store 0x2,0x2
0210 780e |x | Jump 0x21f
0211 00d9 | | Load_Top At_Offset_1
0212 8218 | | Call 0x1,0x18
0213 680b |h | Jump_Zero 0x21f
0214 00db | | Load_Top At_Offset_3
0215 0a01 | | Execute_Immediate Plus,0x1
0216 c402 | | Store 0x2,0x2
0217 7807 |x | Jump 0x21f
0218 00d9 | | Load_Top At_Offset_1
0219 0145 | E | Execute Heap_Access,Diana_Tree_Kind
021a 0f40 | @ | Execute_Immediate Equal,0x40
021b 7003 |p | Jump_Nonzero 0x21f
021c 00db | | Load_Top At_Offset_3
021d 0a01 | | Execute_Immediate Plus,0x1
021e c402 | | Store 0x2,0x2
021f 00db | | Load_Top At_Offset_3
0220 e5fe | | Load 0x2,-0x2
0221 027f | | Execute Discrete,Equal
0222 700a |p | Jump_Nonzero 0x22d
0223 00da | | Load_Top At_Offset_2
0224 0217 | | Execute Heap_Access,All_Reference
0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0226 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0227 00da | | Load_Top At_Offset_2
0228 7002 |p | Jump_Nonzero 0x22b
0229 e212 | | Load 0x1,0x12
022a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
022b 00c9 | | Action Pop_Auxiliary_Loop
022c 7fc0 | | Jump 0x1ed
022d 00ce | | Action Pop_Auxiliary
022e 00d8 | | Load_Top At_Offset_0
022f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235 | 5 | .CONST 0x0235 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 029f 056b | k| Declare_Subprogram INIT_0568,For_Call
0235 BODY_0230:
0235 e5fe | | Load 0x2,-0x2
0236 7002 |p | Jump_Nonzero 0x239
0237 e212 | | Load 0x1,0x12
0238 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0239 00db | | Load_Top At_Offset_3
023a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
023b 008e | | Action Discrete,Diana_Arity_For_Kind
023c 4604 |F | Jump_Case 0x5
023d 7806 |x | Jump 0x244 ; case 0x0
023e 7807 |x | Jump 0x246 ; case 0x1
023f 780f |x | Jump 0x24f ; case 0x2
0240 781e |x | Jump 0x25f ; case 0x3
0241 7800 |x | Jump 0x242 ; case 0x4
0242 8402 | | Call 0x2,0x2
0243 7832 |x2 | Jump 0x276
0244 e212 | | Load 0x1,0x12
0245 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0246 e5fe | | Load 0x2,-0x2
0247 0f01 | | Execute_Immediate Equal,0x1
0248 7002 |p | Jump_Nonzero 0x24b
0249 e212 | | Load 0x1,0x12
024a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024b 00db | | Load_Top At_Offset_3
024c 00eb | | Load_Encached Diana_Cache
024d 1885 | | Execute Package,Field_Execute,Field_Number 0x85
024e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024f e5fe | | Load 0x2,-0x2
0250 0b01 | | Execute_Immediate Case_Compare,0x1
0251 7004 |p | Jump_Nonzero 0x256
0252 0f02 | | Execute_Immediate Equal,0x2
0253 7007 |p | Jump_Nonzero 0x25b
0254 e212 | | Load 0x1,0x12
0255 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0256 00d1 | | Pop_Control Pop_Count_1
0257 00db | | Load_Top At_Offset_3
0258 00eb | | Load_Encached Diana_Cache
0259 1885 | | Execute Package,Field_Execute,Field_Number 0x85
025a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025b 00db | | Load_Top At_Offset_3
025c 00eb | | Load_Encached Diana_Cache
025d 1886 | | Execute Package,Field_Execute,Field_Number 0x86
025e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025f e5fe | | Load 0x2,-0x2
0260 0b01 | | Execute_Immediate Case_Compare,0x1
0261 7006 |p | Jump_Nonzero 0x268
0262 0b02 | | Execute_Immediate Case_Compare,0x2
0263 7009 |p | Jump_Nonzero 0x26d
0264 0f03 | | Execute_Immediate Equal,0x3
0265 700c |p | Jump_Nonzero 0x272
0266 e212 | | Load 0x1,0x12
0267 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0268 00d1 | | Pop_Control Pop_Count_1
0269 00db | | Load_Top At_Offset_3
026a 00eb | | Load_Encached Diana_Cache
026b 1885 | | Execute Package,Field_Execute,Field_Number 0x85
026c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026d 00d1 | | Pop_Control Pop_Count_1
026e 00db | | Load_Top At_Offset_3
026f 00eb | | Load_Encached Diana_Cache
0270 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0271 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0272 00db | | Load_Top At_Offset_3
0273 00eb | | Load_Encached Diana_Cache
0274 1887 | | Execute Package,Field_Execute,Field_Number 0x87
0275 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0276 0831 | 1 | Execute_Immediate Raise,0x31
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0280 | | .CONST 0x0280 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0005 | | .CONST 0x0005 ; Number of locals
027b INIT_0278:
027b e20f | | Load 0x1,0xf
027c 0007 | | Action Break_Optional
027d 00e3 | | Load_Encached Natural_Cache
027e 00e3 | | Load_Encached Natural_Cache
027f 00e1 | | Load_Encached Boolean_Cache
0280 BODY_0278:
0280 4801 |H | Short_Literal 0x1
0281 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0282 00cf | | Action Mark_Auxiliary
0283 e5fe | | Load 0x2,-0x2
0284 01d9 | | Execute Vector,Reverse_Bounds
0285 0263 | c | Execute Discrete,Above_Bound
0286 7010 |p | Jump_Nonzero 0x297
0287 00d8 | | Load_Top At_Offset_0
0288 e5fe | | Load 0x2,-0x2
0289 01d7 | | Execute Vector,Field_Read
028a 0f20 | | Execute_Immediate Equal,0x20
028b 6809 |h | Jump_Zero 0x295
028c 00db | | Load_Top At_Offset_3
028d 6805 |h | Jump_Zero 0x293
028e 00d8 | | Load_Top At_Offset_0
028f a403 | | Store_Unchecked 0x2,0x3
0290 4800 |H | Short_Literal 0x0
0291 a405 | | Store_Unchecked 0x2,0x5
0292 7802 |x | Jump 0x295
0293 00d8 | | Load_Top At_Offset_0
0294 a404 | | Store_Unchecked 0x2,0x4
0295 00c8 | | Action Pop_Auxiliary_Range
0296 3ff0 |? | Loop_Increasing 0x287
0297 00ce | | Action Pop_Auxiliary
0298 e5fe | | Load 0x2,-0x2
0299 01dd | | Execute Vector,First
029a 00db | | Load_Top At_Offset_3
029b 0aff | | Execute_Immediate Plus,-0x1
029c e5fe | | Load 0x2,-0x2
029d 01cf | | Execute Vector,Slice_Read
029e 00e2 | | Load_Encached Integer_Cache
029f 00e0 | | Load_Encached Standard_Cache
02a0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02a1 00d8 | | Load_Top At_Offset_0
02a2 e20f | | Load 0x1,0xf
02a3 0260 | ` | Execute Discrete,In_Type
02a4 7001 |p | Jump_Nonzero 0x2a6
02a5 0801 | | Execute_Immediate Raise,0x1
02a6 a402 | | Store_Unchecked 0x2,0x2
02a7 00db | | Load_Top At_Offset_3
02a8 4607 |F | Jump_Case 0x8
02a9 781d |x | Jump 0x2c7 ; case 0x0
02aa 7832 |x2 | Jump 0x2dd ; case 0x1
02ab 7805 |x | Jump 0x2b1 ; case 0x2
02ac 7804 |x | Jump 0x2b1 ; case 0x3
02ad 7803 |x | Jump 0x2b1 ; case 0x4
02ae 7802 |x | Jump 0x2b1 ; case 0x5
02af 7801 |x | Jump 0x2b1 ; case 0x6
02b0 7800 |x | Jump 0x2b1 ; case 0x7
02b1 00db | | Load_Top At_Offset_3
02b2 00d8 | | Load_Top At_Offset_0
02b3 e210 | | Load 0x1,0x10
02b4 0260 | ` | Execute Discrete,In_Type
02b5 7001 |p | Jump_Nonzero 0x2b7
02b6 0801 | | Execute_Immediate Raise,0x1
02b7 00db | | Load_Top At_Offset_3
02b8 e5fe | | Load 0x2,-0x2
02b9 01dc | | Execute Vector,Last
02ba e5fe | | Load 0x2,-0x2
02bb 01cf | | Execute Vector,Slice_Read
02bc 00e2 | | Load_Encached Integer_Cache
02bd 00e0 | | Load_Encached Standard_Cache
02be 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02bf 00d8 | | Load_Top At_Offset_0
02c0 00e3 | | Load_Encached Natural_Cache
02c1 0260 | ` | Execute Discrete,In_Type
02c2 7001 |p | Jump_Nonzero 0x2c4
02c3 0801 | | Execute_Immediate Raise,0x1
02c4 e5ff | | Load 0x2,-0x1
02c5 8219 | | Call 0x1,0x19
02c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c7 00da | | Load_Top At_Offset_2
02c8 0a01 | | Execute_Immediate Plus,0x1
02c9 00d8 | | Load_Top At_Offset_0
02ca 00e2 | | Load_Encached Integer_Cache
02cb 0260 | ` | Execute Discrete,In_Type
02cc 7001 |p | Jump_Nonzero 0x2ce
02cd 0801 | | Execute_Immediate Raise,0x1
02ce e5fe | | Load 0x2,-0x2
02cf 01dc | | Execute Vector,Last
02d0 e5fe | | Load 0x2,-0x2
02d1 01cf | | Execute Vector,Slice_Read
02d2 00e2 | | Load_Encached Integer_Cache
02d3 00e0 | | Load_Encached Standard_Cache
02d4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02d5 00d8 | | Load_Top At_Offset_0
02d6 00e3 | | Load_Encached Natural_Cache
02d7 0260 | ` | Execute Discrete,In_Type
02d8 7001 |p | Jump_Nonzero 0x2da
02d9 0801 | | Execute_Immediate Raise,0x1
02da e5ff | | Load 0x2,-0x1
02db 821a | | Call 0x1,0x1a
02dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02dd 00d9 | | Load_Top At_Offset_1
02de 0a01 | | Execute_Immediate Plus,0x1
02df 00d8 | | Load_Top At_Offset_0
02e0 00e2 | | Load_Encached Integer_Cache
02e1 0260 | ` | Execute Discrete,In_Type
02e2 7001 |p | Jump_Nonzero 0x2e4
02e3 0801 | | Execute_Immediate Raise,0x1
02e4 e5fe | | Load 0x2,-0x2
02e5 01dc | | Execute Vector,Last
02e6 e5fe | | Load 0x2,-0x2
02e7 01cf | | Execute Vector,Slice_Read
02e8 00e2 | | Load_Encached Integer_Cache
02e9 00e0 | | Load_Encached Standard_Cache
02ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02eb 00d8 | | Load_Top At_Offset_0
02ec 00e3 | | Load_Encached Natural_Cache
02ed 0260 | ` | Execute Discrete,In_Type
02ee 7001 |p | Jump_Nonzero 0x2f0
02ef 0801 | | Execute_Immediate Raise,0x1
02f0 00db | | Load_Top At_Offset_3
02f1 0a01 | | Execute_Immediate Plus,0x1
02f2 00d8 | | Load_Top At_Offset_0
02f3 00e2 | | Load_Encached Integer_Cache
02f4 0260 | ` | Execute Discrete,In_Type
02f5 7001 |p | Jump_Nonzero 0x2f7
02f6 0801 | | Execute_Immediate Raise,0x1
02f7 00db | | Load_Top At_Offset_3
02f8 0aff | | Execute_Immediate Plus,-0x1
02f9 e5fe | | Load 0x2,-0x2
02fa 01cf | | Execute Vector,Slice_Read
02fb e5ff | | Load 0x2,-0x1
02fc 8216 | | Call 0x1,0x16
02fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02fe 0000 0000 | | .XXX[0x2]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0308 | | .CONST 0x0308 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0005 | | .CONST 0x0005 ; Number of locals
0303 INIT_0300:
0303 00db | | Load_Top At_Offset_3
0304 8215 | | Call 0x1,0x15
0305 00ec | | Load_Encached Diana_Tree_Cache
0306 00ee | | Load_Encached Diana_Seq_Type_Cache
0307 00e3 | | Load_Encached Natural_Cache
0308 BODY_0300:
0308 4800 |H | Short_Literal 0x0
0309 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
030a e5ff | | Load 0x2,-0x1
030b 00eb | | Load_Encached Diana_Cache
030c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
030d 0032 | 2 | Store_Top Heap_Access,At_Offset_2
030e 00cf | | Action Mark_Auxiliary
030f 00da | | Load_Top At_Offset_2
0310 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0311 a403 | | Store_Unchecked 0x2,0x3
0312 00db | | Load_Top At_Offset_3
0313 8214 | | Call 0x1,0x14
0314 6808 |h | Jump_Zero 0x31d
0315 00db | | Load_Top At_Offset_3
0316 8215 | | Call 0x1,0x15
0317 e402 | | Load 0x2,0x2
0318 01df | | Execute Vector,Equal
0319 6803 |h | Jump_Zero 0x31d
031a 00d9 | | Load_Top At_Offset_1
031b 0a01 | | Execute_Immediate Plus,0x1
031c 005a | Z | Store_Top Discrete,At_Offset_2
031d 00db | | Load_Top At_Offset_3
031e e5fe | | Load 0x2,-0x2
031f 021f | | Execute Heap_Access,Equal
0320 700a |p | Jump_Nonzero 0x32b
0321 00da | | Load_Top At_Offset_2
0322 0217 | | Execute Heap_Access,All_Reference
0323 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0324 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0325 00da | | Load_Top At_Offset_2
0326 7002 |p | Jump_Nonzero 0x329
0327 e211 | | Load 0x1,0x11
0328 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0329 00c9 | | Action Pop_Auxiliary_Loop
032a 7fe4 | | Jump 0x30f
032b 00ce | | Action Pop_Auxiliary
032c 4820 |H | Short_Literal 0x20
032d 4820 |H | Short_Literal 0x20
032e 4820 |H | Short_Literal 0x20
032f 4800 |H | Short_Literal 0x0
0330 480a |H | Short_Literal 0xa
0331 4801 |H | Short_Literal 0x1
0332 e005 | | Load 0x0,0x5
0333 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0334 01cb | | Execute Vector,Append
0335 e402 | | Load 0x2,0x2
0336 01cc | | Execute Vector,Catenate
0337 01cb | | Execute Vector,Append
0338 4820 |H | Short_Literal 0x20
0339 4800 |H | Short_Literal 0x0
033a 480a |H | Short_Literal 0xa
033b e405 | | Load 0x2,0x5
033c e005 | | Load 0x0,0x5
033d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
033e 01cc | | Execute Vector,Catenate
033f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0346 | F | .CONST 0x0346 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0004 | | .CONST 0x0004 ; Number of locals
0343 INIT_0340:
0343 00e3 | | Load_Encached Natural_Cache
0344 00ee | | Load_Encached Diana_Seq_Type_Cache
0345 00ec | | Load_Encached Diana_Tree_Cache
0346 BODY_0340:
0346 e5fd | | Load 0x2,-0x3
0347 0e06 | | Execute_Immediate Not_Equal,0x6
0348 6855 |hU | Jump_Zero 0x39e
0349 e5fd | | Load 0x2,-0x3
034a 0e03 | | Execute_Immediate Not_Equal,0x3
034b 6852 |hR | Jump_Zero 0x39e
034c e5ff | | Load 0x2,-0x1
034d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
034e 00d8 | | Load_Top At_Offset_0
034f 0d84 | | Execute_Immediate Less,-0x7c
0350 702f |p/ | Jump_Nonzero 0x380
0351 4f7c |O| | Short_Literal -0x84
0352 0273 | s | Execute Discrete,Plus
0353 4629 |F) | Jump_Case 0x2a
0354 783c |x< | Jump 0x391 ; case 0x0
0355 7828 |x( | Jump 0x37e ; case 0x1
0356 7827 |x' | Jump 0x37e ; case 0x2
0357 7826 |x& | Jump 0x37e ; case 0x3
0358 7825 |x% | Jump 0x37e ; case 0x4
0359 782d |x- | Jump 0x387 ; case 0x5
035a 7823 |x# | Jump 0x37e ; case 0x6
035b 7822 |x" | Jump 0x37e ; case 0x7
035c 7839 |x9 | Jump 0x396 ; case 0x8
035d 7820 |x | Jump 0x37e ; case 0x9
035e 781f |x | Jump 0x37e ; case 0xa
035f 781e |x | Jump 0x37e ; case 0xb
0360 781d |x | Jump 0x37e ; case 0xc
0361 7834 |x4 | Jump 0x396 ; case 0xd
0362 781b |x | Jump 0x37e ; case 0xe
0363 781a |x | Jump 0x37e ; case 0xf
0364 7819 |x | Jump 0x37e ; case 0x10
0365 7826 |x& | Jump 0x38c ; case 0x11
0366 7817 |x | Jump 0x37e ; case 0x12
0367 781a |x | Jump 0x382 ; case 0x13
0368 7815 |x | Jump 0x37e ; case 0x14
0369 7814 |x | Jump 0x37e ; case 0x15
036a 7813 |x | Jump 0x37e ; case 0x16
036b 7812 |x | Jump 0x37e ; case 0x17
036c 7811 |x | Jump 0x37e ; case 0x18
036d 7810 |x | Jump 0x37e ; case 0x19
036e 780f |x | Jump 0x37e ; case 0x1a
036f 780e |x | Jump 0x37e ; case 0x1b
0370 780d |x | Jump 0x37e ; case 0x1c
0371 780c |x | Jump 0x37e ; case 0x1d
0372 780b |x | Jump 0x37e ; case 0x1e
0373 780a |x | Jump 0x37e ; case 0x1f
0374 7809 |x | Jump 0x37e ; case 0x20
0375 7808 |x | Jump 0x37e ; case 0x21
0376 7807 |x | Jump 0x37e ; case 0x22
0377 7806 |x | Jump 0x37e ; case 0x23
0378 7805 |x | Jump 0x37e ; case 0x24
0379 7804 |x | Jump 0x37e ; case 0x25
037a 7803 |x | Jump 0x37e ; case 0x26
037b 7802 |x | Jump 0x37e ; case 0x27
037c 7801 |x | Jump 0x37e ; case 0x28
037d 7800 |x | Jump 0x37e ; case 0x29
037e e211 | | Load 0x1,0x11
037f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0380 00d1 | | Pop_Control Pop_Count_1
0381 7ffc | | Jump 0x37e
0382 e5fd | | Load 0x2,-0x3
0383 0e02 | | Execute_Immediate Not_Equal,0x2
0384 6819 |h | Jump_Zero 0x39e
0385 e211 | | Load 0x1,0x11
0386 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0387 e5fd | | Load 0x2,-0x3
0388 0e04 | | Execute_Immediate Not_Equal,0x4
0389 6814 |h | Jump_Zero 0x39e
038a e211 | | Load 0x1,0x11
038b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
038c e5fd | | Load 0x2,-0x3
038d 0e03 | | Execute_Immediate Not_Equal,0x3
038e 680f |h | Jump_Zero 0x39e
038f e211 | | Load 0x1,0x11
0390 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0391 e5fd | | Load 0x2,-0x3
0392 0e05 | | Execute_Immediate Not_Equal,0x5
0393 680a |h | Jump_Zero 0x39e
0394 e211 | | Load 0x1,0x11
0395 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0396 e5fd | | Load 0x2,-0x3
0397 0e07 | | Execute_Immediate Not_Equal,0x7
0398 6805 |h | Jump_Zero 0x39e
0399 e5fd | | Load 0x2,-0x3
039a 0e05 | | Execute_Immediate Not_Equal,0x5
039b 6802 |h | Jump_Zero 0x39e
039c e211 | | Load 0x1,0x11
039d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
039e 4800 |H | Short_Literal 0x0
039f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
03a0 e5ff | | Load 0x2,-0x1
03a1 00eb | | Load_Encached Diana_Cache
03a2 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03a3 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03a4 00cf | | Action Mark_Auxiliary
03a5 00da | | Load_Top At_Offset_2
03a6 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
03a7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03a8 e5fd | | Load 0x2,-0x3
03a9 0afe | | Execute_Immediate Plus,-0x2
03aa 4605 |F | Jump_Case 0x6
03ab 7824 |x$ | Jump 0x3d0 ; case 0x0
03ac 7814 |x | Jump 0x3c1 ; case 0x1
03ad 7822 |x" | Jump 0x3d0 ; case 0x2
03ae 781a |x | Jump 0x3c9 ; case 0x3
03af 7808 |x | Jump 0x3b8 ; case 0x4
03b0 7800 |x | Jump 0x3b1 ; case 0x5
03b1 00d9 | | Load_Top At_Offset_1
03b2 8217 | | Call 0x1,0x17
03b3 6823 |h# | Jump_Zero 0x3d7
03b4 00db | | Load_Top At_Offset_3
03b5 0a01 | | Execute_Immediate Plus,0x1
03b6 c402 | | Store 0x2,0x2
03b7 781f |x | Jump 0x3d7
03b8 00d9 | | Load_Top At_Offset_1
03b9 49a1 |I | Short_Literal 0x1a1
03ba 00eb | | Load_Encached Diana_Cache
03bb 0096 | | Execute Package,Entry
03bc 681a |h | Jump_Zero 0x3d7
03bd 00db | | Load_Top At_Offset_3
03be 0a01 | | Execute_Immediate Plus,0x1
03bf c402 | | Store 0x2,0x2
03c0 7816 |x | Jump 0x3d7
03c1 00d9 | | Load_Top At_Offset_1
03c2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03c3 0f40 | @ | Execute_Immediate Equal,0x40
03c4 6812 |h | Jump_Zero 0x3d7
03c5 00db | | Load_Top At_Offset_3
03c6 0a01 | | Execute_Immediate Plus,0x1
03c7 c402 | | Store 0x2,0x2
03c8 780e |x | Jump 0x3d7
03c9 00d9 | | Load_Top At_Offset_1
03ca 8218 | | Call 0x1,0x18
03cb 680b |h | Jump_Zero 0x3d7
03cc 00db | | Load_Top At_Offset_3
03cd 0a01 | | Execute_Immediate Plus,0x1
03ce c402 | | Store 0x2,0x2
03cf 7807 |x | Jump 0x3d7
03d0 00d9 | | Load_Top At_Offset_1
03d1 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03d2 0f40 | @ | Execute_Immediate Equal,0x40
03d3 7003 |p | Jump_Nonzero 0x3d7
03d4 00db | | Load_Top At_Offset_3
03d5 0a01 | | Execute_Immediate Plus,0x1
03d6 c402 | | Store 0x2,0x2
03d7 00d9 | | Load_Top At_Offset_1
03d8 e5fe | | Load 0x2,-0x2
03d9 021f | | Execute Heap_Access,Equal
03da 700a |p | Jump_Nonzero 0x3e5
03db 00da | | Load_Top At_Offset_2
03dc 0217 | | Execute Heap_Access,All_Reference
03dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03de 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03df 00da | | Load_Top At_Offset_2
03e0 7002 |p | Jump_Nonzero 0x3e3
03e1 e211 | | Load 0x1,0x11
03e2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03e3 00c9 | | Action Pop_Auxiliary_Loop
03e4 7fc0 | | Jump 0x3a5
03e5 00ce | | Action Pop_Auxiliary
03e6 4820 |H | Short_Literal 0x20
03e7 4820 |H | Short_Literal 0x20
03e8 4800 |H | Short_Literal 0x0
03e9 480a |H | Short_Literal 0xa
03ea e5fd | | Load 0x2,-0x3
03eb 00d8 | | Load_Top At_Offset_0
03ec 00e2 | | Load_Encached Integer_Cache
03ed 0260 | ` | Execute Discrete,In_Type
03ee 7001 |p | Jump_Nonzero 0x3f0
03ef 0801 | | Execute_Immediate Raise,0x1
03f0 e005 | | Load 0x0,0x5
03f1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03f2 01cb | | Execute Vector,Append
03f3 4820 |H | Short_Literal 0x20
03f4 4800 |H | Short_Literal 0x0
03f5 480a |H | Short_Literal 0xa
03f6 e402 | | Load 0x2,0x2
03f7 e005 | | Load 0x0,0x5
03f8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03f9 01cc | | Execute Vector,Catenate
03fa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03fb 0000 0000 | | .BLANK 0000[0x5]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0406 | | .CONST 0x0406 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0003 | | .CONST 0x0003 ; Number of locals
0403 INIT_0400:
0403 00e3 | | Load_Encached Natural_Cache
0404 029f 0593 | | Declare_Subprogram INIT_0590,For_Call
0406 BODY_0400:
0406 e5ff | | Load 0x2,-0x1
0407 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0408 008e | | Action Discrete,Diana_Arity_For_Kind
0409 4604 |F | Jump_Case 0x5
040a 7806 |x | Jump 0x411 ; case 0x0
040b 7808 |x | Jump 0x414 ; case 0x1
040c 7813 |x | Jump 0x420 ; case 0x2
040d 7827 |x' | Jump 0x435 ; case 0x3
040e 7800 |x | Jump 0x40f ; case 0x4
040f 8403 | | Call 0x2,0x3
0410 7841 |xA | Jump 0x452
0411 4800 |H | Short_Literal 0x0
0412 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0413 783e |x> | Jump 0x452
0414 e5fe | | Load 0x2,-0x2
0415 e5ff | | Load 0x2,-0x1
0416 00eb | | Load_Encached Diana_Cache
0417 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0418 021f | | Execute Heap_Access,Equal
0419 6803 |h | Jump_Zero 0x41d
041a 4801 |H | Short_Literal 0x1
041b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
041c 7835 |x5 | Jump 0x452
041d 4800 |H | Short_Literal 0x0
041e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
041f 7832 |x2 | Jump 0x452
0420 e5fe | | Load 0x2,-0x2
0421 e5ff | | Load 0x2,-0x1
0422 00eb | | Load_Encached Diana_Cache
0423 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0424 021f | | Execute Heap_Access,Equal
0425 6803 |h | Jump_Zero 0x429
0426 4801 |H | Short_Literal 0x1
0427 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0428 7829 |x) | Jump 0x452
0429 e5fe | | Load 0x2,-0x2
042a e5ff | | Load 0x2,-0x1
042b 00eb | | Load_Encached Diana_Cache
042c 1886 | | Execute Package,Field_Execute,Field_Number 0x86
042d 021f | | Execute Heap_Access,Equal
042e 6803 |h | Jump_Zero 0x432
042f 4802 |H | Short_Literal 0x2
0430 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0431 7820 |x | Jump 0x452
0432 4800 |H | Short_Literal 0x0
0433 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0434 781d |x | Jump 0x452
0435 e5fe | | Load 0x2,-0x2
0436 e5ff | | Load 0x2,-0x1
0437 00eb | | Load_Encached Diana_Cache
0438 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0439 021f | | Execute Heap_Access,Equal
043a 6803 |h | Jump_Zero 0x43e
043b 4801 |H | Short_Literal 0x1
043c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
043d 7814 |x | Jump 0x452
043e e5fe | | Load 0x2,-0x2
043f e5ff | | Load 0x2,-0x1
0440 00eb | | Load_Encached Diana_Cache
0441 1886 | | Execute Package,Field_Execute,Field_Number 0x86
0442 021f | | Execute Heap_Access,Equal
0443 6803 |h | Jump_Zero 0x447
0444 4802 |H | Short_Literal 0x2
0445 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0446 780b |x | Jump 0x452
0447 e5fe | | Load 0x2,-0x2
0448 e5ff | | Load 0x2,-0x1
0449 00eb | | Load_Encached Diana_Cache
044a 1887 | | Execute Package,Field_Execute,Field_Number 0x87
044b 021f | | Execute Heap_Access,Equal
044c 6803 |h | Jump_Zero 0x450
044d 4803 |H | Short_Literal 0x3
044e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
044f 7802 |x | Jump 0x452
0450 4800 |H | Short_Literal 0x0
0451 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0452 00d9 | | Load_Top At_Offset_1
0453 7002 |p | Jump_Nonzero 0x456
0454 e211 | | Load 0x1,0x11
0455 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0456 4820 |H | Short_Literal 0x20
0457 4820 |H | Short_Literal 0x20
0458 4800 |H | Short_Literal 0x0
0459 480a |H | Short_Literal 0xa
045a 4800 |H | Short_Literal 0x0
045b e005 | | Load 0x0,0x5
045c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
045d 01cb | | Execute Vector,Append
045e 4820 |H | Short_Literal 0x20
045f 4800 |H | Short_Literal 0x0
0460 480a |H | Short_Literal 0xa
0461 e402 | | Load 0x2,0x2
0462 e005 | | Load 0x0,0x5
0463 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0464 01cc | | Execute Vector,Catenate
0465 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0466 0000 0000 | | .XXX[0x2]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046d | m | .CONST 0x046d ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b e20f | | Load 0x1,0xf
046c 0007 | | Action Break_Optional
046d BODY_0468:
046d e5fe | | Load 0x2,-0x2
046e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
046f 0f40 | @ | Execute_Immediate Equal,0x40
0470 680b |h | Jump_Zero 0x47c
0471 e5fe | | Load 0x2,-0x2
0472 49a1 |I | Short_Literal 0x1a1
0473 00eb | | Load_Encached Diana_Cache
0474 0096 | | Execute Package,Entry
0475 6803 |h | Jump_Zero 0x479
0476 4806 |H | Short_Literal 0x6
0477 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0478 7854 |xT | Jump 0x4cd
0479 4803 |H | Short_Literal 0x3
047a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
047b 7851 |xQ | Jump 0x4cd
047c 00db | | Load_Top At_Offset_3
047d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
047e 00d8 | | Load_Top At_Offset_0
047f 0d84 | | Execute_Immediate Less,-0x7c
0480 7030 |p0 | Jump_Nonzero 0x4b1
0481 4f7c |O| | Short_Literal -0x84
0482 0273 | s | Execute Discrete,Plus
0483 4629 |F) | Jump_Case 0x2a
0484 7846 |xF | Jump 0x4cb ; case 0x0
0485 7828 |x( | Jump 0x4ae ; case 0x1
0486 7827 |x' | Jump 0x4ae ; case 0x2
0487 7826 |x& | Jump 0x4ae ; case 0x3
0488 7825 |x% | Jump 0x4ae ; case 0x4
0489 783e |x> | Jump 0x4c8 ; case 0x5
048a 7823 |x# | Jump 0x4ae ; case 0x6
048b 7822 |x" | Jump 0x4ae ; case 0x7
048c 7826 |x& | Jump 0x4b3 ; case 0x8
048d 7820 |x | Jump 0x4ae ; case 0x9
048e 781f |x | Jump 0x4ae ; case 0xa
048f 781e |x | Jump 0x4ae ; case 0xb
0490 781d |x | Jump 0x4ae ; case 0xc
0491 7821 |x! | Jump 0x4b3 ; case 0xd
0492 781b |x | Jump 0x4ae ; case 0xe
0493 781a |x | Jump 0x4ae ; case 0xf
0494 7819 |x | Jump 0x4ae ; case 0x10
0495 782f |x/ | Jump 0x4c5 ; case 0x11
0496 7817 |x | Jump 0x4ae ; case 0x12
0497 782a |x* | Jump 0x4c2 ; case 0x13
0498 7815 |x | Jump 0x4ae ; case 0x14
0499 7814 |x | Jump 0x4ae ; case 0x15
049a 7813 |x | Jump 0x4ae ; case 0x16
049b 7812 |x | Jump 0x4ae ; case 0x17
049c 7811 |x | Jump 0x4ae ; case 0x18
049d 7810 |x | Jump 0x4ae ; case 0x19
049e 780f |x | Jump 0x4ae ; case 0x1a
049f 780e |x | Jump 0x4ae ; case 0x1b
04a0 780d |x | Jump 0x4ae ; case 0x1c
04a1 780c |x | Jump 0x4ae ; case 0x1d
04a2 780b |x | Jump 0x4ae ; case 0x1e
04a3 780a |x | Jump 0x4ae ; case 0x1f
04a4 7809 |x | Jump 0x4ae ; case 0x20
04a5 7808 |x | Jump 0x4ae ; case 0x21
04a6 7807 |x | Jump 0x4ae ; case 0x22
04a7 7806 |x | Jump 0x4ae ; case 0x23
04a8 7805 |x | Jump 0x4ae ; case 0x24
04a9 7804 |x | Jump 0x4ae ; case 0x25
04aa 7803 |x | Jump 0x4ae ; case 0x26
04ab 7802 |x | Jump 0x4ae ; case 0x27
04ac 7801 |x | Jump 0x4ae ; case 0x28
04ad 7800 |x | Jump 0x4ae ; case 0x29
04ae 4800 |H | Short_Literal 0x0
04af 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04b0 781c |x | Jump 0x4cd
04b1 00d1 | | Pop_Control Pop_Count_1
04b2 7ffb | | Jump 0x4ae
04b3 e5fe | | Load 0x2,-0x2
04b4 8217 | | Call 0x1,0x17
04b5 6803 |h | Jump_Zero 0x4b9
04b6 4807 |H | Short_Literal 0x7
04b7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04b8 7814 |x | Jump 0x4cd
04b9 e5fe | | Load 0x2,-0x2
04ba 8218 | | Call 0x1,0x18
04bb 6803 |h | Jump_Zero 0x4bf
04bc 4805 |H | Short_Literal 0x5
04bd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04be 780e |x | Jump 0x4cd
04bf 4801 |H | Short_Literal 0x1
04c0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04c1 780b |x | Jump 0x4cd
04c2 4802 |H | Short_Literal 0x2
04c3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04c4 7808 |x | Jump 0x4cd
04c5 4803 |H | Short_Literal 0x3
04c6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04c7 7805 |x | Jump 0x4cd
04c8 4804 |H | Short_Literal 0x4
04c9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04ca 7802 |x | Jump 0x4cd
04cb 4805 |H | Short_Literal 0x5
04cc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04cd 00d8 | | Load_Top At_Offset_0
04ce 4607 |F | Jump_Case 0x8
04cf 7811 |x | Jump 0x4e1 ; case 0x0
04d0 7814 |x | Jump 0x4e5 ; case 0x1
04d1 7805 |x | Jump 0x4d7 ; case 0x2
04d2 7804 |x | Jump 0x4d7 ; case 0x3
04d3 7803 |x | Jump 0x4d7 ; case 0x4
04d4 7802 |x | Jump 0x4d7 ; case 0x5
04d5 7801 |x | Jump 0x4d7 ; case 0x6
04d6 7800 |x | Jump 0x4d7 ; case 0x7
04d7 00d8 | | Load_Top At_Offset_0
04d8 00d8 | | Load_Top At_Offset_0
04d9 e210 | | Load 0x1,0x10
04da 0260 | ` | Execute Discrete,In_Type
04db 7001 |p | Jump_Nonzero 0x4dd
04dc 0801 | | Execute_Immediate Raise,0x1
04dd e5fe | | Load 0x2,-0x2
04de e5ff | | Load 0x2,-0x1
04df 821d | | Call 0x1,0x1d
04e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04e1 e5fe | | Load 0x2,-0x2
04e2 e5ff | | Load 0x2,-0x1
04e3 821e | | Call 0x1,0x1e
04e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04e5 e5fe | | Load 0x2,-0x2
04e6 e5ff | | Load 0x2,-0x1
04e7 821c | | Call 0x1,0x1c
04e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04e9 0000 0000 | | .BLANK 0000[0x7]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 0501 | | .CONST 0x0501 ; Address of begin
04f1 0525 | % | .CONST 0x0525 ; Address of exception handler
04f2 0005 | | .CONST 0x0005 ; Number of locals
04f3 INIT_04f0:
04f3 4801 |H | Short_Literal 0x1
04f4 e403 | | Load 0x2,0x3
04f5 00e9 | | Load_Encached String_Cache
04f6 035b | [ | Declare_Type Array,Constrained
04f7 0337 | 7 | Declare_Variable Array
04f8 00e3 | | Load_Encached Natural_Cache
04f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04fa 0093 0000 | | push_full_address 0x0
04fc 6033 |`3 | Indirect_Literal Discrete,0x530,{0x80000000, 0x00010000}
04fd 0273 | s | Execute Discrete,Plus
04fe 0007 | | Action Break_Optional
04ff 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call
0501 BODY_04f0:
0501 00cf | | Action Mark_Auxiliary
0502 e402 | | Load 0x2,0x2
0503 01dc | | Execute Vector,Last
0504 0aff | | Execute_Immediate Plus,-0x1
0505 00d8 | | Load_Top At_Offset_0
0506 00e2 | | Load_Encached Integer_Cache
0507 0260 | ` | Execute Discrete,In_Type
0508 7001 |p | Jump_Nonzero 0x50a
0509 0801 | | Execute_Immediate Raise,0x1
050a e402 | | Load 0x2,0x2
050b 01dd | | Execute Vector,First
050c 0263 | c | Execute Discrete,Above_Bound
050d 700e |p | Jump_Nonzero 0x51c
050e 0092 05de | | Action Push_String_Extended,0x5de ; "."
0510 8605 | | Call 0x3,0x5
0511 00d8 | | Load_Top At_Offset_0
0512 0a01 | | Execute_Immediate Plus,0x1
0513 e402 | | Load 0x2,0x2
0514 01d7 | | Execute Vector,Field_Read
0515 00d9 | | Load_Top At_Offset_1
0516 e402 | | Load 0x2,0x2
0517 01d7 | | Execute Vector,Field_Read
0518 821f | | Call 0x1,0x1f
0519 8605 | | Call 0x3,0x5
051a 00c8 | | Action Pop_Auxiliary_Range
051b 3ff2 |? | Loop_Increasing 0x50e
051c 00ce | | Action Pop_Auxiliary
051d 4801 |H | Short_Literal 0x1
051e 00db | | Load_Top At_Offset_3
051f e602 | | Load 0x3,0x2
0520 01cf | | Execute Vector,Slice_Read
0521 00e9 | | Load_Encached String_Cache
0522 01c6 | | Execute Vector,Convert_To_Formal
0523 00cb | | Action Pop_Block_With_Result
0524 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0525 TRAP_04f0:
0525 00da | | Load_Top At_Offset_2
0526 010f | | Execute Exception,Equal
0527 6804 |h | Jump_Zero 0x52c
0528 e403 | | Load 0x2,0x3
0529 0901 | | Execute_Immediate Binary_Scale,0x1
052a c403 | | Store 0x2,0x3
052b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
052c 0100 | | Execute Exception,Raise
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0534 0000 0000 | | .BLANK 0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 0547 | G | .CONST 0x0547 ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0003 | | .CONST 0x0003 ; Number of locals
053b INIT_0538:
053b 4801 |H | Short_Literal 0x1
053c e403 | | Load 0x2,0x3
053d 49a0 |I | Short_Literal 0x1a0
053e 00eb | | Load_Encached Diana_Cache
053f 0098 | | Execute Package,Field_Read_Dynamic
0540 035b | [ | Declare_Type Array,Constrained
0541 0337 | 7 | Declare_Variable Array
0542 00d8 | | Load_Top At_Offset_0
0543 01dc | | Execute Vector,Last
0544 0a01 | | Execute_Immediate Plus,0x1
0545 00e3 | | Load_Encached Natural_Cache
0546 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0547 BODY_0538:
0547 e5ff | | Load 0x2,-0x1
0548 a402 | | Store_Unchecked 0x2,0x2
0549 00cf | | Action Mark_Auxiliary
054a 780c |x | Jump 0x557
054b 00d9 | | Load_Top At_Offset_1
054c 0aff | | Execute_Immediate Plus,-0x1
054d 005a | Z | Store_Top Discrete,At_Offset_2
054e e402 | | Load 0x2,0x2
054f 00da | | Load_Top At_Offset_2
0550 e602 | | Load 0x3,0x2
0551 01d6 | | Execute Vector,Field_Write
0552 e402 | | Load 0x2,0x2
0553 00eb | | Load_Encached Diana_Cache
0554 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0555 a402 | | Store_Unchecked 0x2,0x2
0556 00c9 | | Action Pop_Auxiliary_Loop
0557 e402 | | Load 0x2,0x2
0558 77f2 |w | Jump_Nonzero 0x54b
0559 00ce | | Action Pop_Auxiliary
055a 00d9 | | Load_Top At_Offset_1
055b 49a0 |I | Short_Literal 0x1a0
055c 00eb | | Load_Encached Diana_Cache
055d 0098 | | Execute Package,Field_Read_Dynamic
055e 01c6 | | Execute Vector,Convert_To_Formal
055f 00cb | | Action Pop_Block_With_Result
0560 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0561 0000 0000 | | .BLANK 0000[0x7]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056e | n | .CONST 0x056e ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0002 | | .CONST 0x0002 ; Number of locals
056b INIT_0568:
056b e5ff | | Load 0x2,-0x1
056c 00eb | | Load_Encached Diana_Cache
056d 1889 | | Execute Package,Field_Execute,Field_Number 0x89
056e BODY_0568:
056e 00cf | | Action Mark_Auxiliary
056f e5fe | | Load 0x2,-0x2
0570 0aff | | Execute_Immediate Plus,-0x1
0571 4801 |H | Short_Literal 0x1
0572 0263 | c | Execute Discrete,Above_Bound
0573 700b |p | Jump_Nonzero 0x57f
0574 00db | | Load_Top At_Offset_3
0575 7003 |p | Jump_Nonzero 0x579
0576 e212 | | Load 0x1,0x12
0577 00cb | | Action Pop_Block_With_Result
0578 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0579 00db | | Load_Top At_Offset_3
057a 0217 | | Execute Heap_Access,All_Reference
057b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
057c a602 | | Store_Unchecked 0x3,0x2
057d 00c8 | | Action Pop_Auxiliary_Range
057e 3ff5 |? | Loop_Increasing 0x574
057f 00ce | | Action Pop_Auxiliary
0580 00d8 | | Load_Top At_Offset_0
0581 7003 |p | Jump_Nonzero 0x585
0582 e212 | | Load 0x1,0x12
0583 00cb | | Action Pop_Block_With_Result
0584 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0585 00d8 | | Load_Top At_Offset_0
0586 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0587 00cb | | Action Pop_Block_With_Result
0588 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0589 0000 0000 | | .BLANK 0000[0x7]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0596 | | .CONST 0x0596 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0002 | | .CONST 0x0002 ; Number of locals
0593 INIT_0590:
0593 e5ff | | Load 0x2,-0x1
0594 00eb | | Load_Encached Diana_Cache
0595 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0596 BODY_0590:
0596 4800 |H | Short_Literal 0x0
0597 a402 | | Store_Unchecked 0x2,0x2
0598 00cf | | Action Mark_Auxiliary
0599 780e |x | Jump 0x5a8
059a e402 | | Load 0x2,0x2
059b 0a01 | | Execute_Immediate Plus,0x1
059c c402 | | Store 0x2,0x2
059d e5fe | | Load 0x2,-0x2
059e 00da | | Load_Top At_Offset_2
059f 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
05a0 021f | | Execute Heap_Access,Equal
05a1 6801 |h | Jump_Zero 0x5a3
05a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05a3 00d9 | | Load_Top At_Offset_1
05a4 0217 | | Execute Heap_Access,All_Reference
05a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05a6 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05a7 00c9 | | Action Pop_Auxiliary_Loop
05a8 00d9 | | Load_Top At_Offset_1
05a9 77f0 |w | Jump_Nonzero 0x59a
05aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ab 0000 0000 | | .BLANK 0000[0x5]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 e403 | | Load 0x2,0x3
05b4 e603 | | Load 0x3,0x3
05b5 0272 | r | Execute Discrete,Minus
05b6 00db | | Load_Top At_Offset_3
05b7 01db | | Execute Vector,Length
05b8 027c | | | Execute Discrete,Less
05b9 6802 |h | Jump_Zero 0x5bc
05ba e604 | | Load 0x3,0x4
05bb 0257 | W | Execute Discrete,Raise
05bc 00da | | Load_Top At_Offset_2
05bd e603 | | Load 0x3,0x3
05be 0a01 | | Execute_Immediate Plus,0x1
05bf 00d8 | | Load_Top At_Offset_0
05c0 00e2 | | Load_Encached Integer_Cache
05c1 0260 | ` | Execute Discrete,In_Type
05c2 7001 |p | Jump_Nonzero 0x5c4
05c3 0801 | | Execute_Immediate Raise,0x1
05c4 e603 | | Load 0x3,0x3
05c5 e9ff | | Load 0x4,-0x1
05c6 01db | | Execute Vector,Length
05c7 0273 | s | Execute Discrete,Plus
05c8 00d8 | | Load_Top At_Offset_0
05c9 00e2 | | Load_Encached Integer_Cache
05ca 0260 | ` | Execute Discrete,In_Type
05cb 7001 |p | Jump_Nonzero 0x5cd
05cc 0801 | | Execute_Immediate Raise,0x1
05cd e602 | | Load 0x3,0x2
05ce 01ce | | Execute Vector,Slice_Write
05cf e603 | | Load 0x3,0x3
05d0 00db | | Load_Top At_Offset_3
05d1 01db | | Execute Vector,Length
05d2 0273 | s | Execute Discrete,Plus
05d3 c603 | | Store 0x3,0x3
05d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05d5 ; --------------------------------------------------------------------------------------
05d5 ; STRING TABLE
05d5 ; --------------------------------------------------------------------------------------
05d5 0018 | | .STRTAB 0x0018->0x05e1 ; "POSITIONAL_NAME"
05d6 0025 | % | .STRTAB 0x0025->0x05e8 ; "DECLARATION_NAME"
05d7 0033 | 3 | .STRTAB 0x0033->0x05f0 ; "STATEMENT_NAME"
05d8 003f | ? | .STRTAB 0x003f->0x05f7 ; "PRAGMA_NAME"
05d9 0048 | H | .STRTAB 0x0048->0x05fd ; "ALTERNATIVE_NAME"
05da 0056 | V | .STRTAB 0x0056->0x0605 ; "CONTEXT_NAME"
05db 0060 | ` | .STRTAB 0x0060->0x060b ; "COMMENT_NAME"
05dc 006a | j | .STRTAB 0x006a->0x0611 ; "REPRESENTATION_NAME"
05dd 007b | { | .STRTAB 0x007b->0x061a ; "???"
05de 007c | | | .STRTAB 0x007c->0x061c ; "."
05df 007b | { | .STRTAB 0x007b->0x061c ; "Unable to locate specified position within Ada unit"
05e0 00ac | | .STREND 0x00ac->0x0636
05e1 504f 5349 |POSI| .STRTAB_STRINGS
0636 0000 0000 | | .XXX[0x2]
0638 ; --------------------------------------------------------------------------------------
0638 ; Debug Table
0638 ; --------------------------------------------------------------------------------------
0638 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5de2,0x0000,0x0001,0x0000
063e 0000 0000 | | .BLANK 0000[0x1c2]