|
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: 6144 (0x1800)
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 0a10 | | .CONST 0x0a10 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00c9 | | .CONST 0x00c9 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003b | ; | .CONST 0x003b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 480c |H | Short_Literal 0xc
000d 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0012 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0014 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0016 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0018 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
001a 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
001c 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
001e 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0020 4800 |H | Short_Literal 0x0
0021 4806 |H | Short_Literal 0x6
0022 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
0024 03fe | | Declare_Type Discrete,Defined,Visible
0025 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0027 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0029 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
002b 4800 |H | Short_Literal 0x0
002c 4803 |H | Short_Literal 0x3
002d 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
002f 03fe | | Declare_Type Discrete,Defined,Visible
0030 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
0032 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
0034 4800 |H | Short_Literal 0x0
0035 4804 |H | Short_Literal 0x4
0036 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call
0038 03fe | | Declare_Type Discrete,Defined,Visible
0039 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
003b 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
003d 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
003f 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
0041 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated
0043 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
0045 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
0047 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated
0049 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated
004b 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
004d 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
004f 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated
0051 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated
0053 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
0055 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated
0057 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
0059 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated
005b 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated
005d 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated
005f 4800 |H | Short_Literal 0x0
0060 4803 |H | Short_Literal 0x3
0061 029f 0603 | | Declare_Subprogram INIT_0600,For_Call
0063 03fe | | Declare_Type Discrete,Defined,Visible
0064 029a 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call,Visible,Unelaborated
0066 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated
0068 029a 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call,Visible,Unelaborated
006a 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated
006c 029a 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call,Visible,Unelaborated
006e 029a 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call,Visible,Unelaborated
0070 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated
0072 029a 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call,Visible,Unelaborated
0074 00bf | | Action Accept_Activation
0075 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call
0077 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call
0079 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007a 00c7 | | Action Elaborate_Subprogram
007b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
007c 00c7 | | Action Elaborate_Subprogram
007d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
007e 00c7 | | Action Elaborate_Subprogram
007f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0080 00c7 | | Action Elaborate_Subprogram
0081 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0082 00c7 | | Action Elaborate_Subprogram
0083 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0084 00c7 | | Action Elaborate_Subprogram
0085 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0086 00c7 | | Action Elaborate_Subprogram
0087 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0088 00c7 | | Action Elaborate_Subprogram
0089 1d17 | | Execute_Immediate Reference_Lex_1,0x17
008a 00c7 | | Action Elaborate_Subprogram
008b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008c 00c7 | | Action Elaborate_Subprogram
008d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
008e 00c7 | | Action Elaborate_Subprogram
008f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0090 00c7 | | Action Elaborate_Subprogram
0091 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0092 00c7 | | Action Elaborate_Subprogram
0093 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0094 00c7 | | Action Elaborate_Subprogram
0095 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0096 00c7 | | Action Elaborate_Subprogram
0097 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0098 00c7 | | Action Elaborate_Subprogram
0099 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
009a 00c7 | | Action Elaborate_Subprogram
009b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
009c 00c7 | | Action Elaborate_Subprogram
009d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
009e 00c7 | | Action Elaborate_Subprogram
009f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00c8 00c7 | | Action Elaborate_Subprogram
00c9 BODY_0008:
00c9 00bc | | Action Signal_Activated
00ca 00bb | | Action Signal_Completion
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4607 |F | Jump_Case 0x8
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00d5 7807 |x | Jump 0xdd ; case 0x1
00d6 780a |x | Jump 0xe1 ; case 0x2
00d7 780e |x | Jump 0xe6 ; case 0x3
00d8 7811 |x | Jump 0xea ; case 0x4
00d9 7812 |x | Jump 0xec ; case 0x5
00da 7813 |x | Jump 0xee ; case 0x6
00db 7816 |x | Jump 0xf2 ; case 0x7
00dc 4302 |C | .XXX[0x1]
00dd 00da | | Load_Top At_Offset_2
00de 0091 0709 | | Action Push_String_Extended_Indexed,0x709 ; "A_SUBTYPE_INDICATION"
00e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e1 00db | | Load_Top At_Offset_3
00e2 00db | | Load_Top At_Offset_3
00e3 00e0 | | Load_Encached Standard_Cache
00e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e6 00da | | Load_Top At_Offset_2
00e7 00e0 | | Load_Encached Standard_Cache
00e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ea 00db | | Load_Top At_Offset_3
00eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ec 00db | | Load_Top At_Offset_3
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee e20d | | Load 0x1,0xd
00ef 00dc | | Load_Top At_Offset_4
00f0 0267 | g | Execute Discrete,Predecessor
00f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f2 e20d | | Load 0x1,0xd
00f3 00dc | | Load_Top At_Offset_4
00f4 0268 | h | Execute Discrete,Successor
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fc | | .CONST 0x00fc ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb 00ec | | Load_Encached Diana_Tree_Cache
00fc BODY_00f8:
00fc 00db | | Load_Top At_Offset_3
00fd 8002 | | Call 0x0,0x2
00fe 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00ff 00d8 | | Load_Top At_Offset_0
0100 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0101 00d8 | | Load_Top At_Offset_0
0102 0d64 | d | Execute_Immediate Less,0x64
0103 704e |pN | Jump_Nonzero 0x152
0104 0a9c | | Execute_Immediate Plus,-0x64
0105 4649 |FI | Jump_Case 0x4a
0106 7855 |xU | Jump 0x15c ; case 0x0
0107 7852 |xR | Jump 0x15a ; case 0x1
0108 784b |xK | Jump 0x154 ; case 0x2
0109 784c |xL | Jump 0x156 ; case 0x3
010a 7851 |xQ | Jump 0x15c ; case 0x4
010b 784e |xN | Jump 0x15a ; case 0x5
010c 784b |xK | Jump 0x158 ; case 0x6
010d 7854 |xT | Jump 0x162 ; case 0x7
010e 784f |xO | Jump 0x15e ; case 0x8
010f 7854 |xT | Jump 0x164 ; case 0x9
0110 7845 |xE | Jump 0x156 ; case 0xa
0111 7846 |xF | Jump 0x158 ; case 0xb
0112 7857 |xW | Jump 0x16a ; case 0xc
0113 7854 |xT | Jump 0x168 ; case 0xd
0114 784b |xK | Jump 0x160 ; case 0xe
0115 7850 |xP | Jump 0x166 ; case 0xf
0116 7839 |x9 | Jump 0x150 ; case 0x10
0117 7838 |x8 | Jump 0x150 ; case 0x11
0118 7837 |x7 | Jump 0x150 ; case 0x12
0119 7836 |x6 | Jump 0x150 ; case 0x13
011a 7835 |x5 | Jump 0x150 ; case 0x14
011b 7834 |x4 | Jump 0x150 ; case 0x15
011c 7833 |x3 | Jump 0x150 ; case 0x16
011d 7832 |x2 | Jump 0x150 ; case 0x17
011e 7831 |x1 | Jump 0x150 ; case 0x18
011f 7830 |x0 | Jump 0x150 ; case 0x19
0120 782f |x/ | Jump 0x150 ; case 0x1a
0121 782e |x. | Jump 0x150 ; case 0x1b
0122 782d |x- | Jump 0x150 ; case 0x1c
0123 782c |x, | Jump 0x150 ; case 0x1d
0124 782b |x+ | Jump 0x150 ; case 0x1e
0125 782a |x* | Jump 0x150 ; case 0x1f
0126 7829 |x) | Jump 0x150 ; case 0x20
0127 7828 |x( | Jump 0x150 ; case 0x21
0128 7827 |x' | Jump 0x150 ; case 0x22
0129 7826 |x& | Jump 0x150 ; case 0x23
012a 7825 |x% | Jump 0x150 ; case 0x24
012b 7824 |x$ | Jump 0x150 ; case 0x25
012c 7823 |x# | Jump 0x150 ; case 0x26
012d 7822 |x" | Jump 0x150 ; case 0x27
012e 7821 |x! | Jump 0x150 ; case 0x28
012f 7820 |x | Jump 0x150 ; case 0x29
0130 781f |x | Jump 0x150 ; case 0x2a
0131 781e |x | Jump 0x150 ; case 0x2b
0132 781d |x | Jump 0x150 ; case 0x2c
0133 781c |x | Jump 0x150 ; case 0x2d
0134 781b |x | Jump 0x150 ; case 0x2e
0135 781a |x | Jump 0x150 ; case 0x2f
0136 7819 |x | Jump 0x150 ; case 0x30
0137 7818 |x | Jump 0x150 ; case 0x31
0138 7817 |x | Jump 0x150 ; case 0x32
0139 7816 |x | Jump 0x150 ; case 0x33
013a 7815 |x | Jump 0x150 ; case 0x34
013b 7814 |x | Jump 0x150 ; case 0x35
013c 7813 |x | Jump 0x150 ; case 0x36
013d 7812 |x | Jump 0x150 ; case 0x37
013e 7811 |x | Jump 0x150 ; case 0x38
013f 7810 |x | Jump 0x150 ; case 0x39
0140 780f |x | Jump 0x150 ; case 0x3a
0141 780e |x | Jump 0x150 ; case 0x3b
0142 780d |x | Jump 0x150 ; case 0x3c
0143 780c |x | Jump 0x150 ; case 0x3d
0144 780b |x | Jump 0x150 ; case 0x3e
0145 780a |x | Jump 0x150 ; case 0x3f
0146 7809 |x | Jump 0x150 ; case 0x40
0147 7808 |x | Jump 0x150 ; case 0x41
0148 7807 |x | Jump 0x150 ; case 0x42
0149 7806 |x | Jump 0x150 ; case 0x43
014a 7805 |x | Jump 0x150 ; case 0x44
014b 7804 |x | Jump 0x150 ; case 0x45
014c 7803 |x | Jump 0x150 ; case 0x46
014d 7802 |x | Jump 0x150 ; case 0x47
014e 7801 |x | Jump 0x150 ; case 0x48
014f 7800 |x | Jump 0x150 ; case 0x49
0150 480c |H | Short_Literal 0xc
0151 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0152 00d1 | | Pop_Control Pop_Count_1
0153 7ffc | | Jump 0x150
0154 4800 |H | Short_Literal 0x0
0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0156 4801 |H | Short_Literal 0x1
0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0158 4802 |H | Short_Literal 0x2
0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015a 4803 |H | Short_Literal 0x3
015b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015c 4804 |H | Short_Literal 0x4
015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015e 4805 |H | Short_Literal 0x5
015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0160 4806 |H | Short_Literal 0x6
0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0162 4807 |H | Short_Literal 0x7
0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0164 4808 |H | Short_Literal 0x8
0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0166 4809 |H | Short_Literal 0x9
0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0168 480a |H | Short_Literal 0xa
0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016a 480b |H | Short_Literal 0xb
016b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175 | u | .CONST 0x0175 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 8002 | | Call 0x0,0x2
0175 BODY_0170:
0175 00d8 | | Load_Top At_Offset_0
0176 e003 | | Load 0x0,0x3
0177 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0178 7006 |p | Jump_Nonzero 0x17f
0179 0092 072a | *| Action Push_String_Extended,0x72a ; "Element is not a Type Definition"
017b e004 | | Load 0x0,0x4
017c 8005 | | Call 0x0,0x5
017d e006 | | Load 0x0,0x6
017e 0257 | W | Execute Discrete,Raise
017f 00d8 | | Load_Top At_Offset_0
0180 8007 | | Call 0x0,0x7
0181 8008 | | Call 0x0,0x8
0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0183 0000 0000 | | .BLANK 0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018c | | .CONST 0x018c ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b 00ec | | Load_Encached Diana_Tree_Cache
018c BODY_0188:
018c 00db | | Load_Top At_Offset_3
018d 8002 | | Call 0x0,0x2
018e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
018f 00d8 | | Load_Top At_Offset_0
0190 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0191 00d8 | | Load_Top At_Offset_0
0192 4864 |Hd | Short_Literal 0x64
0193 4873 |Hs | Short_Literal 0x73
0194 0262 | b | Execute Discrete,In_Range
0195 681e |h | Jump_Zero 0x1b4
0196 0b66 | f | Execute_Immediate Case_Compare,0x66
0197 700d |p | Jump_Nonzero 0x1a5
0198 00d8 | | Load_Top At_Offset_0
0199 4867 |Hg | Short_Literal 0x67
019a 486e |Hn | Short_Literal 0x6e
019b 0262 | b | Execute Discrete,In_Range
019c 7005 |p | Jump_Nonzero 0x1a2
019d 4870 |Hp | Short_Literal 0x70
019e 4873 |Hs | Short_Literal 0x73
019f 0262 | b | Execute Discrete,In_Range
01a0 7002 |p | Jump_Nonzero 0x1a3
01a1 780b |x | Jump 0x1ad
01a2 00d1 | | Pop_Control Pop_Count_1
01a3 00db | | Load_Top At_Offset_3
01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a5 00d1 | | Pop_Control Pop_Count_1
01a6 00d8 | | Load_Top At_Offset_0
01a7 00eb | | Load_Encached Diana_Cache
01a8 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7
01a9 e009 | | Load 0x0,0x9
01aa 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01ab 8008 | | Call 0x0,0x8
01ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ad 00d8 | | Load_Top At_Offset_0
01ae 00eb | | Load_Encached Diana_Cache
01af 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7
01b0 e009 | | Load 0x0,0x9
01b1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01b2 8008 | | Call 0x0,0x8
01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b4 00d1 | | Pop_Control Pop_Count_1
01b5 0092 072a | *| Action Push_String_Extended,0x72a ; "Element is not a Type Definition"
01b7 e004 | | Load 0x0,0x4
01b8 8005 | | Call 0x0,0x5
01b9 e006 | | Load 0x0,0x6
01ba 0257 | W | Execute Discrete,Raise
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c6 | | .CONST 0x01c6 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 00ec | | Load_Encached Diana_Tree_Cache
01c4 00e1 | | Load_Encached Boolean_Cache
01c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01c6 BODY_01c0:
01c6 e5ff | | Load 0x2,-0x1
01c7 8002 | | Call 0x0,0x2
01c8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01c9 00cf | | Action Mark_Auxiliary
01ca 00da | | Load_Top At_Offset_2
01cb 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01cc 00d8 | | Load_Top At_Offset_0
01cd 4864 |Hd | Short_Literal 0x64
01ce 4873 |Hs | Short_Literal 0x73
01cf 0262 | b | Execute Discrete,In_Range
01d0 6828 |h( | Jump_Zero 0x1f9
01d1 0a9c | | Execute_Immediate Plus,-0x64
01d2 460f |F | Jump_Case 0x10
01d3 782e |x. | Jump 0x202 ; case 0x0
01d4 781c |x | Jump 0x1f1 ; case 0x1
01d5 7813 |x | Jump 0x1e9 ; case 0x2
01d6 782b |x+ | Jump 0x202 ; case 0x3
01d7 782a |x* | Jump 0x202 ; case 0x4
01d8 7829 |x) | Jump 0x202 ; case 0x5
01d9 7828 |x( | Jump 0x202 ; case 0x6
01da 7827 |x' | Jump 0x202 ; case 0x7
01db 7826 |x& | Jump 0x202 ; case 0x8
01dc 7807 |x | Jump 0x1e4 ; case 0x9
01dd 7824 |x$ | Jump 0x202 ; case 0xa
01de 7812 |x | Jump 0x1f1 ; case 0xb
01df 7822 |x" | Jump 0x202 ; case 0xc
01e0 7821 |x! | Jump 0x202 ; case 0xd
01e1 7820 |x | Jump 0x202 ; case 0xe
01e2 781f |x | Jump 0x202 ; case 0xf
01e3 781e |x | .XXX[0x1]
01e4 00da | | Load_Top At_Offset_2
01e5 00eb | | Load_Encached Diana_Cache
01e6 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
01e7 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01e8 7817 |x | Jump 0x200
01e9 00da | | Load_Top At_Offset_2
01ea 4908 |I | Short_Literal 0x108
01eb 00eb | | Load_Encached Diana_Cache
01ec 0096 | | Execute Package,Entry
01ed 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01ee 4801 |H | Short_Literal 0x1
01ef 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01f0 7811 |x | Jump 0x202
01f1 00da | | Load_Top At_Offset_2
01f2 4908 |I | Short_Literal 0x108
01f3 00eb | | Load_Encached Diana_Cache
01f4 0096 | | Execute Package,Entry
01f5 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01f6 4801 |H | Short_Literal 0x1
01f7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01f8 7809 |x | Jump 0x202
01f9 00d1 | | Pop_Control Pop_Count_1
01fa 0092 072a | *| Action Push_String_Extended,0x72a ; "Element is not a Type Definition"
01fc e004 | | Load 0x0,0x4
01fd 8005 | | Call 0x0,0x5
01fe e006 | | Load 0x0,0x6
01ff 0257 | W | Execute Discrete,Raise
0200 00c9 | | Action Pop_Auxiliary_Loop
0201 7fc8 | | Jump 0x1ca
0202 00ce | | Action Pop_Auxiliary
0203 00d8 | | Load_Top At_Offset_0
0204 6804 |h | Jump_Zero 0x209
0205 00d9 | | Load_Top At_Offset_1
0206 e009 | | Load 0x0,0x9
0207 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0208 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0209 00d9 | | Load_Top At_Offset_1
020a 8008 | | Call 0x0,0x8
020b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0216 | | .CONST 0x0216 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0003 | | .CONST 0x0003 ; Number of locals
0213 INIT_0210:
0213 00ec | | Load_Encached Diana_Tree_Cache
0214 00e1 | | Load_Encached Boolean_Cache
0215 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0216 BODY_0210:
0216 e5ff | | Load 0x2,-0x1
0217 8002 | | Call 0x0,0x2
0218 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0219 00cf | | Action Mark_Auxiliary
021a 00da | | Load_Top At_Offset_2
021b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
021c 00d8 | | Load_Top At_Offset_0
021d 4864 |Hd | Short_Literal 0x64
021e 4873 |Hs | Short_Literal 0x73
021f 0262 | b | Execute Discrete,In_Range
0220 6839 |h9 | Jump_Zero 0x25a
0221 0a9c | | Execute_Immediate Plus,-0x64
0222 460f |F | Jump_Case 0x10
0223 783f |x? | Jump 0x263 ; case 0x0
0224 782d |x- | Jump 0x252 ; case 0x1
0225 7813 |x | Jump 0x239 ; case 0x2
0226 783c |x< | Jump 0x263 ; case 0x3
0227 783b |x; | Jump 0x263 ; case 0x4
0228 783a |x: | Jump 0x263 ; case 0x5
0229 7839 |x9 | Jump 0x263 ; case 0x6
022a 7838 |x8 | Jump 0x263 ; case 0x7
022b 7837 |x7 | Jump 0x263 ; case 0x8
022c 7807 |x | Jump 0x234 ; case 0x9
022d 7835 |x5 | Jump 0x263 ; case 0xa
022e 7823 |x# | Jump 0x252 ; case 0xb
022f 7833 |x3 | Jump 0x263 ; case 0xc
0230 7832 |x2 | Jump 0x263 ; case 0xd
0231 7831 |x1 | Jump 0x263 ; case 0xe
0232 7830 |x0 | Jump 0x263 ; case 0xf
0233 782f |x/ | .XXX[0x1]
0234 00da | | Load_Top At_Offset_2
0235 00eb | | Load_Encached Diana_Cache
0236 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
0237 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0238 7828 |x( | Jump 0x261
0239 00da | | Load_Top At_Offset_2
023a 4908 |I | Short_Literal 0x108
023b 00eb | | Load_Encached Diana_Cache
023c 0096 | | Execute Package,Entry
023d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
023e 0b6e | n | Execute_Immediate Case_Compare,0x6e
023f 700a |p | Jump_Nonzero 0x24a
0240 0f72 | r | Execute_Immediate Equal,0x72
0241 7009 |p | Jump_Nonzero 0x24b
0242 00da | | Load_Top At_Offset_2
0243 4908 |I | Short_Literal 0x108
0244 00eb | | Load_Encached Diana_Cache
0245 0096 | | Execute Package,Entry
0246 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0247 4801 |H | Short_Literal 0x1
0248 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0249 7819 |x | Jump 0x263
024a 00d1 | | Pop_Control Pop_Count_1
024b 00da | | Load_Top At_Offset_2
024c 00eb | | Load_Encached Diana_Cache
024d 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7
024e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
024f 4801 |H | Short_Literal 0x1
0250 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0251 780f |x | Jump 0x261
0252 00da | | Load_Top At_Offset_2
0253 4908 |I | Short_Literal 0x108
0254 00eb | | Load_Encached Diana_Cache
0255 0096 | | Execute Package,Entry
0256 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0257 4801 |H | Short_Literal 0x1
0258 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0259 7809 |x | Jump 0x263
025a 00d1 | | Pop_Control Pop_Count_1
025b 0092 072a | *| Action Push_String_Extended,0x72a ; "Element is not a Type Definition"
025d e004 | | Load 0x0,0x4
025e 8005 | | Call 0x0,0x5
025f e006 | | Load 0x0,0x6
0260 0257 | W | Execute Discrete,Raise
0261 00c9 | | Action Pop_Auxiliary_Loop
0262 7fb7 | | Jump 0x21a
0263 00ce | | Action Pop_Auxiliary
0264 00d8 | | Load_Top At_Offset_0
0265 6804 |h | Jump_Zero 0x26a
0266 00d9 | | Load_Top At_Offset_1
0267 e009 | | Load 0x0,0x9
0268 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0269 0032 | 2 | Store_Top Heap_Access,At_Offset_2
026a 00d9 | | Load_Top At_Offset_1
026b 8008 | | Call 0x0,0x8
026c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026d 0000 0000 | | .XXX[0x3]
026f 0000 | |
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0276 | v | .CONST 0x0276 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0004 | | .CONST 0x0004 ; Number of locals
0273 INIT_0270:
0273 00ec | | Load_Encached Diana_Tree_Cache
0274 00ec | | Load_Encached Diana_Tree_Cache
0275 00ec | | Load_Encached Diana_Tree_Cache
0276 BODY_0270:
0276 e5ff | | Load 0x2,-0x1
0277 8002 | | Call 0x0,0x2
0278 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0279 00da | | Load_Top At_Offset_2
027a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
027b 0f66 | f | Execute_Immediate Equal,0x66
027c 6819 |h | Jump_Zero 0x296
027d 00da | | Load_Top At_Offset_2
027e 00eb | | Load_Encached Diana_Cache
027f 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
0280 e009 | | Load 0x0,0x9
0281 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0282 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0283 00d9 | | Load_Top At_Offset_1
0284 7003 |p | Jump_Nonzero 0x288
0285 e5ff | | Load 0x2,-0x1
0286 8210 | | Call 0x1,0x10
0287 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0288 00d9 | | Load_Top At_Offset_1
0289 8008 | | Call 0x0,0x8
028a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
028b 00d8 | | Load_Top At_Offset_0
028c 820e | | Call 0x1,0xe
028d 0e0c | | Execute_Immediate Not_Equal,0xc
028e 6802 |h | Jump_Zero 0x291
028f 00d8 | | Load_Top At_Offset_0
0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0291 00d9 | | Load_Top At_Offset_1
0292 00eb | | Load_Encached Diana_Cache
0293 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0294 8008 | | Call 0x0,0x8
0295 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0296 e5ff | | Load 0x2,-0x1
0297 8210 | | Call 0x1,0x10
0298 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 8002 | | Call 0x0,0x2
02a5 4976 |Iv | Short_Literal 0x176
02a6 00eb | | Load_Encached Diana_Cache
02a7 0098 | | Execute Package,Field_Read_Dynamic
02a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a9 4976 |Iv | Short_Literal 0x176
02aa 00eb | | Load_Encached Diana_Cache
02ab 0098 | | Execute Package,Field_Read_Dynamic
02ac 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ae 0000 0000 | | .XXX[0x2]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5 | | .CONST 0x02b5 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 8002 | | Call 0x0,0x2
02b5 BODY_02b0:
02b5 00d8 | | Load_Top At_Offset_0
02b6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02b7 4874 |Ht | Short_Literal 0x74
02b8 4876 |Hv | Short_Literal 0x76
02b9 0262 | b | Execute Discrete,In_Range
02ba 7002 |p | Jump_Nonzero 0x2bd
02bb 4800 |H | Short_Literal 0x0
02bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bd 4801 |H | Short_Literal 0x1
02be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bf 0000 | | .XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4607 |F | Jump_Case 0x8
02c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02c5 7807 |x | Jump 0x2cd ; case 0x1
02c6 780a |x | Jump 0x2d1 ; case 0x2
02c7 780e |x | Jump 0x2d6 ; case 0x3
02c8 7811 |x | Jump 0x2da ; case 0x4
02c9 7812 |x | Jump 0x2dc ; case 0x5
02ca 7813 |x | Jump 0x2de ; case 0x6
02cb 7816 |x | Jump 0x2e2 ; case 0x7
02cc 4302 |C | .XXX[0x1]
02cd 00da | | Load_Top At_Offset_2
02ce 0091 0716 | | Action Push_String_Extended_Indexed,0x716 ; "A_SIMPLE_RANGE"
02d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02d1 00db | | Load_Top At_Offset_3
02d2 00db | | Load_Top At_Offset_3
02d3 00e0 | | Load_Encached Standard_Cache
02d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02d6 00da | | Load_Top At_Offset_2
02d7 00e0 | | Load_Encached Standard_Cache
02d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02da 00db | | Load_Top At_Offset_3
02db 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02dc 00db | | Load_Top At_Offset_3
02dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02de e216 | | Load 0x1,0x16
02df 00dc | | Load_Top At_Offset_4
02e0 0267 | g | Execute Discrete,Predecessor
02e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02e2 e216 | | Load 0x1,0x16
02e3 00dc | | Load_Top At_Offset_4
02e4 0268 | h | Execute Discrete,Successor
02e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02e6 0000 0000 | | .XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed | | .CONST 0x02ed ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec 8002 | | Call 0x0,0x2
02ed BODY_02e8:
02ed 00d8 | | Load_Top At_Offset_0
02ee 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02ef 00d8 | | Load_Top At_Offset_0
02f0 0d61 | a | Execute_Immediate Less,0x61
02f1 700f |p | Jump_Nonzero 0x301
02f2 00d8 | | Load_Top At_Offset_0
02f3 0c66 | f | Execute_Immediate Greater_Equal,0x66
02f4 7009 |p | Jump_Nonzero 0x2fe
02f5 0b61 | a | Execute_Immediate Case_Compare,0x61
02f6 7017 |p | Jump_Nonzero 0x30e
02f7 0b62 | b | Execute_Immediate Case_Compare,0x62
02f8 700d |p | Jump_Nonzero 0x306
02f9 0b64 | d | Execute_Immediate Case_Compare,0x64
02fa 700e |p | Jump_Nonzero 0x309
02fb 0f65 | e | Execute_Immediate Equal,0x65
02fc 700f |p | Jump_Nonzero 0x30c
02fd 7813 |x | Jump 0x311
02fe 00d1 | | Pop_Control Pop_Count_1
02ff 4806 |H | Short_Literal 0x6
0300 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0301 480e |H | Short_Literal 0xe
0302 480f |H | Short_Literal 0xf
0303 0262 | b | Execute Discrete,In_Range
0304 700e |p | Jump_Nonzero 0x313
0305 7ff9 | | Jump 0x2ff
0306 00d1 | | Pop_Control Pop_Count_1
0307 4805 |H | Short_Literal 0x5
0308 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0309 00d1 | | Pop_Control Pop_Count_1
030a 4803 |H | Short_Literal 0x3
030b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030c 4802 |H | Short_Literal 0x2
030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030e 00d1 | | Pop_Control Pop_Count_1
030f 4800 |H | Short_Literal 0x0
0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0311 4804 |H | Short_Literal 0x4
0312 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0313 4801 |H | Short_Literal 0x1
0314 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0315 0000 0000 | | .XXX[0x3]
0317 0000 | |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d | | .CONST 0x031d ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 8002 | | Call 0x0,0x2
031d BODY_0318:
031d 00db | | Load_Top At_Offset_3
031e 8217 | | Call 0x1,0x17
031f 0e04 | | Execute_Immediate Not_Equal,0x4
0320 6806 |h | Jump_Zero 0x327
0321 0092 072b | +| Action Push_String_Extended,0x72b ; "Element is not an Index Constraint"
0323 e004 | | Load 0x0,0x4
0324 8005 | | Call 0x0,0x5
0325 e006 | | Load 0x0,0x6
0326 0257 | W | Execute Discrete,Raise
0327 00d8 | | Load_Top At_Offset_0
0328 00eb | | Load_Encached Diana_Cache
0329 1889 | | Execute Package,Field_Execute,Field_Number 0x89
032a 800a | | Call 0x0,0xa
032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032c 0000 0000 | | .BLANK 0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0335 | 5 | .CONST 0x0335 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0002 | | .CONST 0x0002 ; Number of locals
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 8002 | | Call 0x0,0x2
0335 BODY_0330:
0335 00db | | Load_Top At_Offset_3
0336 8217 | | Call 0x1,0x17
0337 0e05 | | Execute_Immediate Not_Equal,0x5
0338 6806 |h | Jump_Zero 0x33f
0339 0092 072c | ,| Action Push_String_Extended,0x72c ; "Element is not a Discriminant Constraint"
033b e004 | | Load 0x0,0x4
033c 8005 | | Call 0x0,0x5
033d e006 | | Load 0x0,0x6
033e 0257 | W | Execute Discrete,Raise
033f 00d8 | | Load_Top At_Offset_0
0340 00eb | | Load_Encached Diana_Cache
0341 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0342 800a | | Call 0x0,0xa
0343 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0344 0000 0000 | | .BLANK 0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 4607 |F | Jump_Case 0x8
034c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
034d 7807 |x | Jump 0x355 ; case 0x1
034e 780a |x | Jump 0x359 ; case 0x2
034f 780e |x | Jump 0x35e ; case 0x3
0350 7811 |x | Jump 0x362 ; case 0x4
0351 7812 |x | Jump 0x364 ; case 0x5
0352 7813 |x | Jump 0x366 ; case 0x6
0353 7816 |x | Jump 0x36a ; case 0x7
0354 4302 |C | .XXX[0x1]
0355 00da | | Load_Top At_Offset_2
0356 0091 071d | | Action Push_String_Extended_Indexed,0x71d ; "A_SIMPLE_RANGE"
0358 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0359 00db | | Load_Top At_Offset_3
035a 00db | | Load_Top At_Offset_3
035b 00e0 | | Load_Encached Standard_Cache
035c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
035d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
035e 00da | | Load_Top At_Offset_2
035f 00e0 | | Load_Encached Standard_Cache
0360 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0361 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0362 00db | | Load_Top At_Offset_3
0363 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0364 00db | | Load_Top At_Offset_3
0365 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0366 e21a | | Load 0x1,0x1a
0367 00dc | | Load_Top At_Offset_4
0368 0267 | g | Execute Discrete,Predecessor
0369 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
036a e21a | | Load 0x1,0x1a
036b 00dc | | Load_Top At_Offset_4
036c 0268 | h | Execute Discrete,Successor
036d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
036e 0000 0000 | | .XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 8002 | | Call 0x0,0x2
0375 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0376 00d8 | | Load_Top At_Offset_0
0377 0d61 | a | Execute_Immediate Less,0x61
0378 700b |p | Jump_Nonzero 0x384
0379 00d8 | | Load_Top At_Offset_0
037a 0c67 | g | Execute_Immediate Greater_Equal,0x67
037b 7005 |p | Jump_Nonzero 0x381
037c 0b61 | a | Execute_Immediate Case_Compare,0x61
037d 700d |p | Jump_Nonzero 0x38b
037e 0f66 | f | Execute_Immediate Equal,0x66
037f 7009 |p | Jump_Nonzero 0x389
0380 7801 |x | Jump 0x382
0381 00d1 | | Pop_Control Pop_Count_1
0382 4803 |H | Short_Literal 0x3
0383 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0384 480e |H | Short_Literal 0xe
0385 480f |H | Short_Literal 0xf
0386 0262 | b | Execute Discrete,In_Range
0387 7006 |p | Jump_Nonzero 0x38e
0388 7ff9 | | Jump 0x382
0389 4802 |H | Short_Literal 0x2
038a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038b 00d1 | | Pop_Control Pop_Count_1
038c 4800 |H | Short_Literal 0x0
038d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038e 4801 |H | Short_Literal 0x1
038f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0397 | | .CONST 0x0397 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0004 | | .CONST 0x0004 ; Number of locals
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 8002 | | Call 0x0,0x2
0395 00ec | | Load_Encached Diana_Tree_Cache
0396 039d | | Declare_Variable Heap_Access,Duplicate
0397 BODY_0390:
0397 00da | | Load_Top At_Offset_2
0398 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0399 00d8 | | Load_Top At_Offset_0
039a 0d61 | a | Execute_Immediate Less,0x61
039b 700f |p | Jump_Nonzero 0x3ab
039c 00d8 | | Load_Top At_Offset_0
039d 0c67 | g | Execute_Immediate Greater_Equal,0x67
039e 7005 |p | Jump_Nonzero 0x3a4
039f 0b61 | a | Execute_Immediate Case_Compare,0x61
03a0 7016 |p | Jump_Nonzero 0x3b7
03a1 0f66 | f | Execute_Immediate Equal,0x66
03a2 700d |p | Jump_Nonzero 0x3b0
03a3 7801 |x | Jump 0x3a5
03a4 00d1 | | Pop_Control Pop_Count_1
03a5 0092 072d | -| Action Push_String_Extended,0x72d ; "Element is not a Range"
03a7 e004 | | Load 0x0,0x4
03a8 8005 | | Call 0x0,0x5
03a9 e006 | | Load 0x0,0x6
03aa 0257 | W | Execute Discrete,Raise
03ab 480e |H | Short_Literal 0xe
03ac 480f |H | Short_Literal 0xf
03ad 0262 | b | Execute Discrete,In_Range
03ae 7012 |p | Jump_Nonzero 0x3c1
03af 7ff5 | | Jump 0x3a5
03b0 00ec | | Load_Encached Diana_Tree_Cache
03b1 00ec | | Load_Encached Diana_Tree_Cache
03b2 e402 | | Load 0x2,0x2
03b3 800b | | Call 0x0,0xb
03b4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03b5 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03b6 781b |x | Jump 0x3d2
03b7 00d1 | | Pop_Control Pop_Count_1
03b8 00da | | Load_Top At_Offset_2
03b9 00eb | | Load_Encached Diana_Cache
03ba 18c6 | | Execute Package,Field_Execute,Field_Number 0xc6
03bb 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03bc 00da | | Load_Top At_Offset_2
03bd 00eb | | Load_Encached Diana_Cache
03be 18c7 | | Execute Package,Field_Execute,Field_Number 0xc7
03bf 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03c0 7811 |x | Jump 0x3d2
03c1 00da | | Load_Top At_Offset_2
03c2 800c | | Call 0x0,0xc
03c3 6808 |h | Jump_Zero 0x3cc
03c4 00ec | | Load_Encached Diana_Tree_Cache
03c5 00ec | | Load_Encached Diana_Tree_Cache
03c6 e402 | | Load 0x2,0x2
03c7 800d | | Call 0x0,0xd
03c8 800b | | Call 0x0,0xb
03c9 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03ca 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03cb 7806 |x | Jump 0x3d2
03cc 0092 072d | -| Action Push_String_Extended,0x72d ; "Element is not a Range"
03ce e004 | | Load 0x0,0x4
03cf 8005 | | Call 0x0,0x5
03d0 e006 | | Load 0x0,0x6
03d1 0257 | W | Execute Discrete,Raise
03d2 00d8 | | Load_Top At_Offset_0
03d3 8008 | | Call 0x0,0x8
03d4 a5fd | | Store_Unchecked 0x2,-0x3
03d5 00d9 | | Load_Top At_Offset_1
03d6 8008 | | Call 0x0,0x8
03d7 a5fe | | Store_Unchecked 0x2,-0x2
03d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d9 0000 0000 | | .BLANK 0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 4607 |F | Jump_Case 0x8
03e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03e5 7807 |x | Jump 0x3ed ; case 0x1
03e6 780a |x | Jump 0x3f1 ; case 0x2
03e7 780e |x | Jump 0x3f6 ; case 0x3
03e8 7811 |x | Jump 0x3fa ; case 0x4
03e9 7812 |x | Jump 0x3fc ; case 0x5
03ea 7813 |x | Jump 0x3fe ; case 0x6
03eb 7816 |x | Jump 0x402 ; case 0x7
03ec 4302 |C | .XXX[0x1]
03ed 00da | | Load_Top At_Offset_2
03ee 0091 0721 | !| Action Push_String_Extended_Indexed,0x721 ; "A_SIMPLE_EXPRESSION"
03f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03f1 00db | | Load_Top At_Offset_3
03f2 00db | | Load_Top At_Offset_3
03f3 00e0 | | Load_Encached Standard_Cache
03f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03f6 00da | | Load_Top At_Offset_2
03f7 00e0 | | Load_Encached Standard_Cache
03f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03fa 00db | | Load_Top At_Offset_3
03fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03fc 00db | | Load_Top At_Offset_3
03fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03fe e21d | | Load 0x1,0x1d
03ff 00dc | | Load_Top At_Offset_4
0400 0267 | g | Execute Discrete,Predecessor
0401 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0402 e21d | | Load 0x1,0x1d
0403 00dc | | Load_Top At_Offset_4
0404 0268 | h | Execute Discrete,Successor
0405 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0406 0000 0000 | | .XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c 8002 | | Call 0x0,0x2
040d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
040e 00d8 | | Load_Top At_Offset_0
040f 0c18 | | Execute_Immediate Greater_Equal,0x18
0410 701b |p | Jump_Nonzero 0x42c
0411 4617 |F | Jump_Case 0x18
0412 7820 |x | Jump 0x433 ; case 0x0
0413 782d |x- | Jump 0x441 ; case 0x1
0414 781e |x | Jump 0x433 ; case 0x2
0415 782b |x+ | Jump 0x441 ; case 0x3
0416 781c |x | Jump 0x433 ; case 0x4
0417 7829 |x) | Jump 0x441 ; case 0x5
0418 781a |x | Jump 0x433 ; case 0x6
0419 7827 |x' | Jump 0x441 ; case 0x7
041a 7826 |x& | Jump 0x441 ; case 0x8
041b 7825 |x% | Jump 0x441 ; case 0x9
041c 7824 |x$ | Jump 0x441 ; case 0xa
041d 7823 |x# | Jump 0x441 ; case 0xb
041e 780b |x | Jump 0x42a ; case 0xc
041f 7813 |x | Jump 0x433 ; case 0xd
0420 7825 |x% | Jump 0x446 ; case 0xe
0421 7824 |x$ | Jump 0x446 ; case 0xf
0422 7810 |x | Jump 0x433 ; case 0x10
0423 780f |x | Jump 0x433 ; case 0x11
0424 7805 |x | Jump 0x42a ; case 0x12
0425 780d |x | Jump 0x433 ; case 0x13
0426 780c |x | Jump 0x433 ; case 0x14
0427 780b |x | Jump 0x433 ; case 0x15
0428 7801 |x | Jump 0x42a ; case 0x16
0429 7800 |x | Jump 0x42a ; case 0x17
042a 4803 |H | Short_Literal 0x3
042b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042c 00d8 | | Load_Top At_Offset_0
042d 0d67 | g | Execute_Immediate Less,0x67
042e 700b |p | Jump_Nonzero 0x43a
042f 00d8 | | Load_Top At_Offset_0
0430 0c88 | | Execute_Immediate Greater_Equal,-0x78
0431 7003 |p | Jump_Nonzero 0x435
0432 00d1 | | Pop_Control Pop_Count_1
0433 4804 |H | Short_Literal 0x4
0434 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0435 0b88 | | Execute_Immediate Case_Compare,0x88
0436 700c |p | Jump_Nonzero 0x443
0437 0fa4 | | Execute_Immediate Equal,-0x5c
0438 7006 |p | Jump_Nonzero 0x43f
0439 7ff9 | | Jump 0x433
043a 0b61 | a | Execute_Immediate Case_Compare,0x61
043b 7007 |p | Jump_Nonzero 0x443
043c 0f66 | f | Execute_Immediate Equal,0x66
043d 7006 |p | Jump_Nonzero 0x444
043e 7ff4 | | Jump 0x433
043f 4802 |H | Short_Literal 0x2
0440 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0441 4800 |H | Short_Literal 0x0
0442 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0443 00d1 | | Pop_Control Pop_Count_1
0444 4801 |H | Short_Literal 0x1
0445 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0446 00da | | Load_Top At_Offset_2
0447 8002 | | Call 0x0,0x2
0448 800c | | Call 0x0,0xc
0449 6802 |h | Jump_Zero 0x44c
044a 4801 |H | Short_Literal 0x1
044b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044c 4800 |H | Short_Literal 0x0
044d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00da | | Load_Top At_Offset_2
0454 821e | | Call 0x1,0x1e
0455 7002 |p | Jump_Nonzero 0x458
0456 00da | | Load_Top At_Offset_2
0457 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0458 0092 072e | .| Action Push_String_Extended,0x72e ; "Element is not a Choice Expression"
045a e004 | | Load 0x0,0x4
045b 8005 | | Call 0x0,0x5
045c e006 | | Load 0x0,0x6
045d 0257 | W | Execute Discrete,Raise
045e 0000 0000 | | .XXX[0x2]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 821e | | Call 0x1,0x1e
0465 0f01 | | Execute_Immediate Equal,0x1
0466 6802 |h | Jump_Zero 0x469
0467 00da | | Load_Top At_Offset_2
0468 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0469 0092 072f | /| Action Push_String_Extended,0x72f ; "Element is not a Choice Discrete Range"
046b e004 | | Load 0x0,0x4
046c 8005 | | Call 0x0,0x5
046d e006 | | Load 0x0,0x6
046e 0257 | W | Execute Discrete,Raise
046f 0000 | | .XXX[0x1]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00da | | Load_Top At_Offset_2
0474 821e | | Call 0x1,0x1e
0475 0f03 | | Execute_Immediate Equal,0x3
0476 6802 |h | Jump_Zero 0x479
0477 00da | | Load_Top At_Offset_2
0478 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0479 0092 0730 | 0| Action Push_String_Extended,0x730 ; "Element is not a Choice Identifier Reference"
047b e004 | | Load 0x0,0x4
047c 8005 | | Call 0x0,0x5
047d e006 | | Load 0x0,0x6
047e 0257 | W | Execute Discrete,Raise
047f 0000 | | .XXX[0x1]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0485 | | .CONST 0x0485 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0002 | | .CONST 0x0002 ; Number of locals
0483 INIT_0480:
0483 00da | | Load_Top At_Offset_2
0484 8002 | | Call 0x0,0x2
0485 BODY_0480:
0485 00d8 | | Load_Top At_Offset_0
0486 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0487 0b66 | f | Execute_Immediate Case_Compare,0x66
0488 7008 |p | Jump_Nonzero 0x491
0489 0f88 | | Execute_Immediate Equal,-0x78
048a 7007 |p | Jump_Nonzero 0x492
048b 0092 0731 | 1| Action Push_String_Extended,0x731 ; "Element is not a Subtype Indication or Index Subtype"
048d e004 | | Load 0x0,0x4
048e 8005 | | Call 0x0,0x5
048f e006 | | Load 0x0,0x6
0490 0257 | W | Execute Discrete,Raise
0491 00d1 | | Pop_Control Pop_Count_1
0492 00d8 | | Load_Top At_Offset_0
0493 00eb | | Load_Encached Diana_Cache
0494 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0495 8008 | | Call 0x0,0x8
0496 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0497 0000 | | .XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049d | | .CONST 0x049d ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0002 | | .CONST 0x0002 ; Number of locals
049b INIT_0498:
049b 00da | | Load_Top At_Offset_2
049c 8002 | | Call 0x0,0x2
049d BODY_0498:
049d 0092 0732 | 2| Action Push_String_Extended,0x732 ; "a Subtype Indication"
049f 00d9 | | Load_Top At_Offset_1
04a0 4866 |Hf | Short_Literal 0x66
04a1 823b | ; | Call 0x1,0x3b
04a2 00d8 | | Load_Top At_Offset_0
04a3 00eb | | Load_Encached Diana_Cache
04a4 18ba | | Execute Package,Field_Execute,Field_Number 0xba
04a5 8008 | | Call 0x0,0x8
04a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a7 0000 | | .XXX[0x1]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ad | | .CONST 0x04ad ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0002 | | .CONST 0x0002 ; Number of locals
04ab INIT_04a8:
04ab 00da | | Load_Top At_Offset_2
04ac 8002 | | Call 0x0,0x2
04ad BODY_04a8:
04ad 00d8 | | Load_Top At_Offset_0
04ae 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04af 0f67 | g | Execute_Immediate Equal,0x67
04b0 6802 |h | Jump_Zero 0x4b3
04b1 e00e | | Load 0x0,0xe
04b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b3 0092 0733 | 3| Action Push_String_Extended,0x733 ; "an Enumeration Type Definition"
04b5 00d9 | | Load_Top At_Offset_1
04b6 486e |Hn | Short_Literal 0x6e
04b7 823b | ; | Call 0x1,0x3b
04b8 00d8 | | Load_Top At_Offset_0
04b9 00eb | | Load_Encached Diana_Cache
04ba 1889 | | Execute Package,Field_Execute,Field_Number 0x89
04bb 800a | | Call 0x0,0xa
04bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04bd 0000 0000 | | .XXX[0x3]
04bf 0000 | |
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c5 | | .CONST 0x04c5 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0002 | | .CONST 0x0002 ; Number of locals
04c3 INIT_04c0:
04c3 00da | | Load_Top At_Offset_2
04c4 8002 | | Call 0x0,0x2
04c5 BODY_04c0:
04c5 00d8 | | Load_Top At_Offset_0
04c6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04c7 0f6a | j | Execute_Immediate Equal,0x6a
04c8 6802 |h | Jump_Zero 0x4cb
04c9 e00f | | Load 0x0,0xf
04ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04cb 0092 0734 | 4| Action Push_String_Extended,0x734 ; "an Integer Type Definition"
04cd 00d9 | | Load_Top At_Offset_1
04ce 486f |Ho | Short_Literal 0x6f
04cf 823b | ; | Call 0x1,0x3b
04d0 00d8 | | Load_Top At_Offset_0
04d1 00eb | | Load_Encached Diana_Cache
04d2 18dc | | Execute Package,Field_Execute,Field_Number 0xdc
04d3 8008 | | Call 0x0,0x8
04d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d5 0000 0000 | | .XXX[0x3]
04d7 0000 | |
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04de | | .CONST 0x04de ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0003 | | .CONST 0x0003 ; Number of locals
04db INIT_04d8:
04db 00da | | Load_Top At_Offset_2
04dc 8002 | | Call 0x0,0x2
04dd 00ec | | Load_Encached Diana_Tree_Cache
04de BODY_04d8:
04de 00d9 | | Load_Top At_Offset_1
04df 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04e0 0f66 | f | Execute_Immediate Equal,0x66
04e1 6805 |h | Jump_Zero 0x4e7
04e2 00d9 | | Load_Top At_Offset_1
04e3 00eb | | Load_Encached Diana_Cache
04e4 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
04e5 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04e6 7802 |x | Jump 0x4e9
04e7 00d9 | | Load_Top At_Offset_1
04e8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04e9 00d9 | | Load_Top At_Offset_1
04ea 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04eb 0f69 | i | Execute_Immediate Equal,0x69
04ec 6802 |h | Jump_Zero 0x4ef
04ed e00f | | Load 0x0,0xf
04ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ef 0092 0735 | 5| Action Push_String_Extended,0x735 ; "Floating Type Definition"
04f1 00d9 | | Load_Top At_Offset_1
04f2 4865 |He | Short_Literal 0x65
04f3 823b | ; | Call 0x1,0x3b
04f4 00d8 | | Load_Top At_Offset_0
04f5 00eb | | Load_Encached Diana_Cache
04f6 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
04f7 8008 | | Call 0x0,0x8
04f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04f9 0000 0000 | | .BLANK 0000[0x7]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0505 | | .CONST 0x0505 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0002 | | .CONST 0x0002 ; Number of locals
0503 INIT_0500:
0503 00da | | Load_Top At_Offset_2
0504 8002 | | Call 0x0,0x2
0505 BODY_0500:
0505 00d8 | | Load_Top At_Offset_0
0506 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0507 0f69 | i | Execute_Immediate Equal,0x69
0508 6802 |h | Jump_Zero 0x50b
0509 e00f | | Load 0x0,0xf
050a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
050b 0092 0735 | 5| Action Push_String_Extended,0x735 ; "Floating Type Definition"
050d 00d9 | | Load_Top At_Offset_1
050e 4865 |He | Short_Literal 0x65
050f 823b | ; | Call 0x1,0x3b
0510 00d8 | | Load_Top At_Offset_0
0511 00eb | | Load_Encached Diana_Cache
0512 18dd | | Execute Package,Field_Execute,Field_Number 0xdd
0513 8008 | | Call 0x0,0x8
0514 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0515 0000 0000 | | .XXX[0x3]
0517 0000 | |
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051e | | .CONST 0x051e ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0003 | | .CONST 0x0003 ; Number of locals
051b INIT_0518:
051b 00da | | Load_Top At_Offset_2
051c 8002 | | Call 0x0,0x2
051d 00ec | | Load_Encached Diana_Tree_Cache
051e BODY_0518:
051e 00d9 | | Load_Top At_Offset_1
051f 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0520 0f66 | f | Execute_Immediate Equal,0x66
0521 6805 |h | Jump_Zero 0x527
0522 00d9 | | Load_Top At_Offset_1
0523 00eb | | Load_Encached Diana_Cache
0524 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
0525 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0526 7802 |x | Jump 0x529
0527 00d9 | | Load_Top At_Offset_1
0528 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0529 00d9 | | Load_Top At_Offset_1
052a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
052b 0f68 | h | Execute_Immediate Equal,0x68
052c 6802 |h | Jump_Zero 0x52f
052d e00f | | Load 0x0,0xf
052e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052f 0092 0736 | 6| Action Push_String_Extended,0x736 ; "Fixed Type Definition"
0531 00d9 | | Load_Top At_Offset_1
0532 4864 |Hd | Short_Literal 0x64
0533 823b | ; | Call 0x1,0x3b
0534 00d8 | | Load_Top At_Offset_0
0535 00eb | | Load_Encached Diana_Cache
0536 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
0537 8008 | | Call 0x0,0x8
0538 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0539 0000 0000 | | .BLANK 0000[0x7]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0545 | E | .CONST 0x0545 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 00da | | Load_Top At_Offset_2
0544 8002 | | Call 0x0,0x2
0545 BODY_0540:
0545 00d8 | | Load_Top At_Offset_0
0546 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0547 0f68 | h | Execute_Immediate Equal,0x68
0548 6802 |h | Jump_Zero 0x54b
0549 e00f | | Load 0x0,0xf
054a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
054b 0092 0736 | 6| Action Push_String_Extended,0x736 ; "Fixed Type Definition"
054d 00d9 | | Load_Top At_Offset_1
054e 4864 |Hd | Short_Literal 0x64
054f 823b | ; | Call 0x1,0x3b
0550 00d8 | | Load_Top At_Offset_0
0551 00eb | | Load_Encached Diana_Cache
0552 18dd | | Execute Package,Field_Execute,Field_Number 0xdd
0553 8008 | | Call 0x0,0x8
0554 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0555 0000 0000 | | .XXX[0x3]
0557 0000 | |
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055d | ] | .CONST 0x055d ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0002 | | .CONST 0x0002 ; Number of locals
055b INIT_0558:
055b 00da | | Load_Top At_Offset_2
055c 8002 | | Call 0x0,0x2
055d BODY_0558:
055d 0092 0737 | 7| Action Push_String_Extended,0x737 ; "an Array Type Definition"
055f 00d9 | | Load_Top At_Offset_1
0560 486c |Hl | Short_Literal 0x6c
0561 823b | ; | Call 0x1,0x3b
0562 00d8 | | Load_Top At_Offset_0
0563 00eb | | Load_Encached Diana_Cache
0564 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
0565 00eb | | Load_Encached Diana_Cache
0566 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0567 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0568 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0569 0f88 | | Execute_Immediate Equal,-0x78
056a 0f00 | | Execute_Immediate Equal,0x0
056b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
056c 0000 0000 | | .BLANK 0000[0x4]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0575 | u | .CONST 0x0575 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0002 | | .CONST 0x0002 ; Number of locals
0573 INIT_0570:
0573 00da | | Load_Top At_Offset_2
0574 8002 | | Call 0x0,0x2
0575 BODY_0570:
0575 00db | | Load_Top At_Offset_3
0576 822a | * | Call 0x1,0x2a
0577 7006 |p | Jump_Nonzero 0x57e
0578 0092 0738 | 8| Action Push_String_Extended,0x738 ; "Element is not a Constrained Array Type"
057a e004 | | Load 0x0,0x4
057b 8005 | | Call 0x0,0x5
057c e006 | | Load 0x0,0x6
057d 0257 | W | Execute Discrete,Raise
057e 00d8 | | Load_Top At_Offset_0
057f 00eb | | Load_Encached Diana_Cache
0580 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
0581 00eb | | Load_Encached Diana_Cache
0582 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0583 800a | | Call 0x0,0xa
0584 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0585 0000 0000 | | .XXX[0x3]
0587 0000 | |
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058d | | .CONST 0x058d ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0002 | | .CONST 0x0002 ; Number of locals
058b INIT_0588:
058b 00da | | Load_Top At_Offset_2
058c 8002 | | Call 0x0,0x2
058d BODY_0588:
058d 00db | | Load_Top At_Offset_3
058e 822a | * | Call 0x1,0x2a
058f 6806 |h | Jump_Zero 0x596
0590 0092 0739 | 9| Action Push_String_Extended,0x739 ; "Element is a Constrained Array Type"
0592 e004 | | Load 0x0,0x4
0593 8005 | | Call 0x0,0x5
0594 e006 | | Load 0x0,0x6
0595 0257 | W | Execute Discrete,Raise
0596 00d8 | | Load_Top At_Offset_0
0597 00eb | | Load_Encached Diana_Cache
0598 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
0599 00eb | | Load_Encached Diana_Cache
059a 1889 | | Execute Package,Field_Execute,Field_Number 0x89
059b 800a | | Call 0x0,0xa
059c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a5 | | .CONST 0x05a5 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0002 | | .CONST 0x0002 ; Number of locals
05a3 INIT_05a0:
05a3 00da | | Load_Top At_Offset_2
05a4 8002 | | Call 0x0,0x2
05a5 BODY_05a0:
05a5 0092 0737 | 7| Action Push_String_Extended,0x737 ; "an Array Type Definition"
05a7 00d9 | | Load_Top At_Offset_1
05a8 486c |Hl | Short_Literal 0x6c
05a9 823b | ; | Call 0x1,0x3b
05aa 00d8 | | Load_Top At_Offset_0
05ab 00eb | | Load_Encached Diana_Cache
05ac 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
05ad 8008 | | Call 0x0,0x8
05ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05af 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
05b4 822f | / | Call 0x1,0x2f
05b5 8010 | | Call 0x0,0x10
05b6 0f00 | | Execute_Immediate Equal,0x0
05b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bf | | .CONST 0x05bf ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0004 | | .CONST 0x0004 ; Number of locals
05bb INIT_05b8:
05bb 00da | | Load_Top At_Offset_2
05bc 8002 | | Call 0x0,0x2
05bd 00ec | | Load_Encached Diana_Tree_Cache
05be 00ec | | Load_Encached Diana_Tree_Cache
05bf BODY_05b8:
05bf 00da | | Load_Top At_Offset_2
05c0 0145 | E | Execute Heap_Access,Diana_Tree_Kind
05c1 0b3b | ; | Execute_Immediate Case_Compare,0x3b
05c2 700a |p | Jump_Nonzero 0x5cd
05c3 4870 |Hp | Short_Literal 0x70
05c4 4872 |Hr | Short_Literal 0x72
05c5 0262 | b | Execute Discrete,In_Range
05c6 7018 |p | Jump_Nonzero 0x5df
05c7 0092 073a | :| Action Push_String_Extended,0x73a ; "Element is not a Record Type, a Private Type, a Limited Private Type, or an Incomplete Type"
05c9 e004 | | Load 0x0,0x4
05ca 8005 | | Call 0x0,0x5
05cb e006 | | Load 0x0,0x6
05cc 0257 | W | Execute Discrete,Raise
05cd 00d1 | | Pop_Control Pop_Count_1
05ce 00da | | Load_Top At_Offset_2
05cf 00eb | | Load_Encached Diana_Cache
05d0 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
05d1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05d2 00d8 | | Load_Top At_Offset_0
05d3 7007 |p | Jump_Nonzero 0x5db
05d4 00da | | Load_Top At_Offset_2
05d5 00eb | | Load_Encached Diana_Cache
05d6 18eb | | Execute Package,Field_Execute,Field_Number 0xeb
05d7 00eb | | Load_Encached Diana_Cache
05d8 1889 | | Execute Package,Field_Execute,Field_Number 0x89
05d9 800a | | Call 0x0,0xa
05da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05db 00d8 | | Load_Top At_Offset_0
05dc 8008 | | Call 0x0,0x8
05dd 822f | / | Call 0x1,0x2f
05de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05df 00da | | Load_Top At_Offset_2
05e0 00eb | | Load_Encached Diana_Cache
05e1 18fb | | Execute Package,Field_Execute,Field_Number 0xfb
05e2 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05e3 00d9 | | Load_Top At_Offset_1
05e4 6805 |h | Jump_Zero 0x5ea
05e5 00d9 | | Load_Top At_Offset_1
05e6 00eb | | Load_Encached Diana_Cache
05e7 1889 | | Execute Package,Field_Execute,Field_Number 0x89
05e8 800a | | Call 0x0,0xa
05e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ea e00e | | Load 0x0,0xe
05eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ec 0000 0000 | | .BLANK 0000[0x4]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f5 | | .CONST 0x05f5 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0002 | | .CONST 0x0002 ; Number of locals
05f3 INIT_05f0:
05f3 00da | | Load_Top At_Offset_2
05f4 8002 | | Call 0x0,0x2
05f5 BODY_05f0:
05f5 0092 073b | ;| Action Push_String_Extended,0x73b ; "a Record Type Definition"
05f7 00d9 | | Load_Top At_Offset_1
05f8 4872 |Hr | Short_Literal 0x72
05f9 823b | ; | Call 0x1,0x3b
05fa 00d8 | | Load_Top At_Offset_0
05fb 00eb | | Load_Encached Diana_Cache
05fc 1889 | | Execute Package,Field_Execute,Field_Number 0x89
05fd 800a | | Call 0x0,0xa
05fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ff 0000 | | .XXX[0x1]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 4607 |F | Jump_Case 0x8
0604 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0605 7807 |x | Jump 0x60d ; case 0x1
0606 780a |x | Jump 0x611 ; case 0x2
0607 780e |x | Jump 0x616 ; case 0x3
0608 7811 |x | Jump 0x61a ; case 0x4
0609 7812 |x | Jump 0x61c ; case 0x5
060a 7813 |x | Jump 0x61e ; case 0x6
060b 7816 |x | Jump 0x622 ; case 0x7
060c 4302 |C | .XXX[0x1]
060d 00da | | Load_Top At_Offset_2
060e 0091 0726 | &| Action Push_String_Extended_Indexed,0x726 ; "A_NULL_COMPONENT"
0610 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0611 00db | | Load_Top At_Offset_3
0612 00db | | Load_Top At_Offset_3
0613 00e0 | | Load_Encached Standard_Cache
0614 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0615 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0616 00da | | Load_Top At_Offset_2
0617 00e0 | | Load_Encached Standard_Cache
0618 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0619 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
061a 00db | | Load_Top At_Offset_3
061b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
061c 00db | | Load_Top At_Offset_3
061d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
061e e231 | 1 | Load 0x1,0x31
061f 00dc | | Load_Top At_Offset_4
0620 0267 | g | Execute Discrete,Predecessor
0621 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0622 e231 | 1 | Load 0x1,0x31
0623 00dc | | Load_Top At_Offset_4
0624 0268 | h | Execute Discrete,Successor
0625 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0626 0000 0000 | | .XXX[0x2]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062d | - | .CONST 0x062d ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0002 | | .CONST 0x0002 ; Number of locals
062b INIT_0628:
062b 00da | | Load_Top At_Offset_2
062c 8002 | | Call 0x0,0x2
062d BODY_0628:
062d 00d8 | | Load_Top At_Offset_0
062e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
062f 0b39 | 9 | Execute_Immediate Case_Compare,0x39
0630 7006 |p | Jump_Nonzero 0x637
0631 0ba6 | | Execute_Immediate Case_Compare,0xa6
0632 7012 |p | Jump_Nonzero 0x645
0633 0fa5 | | Execute_Immediate Equal,-0x5b
0634 7013 |p | Jump_Nonzero 0x648
0635 4803 |H | Short_Literal 0x3
0636 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0637 00d1 | | Pop_Control Pop_Count_1
0638 00d8 | | Load_Top At_Offset_0
0639 00eb | | Load_Encached Diana_Cache
063a 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
063b 00eb | | Load_Encached Diana_Cache
063c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
063d 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
063e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
063f 0f1c | | Execute_Immediate Equal,0x1c
0640 6802 |h | Jump_Zero 0x643
0641 4801 |H | Short_Literal 0x1
0642 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0643 4803 |H | Short_Literal 0x3
0644 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0645 00d1 | | Pop_Control Pop_Count_1
0646 4802 |H | Short_Literal 0x2
0647 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0648 4800 |H | Short_Literal 0x0
0649 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
064a 0000 0000 | | .BLANK 0000[0x6]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0655 | U | .CONST 0x0655 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0002 | | .CONST 0x0002 ; Number of locals
0653 INIT_0650:
0653 00da | | Load_Top At_Offset_2
0654 8002 | | Call 0x0,0x2
0655 BODY_0650:
0655 0092 073c | <| Action Push_String_Extended,0x73c ; "a Variant Record Component"
0657 00d9 | | Load_Top At_Offset_1
0658 48a6 |H | Short_Literal 0xa6
0659 823b | ; | Call 0x1,0x3b
065a 00d8 | | Load_Top At_Offset_0
065b 00eb | | Load_Encached Diana_Cache
065c 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
065d 8008 | | Call 0x0,0x8
065e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
065f 0000 | | .XXX[0x1]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0665 | e | .CONST 0x0665 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0002 | | .CONST 0x0002 ; Number of locals
0663 INIT_0660:
0663 00da | | Load_Top At_Offset_2
0664 8002 | | Call 0x0,0x2
0665 BODY_0660:
0665 0092 073c | <| Action Push_String_Extended,0x73c ; "a Variant Record Component"
0667 00d9 | | Load_Top At_Offset_1
0668 48a6 |H | Short_Literal 0xa6
0669 823b | ; | Call 0x1,0x3b
066a 00d8 | | Load_Top At_Offset_0
066b 00eb | | Load_Encached Diana_Cache
066c 18ea | | Execute Package,Field_Execute,Field_Number 0xea
066d 00eb | | Load_Encached Diana_Cache
066e 1889 | | Execute Package,Field_Execute,Field_Number 0x89
066f 800a | | Call 0x0,0xa
0670 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0671 0000 0000 | | .BLANK 0000[0x7]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067d | } | .CONST 0x067d ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0002 | | .CONST 0x0002 ; Number of locals
067b INIT_0678:
067b 00da | | Load_Top At_Offset_2
067c 8002 | | Call 0x0,0x2
067d BODY_0678:
067d 0092 073c | <| Action Push_String_Extended,0x73c ; "a Variant Record Component"
067f 00d9 | | Load_Top At_Offset_1
0680 489a |H | Short_Literal 0x9a
0681 823b | ; | Call 0x1,0x3b
0682 00d8 | | Load_Top At_Offset_0
0683 00eb | | Load_Encached Diana_Cache
0684 18b7 | | Execute Package,Field_Execute,Field_Number 0xb7
0685 00eb | | Load_Encached Diana_Cache
0686 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0687 800a | | Call 0x0,0xa
0688 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0689 0000 0000 | | .BLANK 0000[0x7]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0695 | | .CONST 0x0695 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0002 | | .CONST 0x0002 ; Number of locals
0693 INIT_0690:
0693 00da | | Load_Top At_Offset_2
0694 8002 | | Call 0x0,0x2
0695 BODY_0690:
0695 0092 073c | <| Action Push_String_Extended,0x73c ; "a Variant Record Component"
0697 00d9 | | Load_Top At_Offset_1
0698 489a |H | Short_Literal 0x9a
0699 823b | ; | Call 0x1,0x3b
069a 00d8 | | Load_Top At_Offset_0
069b 00eb | | Load_Encached Diana_Cache
069c 18de | | Execute Package,Field_Execute,Field_Number 0xde
069d 00eb | | Load_Encached Diana_Cache
069e 1889 | | Execute Package,Field_Execute,Field_Number 0x89
069f 800a | | Call 0x0,0xa
06a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06a1 0000 0000 | | .BLANK 0000[0x7]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ad | | .CONST 0x06ad ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0002 | | .CONST 0x0002 ; Number of locals
06ab INIT_06a8:
06ab 00da | | Load_Top At_Offset_2
06ac 8002 | | Call 0x0,0x2
06ad BODY_06a8:
06ad 0092 073d | =| Action Push_String_Extended,0x73d ; "an Access Type Definition"
06af 00d9 | | Load_Top At_Offset_1
06b0 486b |Hk | Short_Literal 0x6b
06b1 823b | ; | Call 0x1,0x3b
06b2 00d8 | | Load_Top At_Offset_0
06b3 00eb | | Load_Encached Diana_Cache
06b4 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
06b5 8008 | | Call 0x0,0x8
06b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06b7 0000 | | .XXX[0x1]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bd | | .CONST 0x06bd ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0002 | | .CONST 0x0002 ; Number of locals
06bb INIT_06b8:
06bb 00da | | Load_Top At_Offset_2
06bc 8002 | | Call 0x0,0x2
06bd BODY_06b8:
06bd 0092 073e | >| Action Push_String_Extended,0x73e ; "a Derived Type Definition"
06bf 00d9 | | Load_Top At_Offset_1
06c0 486d |Hm | Short_Literal 0x6d
06c1 823b | ; | Call 0x1,0x3b
06c2 00d8 | | Load_Top At_Offset_0
06c3 00eb | | Load_Encached Diana_Cache
06c4 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
06c5 8008 | | Call 0x0,0x8
06c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c7 0000 | | .XXX[0x1]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cd | | .CONST 0x06cd ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0002 | | .CONST 0x0002 ; Number of locals
06cb INIT_06c8:
06cb 00da | | Load_Top At_Offset_2
06cc 8002 | | Call 0x0,0x2
06cd BODY_06c8:
06cd 0092 073f | ?| Action Push_String_Extended,0x73f ; "a Task Specification"
06cf 00d9 | | Load_Top At_Offset_1
06d0 4873 |Hs | Short_Literal 0x73
06d1 823b | ; | Call 0x1,0x3b
06d2 00d8 | | Load_Top At_Offset_0
06d3 00eb | | Load_Encached Diana_Cache
06d4 18bc | | Execute Package,Field_Execute,Field_Number 0xbc
06d5 00eb | | Load_Encached Diana_Cache
06d6 1889 | | Execute Package,Field_Execute,Field_Number 0x89
06d7 800a | | Call 0x0,0xa
06d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06d9 0000 0000 | | .BLANK 0000[0x7]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3 | | .CONST 0x06e3 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0001 | | .CONST 0x0001 ; Number of locals
06e3 BODY_06e0:
06e3 INIT_06e0:
06e3 00db | | Load_Top At_Offset_3
06e4 8011 | | Call 0x0,0x11
06e5 00db | | Load_Top At_Offset_3
06e6 027f | | Execute Discrete,Equal
06e7 700b |p | Jump_Nonzero 0x6f3
06e8 0092 0740 | @| Action Push_String_Extended,0x740 ; "Element is not "
06ea 00db | | Load_Top At_Offset_3
06eb e012 | | Load 0x0,0x12
06ec 011c | | Execute Any,Convert_Unchecked
06ed 1c01 | | Execute_Immediate Run_Utility,0x1
06ee 01cc | | Execute Vector,Catenate
06ef e004 | | Load 0x0,0x4
06f0 8005 | | Call 0x0,0x5
06f1 e006 | | Load 0x0,0x6
06f2 0257 | W | Execute Discrete,Raise
06f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06f4 0000 0000 | | .BLANK 0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb 00db | | Load_Top At_Offset_3
06fc 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06fd 00db | | Load_Top At_Offset_3
06fe 027f | | Execute Discrete,Equal
06ff 7008 |p | Jump_Nonzero 0x708
0700 0092 0740 | @| Action Push_String_Extended,0x740 ; "Element is not "
0702 e5fd | | Load 0x2,-0x3
0703 01cc | | Execute Vector,Catenate
0704 e004 | | Load 0x0,0x4
0705 8005 | | Call 0x0,0x5
0706 e006 | | Load 0x0,0x6
0707 0257 | W | Execute Discrete,Raise
0708 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0709 ; --------------------------------------------------------------------------------------
0709 ; STRING TABLE
0709 ; --------------------------------------------------------------------------------------
0709 0072 | r | .STRTAB 0x0072->0x0742 ; "A_SUBTYPE_INDICATION"
070a 0084 | | .STRTAB 0x0084->0x074c ; "AN_ENUMERATION_TYPE_DEFINITION"
070b 00a0 | | .STRTAB 0x00a0->0x075b ; "AN_INTEGER_TYPE_DEFINITION"
070c 00b8 | | .STRTAB 0x00b8->0x0768 ; "A_FLOAT_TYPE_DEFINITION"
070d 00cd | | .STRTAB 0x00cd->0x0773 ; "A_FIXED_TYPE_DEFINITION"
070e 00e2 | | .STRTAB 0x00e2->0x077f ; "AN_ARRAY_TYPE_DEFINITION"
070f 00f8 | | .STRTAB 0x00f8->0x078b ; "A_RECORD_TYPE_DEFINITION"
0710 010e | | .STRTAB 0x010e->0x0797 ; "AN_ACCESS_TYPE_DEFINITION"
0711 0125 | % | .STRTAB 0x0125->0x07a3 ; "A_DERIVED_TYPE_DEFINITION"
0712 013c | < | .STRTAB 0x013c->0x07b0 ; "A_TASK_TYPE_DEFINITION"
0713 0150 | P | .STRTAB 0x0150->0x07bb ; "A_PRIVATE_TYPE_DEFINITION"
0714 0167 | g | .STRTAB 0x0167->0x07c7 ; "A_LIMITED_PRIVATE_TYPE_DEFINITION"
0715 0186 | | .STRTAB 0x0186->0x07d8 ; "NOT_A_TYPE_DEFINITION"
0716 0199 | | .STRTAB 0x0199->0x07e2 ; "A_SIMPLE_RANGE"
0717 01a5 | | .STRTAB 0x01a5->0x07e9 ; "A_RANGE_ATTRIBUTE"
0718 01b4 | | .STRTAB 0x01b4->0x07f2 ; "A_FLOATING_POINT_CONSTRAINT"
0719 01cd | | .STRTAB 0x01cd->0x07ff ; "A_FIXED_POINT_CONSTRAINT"
071a 01e3 | | .STRTAB 0x01e3->0x080b ; "AN_INDEX_CONSTRAINT"
071b 01f4 | | .STRTAB 0x01f4->0x0815 ; "A_DISCRIMINANT_CONSTRAINT"
071c 020b | | .STRTAB 0x020b->0x0821 ; "NOT_A_CONSTRAINT"
071d 0219 | | .STRTAB 0x0219->0x0829 ; "A_SIMPLE_RANGE"
071e 0225 | % | .STRTAB 0x0225->0x0830 ; "A_RANGE_ATTRIBUTE"
071f 0234 | 4 | .STRTAB 0x0234->0x0839 ; "A_SUBTYPE_INDICATION"
0720 0246 | F | .STRTAB 0x0246->0x0843 ; "NOT_A_RANGE"
0721 024f | O | .STRTAB 0x024f->0x0848 ; "A_SIMPLE_EXPRESSION"
0722 0260 | ` | .STRTAB 0x0260->0x0852 ; "A_DISCRETE_RANGE"
0723 026e | n | .STRTAB 0x026e->0x085a ; "OTHERS_CHOICE"
0724 0279 | y | .STRTAB 0x0279->0x0860 ; "AN_IDENTIFIER_REFERENCE"
0725 028e | | .STRTAB 0x028e->0x086c ; "NOT_A_CHOICE"
0726 0298 | | .STRTAB 0x0298->0x0872 ; "A_NULL_COMPONENT"
0727 02a6 | | .STRTAB 0x02a6->0x087a ; "A_VARIABLE_COMPONENT"
0728 02b8 | | .STRTAB 0x02b8->0x0884 ; "A_VARIANT_PART_COMPONENT"
0729 02ce | | .STRTAB 0x02ce->0x0890 ; "NOT_A_COMPONENT"
072a 02db | | .STRTAB 0x02db->0x0897 ; "Element is not a Type Definition"
072b 02f9 | | .STRTAB 0x02f9->0x08a7 ; "Element is not an Index Constraint"
072c 0319 | | .STRTAB 0x0319->0x08b8 ; "Element is not a Discriminant Constraint"
072d 033f | ? | .STRTAB 0x033f->0x08cc ; "Element is not a Range"
072e 0353 | S | .STRTAB 0x0353->0x08d7 ; "Element is not a Choice Expression"
072f 0373 | s | .STRTAB 0x0373->0x08e8 ; "Element is not a Choice Discrete Range"
0730 0397 | | .STRTAB 0x0397->0x08fb ; "Element is not a Choice Identifier Reference"
0731 03c1 | | .STRTAB 0x03c1->0x0911 ; "Element is not a Subtype Indication or Index Subtype"
0732 03f3 | | .STRTAB 0x03f3->0x092b ; "a Subtype Indication"
0733 0405 | | .STRTAB 0x0405->0x0935 ; "an Enumeration Type Definition"
0734 0421 | ! | .STRTAB 0x0421->0x0944 ; "an Integer Type Definition"
0735 0439 | 9 | .STRTAB 0x0439->0x0951 ; "Floating Type Definition"
0736 044f | O | .STRTAB 0x044f->0x095d ; "Fixed Type Definition"
0737 0462 | b | .STRTAB 0x0462->0x0968 ; "an Array Type Definition"
0738 0478 | x | .STRTAB 0x0478->0x0974 ; "Element is not a Constrained Array Type"
0739 049d | | .STRTAB 0x049d->0x0987 ; "Element is a Constrained Array Type"
073a 04be | | .STRTAB 0x04be->0x0999 ; "Element is not a Record Type, a Private Type, a Limited Private Type, or an Incomplete Type"
073b 0517 | | .STRTAB 0x0517->0x09c6 ; "a Record Type Definition"
073c 052d | - | .STRTAB 0x052d->0x09d2 ; "a Variant Record Component"
073d 0545 | E | .STRTAB 0x0545->0x09df ; "an Access Type Definition"
073e 055c | \ | .STRTAB 0x055c->0x09ec ; "a Derived Type Definition"
073f 0573 | s | .STRTAB 0x0573->0x09f8 ; "a Task Specification"
0740 0585 | | .STRTAB 0x0585->0x0a02 ; "Element is not "
0741 0592 | | .STREND 0x0592->0x0a0a
0742 415f 5355 |A_SU| .STRTAB_STRINGS
0a0a 0000 0000 | | .BLANK 0000[0x6]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; Debug Table
0a10 ; --------------------------------------------------------------------------------------
0a10 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d90,0x0000,0x0001,0x0000
0a16 0000 0000 | | .BLANK 0000[0x1ea]