|
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: 5120 (0x1400)
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 08a0 | | .CONST 0x08a0 ; 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 00f1 | | .CONST 0x00f1 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0046 | F | .CONST 0x0046 ; Number of locals
000b INIT_0008:
000b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
000d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
000f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0011 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0015 4800 |H | Short_Literal 0x0
0016 4813 |H | Short_Literal 0x13
0017 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
001c 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
001e 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0020 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0022 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0024 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0026 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0028 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
002a 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
002c 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
002e 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0030 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0032 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0034 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0036 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0038 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
003a 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
003c 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
003e 4800 |H | Short_Literal 0x0
003f 4802 |H | Short_Literal 0x2
0040 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0042 03fe | | Declare_Type Discrete,Defined,Visible
0043 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0045 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0047 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0049 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
004b 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
004d 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
004f 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0051 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0053 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
0055 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
0057 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0059 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
005b 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
005d 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
005f 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
0061 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated
0063 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
0065 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
0067 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated
0069 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
006b 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
006d 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated
006f 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0071 4800 |H | Short_Literal 0x0
0072 4803 |H | Short_Literal 0x3
0073 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
0075 03fe | | Declare_Type Discrete,Defined,Visible
0076 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated
0078 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
007a 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
007c 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
007e 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated
0080 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
0082 00bf | | Action Accept_Activation
0083 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
0085 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0086 00c7 | | Action Elaborate_Subprogram
0087 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0088 00c7 | | Action Elaborate_Subprogram
0089 1d0d | | Execute_Immediate Reference_Lex_1,0xd
008a 00c7 | | Action Elaborate_Subprogram
008b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
008c 00c7 | | Action Elaborate_Subprogram
008d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
008e 00c7 | | Action Elaborate_Subprogram
008f 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0090 00c7 | | Action Elaborate_Subprogram
0091 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0092 00c7 | | Action Elaborate_Subprogram
0093 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0094 00c7 | | Action Elaborate_Subprogram
0095 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0096 00c7 | | Action Elaborate_Subprogram
0097 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0098 00c7 | | Action Elaborate_Subprogram
0099 1d18 | | Execute_Immediate Reference_Lex_1,0x18
009a 00c7 | | Action Elaborate_Subprogram
009b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
009c 00c7 | | Action Elaborate_Subprogram
009d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
009e 00c7 | | Action Elaborate_Subprogram
009f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00da 00c7 | | Action Elaborate_Subprogram
00db 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
00dc 00c7 | | Action Elaborate_Subprogram
00dd 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
00de 00c7 | | Action Elaborate_Subprogram
00df 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
00e0 00c7 | | Action Elaborate_Subprogram
00e1 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
00e3 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
00e5 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
00f0 00c7 | | Action Elaborate_Subprogram
00f1 BODY_0008:
00f1 00bc | | Action Signal_Activated
00f2 00bb | | Action Signal_Completion
00f3 0000 0000 | | .BLANK 0000[0x5]
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 8002 | | Call 0x0,0x2
00fd 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00fe 0f57 | W | Execute_Immediate Equal,0x57
00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105 | | .CONST 0x0105 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 8002 | | Call 0x0,0x2
0105 BODY_0100:
0105 00d8 | | Load_Top At_Offset_0
0106 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0107 0f57 | W | Execute_Immediate Equal,0x57
0108 6807 |h | Jump_Zero 0x110
0109 00d8 | | Load_Top At_Offset_0
010a 00eb | | Load_Encached Diana_Cache
010b 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
010c 00eb | | Load_Encached Diana_Cache
010d 1888 | | Execute Package,Field_Execute,Field_Number 0x88
010e 8003 | | Call 0x0,0x3
010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0110 e004 | | Load 0x0,0x4
0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011d | | .CONST 0x011d ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 8002 | | Call 0x0,0x2
011d BODY_0118:
011d 00d8 | | Load_Top At_Offset_0
011e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
011f 0f57 | W | Execute_Immediate Equal,0x57
0120 6806 |h | Jump_Zero 0x127
0121 00d8 | | Load_Top At_Offset_0
0122 00eb | | Load_Encached Diana_Cache
0123 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
0124 8005 | | Call 0x0,0x5
0125 8006 | | Call 0x0,0x6
0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0127 00ea | | Load_Encached Null_String_Cache
0128 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0134 | 4 | .CONST 0x0134 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 00ec | | Load_Encached Diana_Tree_Cache
0134 BODY_0130:
0134 00db | | Load_Top At_Offset_3
0135 8002 | | Call 0x0,0x2
0136 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0137 00cf | | Action Mark_Auxiliary
0138 00d9 | | Load_Top At_Offset_1
0139 0145 | E | Execute Heap_Access,Diana_Tree_Kind
013a 0b58 | X | Execute_Immediate Case_Compare,0x58
013b 7004 |p | Jump_Nonzero 0x140
013c 0f57 | W | Execute_Immediate Equal,0x57
013d 7005 |p | Jump_Nonzero 0x143
013e 4800 |H | Short_Literal 0x0
013f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0140 00d1 | | Pop_Control Pop_Count_1
0141 4801 |H | Short_Literal 0x1
0142 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0143 00d9 | | Load_Top At_Offset_1
0144 00eb | | Load_Encached Diana_Cache
0145 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0146 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0147 00c9 | | Action Pop_Auxiliary_Loop
0148 7fef | | Jump 0x138
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0154 | T | .CONST 0x0154 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 00ec | | Load_Encached Diana_Tree_Cache
0154 BODY_0150:
0154 00db | | Load_Top At_Offset_3
0155 8002 | | Call 0x0,0x2
0156 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0157 00cf | | Action Mark_Auxiliary
0158 00d9 | | Load_Top At_Offset_1
0159 0145 | E | Execute Heap_Access,Diana_Tree_Kind
015a 0b58 | X | Execute_Immediate Case_Compare,0x58
015b 7004 |p | Jump_Nonzero 0x160
015c 0f57 | W | Execute_Immediate Equal,0x57
015d 7008 |p | Jump_Nonzero 0x166
015e e007 | | Load 0x0,0x7
015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0160 00d1 | | Pop_Control Pop_Count_1
0161 00d9 | | Load_Top At_Offset_1
0162 00eb | | Load_Encached Diana_Cache
0163 1885 | | Execute Package,Field_Execute,Field_Number 0x85
0164 8005 | | Call 0x0,0x5
0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0166 00d9 | | Load_Top At_Offset_1
0167 00eb | | Load_Encached Diana_Cache
0168 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0169 0032 | 2 | Store_Top Heap_Access,At_Offset_2
016a 00c9 | | Action Pop_Auxiliary_Loop
016b 7fec | | Jump 0x158
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4607 |F | Jump_Case 0x8
0174 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0175 7807 |x | Jump 0x17d ; case 0x1
0176 780a |x | Jump 0x181 ; case 0x2
0177 780e |x | Jump 0x186 ; case 0x3
0178 7811 |x | Jump 0x18a ; case 0x4
0179 7812 |x | Jump 0x18c ; case 0x5
017a 7813 |x | Jump 0x18e ; case 0x6
017b 7816 |x | Jump 0x192 ; case 0x7
017c 4302 |C | .XXX[0x1]
017d 00da | | Load_Top At_Offset_2
017e 0091 0696 | | Action Push_String_Extended_Indexed,0x696 ; "A_NULL_STATEMENT"
0180 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0181 00db | | Load_Top At_Offset_3
0182 00db | | Load_Top At_Offset_3
0183 00e0 | | Load_Encached Standard_Cache
0184 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0185 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0186 00da | | Load_Top At_Offset_2
0187 00e0 | | Load_Encached Standard_Cache
0188 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0189 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
018a 00db | | Load_Top At_Offset_3
018b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018c 00db | | Load_Top At_Offset_3
018d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018e e212 | | Load 0x1,0x12
018f 00dc | | Load_Top At_Offset_4
0190 0267 | g | Execute Discrete,Predecessor
0191 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0192 e212 | | Load 0x1,0x12
0193 00dc | | Load_Top At_Offset_4
0194 0268 | h | Execute Discrete,Successor
0195 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019e | | .CONST 0x019e ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b 00ec | | Load_Encached Diana_Tree_Cache
019c 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call
019e BODY_0198:
019e 4800 |H | Short_Literal 0x0
019f e5ff | | Load 0x2,-0x1
01a0 8244 | D | Call 0x1,0x44
01a1 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01a2 8403 | | Call 0x2,0x3
01a3 0831 | 1 | Execute_Immediate Raise,0x31
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 484d |HM | Short_Literal 0x4d
01ac 00db | | Load_Top At_Offset_3
01ad 8244 | D | Call 0x1,0x44
01ae 00eb | | Load_Encached Diana_Cache
01af 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
01b0 8005 | | Call 0x0,0x5
01b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 484d |HM | Short_Literal 0x4d
01bc 00db | | Load_Top At_Offset_3
01bd 8244 | D | Call 0x1,0x44
01be 00eb | | Load_Encached Diana_Cache
01bf 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
01c0 8005 | | Call 0x0,0x5
01c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c2 0000 0000 | | .BLANK 0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4854 |HT | Short_Literal 0x54
01cc 00db | | Load_Top At_Offset_3
01cd 8244 | D | Call 0x1,0x44
01ce 00eb | | Load_Encached Diana_Cache
01cf 18d6 | | Execute Package,Field_Execute,Field_Number 0xd6
01d0 8005 | | Call 0x0,0x5
01d1 8006 | | Call 0x0,0x6
01d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4854 |HT | Short_Literal 0x54
01dc 00db | | Load_Top At_Offset_3
01dd 8244 | D | Call 0x1,0x44
01de 00eb | | Load_Encached Diana_Cache
01df 18ca | | Execute Package,Field_Execute,Field_Number 0xca
01e0 8005 | | Call 0x0,0x5
01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4854 |HT | Short_Literal 0x54
01ec 00db | | Load_Top At_Offset_3
01ed 8244 | D | Call 0x1,0x44
01ee 4905 |I | Short_Literal 0x105
01ef 00eb | | Load_Encached Diana_Cache
01f0 0096 | | Execute Package,Entry
01f1 e008 | | Load 0x0,0x8
01f2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01f3 8005 | | Call 0x0,0x5
01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 485d |H] | Short_Literal 0x5d
01fc 00db | | Load_Top At_Offset_3
01fd 8244 | D | Call 0x1,0x44
01fe 00eb | | Load_Encached Diana_Cache
01ff 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0200 8005 | | Call 0x0,0x5
0201 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 4855 |HU | Short_Literal 0x55
020c 00db | | Load_Top At_Offset_3
020d 8244 | D | Call 0x1,0x44
020e 00eb | | Load_Encached Diana_Cache
020f 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0210 8005 | | Call 0x0,0x5
0211 8006 | | Call 0x0,0x6
0212 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4801 |H | Short_Literal 0x1
021c 4855 |HU | Short_Literal 0x55
021d e5ff | | Load 0x2,-0x1
021e 8244 | D | Call 0x1,0x44
021f e009 | | Load 0x0,0x9
0220 180e | | Execute Package,Field_Execute,Field_Number 0xe
0221 8005 | | Call 0x0,0x5
0222 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0223 0000 0000 | | .BLANK 0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 4856 |HV | Short_Literal 0x56
022c 00db | | Load_Top At_Offset_3
022d 8244 | D | Call 0x1,0x44
022e 00eb | | Load_Encached Diana_Cache
022f 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0230 8003 | | Call 0x0,0x3
0231 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0232 0000 0000 | | .BLANK 0000[0x6]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c 8002 | | Call 0x0,0x2
023d BODY_0238:
023d 00d8 | | Load_Top At_Offset_0
023e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
023f 0fa1 | | Execute_Immediate Equal,-0x5f
0240 6806 |h | Jump_Zero 0x247
0241 00d8 | | Load_Top At_Offset_0
0242 00eb | | Load_Encached Diana_Cache
0243 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0244 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0245 0f00 | | Execute_Immediate Equal,0x0
0246 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0247 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Element is not an IF Statement arm"
0249 e00a | | Load 0x0,0xa
024a 800b | | Call 0x0,0xb
024b e00c | | Load 0x0,0xc
024c 0257 | W | Execute Discrete,Raise
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0255 | U | .CONST 0x0255 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 8002 | | Call 0x0,0x2
0255 BODY_0250:
0255 00d8 | | Load_Top At_Offset_0
0256 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0257 0fa1 | | Execute_Immediate Equal,-0x5f
0258 6805 |h | Jump_Zero 0x25e
0259 00d8 | | Load_Top At_Offset_0
025a 00eb | | Load_Encached Diana_Cache
025b 18ca | | Execute Package,Field_Execute,Field_Number 0xca
025c 8005 | | Call 0x0,0x5
025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025e 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Element is not an IF Statement arm"
0260 e00a | | Load 0x0,0xa
0261 800b | | Call 0x0,0xb
0262 e00c | | Load 0x0,0xc
0263 0257 | W | Execute Discrete,Raise
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026d | m | .CONST 0x026d ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 8002 | | Call 0x0,0x2
026d BODY_0268:
026d 00d8 | | Load_Top At_Offset_0
026e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
026f 0fa1 | | Execute_Immediate Equal,-0x5f
0270 6807 |h | Jump_Zero 0x278
0271 00d8 | | Load_Top At_Offset_0
0272 00eb | | Load_Encached Diana_Cache
0273 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0274 00eb | | Load_Encached Diana_Cache
0275 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0276 8003 | | Call 0x0,0x3
0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0278 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Element is not an IF Statement arm"
027a e00a | | Load 0x0,0xa
027b 800b | | Call 0x0,0xb
027c e00c | | Load 0x0,0xc
027d 0257 | W | Execute Discrete,Raise
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 484f |HO | Short_Literal 0x4f
0284 00db | | Load_Top At_Offset_3
0285 8244 | D | Call 0x1,0x44
0286 00eb | | Load_Encached Diana_Cache
0287 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
0288 8005 | | Call 0x0,0x5
0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028a 0000 0000 | | .BLANK 0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 484f |HO | Short_Literal 0x4f
0294 00db | | Load_Top At_Offset_3
0295 8244 | D | Call 0x1,0x44
0296 00eb | | Load_Encached Diana_Cache
0297 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
0298 00eb | | Load_Encached Diana_Cache
0299 1889 | | Execute Package,Field_Execute,Field_Number 0x89
029a 8003 | | Call 0x0,0x3
029b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5 | | .CONST 0x02a5 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 8002 | | Call 0x0,0x2
02a5 BODY_02a0:
02a5 00d8 | | Load_Top At_Offset_0
02a6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02a7 0f9f | | Execute_Immediate Equal,-0x61
02a8 6809 |h | Jump_Zero 0x2b2
02a9 00d8 | | Load_Top At_Offset_0
02aa 00eb | | Load_Encached Diana_Cache
02ab 18b7 | | Execute Package,Field_Execute,Field_Number 0xb7
02ac 00eb | | Load_Encached Diana_Cache
02ad 1889 | | Execute Package,Field_Execute,Field_Number 0x89
02ae 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
02af 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02b0 0fa4 | | Execute_Immediate Equal,-0x5c
02b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b2 4800 |H | Short_Literal 0x0
02b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd | | .CONST 0x02bd ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 8002 | | Call 0x0,0x2
02bd BODY_02b8:
02bd 00d8 | | Load_Top At_Offset_0
02be 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02bf 0f9f | | Execute_Immediate Equal,-0x61
02c0 6807 |h | Jump_Zero 0x2c8
02c1 00d8 | | Load_Top At_Offset_0
02c2 00eb | | Load_Encached Diana_Cache
02c3 18b7 | | Execute Package,Field_Execute,Field_Number 0xb7
02c4 00eb | | Load_Encached Diana_Cache
02c5 1889 | | Execute Package,Field_Execute,Field_Number 0x89
02c6 8003 | | Call 0x0,0x3
02c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c8 0092 06b2 | | Action Push_String_Extended,0x6b2 ; "Element is not a Case Alternative"
02ca e00a | | Load 0x0,0xa
02cb 800b | | Call 0x0,0xb
02cc e00c | | Load 0x0,0xc
02cd 0257 | W | Execute Discrete,Raise
02ce 0000 0000 | | .XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d5 | | .CONST 0x02d5 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 8002 | | Call 0x0,0x2
02d5 BODY_02d0:
02d5 00d8 | | Load_Top At_Offset_0
02d6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02d7 0f9f | | Execute_Immediate Equal,-0x61
02d8 6807 |h | Jump_Zero 0x2e0
02d9 00d8 | | Load_Top At_Offset_0
02da 00eb | | Load_Encached Diana_Cache
02db 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
02dc 00eb | | Load_Encached Diana_Cache
02dd 1889 | | Execute Package,Field_Execute,Field_Number 0x89
02de 8003 | | Call 0x0,0x3
02df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e0 0092 06b2 | | Action Push_String_Extended,0x6b2 ; "Element is not a Case Alternative"
02e2 e00a | | Load 0x0,0xa
02e3 800b | | Call 0x0,0xb
02e4 e00c | | Load 0x0,0xc
02e5 0257 | W | Execute Discrete,Raise
02e6 0000 0000 | | .XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4607 |F | Jump_Case 0x8
02ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02ed 7807 |x | Jump 0x2f5 ; case 0x1
02ee 780a |x | Jump 0x2f9 ; case 0x2
02ef 780e |x | Jump 0x2fe ; case 0x3
02f0 7811 |x | Jump 0x302 ; case 0x4
02f1 7812 |x | Jump 0x304 ; case 0x5
02f2 7813 |x | Jump 0x306 ; case 0x6
02f3 7816 |x | Jump 0x30a ; case 0x7
02f4 4302 |C | .XXX[0x1]
02f5 00da | | Load_Top At_Offset_2
02f6 0091 06aa | | Action Push_String_Extended_Indexed,0x6aa ; "A_FOR_LOOP"
02f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02f9 00db | | Load_Top At_Offset_3
02fa 00db | | Load_Top At_Offset_3
02fb 00e0 | | Load_Encached Standard_Cache
02fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02fe 00da | | Load_Top At_Offset_2
02ff 00e0 | | Load_Encached Standard_Cache
0300 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0301 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0302 00db | | Load_Top At_Offset_3
0303 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0304 00db | | Load_Top At_Offset_3
0305 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0306 e225 | % | Load 0x1,0x25
0307 00dc | | Load_Top At_Offset_4
0308 0267 | g | Execute Discrete,Predecessor
0309 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030a e225 | % | Load 0x1,0x25
030b 00dc | | Load_Top At_Offset_4
030c 0268 | h | Execute Discrete,Successor
030d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030e 0000 0000 | | .XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 484a |HJ | Short_Literal 0x4a
0314 00db | | Load_Top At_Offset_3
0315 8244 | D | Call 0x1,0x44
0316 00eb | | Load_Encached Diana_Cache
0317 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2
0318 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0319 00d8 | | Load_Top At_Offset_0
031a 4881 |H | Short_Literal 0x81
031b 4882 |H | Short_Literal 0x82
031c 0262 | b | Execute Discrete,In_Range
031d 7004 |p | Jump_Nonzero 0x322
031e 0b83 | | Execute_Immediate Case_Compare,0x83
031f 7005 |p | Jump_Nonzero 0x325
0320 6807 |h | Jump_Zero 0x328
0321 08e2 | | Execute_Immediate Raise,0xe2
0322 00d1 | | Pop_Control Pop_Count_1
0323 4800 |H | Short_Literal 0x0
0324 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0325 00d1 | | Pop_Control Pop_Count_1
0326 4801 |H | Short_Literal 0x1
0327 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0328 4802 |H | Short_Literal 0x2
0329 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032a 0000 0000 | | .BLANK 0000[0x6]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0338 | 8 | .CONST 0x0338 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0002 | | .CONST 0x0002 ; Number of locals
0333 INIT_0330:
0333 484a |HJ | Short_Literal 0x4a
0334 00db | | Load_Top At_Offset_3
0335 8244 | D | Call 0x1,0x44
0336 00eb | | Load_Encached Diana_Cache
0337 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2
0338 BODY_0330:
0338 00d8 | | Load_Top At_Offset_0
0339 0145 | E | Execute Heap_Access,Diana_Tree_Kind
033a 0f83 | | Execute_Immediate Equal,-0x7d
033b 6805 |h | Jump_Zero 0x341
033c 00d8 | | Load_Top At_Offset_0
033d 00eb | | Load_Encached Diana_Cache
033e 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
033f 8005 | | Call 0x0,0x5
0340 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0341 0092 06b3 | | Action Push_String_Extended,0x6b3 ; "Element is not a While Loop Statement"
0343 e00a | | Load 0x0,0xa
0344 800b | | Call 0x0,0xb
0345 e00c | | Load 0x0,0xc
0346 0257 | W | Execute Discrete,Raise
0347 0000 | | .XXX[0x1]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0350 | P | .CONST 0x0350 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b 484a |HJ | Short_Literal 0x4a
034c 00db | | Load_Top At_Offset_3
034d 8244 | D | Call 0x1,0x44
034e 00eb | | Load_Encached Diana_Cache
034f 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2
0350 BODY_0348:
0350 00d8 | | Load_Top At_Offset_0
0351 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0352 4881 |H | Short_Literal 0x81
0353 4882 |H | Short_Literal 0x82
0354 0262 | b | Execute Discrete,In_Range
0355 7006 |p | Jump_Nonzero 0x35c
0356 0092 06b4 | | Action Push_String_Extended,0x6b4 ; "Element is not a For Loop Statement"
0358 e00a | | Load 0x0,0xa
0359 800b | | Call 0x0,0xb
035a e00c | | Load 0x0,0xc
035b 0257 | W | Execute Discrete,Raise
035c 00d8 | | Load_Top At_Offset_0
035d 00eb | | Load_Encached Diana_Cache
035e 18c1 | | Execute Package,Field_Execute,Field_Number 0xc1
035f 8005 | | Call 0x0,0x5
0360 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0361 0000 0000 | | .BLANK 0000[0x7]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0370 | p | .CONST 0x0370 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b 484a |HJ | Short_Literal 0x4a
036c 00db | | Load_Top At_Offset_3
036d 8244 | D | Call 0x1,0x44
036e 00eb | | Load_Encached Diana_Cache
036f 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2
0370 BODY_0368:
0370 00d8 | | Load_Top At_Offset_0
0371 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0372 4881 |H | Short_Literal 0x81
0373 4882 |H | Short_Literal 0x82
0374 0262 | b | Execute Discrete,In_Range
0375 7006 |p | Jump_Nonzero 0x37c
0376 0092 06b4 | | Action Push_String_Extended,0x6b4 ; "Element is not a For Loop Statement"
0378 e00a | | Load 0x0,0xa
0379 800b | | Call 0x0,0xb
037a e00c | | Load 0x0,0xc
037b 0257 | W | Execute Discrete,Raise
037c 00d8 | | Load_Top At_Offset_0
037d 00eb | | Load_Encached Diana_Cache
037e 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
037f 8005 | | Call 0x0,0x5
0380 8006 | | Call 0x0,0x6
0381 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0382 0000 0000 | | .BLANK 0000[0x6]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 484a |HJ | Short_Literal 0x4a
038c 00db | | Load_Top At_Offset_3
038d 8244 | D | Call 0x1,0x44
038e 00eb | | Load_Encached Diana_Cache
038f 18d2 | | Execute Package,Field_Execute,Field_Number 0xd2
0390 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0391 0f82 | | Execute_Immediate Equal,-0x7e
0392 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0393 0000 0000 | | .BLANK 0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 484a |HJ | Short_Literal 0x4a
039c 00db | | Load_Top At_Offset_3
039d 8244 | D | Call 0x1,0x44
039e 00eb | | Load_Encached Diana_Cache
039f 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
03a0 00eb | | Load_Encached Diana_Cache
03a1 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03a2 8003 | | Call 0x0,0x3
03a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 484e |HN | Short_Literal 0x4e
03ac 00db | | Load_Top At_Offset_3
03ad 8244 | D | Call 0x1,0x44
03ae 00eb | | Load_Encached Diana_Cache
03af 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
03b0 00eb | | Load_Encached Diana_Cache
03b1 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03b2 8003 | | Call 0x0,0x3
03b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b4 0000 0000 | | .BLANK 0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 484e |HN | Short_Literal 0x4e
03bc 00db | | Load_Top At_Offset_3
03bd 8244 | D | Call 0x1,0x44
03be 00eb | | Load_Encached Diana_Cache
03bf 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
03c0 00eb | | Load_Encached Diana_Cache
03c1 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03c2 8003 | | Call 0x0,0x3
03c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c4 0000 0000 | | .BLANK 0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 484e |HN | Short_Literal 0x4e
03cc 00db | | Load_Top At_Offset_3
03cd 8244 | D | Call 0x1,0x44
03ce 00eb | | Load_Encached Diana_Cache
03cf 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
03d0 00eb | | Load_Encached Diana_Cache
03d1 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03d2 8003 | | Call 0x0,0x3
03d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d4 0000 0000 | | .BLANK 0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03dd | | .CONST 0x03dd ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0002 | | .CONST 0x0002 ; Number of locals
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc 8002 | | Call 0x0,0x2
03dd BODY_03d8:
03dd 00d8 | | Load_Top At_Offset_0
03de 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03df 0f9f | | Execute_Immediate Equal,-0x61
03e0 6807 |h | Jump_Zero 0x3e8
03e1 00d8 | | Load_Top At_Offset_0
03e2 00eb | | Load_Encached Diana_Cache
03e3 18b7 | | Execute Package,Field_Execute,Field_Number 0xb7
03e4 00eb | | Load_Encached Diana_Cache
03e5 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03e6 8003 | | Call 0x0,0x3
03e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e8 0092 06b5 | | Action Push_String_Extended,0x6b5 ; "Element is not an Exception Arm"
03ea e00a | | Load 0x0,0xa
03eb 800b | | Call 0x0,0xb
03ec e00c | | Load 0x0,0xc
03ed 0257 | W | Execute Discrete,Raise
03ee 0000 0000 | | .XXX[0x2]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f5 | | .CONST 0x03f5 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0002 | | .CONST 0x0002 ; Number of locals
03f3 INIT_03f0:
03f3 00da | | Load_Top At_Offset_2
03f4 8002 | | Call 0x0,0x2
03f5 BODY_03f0:
03f5 00d8 | | Load_Top At_Offset_0
03f6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03f7 0f9f | | Execute_Immediate Equal,-0x61
03f8 6807 |h | Jump_Zero 0x400
03f9 00d8 | | Load_Top At_Offset_0
03fa 00eb | | Load_Encached Diana_Cache
03fb 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
03fc 00eb | | Load_Encached Diana_Cache
03fd 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03fe 8003 | | Call 0x0,0x3
03ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0400 0092 06b5 | | Action Push_String_Extended,0x6b5 ; "Element is not an Exception Arm"
0402 e00a | | Load 0x0,0xa
0403 800b | | Call 0x0,0xb
0404 e00c | | Load 0x0,0xc
0405 0257 | W | Execute Discrete,Raise
0406 0000 0000 | | .XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040c | | .CONST 0x040c ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0002 | | .CONST 0x0002 ; Number of locals
040b INIT_0408:
040b 00ec | | Load_Encached Diana_Tree_Cache
040c BODY_0408:
040c 4800 |H | Short_Literal 0x0
040d e5ff | | Load 0x2,-0x1
040e 8244 | D | Call 0x1,0x44
040f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0410 00d8 | | Load_Top At_Offset_0
0411 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0412 0b5b | [ | Execute_Immediate Case_Compare,0x5b
0413 7008 |p | Jump_Nonzero 0x41c
0414 0f53 | S | Execute_Immediate Equal,0x53
0415 7007 |p | Jump_Nonzero 0x41d
0416 0092 06b6 | | Action Push_String_Extended,0x6b6 ; "Element is not a procedure or entry call"
0418 e00a | | Load 0x0,0xa
0419 800b | | Call 0x0,0xb
041a e00c | | Load 0x0,0xc
041b 0257 | W | Execute Discrete,Raise
041c 00d1 | | Pop_Control Pop_Count_1
041d 4801 |H | Short_Literal 0x1
041e 00d9 | | Load_Top At_Offset_1
041f e009 | | Load 0x0,0x9
0420 180e | | Execute Package,Field_Execute,Field_Number 0xe
0421 00eb | | Load_Encached Diana_Cache
0422 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0423 8005 | | Call 0x0,0x5
0424 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0425 0000 0000 | | .XXX[0x3]
0427 0000 | |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042d | - | .CONST 0x042d ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0003 | | .CONST 0x0003 ; Number of locals
042b INIT_0428:
042b 00ec | | Load_Encached Diana_Tree_Cache
042c 00ec | | Load_Encached Diana_Tree_Cache
042d BODY_0428:
042d 4800 |H | Short_Literal 0x0
042e e5ff | | Load 0x2,-0x1
042f 8244 | D | Call 0x1,0x44
0430 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0431 00d9 | | Load_Top At_Offset_1
0432 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0433 0b5b | [ | Execute_Immediate Case_Compare,0x5b
0434 7008 |p | Jump_Nonzero 0x43d
0435 0f53 | S | Execute_Immediate Equal,0x53
0436 7007 |p | Jump_Nonzero 0x43e
0437 0092 06b6 | | Action Push_String_Extended,0x6b6 ; "Element is not a procedure or entry call"
0439 e00a | | Load 0x0,0xa
043a 800b | | Call 0x0,0xb
043b e00c | | Load 0x0,0xc
043c 0257 | W | Execute Discrete,Raise
043d 00d1 | | Pop_Control Pop_Count_1
043e e5fe | | Load 0x2,-0x2
043f 680e |h | Jump_Zero 0x44e
0440 00d9 | | Load_Top At_Offset_1
0441 490c |I | Short_Literal 0x10c
0442 00eb | | Load_Encached Diana_Cache
0443 0096 | | Execute Package,Entry
0444 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0445 00d8 | | Load_Top At_Offset_0
0446 7002 |p | Jump_Nonzero 0x449
0447 e004 | | Load 0x0,0x4
0448 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0449 00d8 | | Load_Top At_Offset_0
044a 00eb | | Load_Encached Diana_Cache
044b 18ed | | Execute Package,Field_Execute,Field_Number 0xed
044c 800d | | Call 0x0,0xd
044d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
044e 00d9 | | Load_Top At_Offset_1
044f 00eb | | Load_Encached Diana_Cache
0450 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9
0451 00eb | | Load_Encached Diana_Cache
0452 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0453 8003 | | Call 0x0,0x3
0454 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0455 0000 0000 | | .XXX[0x3]
0457 0000 | |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045d | ] | .CONST 0x045d ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0002 | | .CONST 0x0002 ; Number of locals
045b INIT_0458:
045b 00da | | Load_Top At_Offset_2
045c 8002 | | Call 0x0,0x2
045d BODY_0458:
045d 00d8 | | Load_Top At_Offset_0
045e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
045f 0fa9 | | Execute_Immediate Equal,-0x57
0460 6805 |h | Jump_Zero 0x466
0461 00d8 | | Load_Top At_Offset_0
0462 00eb | | Load_Encached Diana_Cache
0463 18b2 | | Execute Package,Field_Execute,Field_Number 0xb2
0464 8005 | | Call 0x0,0x5
0465 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0466 00db | | Load_Top At_Offset_3
0467 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 485c |H\ | Short_Literal 0x5c
046c 00db | | Load_Top At_Offset_3
046d 8244 | D | Call 0x1,0x44
046e 00eb | | Load_Encached Diana_Cache
046f 18d6 | | Execute Package,Field_Execute,Field_Number 0xd6
0470 8005 | | Call 0x0,0x5
0471 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0472 0000 0000 | | .BLANK 0000[0x6]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 4850 |HP | Short_Literal 0x50
047c 00db | | Load_Top At_Offset_3
047d 8244 | D | Call 0x1,0x44
047e 00eb | | Load_Encached Diana_Cache
047f 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
0480 8005 | | Call 0x0,0x5
0481 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0482 0000 0000 | | .BLANK 0000[0x6]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048f | | .CONST 0x048f ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0003 | | .CONST 0x0003 ; Number of locals
048b INIT_0488:
048b 4800 |H | Short_Literal 0x0
048c 00db | | Load_Top At_Offset_3
048d 8244 | D | Call 0x1,0x44
048e 00ec | | Load_Encached Diana_Tree_Cache
048f BODY_0488:
048f 00d9 | | Load_Top At_Offset_1
0490 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0491 0b53 | S | Execute_Immediate Case_Compare,0x53
0492 7008 |p | Jump_Nonzero 0x49b
0493 0f4c | L | Execute_Immediate Equal,0x4c
0494 7007 |p | Jump_Nonzero 0x49c
0495 0092 06b7 | | Action Push_String_Extended,0x6b7 ; "Element is not an Entry Call or Accept Statement"
0497 e00a | | Load 0x0,0xa
0498 800b | | Call 0x0,0xb
0499 e00c | | Load 0x0,0xc
049a 0257 | W | Execute Discrete,Raise
049b 00d1 | | Pop_Control Pop_Count_1
049c 00d9 | | Load_Top At_Offset_1
049d 00eb | | Load_Encached Diana_Cache
049e 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
049f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04a0 00d8 | | Load_Top At_Offset_0
04a1 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04a2 0f11 | | Execute_Immediate Equal,0x11
04a3 6808 |h | Jump_Zero 0x4ac
04a4 00d8 | | Load_Top At_Offset_0
04a5 00eb | | Load_Encached Diana_Cache
04a6 18c9 | | Execute Package,Field_Execute,Field_Number 0xc9
04a7 00eb | | Load_Encached Diana_Cache
04a8 1889 | | Execute Package,Field_Execute,Field_Number 0x89
04a9 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
04aa 8005 | | Call 0x0,0x5
04ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ac e007 | | Load 0x0,0x7
04ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ae 0000 0000 | | .XXX[0x2]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b4 | | .CONST 0x04b4 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0002 | | .CONST 0x0002 ; Number of locals
04b3 INIT_04b0:
04b3 00ec | | Load_Encached Diana_Tree_Cache
04b4 BODY_04b0:
04b4 4801 |H | Short_Literal 0x1
04b5 484c |HL | Short_Literal 0x4c
04b6 e5ff | | Load 0x2,-0x1
04b7 8244 | D | Call 0x1,0x44
04b8 e009 | | Load 0x0,0x9
04b9 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ba 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04bb 00d8 | | Load_Top At_Offset_0
04bc 00eb | | Load_Encached Diana_Cache
04bd 18ec | | Execute Package,Field_Execute,Field_Number 0xec
04be 8005 | | Call 0x0,0x5
04bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 484c |HL | Short_Literal 0x4c
04c4 00db | | Load_Top At_Offset_3
04c5 8244 | D | Call 0x1,0x44
04c6 00eb | | Load_Encached Diana_Cache
04c7 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
04c8 00eb | | Load_Encached Diana_Cache
04c9 1889 | | Execute Package,Field_Execute,Field_Number 0x89
04ca 8003 | | Call 0x0,0x3
04cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04cc 0000 0000 | | .BLANK 0000[0x4]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 4852 |HR | Short_Literal 0x52
04d4 00db | | Load_Top At_Offset_3
04d5 8244 | D | Call 0x1,0x44
04d6 00eb | | Load_Encached Diana_Cache
04d7 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
04d8 8005 | | Call 0x0,0x5
04d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04da 0000 0000 | | .BLANK 0000[0x6]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 485e |H^ | Short_Literal 0x5e
04e4 00db | | Load_Top At_Offset_3
04e5 8244 | D | Call 0x1,0x44
04e6 00eb | | Load_Encached Diana_Cache
04e7 18df | | Execute Package,Field_Execute,Field_Number 0xdf
04e8 00eb | | Load_Encached Diana_Cache
04e9 1889 | | Execute Package,Field_Execute,Field_Number 0x89
04ea 8003 | | Call 0x0,0x3
04eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f5 | | .CONST 0x04f5 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0002 | | .CONST 0x0002 ; Number of locals
04f3 INIT_04f0:
04f3 00da | | Load_Top At_Offset_2
04f4 8002 | | Call 0x0,0x2
04f5 BODY_04f0:
04f5 00d8 | | Load_Top At_Offset_0
04f6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
04f7 0f9e | | Execute_Immediate Equal,-0x62
04f8 7006 |p | Jump_Nonzero 0x4ff
04f9 0092 06b7 | | Action Push_String_Extended,0x6b7 ; "Element is not an Entry Call or Accept Statement"
04fb e00a | | Load 0x0,0xa
04fc 800b | | Call 0x0,0xb
04fd e00c | | Load 0x0,0xc
04fe 0257 | W | Execute Discrete,Raise
04ff 00d8 | | Load_Top At_Offset_0
0500 00eb | | Load_Encached Diana_Cache
0501 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0502 021d | | Execute Heap_Access,Is_Null
0503 0f00 | | Execute_Immediate Equal,0x0
0504 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0505 0000 0000 | | .XXX[0x3]
0507 0000 | |
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050d | | .CONST 0x050d ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0002 | | .CONST 0x0002 ; Number of locals
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c 8002 | | Call 0x0,0x2
050d BODY_0508:
050d 00d8 | | Load_Top At_Offset_0
050e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
050f 0f9e | | Execute_Immediate Equal,-0x62
0510 7006 |p | Jump_Nonzero 0x517
0511 0092 06b7 | | Action Push_String_Extended,0x6b7 ; "Element is not an Entry Call or Accept Statement"
0513 e00a | | Load 0x0,0xa
0514 800b | | Call 0x0,0xb
0515 e00c | | Load 0x0,0xc
0516 0257 | W | Execute Discrete,Raise
0517 00d8 | | Load_Top At_Offset_0
0518 00eb | | Load_Encached Diana_Cache
0519 18ca | | Execute Package,Field_Execute,Field_Number 0xca
051a 8005 | | Call 0x0,0x5
051b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
051c 0000 0000 | | .BLANK 0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 4607 |F | Jump_Case 0x8
0524 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0525 7807 |x | Jump 0x52d ; case 0x1
0526 780a |x | Jump 0x531 ; case 0x2
0527 780e |x | Jump 0x536 ; case 0x3
0528 7811 |x | Jump 0x53a ; case 0x4
0529 7812 |x | Jump 0x53c ; case 0x5
052a 7813 |x | Jump 0x53e ; case 0x6
052b 7816 |x | Jump 0x542 ; case 0x7
052c 4302 |C | .XXX[0x1]
052d 00da | | Load_Top At_Offset_2
052e 0091 06ad | | Action Push_String_Extended_Indexed,0x6ad ; "ACCEPT_ALTERNATIVE"
0530 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0531 00db | | Load_Top At_Offset_3
0532 00db | | Load_Top At_Offset_3
0533 00e0 | | Load_Encached Standard_Cache
0534 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0535 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0536 00da | | Load_Top At_Offset_2
0537 00e0 | | Load_Encached Standard_Cache
0538 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0539 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
053a 00db | | Load_Top At_Offset_3
053b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
053c 00db | | Load_Top At_Offset_3
053d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
053e e23d | = | Load 0x1,0x3d
053f 00dc | | Load_Top At_Offset_4
0540 0267 | g | Execute Discrete,Predecessor
0541 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0542 e23d | = | Load 0x1,0x3d
0543 00dc | | Load_Top At_Offset_4
0544 0268 | h | Execute Discrete,Successor
0545 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0546 0000 0000 | | .XXX[0x2]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054d | M | .CONST 0x054d ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0002 | | .CONST 0x0002 ; Number of locals
054b INIT_0548:
054b 00da | | Load_Top At_Offset_2
054c 8002 | | Call 0x0,0x2
054d BODY_0548:
054d 00d8 | | Load_Top At_Offset_0
054e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
054f 0f9e | | Execute_Immediate Equal,-0x62
0550 7002 |p | Jump_Nonzero 0x553
0551 4803 |H | Short_Literal 0x3
0552 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0553 00d8 | | Load_Top At_Offset_0
0554 00eb | | Load_Encached Diana_Cache
0555 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0556 00eb | | Load_Encached Diana_Cache
0557 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0558 8246 | F | Call 0x1,0x46
0559 0145 | E | Execute Heap_Access,Diana_Tree_Kind
055a 00d8 | | Load_Top At_Offset_0
055b 484c |HL | Short_Literal 0x4c
055c 485f |H_ | Short_Literal 0x5f
055d 0262 | b | Execute Discrete,In_Range
055e 680f |h | Jump_Zero 0x56e
055f 0b4c | L | Execute_Immediate Case_Compare,0x4c
0560 7005 |p | Jump_Nonzero 0x566
0561 0b52 | R | Execute_Immediate Case_Compare,0x52
0562 7006 |p | Jump_Nonzero 0x569
0563 0f5f | _ | Execute_Immediate Equal,0x5f
0564 7007 |p | Jump_Nonzero 0x56c
0565 7809 |x | Jump 0x56f
0566 00d1 | | Pop_Control Pop_Count_1
0567 4800 |H | Short_Literal 0x0
0568 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0569 00d1 | | Pop_Control Pop_Count_1
056a 4801 |H | Short_Literal 0x1
056b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
056c 4802 |H | Short_Literal 0x2
056d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
056e 00d1 | | Pop_Control Pop_Count_1
056f 08e2 | | Execute_Immediate Raise,0xe2
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0576 | v | .CONST 0x0576 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0003 | | .CONST 0x0003 ; Number of locals
0573 INIT_0570:
0573 00da | | Load_Top At_Offset_2
0574 8002 | | Call 0x0,0x2
0575 00ee | | Load_Encached Diana_Seq_Type_Cache
0576 BODY_0570:
0576 00d9 | | Load_Top At_Offset_1
0577 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0578 0f9e | | Execute_Immediate Equal,-0x62
0579 7006 |p | Jump_Nonzero 0x580
057a 0092 06b8 | | Action Push_String_Extended,0x6b8 ; "Element is not an Accept or Delay Alternative"
057c e00a | | Load 0x0,0xa
057d 800b | | Call 0x0,0xb
057e e00c | | Load 0x0,0xc
057f 0257 | W | Execute Discrete,Raise
0580 00d9 | | Load_Top At_Offset_1
0581 00eb | | Load_Encached Diana_Cache
0582 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0583 00eb | | Load_Encached Diana_Cache
0584 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0585 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0586 00d8 | | Load_Top At_Offset_0
0587 8246 | F | Call 0x1,0x46
0588 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0589 00d8 | | Load_Top At_Offset_0
058a 484c |HL | Short_Literal 0x4c
058b 485f |H_ | Short_Literal 0x5f
058c 0262 | b | Execute Discrete,In_Range
058d 680d |h | Jump_Zero 0x59b
058e 0b4c | L | Execute_Immediate Case_Compare,0x4c
058f 7005 |p | Jump_Nonzero 0x595
0590 0b52 | R | Execute_Immediate Case_Compare,0x52
0591 7003 |p | Jump_Nonzero 0x595
0592 0f5f | _ | Execute_Immediate Equal,0x5f
0593 7005 |p | Jump_Nonzero 0x599
0594 7807 |x | Jump 0x59c
0595 00d1 | | Pop_Control Pop_Count_1
0596 00d8 | | Load_Top At_Offset_0
0597 8003 | | Call 0x0,0x3
0598 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0599 e004 | | Load 0x0,0x4
059a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
059b 00d1 | | Pop_Control Pop_Count_1
059c 08e2 | | Execute_Immediate Raise,0xe2
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a6 | | .CONST 0x05a6 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0002 | | .CONST 0x0002 ; Number of locals
05a3 INIT_05a0:
05a3 4800 |H | Short_Literal 0x0
05a4 00db | | Load_Top At_Offset_3
05a5 8244 | D | Call 0x1,0x44
05a6 BODY_05a0:
05a6 00d8 | | Load_Top At_Offset_0
05a7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
05a8 0b51 | Q | Execute_Immediate Case_Compare,0x51
05a9 7008 |p | Jump_Nonzero 0x5b2
05aa 0f5e | ^ | Execute_Immediate Equal,0x5e
05ab 700e |p | Jump_Nonzero 0x5ba
05ac 0092 06b9 | | Action Push_String_Extended,0x6b9 ; "Element is not a Select Statement"
05ae e00a | | Load 0x0,0xa
05af 800b | | Call 0x0,0xb
05b0 e00c | | Load 0x0,0xc
05b1 0257 | W | Execute Discrete,Raise
05b2 00d1 | | Pop_Control Pop_Count_1
05b3 00d8 | | Load_Top At_Offset_0
05b4 00eb | | Load_Encached Diana_Cache
05b5 18e3 | | Execute Package,Field_Execute,Field_Number 0xe3
05b6 00eb | | Load_Encached Diana_Cache
05b7 1889 | | Execute Package,Field_Execute,Field_Number 0x89
05b8 8003 | | Call 0x0,0x3
05b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ba 00d8 | | Load_Top At_Offset_0
05bb 00eb | | Load_Encached Diana_Cache
05bc 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
05bd 00eb | | Load_Encached Diana_Cache
05be 1889 | | Execute Package,Field_Execute,Field_Number 0x89
05bf 8003 | | Call 0x0,0x3
05c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c1 0000 0000 | | .BLANK 0000[0x7]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cc | | .CONST 0x05cc ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0002 | | .CONST 0x0002 ; Number of locals
05cb INIT_05c8:
05cb 00ec | | Load_Encached Diana_Tree_Cache
05cc BODY_05c8:
05cc 4860 |H` | Short_Literal 0x60
05cd e5ff | | Load 0x2,-0x1
05ce 8244 | D | Call 0x1,0x44
05cf 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05d0 00d8 | | Load_Top At_Offset_0
05d1 00eb | | Load_Encached Diana_Cache
05d2 18e3 | | Execute Package,Field_Execute,Field_Number 0xe3
05d3 00eb | | Load_Encached Diana_Cache
05d4 1889 | | Execute Package,Field_Execute,Field_Number 0x89
05d5 8003 | | Call 0x0,0x3
05d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d7 0000 | | .XXX[0x1]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05de | | .CONST 0x05de ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0002 | | .CONST 0x0002 ; Number of locals
05db INIT_05d8:
05db 4800 |H | Short_Literal 0x0
05dc 00db | | Load_Top At_Offset_3
05dd 8244 | D | Call 0x1,0x44
05de BODY_05d8:
05de 00d8 | | Load_Top At_Offset_0
05df 0145 | E | Execute Heap_Access,Diana_Tree_Kind
05e0 0b51 | Q | Execute_Immediate Case_Compare,0x51
05e1 7008 |p | Jump_Nonzero 0x5ea
05e2 0f60 | ` | Execute_Immediate Equal,0x60
05e3 7007 |p | Jump_Nonzero 0x5eb
05e4 0092 06ba | | Action Push_String_Extended,0x6ba ; "Element is not a Conditional or Timed Entry Call"
05e6 e00a | | Load 0x0,0xa
05e7 800b | | Call 0x0,0xb
05e8 e00c | | Load 0x0,0xc
05e9 0257 | W | Execute Discrete,Raise
05ea 00d1 | | Pop_Control Pop_Count_1
05eb 00d8 | | Load_Top At_Offset_0
05ec 00eb | | Load_Encached Diana_Cache
05ed 18e2 | | Execute Package,Field_Execute,Field_Number 0xe2
05ee 00eb | | Load_Encached Diana_Cache
05ef 1889 | | Execute Package,Field_Execute,Field_Number 0x89
05f0 8003 | | Call 0x0,0x3
05f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f2 0000 0000 | | .BLANK 0000[0x6]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 484b |HK | Short_Literal 0x4b
05fc 00db | | Load_Top At_Offset_3
05fd 8244 | D | Call 0x1,0x44
05fe 00eb | | Load_Encached Diana_Cache
05ff 18d5 | | Execute Package,Field_Execute,Field_Number 0xd5
0600 00eb | | Load_Encached Diana_Cache
0601 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0602 8003 | | Call 0x0,0x3
0603 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0604 0000 0000 | | .BLANK 0000[0x4]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0614 | | .CONST 0x0614 ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0004 | | .CONST 0x0004 ; Number of locals
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c 8002 | | Call 0x0,0x2
060d 00d8 | | Load_Top At_Offset_0
060e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
060f 00eb | | Load_Encached Diana_Cache
0610 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0611 03f1 | | Declare_Variable Discrete,With_Value
0612 029f 067b | {| Declare_Subprogram INIT_0678,For_Call
0614 BODY_0608:
0614 00cf | | Action Mark_Auxiliary
0615 00da | | Load_Top At_Offset_2
0616 00d8 | | Load_Top At_Offset_0
0617 4857 |HW | Short_Literal 0x57
0618 4858 |HX | Short_Literal 0x58
0619 0262 | b | Execute Discrete,In_Range
061a 700b |p | Jump_Nonzero 0x626
061b 6810 |h | Jump_Zero 0x62c
061c e5fe | | Load 0x2,-0x2
061d 6804 |h | Jump_Zero 0x622
061e 00da | | Load_Top At_Offset_2
061f e5fe | | Load 0x2,-0x2
0620 027f | | Execute Discrete,Equal
0621 6802 |h | Jump_Zero 0x624
0622 00db | | Load_Top At_Offset_3
0623 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0624 8404 | | Call 0x2,0x4
0625 780c |x | Jump 0x632
0626 00d1 | | Pop_Control Pop_Count_1
0627 00db | | Load_Top At_Offset_3
0628 00eb | | Load_Encached Diana_Cache
0629 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
062a a402 | | Store_Unchecked 0x2,0x2
062b 7806 |x | Jump 0x632
062c 0092 06bb | | Action Push_String_Extended,0x6bb ; "Element is not a Statement"
062e e00a | | Load 0x0,0xa
062f 800b | | Call 0x0,0xb
0630 e00c | | Load 0x0,0xc
0631 0257 | W | Execute Discrete,Raise
0632 00db | | Load_Top At_Offset_3
0633 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0634 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0635 00c9 | | Action Pop_Auxiliary_Loop
0636 7fde | | Jump 0x615
0637 0000 | | .XXX[0x1]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 00da | | Load_Top At_Offset_2
063c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
063d 0f40 | @ | Execute_Immediate Equal,0x40
063e 6806 |h | Jump_Zero 0x645
063f 00da | | Load_Top At_Offset_2
0640 800e | | Call 0x0,0xe
0641 0092 06bc | | Action Push_String_Extended,0x6bc ; "_COMMENT"
0643 01df | | Execute Vector,Equal
0644 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0645 4800 |H | Short_Literal 0x0
0646 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0647 0000 | | .XXX[0x1]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064c | L | .CONST 0x064c ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0002 | | .CONST 0x0002 ; Number of locals
064b INIT_0648:
064b 00da | | Load_Top At_Offset_2
064c BODY_0648:
064c 00cf | | Action Mark_Auxiliary
064d 780c |x | Jump 0x65a
064e 00d9 | | Load_Top At_Offset_1
064f 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0650 8245 | E | Call 0x1,0x45
0651 7003 |p | Jump_Nonzero 0x655
0652 00d9 | | Load_Top At_Offset_1
0653 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0654 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0655 00d9 | | Load_Top At_Offset_1
0656 0217 | | Execute Heap_Access,All_Reference
0657 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0658 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0659 00c9 | | Action Pop_Auxiliary_Loop
065a 00d9 | | Load_Top At_Offset_1
065b 77f2 |w | Jump_Nonzero 0x64e
065c 00ce | | Action Pop_Auxiliary
065d 00ec | | Load_Encached Diana_Tree_Cache
065e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
065f 0000 | | .XXX[0x1]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0669 | i | .CONST 0x0669 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0002 | | .CONST 0x0002 ; Number of locals
0663 INIT_0660:
0663 e00f | | Load 0x0,0xf
0664 02ff | | Declare_Variable Variant_Record
0665 e402 | | Load 0x2,0x2
0666 8010 | | Call 0x0,0x10
0667 00d9 | | Load_Top At_Offset_1
0668 016d | m | Execute Variant_Record,Structure_Write
0669 BODY_0660:
0669 00d8 | | Load_Top At_Offset_0
066a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
066b 0f03 | | Execute_Immediate Equal,0x3
066c 6804 |h | Jump_Zero 0x671
066d 00d8 | | Load_Top At_Offset_0
066e 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
066f 00cb | | Action Pop_Block_With_Result
0670 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0671 4813 |H | Short_Literal 0x13
0672 00cb | | Action Pop_Block_With_Result
0673 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0674 0000 0000 | | .BLANK 0000[0x4]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 0680 | | .CONST 0x0680 ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0002 | | .CONST 0x0002 ; Number of locals
067b INIT_0678:
067b e5fe | | Load 0x2,-0x2
067c 00eb | | Load_Encached Diana_Cache
067d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
067e 011c | | Execute Any,Convert_Unchecked
067f 1c01 | | Execute_Immediate Run_Utility,0x1
0680 BODY_0678:
0680 0092 06bd | | Action Push_String_Extended,0x6bd ; "Element is not a(n) "
0682 00d9 | | Load_Top At_Offset_1
0683 01dd | | Execute Vector,First
0684 0a03 | | Execute_Immediate Plus,0x3
0685 00d8 | | Load_Top At_Offset_0
0686 00e2 | | Load_Encached Integer_Cache
0687 0260 | ` | Execute Discrete,In_Type
0688 7001 |p | Jump_Nonzero 0x68a
0689 0801 | | Execute_Immediate Raise,0x1
068a 00da | | Load_Top At_Offset_2
068b 01dc | | Execute Vector,Last
068c 00db | | Load_Top At_Offset_3
068d 01cf | | Execute Vector,Slice_Read
068e 01cc | | Execute Vector,Catenate
068f 0092 06be | | Action Push_String_Extended,0x6be ; " Statement"
0691 01cc | | Execute Vector,Catenate
0692 e00a | | Load 0x0,0xa
0693 800b | | Call 0x0,0xb
0694 e00c | | Load 0x0,0xc
0695 0257 | W | Execute Discrete,Raise
0696 ; --------------------------------------------------------------------------------------
0696 ; STRING TABLE
0696 ; --------------------------------------------------------------------------------------
0696 0054 | T | .STRTAB 0x0054->0x06c0 ; "A_NULL_STATEMENT"
0697 0062 | b | .STRTAB 0x0062->0x06c8 ; "AN_ASSIGNMENT_STATEMENT"
0698 0077 | w | .STRTAB 0x0077->0x06d3 ; "A_PROCEDURE_CALL_STATEMENT"
0699 008f | | .STRTAB 0x008f->0x06e0 ; "AN_EXIT_STATEMENT"
069a 009e | | .STRTAB 0x009e->0x06e9 ; "A_RETURN_STATEMENT"
069b 00ae | | .STRTAB 0x00ae->0x06f2 ; "A_GOTO_STATEMENT"
069c 00bc | | .STRTAB 0x00bc->0x06fa ; "AN_ENTRY_CALL_STATEMENT"
069d 00d1 | | .STRTAB 0x00d1->0x0705 ; "A_DELAY_STATEMENT"
069e 00e0 | | .STRTAB 0x00e0->0x070e ; "AN_ABORT_STATEMENT"
069f 00f0 | | .STRTAB 0x00f0->0x0717 ; "A_RAISE_STATEMENT"
06a0 00ff | | .STRTAB 0x00ff->0x071f ; "A_CODE_STATEMENT"
06a1 010d | | .STRTAB 0x010d->0x0727 ; "AN_IF_STATEMENT"
06a2 011a | | .STRTAB 0x011a->0x072f ; "A_CASE_STATEMENT"
06a3 0128 | ( | .STRTAB 0x0128->0x0737 ; "A_LOOP_STATEMENT"
06a4 0136 | 6 | .STRTAB 0x0136->0x073f ; "A_BLOCK_STATEMENT"
06a5 0145 | E | .STRTAB 0x0145->0x0747 ; "AN_ACCEPT_STATEMENT"
06a6 0156 | V | .STRTAB 0x0156->0x0751 ; "A_SELECT_STATEMENT"
06a7 0166 | f | .STRTAB 0x0166->0x075a ; "A_CONDITIONAL_ENTRY_CALL_STATEMENT"
06a8 0186 | | .STRTAB 0x0186->0x076b ; "A_TIMED_ENTRY_CALL_STATEMENT"
06a9 01a0 | | .STRTAB 0x01a0->0x0779 ; "NOT_A_STATEMENT"
06aa 01ad | | .STRTAB 0x01ad->0x0780 ; "A_FOR_LOOP"
06ab 01b5 | | .STRTAB 0x01b5->0x0785 ; "A_WHILE_LOOP"
06ac 01bf | | .STRTAB 0x01bf->0x078b ; "A_SIMPLE_LOOP"
06ad 01ca | | .STRTAB 0x01ca->0x0792 ; "ACCEPT_ALTERNATIVE"
06ae 01da | | .STRTAB 0x01da->0x079b ; "DELAY_ALTERNATIVE"
06af 01e9 | | .STRTAB 0x01e9->0x07a3 ; "TERMINATE_ALTERNATIVE"
06b0 01fc | | .STRTAB 0x01fc->0x07ae ; "NOT_A_SELECT_ALTERNATIVE"
06b1 0212 | | .STRTAB 0x0212->0x07ba ; "Element is not an IF Statement arm"
06b2 0232 | 2 | .STRTAB 0x0232->0x07cb ; "Element is not a Case Alternative"
06b3 0251 | Q | .STRTAB 0x0251->0x07db ; "Element is not a While Loop Statement"
06b4 0274 | t | .STRTAB 0x0274->0x07ee ; "Element is not a For Loop Statement"
06b5 0295 | | .STRTAB 0x0295->0x07ff ; "Element is not an Exception Arm"
06b6 02b2 | | .STRTAB 0x02b2->0x080f ; "Element is not a procedure or entry call"
06b7 02d8 | | .STRTAB 0x02d8->0x0823 ; "Element is not an Entry Call or Accept Statement"
06b8 0306 | | .STRTAB 0x0306->0x083b ; "Element is not an Accept or Delay Alternative"
06b9 0331 | 1 | .STRTAB 0x0331->0x0851 ; "Element is not a Select Statement"
06ba 0350 | P | .STRTAB 0x0350->0x0862 ; "Element is not a Conditional or Timed Entry Call"
06bb 037e | ~ | .STRTAB 0x037e->0x087a ; "Element is not a Statement"
06bc 0396 | | .STRTAB 0x0396->0x0887 ; "_COMMENT"
06bd 039c | | .STRTAB 0x039c->0x088b ; "Element is not a(n) "
06be 03ae | | .STRTAB 0x03ae->0x0895 ; " Statement"
06bf 03b6 | | .STREND 0x03b6->0x089a
06c0 415f 4e55 |A_NU| .STRTAB_STRINGS
089a 0000 0000 | | .BLANK 0000[0x6]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; Debug Table
08a0 ; --------------------------------------------------------------------------------------
08a0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d8a,0x0000,0x0001,0x0000
08a6 0000 0000 | | .BLANK 0000[0x15a]