|
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]