|
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: 12288 (0x3000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 17b0 | | .CONST 0x17b0 ; 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 800f | | .CONST 0x800f ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x13bb, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0187 | | .CONST 0x0187 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 007e | ~ | .CONST 0x007e ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
000d 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
000f 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0011 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0013 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0015 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0017 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0019 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
001b 4803 |H | Short_Literal 0x3
001c 032b | + | Declare_Type Record,Incomplete,Visible
001d 00d8 | | Load_Top At_Offset_0
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 4818 |H | Short_Literal 0x18
0020 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0021 00bf | | Action Accept_Activation
0022 0093 0000 | | push_full_address 0x0
0024 6193 |a | Indirect_Literal Discrete,0x1b8,{0x80000000, 0x00010000}
0025 0273 | s | Execute Discrete,Plus
0026 0007 | | Action Break_Optional
0027 8002 | | Call 0x0,0x2
0028 00e3 | | Load_Encached Natural_Cache
0029 03f1 | | Declare_Variable Discrete,With_Value
002a 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
002c 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call
002e 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0030 e003 | | Load 0x0,0x3
0031 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0032 00ec | | Load_Encached Diana_Tree_Cache
0033 00eb | | Load_Encached Diana_Cache
0034 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0035 e004 | | Load 0x0,0x4
0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0037 00e2 | | Load_Encached Integer_Cache
0038 e004 | | Load 0x0,0x4
0039 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
003a e004 | | Load 0x0,0x4
003b 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
003c 00ec | | Load_Encached Diana_Tree_Cache
003d 00e3 | | Load_Encached Natural_Cache
003e 00e3 | | Load_Encached Natural_Cache
003f 00e1 | | Load_Encached Boolean_Cache
0040 00e1 | | Load_Encached Boolean_Cache
0041 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
0043 480c |H | Short_Literal 0xc
0044 032d | - | Declare_Type Record,Defined
0045 e003 | | Load 0x0,0x3
0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0047 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
0048 00d9 | | Load_Top At_Offset_1
0049 0322 | " | Declare_Variable Record
004a 4800 |H | Short_Literal 0x0
004b 00d9 | | Load_Top At_Offset_1
004c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004d 00eb | | Load_Encached Diana_Cache
004e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
004f 00d9 | | Load_Top At_Offset_1
0050 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0051 4800 |H | Short_Literal 0x0
0052 00d9 | | Load_Top At_Offset_1
0053 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0054 4800 |H | Short_Literal 0x0
0055 00d9 | | Load_Top At_Offset_1
0056 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0057 4800 |H | Short_Literal 0x0
0058 00d9 | | Load_Top At_Offset_1
0059 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
005a e004 | | Load 0x0,0x4
005b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
005c 00db | | Load_Top At_Offset_3
005d 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
005e 0119 | | Execute Any,Check_In_Formal_Type
005f 00d9 | | Load_Top At_Offset_1
0060 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0061 e004 | | Load 0x0,0x4
0062 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0063 00db | | Load_Top At_Offset_3
0064 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
0065 0119 | | Execute Any,Check_In_Formal_Type
0066 00d9 | | Load_Top At_Offset_1
0067 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0068 00eb | | Load_Encached Diana_Cache
0069 1812 | | Execute Package,Field_Execute,Field_Number 0x12
006a 00d9 | | Load_Top At_Offset_1
006b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
006c 4800 |H | Short_Literal 0x0
006d 00d9 | | Load_Top At_Offset_1
006e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
006f 4800 |H | Short_Literal 0x0
0070 00d9 | | Load_Top At_Offset_1
0071 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0072 4800 |H | Short_Literal 0x0
0073 00d9 | | Load_Top At_Offset_1
0074 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0075 4800 |H | Short_Literal 0x0
0076 00d9 | | Load_Top At_Offset_1
0077 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0078 00da | | Load_Top At_Offset_2
0079 02a0 | | Declare_Subprogram Null_Subprogram
007a 4818 |H | Short_Literal 0x18
007b 03d3 | | Declare_Type Access,Defined,Accesses_Protected
007c e005 | | Load 0x0,0x5
007d e006 | | Load 0x0,0x6
007e 00da | | Load_Top At_Offset_2
007f e007 | | Load 0x0,0x7
0080 0387 | | Declare_Variable Package
0081 00d8 | | Load_Top At_Offset_0
0082 020f | | Execute Module,Activate
0083 e008 | | Load 0x0,0x8
0084 e009 | | Load 0x0,0x9
0085 4865 |He | Short_Literal 0x65
0086 00db | | Load_Top At_Offset_3
0087 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0088 4801 |H | Short_Literal 0x1
0089 e00a | | Load 0x0,0xa
008a 0387 | | Declare_Variable Package
008b 00d8 | | Load_Top At_Offset_0
008c 020f | | Execute Module,Activate
008d 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
008f e00b | | Load 0x0,0xb
0090 e00c | | Load 0x0,0xc
0091 4865 |He | Short_Literal 0x65
0092 00e3 | | Load_Encached Natural_Cache
0093 e21f | | Load 0x1,0x1f
0094 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0095 e00d | | Load 0x0,0xd
0096 0387 | | Declare_Variable Package
0097 00d8 | | Load_Top At_Offset_0
0098 020f | | Execute Module,Activate
0099 00e3 | | Load_Encached Natural_Cache
009a 00db | | Load_Top At_Offset_3
009b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
009c 00da | | Load_Top At_Offset_2
009d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
009e 02a0 | | Declare_Subprogram Null_Subprogram
009f e215 | | Load 0x1,0x15
00a0 0326 | & | Complete_Type Record,By_Defining
00a1 e216 | | Load 0x1,0x16
00a2 03c4 | | Complete_Type Access,By_Component_Completion
00a3 0092 147d | }| Action Push_String_Extended,0x147d ; "Name not found"
00a5 0092 147e | ~| Action Push_String_Extended,0x147e ; "Invalid qualifier (none required)"
00a7 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
00a9 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
00ab 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
00ad 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
00af 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call
00b1 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
00b3 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
00b5 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call
00b7 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
00b9 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
00bb 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
00bd 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call
00bf 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call
00c1 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call
00c3 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call
00c5 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call
00c7 a00e | | Store_Unchecked 0x0,0xe
00c8 00c6 | | Action Check_Subprogram_Elaborated
00c9 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00ca 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00cb 0093 0000 | | push_full_address 0x0
00cd 60e6 |` | Indirect_Literal Discrete,0x1b4,{0x80000000, 0x00010000}
00ce 0273 | s | Execute Discrete,Plus
00cf e00f | | Load 0x0,0xf
00d0 0273 | s | Execute Discrete,Plus
00d1 e010 | | Load 0x0,0x10
00d2 0273 | s | Execute Discrete,Plus
00d3 4800 |H | Short_Literal 0x0
00d4 0007 | | Action Break_Optional
00d5 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call
00d7 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call
00d9 029d 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call
00db 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call
00dd 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
00df 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
00e1 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
00e3 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call
00e5 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call
00e7 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call
00e9 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
00eb 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
00ed 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
00ef 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call
00f1 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call
00f3 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call
00f5 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
00f7 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call
00f9 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call
00fb 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call
00fd 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call
00ff 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call
0101 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call
0103 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call
0105 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call
0107 029d 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call
0109 029d 091b | | Declare_Subprogram INIT_0918,For_Outer_Call
010b 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call
010d 029d 0993 | | Declare_Subprogram INIT_0990,For_Outer_Call
010f 029d 09b3 | | Declare_Subprogram INIT_09b0,For_Outer_Call
0111 029d 09d3 | | Declare_Subprogram INIT_09d0,For_Outer_Call
0113 029d 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call
0115 029d 09eb | | Declare_Subprogram INIT_09e8,For_Outer_Call
0117 029d 09fb | | Declare_Subprogram INIT_09f8,For_Outer_Call
0119 029d 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call
011b 029d 0a2b | +| Declare_Subprogram INIT_0a28,For_Outer_Call
011d 029d 0a43 | C| Declare_Subprogram INIT_0a40,For_Outer_Call
011f 029d 0a53 | S| Declare_Subprogram INIT_0a50,For_Outer_Call
0121 029d 0a7b | {| Declare_Subprogram INIT_0a78,For_Outer_Call
0123 029d 0a9b | | Declare_Subprogram INIT_0a98,For_Outer_Call
0125 029d 0adb | | Declare_Subprogram INIT_0ad8,For_Outer_Call
0127 029d 0b13 | | Declare_Subprogram INIT_0b10,For_Outer_Call
0129 029d 0b4b | K| Declare_Subprogram INIT_0b48,For_Outer_Call
012b 029d 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call
012d 029d 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call
012f 029d 0c0b | | Declare_Subprogram INIT_0c08,For_Outer_Call
0131 029d 0c63 | c| Declare_Subprogram INIT_0c60,For_Outer_Call
0133 029d 0cab | | Declare_Subprogram INIT_0ca8,For_Outer_Call
0135 029d 0cd3 | | Declare_Subprogram INIT_0cd0,For_Outer_Call
0137 029b 0cfb | | Declare_Subprogram INIT_0cf8,For_Outer_Call,Unelaborated
0139 029d 0db3 | | Declare_Subprogram INIT_0db0,For_Outer_Call
013b 029d 0e13 | | Declare_Subprogram INIT_0e10,For_Outer_Call
013d 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
013e 00c7 | | Action Elaborate_Subprogram
013f 029d 0e8b | | Declare_Subprogram INIT_0e88,For_Outer_Call
0141 029d 0eeb | | Declare_Subprogram INIT_0ee8,For_Outer_Call
0143 029d 0f3b | ;| Declare_Subprogram INIT_0f38,For_Outer_Call
0145 029d 0f6b | k| Declare_Subprogram INIT_0f68,For_Outer_Call
0147 029d 1053 | S| Declare_Subprogram INIT_1050,For_Outer_Call
0149 029d 105b | [| Declare_Subprogram INIT_1058,For_Outer_Call
014b 029d 106b | k| Declare_Subprogram INIT_1068,For_Outer_Call
014d 029d 107b | {| Declare_Subprogram INIT_1078,For_Outer_Call
014f 029d 10b3 | | Declare_Subprogram INIT_10b0,For_Outer_Call
0151 029d 1133 | 3| Declare_Subprogram INIT_1130,For_Outer_Call
0153 029d 118b | | Declare_Subprogram INIT_1188,For_Outer_Call
0155 029d 120b | | Declare_Subprogram INIT_1208,For_Outer_Call
0157 4800 |H | Short_Literal 0x0
0158 0093 139b | | push_full_address INIT_1398
015a 00f5 | | Load_Encached Unused21
015b 037d | } | Declare_Type Task,Defined
015c 036f | o | Declare_Variable Task
015d e011 | | Load 0x0,0x11
015e 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
015f e216 | | Load 0x1,0x16
0160 e221 | ! | Load 0x1,0x21
0161 e223 | # | Load 0x1,0x23
0162 e003 | | Load 0x0,0x3
0163 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
0164 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f
0165 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
0166 e21f | | Load 0x1,0x1f
0167 e004 | | Load 0x0,0x4
0168 e012 | | Load 0x0,0x12
0169 e004 | | Load 0x0,0x4
016a 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
016b 480d |H | Short_Literal 0xd
016c e27a | z | Load 0x1,0x7a
016d 020e | | Execute Module,Augment_Imports
016e 0007 | | Action Break_Optional
016f 029d 124b | K| Declare_Subprogram INIT_1248,For_Outer_Call
0171 029d 125b | [| Declare_Subprogram INIT_1258,For_Outer_Call
0173 029d 1283 | | Declare_Subprogram INIT_1280,For_Outer_Call
0175 029d 12c3 | | Declare_Subprogram INIT_12c0,For_Outer_Call
0177 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0178 00c7 | | Action Elaborate_Subprogram
0179 1d0e | | Execute_Immediate Reference_Lex_1,0xe
017a 00c7 | | Action Elaborate_Subprogram
017b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
017c 00c7 | | Action Elaborate_Subprogram
017d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
017e 00c7 | | Action Elaborate_Subprogram
017f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0180 00c7 | | Action Elaborate_Subprogram
0181 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0182 00c7 | | Action Elaborate_Subprogram
0183 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0184 00c7 | | Action Elaborate_Subprogram
0185 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0186 00c7 | | Action Elaborate_Subprogram
0187 BODY_0008:
0187 BODY_0008:
0187 00be | | Action Activate_Tasks
0188 00bc | | Action Signal_Activated
0189 00bb | | Action Signal_Completion
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0196 | | .CONST 0x0196 ; Address of begin
0191 01a9 | | .CONST 0x01a9 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 00ec | | Load_Encached Diana_Tree_Cache
0194 029f 1373 | s| Declare_Subprogram INIT_1370,For_Call
0196 BODY_0190:
0196 8403 | | Call 0x2,0x3
0197 00d9 | | Load_Top At_Offset_1
0198 00eb | | Load_Encached Diana_Cache
0199 1813 | | Execute Package,Field_Execute,Field_Number 0x13
019a 6804 |h | Jump_Zero 0x19f
019b 0092 147f | | Action Push_String_Extended,0x147f ; "Warning: Elaborating units that have been archived, deleted or re-coded;\x0a Debugging information will not be available for such units.\x0a"
019d 8227 | ' | Call 0x1,0x27
019e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
019f e5fb | | Load 0x2,-0x5
01a0 e5fe | | Load 0x2,-0x2
01a1 e5ff | | Load 0x2,-0x1
01a2 4801 |H | Short_Literal 0x1
01a3 e402 | | Load 0x2,0x2
01a4 4805 |H | Short_Literal 0x5
01a5 e27a | z | Load 0x1,0x7a
01a6 170d | | Execute Task,Entry_Call,Field_Number 0xd
01a7 c5fb | | Store 0x2,-0x5
01a8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01a9 TRAP_0190:
01a9 0007 | | Action Break_Optional
01aa 480a |H | Short_Literal 0xa
01ab 0092 1480 | | Action Push_String_Extended,0x1480 ; "Register: "
01ad e011 | | Load 0x0,0x11
01ae 180d | | Execute Package,Field_Execute,Field_Number 0xd
01af 01cc | | Execute Vector,Catenate
01b0 01cb | | Execute Vector,Append
01b1 8219 | | Call 0x1,0x19
01b2 00d8 | | Load_Top At_Offset_0
01b3 0101 | | Execute Exception,Reraise
01b4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01b8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c4 | | .CONST 0x01c4 ; Address of begin
01c1 01d8 | | .CONST 0x01d8 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 00ec | | Load_Encached Diana_Tree_Cache
01c4 BODY_01c0:
01c4 00db | | Load_Top At_Offset_3
01c5 e5fd | | Load 0x2,-0x3
01c6 e5fc | | Load 0x2,-0x4
01c7 e013 | | Load 0x0,0x13
01c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01c9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ca 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01cb 00d8 | | Load_Top At_Offset_0
01cc 00eb | | Load_Encached Diana_Cache
01cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ce 7008 |p | Jump_Nonzero 0x1d7
01cf e5fb | | Load 0x2,-0x5
01d0 e5fe | | Load 0x2,-0x2
01d1 e5ff | | Load 0x2,-0x1
01d2 00db | | Load_Top At_Offset_3
01d3 4804 |H | Short_Literal 0x4
01d4 e27a | z | Load 0x1,0x7a
01d5 170e | | Execute Task,Entry_Call,Field_Number 0xe
01d6 c5fb | | Store 0x2,-0x5
01d7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01d8 TRAP_01c0:
01d8 0007 | | Action Break_Optional
01d9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01da 0000 0000 | | .BLANK 0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5 | | .CONST 0x01e5 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 00eb | | Load_Encached Diana_Cache
01e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e5 BODY_01e0:
01e5 00e1 | | Load_Encached Boolean_Cache
01e6 e003 | | Load 0x0,0x3
01e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e8 00e3 | | Load_Encached Natural_Cache
01e9 00ec | | Load_Encached Diana_Tree_Cache
01ea 827b | { | Call 0x1,0x7b
01eb c5fb | | Store 0x2,-0x5
01ec c5fa | | Store 0x2,-0x6
01ed c5f9 | | Store 0x2,-0x7
01ee c5f8 | | Store 0x2,-0x8
01ef e5f7 | | Load 0x2,-0x9
01f0 00e1 | | Load_Encached Boolean_Cache
01f1 00ec | | Load_Encached Diana_Tree_Cache
01f2 e003 | | Load 0x0,0x3
01f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f4 00e3 | | Load_Encached Natural_Cache
01f5 e5fc | | Load 0x2,-0x4
01f6 e5fd | | Load 0x2,-0x3
01f7 e5fe | | Load 0x2,-0x2
01f8 e5ff | | Load 0x2,-0x1
01f9 00eb | | Load_Encached Diana_Cache
01fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01fb 480a |H | Short_Literal 0xa
01fc e27a | z | Load 0x1,0x7a
01fd 170f | | Execute Task,Entry_Call,Field_Number 0xf
01fe c5fc | | Store 0x2,-0x4
01ff c5fa | | Store 0x2,-0x6
0200 c5f9 | | Store 0x2,-0x7
0201 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0202 c5f8 | | Store 0x2,-0x8
0203 c5f7 | | Store 0x2,-0x9
0204 00d8 | | Load_Top At_Offset_0
0205 822b | + | Call 0x1,0x2b
0206 a5fb | | Store_Unchecked 0x2,-0x5
0207 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020c | | .CONST 0x020c ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b 00ec | | Load_Encached Diana_Tree_Cache
020c BODY_0208:
020c e5f8 | | Load 0x2,-0x8
020d 00e1 | | Load_Encached Boolean_Cache
020e 00ec | | Load_Encached Diana_Tree_Cache
020f e003 | | Load 0x0,0x3
0210 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0211 00e3 | | Load_Encached Natural_Cache
0212 e5fc | | Load 0x2,-0x4
0213 e5fd | | Load 0x2,-0x3
0214 e5fe | | Load 0x2,-0x2
0215 e5ff | | Load 0x2,-0x1
0216 822c | , | Call 0x1,0x2c
0217 e5ff | | Load 0x2,-0x1
0218 480a |H | Short_Literal 0xa
0219 e27a | z | Load 0x1,0x7a
021a 170f | | Execute Task,Entry_Call,Field_Number 0xf
021b c5fc | | Store 0x2,-0x4
021c c5fb | | Store 0x2,-0x5
021d c5fa | | Store 0x2,-0x6
021e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
021f c5f9 | | Store 0x2,-0x7
0220 c5f8 | | Store 0x2,-0x8
0221 4802 |H | Short_Literal 0x2
0222 e5f8 | | Load 0x2,-0x8
0223 e012 | | Load 0x0,0x12
0224 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0225 680c |h | Jump_Zero 0x232
0226 e5f8 | | Load 0x2,-0x8
0227 e012 | | Load 0x0,0x12
0228 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0229 e224 | $ | Load 0x1,0x24
022a 01df | | Execute Vector,Equal
022b 6806 |h | Jump_Zero 0x232
022c 4800 |H | Short_Literal 0x0
022d a5fb | | Store_Unchecked 0x2,-0x5
022e 4802 |H | Short_Literal 0x2
022f a5fa | | Store_Unchecked 0x2,-0x6
0230 4800 |H | Short_Literal 0x0
0231 a5f9 | | Store_Unchecked 0x2,-0x7
0232 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0233 0000 0000 | | .BLANK 0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0246 | F | .CONST 0x0246 ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0003 | | .CONST 0x0003 ; Number of locals
023b INIT_0238:
023b 00db | | Load_Top At_Offset_3
023c e014 | | Load 0x0,0x14
023d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
023e 00e3 | | Load_Encached Natural_Cache
023f 03f1 | | Declare_Variable Discrete,With_Value
0240 00d8 | | Load_Top At_Offset_0
0241 e014 | | Load 0x0,0x14
0242 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0243 1c08 | | Execute_Immediate Run_Utility,0x8
0244 00d8 | | Load_Top At_Offset_0
0245 1c00 | | Execute_Immediate Run_Utility,0x0
0246 BODY_0238:
0246 00e1 | | Load_Encached Boolean_Cache
0247 e003 | | Load 0x0,0x3
0248 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0249 00e3 | | Load_Encached Natural_Cache
024a 00ec | | Load_Encached Diana_Tree_Cache
024b 827b | { | Call 0x1,0x7b
024c c5fa | | Store 0x2,-0x6
024d c5f9 | | Store 0x2,-0x7
024e c5f8 | | Store 0x2,-0x8
024f c5f7 | | Store 0x2,-0x9
0250 4800 |H | Short_Literal 0x0
0251 a5fb | | Store_Unchecked 0x2,-0x5
0252 4801 |H | Short_Literal 0x1
0253 e5fe | | Load 0x2,-0x2
0254 e014 | | Load 0x0,0x14
0255 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0256 e015 | | Load 0x0,0x15
0257 180d | | Execute Package,Field_Execute,Field_Number 0xd
0258 681d |h | Jump_Zero 0x276
0259 00d8 | | Load_Top At_Offset_0
025a e5fe | | Load 0x2,-0x2
025b e016 | | Load 0x0,0x16
025c 180f | | Execute Package,Field_Execute,Field_Number 0xf
025d 00d2 | | Pop_Control Pop_Count_2
025e 4801 |H | Short_Literal 0x1
025f a5fb | | Store_Unchecked 0x2,-0x5
0260 e5f6 | | Load 0x2,-0xa
0261 00e1 | | Load_Encached Boolean_Cache
0262 e003 | | Load 0x0,0x3
0263 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0264 00e3 | | Load_Encached Natural_Cache
0265 00ec | | Load_Encached Diana_Tree_Cache
0266 00e3 | | Load_Encached Natural_Cache
0267 e5fd | | Load 0x2,-0x3
0268 e5fc | | Load 0x2,-0x4
0269 e5fe | | Load 0x2,-0x2
026a e5ff | | Load 0x2,-0x1
026b e403 | | Load 0x2,0x3
026c 827e | ~ | Call 0x1,0x7e
026d 00d2 | | Pop_Control Pop_Count_2
026e c5fd | | Store 0x2,-0x3
026f c5fb | | Store 0x2,-0x5
0270 c5fa | | Store 0x2,-0x6
0271 c5f9 | | Store 0x2,-0x7
0272 c5f8 | | Store 0x2,-0x8
0273 c5f7 | | Store 0x2,-0x9
0274 c5f6 | | Store 0x2,-0xa
0275 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0276 e5f6 | | Load 0x2,-0xa
0277 00e3 | | Load_Encached Natural_Cache
0278 00da | | Load_Top At_Offset_2
0279 e5fe | | Load 0x2,-0x2
027a 4801 |H | Short_Literal 0x1
027b e402 | | Load 0x2,0x2
027c e016 | | Load 0x0,0x16
027d 180d | | Execute Package,Field_Execute,Field_Number 0xd
027e 00d2 | | Pop_Control Pop_Count_2
027f c5fb | | Store 0x2,-0x5
0280 c5f6 | | Store 0x2,-0xa
0281 4802 |H | Short_Literal 0x2
0282 e5f6 | | Load 0x2,-0xa
0283 e012 | | Load 0x0,0x12
0284 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0285 6801 |h | Jump_Zero 0x287
0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0287 e5fc | | Load 0x2,-0x4
0288 00d9 | | Load_Top At_Offset_1
0289 e016 | | Load 0x0,0x16
028a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028b e014 | | Load 0x0,0x14
028c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
028d 00d1 | | Pop_Control Pop_Count_1
028e e5f6 | | Load 0x2,-0xa
028f 00e1 | | Load_Encached Boolean_Cache
0290 e003 | | Load 0x0,0x3
0291 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0292 00e3 | | Load_Encached Natural_Cache
0293 00ec | | Load_Encached Diana_Tree_Cache
0294 e5fd | | Load 0x2,-0x3
0295 e5ff | | Load 0x2,-0x1
0296 e5fc | | Load 0x2,-0x4
0297 e014 | | Load 0x0,0x14
0298 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0299 e403 | | Load 0x2,0x3
029a e016 | | Load 0x0,0x16
029b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
029c 820f | | Call 0x1,0xf
029d c5fd | | Store 0x2,-0x3
029e c5fa | | Store 0x2,-0x6
029f c5f9 | | Store 0x2,-0x7
02a0 c5f8 | | Store 0x2,-0x8
02a1 c5f7 | | Store 0x2,-0x9
02a2 c5f6 | | Store 0x2,-0xa
02a3 4802 |H | Short_Literal 0x2
02a4 e5f6 | | Load 0x2,-0xa
02a5 e012 | | Load 0x0,0x12
02a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02a7 681b |h | Jump_Zero 0x2c3
02a8 e5f6 | | Load 0x2,-0xa
02a9 e012 | | Load 0x0,0x12
02aa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02ab e224 | $ | Load 0x1,0x24
02ac 01df | | Execute Vector,Equal
02ad 6815 |h | Jump_Zero 0x2c3
02ae e5f6 | | Load 0x2,-0xa
02af 00e1 | | Load_Encached Boolean_Cache
02b0 e003 | | Load 0x0,0x3
02b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b2 00e3 | | Load_Encached Natural_Cache
02b3 00ec | | Load_Encached Diana_Tree_Cache
02b4 00e3 | | Load_Encached Natural_Cache
02b5 e5fd | | Load 0x2,-0x3
02b6 e5fc | | Load 0x2,-0x4
02b7 e5fe | | Load 0x2,-0x2
02b8 e5ff | | Load 0x2,-0x1
02b9 e403 | | Load 0x2,0x3
02ba 827e | ~ | Call 0x1,0x7e
02bb 00d2 | | Pop_Control Pop_Count_2
02bc c5fd | | Store 0x2,-0x3
02bd c5fb | | Store 0x2,-0x5
02be c5fa | | Store 0x2,-0x6
02bf c5f9 | | Store 0x2,-0x7
02c0 c5f8 | | Store 0x2,-0x8
02c1 c5f7 | | Store 0x2,-0x9
02c2 c5f6 | | Store 0x2,-0xa
02c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e5fa | | Load 0x2,-0x6
02cc e004 | | Load 0x0,0x4
02cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ce e004 | | Load 0x0,0x4
02cf 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
02d0 e5fd | | Load 0x2,-0x3
02d1 0120 | | Execute Any,Is_Value
02d2 6803 |h | Jump_Zero 0x2d6
02d3 e004 | | Load 0x0,0x4
02d4 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
02d5 7801 |x | Jump 0x2d7
02d6 e5fd | | Load 0x2,-0x3
02d7 e5fe | | Load 0x2,-0x2
02d8 e5ff | | Load 0x2,-0x1
02d9 4806 |H | Short_Literal 0x6
02da e27a | z | Load 0x1,0x7a
02db 1710 | | Execute Task,Entry_Call,Field_Number 0x10
02dc c5fe | | Store 0x2,-0x2
02dd c5fd | | Store 0x2,-0x3
02de c5fc | | Store 0x2,-0x4
02df c5fb | | Store 0x2,-0x5
02e0 c5fa | | Store 0x2,-0x6
02e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e2 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
02ec 4801 |H | Short_Literal 0x1
02ed e27a | z | Load 0x1,0x7a
02ee 1712 | | Execute Task,Entry_Call,Field_Number 0x12
02ef 003b | ; | Store_Top Access,At_Offset_3
02f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f1 0000 0000 | | .BLANK 0000[0x7]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 4801 |H | Short_Literal 0x1
02fd e27a | z | Load 0x1,0x7a
02fe 1711 | | Execute Task,Entry_Call,Field_Number 0x11
02ff 003b | ; | Store_Top Access,At_Offset_3
0300 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0301 0000 0000 | | .BLANK 0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4800 |H | Short_Literal 0x0
030c 00db | | Load_Top At_Offset_3
030d e004 | | Load 0x0,0x4
030e 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
030f 8017 | | Call 0x0,0x17
0310 4803 |H | Short_Literal 0x3
0311 e018 | | Load 0x0,0x18
0312 e019 | | Load 0x0,0x19
0313 00ad | | QQ_Action Package,Field_Execute_Dynamic
0314 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0315 0000 0000 | | .XXX[0x3]
0317 0000 | |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00db | | Load_Top At_Offset_3
031c 6804 |h | Jump_Zero 0x321
031d 0092 1481 | | Action Push_String_Extended,0x1481 ; "Debug_Debugger"
031f 801a | | Call 0x0,0x1a
0320 6802 |h | Jump_Zero 0x323
0321 00da | | Load_Top At_Offset_2
0322 8219 | | Call 0x1,0x19
0323 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 7008 |p | Jump_Nonzero 0x335
032d e5fd | | Load 0x2,-0x3
032e 0092 1482 | | Action Push_String_Extended,0x1482 ; "Assert fail: "
0330 e5fe | | Load 0x2,-0x2
0331 01cc | | Execute Vector,Catenate
0332 821a | | Call 0x1,0x1a
0333 e217 | | Load 0x1,0x17
0334 0257 | W | Execute Discrete,Raise
0335 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0336 0000 0000 | | .XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 4601 |F | Jump_Case 0x2
033c 7801 |x | Jump 0x33e ; case 0x0
033d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
033e 00da | | Load_Top At_Offset_2
033f 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0340 0125 | % | Execute Any,Set_Constraint
0341 00da | | Load_Top At_Offset_2
0342 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0343 1c00 | | Execute_Immediate Run_Utility,0x0
0344 00da | | Load_Top At_Offset_2
0345 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0346 0125 | % | Execute Any,Set_Constraint
0347 00da | | Load_Top At_Offset_2
0348 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0349 1c00 | | Execute_Immediate Run_Utility,0x0
034a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
034b 0000 0000 | | .BLANK 0000[0x5]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 0227 | ' | Execute Access,All_Reference
035d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
035e a5fe | | Store_Unchecked 0x2,-0x2
035f 00da | | Load_Top At_Offset_2
0360 0227 | ' | Execute Access,All_Reference
0361 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0362 a5fd | | Store_Unchecked 0x2,-0x3
0363 00da | | Load_Top At_Offset_2
0364 0227 | ' | Execute Access,All_Reference
0365 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0366 a5fb | | Store_Unchecked 0x2,-0x5
0367 00da | | Load_Top At_Offset_2
0368 0227 | ' | Execute Access,All_Reference
0369 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
036a a5fc | | Store_Unchecked 0x2,-0x4
036b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
036c 0000 0000 | | .BLANK 0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 801b | | Call 0x0,0x1b
0375 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0376 0000 0000 | | .XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 801c | | Call 0x0,0x1c
037c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037d 0000 0000 | | .XXX[0x3]
037f 0000 | |
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 4904 |I | Short_Literal 0x104
0385 00eb | | Load_Encached Diana_Cache
0386 0096 | | Execute Package,Entry
0387 00eb | | Load_Encached Diana_Cache
0388 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0389 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0398 | | .CONST 0x0398 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0004 | | .CONST 0x0004 ; Number of locals
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 e01d | | Load 0x0,0x1d
0395 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0396 00ec | | Load_Encached Diana_Tree_Cache
0397 039d | | Declare_Variable Heap_Access,Duplicate
0398 BODY_0390:
0398 00da | | Load_Top At_Offset_2
0399 00eb | | Load_Encached Diana_Cache
039a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
039b 6802 |h | Jump_Zero 0x39e
039c e5ff | | Load 0x2,-0x1
039d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
039e 00da | | Load_Top At_Offset_2
039f 00eb | | Load_Encached Diana_Cache
03a0 18ec | | Execute Package,Field_Execute,Field_Number 0xec
03a1 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03a2 00d9 | | Load_Top At_Offset_1
03a3 00eb | | Load_Encached Diana_Cache
03a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a5 6811 |h | Jump_Zero 0x3b7
03a6 00da | | Load_Top At_Offset_2
03a7 e01e | | Load 0x0,0x1e
03a8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03aa 0092 1483 | | Action Push_String_Extended,0x1483 ; "Sm_Back_Link returned unexpected kind of node"
03ac 00d9 | | Load_Top At_Offset_1
03ad 00eb | | Load_Encached Diana_Cache
03ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03af e5ff | | Load 0x2,-0x1
03b0 00eb | | Load_Encached Diana_Cache
03b1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03b2 027f | | Execute Discrete,Equal
03b3 e01f | | Load 0x0,0x1f
03b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b5 00d8 | | Load_Top At_Offset_0
03b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b7 00d9 | | Load_Top At_Offset_1
03b8 e01d | | Load 0x0,0x1d
03b9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03ba 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03bb 00d8 | | Load_Top At_Offset_0
03bc 8229 | ) | Call 0x1,0x29
03bd 6802 |h | Jump_Zero 0x3c0
03be e5ff | | Load 0x2,-0x1
03bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c0 00d8 | | Load_Top At_Offset_0
03c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c2 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
03cc 00eb | | Load_Encached Diana_Cache
03cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03ce 00d8 | | Load_Top At_Offset_0
03cf 4821 |H! | Short_Literal 0x21
03d0 482c |H, | Short_Literal 0x2c
03d1 0262 | b | Execute Discrete,In_Range
03d2 6812 |h | Jump_Zero 0x3e5
03d3 00d8 | | Load_Top At_Offset_0
03d4 4823 |H# | Short_Literal 0x23
03d5 4828 |H( | Short_Literal 0x28
03d6 0262 | b | Execute Discrete,In_Range
03d7 700d |p | Jump_Nonzero 0x3e5
03d8 482a |H* | Short_Literal 0x2a
03d9 482b |H+ | Short_Literal 0x2b
03da 0262 | b | Execute Discrete,In_Range
03db 700a |p | Jump_Nonzero 0x3e6
03dc 7800 |x | Jump 0x3dd
03dd 00da | | Load_Top At_Offset_2
03de 8229 | ) | Call 0x1,0x29
03df 6803 |h | Jump_Zero 0x3e3
03e0 00da | | Load_Top At_Offset_2
03e1 822a | * | Call 0x1,0x2a
03e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e3 00da | | Load_Top At_Offset_2
03e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e5 00d1 | | Pop_Control Pop_Count_1
03e6 00da | | Load_Top At_Offset_2
03e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 03f1 | | .CONST 0x03f1 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec 00eb | | Load_Encached Diana_Cache
03ed 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03ee 00eb | | Load_Encached Diana_Cache
03ef 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f1 TRAP_03e8:
03f1 0007 | | Action Break_Optional
03f2 0092 1484 | | Action Push_String_Extended,0x1484 ; "<NULL>"
03f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f5 0000 0000 | | .XXX[0x3]
03f7 0000 | |
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 4801 |H | Short_Literal 0x1
03fc 4800 |H | Short_Literal 0x0
03fd e020 | | Load 0x0,0x20
03fe e5ff | | Load 0x2,-0x1
03ff e021 | ! | Load 0x0,0x21
0400 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0401 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0402 0000 0000 | | .BLANK 0000[0x6]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c 00eb | | Load_Encached Diana_Cache
040d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
040e 6802 |h | Jump_Zero 0x411
040f 00ea | | Load_Encached Null_String_Cache
0410 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0411 00da | | Load_Top At_Offset_2
0412 4904 |I | Short_Literal 0x104
0413 00eb | | Load_Encached Diana_Cache
0414 0096 | | Execute Package,Entry
0415 00eb | | Load_Encached Diana_Cache
0416 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0417 0b7b | { | Execute_Immediate Case_Compare,0x7b
0418 7006 |p | Jump_Nonzero 0x41f
0419 0b7a | z | Execute_Immediate Case_Compare,0x7a
041a 7008 |p | Jump_Nonzero 0x423
041b 0f7c | | | Execute_Immediate Equal,0x7c
041c 700a |p | Jump_Nonzero 0x427
041d 00ea | | Load_Encached Null_String_Cache
041e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
041f 00d1 | | Pop_Control Pop_Count_1
0420 0092 1485 | | Action Push_String_Extended,0x1485 ; "procedure "
0422 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0423 00d1 | | Pop_Control Pop_Count_1
0424 0092 1486 | | Action Push_String_Extended,0x1486 ; "function "
0426 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0427 0092 1487 | | Action Push_String_Extended,0x1487 ; "package "
0429 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042a 0000 0000 | | .BLANK 0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 00da | | Load_Top At_Offset_2
0434 00d8 | | Load_Top At_Offset_0
0435 4821 |H! | Short_Literal 0x21
0436 482c |H, | Short_Literal 0x2c
0437 0262 | b | Execute Discrete,In_Range
0438 681d |h | Jump_Zero 0x456
0439 0adf | | Execute_Immediate Plus,-0x21
043a 460b |F | Jump_Case 0xc
043b 780e |x | Jump 0x44a ; case 0x0
043c 7813 |x | Jump 0x450 ; case 0x1
043d 7819 |x | Jump 0x457 ; case 0x2
043e 7818 |x | Jump 0x457 ; case 0x3
043f 7817 |x | Jump 0x457 ; case 0x4
0440 7816 |x | Jump 0x457 ; case 0x5
0441 7815 |x | Jump 0x457 ; case 0x6
0442 7814 |x | Jump 0x457 ; case 0x7
0443 7809 |x | Jump 0x44d ; case 0x8
0444 7812 |x | Jump 0x457 ; case 0x9
0445 7811 |x | Jump 0x457 ; case 0xa
0446 7800 |x | Jump 0x447 ; case 0xb
0447 0092 1485 | | Action Push_String_Extended,0x1485 ; "procedure "
0449 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
044a 0092 1486 | | Action Push_String_Extended,0x1486 ; "function "
044c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
044d 0092 1487 | | Action Push_String_Extended,0x1487 ; "package "
044f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0450 0092 1488 | | Action Push_String_Extended,0x1488 ; "generic "
0452 e5fe | | Load 0x2,-0x2
0453 822e | . | Call 0x1,0x2e
0454 01cc | | Execute Vector,Catenate
0455 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0456 00d1 | | Pop_Control Pop_Count_1
0457 00ea | | Load_Encached Null_String_Cache
0458 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0459 0000 0000 | | .BLANK 0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 e5fd | | Load 0x2,-0x3
0464 00db | | Load_Top At_Offset_3
0465 822f | / | Call 0x1,0x2f
0466 e5fe | | Load 0x2,-0x2
0467 00eb | | Load_Encached Diana_Cache
0468 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0469 01cc | | Execute Vector,Catenate
046a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
046b 0000 0000 | | .BLANK 0000[0x5]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00da | | Load_Top At_Offset_2
0474 00db | | Load_Top At_Offset_3
0475 00eb | | Load_Encached Diana_Cache
0476 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0477 e5ff | | Load 0x2,-0x1
0478 00eb | | Load_Encached Diana_Cache
0479 1814 | | Execute Package,Field_Execute,Field_Number 0x14
047a 8230 | 0 | Call 0x1,0x30
047b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047c 0000 0000 | | .BLANK 0000[0x4]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0488 | | .CONST 0x0488 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 00da | | Load_Top At_Offset_2
0484 822c | , | Call 0x1,0x2c
0485 e022 | " | Load 0x0,0x22
0486 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0487 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0488 TRAP_0480:
0488 0007 | | Action Break_Optional
0489 0092 1484 | | Action Push_String_Extended,0x1484 ; "<NULL>"
048b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
048c 0000 0000 | | .BLANK 0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0499 | | .CONST 0x0499 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00da | | Load_Top At_Offset_2
0494 00eb | | Load_Encached Diana_Cache
0495 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0496 e022 | " | Load 0x0,0x22
0497 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0498 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0499 TRAP_0490:
0499 0007 | | Action Break_Optional
049a 0092 1484 | | Action Push_String_Extended,0x1484 ; "<NULL>"
049c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
049d 0000 0000 | | .XXX[0x3]
049f 0000 | |
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 0092 1489 | | Action Push_String_Extended,0x1489 ; "Warning: Incompatible subsystem versions detected in command"
04a5 8227 | ' | Call 0x1,0x27
04a6 8228 | ( | Call 0x1,0x28
04a7 0092 148a | | Action Push_String_Extended,0x148a ; " Spec: "
04a9 00db | | Load_Top At_Offset_3
04aa 8231 | 1 | Call 0x1,0x31
04ab 01cc | | Execute Vector,Catenate
04ac 0092 148b | | Action Push_String_Extended,0x148b ; ", Units: "
04ae 01cc | | Execute Vector,Catenate
04af e5fe | | Load 0x2,-0x2
04b0 8231 | 1 | Call 0x1,0x31
04b1 01cc | | Execute Vector,Catenate
04b2 0092 148c | | Action Push_String_Extended,0x148c ; ", "
04b4 01cc | | Execute Vector,Catenate
04b5 e5fd | | Load 0x2,-0x3
04b6 8231 | 1 | Call 0x1,0x31
04b7 01cc | | Execute Vector,Catenate
04b8 8227 | ' | Call 0x1,0x27
04b9 8228 | ( | Call 0x1,0x28
04ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04bb 0000 0000 | | .BLANK 0000[0x5]
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 0092 1489 | | Action Push_String_Extended,0x1489 ; "Warning: Incompatible subsystem versions detected in command"
04c5 8227 | ' | Call 0x1,0x27
04c6 8228 | ( | Call 0x1,0x28
04c7 0092 148a | | Action Push_String_Extended,0x148a ; " Spec: "
04c9 00db | | Load_Top At_Offset_3
04ca 8231 | 1 | Call 0x1,0x31
04cb 01cc | | Execute Vector,Catenate
04cc 0092 148d | | Action Push_String_Extended,0x148d ; ", Unit: "
04ce 01cc | | Execute Vector,Catenate
04cf e5fe | | Load 0x2,-0x2
04d0 8231 | 1 | Call 0x1,0x31
04d1 01cc | | Execute Vector,Catenate
04d2 8227 | ' | Call 0x1,0x27
04d3 8228 | ( | Call 0x1,0x28
04d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04d5 0000 0000 | | .XXX[0x3]
04d7 0000 | |
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04dc | | .CONST 0x04dc ; Address of begin
04d9 04e5 | | .CONST 0x04e5 ; Address of exception handler
04da 0002 | | .CONST 0x0002 ; Number of locals
04db INIT_04d8:
04db 00ec | | Load_Encached Diana_Tree_Cache
04dc BODY_04d8:
04dc e023 | # | Load 0x0,0x23
04dd 180f | | Execute Package,Field_Execute,Field_Number 0xf
04de 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04df 00d8 | | Load_Top At_Offset_0
04e0 00eb | | Load_Encached Diana_Cache
04e1 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
04e2 00eb | | Load_Encached Diana_Cache
04e3 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
04e4 00ca | | Action Exit_Nullary_Function
04e5 TRAP_04d8:
04e5 0007 | | Action Break_Optional
04e6 00eb | | Load_Encached Diana_Cache
04e7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04e8 00ca | | Action Exit_Nullary_Function
04e9 0000 0000 | | .BLANK 0000[0x7]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f5 | | .CONST 0x04f5 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0003 | | .CONST 0x0003 ; Number of locals
04f3 INIT_04f0:
04f3 00ec | | Load_Encached Diana_Tree_Cache
04f4 039d | | Declare_Variable Heap_Access,Duplicate
04f5 BODY_04f0:
04f5 e5ff | | Load 0x2,-0x1
04f6 00eb | | Load_Encached Diana_Cache
04f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04f8 00d8 | | Load_Top At_Offset_0
04f9 4821 |H! | Short_Literal 0x21
04fa 482c |H, | Short_Literal 0x2c
04fb 0262 | b | Execute Discrete,In_Range
04fc 6823 |h# | Jump_Zero 0x520
04fd 00d8 | | Load_Top At_Offset_0
04fe 4823 |H# | Short_Literal 0x23
04ff 4828 |H( | Short_Literal 0x28
0500 0262 | b | Execute Discrete,In_Range
0501 701e |p | Jump_Nonzero 0x520
0502 482a |H* | Short_Literal 0x2a
0503 482b |H+ | Short_Literal 0x2b
0504 0262 | b | Execute Discrete,In_Range
0505 701b |p | Jump_Nonzero 0x521
0506 7800 |x | Jump 0x507
0507 e5ff | | Load 0x2,-0x1
0508 00eb | | Load_Encached Diana_Cache
0509 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
050a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
050b 00d9 | | Load_Top At_Offset_1
050c 00eb | | Load_Encached Diana_Cache
050d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
050e 0f80 | | Execute_Immediate Equal,-0x80
050f 680c |h | Jump_Zero 0x51c
0510 00d9 | | Load_Top At_Offset_1
0511 00eb | | Load_Encached Diana_Cache
0512 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0513 4976 |Iv | Short_Literal 0x176
0514 00eb | | Load_Encached Diana_Cache
0515 0098 | | Execute Package,Field_Read_Dynamic
0516 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0517 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0518 00d8 | | Load_Top At_Offset_0
0519 e021 | ! | Load 0x0,0x21
051a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
051b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
051c e5ff | | Load 0x2,-0x1
051d e021 | ! | Load 0x0,0x21
051e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
051f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0520 00d1 | | Pop_Control Pop_Count_1
0521 e5ff | | Load 0x2,-0x1
0522 e021 | ! | Load 0x0,0x21
0523 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0524 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0525 0000 0000 | | .XXX[0x3]
0527 0000 | |
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b 00da | | Load_Top At_Offset_2
052c 00eb | | Load_Encached Diana_Cache
052d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
052e 00eb | | Load_Encached Diana_Cache
052f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0530 011c | | Execute Any,Convert_Unchecked
0531 1c01 | | Execute_Immediate Run_Utility,0x1
0532 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0533 0000 0000 | | .BLANK 0000[0x5]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 054d | M | .CONST 0x054d ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0005 | | .CONST 0x0005 ; Number of locals
053b INIT_0538:
053b e024 | $ | Load 0x0,0x24
053c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
053d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
053e 02c7 | | Declare_Variable Any
053f 00d8 | | Load_Top At_Offset_0
0540 1c00 | | Execute_Immediate Run_Utility,0x0
0541 e024 | $ | Load 0x0,0x24
0542 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0543 02c7 | | Declare_Variable Any
0544 00d8 | | Load_Top At_Offset_0
0545 1c00 | | Execute_Immediate Run_Utility,0x0
0546 e024 | $ | Load 0x0,0x24
0547 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0548 02c7 | | Declare_Variable Any
0549 00d8 | | Load_Top At_Offset_0
054a 1c00 | | Execute_Immediate Run_Utility,0x0
054b e024 | $ | Load 0x0,0x24
054c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
054d BODY_0538:
054d e5fe | | Load 0x2,-0x2
054e 00eb | | Load_Encached Diana_Cache
054f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0550 0f29 | ) | Execute_Immediate Equal,0x29
0551 7002 |p | Jump_Nonzero 0x554
0552 4800 |H | Short_Literal 0x0
0553 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0554 0092 148e | | Action Push_String_Extended,0x148e ; "Same_Object: Library_Node of type "
0556 e5ff | | Load 0x2,-0x1
0557 823c | < | Call 0x1,0x3c
0558 01cc | | Execute Vector,Catenate
0559 e5ff | | Load 0x2,-0x1
055a 00eb | | Load_Encached Diana_Cache
055b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
055c 0f30 | 0 | Execute_Immediate Equal,0x30
055d e01f | | Load 0x0,0x1f
055e 180e | | Execute Package,Field_Execute,Field_Number 0xe
055f e024 | $ | Load 0x0,0x24
0560 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0561 00db | | Load_Top At_Offset_3
0562 0120 | | Execute Any,Is_Value
0563 6803 |h | Jump_Zero 0x567
0564 e024 | $ | Load 0x0,0x24
0565 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0566 7801 |x | Jump 0x568
0567 00db | | Load_Top At_Offset_3
0568 602f |`/ | Indirect_Literal Discrete,0x598,{0x00000000, 0x00004000}
0569 e025 | % | Load 0x0,0x25
056a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
056b 4800 |H | Short_Literal 0x0
056c e024 | $ | Load 0x0,0x24
056d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
056e e5ff | | Load 0x2,-0x1
056f e024 | $ | Load 0x0,0x24
0570 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0571 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0572 c403 | | Store 0x2,0x3
0573 0059 | Y | Store_Top Discrete,At_Offset_1
0574 00d8 | | Load_Top At_Offset_0
0575 6802 |h | Jump_Zero 0x578
0576 4800 |H | Short_Literal 0x0
0577 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0578 e024 | $ | Load 0x0,0x24
0579 1b0d | | Execute Package,Field_Read,Field_Number 0xd
057a e402 | | Load 0x2,0x2
057b 0120 | | Execute Any,Is_Value
057c 6804 |h | Jump_Zero 0x581
057d e024 | $ | Load 0x0,0x24
057e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
057f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0580 7801 |x | Jump 0x582
0581 e402 | | Load 0x2,0x2
0582 e5fe | | Load 0x2,-0x2
0583 e024 | $ | Load 0x0,0x24
0584 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0585 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0586 c402 | | Store 0x2,0x2
0587 0059 | Y | Store_Top Discrete,At_Offset_1
0588 00d8 | | Load_Top At_Offset_0
0589 6802 |h | Jump_Zero 0x58c
058a 4800 |H | Short_Literal 0x0
058b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
058c 00db | | Load_Top At_Offset_3
058d e024 | $ | Load 0x0,0x24
058e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
058f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0590 c404 | | Store 0x2,0x4
0591 00d9 | | Load_Top At_Offset_1
0592 00db | | Load_Top At_Offset_3
0593 012f | / | Execute Any,Equal
0594 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0595 0000 0000 | | .XXX[0x3]
0597 0000 | |
0598 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
059c 0000 0000 | | .BLANK 0000[0x4]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 05a9 | | .CONST 0x05a9 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 00da | | Load_Top At_Offset_2
05a4 e026 | & | Load 0x0,0x26
05a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05a6 e01d | | Load 0x0,0x1d
05a7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a9 TRAP_05a0:
05a9 0007 | | Action Break_Optional
05aa 00eb | | Load_Encached Diana_Cache
05ab 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ad 0000 0000 | | .XXX[0x3]
05af 0000 | |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 00da | | Load_Top At_Offset_2
05b4 00eb | | Load_Encached Diana_Cache
05b5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05b6 0f30 | 0 | Execute_Immediate Equal,0x30
05b7 6804 |h | Jump_Zero 0x5bc
05b8 00da | | Load_Top At_Offset_2
05b9 e026 | & | Load 0x0,0x26
05ba 180f | | Execute Package,Field_Execute,Field_Number 0xf
05bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05bc 4800 |H | Short_Literal 0x0
05bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05be 0000 0000 | | .XXX[0x2]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 e5fe | | Load 0x2,-0x2
05c5 021f | | Execute Heap_Access,Equal
05c6 7006 |p | Jump_Nonzero 0x5cd
05c7 00da | | Load_Top At_Offset_2
05c8 8027 | ' | Call 0x0,0x27
05c9 e5fe | | Load 0x2,-0x2
05ca 8027 | ' | Call 0x0,0x27
05cb 021f | | Execute Heap_Access,Equal
05cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05cd 4801 |H | Short_Literal 0x1
05ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05cf 0000 | | .XXX[0x1]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 00da | | Load_Top At_Offset_2
05d4 e5fe | | Load 0x2,-0x2
05d5 021f | | Execute Heap_Access,Equal
05d6 7008 |p | Jump_Nonzero 0x5df
05d7 e5fd | | Load 0x2,-0x3
05d8 6804 |h | Jump_Zero 0x5dd
05d9 e5fc | | Load 0x2,-0x4
05da e003 | | Load 0x0,0x3
05db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05dc 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05dd 4800 |H | Short_Literal 0x0
05de 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05df 4801 |H | Short_Literal 0x1
05e0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05e1 0000 0000 | | .BLANK 0000[0x7]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 00da | | Load_Top At_Offset_2
05ec 00eb | | Load_Encached Diana_Cache
05ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ee 7004 |p | Jump_Nonzero 0x5f3
05ef 00db | | Load_Top At_Offset_3
05f0 00db | | Load_Top At_Offset_3
05f1 8240 | @ | Call 0x1,0x40
05f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f3 4801 |H | Short_Literal 0x1
05f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f5 0000 0000 | | .XXX[0x3]
05f7 0000 | |
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 00da | | Load_Top At_Offset_2
05fc e016 | | Load 0x0,0x16
05fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05fe 6808 |h | Jump_Zero 0x607
05ff 4801 |H | Short_Literal 0x1
0600 e5fe | | Load 0x2,-0x2
0601 e01d | | Load 0x0,0x1d
0602 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0603 e5ff | | Load 0x2,-0x1
0604 e022 | " | Load 0x0,0x22
0605 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0606 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0607 4800 |H | Short_Literal 0x0
0608 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0609 0000 0000 | | .BLANK 0000[0x7]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0615 | | .CONST 0x0615 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0003 | | .CONST 0x0003 ; Number of locals
0613 INIT_0610:
0613 00e2 | | Load_Encached Integer_Cache
0614 00e1 | | Load_Encached Boolean_Cache
0615 BODY_0610:
0615 e5ff | | Load 0x2,-0x1
0616 01db | | Execute Vector,Length
0617 0f00 | | Execute_Immediate Equal,0x0
0618 e5fe | | Load 0x2,-0x2
0619 022d | - | Execute Access,Is_Null
061a 0278 | x | Execute Discrete,Or
061b 6802 |h | Jump_Zero 0x61e
061c 4800 |H | Short_Literal 0x0
061d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
061e 00e1 | | Load_Encached Boolean_Cache
061f 00e2 | | Load_Encached Integer_Cache
0620 e5ff | | Load 0x2,-0x1
0621 e016 | | Load 0x0,0x16
0622 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0623 005b | [ | Store_Top Discrete,At_Offset_3
0624 0059 | Y | Store_Top Discrete,At_Offset_1
0625 00d8 | | Load_Top At_Offset_0
0626 6806 |h | Jump_Zero 0x62d
0627 00d9 | | Load_Top At_Offset_1
0628 e5fe | | Load 0x2,-0x2
0629 0227 | ' | Execute Access,All_Reference
062a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
062b 027f | | Execute Discrete,Equal
062c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
062d e5fe | | Load 0x2,-0x2
062e 0227 | ' | Execute Access,All_Reference
062f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0630 e5ff | | Load 0x2,-0x1
0631 8243 | C | Call 0x1,0x43
0632 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0633 0000 0000 | | .BLANK 0000[0x5]
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 00eb | | Load_Encached Diana_Cache
063d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
063e 0f29 | ) | Execute_Immediate Equal,0x29
063f 7004 |p | Jump_Nonzero 0x644
0640 00da | | Load_Top At_Offset_2
0641 e01d | | Load 0x0,0x1d
0642 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0643 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0644 4801 |H | Short_Literal 0x1
0645 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0646 0000 0000 | | .XXX[0x2]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064d | M | .CONST 0x064d ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0003 | | .CONST 0x0003 ; Number of locals
064b INIT_0648:
064b 00e2 | | Load_Encached Integer_Cache
064c 00e1 | | Load_Encached Boolean_Cache
064d BODY_0648:
064d e5fd | | Load 0x2,-0x3
064e 6804 |h | Jump_Zero 0x653
064f e012 | | Load 0x0,0x12
0650 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0651 c5fc | | Store 0x2,-0x4
0652 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0653 e5ff | | Load 0x2,-0x1
0654 8245 | E | Call 0x1,0x45
0655 680c |h | Jump_Zero 0x662
0656 e5fe | | Load 0x2,-0x2
0657 e016 | | Load 0x0,0x16
0658 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0659 7004 |p | Jump_Nonzero 0x65e
065a e5fe | | Load 0x2,-0x2
065b e016 | | Load 0x0,0x16
065c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
065d 6804 |h | Jump_Zero 0x662
065e e012 | | Load 0x0,0x12
065f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0660 c5fc | | Store 0x2,-0x4
0661 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0662 e5ff | | Load 0x2,-0x1
0663 e5fe | | Load 0x2,-0x2
0664 8243 | C | Call 0x1,0x43
0665 6804 |h | Jump_Zero 0x66a
0666 e012 | | Load 0x0,0x12
0667 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0668 c5fc | | Store 0x2,-0x4
0669 4504 |E | Exit_Suprogram New_Top_Offset 0x4
066a 0092 148f | | Action Push_String_Extended,0x148f ; "Invalid qualifier (none required): "
066c e5fe | | Load 0x2,-0x2
066d 01cc | | Execute Vector,Catenate
066e e012 | | Load 0x0,0x12
066f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0670 c5fc | | Store 0x2,-0x4
0671 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0672 0000 0000 | | .BLANK 0000[0x6]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b | { | .CONST 0x067b ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0001 | | .CONST 0x0001 ; Number of locals
067b BODY_0678:
067b INIT_0678:
067b 00db | | Load_Top At_Offset_3
067c 6806 |h | Jump_Zero 0x683
067d e012 | | Load 0x0,0x12
067e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
067f c5fa | | Store 0x2,-0x6
0680 4801 |H | Short_Literal 0x1
0681 a5f9 | | Store_Unchecked 0x2,-0x7
0682 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0683 00da | | Load_Top At_Offset_2
0684 680d |h | Jump_Zero 0x692
0685 4800 |H | Short_Literal 0x0
0686 a5f9 | | Store_Unchecked 0x2,-0x7
0687 e5fd | | Load 0x2,-0x3
0688 01db | | Execute Vector,Length
0689 0c01 | | Execute_Immediate Greater_Equal,0x1
068a 6806 |h | Jump_Zero 0x691
068b e5fa | | Load 0x2,-0x6
068c e5fc | | Load 0x2,-0x4
068d e5fd | | Load 0x2,-0x3
068e e5fb | | Load 0x2,-0x5
068f 8246 | F | Call 0x1,0x46
0690 c5fa | | Store 0x2,-0x6
0691 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0692 e224 | $ | Load 0x1,0x24
0693 e012 | | Load 0x0,0x12
0694 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0695 c5fa | | Store 0x2,-0x6
0696 4800 |H | Short_Literal 0x0
0697 a5f9 | | Store_Unchecked 0x2,-0x7
0698 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0699 0000 0000 | | .BLANK 0000[0x7]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 00db | | Load_Top At_Offset_3
06a4 0aff | | Execute_Immediate Plus,-0x1
06a5 c5fe | | Store 0x2,-0x2
06a6 e5fc | | Load 0x2,-0x4
06a7 7005 |p | Jump_Nonzero 0x6ad
06a8 e5fd | | Load 0x2,-0x3
06a9 0227 | ' | Execute Access,All_Reference
06aa 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06ab 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ad e5fd | | Load 0x2,-0x3
06ae 0227 | ' | Execute Access,All_Reference
06af 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06b0 e5fc | | Load 0x2,-0x4
06b1 0227 | ' | Execute Access,All_Reference
06b2 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
06b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06b4 0000 0000 | | .BLANK 0000[0x4]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bf | | .CONST 0x06bf ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0005 | | .CONST 0x0005 ; Number of locals
06bb INIT_06b8:
06bb e21f | | Load 0x1,0x1f
06bc 03bd | | Declare_Variable Access,Duplicate
06bd 00e3 | | Load_Encached Natural_Cache
06be 00e1 | | Load_Encached Boolean_Cache
06bf BODY_06b8:
06bf e5ff | | Load 0x2,-0x1
06c0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06c1 e21f | | Load 0x1,0x1f
06c2 003b | ; | Store_Top Access,At_Offset_3
06c3 00cf | | Action Mark_Auxiliary
06c4 7825 |x% | Jump 0x6ea
06c5 00e1 | | Load_Encached Boolean_Cache
06c6 e402 | | Load 0x2,0x2
06c7 e404 | | Load 0x2,0x4
06c8 e5fd | | Load 0x2,-0x3
06c9 0227 | ' | Execute Access,All_Reference
06ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06cb e223 | # | Load 0x1,0x23
06cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06cd c402 | | Store 0x2,0x2
06ce 005a | Z | Store_Top Discrete,At_Offset_2
06cf 00d9 | | Load_Top At_Offset_1
06d0 7001 |p | Jump_Nonzero 0x6d2
06d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06d2 e402 | | Load 0x2,0x2
06d3 0227 | ' | Execute Access,All_Reference
06d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06d5 0f02 | | Execute_Immediate Equal,0x2
06d6 680c |h | Jump_Zero 0x6e3
06d7 e5fd | | Load 0x2,-0x3
06d8 e403 | | Load 0x2,0x3
06d9 e402 | | Load 0x2,0x2
06da e5fe | | Load 0x2,-0x2
06db e5ff | | Load 0x2,-0x1
06dc 8248 | H | Call 0x1,0x48
06dd c5ff | | Store 0x2,-0x1
06de c5fe | | Store 0x2,-0x2
06df c402 | | Store 0x2,0x2
06e0 c403 | | Store 0x2,0x3
06e1 c5fd | | Store 0x2,-0x3
06e2 7802 |x | Jump 0x6e5
06e3 e402 | | Load 0x2,0x2
06e4 a403 | | Store_Unchecked 0x2,0x3
06e5 e402 | | Load 0x2,0x2
06e6 0227 | ' | Execute Access,All_Reference
06e7 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06e8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06e9 00c9 | | Action Pop_Auxiliary_Loop
06ea 00da | | Load_Top At_Offset_2
06eb 77d9 |w | Jump_Nonzero 0x6c5
06ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ed 0000 0000 | | .XXX[0x3]
06ef 0000 | |
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f7 | | .CONST 0x06f7 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0005 | | .CONST 0x0005 ; Number of locals
06f3 INIT_06f0:
06f3 e21f | | Load 0x1,0x1f
06f4 03bd | | Declare_Variable Access,Duplicate
06f5 00e3 | | Load_Encached Natural_Cache
06f6 00e1 | | Load_Encached Boolean_Cache
06f7 BODY_06f0:
06f7 e5fe | | Load 0x2,-0x2
06f8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06f9 e21f | | Load 0x1,0x1f
06fa 003b | ; | Store_Top Access,At_Offset_3
06fb 00cf | | Action Mark_Auxiliary
06fc 7824 |x$ | Jump 0x721
06fd 00e1 | | Load_Encached Boolean_Cache
06fe e402 | | Load 0x2,0x2
06ff e404 | | Load 0x2,0x4
0700 e5fc | | Load 0x2,-0x4
0701 0227 | ' | Execute Access,All_Reference
0702 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0703 e223 | # | Load 0x1,0x23
0704 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0705 c402 | | Store 0x2,0x2
0706 005a | Z | Store_Top Discrete,At_Offset_2
0707 00d9 | | Load_Top At_Offset_1
0708 7001 |p | Jump_Nonzero 0x70a
0709 4502 |E | Exit_Suprogram New_Top_Offset 0x2
070a 00da | | Load_Top At_Offset_2
070b e5ff | | Load 0x2,-0x1
070c 027f | | Execute Discrete,Equal
070d 680c |h | Jump_Zero 0x71a
070e e5fc | | Load 0x2,-0x4
070f e403 | | Load 0x2,0x3
0710 e402 | | Load 0x2,0x2
0711 e5fd | | Load 0x2,-0x3
0712 e5fe | | Load 0x2,-0x2
0713 8248 | H | Call 0x1,0x48
0714 c5fe | | Store 0x2,-0x2
0715 c5fd | | Store 0x2,-0x3
0716 c402 | | Store 0x2,0x2
0717 c403 | | Store 0x2,0x3
0718 c5fc | | Store 0x2,-0x4
0719 4502 |E | Exit_Suprogram New_Top_Offset 0x2
071a e402 | | Load 0x2,0x2
071b a403 | | Store_Unchecked 0x2,0x3
071c e402 | | Load 0x2,0x2
071d 0227 | ' | Execute Access,All_Reference
071e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
071f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0720 00c9 | | Action Pop_Auxiliary_Loop
0721 00da | | Load_Top At_Offset_2
0722 77da |w | Jump_Nonzero 0x6fd
0723 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0724 0000 0000 | | .BLANK 0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072c | , | .CONST 0x072c ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0002 | | .CONST 0x0002 ; Number of locals
072b INIT_0728:
072b 00ec | | Load_Encached Diana_Tree_Cache
072c BODY_0728:
072c 00db | | Load_Top At_Offset_3
072d 00eb | | Load_Encached Diana_Cache
072e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
072f 6803 |h | Jump_Zero 0x733
0730 00eb | | Load_Encached Diana_Cache
0731 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0732 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0733 00db | | Load_Top At_Offset_3
0734 e01d | | Load 0x0,0x1d
0735 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0736 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0737 00d8 | | Load_Top At_Offset_0
0738 00eb | | Load_Encached Diana_Cache
0739 1813 | | Execute Package,Field_Execute,Field_Number 0x13
073a 6803 |h | Jump_Zero 0x73e
073b 00eb | | Load_Encached Diana_Cache
073c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
073d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
073e 00d8 | | Load_Top At_Offset_0
073f 4976 |Iv | Short_Literal 0x176
0740 00eb | | Load_Encached Diana_Cache
0741 0098 | | Execute Package,Field_Read_Dynamic
0742 180f | | Execute Package,Field_Execute,Field_Number 0xf
0743 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0744 0000 0000 | | .BLANK 0000[0x4]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b 00da | | Load_Top At_Offset_2
074c 00eb | | Load_Encached Diana_Cache
074d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
074e 7008 |p | Jump_Nonzero 0x757
074f 00da | | Load_Top At_Offset_2
0750 e01e | | Load 0x0,0x1e
0751 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0752 6804 |h | Jump_Zero 0x757
0753 00da | | Load_Top At_Offset_2
0754 e01e | | Load 0x0,0x1e
0755 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0756 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0757 4800 |H | Short_Literal 0x0
0758 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0759 0000 0000 | | .BLANK 0000[0x7]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 00da | | Load_Top At_Offset_2
0764 00eb | | Load_Encached Diana_Cache
0765 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0766 7004 |p | Jump_Nonzero 0x76b
0767 00da | | Load_Top At_Offset_2
0768 e01e | | Load 0x0,0x1e
0769 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
076a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076b 4800 |H | Short_Literal 0x0
076c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076d 0000 0000 | | .XXX[0x3]
076f 0000 | |
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0775 | u | .CONST 0x0775 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0003 | | .CONST 0x0003 ; Number of locals
0773 INIT_0770:
0773 00e3 | | Load_Encached Natural_Cache
0774 00ec | | Load_Encached Diana_Tree_Cache
0775 BODY_0770:
0775 e5ff | | Load 0x2,-0x1
0776 824b | K | Call 0x1,0x4b
0777 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0778 00d8 | | Load_Top At_Offset_0
0779 824c | L | Call 0x1,0x4c
077a 005a | Z | Store_Top Discrete,At_Offset_2
077b 00d9 | | Load_Top At_Offset_1
077c 6810 |h | Jump_Zero 0x78d
077d e5fd | | Load 0x2,-0x3
077e 7002 |p | Jump_Nonzero 0x781
077f 00d9 | | Load_Top At_Offset_1
0780 a5fd | | Store_Unchecked 0x2,-0x3
0781 00d9 | | Load_Top At_Offset_1
0782 e5fd | | Load 0x2,-0x3
0783 027f | | Execute Discrete,Equal
0784 6808 |h | Jump_Zero 0x78d
0785 00d8 | | Load_Top At_Offset_0
0786 824d | M | Call 0x1,0x4d
0787 6803 |h | Jump_Zero 0x78b
0788 e5fe | | Load 0x2,-0x2
0789 a5fc | | Store_Unchecked 0x2,-0x4
078a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
078b 4801 |H | Short_Literal 0x1
078c a5fb | | Store_Unchecked 0x2,-0x5
078d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
078e 0000 0000 | | .XXX[0x2]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 07a2 | | .CONST 0x07a2 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 000a | | .CONST 0x000a ; Number of locals
0793 INIT_0790:
0793 00e3 | | Load_Encached Natural_Cache
0794 e21f | | Load 0x1,0x1f
0795 0007 | | Action Break_Optional
0796 00e1 | | Load_Encached Boolean_Cache
0797 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0798 03e9 | | Declare_Variable Discrete,Duplicate
0799 00e1 | | Load_Encached Boolean_Cache
079a 00e3 | | Load_Encached Natural_Cache
079b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
079c 00e2 | | Load_Encached Integer_Cache
079d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
079e 00e1 | | Load_Encached Boolean_Cache
079f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07a0 00e3 | | Load_Encached Natural_Cache
07a1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07a2 BODY_0790:
07a2 e5ff | | Load 0x2,-0x1
07a3 a402 | | Store_Unchecked 0x2,0x2
07a4 00cf | | Action Mark_Auxiliary
07a5 782c |x, | Jump 0x7d2
07a6 00e1 | | Load_Encached Boolean_Cache
07a7 e403 | | Load 0x2,0x3
07a8 e402 | | Load 0x2,0x2
07a9 e5fd | | Load 0x2,-0x3
07aa 0227 | ' | Execute Access,All_Reference
07ab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07ac e223 | # | Load 0x1,0x23
07ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07ae c403 | | Store 0x2,0x3
07af c406 | | Store 0x2,0x6
07b0 e406 | | Load 0x2,0x6
07b1 6822 |h" | Jump_Zero 0x7d4
07b2 e407 | | Load 0x2,0x7
07b3 0a01 | | Execute_Immediate Plus,0x1
07b4 c407 | | Store 0x2,0x7
07b5 00da | | Load_Top At_Offset_2
07b6 00da | | Load_Top At_Offset_2
07b7 e408 | | Load 0x2,0x8
07b8 e402 | | Load 0x2,0x2
07b9 e403 | | Load 0x2,0x3
07ba 0227 | ' | Execute Access,All_Reference
07bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07bc 824e | N | Call 0x1,0x4e
07bd c408 | | Store 0x2,0x8
07be 005b | [ | Store_Top Discrete,At_Offset_3
07bf 005b | [ | Store_Top Discrete,At_Offset_3
07c0 e403 | | Load 0x2,0x3
07c1 0227 | ' | Execute Access,All_Reference
07c2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07c3 4602 |F | Jump_Case 0x3
07c4 7805 |x | Jump 0x7ca ; case 0x0
07c5 7807 |x | Jump 0x7cd ; case 0x1
07c6 7800 |x | Jump 0x7c7 ; case 0x2
07c7 4801 |H | Short_Literal 0x1
07c8 a405 | | Store_Unchecked 0x2,0x5
07c9 7803 |x | Jump 0x7cd
07ca 4801 |H | Short_Literal 0x1
07cb a404 | | Store_Unchecked 0x2,0x4
07cc 7800 |x | Jump 0x7cd
07cd e403 | | Load 0x2,0x3
07ce 0227 | ' | Execute Access,All_Reference
07cf 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
07d0 a402 | | Store_Unchecked 0x2,0x2
07d1 00c9 | | Action Pop_Auxiliary_Loop
07d2 e402 | | Load 0x2,0x2
07d3 77d2 |w | Jump_Nonzero 0x7a6
07d4 00ce | | Action Pop_Auxiliary
07d5 00d9 | | Load_Top At_Offset_1
07d6 00d9 | | Load_Top At_Offset_1
07d7 0e00 | | Execute_Immediate Not_Equal,0x0
07d8 0279 | y | Execute Discrete,And
07d9 6808 |h | Jump_Zero 0x7e2
07da e5fd | | Load 0x2,-0x3
07db e407 | | Load 0x2,0x7
07dc e5ff | | Load 0x2,-0x1
07dd 00db | | Load_Top At_Offset_3
07de 824a | J | Call 0x1,0x4a
07df c5ff | | Store 0x2,-0x1
07e0 c407 | | Store 0x2,0x7
07e1 c5fd | | Store 0x2,-0x3
07e2 e404 | | Load 0x2,0x4
07e3 e405 | | Load 0x2,0x5
07e4 0279 | y | Execute Discrete,And
07e5 6807 |h | Jump_Zero 0x7ed
07e6 e5fd | | Load 0x2,-0x3
07e7 e407 | | Load 0x2,0x7
07e8 e5ff | | Load 0x2,-0x1
07e9 8249 | I | Call 0x1,0x49
07ea c5ff | | Store 0x2,-0x1
07eb c407 | | Store 0x2,0x7
07ec c5fd | | Store 0x2,-0x3
07ed 0092 1490 | | Action Push_String_Extended,0x1490 ; "Delete_Low_Priority_Overloads deleted everything"
07ef e407 | | Load 0x2,0x7
07f0 0c01 | | Execute_Immediate Greater_Equal,0x1
07f1 e01f | | Load 0x0,0x1f
07f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
07f3 00db | | Load_Top At_Offset_3
07f4 0c02 | | Execute_Immediate Greater_Equal,0x2
07f5 a5fe | | Store_Unchecked 0x2,-0x2
07f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07f7 0000 | | .XXX[0x1]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb | | .CONST 0x07fb ; Address of begin
07f9 0004 | | .CONST 0x0004 ; Address of exception handler
07fa 0001 | | .CONST 0x0001 ; Number of locals
07fb BODY_07f8:
07fb INIT_07f8:
07fb 00da | | Load_Top At_Offset_2
07fc 0227 | ' | Execute Access,All_Reference
07fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07fe e5fe | | Load 0x2,-0x2
07ff 0227 | ' | Execute Access,All_Reference
0800 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0801 027f | | Execute Discrete,Equal
0802 6808 |h | Jump_Zero 0x80b
0803 00da | | Load_Top At_Offset_2
0804 0227 | ' | Execute Access,All_Reference
0805 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0806 e5fe | | Load 0x2,-0x2
0807 0227 | ' | Execute Access,All_Reference
0808 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0809 021f | | Execute Heap_Access,Equal
080a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
080b 4800 |H | Short_Literal 0x0
080c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
080d 0000 0000 | | .XXX[0x3]
080f 0000 | |
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813 | | .CONST 0x0813 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0001 | | .CONST 0x0001 ; Number of locals
0813 BODY_0810:
0813 INIT_0810:
0813 00db | | Load_Top At_Offset_3
0814 e5fd | | Load 0x2,-0x3
0815 0227 | ' | Execute Access,All_Reference
0816 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0817 e5fd | | Load 0x2,-0x3
0818 0227 | ' | Execute Access,All_Reference
0819 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
081a a5fe | | Store_Unchecked 0x2,-0x2
081b e5fc | | Load 0x2,-0x4
081c e5fd | | Load 0x2,-0x3
081d e220 | | Load 0x1,0x20
081e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
081f c5fc | | Store 0x2,-0x4
0820 e5fb | | Load 0x2,-0x5
0821 0229 | ) | Execute Access,All_Read
0822 00d8 | | Load_Top At_Offset_0
0823 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0824 4800 |H | Short_Literal 0x0
0825 e5fc | | Load 0x2,-0x4
0826 e5ff | | Load 0x2,-0x1
0827 e022 | " | Load 0x0,0x22
0828 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0829 e221 | ! | Load 0x1,0x21
082a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
082b 00d9 | | Load_Top At_Offset_1
082c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
082d 00d1 | | Pop_Control Pop_Count_1
082e e5fb | | Load 0x2,-0x5
082f 0229 | ) | Execute Access,All_Read
0830 00d8 | | Load_Top At_Offset_0
0831 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0832 4800 |H | Short_Literal 0x0
0833 e5fd | | Load 0x2,-0x3
0834 00d8 | | Load_Top At_Offset_0
0835 0227 | ' | Execute Access,All_Reference
0836 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0837 e223 | # | Load 0x1,0x23
0838 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0839 00d9 | | Load_Top At_Offset_1
083a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
083b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
083c 0000 0000 | | .BLANK 0000[0x4]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 085e | ^ | .CONST 0x085e ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0008 | | .CONST 0x0008 ; Number of locals
0843 INIT_0840:
0843 e024 | $ | Load 0x0,0x24
0844 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0845 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0846 02c7 | | Declare_Variable Any
0847 00d8 | | Load_Top At_Offset_0
0848 1c00 | | Execute_Immediate Run_Utility,0x0
0849 e024 | $ | Load 0x0,0x24
084a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
084b e024 | $ | Load 0x0,0x24
084c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
084d 02c7 | | Declare_Variable Any
084e 00d8 | | Load_Top At_Offset_0
084f 1c00 | | Execute_Immediate Run_Utility,0x0
0850 e024 | $ | Load 0x0,0x24
0851 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0852 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0853 02c7 | | Declare_Variable Any
0854 00d8 | | Load_Top At_Offset_0
0855 1c00 | | Execute_Immediate Run_Utility,0x0
0856 00ec | | Load_Encached Diana_Tree_Cache
0857 00ec | | Load_Encached Diana_Tree_Cache
0858 e024 | $ | Load 0x0,0x24
0859 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
085a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
085b 02c7 | | Declare_Variable Any
085c 00d8 | | Load_Top At_Offset_0
085d 1c00 | | Execute_Immediate Run_Utility,0x0
085e BODY_0840:
085e e024 | $ | Load 0x0,0x24
085f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0860 e402 | | Load 0x2,0x2
0861 0120 | | Execute Any,Is_Value
0862 6804 |h | Jump_Zero 0x867
0863 e024 | $ | Load 0x0,0x24
0864 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0865 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0866 7801 |x | Jump 0x868
0867 e402 | | Load 0x2,0x2
0868 e5ff | | Load 0x2,-0x1
0869 e024 | $ | Load 0x0,0x24
086a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
086b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
086c c402 | | Store 0x2,0x2
086d c403 | | Store 0x2,0x3
086e e403 | | Load 0x2,0x3
086f 6802 |h | Jump_Zero 0x872
0870 00ea | | Load_Encached Null_String_Cache
0871 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0872 e402 | | Load 0x2,0x2
0873 e024 | $ | Load 0x0,0x24
0874 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0875 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0876 c404 | | Store 0x2,0x4
0877 e404 | | Load 0x2,0x4
0878 e024 | $ | Load 0x0,0x24
0879 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
087a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
087b c405 | | Store 0x2,0x5
087c e024 | $ | Load 0x0,0x24
087d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
087e 00d9 | | Load_Top At_Offset_1
087f 0120 | | Execute Any,Is_Value
0880 6804 |h | Jump_Zero 0x885
0881 e024 | $ | Load 0x0,0x24
0882 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0883 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0884 7801 |x | Jump 0x886
0885 00d9 | | Load_Top At_Offset_1
0886 e024 | $ | Load 0x0,0x24
0887 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0888 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0889 6026 |`& | Indirect_Literal Discrete,0x8b0,{0x00000000, 0x00004000}
088a 4801 |H | Short_Literal 0x1
088b 4800 |H | Short_Literal 0x0
088c 4800 |H | Short_Literal 0x0
088d e025 | % | Load 0x0,0x25
088e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
088f 4800 |H | Short_Literal 0x0
0890 e405 | | Load 0x2,0x5
0891 e024 | $ | Load 0x0,0x24
0892 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0893 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0894 c406 | | Store 0x2,0x6
0895 c408 | | Store 0x2,0x8
0896 c403 | | Store 0x2,0x3
0897 e403 | | Load 0x2,0x3
0898 6802 |h | Jump_Zero 0x89b
0899 00ea | | Load_Encached Null_String_Cache
089a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
089b 00da | | Load_Top At_Offset_2
089c 4976 |Iv | Short_Literal 0x176
089d 00eb | | Load_Encached Diana_Cache
089e 0098 | | Execute Package,Field_Read_Dynamic
089f 180f | | Execute Package,Field_Execute,Field_Number 0xf
08a0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08a1 00d9 | | Load_Top At_Offset_1
08a2 00eb | | Load_Encached Diana_Cache
08a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08a4 0f29 | ) | Execute_Immediate Equal,0x29
08a5 6806 |h | Jump_Zero 0x8ac
08a6 0092 1491 | | Action Push_String_Extended,0x1491 ; "; Library Name "
08a8 00da | | Load_Top At_Offset_2
08a9 8232 | 2 | Call 0x1,0x32
08aa 01cc | | Execute Vector,Catenate
08ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08ac 0831 | 1 | Execute_Immediate Raise,0x31
08ad 0000 0000 | | .XXX[0x3]
08af 0000 | |
08b0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
08b4 0000 0000 | | .BLANK 0000[0x4]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08c1 | | .CONST 0x08c1 ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0003 | | .CONST 0x0003 ; Number of locals
08bb INIT_08b8:
08bb 00ec | | Load_Encached Diana_Tree_Cache
08bc e012 | | Load 0x0,0x12
08bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08be 02c7 | | Declare_Variable Any
08bf 00d8 | | Load_Top At_Offset_0
08c0 1c00 | | Execute_Immediate Run_Utility,0x0
08c1 BODY_08b8:
08c1 00eb | | Load_Encached Diana_Cache
08c2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08c3 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08c4 480a |H | Short_Literal 0xa
08c5 0092 1492 | | Action Push_String_Extended,0x1492 ; "Index N("
08c7 4820 |H | Short_Literal 0x20
08c8 4800 |H | Short_Literal 0x0
08c9 480a |H | Short_Literal 0xa
08ca e5ff | | Load 0x2,-0x1
08cb 0227 | ' | Execute Access,All_Reference
08cc 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
08cd e022 | " | Load 0x0,0x22
08ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08cf 01cc | | Execute Vector,Catenate
08d0 0092 1493 | | Action Push_String_Extended,0x1493 ; "): "
08d2 01cc | | Execute Vector,Catenate
08d3 0092 1494 | | Action Push_String_Extended,0x1494 ; "Main Unit "
08d5 01cc | | Execute Vector,Catenate
08d6 e5ff | | Load 0x2,-0x1
08d7 0227 | ' | Execute Access,All_Reference
08d8 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
08d9 8232 | 2 | Call 0x1,0x32
08da 01cc | | Execute Vector,Catenate
08db e5ff | | Load 0x2,-0x1
08dc 0227 | ' | Execute Access,All_Reference
08dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08de 8252 | R | Call 0x1,0x52
08df 01cc | | Execute Vector,Catenate
08e0 01cb | | Execute Vector,Append
08e1 8227 | ' | Call 0x1,0x27
08e2 00d8 | | Load_Top At_Offset_0
08e3 4800 |H | Short_Literal 0x0
08e4 e028 | ( | Load 0x0,0x28
08e5 4800 |H | Short_Literal 0x0
08e6 00eb | | Load_Encached Diana_Cache
08e7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08e8 e029 | ) | Load 0x0,0x29
08e9 4820 |H | Short_Literal 0x20
08ea e02a | * | Load 0x0,0x2a
08eb e029 | ) | Load 0x0,0x29
08ec 4802 |H | Short_Literal 0x2
08ed 4802 |H | Short_Literal 0x2
08ee 4800 |H | Short_Literal 0x0
08ef 4800 |H | Short_Literal 0x0
08f0 e402 | | Load 0x2,0x2
08f1 e5ff | | Load 0x2,-0x1
08f2 0227 | ' | Execute Access,All_Reference
08f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08f4 e02b | + | Load 0x0,0x2b
08f5 e02c | , | Load 0x0,0x2c
08f6 a02d | - | Store_Unchecked 0x0,0x2d
08f7 a02e | . | Store_Unchecked 0x0,0x2e
08f8 a02f | / | Store_Unchecked 0x0,0x2f
08f9 a030 | 0 | Store_Unchecked 0x0,0x30
08fa e031 | 1 | Load 0x0,0x31
08fb e032 | 2 | Load 0x0,0x32
08fc e033 | 3 | Load 0x0,0x33
08fd e034 | 4 | Load 0x0,0x34
08fe a035 | 5 | Store_Unchecked 0x0,0x35
08ff a036 | 6 | Store_Unchecked 0x0,0x36
0900 a037 | 7 | Store_Unchecked 0x0,0x37
0901 a038 | 8 | Store_Unchecked 0x0,0x38
0902 a039 | 9 | Store_Unchecked 0x0,0x39
0903 a03a | : | Store_Unchecked 0x0,0x3a
0904 a03b | ; | Store_Unchecked 0x0,0x3b
0905 a03c | < | Store_Unchecked 0x0,0x3c
0906 a03d | = | Store_Unchecked 0x0,0x3d
0907 a03e | > | Store_Unchecked 0x0,0x3e
0908 a03f | ? | Store_Unchecked 0x0,0x3f
0909 a040 | @ | Store_Unchecked 0x0,0x40
090a a041 | A | Store_Unchecked 0x0,0x41
090b a042 | B | Store_Unchecked 0x0,0x42
090c a043 | C | Store_Unchecked 0x0,0x43
090d a044 | D | Store_Unchecked 0x0,0x44
090e a045 | E | Store_Unchecked 0x0,0x45
090f a046 | F | Store_Unchecked 0x0,0x46
0910 8047 | G | Call 0x0,0x47
0911 c403 | | Store 0x2,0x3
0912 8228 | ( | Call 0x1,0x28
0913 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0914 0000 0000 | | .BLANK 0000[0x4]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 0921 | ! | .CONST 0x0921 ; Address of begin
0919 0004 | | .CONST 0x0004 ; Address of exception handler
091a 0004 | | .CONST 0x0004 ; Number of locals
091b INIT_0918:
091b e21f | | Load 0x1,0x1f
091c 0007 | | Action Break_Optional
091d 00e1 | | Load_Encached Boolean_Cache
091e e5fe | | Load 0x2,-0x2
091f 00e3 | | Load_Encached Natural_Cache
0920 03f1 | | Declare_Variable Discrete,With_Value
0921 BODY_0918:
0921 480a |H | Short_Literal 0xa
0922 482e |H. | Short_Literal 0x2e
0923 0092 1495 | | Action Push_String_Extended,0x1495 ; "There are several library units named "
0925 e5fd | | Load 0x2,-0x3
0926 e022 | " | Load 0x0,0x22
0927 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0928 01cc | | Execute Vector,Catenate
0929 01cb | | Execute Vector,Append
092a 01cb | | Execute Vector,Append
092b 8227 | ' | Call 0x1,0x27
092c e5ff | | Load 0x2,-0x1
092d 01db | | Execute Vector,Length
092e 0c01 | | Execute_Immediate Greater_Equal,0x1
092f 6803 |h | Jump_Zero 0x933
0930 0092 1496 | | Action Push_String_Extended,0x1496 ; "The qualifier specified did not resolve this overload.\x0a"
0932 8227 | ' | Call 0x1,0x27
0933 480a |H | Short_Literal 0xa
0934 480a |H | Short_Literal 0xa
0935 0092 1497 | | Action Push_String_Extended,0x1497 ; "When you ask for it again, please choose one by appending to "
0937 e5fd | | Load 0x2,-0x3
0938 e022 | " | Load 0x0,0x22
0939 1814 | | Execute Package,Field_Execute,Field_Number 0x14
093a 01cc | | Execute Vector,Catenate
093b 01cb | | Execute Vector,Append
093c 0092 1498 | | Action Push_String_Extended,0x1498 ; "a single quote followed by an index, as follows:"
093e 01cc | | Execute Vector,Catenate
093f 01cb | | Execute Vector,Append
0940 8227 | ' | Call 0x1,0x27
0941 8228 | ( | Call 0x1,0x28
0942 00cf | | Action Mark_Auxiliary
0943 7813 |x | Jump 0x957
0944 00e1 | | Load_Encached Boolean_Cache
0945 e402 | | Load 0x2,0x2
0946 00db | | Load_Top At_Offset_3
0947 e5fc | | Load 0x2,-0x4
0948 0227 | ' | Execute Access,All_Reference
0949 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
094a e223 | # | Load 0x1,0x23
094b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
094c c402 | | Store 0x2,0x2
094d 005b | [ | Store_Top Discrete,At_Offset_3
094e 00da | | Load_Top At_Offset_2
094f 6802 |h | Jump_Zero 0x952
0950 00db | | Load_Top At_Offset_3
0951 8253 | S | Call 0x1,0x53
0952 00db | | Load_Top At_Offset_3
0953 0227 | ' | Execute Access,All_Reference
0954 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0955 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0956 00c9 | | Action Pop_Auxiliary_Loop
0957 00d9 | | Load_Top At_Offset_1
0958 77eb |w | Jump_Nonzero 0x944
0959 4505 |E | Exit_Suprogram New_Top_Offset 0x5
095a 0000 0000 | | .BLANK 0000[0x6]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963 | c | .CONST 0x0963 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0001 | | .CONST 0x0001 ; Number of locals
0963 BODY_0960:
0963 INIT_0960:
0963 e5fd | | Load 0x2,-0x3
0964 e5fe | | Load 0x2,-0x2
0965 e220 | | Load 0x1,0x20
0966 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0967 c5fd | | Store 0x2,-0x3
0968 e5fc | | Load 0x2,-0x4
0969 0229 | ) | Execute Access,All_Read
096a 00d8 | | Load_Top At_Offset_0
096b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
096c 4800 |H | Short_Literal 0x0
096d e5fd | | Load 0x2,-0x3
096e e5ff | | Load 0x2,-0x1
096f e022 | " | Load 0x0,0x22
0970 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0971 e221 | ! | Load 0x1,0x21
0972 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0973 00d9 | | Load_Top At_Offset_1
0974 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0975 00d1 | | Pop_Control Pop_Count_1
0976 e5fc | | Load 0x2,-0x4
0977 0229 | ) | Execute Access,All_Read
0978 00d8 | | Load_Top At_Offset_0
0979 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
097a 4801 |H | Short_Literal 0x1
097b e5fe | | Load 0x2,-0x2
097c e5fc | | Load 0x2,-0x4
097d 0227 | ' | Execute Access,All_Reference
097e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
097f e223 | # | Load 0x1,0x23
0980 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0981 00d9 | | Load_Top At_Offset_1
0982 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0983 00d1 | | Pop_Control Pop_Count_1
0984 e5fc | | Load 0x2,-0x4
0985 0227 | ' | Execute Access,All_Reference
0986 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0987 0a01 | | Execute_Immediate Plus,0x1
0988 e5fc | | Load 0x2,-0x4
0989 0227 | ' | Execute Access,All_Reference
098a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
098b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
098c 0000 0000 | | .BLANK 0000[0x4]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993 | | .CONST 0x0993 ; Address of begin
0991 09a6 | | .CONST 0x09a6 ; Address of exception handler
0992 0001 | | .CONST 0x0001 ; Number of locals
0993 BODY_0990:
0993 INIT_0990:
0993 00da | | Load_Top At_Offset_2
0994 e004 | | Load 0x0,0x4
0995 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0996 012e | . | Execute Any,Not_Equal
0997 680b |h | Jump_Zero 0x9a3
0998 00da | | Load_Top At_Offset_2
0999 e048 | H | Load 0x0,0x48
099a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
099b e5ff | | Load 0x2,-0x1
099c e004 | | Load 0x0,0x4
099d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
099e e048 | H | Load 0x0,0x48
099f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
09a0 e004 | | Load 0x0,0x4
09a1 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
09a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09a3 e004 | | Load 0x0,0x4
09a4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09a6 TRAP_0990:
09a6 0007 | | Action Break_Optional
09a7 e004 | | Load 0x0,0x4
09a8 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09aa 0000 0000 | | .BLANK 0000[0x6]
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09b3 | | .CONST 0x09b3 ; Address of begin
09b1 0004 | | .CONST 0x0004 ; Address of exception handler
09b2 0001 | | .CONST 0x0001 ; Number of locals
09b3 BODY_09b0:
09b3 INIT_09b0:
09b3 00da | | Load_Top At_Offset_2
09b4 0227 | ' | Execute Access,All_Reference
09b5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
09b6 e5fe | | Load 0x2,-0x2
09b7 0227 | ' | Execute Access,All_Reference
09b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
09b9 00da | | Load_Top At_Offset_2
09ba 0227 | ' | Execute Access,All_Reference
09bb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
09bc e5fe | | Load 0x2,-0x2
09bd 0227 | ' | Execute Access,All_Reference
09be 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
09bf 00da | | Load_Top At_Offset_2
09c0 0227 | ' | Execute Access,All_Reference
09c1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
09c2 e5fe | | Load 0x2,-0x2
09c3 0227 | ' | Execute Access,All_Reference
09c4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
09c5 00da | | Load_Top At_Offset_2
09c6 0227 | ' | Execute Access,All_Reference
09c7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
09c8 e5fe | | Load 0x2,-0x2
09c9 0227 | ' | Execute Access,All_Reference
09ca 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
09cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09cc 0000 0000 | | .BLANK 0000[0x4]
09d0 ; --------------------------------------------------------------------------------------
09d0 ; SUBPROGRAM
09d0 ; --------------------------------------------------------------------------------------
09d0 09d3 | | .CONST 0x09d3 ; Address of begin
09d1 0004 | | .CONST 0x0004 ; Address of exception handler
09d2 0001 | | .CONST 0x0001 ; Number of locals
09d3 BODY_09d0:
09d3 INIT_09d0:
09d3 00da | | Load_Top At_Offset_2
09d4 0f00 | | Execute_Immediate Equal,0x0
09d5 e5fe | | Load 0x2,-0x2
09d6 e004 | | Load 0x0,0x4
09d7 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09d8 012f | / | Execute Any,Equal
09d9 0279 | y | Execute Discrete,And
09da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
09db 0000 0000 | | .BLANK 0000[0x5]
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09e3 | | .CONST 0x09e3 ; Address of begin
09e1 0004 | | .CONST 0x0004 ; Address of exception handler
09e2 0001 | | .CONST 0x0001 ; Number of locals
09e3 BODY_09e0:
09e3 INIT_09e0:
09e3 00db | | Load_Top At_Offset_3
09e4 00db | | Load_Top At_Offset_3
09e5 8258 | X | Call 0x1,0x58
09e6 0f00 | | Execute_Immediate Equal,0x0
09e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
09e8 ; --------------------------------------------------------------------------------------
09e8 ; SUBPROGRAM
09e8 ; --------------------------------------------------------------------------------------
09e8 09eb | | .CONST 0x09eb ; Address of begin
09e9 0004 | | .CONST 0x0004 ; Address of exception handler
09ea 0001 | | .CONST 0x0001 ; Number of locals
09eb BODY_09e8:
09eb INIT_09e8:
09eb 00da | | Load_Top At_Offset_2
09ec 6808 |h | Jump_Zero 0x9f5
09ed 00da | | Load_Top At_Offset_2
09ee 0227 | ' | Execute Access,All_Reference
09ef 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
09f0 00db | | Load_Top At_Offset_3
09f1 0227 | ' | Execute Access,All_Reference
09f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
09f3 8258 | X | Call 0x1,0x58
09f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09f5 4801 |H | Short_Literal 0x1
09f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09f7 0000 | | .XXX[0x1]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fb | | .CONST 0x09fb ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0001 | | .CONST 0x0001 ; Number of locals
09fb BODY_09f8:
09fb INIT_09f8:
09fb 00da | | Load_Top At_Offset_2
09fc 825a | Z | Call 0x1,0x5a
09fd 0f00 | | Execute_Immediate Equal,0x0
09fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09ff 0000 | | .XXX[0x1]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a03 | | .CONST 0x0a03 ; Address of begin
0a01 0004 | | .CONST 0x0004 ; Address of exception handler
0a02 0001 | | .CONST 0x0001 ; Number of locals
0a03 BODY_0a00:
0a03 INIT_0a00:
0a03 00db | | Load_Top At_Offset_3
0a04 00db | | Load_Top At_Offset_3
0a05 8258 | X | Call 0x1,0x58
0a06 701c |p | Jump_Nonzero 0xa23
0a07 00da | | Load_Top At_Offset_2
0a08 e5fc | | Load 0x2,-0x4
0a09 0227 | ' | Execute Access,All_Reference
0a0a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a0b 027f | | Execute Discrete,Equal
0a0c 6814 |h | Jump_Zero 0xa21
0a0d 00db | | Load_Top At_Offset_3
0a0e e5fc | | Load 0x2,-0x4
0a0f 0227 | ' | Execute Access,All_Reference
0a10 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a11 012f | / | Execute Any,Equal
0a12 7006 |p | Jump_Nonzero 0xa19
0a13 00db | | Load_Top At_Offset_3
0a14 e5fc | | Load 0x2,-0x4
0a15 0227 | ' | Execute Access,All_Reference
0a16 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0a17 012f | / | Execute Any,Equal
0a18 6806 |h | Jump_Zero 0xa1f
0a19 e5fd | | Load 0x2,-0x3
0a1a e5fc | | Load 0x2,-0x4
0a1b 0227 | ' | Execute Access,All_Reference
0a1c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a1d 027f | | Execute Discrete,Equal
0a1e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a1f 4800 |H | Short_Literal 0x0
0a20 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a21 4800 |H | Short_Literal 0x0
0a22 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a23 4801 |H | Short_Literal 0x1
0a24 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a25 0000 0000 | | .XXX[0x3]
0a27 0000 | |
0a28 ; --------------------------------------------------------------------------------------
0a28 ; SUBPROGRAM
0a28 ; --------------------------------------------------------------------------------------
0a28 0a2b | + | .CONST 0x0a2b ; Address of begin
0a29 0004 | | .CONST 0x0004 ; Address of exception handler
0a2a 0001 | | .CONST 0x0001 ; Number of locals
0a2b BODY_0a28:
0a2b INIT_0a28:
0a2b 00db | | Load_Top At_Offset_3
0a2c 00db | | Load_Top At_Offset_3
0a2d 0227 | ' | Execute Access,All_Reference
0a2e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a2f 00d8 | | Load_Top At_Offset_0
0a30 00e3 | | Load_Encached Natural_Cache
0a31 0260 | ` | Execute Discrete,In_Type
0a32 7001 |p | Jump_Nonzero 0xa34
0a33 0801 | | Execute_Immediate Raise,0x1
0a34 e5ff | | Load 0x2,-0x1
0a35 0227 | ' | Execute Access,All_Reference
0a36 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a37 e5ff | | Load 0x2,-0x1
0a38 0227 | ' | Execute Access,All_Reference
0a39 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a3a 825c | \ | Call 0x1,0x5c
0a3b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a3c 0000 0000 | | .BLANK 0000[0x4]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a43 | C | .CONST 0x0a43 ; Address of begin
0a41 0004 | | .CONST 0x0004 ; Address of exception handler
0a42 0001 | | .CONST 0x0001 ; Number of locals
0a43 BODY_0a40:
0a43 INIT_0a40:
0a43 00da | | Load_Top At_Offset_2
0a44 6808 |h | Jump_Zero 0xa4d
0a45 00da | | Load_Top At_Offset_2
0a46 0227 | ' | Execute Access,All_Reference
0a47 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a48 e5fe | | Load 0x2,-0x2
0a49 0227 | ' | Execute Access,All_Reference
0a4a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a4b 027f | | Execute Discrete,Equal
0a4c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a4d 4801 |H | Short_Literal 0x1
0a4e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a4f 0000 | | .XXX[0x1]
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a53 | S | .CONST 0x0a53 ; Address of begin
0a51 0004 | | .CONST 0x0004 ; Address of exception handler
0a52 0001 | | .CONST 0x0001 ; Number of locals
0a53 BODY_0a50:
0a53 INIT_0a50:
0a53 e5fc | | Load 0x2,-0x4
0a54 0227 | ' | Execute Access,All_Reference
0a55 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a56 00db | | Load_Top At_Offset_3
0a57 8242 | B | Call 0x1,0x42
0a58 6817 |h | Jump_Zero 0xa70
0a59 e5fc | | Load 0x2,-0x4
0a5a 0227 | ' | Execute Access,All_Reference
0a5b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0a5c e5fe | | Load 0x2,-0x2
0a5d 8242 | B | Call 0x1,0x42
0a5e 680f |h | Jump_Zero 0xa6e
0a5f e5fc | | Load 0x2,-0x4
0a60 e5fd | | Load 0x2,-0x3
0a61 825e | ^ | Call 0x1,0x5e
0a62 6809 |h | Jump_Zero 0xa6c
0a63 e5fd | | Load 0x2,-0x3
0a64 825a | Z | Call 0x1,0x5a
0a65 7004 |p | Jump_Nonzero 0xa6a
0a66 e5fc | | Load 0x2,-0x4
0a67 e5fd | | Load 0x2,-0x3
0a68 825d | ] | Call 0x1,0x5d
0a69 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a6a 4801 |H | Short_Literal 0x1
0a6b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a6c 4800 |H | Short_Literal 0x0
0a6d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a6e 4800 |H | Short_Literal 0x0
0a6f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a70 4800 |H | Short_Literal 0x0
0a71 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a72 0000 0000 | | .BLANK 0000[0x6]
0a78 ; --------------------------------------------------------------------------------------
0a78 ; SUBPROGRAM
0a78 ; --------------------------------------------------------------------------------------
0a78 0a7b | { | .CONST 0x0a7b ; Address of begin
0a79 0004 | | .CONST 0x0004 ; Address of exception handler
0a7a 0001 | | .CONST 0x0001 ; Number of locals
0a7b BODY_0a78:
0a7b INIT_0a78:
0a7b e5fc | | Load 0x2,-0x4
0a7c 0227 | ' | Execute Access,All_Reference
0a7d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a7e 00db | | Load_Top At_Offset_3
0a7f 8242 | B | Call 0x1,0x42
0a80 6811 |h | Jump_Zero 0xa92
0a81 e5fc | | Load 0x2,-0x4
0a82 0227 | ' | Execute Access,All_Reference
0a83 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0a84 e5fe | | Load 0x2,-0x2
0a85 8242 | B | Call 0x1,0x42
0a86 6809 |h | Jump_Zero 0xa90
0a87 e5fc | | Load 0x2,-0x4
0a88 e5fd | | Load 0x2,-0x3
0a89 825e | ^ | Call 0x1,0x5e
0a8a 6803 |h | Jump_Zero 0xa8e
0a8b e5fc | | Load 0x2,-0x4
0a8c 825a | Z | Call 0x1,0x5a
0a8d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a8e 4800 |H | Short_Literal 0x0
0a8f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a90 4800 |H | Short_Literal 0x0
0a91 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a92 4800 |H | Short_Literal 0x0
0a93 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a94 0000 0000 | | .BLANK 0000[0x4]
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0aa1 | | .CONST 0x0aa1 ; Address of begin
0a99 0004 | | .CONST 0x0004 ; Address of exception handler
0a9a 0005 | | .CONST 0x0005 ; Number of locals
0a9b INIT_0a98:
0a9b 00ec | | Load_Encached Diana_Tree_Cache
0a9c 00ec | | Load_Encached Diana_Tree_Cache
0a9d e220 | | Load 0x1,0x20
0a9e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0a9f e21f | | Load 0x1,0x1f
0aa0 0007 | | Action Break_Optional
0aa1 BODY_0a98:
0aa1 e5fd | | Load 0x2,-0x3
0aa2 6806 |h | Jump_Zero 0xaa9
0aa3 e5fd | | Load 0x2,-0x3
0aa4 0227 | ' | Execute Access,All_Reference
0aa5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0aa6 00eb | | Load_Encached Diana_Cache
0aa7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0aa8 6806 |h | Jump_Zero 0xaaf
0aa9 e5fe | | Load 0x2,-0x2
0aaa a402 | | Store_Unchecked 0x2,0x2
0aab 00eb | | Load_Encached Diana_Cache
0aac 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0aad 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0aae 7809 |x | Jump 0xab8
0aaf e5fd | | Load 0x2,-0x3
0ab0 0227 | ' | Execute Access,All_Reference
0ab1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ab2 823b | ; | Call 0x1,0x3b
0ab3 a402 | | Store_Unchecked 0x2,0x2
0ab4 e5fd | | Load 0x2,-0x3
0ab5 0227 | ' | Execute Access,All_Reference
0ab6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0ab7 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0ab8 e220 | | Load 0x1,0x20
0ab9 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0aba e5ff | | Load 0x2,-0x1
0abb e220 | | Load 0x1,0x20
0abc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0abd 003a | : | Store_Top Access,At_Offset_2
0abe 00cf | | Action Mark_Auxiliary
0abf 7811 |x | Jump 0xad1
0ac0 00da | | Load_Top At_Offset_2
0ac1 e220 | | Load 0x1,0x20
0ac2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ac3 003a | : | Store_Top Access,At_Offset_2
0ac4 00d9 | | Load_Top At_Offset_1
0ac5 e5fd | | Load 0x2,-0x3
0ac6 e403 | | Load 0x2,0x3
0ac7 e402 | | Load 0x2,0x2
0ac8 825f | _ | Call 0x1,0x5f
0ac9 6802 |h | Jump_Zero 0xacc
0aca 4801 |H | Short_Literal 0x1
0acb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0acc 00da | | Load_Top At_Offset_2
0acd e220 | | Load 0x1,0x20
0ace 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0acf 003b | ; | Store_Top Access,At_Offset_3
0ad0 00c9 | | Action Pop_Auxiliary_Loop
0ad1 00da | | Load_Top At_Offset_2
0ad2 e220 | | Load 0x1,0x20
0ad3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0ad4 6feb |o | Jump_Zero 0xac0
0ad5 00ce | | Action Pop_Auxiliary
0ad6 4800 |H | Short_Literal 0x0
0ad7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0ad8 ; --------------------------------------------------------------------------------------
0ad8 ; SUBPROGRAM
0ad8 ; --------------------------------------------------------------------------------------
0ad8 0ae0 | | .CONST 0x0ae0 ; Address of begin
0ad9 0004 | | .CONST 0x0004 ; Address of exception handler
0ada 0004 | | .CONST 0x0004 ; Number of locals
0adb INIT_0ad8:
0adb 00ec | | Load_Encached Diana_Tree_Cache
0adc e220 | | Load 0x1,0x20
0add 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0ade e21f | | Load 0x1,0x1f
0adf 0007 | | Action Break_Optional
0ae0 BODY_0ad8:
0ae0 e5fe | | Load 0x2,-0x2
0ae1 0227 | ' | Execute Access,All_Reference
0ae2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ae3 823b | ; | Call 0x1,0x3b
0ae4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0ae5 e220 | | Load 0x1,0x20
0ae6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0ae7 e5ff | | Load 0x2,-0x1
0ae8 e220 | | Load 0x1,0x20
0ae9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0aea 003a | : | Store_Top Access,At_Offset_2
0aeb 00cf | | Action Mark_Auxiliary
0aec 7815 |x | Jump 0xb02
0aed 00da | | Load_Top At_Offset_2
0aee e220 | | Load 0x1,0x20
0aef 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0af0 003a | : | Store_Top Access,At_Offset_2
0af1 00d9 | | Load_Top At_Offset_1
0af2 e5fe | | Load 0x2,-0x2
0af3 022e | . | Execute Access,Not_Equal
0af4 6808 |h | Jump_Zero 0xafd
0af5 00d9 | | Load_Top At_Offset_1
0af6 0227 | ' | Execute Access,All_Reference
0af7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0af8 e402 | | Load 0x2,0x2
0af9 8242 | B | Call 0x1,0x42
0afa 6802 |h | Jump_Zero 0xafd
0afb 4801 |H | Short_Literal 0x1
0afc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0afd 00da | | Load_Top At_Offset_2
0afe e220 | | Load 0x1,0x20
0aff 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b00 003b | ; | Store_Top Access,At_Offset_3
0b01 00c9 | | Action Pop_Auxiliary_Loop
0b02 00da | | Load_Top At_Offset_2
0b03 e220 | | Load 0x1,0x20
0b04 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b05 6fe7 |o | Jump_Zero 0xaed
0b06 00ce | | Action Pop_Auxiliary
0b07 4800 |H | Short_Literal 0x0
0b08 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b09 0000 0000 | | .BLANK 0000[0x7]
0b10 ; --------------------------------------------------------------------------------------
0b10 ; SUBPROGRAM
0b10 ; --------------------------------------------------------------------------------------
0b10 0b19 | | .CONST 0x0b19 ; Address of begin
0b11 0004 | | .CONST 0x0004 ; Address of exception handler
0b12 0005 | | .CONST 0x0005 ; Number of locals
0b13 INIT_0b10:
0b13 00ec | | Load_Encached Diana_Tree_Cache
0b14 e220 | | Load 0x1,0x20
0b15 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b16 e21f | | Load 0x1,0x1f
0b17 0007 | | Action Break_Optional
0b18 00ec | | Load_Encached Diana_Tree_Cache
0b19 BODY_0b10:
0b19 e5fe | | Load 0x2,-0x2
0b1a 0227 | ' | Execute Access,All_Reference
0b1b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b1c 823b | ; | Call 0x1,0x3b
0b1d a402 | | Store_Unchecked 0x2,0x2
0b1e e5fe | | Load 0x2,-0x2
0b1f 0227 | ' | Execute Access,All_Reference
0b20 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0b21 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0b22 e220 | | Load 0x1,0x20
0b23 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b24 e5ff | | Load 0x2,-0x1
0b25 e220 | | Load 0x1,0x20
0b26 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0b27 003b | ; | Store_Top Access,At_Offset_3
0b28 00cf | | Action Mark_Auxiliary
0b29 7814 |x | Jump 0xb3e
0b2a 00db | | Load_Top At_Offset_3
0b2b e220 | | Load 0x1,0x20
0b2c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b2d 003b | ; | Store_Top Access,At_Offset_3
0b2e 00da | | Load_Top At_Offset_2
0b2f e5fe | | Load 0x2,-0x2
0b30 00db | | Load_Top At_Offset_3
0b31 e402 | | Load 0x2,0x2
0b32 8260 | ` | Call 0x1,0x60
0b33 6805 |h | Jump_Zero 0xb39
0b34 4801 |H | Short_Literal 0x1
0b35 a5fc | | Store_Unchecked 0x2,-0x4
0b36 00da | | Load_Top At_Offset_2
0b37 a5fd | | Store_Unchecked 0x2,-0x3
0b38 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b39 00db | | Load_Top At_Offset_3
0b3a e220 | | Load 0x1,0x20
0b3b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b3c c403 | | Store 0x2,0x3
0b3d 00c9 | | Action Pop_Auxiliary_Loop
0b3e 00db | | Load_Top At_Offset_3
0b3f e220 | | Load 0x1,0x20
0b40 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b41 6fe8 |o | Jump_Zero 0xb2a
0b42 00ce | | Action Pop_Auxiliary
0b43 e21f | | Load 0x1,0x1f
0b44 a5fd | | Store_Unchecked 0x2,-0x3
0b45 4800 |H | Short_Literal 0x0
0b46 a5fc | | Store_Unchecked 0x2,-0x4
0b47 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b48 ; --------------------------------------------------------------------------------------
0b48 ; SUBPROGRAM
0b48 ; --------------------------------------------------------------------------------------
0b48 0b53 | S | .CONST 0x0b53 ; Address of begin
0b49 0004 | | .CONST 0x0004 ; Address of exception handler
0b4a 0006 | | .CONST 0x0006 ; Number of locals
0b4b INIT_0b48:
0b4b e220 | | Load 0x1,0x20
0b4c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0b4d e21f | | Load 0x1,0x1f
0b4e 0007 | | Action Break_Optional
0b4f 00e1 | | Load_Encached Boolean_Cache
0b50 03e9 | | Declare_Variable Discrete,Duplicate
0b51 e220 | | Load 0x1,0x20
0b52 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b53 BODY_0b48:
0b53 e21f | | Load 0x1,0x1f
0b54 a5f7 | | Store_Unchecked 0x2,-0x9
0b55 e402 | | Load 0x2,0x2
0b56 e220 | | Load 0x1,0x20
0b57 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b58 c402 | | Store 0x2,0x2
0b59 e402 | | Load 0x2,0x2
0b5a a5f8 | | Store_Unchecked 0x2,-0x8
0b5b 00e1 | | Load_Encached Boolean_Cache
0b5c e402 | | Load 0x2,0x2
0b5d e5fd | | Load 0x2,-0x3
0b5e 8233 | 3 | Call 0x1,0x33
0b5f e5ff | | Load 0x2,-0x1
0b60 0227 | ' | Execute Access,All_Reference
0b61 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b62 e221 | ! | Load 0x1,0x21
0b63 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b64 c402 | | Store 0x2,0x2
0b65 005b | [ | Store_Top Discrete,At_Offset_3
0b66 00da | | Load_Top At_Offset_2
0b67 683b |h; | Jump_Zero 0xba3
0b68 e402 | | Load 0x2,0x2
0b69 e220 | | Load 0x1,0x20
0b6a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b6b 7037 |p7 | Jump_Nonzero 0xba3
0b6c e402 | | Load 0x2,0x2
0b6d a5f8 | | Store_Unchecked 0x2,-0x8
0b6e e220 | | Load 0x1,0x20
0b6f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b70 e402 | | Load 0x2,0x2
0b71 e220 | | Load 0x1,0x20
0b72 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0b73 0039 | 9 | Store_Top Access,At_Offset_1
0b74 4800 |H | Short_Literal 0x0
0b75 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0b76 00cf | | Action Mark_Auxiliary
0b77 7824 |x$ | Jump 0xb9c
0b78 00d9 | | Load_Top At_Offset_1
0b79 e220 | | Load 0x1,0x20
0b7a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b7b a403 | | Store_Unchecked 0x2,0x3
0b7c e403 | | Load 0x2,0x3
0b7d 0227 | ' | Execute Access,All_Reference
0b7e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b7f e5fe | | Load 0x2,-0x2
0b80 8242 | B | Call 0x1,0x42
0b81 6815 |h | Jump_Zero 0xb97
0b82 e403 | | Load 0x2,0x3
0b83 0227 | ' | Execute Access,All_Reference
0b84 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0b85 e5fc | | Load 0x2,-0x4
0b86 8242 | B | Call 0x1,0x42
0b87 680f |h | Jump_Zero 0xb97
0b88 e5f9 | | Load 0x2,-0x7
0b89 e5fb | | Load 0x2,-0x5
0b8a 8258 | X | Call 0x1,0x58
0b8b 7006 |p | Jump_Nonzero 0xb92
0b8c e403 | | Load 0x2,0x3
0b8d e5fa | | Load 0x2,-0x6
0b8e e5f9 | | Load 0x2,-0x7
0b8f e5fb | | Load 0x2,-0x5
0b90 825c | \ | Call 0x1,0x5c
0b91 6805 |h | Jump_Zero 0xb97
0b92 4801 |H | Short_Literal 0x1
0b93 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0b94 e403 | | Load 0x2,0x3
0b95 a5f7 | | Store_Unchecked 0x2,-0x9
0b96 7804 |x | Jump 0xb9b
0b97 00d9 | | Load_Top At_Offset_1
0b98 e220 | | Load 0x1,0x20
0b99 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b9a 003a | : | Store_Top Access,At_Offset_2
0b9b 00c9 | | Action Pop_Auxiliary_Loop
0b9c 00d9 | | Load_Top At_Offset_1
0b9d e220 | | Load 0x1,0x20
0b9e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b9f 7002 |p | Jump_Nonzero 0xba2
0ba0 00da | | Load_Top At_Offset_2
0ba1 6fd6 |o | Jump_Zero 0xb78
0ba2 00ce | | Action Pop_Auxiliary
0ba3 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0ba4 0000 0000 | | .BLANK 0000[0x4]
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bae | | .CONST 0x0bae ; Address of begin
0ba9 0004 | | .CONST 0x0004 ; Address of exception handler
0baa 0003 | | .CONST 0x0003 ; Number of locals
0bab INIT_0ba8:
0bab 00e1 | | Load_Encached Boolean_Cache
0bac e21f | | Load 0x1,0x1f
0bad 0007 | | Action Break_Optional
0bae BODY_0ba8:
0bae e5fe | | Load 0x2,-0x2
0baf 00d8 | | Load_Top At_Offset_0
0bb0 0227 | ' | Execute Access,All_Reference
0bb1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bb2 e5fd | | Load 0x2,-0x3
0bb3 8261 | a | Call 0x1,0x61
0bb4 6801 |h | Jump_Zero 0xbb6
0bb5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bb6 00e1 | | Load_Encached Boolean_Cache
0bb7 e21f | | Load 0x1,0x1f
0bb8 e5fe | | Load 0x2,-0x2
0bb9 e5fd | | Load 0x2,-0x3
0bba 8263 | c | Call 0x1,0x63
0bbb 003a | : | Store_Top Access,At_Offset_2
0bbc 005a | Z | Store_Top Discrete,At_Offset_2
0bbd 00d9 | | Load_Top At_Offset_1
0bbe 6804 |h | Jump_Zero 0xbc3
0bbf 00d8 | | Load_Top At_Offset_0
0bc0 e5fe | | Load 0x2,-0x2
0bc1 8257 | W | Call 0x1,0x57
0bc2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bc3 e5fc | | Load 0x2,-0x4
0bc4 e5fd | | Load 0x2,-0x3
0bc5 e5fe | | Load 0x2,-0x2
0bc6 e5ff | | Load 0x2,-0x1
0bc7 8255 | U | Call 0x1,0x55
0bc8 c5fd | | Store 0x2,-0x3
0bc9 c5fc | | Store 0x2,-0x4
0bca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bcb 0000 0000 | | .BLANK 0000[0x5]
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; SUBPROGRAM
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0bd8 | | .CONST 0x0bd8 ; Address of begin
0bd1 0004 | | .CONST 0x0004 ; Address of exception handler
0bd2 0004 | | .CONST 0x0004 ; Number of locals
0bd3 INIT_0bd0:
0bd3 e220 | | Load 0x1,0x20
0bd4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0bd5 00e1 | | Load_Encached Boolean_Cache
0bd6 e5fe | | Load 0x2,-0x2
0bd7 0007 | | Action Break_Optional
0bd8 BODY_0bd0:
0bd8 00e1 | | Load_Encached Boolean_Cache
0bd9 00db | | Load_Top At_Offset_3
0bda e5ff | | Load 0x2,-0x1
0bdb e022 | " | Load 0x0,0x22
0bdc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0bdd e5fd | | Load 0x2,-0x3
0bde 0227 | ' | Execute Access,All_Reference
0bdf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0be0 e221 | ! | Load 0x1,0x21
0be1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0be2 c402 | | Store 0x2,0x2
0be3 005a | Z | Store_Top Discrete,At_Offset_2
0be4 00d9 | | Load_Top At_Offset_1
0be5 700d |p | Jump_Nonzero 0xbf3
0be6 e220 | | Load 0x1,0x20
0be7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0be8 e220 | | Load 0x1,0x20
0be9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0bea 003b | ; | Store_Top Access,At_Offset_3
0beb e5fd | | Load 0x2,-0x3
0bec 00db | | Load_Top At_Offset_3
0bed 00da | | Load_Top At_Offset_2
0bee e5ff | | Load 0x2,-0x1
0bef 8255 | U | Call 0x1,0x55
0bf0 c402 | | Store 0x2,0x2
0bf1 c5fd | | Store 0x2,-0x3
0bf2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bf3 00da | | Load_Top At_Offset_2
0bf4 e220 | | Load 0x1,0x20
0bf5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0bf6 6808 |h | Jump_Zero 0xbff
0bf7 e5fd | | Load 0x2,-0x3
0bf8 00db | | Load_Top At_Offset_3
0bf9 00da | | Load_Top At_Offset_2
0bfa e5ff | | Load 0x2,-0x1
0bfb 8255 | U | Call 0x1,0x55
0bfc c402 | | Store 0x2,0x2
0bfd c5fd | | Store 0x2,-0x3
0bfe 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bff e5fd | | Load 0x2,-0x3
0c00 00db | | Load_Top At_Offset_3
0c01 00da | | Load_Top At_Offset_2
0c02 e5ff | | Load 0x2,-0x1
0c03 8265 | e | Call 0x1,0x65
0c04 c402 | | Store 0x2,0x2
0c05 c5fd | | Store 0x2,-0x3
0c06 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c07 0000 | | .XXX[0x1]
0c08 ; --------------------------------------------------------------------------------------
0c08 ; SUBPROGRAM
0c08 ; --------------------------------------------------------------------------------------
0c08 0c0f | | .CONST 0x0c0f ; Address of begin
0c09 0004 | | .CONST 0x0004 ; Address of exception handler
0c0a 0003 | | .CONST 0x0003 ; Number of locals
0c0b INIT_0c08:
0c0b e220 | | Load 0x1,0x20
0c0c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c0d e21f | | Load 0x1,0x1f
0c0e 0007 | | Action Break_Optional
0c0f BODY_0c08:
0c0f e21f | | Load 0x1,0x1f
0c10 e220 | | Load 0x1,0x20
0c11 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c12 e5fa | | Load 0x2,-0x6
0c13 e5fb | | Load 0x2,-0x5
0c14 e5fc | | Load 0x2,-0x4
0c15 e5fd | | Load 0x2,-0x3
0c16 e5fe | | Load 0x2,-0x2
0c17 e5ff | | Load 0x2,-0x1
0c18 e5f9 | | Load 0x2,-0x7
0c19 8264 | d | Call 0x1,0x64
0c1a 003b | ; | Store_Top Access,At_Offset_3
0c1b 0039 | 9 | Store_Top Access,At_Offset_1
0c1c 00d8 | | Load_Top At_Offset_0
0c1d 683b |h; | Jump_Zero 0xc59
0c1e 00d8 | | Load_Top At_Offset_0
0c1f 0227 | ' | Execute Access,All_Reference
0c20 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c21 0f02 | | Execute_Immediate Equal,0x2
0c22 00d9 | | Load_Top At_Offset_1
0c23 00db | | Load_Top At_Offset_3
0c24 8262 | b | Call 0x1,0x62
0c25 0f00 | | Execute_Immediate Equal,0x0
0c26 0278 | x | Execute Discrete,Or
0c27 6813 |h | Jump_Zero 0xc3b
0c28 e004 | | Load 0x0,0x4
0c29 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0c2a 00d9 | | Load_Top At_Offset_1
0c2b 0227 | ' | Execute Access,All_Reference
0c2c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c2d e004 | | Load 0x0,0x4
0c2e 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0c2f 00d9 | | Load_Top At_Offset_1
0c30 0227 | ' | Execute Access,All_Reference
0c31 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0c32 4800 |H | Short_Literal 0x0
0c33 00d9 | | Load_Top At_Offset_1
0c34 0227 | ' | Execute Access,All_Reference
0c35 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c36 4800 |H | Short_Literal 0x0
0c37 00d9 | | Load_Top At_Offset_1
0c38 0227 | ' | Execute Access,All_Reference
0c39 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c3a 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0c3b 00d9 | | Load_Top At_Offset_1
0c3c 00d9 | | Load_Top At_Offset_1
0c3d e220 | | Load 0x1,0x20
0c3e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c3f 003a | : | Store_Top Access,At_Offset_2
0c40 e5f9 | | Load 0x2,-0x7
0c41 0229 | ) | Execute Access,All_Read
0c42 00d8 | | Load_Top At_Offset_0
0c43 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c44 4800 |H | Short_Literal 0x0
0c45 e402 | | Load 0x2,0x2
0c46 e5fe | | Load 0x2,-0x2
0c47 8233 | 3 | Call 0x1,0x33
0c48 e221 | ! | Load 0x1,0x21
0c49 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0c4a 00d9 | | Load_Top At_Offset_1
0c4b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c4c 00d1 | | Pop_Control Pop_Count_1
0c4d e5f9 | | Load 0x2,-0x7
0c4e 0229 | ) | Execute Access,All_Read
0c4f 00d8 | | Load_Top At_Offset_0
0c50 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0c51 00da | | Load_Top At_Offset_2
0c52 0227 | ' | Execute Access,All_Reference
0c53 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0c54 e223 | # | Load 0x1,0x23
0c55 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0c56 00d9 | | Load_Top At_Offset_1
0c57 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c58 00d1 | | Pop_Control Pop_Count_1
0c59 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0c5a 0000 0000 | | .BLANK 0000[0x6]
0c60 ; --------------------------------------------------------------------------------------
0c60 ; SUBPROGRAM
0c60 ; --------------------------------------------------------------------------------------
0c60 0c67 | g | .CONST 0x0c67 ; Address of begin
0c61 0004 | | .CONST 0x0004 ; Address of exception handler
0c62 0003 | | .CONST 0x0003 ; Number of locals
0c63 INIT_0c60:
0c63 e220 | | Load 0x1,0x20
0c64 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c65 e21f | | Load 0x1,0x1f
0c66 0007 | | Action Break_Optional
0c67 BODY_0c60:
0c67 e21c | | Load 0x1,0x1c
0c68 0322 | " | Declare_Variable Record
0c69 e5ff | | Load 0x2,-0x1
0c6a 00d9 | | Load_Top At_Offset_1
0c6b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0c6c e5fe | | Load 0x2,-0x2
0c6d 00d9 | | Load_Top At_Offset_1
0c6e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c6f e5fd | | Load 0x2,-0x3
0c70 00d9 | | Load_Top At_Offset_1
0c71 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c72 e5f8 | | Load 0x2,-0x8
0c73 00d9 | | Load_Top At_Offset_1
0c74 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c75 e5f7 | | Load 0x2,-0x9
0c76 00d9 | | Load_Top At_Offset_1
0c77 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c78 e5f6 | | Load 0x2,-0xa
0c79 e21c | | Load 0x1,0x1c
0c7a 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
0c7b 0119 | | Execute Any,Check_In_Formal_Type
0c7c 00d9 | | Load_Top At_Offset_1
0c7d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c7e e5f6 | | Load 0x2,-0xa
0c7f 8256 | V | Call 0x1,0x56
0c80 e21c | | Load 0x1,0x1c
0c81 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
0c82 0119 | | Execute Any,Check_In_Formal_Type
0c83 00d9 | | Load_Top At_Offset_1
0c84 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0c85 e5fc | | Load 0x2,-0x4
0c86 00d9 | | Load_Top At_Offset_1
0c87 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0c88 e5f5 | | Load 0x2,-0xb
0c89 0227 | ' | Execute Access,All_Reference
0c8a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c8b 00d9 | | Load_Top At_Offset_1
0c8c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0c8d 4800 |H | Short_Literal 0x0
0c8e 00d9 | | Load_Top At_Offset_1
0c8f 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0c90 e5fa | | Load 0x2,-0x6
0c91 00d9 | | Load_Top At_Offset_1
0c92 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0c93 e5f9 | | Load 0x2,-0x7
0c94 00d9 | | Load_Top At_Offset_1
0c95 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0c96 e21f | | Load 0x1,0x1f
0c97 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0c98 0039 | 9 | Store_Top Access,At_Offset_1
0c99 e5f5 | | Load 0x2,-0xb
0c9a 00d9 | | Load_Top At_Offset_1
0c9b e5fb | | Load 0x2,-0x5
0c9c 00eb | | Load_Encached Diana_Cache
0c9d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0c9e 8266 | f | Call 0x1,0x66
0c9f c5f5 | | Store 0x2,-0xb
0ca0 450b |E | Exit_Suprogram New_Top_Offset 0xb
0ca1 0000 0000 | | .BLANK 0000[0x7]
0ca8 ; --------------------------------------------------------------------------------------
0ca8 ; SUBPROGRAM
0ca8 ; --------------------------------------------------------------------------------------
0ca8 0cac | | .CONST 0x0cac ; Address of begin
0ca9 0004 | | .CONST 0x0004 ; Address of exception handler
0caa 0002 | | .CONST 0x0002 ; Number of locals
0cab INIT_0ca8:
0cab 00ec | | Load_Encached Diana_Tree_Cache
0cac BODY_0ca8:
0cac 00db | | Load_Top At_Offset_3
0cad 00eb | | Load_Encached Diana_Cache
0cae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0caf 0b2c | , | Execute_Immediate Case_Compare,0x2c
0cb0 7006 |p | Jump_Nonzero 0xcb7
0cb1 0b21 | ! | Execute_Immediate Case_Compare,0x21
0cb2 7004 |p | Jump_Nonzero 0xcb7
0cb3 0f22 | " | Execute_Immediate Equal,0x22
0cb4 7005 |p | Jump_Nonzero 0xcba
0cb5 4800 |H | Short_Literal 0x0
0cb6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cb7 00d1 | | Pop_Control Pop_Count_1
0cb8 4801 |H | Short_Literal 0x1
0cb9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cba 00db | | Load_Top At_Offset_3
0cbb 4904 |I | Short_Literal 0x104
0cbc 00eb | | Load_Encached Diana_Cache
0cbd 0096 | | Execute Package,Entry
0cbe 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0cbf 00d8 | | Load_Top At_Offset_0
0cc0 00eb | | Load_Encached Diana_Cache
0cc1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cc2 487a |Hz | Short_Literal 0x7a
0cc3 487b |H{ | Short_Literal 0x7b
0cc4 0262 | b | Execute Discrete,In_Range
0cc5 7002 |p | Jump_Nonzero 0xcc8
0cc6 4800 |H | Short_Literal 0x0
0cc7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cc8 4801 |H | Short_Literal 0x1
0cc9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cca 0000 0000 | | .BLANK 0000[0x6]
0cd0 ; --------------------------------------------------------------------------------------
0cd0 ; SUBPROGRAM
0cd0 ; --------------------------------------------------------------------------------------
0cd0 0cd5 | | .CONST 0x0cd5 ; Address of begin
0cd1 0ceb | | .CONST 0x0ceb ; Address of exception handler
0cd2 0002 | | .CONST 0x0002 ; Number of locals
0cd3 INIT_0cd0:
0cd3 e049 | I | Load 0x0,0x49
0cd4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0cd5 BODY_0cd0:
0cd5 e5fe | | Load 0x2,-0x2
0cd6 e004 | | Load 0x0,0x4
0cd7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0cd8 e04a | J | Load 0x0,0x4a
0cd9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0cda e04b | K | Load 0x0,0x4b
0cdb 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0cdc 00d9 | | Load_Top At_Offset_1
0cdd 00d0 | | Action Swap_Control
0cde 0260 | ` | Execute Discrete,In_Type
0cdf 7001 |p | Jump_Nonzero 0xce1
0ce0 0801 | | Execute_Immediate Raise,0x1
0ce1 e04c | L | Load 0x0,0x4c
0ce2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0ce3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0ce4 00d8 | | Load_Top At_Offset_0
0ce5 e5ff | | Load 0x2,-0x1
0ce6 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0ce7 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0ce8 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0ce9 800e | | Call 0x0,0xe
0cea 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ceb TRAP_0cd0:
0ceb 0007 | | Action Break_Optional
0cec 480a |H | Short_Literal 0xa
0ced 0092 1499 | | Action Push_String_Extended,0x1499 ; "Init_Subsystem_Lookthrough: "
0cef e011 | | Load 0x0,0x11
0cf0 180d | | Execute Package,Field_Execute,Field_Number 0xd
0cf1 01cc | | Execute Vector,Catenate
0cf2 01cb | | Execute Vector,Append
0cf3 8219 | | Call 0x1,0x19
0cf4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0cf5 0000 0000 | | .XXX[0x3]
0cf7 0000 | |
0cf8 ; --------------------------------------------------------------------------------------
0cf8 ; SUBPROGRAM
0cf8 ; --------------------------------------------------------------------------------------
0cf8 0d10 | | .CONST 0x0d10 ; Address of begin
0cf9 0da5 | | .CONST 0x0da5 ; Address of exception handler
0cfa 0009 | | .CONST 0x0009 ; Number of locals
0cfb INIT_0cf8:
0cfb 00eb | | Load_Encached Diana_Cache
0cfc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0cfd 00eb | | Load_Encached Diana_Cache
0cfe 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0cff e04d | M | Load 0x0,0x4d
0d00 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d01 02c7 | | Declare_Variable Any
0d02 00d8 | | Load_Top At_Offset_0
0d03 1c00 | | Execute_Immediate Run_Utility,0x0
0d04 00e3 | | Load_Encached Natural_Cache
0d05 e04d | M | Load 0x0,0x4d
0d06 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d07 823a | : | Call 0x1,0x3a
0d08 e5ff | | Load 0x2,-0x1
0d09 e003 | | Load 0x0,0x3
0d0a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d0b 00e1 | | Load_Encached Boolean_Cache
0d0c 03f1 | | Declare_Variable Discrete,With_Value
0d0d e5ff | | Load 0x2,-0x1
0d0e e021 | ! | Load 0x0,0x21
0d0f 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0d10 BODY_0cf8:
0d10 e5fa | | Load 0x2,-0x6
0d11 6805 |h | Jump_Zero 0xd17
0d12 e5fa | | Load 0x2,-0x6
0d13 0227 | ' | Execute Access,All_Reference
0d14 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d15 0f01 | | Execute_Immediate Equal,0x1
0d16 681f |h | Jump_Zero 0xd36
0d17 e5fb | | Load 0x2,-0x5
0d18 e004 | | Load 0x0,0x4
0d19 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d1a 012f | / | Execute Any,Equal
0d1b 701a |p | Jump_Nonzero 0xd36
0d1c e5fb | | Load 0x2,-0x5
0d1d e5ff | | Load 0x2,-0x1
0d1e 826a | j | Call 0x1,0x6a
0d1f 00da | | Load_Top At_Offset_2
0d20 00eb | | Load_Encached Diana_Cache
0d21 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d22 7013 |p | Jump_Nonzero 0xd36
0d23 e5fa | | Load 0x2,-0x6
0d24 e004 | | Load 0x0,0x4
0d25 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d26 4800 |H | Short_Literal 0x0
0d27 4800 |H | Short_Literal 0x0
0d28 4800 |H | Short_Literal 0x0
0d29 4800 |H | Short_Literal 0x0
0d2a e407 | | Load 0x2,0x7
0d2b 00eb | | Load_Encached Diana_Cache
0d2c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d2d 00eb | | Load_Encached Diana_Cache
0d2e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d2f 4829 |H) | Short_Literal 0x29
0d30 e407 | | Load 0x2,0x7
0d31 e021 | ! | Load 0x0,0x21
0d32 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0d33 4800 |H | Short_Literal 0x0
0d34 8268 | h | Call 0x1,0x68
0d35 c5fa | | Store 0x2,-0x6
0d36 e5ff | | Load 0x2,-0x1
0d37 e013 | | Load 0x0,0x13
0d38 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d39 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0d3a 700e |p | Jump_Nonzero 0xd49
0d3b 0092 149a | | Action Push_String_Extended,0x149a ; "Warning: Program includes archived main unit "
0d3d e5fe | | Load 0x2,-0x2
0d3e 8233 | 3 | Call 0x1,0x33
0d3f 01cc | | Execute Vector,Catenate
0d40 0092 149b | | Action Push_String_Extended,0x149b ; ". "
0d42 01cc | | Execute Vector,Catenate
0d43 8227 | ' | Call 0x1,0x27
0d44 0092 149c | | Action Push_String_Extended,0x149c ; "Debugging will be limited."
0d46 8227 | ' | Call 0x1,0x27
0d47 8228 | ( | Call 0x1,0x28
0d48 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d49 e5ff | | Load 0x2,-0x1
0d4a e013 | | Load 0x0,0x13
0d4b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d4c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d4d c404 | | Store 0x2,0x4
0d4e e404 | | Load 0x2,0x4
0d4f e04d | M | Load 0x0,0x4d
0d50 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d51 a406 | | Store_Unchecked 0x2,0x6
0d52 4800 |H | Short_Literal 0x0
0d53 0092 149d | | Action Push_String_Extended,0x149d ; "Register_Unit: Empty units_in_program list"
0d55 e406 | | Load 0x2,0x6
0d56 0c01 | | Execute_Immediate Greater_Equal,0x1
0d57 821b | | Call 0x1,0x1b
0d58 4800 |H | Short_Literal 0x0
0d59 0092 149e | | Action Push_String_Extended,0x149e ; "Register_Unit: Main_Unit not a procedure or function"
0d5b e5ff | | Load 0x2,-0x1
0d5c 8269 | i | Call 0x1,0x69
0d5d 821b | | Call 0x1,0x1b
0d5e e5fa | | Load 0x2,-0x6
0d5f e004 | | Load 0x0,0x4
0d60 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d61 4800 |H | Short_Literal 0x0
0d62 4800 |H | Short_Literal 0x0
0d63 4800 |H | Short_Literal 0x0
0d64 4800 |H | Short_Literal 0x0
0d65 e5ff | | Load 0x2,-0x1
0d66 00eb | | Load_Encached Diana_Cache
0d67 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d68 e409 | | Load 0x2,0x9
0d69 e5ff | | Load 0x2,-0x1
0d6a 00eb | | Load_Encached Diana_Cache
0d6b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d6c e409 | | Load 0x2,0x9
0d6d 4800 |H | Short_Literal 0x0
0d6e 8268 | h | Call 0x1,0x68
0d6f c5fa | | Store 0x2,-0x6
0d70 00cf | | Action Mark_Auxiliary
0d71 e406 | | Load 0x2,0x6
0d72 4801 |H | Short_Literal 0x1
0d73 0263 | c | Execute Discrete,Above_Bound
0d74 700c |p | Jump_Nonzero 0xd81
0d75 e5fa | | Load 0x2,-0x6
0d76 e408 | | Load 0x2,0x8
0d77 e5fb | | Load 0x2,-0x5
0d78 e5fc | | Load 0x2,-0x4
0d79 e5fd | | Load 0x2,-0x3
0d7a e40c | | Load 0x2,0xc
0d7b e404 | | Load 0x2,0x4
0d7c e409 | | Load 0x2,0x9
0d7d 826d | m | Call 0x1,0x6d
0d7e c5fa | | Store 0x2,-0x6
0d7f 00c8 | | Action Pop_Auxiliary_Range
0d80 3ff4 |? | Loop_Increasing 0xd75
0d81 00ce | | Action Pop_Auxiliary
0d82 00d9 | | Load_Top At_Offset_1
0d83 6804 |h | Jump_Zero 0xd88
0d84 00eb | | Load_Encached Diana_Cache
0d85 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d86 a403 | | Store_Unchecked 0x2,0x3
0d87 7803 |x | Jump 0xd8b
0d88 e5ff | | Load 0x2,-0x1
0d89 823e | > | Call 0x1,0x3e
0d8a a403 | | Store_Unchecked 0x2,0x3
0d8b e403 | | Load 0x2,0x3
0d8c 00eb | | Load_Encached Diana_Cache
0d8d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d8e 6802 |h | Jump_Zero 0xd91
0d8f e5ff | | Load 0x2,-0x1
0d90 a403 | | Store_Unchecked 0x2,0x3
0d91 e5fa | | Load 0x2,-0x6
0d92 e5fb | | Load 0x2,-0x5
0d93 4800 |H | Short_Literal 0x0
0d94 e5fc | | Load 0x2,-0x4
0d95 4800 |H | Short_Literal 0x0
0d96 4800 |H | Short_Literal 0x0
0d97 e403 | | Load 0x2,0x3
0d98 00eb | | Load_Encached Diana_Cache
0d99 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d9a e409 | | Load 0x2,0x9
0d9b e403 | | Load 0x2,0x3
0d9c 00eb | | Load_Encached Diana_Cache
0d9d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d9e e403 | | Load 0x2,0x3
0d9f e021 | ! | Load 0x0,0x21
0da0 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0da1 4802 |H | Short_Literal 0x2
0da2 8268 | h | Call 0x1,0x68
0da3 c5fa | | Store 0x2,-0x6
0da4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0da5 TRAP_0cf8:
0da5 0007 | | Action Break_Optional
0da6 480a |H | Short_Literal 0xa
0da7 0092 149f | | Action Push_String_Extended,0x149f ; "Register_Unit: "
0da9 e011 | | Load 0x0,0x11
0daa 180d | | Execute Package,Field_Execute,Field_Number 0xd
0dab 01cc | | Execute Vector,Catenate
0dac 01cb | | Execute Vector,Append
0dad 8219 | | Call 0x1,0x19
0dae 00d8 | | Load_Top At_Offset_0
0daf 0101 | | Execute Exception,Reraise
0db0 ; --------------------------------------------------------------------------------------
0db0 ; SUBPROGRAM
0db0 ; --------------------------------------------------------------------------------------
0db0 0db4 | | .CONST 0x0db4 ; Address of begin
0db1 0e01 | | .CONST 0x0e01 ; Address of exception handler
0db2 0002 | | .CONST 0x0002 ; Number of locals
0db3 INIT_0db0:
0db3 00e3 | | Load_Encached Natural_Cache
0db4 BODY_0db0:
0db4 e5fe | | Load 0x2,-0x2
0db5 00d8 | | Load_Top At_Offset_0
0db6 4821 |H! | Short_Literal 0x21
0db7 482c |H, | Short_Literal 0x2c
0db8 0262 | b | Execute Discrete,In_Range
0db9 682f |h/ | Jump_Zero 0xde9
0dba 00d8 | | Load_Top At_Offset_0
0dbb 0c23 | # | Execute_Immediate Greater_Equal,0x23
0dbc 681c |h | Jump_Zero 0xdd9
0dbd 0b29 | ) | Execute_Immediate Case_Compare,0x29
0dbe 7003 |p | Jump_Nonzero 0xdc2
0dbf 0f2c | , | Execute_Immediate Equal,0x2c
0dc0 7019 |p | Jump_Nonzero 0xdda
0dc1 7828 |x( | Jump 0xdea
0dc2 00d1 | | Pop_Control Pop_Count_1
0dc3 e5f6 | | Load 0x2,-0xa
0dc4 6806 |h | Jump_Zero 0xdcb
0dc5 4800 |H | Short_Literal 0x0
0dc6 0092 14a0 | | Action Push_String_Extended,0x14a0 ; "Register_Used_Unit: Unit_Offset is 0"
0dc8 e5fc | | Load 0x2,-0x4
0dc9 0e00 | | Execute_Immediate Not_Equal,0x0
0dca 821b | | Call 0x1,0x1b
0dcb e5f3 | | Load 0x2,-0xd
0dcc e5f4 | | Load 0x2,-0xc
0dcd e5fc | | Load 0x2,-0x4
0dce e5f5 | | Load 0x2,-0xb
0dcf e5f9 | | Load 0x2,-0x7
0dd0 e5fa | | Load 0x2,-0x6
0dd1 e5ff | | Load 0x2,-0x1
0dd2 e5f7 | | Load 0x2,-0x9
0dd3 e5fe | | Load 0x2,-0x2
0dd4 e5fd | | Load 0x2,-0x3
0dd5 4800 |H | Short_Literal 0x0
0dd6 8268 | h | Call 0x1,0x68
0dd7 c5f3 | | Store 0x2,-0xd
0dd8 781c |x | Jump 0xdf5
0dd9 00d1 | | Pop_Control Pop_Count_1
0dda e5f3 | | Load 0x2,-0xd
0ddb e004 | | Load 0x0,0x4
0ddc 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0ddd 4800 |H | Short_Literal 0x0
0dde 4800 |H | Short_Literal 0x0
0ddf e5f9 | | Load 0x2,-0x7
0de0 e5fa | | Load 0x2,-0x6
0de1 e5ff | | Load 0x2,-0x1
0de2 e5f7 | | Load 0x2,-0x9
0de3 e5fe | | Load 0x2,-0x2
0de4 e5fd | | Load 0x2,-0x3
0de5 4800 |H | Short_Literal 0x0
0de6 8268 | h | Call 0x1,0x68
0de7 c5f3 | | Store 0x2,-0xd
0de8 780c |x | Jump 0xdf5
0de9 00d1 | | Pop_Control Pop_Count_1
0dea 480a |H | Short_Literal 0xa
0deb 0092 14a1 | | Action Push_String_Extended,0x14a1 ; "Register_Used_Unit: unknown node: "
0ded e5fe | | Load 0x2,-0x2
0dee 00eb | | Load_Encached Diana_Cache
0def 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0df0 011c | | Execute Any,Convert_Unchecked
0df1 1c01 | | Execute_Immediate Run_Utility,0x1
0df2 01cc | | Execute Vector,Catenate
0df3 01cb | | Execute Vector,Append
0df4 8219 | | Call 0x1,0x19
0df5 e5fb | | Load 0x2,-0x5
0df6 6809 |h | Jump_Zero 0xe00
0df7 e5f3 | | Load 0x2,-0xd
0df8 e004 | | Load 0x0,0x4
0df9 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0dfa 4800 |H | Short_Literal 0x0
0dfb 4800 |H | Short_Literal 0x0
0dfc e5ff | | Load 0x2,-0x1
0dfd e5fd | | Load 0x2,-0x3
0dfe 826b | k | Call 0x1,0x6b
0dff c5f3 | | Store 0x2,-0xd
0e00 450d |E | Exit_Suprogram New_Top_Offset 0xd
0e01 TRAP_0db0:
0e01 0007 | | Action Break_Optional
0e02 480a |H | Short_Literal 0xa
0e03 0092 14a2 | | Action Push_String_Extended,0x14a2 ; "Register_Used_Unit: "
0e05 e011 | | Load 0x0,0x11
0e06 180d | | Execute Package,Field_Execute,Field_Number 0xd
0e07 01cc | | Execute Vector,Catenate
0e08 01cb | | Execute Vector,Append
0e09 8219 | | Call 0x1,0x19
0e0a 450d |E | Exit_Suprogram New_Top_Offset 0xd
0e0b 0000 0000 | | .BLANK 0000[0x5]
0e10 ; --------------------------------------------------------------------------------------
0e10 ; SUBPROGRAM
0e10 ; --------------------------------------------------------------------------------------
0e10 0e28 | ( | .CONST 0x0e28 ; Address of begin
0e11 0e78 | x | .CONST 0x0e78 ; Address of exception handler
0e12 000d | | .CONST 0x000d ; Number of locals
0e13 INIT_0e10:
0e13 00ec | | Load_Encached Diana_Tree_Cache
0e14 039d | | Declare_Variable Heap_Access,Duplicate
0e15 039d | | Declare_Variable Heap_Access,Duplicate
0e16 00eb | | Load_Encached Diana_Cache
0e17 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e18 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0e19 02c7 | | Declare_Variable Any
0e1a 00d8 | | Load_Top At_Offset_0
0e1b 1c00 | | Execute_Immediate Run_Utility,0x0
0e1c 00e3 | | Load_Encached Natural_Cache
0e1d 00e1 | | Load_Encached Boolean_Cache
0e1e 03e9 | | Declare_Variable Discrete,Duplicate
0e1f 03e9 | | Declare_Variable Discrete,Duplicate
0e20 03e9 | | Declare_Variable Discrete,Duplicate
0e21 e024 | $ | Load 0x0,0x24
0e22 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0e23 02ff | | Declare_Variable Variant_Record
0e24 00d8 | | Load_Top At_Offset_0
0e25 1c00 | | Execute_Immediate Run_Utility,0x0
0e26 e04d | M | Load 0x0,0x4d
0e27 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e28 BODY_0e10:
0e28 e04d | M | Load 0x0,0x4d
0e29 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e2a 00da | | Load_Top At_Offset_2
0e2b 00e1 | | Load_Encached Boolean_Cache
0e2c 00e1 | | Load_Encached Boolean_Cache
0e2d 00e3 | | Load_Encached Natural_Cache
0e2e 00ec | | Load_Encached Diana_Tree_Cache
0e2f 00eb | | Load_Encached Diana_Cache
0e30 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e31 e406 | | Load 0x2,0x6
0e32 0120 | | Execute Any,Is_Value
0e33 6802 |h | Jump_Zero 0xe36
0e34 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0e35 7801 |x | Jump 0xe37
0e36 e406 | | Load 0x2,0x6
0e37 e5fd | | Load 0x2,-0x3
0e38 e5fe | | Load 0x2,-0x2
0e39 e04d | M | Load 0x0,0x4d
0e3a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0e3b c406 | | Store 0x2,0x6
0e3c c405 | | Store 0x2,0x5
0e3d c403 | | Store 0x2,0x3
0e3e c407 | | Store 0x2,0x7
0e3f c408 | | Store 0x2,0x8
0e40 c409 | | Store 0x2,0x9
0e41 00d1 | | Pop_Control Pop_Count_1
0e42 0059 | Y | Store_Top Discrete,At_Offset_1
0e43 e403 | | Load 0x2,0x3
0e44 a402 | | Store_Unchecked 0x2,0x2
0e45 e406 | | Load 0x2,0x6
0e46 e5f9 | | Load 0x2,-0x7
0e47 e5ff | | Load 0x2,-0x1
0e48 e402 | | Load 0x2,0x2
0e49 8241 | A | Call 0x1,0x41
0e4a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0e4b 00da | | Load_Top At_Offset_2
0e4c 6801 |h | Jump_Zero 0xe4e
0e4d 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e4e e409 | | Load 0x2,0x9
0e4f 6816 |h | Jump_Zero 0xe66
0e50 00d8 | | Load_Top At_Offset_0
0e51 0c01 | | Execute_Immediate Greater_Equal,0x1
0e52 6813 |h | Jump_Zero 0xe66
0e53 00ec | | Load_Encached Diana_Tree_Cache
0e54 4801 |H | Short_Literal 0x1
0e55 e5fd | | Load 0x2,-0x3
0e56 e5fe | | Load 0x2,-0x2
0e57 e04d | M | Load 0x0,0x4d
0e58 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0e59 c404 | | Store 0x2,0x4
0e5a e404 | | Load 0x2,0x4
0e5b 00eb | | Load_Encached Diana_Cache
0e5c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e5d 7005 |p | Jump_Nonzero 0xe63
0e5e e404 | | Load 0x2,0x4
0e5f a402 | | Store_Unchecked 0x2,0x2
0e60 4801 |H | Short_Literal 0x1
0e61 a40a | | Store_Unchecked 0x2,0xa
0e62 7805 |x | Jump 0xe68
0e63 4800 |H | Short_Literal 0x0
0e64 a40a | | Store_Unchecked 0x2,0xa
0e65 7802 |x | Jump 0xe68
0e66 4800 |H | Short_Literal 0x0
0e67 a40a | | Store_Unchecked 0x2,0xa
0e68 e5f8 | | Load 0x2,-0x8
0e69 e5fa | | Load 0x2,-0x6
0e6a e5fb | | Load 0x2,-0x5
0e6b e5fc | | Load 0x2,-0x4
0e6c e5ff | | Load 0x2,-0x1
0e6d e40c | | Load 0x2,0xc
0e6e e40a | | Load 0x2,0xa
0e6f e409 | | Load 0x2,0x9
0e70 e408 | | Load 0x2,0x8
0e71 e407 | | Load 0x2,0x7
0e72 e402 | | Load 0x2,0x2
0e73 e405 | | Load 0x2,0x5
0e74 e406 | | Load 0x2,0x6
0e75 826c | l | Call 0x1,0x6c
0e76 c5f8 | | Store 0x2,-0x8
0e77 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e78 TRAP_0e10:
0e78 0007 | | Action Break_Optional
0e79 480a |H | Short_Literal 0xa
0e7a 0092 14a2 | | Action Push_String_Extended,0x14a2 ; "Register_Used_Unit: "
0e7c e011 | | Load 0x0,0x11
0e7d 180d | | Execute Package,Field_Execute,Field_Number 0xd
0e7e 01cc | | Execute Vector,Catenate
0e7f 01cb | | Execute Vector,Append
0e80 8219 | | Call 0x1,0x19
0e81 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e82 0000 0000 | | .BLANK 0000[0x6]
0e88 ; --------------------------------------------------------------------------------------
0e88 ; SUBPROGRAM
0e88 ; --------------------------------------------------------------------------------------
0e88 0e9d | | .CONST 0x0e9d ; Address of begin
0e89 0edf | | .CONST 0x0edf ; Address of exception handler
0e8a 000a | | .CONST 0x000a ; Number of locals
0e8b INIT_0e88:
0e8b 00ec | | Load_Encached Diana_Tree_Cache
0e8c 039d | | Declare_Variable Heap_Access,Duplicate
0e8d 00eb | | Load_Encached Diana_Cache
0e8e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e8f 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0e90 02c7 | | Declare_Variable Any
0e91 00d8 | | Load_Top At_Offset_0
0e92 1c00 | | Execute_Immediate Run_Utility,0x0
0e93 00e3 | | Load_Encached Natural_Cache
0e94 00e1 | | Load_Encached Boolean_Cache
0e95 03e9 | | Declare_Variable Discrete,Duplicate
0e96 e024 | $ | Load 0x0,0x24
0e97 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0e98 02ff | | Declare_Variable Variant_Record
0e99 00d8 | | Load_Top At_Offset_0
0e9a 1c00 | | Execute_Immediate Run_Utility,0x0
0e9b e04d | M | Load 0x0,0x4d
0e9c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e9d BODY_0e88:
0e9d e04d | M | Load 0x0,0x4d
0e9e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e9f 00da | | Load_Top At_Offset_2
0ea0 00e1 | | Load_Encached Boolean_Cache
0ea1 00e1 | | Load_Encached Boolean_Cache
0ea2 00e3 | | Load_Encached Natural_Cache
0ea3 00ec | | Load_Encached Diana_Tree_Cache
0ea4 00eb | | Load_Encached Diana_Cache
0ea5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ea6 e405 | | Load 0x2,0x5
0ea7 0120 | | Execute Any,Is_Value
0ea8 6802 |h | Jump_Zero 0xeab
0ea9 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0eaa 7801 |x | Jump 0xeac
0eab e405 | | Load 0x2,0x5
0eac e5fd | | Load 0x2,-0x3
0ead e5fe | | Load 0x2,-0x2
0eae e04d | M | Load 0x0,0x4d
0eaf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0eb0 c405 | | Store 0x2,0x5
0eb1 c404 | | Store 0x2,0x4
0eb2 c402 | | Store 0x2,0x2
0eb3 c406 | | Store 0x2,0x6
0eb4 c407 | | Store 0x2,0x7
0eb5 c408 | | Store 0x2,0x8
0eb6 00d1 | | Pop_Control Pop_Count_1
0eb7 0059 | Y | Store_Top Discrete,At_Offset_1
0eb8 e404 | | Load 0x2,0x4
0eb9 00d8 | | Load_Top At_Offset_0
0eba 4821 |H! | Short_Literal 0x21
0ebb 482c |H, | Short_Literal 0x2c
0ebc 0262 | b | Execute Discrete,In_Range
0ebd 6815 |h | Jump_Zero 0xed3
0ebe 00d8 | | Load_Top At_Offset_0
0ebf 0c23 | # | Execute_Immediate Greater_Equal,0x23
0ec0 6805 |h | Jump_Zero 0xec6
0ec1 0b29 | ) | Execute_Immediate Case_Compare,0x29
0ec2 7005 |p | Jump_Nonzero 0xec8
0ec3 0f2c | , | Execute_Immediate Equal,0x2c
0ec4 7019 |p | Jump_Nonzero 0xede
0ec5 780e |x | Jump 0xed4
0ec6 00d1 | | Pop_Control Pop_Count_1
0ec7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ec8 00d1 | | Pop_Control Pop_Count_1
0ec9 e5fa | | Load 0x2,-0x6
0eca e5fb | | Load 0x2,-0x5
0ecb e406 | | Load 0x2,0x6
0ecc e5fc | | Load 0x2,-0x4
0ecd e5ff | | Load 0x2,-0x1
0ece e405 | | Load 0x2,0x5
0ecf e402 | | Load 0x2,0x2
0ed0 8267 | g | Call 0x1,0x67
0ed1 c5fa | | Store 0x2,-0x6
0ed2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ed3 00d1 | | Pop_Control Pop_Count_1
0ed4 4801 |H | Short_Literal 0x1
0ed5 0092 14a3 | | Action Push_String_Extended,0x14a3 ; "UnRegister_Unit: unknown node: "
0ed7 e404 | | Load 0x2,0x4
0ed8 00eb | | Load_Encached Diana_Cache
0ed9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0eda 011c | | Execute Any,Convert_Unchecked
0edb 1c01 | | Execute_Immediate Run_Utility,0x1
0edc 01cc | | Execute Vector,Catenate
0edd 821a | | Call 0x1,0x1a
0ede 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0edf TRAP_0e88:
0edf 0007 | | Action Break_Optional
0ee0 4801 |H | Short_Literal 0x1
0ee1 0092 14a4 | | Action Push_String_Extended,0x14a4 ; "unRegister_Unit: "
0ee3 e011 | | Load 0x0,0x11
0ee4 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ee5 01cc | | Execute Vector,Catenate
0ee6 821a | | Call 0x1,0x1a
0ee7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ee8 ; --------------------------------------------------------------------------------------
0ee8 ; SUBPROGRAM
0ee8 ; --------------------------------------------------------------------------------------
0ee8 0ef3 | | .CONST 0x0ef3 ; Address of begin
0ee9 0f2d | - | .CONST 0x0f2d ; Address of exception handler
0eea 0004 | | .CONST 0x0004 ; Number of locals
0eeb INIT_0ee8:
0eeb e04d | M | Load 0x0,0x4d
0eec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0eed 02c7 | | Declare_Variable Any
0eee 00d8 | | Load_Top At_Offset_0
0eef 1c00 | | Execute_Immediate Run_Utility,0x0
0ef0 00ec | | Load_Encached Diana_Tree_Cache
0ef1 e04d | M | Load 0x0,0x4d
0ef2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ef3 BODY_0ee8:
0ef3 e5ff | | Load 0x2,-0x1
0ef4 e013 | | Load 0x0,0x13
0ef5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0ef6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0ef7 c402 | | Store 0x2,0x2
0ef8 00da | | Load_Top At_Offset_2
0ef9 e04d | M | Load 0x0,0x4d
0efa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0efb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0efc 4801 |H | Short_Literal 0x1
0efd 0092 14a5 | | Action Push_String_Extended,0x14a5 ; "UnRegister_Unit: Empty Unit_List list"
0eff 00da | | Load_Top At_Offset_2
0f00 0c01 | | Execute_Immediate Greater_Equal,0x1
0f01 821b | | Call 0x1,0x1b
0f02 00cf | | Action Mark_Auxiliary
0f03 00d9 | | Load_Top At_Offset_1
0f04 4801 |H | Short_Literal 0x1
0f05 0263 | c | Execute Discrete,Above_Bound
0f06 700a |p | Jump_Nonzero 0xf11
0f07 e5fc | | Load 0x2,-0x4
0f08 e5fd | | Load 0x2,-0x3
0f09 e5fe | | Load 0x2,-0x2
0f0a 00db | | Load_Top At_Offset_3
0f0b e402 | | Load 0x2,0x2
0f0c e5ff | | Load 0x2,-0x1
0f0d 826e | n | Call 0x1,0x6e
0f0e c5fc | | Store 0x2,-0x4
0f0f 00c8 | | Action Pop_Auxiliary_Range
0f10 3ff6 |? | Loop_Increasing 0xf07
0f11 00ce | | Action Pop_Auxiliary
0f12 e5ff | | Load 0x2,-0x1
0f13 e003 | | Load 0x0,0x3
0f14 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0f15 6804 |h | Jump_Zero 0xf1a
0f16 00eb | | Load_Encached Diana_Cache
0f17 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f18 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0f19 7803 |x | Jump 0xf1d
0f1a e5ff | | Load 0x2,-0x1
0f1b 823e | > | Call 0x1,0x3e
0f1c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0f1d 00d9 | | Load_Top At_Offset_1
0f1e 00eb | | Load_Encached Diana_Cache
0f1f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f20 700b |p | Jump_Nonzero 0xf2c
0f21 e5fc | | Load 0x2,-0x4
0f22 e5fd | | Load 0x2,-0x3
0f23 4800 |H | Short_Literal 0x0
0f24 e5fe | | Load 0x2,-0x2
0f25 e5ff | | Load 0x2,-0x1
0f26 e403 | | Load 0x2,0x3
0f27 00eb | | Load_Encached Diana_Cache
0f28 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0f29 e403 | | Load 0x2,0x3
0f2a 8267 | g | Call 0x1,0x67
0f2b c5fc | | Store 0x2,-0x4
0f2c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f2d TRAP_0ee8:
0f2d 0007 | | Action Break_Optional
0f2e 4801 |H | Short_Literal 0x1
0f2f 0092 14a6 | | Action Push_String_Extended,0x14a6 ; "Unregister_Unit: "
0f31 e011 | | Load 0x0,0x11
0f32 180d | | Execute Package,Field_Execute,Field_Number 0xd
0f33 01cc | | Execute Vector,Catenate
0f34 821a | | Call 0x1,0x1a
0f35 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f36 0000 0000 | | .XXX[0x2]
0f38 ; --------------------------------------------------------------------------------------
0f38 ; SUBPROGRAM
0f38 ; --------------------------------------------------------------------------------------
0f38 0f3b | ; | .CONST 0x0f3b ; Address of begin
0f39 0004 | | .CONST 0x0004 ; Address of exception handler
0f3a 0001 | | .CONST 0x0001 ; Number of locals
0f3b BODY_0f38:
0f3b INIT_0f38:
0f3b e5fd | | Load 0x2,-0x3
0f3c a5f9 | | Store_Unchecked 0x2,-0x7
0f3d 00da | | Load_Top At_Offset_2
0f3e 6809 |h | Jump_Zero 0xf48
0f3f e5fd | | Load 0x2,-0x3
0f40 e5fe | | Load 0x2,-0x2
0f41 8250 | P | Call 0x1,0x50
0f42 6805 |h | Jump_Zero 0xf48
0f43 4800 |H | Short_Literal 0x0
0f44 a5fb | | Store_Unchecked 0x2,-0x5
0f45 4800 |H | Short_Literal 0x0
0f46 a5fa | | Store_Unchecked 0x2,-0x6
0f47 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f48 00db | | Load_Top At_Offset_3
0f49 e5fc | | Load 0x2,-0x4
0f4a 8244 | D | Call 0x1,0x44
0f4b 6809 |h | Jump_Zero 0xf55
0f4c 4801 |H | Short_Literal 0x1
0f4d a5fa | | Store_Unchecked 0x2,-0x6
0f4e 4800 |H | Short_Literal 0x0
0f4f a5fb | | Store_Unchecked 0x2,-0x5
0f50 00db | | Load_Top At_Offset_3
0f51 a5f9 | | Store_Unchecked 0x2,-0x7
0f52 4801 |H | Short_Literal 0x1
0f53 a5f8 | | Store_Unchecked 0x2,-0x8
0f54 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f55 e5fd | | Load 0x2,-0x3
0f56 e5fc | | Load 0x2,-0x4
0f57 8244 | D | Call 0x1,0x44
0f58 6809 |h | Jump_Zero 0xf62
0f59 e5fd | | Load 0x2,-0x3
0f5a a5f9 | | Store_Unchecked 0x2,-0x7
0f5b 4800 |H | Short_Literal 0x0
0f5c a5fb | | Store_Unchecked 0x2,-0x5
0f5d 4801 |H | Short_Literal 0x1
0f5e a5fa | | Store_Unchecked 0x2,-0x6
0f5f 4801 |H | Short_Literal 0x1
0f60 a5f8 | | Store_Unchecked 0x2,-0x8
0f61 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f62 4800 |H | Short_Literal 0x0
0f63 a5fa | | Store_Unchecked 0x2,-0x6
0f64 4801 |H | Short_Literal 0x1
0f65 a5fb | | Store_Unchecked 0x2,-0x5
0f66 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f67 0000 | | .XXX[0x1]
0f68 ; --------------------------------------------------------------------------------------
0f68 ; SUBPROGRAM
0f68 ; --------------------------------------------------------------------------------------
0f68 0f81 | | .CONST 0x0f81 ; Address of begin
0f69 0004 | | .CONST 0x0004 ; Address of exception handler
0f6a 0010 | | .CONST 0x0010 ; Number of locals
0f6b INIT_0f68:
0f6b e220 | | Load 0x1,0x20
0f6c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0f6d 00e1 | | Load_Encached Boolean_Cache
0f6e e220 | | Load 0x1,0x20
0f6f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0f70 e21f | | Load 0x1,0x1f
0f71 03bd | | Declare_Variable Access,Duplicate
0f72 00e1 | | Load_Encached Boolean_Cache
0f73 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f74 03e9 | | Declare_Variable Discrete,Duplicate
0f75 00e1 | | Load_Encached Boolean_Cache
0f76 00eb | | Load_Encached Diana_Cache
0f77 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f78 00ec | | Load_Encached Diana_Tree_Cache
0f79 00e3 | | Load_Encached Natural_Cache
0f7a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f7b 00e1 | | Load_Encached Boolean_Cache
0f7c 00e1 | | Load_Encached Boolean_Cache
0f7d e21f | | Load 0x1,0x1f
0f7e 0007 | | Action Break_Optional
0f7f 00e1 | | Load_Encached Boolean_Cache
0f80 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f81 BODY_0f68:
0f81 4800 |H | Short_Literal 0x0
0f82 a5fa | | Store_Unchecked 0x2,-0x6
0f83 e21d | | Load 0x1,0x1d
0f84 a5f9 | | Store_Unchecked 0x2,-0x7
0f85 00eb | | Load_Encached Diana_Cache
0f86 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f87 a5f7 | | Store_Unchecked 0x2,-0x9
0f88 4800 |H | Short_Literal 0x0
0f89 a5f8 | | Store_Unchecked 0x2,-0x8
0f8a 00e1 | | Load_Encached Boolean_Cache
0f8b e402 | | Load 0x2,0x2
0f8c e5fe | | Load 0x2,-0x2
0f8d e022 | " | Load 0x0,0x22
0f8e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f8f e5fb | | Load 0x2,-0x5
0f90 0227 | ' | Execute Access,All_Reference
0f91 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0f92 e221 | ! | Load 0x1,0x21
0f93 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f94 c402 | | Store 0x2,0x2
0f95 c403 | | Store 0x2,0x3
0f96 e403 | | Load 0x2,0x3
0f97 68b0 |h | Jump_Zero 0x1048
0f98 e402 | | Load 0x2,0x2
0f99 e220 | | Load 0x1,0x20
0f9a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f9b 70ac |p | Jump_Nonzero 0x1048
0f9c e220 | | Load 0x1,0x20
0f9d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0f9e e402 | | Load 0x2,0x2
0f9f e220 | | Load 0x1,0x20
0fa0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fa1 c404 | | Store 0x2,0x4
0fa2 e21f | | Load 0x1,0x1f
0fa3 a406 | | Store_Unchecked 0x2,0x6
0fa4 e5ff | | Load 0x2,-0x1
0fa5 823b | ; | Call 0x1,0x3b
0fa6 a40b | | Store_Unchecked 0x2,0xb
0fa7 00cf | | Action Mark_Auxiliary
0fa8 785b |x[ | Jump 0x1004
0fa9 e404 | | Load 0x2,0x4
0faa e220 | | Load 0x1,0x20
0fab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0fac a405 | | Store_Unchecked 0x2,0x5
0fad e405 | | Load 0x2,0x5
0fae 0227 | ' | Execute Access,All_Reference
0faf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0fb0 e40b | | Load 0x2,0xb
0fb1 8242 | B | Call 0x1,0x42
0fb2 684c |hL | Jump_Zero 0xfff
0fb3 e407 | | Load 0x2,0x7
0fb4 683b |h; | Jump_Zero 0xff0
0fb5 00d9 | | Load_Top At_Offset_1
0fb6 e21f | | Load 0x1,0x1f
0fb7 00e1 | | Load_Encached Boolean_Cache
0fb8 00e1 | | Load_Encached Boolean_Cache
0fb9 e5fd | | Load 0x2,-0x3
0fba e406 | | Load 0x2,0x6
0fbb e405 | | Load 0x2,0x5
0fbc e5fc | | Load 0x2,-0x4
0fbd 8270 | p | Call 0x1,0x70
0fbe c409 | | Store 0x2,0x9
0fbf c40d | | Store 0x2,0xd
0fc0 c40f | | Store 0x2,0xf
0fc1 005a | Z | Store_Top Discrete,At_Offset_2
0fc2 e40d | | Load 0x2,0xd
0fc3 6811 |h | Jump_Zero 0xfd5
0fc4 e003 | | Load 0x0,0x3
0fc5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fc6 00ec | | Load_Encached Diana_Tree_Cache
0fc7 00ec | | Load_Encached Diana_Tree_Cache
0fc8 00e3 | | Load_Encached Natural_Cache
0fc9 e40f | | Load 0x2,0xf
0fca 8226 | & | Call 0x1,0x26
0fcb c5fa | | Store 0x2,-0x6
0fcc c5f7 | | Store 0x2,-0x9
0fcd c40a | | Store 0x2,0xa
0fce c5f9 | | Store 0x2,-0x7
0fcf 4800 |H | Short_Literal 0x0
0fd0 a5f8 | | Store_Unchecked 0x2,-0x8
0fd1 e012 | | Load 0x0,0x12
0fd2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fd3 c5f6 | | Store 0x2,-0xa
0fd4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0fd5 e409 | | Load 0x2,0x9
0fd6 6824 |h$ | Jump_Zero 0xffb
0fd7 e408 | | Load 0x2,0x8
0fd8 700c |p | Jump_Nonzero 0xfe5
0fd9 e5fb | | Load 0x2,-0x5
0fda e402 | | Load 0x2,0x2
0fdb e406 | | Load 0x2,0x6
0fdc e40c | | Load 0x2,0xc
0fdd e5fe | | Load 0x2,-0x2
0fde 8251 | Q | Call 0x1,0x51
0fdf c40c | | Store 0x2,0xc
0fe0 c406 | | Store 0x2,0x6
0fe1 c402 | | Store 0x2,0x2
0fe2 c5fb | | Store 0x2,-0x5
0fe3 4801 |H | Short_Literal 0x1
0fe4 a408 | | Store_Unchecked 0x2,0x8
0fe5 e5fb | | Load 0x2,-0x5
0fe6 e402 | | Load 0x2,0x2
0fe7 e405 | | Load 0x2,0x5
0fe8 e40c | | Load 0x2,0xc
0fe9 e5fe | | Load 0x2,-0x2
0fea 8251 | Q | Call 0x1,0x51
0feb c40c | | Store 0x2,0xc
0fec c405 | | Store 0x2,0x5
0fed c402 | | Store 0x2,0x2
0fee c5fb | | Store 0x2,-0x5
0fef 780b |x | Jump 0xffb
0ff0 e003 | | Load 0x0,0x3
0ff1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ff2 00ec | | Load_Encached Diana_Tree_Cache
0ff3 00ec | | Load_Encached Diana_Tree_Cache
0ff4 00e3 | | Load_Encached Natural_Cache
0ff5 e405 | | Load 0x2,0x5
0ff6 8226 | & | Call 0x1,0x26
0ff7 c5fa | | Store 0x2,-0x6
0ff8 c5f7 | | Store 0x2,-0x9
0ff9 c40a | | Store 0x2,0xa
0ffa c5f9 | | Store 0x2,-0x7
0ffb e405 | | Load 0x2,0x5
0ffc a406 | | Store_Unchecked 0x2,0x6
0ffd 4801 |H | Short_Literal 0x1
0ffe a407 | | Store_Unchecked 0x2,0x7
0fff e404 | | Load 0x2,0x4
1000 e220 | | Load 0x1,0x20
1001 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1002 c404 | | Store 0x2,0x4
1003 00c9 | | Action Pop_Auxiliary_Loop
1004 e404 | | Load 0x2,0x4
1005 e220 | | Load 0x1,0x20
1006 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1007 6fa1 |o | Jump_Zero 0xfa9
1008 00ce | | Action Pop_Auxiliary
1009 e408 | | Load 0x2,0x8
100a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
100b e408 | | Load 0x2,0x8
100c 6807 |h | Jump_Zero 0x1014
100d e5fb | | Load 0x2,-0x5
100e 00e1 | | Load_Encached Boolean_Cache
100f e40c | | Load 0x2,0xc
1010 824f | O | Call 0x1,0x4f
1011 c40c | | Store 0x2,0xc
1012 c408 | | Store 0x2,0x8
1013 c5fb | | Store 0x2,-0x5
1014 00e1 | | Load_Encached Boolean_Cache
1015 e5f6 | | Load 0x2,-0xa
1016 e405 | | Load 0x2,0x5
1017 0227 | ' | Execute Access,All_Reference
1018 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1019 00db | | Load_Top At_Offset_3
101a e5fd | | Load 0x2,-0x3
101b e408 | | Load 0x2,0x8
101c e407 | | Load 0x2,0x7
101d 8247 | G | Call 0x1,0x47
101e c5f6 | | Store 0x2,-0xa
101f c5f8 | | Store 0x2,-0x8
1020 e408 | | Load 0x2,0x8
1021 6806 |h | Jump_Zero 0x1028
1022 e5fb | | Load 0x2,-0x5
1023 e5fe | | Load 0x2,-0x2
1024 e40c | | Load 0x2,0xc
1025 e5fd | | Load 0x2,-0x3
1026 8254 | T | Call 0x1,0x54
1027 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1028 00da | | Load_Top At_Offset_2
1029 681d |h | Jump_Zero 0x1047
102a 00e1 | | Load_Encached Boolean_Cache
102b e405 | | Load 0x2,0x5
102c e40c | | Load 0x2,0xc
102d e5fb | | Load 0x2,-0x5
102e 0227 | ' | Execute Access,All_Reference
102f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1030 e223 | # | Load 0x1,0x23
1031 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1032 c405 | | Store 0x2,0x5
1033 c403 | | Store 0x2,0x3
1034 e403 | | Load 0x2,0x3
1035 680c |h | Jump_Zero 0x1042
1036 e003 | | Load 0x0,0x3
1037 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1038 00ec | | Load_Encached Diana_Tree_Cache
1039 00ec | | Load_Encached Diana_Tree_Cache
103a 00e3 | | Load_Encached Natural_Cache
103b e405 | | Load 0x2,0x5
103c 8226 | & | Call 0x1,0x26
103d c5fa | | Store 0x2,-0x6
103e c5f7 | | Store 0x2,-0x9
103f c40a | | Store 0x2,0xa
1040 c5f9 | | Store 0x2,-0x7
1041 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1042 0092 14a7 | | Action Push_String_Extended,0x14a7 ; "empty overload chain"
1044 e012 | | Load 0x0,0x12
1045 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1046 c5f6 | | Store 0x2,-0xa
1047 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1048 e224 | $ | Load 0x1,0x24
1049 e012 | | Load 0x0,0x12
104a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
104b c5f6 | | Store 0x2,-0xa
104c 4800 |H | Short_Literal 0x0
104d a5f8 | | Store_Unchecked 0x2,-0x8
104e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
104f 0000 | | .XXX[0x1]
1050 ; --------------------------------------------------------------------------------------
1050 ; SUBPROGRAM
1050 ; --------------------------------------------------------------------------------------
1050 1053 | S | .CONST 0x1053 ; Address of begin
1051 0004 | | .CONST 0x0004 ; Address of exception handler
1052 0001 | | .CONST 0x0001 ; Number of locals
1053 BODY_1050:
1053 INIT_1050:
1053 4800 |H | Short_Literal 0x0
1054 804e | N | Call 0x0,0x4e
1055 00ca | | Action Exit_Nullary_Function
1056 0000 0000 | | .XXX[0x2]
1058 ; --------------------------------------------------------------------------------------
1058 ; SUBPROGRAM
1058 ; --------------------------------------------------------------------------------------
1058 105b | [ | .CONST 0x105b ; Address of begin
1059 0004 | | .CONST 0x0004 ; Address of exception handler
105a 0001 | | .CONST 0x0001 ; Number of locals
105b BODY_1058:
105b INIT_1058:
105b 00da | | Load_Top At_Offset_2
105c 0092 14a8 | | Action Push_String_Extended,0x14a8 ; " "
105e e014 | | Load 0x0,0x14
105f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1060 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1061 0000 0000 | | .BLANK 0000[0x7]
1068 ; --------------------------------------------------------------------------------------
1068 ; SUBPROGRAM
1068 ; --------------------------------------------------------------------------------------
1068 106b | k | .CONST 0x106b ; Address of begin
1069 0004 | | .CONST 0x0004 ; Address of exception handler
106a 0001 | | .CONST 0x0001 ; Number of locals
106b BODY_1068:
106b INIT_1068:
106b 00da | | Load_Top At_Offset_2
106c e014 | | Load 0x0,0x14
106d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
106e 8227 | ' | Call 0x1,0x27
106f 8228 | ( | Call 0x1,0x28
1070 00da | | Load_Top At_Offset_2
1071 8273 | s | Call 0x1,0x73
1072 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1073 0000 0000 | | .BLANK 0000[0x5]
1078 ; --------------------------------------------------------------------------------------
1078 ; SUBPROGRAM
1078 ; --------------------------------------------------------------------------------------
1078 107b | { | .CONST 0x107b ; Address of begin
1079 0004 | | .CONST 0x0004 ; Address of exception handler
107a 0001 | | .CONST 0x0001 ; Number of locals
107b BODY_1078:
107b INIT_1078:
107b 00db | | Load_Top At_Offset_3
107c e014 | | Load 0x0,0x14
107d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
107e 00db | | Load_Top At_Offset_3
107f 01db | | Execute Vector,Length
1080 0273 | s | Execute Discrete,Plus
1081 e218 | | Load 0x1,0x18
1082 027a | z | Execute Discrete,Less_Equal
1083 6806 |h | Jump_Zero 0x108a
1084 00db | | Load_Top At_Offset_3
1085 00db | | Load_Top At_Offset_3
1086 e014 | | Load 0x0,0x14
1087 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1088 00d1 | | Pop_Control Pop_Count_1
1089 4502 |E | Exit_Suprogram New_Top_Offset 0x2
108a 00db | | Load_Top At_Offset_3
108b 8274 | t | Call 0x1,0x74
108c 00d1 | | Pop_Control Pop_Count_1
108d 00da | | Load_Top At_Offset_2
108e 01db | | Execute Vector,Length
108f e218 | | Load 0x1,0x18
1090 027a | z | Execute Discrete,Less_Equal
1091 6806 |h | Jump_Zero 0x1098
1092 00db | | Load_Top At_Offset_3
1093 00db | | Load_Top At_Offset_3
1094 e014 | | Load 0x0,0x14
1095 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1096 00d1 | | Pop_Control Pop_Count_1
1097 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1098 00db | | Load_Top At_Offset_3
1099 00db | | Load_Top At_Offset_3
109a 01dd | | Execute Vector,First
109b e5ff | | Load 0x2,-0x1
109c 01dd | | Execute Vector,First
109d e218 | | Load 0x1,0x18
109e 0273 | s | Execute Discrete,Plus
109f 0aff | | Execute_Immediate Plus,-0x1
10a0 00d8 | | Load_Top At_Offset_0
10a1 00e2 | | Load_Encached Integer_Cache
10a2 0260 | ` | Execute Discrete,In_Type
10a3 7001 |p | Jump_Nonzero 0x10a5
10a4 0801 | | Execute_Immediate Raise,0x1
10a5 e5ff | | Load 0x2,-0x1
10a6 01cf | | Execute Vector,Slice_Read
10a7 e014 | | Load 0x0,0x14
10a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
10a9 00d1 | | Pop_Control Pop_Count_1
10aa 00db | | Load_Top At_Offset_3
10ab 8274 | t | Call 0x1,0x74
10ac 00d1 | | Pop_Control Pop_Count_1
10ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2
10ae 0000 0000 | | .XXX[0x2]
10b0 ; --------------------------------------------------------------------------------------
10b0 ; SUBPROGRAM
10b0 ; --------------------------------------------------------------------------------------
10b0 10e2 | | .CONST 0x10e2 ; Address of begin
10b1 0004 | | .CONST 0x0004 ; Address of exception handler
10b2 000f | | .CONST 0x000f ; Number of locals
10b3 INIT_10b0:
10b3 e04d | M | Load 0x0,0x4d
10b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10b5 02c7 | | Declare_Variable Any
10b6 e5fe | | Load 0x2,-0x2
10b7 e013 | | Load 0x0,0x13
10b8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
10b9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
10ba a402 | | Store_Unchecked 0x2,0x2
10bb 00d8 | | Load_Top At_Offset_0
10bc e04d | M | Load 0x0,0x4d
10bd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
10be e04d | M | Load 0x0,0x4d
10bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10c0 03f1 | | Declare_Variable Discrete,With_Value
10c1 e218 | | Load 0x1,0x18
10c2 e014 | | Load 0x0,0x14
10c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10c4 1c08 | | Execute_Immediate Run_Utility,0x8
10c5 00d8 | | Load_Top At_Offset_0
10c6 1c00 | | Execute_Immediate Run_Utility,0x0
10c7 00e1 | | Load_Encached Boolean_Cache
10c8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
10c9 00ec | | Load_Encached Diana_Tree_Cache
10ca 00eb | | Load_Encached Diana_Cache
10cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10cc 00ed | | Load_Encached Diana_Symbol_Rep_Cache
10cd 02c7 | | Declare_Variable Any
10ce 00d8 | | Load_Top At_Offset_0
10cf 1c00 | | Execute_Immediate Run_Utility,0x0
10d0 00e3 | | Load_Encached Natural_Cache
10d1 00e1 | | Load_Encached Boolean_Cache
10d2 03e9 | | Declare_Variable Discrete,Duplicate
10d3 e024 | $ | Load 0x0,0x24
10d4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
10d5 02ff | | Declare_Variable Variant_Record
10d6 00d8 | | Load_Top At_Offset_0
10d7 1c00 | | Execute_Immediate Run_Utility,0x0
10d8 e04d | M | Load 0x0,0x4d
10d9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
10da e5fe | | Load 0x2,-0x2
10db e003 | | Load 0x0,0x3
10dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
10dd 00e1 | | Load_Encached Boolean_Cache
10de 03f1 | | Declare_Variable Discrete,With_Value
10df e5fe | | Load 0x2,-0x2
10e0 e021 | ! | Load 0x0,0x21
10e1 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
10e2 BODY_10b0:
10e2 e403 | | Load 0x2,0x3
10e3 7001 |p | Jump_Nonzero 0x10e5
10e4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
10e5 0092 14a9 | | Action Push_String_Extended,0x14a9 ; " Library Units used by "
10e7 e5ff | | Load 0x2,-0x1
10e8 01cc | | Execute Vector,Catenate
10e9 8227 | ' | Call 0x1,0x27
10ea 8228 | ( | Call 0x1,0x28
10eb e404 | | Load 0x2,0x4
10ec 8273 | s | Call 0x1,0x73
10ed 00d1 | | Pop_Control Pop_Count_1
10ee 00cf | | Action Mark_Auxiliary
10ef e403 | | Load 0x2,0x3
10f0 4801 |H | Short_Literal 0x1
10f1 0263 | c | Execute Discrete,Above_Bound
10f2 7033 |p3 | Jump_Nonzero 0x1126
10f3 e04d | M | Load 0x0,0x4d
10f4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
10f5 e40c | | Load 0x2,0xc
10f6 00e1 | | Load_Encached Boolean_Cache
10f7 00e1 | | Load_Encached Boolean_Cache
10f8 00e3 | | Load_Encached Natural_Cache
10f9 00ec | | Load_Encached Diana_Tree_Cache
10fa 00eb | | Load_Encached Diana_Cache
10fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10fc e408 | | Load 0x2,0x8
10fd 0120 | | Execute Any,Is_Value
10fe 6802 |h | Jump_Zero 0x1101
10ff 00ed | | Load_Encached Diana_Symbol_Rep_Cache
1100 7801 |x | Jump 0x1102
1101 e408 | | Load 0x2,0x8
1102 e412 | | Load 0x2,0x12
1103 e402 | | Load 0x2,0x2
1104 e04d | M | Load 0x0,0x4d
1105 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1106 c408 | | Store 0x2,0x8
1107 c407 | | Store 0x2,0x7
1108 c406 | | Store 0x2,0x6
1109 c409 | | Store 0x2,0x9
110a c40a | | Store 0x2,0xa
110b c40b | | Store 0x2,0xb
110c 00d1 | | Pop_Control Pop_Count_1
110d c40d | | Store 0x2,0xd
110e e408 | | Load 0x2,0x8
110f e40e | | Load 0x2,0xe
1110 e40f | | Load 0x2,0xf
1111 e406 | | Load 0x2,0x6
1112 8241 | A | Call 0x1,0x41
1113 7010 |p | Jump_Nonzero 0x1124
1114 e405 | | Load 0x2,0x5
1115 7005 |p | Jump_Nonzero 0x111b
1116 e404 | | Load 0x2,0x4
1117 0092 14aa | | Action Push_String_Extended,0x14aa ; " "
1119 8275 | u | Call 0x1,0x75
111a 00d1 | | Pop_Control Pop_Count_1
111b e404 | | Load 0x2,0x4
111c e406 | | Load 0x2,0x6
111d e408 | | Load 0x2,0x8
111e e407 | | Load 0x2,0x7
111f 8230 | 0 | Call 0x1,0x30
1120 8275 | u | Call 0x1,0x75
1121 00d1 | | Pop_Control Pop_Count_1
1122 4800 |H | Short_Literal 0x0
1123 a405 | | Store_Unchecked 0x2,0x5
1124 00c8 | | Action Pop_Auxiliary_Range
1125 3fcd |? | Loop_Increasing 0x10f3
1126 00ce | | Action Pop_Auxiliary
1127 e404 | | Load 0x2,0x4
1128 8274 | t | Call 0x1,0x74
1129 4503 |E | Exit_Suprogram New_Top_Offset 0x3
112a 0000 0000 | | .BLANK 0000[0x6]
1130 ; --------------------------------------------------------------------------------------
1130 ; SUBPROGRAM
1130 ; --------------------------------------------------------------------------------------
1130 1144 | D | .CONST 0x1144 ; Address of begin
1131 0004 | | .CONST 0x0004 ; Address of exception handler
1132 0009 | | .CONST 0x0009 ; Number of locals
1133 INIT_1130:
1133 00ec | | Load_Encached Diana_Tree_Cache
1134 00eb | | Load_Encached Diana_Cache
1135 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1136 00ed | | Load_Encached Diana_Symbol_Rep_Cache
1137 02c7 | | Declare_Variable Any
1138 00d8 | | Load_Top At_Offset_0
1139 1c00 | | Execute_Immediate Run_Utility,0x0
113a 00e3 | | Load_Encached Natural_Cache
113b 00e1 | | Load_Encached Boolean_Cache
113c 03e9 | | Declare_Variable Discrete,Duplicate
113d e024 | $ | Load 0x0,0x24
113e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
113f 02ff | | Declare_Variable Variant_Record
1140 00d8 | | Load_Top At_Offset_0
1141 1c00 | | Execute_Immediate Run_Utility,0x0
1142 e04d | M | Load 0x0,0x4d
1143 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1144 BODY_1130:
1144 e04d | M | Load 0x0,0x4d
1145 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1146 00da | | Load_Top At_Offset_2
1147 00e1 | | Load_Encached Boolean_Cache
1148 00e1 | | Load_Encached Boolean_Cache
1149 00e3 | | Load_Encached Natural_Cache
114a 00ec | | Load_Encached Diana_Tree_Cache
114b 00eb | | Load_Encached Diana_Cache
114c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
114d e404 | | Load 0x2,0x4
114e 0120 | | Execute Any,Is_Value
114f 6802 |h | Jump_Zero 0x1152
1150 00ed | | Load_Encached Diana_Symbol_Rep_Cache
1151 7801 |x | Jump 0x1153
1152 e404 | | Load 0x2,0x4
1153 e5fd | | Load 0x2,-0x3
1154 e5fe | | Load 0x2,-0x2
1155 e04d | M | Load 0x0,0x4d
1156 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1157 c404 | | Store 0x2,0x4
1158 c403 | | Store 0x2,0x3
1159 c402 | | Store 0x2,0x2
115a c405 | | Store 0x2,0x5
115b c406 | | Store 0x2,0x6
115c c407 | | Store 0x2,0x7
115d 00d1 | | Pop_Control Pop_Count_1
115e 0059 | Y | Store_Top Discrete,At_Offset_1
115f e404 | | Load 0x2,0x4
1160 e5fa | | Load 0x2,-0x6
1161 e5ff | | Load 0x2,-0x1
1162 e402 | | Load 0x2,0x2
1163 8241 | A | Call 0x1,0x41
1164 6801 |h | Jump_Zero 0x1166
1165 4507 |E | Exit_Suprogram New_Top_Offset 0x7
1166 0092 14ab | | Action Push_String_Extended,0x14ab ; " "
1168 e402 | | Load 0x2,0x2
1169 e404 | | Load 0x2,0x4
116a e403 | | Load 0x2,0x3
116b 8230 | 0 | Call 0x1,0x30
116c 01cc | | Execute Vector,Catenate
116d 8227 | ' | Call 0x1,0x27
116e 00da | | Load_Top At_Offset_2
116f 6803 |h | Jump_Zero 0x1173
1170 0092 14ac | | Action Push_String_Extended,0x14ac ; " (archived)"
1172 8227 | ' | Call 0x1,0x27
1173 e5fb | | Load 0x2,-0x5
1174 680a |h | Jump_Zero 0x117f
1175 e403 | | Load 0x2,0x3
1176 0f29 | ) | Execute_Immediate Equal,0x29
1177 6807 |h | Jump_Zero 0x117f
1178 0092 14ad | | Action Push_String_Extended,0x14ad ; " Elab Segment Offset: "
117a e405 | | Load 0x2,0x5
117b 00e0 | | Load_Encached Standard_Cache
117c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
117d 01cc | | Execute Vector,Catenate
117e 8227 | ' | Call 0x1,0x27
117f 8228 | ( | Call 0x1,0x28
1180 4507 |E | Exit_Suprogram New_Top_Offset 0x7
1181 0000 0000 | | .BLANK 0000[0x7]
1188 ; --------------------------------------------------------------------------------------
1188 ; SUBPROGRAM
1188 ; --------------------------------------------------------------------------------------
1188 11aa | | .CONST 0x11aa ; Address of begin
1189 0004 | | .CONST 0x0004 ; Address of exception handler
118a 0008 | | .CONST 0x0008 ; Number of locals
118b INIT_1188:
118b 00ec | | Load_Encached Diana_Tree_Cache
118c e04d | M | Load 0x0,0x4d
118d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
118e 02c7 | | Declare_Variable Any
118f 00d8 | | Load_Top At_Offset_0
1190 1c00 | | Execute_Immediate Run_Utility,0x0
1191 e5ff | | Load 0x2,-0x1
1192 0227 | ' | Execute Access,All_Reference
1193 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
1194 e004 | | Load 0x0,0x4
1195 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1196 03f1 | | Declare_Variable Discrete,With_Value
1197 e004 | | Load 0x0,0x4
1198 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
1199 02c7 | | Declare_Variable Any
119a e5ff | | Load 0x2,-0x1
119b 0227 | ' | Execute Access,All_Reference
119c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
119d a405 | | Store_Unchecked 0x2,0x5
119e e04d | M | Load 0x0,0x4d
119f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11a0 8272 | r | Call 0x1,0x72
11a1 00e1 | | Load_Encached Boolean_Cache
11a2 03f1 | | Declare_Variable Discrete,With_Value
11a3 e5ff | | Load 0x2,-0x1
11a4 0227 | ' | Execute Access,All_Reference
11a5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
11a6 e003 | | Load 0x0,0x3
11a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11a8 00e1 | | Load_Encached Boolean_Cache
11a9 03f1 | | Declare_Variable Discrete,With_Value
11aa BODY_1188:
11aa 480a |H | Short_Literal 0xa
11ab 0092 14ae | | Action Push_String_Extended,0x14ae ; " Library: "
11ad e5ff | | Load 0x2,-0x1
11ae 0227 | ' | Execute Access,All_Reference
11af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
11b0 822d | - | Call 0x1,0x2d
11b1 01cc | | Execute Vector,Catenate
11b2 01cb | | Execute Vector,Append
11b3 8227 | ' | Call 0x1,0x27
11b4 480a |H | Short_Literal 0xa
11b5 0092 14af | | Action Push_String_Extended,0x14af ; " Main Unit: "
11b7 e5ff | | Load 0x2,-0x1
11b8 0227 | ' | Execute Access,All_Reference
11b9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
11ba 8231 | 1 | Call 0x1,0x31
11bb 01cc | | Execute Vector,Catenate
11bc 01cb | | Execute Vector,Append
11bd 8227 | ' | Call 0x1,0x27
11be 00d9 | | Load_Top At_Offset_1
11bf 6816 |h | Jump_Zero 0x11d6
11c0 00db | | Load_Top At_Offset_3
11c1 e404 | | Load 0x2,0x4
11c2 8259 | Y | Call 0x1,0x59
11c3 6812 |h | Jump_Zero 0x11d6
11c4 0092 14b0 | | Action Push_String_Extended,0x14b0 ; " Elab Segment:"
11c6 e404 | | Load 0x2,0x4
11c7 00e0 | | Load_Encached Standard_Cache
11c8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11c9 01cc | | Execute Vector,Catenate
11ca 8227 | ' | Call 0x1,0x27
11cb 480a |H | Short_Literal 0xa
11cc 0092 14b1 | | Action Push_String_Extended,0x14b1 ; " Elab Frame Name:"
11ce e405 | | Load 0x2,0x5
11cf e004 | | Load 0x0,0x4
11d0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
11d1 00e0 | | Load_Encached Standard_Cache
11d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11d3 01cc | | Execute Vector,Catenate
11d4 01cb | | Execute Vector,Append
11d5 8227 | ' | Call 0x1,0x27
11d6 0092 14b2 | | Action Push_String_Extended,0x14b2 ; " Library Units: \x0a"
11d8 8227 | ' | Call 0x1,0x27
11d9 e5ff | | Load 0x2,-0x1
11da 0227 | ' | Execute Access,All_Reference
11db 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
11dc a402 | | Store_Unchecked 0x2,0x2
11dd e402 | | Load 0x2,0x2
11de e013 | | Load 0x0,0x13
11df 1b10 | | Execute Package,Field_Read,Field_Number 0x10
11e0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
11e1 7008 |p | Jump_Nonzero 0x11ea
11e2 e402 | | Load 0x2,0x2
11e3 e021 | ! | Load 0x0,0x21
11e4 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
11e5 00eb | | Load_Encached Diana_Cache
11e6 18ec | | Execute Package,Field_Execute,Field_Number 0xec
11e7 00eb | | Load_Encached Diana_Cache
11e8 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
11e9 a402 | | Store_Unchecked 0x2,0x2
11ea e402 | | Load 0x2,0x2
11eb e013 | | Load 0x0,0x13
11ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10
11ed 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
11ee c403 | | Store 0x2,0x3
11ef e403 | | Load 0x2,0x3
11f0 e04d | M | Load 0x0,0x4d
11f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
11f2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
11f3 00cf | | Action Mark_Auxiliary
11f4 00db | | Load_Top At_Offset_3
11f5 4801 |H | Short_Literal 0x1
11f6 0263 | c | Execute Discrete,Above_Bound
11f7 700b |p | Jump_Nonzero 0x1203
11f8 00db | | Load_Top At_Offset_3
11f9 e407 | | Load 0x2,0x7
11fa e5ff | | Load 0x2,-0x1
11fb 00db | | Load_Top At_Offset_3
11fc e403 | | Load 0x2,0x3
11fd e5ff | | Load 0x2,-0x1
11fe 0227 | ' | Execute Access,All_Reference
11ff 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1200 8277 | w | Call 0x1,0x77
1201 00c8 | | Action Pop_Auxiliary_Range
1202 3ff5 |? | Loop_Increasing 0x11f8
1203 00ce | | Action Pop_Auxiliary
1204 8228 | ( | Call 0x1,0x28
1205 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1206 0000 0000 | | .XXX[0x2]
1208 ; --------------------------------------------------------------------------------------
1208 ; SUBPROGRAM
1208 ; --------------------------------------------------------------------------------------
1208 1212 | | .CONST 0x1212 ; Address of begin
1209 0004 | | .CONST 0x0004 ; Address of exception handler
120a 0004 | | .CONST 0x0004 ; Number of locals
120b INIT_1208:
120b e223 | # | Load 0x1,0x23
120c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
120d 0322 | " | Declare_Variable Record
120e e21f | | Load 0x1,0x1f
120f 0007 | | Action Break_Optional
1210 00e1 | | Load_Encached Boolean_Cache
1211 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1212 BODY_1208:
1212 00da | | Load_Top At_Offset_2
1213 e5ff | | Load 0x2,-0x1
1214 0227 | ' | Execute Access,All_Reference
1215 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1216 e223 | # | Load 0x1,0x23
1217 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1218 00d1 | | Pop_Control Pop_Count_1
1219 00cf | | Action Mark_Auxiliary
121a 781e |x | Jump 0x1239
121b 00db | | Load_Top At_Offset_3
121c e223 | # | Load 0x1,0x23
121d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
121e e5ff | | Load 0x2,-0x1
121f 0227 | ' | Execute Access,All_Reference
1220 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1221 e223 | # | Load 0x1,0x23
1222 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1223 003b | ; | Store_Top Access,At_Offset_3
1224 00da | | Load_Top At_Offset_2
1225 0227 | ' | Execute Access,All_Reference
1226 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1227 0f02 | | Execute_Immediate Equal,0x2
1228 680b |h | Jump_Zero 0x1234
1229 00d9 | | Load_Top At_Offset_1
122a 7005 |p | Jump_Nonzero 0x1230
122b 0092 14b3 | | Action Push_String_Extended,0x14b3 ; "Libraries in use by this program:\x0a"
122d 8227 | ' | Call 0x1,0x27
122e 4801 |H | Short_Literal 0x1
122f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
1230 e5ff | | Load 0x2,-0x1
1231 00db | | Load_Top At_Offset_3
1232 8278 | x | Call 0x1,0x78
1233 c5ff | | Store 0x2,-0x1
1234 00db | | Load_Top At_Offset_3
1235 e223 | # | Load 0x1,0x23
1236 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1237 00d1 | | Pop_Control Pop_Count_1
1238 00c9 | | Action Pop_Auxiliary_Loop
1239 00db | | Load_Top At_Offset_3
123a e223 | # | Load 0x1,0x23
123b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
123c 6fde |o | Jump_Zero 0x121b
123d 00ce | | Action Pop_Auxiliary
123e 00d8 | | Load_Top At_Offset_0
123f 7003 |p | Jump_Nonzero 0x1243
1240 0092 14b4 | | Action Push_String_Extended,0x14b4 ; "No libraries are currently registered.\x0a"
1242 8227 | ' | Call 0x1,0x27
1243 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1244 0000 0000 | | .BLANK 0000[0x4]
1248 ; --------------------------------------------------------------------------------------
1248 ; SUBPROGRAM
1248 ; --------------------------------------------------------------------------------------
1248 124b | K | .CONST 0x124b ; Address of begin
1249 0004 | | .CONST 0x0004 ; Address of exception handler
124a 0001 | | .CONST 0x0001 ; Number of locals
124b BODY_1248:
124b INIT_1248:
124b 4800 |H | Short_Literal 0x0
124c a5fe | | Store_Unchecked 0x2,-0x2
124d 4800 |H | Short_Literal 0x0
124e a5fc | | Store_Unchecked 0x2,-0x4
124f 00eb | | Load_Encached Diana_Cache
1250 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1251 0033 | 3 | Store_Top Heap_Access,At_Offset_3
1252 e21d | | Load 0x1,0x1d
1253 a5fd | | Store_Unchecked 0x2,-0x3
1254 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1255 0000 0000 | | .XXX[0x3]
1257 0000 | |
1258 ; --------------------------------------------------------------------------------------
1258 ; SUBPROGRAM
1258 ; --------------------------------------------------------------------------------------
1258 1260 | ` | .CONST 0x1260 ; Address of begin
1259 0004 | | .CONST 0x0004 ; Address of exception handler
125a 0002 | | .CONST 0x0002 ; Number of locals
125b INIT_1258:
125b 00da | | Load_Top At_Offset_2
125c e014 | | Load 0x0,0x14
125d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
125e 00e3 | | Load_Encached Natural_Cache
125f 03f1 | | Declare_Variable Discrete,With_Value
1260 BODY_1258:
1260 00cf | | Action Mark_Auxiliary
1261 4801 |H | Short_Literal 0x1
1262 00da | | Load_Top At_Offset_2
1263 0264 | d | Execute Discrete,Below_Bound
1264 7014 |p | Jump_Nonzero 0x1279
1265 00d8 | | Load_Top At_Offset_0
1266 e5ff | | Load 0x2,-0x1
1267 e014 | | Load 0x0,0x14
1268 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
1269 0f2e | . | Execute_Immediate Equal,0x2e
126a 680c |h | Jump_Zero 0x1277
126b 00db | | Load_Top At_Offset_3
126c 00d9 | | Load_Top At_Offset_1
126d 0a01 | | Execute_Immediate Plus,0x1
126e 00d8 | | Load_Top At_Offset_0
126f 00e4 | | Load_Encached Positive_Cache
1270 0260 | ` | Execute Discrete,In_Type
1271 7001 |p | Jump_Nonzero 0x1273
1272 0801 | | Execute_Immediate Raise,0x1
1273 e5ff | | Load 0x2,-0x1
1274 e014 | | Load 0x0,0x14
1275 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
1276 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1277 00c8 | | Action Pop_Auxiliary_Range
1278 37ec |7 | Loop_Decreasing 0x1265
1279 00ce | | Action Pop_Auxiliary
127a 00db | | Load_Top At_Offset_3
127b e014 | | Load 0x0,0x14
127c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
127d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
127e 0000 0000 | | .XXX[0x2]
1280 ; --------------------------------------------------------------------------------------
1280 ; SUBPROGRAM
1280 ; --------------------------------------------------------------------------------------
1280 1289 | | .CONST 0x1289 ; Address of begin
1281 0004 | | .CONST 0x0004 ; Address of exception handler
1282 0004 | | .CONST 0x0004 ; Number of locals
1283 INIT_1280:
1283 e024 | $ | Load 0x0,0x24
1284 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1285 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1286 e04f | O | Load 0x0,0x4f
1287 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1288 00ec | | Load_Encached Diana_Tree_Cache
1289 BODY_1280:
1289 e050 | P | Load 0x0,0x50
128a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
128b e024 | $ | Load 0x0,0x24
128c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
128d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
128e e024 | $ | Load 0x0,0x24
128f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1290 6027 |`' | Indirect_Literal Discrete,0x12b8,{0x00000000, 0x00004000}
1291 e025 | % | Load 0x0,0x25
1292 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1293 e403 | | Load 0x2,0x3
1294 e024 | $ | Load 0x0,0x24
1295 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1296 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1297 e5ff | | Load 0x2,-0x1
1298 e014 | | Load 0x0,0x14
1299 1813 | | Execute Package,Field_Execute,Field_Number 0x13
129a e024 | $ | Load 0x0,0x24
129b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
129c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
129d 0032 | 2 | Store_Top Heap_Access,At_Offset_2
129e 005b | [ | Store_Top Discrete,At_Offset_3
129f 00da | | Load_Top At_Offset_2
12a0 6803 |h | Jump_Zero 0x12a4
12a1 00eb | | Load_Encached Diana_Cache
12a2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
12a3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
12a4 00d8 | | Load_Top At_Offset_0
12a5 a5fe | | Store_Unchecked 0x2,-0x2
12a6 00d8 | | Load_Top At_Offset_0
12a7 00eb | | Load_Encached Diana_Cache
12a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12a9 6809 |h | Jump_Zero 0x12b3
12aa e5fd | | Load 0x2,-0x3
12ab 00ea | | Load_Encached Null_String_Cache
12ac e5ff | | Load 0x2,-0x1
12ad 827c | | | Call 0x1,0x7c
12ae e224 | $ | Load 0x1,0x24
12af e012 | | Load 0x0,0x12
12b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
12b1 c5fd | | Store 0x2,-0x3
12b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
12b3 e5fd | | Load 0x2,-0x3
12b4 e012 | | Load 0x0,0x12
12b5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
12b6 c5fd | | Store 0x2,-0x3
12b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
12b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
12bc 0000 0000 | | .BLANK 0000[0x4]
12c0 ; --------------------------------------------------------------------------------------
12c0 ; SUBPROGRAM
12c0 ; --------------------------------------------------------------------------------------
12c0 12f0 | | .CONST 0x12f0 ; Address of begin
12c1 0004 | | .CONST 0x0004 ; Address of exception handler
12c2 000d | | .CONST 0x000d ; Number of locals
12c3 INIT_12c0:
12c3 e5fd | | Load 0x2,-0x3
12c4 e014 | | Load 0x0,0x14
12c5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
12c6 00e3 | | Load_Encached Natural_Cache
12c7 03f1 | | Declare_Variable Discrete,With_Value
12c8 00d8 | | Load_Top At_Offset_0
12c9 0a01 | | Execute_Immediate Plus,0x1
12ca e5ff | | Load 0x2,-0x1
12cb e014 | | Load 0x0,0x14
12cc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
12cd 0273 | s | Execute Discrete,Plus
12ce 00e3 | | Load_Encached Natural_Cache
12cf 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
12d0 00d8 | | Load_Top At_Offset_0
12d1 e014 | | Load 0x0,0x14
12d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12d3 1c08 | | Execute_Immediate Run_Utility,0x8
12d4 00d8 | | Load_Top At_Offset_0
12d5 1c00 | | Execute_Immediate Run_Utility,0x0
12d6 00da | | Load_Top At_Offset_2
12d7 e014 | | Load 0x0,0x14
12d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12d9 1c08 | | Execute_Immediate Run_Utility,0x8
12da 00d8 | | Load_Top At_Offset_0
12db 1c00 | | Execute_Immediate Run_Utility,0x0
12dc 00da | | Load_Top At_Offset_2
12dd e014 | | Load 0x0,0x14
12de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12df 1c08 | | Execute_Immediate Run_Utility,0x8
12e0 00d8 | | Load_Top At_Offset_0
12e1 1c00 | | Execute_Immediate Run_Utility,0x0
12e2 00eb | | Load_Encached Diana_Cache
12e3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
12e4 00eb | | Load_Encached Diana_Cache
12e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
12e6 e012 | | Load 0x0,0x12
12e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12e8 02c7 | | Declare_Variable Any
12e9 00d8 | | Load_Top At_Offset_0
12ea 1c00 | | Execute_Immediate Run_Utility,0x0
12eb e003 | | Load 0x0,0x3
12ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12ed 00e3 | | Load_Encached Natural_Cache
12ee 00e1 | | Load_Encached Boolean_Cache
12ef 00ec | | Load_Encached Diana_Tree_Cache
12f0 BODY_12c0:
12f0 00e1 | | Load_Encached Boolean_Cache
12f1 e003 | | Load 0x0,0x3
12f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12f3 00e3 | | Load_Encached Natural_Cache
12f4 00ec | | Load_Encached Diana_Tree_Cache
12f5 827b | { | Call 0x1,0x7b
12f6 c5f9 | | Store 0x2,-0x7
12f7 c5f8 | | Store 0x2,-0x8
12f8 c5f7 | | Store 0x2,-0x9
12f9 c5f6 | | Store 0x2,-0xa
12fa 4800 |H | Short_Literal 0x0
12fb a5fa | | Store_Unchecked 0x2,-0x6
12fc e404 | | Load 0x2,0x4
12fd e5ff | | Load 0x2,-0x1
12fe e014 | | Load 0x0,0x14
12ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1300 e014 | | Load 0x0,0x14
1301 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1302 00d1 | | Pop_Control Pop_Count_1
1303 00cf | | Action Mark_Auxiliary
1304 e406 | | Load 0x2,0x6
1305 e404 | | Load 0x2,0x4
1306 e016 | | Load 0x0,0x16
1307 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1308 e014 | | Load 0x0,0x14
1309 1810 | | Execute Package,Field_Execute,Field_Number 0x10
130a 00d1 | | Pop_Control Pop_Count_1
130b e5fc | | Load 0x2,-0x4
130c e404 | | Load 0x2,0x4
130d e016 | | Load 0x0,0x16
130e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
130f e014 | | Load 0x0,0x14
1310 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1311 00d1 | | Pop_Control Pop_Count_1
1312 e5f5 | | Load 0x2,-0xb
1313 00ec | | Load_Encached Diana_Tree_Cache
1314 e406 | | Load 0x2,0x6
1315 827d | } | Call 0x1,0x7d
1316 c407 | | Store 0x2,0x7
1317 c5f5 | | Store 0x2,-0xb
1318 4802 |H | Short_Literal 0x2
1319 e5f5 | | Load 0x2,-0xb
131a e012 | | Load 0x0,0x12
131b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
131c 6801 |h | Jump_Zero 0x131e
131d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
131e e407 | | Load 0x2,0x7
131f e003 | | Load 0x0,0x3
1320 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1321 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
1322 00da | | Load_Top At_Offset_2
1323 701b |p | Jump_Nonzero 0x133f
1324 e5fd | | Load 0x2,-0x3
1325 e014 | | Load 0x0,0x14
1326 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
1327 6817 |h | Jump_Zero 0x133f
1328 e5f5 | | Load 0x2,-0xb
1329 00e3 | | Load_Encached Natural_Cache
132a e405 | | Load 0x2,0x5
132b e5fd | | Load 0x2,-0x3
132c 4800 |H | Short_Literal 0x0
132d e402 | | Load 0x2,0x2
132e e016 | | Load 0x0,0x16
132f 180d | | Execute Package,Field_Execute,Field_Number 0xd
1330 00d2 | | Pop_Control Pop_Count_2
1331 c5fa | | Store 0x2,-0x6
1332 c5f5 | | Store 0x2,-0xb
1333 e404 | | Load 0x2,0x4
1334 482e |H. | Short_Literal 0x2e
1335 e014 | | Load 0x0,0x14
1336 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1337 00d1 | | Pop_Control Pop_Count_1
1338 e404 | | Load 0x2,0x4
1339 e405 | | Load 0x2,0x5
133a e014 | | Load 0x0,0x14
133b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
133c 00d1 | | Pop_Control Pop_Count_1
133d 00c9 | | Action Pop_Auxiliary_Loop
133e 7fc5 | | Jump 0x1304
133f 00ce | | Action Pop_Auxiliary
1340 e407 | | Load 0x2,0x7
1341 822b | + | Call 0x1,0x2b
1342 0031 | 1 | Store_Top Heap_Access,At_Offset_1
1343 00d8 | | Load_Top At_Offset_0
1344 a5f9 | | Store_Unchecked 0x2,-0x7
1345 e5f5 | | Load 0x2,-0xb
1346 e012 | | Load 0x0,0x12
1347 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1348 c5f5 | | Store 0x2,-0xb
1349 00d9 | | Load_Top At_Offset_1
134a 681a |h | Jump_Zero 0x1365
134b e409 | | Load 0x2,0x9
134c 00e1 | | Load_Encached Boolean_Cache
134d 00ec | | Load_Encached Diana_Tree_Cache
134e e003 | | Load 0x0,0x3
134f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1350 00e3 | | Load_Encached Natural_Cache
1351 e5fb | | Load 0x2,-0x5
1352 e5fe | | Load 0x2,-0x2
1353 e5fc | | Load 0x2,-0x4
1354 e014 | | Load 0x0,0x14
1355 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1356 e40d | | Load 0x2,0xd
1357 822c | , | Call 0x1,0x2c
1358 e40d | | Load 0x2,0xd
1359 480a |H | Short_Literal 0xa
135a e27a | z | Load 0x1,0x7a
135b 170f | | Execute Task,Entry_Call,Field_Number 0xf
135c c5fb | | Store 0x2,-0x5
135d c5f8 | | Store 0x2,-0x8
135e c40a | | Store 0x2,0xa
135f c408 | | Store 0x2,0x8
1360 c5f6 | | Store 0x2,-0xa
1361 c409 | | Store 0x2,0x9
1362 4800 |H | Short_Literal 0x0
1363 a5f7 | | Store_Unchecked 0x2,-0x9
1364 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1365 4800 |H | Short_Literal 0x0
1366 a5f8 | | Store_Unchecked 0x2,-0x8
1367 4802 |H | Short_Literal 0x2
1368 a5f7 | | Store_Unchecked 0x2,-0x9
1369 4503 |E | Exit_Suprogram New_Top_Offset 0x3
136a 0000 0000 | | .BLANK 0000[0x6]
1370 ; --------------------------------------------------------------------------------------
1370 ; SUBPROGRAM
1370 ; --------------------------------------------------------------------------------------
1370 1373 | s | .CONST 0x1373 ; Address of begin
1371 137b | { | .CONST 0x137b ; Address of exception handler
1372 0001 | | .CONST 0x0001 ; Number of locals
1373 BODY_1370:
1373 INIT_1370:
1373 e5ff | | Load 0x2,-0x1
1374 e5fd | | Load 0x2,-0x3
1375 e5fc | | Load 0x2,-0x4
1376 e013 | | Load 0x0,0x13
1377 1b11 | | Execute Package,Field_Read,Field_Number 0x11
1378 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1379 a402 | | Store_Unchecked 0x2,0x2
137a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
137b TRAP_1370:
137b e013 | | Load 0x0,0x13
137c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
137d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
137e 010f | | Execute Exception,Equal
137f 7005 |p | Jump_Nonzero 0x1385
1380 e013 | | Load 0x0,0x13
1381 1b11 | | Execute Package,Field_Read,Field_Number 0x11
1382 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1383 010f | | Execute Exception,Equal
1384 6804 |h | Jump_Zero 0x1389
1385 00eb | | Load_Encached Diana_Cache
1386 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1387 a402 | | Store_Unchecked 0x2,0x2
1388 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1389 480a |H | Short_Literal 0xa
138a 0092 1480 | | Action Push_String_Extended,0x1480 ; "Register: "
138c e011 | | Load 0x0,0x11
138d 180d | | Execute Package,Field_Execute,Field_Number 0xd
138e 01cc | | Execute Vector,Catenate
138f 0092 14b5 | | Action Push_String_Extended,0x14b5 ; " raised locating source for unit."
1391 01cc | | Execute Vector,Catenate
1392 01cb | | Execute Vector,Append
1393 8219 | | Call 0x1,0x19
1394 00d8 | | Load_Top At_Offset_0
1395 0101 | | Execute Exception,Reraise
1396 0000 0000 | | .XXX[0x2]
1398 ; --------------------------------------------------------------------------------------
1398 ; SUBPROGRAM
1398 ; --------------------------------------------------------------------------------------
1398 13ab | | .CONST 0x13ab ; Address of begin
1399 0004 | | .CONST 0x0004 ; Address of exception handler
139a 0013 | | .CONST 0x0013 ; Number of locals
139b INIT_1398:
139b 4805 |H | Short_Literal 0x5
139c 02cb | | Declare_Variable Entry
139d 4804 |H | Short_Literal 0x4
139e 02cb | | Declare_Variable Entry
139f 480a |H | Short_Literal 0xa
13a0 02cb | | Declare_Variable Entry
13a1 4806 |H | Short_Literal 0x6
13a2 02cb | | Declare_Variable Entry
13a3 4801 |H | Short_Literal 0x1
13a4 02cb | | Declare_Variable Entry
13a5 4801 |H | Short_Literal 0x1
13a6 02cb | | Declare_Variable Entry
13a7 00bf | | Action Accept_Activation
13a8 029f 13bb | | Declare_Subprogram INIT_13b8,For_Call
13aa 00bc | | Action Signal_Activated
13ab BODY_1398:
13ab 0092 14b6 | | Action Push_String_Extended,0x14b6 ; "Library_Database"
13ad e001 | | Load 0x0,0x1
13ae 180f | | Execute Package,Field_Execute,Field_Number 0xf
13af 00cf | | Action Mark_Auxiliary
13b0 8213 | | Call 0x1,0x13
13b1 00c9 | | Action Pop_Auxiliary_Loop
13b2 7ffd | | Jump 0x13b0
13b3 0000 0000 | | .BLANK 0000[0x5]
13b8 ; --------------------------------------------------------------------------------------
13b8 ; SUBPROGRAM
13b8 ; --------------------------------------------------------------------------------------
13b8 13cc | | .CONST 0x13cc ; Address of begin
13b9 13cf | | .CONST 0x13cf ; Address of exception handler
13ba 0002 | | .CONST 0x0002 ; Number of locals
13bb INIT_13b8:
13bb 4812 4a7b |H J{| Declare_Variable Select 0x000, 0x006,
13bd 4811 4a7c |H J|| [0x000]: 0x001 = 0x0008,
13bf 4810 4a80 |H J | [0x00d]: 0x286 = 0x1430,
13c1 480f 4a81 |H J | [0x00e]: 0x284 = 0x1420,
13c3 480e 4a84 |H J | [0x00f]: 0x281 = 0x1408,
13c5 480d 4a86 |H J | [0x010]: 0x280 = 0x1400,
13c7 4800 4801 |H H | [0x011]: 0x27c = 0x13e0,
13c9 4800 4806 |H H | [0x012]: 0x27b = 0x13d8
13cb 02cf | |
13cc BODY_13b8:
13cc 00d8 | | Load_Top At_Offset_0
13cd 013f | ? | Execute Select,Rendezvous
13ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
13cf TRAP_13b8:
13cf 0007 | | Action Break_Optional
13d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
13d1 0000 0000 | | .BLANK 0000[0x7]
13d8 ; --------------------------------------------------------------------------------------
13d8 ; SUBPROGRAM
13d8 ; See instruction 0x02cf at 0x13bb, index=0x12
13d8 ; --------------------------------------------------------------------------------------
13d8 13db | | .CONST 0x13db ; Address of begin
13d9 0004 | | .CONST 0x0004 ; Address of exception handler
13da 0001 | | .CONST 0x0001 ; Number of locals
13db BODY_13d8:
13db INIT_13d8:
13db 00db | | Load_Top At_Offset_3
13dc 8002 | | Call 0x0,0x2
13dd c7fe | | Store 0x3,-0x2
13de 4101 |A | End_Rendezvous 0x1
13df 0000 | | .XXX[0x1]
13e0 ; --------------------------------------------------------------------------------------
13e0 ; SUBPROGRAM
13e0 ; See instruction 0x02cf at 0x13bb, index=0x11
13e0 ; --------------------------------------------------------------------------------------
13e0 13e3 | | .CONST 0x13e3 ; Address of begin
13e1 0004 | | .CONST 0x0004 ; Address of exception handler
13e2 0001 | | .CONST 0x0001 ; Number of locals
13e3 BODY_13e0:
13e3 INIT_13e0:
13e3 00db | | Load_Top At_Offset_3
13e4 7003 |p | Jump_Nonzero 0x13e8
13e5 e003 | | Load 0x0,0x3
13e6 03bc | | Declare_Variable Access,By_Allocation
13e7 a7fe | | Store_Unchecked 0x3,-0x2
13e8 4801 |H | Short_Literal 0x1
13e9 e7fe | | Load 0x3,-0x2
13ea 0227 | ' | Execute Access,All_Reference
13eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
13ec 00db | | Load_Top At_Offset_3
13ed 0229 | ) | Execute Access,All_Read
13ee e004 | | Load 0x0,0x4
13ef 1b12 | | Execute Package,Field_Read,Field_Number 0x12
13f0 e004 | | Load 0x0,0x4
13f1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
13f2 00d9 | | Load_Top At_Offset_1
13f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
13f4 00d1 | | Pop_Control Pop_Count_1
13f5 00db | | Load_Top At_Offset_3
13f6 0229 | ) | Execute Access,All_Read
13f7 e005 | | Load 0x0,0x5
13f8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
13f9 4865 |He | Short_Literal 0x65
13fa e005 | | Load 0x0,0x5
13fb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
13fc 00d9 | | Load_Top At_Offset_1
13fd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
13fe 4101 |A | End_Rendezvous 0x1
13ff 0000 | | .XXX[0x1]
1400 ; --------------------------------------------------------------------------------------
1400 ; SUBPROGRAM
1400 ; See instruction 0x02cf at 0x13bb, index=0x10
1400 ; --------------------------------------------------------------------------------------
1400 1403 | | .CONST 0x1403 ; Address of begin
1401 0004 | | .CONST 0x0004 ; Address of exception handler
1402 0001 | | .CONST 0x0001 ; Number of locals
1403 BODY_1400:
1403 INIT_1400:
1403 029f 1443 | C| Declare_Subprogram INIT_1440,For_Call
1405 8602 | | Call 0x3,0x2
1406 4105 |A | End_Rendezvous 0x5
1407 0000 | | .XXX[0x1]
1408 ; --------------------------------------------------------------------------------------
1408 ; SUBPROGRAM
1408 ; See instruction 0x02cf at 0x13bb, index=0xf
1408 ; --------------------------------------------------------------------------------------
1408 140b | | .CONST 0x140b ; Address of begin
1409 0004 | | .CONST 0x0004 ; Address of exception handler
140a 0001 | | .CONST 0x0001 ; Number of locals
140b BODY_1408:
140b INIT_1408:
140b e7f5 | | Load 0x3,-0xb
140c 00ec | | Load_Encached Diana_Tree_Cache
140d 00e1 | | Load_Encached Boolean_Cache
140e e006 | | Load 0x0,0x6
140f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1410 00e3 | | Load_Encached Natural_Cache
1411 e7fa | | Load 0x3,-0x6
1412 e7fb | | Load 0x3,-0x5
1413 e7fc | | Load 0x3,-0x4
1414 e7fd | | Load 0x3,-0x3
1415 e7fe | | Load 0x3,-0x2
1416 8007 | | Call 0x0,0x7
1417 c7fa | | Store 0x3,-0x6
1418 c7f9 | | Store 0x3,-0x7
1419 c7f8 | | Store 0x3,-0x8
141a c7f6 | | Store 0x3,-0xa
141b c7f7 | | Store 0x3,-0x9
141c c7f5 | | Store 0x3,-0xb
141d 4106 |A | End_Rendezvous 0x6
141e 0000 0000 | | .XXX[0x2]
1420 ; --------------------------------------------------------------------------------------
1420 ; SUBPROGRAM
1420 ; See instruction 0x02cf at 0x13bb, index=0xe
1420 ; --------------------------------------------------------------------------------------
1420 1423 | # | .CONST 0x1423 ; Address of begin
1421 0004 | | .CONST 0x0004 ; Address of exception handler
1422 0001 | | .CONST 0x0001 ; Number of locals
1423 BODY_1420:
1423 INIT_1420:
1423 e7fb | | Load 0x3,-0x5
1424 e7fc | | Load 0x3,-0x4
1425 e7fd | | Load 0x3,-0x3
1426 e7fe | | Load 0x3,-0x2
1427 8008 | | Call 0x0,0x8
1428 c7fb | | Store 0x3,-0x5
1429 4101 |A | End_Rendezvous 0x1
142a 0000 0000 | | .BLANK 0000[0x6]
1430 ; --------------------------------------------------------------------------------------
1430 ; SUBPROGRAM
1430 ; See instruction 0x02cf at 0x13bb, index=0xd
1430 ; --------------------------------------------------------------------------------------
1430 1433 | 3 | .CONST 0x1433 ; Address of begin
1431 0004 | | .CONST 0x0004 ; Address of exception handler
1432 0001 | | .CONST 0x0001 ; Number of locals
1433 BODY_1430:
1433 INIT_1430:
1433 e7fa | | Load 0x3,-0x6
1434 e7fb | | Load 0x3,-0x5
1435 e7fc | | Load 0x3,-0x4
1436 e7fd | | Load 0x3,-0x3
1437 e7fe | | Load 0x3,-0x2
1438 00eb | | Load_Encached Diana_Cache
1439 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
143a e7fe | | Load 0x3,-0x2
143b 8009 | | Call 0x0,0x9
143c c7fa | | Store 0x3,-0x6
143d 4101 |A | End_Rendezvous 0x1
143e 0000 0000 | | .XXX[0x2]
1440 ; --------------------------------------------------------------------------------------
1440 ; SUBPROGRAM
1440 ; --------------------------------------------------------------------------------------
1440 1446 | F | .CONST 0x1446 ; Address of begin
1441 0004 | | .CONST 0x0004 ; Address of exception handler
1442 0003 | | .CONST 0x0003 ; Number of locals
1443 INIT_1440:
1443 e00a | | Load 0x0,0xa
1444 0007 | | Action Break_Optional
1445 00e1 | | Load_Encached Boolean_Cache
1446 BODY_1440:
1446 00e1 | | Load_Encached Boolean_Cache
1447 00da | | Load_Top At_Offset_2
1448 e7fe | | Load 0x3,-0x2
1449 e7fd | | Load 0x3,-0x3
144a 0227 | ' | Execute Access,All_Reference
144b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
144c e005 | | Load 0x0,0x5
144d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
144e 003b | ; | Store_Top Access,At_Offset_3
144f 0059 | Y | Store_Top Discrete,At_Offset_1
1450 00d8 | | Load_Top At_Offset_0
1451 681f |h | Jump_Zero 0x1471
1452 00d9 | | Load_Top At_Offset_1
1453 0227 | ' | Execute Access,All_Reference
1454 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
1455 a7fa | | Store_Unchecked 0x3,-0x6
1456 00d9 | | Load_Top At_Offset_1
1457 0227 | ' | Execute Access,All_Reference
1458 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
1459 c7fc | | Store 0x3,-0x4
145a 00d9 | | Load_Top At_Offset_1
145b 0227 | ' | Execute Access,All_Reference
145c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
145d c7fb | | Store 0x3,-0x5
145e 00d9 | | Load_Top At_Offset_1
145f 0227 | ' | Execute Access,All_Reference
1460 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
1461 e00b | | Load 0x0,0xb
1462 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
1463 012f | / | Execute Any,Equal
1464 6807 |h | Jump_Zero 0x146c
1465 e7f9 | | Load 0x3,-0x7
1466 0092 14b7 | | Action Push_String_Extended,0x14b7 ; "Library unit not elaborated"
1468 e00c | | Load 0x0,0xc
1469 1815 | | Execute Package,Field_Execute,Field_Number 0x15
146a c7f9 | | Store 0x3,-0x7
146b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
146c e7f9 | | Load 0x3,-0x7
146d e00c | | Load 0x0,0xc
146e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
146f c7f9 | | Store 0x3,-0x7
1470 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1471 0092 14b8 | | Action Push_String_Extended,0x14b8 ; "Could not locate Index in database"
1473 e00c | | Load 0x0,0xc
1474 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1475 c7f9 | | Store 0x3,-0x7
1476 4800 |H | Short_Literal 0x0
1477 a7fa | | Store_Unchecked 0x3,-0x6
1478 e00d | | Load 0x0,0xd
1479 c7fc | | Store 0x3,-0x4
147a 4800 |H | Short_Literal 0x0
147b a7fb | | Store_Unchecked 0x3,-0x5
147c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
147d ; --------------------------------------------------------------------------------------
147d ; STRING TABLE
147d ; --------------------------------------------------------------------------------------
147d 007a | z | .STRTAB 0x007a->0x14ba ; "Name not found"
147e 0086 | | .STRTAB 0x0086->0x14c1 ; "Invalid qualifier (none required)"
147f 00a5 | | .STRTAB 0x00a5->0x14d1 ; "Warning: Elaborating units that have been archived, deleted or re-coded;\x0a Debugging information will not be available for such units.\x0a"
1480 0133 | 3 | .STRTAB 0x0133->0x1519 ; "Register: "
1481 013b | ; | .STRTAB 0x013b->0x151e ; "Debug_Debugger"
1482 0147 | G | .STRTAB 0x0147->0x1525 ; "Assert fail: "
1483 0152 | R | .STRTAB 0x0152->0x152c ; "Sm_Back_Link returned unexpected kind of node"
1484 017d | } | .STRTAB 0x017d->0x1542 ; "<NULL>"
1485 0181 | | .STRTAB 0x0181->0x1545 ; "procedure "
1486 0189 | | .STRTAB 0x0189->0x154a ; "function "
1487 0190 | | .STRTAB 0x0190->0x154f ; "package "
1488 0196 | | .STRTAB 0x0196->0x1553 ; "generic "
1489 019c | | .STRTAB 0x019c->0x1557 ; "Warning: Incompatible subsystem versions detected in command"
148a 01d6 | | .STRTAB 0x01d6->0x1575 ; " Spec: "
148b 01de | | .STRTAB 0x01de->0x157a ; ", Units: "
148c 01e5 | | .STRTAB 0x01e5->0x157e ; ", "
148d 01e5 | | .STRTAB 0x01e5->0x157f ; ", Unit: "
148e 01eb | | .STRTAB 0x01eb->0x1583 ; "Same_Object: Library_Node of type "
148f 020b | | .STRTAB 0x020b->0x1594 ; "Invalid qualifier (none required): "
1490 022c | , | .STRTAB 0x022c->0x15a6 ; "Delete_Low_Priority_Overloads deleted everything"
1491 025a | Z | .STRTAB 0x025a->0x15be ; "; Library Name "
1492 0267 | g | .STRTAB 0x0267->0x15c5 ; "Index N("
1493 026d | m | .STRTAB 0x026d->0x15c9 ; "): "
1494 026f | o | .STRTAB 0x026f->0x15cb ; "Main Unit "
1495 0277 | w | .STRTAB 0x0277->0x15d0 ; "There are several library units named "
1496 029b | | .STRTAB 0x029b->0x15e3 ; "The qualifier specified did not resolve this overload.\x0a"
1497 02d0 | | .STRTAB 0x02d0->0x15ff ; "When you ask for it again, please choose one by appending to "
1498 030b | | .STRTAB 0x030b->0x161d ; "a single quote followed by an index, as follows:"
1499 0339 | 9 | .STRTAB 0x0339->0x1635 ; "Init_Subsystem_Lookthrough: "
149a 0353 | S | .STRTAB 0x0353->0x1643 ; "Warning: Program includes archived main unit "
149b 037e | ~ | .STRTAB 0x037e->0x165a ; ". "
149c 037f | | .STRTAB 0x037f->0x165b ; "Debugging will be limited."
149d 0397 | | .STRTAB 0x0397->0x1668 ; "Register_Unit: Empty units_in_program list"
149e 03bf | | .STRTAB 0x03bf->0x167d ; "Register_Unit: Main_Unit not a procedure or function"
149f 03f1 | | .STRTAB 0x03f1->0x1697 ; "Register_Unit: "
14a0 03fe | | .STRTAB 0x03fe->0x169f ; "Register_Used_Unit: Unit_Offset is 0"
14a1 0420 | | .STRTAB 0x0420->0x16b1 ; "Register_Used_Unit: unknown node: "
14a2 0440 | @ | .STRTAB 0x0440->0x16c2 ; "Register_Used_Unit: "
14a3 0452 | R | .STRTAB 0x0452->0x16cc ; "UnRegister_Unit: unknown node: "
14a4 046f | o | .STRTAB 0x046f->0x16db ; "unRegister_Unit: "
14a5 047e | ~ | .STRTAB 0x047e->0x16e4 ; "UnRegister_Unit: Empty Unit_List list"
14a6 04a1 | | .STRTAB 0x04a1->0x16f6 ; "Unregister_Unit: "
14a7 04b0 | | .STRTAB 0x04b0->0x16ff ; "empty overload chain"
14a8 04c2 | | .STRTAB 0x04c2->0x1709 ; " "
14a9 04c8 | | .STRTAB 0x04c8->0x170d ; " Library Units used by "
14aa 04e2 | | .STRTAB 0x04e2->0x171b ; " "
14ab 04e2 | | .STRTAB 0x04e2->0x171c ; " "
14ac 04e4 | | .STRTAB 0x04e4->0x171e ; " (archived)"
14ad 04ed | | .STRTAB 0x04ed->0x1723 ; " Elab Segment Offset: "
14ae 0501 | | .STRTAB 0x0501->0x172e ; " Library: "
14af 050a | | .STRTAB 0x050a->0x1734 ; " Main Unit: "
14b0 0515 | | .STRTAB 0x0515->0x173a ; " Elab Segment:"
14b1 0522 | " | .STRTAB 0x0522->0x1742 ; " Elab Frame Name:"
14b2 0532 | 2 | .STRTAB 0x0532->0x174b ; " Library Units: \x0a"
14b3 0542 | B | .STRTAB 0x0542->0x1754 ; "Libraries in use by this program:\x0a"
14b4 0562 | b | .STRTAB 0x0562->0x1765 ; "No libraries are currently registered.\x0a"
14b5 0587 | | .STRTAB 0x0587->0x1778 ; " raised locating source for unit."
14b6 05a6 | | .STRTAB 0x05a6->0x1789 ; "Library_Database"
14b7 05b4 | | .STRTAB 0x05b4->0x1791 ; "Library unit not elaborated"
14b8 05cd | | .STRTAB 0x05cd->0x179e ; "Could not locate Index in database"
14b9 05ed | | .STREND 0x05ed->0x17af
14ba 4e61 6d65 |Name| .STRTAB_STRINGS
17b0 ; --------------------------------------------------------------------------------------
17b0 ; Debug Table
17b0 ; --------------------------------------------------------------------------------------
17b0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x164a,0x0000,0x0001,0x0000
17b6 0000 0000 | | .BLANK 0000[0x4a]