|
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_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 17d0 | | .CONST 0x17d0 ; 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 0x13db, 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 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0013 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0015 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0017 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
0019 029a 0303 | | Declare_Subprogram INIT_0300,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 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
002c 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call
002e 029d 0333 | 3| Declare_Subprogram INIT_0330,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 0343 | C| Declare_Subprogram INIT_0340,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 035b | [| Declare_Subprogram INIT_0358,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 149d | | Action Push_String_Extended,0x149d ; "Name not found"
00a5 0092 149e | | Action Push_String_Extended,0x149e ; "Invalid qualifier (none required)"
00a7 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
00a9 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
00ab 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
00ad 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
00af 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call
00b1 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call
00b3 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call
00b5 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
00b7 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
00b9 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call
00bb 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
00bd 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call
00bf 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call
00c1 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call
00c3 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call
00c5 029d 04cb | | Declare_Subprogram INIT_04c8,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 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call
00d7 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call
00d9 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
00db 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
00dd 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call
00df 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call
00e1 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call
00e3 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call
00e5 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
00e7 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call
00e9 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call
00eb 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call
00ed 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call
00ef 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
00f1 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call
00f3 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call
00f5 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call
00f7 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call
00f9 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call
00fb 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call
00fd 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call
00ff 029d 079b | | Declare_Subprogram INIT_0798,For_Outer_Call
0101 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call
0103 029d 081b | | Declare_Subprogram INIT_0818,For_Outer_Call
0105 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call
0107 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call
0109 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call
010b 029d 096b | k| Declare_Subprogram INIT_0968,For_Outer_Call
010d 029d 099b | | Declare_Subprogram INIT_0998,For_Outer_Call
010f 029d 09bb | | Declare_Subprogram INIT_09b8,For_Outer_Call
0111 029d 09db | | Declare_Subprogram INIT_09d8,For_Outer_Call
0113 029d 09eb | | Declare_Subprogram INIT_09e8,For_Outer_Call
0115 029d 09f3 | | Declare_Subprogram INIT_09f0,For_Outer_Call
0117 029d 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call
0119 029d 0a0b | | Declare_Subprogram INIT_0a08,For_Outer_Call
011b 029d 0a33 | 3| Declare_Subprogram INIT_0a30,For_Outer_Call
011d 029d 0a4b | K| Declare_Subprogram INIT_0a48,For_Outer_Call
011f 029d 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call
0121 029d 0a83 | | Declare_Subprogram INIT_0a80,For_Outer_Call
0123 029d 0aa3 | | Declare_Subprogram INIT_0aa0,For_Outer_Call
0125 029d 0ae3 | | Declare_Subprogram INIT_0ae0,For_Outer_Call
0127 029d 0b1b | | Declare_Subprogram INIT_0b18,For_Outer_Call
0129 029d 0b53 | S| Declare_Subprogram INIT_0b50,For_Outer_Call
012b 029d 0bb3 | | Declare_Subprogram INIT_0bb0,For_Outer_Call
012d 029d 0bdb | | Declare_Subprogram INIT_0bd8,For_Outer_Call
012f 029d 0c13 | | Declare_Subprogram INIT_0c10,For_Outer_Call
0131 029d 0c6b | k| Declare_Subprogram INIT_0c68,For_Outer_Call
0133 029d 0cb3 | | Declare_Subprogram INIT_0cb0,For_Outer_Call
0135 029d 0cdb | | Declare_Subprogram INIT_0cd8,For_Outer_Call
0137 029b 0d03 | | Declare_Subprogram INIT_0d00,For_Outer_Call,Unelaborated
0139 029d 0dbb | | Declare_Subprogram INIT_0db8,For_Outer_Call
013b 029d 0e1b | | Declare_Subprogram INIT_0e18,For_Outer_Call
013d 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
013e 00c7 | | Action Elaborate_Subprogram
013f 029d 0e93 | | Declare_Subprogram INIT_0e90,For_Outer_Call
0141 029d 0ef3 | | Declare_Subprogram INIT_0ef0,For_Outer_Call
0143 029d 0f43 | C| Declare_Subprogram INIT_0f40,For_Outer_Call
0145 029d 0f73 | s| Declare_Subprogram INIT_0f70,For_Outer_Call
0147 029d 1073 | s| Declare_Subprogram INIT_1070,For_Outer_Call
0149 029d 107b | {| Declare_Subprogram INIT_1078,For_Outer_Call
014b 029d 108b | | Declare_Subprogram INIT_1088,For_Outer_Call
014d 029d 109b | | Declare_Subprogram INIT_1098,For_Outer_Call
014f 029d 10d3 | | Declare_Subprogram INIT_10d0,For_Outer_Call
0151 029d 1153 | S| Declare_Subprogram INIT_1150,For_Outer_Call
0153 029d 11ab | | Declare_Subprogram INIT_11a8,For_Outer_Call
0155 029d 122b | +| Declare_Subprogram INIT_1228,For_Outer_Call
0157 4800 |H | Short_Literal 0x0
0158 0093 13bb | | push_full_address INIT_13b8
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 126b | k| Declare_Subprogram INIT_1268,For_Outer_Call
0171 029d 127b | {| Declare_Subprogram INIT_1278,For_Outer_Call
0173 029d 12a3 | | Declare_Subprogram INIT_12a0,For_Outer_Call
0175 029d 12e3 | | Declare_Subprogram INIT_12e0,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 1393 | | Declare_Subprogram INIT_1390,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 149f | | Action Push_String_Extended,0x149f ; "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 14a0 | | Action Push_String_Extended,0x14a0 ; "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 01e6 | | .CONST 0x01e6 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 00eb | | Load_Encached Diana_Cache
01e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e5 00e1 | | Load_Encached Boolean_Cache
01e6 BODY_01e0:
01e6 00e1 | | Load_Encached Boolean_Cache
01e7 e003 | | Load 0x0,0x3
01e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e9 00e3 | | Load_Encached Natural_Cache
01ea 00ec | | Load_Encached Diana_Tree_Cache
01eb 827b | { | Call 0x1,0x7b
01ec c5fb | | Store 0x2,-0x5
01ed c5fa | | Store 0x2,-0x6
01ee c5f9 | | Store 0x2,-0x7
01ef c5f8 | | Store 0x2,-0x8
01f0 e5f7 | | Load 0x2,-0x9
01f1 00e1 | | Load_Encached Boolean_Cache
01f2 00e1 | | Load_Encached Boolean_Cache
01f3 00ec | | Load_Encached Diana_Tree_Cache
01f4 e003 | | Load 0x0,0x3
01f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f6 00e3 | | Load_Encached Natural_Cache
01f7 e5fc | | Load 0x2,-0x4
01f8 e5fd | | Load 0x2,-0x3
01f9 e5fe | | Load 0x2,-0x2
01fa e5ff | | Load 0x2,-0x1
01fb 00eb | | Load_Encached Diana_Cache
01fc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01fd 480b |H | Short_Literal 0xb
01fe e27a | z | Load 0x1,0x7a
01ff 170f | | Execute Task,Entry_Call,Field_Number 0xf
0200 c5fc | | Store 0x2,-0x4
0201 c5fa | | Store 0x2,-0x6
0202 c5f9 | | Store 0x2,-0x7
0203 c402 | | Store 0x2,0x2
0204 c5f8 | | Store 0x2,-0x8
0205 005a | Z | Store_Top Discrete,At_Offset_2
0206 c5f7 | | Store 0x2,-0x9
0207 00d9 | | Load_Top At_Offset_1
0208 822b | + | Call 0x1,0x2b
0209 a5fb | | Store_Unchecked 0x2,-0x5
020a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
020b 0000 0000 | | .BLANK 0000[0x5]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0214 | | .CONST 0x0214 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 00ec | | Load_Encached Diana_Tree_Cache
0214 BODY_0210:
0214 e5f7 | | Load 0x2,-0x9
0215 00e1 | | Load_Encached Boolean_Cache
0216 00e1 | | Load_Encached Boolean_Cache
0217 00ec | | Load_Encached Diana_Tree_Cache
0218 e003 | | Load 0x0,0x3
0219 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021a 00e3 | | Load_Encached Natural_Cache
021b e5fc | | Load 0x2,-0x4
021c e5fd | | Load 0x2,-0x3
021d e5fe | | Load 0x2,-0x2
021e e5ff | | Load 0x2,-0x1
021f 822c | , | Call 0x1,0x2c
0220 e5ff | | Load 0x2,-0x1
0221 480b |H | Short_Literal 0xb
0222 e27a | z | Load 0x1,0x7a
0223 170f | | Execute Task,Entry_Call,Field_Number 0xf
0224 c5fc | | Store 0x2,-0x4
0225 c5fb | | Store 0x2,-0x5
0226 c5fa | | Store 0x2,-0x6
0227 c402 | | Store 0x2,0x2
0228 c5f9 | | Store 0x2,-0x7
0229 c5f8 | | Store 0x2,-0x8
022a c5f7 | | Store 0x2,-0x9
022b 4802 |H | Short_Literal 0x2
022c e5f7 | | Load 0x2,-0x9
022d e012 | | Load 0x0,0x12
022e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
022f 680c |h | Jump_Zero 0x23c
0230 e5f7 | | Load 0x2,-0x9
0231 e012 | | Load 0x0,0x12
0232 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0233 e224 | $ | Load 0x1,0x24
0234 01df | | Execute Vector,Equal
0235 6806 |h | Jump_Zero 0x23c
0236 4800 |H | Short_Literal 0x0
0237 a5fb | | Store_Unchecked 0x2,-0x5
0238 4802 |H | Short_Literal 0x2
0239 a5fa | | Store_Unchecked 0x2,-0x6
023a 4800 |H | Short_Literal 0x0
023b a5f9 | | Store_Unchecked 0x2,-0x7
023c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024e | N | .CONST 0x024e ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0003 | | .CONST 0x0003 ; Number of locals
0243 INIT_0240:
0243 00db | | Load_Top At_Offset_3
0244 e014 | | Load 0x0,0x14
0245 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0246 00e3 | | Load_Encached Natural_Cache
0247 03f1 | | Declare_Variable Discrete,With_Value
0248 00d8 | | Load_Top At_Offset_0
0249 e014 | | Load 0x0,0x14
024a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
024b 1c08 | | Execute_Immediate Run_Utility,0x8
024c 00d8 | | Load_Top At_Offset_0
024d 1c00 | | Execute_Immediate Run_Utility,0x0
024e BODY_0240:
024e 00e1 | | Load_Encached Boolean_Cache
024f e003 | | Load 0x0,0x3
0250 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0251 00e3 | | Load_Encached Natural_Cache
0252 00ec | | Load_Encached Diana_Tree_Cache
0253 827b | { | Call 0x1,0x7b
0254 c5fa | | Store 0x2,-0x6
0255 c5f9 | | Store 0x2,-0x7
0256 c5f8 | | Store 0x2,-0x8
0257 c5f7 | | Store 0x2,-0x9
0258 4800 |H | Short_Literal 0x0
0259 a5fb | | Store_Unchecked 0x2,-0x5
025a 4801 |H | Short_Literal 0x1
025b e5fe | | Load 0x2,-0x2
025c e014 | | Load 0x0,0x14
025d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
025e e015 | | Load 0x0,0x15
025f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0260 681d |h | Jump_Zero 0x27e
0261 00d8 | | Load_Top At_Offset_0
0262 e5fe | | Load 0x2,-0x2
0263 e016 | | Load 0x0,0x16
0264 180f | | Execute Package,Field_Execute,Field_Number 0xf
0265 00d2 | | Pop_Control Pop_Count_2
0266 4801 |H | Short_Literal 0x1
0267 a5fb | | Store_Unchecked 0x2,-0x5
0268 e5f6 | | Load 0x2,-0xa
0269 00e1 | | Load_Encached Boolean_Cache
026a e003 | | Load 0x0,0x3
026b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026c 00e3 | | Load_Encached Natural_Cache
026d 00ec | | Load_Encached Diana_Tree_Cache
026e 00e3 | | Load_Encached Natural_Cache
026f e5fd | | Load 0x2,-0x3
0270 e5fc | | Load 0x2,-0x4
0271 e5fe | | Load 0x2,-0x2
0272 e5ff | | Load 0x2,-0x1
0273 e403 | | Load 0x2,0x3
0274 827e | ~ | Call 0x1,0x7e
0275 00d2 | | Pop_Control Pop_Count_2
0276 c5fd | | Store 0x2,-0x3
0277 c5fb | | Store 0x2,-0x5
0278 c5fa | | Store 0x2,-0x6
0279 c5f9 | | Store 0x2,-0x7
027a c5f8 | | Store 0x2,-0x8
027b c5f7 | | Store 0x2,-0x9
027c c5f6 | | Store 0x2,-0xa
027d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027e e5f6 | | Load 0x2,-0xa
027f 00e3 | | Load_Encached Natural_Cache
0280 00da | | Load_Top At_Offset_2
0281 e5fe | | Load 0x2,-0x2
0282 4801 |H | Short_Literal 0x1
0283 e402 | | Load 0x2,0x2
0284 e016 | | Load 0x0,0x16
0285 180d | | Execute Package,Field_Execute,Field_Number 0xd
0286 00d2 | | Pop_Control Pop_Count_2
0287 c5fb | | Store 0x2,-0x5
0288 c5f6 | | Store 0x2,-0xa
0289 4802 |H | Short_Literal 0x2
028a e5f6 | | Load 0x2,-0xa
028b e012 | | Load 0x0,0x12
028c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
028d 6801 |h | Jump_Zero 0x28f
028e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028f e5fc | | Load 0x2,-0x4
0290 00d9 | | Load_Top At_Offset_1
0291 e016 | | Load 0x0,0x16
0292 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0293 e014 | | Load 0x0,0x14
0294 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0295 00d1 | | Pop_Control Pop_Count_1
0296 e5f6 | | Load 0x2,-0xa
0297 00e1 | | Load_Encached Boolean_Cache
0298 e003 | | Load 0x0,0x3
0299 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029a 00e3 | | Load_Encached Natural_Cache
029b 00ec | | Load_Encached Diana_Tree_Cache
029c e5fd | | Load 0x2,-0x3
029d e5ff | | Load 0x2,-0x1
029e e5fc | | Load 0x2,-0x4
029f e014 | | Load 0x0,0x14
02a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a1 e403 | | Load 0x2,0x3
02a2 e016 | | Load 0x0,0x16
02a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02a4 820f | | Call 0x1,0xf
02a5 c5fd | | Store 0x2,-0x3
02a6 c5fa | | Store 0x2,-0x6
02a7 c5f9 | | Store 0x2,-0x7
02a8 c5f8 | | Store 0x2,-0x8
02a9 c5f7 | | Store 0x2,-0x9
02aa c5f6 | | Store 0x2,-0xa
02ab 4802 |H | Short_Literal 0x2
02ac e5f6 | | Load 0x2,-0xa
02ad e012 | | Load 0x0,0x12
02ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02af 681b |h | Jump_Zero 0x2cb
02b0 e5f6 | | Load 0x2,-0xa
02b1 e012 | | Load 0x0,0x12
02b2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02b3 e224 | $ | Load 0x1,0x24
02b4 01df | | Execute Vector,Equal
02b5 6815 |h | Jump_Zero 0x2cb
02b6 e5f6 | | Load 0x2,-0xa
02b7 00e1 | | Load_Encached Boolean_Cache
02b8 e003 | | Load 0x0,0x3
02b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ba 00e3 | | Load_Encached Natural_Cache
02bb 00ec | | Load_Encached Diana_Tree_Cache
02bc 00e3 | | Load_Encached Natural_Cache
02bd e5fd | | Load 0x2,-0x3
02be e5fc | | Load 0x2,-0x4
02bf e5fe | | Load 0x2,-0x2
02c0 e5ff | | Load 0x2,-0x1
02c1 e403 | | Load 0x2,0x3
02c2 827e | ~ | Call 0x1,0x7e
02c3 00d2 | | Pop_Control Pop_Count_2
02c4 c5fd | | Store 0x2,-0x3
02c5 c5fb | | Store 0x2,-0x5
02c6 c5fa | | Store 0x2,-0x6
02c7 c5f9 | | Store 0x2,-0x7
02c8 c5f8 | | Store 0x2,-0x8
02c9 c5f7 | | Store 0x2,-0x9
02ca c5f6 | | Store 0x2,-0xa
02cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 e5fa | | Load 0x2,-0x6
02d4 e004 | | Load 0x0,0x4
02d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d6 e004 | | Load 0x0,0x4
02d7 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
02d8 e5fd | | Load 0x2,-0x3
02d9 0120 | | Execute Any,Is_Value
02da 6803 |h | Jump_Zero 0x2de
02db e004 | | Load 0x0,0x4
02dc 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
02dd 7801 |x | Jump 0x2df
02de e5fd | | Load 0x2,-0x3
02df e5fe | | Load 0x2,-0x2
02e0 e5ff | | Load 0x2,-0x1
02e1 4806 |H | Short_Literal 0x6
02e2 e27a | z | Load 0x1,0x7a
02e3 1710 | | Execute Task,Entry_Call,Field_Number 0x10
02e4 c5fe | | Store 0x2,-0x2
02e5 c5fd | | Store 0x2,-0x3
02e6 c5fc | | Store 0x2,-0x4
02e7 c5fb | | Store 0x2,-0x5
02e8 c5fa | | Store 0x2,-0x6
02e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 4801 |H | Short_Literal 0x1
02f5 e27a | z | Load 0x1,0x7a
02f6 1712 | | Execute Task,Entry_Call,Field_Number 0x12
02f7 003b | ; | Store_Top Access,At_Offset_3
02f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f9 0000 0000 | | .BLANK 0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 4801 |H | Short_Literal 0x1
0305 e27a | z | Load 0x1,0x7a
0306 1711 | | Execute Task,Entry_Call,Field_Number 0x11
0307 003b | ; | Store_Top Access,At_Offset_3
0308 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 4800 |H | Short_Literal 0x0
0314 00db | | Load_Top At_Offset_3
0315 e004 | | Load 0x0,0x4
0316 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0317 8017 | | Call 0x0,0x17
0318 4803 |H | Short_Literal 0x3
0319 e018 | | Load 0x0,0x18
031a e019 | | Load 0x0,0x19
031b 00ad | | QQ_Action Package,Field_Execute_Dynamic
031c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031d 0000 0000 | | .XXX[0x3]
031f 0000 | |
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00db | | Load_Top At_Offset_3
0324 6804 |h | Jump_Zero 0x329
0325 0092 14a1 | | Action Push_String_Extended,0x14a1 ; "Debug_Debugger"
0327 801a | | Call 0x0,0x1a
0328 6802 |h | Jump_Zero 0x32b
0329 00da | | Load_Top At_Offset_2
032a 8219 | | Call 0x1,0x19
032b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
032c 0000 0000 | | .BLANK 0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 7008 |p | Jump_Nonzero 0x33d
0335 e5fd | | Load 0x2,-0x3
0336 0092 14a2 | | Action Push_String_Extended,0x14a2 ; "Assert fail: "
0338 e5fe | | Load 0x2,-0x2
0339 01cc | | Execute Vector,Catenate
033a 821a | | Call 0x1,0x1a
033b e217 | | Load 0x1,0x17
033c 0257 | W | Execute Discrete,Raise
033d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
033e 0000 0000 | | .XXX[0x2]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 4601 |F | Jump_Case 0x2
0344 7801 |x | Jump 0x346 ; case 0x0
0345 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0346 00da | | Load_Top At_Offset_2
0347 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0348 0125 | % | Execute Any,Set_Constraint
0349 00da | | Load_Top At_Offset_2
034a 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
034b 1c00 | | Execute_Immediate Run_Utility,0x0
034c 00da | | Load_Top At_Offset_2
034d 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
034e 0125 | % | Execute Any,Set_Constraint
034f 00da | | Load_Top At_Offset_2
0350 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0351 1c00 | | Execute_Immediate Run_Utility,0x0
0352 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0353 0000 0000 | | .BLANK 0000[0x5]
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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035d 0000 0000 | | .XXX[0x3]
035f 0000 | |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 0227 | ' | Execute Access,All_Reference
0365 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0366 a5fe | | Store_Unchecked 0x2,-0x2
0367 00da | | Load_Top At_Offset_2
0368 0227 | ' | Execute Access,All_Reference
0369 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036a a5fd | | Store_Unchecked 0x2,-0x3
036b 00da | | Load_Top At_Offset_2
036c 0227 | ' | Execute Access,All_Reference
036d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036e a5fb | | Store_Unchecked 0x2,-0x5
036f 00da | | Load_Top At_Offset_2
0370 0227 | ' | Execute Access,All_Reference
0371 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0372 a5fc | | Store_Unchecked 0x2,-0x4
0373 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0374 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
037c 801b | | Call 0x0,0x1b
037d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037e 0000 0000 | | .XXX[0x2]
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 801c | | Call 0x0,0x1c
0384 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0385 0000 0000 | | .XXX[0x3]
0387 0000 | |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00da | | Load_Top At_Offset_2
038c 4904 |I | Short_Literal 0x104
038d 00eb | | Load_Encached Diana_Cache
038e 0096 | | Execute Package,Entry
038f 00eb | | Load_Encached Diana_Cache
0390 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0391 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0392 0000 0000 | | .BLANK 0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a0 | | .CONST 0x03a0 ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0004 | | .CONST 0x0004 ; Number of locals
039b INIT_0398:
039b 00da | | Load_Top At_Offset_2
039c e01d | | Load 0x0,0x1d
039d 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
039e 00ec | | Load_Encached Diana_Tree_Cache
039f 039d | | Declare_Variable Heap_Access,Duplicate
03a0 BODY_0398:
03a0 00da | | Load_Top At_Offset_2
03a1 00eb | | Load_Encached Diana_Cache
03a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a3 6802 |h | Jump_Zero 0x3a6
03a4 e5ff | | Load 0x2,-0x1
03a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a6 00da | | Load_Top At_Offset_2
03a7 00eb | | Load_Encached Diana_Cache
03a8 18ec | | Execute Package,Field_Execute,Field_Number 0xec
03a9 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03aa 00d9 | | Load_Top At_Offset_1
03ab 00eb | | Load_Encached Diana_Cache
03ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ad 6811 |h | Jump_Zero 0x3bf
03ae 00da | | Load_Top At_Offset_2
03af e01e | | Load 0x0,0x1e
03b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03b2 0092 14a3 | | Action Push_String_Extended,0x14a3 ; "Sm_Back_Link returned unexpected kind of node"
03b4 00d9 | | Load_Top At_Offset_1
03b5 00eb | | Load_Encached Diana_Cache
03b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03b7 e5ff | | Load 0x2,-0x1
03b8 00eb | | Load_Encached Diana_Cache
03b9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03ba 027f | | Execute Discrete,Equal
03bb e01f | | Load 0x0,0x1f
03bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
03bd 00d8 | | Load_Top At_Offset_0
03be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03bf 00d9 | | Load_Top At_Offset_1
03c0 e01d | | Load 0x0,0x1d
03c1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03c2 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03c3 00d8 | | Load_Top At_Offset_0
03c4 8229 | ) | Call 0x1,0x29
03c5 6802 |h | Jump_Zero 0x3c8
03c6 e5ff | | Load 0x2,-0x1
03c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c8 00d8 | | Load_Top At_Offset_0
03c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ca 0000 0000 | | .BLANK 0000[0x6]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 00eb | | Load_Encached Diana_Cache
03d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03d6 00d8 | | Load_Top At_Offset_0
03d7 4821 |H! | Short_Literal 0x21
03d8 482c |H, | Short_Literal 0x2c
03d9 0262 | b | Execute Discrete,In_Range
03da 6812 |h | Jump_Zero 0x3ed
03db 00d8 | | Load_Top At_Offset_0
03dc 4823 |H# | Short_Literal 0x23
03dd 4828 |H( | Short_Literal 0x28
03de 0262 | b | Execute Discrete,In_Range
03df 700d |p | Jump_Nonzero 0x3ed
03e0 482a |H* | Short_Literal 0x2a
03e1 482b |H+ | Short_Literal 0x2b
03e2 0262 | b | Execute Discrete,In_Range
03e3 700a |p | Jump_Nonzero 0x3ee
03e4 7800 |x | Jump 0x3e5
03e5 00da | | Load_Top At_Offset_2
03e6 8229 | ) | Call 0x1,0x29
03e7 6803 |h | Jump_Zero 0x3eb
03e8 00da | | Load_Top At_Offset_2
03e9 822a | * | Call 0x1,0x2a
03ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03eb 00da | | Load_Top At_Offset_2
03ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ed 00d1 | | Pop_Control Pop_Count_1
03ee 00da | | Load_Top At_Offset_2
03ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 03f9 | | .CONST 0x03f9 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 00da | | Load_Top At_Offset_2
03f4 00eb | | Load_Encached Diana_Cache
03f5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03f6 00eb | | Load_Encached Diana_Cache
03f7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f9 TRAP_03f0:
03f9 0007 | | Action Break_Optional
03fa 0092 14a4 | | Action Push_String_Extended,0x14a4 ; "<NULL>"
03fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03fd 0000 0000 | | .XXX[0x3]
03ff 0000 | |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 4801 |H | Short_Literal 0x1
0404 4800 |H | Short_Literal 0x0
0405 e020 | | Load 0x0,0x20
0406 e5ff | | Load 0x2,-0x1
0407 e021 | ! | Load 0x0,0x21
0408 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0409 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040a 0000 0000 | | .BLANK 0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 00eb | | Load_Encached Diana_Cache
0415 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0416 6802 |h | Jump_Zero 0x419
0417 00ea | | Load_Encached Null_String_Cache
0418 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0419 00da | | Load_Top At_Offset_2
041a 4904 |I | Short_Literal 0x104
041b 00eb | | Load_Encached Diana_Cache
041c 0096 | | Execute Package,Entry
041d 00eb | | Load_Encached Diana_Cache
041e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
041f 0b7b | { | Execute_Immediate Case_Compare,0x7b
0420 7006 |p | Jump_Nonzero 0x427
0421 0b7a | z | Execute_Immediate Case_Compare,0x7a
0422 7008 |p | Jump_Nonzero 0x42b
0423 0f7c | | | Execute_Immediate Equal,0x7c
0424 700a |p | Jump_Nonzero 0x42f
0425 00ea | | Load_Encached Null_String_Cache
0426 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0427 00d1 | | Pop_Control Pop_Count_1
0428 0092 14a5 | | Action Push_String_Extended,0x14a5 ; "procedure "
042a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042b 00d1 | | Pop_Control Pop_Count_1
042c 0092 14a6 | | Action Push_String_Extended,0x14a6 ; "function "
042e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042f 0092 14a7 | | Action Push_String_Extended,0x14a7 ; "package "
0431 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0432 0000 0000 | | .BLANK 0000[0x6]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 00d8 | | Load_Top At_Offset_0
043d 4821 |H! | Short_Literal 0x21
043e 482c |H, | Short_Literal 0x2c
043f 0262 | b | Execute Discrete,In_Range
0440 681d |h | Jump_Zero 0x45e
0441 0adf | | Execute_Immediate Plus,-0x21
0442 460b |F | Jump_Case 0xc
0443 780e |x | Jump 0x452 ; case 0x0
0444 7813 |x | Jump 0x458 ; case 0x1
0445 7819 |x | Jump 0x45f ; case 0x2
0446 7818 |x | Jump 0x45f ; case 0x3
0447 7817 |x | Jump 0x45f ; case 0x4
0448 7816 |x | Jump 0x45f ; case 0x5
0449 7815 |x | Jump 0x45f ; case 0x6
044a 7814 |x | Jump 0x45f ; case 0x7
044b 7809 |x | Jump 0x455 ; case 0x8
044c 7812 |x | Jump 0x45f ; case 0x9
044d 7811 |x | Jump 0x45f ; case 0xa
044e 7800 |x | Jump 0x44f ; case 0xb
044f 0092 14a5 | | Action Push_String_Extended,0x14a5 ; "procedure "
0451 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0452 0092 14a6 | | Action Push_String_Extended,0x14a6 ; "function "
0454 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0455 0092 14a7 | | Action Push_String_Extended,0x14a7 ; "package "
0457 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0458 0092 14a8 | | Action Push_String_Extended,0x14a8 ; "generic "
045a e5fe | | Load 0x2,-0x2
045b 822e | . | Call 0x1,0x2e
045c 01cc | | Execute Vector,Catenate
045d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
045e 00d1 | | Pop_Control Pop_Count_1
045f 00ea | | Load_Encached Null_String_Cache
0460 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0461 0000 0000 | | .BLANK 0000[0x7]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b e5fd | | Load 0x2,-0x3
046c 00db | | Load_Top At_Offset_3
046d 822f | / | Call 0x1,0x2f
046e e5fe | | Load 0x2,-0x2
046f 00eb | | Load_Encached Diana_Cache
0470 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0471 01cc | | Execute Vector,Catenate
0472 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0473 0000 0000 | | .BLANK 0000[0x5]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 00da | | Load_Top At_Offset_2
047c 00db | | Load_Top At_Offset_3
047d 00eb | | Load_Encached Diana_Cache
047e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
047f e5ff | | Load 0x2,-0x1
0480 00eb | | Load_Encached Diana_Cache
0481 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0482 8230 | 0 | Call 0x1,0x30
0483 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0484 0000 0000 | | .BLANK 0000[0x4]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0490 | | .CONST 0x0490 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 00da | | Load_Top At_Offset_2
048c 822c | , | Call 0x1,0x2c
048d e022 | " | Load 0x0,0x22
048e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
048f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0490 TRAP_0488:
0490 0007 | | Action Break_Optional
0491 0092 14a4 | | Action Push_String_Extended,0x14a4 ; "<NULL>"
0493 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0494 0000 0000 | | .BLANK 0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 04a1 | | .CONST 0x04a1 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00da | | Load_Top At_Offset_2
049c 00eb | | Load_Encached Diana_Cache
049d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
049e e022 | " | Load 0x0,0x22
049f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a1 TRAP_0498:
04a1 0007 | | Action Break_Optional
04a2 0092 14a4 | | Action Push_String_Extended,0x14a4 ; "<NULL>"
04a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a5 0000 0000 | | .XXX[0x3]
04a7 0000 | |
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 0092 14a9 | | Action Push_String_Extended,0x14a9 ; "Warning: Incompatible subsystem versions detected in command"
04ad 8227 | ' | Call 0x1,0x27
04ae 8228 | ( | Call 0x1,0x28
04af 0092 14aa | | Action Push_String_Extended,0x14aa ; " Spec: "
04b1 00db | | Load_Top At_Offset_3
04b2 8231 | 1 | Call 0x1,0x31
04b3 01cc | | Execute Vector,Catenate
04b4 0092 14ab | | Action Push_String_Extended,0x14ab ; ", Units: "
04b6 01cc | | Execute Vector,Catenate
04b7 e5fe | | Load 0x2,-0x2
04b8 8231 | 1 | Call 0x1,0x31
04b9 01cc | | Execute Vector,Catenate
04ba 0092 14ac | | Action Push_String_Extended,0x14ac ; ", "
04bc 01cc | | Execute Vector,Catenate
04bd e5fd | | Load 0x2,-0x3
04be 8231 | 1 | Call 0x1,0x31
04bf 01cc | | Execute Vector,Catenate
04c0 8227 | ' | Call 0x1,0x27
04c1 8228 | ( | Call 0x1,0x28
04c2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04c3 0000 0000 | | .BLANK 0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 0092 14a9 | | Action Push_String_Extended,0x14a9 ; "Warning: Incompatible subsystem versions detected in command"
04cd 8227 | ' | Call 0x1,0x27
04ce 8228 | ( | Call 0x1,0x28
04cf 0092 14aa | | Action Push_String_Extended,0x14aa ; " Spec: "
04d1 00db | | Load_Top At_Offset_3
04d2 8231 | 1 | Call 0x1,0x31
04d3 01cc | | Execute Vector,Catenate
04d4 0092 14ad | | Action Push_String_Extended,0x14ad ; ", Unit: "
04d6 01cc | | Execute Vector,Catenate
04d7 e5fe | | Load 0x2,-0x2
04d8 8231 | 1 | Call 0x1,0x31
04d9 01cc | | Execute Vector,Catenate
04da 8227 | ' | Call 0x1,0x27
04db 8228 | ( | Call 0x1,0x28
04dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04dd 0000 0000 | | .XXX[0x3]
04df 0000 | |
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e4 | | .CONST 0x04e4 ; Address of begin
04e1 04ed | | .CONST 0x04ed ; Address of exception handler
04e2 0002 | | .CONST 0x0002 ; Number of locals
04e3 INIT_04e0:
04e3 00ec | | Load_Encached Diana_Tree_Cache
04e4 BODY_04e0:
04e4 e023 | # | Load 0x0,0x23
04e5 180f | | Execute Package,Field_Execute,Field_Number 0xf
04e6 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04e7 00d8 | | Load_Top At_Offset_0
04e8 00eb | | Load_Encached Diana_Cache
04e9 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
04ea 00eb | | Load_Encached Diana_Cache
04eb 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
04ec 00ca | | Action Exit_Nullary_Function
04ed TRAP_04e0:
04ed 0007 | | Action Break_Optional
04ee 00eb | | Load_Encached Diana_Cache
04ef 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04f0 00ca | | Action Exit_Nullary_Function
04f1 0000 0000 | | .BLANK 0000[0x7]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fd | | .CONST 0x04fd ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0003 | | .CONST 0x0003 ; Number of locals
04fb INIT_04f8:
04fb 00ec | | Load_Encached Diana_Tree_Cache
04fc 039d | | Declare_Variable Heap_Access,Duplicate
04fd BODY_04f8:
04fd e5ff | | Load 0x2,-0x1
04fe 00eb | | Load_Encached Diana_Cache
04ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0500 00d8 | | Load_Top At_Offset_0
0501 4821 |H! | Short_Literal 0x21
0502 482c |H, | Short_Literal 0x2c
0503 0262 | b | Execute Discrete,In_Range
0504 6823 |h# | Jump_Zero 0x528
0505 00d8 | | Load_Top At_Offset_0
0506 4823 |H# | Short_Literal 0x23
0507 4828 |H( | Short_Literal 0x28
0508 0262 | b | Execute Discrete,In_Range
0509 701e |p | Jump_Nonzero 0x528
050a 482a |H* | Short_Literal 0x2a
050b 482b |H+ | Short_Literal 0x2b
050c 0262 | b | Execute Discrete,In_Range
050d 701b |p | Jump_Nonzero 0x529
050e 7800 |x | Jump 0x50f
050f e5ff | | Load 0x2,-0x1
0510 00eb | | Load_Encached Diana_Cache
0511 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
0512 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0513 00d9 | | Load_Top At_Offset_1
0514 00eb | | Load_Encached Diana_Cache
0515 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0516 0f80 | | Execute_Immediate Equal,-0x80
0517 680c |h | Jump_Zero 0x524
0518 00d9 | | Load_Top At_Offset_1
0519 00eb | | Load_Encached Diana_Cache
051a 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
051b 4976 |Iv | Short_Literal 0x176
051c 00eb | | Load_Encached Diana_Cache
051d 0098 | | Execute Package,Field_Read_Dynamic
051e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
051f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0520 00d8 | | Load_Top At_Offset_0
0521 e021 | ! | Load 0x0,0x21
0522 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0523 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0524 e5ff | | Load 0x2,-0x1
0525 e021 | ! | Load 0x0,0x21
0526 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0527 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0528 00d1 | | Pop_Control Pop_Count_1
0529 e5ff | | Load 0x2,-0x1
052a e021 | ! | Load 0x0,0x21
052b 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
052c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 00da | | Load_Top At_Offset_2
0534 00eb | | Load_Encached Diana_Cache
0535 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0536 00eb | | Load_Encached Diana_Cache
0537 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0538 011c | | Execute Any,Convert_Unchecked
0539 1c01 | | Execute_Immediate Run_Utility,0x1
053a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
053b 0000 0000 | | .BLANK 0000[0x5]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0555 | U | .CONST 0x0555 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0005 | | .CONST 0x0005 ; Number of locals
0543 INIT_0540:
0543 e024 | $ | Load 0x0,0x24
0544 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0545 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0546 02c7 | | Declare_Variable Any
0547 00d8 | | Load_Top At_Offset_0
0548 1c00 | | Execute_Immediate Run_Utility,0x0
0549 e024 | $ | Load 0x0,0x24
054a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054b 02c7 | | Declare_Variable Any
054c 00d8 | | Load_Top At_Offset_0
054d 1c00 | | Execute_Immediate Run_Utility,0x0
054e e024 | $ | Load 0x0,0x24
054f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0550 02c7 | | Declare_Variable Any
0551 00d8 | | Load_Top At_Offset_0
0552 1c00 | | Execute_Immediate Run_Utility,0x0
0553 e024 | $ | Load 0x0,0x24
0554 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0555 BODY_0540:
0555 e5fe | | Load 0x2,-0x2
0556 00eb | | Load_Encached Diana_Cache
0557 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0558 0f29 | ) | Execute_Immediate Equal,0x29
0559 7002 |p | Jump_Nonzero 0x55c
055a 4800 |H | Short_Literal 0x0
055b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
055c 0092 14ae | | Action Push_String_Extended,0x14ae ; "Same_Object: Library_Node of type "
055e e5ff | | Load 0x2,-0x1
055f 823c | < | Call 0x1,0x3c
0560 01cc | | Execute Vector,Catenate
0561 e5ff | | Load 0x2,-0x1
0562 00eb | | Load_Encached Diana_Cache
0563 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0564 0f30 | 0 | Execute_Immediate Equal,0x30
0565 e01f | | Load 0x0,0x1f
0566 180e | | Execute Package,Field_Execute,Field_Number 0xe
0567 e024 | $ | Load 0x0,0x24
0568 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0569 00db | | Load_Top At_Offset_3
056a 0120 | | Execute Any,Is_Value
056b 6803 |h | Jump_Zero 0x56f
056c e024 | $ | Load 0x0,0x24
056d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
056e 7801 |x | Jump 0x570
056f 00db | | Load_Top At_Offset_3
0570 602f |`/ | Indirect_Literal Discrete,0x5a0,{0x00000000, 0x00004000}
0571 e025 | % | Load 0x0,0x25
0572 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0573 4800 |H | Short_Literal 0x0
0574 e024 | $ | Load 0x0,0x24
0575 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0576 e5ff | | Load 0x2,-0x1
0577 e024 | $ | Load 0x0,0x24
0578 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0579 1816 | | Execute Package,Field_Execute,Field_Number 0x16
057a c403 | | Store 0x2,0x3
057b 0059 | Y | Store_Top Discrete,At_Offset_1
057c 00d8 | | Load_Top At_Offset_0
057d 6802 |h | Jump_Zero 0x580
057e 4800 |H | Short_Literal 0x0
057f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0580 e024 | $ | Load 0x0,0x24
0581 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0582 e402 | | Load 0x2,0x2
0583 0120 | | Execute Any,Is_Value
0584 6804 |h | Jump_Zero 0x589
0585 e024 | $ | Load 0x0,0x24
0586 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0587 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0588 7801 |x | Jump 0x58a
0589 e402 | | Load 0x2,0x2
058a e5fe | | Load 0x2,-0x2
058b e024 | $ | Load 0x0,0x24
058c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
058d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
058e c402 | | Store 0x2,0x2
058f 0059 | Y | Store_Top Discrete,At_Offset_1
0590 00d8 | | Load_Top At_Offset_0
0591 6802 |h | Jump_Zero 0x594
0592 4800 |H | Short_Literal 0x0
0593 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0594 00db | | Load_Top At_Offset_3
0595 e024 | $ | Load 0x0,0x24
0596 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0597 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0598 c404 | | Store 0x2,0x4
0599 00d9 | | Load_Top At_Offset_1
059a 00db | | Load_Top At_Offset_3
059b 012f | / | Execute Any,Equal
059c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
05a4 0000 0000 | | .BLANK 0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab | | .CONST 0x05ab ; Address of begin
05a9 05b1 | | .CONST 0x05b1 ; Address of exception handler
05aa 0001 | | .CONST 0x0001 ; Number of locals
05ab BODY_05a8:
05ab INIT_05a8:
05ab 00da | | Load_Top At_Offset_2
05ac e026 | & | Load 0x0,0x26
05ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05ae e01d | | Load 0x0,0x1d
05af 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b1 TRAP_05a8:
05b1 0007 | | Action Break_Optional
05b2 00eb | | Load_Encached Diana_Cache
05b3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b5 0000 0000 | | .XXX[0x3]
05b7 0000 | |
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00da | | Load_Top At_Offset_2
05bc 00eb | | Load_Encached Diana_Cache
05bd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05be 0f30 | 0 | Execute_Immediate Equal,0x30
05bf 6804 |h | Jump_Zero 0x5c4
05c0 00da | | Load_Top At_Offset_2
05c1 e026 | & | Load 0x0,0x26
05c2 180f | | Execute Package,Field_Execute,Field_Number 0xf
05c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c4 4800 |H | Short_Literal 0x0
05c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c6 0000 0000 | | .XXX[0x2]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 00da | | Load_Top At_Offset_2
05cc e5fe | | Load 0x2,-0x2
05cd 021f | | Execute Heap_Access,Equal
05ce 7006 |p | Jump_Nonzero 0x5d5
05cf 00da | | Load_Top At_Offset_2
05d0 8027 | ' | Call 0x0,0x27
05d1 e5fe | | Load 0x2,-0x2
05d2 8027 | ' | Call 0x0,0x27
05d3 021f | | Execute Heap_Access,Equal
05d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d5 4801 |H | Short_Literal 0x1
05d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d7 0000 | | .XXX[0x1]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 00da | | Load_Top At_Offset_2
05dc e5fe | | Load 0x2,-0x2
05dd 021f | | Execute Heap_Access,Equal
05de 7008 |p | Jump_Nonzero 0x5e7
05df e5fd | | Load 0x2,-0x3
05e0 6804 |h | Jump_Zero 0x5e5
05e1 e5fc | | Load 0x2,-0x4
05e2 e003 | | Load 0x0,0x3
05e3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05e4 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05e5 4800 |H | Short_Literal 0x0
05e6 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05e7 4801 |H | Short_Literal 0x1
05e8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05e9 0000 0000 | | .BLANK 0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 00da | | Load_Top At_Offset_2
05f4 00eb | | Load_Encached Diana_Cache
05f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05f6 7004 |p | Jump_Nonzero 0x5fb
05f7 00db | | Load_Top At_Offset_3
05f8 00db | | Load_Top At_Offset_3
05f9 8240 | @ | Call 0x1,0x40
05fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05fb 4801 |H | Short_Literal 0x1
05fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05fd 0000 0000 | | .XXX[0x3]
05ff 0000 | |
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 00da | | Load_Top At_Offset_2
0604 e016 | | Load 0x0,0x16
0605 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0606 6808 |h | Jump_Zero 0x60f
0607 4801 |H | Short_Literal 0x1
0608 e5fe | | Load 0x2,-0x2
0609 e01d | | Load 0x0,0x1d
060a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
060b e5ff | | Load 0x2,-0x1
060c e022 | " | Load 0x0,0x22
060d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
060e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
060f 4800 |H | Short_Literal 0x0
0610 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0611 0000 0000 | | .BLANK 0000[0x7]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061d | | .CONST 0x061d ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0003 | | .CONST 0x0003 ; Number of locals
061b INIT_0618:
061b 00e2 | | Load_Encached Integer_Cache
061c 00e1 | | Load_Encached Boolean_Cache
061d BODY_0618:
061d e5ff | | Load 0x2,-0x1
061e 01db | | Execute Vector,Length
061f 0f00 | | Execute_Immediate Equal,0x0
0620 e5fe | | Load 0x2,-0x2
0621 022d | - | Execute Access,Is_Null
0622 0278 | x | Execute Discrete,Or
0623 6802 |h | Jump_Zero 0x626
0624 4800 |H | Short_Literal 0x0
0625 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0626 00e1 | | Load_Encached Boolean_Cache
0627 00e2 | | Load_Encached Integer_Cache
0628 e5ff | | Load 0x2,-0x1
0629 e016 | | Load 0x0,0x16
062a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
062b 005b | [ | Store_Top Discrete,At_Offset_3
062c 0059 | Y | Store_Top Discrete,At_Offset_1
062d 00d8 | | Load_Top At_Offset_0
062e 6806 |h | Jump_Zero 0x635
062f 00d9 | | Load_Top At_Offset_1
0630 e5fe | | Load 0x2,-0x2
0631 0227 | ' | Execute Access,All_Reference
0632 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0633 027f | | Execute Discrete,Equal
0634 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0635 e5fe | | Load 0x2,-0x2
0636 0227 | ' | Execute Access,All_Reference
0637 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0638 e5ff | | Load 0x2,-0x1
0639 8243 | C | Call 0x1,0x43
063a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
063b 0000 0000 | | .BLANK 0000[0x5]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643 | C | .CONST 0x0643 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0001 | | .CONST 0x0001 ; Number of locals
0643 BODY_0640:
0643 INIT_0640:
0643 00da | | Load_Top At_Offset_2
0644 00eb | | Load_Encached Diana_Cache
0645 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0646 0f29 | ) | Execute_Immediate Equal,0x29
0647 7004 |p | Jump_Nonzero 0x64c
0648 00da | | Load_Top At_Offset_2
0649 e01d | | Load 0x0,0x1d
064a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
064b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
064c 4801 |H | Short_Literal 0x1
064d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
064e 0000 0000 | | .XXX[0x2]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0655 | U | .CONST 0x0655 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0003 | | .CONST 0x0003 ; Number of locals
0653 INIT_0650:
0653 00e2 | | Load_Encached Integer_Cache
0654 00e1 | | Load_Encached Boolean_Cache
0655 BODY_0650:
0655 e5fd | | Load 0x2,-0x3
0656 6804 |h | Jump_Zero 0x65b
0657 e012 | | Load 0x0,0x12
0658 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0659 c5fc | | Store 0x2,-0x4
065a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
065b e5ff | | Load 0x2,-0x1
065c 8245 | E | Call 0x1,0x45
065d 680c |h | Jump_Zero 0x66a
065e e5fe | | Load 0x2,-0x2
065f e016 | | Load 0x0,0x16
0660 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0661 7004 |p | Jump_Nonzero 0x666
0662 e5fe | | Load 0x2,-0x2
0663 e016 | | Load 0x0,0x16
0664 1817 | | Execute Package,Field_Execute,Field_Number 0x17
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 e5ff | | Load 0x2,-0x1
066b e5fe | | Load 0x2,-0x2
066c 8243 | C | Call 0x1,0x43
066d 6804 |h | Jump_Zero 0x672
066e e012 | | Load 0x0,0x12
066f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0670 c5fc | | Store 0x2,-0x4
0671 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0672 0092 14af | | Action Push_String_Extended,0x14af ; "Invalid qualifier (none required): "
0674 e5fe | | Load 0x2,-0x2
0675 01cc | | Execute Vector,Catenate
0676 e012 | | Load 0x0,0x12
0677 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0678 c5fc | | Store 0x2,-0x4
0679 4504 |E | Exit_Suprogram New_Top_Offset 0x4
067a 0000 0000 | | .BLANK 0000[0x6]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 00db | | Load_Top At_Offset_3
0684 6806 |h | Jump_Zero 0x68b
0685 e012 | | Load 0x0,0x12
0686 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0687 c5fa | | Store 0x2,-0x6
0688 4801 |H | Short_Literal 0x1
0689 a5f9 | | Store_Unchecked 0x2,-0x7
068a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
068b 00da | | Load_Top At_Offset_2
068c 680d |h | Jump_Zero 0x69a
068d 4800 |H | Short_Literal 0x0
068e a5f9 | | Store_Unchecked 0x2,-0x7
068f e5fd | | Load 0x2,-0x3
0690 01db | | Execute Vector,Length
0691 0c01 | | Execute_Immediate Greater_Equal,0x1
0692 6806 |h | Jump_Zero 0x699
0693 e5fa | | Load 0x2,-0x6
0694 e5fc | | Load 0x2,-0x4
0695 e5fd | | Load 0x2,-0x3
0696 e5fb | | Load 0x2,-0x5
0697 8246 | F | Call 0x1,0x46
0698 c5fa | | Store 0x2,-0x6
0699 4506 |E | Exit_Suprogram New_Top_Offset 0x6
069a e224 | $ | Load 0x1,0x24
069b e012 | | Load 0x0,0x12
069c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
069d c5fa | | Store 0x2,-0x6
069e 4800 |H | Short_Literal 0x0
069f a5f9 | | Store_Unchecked 0x2,-0x7
06a0 4506 |E | Exit_Suprogram New_Top_Offset 0x6
06a1 0000 0000 | | .BLANK 0000[0x7]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab | | .CONST 0x06ab ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0001 | | .CONST 0x0001 ; Number of locals
06ab BODY_06a8:
06ab INIT_06a8:
06ab 00db | | Load_Top At_Offset_3
06ac 0aff | | Execute_Immediate Plus,-0x1
06ad c5fe | | Store 0x2,-0x2
06ae e5fc | | Load 0x2,-0x4
06af 7005 |p | Jump_Nonzero 0x6b5
06b0 e5fd | | Load 0x2,-0x3
06b1 0227 | ' | Execute Access,All_Reference
06b2 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06b3 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06b5 e5fd | | Load 0x2,-0x3
06b6 0227 | ' | Execute Access,All_Reference
06b7 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06b8 e5fc | | Load 0x2,-0x4
06b9 0227 | ' | Execute Access,All_Reference
06ba 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
06bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06bc 0000 0000 | | .BLANK 0000[0x4]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c7 | | .CONST 0x06c7 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0005 | | .CONST 0x0005 ; Number of locals
06c3 INIT_06c0:
06c3 e21f | | Load 0x1,0x1f
06c4 03bd | | Declare_Variable Access,Duplicate
06c5 00e3 | | Load_Encached Natural_Cache
06c6 00e1 | | Load_Encached Boolean_Cache
06c7 BODY_06c0:
06c7 e5ff | | Load 0x2,-0x1
06c8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06c9 e21f | | Load 0x1,0x1f
06ca 003b | ; | Store_Top Access,At_Offset_3
06cb 00cf | | Action Mark_Auxiliary
06cc 7825 |x% | Jump 0x6f2
06cd 00e1 | | Load_Encached Boolean_Cache
06ce e402 | | Load 0x2,0x2
06cf e404 | | Load 0x2,0x4
06d0 e5fd | | Load 0x2,-0x3
06d1 0227 | ' | Execute Access,All_Reference
06d2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06d3 e223 | # | Load 0x1,0x23
06d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06d5 c402 | | Store 0x2,0x2
06d6 005a | Z | Store_Top Discrete,At_Offset_2
06d7 00d9 | | Load_Top At_Offset_1
06d8 7001 |p | Jump_Nonzero 0x6da
06d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06da e402 | | Load 0x2,0x2
06db 0227 | ' | Execute Access,All_Reference
06dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06dd 0f02 | | Execute_Immediate Equal,0x2
06de 680c |h | Jump_Zero 0x6eb
06df e5fd | | Load 0x2,-0x3
06e0 e403 | | Load 0x2,0x3
06e1 e402 | | Load 0x2,0x2
06e2 e5fe | | Load 0x2,-0x2
06e3 e5ff | | Load 0x2,-0x1
06e4 8248 | H | Call 0x1,0x48
06e5 c5ff | | Store 0x2,-0x1
06e6 c5fe | | Store 0x2,-0x2
06e7 c402 | | Store 0x2,0x2
06e8 c403 | | Store 0x2,0x3
06e9 c5fd | | Store 0x2,-0x3
06ea 7802 |x | Jump 0x6ed
06eb e402 | | Load 0x2,0x2
06ec a403 | | Store_Unchecked 0x2,0x3
06ed e402 | | Load 0x2,0x2
06ee 0227 | ' | Execute Access,All_Reference
06ef 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06f0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06f1 00c9 | | Action Pop_Auxiliary_Loop
06f2 00da | | Load_Top At_Offset_2
06f3 77d9 |w | Jump_Nonzero 0x6cd
06f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f5 0000 0000 | | .XXX[0x3]
06f7 0000 | |
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06ff | | .CONST 0x06ff ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0005 | | .CONST 0x0005 ; Number of locals
06fb INIT_06f8:
06fb e21f | | Load 0x1,0x1f
06fc 03bd | | Declare_Variable Access,Duplicate
06fd 00e3 | | Load_Encached Natural_Cache
06fe 00e1 | | Load_Encached Boolean_Cache
06ff BODY_06f8:
06ff e5fe | | Load 0x2,-0x2
0700 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0701 e21f | | Load 0x1,0x1f
0702 003b | ; | Store_Top Access,At_Offset_3
0703 00cf | | Action Mark_Auxiliary
0704 7824 |x$ | Jump 0x729
0705 00e1 | | Load_Encached Boolean_Cache
0706 e402 | | Load 0x2,0x2
0707 e404 | | Load 0x2,0x4
0708 e5fc | | Load 0x2,-0x4
0709 0227 | ' | Execute Access,All_Reference
070a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
070b e223 | # | Load 0x1,0x23
070c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
070d c402 | | Store 0x2,0x2
070e 005a | Z | Store_Top Discrete,At_Offset_2
070f 00d9 | | Load_Top At_Offset_1
0710 7001 |p | Jump_Nonzero 0x712
0711 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0712 00da | | Load_Top At_Offset_2
0713 e5ff | | Load 0x2,-0x1
0714 027f | | Execute Discrete,Equal
0715 680c |h | Jump_Zero 0x722
0716 e5fc | | Load 0x2,-0x4
0717 e403 | | Load 0x2,0x3
0718 e402 | | Load 0x2,0x2
0719 e5fd | | Load 0x2,-0x3
071a e5fe | | Load 0x2,-0x2
071b 8248 | H | Call 0x1,0x48
071c c5fe | | Store 0x2,-0x2
071d c5fd | | Store 0x2,-0x3
071e c402 | | Store 0x2,0x2
071f c403 | | Store 0x2,0x3
0720 c5fc | | Store 0x2,-0x4
0721 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0722 e402 | | Load 0x2,0x2
0723 a403 | | Store_Unchecked 0x2,0x3
0724 e402 | | Load 0x2,0x2
0725 0227 | ' | Execute Access,All_Reference
0726 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0727 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0728 00c9 | | Action Pop_Auxiliary_Loop
0729 00da | | Load_Top At_Offset_2
072a 77da |w | Jump_Nonzero 0x705
072b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
072c 0000 0000 | | .BLANK 0000[0x4]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0734 | 4 | .CONST 0x0734 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0002 | | .CONST 0x0002 ; Number of locals
0733 INIT_0730:
0733 00ec | | Load_Encached Diana_Tree_Cache
0734 BODY_0730:
0734 00db | | Load_Top At_Offset_3
0735 00eb | | Load_Encached Diana_Cache
0736 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0737 6803 |h | Jump_Zero 0x73b
0738 00eb | | Load_Encached Diana_Cache
0739 1812 | | Execute Package,Field_Execute,Field_Number 0x12
073a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
073b 00db | | Load_Top At_Offset_3
073c e01d | | Load 0x0,0x1d
073d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
073e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
073f 00d8 | | Load_Top At_Offset_0
0740 00eb | | Load_Encached Diana_Cache
0741 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0742 6803 |h | Jump_Zero 0x746
0743 00eb | | Load_Encached Diana_Cache
0744 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0745 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0746 00d8 | | Load_Top At_Offset_0
0747 4976 |Iv | Short_Literal 0x176
0748 00eb | | Load_Encached Diana_Cache
0749 0098 | | Execute Package,Field_Read_Dynamic
074a 180f | | Execute Package,Field_Execute,Field_Number 0xf
074b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
074c 0000 0000 | | .BLANK 0000[0x4]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 00da | | Load_Top At_Offset_2
0754 00eb | | Load_Encached Diana_Cache
0755 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0756 7008 |p | Jump_Nonzero 0x75f
0757 00da | | Load_Top At_Offset_2
0758 e01e | | Load 0x0,0x1e
0759 181c | | Execute Package,Field_Execute,Field_Number 0x1c
075a 6804 |h | Jump_Zero 0x75f
075b 00da | | Load_Top At_Offset_2
075c e01e | | Load 0x0,0x1e
075d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
075e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
075f 4800 |H | Short_Literal 0x0
0760 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0761 0000 0000 | | .BLANK 0000[0x7]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b | k | .CONST 0x076b ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0001 | | .CONST 0x0001 ; Number of locals
076b BODY_0768:
076b INIT_0768:
076b 00da | | Load_Top At_Offset_2
076c 00eb | | Load_Encached Diana_Cache
076d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
076e 7004 |p | Jump_Nonzero 0x773
076f 00da | | Load_Top At_Offset_2
0770 e01e | | Load 0x0,0x1e
0771 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0772 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0773 4800 |H | Short_Literal 0x0
0774 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0775 0000 0000 | | .XXX[0x3]
0777 0000 | |
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077d | } | .CONST 0x077d ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0003 | | .CONST 0x0003 ; Number of locals
077b INIT_0778:
077b 00e3 | | Load_Encached Natural_Cache
077c 00ec | | Load_Encached Diana_Tree_Cache
077d BODY_0778:
077d e5ff | | Load 0x2,-0x1
077e 824b | K | Call 0x1,0x4b
077f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0780 00d8 | | Load_Top At_Offset_0
0781 824c | L | Call 0x1,0x4c
0782 005a | Z | Store_Top Discrete,At_Offset_2
0783 00d9 | | Load_Top At_Offset_1
0784 6810 |h | Jump_Zero 0x795
0785 e5fd | | Load 0x2,-0x3
0786 7002 |p | Jump_Nonzero 0x789
0787 00d9 | | Load_Top At_Offset_1
0788 a5fd | | Store_Unchecked 0x2,-0x3
0789 00d9 | | Load_Top At_Offset_1
078a e5fd | | Load 0x2,-0x3
078b 027f | | Execute Discrete,Equal
078c 6808 |h | Jump_Zero 0x795
078d 00d8 | | Load_Top At_Offset_0
078e 824d | M | Call 0x1,0x4d
078f 6803 |h | Jump_Zero 0x793
0790 e5fe | | Load 0x2,-0x2
0791 a5fc | | Store_Unchecked 0x2,-0x4
0792 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0793 4801 |H | Short_Literal 0x1
0794 a5fb | | Store_Unchecked 0x2,-0x5
0795 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0796 0000 0000 | | .XXX[0x2]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07aa | | .CONST 0x07aa ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 000a | | .CONST 0x000a ; Number of locals
079b INIT_0798:
079b 00e3 | | Load_Encached Natural_Cache
079c e21f | | Load 0x1,0x1f
079d 0007 | | Action Break_Optional
079e 00e1 | | Load_Encached Boolean_Cache
079f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07a0 03e9 | | Declare_Variable Discrete,Duplicate
07a1 00e1 | | Load_Encached Boolean_Cache
07a2 00e3 | | Load_Encached Natural_Cache
07a3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07a4 00e2 | | Load_Encached Integer_Cache
07a5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07a6 00e1 | | Load_Encached Boolean_Cache
07a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07a8 00e3 | | Load_Encached Natural_Cache
07a9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07aa BODY_0798:
07aa e5ff | | Load 0x2,-0x1
07ab a402 | | Store_Unchecked 0x2,0x2
07ac 00cf | | Action Mark_Auxiliary
07ad 782c |x, | Jump 0x7da
07ae 00e1 | | Load_Encached Boolean_Cache
07af e403 | | Load 0x2,0x3
07b0 e402 | | Load 0x2,0x2
07b1 e5fd | | Load 0x2,-0x3
07b2 0227 | ' | Execute Access,All_Reference
07b3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07b4 e223 | # | Load 0x1,0x23
07b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07b6 c403 | | Store 0x2,0x3
07b7 c406 | | Store 0x2,0x6
07b8 e406 | | Load 0x2,0x6
07b9 6822 |h" | Jump_Zero 0x7dc
07ba e407 | | Load 0x2,0x7
07bb 0a01 | | Execute_Immediate Plus,0x1
07bc c407 | | Store 0x2,0x7
07bd 00da | | Load_Top At_Offset_2
07be 00da | | Load_Top At_Offset_2
07bf e408 | | Load 0x2,0x8
07c0 e402 | | Load 0x2,0x2
07c1 e403 | | Load 0x2,0x3
07c2 0227 | ' | Execute Access,All_Reference
07c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07c4 824e | N | Call 0x1,0x4e
07c5 c408 | | Store 0x2,0x8
07c6 005b | [ | Store_Top Discrete,At_Offset_3
07c7 005b | [ | Store_Top Discrete,At_Offset_3
07c8 e403 | | Load 0x2,0x3
07c9 0227 | ' | Execute Access,All_Reference
07ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07cb 4602 |F | Jump_Case 0x3
07cc 7805 |x | Jump 0x7d2 ; case 0x0
07cd 7807 |x | Jump 0x7d5 ; case 0x1
07ce 7800 |x | Jump 0x7cf ; case 0x2
07cf 4801 |H | Short_Literal 0x1
07d0 a405 | | Store_Unchecked 0x2,0x5
07d1 7803 |x | Jump 0x7d5
07d2 4801 |H | Short_Literal 0x1
07d3 a404 | | Store_Unchecked 0x2,0x4
07d4 7800 |x | Jump 0x7d5
07d5 e403 | | Load 0x2,0x3
07d6 0227 | ' | Execute Access,All_Reference
07d7 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
07d8 a402 | | Store_Unchecked 0x2,0x2
07d9 00c9 | | Action Pop_Auxiliary_Loop
07da e402 | | Load 0x2,0x2
07db 77d2 |w | Jump_Nonzero 0x7ae
07dc 00ce | | Action Pop_Auxiliary
07dd 00d9 | | Load_Top At_Offset_1
07de 00d9 | | Load_Top At_Offset_1
07df 0e00 | | Execute_Immediate Not_Equal,0x0
07e0 0279 | y | Execute Discrete,And
07e1 6808 |h | Jump_Zero 0x7ea
07e2 e5fd | | Load 0x2,-0x3
07e3 e407 | | Load 0x2,0x7
07e4 e5ff | | Load 0x2,-0x1
07e5 00db | | Load_Top At_Offset_3
07e6 824a | J | Call 0x1,0x4a
07e7 c5ff | | Store 0x2,-0x1
07e8 c407 | | Store 0x2,0x7
07e9 c5fd | | Store 0x2,-0x3
07ea e404 | | Load 0x2,0x4
07eb e405 | | Load 0x2,0x5
07ec 0279 | y | Execute Discrete,And
07ed 6807 |h | Jump_Zero 0x7f5
07ee e5fd | | Load 0x2,-0x3
07ef e407 | | Load 0x2,0x7
07f0 e5ff | | Load 0x2,-0x1
07f1 8249 | I | Call 0x1,0x49
07f2 c5ff | | Store 0x2,-0x1
07f3 c407 | | Store 0x2,0x7
07f4 c5fd | | Store 0x2,-0x3
07f5 0092 14b0 | | Action Push_String_Extended,0x14b0 ; "Delete_Low_Priority_Overloads deleted everything"
07f7 e407 | | Load 0x2,0x7
07f8 0c01 | | Execute_Immediate Greater_Equal,0x1
07f9 e01f | | Load 0x0,0x1f
07fa 180e | | Execute Package,Field_Execute,Field_Number 0xe
07fb 00db | | Load_Top At_Offset_3
07fc 0c02 | | Execute_Immediate Greater_Equal,0x2
07fd a5fe | | Store_Unchecked 0x2,-0x2
07fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07ff 0000 | | .XXX[0x1]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803 | | .CONST 0x0803 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0001 | | .CONST 0x0001 ; Number of locals
0803 BODY_0800:
0803 INIT_0800:
0803 00da | | Load_Top At_Offset_2
0804 0227 | ' | Execute Access,All_Reference
0805 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0806 e5fe | | Load 0x2,-0x2
0807 0227 | ' | Execute Access,All_Reference
0808 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0809 027f | | Execute Discrete,Equal
080a 6808 |h | Jump_Zero 0x813
080b 00da | | Load_Top At_Offset_2
080c 0227 | ' | Execute Access,All_Reference
080d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
080e e5fe | | Load 0x2,-0x2
080f 0227 | ' | Execute Access,All_Reference
0810 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0811 021f | | Execute Heap_Access,Equal
0812 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0813 4800 |H | Short_Literal 0x0
0814 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0815 0000 0000 | | .XXX[0x3]
0817 0000 | |
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b | | .CONST 0x081b ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0001 | | .CONST 0x0001 ; Number of locals
081b BODY_0818:
081b INIT_0818:
081b 00db | | Load_Top At_Offset_3
081c e5fd | | Load 0x2,-0x3
081d 0227 | ' | Execute Access,All_Reference
081e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
081f e5fd | | Load 0x2,-0x3
0820 0227 | ' | Execute Access,All_Reference
0821 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0822 a5fe | | Store_Unchecked 0x2,-0x2
0823 e5fc | | Load 0x2,-0x4
0824 e5fd | | Load 0x2,-0x3
0825 e220 | | Load 0x1,0x20
0826 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0827 c5fc | | Store 0x2,-0x4
0828 e5fb | | Load 0x2,-0x5
0829 0229 | ) | Execute Access,All_Read
082a 00d8 | | Load_Top At_Offset_0
082b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
082c 4800 |H | Short_Literal 0x0
082d e5fc | | Load 0x2,-0x4
082e e5ff | | Load 0x2,-0x1
082f e022 | " | Load 0x0,0x22
0830 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0831 e221 | ! | Load 0x1,0x21
0832 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0833 00d9 | | Load_Top At_Offset_1
0834 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0835 00d1 | | Pop_Control Pop_Count_1
0836 e5fb | | Load 0x2,-0x5
0837 0229 | ) | Execute Access,All_Read
0838 00d8 | | Load_Top At_Offset_0
0839 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
083a 4800 |H | Short_Literal 0x0
083b e5fd | | Load 0x2,-0x3
083c 00d8 | | Load_Top At_Offset_0
083d 0227 | ' | Execute Access,All_Reference
083e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
083f e223 | # | Load 0x1,0x23
0840 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0841 00d9 | | Load_Top At_Offset_1
0842 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0843 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0844 0000 0000 | | .BLANK 0000[0x4]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 0866 | f | .CONST 0x0866 ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0008 | | .CONST 0x0008 ; Number of locals
084b INIT_0848:
084b e024 | $ | Load 0x0,0x24
084c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
084d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
084e 02c7 | | Declare_Variable Any
084f 00d8 | | Load_Top At_Offset_0
0850 1c00 | | Execute_Immediate Run_Utility,0x0
0851 e024 | $ | Load 0x0,0x24
0852 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0853 e024 | $ | Load 0x0,0x24
0854 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0855 02c7 | | Declare_Variable Any
0856 00d8 | | Load_Top At_Offset_0
0857 1c00 | | Execute_Immediate Run_Utility,0x0
0858 e024 | $ | Load 0x0,0x24
0859 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
085a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085b 02c7 | | Declare_Variable Any
085c 00d8 | | Load_Top At_Offset_0
085d 1c00 | | Execute_Immediate Run_Utility,0x0
085e 00ec | | Load_Encached Diana_Tree_Cache
085f 00ec | | Load_Encached Diana_Tree_Cache
0860 e024 | $ | Load 0x0,0x24
0861 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0862 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0863 02c7 | | Declare_Variable Any
0864 00d8 | | Load_Top At_Offset_0
0865 1c00 | | Execute_Immediate Run_Utility,0x0
0866 BODY_0848:
0866 e024 | $ | Load 0x0,0x24
0867 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0868 e402 | | Load 0x2,0x2
0869 0120 | | Execute Any,Is_Value
086a 6804 |h | Jump_Zero 0x86f
086b e024 | $ | Load 0x0,0x24
086c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
086d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
086e 7801 |x | Jump 0x870
086f e402 | | Load 0x2,0x2
0870 e5ff | | Load 0x2,-0x1
0871 e024 | $ | Load 0x0,0x24
0872 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0873 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0874 c402 | | Store 0x2,0x2
0875 c403 | | Store 0x2,0x3
0876 e403 | | Load 0x2,0x3
0877 6802 |h | Jump_Zero 0x87a
0878 00ea | | Load_Encached Null_String_Cache
0879 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
087a e402 | | Load 0x2,0x2
087b e024 | $ | Load 0x0,0x24
087c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
087d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
087e c404 | | Store 0x2,0x4
087f e404 | | Load 0x2,0x4
0880 e024 | $ | Load 0x0,0x24
0881 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0882 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0883 c405 | | Store 0x2,0x5
0884 e024 | $ | Load 0x0,0x24
0885 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0886 00d9 | | Load_Top At_Offset_1
0887 0120 | | Execute Any,Is_Value
0888 6804 |h | Jump_Zero 0x88d
0889 e024 | $ | Load 0x0,0x24
088a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
088b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
088c 7801 |x | Jump 0x88e
088d 00d9 | | Load_Top At_Offset_1
088e e024 | $ | Load 0x0,0x24
088f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0890 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0891 6026 |`& | Indirect_Literal Discrete,0x8b8,{0x00000000, 0x00004000}
0892 4801 |H | Short_Literal 0x1
0893 4800 |H | Short_Literal 0x0
0894 4800 |H | Short_Literal 0x0
0895 e025 | % | Load 0x0,0x25
0896 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0897 4800 |H | Short_Literal 0x0
0898 e405 | | Load 0x2,0x5
0899 e024 | $ | Load 0x0,0x24
089a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
089b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
089c c406 | | Store 0x2,0x6
089d c408 | | Store 0x2,0x8
089e c403 | | Store 0x2,0x3
089f e403 | | Load 0x2,0x3
08a0 6802 |h | Jump_Zero 0x8a3
08a1 00ea | | Load_Encached Null_String_Cache
08a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a3 00da | | Load_Top At_Offset_2
08a4 4976 |Iv | Short_Literal 0x176
08a5 00eb | | Load_Encached Diana_Cache
08a6 0098 | | Execute Package,Field_Read_Dynamic
08a7 180f | | Execute Package,Field_Execute,Field_Number 0xf
08a8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08a9 00d9 | | Load_Top At_Offset_1
08aa 00eb | | Load_Encached Diana_Cache
08ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08ac 0f29 | ) | Execute_Immediate Equal,0x29
08ad 6806 |h | Jump_Zero 0x8b4
08ae 0092 14b1 | | Action Push_String_Extended,0x14b1 ; "; Library Name "
08b0 00da | | Load_Top At_Offset_2
08b1 8232 | 2 | Call 0x1,0x32
08b2 01cc | | Execute Vector,Catenate
08b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08b4 0831 | 1 | Execute_Immediate Raise,0x31
08b5 0000 0000 | | .XXX[0x3]
08b7 0000 | |
08b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
08bc 0000 0000 | | .BLANK 0000[0x4]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c9 | | .CONST 0x08c9 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0003 | | .CONST 0x0003 ; Number of locals
08c3 INIT_08c0:
08c3 00ec | | Load_Encached Diana_Tree_Cache
08c4 e012 | | Load 0x0,0x12
08c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c6 02c7 | | Declare_Variable Any
08c7 00d8 | | Load_Top At_Offset_0
08c8 1c00 | | Execute_Immediate Run_Utility,0x0
08c9 BODY_08c0:
08c9 00eb | | Load_Encached Diana_Cache
08ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08cb 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08cc 480a |H | Short_Literal 0xa
08cd 0092 14b2 | | Action Push_String_Extended,0x14b2 ; "Index N("
08cf 4820 |H | Short_Literal 0x20
08d0 4800 |H | Short_Literal 0x0
08d1 480a |H | Short_Literal 0xa
08d2 e5ff | | Load 0x2,-0x1
08d3 0227 | ' | Execute Access,All_Reference
08d4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
08d5 e022 | " | Load 0x0,0x22
08d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08d7 01cc | | Execute Vector,Catenate
08d8 0092 14b3 | | Action Push_String_Extended,0x14b3 ; "): "
08da 01cc | | Execute Vector,Catenate
08db 0092 14b4 | | Action Push_String_Extended,0x14b4 ; "Main Unit "
08dd 01cc | | Execute Vector,Catenate
08de e5ff | | Load 0x2,-0x1
08df 0227 | ' | Execute Access,All_Reference
08e0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
08e1 8232 | 2 | Call 0x1,0x32
08e2 01cc | | Execute Vector,Catenate
08e3 e5ff | | Load 0x2,-0x1
08e4 0227 | ' | Execute Access,All_Reference
08e5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08e6 8252 | R | Call 0x1,0x52
08e7 01cc | | Execute Vector,Catenate
08e8 01cb | | Execute Vector,Append
08e9 8227 | ' | Call 0x1,0x27
08ea 00d8 | | Load_Top At_Offset_0
08eb 4800 |H | Short_Literal 0x0
08ec e028 | ( | Load 0x0,0x28
08ed 4800 |H | Short_Literal 0x0
08ee 00eb | | Load_Encached Diana_Cache
08ef 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08f0 e029 | ) | Load 0x0,0x29
08f1 4820 |H | Short_Literal 0x20
08f2 e02a | * | Load 0x0,0x2a
08f3 e029 | ) | Load 0x0,0x29
08f4 4802 |H | Short_Literal 0x2
08f5 4802 |H | Short_Literal 0x2
08f6 4800 |H | Short_Literal 0x0
08f7 4800 |H | Short_Literal 0x0
08f8 e402 | | Load 0x2,0x2
08f9 e5ff | | Load 0x2,-0x1
08fa 0227 | ' | Execute Access,All_Reference
08fb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08fc e02b | + | Load 0x0,0x2b
08fd e02c | , | Load 0x0,0x2c
08fe a02d | - | Store_Unchecked 0x0,0x2d
08ff a02e | . | Store_Unchecked 0x0,0x2e
0900 a02f | / | Store_Unchecked 0x0,0x2f
0901 a030 | 0 | Store_Unchecked 0x0,0x30
0902 e031 | 1 | Load 0x0,0x31
0903 e032 | 2 | Load 0x0,0x32
0904 e033 | 3 | Load 0x0,0x33
0905 e034 | 4 | Load 0x0,0x34
0906 a035 | 5 | Store_Unchecked 0x0,0x35
0907 a036 | 6 | Store_Unchecked 0x0,0x36
0908 a037 | 7 | Store_Unchecked 0x0,0x37
0909 a038 | 8 | Store_Unchecked 0x0,0x38
090a a039 | 9 | Store_Unchecked 0x0,0x39
090b a03a | : | Store_Unchecked 0x0,0x3a
090c a03b | ; | Store_Unchecked 0x0,0x3b
090d a03c | < | Store_Unchecked 0x0,0x3c
090e a03d | = | Store_Unchecked 0x0,0x3d
090f a03e | > | Store_Unchecked 0x0,0x3e
0910 a03f | ? | Store_Unchecked 0x0,0x3f
0911 a040 | @ | Store_Unchecked 0x0,0x40
0912 a041 | A | Store_Unchecked 0x0,0x41
0913 a042 | B | Store_Unchecked 0x0,0x42
0914 a043 | C | Store_Unchecked 0x0,0x43
0915 a044 | D | Store_Unchecked 0x0,0x44
0916 a045 | E | Store_Unchecked 0x0,0x45
0917 a046 | F | Store_Unchecked 0x0,0x46
0918 8047 | G | Call 0x0,0x47
0919 c403 | | Store 0x2,0x3
091a 8228 | ( | Call 0x1,0x28
091b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
091c 0000 0000 | | .BLANK 0000[0x4]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0929 | ) | .CONST 0x0929 ; Address of begin
0921 0004 | | .CONST 0x0004 ; Address of exception handler
0922 0004 | | .CONST 0x0004 ; Number of locals
0923 INIT_0920:
0923 e21f | | Load 0x1,0x1f
0924 0007 | | Action Break_Optional
0925 00e1 | | Load_Encached Boolean_Cache
0926 e5fe | | Load 0x2,-0x2
0927 00e3 | | Load_Encached Natural_Cache
0928 03f1 | | Declare_Variable Discrete,With_Value
0929 BODY_0920:
0929 480a |H | Short_Literal 0xa
092a 482e |H. | Short_Literal 0x2e
092b 0092 14b5 | | Action Push_String_Extended,0x14b5 ; "There are several library units named "
092d e5fd | | Load 0x2,-0x3
092e e022 | " | Load 0x0,0x22
092f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0930 01cc | | Execute Vector,Catenate
0931 01cb | | Execute Vector,Append
0932 01cb | | Execute Vector,Append
0933 8227 | ' | Call 0x1,0x27
0934 e5ff | | Load 0x2,-0x1
0935 01db | | Execute Vector,Length
0936 0c01 | | Execute_Immediate Greater_Equal,0x1
0937 6803 |h | Jump_Zero 0x93b
0938 0092 14b6 | | Action Push_String_Extended,0x14b6 ; "The qualifier specified did not resolve this overload.\x0a"
093a 8227 | ' | Call 0x1,0x27
093b 480a |H | Short_Literal 0xa
093c 480a |H | Short_Literal 0xa
093d 0092 14b7 | | Action Push_String_Extended,0x14b7 ; "When you ask for it again, please choose one by appending to "
093f e5fd | | Load 0x2,-0x3
0940 e022 | " | Load 0x0,0x22
0941 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0942 01cc | | Execute Vector,Catenate
0943 01cb | | Execute Vector,Append
0944 0092 14b8 | | Action Push_String_Extended,0x14b8 ; "a single quote followed by an index, as follows:"
0946 01cc | | Execute Vector,Catenate
0947 01cb | | Execute Vector,Append
0948 8227 | ' | Call 0x1,0x27
0949 8228 | ( | Call 0x1,0x28
094a 00cf | | Action Mark_Auxiliary
094b 7813 |x | Jump 0x95f
094c 00e1 | | Load_Encached Boolean_Cache
094d e402 | | Load 0x2,0x2
094e 00db | | Load_Top At_Offset_3
094f e5fc | | Load 0x2,-0x4
0950 0227 | ' | Execute Access,All_Reference
0951 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0952 e223 | # | Load 0x1,0x23
0953 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0954 c402 | | Store 0x2,0x2
0955 005b | [ | Store_Top Discrete,At_Offset_3
0956 00da | | Load_Top At_Offset_2
0957 6802 |h | Jump_Zero 0x95a
0958 00db | | Load_Top At_Offset_3
0959 8253 | S | Call 0x1,0x53
095a 00db | | Load_Top At_Offset_3
095b 0227 | ' | Execute Access,All_Reference
095c 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
095d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
095e 00c9 | | Action Pop_Auxiliary_Loop
095f 00d9 | | Load_Top At_Offset_1
0960 77eb |w | Jump_Nonzero 0x94c
0961 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0962 0000 0000 | | .BLANK 0000[0x6]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096b | k | .CONST 0x096b ; Address of begin
0969 0004 | | .CONST 0x0004 ; Address of exception handler
096a 0001 | | .CONST 0x0001 ; Number of locals
096b BODY_0968:
096b INIT_0968:
096b e5fd | | Load 0x2,-0x3
096c e5fe | | Load 0x2,-0x2
096d e220 | | Load 0x1,0x20
096e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
096f c5fd | | Store 0x2,-0x3
0970 e5fc | | Load 0x2,-0x4
0971 0229 | ) | Execute Access,All_Read
0972 00d8 | | Load_Top At_Offset_0
0973 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0974 4800 |H | Short_Literal 0x0
0975 e5fd | | Load 0x2,-0x3
0976 e5ff | | Load 0x2,-0x1
0977 e022 | " | Load 0x0,0x22
0978 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0979 e221 | ! | Load 0x1,0x21
097a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
097b 00d9 | | Load_Top At_Offset_1
097c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
097d 00d1 | | Pop_Control Pop_Count_1
097e e5fc | | Load 0x2,-0x4
097f 0229 | ) | Execute Access,All_Read
0980 00d8 | | Load_Top At_Offset_0
0981 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0982 4801 |H | Short_Literal 0x1
0983 e5fe | | Load 0x2,-0x2
0984 e5fc | | Load 0x2,-0x4
0985 0227 | ' | Execute Access,All_Reference
0986 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0987 e223 | # | Load 0x1,0x23
0988 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0989 00d9 | | Load_Top At_Offset_1
098a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
098b 00d1 | | Pop_Control Pop_Count_1
098c e5fc | | Load 0x2,-0x4
098d 0227 | ' | Execute Access,All_Reference
098e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
098f 0a01 | | Execute_Immediate Plus,0x1
0990 e5fc | | Load 0x2,-0x4
0991 0227 | ' | Execute Access,All_Reference
0992 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0993 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0994 0000 0000 | | .BLANK 0000[0x4]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 099b | | .CONST 0x099b ; Address of begin
0999 09ae | | .CONST 0x09ae ; Address of exception handler
099a 0001 | | .CONST 0x0001 ; Number of locals
099b BODY_0998:
099b INIT_0998:
099b 00da | | Load_Top At_Offset_2
099c e004 | | Load 0x0,0x4
099d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
099e 012e | . | Execute Any,Not_Equal
099f 680b |h | Jump_Zero 0x9ab
09a0 00da | | Load_Top At_Offset_2
09a1 e048 | H | Load 0x0,0x48
09a2 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
09a3 e5ff | | Load 0x2,-0x1
09a4 e004 | | Load 0x0,0x4
09a5 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
09a6 e048 | H | Load 0x0,0x48
09a7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
09a8 e004 | | Load 0x0,0x4
09a9 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
09aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09ab e004 | | Load 0x0,0x4
09ac 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09ae TRAP_0998:
09ae 0007 | | Action Break_Optional
09af e004 | | Load 0x0,0x4
09b0 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09b2 0000 0000 | | .BLANK 0000[0x6]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb | | .CONST 0x09bb ; Address of begin
09b9 0004 | | .CONST 0x0004 ; Address of exception handler
09ba 0001 | | .CONST 0x0001 ; Number of locals
09bb BODY_09b8:
09bb INIT_09b8:
09bb 00da | | Load_Top At_Offset_2
09bc 0227 | ' | Execute Access,All_Reference
09bd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
09be e5fe | | Load 0x2,-0x2
09bf 0227 | ' | Execute Access,All_Reference
09c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
09c1 00da | | Load_Top At_Offset_2
09c2 0227 | ' | Execute Access,All_Reference
09c3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
09c4 e5fe | | Load 0x2,-0x2
09c5 0227 | ' | Execute Access,All_Reference
09c6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
09c7 00da | | Load_Top At_Offset_2
09c8 0227 | ' | Execute Access,All_Reference
09c9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
09ca e5fe | | Load 0x2,-0x2
09cb 0227 | ' | Execute Access,All_Reference
09cc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
09cd 00da | | Load_Top At_Offset_2
09ce 0227 | ' | Execute Access,All_Reference
09cf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
09d0 e5fe | | Load 0x2,-0x2
09d1 0227 | ' | Execute Access,All_Reference
09d2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
09d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09d4 0000 0000 | | .BLANK 0000[0x4]
09d8 ; --------------------------------------------------------------------------------------
09d8 ; SUBPROGRAM
09d8 ; --------------------------------------------------------------------------------------
09d8 09db | | .CONST 0x09db ; Address of begin
09d9 0004 | | .CONST 0x0004 ; Address of exception handler
09da 0001 | | .CONST 0x0001 ; Number of locals
09db BODY_09d8:
09db INIT_09d8:
09db 00da | | Load_Top At_Offset_2
09dc 0f00 | | Execute_Immediate Equal,0x0
09dd e5fe | | Load 0x2,-0x2
09de e004 | | Load 0x0,0x4
09df 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09e0 012f | / | Execute Any,Equal
09e1 0279 | y | Execute Discrete,And
09e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
09e3 0000 0000 | | .BLANK 0000[0x5]
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 00db | | Load_Top At_Offset_3
09ec 00db | | Load_Top At_Offset_3
09ed 8258 | X | Call 0x1,0x58
09ee 0f00 | | Execute_Immediate Equal,0x0
09ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
09f0 ; --------------------------------------------------------------------------------------
09f0 ; SUBPROGRAM
09f0 ; --------------------------------------------------------------------------------------
09f0 09f3 | | .CONST 0x09f3 ; Address of begin
09f1 0004 | | .CONST 0x0004 ; Address of exception handler
09f2 0001 | | .CONST 0x0001 ; Number of locals
09f3 BODY_09f0:
09f3 INIT_09f0:
09f3 00da | | Load_Top At_Offset_2
09f4 6808 |h | Jump_Zero 0x9fd
09f5 00da | | Load_Top At_Offset_2
09f6 0227 | ' | Execute Access,All_Reference
09f7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
09f8 00db | | Load_Top At_Offset_3
09f9 0227 | ' | Execute Access,All_Reference
09fa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
09fb 8258 | X | Call 0x1,0x58
09fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09fd 4801 |H | Short_Literal 0x1
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 00da | | Load_Top At_Offset_2
0a04 825a | Z | Call 0x1,0x5a
0a05 0f00 | | Execute_Immediate Equal,0x0
0a06 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a07 0000 | | .XXX[0x1]
0a08 ; --------------------------------------------------------------------------------------
0a08 ; SUBPROGRAM
0a08 ; --------------------------------------------------------------------------------------
0a08 0a0b | | .CONST 0x0a0b ; Address of begin
0a09 0004 | | .CONST 0x0004 ; Address of exception handler
0a0a 0001 | | .CONST 0x0001 ; Number of locals
0a0b BODY_0a08:
0a0b INIT_0a08:
0a0b 00db | | Load_Top At_Offset_3
0a0c 00db | | Load_Top At_Offset_3
0a0d 8258 | X | Call 0x1,0x58
0a0e 701c |p | Jump_Nonzero 0xa2b
0a0f 00da | | Load_Top At_Offset_2
0a10 e5fc | | Load 0x2,-0x4
0a11 0227 | ' | Execute Access,All_Reference
0a12 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a13 027f | | Execute Discrete,Equal
0a14 6814 |h | Jump_Zero 0xa29
0a15 00db | | Load_Top At_Offset_3
0a16 e5fc | | Load 0x2,-0x4
0a17 0227 | ' | Execute Access,All_Reference
0a18 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a19 012f | / | Execute Any,Equal
0a1a 7006 |p | Jump_Nonzero 0xa21
0a1b 00db | | Load_Top At_Offset_3
0a1c e5fc | | Load 0x2,-0x4
0a1d 0227 | ' | Execute Access,All_Reference
0a1e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0a1f 012f | / | Execute Any,Equal
0a20 6806 |h | Jump_Zero 0xa27
0a21 e5fd | | Load 0x2,-0x3
0a22 e5fc | | Load 0x2,-0x4
0a23 0227 | ' | Execute Access,All_Reference
0a24 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a25 027f | | Execute Discrete,Equal
0a26 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a27 4800 |H | Short_Literal 0x0
0a28 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a29 4800 |H | Short_Literal 0x0
0a2a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a2b 4801 |H | Short_Literal 0x1
0a2c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a2d 0000 0000 | | .XXX[0x3]
0a2f 0000 | |
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a33 | 3 | .CONST 0x0a33 ; Address of begin
0a31 0004 | | .CONST 0x0004 ; Address of exception handler
0a32 0001 | | .CONST 0x0001 ; Number of locals
0a33 BODY_0a30:
0a33 INIT_0a30:
0a33 00db | | Load_Top At_Offset_3
0a34 00db | | Load_Top At_Offset_3
0a35 0227 | ' | Execute Access,All_Reference
0a36 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a37 00d8 | | Load_Top At_Offset_0
0a38 00e3 | | Load_Encached Natural_Cache
0a39 0260 | ` | Execute Discrete,In_Type
0a3a 7001 |p | Jump_Nonzero 0xa3c
0a3b 0801 | | Execute_Immediate Raise,0x1
0a3c e5ff | | Load 0x2,-0x1
0a3d 0227 | ' | Execute Access,All_Reference
0a3e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a3f e5ff | | Load 0x2,-0x1
0a40 0227 | ' | Execute Access,All_Reference
0a41 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a42 825c | \ | Call 0x1,0x5c
0a43 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a44 0000 0000 | | .BLANK 0000[0x4]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a4b | K | .CONST 0x0a4b ; Address of begin
0a49 0004 | | .CONST 0x0004 ; Address of exception handler
0a4a 0001 | | .CONST 0x0001 ; Number of locals
0a4b BODY_0a48:
0a4b INIT_0a48:
0a4b 00da | | Load_Top At_Offset_2
0a4c 6808 |h | Jump_Zero 0xa55
0a4d 00da | | Load_Top At_Offset_2
0a4e 0227 | ' | Execute Access,All_Reference
0a4f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a50 e5fe | | Load 0x2,-0x2
0a51 0227 | ' | Execute Access,All_Reference
0a52 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a53 027f | | Execute Discrete,Equal
0a54 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a55 4801 |H | Short_Literal 0x1
0a56 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a57 0000 | | .XXX[0x1]
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin
0a59 0004 | | .CONST 0x0004 ; Address of exception handler
0a5a 0001 | | .CONST 0x0001 ; Number of locals
0a5b BODY_0a58:
0a5b INIT_0a58:
0a5b e5fc | | Load 0x2,-0x4
0a5c 0227 | ' | Execute Access,All_Reference
0a5d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a5e 00db | | Load_Top At_Offset_3
0a5f 8242 | B | Call 0x1,0x42
0a60 6817 |h | Jump_Zero 0xa78
0a61 e5fc | | Load 0x2,-0x4
0a62 0227 | ' | Execute Access,All_Reference
0a63 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0a64 e5fe | | Load 0x2,-0x2
0a65 8242 | B | Call 0x1,0x42
0a66 680f |h | Jump_Zero 0xa76
0a67 e5fc | | Load 0x2,-0x4
0a68 e5fd | | Load 0x2,-0x3
0a69 825e | ^ | Call 0x1,0x5e
0a6a 6809 |h | Jump_Zero 0xa74
0a6b e5fd | | Load 0x2,-0x3
0a6c 825a | Z | Call 0x1,0x5a
0a6d 7004 |p | Jump_Nonzero 0xa72
0a6e e5fc | | Load 0x2,-0x4
0a6f e5fd | | Load 0x2,-0x3
0a70 825d | ] | Call 0x1,0x5d
0a71 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a72 4801 |H | Short_Literal 0x1
0a73 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a74 4800 |H | Short_Literal 0x0
0a75 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a76 4800 |H | Short_Literal 0x0
0a77 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a78 4800 |H | Short_Literal 0x0
0a79 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a7a 0000 0000 | | .BLANK 0000[0x6]
0a80 ; --------------------------------------------------------------------------------------
0a80 ; SUBPROGRAM
0a80 ; --------------------------------------------------------------------------------------
0a80 0a83 | | .CONST 0x0a83 ; Address of begin
0a81 0004 | | .CONST 0x0004 ; Address of exception handler
0a82 0001 | | .CONST 0x0001 ; Number of locals
0a83 BODY_0a80:
0a83 INIT_0a80:
0a83 e5fc | | Load 0x2,-0x4
0a84 0227 | ' | Execute Access,All_Reference
0a85 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a86 00db | | Load_Top At_Offset_3
0a87 8242 | B | Call 0x1,0x42
0a88 6811 |h | Jump_Zero 0xa9a
0a89 e5fc | | Load 0x2,-0x4
0a8a 0227 | ' | Execute Access,All_Reference
0a8b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0a8c e5fe | | Load 0x2,-0x2
0a8d 8242 | B | Call 0x1,0x42
0a8e 6809 |h | Jump_Zero 0xa98
0a8f e5fc | | Load 0x2,-0x4
0a90 e5fd | | Load 0x2,-0x3
0a91 825e | ^ | Call 0x1,0x5e
0a92 6803 |h | Jump_Zero 0xa96
0a93 e5fc | | Load 0x2,-0x4
0a94 825a | Z | Call 0x1,0x5a
0a95 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a96 4800 |H | Short_Literal 0x0
0a97 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a98 4800 |H | Short_Literal 0x0
0a99 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a9a 4800 |H | Short_Literal 0x0
0a9b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a9c 0000 0000 | | .BLANK 0000[0x4]
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; SUBPROGRAM
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0aa9 | | .CONST 0x0aa9 ; Address of begin
0aa1 0004 | | .CONST 0x0004 ; Address of exception handler
0aa2 0005 | | .CONST 0x0005 ; Number of locals
0aa3 INIT_0aa0:
0aa3 00ec | | Load_Encached Diana_Tree_Cache
0aa4 00ec | | Load_Encached Diana_Tree_Cache
0aa5 e220 | | Load 0x1,0x20
0aa6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0aa7 e21f | | Load 0x1,0x1f
0aa8 0007 | | Action Break_Optional
0aa9 BODY_0aa0:
0aa9 e5fd | | Load 0x2,-0x3
0aaa 6806 |h | Jump_Zero 0xab1
0aab e5fd | | Load 0x2,-0x3
0aac 0227 | ' | Execute Access,All_Reference
0aad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0aae 00eb | | Load_Encached Diana_Cache
0aaf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ab0 6806 |h | Jump_Zero 0xab7
0ab1 e5fe | | Load 0x2,-0x2
0ab2 a402 | | Store_Unchecked 0x2,0x2
0ab3 00eb | | Load_Encached Diana_Cache
0ab4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ab5 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0ab6 7809 |x | Jump 0xac0
0ab7 e5fd | | Load 0x2,-0x3
0ab8 0227 | ' | Execute Access,All_Reference
0ab9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0aba 823b | ; | Call 0x1,0x3b
0abb a402 | | Store_Unchecked 0x2,0x2
0abc e5fd | | Load 0x2,-0x3
0abd 0227 | ' | Execute Access,All_Reference
0abe 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0abf 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0ac0 e220 | | Load 0x1,0x20
0ac1 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0ac2 e5ff | | Load 0x2,-0x1
0ac3 e220 | | Load 0x1,0x20
0ac4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ac5 003a | : | Store_Top Access,At_Offset_2
0ac6 00cf | | Action Mark_Auxiliary
0ac7 7811 |x | Jump 0xad9
0ac8 00da | | Load_Top At_Offset_2
0ac9 e220 | | Load 0x1,0x20
0aca 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0acb 003a | : | Store_Top Access,At_Offset_2
0acc 00d9 | | Load_Top At_Offset_1
0acd e5fd | | Load 0x2,-0x3
0ace e403 | | Load 0x2,0x3
0acf e402 | | Load 0x2,0x2
0ad0 825f | _ | Call 0x1,0x5f
0ad1 6802 |h | Jump_Zero 0xad4
0ad2 4801 |H | Short_Literal 0x1
0ad3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0ad4 00da | | Load_Top At_Offset_2
0ad5 e220 | | Load 0x1,0x20
0ad6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0ad7 003b | ; | Store_Top Access,At_Offset_3
0ad8 00c9 | | Action Pop_Auxiliary_Loop
0ad9 00da | | Load_Top At_Offset_2
0ada e220 | | Load 0x1,0x20
0adb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0adc 6feb |o | Jump_Zero 0xac8
0add 00ce | | Action Pop_Auxiliary
0ade 4800 |H | Short_Literal 0x0
0adf 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae8 | | .CONST 0x0ae8 ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0004 | | .CONST 0x0004 ; Number of locals
0ae3 INIT_0ae0:
0ae3 00ec | | Load_Encached Diana_Tree_Cache
0ae4 e220 | | Load 0x1,0x20
0ae5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0ae6 e21f | | Load 0x1,0x1f
0ae7 0007 | | Action Break_Optional
0ae8 BODY_0ae0:
0ae8 e5fe | | Load 0x2,-0x2
0ae9 0227 | ' | Execute Access,All_Reference
0aea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0aeb 823b | ; | Call 0x1,0x3b
0aec 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0aed e220 | | Load 0x1,0x20
0aee 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0aef e5ff | | Load 0x2,-0x1
0af0 e220 | | Load 0x1,0x20
0af1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0af2 003a | : | Store_Top Access,At_Offset_2
0af3 00cf | | Action Mark_Auxiliary
0af4 7815 |x | Jump 0xb0a
0af5 00da | | Load_Top At_Offset_2
0af6 e220 | | Load 0x1,0x20
0af7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0af8 003a | : | Store_Top Access,At_Offset_2
0af9 00d9 | | Load_Top At_Offset_1
0afa e5fe | | Load 0x2,-0x2
0afb 022e | . | Execute Access,Not_Equal
0afc 6808 |h | Jump_Zero 0xb05
0afd 00d9 | | Load_Top At_Offset_1
0afe 0227 | ' | Execute Access,All_Reference
0aff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b00 e402 | | Load 0x2,0x2
0b01 8242 | B | Call 0x1,0x42
0b02 6802 |h | Jump_Zero 0xb05
0b03 4801 |H | Short_Literal 0x1
0b04 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b05 00da | | Load_Top At_Offset_2
0b06 e220 | | Load 0x1,0x20
0b07 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b08 003b | ; | Store_Top Access,At_Offset_3
0b09 00c9 | | Action Pop_Auxiliary_Loop
0b0a 00da | | Load_Top At_Offset_2
0b0b e220 | | Load 0x1,0x20
0b0c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b0d 6fe7 |o | Jump_Zero 0xaf5
0b0e 00ce | | Action Pop_Auxiliary
0b0f 4800 |H | Short_Literal 0x0
0b10 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b11 0000 0000 | | .BLANK 0000[0x7]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b21 | ! | .CONST 0x0b21 ; Address of begin
0b19 0004 | | .CONST 0x0004 ; Address of exception handler
0b1a 0005 | | .CONST 0x0005 ; Number of locals
0b1b INIT_0b18:
0b1b 00ec | | Load_Encached Diana_Tree_Cache
0b1c e220 | | Load 0x1,0x20
0b1d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b1e e21f | | Load 0x1,0x1f
0b1f 0007 | | Action Break_Optional
0b20 00ec | | Load_Encached Diana_Tree_Cache
0b21 BODY_0b18:
0b21 e5fe | | Load 0x2,-0x2
0b22 0227 | ' | Execute Access,All_Reference
0b23 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b24 823b | ; | Call 0x1,0x3b
0b25 a402 | | Store_Unchecked 0x2,0x2
0b26 e5fe | | Load 0x2,-0x2
0b27 0227 | ' | Execute Access,All_Reference
0b28 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0b29 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0b2a e220 | | Load 0x1,0x20
0b2b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b2c e5ff | | Load 0x2,-0x1
0b2d e220 | | Load 0x1,0x20
0b2e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0b2f 003b | ; | Store_Top Access,At_Offset_3
0b30 00cf | | Action Mark_Auxiliary
0b31 7814 |x | Jump 0xb46
0b32 00db | | Load_Top At_Offset_3
0b33 e220 | | Load 0x1,0x20
0b34 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b35 003b | ; | Store_Top Access,At_Offset_3
0b36 00da | | Load_Top At_Offset_2
0b37 e5fe | | Load 0x2,-0x2
0b38 00db | | Load_Top At_Offset_3
0b39 e402 | | Load 0x2,0x2
0b3a 8260 | ` | Call 0x1,0x60
0b3b 6805 |h | Jump_Zero 0xb41
0b3c 4801 |H | Short_Literal 0x1
0b3d a5fc | | Store_Unchecked 0x2,-0x4
0b3e 00da | | Load_Top At_Offset_2
0b3f a5fd | | Store_Unchecked 0x2,-0x3
0b40 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b41 00db | | Load_Top At_Offset_3
0b42 e220 | | Load 0x1,0x20
0b43 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b44 c403 | | Store 0x2,0x3
0b45 00c9 | | Action Pop_Auxiliary_Loop
0b46 00db | | Load_Top At_Offset_3
0b47 e220 | | Load 0x1,0x20
0b48 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b49 6fe8 |o | Jump_Zero 0xb32
0b4a 00ce | | Action Pop_Auxiliary
0b4b e21f | | Load 0x1,0x1f
0b4c a5fd | | Store_Unchecked 0x2,-0x3
0b4d 4800 |H | Short_Literal 0x0
0b4e a5fc | | Store_Unchecked 0x2,-0x4
0b4f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b50 ; --------------------------------------------------------------------------------------
0b50 ; SUBPROGRAM
0b50 ; --------------------------------------------------------------------------------------
0b50 0b5b | [ | .CONST 0x0b5b ; Address of begin
0b51 0004 | | .CONST 0x0004 ; Address of exception handler
0b52 0006 | | .CONST 0x0006 ; Number of locals
0b53 INIT_0b50:
0b53 e220 | | Load 0x1,0x20
0b54 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0b55 e21f | | Load 0x1,0x1f
0b56 0007 | | Action Break_Optional
0b57 00e1 | | Load_Encached Boolean_Cache
0b58 03e9 | | Declare_Variable Discrete,Duplicate
0b59 e220 | | Load 0x1,0x20
0b5a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b5b BODY_0b50:
0b5b e21f | | Load 0x1,0x1f
0b5c a5f7 | | Store_Unchecked 0x2,-0x9
0b5d e402 | | Load 0x2,0x2
0b5e e220 | | Load 0x1,0x20
0b5f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b60 c402 | | Store 0x2,0x2
0b61 e402 | | Load 0x2,0x2
0b62 a5f8 | | Store_Unchecked 0x2,-0x8
0b63 00e1 | | Load_Encached Boolean_Cache
0b64 e402 | | Load 0x2,0x2
0b65 e5fd | | Load 0x2,-0x3
0b66 8233 | 3 | Call 0x1,0x33
0b67 e5ff | | Load 0x2,-0x1
0b68 0227 | ' | Execute Access,All_Reference
0b69 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b6a e221 | ! | Load 0x1,0x21
0b6b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b6c c402 | | Store 0x2,0x2
0b6d 005b | [ | Store_Top Discrete,At_Offset_3
0b6e 00da | | Load_Top At_Offset_2
0b6f 683b |h; | Jump_Zero 0xbab
0b70 e402 | | Load 0x2,0x2
0b71 e220 | | Load 0x1,0x20
0b72 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b73 7037 |p7 | Jump_Nonzero 0xbab
0b74 e402 | | Load 0x2,0x2
0b75 a5f8 | | Store_Unchecked 0x2,-0x8
0b76 e220 | | Load 0x1,0x20
0b77 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b78 e402 | | Load 0x2,0x2
0b79 e220 | | Load 0x1,0x20
0b7a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0b7b 0039 | 9 | Store_Top Access,At_Offset_1
0b7c 4800 |H | Short_Literal 0x0
0b7d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0b7e 00cf | | Action Mark_Auxiliary
0b7f 7824 |x$ | Jump 0xba4
0b80 00d9 | | Load_Top At_Offset_1
0b81 e220 | | Load 0x1,0x20
0b82 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b83 a403 | | Store_Unchecked 0x2,0x3
0b84 e403 | | Load 0x2,0x3
0b85 0227 | ' | Execute Access,All_Reference
0b86 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b87 e5fe | | Load 0x2,-0x2
0b88 8242 | B | Call 0x1,0x42
0b89 6815 |h | Jump_Zero 0xb9f
0b8a e403 | | Load 0x2,0x3
0b8b 0227 | ' | Execute Access,All_Reference
0b8c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0b8d e5fc | | Load 0x2,-0x4
0b8e 8242 | B | Call 0x1,0x42
0b8f 680f |h | Jump_Zero 0xb9f
0b90 e5f9 | | Load 0x2,-0x7
0b91 e5fb | | Load 0x2,-0x5
0b92 8258 | X | Call 0x1,0x58
0b93 7006 |p | Jump_Nonzero 0xb9a
0b94 e403 | | Load 0x2,0x3
0b95 e5fa | | Load 0x2,-0x6
0b96 e5f9 | | Load 0x2,-0x7
0b97 e5fb | | Load 0x2,-0x5
0b98 825c | \ | Call 0x1,0x5c
0b99 6805 |h | Jump_Zero 0xb9f
0b9a 4801 |H | Short_Literal 0x1
0b9b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0b9c e403 | | Load 0x2,0x3
0b9d a5f7 | | Store_Unchecked 0x2,-0x9
0b9e 7804 |x | Jump 0xba3
0b9f 00d9 | | Load_Top At_Offset_1
0ba0 e220 | | Load 0x1,0x20
0ba1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0ba2 003a | : | Store_Top Access,At_Offset_2
0ba3 00c9 | | Action Pop_Auxiliary_Loop
0ba4 00d9 | | Load_Top At_Offset_1
0ba5 e220 | | Load 0x1,0x20
0ba6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0ba7 7002 |p | Jump_Nonzero 0xbaa
0ba8 00da | | Load_Top At_Offset_2
0ba9 6fd6 |o | Jump_Zero 0xb80
0baa 00ce | | Action Pop_Auxiliary
0bab 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0bac 0000 0000 | | .BLANK 0000[0x4]
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; SUBPROGRAM
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0bb6 | | .CONST 0x0bb6 ; Address of begin
0bb1 0004 | | .CONST 0x0004 ; Address of exception handler
0bb2 0003 | | .CONST 0x0003 ; Number of locals
0bb3 INIT_0bb0:
0bb3 00e1 | | Load_Encached Boolean_Cache
0bb4 e21f | | Load 0x1,0x1f
0bb5 0007 | | Action Break_Optional
0bb6 BODY_0bb0:
0bb6 e5fe | | Load 0x2,-0x2
0bb7 00d8 | | Load_Top At_Offset_0
0bb8 0227 | ' | Execute Access,All_Reference
0bb9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bba e5fd | | Load 0x2,-0x3
0bbb 8261 | a | Call 0x1,0x61
0bbc 6801 |h | Jump_Zero 0xbbe
0bbd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bbe 00e1 | | Load_Encached Boolean_Cache
0bbf e21f | | Load 0x1,0x1f
0bc0 e5fe | | Load 0x2,-0x2
0bc1 e5fd | | Load 0x2,-0x3
0bc2 8263 | c | Call 0x1,0x63
0bc3 003a | : | Store_Top Access,At_Offset_2
0bc4 005a | Z | Store_Top Discrete,At_Offset_2
0bc5 00d9 | | Load_Top At_Offset_1
0bc6 6804 |h | Jump_Zero 0xbcb
0bc7 00d8 | | Load_Top At_Offset_0
0bc8 e5fe | | Load 0x2,-0x2
0bc9 8257 | W | Call 0x1,0x57
0bca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bcb e5fc | | Load 0x2,-0x4
0bcc e5fd | | Load 0x2,-0x3
0bcd e5fe | | Load 0x2,-0x2
0bce e5ff | | Load 0x2,-0x1
0bcf 8255 | U | Call 0x1,0x55
0bd0 c5fd | | Store 0x2,-0x3
0bd1 c5fc | | Store 0x2,-0x4
0bd2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bd3 0000 0000 | | .BLANK 0000[0x5]
0bd8 ; --------------------------------------------------------------------------------------
0bd8 ; SUBPROGRAM
0bd8 ; --------------------------------------------------------------------------------------
0bd8 0be0 | | .CONST 0x0be0 ; Address of begin
0bd9 0004 | | .CONST 0x0004 ; Address of exception handler
0bda 0004 | | .CONST 0x0004 ; Number of locals
0bdb INIT_0bd8:
0bdb e220 | | Load 0x1,0x20
0bdc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0bdd 00e1 | | Load_Encached Boolean_Cache
0bde e5fe | | Load 0x2,-0x2
0bdf 0007 | | Action Break_Optional
0be0 BODY_0bd8:
0be0 00e1 | | Load_Encached Boolean_Cache
0be1 00db | | Load_Top At_Offset_3
0be2 e5ff | | Load 0x2,-0x1
0be3 e022 | " | Load 0x0,0x22
0be4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0be5 e5fd | | Load 0x2,-0x3
0be6 0227 | ' | Execute Access,All_Reference
0be7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0be8 e221 | ! | Load 0x1,0x21
0be9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0bea c402 | | Store 0x2,0x2
0beb 005a | Z | Store_Top Discrete,At_Offset_2
0bec 00d9 | | Load_Top At_Offset_1
0bed 700d |p | Jump_Nonzero 0xbfb
0bee e220 | | Load 0x1,0x20
0bef 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0bf0 e220 | | Load 0x1,0x20
0bf1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0bf2 003b | ; | Store_Top Access,At_Offset_3
0bf3 e5fd | | Load 0x2,-0x3
0bf4 00db | | Load_Top At_Offset_3
0bf5 00da | | Load_Top At_Offset_2
0bf6 e5ff | | Load 0x2,-0x1
0bf7 8255 | U | Call 0x1,0x55
0bf8 c402 | | Store 0x2,0x2
0bf9 c5fd | | Store 0x2,-0x3
0bfa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bfb 00da | | Load_Top At_Offset_2
0bfc e220 | | Load 0x1,0x20
0bfd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0bfe 6808 |h | Jump_Zero 0xc07
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 8255 | U | Call 0x1,0x55
0c04 c402 | | Store 0x2,0x2
0c05 c5fd | | Store 0x2,-0x3
0c06 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c07 e5fd | | Load 0x2,-0x3
0c08 00db | | Load_Top At_Offset_3
0c09 00da | | Load_Top At_Offset_2
0c0a e5ff | | Load 0x2,-0x1
0c0b 8265 | e | Call 0x1,0x65
0c0c c402 | | Store 0x2,0x2
0c0d c5fd | | Store 0x2,-0x3
0c0e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c0f 0000 | | .XXX[0x1]
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c17 | | .CONST 0x0c17 ; Address of begin
0c11 0004 | | .CONST 0x0004 ; Address of exception handler
0c12 0003 | | .CONST 0x0003 ; Number of locals
0c13 INIT_0c10:
0c13 e220 | | Load 0x1,0x20
0c14 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c15 e21f | | Load 0x1,0x1f
0c16 0007 | | Action Break_Optional
0c17 BODY_0c10:
0c17 e21f | | Load 0x1,0x1f
0c18 e220 | | Load 0x1,0x20
0c19 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c1a e5fa | | Load 0x2,-0x6
0c1b e5fb | | Load 0x2,-0x5
0c1c e5fc | | Load 0x2,-0x4
0c1d e5fd | | Load 0x2,-0x3
0c1e e5fe | | Load 0x2,-0x2
0c1f e5ff | | Load 0x2,-0x1
0c20 e5f9 | | Load 0x2,-0x7
0c21 8264 | d | Call 0x1,0x64
0c22 003b | ; | Store_Top Access,At_Offset_3
0c23 0039 | 9 | Store_Top Access,At_Offset_1
0c24 00d8 | | Load_Top At_Offset_0
0c25 683b |h; | Jump_Zero 0xc61
0c26 00d8 | | Load_Top At_Offset_0
0c27 0227 | ' | Execute Access,All_Reference
0c28 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c29 0f02 | | Execute_Immediate Equal,0x2
0c2a 00d9 | | Load_Top At_Offset_1
0c2b 00db | | Load_Top At_Offset_3
0c2c 8262 | b | Call 0x1,0x62
0c2d 0f00 | | Execute_Immediate Equal,0x0
0c2e 0278 | x | Execute Discrete,Or
0c2f 6813 |h | Jump_Zero 0xc43
0c30 e004 | | Load 0x0,0x4
0c31 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0c32 00d9 | | Load_Top At_Offset_1
0c33 0227 | ' | Execute Access,All_Reference
0c34 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c35 e004 | | Load 0x0,0x4
0c36 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0c37 00d9 | | Load_Top At_Offset_1
0c38 0227 | ' | Execute Access,All_Reference
0c39 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0c3a 4800 |H | Short_Literal 0x0
0c3b 00d9 | | Load_Top At_Offset_1
0c3c 0227 | ' | Execute Access,All_Reference
0c3d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c3e 4800 |H | Short_Literal 0x0
0c3f 00d9 | | Load_Top At_Offset_1
0c40 0227 | ' | Execute Access,All_Reference
0c41 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c42 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0c43 00d9 | | Load_Top At_Offset_1
0c44 00d9 | | Load_Top At_Offset_1
0c45 e220 | | Load 0x1,0x20
0c46 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c47 003a | : | Store_Top Access,At_Offset_2
0c48 e5f9 | | Load 0x2,-0x7
0c49 0229 | ) | Execute Access,All_Read
0c4a 00d8 | | Load_Top At_Offset_0
0c4b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c4c 4800 |H | Short_Literal 0x0
0c4d e402 | | Load 0x2,0x2
0c4e e5fe | | Load 0x2,-0x2
0c4f 8233 | 3 | Call 0x1,0x33
0c50 e221 | ! | Load 0x1,0x21
0c51 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0c52 00d9 | | Load_Top At_Offset_1
0c53 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c54 00d1 | | Pop_Control Pop_Count_1
0c55 e5f9 | | Load 0x2,-0x7
0c56 0229 | ) | Execute Access,All_Read
0c57 00d8 | | Load_Top At_Offset_0
0c58 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0c59 00da | | Load_Top At_Offset_2
0c5a 0227 | ' | Execute Access,All_Reference
0c5b 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0c5c e223 | # | Load 0x1,0x23
0c5d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0c5e 00d9 | | Load_Top At_Offset_1
0c5f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c60 00d1 | | Pop_Control Pop_Count_1
0c61 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0c62 0000 0000 | | .BLANK 0000[0x6]
0c68 ; --------------------------------------------------------------------------------------
0c68 ; SUBPROGRAM
0c68 ; --------------------------------------------------------------------------------------
0c68 0c6f | o | .CONST 0x0c6f ; Address of begin
0c69 0004 | | .CONST 0x0004 ; Address of exception handler
0c6a 0003 | | .CONST 0x0003 ; Number of locals
0c6b INIT_0c68:
0c6b e220 | | Load 0x1,0x20
0c6c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c6d e21f | | Load 0x1,0x1f
0c6e 0007 | | Action Break_Optional
0c6f BODY_0c68:
0c6f e21c | | Load 0x1,0x1c
0c70 0322 | " | Declare_Variable Record
0c71 e5ff | | Load 0x2,-0x1
0c72 00d9 | | Load_Top At_Offset_1
0c73 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0c74 e5fe | | Load 0x2,-0x2
0c75 00d9 | | Load_Top At_Offset_1
0c76 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c77 e5fd | | Load 0x2,-0x3
0c78 00d9 | | Load_Top At_Offset_1
0c79 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c7a e5f8 | | Load 0x2,-0x8
0c7b 00d9 | | Load_Top At_Offset_1
0c7c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c7d e5f7 | | Load 0x2,-0x9
0c7e 00d9 | | Load_Top At_Offset_1
0c7f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c80 e5f6 | | Load 0x2,-0xa
0c81 e21c | | Load 0x1,0x1c
0c82 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
0c83 0119 | | Execute Any,Check_In_Formal_Type
0c84 00d9 | | Load_Top At_Offset_1
0c85 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c86 e5f6 | | Load 0x2,-0xa
0c87 8256 | V | Call 0x1,0x56
0c88 e21c | | Load 0x1,0x1c
0c89 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
0c8a 0119 | | Execute Any,Check_In_Formal_Type
0c8b 00d9 | | Load_Top At_Offset_1
0c8c 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0c8d e5fc | | Load 0x2,-0x4
0c8e 00d9 | | Load_Top At_Offset_1
0c8f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0c90 e5f5 | | Load 0x2,-0xb
0c91 0227 | ' | Execute Access,All_Reference
0c92 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c93 00d9 | | Load_Top At_Offset_1
0c94 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0c95 4800 |H | Short_Literal 0x0
0c96 00d9 | | Load_Top At_Offset_1
0c97 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0c98 e5fa | | Load 0x2,-0x6
0c99 00d9 | | Load_Top At_Offset_1
0c9a 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0c9b e5f9 | | Load 0x2,-0x7
0c9c 00d9 | | Load_Top At_Offset_1
0c9d 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0c9e e21f | | Load 0x1,0x1f
0c9f 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0ca0 0039 | 9 | Store_Top Access,At_Offset_1
0ca1 e5f5 | | Load 0x2,-0xb
0ca2 00d9 | | Load_Top At_Offset_1
0ca3 e5fb | | Load 0x2,-0x5
0ca4 00eb | | Load_Encached Diana_Cache
0ca5 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0ca6 8266 | f | Call 0x1,0x66
0ca7 c5f5 | | Store 0x2,-0xb
0ca8 450b |E | Exit_Suprogram New_Top_Offset 0xb
0ca9 0000 0000 | | .BLANK 0000[0x7]
0cb0 ; --------------------------------------------------------------------------------------
0cb0 ; SUBPROGRAM
0cb0 ; --------------------------------------------------------------------------------------
0cb0 0cb4 | | .CONST 0x0cb4 ; Address of begin
0cb1 0004 | | .CONST 0x0004 ; Address of exception handler
0cb2 0002 | | .CONST 0x0002 ; Number of locals
0cb3 INIT_0cb0:
0cb3 00ec | | Load_Encached Diana_Tree_Cache
0cb4 BODY_0cb0:
0cb4 00db | | Load_Top At_Offset_3
0cb5 00eb | | Load_Encached Diana_Cache
0cb6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cb7 0b2c | , | Execute_Immediate Case_Compare,0x2c
0cb8 7006 |p | Jump_Nonzero 0xcbf
0cb9 0b21 | ! | Execute_Immediate Case_Compare,0x21
0cba 7004 |p | Jump_Nonzero 0xcbf
0cbb 0f22 | " | Execute_Immediate Equal,0x22
0cbc 7005 |p | Jump_Nonzero 0xcc2
0cbd 4800 |H | Short_Literal 0x0
0cbe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cbf 00d1 | | Pop_Control Pop_Count_1
0cc0 4801 |H | Short_Literal 0x1
0cc1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cc2 00db | | Load_Top At_Offset_3
0cc3 4904 |I | Short_Literal 0x104
0cc4 00eb | | Load_Encached Diana_Cache
0cc5 0096 | | Execute Package,Entry
0cc6 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0cc7 00d8 | | Load_Top At_Offset_0
0cc8 00eb | | Load_Encached Diana_Cache
0cc9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cca 487a |Hz | Short_Literal 0x7a
0ccb 487b |H{ | Short_Literal 0x7b
0ccc 0262 | b | Execute Discrete,In_Range
0ccd 7002 |p | Jump_Nonzero 0xcd0
0cce 4800 |H | Short_Literal 0x0
0ccf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cd0 4801 |H | Short_Literal 0x1
0cd1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cd2 0000 0000 | | .BLANK 0000[0x6]
0cd8 ; --------------------------------------------------------------------------------------
0cd8 ; SUBPROGRAM
0cd8 ; --------------------------------------------------------------------------------------
0cd8 0cdd | | .CONST 0x0cdd ; Address of begin
0cd9 0cf3 | | .CONST 0x0cf3 ; Address of exception handler
0cda 0002 | | .CONST 0x0002 ; Number of locals
0cdb INIT_0cd8:
0cdb e049 | I | Load 0x0,0x49
0cdc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0cdd BODY_0cd8:
0cdd e5fe | | Load 0x2,-0x2
0cde e004 | | Load 0x0,0x4
0cdf 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0ce0 e04a | J | Load 0x0,0x4a
0ce1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0ce2 e04b | K | Load 0x0,0x4b
0ce3 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0ce4 00d9 | | Load_Top At_Offset_1
0ce5 00d0 | | Action Swap_Control
0ce6 0260 | ` | Execute Discrete,In_Type
0ce7 7001 |p | Jump_Nonzero 0xce9
0ce8 0801 | | Execute_Immediate Raise,0x1
0ce9 e04c | L | Load 0x0,0x4c
0cea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0ceb 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0cec 00d8 | | Load_Top At_Offset_0
0ced e5ff | | Load 0x2,-0x1
0cee 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0cef 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0cf0 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0cf1 800e | | Call 0x0,0xe
0cf2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0cf3 TRAP_0cd8:
0cf3 0007 | | Action Break_Optional
0cf4 480a |H | Short_Literal 0xa
0cf5 0092 14b9 | | Action Push_String_Extended,0x14b9 ; "Init_Subsystem_Lookthrough: "
0cf7 e011 | | Load 0x0,0x11
0cf8 180d | | Execute Package,Field_Execute,Field_Number 0xd
0cf9 01cc | | Execute Vector,Catenate
0cfa 01cb | | Execute Vector,Append
0cfb 8219 | | Call 0x1,0x19
0cfc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0cfd 0000 0000 | | .XXX[0x3]
0cff 0000 | |
0d00 ; --------------------------------------------------------------------------------------
0d00 ; SUBPROGRAM
0d00 ; --------------------------------------------------------------------------------------
0d00 0d18 | | .CONST 0x0d18 ; Address of begin
0d01 0dad | | .CONST 0x0dad ; Address of exception handler
0d02 0009 | | .CONST 0x0009 ; Number of locals
0d03 INIT_0d00:
0d03 00eb | | Load_Encached Diana_Cache
0d04 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d05 00eb | | Load_Encached Diana_Cache
0d06 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d07 e04d | M | Load 0x0,0x4d
0d08 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d09 02c7 | | Declare_Variable Any
0d0a 00d8 | | Load_Top At_Offset_0
0d0b 1c00 | | Execute_Immediate Run_Utility,0x0
0d0c 00e3 | | Load_Encached Natural_Cache
0d0d e04d | M | Load 0x0,0x4d
0d0e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d0f 823a | : | Call 0x1,0x3a
0d10 e5ff | | Load 0x2,-0x1
0d11 e003 | | Load 0x0,0x3
0d12 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d13 00e1 | | Load_Encached Boolean_Cache
0d14 03f1 | | Declare_Variable Discrete,With_Value
0d15 e5ff | | Load 0x2,-0x1
0d16 e021 | ! | Load 0x0,0x21
0d17 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0d18 BODY_0d00:
0d18 e5fa | | Load 0x2,-0x6
0d19 6805 |h | Jump_Zero 0xd1f
0d1a e5fa | | Load 0x2,-0x6
0d1b 0227 | ' | Execute Access,All_Reference
0d1c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d1d 0f01 | | Execute_Immediate Equal,0x1
0d1e 681f |h | Jump_Zero 0xd3e
0d1f e5fb | | Load 0x2,-0x5
0d20 e004 | | Load 0x0,0x4
0d21 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d22 012f | / | Execute Any,Equal
0d23 701a |p | Jump_Nonzero 0xd3e
0d24 e5fb | | Load 0x2,-0x5
0d25 e5ff | | Load 0x2,-0x1
0d26 826a | j | Call 0x1,0x6a
0d27 00da | | Load_Top At_Offset_2
0d28 00eb | | Load_Encached Diana_Cache
0d29 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d2a 7013 |p | Jump_Nonzero 0xd3e
0d2b e5fa | | Load 0x2,-0x6
0d2c e004 | | Load 0x0,0x4
0d2d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d2e 4800 |H | Short_Literal 0x0
0d2f 4800 |H | Short_Literal 0x0
0d30 4800 |H | Short_Literal 0x0
0d31 4800 |H | Short_Literal 0x0
0d32 e407 | | Load 0x2,0x7
0d33 00eb | | Load_Encached Diana_Cache
0d34 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d35 00eb | | Load_Encached Diana_Cache
0d36 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d37 4829 |H) | Short_Literal 0x29
0d38 e407 | | Load 0x2,0x7
0d39 e021 | ! | Load 0x0,0x21
0d3a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0d3b 4800 |H | Short_Literal 0x0
0d3c 8268 | h | Call 0x1,0x68
0d3d c5fa | | Store 0x2,-0x6
0d3e e5ff | | Load 0x2,-0x1
0d3f e013 | | Load 0x0,0x13
0d40 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d41 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0d42 700e |p | Jump_Nonzero 0xd51
0d43 0092 14ba | | Action Push_String_Extended,0x14ba ; "Warning: Program includes archived main unit "
0d45 e5fe | | Load 0x2,-0x2
0d46 8233 | 3 | Call 0x1,0x33
0d47 01cc | | Execute Vector,Catenate
0d48 0092 14bb | | Action Push_String_Extended,0x14bb ; ". "
0d4a 01cc | | Execute Vector,Catenate
0d4b 8227 | ' | Call 0x1,0x27
0d4c 0092 14bc | | Action Push_String_Extended,0x14bc ; "Debugging will be limited."
0d4e 8227 | ' | Call 0x1,0x27
0d4f 8228 | ( | Call 0x1,0x28
0d50 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d51 e5ff | | Load 0x2,-0x1
0d52 e013 | | Load 0x0,0x13
0d53 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d54 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d55 c404 | | Store 0x2,0x4
0d56 e404 | | Load 0x2,0x4
0d57 e04d | M | Load 0x0,0x4d
0d58 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d59 a406 | | Store_Unchecked 0x2,0x6
0d5a 4800 |H | Short_Literal 0x0
0d5b 0092 14bd | | Action Push_String_Extended,0x14bd ; "Register_Unit: Empty units_in_program list"
0d5d e406 | | Load 0x2,0x6
0d5e 0c01 | | Execute_Immediate Greater_Equal,0x1
0d5f 821b | | Call 0x1,0x1b
0d60 4800 |H | Short_Literal 0x0
0d61 0092 14be | | Action Push_String_Extended,0x14be ; "Register_Unit: Main_Unit not a procedure or function"
0d63 e5ff | | Load 0x2,-0x1
0d64 8269 | i | Call 0x1,0x69
0d65 821b | | Call 0x1,0x1b
0d66 e5fa | | Load 0x2,-0x6
0d67 e004 | | Load 0x0,0x4
0d68 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d69 4800 |H | Short_Literal 0x0
0d6a 4800 |H | Short_Literal 0x0
0d6b 4800 |H | Short_Literal 0x0
0d6c 4800 |H | Short_Literal 0x0
0d6d e5ff | | Load 0x2,-0x1
0d6e 00eb | | Load_Encached Diana_Cache
0d6f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d70 e409 | | Load 0x2,0x9
0d71 e5ff | | Load 0x2,-0x1
0d72 00eb | | Load_Encached Diana_Cache
0d73 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d74 e409 | | Load 0x2,0x9
0d75 4800 |H | Short_Literal 0x0
0d76 8268 | h | Call 0x1,0x68
0d77 c5fa | | Store 0x2,-0x6
0d78 00cf | | Action Mark_Auxiliary
0d79 e406 | | Load 0x2,0x6
0d7a 4801 |H | Short_Literal 0x1
0d7b 0263 | c | Execute Discrete,Above_Bound
0d7c 700c |p | Jump_Nonzero 0xd89
0d7d e5fa | | Load 0x2,-0x6
0d7e e408 | | Load 0x2,0x8
0d7f e5fb | | Load 0x2,-0x5
0d80 e5fc | | Load 0x2,-0x4
0d81 e5fd | | Load 0x2,-0x3
0d82 e40c | | Load 0x2,0xc
0d83 e404 | | Load 0x2,0x4
0d84 e409 | | Load 0x2,0x9
0d85 826d | m | Call 0x1,0x6d
0d86 c5fa | | Store 0x2,-0x6
0d87 00c8 | | Action Pop_Auxiliary_Range
0d88 3ff4 |? | Loop_Increasing 0xd7d
0d89 00ce | | Action Pop_Auxiliary
0d8a 00d9 | | Load_Top At_Offset_1
0d8b 6804 |h | Jump_Zero 0xd90
0d8c 00eb | | Load_Encached Diana_Cache
0d8d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d8e a403 | | Store_Unchecked 0x2,0x3
0d8f 7803 |x | Jump 0xd93
0d90 e5ff | | Load 0x2,-0x1
0d91 823e | > | Call 0x1,0x3e
0d92 a403 | | Store_Unchecked 0x2,0x3
0d93 e403 | | Load 0x2,0x3
0d94 00eb | | Load_Encached Diana_Cache
0d95 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d96 6802 |h | Jump_Zero 0xd99
0d97 e5ff | | Load 0x2,-0x1
0d98 a403 | | Store_Unchecked 0x2,0x3
0d99 e5fa | | Load 0x2,-0x6
0d9a e5fb | | Load 0x2,-0x5
0d9b 4800 |H | Short_Literal 0x0
0d9c e5fc | | Load 0x2,-0x4
0d9d 4800 |H | Short_Literal 0x0
0d9e 4800 |H | Short_Literal 0x0
0d9f e403 | | Load 0x2,0x3
0da0 00eb | | Load_Encached Diana_Cache
0da1 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0da2 e409 | | Load 0x2,0x9
0da3 e403 | | Load 0x2,0x3
0da4 00eb | | Load_Encached Diana_Cache
0da5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0da6 e403 | | Load 0x2,0x3
0da7 e021 | ! | Load 0x0,0x21
0da8 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0da9 4802 |H | Short_Literal 0x2
0daa 8268 | h | Call 0x1,0x68
0dab c5fa | | Store 0x2,-0x6
0dac 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0dad TRAP_0d00:
0dad 0007 | | Action Break_Optional
0dae 480a |H | Short_Literal 0xa
0daf 0092 14bf | | Action Push_String_Extended,0x14bf ; "Register_Unit: "
0db1 e011 | | Load 0x0,0x11
0db2 180d | | Execute Package,Field_Execute,Field_Number 0xd
0db3 01cc | | Execute Vector,Catenate
0db4 01cb | | Execute Vector,Append
0db5 8219 | | Call 0x1,0x19
0db6 00d8 | | Load_Top At_Offset_0
0db7 0101 | | Execute Exception,Reraise
0db8 ; --------------------------------------------------------------------------------------
0db8 ; SUBPROGRAM
0db8 ; --------------------------------------------------------------------------------------
0db8 0dbc | | .CONST 0x0dbc ; Address of begin
0db9 0e09 | | .CONST 0x0e09 ; Address of exception handler
0dba 0002 | | .CONST 0x0002 ; Number of locals
0dbb INIT_0db8:
0dbb 00e3 | | Load_Encached Natural_Cache
0dbc BODY_0db8:
0dbc e5fe | | Load 0x2,-0x2
0dbd 00d8 | | Load_Top At_Offset_0
0dbe 4821 |H! | Short_Literal 0x21
0dbf 482c |H, | Short_Literal 0x2c
0dc0 0262 | b | Execute Discrete,In_Range
0dc1 682f |h/ | Jump_Zero 0xdf1
0dc2 00d8 | | Load_Top At_Offset_0
0dc3 0c23 | # | Execute_Immediate Greater_Equal,0x23
0dc4 681c |h | Jump_Zero 0xde1
0dc5 0b29 | ) | Execute_Immediate Case_Compare,0x29
0dc6 7003 |p | Jump_Nonzero 0xdca
0dc7 0f2c | , | Execute_Immediate Equal,0x2c
0dc8 7019 |p | Jump_Nonzero 0xde2
0dc9 7828 |x( | Jump 0xdf2
0dca 00d1 | | Pop_Control Pop_Count_1
0dcb e5f6 | | Load 0x2,-0xa
0dcc 6806 |h | Jump_Zero 0xdd3
0dcd 4800 |H | Short_Literal 0x0
0dce 0092 14c0 | | Action Push_String_Extended,0x14c0 ; "Register_Used_Unit: Unit_Offset is 0"
0dd0 e5fc | | Load 0x2,-0x4
0dd1 0e00 | | Execute_Immediate Not_Equal,0x0
0dd2 821b | | Call 0x1,0x1b
0dd3 e5f3 | | Load 0x2,-0xd
0dd4 e5f4 | | Load 0x2,-0xc
0dd5 e5fc | | Load 0x2,-0x4
0dd6 e5f5 | | Load 0x2,-0xb
0dd7 e5f9 | | Load 0x2,-0x7
0dd8 e5fa | | Load 0x2,-0x6
0dd9 e5ff | | Load 0x2,-0x1
0dda e5f7 | | Load 0x2,-0x9
0ddb e5fe | | Load 0x2,-0x2
0ddc e5fd | | Load 0x2,-0x3
0ddd 4800 |H | Short_Literal 0x0
0dde 8268 | h | Call 0x1,0x68
0ddf c5f3 | | Store 0x2,-0xd
0de0 781c |x | Jump 0xdfd
0de1 00d1 | | Pop_Control Pop_Count_1
0de2 e5f3 | | Load 0x2,-0xd
0de3 e004 | | Load 0x0,0x4
0de4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0de5 4800 |H | Short_Literal 0x0
0de6 4800 |H | Short_Literal 0x0
0de7 e5f9 | | Load 0x2,-0x7
0de8 e5fa | | Load 0x2,-0x6
0de9 e5ff | | Load 0x2,-0x1
0dea e5f7 | | Load 0x2,-0x9
0deb e5fe | | Load 0x2,-0x2
0dec e5fd | | Load 0x2,-0x3
0ded 4800 |H | Short_Literal 0x0
0dee 8268 | h | Call 0x1,0x68
0def c5f3 | | Store 0x2,-0xd
0df0 780c |x | Jump 0xdfd
0df1 00d1 | | Pop_Control Pop_Count_1
0df2 480a |H | Short_Literal 0xa
0df3 0092 14c1 | | Action Push_String_Extended,0x14c1 ; "Register_Used_Unit: unknown node: "
0df5 e5fe | | Load 0x2,-0x2
0df6 00eb | | Load_Encached Diana_Cache
0df7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0df8 011c | | Execute Any,Convert_Unchecked
0df9 1c01 | | Execute_Immediate Run_Utility,0x1
0dfa 01cc | | Execute Vector,Catenate
0dfb 01cb | | Execute Vector,Append
0dfc 8219 | | Call 0x1,0x19
0dfd e5fb | | Load 0x2,-0x5
0dfe 6809 |h | Jump_Zero 0xe08
0dff e5f3 | | Load 0x2,-0xd
0e00 e004 | | Load 0x0,0x4
0e01 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0e02 4800 |H | Short_Literal 0x0
0e03 4800 |H | Short_Literal 0x0
0e04 e5ff | | Load 0x2,-0x1
0e05 e5fd | | Load 0x2,-0x3
0e06 826b | k | Call 0x1,0x6b
0e07 c5f3 | | Store 0x2,-0xd
0e08 450d |E | Exit_Suprogram New_Top_Offset 0xd
0e09 TRAP_0db8:
0e09 0007 | | Action Break_Optional
0e0a 480a |H | Short_Literal 0xa
0e0b 0092 14c2 | | Action Push_String_Extended,0x14c2 ; "Register_Used_Unit: "
0e0d e011 | | Load 0x0,0x11
0e0e 180d | | Execute Package,Field_Execute,Field_Number 0xd
0e0f 01cc | | Execute Vector,Catenate
0e10 01cb | | Execute Vector,Append
0e11 8219 | | Call 0x1,0x19
0e12 450d |E | Exit_Suprogram New_Top_Offset 0xd
0e13 0000 0000 | | .BLANK 0000[0x5]
0e18 ; --------------------------------------------------------------------------------------
0e18 ; SUBPROGRAM
0e18 ; --------------------------------------------------------------------------------------
0e18 0e30 | 0 | .CONST 0x0e30 ; Address of begin
0e19 0e80 | | .CONST 0x0e80 ; Address of exception handler
0e1a 000d | | .CONST 0x000d ; Number of locals
0e1b INIT_0e18:
0e1b 00ec | | Load_Encached Diana_Tree_Cache
0e1c 039d | | Declare_Variable Heap_Access,Duplicate
0e1d 039d | | Declare_Variable Heap_Access,Duplicate
0e1e 00eb | | Load_Encached Diana_Cache
0e1f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e20 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0e21 02c7 | | Declare_Variable Any
0e22 00d8 | | Load_Top At_Offset_0
0e23 1c00 | | Execute_Immediate Run_Utility,0x0
0e24 00e3 | | Load_Encached Natural_Cache
0e25 00e1 | | Load_Encached Boolean_Cache
0e26 03e9 | | Declare_Variable Discrete,Duplicate
0e27 03e9 | | Declare_Variable Discrete,Duplicate
0e28 03e9 | | Declare_Variable Discrete,Duplicate
0e29 e024 | $ | Load 0x0,0x24
0e2a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0e2b 02ff | | Declare_Variable Variant_Record
0e2c 00d8 | | Load_Top At_Offset_0
0e2d 1c00 | | Execute_Immediate Run_Utility,0x0
0e2e e04d | M | Load 0x0,0x4d
0e2f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e30 BODY_0e18:
0e30 e04d | M | Load 0x0,0x4d
0e31 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e32 00da | | Load_Top At_Offset_2
0e33 00e1 | | Load_Encached Boolean_Cache
0e34 00e1 | | Load_Encached Boolean_Cache
0e35 00e3 | | Load_Encached Natural_Cache
0e36 00ec | | Load_Encached Diana_Tree_Cache
0e37 00eb | | Load_Encached Diana_Cache
0e38 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e39 e406 | | Load 0x2,0x6
0e3a 0120 | | Execute Any,Is_Value
0e3b 6802 |h | Jump_Zero 0xe3e
0e3c 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0e3d 7801 |x | Jump 0xe3f
0e3e e406 | | Load 0x2,0x6
0e3f e5fd | | Load 0x2,-0x3
0e40 e5fe | | Load 0x2,-0x2
0e41 e04d | M | Load 0x0,0x4d
0e42 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0e43 c406 | | Store 0x2,0x6
0e44 c405 | | Store 0x2,0x5
0e45 c403 | | Store 0x2,0x3
0e46 c407 | | Store 0x2,0x7
0e47 c408 | | Store 0x2,0x8
0e48 c409 | | Store 0x2,0x9
0e49 00d1 | | Pop_Control Pop_Count_1
0e4a 0059 | Y | Store_Top Discrete,At_Offset_1
0e4b e403 | | Load 0x2,0x3
0e4c a402 | | Store_Unchecked 0x2,0x2
0e4d e406 | | Load 0x2,0x6
0e4e e5f9 | | Load 0x2,-0x7
0e4f e5ff | | Load 0x2,-0x1
0e50 e402 | | Load 0x2,0x2
0e51 8241 | A | Call 0x1,0x41
0e52 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0e53 00da | | Load_Top At_Offset_2
0e54 6801 |h | Jump_Zero 0xe56
0e55 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e56 e409 | | Load 0x2,0x9
0e57 6816 |h | Jump_Zero 0xe6e
0e58 00d8 | | Load_Top At_Offset_0
0e59 0c01 | | Execute_Immediate Greater_Equal,0x1
0e5a 6813 |h | Jump_Zero 0xe6e
0e5b 00ec | | Load_Encached Diana_Tree_Cache
0e5c 4801 |H | Short_Literal 0x1
0e5d e5fd | | Load 0x2,-0x3
0e5e e5fe | | Load 0x2,-0x2
0e5f e04d | M | Load 0x0,0x4d
0e60 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0e61 c404 | | Store 0x2,0x4
0e62 e404 | | Load 0x2,0x4
0e63 00eb | | Load_Encached Diana_Cache
0e64 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e65 7005 |p | Jump_Nonzero 0xe6b
0e66 e404 | | Load 0x2,0x4
0e67 a402 | | Store_Unchecked 0x2,0x2
0e68 4801 |H | Short_Literal 0x1
0e69 a40a | | Store_Unchecked 0x2,0xa
0e6a 7805 |x | Jump 0xe70
0e6b 4800 |H | Short_Literal 0x0
0e6c a40a | | Store_Unchecked 0x2,0xa
0e6d 7802 |x | Jump 0xe70
0e6e 4800 |H | Short_Literal 0x0
0e6f a40a | | Store_Unchecked 0x2,0xa
0e70 e5f8 | | Load 0x2,-0x8
0e71 e5fa | | Load 0x2,-0x6
0e72 e5fb | | Load 0x2,-0x5
0e73 e5fc | | Load 0x2,-0x4
0e74 e5ff | | Load 0x2,-0x1
0e75 e40c | | Load 0x2,0xc
0e76 e40a | | Load 0x2,0xa
0e77 e409 | | Load 0x2,0x9
0e78 e408 | | Load 0x2,0x8
0e79 e407 | | Load 0x2,0x7
0e7a e402 | | Load 0x2,0x2
0e7b e405 | | Load 0x2,0x5
0e7c e406 | | Load 0x2,0x6
0e7d 826c | l | Call 0x1,0x6c
0e7e c5f8 | | Store 0x2,-0x8
0e7f 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e80 TRAP_0e18:
0e80 0007 | | Action Break_Optional
0e81 480a |H | Short_Literal 0xa
0e82 0092 14c2 | | Action Push_String_Extended,0x14c2 ; "Register_Used_Unit: "
0e84 e011 | | Load 0x0,0x11
0e85 180d | | Execute Package,Field_Execute,Field_Number 0xd
0e86 01cc | | Execute Vector,Catenate
0e87 01cb | | Execute Vector,Append
0e88 8219 | | Call 0x1,0x19
0e89 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e8a 0000 0000 | | .BLANK 0000[0x6]
0e90 ; --------------------------------------------------------------------------------------
0e90 ; SUBPROGRAM
0e90 ; --------------------------------------------------------------------------------------
0e90 0ea5 | | .CONST 0x0ea5 ; Address of begin
0e91 0ee7 | | .CONST 0x0ee7 ; Address of exception handler
0e92 000a | | .CONST 0x000a ; Number of locals
0e93 INIT_0e90:
0e93 00ec | | Load_Encached Diana_Tree_Cache
0e94 039d | | Declare_Variable Heap_Access,Duplicate
0e95 00eb | | Load_Encached Diana_Cache
0e96 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e97 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0e98 02c7 | | Declare_Variable Any
0e99 00d8 | | Load_Top At_Offset_0
0e9a 1c00 | | Execute_Immediate Run_Utility,0x0
0e9b 00e3 | | Load_Encached Natural_Cache
0e9c 00e1 | | Load_Encached Boolean_Cache
0e9d 03e9 | | Declare_Variable Discrete,Duplicate
0e9e e024 | $ | Load 0x0,0x24
0e9f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0ea0 02ff | | Declare_Variable Variant_Record
0ea1 00d8 | | Load_Top At_Offset_0
0ea2 1c00 | | Execute_Immediate Run_Utility,0x0
0ea3 e04d | M | Load 0x0,0x4d
0ea4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0ea5 BODY_0e90:
0ea5 e04d | M | Load 0x0,0x4d
0ea6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0ea7 00da | | Load_Top At_Offset_2
0ea8 00e1 | | Load_Encached Boolean_Cache
0ea9 00e1 | | Load_Encached Boolean_Cache
0eaa 00e3 | | Load_Encached Natural_Cache
0eab 00ec | | Load_Encached Diana_Tree_Cache
0eac 00eb | | Load_Encached Diana_Cache
0ead 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0eae e405 | | Load 0x2,0x5
0eaf 0120 | | Execute Any,Is_Value
0eb0 6802 |h | Jump_Zero 0xeb3
0eb1 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0eb2 7801 |x | Jump 0xeb4
0eb3 e405 | | Load 0x2,0x5
0eb4 e5fd | | Load 0x2,-0x3
0eb5 e5fe | | Load 0x2,-0x2
0eb6 e04d | M | Load 0x0,0x4d
0eb7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0eb8 c405 | | Store 0x2,0x5
0eb9 c404 | | Store 0x2,0x4
0eba c402 | | Store 0x2,0x2
0ebb c406 | | Store 0x2,0x6
0ebc c407 | | Store 0x2,0x7
0ebd c408 | | Store 0x2,0x8
0ebe 00d1 | | Pop_Control Pop_Count_1
0ebf 0059 | Y | Store_Top Discrete,At_Offset_1
0ec0 e404 | | Load 0x2,0x4
0ec1 00d8 | | Load_Top At_Offset_0
0ec2 4821 |H! | Short_Literal 0x21
0ec3 482c |H, | Short_Literal 0x2c
0ec4 0262 | b | Execute Discrete,In_Range
0ec5 6815 |h | Jump_Zero 0xedb
0ec6 00d8 | | Load_Top At_Offset_0
0ec7 0c23 | # | Execute_Immediate Greater_Equal,0x23
0ec8 6805 |h | Jump_Zero 0xece
0ec9 0b29 | ) | Execute_Immediate Case_Compare,0x29
0eca 7005 |p | Jump_Nonzero 0xed0
0ecb 0f2c | , | Execute_Immediate Equal,0x2c
0ecc 7019 |p | Jump_Nonzero 0xee6
0ecd 780e |x | Jump 0xedc
0ece 00d1 | | Pop_Control Pop_Count_1
0ecf 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ed0 00d1 | | Pop_Control Pop_Count_1
0ed1 e5fa | | Load 0x2,-0x6
0ed2 e5fb | | Load 0x2,-0x5
0ed3 e406 | | Load 0x2,0x6
0ed4 e5fc | | Load 0x2,-0x4
0ed5 e5ff | | Load 0x2,-0x1
0ed6 e405 | | Load 0x2,0x5
0ed7 e402 | | Load 0x2,0x2
0ed8 8267 | g | Call 0x1,0x67
0ed9 c5fa | | Store 0x2,-0x6
0eda 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0edb 00d1 | | Pop_Control Pop_Count_1
0edc 4801 |H | Short_Literal 0x1
0edd 0092 14c3 | | Action Push_String_Extended,0x14c3 ; "UnRegister_Unit: unknown node: "
0edf e404 | | Load 0x2,0x4
0ee0 00eb | | Load_Encached Diana_Cache
0ee1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ee2 011c | | Execute Any,Convert_Unchecked
0ee3 1c01 | | Execute_Immediate Run_Utility,0x1
0ee4 01cc | | Execute Vector,Catenate
0ee5 821a | | Call 0x1,0x1a
0ee6 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ee7 TRAP_0e90:
0ee7 0007 | | Action Break_Optional
0ee8 4801 |H | Short_Literal 0x1
0ee9 0092 14c4 | | Action Push_String_Extended,0x14c4 ; "unRegister_Unit: "
0eeb e011 | | Load 0x0,0x11
0eec 180d | | Execute Package,Field_Execute,Field_Number 0xd
0eed 01cc | | Execute Vector,Catenate
0eee 821a | | Call 0x1,0x1a
0eef 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ef0 ; --------------------------------------------------------------------------------------
0ef0 ; SUBPROGRAM
0ef0 ; --------------------------------------------------------------------------------------
0ef0 0efb | | .CONST 0x0efb ; Address of begin
0ef1 0f35 | 5 | .CONST 0x0f35 ; Address of exception handler
0ef2 0004 | | .CONST 0x0004 ; Number of locals
0ef3 INIT_0ef0:
0ef3 e04d | M | Load 0x0,0x4d
0ef4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ef5 02c7 | | Declare_Variable Any
0ef6 00d8 | | Load_Top At_Offset_0
0ef7 1c00 | | Execute_Immediate Run_Utility,0x0
0ef8 00ec | | Load_Encached Diana_Tree_Cache
0ef9 e04d | M | Load 0x0,0x4d
0efa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0efb BODY_0ef0:
0efb e5ff | | Load 0x2,-0x1
0efc e013 | | Load 0x0,0x13
0efd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0efe 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0eff c402 | | Store 0x2,0x2
0f00 00da | | Load_Top At_Offset_2
0f01 e04d | M | Load 0x0,0x4d
0f02 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f03 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0f04 4801 |H | Short_Literal 0x1
0f05 0092 14c5 | | Action Push_String_Extended,0x14c5 ; "UnRegister_Unit: Empty Unit_List list"
0f07 00da | | Load_Top At_Offset_2
0f08 0c01 | | Execute_Immediate Greater_Equal,0x1
0f09 821b | | Call 0x1,0x1b
0f0a 00cf | | Action Mark_Auxiliary
0f0b 00d9 | | Load_Top At_Offset_1
0f0c 4801 |H | Short_Literal 0x1
0f0d 0263 | c | Execute Discrete,Above_Bound
0f0e 700a |p | Jump_Nonzero 0xf19
0f0f e5fc | | Load 0x2,-0x4
0f10 e5fd | | Load 0x2,-0x3
0f11 e5fe | | Load 0x2,-0x2
0f12 00db | | Load_Top At_Offset_3
0f13 e402 | | Load 0x2,0x2
0f14 e5ff | | Load 0x2,-0x1
0f15 826e | n | Call 0x1,0x6e
0f16 c5fc | | Store 0x2,-0x4
0f17 00c8 | | Action Pop_Auxiliary_Range
0f18 3ff6 |? | Loop_Increasing 0xf0f
0f19 00ce | | Action Pop_Auxiliary
0f1a e5ff | | Load 0x2,-0x1
0f1b e003 | | Load 0x0,0x3
0f1c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0f1d 6804 |h | Jump_Zero 0xf22
0f1e 00eb | | Load_Encached Diana_Cache
0f1f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f20 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0f21 7803 |x | Jump 0xf25
0f22 e5ff | | Load 0x2,-0x1
0f23 823e | > | Call 0x1,0x3e
0f24 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0f25 00d9 | | Load_Top At_Offset_1
0f26 00eb | | Load_Encached Diana_Cache
0f27 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f28 700b |p | Jump_Nonzero 0xf34
0f29 e5fc | | Load 0x2,-0x4
0f2a e5fd | | Load 0x2,-0x3
0f2b 4800 |H | Short_Literal 0x0
0f2c e5fe | | Load 0x2,-0x2
0f2d e5ff | | Load 0x2,-0x1
0f2e e403 | | Load 0x2,0x3
0f2f 00eb | | Load_Encached Diana_Cache
0f30 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0f31 e403 | | Load 0x2,0x3
0f32 8267 | g | Call 0x1,0x67
0f33 c5fc | | Store 0x2,-0x4
0f34 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f35 TRAP_0ef0:
0f35 0007 | | Action Break_Optional
0f36 4801 |H | Short_Literal 0x1
0f37 0092 14c6 | | Action Push_String_Extended,0x14c6 ; "Unregister_Unit: "
0f39 e011 | | Load 0x0,0x11
0f3a 180d | | Execute Package,Field_Execute,Field_Number 0xd
0f3b 01cc | | Execute Vector,Catenate
0f3c 821a | | Call 0x1,0x1a
0f3d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f3e 0000 0000 | | .XXX[0x2]
0f40 ; --------------------------------------------------------------------------------------
0f40 ; SUBPROGRAM
0f40 ; --------------------------------------------------------------------------------------
0f40 0f43 | C | .CONST 0x0f43 ; Address of begin
0f41 0004 | | .CONST 0x0004 ; Address of exception handler
0f42 0001 | | .CONST 0x0001 ; Number of locals
0f43 BODY_0f40:
0f43 INIT_0f40:
0f43 e5fd | | Load 0x2,-0x3
0f44 a5f9 | | Store_Unchecked 0x2,-0x7
0f45 00da | | Load_Top At_Offset_2
0f46 6809 |h | Jump_Zero 0xf50
0f47 e5fd | | Load 0x2,-0x3
0f48 e5fe | | Load 0x2,-0x2
0f49 8250 | P | Call 0x1,0x50
0f4a 6805 |h | Jump_Zero 0xf50
0f4b 4800 |H | Short_Literal 0x0
0f4c a5fb | | Store_Unchecked 0x2,-0x5
0f4d 4800 |H | Short_Literal 0x0
0f4e a5fa | | Store_Unchecked 0x2,-0x6
0f4f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f50 00db | | Load_Top At_Offset_3
0f51 e5fc | | Load 0x2,-0x4
0f52 8244 | D | Call 0x1,0x44
0f53 6809 |h | Jump_Zero 0xf5d
0f54 4801 |H | Short_Literal 0x1
0f55 a5fa | | Store_Unchecked 0x2,-0x6
0f56 4800 |H | Short_Literal 0x0
0f57 a5fb | | Store_Unchecked 0x2,-0x5
0f58 00db | | Load_Top At_Offset_3
0f59 a5f9 | | Store_Unchecked 0x2,-0x7
0f5a 4801 |H | Short_Literal 0x1
0f5b a5f8 | | Store_Unchecked 0x2,-0x8
0f5c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f5d e5fd | | Load 0x2,-0x3
0f5e e5fc | | Load 0x2,-0x4
0f5f 8244 | D | Call 0x1,0x44
0f60 6809 |h | Jump_Zero 0xf6a
0f61 e5fd | | Load 0x2,-0x3
0f62 a5f9 | | Store_Unchecked 0x2,-0x7
0f63 4800 |H | Short_Literal 0x0
0f64 a5fb | | Store_Unchecked 0x2,-0x5
0f65 4801 |H | Short_Literal 0x1
0f66 a5fa | | Store_Unchecked 0x2,-0x6
0f67 4801 |H | Short_Literal 0x1
0f68 a5f8 | | Store_Unchecked 0x2,-0x8
0f69 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f6a 4800 |H | Short_Literal 0x0
0f6b a5fa | | Store_Unchecked 0x2,-0x6
0f6c 4801 |H | Short_Literal 0x1
0f6d a5fb | | Store_Unchecked 0x2,-0x5
0f6e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f6f 0000 | | .XXX[0x1]
0f70 ; --------------------------------------------------------------------------------------
0f70 ; SUBPROGRAM
0f70 ; --------------------------------------------------------------------------------------
0f70 0f8b | | .CONST 0x0f8b ; Address of begin
0f71 0004 | | .CONST 0x0004 ; Address of exception handler
0f72 0011 | | .CONST 0x0011 ; Number of locals
0f73 INIT_0f70:
0f73 e220 | | Load 0x1,0x20
0f74 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0f75 00e1 | | Load_Encached Boolean_Cache
0f76 e220 | | Load 0x1,0x20
0f77 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0f78 e21f | | Load 0x1,0x1f
0f79 03bd | | Declare_Variable Access,Duplicate
0f7a 00e1 | | Load_Encached Boolean_Cache
0f7b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f7c 03e9 | | Declare_Variable Discrete,Duplicate
0f7d 00e1 | | Load_Encached Boolean_Cache
0f7e 00eb | | Load_Encached Diana_Cache
0f7f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f80 00ec | | Load_Encached Diana_Tree_Cache
0f81 00e3 | | Load_Encached Natural_Cache
0f82 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f83 00e1 | | Load_Encached Boolean_Cache
0f84 00e1 | | Load_Encached Boolean_Cache
0f85 e21f | | Load 0x1,0x1f
0f86 0007 | | Action Break_Optional
0f87 00e3 | | Load_Encached Natural_Cache
0f88 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f89 00e1 | | Load_Encached Boolean_Cache
0f8a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f8b BODY_0f70:
0f8b 4800 |H | Short_Literal 0x0
0f8c a5fa | | Store_Unchecked 0x2,-0x6
0f8d e21d | | Load 0x1,0x1d
0f8e a5f9 | | Store_Unchecked 0x2,-0x7
0f8f 00eb | | Load_Encached Diana_Cache
0f90 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f91 a5f6 | | Store_Unchecked 0x2,-0xa
0f92 4800 |H | Short_Literal 0x0
0f93 a5f8 | | Store_Unchecked 0x2,-0x8
0f94 4800 |H | Short_Literal 0x0
0f95 a5f7 | | Store_Unchecked 0x2,-0x9
0f96 00e1 | | Load_Encached Boolean_Cache
0f97 e402 | | Load 0x2,0x2
0f98 e5fe | | Load 0x2,-0x2
0f99 e022 | " | Load 0x0,0x22
0f9a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f9b e5fb | | Load 0x2,-0x5
0f9c 0227 | ' | Execute Access,All_Reference
0f9d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0f9e e221 | ! | Load 0x1,0x21
0f9f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0fa0 c402 | | Store 0x2,0x2
0fa1 c403 | | Store 0x2,0x3
0fa2 e403 | | Load 0x2,0x3
0fa3 68b9 |h | Jump_Zero 0x105d
0fa4 e402 | | Load 0x2,0x2
0fa5 e220 | | Load 0x1,0x20
0fa6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0fa7 70b5 |p | Jump_Nonzero 0x105d
0fa8 e220 | | Load 0x1,0x20
0fa9 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0faa e402 | | Load 0x2,0x2
0fab e220 | | Load 0x1,0x20
0fac 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fad c404 | | Store 0x2,0x4
0fae e21f | | Load 0x1,0x1f
0faf a406 | | Store_Unchecked 0x2,0x6
0fb0 e5ff | | Load 0x2,-0x1
0fb1 823b | ; | Call 0x1,0x3b
0fb2 a40b | | Store_Unchecked 0x2,0xb
0fb3 00cf | | Action Mark_Auxiliary
0fb4 7864 |xd | Jump 0x1019
0fb5 00da | | Load_Top At_Offset_2
0fb6 0a01 | | Execute_Immediate Plus,0x1
0fb7 005b | [ | Store_Top Discrete,At_Offset_3
0fb8 e404 | | Load 0x2,0x4
0fb9 e220 | | Load 0x1,0x20
0fba 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0fbb a405 | | Store_Unchecked 0x2,0x5
0fbc e405 | | Load 0x2,0x5
0fbd 0227 | ' | Execute Access,All_Reference
0fbe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0fbf e40b | | Load 0x2,0xb
0fc0 8242 | B | Call 0x1,0x42
0fc1 6852 |hR | Jump_Zero 0x1014
0fc2 e407 | | Load 0x2,0x7
0fc3 6841 |hA | Jump_Zero 0x1005
0fc4 00d9 | | Load_Top At_Offset_1
0fc5 e21f | | Load 0x1,0x1f
0fc6 00e1 | | Load_Encached Boolean_Cache
0fc7 00e1 | | Load_Encached Boolean_Cache
0fc8 e5fd | | Load 0x2,-0x3
0fc9 e406 | | Load 0x2,0x6
0fca e405 | | Load 0x2,0x5
0fcb e5fc | | Load 0x2,-0x4
0fcc 8270 | p | Call 0x1,0x70
0fcd c409 | | Store 0x2,0x9
0fce c40d | | Store 0x2,0xd
0fcf c40f | | Store 0x2,0xf
0fd0 005a | Z | Store_Top Discrete,At_Offset_2
0fd1 e40d | | Load 0x2,0xd
0fd2 6813 |h | Jump_Zero 0xfe6
0fd3 e003 | | Load 0x0,0x3
0fd4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fd5 00ec | | Load_Encached Diana_Tree_Cache
0fd6 00ec | | Load_Encached Diana_Tree_Cache
0fd7 00e3 | | Load_Encached Natural_Cache
0fd8 e40f | | Load 0x2,0xf
0fd9 8226 | & | Call 0x1,0x26
0fda c5fa | | Store 0x2,-0x6
0fdb c5f6 | | Store 0x2,-0xa
0fdc c40a | | Store 0x2,0xa
0fdd c5f9 | | Store 0x2,-0x7
0fde 4800 |H | Short_Literal 0x0
0fdf a5f8 | | Store_Unchecked 0x2,-0x8
0fe0 4801 |H | Short_Literal 0x1
0fe1 a5f7 | | Store_Unchecked 0x2,-0x9
0fe2 e012 | | Load 0x0,0x12
0fe3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fe4 c5f5 | | Store 0x2,-0xb
0fe5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0fe6 e409 | | Load 0x2,0x9
0fe7 6819 |h | Jump_Zero 0x1001
0fe8 e408 | | Load 0x2,0x8
0fe9 700c |p | Jump_Nonzero 0xff6
0fea e5fb | | Load 0x2,-0x5
0feb e402 | | Load 0x2,0x2
0fec e406 | | Load 0x2,0x6
0fed e40c | | Load 0x2,0xc
0fee e5fe | | Load 0x2,-0x2
0fef 8251 | Q | Call 0x1,0x51
0ff0 c40c | | Store 0x2,0xc
0ff1 c406 | | Store 0x2,0x6
0ff2 c402 | | Store 0x2,0x2
0ff3 c5fb | | Store 0x2,-0x5
0ff4 4801 |H | Short_Literal 0x1
0ff5 a408 | | Store_Unchecked 0x2,0x8
0ff6 e5fb | | Load 0x2,-0x5
0ff7 e402 | | Load 0x2,0x2
0ff8 e405 | | Load 0x2,0x5
0ff9 e40c | | Load 0x2,0xc
0ffa e5fe | | Load 0x2,-0x2
0ffb 8251 | Q | Call 0x1,0x51
0ffc c40c | | Store 0x2,0xc
0ffd c405 | | Store 0x2,0x5
0ffe c402 | | Store 0x2,0x2
0fff c5fb | | Store 0x2,-0x5
1000 780f |x | Jump 0x1010
1001 00da | | Load_Top At_Offset_2
1002 0aff | | Execute_Immediate Plus,-0x1
1003 005b | [ | Store_Top Discrete,At_Offset_3
1004 780b |x | Jump 0x1010
1005 e003 | | Load 0x0,0x3
1006 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1007 00ec | | Load_Encached Diana_Tree_Cache
1008 00ec | | Load_Encached Diana_Tree_Cache
1009 00e3 | | Load_Encached Natural_Cache
100a e405 | | Load 0x2,0x5
100b 8226 | & | Call 0x1,0x26
100c c5fa | | Store 0x2,-0x6
100d c5f6 | | Store 0x2,-0xa
100e c40a | | Store 0x2,0xa
100f c5f9 | | Store 0x2,-0x7
1010 e405 | | Load 0x2,0x5
1011 a406 | | Store_Unchecked 0x2,0x6
1012 4801 |H | Short_Literal 0x1
1013 a407 | | Store_Unchecked 0x2,0x7
1014 e404 | | Load 0x2,0x4
1015 e220 | | Load 0x1,0x20
1016 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1017 c404 | | Store 0x2,0x4
1018 00c9 | | Action Pop_Auxiliary_Loop
1019 e404 | | Load 0x2,0x4
101a e220 | | Load 0x1,0x20
101b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
101c 6f98 |o | Jump_Zero 0xfb5
101d 00ce | | Action Pop_Auxiliary
101e e408 | | Load 0x2,0x8
101f a40e | | Store_Unchecked 0x2,0xe
1020 e408 | | Load 0x2,0x8
1021 6807 |h | Jump_Zero 0x1029
1022 e5fb | | Load 0x2,-0x5
1023 00e1 | | Load_Encached Boolean_Cache
1024 e40c | | Load 0x2,0xc
1025 824f | O | Call 0x1,0x4f
1026 c40c | | Store 0x2,0xc
1027 c408 | | Store 0x2,0x8
1028 c5fb | | Store 0x2,-0x5
1029 00e1 | | Load_Encached Boolean_Cache
102a e5f5 | | Load 0x2,-0xb
102b e405 | | Load 0x2,0x5
102c 0227 | ' | Execute Access,All_Reference
102d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
102e 00db | | Load_Top At_Offset_3
102f e5fd | | Load 0x2,-0x3
1030 e408 | | Load 0x2,0x8
1031 e407 | | Load 0x2,0x7
1032 8247 | G | Call 0x1,0x47
1033 c5f5 | | Store 0x2,-0xb
1034 c5f8 | | Store 0x2,-0x8
1035 e408 | | Load 0x2,0x8
1036 6806 |h | Jump_Zero 0x103d
1037 e5fb | | Load 0x2,-0x5
1038 e5fe | | Load 0x2,-0x2
1039 e40c | | Load 0x2,0xc
103a e5fd | | Load 0x2,-0x3
103b 8254 | T | Call 0x1,0x54
103c 7826 |x& | Jump 0x1063
103d 00db | | Load_Top At_Offset_3
103e 6824 |h$ | Jump_Zero 0x1063
103f 00e1 | | Load_Encached Boolean_Cache
1040 e405 | | Load 0x2,0x5
1041 e40c | | Load 0x2,0xc
1042 e5fb | | Load 0x2,-0x5
1043 0227 | ' | Execute Access,All_Reference
1044 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1045 e223 | # | Load 0x1,0x23
1046 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1047 c405 | | Store 0x2,0x5
1048 c403 | | Store 0x2,0x3
1049 e403 | | Load 0x2,0x3
104a 680c |h | Jump_Zero 0x1057
104b e003 | | Load 0x0,0x3
104c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
104d 00ec | | Load_Encached Diana_Tree_Cache
104e 00ec | | Load_Encached Diana_Tree_Cache
104f 00e3 | | Load_Encached Natural_Cache
1050 e405 | | Load 0x2,0x5
1051 8226 | & | Call 0x1,0x26
1052 c5fa | | Store 0x2,-0x6
1053 c5f6 | | Store 0x2,-0xa
1054 c40a | | Store 0x2,0xa
1055 c5f9 | | Store 0x2,-0x7
1056 780c |x | Jump 0x1063
1057 0092 14c7 | | Action Push_String_Extended,0x14c7 ; "empty overload chain"
1059 e012 | | Load 0x0,0x12
105a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
105b c5f5 | | Store 0x2,-0xb
105c 7806 |x | Jump 0x1063
105d e224 | $ | Load 0x1,0x24
105e e012 | | Load 0x0,0x12
105f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1060 c5f5 | | Store 0x2,-0xb
1061 4800 |H | Short_Literal 0x0
1062 a5f8 | | Store_Unchecked 0x2,-0x8
1063 e5f8 | | Load 0x2,-0x8
1064 7005 |p | Jump_Nonzero 0x106a
1065 00d9 | | Load_Top At_Offset_1
1066 0c02 | | Execute_Immediate Greater_Equal,0x2
1067 6802 |h | Jump_Zero 0x106a
1068 4801 |H | Short_Literal 0x1
1069 a5f7 | | Store_Unchecked 0x2,-0x9
106a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
106b 0000 0000 | | .BLANK 0000[0x5]
1070 ; --------------------------------------------------------------------------------------
1070 ; SUBPROGRAM
1070 ; --------------------------------------------------------------------------------------
1070 1073 | s | .CONST 0x1073 ; Address of begin
1071 0004 | | .CONST 0x0004 ; Address of exception handler
1072 0001 | | .CONST 0x0001 ; Number of locals
1073 BODY_1070:
1073 INIT_1070:
1073 4800 |H | Short_Literal 0x0
1074 804e | N | Call 0x0,0x4e
1075 00ca | | Action Exit_Nullary_Function
1076 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
107c 0092 14c8 | | Action Push_String_Extended,0x14c8 ; " "
107e e014 | | Load 0x0,0x14
107f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1080 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1081 0000 0000 | | .BLANK 0000[0x7]
1088 ; --------------------------------------------------------------------------------------
1088 ; SUBPROGRAM
1088 ; --------------------------------------------------------------------------------------
1088 108b | | .CONST 0x108b ; Address of begin
1089 0004 | | .CONST 0x0004 ; Address of exception handler
108a 0001 | | .CONST 0x0001 ; Number of locals
108b BODY_1088:
108b INIT_1088:
108b 00da | | Load_Top At_Offset_2
108c e014 | | Load 0x0,0x14
108d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
108e 8227 | ' | Call 0x1,0x27
108f 8228 | ( | Call 0x1,0x28
1090 00da | | Load_Top At_Offset_2
1091 8273 | s | Call 0x1,0x73
1092 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1093 0000 0000 | | .BLANK 0000[0x5]
1098 ; --------------------------------------------------------------------------------------
1098 ; SUBPROGRAM
1098 ; --------------------------------------------------------------------------------------
1098 109b | | .CONST 0x109b ; Address of begin
1099 0004 | | .CONST 0x0004 ; Address of exception handler
109a 0001 | | .CONST 0x0001 ; Number of locals
109b BODY_1098:
109b INIT_1098:
109b 00db | | Load_Top At_Offset_3
109c e014 | | Load 0x0,0x14
109d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
109e 00db | | Load_Top At_Offset_3
109f 01db | | Execute Vector,Length
10a0 0273 | s | Execute Discrete,Plus
10a1 e218 | | Load 0x1,0x18
10a2 027a | z | Execute Discrete,Less_Equal
10a3 6806 |h | Jump_Zero 0x10aa
10a4 00db | | Load_Top At_Offset_3
10a5 00db | | Load_Top At_Offset_3
10a6 e014 | | Load 0x0,0x14
10a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
10a8 00d1 | | Pop_Control Pop_Count_1
10a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
10aa 00db | | Load_Top At_Offset_3
10ab 8274 | t | Call 0x1,0x74
10ac 00d1 | | Pop_Control Pop_Count_1
10ad 00da | | Load_Top At_Offset_2
10ae 01db | | Execute Vector,Length
10af e218 | | Load 0x1,0x18
10b0 027a | z | Execute Discrete,Less_Equal
10b1 6806 |h | Jump_Zero 0x10b8
10b2 00db | | Load_Top At_Offset_3
10b3 00db | | Load_Top At_Offset_3
10b4 e014 | | Load 0x0,0x14
10b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
10b6 00d1 | | Pop_Control Pop_Count_1
10b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
10b8 00db | | Load_Top At_Offset_3
10b9 00db | | Load_Top At_Offset_3
10ba 01dd | | Execute Vector,First
10bb e5ff | | Load 0x2,-0x1
10bc 01dd | | Execute Vector,First
10bd e218 | | Load 0x1,0x18
10be 0273 | s | Execute Discrete,Plus
10bf 0aff | | Execute_Immediate Plus,-0x1
10c0 00d8 | | Load_Top At_Offset_0
10c1 00e2 | | Load_Encached Integer_Cache
10c2 0260 | ` | Execute Discrete,In_Type
10c3 7001 |p | Jump_Nonzero 0x10c5
10c4 0801 | | Execute_Immediate Raise,0x1
10c5 e5ff | | Load 0x2,-0x1
10c6 01cf | | Execute Vector,Slice_Read
10c7 e014 | | Load 0x0,0x14
10c8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
10c9 00d1 | | Pop_Control Pop_Count_1
10ca 00db | | Load_Top At_Offset_3
10cb 8274 | t | Call 0x1,0x74
10cc 00d1 | | Pop_Control Pop_Count_1
10cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
10ce 0000 0000 | | .XXX[0x2]
10d0 ; --------------------------------------------------------------------------------------
10d0 ; SUBPROGRAM
10d0 ; --------------------------------------------------------------------------------------
10d0 1102 | | .CONST 0x1102 ; Address of begin
10d1 0004 | | .CONST 0x0004 ; Address of exception handler
10d2 000f | | .CONST 0x000f ; Number of locals
10d3 INIT_10d0:
10d3 e04d | M | Load 0x0,0x4d
10d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10d5 02c7 | | Declare_Variable Any
10d6 e5fe | | Load 0x2,-0x2
10d7 e013 | | Load 0x0,0x13
10d8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
10d9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
10da a402 | | Store_Unchecked 0x2,0x2
10db 00d8 | | Load_Top At_Offset_0
10dc e04d | M | Load 0x0,0x4d
10dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
10de e04d | M | Load 0x0,0x4d
10df 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10e0 03f1 | | Declare_Variable Discrete,With_Value
10e1 e218 | | Load 0x1,0x18
10e2 e014 | | Load 0x0,0x14
10e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10e4 1c08 | | Execute_Immediate Run_Utility,0x8
10e5 00d8 | | Load_Top At_Offset_0
10e6 1c00 | | Execute_Immediate Run_Utility,0x0
10e7 00e1 | | Load_Encached Boolean_Cache
10e8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
10e9 00ec | | Load_Encached Diana_Tree_Cache
10ea 00eb | | Load_Encached Diana_Cache
10eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10ec 00ed | | Load_Encached Diana_Symbol_Rep_Cache
10ed 02c7 | | Declare_Variable Any
10ee 00d8 | | Load_Top At_Offset_0
10ef 1c00 | | Execute_Immediate Run_Utility,0x0
10f0 00e3 | | Load_Encached Natural_Cache
10f1 00e1 | | Load_Encached Boolean_Cache
10f2 03e9 | | Declare_Variable Discrete,Duplicate
10f3 e024 | $ | Load 0x0,0x24
10f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
10f5 02ff | | Declare_Variable Variant_Record
10f6 00d8 | | Load_Top At_Offset_0
10f7 1c00 | | Execute_Immediate Run_Utility,0x0
10f8 e04d | M | Load 0x0,0x4d
10f9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
10fa e5fe | | Load 0x2,-0x2
10fb e003 | | Load 0x0,0x3
10fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
10fd 00e1 | | Load_Encached Boolean_Cache
10fe 03f1 | | Declare_Variable Discrete,With_Value
10ff e5fe | | Load 0x2,-0x2
1100 e021 | ! | Load 0x0,0x21
1101 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
1102 BODY_10d0:
1102 e403 | | Load 0x2,0x3
1103 7001 |p | Jump_Nonzero 0x1105
1104 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1105 0092 14c9 | | Action Push_String_Extended,0x14c9 ; " Library Units used by "
1107 e5ff | | Load 0x2,-0x1
1108 01cc | | Execute Vector,Catenate
1109 8227 | ' | Call 0x1,0x27
110a 8228 | ( | Call 0x1,0x28
110b e404 | | Load 0x2,0x4
110c 8273 | s | Call 0x1,0x73
110d 00d1 | | Pop_Control Pop_Count_1
110e 00cf | | Action Mark_Auxiliary
110f e403 | | Load 0x2,0x3
1110 4801 |H | Short_Literal 0x1
1111 0263 | c | Execute Discrete,Above_Bound
1112 7033 |p3 | Jump_Nonzero 0x1146
1113 e04d | M | Load 0x0,0x4d
1114 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1115 e40c | | Load 0x2,0xc
1116 00e1 | | Load_Encached Boolean_Cache
1117 00e1 | | Load_Encached Boolean_Cache
1118 00e3 | | Load_Encached Natural_Cache
1119 00ec | | Load_Encached Diana_Tree_Cache
111a 00eb | | Load_Encached Diana_Cache
111b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
111c e408 | | Load 0x2,0x8
111d 0120 | | Execute Any,Is_Value
111e 6802 |h | Jump_Zero 0x1121
111f 00ed | | Load_Encached Diana_Symbol_Rep_Cache
1120 7801 |x | Jump 0x1122
1121 e408 | | Load 0x2,0x8
1122 e412 | | Load 0x2,0x12
1123 e402 | | Load 0x2,0x2
1124 e04d | M | Load 0x0,0x4d
1125 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1126 c408 | | Store 0x2,0x8
1127 c407 | | Store 0x2,0x7
1128 c406 | | Store 0x2,0x6
1129 c409 | | Store 0x2,0x9
112a c40a | | Store 0x2,0xa
112b c40b | | Store 0x2,0xb
112c 00d1 | | Pop_Control Pop_Count_1
112d c40d | | Store 0x2,0xd
112e e408 | | Load 0x2,0x8
112f e40e | | Load 0x2,0xe
1130 e40f | | Load 0x2,0xf
1131 e406 | | Load 0x2,0x6
1132 8241 | A | Call 0x1,0x41
1133 7010 |p | Jump_Nonzero 0x1144
1134 e405 | | Load 0x2,0x5
1135 7005 |p | Jump_Nonzero 0x113b
1136 e404 | | Load 0x2,0x4
1137 0092 14ca | | Action Push_String_Extended,0x14ca ; " "
1139 8275 | u | Call 0x1,0x75
113a 00d1 | | Pop_Control Pop_Count_1
113b e404 | | Load 0x2,0x4
113c e406 | | Load 0x2,0x6
113d e408 | | Load 0x2,0x8
113e e407 | | Load 0x2,0x7
113f 8230 | 0 | Call 0x1,0x30
1140 8275 | u | Call 0x1,0x75
1141 00d1 | | Pop_Control Pop_Count_1
1142 4800 |H | Short_Literal 0x0
1143 a405 | | Store_Unchecked 0x2,0x5
1144 00c8 | | Action Pop_Auxiliary_Range
1145 3fcd |? | Loop_Increasing 0x1113
1146 00ce | | Action Pop_Auxiliary
1147 e404 | | Load 0x2,0x4
1148 8274 | t | Call 0x1,0x74
1149 4503 |E | Exit_Suprogram New_Top_Offset 0x3
114a 0000 0000 | | .BLANK 0000[0x6]
1150 ; --------------------------------------------------------------------------------------
1150 ; SUBPROGRAM
1150 ; --------------------------------------------------------------------------------------
1150 1164 | d | .CONST 0x1164 ; Address of begin
1151 0004 | | .CONST 0x0004 ; Address of exception handler
1152 0009 | | .CONST 0x0009 ; Number of locals
1153 INIT_1150:
1153 00ec | | Load_Encached Diana_Tree_Cache
1154 00eb | | Load_Encached Diana_Cache
1155 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1156 00ed | | Load_Encached Diana_Symbol_Rep_Cache
1157 02c7 | | Declare_Variable Any
1158 00d8 | | Load_Top At_Offset_0
1159 1c00 | | Execute_Immediate Run_Utility,0x0
115a 00e3 | | Load_Encached Natural_Cache
115b 00e1 | | Load_Encached Boolean_Cache
115c 03e9 | | Declare_Variable Discrete,Duplicate
115d e024 | $ | Load 0x0,0x24
115e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
115f 02ff | | Declare_Variable Variant_Record
1160 00d8 | | Load_Top At_Offset_0
1161 1c00 | | Execute_Immediate Run_Utility,0x0
1162 e04d | M | Load 0x0,0x4d
1163 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1164 BODY_1150:
1164 e04d | M | Load 0x0,0x4d
1165 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1166 00da | | Load_Top At_Offset_2
1167 00e1 | | Load_Encached Boolean_Cache
1168 00e1 | | Load_Encached Boolean_Cache
1169 00e3 | | Load_Encached Natural_Cache
116a 00ec | | Load_Encached Diana_Tree_Cache
116b 00eb | | Load_Encached Diana_Cache
116c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
116d e404 | | Load 0x2,0x4
116e 0120 | | Execute Any,Is_Value
116f 6802 |h | Jump_Zero 0x1172
1170 00ed | | Load_Encached Diana_Symbol_Rep_Cache
1171 7801 |x | Jump 0x1173
1172 e404 | | Load 0x2,0x4
1173 e5fd | | Load 0x2,-0x3
1174 e5fe | | Load 0x2,-0x2
1175 e04d | M | Load 0x0,0x4d
1176 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1177 c404 | | Store 0x2,0x4
1178 c403 | | Store 0x2,0x3
1179 c402 | | Store 0x2,0x2
117a c405 | | Store 0x2,0x5
117b c406 | | Store 0x2,0x6
117c c407 | | Store 0x2,0x7
117d 00d1 | | Pop_Control Pop_Count_1
117e 0059 | Y | Store_Top Discrete,At_Offset_1
117f e404 | | Load 0x2,0x4
1180 e5fa | | Load 0x2,-0x6
1181 e5ff | | Load 0x2,-0x1
1182 e402 | | Load 0x2,0x2
1183 8241 | A | Call 0x1,0x41
1184 6801 |h | Jump_Zero 0x1186
1185 4507 |E | Exit_Suprogram New_Top_Offset 0x7
1186 0092 14cb | | Action Push_String_Extended,0x14cb ; " "
1188 e402 | | Load 0x2,0x2
1189 e404 | | Load 0x2,0x4
118a e403 | | Load 0x2,0x3
118b 8230 | 0 | Call 0x1,0x30
118c 01cc | | Execute Vector,Catenate
118d 8227 | ' | Call 0x1,0x27
118e 00da | | Load_Top At_Offset_2
118f 6803 |h | Jump_Zero 0x1193
1190 0092 14cc | | Action Push_String_Extended,0x14cc ; " (archived)"
1192 8227 | ' | Call 0x1,0x27
1193 e5fb | | Load 0x2,-0x5
1194 680a |h | Jump_Zero 0x119f
1195 e403 | | Load 0x2,0x3
1196 0f29 | ) | Execute_Immediate Equal,0x29
1197 6807 |h | Jump_Zero 0x119f
1198 0092 14cd | | Action Push_String_Extended,0x14cd ; " Elab Segment Offset: "
119a e405 | | Load 0x2,0x5
119b 00e0 | | Load_Encached Standard_Cache
119c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
119d 01cc | | Execute Vector,Catenate
119e 8227 | ' | Call 0x1,0x27
119f 8228 | ( | Call 0x1,0x28
11a0 4507 |E | Exit_Suprogram New_Top_Offset 0x7
11a1 0000 0000 | | .BLANK 0000[0x7]
11a8 ; --------------------------------------------------------------------------------------
11a8 ; SUBPROGRAM
11a8 ; --------------------------------------------------------------------------------------
11a8 11ca | | .CONST 0x11ca ; Address of begin
11a9 0004 | | .CONST 0x0004 ; Address of exception handler
11aa 0008 | | .CONST 0x0008 ; Number of locals
11ab INIT_11a8:
11ab 00ec | | Load_Encached Diana_Tree_Cache
11ac e04d | M | Load 0x0,0x4d
11ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11ae 02c7 | | Declare_Variable Any
11af 00d8 | | Load_Top At_Offset_0
11b0 1c00 | | Execute_Immediate Run_Utility,0x0
11b1 e5ff | | Load 0x2,-0x1
11b2 0227 | ' | Execute Access,All_Reference
11b3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
11b4 e004 | | Load 0x0,0x4
11b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11b6 03f1 | | Declare_Variable Discrete,With_Value
11b7 e004 | | Load 0x0,0x4
11b8 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
11b9 02c7 | | Declare_Variable Any
11ba e5ff | | Load 0x2,-0x1
11bb 0227 | ' | Execute Access,All_Reference
11bc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
11bd a405 | | Store_Unchecked 0x2,0x5
11be e04d | M | Load 0x0,0x4d
11bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11c0 8272 | r | Call 0x1,0x72
11c1 00e1 | | Load_Encached Boolean_Cache
11c2 03f1 | | Declare_Variable Discrete,With_Value
11c3 e5ff | | Load 0x2,-0x1
11c4 0227 | ' | Execute Access,All_Reference
11c5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
11c6 e003 | | Load 0x0,0x3
11c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11c8 00e1 | | Load_Encached Boolean_Cache
11c9 03f1 | | Declare_Variable Discrete,With_Value
11ca BODY_11a8:
11ca 480a |H | Short_Literal 0xa
11cb 0092 14ce | | Action Push_String_Extended,0x14ce ; " Library: "
11cd e5ff | | Load 0x2,-0x1
11ce 0227 | ' | Execute Access,All_Reference
11cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
11d0 822d | - | Call 0x1,0x2d
11d1 01cc | | Execute Vector,Catenate
11d2 01cb | | Execute Vector,Append
11d3 8227 | ' | Call 0x1,0x27
11d4 480a |H | Short_Literal 0xa
11d5 0092 14cf | | Action Push_String_Extended,0x14cf ; " Main Unit: "
11d7 e5ff | | Load 0x2,-0x1
11d8 0227 | ' | Execute Access,All_Reference
11d9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
11da 8231 | 1 | Call 0x1,0x31
11db 01cc | | Execute Vector,Catenate
11dc 01cb | | Execute Vector,Append
11dd 8227 | ' | Call 0x1,0x27
11de 00d9 | | Load_Top At_Offset_1
11df 6816 |h | Jump_Zero 0x11f6
11e0 00db | | Load_Top At_Offset_3
11e1 e404 | | Load 0x2,0x4
11e2 8259 | Y | Call 0x1,0x59
11e3 6812 |h | Jump_Zero 0x11f6
11e4 0092 14d0 | | Action Push_String_Extended,0x14d0 ; " Elab Segment:"
11e6 e404 | | Load 0x2,0x4
11e7 00e0 | | Load_Encached Standard_Cache
11e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11e9 01cc | | Execute Vector,Catenate
11ea 8227 | ' | Call 0x1,0x27
11eb 480a |H | Short_Literal 0xa
11ec 0092 14d1 | | Action Push_String_Extended,0x14d1 ; " Elab Frame Name:"
11ee e405 | | Load 0x2,0x5
11ef e004 | | Load 0x0,0x4
11f0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
11f1 00e0 | | Load_Encached Standard_Cache
11f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11f3 01cc | | Execute Vector,Catenate
11f4 01cb | | Execute Vector,Append
11f5 8227 | ' | Call 0x1,0x27
11f6 0092 14d2 | | Action Push_String_Extended,0x14d2 ; " Library Units: \x0a"
11f8 8227 | ' | Call 0x1,0x27
11f9 e5ff | | Load 0x2,-0x1
11fa 0227 | ' | Execute Access,All_Reference
11fb 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
11fc a402 | | Store_Unchecked 0x2,0x2
11fd e402 | | Load 0x2,0x2
11fe e013 | | Load 0x0,0x13
11ff 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1200 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
1201 7008 |p | Jump_Nonzero 0x120a
1202 e402 | | Load 0x2,0x2
1203 e021 | ! | Load 0x0,0x21
1204 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
1205 00eb | | Load_Encached Diana_Cache
1206 18ec | | Execute Package,Field_Execute,Field_Number 0xec
1207 00eb | | Load_Encached Diana_Cache
1208 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
1209 a402 | | Store_Unchecked 0x2,0x2
120a e402 | | Load 0x2,0x2
120b e013 | | Load 0x0,0x13
120c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
120d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
120e c403 | | Store 0x2,0x3
120f e403 | | Load 0x2,0x3
1210 e04d | M | Load 0x0,0x4d
1211 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1212 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
1213 00cf | | Action Mark_Auxiliary
1214 00db | | Load_Top At_Offset_3
1215 4801 |H | Short_Literal 0x1
1216 0263 | c | Execute Discrete,Above_Bound
1217 700b |p | Jump_Nonzero 0x1223
1218 00db | | Load_Top At_Offset_3
1219 e407 | | Load 0x2,0x7
121a e5ff | | Load 0x2,-0x1
121b 00db | | Load_Top At_Offset_3
121c e403 | | Load 0x2,0x3
121d e5ff | | Load 0x2,-0x1
121e 0227 | ' | Execute Access,All_Reference
121f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1220 8277 | w | Call 0x1,0x77
1221 00c8 | | Action Pop_Auxiliary_Range
1222 3ff5 |? | Loop_Increasing 0x1218
1223 00ce | | Action Pop_Auxiliary
1224 8228 | ( | Call 0x1,0x28
1225 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1226 0000 0000 | | .XXX[0x2]
1228 ; --------------------------------------------------------------------------------------
1228 ; SUBPROGRAM
1228 ; --------------------------------------------------------------------------------------
1228 1232 | 2 | .CONST 0x1232 ; Address of begin
1229 0004 | | .CONST 0x0004 ; Address of exception handler
122a 0004 | | .CONST 0x0004 ; Number of locals
122b INIT_1228:
122b e223 | # | Load 0x1,0x23
122c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
122d 0322 | " | Declare_Variable Record
122e e21f | | Load 0x1,0x1f
122f 0007 | | Action Break_Optional
1230 00e1 | | Load_Encached Boolean_Cache
1231 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1232 BODY_1228:
1232 00da | | Load_Top At_Offset_2
1233 e5ff | | Load 0x2,-0x1
1234 0227 | ' | Execute Access,All_Reference
1235 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1236 e223 | # | Load 0x1,0x23
1237 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1238 00d1 | | Pop_Control Pop_Count_1
1239 00cf | | Action Mark_Auxiliary
123a 781e |x | Jump 0x1259
123b 00db | | Load_Top At_Offset_3
123c e223 | # | Load 0x1,0x23
123d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
123e e5ff | | Load 0x2,-0x1
123f 0227 | ' | Execute Access,All_Reference
1240 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1241 e223 | # | Load 0x1,0x23
1242 1815 | | Execute Package,Field_Execute,Field_Number 0x15
1243 003b | ; | Store_Top Access,At_Offset_3
1244 00da | | Load_Top At_Offset_2
1245 0227 | ' | Execute Access,All_Reference
1246 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1247 0f02 | | Execute_Immediate Equal,0x2
1248 680b |h | Jump_Zero 0x1254
1249 00d9 | | Load_Top At_Offset_1
124a 7005 |p | Jump_Nonzero 0x1250
124b 0092 14d3 | | Action Push_String_Extended,0x14d3 ; "Libraries in use by this program:\x0a"
124d 8227 | ' | Call 0x1,0x27
124e 4801 |H | Short_Literal 0x1
124f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
1250 e5ff | | Load 0x2,-0x1
1251 00db | | Load_Top At_Offset_3
1252 8278 | x | Call 0x1,0x78
1253 c5ff | | Store 0x2,-0x1
1254 00db | | Load_Top At_Offset_3
1255 e223 | # | Load 0x1,0x23
1256 1820 | | Execute Package,Field_Execute,Field_Number 0x20
1257 00d1 | | Pop_Control Pop_Count_1
1258 00c9 | | Action Pop_Auxiliary_Loop
1259 00db | | Load_Top At_Offset_3
125a e223 | # | Load 0x1,0x23
125b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
125c 6fde |o | Jump_Zero 0x123b
125d 00ce | | Action Pop_Auxiliary
125e 00d8 | | Load_Top At_Offset_0
125f 7003 |p | Jump_Nonzero 0x1263
1260 0092 14d4 | | Action Push_String_Extended,0x14d4 ; "No libraries are currently registered.\x0a"
1262 8227 | ' | Call 0x1,0x27
1263 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1264 0000 0000 | | .BLANK 0000[0x4]
1268 ; --------------------------------------------------------------------------------------
1268 ; SUBPROGRAM
1268 ; --------------------------------------------------------------------------------------
1268 126b | k | .CONST 0x126b ; Address of begin
1269 0004 | | .CONST 0x0004 ; Address of exception handler
126a 0001 | | .CONST 0x0001 ; Number of locals
126b BODY_1268:
126b INIT_1268:
126b 4800 |H | Short_Literal 0x0
126c a5fe | | Store_Unchecked 0x2,-0x2
126d 4800 |H | Short_Literal 0x0
126e a5fc | | Store_Unchecked 0x2,-0x4
126f 00eb | | Load_Encached Diana_Cache
1270 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1271 0033 | 3 | Store_Top Heap_Access,At_Offset_3
1272 e21d | | Load 0x1,0x1d
1273 a5fd | | Store_Unchecked 0x2,-0x3
1274 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1275 0000 0000 | | .XXX[0x3]
1277 0000 | |
1278 ; --------------------------------------------------------------------------------------
1278 ; SUBPROGRAM
1278 ; --------------------------------------------------------------------------------------
1278 1280 | | .CONST 0x1280 ; Address of begin
1279 0004 | | .CONST 0x0004 ; Address of exception handler
127a 0002 | | .CONST 0x0002 ; Number of locals
127b INIT_1278:
127b 00da | | Load_Top At_Offset_2
127c e014 | | Load 0x0,0x14
127d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
127e 00e3 | | Load_Encached Natural_Cache
127f 03f1 | | Declare_Variable Discrete,With_Value
1280 BODY_1278:
1280 00cf | | Action Mark_Auxiliary
1281 4801 |H | Short_Literal 0x1
1282 00da | | Load_Top At_Offset_2
1283 0264 | d | Execute Discrete,Below_Bound
1284 7014 |p | Jump_Nonzero 0x1299
1285 00d8 | | Load_Top At_Offset_0
1286 e5ff | | Load 0x2,-0x1
1287 e014 | | Load 0x0,0x14
1288 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
1289 0f2e | . | Execute_Immediate Equal,0x2e
128a 680c |h | Jump_Zero 0x1297
128b 00db | | Load_Top At_Offset_3
128c 00d9 | | Load_Top At_Offset_1
128d 0a01 | | Execute_Immediate Plus,0x1
128e 00d8 | | Load_Top At_Offset_0
128f 00e4 | | Load_Encached Positive_Cache
1290 0260 | ` | Execute Discrete,In_Type
1291 7001 |p | Jump_Nonzero 0x1293
1292 0801 | | Execute_Immediate Raise,0x1
1293 e5ff | | Load 0x2,-0x1
1294 e014 | | Load 0x0,0x14
1295 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
1296 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1297 00c8 | | Action Pop_Auxiliary_Range
1298 37ec |7 | Loop_Decreasing 0x1285
1299 00ce | | Action Pop_Auxiliary
129a 00db | | Load_Top At_Offset_3
129b e014 | | Load 0x0,0x14
129c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
129d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
129e 0000 0000 | | .XXX[0x2]
12a0 ; --------------------------------------------------------------------------------------
12a0 ; SUBPROGRAM
12a0 ; --------------------------------------------------------------------------------------
12a0 12a9 | | .CONST 0x12a9 ; Address of begin
12a1 0004 | | .CONST 0x0004 ; Address of exception handler
12a2 0004 | | .CONST 0x0004 ; Number of locals
12a3 INIT_12a0:
12a3 e024 | $ | Load 0x0,0x24
12a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12a6 e04f | O | Load 0x0,0x4f
12a7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
12a8 00ec | | Load_Encached Diana_Tree_Cache
12a9 BODY_12a0:
12a9 e050 | P | Load 0x0,0x50
12aa 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
12ab e024 | $ | Load 0x0,0x24
12ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12ae e024 | $ | Load 0x0,0x24
12af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12b0 6027 |`' | Indirect_Literal Discrete,0x12d8,{0x00000000, 0x00004000}
12b1 e025 | % | Load 0x0,0x25
12b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12b3 e403 | | Load 0x2,0x3
12b4 e024 | $ | Load 0x0,0x24
12b5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
12b7 e5ff | | Load 0x2,-0x1
12b8 e014 | | Load 0x0,0x14
12b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12ba e024 | $ | Load 0x0,0x24
12bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12bc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
12bd 0032 | 2 | Store_Top Heap_Access,At_Offset_2
12be 005b | [ | Store_Top Discrete,At_Offset_3
12bf 00da | | Load_Top At_Offset_2
12c0 6803 |h | Jump_Zero 0x12c4
12c1 00eb | | Load_Encached Diana_Cache
12c2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
12c3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
12c4 00d8 | | Load_Top At_Offset_0
12c5 a5fe | | Store_Unchecked 0x2,-0x2
12c6 00d8 | | Load_Top At_Offset_0
12c7 00eb | | Load_Encached Diana_Cache
12c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12c9 6809 |h | Jump_Zero 0x12d3
12ca e5fd | | Load 0x2,-0x3
12cb 00ea | | Load_Encached Null_String_Cache
12cc e5ff | | Load 0x2,-0x1
12cd 827c | | | Call 0x1,0x7c
12ce e224 | $ | Load 0x1,0x24
12cf e012 | | Load 0x0,0x12
12d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
12d1 c5fd | | Store 0x2,-0x3
12d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
12d3 e5fd | | Load 0x2,-0x3
12d4 e012 | | Load 0x0,0x12
12d5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
12d6 c5fd | | Store 0x2,-0x3
12d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
12d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
12dc 0000 0000 | | .BLANK 0000[0x4]
12e0 ; --------------------------------------------------------------------------------------
12e0 ; SUBPROGRAM
12e0 ; --------------------------------------------------------------------------------------
12e0 1311 | | .CONST 0x1311 ; Address of begin
12e1 0004 | | .CONST 0x0004 ; Address of exception handler
12e2 000e | | .CONST 0x000e ; Number of locals
12e3 INIT_12e0:
12e3 e5fd | | Load 0x2,-0x3
12e4 e014 | | Load 0x0,0x14
12e5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
12e6 00e3 | | Load_Encached Natural_Cache
12e7 03f1 | | Declare_Variable Discrete,With_Value
12e8 00d8 | | Load_Top At_Offset_0
12e9 0a01 | | Execute_Immediate Plus,0x1
12ea e5ff | | Load 0x2,-0x1
12eb e014 | | Load 0x0,0x14
12ec 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
12ed 0273 | s | Execute Discrete,Plus
12ee 00e3 | | Load_Encached Natural_Cache
12ef 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
12f0 00d8 | | Load_Top At_Offset_0
12f1 e014 | | Load 0x0,0x14
12f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12f3 1c08 | | Execute_Immediate Run_Utility,0x8
12f4 00d8 | | Load_Top At_Offset_0
12f5 1c00 | | Execute_Immediate Run_Utility,0x0
12f6 00da | | Load_Top At_Offset_2
12f7 e014 | | Load 0x0,0x14
12f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12f9 1c08 | | Execute_Immediate Run_Utility,0x8
12fa 00d8 | | Load_Top At_Offset_0
12fb 1c00 | | Execute_Immediate Run_Utility,0x0
12fc 00da | | Load_Top At_Offset_2
12fd e014 | | Load 0x0,0x14
12fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12ff 1c08 | | Execute_Immediate Run_Utility,0x8
1300 00d8 | | Load_Top At_Offset_0
1301 1c00 | | Execute_Immediate Run_Utility,0x0
1302 00eb | | Load_Encached Diana_Cache
1303 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1304 00eb | | Load_Encached Diana_Cache
1305 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1306 e012 | | Load 0x0,0x12
1307 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1308 02c7 | | Declare_Variable Any
1309 00d8 | | Load_Top At_Offset_0
130a 1c00 | | Execute_Immediate Run_Utility,0x0
130b e003 | | Load 0x0,0x3
130c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
130d 00e3 | | Load_Encached Natural_Cache
130e 00e1 | | Load_Encached Boolean_Cache
130f 00e1 | | Load_Encached Boolean_Cache
1310 00ec | | Load_Encached Diana_Tree_Cache
1311 BODY_12e0:
1311 00e1 | | Load_Encached Boolean_Cache
1312 e003 | | Load 0x0,0x3
1313 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1314 00e3 | | Load_Encached Natural_Cache
1315 00ec | | Load_Encached Diana_Tree_Cache
1316 827b | { | Call 0x1,0x7b
1317 c5f9 | | Store 0x2,-0x7
1318 c5f8 | | Store 0x2,-0x8
1319 c5f7 | | Store 0x2,-0x9
131a c5f6 | | Store 0x2,-0xa
131b 4800 |H | Short_Literal 0x0
131c a5fa | | Store_Unchecked 0x2,-0x6
131d e404 | | Load 0x2,0x4
131e e5ff | | Load 0x2,-0x1
131f e014 | | Load 0x0,0x14
1320 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1321 e014 | | Load 0x0,0x14
1322 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1323 00d1 | | Pop_Control Pop_Count_1
1324 00cf | | Action Mark_Auxiliary
1325 e406 | | Load 0x2,0x6
1326 e404 | | Load 0x2,0x4
1327 e016 | | Load 0x0,0x16
1328 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1329 e014 | | Load 0x0,0x14
132a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
132b 00d1 | | Pop_Control Pop_Count_1
132c e5fc | | Load 0x2,-0x4
132d e404 | | Load 0x2,0x4
132e e016 | | Load 0x0,0x16
132f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1330 e014 | | Load 0x0,0x14
1331 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1332 00d1 | | Pop_Control Pop_Count_1
1333 e5f5 | | Load 0x2,-0xb
1334 00ec | | Load_Encached Diana_Tree_Cache
1335 e406 | | Load 0x2,0x6
1336 827d | } | Call 0x1,0x7d
1337 c407 | | Store 0x2,0x7
1338 c5f5 | | Store 0x2,-0xb
1339 4802 |H | Short_Literal 0x2
133a e5f5 | | Load 0x2,-0xb
133b e012 | | Load 0x0,0x12
133c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
133d 6801 |h | Jump_Zero 0x133f
133e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
133f e407 | | Load 0x2,0x7
1340 e003 | | Load 0x0,0x3
1341 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1342 a40c | | Store_Unchecked 0x2,0xc
1343 00db | | Load_Top At_Offset_3
1344 701b |p | Jump_Nonzero 0x1360
1345 e5fd | | Load 0x2,-0x3
1346 e014 | | Load 0x0,0x14
1347 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
1348 6817 |h | Jump_Zero 0x1360
1349 e5f5 | | Load 0x2,-0xb
134a 00e3 | | Load_Encached Natural_Cache
134b e405 | | Load 0x2,0x5
134c e5fd | | Load 0x2,-0x3
134d 4800 |H | Short_Literal 0x0
134e e402 | | Load 0x2,0x2
134f e016 | | Load 0x0,0x16
1350 180d | | Execute Package,Field_Execute,Field_Number 0xd
1351 00d2 | | Pop_Control Pop_Count_2
1352 c5fa | | Store 0x2,-0x6
1353 c5f5 | | Store 0x2,-0xb
1354 e404 | | Load 0x2,0x4
1355 482e |H. | Short_Literal 0x2e
1356 e014 | | Load 0x0,0x14
1357 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1358 00d1 | | Pop_Control Pop_Count_1
1359 e404 | | Load 0x2,0x4
135a e405 | | Load 0x2,0x5
135b e014 | | Load 0x0,0x14
135c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
135d 00d1 | | Pop_Control Pop_Count_1
135e 00c9 | | Action Pop_Auxiliary_Loop
135f 7fc5 | | Jump 0x1325
1360 00ce | | Action Pop_Auxiliary
1361 e407 | | Load 0x2,0x7
1362 822b | + | Call 0x1,0x2b
1363 0031 | 1 | Store_Top Heap_Access,At_Offset_1
1364 00d8 | | Load_Top At_Offset_0
1365 a5f9 | | Store_Unchecked 0x2,-0x7
1366 e5f5 | | Load 0x2,-0xb
1367 e012 | | Load 0x0,0x12
1368 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1369 c5f5 | | Store 0x2,-0xb
136a 00da | | Load_Top At_Offset_2
136b 681c |h | Jump_Zero 0x1388
136c e409 | | Load 0x2,0x9
136d 00e1 | | Load_Encached Boolean_Cache
136e 00e1 | | Load_Encached Boolean_Cache
136f 00ec | | Load_Encached Diana_Tree_Cache
1370 e003 | | Load 0x0,0x3
1371 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1372 00e3 | | Load_Encached Natural_Cache
1373 e5fb | | Load 0x2,-0x5
1374 e5fe | | Load 0x2,-0x2
1375 e5fc | | Load 0x2,-0x4
1376 e014 | | Load 0x0,0x14
1377 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1378 e40e | | Load 0x2,0xe
1379 822c | , | Call 0x1,0x2c
137a e40e | | Load 0x2,0xe
137b 480b |H | Short_Literal 0xb
137c e27a | z | Load 0x1,0x7a
137d 170f | | Execute Task,Entry_Call,Field_Number 0xf
137e c5fb | | Store 0x2,-0x5
137f c5f8 | | Store 0x2,-0x8
1380 c40a | | Store 0x2,0xa
1381 c408 | | Store 0x2,0x8
1382 c5f6 | | Store 0x2,-0xa
1383 005b | [ | Store_Top Discrete,At_Offset_3
1384 c409 | | Store 0x2,0x9
1385 4800 |H | Short_Literal 0x0
1386 a5f7 | | Store_Unchecked 0x2,-0x9
1387 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1388 4800 |H | Short_Literal 0x0
1389 a5f8 | | Store_Unchecked 0x2,-0x8
138a 4802 |H | Short_Literal 0x2
138b a5f7 | | Store_Unchecked 0x2,-0x9
138c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
138d 0000 0000 | | .XXX[0x3]
138f 0000 | |
1390 ; --------------------------------------------------------------------------------------
1390 ; SUBPROGRAM
1390 ; --------------------------------------------------------------------------------------
1390 1393 | | .CONST 0x1393 ; Address of begin
1391 139b | | .CONST 0x139b ; Address of exception handler
1392 0001 | | .CONST 0x0001 ; Number of locals
1393 BODY_1390:
1393 INIT_1390:
1393 e5ff | | Load 0x2,-0x1
1394 e5fd | | Load 0x2,-0x3
1395 e5fc | | Load 0x2,-0x4
1396 e013 | | Load 0x0,0x13
1397 1b11 | | Execute Package,Field_Read,Field_Number 0x11
1398 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1399 a402 | | Store_Unchecked 0x2,0x2
139a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
139b TRAP_1390:
139b e013 | | Load 0x0,0x13
139c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
139d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
139e 010f | | Execute Exception,Equal
139f 7005 |p | Jump_Nonzero 0x13a5
13a0 e013 | | Load 0x0,0x13
13a1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
13a2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
13a3 010f | | Execute Exception,Equal
13a4 6804 |h | Jump_Zero 0x13a9
13a5 00eb | | Load_Encached Diana_Cache
13a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
13a7 a402 | | Store_Unchecked 0x2,0x2
13a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
13a9 480a |H | Short_Literal 0xa
13aa 0092 14a0 | | Action Push_String_Extended,0x14a0 ; "Register: "
13ac e011 | | Load 0x0,0x11
13ad 180d | | Execute Package,Field_Execute,Field_Number 0xd
13ae 01cc | | Execute Vector,Catenate
13af 0092 14d5 | | Action Push_String_Extended,0x14d5 ; " raised locating source for unit."
13b1 01cc | | Execute Vector,Catenate
13b2 01cb | | Execute Vector,Append
13b3 8219 | | Call 0x1,0x19
13b4 00d8 | | Load_Top At_Offset_0
13b5 0101 | | Execute Exception,Reraise
13b6 0000 0000 | | .XXX[0x2]
13b8 ; --------------------------------------------------------------------------------------
13b8 ; SUBPROGRAM
13b8 ; --------------------------------------------------------------------------------------
13b8 13cb | | .CONST 0x13cb ; Address of begin
13b9 0004 | | .CONST 0x0004 ; Address of exception handler
13ba 0013 | | .CONST 0x0013 ; Number of locals
13bb INIT_13b8:
13bb 4805 |H | Short_Literal 0x5
13bc 02cb | | Declare_Variable Entry
13bd 4804 |H | Short_Literal 0x4
13be 02cb | | Declare_Variable Entry
13bf 480b |H | Short_Literal 0xb
13c0 02cb | | Declare_Variable Entry
13c1 4806 |H | Short_Literal 0x6
13c2 02cb | | Declare_Variable Entry
13c3 4801 |H | Short_Literal 0x1
13c4 02cb | | Declare_Variable Entry
13c5 4801 |H | Short_Literal 0x1
13c6 02cb | | Declare_Variable Entry
13c7 00bf | | Action Accept_Activation
13c8 029f 13db | | Declare_Subprogram INIT_13d8,For_Call
13ca 00bc | | Action Signal_Activated
13cb BODY_13b8:
13cb 0092 14d6 | | Action Push_String_Extended,0x14d6 ; "Library_Database"
13cd e001 | | Load 0x0,0x1
13ce 180f | | Execute Package,Field_Execute,Field_Number 0xf
13cf 00cf | | Action Mark_Auxiliary
13d0 8213 | | Call 0x1,0x13
13d1 00c9 | | Action Pop_Auxiliary_Loop
13d2 7ffd | | Jump 0x13d0
13d3 0000 0000 | | .BLANK 0000[0x5]
13d8 ; --------------------------------------------------------------------------------------
13d8 ; SUBPROGRAM
13d8 ; --------------------------------------------------------------------------------------
13d8 13ec | | .CONST 0x13ec ; Address of begin
13d9 13ef | | .CONST 0x13ef ; Address of exception handler
13da 0002 | | .CONST 0x0002 ; Number of locals
13db INIT_13d8:
13db 4812 4a7f |H J | Declare_Variable Select 0x000, 0x006,
13dd 4811 4a80 |H J | [0x000]: 0x001 = 0x0008,
13df 4810 4a84 |H J | [0x00d]: 0x28a = 0x1450,
13e1 480f 4a85 |H J | [0x00e]: 0x288 = 0x1440,
13e3 480e 4a88 |H J | [0x00f]: 0x285 = 0x1428,
13e5 480d 4a8a |H J | [0x010]: 0x284 = 0x1420,
13e7 4800 4801 |H H | [0x011]: 0x280 = 0x1400,
13e9 4800 4806 |H H | [0x012]: 0x27f = 0x13f8
13eb 02cf | |
13ec BODY_13d8:
13ec 00d8 | | Load_Top At_Offset_0
13ed 013f | ? | Execute Select,Rendezvous
13ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1
13ef TRAP_13d8:
13ef 0007 | | Action Break_Optional
13f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
13f1 0000 0000 | | .BLANK 0000[0x7]
13f8 ; --------------------------------------------------------------------------------------
13f8 ; SUBPROGRAM
13f8 ; See instruction 0x02cf at 0x13db, index=0x12
13f8 ; --------------------------------------------------------------------------------------
13f8 13fb | | .CONST 0x13fb ; Address of begin
13f9 0004 | | .CONST 0x0004 ; Address of exception handler
13fa 0001 | | .CONST 0x0001 ; Number of locals
13fb BODY_13f8:
13fb INIT_13f8:
13fb 00db | | Load_Top At_Offset_3
13fc 8002 | | Call 0x0,0x2
13fd c7fe | | Store 0x3,-0x2
13fe 4101 |A | End_Rendezvous 0x1
13ff 0000 | | .XXX[0x1]
1400 ; --------------------------------------------------------------------------------------
1400 ; SUBPROGRAM
1400 ; See instruction 0x02cf at 0x13db, index=0x11
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 00db | | Load_Top At_Offset_3
1404 7003 |p | Jump_Nonzero 0x1408
1405 e003 | | Load 0x0,0x3
1406 03bc | | Declare_Variable Access,By_Allocation
1407 a7fe | | Store_Unchecked 0x3,-0x2
1408 4801 |H | Short_Literal 0x1
1409 e7fe | | Load 0x3,-0x2
140a 0227 | ' | Execute Access,All_Reference
140b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
140c 00db | | Load_Top At_Offset_3
140d 0229 | ) | Execute Access,All_Read
140e e004 | | Load 0x0,0x4
140f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
1410 e004 | | Load 0x0,0x4
1411 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1412 00d9 | | Load_Top At_Offset_1
1413 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
1414 00d1 | | Pop_Control Pop_Count_1
1415 00db | | Load_Top At_Offset_3
1416 0229 | ) | Execute Access,All_Read
1417 e005 | | Load 0x0,0x5
1418 1b13 | | Execute Package,Field_Read,Field_Number 0x13
1419 4865 |He | Short_Literal 0x65
141a e005 | | Load 0x0,0x5
141b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
141c 00d9 | | Load_Top At_Offset_1
141d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
141e 4101 |A | End_Rendezvous 0x1
141f 0000 | | .XXX[0x1]
1420 ; --------------------------------------------------------------------------------------
1420 ; SUBPROGRAM
1420 ; See instruction 0x02cf at 0x13db, index=0x10
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 029f 1463 | c| Declare_Subprogram INIT_1460,For_Call
1425 8602 | | Call 0x3,0x2
1426 4105 |A | End_Rendezvous 0x5
1427 0000 | | .XXX[0x1]
1428 ; --------------------------------------------------------------------------------------
1428 ; SUBPROGRAM
1428 ; See instruction 0x02cf at 0x13db, index=0xf
1428 ; --------------------------------------------------------------------------------------
1428 142b | + | .CONST 0x142b ; Address of begin
1429 0004 | | .CONST 0x0004 ; Address of exception handler
142a 0001 | | .CONST 0x0001 ; Number of locals
142b BODY_1428:
142b INIT_1428:
142b e7f4 | | Load 0x3,-0xc
142c 00ec | | Load_Encached Diana_Tree_Cache
142d 00e1 | | Load_Encached Boolean_Cache
142e 00e1 | | Load_Encached Boolean_Cache
142f e006 | | Load 0x0,0x6
1430 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1431 00e3 | | Load_Encached Natural_Cache
1432 e7fa | | Load 0x3,-0x6
1433 e7fb | | Load 0x3,-0x5
1434 e7fc | | Load 0x3,-0x4
1435 e7fd | | Load 0x3,-0x3
1436 e7fe | | Load 0x3,-0x2
1437 8007 | | Call 0x0,0x7
1438 c7fa | | Store 0x3,-0x6
1439 c7f9 | | Store 0x3,-0x7
143a c7f8 | | Store 0x3,-0x8
143b c7f6 | | Store 0x3,-0xa
143c c7f5 | | Store 0x3,-0xb
143d c7f7 | | Store 0x3,-0x9
143e c7f4 | | Store 0x3,-0xc
143f 4107 |A | End_Rendezvous 0x7
1440 ; --------------------------------------------------------------------------------------
1440 ; SUBPROGRAM
1440 ; See instruction 0x02cf at 0x13db, index=0xe
1440 ; --------------------------------------------------------------------------------------
1440 1443 | C | .CONST 0x1443 ; Address of begin
1441 0004 | | .CONST 0x0004 ; Address of exception handler
1442 0001 | | .CONST 0x0001 ; Number of locals
1443 BODY_1440:
1443 INIT_1440:
1443 e7fb | | Load 0x3,-0x5
1444 e7fc | | Load 0x3,-0x4
1445 e7fd | | Load 0x3,-0x3
1446 e7fe | | Load 0x3,-0x2
1447 8008 | | Call 0x0,0x8
1448 c7fb | | Store 0x3,-0x5
1449 4101 |A | End_Rendezvous 0x1
144a 0000 0000 | | .BLANK 0000[0x6]
1450 ; --------------------------------------------------------------------------------------
1450 ; SUBPROGRAM
1450 ; See instruction 0x02cf at 0x13db, index=0xd
1450 ; --------------------------------------------------------------------------------------
1450 1453 | S | .CONST 0x1453 ; Address of begin
1451 0004 | | .CONST 0x0004 ; Address of exception handler
1452 0001 | | .CONST 0x0001 ; Number of locals
1453 BODY_1450:
1453 INIT_1450:
1453 e7fa | | Load 0x3,-0x6
1454 e7fb | | Load 0x3,-0x5
1455 e7fc | | Load 0x3,-0x4
1456 e7fd | | Load 0x3,-0x3
1457 e7fe | | Load 0x3,-0x2
1458 00eb | | Load_Encached Diana_Cache
1459 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
145a e7fe | | Load 0x3,-0x2
145b 8009 | | Call 0x0,0x9
145c c7fa | | Store 0x3,-0x6
145d 4101 |A | End_Rendezvous 0x1
145e 0000 0000 | | .XXX[0x2]
1460 ; --------------------------------------------------------------------------------------
1460 ; SUBPROGRAM
1460 ; --------------------------------------------------------------------------------------
1460 1466 | f | .CONST 0x1466 ; Address of begin
1461 0004 | | .CONST 0x0004 ; Address of exception handler
1462 0003 | | .CONST 0x0003 ; Number of locals
1463 INIT_1460:
1463 e00a | | Load 0x0,0xa
1464 0007 | | Action Break_Optional
1465 00e1 | | Load_Encached Boolean_Cache
1466 BODY_1460:
1466 00e1 | | Load_Encached Boolean_Cache
1467 00da | | Load_Top At_Offset_2
1468 e7fe | | Load 0x3,-0x2
1469 e7fd | | Load 0x3,-0x3
146a 0227 | ' | Execute Access,All_Reference
146b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
146c e005 | | Load 0x0,0x5
146d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
146e 003b | ; | Store_Top Access,At_Offset_3
146f 0059 | Y | Store_Top Discrete,At_Offset_1
1470 00d8 | | Load_Top At_Offset_0
1471 681f |h | Jump_Zero 0x1491
1472 00d9 | | Load_Top At_Offset_1
1473 0227 | ' | Execute Access,All_Reference
1474 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
1475 a7fa | | Store_Unchecked 0x3,-0x6
1476 00d9 | | Load_Top At_Offset_1
1477 0227 | ' | Execute Access,All_Reference
1478 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
1479 c7fc | | Store 0x3,-0x4
147a 00d9 | | Load_Top At_Offset_1
147b 0227 | ' | Execute Access,All_Reference
147c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
147d c7fb | | Store 0x3,-0x5
147e 00d9 | | Load_Top At_Offset_1
147f 0227 | ' | Execute Access,All_Reference
1480 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
1481 e00b | | Load 0x0,0xb
1482 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
1483 012f | / | Execute Any,Equal
1484 6807 |h | Jump_Zero 0x148c
1485 e7f9 | | Load 0x3,-0x7
1486 0092 14d7 | | Action Push_String_Extended,0x14d7 ; "Library unit not elaborated"
1488 e00c | | Load 0x0,0xc
1489 1815 | | Execute Package,Field_Execute,Field_Number 0x15
148a c7f9 | | Store 0x3,-0x7
148b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
148c e7f9 | | Load 0x3,-0x7
148d e00c | | Load 0x0,0xc
148e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
148f c7f9 | | Store 0x3,-0x7
1490 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1491 0092 14d8 | | Action Push_String_Extended,0x14d8 ; "Could not locate Index in database"
1493 e00c | | Load 0x0,0xc
1494 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1495 c7f9 | | Store 0x3,-0x7
1496 4800 |H | Short_Literal 0x0
1497 a7fa | | Store_Unchecked 0x3,-0x6
1498 e00d | | Load 0x0,0xd
1499 c7fc | | Store 0x3,-0x4
149a 4800 |H | Short_Literal 0x0
149b a7fb | | Store_Unchecked 0x3,-0x5
149c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
149d ; --------------------------------------------------------------------------------------
149d ; STRING TABLE
149d ; --------------------------------------------------------------------------------------
149d 007a | z | .STRTAB 0x007a->0x14da ; "Name not found"
149e 0086 | | .STRTAB 0x0086->0x14e1 ; "Invalid qualifier (none required)"
149f 00a5 | | .STRTAB 0x00a5->0x14f1 ; "Warning: Elaborating units that have been archived, deleted or re-coded;\x0a Debugging information will not be available for such units.\x0a"
14a0 0133 | 3 | .STRTAB 0x0133->0x1539 ; "Register: "
14a1 013b | ; | .STRTAB 0x013b->0x153e ; "Debug_Debugger"
14a2 0147 | G | .STRTAB 0x0147->0x1545 ; "Assert fail: "
14a3 0152 | R | .STRTAB 0x0152->0x154c ; "Sm_Back_Link returned unexpected kind of node"
14a4 017d | } | .STRTAB 0x017d->0x1562 ; "<NULL>"
14a5 0181 | | .STRTAB 0x0181->0x1565 ; "procedure "
14a6 0189 | | .STRTAB 0x0189->0x156a ; "function "
14a7 0190 | | .STRTAB 0x0190->0x156f ; "package "
14a8 0196 | | .STRTAB 0x0196->0x1573 ; "generic "
14a9 019c | | .STRTAB 0x019c->0x1577 ; "Warning: Incompatible subsystem versions detected in command"
14aa 01d6 | | .STRTAB 0x01d6->0x1595 ; " Spec: "
14ab 01de | | .STRTAB 0x01de->0x159a ; ", Units: "
14ac 01e5 | | .STRTAB 0x01e5->0x159e ; ", "
14ad 01e5 | | .STRTAB 0x01e5->0x159f ; ", Unit: "
14ae 01eb | | .STRTAB 0x01eb->0x15a3 ; "Same_Object: Library_Node of type "
14af 020b | | .STRTAB 0x020b->0x15b4 ; "Invalid qualifier (none required): "
14b0 022c | , | .STRTAB 0x022c->0x15c6 ; "Delete_Low_Priority_Overloads deleted everything"
14b1 025a | Z | .STRTAB 0x025a->0x15de ; "; Library Name "
14b2 0267 | g | .STRTAB 0x0267->0x15e5 ; "Index N("
14b3 026d | m | .STRTAB 0x026d->0x15e9 ; "): "
14b4 026f | o | .STRTAB 0x026f->0x15eb ; "Main Unit "
14b5 0277 | w | .STRTAB 0x0277->0x15f0 ; "There are several library units named "
14b6 029b | | .STRTAB 0x029b->0x1603 ; "The qualifier specified did not resolve this overload.\x0a"
14b7 02d0 | | .STRTAB 0x02d0->0x161f ; "When you ask for it again, please choose one by appending to "
14b8 030b | | .STRTAB 0x030b->0x163d ; "a single quote followed by an index, as follows:"
14b9 0339 | 9 | .STRTAB 0x0339->0x1655 ; "Init_Subsystem_Lookthrough: "
14ba 0353 | S | .STRTAB 0x0353->0x1663 ; "Warning: Program includes archived main unit "
14bb 037e | ~ | .STRTAB 0x037e->0x167a ; ". "
14bc 037f | | .STRTAB 0x037f->0x167b ; "Debugging will be limited."
14bd 0397 | | .STRTAB 0x0397->0x1688 ; "Register_Unit: Empty units_in_program list"
14be 03bf | | .STRTAB 0x03bf->0x169d ; "Register_Unit: Main_Unit not a procedure or function"
14bf 03f1 | | .STRTAB 0x03f1->0x16b7 ; "Register_Unit: "
14c0 03fe | | .STRTAB 0x03fe->0x16bf ; "Register_Used_Unit: Unit_Offset is 0"
14c1 0420 | | .STRTAB 0x0420->0x16d1 ; "Register_Used_Unit: unknown node: "
14c2 0440 | @ | .STRTAB 0x0440->0x16e2 ; "Register_Used_Unit: "
14c3 0452 | R | .STRTAB 0x0452->0x16ec ; "UnRegister_Unit: unknown node: "
14c4 046f | o | .STRTAB 0x046f->0x16fb ; "unRegister_Unit: "
14c5 047e | ~ | .STRTAB 0x047e->0x1704 ; "UnRegister_Unit: Empty Unit_List list"
14c6 04a1 | | .STRTAB 0x04a1->0x1716 ; "Unregister_Unit: "
14c7 04b0 | | .STRTAB 0x04b0->0x171f ; "empty overload chain"
14c8 04c2 | | .STRTAB 0x04c2->0x1729 ; " "
14c9 04c8 | | .STRTAB 0x04c8->0x172d ; " Library Units used by "
14ca 04e2 | | .STRTAB 0x04e2->0x173b ; " "
14cb 04e2 | | .STRTAB 0x04e2->0x173c ; " "
14cc 04e4 | | .STRTAB 0x04e4->0x173e ; " (archived)"
14cd 04ed | | .STRTAB 0x04ed->0x1743 ; " Elab Segment Offset: "
14ce 0501 | | .STRTAB 0x0501->0x174e ; " Library: "
14cf 050a | | .STRTAB 0x050a->0x1754 ; " Main Unit: "
14d0 0515 | | .STRTAB 0x0515->0x175a ; " Elab Segment:"
14d1 0522 | " | .STRTAB 0x0522->0x1762 ; " Elab Frame Name:"
14d2 0532 | 2 | .STRTAB 0x0532->0x176b ; " Library Units: \x0a"
14d3 0542 | B | .STRTAB 0x0542->0x1774 ; "Libraries in use by this program:\x0a"
14d4 0562 | b | .STRTAB 0x0562->0x1785 ; "No libraries are currently registered.\x0a"
14d5 0587 | | .STRTAB 0x0587->0x1798 ; " raised locating source for unit."
14d6 05a6 | | .STRTAB 0x05a6->0x17a9 ; "Library_Database"
14d7 05b4 | | .STRTAB 0x05b4->0x17b1 ; "Library unit not elaborated"
14d8 05cd | | .STRTAB 0x05cd->0x17be ; "Could not locate Index in database"
14d9 05ed | | .STREND 0x05ed->0x17cf
14da 4e61 6d65 |Name| .STRTAB_STRINGS
17d0 ; --------------------------------------------------------------------------------------
17d0 ; Debug Table
17d0 ; --------------------------------------------------------------------------------------
17d0 0004 000d | | .DEBUG4 0x0004,0x000d,0x79dc,0x0000,0x0001,0x0000
17d6 0067 8900 | g | .XXX[0x1c]
17d8 0000 000b | |
17da 0000 0671 | q|
17dc b400 0000 | |
17de 0061 0000 | a |
17e0 0000 19d4 | |
17e2 f844 8003 | D |
17e4 3d3c 0000 |=< |
17e6 0000 33bd | 3 |
17e8 e006 89b2 | |
17ea 0c72 0056 | r V|
17ec bb80 0000 | |
17ee 000c f120 | |
17f0 0338 da00 | 8 |
17f2 0000 0000 | | .BLANK 0000[0x7]
17f9 67e8 8000 |g | .XXX[0x7]
17fb 0cea 7800 | x |
17fd 0001 3b17 | ; |
17ff 0068 | h |