|
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_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 17f0 | | .CONST 0x17f0 ; 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 ; --------------------------------------------------------------------------------------
0008 018b | | .CONST 0x018b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 007f | | .CONST 0x007f ; Number of locals
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 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
001d 4803 |H | Short_Literal 0x3
001e 032b | + | Declare_Type Record,Incomplete,Visible
001f 00d8 | | Load_Top At_Offset_0
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 4818 |H | Short_Literal 0x18
0022 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0023 00bf | | Action Accept_Activation
0024 0093 0000 | | push_full_address 0x0
0026 6191 |a | Indirect_Literal Discrete,0x1b8,{0x80000000, 0x00010000}
0027 0273 | s | Execute Discrete,Plus
0028 0007 | | Action Break_Optional
0029 8002 | | Call 0x0,0x2
002a 00e3 | | Load_Encached Natural_Cache
002b 03f1 | | Declare_Variable Discrete,With_Value
002c 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call
002e 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0030 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
0032 e003 | | Load 0x0,0x3
0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0034 00ec | | Load_Encached Diana_Tree_Cache
0035 00eb | | Load_Encached Diana_Cache
0036 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0037 e004 | | Load 0x0,0x4
0038 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0039 00e2 | | Load_Encached Integer_Cache
003a e004 | | Load 0x0,0x4
003b 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
003c e004 | | Load 0x0,0x4
003d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
003e 00ec | | Load_Encached Diana_Tree_Cache
003f 00e3 | | Load_Encached Natural_Cache
0040 00e3 | | Load_Encached Natural_Cache
0041 00e1 | | Load_Encached Boolean_Cache
0042 00e1 | | Load_Encached Boolean_Cache
0043 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
0045 480c |H | Short_Literal 0xc
0046 032d | - | Declare_Type Record,Defined
0047 e003 | | Load 0x0,0x3
0048 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0049 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
004a 00d9 | | Load_Top At_Offset_1
004b 0322 | " | Declare_Variable Record
004c 4800 |H | Short_Literal 0x0
004d 00d9 | | Load_Top At_Offset_1
004e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004f 00eb | | Load_Encached Diana_Cache
0050 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0051 00d9 | | Load_Top At_Offset_1
0052 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0053 4800 |H | Short_Literal 0x0
0054 00d9 | | Load_Top At_Offset_1
0055 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0056 4800 |H | Short_Literal 0x0
0057 00d9 | | Load_Top At_Offset_1
0058 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0059 4800 |H | Short_Literal 0x0
005a 00d9 | | Load_Top At_Offset_1
005b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
005c e004 | | Load 0x0,0x4
005d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
005e 00db | | Load_Top At_Offset_3
005f 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
0060 0119 | | Execute Any,Check_In_Formal_Type
0061 00d9 | | Load_Top At_Offset_1
0062 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0063 e004 | | Load 0x0,0x4
0064 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0065 00db | | Load_Top At_Offset_3
0066 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
0067 0119 | | Execute Any,Check_In_Formal_Type
0068 00d9 | | Load_Top At_Offset_1
0069 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
006a 00eb | | Load_Encached Diana_Cache
006b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
006c 00d9 | | Load_Top At_Offset_1
006d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
006e 4800 |H | Short_Literal 0x0
006f 00d9 | | Load_Top At_Offset_1
0070 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0071 4800 |H | Short_Literal 0x0
0072 00d9 | | Load_Top At_Offset_1
0073 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0074 4800 |H | Short_Literal 0x0
0075 00d9 | | Load_Top At_Offset_1
0076 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0077 4800 |H | Short_Literal 0x0
0078 00d9 | | Load_Top At_Offset_1
0079 380b |8 | Execute Record,Field_Write,Field_Number 0xb
007a 00da | | Load_Top At_Offset_2
007b 02a0 | | Declare_Subprogram Null_Subprogram
007c 4818 |H | Short_Literal 0x18
007d 03d3 | | Declare_Type Access,Defined,Accesses_Protected
007e e005 | | Load 0x0,0x5
007f e006 | | Load 0x0,0x6
0080 00da | | Load_Top At_Offset_2
0081 e007 | | Load 0x0,0x7
0082 0387 | | Declare_Variable Package
0083 00d8 | | Load_Top At_Offset_0
0084 020f | | Execute Module,Activate
0085 e008 | | Load 0x0,0x8
0086 e009 | | Load 0x0,0x9
0087 4865 |He | Short_Literal 0x65
0088 00db | | Load_Top At_Offset_3
0089 1b10 | | Execute Package,Field_Read,Field_Number 0x10
008a 4801 |H | Short_Literal 0x1
008b e00a | | Load 0x0,0xa
008c 0387 | | Declare_Variable Package
008d 00d8 | | Load_Top At_Offset_0
008e 020f | | Execute Module,Activate
008f 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
0091 e00b | | Load 0x0,0xb
0092 e00c | | Load 0x0,0xc
0093 4865 |He | Short_Literal 0x65
0094 00e3 | | Load_Encached Natural_Cache
0095 e220 | | Load 0x1,0x20
0096 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0097 e00d | | Load 0x0,0xd
0098 0387 | | Declare_Variable Package
0099 00d8 | | Load_Top At_Offset_0
009a 020f | | Execute Module,Activate
009b 00e3 | | Load_Encached Natural_Cache
009c 00db | | Load_Top At_Offset_3
009d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
009e 00da | | Load_Top At_Offset_2
009f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a0 02a0 | | Declare_Subprogram Null_Subprogram
00a1 e216 | | Load 0x1,0x16
00a2 0326 | & | Complete_Type Record,By_Defining
00a3 e217 | | Load 0x1,0x17
00a4 03c4 | | Complete_Type Access,By_Component_Completion
00a5 0092 14bd | | Action Push_String_Extended,0x14bd ; "Name not found"
00a7 0092 14be | | Action Push_String_Extended,0x14be ; "Invalid qualifier (none required)"
00a9 029d 036b | k| Declare_Subprogram INIT_0368,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 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call
00b1 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call
00b3 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
00b5 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call
00b7 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
00b9 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call
00bb 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
00bd 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call
00bf 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call
00c1 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call
00c3 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call
00c5 029d 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call
00c7 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
00c9 a00e | | Store_Unchecked 0x0,0xe
00ca 00c6 | | Action Check_Subprogram_Elaborated
00cb 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00cc 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00cd 0093 0000 | | push_full_address 0x0
00cf 60e4 |` | Indirect_Literal Discrete,0x1b4,{0x80000000, 0x00010000}
00d0 0273 | s | Execute Discrete,Plus
00d1 e00f | | Load 0x0,0xf
00d2 0273 | s | Execute Discrete,Plus
00d3 e010 | | Load 0x0,0x10
00d4 0273 | s | Execute Discrete,Plus
00d5 4800 |H | Short_Literal 0x0
00d6 0007 | | Action Break_Optional
00d7 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call
00d9 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call
00db 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call
00dd 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call
00df 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
00e1 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
00e3 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call
00e5 029d 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call
00e7 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call
00e9 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
00eb 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
00ed 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
00ef 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call
00f1 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call
00f3 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call
00f5 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
00f7 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call
00f9 029d 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call
00fb 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call
00fd 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call
00ff 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call
0101 029d 07a3 | | Declare_Subprogram INIT_07a0,For_Outer_Call
0103 029d 080b | | Declare_Subprogram INIT_0808,For_Outer_Call
0105 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call
0107 029d 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call
0109 029d 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call
010b 029d 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call
010d 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call
010f 029d 09a3 | | Declare_Subprogram INIT_09a0,For_Outer_Call
0111 029d 09c3 | | Declare_Subprogram INIT_09c0,For_Outer_Call
0113 029d 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call
0115 029d 09f3 | | Declare_Subprogram INIT_09f0,For_Outer_Call
0117 029d 09fb | | Declare_Subprogram INIT_09f8,For_Outer_Call
0119 029d 0a0b | | Declare_Subprogram INIT_0a08,For_Outer_Call
011b 029d 0a13 | | Declare_Subprogram INIT_0a10,For_Outer_Call
011d 029d 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call
011f 029d 0a53 | S| Declare_Subprogram INIT_0a50,For_Outer_Call
0121 029d 0a63 | c| Declare_Subprogram INIT_0a60,For_Outer_Call
0123 029d 0a8b | | Declare_Subprogram INIT_0a88,For_Outer_Call
0125 029d 0aab | | Declare_Subprogram INIT_0aa8,For_Outer_Call
0127 029d 0aeb | | Declare_Subprogram INIT_0ae8,For_Outer_Call
0129 029d 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call
012b 029d 0b5b | [| Declare_Subprogram INIT_0b58,For_Outer_Call
012d 029d 0bbb | | Declare_Subprogram INIT_0bb8,For_Outer_Call
012f 029d 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call
0131 029d 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call
0133 029d 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call
0135 029d 0cbb | | Declare_Subprogram INIT_0cb8,For_Outer_Call
0137 029d 0ce3 | | Declare_Subprogram INIT_0ce0,For_Outer_Call
0139 029b 0d0b | | Declare_Subprogram INIT_0d08,For_Outer_Call,Unelaborated
013b 029d 0dc3 | | Declare_Subprogram INIT_0dc0,For_Outer_Call
013d 029d 0e23 | #| Declare_Subprogram INIT_0e20,For_Outer_Call
013f 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
0140 00c7 | | Action Elaborate_Subprogram
0141 029d 0e9b | | Declare_Subprogram INIT_0e98,For_Outer_Call
0143 029d 0efb | | Declare_Subprogram INIT_0ef8,For_Outer_Call
0145 029d 0f4b | K| Declare_Subprogram INIT_0f48,For_Outer_Call
0147 029d 0f7b | {| Declare_Subprogram INIT_0f78,For_Outer_Call
0149 029d 107b | {| Declare_Subprogram INIT_1078,For_Outer_Call
014b 029d 1083 | | Declare_Subprogram INIT_1080,For_Outer_Call
014d 029d 1093 | | Declare_Subprogram INIT_1090,For_Outer_Call
014f 029d 10a3 | | Declare_Subprogram INIT_10a0,For_Outer_Call
0151 029d 10db | | Declare_Subprogram INIT_10d8,For_Outer_Call
0153 029d 115b | [| Declare_Subprogram INIT_1158,For_Outer_Call
0155 029d 11b3 | | Declare_Subprogram INIT_11b0,For_Outer_Call
0157 029d 1233 | 3| Declare_Subprogram INIT_1230,For_Outer_Call
0159 4800 |H | Short_Literal 0x0
015a 0093 13c3 | | push_full_address INIT_13c0
015c 00f5 | | Load_Encached Unused21
015d 037d | } | Declare_Type Task,Defined
015e 036f | o | Declare_Variable Task
015f e011 | | Load 0x0,0x11
0160 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a
0161 e217 | | Load 0x1,0x17
0162 e222 | " | Load 0x1,0x22
0163 e224 | $ | Load 0x1,0x24
0164 e003 | | Load 0x0,0x3
0165 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
0166 1d70 | p | Execute_Immediate Reference_Lex_1,0x70
0167 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
0168 e220 | | Load 0x1,0x20
0169 e004 | | Load 0x0,0x4
016a e012 | | Load 0x0,0x12
016b e004 | | Load 0x0,0x4
016c 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
016d 480d |H | Short_Literal 0xd
016e e27b | { | Load 0x1,0x7b
016f 020e | | Execute Module,Augment_Imports
0170 0007 | | Action Break_Optional
0171 029d 1273 | s| Declare_Subprogram INIT_1270,For_Outer_Call
0173 029d 1283 | | Declare_Subprogram INIT_1280,For_Outer_Call
0175 029d 12ab | | Declare_Subprogram INIT_12a8,For_Outer_Call
0177 029d 12eb | | Declare_Subprogram INIT_12e8,For_Outer_Call
0179 1d0d | | Execute_Immediate Reference_Lex_1,0xd
017a 00c7 | | Action Elaborate_Subprogram
017b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
017c 00c7 | | Action Elaborate_Subprogram
017d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
017e 00c7 | | Action Elaborate_Subprogram
017f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0180 00c7 | | Action Elaborate_Subprogram
0181 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0182 00c7 | | Action Elaborate_Subprogram
0183 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0184 00c7 | | Action Elaborate_Subprogram
0185 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0186 00c7 | | Action Elaborate_Subprogram
0187 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0188 00c7 | | Action Elaborate_Subprogram
0189 1d15 | | Execute_Immediate Reference_Lex_1,0x15
018a 00c7 | | Action Elaborate_Subprogram
018b BODY_0008:
018b 00be | | Action Activate_Tasks
018c 00bc | | Action Signal_Activated
018d 00bb | | Action Signal_Completion
018e 0000 0000 | | .XXX[0x2]
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 139b | | Declare_Subprogram INIT_1398,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 14bf | | Action Push_String_Extended,0x14bf ; "Warning: Elaborating units that have been archived, deleted or re-coded;\x0a Debugging information will not be available for such units.\x0a"
019d 8228 | ( | Call 0x1,0x28
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 e27b | { | Load 0x1,0x7b
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 14c0 | | Action Push_String_Extended,0x14c0 ; "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 821a | | Call 0x1,0x1a
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 e27b | { | Load 0x1,0x7b
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 827c | | | Call 0x1,0x7c
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 e27b | { | Load 0x1,0x7b
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 822c | , | Call 0x1,0x2c
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 822d | - | Call 0x1,0x2d
0220 e5ff | | Load 0x2,-0x1
0221 480b |H | Short_Literal 0xb
0222 e27b | { | Load 0x1,0x7b
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 e225 | % | Load 0x1,0x25
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 827c | | | Call 0x1,0x7c
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 827f | | Call 0x1,0x7f
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 e225 | % | Load 0x1,0x25
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 827f | | Call 0x1,0x7f
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 e27b | { | Load 0x1,0x7b
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 e27b | { | Load 0x1,0x7b
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 e27b | { | Load 0x1,0x7b
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 e27b | { | Load 0x1,0x7b
0315 1713 | | Execute Task,Entry_Call,Field_Number 0x13
0316 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0317 0000 | | .XXX[0x1]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 4800 |H | Short_Literal 0x0
031c 00db | | Load_Top At_Offset_3
031d e004 | | Load 0x0,0x4
031e 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
031f 8017 | | Call 0x0,0x17
0320 4803 |H | Short_Literal 0x3
0321 e018 | | Load 0x0,0x18
0322 e019 | | Load 0x0,0x19
0323 00ad | | QQ_Action Package,Field_Execute_Dynamic
0324 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00db | | Load_Top At_Offset_3
032c 6804 |h | Jump_Zero 0x331
032d 0092 14c1 | | Action Push_String_Extended,0x14c1 ; "Debug_Debugger"
032f 801a | | Call 0x0,0x1a
0330 6802 |h | Jump_Zero 0x333
0331 00da | | Load_Top At_Offset_2
0332 821a | | Call 0x1,0x1a
0333 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0334 0000 0000 | | .BLANK 0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 7008 |p | Jump_Nonzero 0x345
033d e5fd | | Load 0x2,-0x3
033e 0092 14c2 | | Action Push_String_Extended,0x14c2 ; "Assert fail: "
0340 e5fe | | Load 0x2,-0x2
0341 01cc | | Execute Vector,Catenate
0342 821b | | Call 0x1,0x1b
0343 e218 | | Load 0x1,0x18
0344 0257 | W | Execute Discrete,Raise
0345 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0346 0000 0000 | | .XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 4601 |F | Jump_Case 0x2
034c 7801 |x | Jump 0x34e ; case 0x0
034d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
034e 00da | | Load_Top At_Offset_2
034f 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0350 0125 | % | Execute Any,Set_Constraint
0351 00da | | Load_Top At_Offset_2
0352 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0353 1c00 | | Execute_Immediate Run_Utility,0x0
0354 00da | | Load_Top At_Offset_2
0355 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0356 0125 | % | Execute Any,Set_Constraint
0357 00da | | Load_Top At_Offset_2
0358 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0359 1c00 | | Execute_Immediate Run_Utility,0x0
035a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
035b 0000 0000 | | .BLANK 0000[0x5]
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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0365 0000 0000 | | .XXX[0x3]
0367 0000 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 0227 | ' | Execute Access,All_Reference
036d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
036e a5fe | | Store_Unchecked 0x2,-0x2
036f 00da | | Load_Top At_Offset_2
0370 0227 | ' | Execute Access,All_Reference
0371 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0372 a5fd | | Store_Unchecked 0x2,-0x3
0373 00da | | Load_Top At_Offset_2
0374 0227 | ' | Execute Access,All_Reference
0375 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0376 a5fb | | Store_Unchecked 0x2,-0x5
0377 00da | | Load_Top At_Offset_2
0378 0227 | ' | Execute Access,All_Reference
0379 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
037a a5fc | | Store_Unchecked 0x2,-0x4
037b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037c 0000 0000 | | .BLANK 0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 801b | | Call 0x0,0x1b
0385 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0386 0000 0000 | | .XXX[0x2]
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 801c | | Call 0x0,0x1c
038c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038d 0000 0000 | | .XXX[0x3]
038f 0000 | |
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 4904 |I | Short_Literal 0x104
0395 00eb | | Load_Encached Diana_Cache
0396 0096 | | Execute Package,Entry
0397 00eb | | Load_Encached Diana_Cache
0398 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0399 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
039a 0000 0000 | | .BLANK 0000[0x6]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a8 | | .CONST 0x03a8 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0004 | | .CONST 0x0004 ; Number of locals
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 e01d | | Load 0x0,0x1d
03a5 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
03a6 00ec | | Load_Encached Diana_Tree_Cache
03a7 039d | | Declare_Variable Heap_Access,Duplicate
03a8 BODY_03a0:
03a8 00da | | Load_Top At_Offset_2
03a9 00eb | | Load_Encached Diana_Cache
03aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ab 6802 |h | Jump_Zero 0x3ae
03ac e5ff | | Load 0x2,-0x1
03ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ae 00da | | Load_Top At_Offset_2
03af 00eb | | Load_Encached Diana_Cache
03b0 18ec | | Execute Package,Field_Execute,Field_Number 0xec
03b1 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03b2 00d9 | | Load_Top At_Offset_1
03b3 00eb | | Load_Encached Diana_Cache
03b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b5 6811 |h | Jump_Zero 0x3c7
03b6 00da | | Load_Top At_Offset_2
03b7 e01e | | Load 0x0,0x1e
03b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03ba 0092 14c3 | | Action Push_String_Extended,0x14c3 ; "Sm_Back_Link returned unexpected kind of node"
03bc 00d9 | | Load_Top At_Offset_1
03bd 00eb | | Load_Encached Diana_Cache
03be 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03bf e5ff | | Load 0x2,-0x1
03c0 00eb | | Load_Encached Diana_Cache
03c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03c2 027f | | Execute Discrete,Equal
03c3 e01f | | Load 0x0,0x1f
03c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c5 00d8 | | Load_Top At_Offset_0
03c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c7 00d9 | | Load_Top At_Offset_1
03c8 e01d | | Load 0x0,0x1d
03c9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03ca 0031 | 1 | Store_Top Heap_Access,At_Offset_1
03cb 00d8 | | Load_Top At_Offset_0
03cc 822a | * | Call 0x1,0x2a
03cd 6802 |h | Jump_Zero 0x3d0
03ce e5ff | | Load 0x2,-0x1
03cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d0 00d8 | | Load_Top At_Offset_0
03d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d2 0000 0000 | | .BLANK 0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc 00eb | | Load_Encached Diana_Cache
03dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03de 00d8 | | Load_Top At_Offset_0
03df 4821 |H! | Short_Literal 0x21
03e0 482c |H, | Short_Literal 0x2c
03e1 0262 | b | Execute Discrete,In_Range
03e2 6812 |h | Jump_Zero 0x3f5
03e3 00d8 | | Load_Top At_Offset_0
03e4 4823 |H# | Short_Literal 0x23
03e5 4828 |H( | Short_Literal 0x28
03e6 0262 | b | Execute Discrete,In_Range
03e7 700d |p | Jump_Nonzero 0x3f5
03e8 482a |H* | Short_Literal 0x2a
03e9 482b |H+ | Short_Literal 0x2b
03ea 0262 | b | Execute Discrete,In_Range
03eb 700a |p | Jump_Nonzero 0x3f6
03ec 7800 |x | Jump 0x3ed
03ed 00da | | Load_Top At_Offset_2
03ee 822a | * | Call 0x1,0x2a
03ef 6803 |h | Jump_Zero 0x3f3
03f0 00da | | Load_Top At_Offset_2
03f1 822b | + | Call 0x1,0x2b
03f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f3 00da | | Load_Top At_Offset_2
03f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f5 00d1 | | Pop_Control Pop_Count_1
03f6 00da | | Load_Top At_Offset_2
03f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0401 | | .CONST 0x0401 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc 00eb | | Load_Encached Diana_Cache
03fd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03fe 00eb | | Load_Encached Diana_Cache
03ff 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0400 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0401 TRAP_03f8:
0401 0007 | | Action Break_Optional
0402 0092 14c4 | | Action Push_String_Extended,0x14c4 ; "<NULL>"
0404 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0405 0000 0000 | | .XXX[0x3]
0407 0000 | |
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 4801 |H | Short_Literal 0x1
040c 4800 |H | Short_Literal 0x0
040d e020 | | Load 0x0,0x20
040e e5ff | | Load 0x2,-0x1
040f e021 | ! | Load 0x0,0x21
0410 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0411 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0412 0000 0000 | | .BLANK 0000[0x6]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00da | | Load_Top At_Offset_2
041c 00eb | | Load_Encached Diana_Cache
041d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
041e 6802 |h | Jump_Zero 0x421
041f 00ea | | Load_Encached Null_String_Cache
0420 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0421 00da | | Load_Top At_Offset_2
0422 4904 |I | Short_Literal 0x104
0423 00eb | | Load_Encached Diana_Cache
0424 0096 | | Execute Package,Entry
0425 00eb | | Load_Encached Diana_Cache
0426 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0427 0b7b | { | Execute_Immediate Case_Compare,0x7b
0428 7006 |p | Jump_Nonzero 0x42f
0429 0b7a | z | Execute_Immediate Case_Compare,0x7a
042a 7008 |p | Jump_Nonzero 0x433
042b 0f7c | | | Execute_Immediate Equal,0x7c
042c 700a |p | Jump_Nonzero 0x437
042d 00ea | | Load_Encached Null_String_Cache
042e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042f 00d1 | | Pop_Control Pop_Count_1
0430 0092 14c5 | | Action Push_String_Extended,0x14c5 ; "procedure "
0432 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0433 00d1 | | Pop_Control Pop_Count_1
0434 0092 14c6 | | Action Push_String_Extended,0x14c6 ; "function "
0436 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0437 0092 14c7 | | Action Push_String_Extended,0x14c7 ; "package "
0439 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043a 0000 0000 | | .BLANK 0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 00d8 | | Load_Top At_Offset_0
0445 4821 |H! | Short_Literal 0x21
0446 482c |H, | Short_Literal 0x2c
0447 0262 | b | Execute Discrete,In_Range
0448 681d |h | Jump_Zero 0x466
0449 0adf | | Execute_Immediate Plus,-0x21
044a 460b |F | Jump_Case 0xc
044b 780e |x | Jump 0x45a ; case 0x0
044c 7813 |x | Jump 0x460 ; case 0x1
044d 7819 |x | Jump 0x467 ; case 0x2
044e 7818 |x | Jump 0x467 ; case 0x3
044f 7817 |x | Jump 0x467 ; case 0x4
0450 7816 |x | Jump 0x467 ; case 0x5
0451 7815 |x | Jump 0x467 ; case 0x6
0452 7814 |x | Jump 0x467 ; case 0x7
0453 7809 |x | Jump 0x45d ; case 0x8
0454 7812 |x | Jump 0x467 ; case 0x9
0455 7811 |x | Jump 0x467 ; case 0xa
0456 7800 |x | Jump 0x457 ; case 0xb
0457 0092 14c5 | | Action Push_String_Extended,0x14c5 ; "procedure "
0459 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
045a 0092 14c6 | | Action Push_String_Extended,0x14c6 ; "function "
045c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
045d 0092 14c7 | | Action Push_String_Extended,0x14c7 ; "package "
045f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0460 0092 14c8 | | Action Push_String_Extended,0x14c8 ; "generic "
0462 e5fe | | Load 0x2,-0x2
0463 822f | / | Call 0x1,0x2f
0464 01cc | | Execute Vector,Catenate
0465 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0466 00d1 | | Pop_Control Pop_Count_1
0467 00ea | | Load_Encached Null_String_Cache
0468 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0469 0000 0000 | | .BLANK 0000[0x7]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 e5fd | | Load 0x2,-0x3
0474 00db | | Load_Top At_Offset_3
0475 8230 | 0 | Call 0x1,0x30
0476 e5fe | | Load 0x2,-0x2
0477 00eb | | Load_Encached Diana_Cache
0478 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0479 01cc | | Execute Vector,Catenate
047a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
047b 0000 0000 | | .BLANK 0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 00da | | Load_Top At_Offset_2
0484 00db | | Load_Top At_Offset_3
0485 00eb | | Load_Encached Diana_Cache
0486 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0487 e5ff | | Load 0x2,-0x1
0488 00eb | | Load_Encached Diana_Cache
0489 1814 | | Execute Package,Field_Execute,Field_Number 0x14
048a 8231 | 1 | Call 0x1,0x31
048b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
048c 0000 0000 | | .BLANK 0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0498 | | .CONST 0x0498 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00da | | Load_Top At_Offset_2
0494 822d | - | Call 0x1,0x2d
0495 e022 | " | Load 0x0,0x22
0496 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0497 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0498 TRAP_0490:
0498 0007 | | Action Break_Optional
0499 0092 14c4 | | Action Push_String_Extended,0x14c4 ; "<NULL>"
049b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
049c 0000 0000 | | .BLANK 0000[0x4]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 04a9 | | .CONST 0x04a9 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 00da | | Load_Top At_Offset_2
04a4 00eb | | Load_Encached Diana_Cache
04a5 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
04a6 e022 | " | Load 0x0,0x22
04a7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a9 TRAP_04a0:
04a9 0007 | | Action Break_Optional
04aa 0092 14c4 | | Action Push_String_Extended,0x14c4 ; "<NULL>"
04ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ad 0000 0000 | | .XXX[0x3]
04af 0000 | |
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 0092 14c9 | | Action Push_String_Extended,0x14c9 ; "Warning: Incompatible subsystem versions detected in command"
04b5 8228 | ( | Call 0x1,0x28
04b6 8229 | ) | Call 0x1,0x29
04b7 0092 14ca | | Action Push_String_Extended,0x14ca ; " Spec: "
04b9 00db | | Load_Top At_Offset_3
04ba 8232 | 2 | Call 0x1,0x32
04bb 01cc | | Execute Vector,Catenate
04bc 0092 14cb | | Action Push_String_Extended,0x14cb ; ", Units: "
04be 01cc | | Execute Vector,Catenate
04bf e5fe | | Load 0x2,-0x2
04c0 8232 | 2 | Call 0x1,0x32
04c1 01cc | | Execute Vector,Catenate
04c2 0092 14cc | | Action Push_String_Extended,0x14cc ; ", "
04c4 01cc | | Execute Vector,Catenate
04c5 e5fd | | Load 0x2,-0x3
04c6 8232 | 2 | Call 0x1,0x32
04c7 01cc | | Execute Vector,Catenate
04c8 8228 | ( | Call 0x1,0x28
04c9 8229 | ) | Call 0x1,0x29
04ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04cb 0000 0000 | | .BLANK 0000[0x5]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 0092 14c9 | | Action Push_String_Extended,0x14c9 ; "Warning: Incompatible subsystem versions detected in command"
04d5 8228 | ( | Call 0x1,0x28
04d6 8229 | ) | Call 0x1,0x29
04d7 0092 14ca | | Action Push_String_Extended,0x14ca ; " Spec: "
04d9 00db | | Load_Top At_Offset_3
04da 8232 | 2 | Call 0x1,0x32
04db 01cc | | Execute Vector,Catenate
04dc 0092 14cd | | Action Push_String_Extended,0x14cd ; ", Unit: "
04de 01cc | | Execute Vector,Catenate
04df e5fe | | Load 0x2,-0x2
04e0 8232 | 2 | Call 0x1,0x32
04e1 01cc | | Execute Vector,Catenate
04e2 8228 | ( | Call 0x1,0x28
04e3 8229 | ) | Call 0x1,0x29
04e4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04e5 0000 0000 | | .XXX[0x3]
04e7 0000 | |
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ec | | .CONST 0x04ec ; Address of begin
04e9 04f5 | | .CONST 0x04f5 ; Address of exception handler
04ea 0002 | | .CONST 0x0002 ; Number of locals
04eb INIT_04e8:
04eb 00ec | | Load_Encached Diana_Tree_Cache
04ec BODY_04e8:
04ec e023 | # | Load 0x0,0x23
04ed 180f | | Execute Package,Field_Execute,Field_Number 0xf
04ee 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04ef 00d8 | | Load_Top At_Offset_0
04f0 00eb | | Load_Encached Diana_Cache
04f1 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
04f2 00eb | | Load_Encached Diana_Cache
04f3 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
04f4 00ca | | Action Exit_Nullary_Function
04f5 TRAP_04e8:
04f5 0007 | | Action Break_Optional
04f6 00eb | | Load_Encached Diana_Cache
04f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04f8 00ca | | Action Exit_Nullary_Function
04f9 0000 0000 | | .BLANK 0000[0x7]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0505 | | .CONST 0x0505 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0003 | | .CONST 0x0003 ; Number of locals
0503 INIT_0500:
0503 00ec | | Load_Encached Diana_Tree_Cache
0504 039d | | Declare_Variable Heap_Access,Duplicate
0505 BODY_0500:
0505 e5ff | | Load 0x2,-0x1
0506 00eb | | Load_Encached Diana_Cache
0507 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0508 00d8 | | Load_Top At_Offset_0
0509 4821 |H! | Short_Literal 0x21
050a 482c |H, | Short_Literal 0x2c
050b 0262 | b | Execute Discrete,In_Range
050c 6823 |h# | Jump_Zero 0x530
050d 00d8 | | Load_Top At_Offset_0
050e 4823 |H# | Short_Literal 0x23
050f 4828 |H( | Short_Literal 0x28
0510 0262 | b | Execute Discrete,In_Range
0511 701e |p | Jump_Nonzero 0x530
0512 482a |H* | Short_Literal 0x2a
0513 482b |H+ | Short_Literal 0x2b
0514 0262 | b | Execute Discrete,In_Range
0515 701b |p | Jump_Nonzero 0x531
0516 7800 |x | Jump 0x517
0517 e5ff | | Load 0x2,-0x1
0518 00eb | | Load_Encached Diana_Cache
0519 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
051a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
051b 00d9 | | Load_Top At_Offset_1
051c 00eb | | Load_Encached Diana_Cache
051d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
051e 0f80 | | Execute_Immediate Equal,-0x80
051f 680c |h | Jump_Zero 0x52c
0520 00d9 | | Load_Top At_Offset_1
0521 00eb | | Load_Encached Diana_Cache
0522 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0523 4976 |Iv | Short_Literal 0x176
0524 00eb | | Load_Encached Diana_Cache
0525 0098 | | Execute Package,Field_Read_Dynamic
0526 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0527 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0528 00d8 | | Load_Top At_Offset_0
0529 e021 | ! | Load 0x0,0x21
052a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
052b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052c e5ff | | Load 0x2,-0x1
052d e021 | ! | Load 0x0,0x21
052e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
052f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0530 00d1 | | Pop_Control Pop_Count_1
0531 e5ff | | Load 0x2,-0x1
0532 e021 | ! | Load 0x0,0x21
0533 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0534 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0535 0000 0000 | | .XXX[0x3]
0537 0000 | |
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 00da | | Load_Top At_Offset_2
053c 00eb | | Load_Encached Diana_Cache
053d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
053e 00eb | | Load_Encached Diana_Cache
053f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0540 011c | | Execute Any,Convert_Unchecked
0541 1c01 | | Execute_Immediate Run_Utility,0x1
0542 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0543 0000 0000 | | .BLANK 0000[0x5]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 055d | ] | .CONST 0x055d ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0005 | | .CONST 0x0005 ; Number of locals
054b INIT_0548:
054b e024 | $ | Load 0x0,0x24
054c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
054d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
054e 02c7 | | Declare_Variable Any
054f 00d8 | | Load_Top At_Offset_0
0550 1c00 | | Execute_Immediate Run_Utility,0x0
0551 e024 | $ | Load 0x0,0x24
0552 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0553 02c7 | | Declare_Variable Any
0554 00d8 | | Load_Top At_Offset_0
0555 1c00 | | Execute_Immediate Run_Utility,0x0
0556 e024 | $ | Load 0x0,0x24
0557 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0558 02c7 | | Declare_Variable Any
0559 00d8 | | Load_Top At_Offset_0
055a 1c00 | | Execute_Immediate Run_Utility,0x0
055b e024 | $ | Load 0x0,0x24
055c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
055d BODY_0548:
055d e5fe | | Load 0x2,-0x2
055e 00eb | | Load_Encached Diana_Cache
055f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0560 0f29 | ) | Execute_Immediate Equal,0x29
0561 7002 |p | Jump_Nonzero 0x564
0562 4800 |H | Short_Literal 0x0
0563 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0564 0092 14ce | | Action Push_String_Extended,0x14ce ; "Same_Object: Library_Node of type "
0566 e5ff | | Load 0x2,-0x1
0567 823d | = | Call 0x1,0x3d
0568 01cc | | Execute Vector,Catenate
0569 e5ff | | Load 0x2,-0x1
056a 00eb | | Load_Encached Diana_Cache
056b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
056c 0f30 | 0 | Execute_Immediate Equal,0x30
056d e01f | | Load 0x0,0x1f
056e 180e | | Execute Package,Field_Execute,Field_Number 0xe
056f e024 | $ | Load 0x0,0x24
0570 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0571 00db | | Load_Top At_Offset_3
0572 0120 | | Execute Any,Is_Value
0573 6803 |h | Jump_Zero 0x577
0574 e024 | $ | Load 0x0,0x24
0575 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0576 7801 |x | Jump 0x578
0577 00db | | Load_Top At_Offset_3
0578 602f |`/ | Indirect_Literal Discrete,0x5a8,{0x00000000, 0x00004000}
0579 e025 | % | Load 0x0,0x25
057a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
057b 4800 |H | Short_Literal 0x0
057c e024 | $ | Load 0x0,0x24
057d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
057e e5ff | | Load 0x2,-0x1
057f e024 | $ | Load 0x0,0x24
0580 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0581 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0582 c403 | | Store 0x2,0x3
0583 0059 | Y | Store_Top Discrete,At_Offset_1
0584 00d8 | | Load_Top At_Offset_0
0585 6802 |h | Jump_Zero 0x588
0586 4800 |H | Short_Literal 0x0
0587 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0588 e024 | $ | Load 0x0,0x24
0589 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058a e402 | | Load 0x2,0x2
058b 0120 | | Execute Any,Is_Value
058c 6804 |h | Jump_Zero 0x591
058d e024 | $ | Load 0x0,0x24
058e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
058f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0590 7801 |x | Jump 0x592
0591 e402 | | Load 0x2,0x2
0592 e5fe | | Load 0x2,-0x2
0593 e024 | $ | Load 0x0,0x24
0594 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0595 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0596 c402 | | Store 0x2,0x2
0597 0059 | Y | Store_Top Discrete,At_Offset_1
0598 00d8 | | Load_Top At_Offset_0
0599 6802 |h | Jump_Zero 0x59c
059a 4800 |H | Short_Literal 0x0
059b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
059c 00db | | Load_Top At_Offset_3
059d e024 | $ | Load 0x0,0x24
059e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
059f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05a0 c404 | | Store 0x2,0x4
05a1 00d9 | | Load_Top At_Offset_1
05a2 00db | | Load_Top At_Offset_3
05a3 012f | / | Execute Any,Equal
05a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a5 0000 0000 | | .XXX[0x3]
05a7 0000 | |
05a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
05ac 0000 0000 | | .BLANK 0000[0x4]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 05b9 | | .CONST 0x05b9 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 00da | | Load_Top At_Offset_2
05b4 e026 | & | Load 0x0,0x26
05b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05b6 e01d | | Load 0x0,0x1d
05b7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b9 TRAP_05b0:
05b9 0007 | | Action Break_Optional
05ba 00eb | | Load_Encached Diana_Cache
05bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05bd 0000 0000 | | .XXX[0x3]
05bf 0000 | |
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 00eb | | Load_Encached Diana_Cache
05c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05c6 0f30 | 0 | Execute_Immediate Equal,0x30
05c7 6804 |h | Jump_Zero 0x5cc
05c8 00da | | Load_Top At_Offset_2
05c9 e026 | & | Load 0x0,0x26
05ca 180f | | Execute Package,Field_Execute,Field_Number 0xf
05cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05cc 4800 |H | Short_Literal 0x0
05cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ce 0000 0000 | | .XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 00da | | Load_Top At_Offset_2
05d4 e5fe | | Load 0x2,-0x2
05d5 021f | | Execute Heap_Access,Equal
05d6 7006 |p | Jump_Nonzero 0x5dd
05d7 00da | | Load_Top At_Offset_2
05d8 8027 | ' | Call 0x0,0x27
05d9 e5fe | | Load 0x2,-0x2
05da 8027 | ' | Call 0x0,0x27
05db 021f | | Execute Heap_Access,Equal
05dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05dd 4801 |H | Short_Literal 0x1
05de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05df 0000 | | .XXX[0x1]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 00da | | Load_Top At_Offset_2
05e4 e5fe | | Load 0x2,-0x2
05e5 021f | | Execute Heap_Access,Equal
05e6 7008 |p | Jump_Nonzero 0x5ef
05e7 e5fd | | Load 0x2,-0x3
05e8 6804 |h | Jump_Zero 0x5ed
05e9 e5fc | | Load 0x2,-0x4
05ea e003 | | Load 0x0,0x3
05eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05ec 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05ed 4800 |H | Short_Literal 0x0
05ee 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05ef 4801 |H | Short_Literal 0x1
05f0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05f1 0000 0000 | | .BLANK 0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 00da | | Load_Top At_Offset_2
05fc 00eb | | Load_Encached Diana_Cache
05fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05fe 7004 |p | Jump_Nonzero 0x603
05ff 00db | | Load_Top At_Offset_3
0600 00db | | Load_Top At_Offset_3
0601 8241 | A | Call 0x1,0x41
0602 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0603 4801 |H | Short_Literal 0x1
0604 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0605 0000 0000 | | .XXX[0x3]
0607 0000 | |
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c e016 | | Load 0x0,0x16
060d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
060e 6808 |h | Jump_Zero 0x617
060f 4801 |H | Short_Literal 0x1
0610 e5fe | | Load 0x2,-0x2
0611 e01d | | Load 0x0,0x1d
0612 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0613 e5ff | | Load 0x2,-0x1
0614 e022 | " | Load 0x0,0x22
0615 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0616 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0617 4800 |H | Short_Literal 0x0
0618 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0619 0000 0000 | | .BLANK 0000[0x7]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0625 | % | .CONST 0x0625 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0003 | | .CONST 0x0003 ; Number of locals
0623 INIT_0620:
0623 00e2 | | Load_Encached Integer_Cache
0624 00e1 | | Load_Encached Boolean_Cache
0625 BODY_0620:
0625 e5ff | | Load 0x2,-0x1
0626 01db | | Execute Vector,Length
0627 0f00 | | Execute_Immediate Equal,0x0
0628 e5fe | | Load 0x2,-0x2
0629 022d | - | Execute Access,Is_Null
062a 0278 | x | Execute Discrete,Or
062b 6802 |h | Jump_Zero 0x62e
062c 4800 |H | Short_Literal 0x0
062d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
062e 00e1 | | Load_Encached Boolean_Cache
062f 00e2 | | Load_Encached Integer_Cache
0630 e5ff | | Load 0x2,-0x1
0631 e016 | | Load 0x0,0x16
0632 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0633 005b | [ | Store_Top Discrete,At_Offset_3
0634 0059 | Y | Store_Top Discrete,At_Offset_1
0635 00d8 | | Load_Top At_Offset_0
0636 6806 |h | Jump_Zero 0x63d
0637 00d9 | | Load_Top At_Offset_1
0638 e5fe | | Load 0x2,-0x2
0639 0227 | ' | Execute Access,All_Reference
063a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
063b 027f | | Execute Discrete,Equal
063c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
063d e5fe | | Load 0x2,-0x2
063e 0227 | ' | Execute Access,All_Reference
063f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0640 e5ff | | Load 0x2,-0x1
0641 8244 | D | Call 0x1,0x44
0642 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0643 0000 0000 | | .BLANK 0000[0x5]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 00da | | Load_Top At_Offset_2
064c 00eb | | Load_Encached Diana_Cache
064d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
064e 0f29 | ) | Execute_Immediate Equal,0x29
064f 7004 |p | Jump_Nonzero 0x654
0650 00da | | Load_Top At_Offset_2
0651 e01d | | Load 0x0,0x1d
0652 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0653 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0654 4801 |H | Short_Literal 0x1
0655 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0656 0000 0000 | | .XXX[0x2]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065d | ] | .CONST 0x065d ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0003 | | .CONST 0x0003 ; Number of locals
065b INIT_0658:
065b 00e2 | | Load_Encached Integer_Cache
065c 00e1 | | Load_Encached Boolean_Cache
065d BODY_0658:
065d e5fd | | Load 0x2,-0x3
065e 6804 |h | Jump_Zero 0x663
065f e012 | | Load 0x0,0x12
0660 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0661 c5fc | | Store 0x2,-0x4
0662 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0663 e5ff | | Load 0x2,-0x1
0664 8246 | F | Call 0x1,0x46
0665 680c |h | Jump_Zero 0x672
0666 e5fe | | Load 0x2,-0x2
0667 e016 | | Load 0x0,0x16
0668 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0669 7004 |p | Jump_Nonzero 0x66e
066a e5fe | | Load 0x2,-0x2
066b e016 | | Load 0x0,0x16
066c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
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 e5ff | | Load 0x2,-0x1
0673 e5fe | | Load 0x2,-0x2
0674 8244 | D | Call 0x1,0x44
0675 6804 |h | Jump_Zero 0x67a
0676 e012 | | Load 0x0,0x12
0677 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0678 c5fc | | Store 0x2,-0x4
0679 4504 |E | Exit_Suprogram New_Top_Offset 0x4
067a 0092 14cf | | Action Push_String_Extended,0x14cf ; "Invalid qualifier (none required): "
067c e5fe | | Load 0x2,-0x2
067d 01cc | | Execute Vector,Catenate
067e e012 | | Load 0x0,0x12
067f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0680 c5fc | | Store 0x2,-0x4
0681 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0682 0000 0000 | | .BLANK 0000[0x6]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b 00db | | Load_Top At_Offset_3
068c 6806 |h | Jump_Zero 0x693
068d e012 | | Load 0x0,0x12
068e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
068f c5fa | | Store 0x2,-0x6
0690 4801 |H | Short_Literal 0x1
0691 a5f9 | | Store_Unchecked 0x2,-0x7
0692 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0693 00da | | Load_Top At_Offset_2
0694 680d |h | Jump_Zero 0x6a2
0695 4800 |H | Short_Literal 0x0
0696 a5f9 | | Store_Unchecked 0x2,-0x7
0697 e5fd | | Load 0x2,-0x3
0698 01db | | Execute Vector,Length
0699 0c01 | | Execute_Immediate Greater_Equal,0x1
069a 6806 |h | Jump_Zero 0x6a1
069b e5fa | | Load 0x2,-0x6
069c e5fc | | Load 0x2,-0x4
069d e5fd | | Load 0x2,-0x3
069e e5fb | | Load 0x2,-0x5
069f 8247 | G | Call 0x1,0x47
06a0 c5fa | | Store 0x2,-0x6
06a1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
06a2 e225 | % | Load 0x1,0x25
06a3 e012 | | Load 0x0,0x12
06a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06a5 c5fa | | Store 0x2,-0x6
06a6 4800 |H | Short_Literal 0x0
06a7 a5f9 | | Store_Unchecked 0x2,-0x7
06a8 4506 |E | Exit_Suprogram New_Top_Offset 0x6
06a9 0000 0000 | | .BLANK 0000[0x7]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 00db | | Load_Top At_Offset_3
06b4 0aff | | Execute_Immediate Plus,-0x1
06b5 c5fe | | Store 0x2,-0x2
06b6 e5fc | | Load 0x2,-0x4
06b7 7005 |p | Jump_Nonzero 0x6bd
06b8 e5fd | | Load 0x2,-0x3
06b9 0227 | ' | Execute Access,All_Reference
06ba 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06bb 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06bd e5fd | | Load 0x2,-0x3
06be 0227 | ' | Execute Access,All_Reference
06bf 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06c0 e5fc | | Load 0x2,-0x4
06c1 0227 | ' | Execute Access,All_Reference
06c2 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
06c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06c4 0000 0000 | | .BLANK 0000[0x4]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cf | | .CONST 0x06cf ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0005 | | .CONST 0x0005 ; Number of locals
06cb INIT_06c8:
06cb e220 | | Load 0x1,0x20
06cc 03bd | | Declare_Variable Access,Duplicate
06cd 00e3 | | Load_Encached Natural_Cache
06ce 00e1 | | Load_Encached Boolean_Cache
06cf BODY_06c8:
06cf e5ff | | Load 0x2,-0x1
06d0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06d1 e220 | | Load 0x1,0x20
06d2 003b | ; | Store_Top Access,At_Offset_3
06d3 00cf | | Action Mark_Auxiliary
06d4 7825 |x% | Jump 0x6fa
06d5 00e1 | | Load_Encached Boolean_Cache
06d6 e402 | | Load 0x2,0x2
06d7 e404 | | Load 0x2,0x4
06d8 e5fd | | Load 0x2,-0x3
06d9 0227 | ' | Execute Access,All_Reference
06da 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06db e224 | $ | Load 0x1,0x24
06dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06dd c402 | | Store 0x2,0x2
06de 005a | Z | Store_Top Discrete,At_Offset_2
06df 00d9 | | Load_Top At_Offset_1
06e0 7001 |p | Jump_Nonzero 0x6e2
06e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06e2 e402 | | Load 0x2,0x2
06e3 0227 | ' | Execute Access,All_Reference
06e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06e5 0f02 | | Execute_Immediate Equal,0x2
06e6 680c |h | Jump_Zero 0x6f3
06e7 e5fd | | Load 0x2,-0x3
06e8 e403 | | Load 0x2,0x3
06e9 e402 | | Load 0x2,0x2
06ea e5fe | | Load 0x2,-0x2
06eb e5ff | | Load 0x2,-0x1
06ec 8249 | I | Call 0x1,0x49
06ed c5ff | | Store 0x2,-0x1
06ee c5fe | | Store 0x2,-0x2
06ef c402 | | Store 0x2,0x2
06f0 c403 | | Store 0x2,0x3
06f1 c5fd | | Store 0x2,-0x3
06f2 7802 |x | Jump 0x6f5
06f3 e402 | | Load 0x2,0x2
06f4 a403 | | Store_Unchecked 0x2,0x3
06f5 e402 | | Load 0x2,0x2
06f6 0227 | ' | Execute Access,All_Reference
06f7 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06f8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
06f9 00c9 | | Action Pop_Auxiliary_Loop
06fa 00da | | Load_Top At_Offset_2
06fb 77d9 |w | Jump_Nonzero 0x6d5
06fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06fd 0000 0000 | | .XXX[0x3]
06ff 0000 | |
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0707 | | .CONST 0x0707 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0005 | | .CONST 0x0005 ; Number of locals
0703 INIT_0700:
0703 e220 | | Load 0x1,0x20
0704 03bd | | Declare_Variable Access,Duplicate
0705 00e3 | | Load_Encached Natural_Cache
0706 00e1 | | Load_Encached Boolean_Cache
0707 BODY_0700:
0707 e5fe | | Load 0x2,-0x2
0708 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0709 e220 | | Load 0x1,0x20
070a 003b | ; | Store_Top Access,At_Offset_3
070b 00cf | | Action Mark_Auxiliary
070c 7824 |x$ | Jump 0x731
070d 00e1 | | Load_Encached Boolean_Cache
070e e402 | | Load 0x2,0x2
070f e404 | | Load 0x2,0x4
0710 e5fc | | Load 0x2,-0x4
0711 0227 | ' | Execute Access,All_Reference
0712 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0713 e224 | $ | Load 0x1,0x24
0714 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0715 c402 | | Store 0x2,0x2
0716 005a | Z | Store_Top Discrete,At_Offset_2
0717 00d9 | | Load_Top At_Offset_1
0718 7001 |p | Jump_Nonzero 0x71a
0719 4502 |E | Exit_Suprogram New_Top_Offset 0x2
071a 00da | | Load_Top At_Offset_2
071b e5ff | | Load 0x2,-0x1
071c 027f | | Execute Discrete,Equal
071d 680c |h | Jump_Zero 0x72a
071e e5fc | | Load 0x2,-0x4
071f e403 | | Load 0x2,0x3
0720 e402 | | Load 0x2,0x2
0721 e5fd | | Load 0x2,-0x3
0722 e5fe | | Load 0x2,-0x2
0723 8249 | I | Call 0x1,0x49
0724 c5fe | | Store 0x2,-0x2
0725 c5fd | | Store 0x2,-0x3
0726 c402 | | Store 0x2,0x2
0727 c403 | | Store 0x2,0x3
0728 c5fc | | Store 0x2,-0x4
0729 4502 |E | Exit_Suprogram New_Top_Offset 0x2
072a e402 | | Load 0x2,0x2
072b a403 | | Store_Unchecked 0x2,0x3
072c e402 | | Load 0x2,0x2
072d 0227 | ' | Execute Access,All_Reference
072e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
072f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0730 00c9 | | Action Pop_Auxiliary_Loop
0731 00da | | Load_Top At_Offset_2
0732 77da |w | Jump_Nonzero 0x70d
0733 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0734 0000 0000 | | .BLANK 0000[0x4]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073c | < | .CONST 0x073c ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0002 | | .CONST 0x0002 ; Number of locals
073b INIT_0738:
073b 00ec | | Load_Encached Diana_Tree_Cache
073c BODY_0738:
073c 00db | | Load_Top At_Offset_3
073d 00eb | | Load_Encached Diana_Cache
073e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
073f 6803 |h | Jump_Zero 0x743
0740 00eb | | Load_Encached Diana_Cache
0741 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0742 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0743 00db | | Load_Top At_Offset_3
0744 e01d | | Load 0x0,0x1d
0745 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0746 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0747 00d8 | | Load_Top At_Offset_0
0748 00eb | | Load_Encached Diana_Cache
0749 1813 | | Execute Package,Field_Execute,Field_Number 0x13
074a 6803 |h | Jump_Zero 0x74e
074b 00eb | | Load_Encached Diana_Cache
074c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
074d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
074e 00d8 | | Load_Top At_Offset_0
074f 4976 |Iv | Short_Literal 0x176
0750 00eb | | Load_Encached Diana_Cache
0751 0098 | | Execute Package,Field_Read_Dynamic
0752 180f | | Execute Package,Field_Execute,Field_Number 0xf
0753 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0754 0000 0000 | | .BLANK 0000[0x4]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b 00da | | Load_Top At_Offset_2
075c 00eb | | Load_Encached Diana_Cache
075d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
075e 7008 |p | Jump_Nonzero 0x767
075f 00da | | Load_Top At_Offset_2
0760 e01e | | Load 0x0,0x1e
0761 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0762 6804 |h | Jump_Zero 0x767
0763 00da | | Load_Top At_Offset_2
0764 e01e | | Load 0x0,0x1e
0765 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0766 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0767 4800 |H | Short_Literal 0x0
0768 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0769 0000 0000 | | .BLANK 0000[0x7]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 00da | | Load_Top At_Offset_2
0774 00eb | | Load_Encached Diana_Cache
0775 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0776 7004 |p | Jump_Nonzero 0x77b
0777 00da | | Load_Top At_Offset_2
0778 e01e | | Load 0x0,0x1e
0779 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
077a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
077b 4800 |H | Short_Literal 0x0
077c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
077d 0000 0000 | | .XXX[0x3]
077f 0000 | |
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0785 | | .CONST 0x0785 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0003 | | .CONST 0x0003 ; Number of locals
0783 INIT_0780:
0783 00e3 | | Load_Encached Natural_Cache
0784 00ec | | Load_Encached Diana_Tree_Cache
0785 BODY_0780:
0785 e5ff | | Load 0x2,-0x1
0786 824c | L | Call 0x1,0x4c
0787 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0788 00d8 | | Load_Top At_Offset_0
0789 824d | M | Call 0x1,0x4d
078a 005a | Z | Store_Top Discrete,At_Offset_2
078b 00d9 | | Load_Top At_Offset_1
078c 6810 |h | Jump_Zero 0x79d
078d e5fd | | Load 0x2,-0x3
078e 7002 |p | Jump_Nonzero 0x791
078f 00d9 | | Load_Top At_Offset_1
0790 a5fd | | Store_Unchecked 0x2,-0x3
0791 00d9 | | Load_Top At_Offset_1
0792 e5fd | | Load 0x2,-0x3
0793 027f | | Execute Discrete,Equal
0794 6808 |h | Jump_Zero 0x79d
0795 00d8 | | Load_Top At_Offset_0
0796 824e | N | Call 0x1,0x4e
0797 6803 |h | Jump_Zero 0x79b
0798 e5fe | | Load 0x2,-0x2
0799 a5fc | | Store_Unchecked 0x2,-0x4
079a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
079b 4801 |H | Short_Literal 0x1
079c a5fb | | Store_Unchecked 0x2,-0x5
079d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
079e 0000 0000 | | .XXX[0x2]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07b2 | | .CONST 0x07b2 ; Address of begin
07a1 0004 | | .CONST 0x0004 ; Address of exception handler
07a2 000a | | .CONST 0x000a ; Number of locals
07a3 INIT_07a0:
07a3 00e3 | | Load_Encached Natural_Cache
07a4 e220 | | Load 0x1,0x20
07a5 0007 | | Action Break_Optional
07a6 00e1 | | Load_Encached Boolean_Cache
07a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07a8 03e9 | | Declare_Variable Discrete,Duplicate
07a9 00e1 | | Load_Encached Boolean_Cache
07aa 00e3 | | Load_Encached Natural_Cache
07ab 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07ac 00e2 | | Load_Encached Integer_Cache
07ad 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07ae 00e1 | | Load_Encached Boolean_Cache
07af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07b0 00e3 | | Load_Encached Natural_Cache
07b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07b2 BODY_07a0:
07b2 e5ff | | Load 0x2,-0x1
07b3 a402 | | Store_Unchecked 0x2,0x2
07b4 00cf | | Action Mark_Auxiliary
07b5 782c |x, | Jump 0x7e2
07b6 00e1 | | Load_Encached Boolean_Cache
07b7 e403 | | Load 0x2,0x3
07b8 e402 | | Load 0x2,0x2
07b9 e5fd | | Load 0x2,-0x3
07ba 0227 | ' | Execute Access,All_Reference
07bb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07bc e224 | $ | Load 0x1,0x24
07bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07be c403 | | Store 0x2,0x3
07bf c406 | | Store 0x2,0x6
07c0 e406 | | Load 0x2,0x6
07c1 6822 |h" | Jump_Zero 0x7e4
07c2 e407 | | Load 0x2,0x7
07c3 0a01 | | Execute_Immediate Plus,0x1
07c4 c407 | | Store 0x2,0x7
07c5 00da | | Load_Top At_Offset_2
07c6 00da | | Load_Top At_Offset_2
07c7 e408 | | Load 0x2,0x8
07c8 e402 | | Load 0x2,0x2
07c9 e403 | | Load 0x2,0x3
07ca 0227 | ' | Execute Access,All_Reference
07cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07cc 824f | O | Call 0x1,0x4f
07cd c408 | | Store 0x2,0x8
07ce 005b | [ | Store_Top Discrete,At_Offset_3
07cf 005b | [ | Store_Top Discrete,At_Offset_3
07d0 e403 | | Load 0x2,0x3
07d1 0227 | ' | Execute Access,All_Reference
07d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07d3 4602 |F | Jump_Case 0x3
07d4 7805 |x | Jump 0x7da ; case 0x0
07d5 7807 |x | Jump 0x7dd ; case 0x1
07d6 7800 |x | Jump 0x7d7 ; case 0x2
07d7 4801 |H | Short_Literal 0x1
07d8 a405 | | Store_Unchecked 0x2,0x5
07d9 7803 |x | Jump 0x7dd
07da 4801 |H | Short_Literal 0x1
07db a404 | | Store_Unchecked 0x2,0x4
07dc 7800 |x | Jump 0x7dd
07dd e403 | | Load 0x2,0x3
07de 0227 | ' | Execute Access,All_Reference
07df 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
07e0 a402 | | Store_Unchecked 0x2,0x2
07e1 00c9 | | Action Pop_Auxiliary_Loop
07e2 e402 | | Load 0x2,0x2
07e3 77d2 |w | Jump_Nonzero 0x7b6
07e4 00ce | | Action Pop_Auxiliary
07e5 00d9 | | Load_Top At_Offset_1
07e6 00d9 | | Load_Top At_Offset_1
07e7 0e00 | | Execute_Immediate Not_Equal,0x0
07e8 0279 | y | Execute Discrete,And
07e9 6808 |h | Jump_Zero 0x7f2
07ea e5fd | | Load 0x2,-0x3
07eb e407 | | Load 0x2,0x7
07ec e5ff | | Load 0x2,-0x1
07ed 00db | | Load_Top At_Offset_3
07ee 824b | K | Call 0x1,0x4b
07ef c5ff | | Store 0x2,-0x1
07f0 c407 | | Store 0x2,0x7
07f1 c5fd | | Store 0x2,-0x3
07f2 e404 | | Load 0x2,0x4
07f3 e405 | | Load 0x2,0x5
07f4 0279 | y | Execute Discrete,And
07f5 6807 |h | Jump_Zero 0x7fd
07f6 e5fd | | Load 0x2,-0x3
07f7 e407 | | Load 0x2,0x7
07f8 e5ff | | Load 0x2,-0x1
07f9 824a | J | Call 0x1,0x4a
07fa c5ff | | Store 0x2,-0x1
07fb c407 | | Store 0x2,0x7
07fc c5fd | | Store 0x2,-0x3
07fd 0092 14d0 | | Action Push_String_Extended,0x14d0 ; "Delete_Low_Priority_Overloads deleted everything"
07ff e407 | | Load 0x2,0x7
0800 0c01 | | Execute_Immediate Greater_Equal,0x1
0801 e01f | | Load 0x0,0x1f
0802 180e | | Execute Package,Field_Execute,Field_Number 0xe
0803 00db | | Load_Top At_Offset_3
0804 0c02 | | Execute_Immediate Greater_Equal,0x2
0805 a5fe | | Store_Unchecked 0x2,-0x2
0806 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0807 0000 | | .XXX[0x1]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b 00da | | Load_Top At_Offset_2
080c 0227 | ' | Execute Access,All_Reference
080d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
080e e5fe | | Load 0x2,-0x2
080f 0227 | ' | Execute Access,All_Reference
0810 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0811 027f | | Execute Discrete,Equal
0812 6808 |h | Jump_Zero 0x81b
0813 00da | | Load_Top At_Offset_2
0814 0227 | ' | Execute Access,All_Reference
0815 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0816 e5fe | | Load 0x2,-0x2
0817 0227 | ' | Execute Access,All_Reference
0818 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0819 021f | | Execute Heap_Access,Equal
081a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
081b 4800 |H | Short_Literal 0x0
081c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
081d 0000 0000 | | .XXX[0x3]
081f 0000 | |
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823 | # | .CONST 0x0823 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0001 | | .CONST 0x0001 ; Number of locals
0823 BODY_0820:
0823 INIT_0820:
0823 00db | | Load_Top At_Offset_3
0824 e5fd | | Load 0x2,-0x3
0825 0227 | ' | Execute Access,All_Reference
0826 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0827 e5fd | | Load 0x2,-0x3
0828 0227 | ' | Execute Access,All_Reference
0829 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
082a a5fe | | Store_Unchecked 0x2,-0x2
082b e5fc | | Load 0x2,-0x4
082c e5fd | | Load 0x2,-0x3
082d e221 | ! | Load 0x1,0x21
082e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
082f c5fc | | Store 0x2,-0x4
0830 e5fb | | Load 0x2,-0x5
0831 0229 | ) | Execute Access,All_Read
0832 00d8 | | Load_Top At_Offset_0
0833 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0834 4800 |H | Short_Literal 0x0
0835 e5fc | | Load 0x2,-0x4
0836 e5ff | | Load 0x2,-0x1
0837 e022 | " | Load 0x0,0x22
0838 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0839 e222 | " | Load 0x1,0x22
083a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
083b 00d9 | | Load_Top At_Offset_1
083c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
083d 00d1 | | Pop_Control Pop_Count_1
083e e5fb | | Load 0x2,-0x5
083f 0229 | ) | Execute Access,All_Read
0840 00d8 | | Load_Top At_Offset_0
0841 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0842 4800 |H | Short_Literal 0x0
0843 e5fd | | Load 0x2,-0x3
0844 00d8 | | Load_Top At_Offset_0
0845 0227 | ' | Execute Access,All_Reference
0846 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0847 e224 | $ | Load 0x1,0x24
0848 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0849 00d9 | | Load_Top At_Offset_1
084a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
084b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
084c 0000 0000 | | .BLANK 0000[0x4]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 086e | n | .CONST 0x086e ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0008 | | .CONST 0x0008 ; Number of locals
0853 INIT_0850:
0853 e024 | $ | Load 0x0,0x24
0854 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0855 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0856 02c7 | | Declare_Variable Any
0857 00d8 | | Load_Top At_Offset_0
0858 1c00 | | Execute_Immediate Run_Utility,0x0
0859 e024 | $ | Load 0x0,0x24
085a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085b e024 | $ | Load 0x0,0x24
085c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
085d 02c7 | | Declare_Variable Any
085e 00d8 | | Load_Top At_Offset_0
085f 1c00 | | Execute_Immediate Run_Utility,0x0
0860 e024 | $ | Load 0x0,0x24
0861 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0862 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0863 02c7 | | Declare_Variable Any
0864 00d8 | | Load_Top At_Offset_0
0865 1c00 | | Execute_Immediate Run_Utility,0x0
0866 00ec | | Load_Encached Diana_Tree_Cache
0867 00ec | | Load_Encached Diana_Tree_Cache
0868 e024 | $ | Load 0x0,0x24
0869 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
086a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
086b 02c7 | | Declare_Variable Any
086c 00d8 | | Load_Top At_Offset_0
086d 1c00 | | Execute_Immediate Run_Utility,0x0
086e BODY_0850:
086e e024 | $ | Load 0x0,0x24
086f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0870 e402 | | Load 0x2,0x2
0871 0120 | | Execute Any,Is_Value
0872 6804 |h | Jump_Zero 0x877
0873 e024 | $ | Load 0x0,0x24
0874 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0875 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0876 7801 |x | Jump 0x878
0877 e402 | | Load 0x2,0x2
0878 e5ff | | Load 0x2,-0x1
0879 e024 | $ | Load 0x0,0x24
087a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
087b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
087c c402 | | Store 0x2,0x2
087d c403 | | Store 0x2,0x3
087e e403 | | Load 0x2,0x3
087f 6802 |h | Jump_Zero 0x882
0880 00ea | | Load_Encached Null_String_Cache
0881 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0882 e402 | | Load 0x2,0x2
0883 e024 | $ | Load 0x0,0x24
0884 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0885 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0886 c404 | | Store 0x2,0x4
0887 e404 | | Load 0x2,0x4
0888 e024 | $ | Load 0x0,0x24
0889 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
088a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
088b c405 | | Store 0x2,0x5
088c e024 | $ | Load 0x0,0x24
088d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
088e 00d9 | | Load_Top At_Offset_1
088f 0120 | | Execute Any,Is_Value
0890 6804 |h | Jump_Zero 0x895
0891 e024 | $ | Load 0x0,0x24
0892 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0893 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0894 7801 |x | Jump 0x896
0895 00d9 | | Load_Top At_Offset_1
0896 e024 | $ | Load 0x0,0x24
0897 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0898 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0899 6026 |`& | Indirect_Literal Discrete,0x8c0,{0x00000000, 0x00004000}
089a 4801 |H | Short_Literal 0x1
089b 4800 |H | Short_Literal 0x0
089c 4800 |H | Short_Literal 0x0
089d e025 | % | Load 0x0,0x25
089e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
089f 4800 |H | Short_Literal 0x0
08a0 e405 | | Load 0x2,0x5
08a1 e024 | $ | Load 0x0,0x24
08a2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
08a3 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
08a4 c406 | | Store 0x2,0x6
08a5 c408 | | Store 0x2,0x8
08a6 c403 | | Store 0x2,0x3
08a7 e403 | | Load 0x2,0x3
08a8 6802 |h | Jump_Zero 0x8ab
08a9 00ea | | Load_Encached Null_String_Cache
08aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08ab 00da | | Load_Top At_Offset_2
08ac 4976 |Iv | Short_Literal 0x176
08ad 00eb | | Load_Encached Diana_Cache
08ae 0098 | | Execute Package,Field_Read_Dynamic
08af 180f | | Execute Package,Field_Execute,Field_Number 0xf
08b0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08b1 00d9 | | Load_Top At_Offset_1
08b2 00eb | | Load_Encached Diana_Cache
08b3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08b4 0f29 | ) | Execute_Immediate Equal,0x29
08b5 6806 |h | Jump_Zero 0x8bc
08b6 0092 14d1 | | Action Push_String_Extended,0x14d1 ; "; Library Name "
08b8 00da | | Load_Top At_Offset_2
08b9 8233 | 3 | Call 0x1,0x33
08ba 01cc | | Execute Vector,Catenate
08bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08bc 0831 | 1 | Execute_Immediate Raise,0x31
08bd 0000 0000 | | .XXX[0x3]
08bf 0000 | |
08c0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
08c4 0000 0000 | | .BLANK 0000[0x4]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08d1 | | .CONST 0x08d1 ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0003 | | .CONST 0x0003 ; Number of locals
08cb INIT_08c8:
08cb 00ec | | Load_Encached Diana_Tree_Cache
08cc e012 | | Load 0x0,0x12
08cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ce 02c7 | | Declare_Variable Any
08cf 00d8 | | Load_Top At_Offset_0
08d0 1c00 | | Execute_Immediate Run_Utility,0x0
08d1 BODY_08c8:
08d1 00eb | | Load_Encached Diana_Cache
08d2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08d3 0032 | 2 | Store_Top Heap_Access,At_Offset_2
08d4 480a |H | Short_Literal 0xa
08d5 0092 14d2 | | Action Push_String_Extended,0x14d2 ; "Index N("
08d7 4820 |H | Short_Literal 0x20
08d8 4800 |H | Short_Literal 0x0
08d9 480a |H | Short_Literal 0xa
08da e5ff | | Load 0x2,-0x1
08db 0227 | ' | Execute Access,All_Reference
08dc 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
08dd e022 | " | Load 0x0,0x22
08de 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08df 01cc | | Execute Vector,Catenate
08e0 0092 14d3 | | Action Push_String_Extended,0x14d3 ; "): "
08e2 01cc | | Execute Vector,Catenate
08e3 0092 14d4 | | Action Push_String_Extended,0x14d4 ; "Main Unit "
08e5 01cc | | Execute Vector,Catenate
08e6 e5ff | | Load 0x2,-0x1
08e7 0227 | ' | Execute Access,All_Reference
08e8 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
08e9 8233 | 3 | Call 0x1,0x33
08ea 01cc | | Execute Vector,Catenate
08eb e5ff | | Load 0x2,-0x1
08ec 0227 | ' | Execute Access,All_Reference
08ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08ee 8253 | S | Call 0x1,0x53
08ef 01cc | | Execute Vector,Catenate
08f0 01cb | | Execute Vector,Append
08f1 8228 | ( | Call 0x1,0x28
08f2 00d8 | | Load_Top At_Offset_0
08f3 4800 |H | Short_Literal 0x0
08f4 e028 | ( | Load 0x0,0x28
08f5 4800 |H | Short_Literal 0x0
08f6 00eb | | Load_Encached Diana_Cache
08f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08f8 e029 | ) | Load 0x0,0x29
08f9 4820 |H | Short_Literal 0x20
08fa e02a | * | Load 0x0,0x2a
08fb e029 | ) | Load 0x0,0x29
08fc 4802 |H | Short_Literal 0x2
08fd 4802 |H | Short_Literal 0x2
08fe 4800 |H | Short_Literal 0x0
08ff 4800 |H | Short_Literal 0x0
0900 e402 | | Load 0x2,0x2
0901 e5ff | | Load 0x2,-0x1
0902 0227 | ' | Execute Access,All_Reference
0903 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0904 e02b | + | Load 0x0,0x2b
0905 e02c | , | Load 0x0,0x2c
0906 a02d | - | Store_Unchecked 0x0,0x2d
0907 a02e | . | Store_Unchecked 0x0,0x2e
0908 a02f | / | Store_Unchecked 0x0,0x2f
0909 a030 | 0 | Store_Unchecked 0x0,0x30
090a e031 | 1 | Load 0x0,0x31
090b e032 | 2 | Load 0x0,0x32
090c e033 | 3 | Load 0x0,0x33
090d e034 | 4 | Load 0x0,0x34
090e a035 | 5 | Store_Unchecked 0x0,0x35
090f a036 | 6 | Store_Unchecked 0x0,0x36
0910 a037 | 7 | Store_Unchecked 0x0,0x37
0911 a038 | 8 | Store_Unchecked 0x0,0x38
0912 a039 | 9 | Store_Unchecked 0x0,0x39
0913 a03a | : | Store_Unchecked 0x0,0x3a
0914 a03b | ; | Store_Unchecked 0x0,0x3b
0915 a03c | < | Store_Unchecked 0x0,0x3c
0916 a03d | = | Store_Unchecked 0x0,0x3d
0917 a03e | > | Store_Unchecked 0x0,0x3e
0918 a03f | ? | Store_Unchecked 0x0,0x3f
0919 a040 | @ | Store_Unchecked 0x0,0x40
091a a041 | A | Store_Unchecked 0x0,0x41
091b a042 | B | Store_Unchecked 0x0,0x42
091c a043 | C | Store_Unchecked 0x0,0x43
091d a044 | D | Store_Unchecked 0x0,0x44
091e a045 | E | Store_Unchecked 0x0,0x45
091f a046 | F | Store_Unchecked 0x0,0x46
0920 8047 | G | Call 0x0,0x47
0921 c403 | | Store 0x2,0x3
0922 8229 | ) | Call 0x1,0x29
0923 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0924 0000 0000 | | .BLANK 0000[0x4]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 0931 | 1 | .CONST 0x0931 ; Address of begin
0929 0004 | | .CONST 0x0004 ; Address of exception handler
092a 0004 | | .CONST 0x0004 ; Number of locals
092b INIT_0928:
092b e220 | | Load 0x1,0x20
092c 0007 | | Action Break_Optional
092d 00e1 | | Load_Encached Boolean_Cache
092e e5fe | | Load 0x2,-0x2
092f 00e3 | | Load_Encached Natural_Cache
0930 03f1 | | Declare_Variable Discrete,With_Value
0931 BODY_0928:
0931 480a |H | Short_Literal 0xa
0932 482e |H. | Short_Literal 0x2e
0933 0092 14d5 | | Action Push_String_Extended,0x14d5 ; "There are several library units named "
0935 e5fd | | Load 0x2,-0x3
0936 e022 | " | Load 0x0,0x22
0937 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0938 01cc | | Execute Vector,Catenate
0939 01cb | | Execute Vector,Append
093a 01cb | | Execute Vector,Append
093b 8228 | ( | Call 0x1,0x28
093c e5ff | | Load 0x2,-0x1
093d 01db | | Execute Vector,Length
093e 0c01 | | Execute_Immediate Greater_Equal,0x1
093f 6803 |h | Jump_Zero 0x943
0940 0092 14d6 | | Action Push_String_Extended,0x14d6 ; "The qualifier specified did not resolve this overload.\x0a"
0942 8228 | ( | Call 0x1,0x28
0943 480a |H | Short_Literal 0xa
0944 480a |H | Short_Literal 0xa
0945 0092 14d7 | | Action Push_String_Extended,0x14d7 ; "When you ask for it again, please choose one by appending to "
0947 e5fd | | Load 0x2,-0x3
0948 e022 | " | Load 0x0,0x22
0949 1814 | | Execute Package,Field_Execute,Field_Number 0x14
094a 01cc | | Execute Vector,Catenate
094b 01cb | | Execute Vector,Append
094c 0092 14d8 | | Action Push_String_Extended,0x14d8 ; "a single quote followed by an index, as follows:"
094e 01cc | | Execute Vector,Catenate
094f 01cb | | Execute Vector,Append
0950 8228 | ( | Call 0x1,0x28
0951 8229 | ) | Call 0x1,0x29
0952 00cf | | Action Mark_Auxiliary
0953 7813 |x | Jump 0x967
0954 00e1 | | Load_Encached Boolean_Cache
0955 e402 | | Load 0x2,0x2
0956 00db | | Load_Top At_Offset_3
0957 e5fc | | Load 0x2,-0x4
0958 0227 | ' | Execute Access,All_Reference
0959 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
095a e224 | $ | Load 0x1,0x24
095b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
095c c402 | | Store 0x2,0x2
095d 005b | [ | Store_Top Discrete,At_Offset_3
095e 00da | | Load_Top At_Offset_2
095f 6802 |h | Jump_Zero 0x962
0960 00db | | Load_Top At_Offset_3
0961 8254 | T | Call 0x1,0x54
0962 00db | | Load_Top At_Offset_3
0963 0227 | ' | Execute Access,All_Reference
0964 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0965 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0966 00c9 | | Action Pop_Auxiliary_Loop
0967 00d9 | | Load_Top At_Offset_1
0968 77eb |w | Jump_Nonzero 0x954
0969 4505 |E | Exit_Suprogram New_Top_Offset 0x5
096a 0000 0000 | | .BLANK 0000[0x6]
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 0973 | s | .CONST 0x0973 ; Address of begin
0971 0004 | | .CONST 0x0004 ; Address of exception handler
0972 0001 | | .CONST 0x0001 ; Number of locals
0973 BODY_0970:
0973 INIT_0970:
0973 e5fd | | Load 0x2,-0x3
0974 e5fe | | Load 0x2,-0x2
0975 e221 | ! | Load 0x1,0x21
0976 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0977 c5fd | | Store 0x2,-0x3
0978 e5fc | | Load 0x2,-0x4
0979 0229 | ) | Execute Access,All_Read
097a 00d8 | | Load_Top At_Offset_0
097b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
097c 4800 |H | Short_Literal 0x0
097d e5fd | | Load 0x2,-0x3
097e e5ff | | Load 0x2,-0x1
097f e022 | " | Load 0x0,0x22
0980 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0981 e222 | " | Load 0x1,0x22
0982 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0983 00d9 | | Load_Top At_Offset_1
0984 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0985 00d1 | | Pop_Control Pop_Count_1
0986 e5fc | | Load 0x2,-0x4
0987 0229 | ) | Execute Access,All_Read
0988 00d8 | | Load_Top At_Offset_0
0989 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
098a 4801 |H | Short_Literal 0x1
098b e5fe | | Load 0x2,-0x2
098c e5fc | | Load 0x2,-0x4
098d 0227 | ' | Execute Access,All_Reference
098e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
098f e224 | $ | Load 0x1,0x24
0990 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0991 00d9 | | Load_Top At_Offset_1
0992 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0993 00d1 | | Pop_Control Pop_Count_1
0994 e5fc | | Load 0x2,-0x4
0995 0227 | ' | Execute Access,All_Reference
0996 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0997 0a01 | | Execute_Immediate Plus,0x1
0998 e5fc | | Load 0x2,-0x4
0999 0227 | ' | Execute Access,All_Reference
099a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
099b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
099c 0000 0000 | | .BLANK 0000[0x4]
09a0 ; --------------------------------------------------------------------------------------
09a0 ; SUBPROGRAM
09a0 ; --------------------------------------------------------------------------------------
09a0 09a3 | | .CONST 0x09a3 ; Address of begin
09a1 09b6 | | .CONST 0x09b6 ; Address of exception handler
09a2 0001 | | .CONST 0x0001 ; Number of locals
09a3 BODY_09a0:
09a3 INIT_09a0:
09a3 00da | | Load_Top At_Offset_2
09a4 e004 | | Load 0x0,0x4
09a5 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09a6 012e | . | Execute Any,Not_Equal
09a7 680b |h | Jump_Zero 0x9b3
09a8 00da | | Load_Top At_Offset_2
09a9 e048 | H | Load 0x0,0x48
09aa 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
09ab e5ff | | Load 0x2,-0x1
09ac e004 | | Load 0x0,0x4
09ad 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
09ae e048 | H | Load 0x0,0x48
09af 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
09b0 e004 | | Load 0x0,0x4
09b1 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
09b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09b3 e004 | | Load 0x0,0x4
09b4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09b6 TRAP_09a0:
09b6 0007 | | Action Break_Optional
09b7 e004 | | Load 0x0,0x4
09b8 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09ba 0000 0000 | | .BLANK 0000[0x6]
09c0 ; --------------------------------------------------------------------------------------
09c0 ; SUBPROGRAM
09c0 ; --------------------------------------------------------------------------------------
09c0 09c3 | | .CONST 0x09c3 ; Address of begin
09c1 0004 | | .CONST 0x0004 ; Address of exception handler
09c2 0001 | | .CONST 0x0001 ; Number of locals
09c3 BODY_09c0:
09c3 INIT_09c0:
09c3 00da | | Load_Top At_Offset_2
09c4 0227 | ' | Execute Access,All_Reference
09c5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
09c6 e5fe | | Load 0x2,-0x2
09c7 0227 | ' | Execute Access,All_Reference
09c8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
09c9 00da | | Load_Top At_Offset_2
09ca 0227 | ' | Execute Access,All_Reference
09cb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
09cc e5fe | | Load 0x2,-0x2
09cd 0227 | ' | Execute Access,All_Reference
09ce 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
09cf 00da | | Load_Top At_Offset_2
09d0 0227 | ' | Execute Access,All_Reference
09d1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
09d2 e5fe | | Load 0x2,-0x2
09d3 0227 | ' | Execute Access,All_Reference
09d4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
09d5 00da | | Load_Top At_Offset_2
09d6 0227 | ' | Execute Access,All_Reference
09d7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
09d8 e5fe | | Load 0x2,-0x2
09d9 0227 | ' | Execute Access,All_Reference
09da 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
09db 4503 |E | Exit_Suprogram New_Top_Offset 0x3
09dc 0000 0000 | | .BLANK 0000[0x4]
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09e3 | | .CONST 0x09e3 ; Address of begin
09e1 0004 | | .CONST 0x0004 ; Address of exception handler
09e2 0001 | | .CONST 0x0001 ; Number of locals
09e3 BODY_09e0:
09e3 INIT_09e0:
09e3 00da | | Load_Top At_Offset_2
09e4 0f00 | | Execute_Immediate Equal,0x0
09e5 e5fe | | Load 0x2,-0x2
09e6 e004 | | Load 0x0,0x4
09e7 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
09e8 012f | / | Execute Any,Equal
09e9 0279 | y | Execute Discrete,And
09ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
09eb 0000 0000 | | .BLANK 0000[0x5]
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 00db | | Load_Top At_Offset_3
09f4 00db | | Load_Top At_Offset_3
09f5 8259 | Y | Call 0x1,0x59
09f6 0f00 | | Execute_Immediate Equal,0x0
09f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fb | | .CONST 0x09fb ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0001 | | .CONST 0x0001 ; Number of locals
09fb BODY_09f8:
09fb INIT_09f8:
09fb 00da | | Load_Top At_Offset_2
09fc 6808 |h | Jump_Zero 0xa05
09fd 00da | | Load_Top At_Offset_2
09fe 0227 | ' | Execute Access,All_Reference
09ff 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a00 00db | | Load_Top At_Offset_3
0a01 0227 | ' | Execute Access,All_Reference
0a02 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a03 8259 | Y | Call 0x1,0x59
0a04 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a05 4801 |H | Short_Literal 0x1
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 00da | | Load_Top At_Offset_2
0a0c 825b | [ | Call 0x1,0x5b
0a0d 0f00 | | Execute_Immediate Equal,0x0
0a0e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a0f 0000 | | .XXX[0x1]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a13 | | .CONST 0x0a13 ; Address of begin
0a11 0004 | | .CONST 0x0004 ; Address of exception handler
0a12 0001 | | .CONST 0x0001 ; Number of locals
0a13 BODY_0a10:
0a13 INIT_0a10:
0a13 00db | | Load_Top At_Offset_3
0a14 00db | | Load_Top At_Offset_3
0a15 8259 | Y | Call 0x1,0x59
0a16 701c |p | Jump_Nonzero 0xa33
0a17 00da | | Load_Top At_Offset_2
0a18 e5fc | | Load 0x2,-0x4
0a19 0227 | ' | Execute Access,All_Reference
0a1a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a1b 027f | | Execute Discrete,Equal
0a1c 6814 |h | Jump_Zero 0xa31
0a1d 00db | | Load_Top At_Offset_3
0a1e e5fc | | Load 0x2,-0x4
0a1f 0227 | ' | Execute Access,All_Reference
0a20 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a21 012f | / | Execute Any,Equal
0a22 7006 |p | Jump_Nonzero 0xa29
0a23 00db | | Load_Top At_Offset_3
0a24 e5fc | | Load 0x2,-0x4
0a25 0227 | ' | Execute Access,All_Reference
0a26 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0a27 012f | / | Execute Any,Equal
0a28 6806 |h | Jump_Zero 0xa2f
0a29 e5fd | | Load 0x2,-0x3
0a2a e5fc | | Load 0x2,-0x4
0a2b 0227 | ' | Execute Access,All_Reference
0a2c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a2d 027f | | Execute Discrete,Equal
0a2e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a2f 4800 |H | Short_Literal 0x0
0a30 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a31 4800 |H | Short_Literal 0x0
0a32 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a33 4801 |H | Short_Literal 0x1
0a34 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a35 0000 0000 | | .XXX[0x3]
0a37 0000 | |
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a3b | ; | .CONST 0x0a3b ; Address of begin
0a39 0004 | | .CONST 0x0004 ; Address of exception handler
0a3a 0001 | | .CONST 0x0001 ; Number of locals
0a3b BODY_0a38:
0a3b INIT_0a38:
0a3b 00db | | Load_Top At_Offset_3
0a3c 00db | | Load_Top At_Offset_3
0a3d 0227 | ' | Execute Access,All_Reference
0a3e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0a3f 00d8 | | Load_Top At_Offset_0
0a40 00e3 | | Load_Encached Natural_Cache
0a41 0260 | ` | Execute Discrete,In_Type
0a42 7001 |p | Jump_Nonzero 0xa44
0a43 0801 | | Execute_Immediate Raise,0x1
0a44 e5ff | | Load 0x2,-0x1
0a45 0227 | ' | Execute Access,All_Reference
0a46 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a47 e5ff | | Load 0x2,-0x1
0a48 0227 | ' | Execute Access,All_Reference
0a49 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a4a 825d | ] | Call 0x1,0x5d
0a4b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a4c 0000 0000 | | .BLANK 0000[0x4]
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a53 | S | .CONST 0x0a53 ; Address of begin
0a51 0004 | | .CONST 0x0004 ; Address of exception handler
0a52 0001 | | .CONST 0x0001 ; Number of locals
0a53 BODY_0a50:
0a53 INIT_0a50:
0a53 00da | | Load_Top At_Offset_2
0a54 6808 |h | Jump_Zero 0xa5d
0a55 00da | | Load_Top At_Offset_2
0a56 0227 | ' | Execute Access,All_Reference
0a57 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a58 e5fe | | Load 0x2,-0x2
0a59 0227 | ' | Execute Access,All_Reference
0a5a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a5b 027f | | Execute Discrete,Equal
0a5c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a5d 4801 |H | Short_Literal 0x1
0a5e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a5f 0000 | | .XXX[0x1]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a63 | c | .CONST 0x0a63 ; Address of begin
0a61 0004 | | .CONST 0x0004 ; Address of exception handler
0a62 0001 | | .CONST 0x0001 ; Number of locals
0a63 BODY_0a60:
0a63 INIT_0a60:
0a63 e5fc | | Load 0x2,-0x4
0a64 0227 | ' | Execute Access,All_Reference
0a65 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a66 00db | | Load_Top At_Offset_3
0a67 8243 | C | Call 0x1,0x43
0a68 6817 |h | Jump_Zero 0xa80
0a69 e5fc | | Load 0x2,-0x4
0a6a 0227 | ' | Execute Access,All_Reference
0a6b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0a6c e5fe | | Load 0x2,-0x2
0a6d 8243 | C | Call 0x1,0x43
0a6e 680f |h | Jump_Zero 0xa7e
0a6f e5fc | | Load 0x2,-0x4
0a70 e5fd | | Load 0x2,-0x3
0a71 825f | _ | Call 0x1,0x5f
0a72 6809 |h | Jump_Zero 0xa7c
0a73 e5fd | | Load 0x2,-0x3
0a74 825b | [ | Call 0x1,0x5b
0a75 7004 |p | Jump_Nonzero 0xa7a
0a76 e5fc | | Load 0x2,-0x4
0a77 e5fd | | Load 0x2,-0x3
0a78 825e | ^ | Call 0x1,0x5e
0a79 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a7a 4801 |H | Short_Literal 0x1
0a7b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a7c 4800 |H | Short_Literal 0x0
0a7d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a7e 4800 |H | Short_Literal 0x0
0a7f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a80 4800 |H | Short_Literal 0x0
0a81 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a82 0000 0000 | | .BLANK 0000[0x6]
0a88 ; --------------------------------------------------------------------------------------
0a88 ; SUBPROGRAM
0a88 ; --------------------------------------------------------------------------------------
0a88 0a8b | | .CONST 0x0a8b ; Address of begin
0a89 0004 | | .CONST 0x0004 ; Address of exception handler
0a8a 0001 | | .CONST 0x0001 ; Number of locals
0a8b BODY_0a88:
0a8b INIT_0a88:
0a8b e5fc | | Load 0x2,-0x4
0a8c 0227 | ' | Execute Access,All_Reference
0a8d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0a8e 00db | | Load_Top At_Offset_3
0a8f 8243 | C | Call 0x1,0x43
0a90 6811 |h | Jump_Zero 0xaa2
0a91 e5fc | | Load 0x2,-0x4
0a92 0227 | ' | Execute Access,All_Reference
0a93 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0a94 e5fe | | Load 0x2,-0x2
0a95 8243 | C | Call 0x1,0x43
0a96 6809 |h | Jump_Zero 0xaa0
0a97 e5fc | | Load 0x2,-0x4
0a98 e5fd | | Load 0x2,-0x3
0a99 825f | _ | Call 0x1,0x5f
0a9a 6803 |h | Jump_Zero 0xa9e
0a9b e5fc | | Load 0x2,-0x4
0a9c 825b | [ | Call 0x1,0x5b
0a9d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0a9e 4800 |H | Short_Literal 0x0
0a9f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0aa0 4800 |H | Short_Literal 0x0
0aa1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0aa2 4800 |H | Short_Literal 0x0
0aa3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0aa4 0000 0000 | | .BLANK 0000[0x4]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0ab1 | | .CONST 0x0ab1 ; Address of begin
0aa9 0004 | | .CONST 0x0004 ; Address of exception handler
0aaa 0005 | | .CONST 0x0005 ; Number of locals
0aab INIT_0aa8:
0aab 00ec | | Load_Encached Diana_Tree_Cache
0aac 00ec | | Load_Encached Diana_Tree_Cache
0aad e221 | ! | Load 0x1,0x21
0aae 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0aaf e220 | | Load 0x1,0x20
0ab0 0007 | | Action Break_Optional
0ab1 BODY_0aa8:
0ab1 e5fd | | Load 0x2,-0x3
0ab2 6806 |h | Jump_Zero 0xab9
0ab3 e5fd | | Load 0x2,-0x3
0ab4 0227 | ' | Execute Access,All_Reference
0ab5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ab6 00eb | | Load_Encached Diana_Cache
0ab7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ab8 6806 |h | Jump_Zero 0xabf
0ab9 e5fe | | Load 0x2,-0x2
0aba a402 | | Store_Unchecked 0x2,0x2
0abb 00eb | | Load_Encached Diana_Cache
0abc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0abd 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0abe 7809 |x | Jump 0xac8
0abf e5fd | | Load 0x2,-0x3
0ac0 0227 | ' | Execute Access,All_Reference
0ac1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ac2 823c | < | Call 0x1,0x3c
0ac3 a402 | | Store_Unchecked 0x2,0x2
0ac4 e5fd | | Load 0x2,-0x3
0ac5 0227 | ' | Execute Access,All_Reference
0ac6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0ac7 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0ac8 e221 | ! | Load 0x1,0x21
0ac9 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0aca e5ff | | Load 0x2,-0x1
0acb e221 | ! | Load 0x1,0x21
0acc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0acd 003a | : | Store_Top Access,At_Offset_2
0ace 00cf | | Action Mark_Auxiliary
0acf 7811 |x | Jump 0xae1
0ad0 00da | | Load_Top At_Offset_2
0ad1 e221 | ! | Load 0x1,0x21
0ad2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ad3 003a | : | Store_Top Access,At_Offset_2
0ad4 00d9 | | Load_Top At_Offset_1
0ad5 e5fd | | Load 0x2,-0x3
0ad6 e403 | | Load 0x2,0x3
0ad7 e402 | | Load 0x2,0x2
0ad8 8260 | ` | Call 0x1,0x60
0ad9 6802 |h | Jump_Zero 0xadc
0ada 4801 |H | Short_Literal 0x1
0adb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0adc 00da | | Load_Top At_Offset_2
0add e221 | ! | Load 0x1,0x21
0ade 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0adf 003b | ; | Store_Top Access,At_Offset_3
0ae0 00c9 | | Action Pop_Auxiliary_Loop
0ae1 00da | | Load_Top At_Offset_2
0ae2 e221 | ! | Load 0x1,0x21
0ae3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0ae4 6feb |o | Jump_Zero 0xad0
0ae5 00ce | | Action Pop_Auxiliary
0ae6 4800 |H | Short_Literal 0x0
0ae7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0ae8 ; --------------------------------------------------------------------------------------
0ae8 ; SUBPROGRAM
0ae8 ; --------------------------------------------------------------------------------------
0ae8 0af0 | | .CONST 0x0af0 ; Address of begin
0ae9 0004 | | .CONST 0x0004 ; Address of exception handler
0aea 0004 | | .CONST 0x0004 ; Number of locals
0aeb INIT_0ae8:
0aeb 00ec | | Load_Encached Diana_Tree_Cache
0aec e221 | ! | Load 0x1,0x21
0aed 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0aee e220 | | Load 0x1,0x20
0aef 0007 | | Action Break_Optional
0af0 BODY_0ae8:
0af0 e5fe | | Load 0x2,-0x2
0af1 0227 | ' | Execute Access,All_Reference
0af2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0af3 823c | < | Call 0x1,0x3c
0af4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0af5 e221 | ! | Load 0x1,0x21
0af6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0af7 e5ff | | Load 0x2,-0x1
0af8 e221 | ! | Load 0x1,0x21
0af9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0afa 003a | : | Store_Top Access,At_Offset_2
0afb 00cf | | Action Mark_Auxiliary
0afc 7815 |x | Jump 0xb12
0afd 00da | | Load_Top At_Offset_2
0afe e221 | ! | Load 0x1,0x21
0aff 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b00 003a | : | Store_Top Access,At_Offset_2
0b01 00d9 | | Load_Top At_Offset_1
0b02 e5fe | | Load 0x2,-0x2
0b03 022e | . | Execute Access,Not_Equal
0b04 6808 |h | Jump_Zero 0xb0d
0b05 00d9 | | Load_Top At_Offset_1
0b06 0227 | ' | Execute Access,All_Reference
0b07 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b08 e402 | | Load 0x2,0x2
0b09 8243 | C | Call 0x1,0x43
0b0a 6802 |h | Jump_Zero 0xb0d
0b0b 4801 |H | Short_Literal 0x1
0b0c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b0d 00da | | Load_Top At_Offset_2
0b0e e221 | ! | Load 0x1,0x21
0b0f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b10 003b | ; | Store_Top Access,At_Offset_3
0b11 00c9 | | Action Pop_Auxiliary_Loop
0b12 00da | | Load_Top At_Offset_2
0b13 e221 | ! | Load 0x1,0x21
0b14 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b15 6fe7 |o | Jump_Zero 0xafd
0b16 00ce | | Action Pop_Auxiliary
0b17 4800 |H | Short_Literal 0x0
0b18 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b19 0000 0000 | | .BLANK 0000[0x7]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b29 | ) | .CONST 0x0b29 ; Address of begin
0b21 0004 | | .CONST 0x0004 ; Address of exception handler
0b22 0005 | | .CONST 0x0005 ; Number of locals
0b23 INIT_0b20:
0b23 00ec | | Load_Encached Diana_Tree_Cache
0b24 e221 | ! | Load 0x1,0x21
0b25 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b26 e220 | | Load 0x1,0x20
0b27 0007 | | Action Break_Optional
0b28 00ec | | Load_Encached Diana_Tree_Cache
0b29 BODY_0b20:
0b29 e5fe | | Load 0x2,-0x2
0b2a 0227 | ' | Execute Access,All_Reference
0b2b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b2c 823c | < | Call 0x1,0x3c
0b2d a402 | | Store_Unchecked 0x2,0x2
0b2e e5fe | | Load 0x2,-0x2
0b2f 0227 | ' | Execute Access,All_Reference
0b30 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0b31 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0b32 e221 | ! | Load 0x1,0x21
0b33 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b34 e5ff | | Load 0x2,-0x1
0b35 e221 | ! | Load 0x1,0x21
0b36 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0b37 003b | ; | Store_Top Access,At_Offset_3
0b38 00cf | | Action Mark_Auxiliary
0b39 7814 |x | Jump 0xb4e
0b3a 00db | | Load_Top At_Offset_3
0b3b e221 | ! | Load 0x1,0x21
0b3c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b3d 003b | ; | Store_Top Access,At_Offset_3
0b3e 00da | | Load_Top At_Offset_2
0b3f e5fe | | Load 0x2,-0x2
0b40 00db | | Load_Top At_Offset_3
0b41 e402 | | Load 0x2,0x2
0b42 8261 | a | Call 0x1,0x61
0b43 6805 |h | Jump_Zero 0xb49
0b44 4801 |H | Short_Literal 0x1
0b45 a5fc | | Store_Unchecked 0x2,-0x4
0b46 00da | | Load_Top At_Offset_2
0b47 a5fd | | Store_Unchecked 0x2,-0x3
0b48 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b49 00db | | Load_Top At_Offset_3
0b4a e221 | ! | Load 0x1,0x21
0b4b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b4c c403 | | Store 0x2,0x3
0b4d 00c9 | | Action Pop_Auxiliary_Loop
0b4e 00db | | Load_Top At_Offset_3
0b4f e221 | ! | Load 0x1,0x21
0b50 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b51 6fe8 |o | Jump_Zero 0xb3a
0b52 00ce | | Action Pop_Auxiliary
0b53 e220 | | Load 0x1,0x20
0b54 a5fd | | Store_Unchecked 0x2,-0x3
0b55 4800 |H | Short_Literal 0x0
0b56 a5fc | | Store_Unchecked 0x2,-0x4
0b57 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; --------------------------------------------------------------------------------------
0b58 0b63 | c | .CONST 0x0b63 ; Address of begin
0b59 0004 | | .CONST 0x0004 ; Address of exception handler
0b5a 0006 | | .CONST 0x0006 ; Number of locals
0b5b INIT_0b58:
0b5b e221 | ! | Load 0x1,0x21
0b5c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0b5d e220 | | Load 0x1,0x20
0b5e 0007 | | Action Break_Optional
0b5f 00e1 | | Load_Encached Boolean_Cache
0b60 03e9 | | Declare_Variable Discrete,Duplicate
0b61 e221 | ! | Load 0x1,0x21
0b62 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b63 BODY_0b58:
0b63 e220 | | Load 0x1,0x20
0b64 a5f7 | | Store_Unchecked 0x2,-0x9
0b65 e402 | | Load 0x2,0x2
0b66 e221 | ! | Load 0x1,0x21
0b67 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b68 c402 | | Store 0x2,0x2
0b69 e402 | | Load 0x2,0x2
0b6a a5f8 | | Store_Unchecked 0x2,-0x8
0b6b 00e1 | | Load_Encached Boolean_Cache
0b6c e402 | | Load 0x2,0x2
0b6d e5fd | | Load 0x2,-0x3
0b6e 8234 | 4 | Call 0x1,0x34
0b6f e5ff | | Load 0x2,-0x1
0b70 0227 | ' | Execute Access,All_Reference
0b71 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b72 e222 | " | Load 0x1,0x22
0b73 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b74 c402 | | Store 0x2,0x2
0b75 005b | [ | Store_Top Discrete,At_Offset_3
0b76 00da | | Load_Top At_Offset_2
0b77 683b |h; | Jump_Zero 0xbb3
0b78 e402 | | Load 0x2,0x2
0b79 e221 | ! | Load 0x1,0x21
0b7a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b7b 7037 |p7 | Jump_Nonzero 0xbb3
0b7c e402 | | Load 0x2,0x2
0b7d a5f8 | | Store_Unchecked 0x2,-0x8
0b7e e221 | ! | Load 0x1,0x21
0b7f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0b80 e402 | | Load 0x2,0x2
0b81 e221 | ! | Load 0x1,0x21
0b82 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0b83 0039 | 9 | Store_Top Access,At_Offset_1
0b84 4800 |H | Short_Literal 0x0
0b85 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0b86 00cf | | Action Mark_Auxiliary
0b87 7824 |x$ | Jump 0xbac
0b88 00d9 | | Load_Top At_Offset_1
0b89 e221 | ! | Load 0x1,0x21
0b8a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b8b a403 | | Store_Unchecked 0x2,0x3
0b8c e403 | | Load 0x2,0x3
0b8d 0227 | ' | Execute Access,All_Reference
0b8e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b8f e5fe | | Load 0x2,-0x2
0b90 8243 | C | Call 0x1,0x43
0b91 6815 |h | Jump_Zero 0xba7
0b92 e403 | | Load 0x2,0x3
0b93 0227 | ' | Execute Access,All_Reference
0b94 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0b95 e5fc | | Load 0x2,-0x4
0b96 8243 | C | Call 0x1,0x43
0b97 680f |h | Jump_Zero 0xba7
0b98 e5f9 | | Load 0x2,-0x7
0b99 e5fb | | Load 0x2,-0x5
0b9a 8259 | Y | Call 0x1,0x59
0b9b 7006 |p | Jump_Nonzero 0xba2
0b9c e403 | | Load 0x2,0x3
0b9d e5fa | | Load 0x2,-0x6
0b9e e5f9 | | Load 0x2,-0x7
0b9f e5fb | | Load 0x2,-0x5
0ba0 825d | ] | Call 0x1,0x5d
0ba1 6805 |h | Jump_Zero 0xba7
0ba2 4801 |H | Short_Literal 0x1
0ba3 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0ba4 e403 | | Load 0x2,0x3
0ba5 a5f7 | | Store_Unchecked 0x2,-0x9
0ba6 7804 |x | Jump 0xbab
0ba7 00d9 | | Load_Top At_Offset_1
0ba8 e221 | ! | Load 0x1,0x21
0ba9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0baa 003a | : | Store_Top Access,At_Offset_2
0bab 00c9 | | Action Pop_Auxiliary_Loop
0bac 00d9 | | Load_Top At_Offset_1
0bad e221 | ! | Load 0x1,0x21
0bae 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0baf 7002 |p | Jump_Nonzero 0xbb2
0bb0 00da | | Load_Top At_Offset_2
0bb1 6fd6 |o | Jump_Zero 0xb88
0bb2 00ce | | Action Pop_Auxiliary
0bb3 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0bb4 0000 0000 | | .BLANK 0000[0x4]
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bbe | | .CONST 0x0bbe ; Address of begin
0bb9 0004 | | .CONST 0x0004 ; Address of exception handler
0bba 0003 | | .CONST 0x0003 ; Number of locals
0bbb INIT_0bb8:
0bbb 00e1 | | Load_Encached Boolean_Cache
0bbc e220 | | Load 0x1,0x20
0bbd 0007 | | Action Break_Optional
0bbe BODY_0bb8:
0bbe e5fe | | Load 0x2,-0x2
0bbf 00d8 | | Load_Top At_Offset_0
0bc0 0227 | ' | Execute Access,All_Reference
0bc1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bc2 e5fd | | Load 0x2,-0x3
0bc3 8262 | b | Call 0x1,0x62
0bc4 6801 |h | Jump_Zero 0xbc6
0bc5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bc6 00e1 | | Load_Encached Boolean_Cache
0bc7 e220 | | Load 0x1,0x20
0bc8 e5fe | | Load 0x2,-0x2
0bc9 e5fd | | Load 0x2,-0x3
0bca 8264 | d | Call 0x1,0x64
0bcb 003a | : | Store_Top Access,At_Offset_2
0bcc 005a | Z | Store_Top Discrete,At_Offset_2
0bcd 00d9 | | Load_Top At_Offset_1
0bce 6804 |h | Jump_Zero 0xbd3
0bcf 00d8 | | Load_Top At_Offset_0
0bd0 e5fe | | Load 0x2,-0x2
0bd1 8258 | X | Call 0x1,0x58
0bd2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bd3 e5fc | | Load 0x2,-0x4
0bd4 e5fd | | Load 0x2,-0x3
0bd5 e5fe | | Load 0x2,-0x2
0bd6 e5ff | | Load 0x2,-0x1
0bd7 8256 | V | Call 0x1,0x56
0bd8 c5fd | | Store 0x2,-0x3
0bd9 c5fc | | Store 0x2,-0x4
0bda 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bdb 0000 0000 | | .BLANK 0000[0x5]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; --------------------------------------------------------------------------------------
0be0 0be8 | | .CONST 0x0be8 ; Address of begin
0be1 0004 | | .CONST 0x0004 ; Address of exception handler
0be2 0004 | | .CONST 0x0004 ; Number of locals
0be3 INIT_0be0:
0be3 e221 | ! | Load 0x1,0x21
0be4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0be5 00e1 | | Load_Encached Boolean_Cache
0be6 e5fe | | Load 0x2,-0x2
0be7 0007 | | Action Break_Optional
0be8 BODY_0be0:
0be8 00e1 | | Load_Encached Boolean_Cache
0be9 00db | | Load_Top At_Offset_3
0bea e5ff | | Load 0x2,-0x1
0beb e022 | " | Load 0x0,0x22
0bec 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0bed e5fd | | Load 0x2,-0x3
0bee 0227 | ' | Execute Access,All_Reference
0bef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bf0 e222 | " | Load 0x1,0x22
0bf1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0bf2 c402 | | Store 0x2,0x2
0bf3 005a | Z | Store_Top Discrete,At_Offset_2
0bf4 00d9 | | Load_Top At_Offset_1
0bf5 700d |p | Jump_Nonzero 0xc03
0bf6 e221 | ! | Load 0x1,0x21
0bf7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0bf8 e221 | ! | Load 0x1,0x21
0bf9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0bfa 003b | ; | Store_Top Access,At_Offset_3
0bfb e5fd | | Load 0x2,-0x3
0bfc 00db | | Load_Top At_Offset_3
0bfd 00da | | Load_Top At_Offset_2
0bfe e5ff | | Load 0x2,-0x1
0bff 8256 | V | Call 0x1,0x56
0c00 c402 | | Store 0x2,0x2
0c01 c5fd | | Store 0x2,-0x3
0c02 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c03 00da | | Load_Top At_Offset_2
0c04 e221 | ! | Load 0x1,0x21
0c05 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0c06 6808 |h | Jump_Zero 0xc0f
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 8256 | V | Call 0x1,0x56
0c0c c402 | | Store 0x2,0x2
0c0d c5fd | | Store 0x2,-0x3
0c0e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c0f e5fd | | Load 0x2,-0x3
0c10 00db | | Load_Top At_Offset_3
0c11 00da | | Load_Top At_Offset_2
0c12 e5ff | | Load 0x2,-0x1
0c13 8266 | f | Call 0x1,0x66
0c14 c402 | | Store 0x2,0x2
0c15 c5fd | | Store 0x2,-0x3
0c16 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c17 0000 | | .XXX[0x1]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c1f | | .CONST 0x0c1f ; Address of begin
0c19 0004 | | .CONST 0x0004 ; Address of exception handler
0c1a 0003 | | .CONST 0x0003 ; Number of locals
0c1b INIT_0c18:
0c1b e221 | ! | Load 0x1,0x21
0c1c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c1d e220 | | Load 0x1,0x20
0c1e 0007 | | Action Break_Optional
0c1f BODY_0c18:
0c1f e220 | | Load 0x1,0x20
0c20 e221 | ! | Load 0x1,0x21
0c21 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c22 e5fa | | Load 0x2,-0x6
0c23 e5fb | | Load 0x2,-0x5
0c24 e5fc | | Load 0x2,-0x4
0c25 e5fd | | Load 0x2,-0x3
0c26 e5fe | | Load 0x2,-0x2
0c27 e5ff | | Load 0x2,-0x1
0c28 e5f9 | | Load 0x2,-0x7
0c29 8265 | e | Call 0x1,0x65
0c2a 003b | ; | Store_Top Access,At_Offset_3
0c2b 0039 | 9 | Store_Top Access,At_Offset_1
0c2c 00d8 | | Load_Top At_Offset_0
0c2d 683b |h; | Jump_Zero 0xc69
0c2e 00d8 | | Load_Top At_Offset_0
0c2f 0227 | ' | Execute Access,All_Reference
0c30 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c31 0f02 | | Execute_Immediate Equal,0x2
0c32 00d9 | | Load_Top At_Offset_1
0c33 00db | | Load_Top At_Offset_3
0c34 8263 | c | Call 0x1,0x63
0c35 0f00 | | Execute_Immediate Equal,0x0
0c36 0278 | x | Execute Discrete,Or
0c37 6813 |h | Jump_Zero 0xc4b
0c38 e004 | | Load 0x0,0x4
0c39 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0c3a 00d9 | | Load_Top At_Offset_1
0c3b 0227 | ' | Execute Access,All_Reference
0c3c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c3d e004 | | Load 0x0,0x4
0c3e 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0c3f 00d9 | | Load_Top At_Offset_1
0c40 0227 | ' | Execute Access,All_Reference
0c41 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0c42 4800 |H | Short_Literal 0x0
0c43 00d9 | | Load_Top At_Offset_1
0c44 0227 | ' | Execute Access,All_Reference
0c45 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c46 4800 |H | Short_Literal 0x0
0c47 00d9 | | Load_Top At_Offset_1
0c48 0227 | ' | Execute Access,All_Reference
0c49 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c4a 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0c4b 00d9 | | Load_Top At_Offset_1
0c4c 00d9 | | Load_Top At_Offset_1
0c4d e221 | ! | Load 0x1,0x21
0c4e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c4f 003a | : | Store_Top Access,At_Offset_2
0c50 e5f9 | | Load 0x2,-0x7
0c51 0229 | ) | Execute Access,All_Read
0c52 00d8 | | Load_Top At_Offset_0
0c53 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c54 4800 |H | Short_Literal 0x0
0c55 e402 | | Load 0x2,0x2
0c56 e5fe | | Load 0x2,-0x2
0c57 8234 | 4 | Call 0x1,0x34
0c58 e222 | " | Load 0x1,0x22
0c59 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0c5a 00d9 | | Load_Top At_Offset_1
0c5b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c5c 00d1 | | Pop_Control Pop_Count_1
0c5d e5f9 | | Load 0x2,-0x7
0c5e 0229 | ) | Execute Access,All_Read
0c5f 00d8 | | Load_Top At_Offset_0
0c60 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0c61 00da | | Load_Top At_Offset_2
0c62 0227 | ' | Execute Access,All_Reference
0c63 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0c64 e224 | $ | Load 0x1,0x24
0c65 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0c66 00d9 | | Load_Top At_Offset_1
0c67 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c68 00d1 | | Pop_Control Pop_Count_1
0c69 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0c6a 0000 0000 | | .BLANK 0000[0x6]
0c70 ; --------------------------------------------------------------------------------------
0c70 ; SUBPROGRAM
0c70 ; --------------------------------------------------------------------------------------
0c70 0c77 | w | .CONST 0x0c77 ; Address of begin
0c71 0004 | | .CONST 0x0004 ; Address of exception handler
0c72 0003 | | .CONST 0x0003 ; Number of locals
0c73 INIT_0c70:
0c73 e221 | ! | Load 0x1,0x21
0c74 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c75 e220 | | Load 0x1,0x20
0c76 0007 | | Action Break_Optional
0c77 BODY_0c70:
0c77 e21d | | Load 0x1,0x1d
0c78 0322 | " | Declare_Variable Record
0c79 e5ff | | Load 0x2,-0x1
0c7a 00d9 | | Load_Top At_Offset_1
0c7b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0c7c e5fe | | Load 0x2,-0x2
0c7d 00d9 | | Load_Top At_Offset_1
0c7e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c7f e5fd | | Load 0x2,-0x3
0c80 00d9 | | Load_Top At_Offset_1
0c81 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c82 e5f8 | | Load 0x2,-0x8
0c83 00d9 | | Load_Top At_Offset_1
0c84 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c85 e5f7 | | Load 0x2,-0x9
0c86 00d9 | | Load_Top At_Offset_1
0c87 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c88 e5f6 | | Load 0x2,-0xa
0c89 e21d | | Load 0x1,0x1d
0c8a 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
0c8b 0119 | | Execute Any,Check_In_Formal_Type
0c8c 00d9 | | Load_Top At_Offset_1
0c8d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c8e e5f6 | | Load 0x2,-0xa
0c8f 8257 | W | Call 0x1,0x57
0c90 e21d | | Load 0x1,0x1d
0c91 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
0c92 0119 | | Execute Any,Check_In_Formal_Type
0c93 00d9 | | Load_Top At_Offset_1
0c94 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0c95 e5fc | | Load 0x2,-0x4
0c96 00d9 | | Load_Top At_Offset_1
0c97 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0c98 e5f5 | | Load 0x2,-0xb
0c99 0227 | ' | Execute Access,All_Reference
0c9a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c9b 00d9 | | Load_Top At_Offset_1
0c9c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0c9d 4800 |H | Short_Literal 0x0
0c9e 00d9 | | Load_Top At_Offset_1
0c9f 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0ca0 e5fa | | Load 0x2,-0x6
0ca1 00d9 | | Load_Top At_Offset_1
0ca2 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0ca3 e5f9 | | Load 0x2,-0x7
0ca4 00d9 | | Load_Top At_Offset_1
0ca5 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0ca6 e220 | | Load 0x1,0x20
0ca7 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0ca8 0039 | 9 | Store_Top Access,At_Offset_1
0ca9 e5f5 | | Load 0x2,-0xb
0caa 00d9 | | Load_Top At_Offset_1
0cab e5fb | | Load 0x2,-0x5
0cac 00eb | | Load_Encached Diana_Cache
0cad 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0cae 8267 | g | Call 0x1,0x67
0caf c5f5 | | Store 0x2,-0xb
0cb0 450b |E | Exit_Suprogram New_Top_Offset 0xb
0cb1 0000 0000 | | .BLANK 0000[0x7]
0cb8 ; --------------------------------------------------------------------------------------
0cb8 ; SUBPROGRAM
0cb8 ; --------------------------------------------------------------------------------------
0cb8 0cbc | | .CONST 0x0cbc ; Address of begin
0cb9 0004 | | .CONST 0x0004 ; Address of exception handler
0cba 0002 | | .CONST 0x0002 ; Number of locals
0cbb INIT_0cb8:
0cbb 00ec | | Load_Encached Diana_Tree_Cache
0cbc BODY_0cb8:
0cbc 00db | | Load_Top At_Offset_3
0cbd 00eb | | Load_Encached Diana_Cache
0cbe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cbf 0b2c | , | Execute_Immediate Case_Compare,0x2c
0cc0 7006 |p | Jump_Nonzero 0xcc7
0cc1 0b21 | ! | Execute_Immediate Case_Compare,0x21
0cc2 7004 |p | Jump_Nonzero 0xcc7
0cc3 0f22 | " | Execute_Immediate Equal,0x22
0cc4 7005 |p | Jump_Nonzero 0xcca
0cc5 4800 |H | Short_Literal 0x0
0cc6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cc7 00d1 | | Pop_Control Pop_Count_1
0cc8 4801 |H | Short_Literal 0x1
0cc9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cca 00db | | Load_Top At_Offset_3
0ccb 4904 |I | Short_Literal 0x104
0ccc 00eb | | Load_Encached Diana_Cache
0ccd 0096 | | Execute Package,Entry
0cce 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0ccf 00d8 | | Load_Top At_Offset_0
0cd0 00eb | | Load_Encached Diana_Cache
0cd1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cd2 487a |Hz | Short_Literal 0x7a
0cd3 487b |H{ | Short_Literal 0x7b
0cd4 0262 | b | Execute Discrete,In_Range
0cd5 7002 |p | Jump_Nonzero 0xcd8
0cd6 4800 |H | Short_Literal 0x0
0cd7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cd8 4801 |H | Short_Literal 0x1
0cd9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cda 0000 0000 | | .BLANK 0000[0x6]
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0ce5 | | .CONST 0x0ce5 ; Address of begin
0ce1 0cfb | | .CONST 0x0cfb ; Address of exception handler
0ce2 0002 | | .CONST 0x0002 ; Number of locals
0ce3 INIT_0ce0:
0ce3 e049 | I | Load 0x0,0x49
0ce4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0ce5 BODY_0ce0:
0ce5 e5fe | | Load 0x2,-0x2
0ce6 e004 | | Load 0x0,0x4
0ce7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0ce8 e04a | J | Load 0x0,0x4a
0ce9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0cea e04b | K | Load 0x0,0x4b
0ceb 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0cec 00d9 | | Load_Top At_Offset_1
0ced 00d0 | | Action Swap_Control
0cee 0260 | ` | Execute Discrete,In_Type
0cef 7001 |p | Jump_Nonzero 0xcf1
0cf0 0801 | | Execute_Immediate Raise,0x1
0cf1 e04c | L | Load 0x0,0x4c
0cf2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0cf3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0cf4 00d8 | | Load_Top At_Offset_0
0cf5 e5ff | | Load 0x2,-0x1
0cf6 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0cf7 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0cf8 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0cf9 800e | | Call 0x0,0xe
0cfa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0cfb TRAP_0ce0:
0cfb 0007 | | Action Break_Optional
0cfc 480a |H | Short_Literal 0xa
0cfd 0092 14d9 | | Action Push_String_Extended,0x14d9 ; "Init_Subsystem_Lookthrough: "
0cff e011 | | Load 0x0,0x11
0d00 180d | | Execute Package,Field_Execute,Field_Number 0xd
0d01 01cc | | Execute Vector,Catenate
0d02 01cb | | Execute Vector,Append
0d03 821a | | Call 0x1,0x1a
0d04 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0d05 0000 0000 | | .XXX[0x3]
0d07 0000 | |
0d08 ; --------------------------------------------------------------------------------------
0d08 ; SUBPROGRAM
0d08 ; --------------------------------------------------------------------------------------
0d08 0d20 | | .CONST 0x0d20 ; Address of begin
0d09 0db5 | | .CONST 0x0db5 ; Address of exception handler
0d0a 0009 | | .CONST 0x0009 ; Number of locals
0d0b INIT_0d08:
0d0b 00eb | | Load_Encached Diana_Cache
0d0c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d0d 00eb | | Load_Encached Diana_Cache
0d0e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d0f e04d | M | Load 0x0,0x4d
0d10 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d11 02c7 | | Declare_Variable Any
0d12 00d8 | | Load_Top At_Offset_0
0d13 1c00 | | Execute_Immediate Run_Utility,0x0
0d14 00e3 | | Load_Encached Natural_Cache
0d15 e04d | M | Load 0x0,0x4d
0d16 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d17 823b | ; | Call 0x1,0x3b
0d18 e5ff | | Load 0x2,-0x1
0d19 e003 | | Load 0x0,0x3
0d1a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d1b 00e1 | | Load_Encached Boolean_Cache
0d1c 03f1 | | Declare_Variable Discrete,With_Value
0d1d e5ff | | Load 0x2,-0x1
0d1e e021 | ! | Load 0x0,0x21
0d1f 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0d20 BODY_0d08:
0d20 e5fa | | Load 0x2,-0x6
0d21 6805 |h | Jump_Zero 0xd27
0d22 e5fa | | Load 0x2,-0x6
0d23 0227 | ' | Execute Access,All_Reference
0d24 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d25 0f01 | | Execute_Immediate Equal,0x1
0d26 681f |h | Jump_Zero 0xd46
0d27 e5fb | | Load 0x2,-0x5
0d28 e004 | | Load 0x0,0x4
0d29 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d2a 012f | / | Execute Any,Equal
0d2b 701a |p | Jump_Nonzero 0xd46
0d2c e5fb | | Load 0x2,-0x5
0d2d e5ff | | Load 0x2,-0x1
0d2e 826b | k | Call 0x1,0x6b
0d2f 00da | | Load_Top At_Offset_2
0d30 00eb | | Load_Encached Diana_Cache
0d31 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d32 7013 |p | Jump_Nonzero 0xd46
0d33 e5fa | | Load 0x2,-0x6
0d34 e004 | | Load 0x0,0x4
0d35 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d36 4800 |H | Short_Literal 0x0
0d37 4800 |H | Short_Literal 0x0
0d38 4800 |H | Short_Literal 0x0
0d39 4800 |H | Short_Literal 0x0
0d3a e407 | | Load 0x2,0x7
0d3b 00eb | | Load_Encached Diana_Cache
0d3c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d3d 00eb | | Load_Encached Diana_Cache
0d3e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d3f 4829 |H) | Short_Literal 0x29
0d40 e407 | | Load 0x2,0x7
0d41 e021 | ! | Load 0x0,0x21
0d42 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0d43 4800 |H | Short_Literal 0x0
0d44 8269 | i | Call 0x1,0x69
0d45 c5fa | | Store 0x2,-0x6
0d46 e5ff | | Load 0x2,-0x1
0d47 e013 | | Load 0x0,0x13
0d48 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d49 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0d4a 700e |p | Jump_Nonzero 0xd59
0d4b 0092 14da | | Action Push_String_Extended,0x14da ; "Warning: Program includes archived main unit "
0d4d e5fe | | Load 0x2,-0x2
0d4e 8234 | 4 | Call 0x1,0x34
0d4f 01cc | | Execute Vector,Catenate
0d50 0092 14db | | Action Push_String_Extended,0x14db ; ". "
0d52 01cc | | Execute Vector,Catenate
0d53 8228 | ( | Call 0x1,0x28
0d54 0092 14dc | | Action Push_String_Extended,0x14dc ; "Debugging will be limited."
0d56 8228 | ( | Call 0x1,0x28
0d57 8229 | ) | Call 0x1,0x29
0d58 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d59 e5ff | | Load 0x2,-0x1
0d5a e013 | | Load 0x0,0x13
0d5b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d5c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d5d c404 | | Store 0x2,0x4
0d5e e404 | | Load 0x2,0x4
0d5f e04d | M | Load 0x0,0x4d
0d60 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d61 a406 | | Store_Unchecked 0x2,0x6
0d62 4800 |H | Short_Literal 0x0
0d63 0092 14dd | | Action Push_String_Extended,0x14dd ; "Register_Unit: Empty units_in_program list"
0d65 e406 | | Load 0x2,0x6
0d66 0c01 | | Execute_Immediate Greater_Equal,0x1
0d67 821c | | Call 0x1,0x1c
0d68 4800 |H | Short_Literal 0x0
0d69 0092 14de | | Action Push_String_Extended,0x14de ; "Register_Unit: Main_Unit not a procedure or function"
0d6b e5ff | | Load 0x2,-0x1
0d6c 826a | j | Call 0x1,0x6a
0d6d 821c | | Call 0x1,0x1c
0d6e e5fa | | Load 0x2,-0x6
0d6f e004 | | Load 0x0,0x4
0d70 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0d71 4800 |H | Short_Literal 0x0
0d72 4800 |H | Short_Literal 0x0
0d73 4800 |H | Short_Literal 0x0
0d74 4800 |H | Short_Literal 0x0
0d75 e5ff | | Load 0x2,-0x1
0d76 00eb | | Load_Encached Diana_Cache
0d77 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d78 e409 | | Load 0x2,0x9
0d79 e5ff | | Load 0x2,-0x1
0d7a 00eb | | Load_Encached Diana_Cache
0d7b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d7c e409 | | Load 0x2,0x9
0d7d 4800 |H | Short_Literal 0x0
0d7e 8269 | i | Call 0x1,0x69
0d7f c5fa | | Store 0x2,-0x6
0d80 00cf | | Action Mark_Auxiliary
0d81 e406 | | Load 0x2,0x6
0d82 4801 |H | Short_Literal 0x1
0d83 0263 | c | Execute Discrete,Above_Bound
0d84 700c |p | Jump_Nonzero 0xd91
0d85 e5fa | | Load 0x2,-0x6
0d86 e408 | | Load 0x2,0x8
0d87 e5fb | | Load 0x2,-0x5
0d88 e5fc | | Load 0x2,-0x4
0d89 e5fd | | Load 0x2,-0x3
0d8a e40c | | Load 0x2,0xc
0d8b e404 | | Load 0x2,0x4
0d8c e409 | | Load 0x2,0x9
0d8d 826e | n | Call 0x1,0x6e
0d8e c5fa | | Store 0x2,-0x6
0d8f 00c8 | | Action Pop_Auxiliary_Range
0d90 3ff4 |? | Loop_Increasing 0xd85
0d91 00ce | | Action Pop_Auxiliary
0d92 00d9 | | Load_Top At_Offset_1
0d93 6804 |h | Jump_Zero 0xd98
0d94 00eb | | Load_Encached Diana_Cache
0d95 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0d96 a403 | | Store_Unchecked 0x2,0x3
0d97 7803 |x | Jump 0xd9b
0d98 e5ff | | Load 0x2,-0x1
0d99 823f | ? | Call 0x1,0x3f
0d9a a403 | | Store_Unchecked 0x2,0x3
0d9b e403 | | Load 0x2,0x3
0d9c 00eb | | Load_Encached Diana_Cache
0d9d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0d9e 6802 |h | Jump_Zero 0xda1
0d9f e5ff | | Load 0x2,-0x1
0da0 a403 | | Store_Unchecked 0x2,0x3
0da1 e5fa | | Load 0x2,-0x6
0da2 e5fb | | Load 0x2,-0x5
0da3 4800 |H | Short_Literal 0x0
0da4 e5fc | | Load 0x2,-0x4
0da5 4800 |H | Short_Literal 0x0
0da6 4800 |H | Short_Literal 0x0
0da7 e403 | | Load 0x2,0x3
0da8 00eb | | Load_Encached Diana_Cache
0da9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0daa e409 | | Load 0x2,0x9
0dab e403 | | Load 0x2,0x3
0dac 00eb | | Load_Encached Diana_Cache
0dad 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0dae e403 | | Load 0x2,0x3
0daf e021 | ! | Load 0x0,0x21
0db0 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0db1 4802 |H | Short_Literal 0x2
0db2 8269 | i | Call 0x1,0x69
0db3 c5fa | | Store 0x2,-0x6
0db4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0db5 TRAP_0d08:
0db5 0007 | | Action Break_Optional
0db6 480a |H | Short_Literal 0xa
0db7 0092 14df | | Action Push_String_Extended,0x14df ; "Register_Unit: "
0db9 e011 | | Load 0x0,0x11
0dba 180d | | Execute Package,Field_Execute,Field_Number 0xd
0dbb 01cc | | Execute Vector,Catenate
0dbc 01cb | | Execute Vector,Append
0dbd 821a | | Call 0x1,0x1a
0dbe 00d8 | | Load_Top At_Offset_0
0dbf 0101 | | Execute Exception,Reraise
0dc0 ; --------------------------------------------------------------------------------------
0dc0 ; SUBPROGRAM
0dc0 ; --------------------------------------------------------------------------------------
0dc0 0dc4 | | .CONST 0x0dc4 ; Address of begin
0dc1 0e11 | | .CONST 0x0e11 ; Address of exception handler
0dc2 0002 | | .CONST 0x0002 ; Number of locals
0dc3 INIT_0dc0:
0dc3 00e3 | | Load_Encached Natural_Cache
0dc4 BODY_0dc0:
0dc4 e5fe | | Load 0x2,-0x2
0dc5 00d8 | | Load_Top At_Offset_0
0dc6 4821 |H! | Short_Literal 0x21
0dc7 482c |H, | Short_Literal 0x2c
0dc8 0262 | b | Execute Discrete,In_Range
0dc9 682f |h/ | Jump_Zero 0xdf9
0dca 00d8 | | Load_Top At_Offset_0
0dcb 0c23 | # | Execute_Immediate Greater_Equal,0x23
0dcc 681c |h | Jump_Zero 0xde9
0dcd 0b29 | ) | Execute_Immediate Case_Compare,0x29
0dce 7003 |p | Jump_Nonzero 0xdd2
0dcf 0f2c | , | Execute_Immediate Equal,0x2c
0dd0 7019 |p | Jump_Nonzero 0xdea
0dd1 7828 |x( | Jump 0xdfa
0dd2 00d1 | | Pop_Control Pop_Count_1
0dd3 e5f6 | | Load 0x2,-0xa
0dd4 6806 |h | Jump_Zero 0xddb
0dd5 4800 |H | Short_Literal 0x0
0dd6 0092 14e0 | | Action Push_String_Extended,0x14e0 ; "Register_Used_Unit: Unit_Offset is 0"
0dd8 e5fc | | Load 0x2,-0x4
0dd9 0e00 | | Execute_Immediate Not_Equal,0x0
0dda 821c | | Call 0x1,0x1c
0ddb e5f3 | | Load 0x2,-0xd
0ddc e5f4 | | Load 0x2,-0xc
0ddd e5fc | | Load 0x2,-0x4
0dde e5f5 | | Load 0x2,-0xb
0ddf e5f9 | | Load 0x2,-0x7
0de0 e5fa | | Load 0x2,-0x6
0de1 e5ff | | Load 0x2,-0x1
0de2 e5f7 | | Load 0x2,-0x9
0de3 e5fe | | Load 0x2,-0x2
0de4 e5fd | | Load 0x2,-0x3
0de5 4800 |H | Short_Literal 0x0
0de6 8269 | i | Call 0x1,0x69
0de7 c5f3 | | Store 0x2,-0xd
0de8 781c |x | Jump 0xe05
0de9 00d1 | | Pop_Control Pop_Count_1
0dea e5f3 | | Load 0x2,-0xd
0deb e004 | | Load 0x0,0x4
0dec 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0ded 4800 |H | Short_Literal 0x0
0dee 4800 |H | Short_Literal 0x0
0def e5f9 | | Load 0x2,-0x7
0df0 e5fa | | Load 0x2,-0x6
0df1 e5ff | | Load 0x2,-0x1
0df2 e5f7 | | Load 0x2,-0x9
0df3 e5fe | | Load 0x2,-0x2
0df4 e5fd | | Load 0x2,-0x3
0df5 4800 |H | Short_Literal 0x0
0df6 8269 | i | Call 0x1,0x69
0df7 c5f3 | | Store 0x2,-0xd
0df8 780c |x | Jump 0xe05
0df9 00d1 | | Pop_Control Pop_Count_1
0dfa 480a |H | Short_Literal 0xa
0dfb 0092 14e1 | | Action Push_String_Extended,0x14e1 ; "Register_Used_Unit: unknown node: "
0dfd e5fe | | Load 0x2,-0x2
0dfe 00eb | | Load_Encached Diana_Cache
0dff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e00 011c | | Execute Any,Convert_Unchecked
0e01 1c01 | | Execute_Immediate Run_Utility,0x1
0e02 01cc | | Execute Vector,Catenate
0e03 01cb | | Execute Vector,Append
0e04 821a | | Call 0x1,0x1a
0e05 e5fb | | Load 0x2,-0x5
0e06 6809 |h | Jump_Zero 0xe10
0e07 e5f3 | | Load 0x2,-0xd
0e08 e004 | | Load 0x0,0x4
0e09 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0e0a 4800 |H | Short_Literal 0x0
0e0b 4800 |H | Short_Literal 0x0
0e0c e5ff | | Load 0x2,-0x1
0e0d e5fd | | Load 0x2,-0x3
0e0e 826c | l | Call 0x1,0x6c
0e0f c5f3 | | Store 0x2,-0xd
0e10 450d |E | Exit_Suprogram New_Top_Offset 0xd
0e11 TRAP_0dc0:
0e11 0007 | | Action Break_Optional
0e12 480a |H | Short_Literal 0xa
0e13 0092 14e2 | | Action Push_String_Extended,0x14e2 ; "Register_Used_Unit: "
0e15 e011 | | Load 0x0,0x11
0e16 180d | | Execute Package,Field_Execute,Field_Number 0xd
0e17 01cc | | Execute Vector,Catenate
0e18 01cb | | Execute Vector,Append
0e19 821a | | Call 0x1,0x1a
0e1a 450d |E | Exit_Suprogram New_Top_Offset 0xd
0e1b 0000 0000 | | .BLANK 0000[0x5]
0e20 ; --------------------------------------------------------------------------------------
0e20 ; SUBPROGRAM
0e20 ; --------------------------------------------------------------------------------------
0e20 0e38 | 8 | .CONST 0x0e38 ; Address of begin
0e21 0e88 | | .CONST 0x0e88 ; Address of exception handler
0e22 000d | | .CONST 0x000d ; Number of locals
0e23 INIT_0e20:
0e23 00ec | | Load_Encached Diana_Tree_Cache
0e24 039d | | Declare_Variable Heap_Access,Duplicate
0e25 039d | | Declare_Variable Heap_Access,Duplicate
0e26 00eb | | Load_Encached Diana_Cache
0e27 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e28 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0e29 02c7 | | Declare_Variable Any
0e2a 00d8 | | Load_Top At_Offset_0
0e2b 1c00 | | Execute_Immediate Run_Utility,0x0
0e2c 00e3 | | Load_Encached Natural_Cache
0e2d 00e1 | | Load_Encached Boolean_Cache
0e2e 03e9 | | Declare_Variable Discrete,Duplicate
0e2f 03e9 | | Declare_Variable Discrete,Duplicate
0e30 03e9 | | Declare_Variable Discrete,Duplicate
0e31 e024 | $ | Load 0x0,0x24
0e32 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0e33 02ff | | Declare_Variable Variant_Record
0e34 00d8 | | Load_Top At_Offset_0
0e35 1c00 | | Execute_Immediate Run_Utility,0x0
0e36 e04d | M | Load 0x0,0x4d
0e37 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e38 BODY_0e20:
0e38 e04d | M | Load 0x0,0x4d
0e39 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e3a 00da | | Load_Top At_Offset_2
0e3b 00e1 | | Load_Encached Boolean_Cache
0e3c 00e1 | | Load_Encached Boolean_Cache
0e3d 00e3 | | Load_Encached Natural_Cache
0e3e 00ec | | Load_Encached Diana_Tree_Cache
0e3f 00eb | | Load_Encached Diana_Cache
0e40 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e41 e406 | | Load 0x2,0x6
0e42 0120 | | Execute Any,Is_Value
0e43 6802 |h | Jump_Zero 0xe46
0e44 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0e45 7801 |x | Jump 0xe47
0e46 e406 | | Load 0x2,0x6
0e47 e5fd | | Load 0x2,-0x3
0e48 e5fe | | Load 0x2,-0x2
0e49 e04d | M | Load 0x0,0x4d
0e4a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0e4b c406 | | Store 0x2,0x6
0e4c c405 | | Store 0x2,0x5
0e4d c403 | | Store 0x2,0x3
0e4e c407 | | Store 0x2,0x7
0e4f c408 | | Store 0x2,0x8
0e50 c409 | | Store 0x2,0x9
0e51 00d1 | | Pop_Control Pop_Count_1
0e52 0059 | Y | Store_Top Discrete,At_Offset_1
0e53 e403 | | Load 0x2,0x3
0e54 a402 | | Store_Unchecked 0x2,0x2
0e55 e406 | | Load 0x2,0x6
0e56 e5f9 | | Load 0x2,-0x7
0e57 e5ff | | Load 0x2,-0x1
0e58 e402 | | Load 0x2,0x2
0e59 8242 | B | Call 0x1,0x42
0e5a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0e5b 00da | | Load_Top At_Offset_2
0e5c 6801 |h | Jump_Zero 0xe5e
0e5d 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e5e e409 | | Load 0x2,0x9
0e5f 6816 |h | Jump_Zero 0xe76
0e60 00d8 | | Load_Top At_Offset_0
0e61 0c01 | | Execute_Immediate Greater_Equal,0x1
0e62 6813 |h | Jump_Zero 0xe76
0e63 00ec | | Load_Encached Diana_Tree_Cache
0e64 4801 |H | Short_Literal 0x1
0e65 e5fd | | Load 0x2,-0x3
0e66 e5fe | | Load 0x2,-0x2
0e67 e04d | M | Load 0x0,0x4d
0e68 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0e69 c404 | | Store 0x2,0x4
0e6a e404 | | Load 0x2,0x4
0e6b 00eb | | Load_Encached Diana_Cache
0e6c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e6d 7005 |p | Jump_Nonzero 0xe73
0e6e e404 | | Load 0x2,0x4
0e6f a402 | | Store_Unchecked 0x2,0x2
0e70 4801 |H | Short_Literal 0x1
0e71 a40a | | Store_Unchecked 0x2,0xa
0e72 7805 |x | Jump 0xe78
0e73 4800 |H | Short_Literal 0x0
0e74 a40a | | Store_Unchecked 0x2,0xa
0e75 7802 |x | Jump 0xe78
0e76 4800 |H | Short_Literal 0x0
0e77 a40a | | Store_Unchecked 0x2,0xa
0e78 e5f8 | | Load 0x2,-0x8
0e79 e5fa | | Load 0x2,-0x6
0e7a e5fb | | Load 0x2,-0x5
0e7b e5fc | | Load 0x2,-0x4
0e7c e5ff | | Load 0x2,-0x1
0e7d e40c | | Load 0x2,0xc
0e7e e40a | | Load 0x2,0xa
0e7f e409 | | Load 0x2,0x9
0e80 e408 | | Load 0x2,0x8
0e81 e407 | | Load 0x2,0x7
0e82 e402 | | Load 0x2,0x2
0e83 e405 | | Load 0x2,0x5
0e84 e406 | | Load 0x2,0x6
0e85 826d | m | Call 0x1,0x6d
0e86 c5f8 | | Store 0x2,-0x8
0e87 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e88 TRAP_0e20:
0e88 0007 | | Action Break_Optional
0e89 480a |H | Short_Literal 0xa
0e8a 0092 14e2 | | Action Push_String_Extended,0x14e2 ; "Register_Used_Unit: "
0e8c e011 | | Load 0x0,0x11
0e8d 180d | | Execute Package,Field_Execute,Field_Number 0xd
0e8e 01cc | | Execute Vector,Catenate
0e8f 01cb | | Execute Vector,Append
0e90 821a | | Call 0x1,0x1a
0e91 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0e92 0000 0000 | | .BLANK 0000[0x6]
0e98 ; --------------------------------------------------------------------------------------
0e98 ; SUBPROGRAM
0e98 ; --------------------------------------------------------------------------------------
0e98 0ead | | .CONST 0x0ead ; Address of begin
0e99 0eef | | .CONST 0x0eef ; Address of exception handler
0e9a 000a | | .CONST 0x000a ; Number of locals
0e9b INIT_0e98:
0e9b 00ec | | Load_Encached Diana_Tree_Cache
0e9c 039d | | Declare_Variable Heap_Access,Duplicate
0e9d 00eb | | Load_Encached Diana_Cache
0e9e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e9f 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0ea0 02c7 | | Declare_Variable Any
0ea1 00d8 | | Load_Top At_Offset_0
0ea2 1c00 | | Execute_Immediate Run_Utility,0x0
0ea3 00e3 | | Load_Encached Natural_Cache
0ea4 00e1 | | Load_Encached Boolean_Cache
0ea5 03e9 | | Declare_Variable Discrete,Duplicate
0ea6 e024 | $ | Load 0x0,0x24
0ea7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0ea8 02ff | | Declare_Variable Variant_Record
0ea9 00d8 | | Load_Top At_Offset_0
0eaa 1c00 | | Execute_Immediate Run_Utility,0x0
0eab e04d | M | Load 0x0,0x4d
0eac 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0ead BODY_0e98:
0ead e04d | M | Load 0x0,0x4d
0eae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0eaf 00da | | Load_Top At_Offset_2
0eb0 00e1 | | Load_Encached Boolean_Cache
0eb1 00e1 | | Load_Encached Boolean_Cache
0eb2 00e3 | | Load_Encached Natural_Cache
0eb3 00ec | | Load_Encached Diana_Tree_Cache
0eb4 00eb | | Load_Encached Diana_Cache
0eb5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0eb6 e405 | | Load 0x2,0x5
0eb7 0120 | | Execute Any,Is_Value
0eb8 6802 |h | Jump_Zero 0xebb
0eb9 00ed | | Load_Encached Diana_Symbol_Rep_Cache
0eba 7801 |x | Jump 0xebc
0ebb e405 | | Load 0x2,0x5
0ebc e5fd | | Load 0x2,-0x3
0ebd e5fe | | Load 0x2,-0x2
0ebe e04d | M | Load 0x0,0x4d
0ebf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0ec0 c405 | | Store 0x2,0x5
0ec1 c404 | | Store 0x2,0x4
0ec2 c402 | | Store 0x2,0x2
0ec3 c406 | | Store 0x2,0x6
0ec4 c407 | | Store 0x2,0x7
0ec5 c408 | | Store 0x2,0x8
0ec6 00d1 | | Pop_Control Pop_Count_1
0ec7 0059 | Y | Store_Top Discrete,At_Offset_1
0ec8 e404 | | Load 0x2,0x4
0ec9 00d8 | | Load_Top At_Offset_0
0eca 4821 |H! | Short_Literal 0x21
0ecb 482c |H, | Short_Literal 0x2c
0ecc 0262 | b | Execute Discrete,In_Range
0ecd 6815 |h | Jump_Zero 0xee3
0ece 00d8 | | Load_Top At_Offset_0
0ecf 0c23 | # | Execute_Immediate Greater_Equal,0x23
0ed0 6805 |h | Jump_Zero 0xed6
0ed1 0b29 | ) | Execute_Immediate Case_Compare,0x29
0ed2 7005 |p | Jump_Nonzero 0xed8
0ed3 0f2c | , | Execute_Immediate Equal,0x2c
0ed4 7019 |p | Jump_Nonzero 0xeee
0ed5 780e |x | Jump 0xee4
0ed6 00d1 | | Pop_Control Pop_Count_1
0ed7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ed8 00d1 | | Pop_Control Pop_Count_1
0ed9 e5fa | | Load 0x2,-0x6
0eda e5fb | | Load 0x2,-0x5
0edb e406 | | Load 0x2,0x6
0edc e5fc | | Load 0x2,-0x4
0edd e5ff | | Load 0x2,-0x1
0ede e405 | | Load 0x2,0x5
0edf e402 | | Load 0x2,0x2
0ee0 8268 | h | Call 0x1,0x68
0ee1 c5fa | | Store 0x2,-0x6
0ee2 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ee3 00d1 | | Pop_Control Pop_Count_1
0ee4 4801 |H | Short_Literal 0x1
0ee5 0092 14e3 | | Action Push_String_Extended,0x14e3 ; "UnRegister_Unit: unknown node: "
0ee7 e404 | | Load 0x2,0x4
0ee8 00eb | | Load_Encached Diana_Cache
0ee9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0eea 011c | | Execute Any,Convert_Unchecked
0eeb 1c01 | | Execute_Immediate Run_Utility,0x1
0eec 01cc | | Execute Vector,Catenate
0eed 821b | | Call 0x1,0x1b
0eee 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0eef TRAP_0e98:
0eef 0007 | | Action Break_Optional
0ef0 4801 |H | Short_Literal 0x1
0ef1 0092 14e4 | | Action Push_String_Extended,0x14e4 ; "unRegister_Unit: "
0ef3 e011 | | Load 0x0,0x11
0ef4 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ef5 01cc | | Execute Vector,Catenate
0ef6 821b | | Call 0x1,0x1b
0ef7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0ef8 ; --------------------------------------------------------------------------------------
0ef8 ; SUBPROGRAM
0ef8 ; --------------------------------------------------------------------------------------
0ef8 0f03 | | .CONST 0x0f03 ; Address of begin
0ef9 0f3d | = | .CONST 0x0f3d ; Address of exception handler
0efa 0004 | | .CONST 0x0004 ; Number of locals
0efb INIT_0ef8:
0efb e04d | M | Load 0x0,0x4d
0efc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0efd 02c7 | | Declare_Variable Any
0efe 00d8 | | Load_Top At_Offset_0
0eff 1c00 | | Execute_Immediate Run_Utility,0x0
0f00 00ec | | Load_Encached Diana_Tree_Cache
0f01 e04d | M | Load 0x0,0x4d
0f02 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f03 BODY_0ef8:
0f03 e5ff | | Load 0x2,-0x1
0f04 e013 | | Load 0x0,0x13
0f05 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0f06 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0f07 c402 | | Store 0x2,0x2
0f08 00da | | Load_Top At_Offset_2
0f09 e04d | M | Load 0x0,0x4d
0f0a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f0b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0f0c 4801 |H | Short_Literal 0x1
0f0d 0092 14e5 | | Action Push_String_Extended,0x14e5 ; "UnRegister_Unit: Empty Unit_List list"
0f0f 00da | | Load_Top At_Offset_2
0f10 0c01 | | Execute_Immediate Greater_Equal,0x1
0f11 821c | | Call 0x1,0x1c
0f12 00cf | | Action Mark_Auxiliary
0f13 00d9 | | Load_Top At_Offset_1
0f14 4801 |H | Short_Literal 0x1
0f15 0263 | c | Execute Discrete,Above_Bound
0f16 700a |p | Jump_Nonzero 0xf21
0f17 e5fc | | Load 0x2,-0x4
0f18 e5fd | | Load 0x2,-0x3
0f19 e5fe | | Load 0x2,-0x2
0f1a 00db | | Load_Top At_Offset_3
0f1b e402 | | Load 0x2,0x2
0f1c e5ff | | Load 0x2,-0x1
0f1d 826f | o | Call 0x1,0x6f
0f1e c5fc | | Store 0x2,-0x4
0f1f 00c8 | | Action Pop_Auxiliary_Range
0f20 3ff6 |? | Loop_Increasing 0xf17
0f21 00ce | | Action Pop_Auxiliary
0f22 e5ff | | Load 0x2,-0x1
0f23 e003 | | Load 0x0,0x3
0f24 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0f25 6804 |h | Jump_Zero 0xf2a
0f26 00eb | | Load_Encached Diana_Cache
0f27 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f28 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0f29 7803 |x | Jump 0xf2d
0f2a e5ff | | Load 0x2,-0x1
0f2b 823f | ? | Call 0x1,0x3f
0f2c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0f2d 00d9 | | Load_Top At_Offset_1
0f2e 00eb | | Load_Encached Diana_Cache
0f2f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f30 700b |p | Jump_Nonzero 0xf3c
0f31 e5fc | | Load 0x2,-0x4
0f32 e5fd | | Load 0x2,-0x3
0f33 4800 |H | Short_Literal 0x0
0f34 e5fe | | Load 0x2,-0x2
0f35 e5ff | | Load 0x2,-0x1
0f36 e403 | | Load 0x2,0x3
0f37 00eb | | Load_Encached Diana_Cache
0f38 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0f39 e403 | | Load 0x2,0x3
0f3a 8268 | h | Call 0x1,0x68
0f3b c5fc | | Store 0x2,-0x4
0f3c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f3d TRAP_0ef8:
0f3d 0007 | | Action Break_Optional
0f3e 4801 |H | Short_Literal 0x1
0f3f 0092 14e6 | | Action Push_String_Extended,0x14e6 ; "Unregister_Unit: "
0f41 e011 | | Load 0x0,0x11
0f42 180d | | Execute Package,Field_Execute,Field_Number 0xd
0f43 01cc | | Execute Vector,Catenate
0f44 821b | | Call 0x1,0x1b
0f45 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f46 0000 0000 | | .XXX[0x2]
0f48 ; --------------------------------------------------------------------------------------
0f48 ; SUBPROGRAM
0f48 ; --------------------------------------------------------------------------------------
0f48 0f4b | K | .CONST 0x0f4b ; Address of begin
0f49 0004 | | .CONST 0x0004 ; Address of exception handler
0f4a 0001 | | .CONST 0x0001 ; Number of locals
0f4b BODY_0f48:
0f4b INIT_0f48:
0f4b e5fd | | Load 0x2,-0x3
0f4c a5f9 | | Store_Unchecked 0x2,-0x7
0f4d 00da | | Load_Top At_Offset_2
0f4e 6809 |h | Jump_Zero 0xf58
0f4f e5fd | | Load 0x2,-0x3
0f50 e5fe | | Load 0x2,-0x2
0f51 8251 | Q | Call 0x1,0x51
0f52 6805 |h | Jump_Zero 0xf58
0f53 4800 |H | Short_Literal 0x0
0f54 a5fb | | Store_Unchecked 0x2,-0x5
0f55 4800 |H | Short_Literal 0x0
0f56 a5fa | | Store_Unchecked 0x2,-0x6
0f57 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f58 00db | | Load_Top At_Offset_3
0f59 e5fc | | Load 0x2,-0x4
0f5a 8245 | E | Call 0x1,0x45
0f5b 6809 |h | Jump_Zero 0xf65
0f5c 4801 |H | Short_Literal 0x1
0f5d a5fa | | Store_Unchecked 0x2,-0x6
0f5e 4800 |H | Short_Literal 0x0
0f5f a5fb | | Store_Unchecked 0x2,-0x5
0f60 00db | | Load_Top At_Offset_3
0f61 a5f9 | | Store_Unchecked 0x2,-0x7
0f62 4801 |H | Short_Literal 0x1
0f63 a5f8 | | Store_Unchecked 0x2,-0x8
0f64 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f65 e5fd | | Load 0x2,-0x3
0f66 e5fc | | Load 0x2,-0x4
0f67 8245 | E | Call 0x1,0x45
0f68 6809 |h | Jump_Zero 0xf72
0f69 e5fd | | Load 0x2,-0x3
0f6a a5f9 | | Store_Unchecked 0x2,-0x7
0f6b 4800 |H | Short_Literal 0x0
0f6c a5fb | | Store_Unchecked 0x2,-0x5
0f6d 4801 |H | Short_Literal 0x1
0f6e a5fa | | Store_Unchecked 0x2,-0x6
0f6f 4801 |H | Short_Literal 0x1
0f70 a5f8 | | Store_Unchecked 0x2,-0x8
0f71 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f72 4800 |H | Short_Literal 0x0
0f73 a5fa | | Store_Unchecked 0x2,-0x6
0f74 4801 |H | Short_Literal 0x1
0f75 a5fb | | Store_Unchecked 0x2,-0x5
0f76 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0f77 0000 | | .XXX[0x1]
0f78 ; --------------------------------------------------------------------------------------
0f78 ; SUBPROGRAM
0f78 ; --------------------------------------------------------------------------------------
0f78 0f93 | | .CONST 0x0f93 ; Address of begin
0f79 0004 | | .CONST 0x0004 ; Address of exception handler
0f7a 0011 | | .CONST 0x0011 ; Number of locals
0f7b INIT_0f78:
0f7b e221 | ! | Load 0x1,0x21
0f7c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0f7d 00e1 | | Load_Encached Boolean_Cache
0f7e e221 | ! | Load 0x1,0x21
0f7f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0f80 e220 | | Load 0x1,0x20
0f81 03bd | | Declare_Variable Access,Duplicate
0f82 00e1 | | Load_Encached Boolean_Cache
0f83 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f84 03e9 | | Declare_Variable Discrete,Duplicate
0f85 00e1 | | Load_Encached Boolean_Cache
0f86 00eb | | Load_Encached Diana_Cache
0f87 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f88 00ec | | Load_Encached Diana_Tree_Cache
0f89 00e3 | | Load_Encached Natural_Cache
0f8a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f8b 00e1 | | Load_Encached Boolean_Cache
0f8c 00e1 | | Load_Encached Boolean_Cache
0f8d e220 | | Load 0x1,0x20
0f8e 0007 | | Action Break_Optional
0f8f 00e3 | | Load_Encached Natural_Cache
0f90 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f91 00e1 | | Load_Encached Boolean_Cache
0f92 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f93 BODY_0f78:
0f93 4800 |H | Short_Literal 0x0
0f94 a5fa | | Store_Unchecked 0x2,-0x6
0f95 e21e | | Load 0x1,0x1e
0f96 a5f9 | | Store_Unchecked 0x2,-0x7
0f97 00eb | | Load_Encached Diana_Cache
0f98 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0f99 a5f6 | | Store_Unchecked 0x2,-0xa
0f9a 4800 |H | Short_Literal 0x0
0f9b a5f8 | | Store_Unchecked 0x2,-0x8
0f9c 4800 |H | Short_Literal 0x0
0f9d a5f7 | | Store_Unchecked 0x2,-0x9
0f9e 00e1 | | Load_Encached Boolean_Cache
0f9f e402 | | Load 0x2,0x2
0fa0 e5fe | | Load 0x2,-0x2
0fa1 e022 | " | Load 0x0,0x22
0fa2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0fa3 e5fb | | Load 0x2,-0x5
0fa4 0227 | ' | Execute Access,All_Reference
0fa5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0fa6 e222 | " | Load 0x1,0x22
0fa7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0fa8 c402 | | Store 0x2,0x2
0fa9 c403 | | Store 0x2,0x3
0faa e403 | | Load 0x2,0x3
0fab 68b9 |h | Jump_Zero 0x1065
0fac e402 | | Load 0x2,0x2
0fad e221 | ! | Load 0x1,0x21
0fae 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0faf 70b5 |p | Jump_Nonzero 0x1065
0fb0 e221 | ! | Load 0x1,0x21
0fb1 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0fb2 e402 | | Load 0x2,0x2
0fb3 e221 | ! | Load 0x1,0x21
0fb4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fb5 c404 | | Store 0x2,0x4
0fb6 e220 | | Load 0x1,0x20
0fb7 a406 | | Store_Unchecked 0x2,0x6
0fb8 e5ff | | Load 0x2,-0x1
0fb9 823c | < | Call 0x1,0x3c
0fba a40b | | Store_Unchecked 0x2,0xb
0fbb 00cf | | Action Mark_Auxiliary
0fbc 7864 |xd | Jump 0x1021
0fbd 00da | | Load_Top At_Offset_2
0fbe 0a01 | | Execute_Immediate Plus,0x1
0fbf 005b | [ | Store_Top Discrete,At_Offset_3
0fc0 e404 | | Load 0x2,0x4
0fc1 e221 | ! | Load 0x1,0x21
0fc2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0fc3 a405 | | Store_Unchecked 0x2,0x5
0fc4 e405 | | Load 0x2,0x5
0fc5 0227 | ' | Execute Access,All_Reference
0fc6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0fc7 e40b | | Load 0x2,0xb
0fc8 8243 | C | Call 0x1,0x43
0fc9 6852 |hR | Jump_Zero 0x101c
0fca e407 | | Load 0x2,0x7
0fcb 6841 |hA | Jump_Zero 0x100d
0fcc 00d9 | | Load_Top At_Offset_1
0fcd e220 | | Load 0x1,0x20
0fce 00e1 | | Load_Encached Boolean_Cache
0fcf 00e1 | | Load_Encached Boolean_Cache
0fd0 e5fd | | Load 0x2,-0x3
0fd1 e406 | | Load 0x2,0x6
0fd2 e405 | | Load 0x2,0x5
0fd3 e5fc | | Load 0x2,-0x4
0fd4 8271 | q | Call 0x1,0x71
0fd5 c409 | | Store 0x2,0x9
0fd6 c40d | | Store 0x2,0xd
0fd7 c40f | | Store 0x2,0xf
0fd8 005a | Z | Store_Top Discrete,At_Offset_2
0fd9 e40d | | Load 0x2,0xd
0fda 6813 |h | Jump_Zero 0xfee
0fdb e003 | | Load 0x0,0x3
0fdc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0fdd 00ec | | Load_Encached Diana_Tree_Cache
0fde 00ec | | Load_Encached Diana_Tree_Cache
0fdf 00e3 | | Load_Encached Natural_Cache
0fe0 e40f | | Load 0x2,0xf
0fe1 8227 | ' | Call 0x1,0x27
0fe2 c5fa | | Store 0x2,-0x6
0fe3 c5f6 | | Store 0x2,-0xa
0fe4 c40a | | Store 0x2,0xa
0fe5 c5f9 | | Store 0x2,-0x7
0fe6 4800 |H | Short_Literal 0x0
0fe7 a5f8 | | Store_Unchecked 0x2,-0x8
0fe8 4801 |H | Short_Literal 0x1
0fe9 a5f7 | | Store_Unchecked 0x2,-0x9
0fea e012 | | Load 0x0,0x12
0feb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fec c5f5 | | Store 0x2,-0xb
0fed 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0fee e409 | | Load 0x2,0x9
0fef 6819 |h | Jump_Zero 0x1009
0ff0 e408 | | Load 0x2,0x8
0ff1 700c |p | Jump_Nonzero 0xffe
0ff2 e5fb | | Load 0x2,-0x5
0ff3 e402 | | Load 0x2,0x2
0ff4 e406 | | Load 0x2,0x6
0ff5 e40c | | Load 0x2,0xc
0ff6 e5fe | | Load 0x2,-0x2
0ff7 8252 | R | Call 0x1,0x52
0ff8 c40c | | Store 0x2,0xc
0ff9 c406 | | Store 0x2,0x6
0ffa c402 | | Store 0x2,0x2
0ffb c5fb | | Store 0x2,-0x5
0ffc 4801 |H | Short_Literal 0x1
0ffd a408 | | Store_Unchecked 0x2,0x8
0ffe e5fb | | Load 0x2,-0x5
0fff e402 | | Load 0x2,0x2
1000 e405 | | Load 0x2,0x5
1001 e40c | | Load 0x2,0xc
1002 e5fe | | Load 0x2,-0x2
1003 8252 | R | Call 0x1,0x52
1004 c40c | | Store 0x2,0xc
1005 c405 | | Store 0x2,0x5
1006 c402 | | Store 0x2,0x2
1007 c5fb | | Store 0x2,-0x5
1008 780f |x | Jump 0x1018
1009 00da | | Load_Top At_Offset_2
100a 0aff | | Execute_Immediate Plus,-0x1
100b 005b | [ | Store_Top Discrete,At_Offset_3
100c 780b |x | Jump 0x1018
100d e003 | | Load 0x0,0x3
100e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
100f 00ec | | Load_Encached Diana_Tree_Cache
1010 00ec | | Load_Encached Diana_Tree_Cache
1011 00e3 | | Load_Encached Natural_Cache
1012 e405 | | Load 0x2,0x5
1013 8227 | ' | Call 0x1,0x27
1014 c5fa | | Store 0x2,-0x6
1015 c5f6 | | Store 0x2,-0xa
1016 c40a | | Store 0x2,0xa
1017 c5f9 | | Store 0x2,-0x7
1018 e405 | | Load 0x2,0x5
1019 a406 | | Store_Unchecked 0x2,0x6
101a 4801 |H | Short_Literal 0x1
101b a407 | | Store_Unchecked 0x2,0x7
101c e404 | | Load 0x2,0x4
101d e221 | ! | Load 0x1,0x21
101e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
101f c404 | | Store 0x2,0x4
1020 00c9 | | Action Pop_Auxiliary_Loop
1021 e404 | | Load 0x2,0x4
1022 e221 | ! | Load 0x1,0x21
1023 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1024 6f98 |o | Jump_Zero 0xfbd
1025 00ce | | Action Pop_Auxiliary
1026 e408 | | Load 0x2,0x8
1027 a40e | | Store_Unchecked 0x2,0xe
1028 e408 | | Load 0x2,0x8
1029 6807 |h | Jump_Zero 0x1031
102a e5fb | | Load 0x2,-0x5
102b 00e1 | | Load_Encached Boolean_Cache
102c e40c | | Load 0x2,0xc
102d 8250 | P | Call 0x1,0x50
102e c40c | | Store 0x2,0xc
102f c408 | | Store 0x2,0x8
1030 c5fb | | Store 0x2,-0x5
1031 00e1 | | Load_Encached Boolean_Cache
1032 e5f5 | | Load 0x2,-0xb
1033 e405 | | Load 0x2,0x5
1034 0227 | ' | Execute Access,All_Reference
1035 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1036 00db | | Load_Top At_Offset_3
1037 e5fd | | Load 0x2,-0x3
1038 e408 | | Load 0x2,0x8
1039 e407 | | Load 0x2,0x7
103a 8248 | H | Call 0x1,0x48
103b c5f5 | | Store 0x2,-0xb
103c c5f8 | | Store 0x2,-0x8
103d e408 | | Load 0x2,0x8
103e 6806 |h | Jump_Zero 0x1045
103f e5fb | | Load 0x2,-0x5
1040 e5fe | | Load 0x2,-0x2
1041 e40c | | Load 0x2,0xc
1042 e5fd | | Load 0x2,-0x3
1043 8255 | U | Call 0x1,0x55
1044 7826 |x& | Jump 0x106b
1045 00db | | Load_Top At_Offset_3
1046 6824 |h$ | Jump_Zero 0x106b
1047 00e1 | | Load_Encached Boolean_Cache
1048 e405 | | Load 0x2,0x5
1049 e40c | | Load 0x2,0xc
104a e5fb | | Load 0x2,-0x5
104b 0227 | ' | Execute Access,All_Reference
104c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
104d e224 | $ | Load 0x1,0x24
104e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
104f c405 | | Store 0x2,0x5
1050 c403 | | Store 0x2,0x3
1051 e403 | | Load 0x2,0x3
1052 680c |h | Jump_Zero 0x105f
1053 e003 | | Load 0x0,0x3
1054 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1055 00ec | | Load_Encached Diana_Tree_Cache
1056 00ec | | Load_Encached Diana_Tree_Cache
1057 00e3 | | Load_Encached Natural_Cache
1058 e405 | | Load 0x2,0x5
1059 8227 | ' | Call 0x1,0x27
105a c5fa | | Store 0x2,-0x6
105b c5f6 | | Store 0x2,-0xa
105c c40a | | Store 0x2,0xa
105d c5f9 | | Store 0x2,-0x7
105e 780c |x | Jump 0x106b
105f 0092 14e7 | | Action Push_String_Extended,0x14e7 ; "empty overload chain"
1061 e012 | | Load 0x0,0x12
1062 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1063 c5f5 | | Store 0x2,-0xb
1064 7806 |x | Jump 0x106b
1065 e225 | % | Load 0x1,0x25
1066 e012 | | Load 0x0,0x12
1067 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1068 c5f5 | | Store 0x2,-0xb
1069 4800 |H | Short_Literal 0x0
106a a5f8 | | Store_Unchecked 0x2,-0x8
106b e5f8 | | Load 0x2,-0x8
106c 7005 |p | Jump_Nonzero 0x1072
106d 00d9 | | Load_Top At_Offset_1
106e 0c02 | | Execute_Immediate Greater_Equal,0x2
106f 6802 |h | Jump_Zero 0x1072
1070 4801 |H | Short_Literal 0x1
1071 a5f7 | | Store_Unchecked 0x2,-0x9
1072 4505 |E | Exit_Suprogram New_Top_Offset 0x5
1073 0000 0000 | | .BLANK 0000[0x5]
1078 ; --------------------------------------------------------------------------------------
1078 ; SUBPROGRAM
1078 ; --------------------------------------------------------------------------------------
1078 107b | { | .CONST 0x107b ; Address of begin
1079 0004 | | .CONST 0x0004 ; Address of exception handler
107a 0001 | | .CONST 0x0001 ; Number of locals
107b BODY_1078:
107b INIT_1078:
107b 4800 |H | Short_Literal 0x0
107c 804e | N | Call 0x0,0x4e
107d 00ca | | Action Exit_Nullary_Function
107e 0000 0000 | | .XXX[0x2]
1080 ; --------------------------------------------------------------------------------------
1080 ; SUBPROGRAM
1080 ; --------------------------------------------------------------------------------------
1080 1083 | | .CONST 0x1083 ; Address of begin
1081 0004 | | .CONST 0x0004 ; Address of exception handler
1082 0001 | | .CONST 0x0001 ; Number of locals
1083 BODY_1080:
1083 INIT_1080:
1083 00da | | Load_Top At_Offset_2
1084 0092 14e8 | | Action Push_String_Extended,0x14e8 ; " "
1086 e014 | | Load 0x0,0x14
1087 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1088 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1089 0000 0000 | | .BLANK 0000[0x7]
1090 ; --------------------------------------------------------------------------------------
1090 ; SUBPROGRAM
1090 ; --------------------------------------------------------------------------------------
1090 1093 | | .CONST 0x1093 ; Address of begin
1091 0004 | | .CONST 0x0004 ; Address of exception handler
1092 0001 | | .CONST 0x0001 ; Number of locals
1093 BODY_1090:
1093 INIT_1090:
1093 00da | | Load_Top At_Offset_2
1094 e014 | | Load 0x0,0x14
1095 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1096 8228 | ( | Call 0x1,0x28
1097 8229 | ) | Call 0x1,0x29
1098 00da | | Load_Top At_Offset_2
1099 8274 | t | Call 0x1,0x74
109a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
109b 0000 0000 | | .BLANK 0000[0x5]
10a0 ; --------------------------------------------------------------------------------------
10a0 ; SUBPROGRAM
10a0 ; --------------------------------------------------------------------------------------
10a0 10a3 | | .CONST 0x10a3 ; Address of begin
10a1 0004 | | .CONST 0x0004 ; Address of exception handler
10a2 0001 | | .CONST 0x0001 ; Number of locals
10a3 BODY_10a0:
10a3 INIT_10a0:
10a3 00db | | Load_Top At_Offset_3
10a4 e014 | | Load 0x0,0x14
10a5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
10a6 00db | | Load_Top At_Offset_3
10a7 01db | | Execute Vector,Length
10a8 0273 | s | Execute Discrete,Plus
10a9 e219 | | Load 0x1,0x19
10aa 027a | z | Execute Discrete,Less_Equal
10ab 6806 |h | Jump_Zero 0x10b2
10ac 00db | | Load_Top At_Offset_3
10ad 00db | | Load_Top At_Offset_3
10ae e014 | | Load 0x0,0x14
10af 1818 | | Execute Package,Field_Execute,Field_Number 0x18
10b0 00d1 | | Pop_Control Pop_Count_1
10b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
10b2 00db | | Load_Top At_Offset_3
10b3 8275 | u | Call 0x1,0x75
10b4 00d1 | | Pop_Control Pop_Count_1
10b5 00da | | Load_Top At_Offset_2
10b6 01db | | Execute Vector,Length
10b7 e219 | | Load 0x1,0x19
10b8 027a | z | Execute Discrete,Less_Equal
10b9 6806 |h | Jump_Zero 0x10c0
10ba 00db | | Load_Top At_Offset_3
10bb 00db | | Load_Top At_Offset_3
10bc e014 | | Load 0x0,0x14
10bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
10be 00d1 | | Pop_Control Pop_Count_1
10bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
10c0 00db | | Load_Top At_Offset_3
10c1 00db | | Load_Top At_Offset_3
10c2 01dd | | Execute Vector,First
10c3 e5ff | | Load 0x2,-0x1
10c4 01dd | | Execute Vector,First
10c5 e219 | | Load 0x1,0x19
10c6 0273 | s | Execute Discrete,Plus
10c7 0aff | | Execute_Immediate Plus,-0x1
10c8 00d8 | | Load_Top At_Offset_0
10c9 00e2 | | Load_Encached Integer_Cache
10ca 0260 | ` | Execute Discrete,In_Type
10cb 7001 |p | Jump_Nonzero 0x10cd
10cc 0801 | | Execute_Immediate Raise,0x1
10cd e5ff | | Load 0x2,-0x1
10ce 01cf | | Execute Vector,Slice_Read
10cf e014 | | Load 0x0,0x14
10d0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
10d1 00d1 | | Pop_Control Pop_Count_1
10d2 00db | | Load_Top At_Offset_3
10d3 8275 | u | Call 0x1,0x75
10d4 00d1 | | Pop_Control Pop_Count_1
10d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
10d6 0000 0000 | | .XXX[0x2]
10d8 ; --------------------------------------------------------------------------------------
10d8 ; SUBPROGRAM
10d8 ; --------------------------------------------------------------------------------------
10d8 110a | | .CONST 0x110a ; Address of begin
10d9 0004 | | .CONST 0x0004 ; Address of exception handler
10da 000f | | .CONST 0x000f ; Number of locals
10db INIT_10d8:
10db e04d | M | Load 0x0,0x4d
10dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10dd 02c7 | | Declare_Variable Any
10de e5fe | | Load 0x2,-0x2
10df e013 | | Load 0x0,0x13
10e0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
10e1 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
10e2 a402 | | Store_Unchecked 0x2,0x2
10e3 00d8 | | Load_Top At_Offset_0
10e4 e04d | M | Load 0x0,0x4d
10e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
10e6 e04d | M | Load 0x0,0x4d
10e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10e8 03f1 | | Declare_Variable Discrete,With_Value
10e9 e219 | | Load 0x1,0x19
10ea e014 | | Load 0x0,0x14
10eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10ec 1c08 | | Execute_Immediate Run_Utility,0x8
10ed 00d8 | | Load_Top At_Offset_0
10ee 1c00 | | Execute_Immediate Run_Utility,0x0
10ef 00e1 | | Load_Encached Boolean_Cache
10f0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
10f1 00ec | | Load_Encached Diana_Tree_Cache
10f2 00eb | | Load_Encached Diana_Cache
10f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10f4 00ed | | Load_Encached Diana_Symbol_Rep_Cache
10f5 02c7 | | Declare_Variable Any
10f6 00d8 | | Load_Top At_Offset_0
10f7 1c00 | | Execute_Immediate Run_Utility,0x0
10f8 00e3 | | Load_Encached Natural_Cache
10f9 00e1 | | Load_Encached Boolean_Cache
10fa 03e9 | | Declare_Variable Discrete,Duplicate
10fb e024 | $ | Load 0x0,0x24
10fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
10fd 02ff | | Declare_Variable Variant_Record
10fe 00d8 | | Load_Top At_Offset_0
10ff 1c00 | | Execute_Immediate Run_Utility,0x0
1100 e04d | M | Load 0x0,0x4d
1101 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1102 e5fe | | Load 0x2,-0x2
1103 e003 | | Load 0x0,0x3
1104 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1105 00e1 | | Load_Encached Boolean_Cache
1106 03f1 | | Declare_Variable Discrete,With_Value
1107 e5fe | | Load 0x2,-0x2
1108 e021 | ! | Load 0x0,0x21
1109 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
110a BODY_10d8:
110a e403 | | Load 0x2,0x3
110b 7001 |p | Jump_Nonzero 0x110d
110c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
110d 0092 14e9 | | Action Push_String_Extended,0x14e9 ; " Library Units used by "
110f e5ff | | Load 0x2,-0x1
1110 01cc | | Execute Vector,Catenate
1111 8228 | ( | Call 0x1,0x28
1112 8229 | ) | Call 0x1,0x29
1113 e404 | | Load 0x2,0x4
1114 8274 | t | Call 0x1,0x74
1115 00d1 | | Pop_Control Pop_Count_1
1116 00cf | | Action Mark_Auxiliary
1117 e403 | | Load 0x2,0x3
1118 4801 |H | Short_Literal 0x1
1119 0263 | c | Execute Discrete,Above_Bound
111a 7033 |p3 | Jump_Nonzero 0x114e
111b e04d | M | Load 0x0,0x4d
111c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
111d e40c | | Load 0x2,0xc
111e 00e1 | | Load_Encached Boolean_Cache
111f 00e1 | | Load_Encached Boolean_Cache
1120 00e3 | | Load_Encached Natural_Cache
1121 00ec | | Load_Encached Diana_Tree_Cache
1122 00eb | | Load_Encached Diana_Cache
1123 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1124 e408 | | Load 0x2,0x8
1125 0120 | | Execute Any,Is_Value
1126 6802 |h | Jump_Zero 0x1129
1127 00ed | | Load_Encached Diana_Symbol_Rep_Cache
1128 7801 |x | Jump 0x112a
1129 e408 | | Load 0x2,0x8
112a e412 | | Load 0x2,0x12
112b e402 | | Load 0x2,0x2
112c e04d | M | Load 0x0,0x4d
112d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
112e c408 | | Store 0x2,0x8
112f c407 | | Store 0x2,0x7
1130 c406 | | Store 0x2,0x6
1131 c409 | | Store 0x2,0x9
1132 c40a | | Store 0x2,0xa
1133 c40b | | Store 0x2,0xb
1134 00d1 | | Pop_Control Pop_Count_1
1135 c40d | | Store 0x2,0xd
1136 e408 | | Load 0x2,0x8
1137 e40e | | Load 0x2,0xe
1138 e40f | | Load 0x2,0xf
1139 e406 | | Load 0x2,0x6
113a 8242 | B | Call 0x1,0x42
113b 7010 |p | Jump_Nonzero 0x114c
113c e405 | | Load 0x2,0x5
113d 7005 |p | Jump_Nonzero 0x1143
113e e404 | | Load 0x2,0x4
113f 0092 14ea | | Action Push_String_Extended,0x14ea ; " "
1141 8276 | v | Call 0x1,0x76
1142 00d1 | | Pop_Control Pop_Count_1
1143 e404 | | Load 0x2,0x4
1144 e406 | | Load 0x2,0x6
1145 e408 | | Load 0x2,0x8
1146 e407 | | Load 0x2,0x7
1147 8231 | 1 | Call 0x1,0x31
1148 8276 | v | Call 0x1,0x76
1149 00d1 | | Pop_Control Pop_Count_1
114a 4800 |H | Short_Literal 0x0
114b a405 | | Store_Unchecked 0x2,0x5
114c 00c8 | | Action Pop_Auxiliary_Range
114d 3fcd |? | Loop_Increasing 0x111b
114e 00ce | | Action Pop_Auxiliary
114f e404 | | Load 0x2,0x4
1150 8275 | u | Call 0x1,0x75
1151 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1152 0000 0000 | | .BLANK 0000[0x6]
1158 ; --------------------------------------------------------------------------------------
1158 ; SUBPROGRAM
1158 ; --------------------------------------------------------------------------------------
1158 116c | l | .CONST 0x116c ; Address of begin
1159 0004 | | .CONST 0x0004 ; Address of exception handler
115a 0009 | | .CONST 0x0009 ; Number of locals
115b INIT_1158:
115b 00ec | | Load_Encached Diana_Tree_Cache
115c 00eb | | Load_Encached Diana_Cache
115d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
115e 00ed | | Load_Encached Diana_Symbol_Rep_Cache
115f 02c7 | | Declare_Variable Any
1160 00d8 | | Load_Top At_Offset_0
1161 1c00 | | Execute_Immediate Run_Utility,0x0
1162 00e3 | | Load_Encached Natural_Cache
1163 00e1 | | Load_Encached Boolean_Cache
1164 03e9 | | Declare_Variable Discrete,Duplicate
1165 e024 | $ | Load 0x0,0x24
1166 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1167 02ff | | Declare_Variable Variant_Record
1168 00d8 | | Load_Top At_Offset_0
1169 1c00 | | Execute_Immediate Run_Utility,0x0
116a e04d | M | Load 0x0,0x4d
116b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
116c BODY_1158:
116c e04d | M | Load 0x0,0x4d
116d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
116e 00da | | Load_Top At_Offset_2
116f 00e1 | | Load_Encached Boolean_Cache
1170 00e1 | | Load_Encached Boolean_Cache
1171 00e3 | | Load_Encached Natural_Cache
1172 00ec | | Load_Encached Diana_Tree_Cache
1173 00eb | | Load_Encached Diana_Cache
1174 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1175 e404 | | Load 0x2,0x4
1176 0120 | | Execute Any,Is_Value
1177 6802 |h | Jump_Zero 0x117a
1178 00ed | | Load_Encached Diana_Symbol_Rep_Cache
1179 7801 |x | Jump 0x117b
117a e404 | | Load 0x2,0x4
117b e5fd | | Load 0x2,-0x3
117c e5fe | | Load 0x2,-0x2
117d e04d | M | Load 0x0,0x4d
117e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
117f c404 | | Store 0x2,0x4
1180 c403 | | Store 0x2,0x3
1181 c402 | | Store 0x2,0x2
1182 c405 | | Store 0x2,0x5
1183 c406 | | Store 0x2,0x6
1184 c407 | | Store 0x2,0x7
1185 00d1 | | Pop_Control Pop_Count_1
1186 0059 | Y | Store_Top Discrete,At_Offset_1
1187 e404 | | Load 0x2,0x4
1188 e5fa | | Load 0x2,-0x6
1189 e5ff | | Load 0x2,-0x1
118a e402 | | Load 0x2,0x2
118b 8242 | B | Call 0x1,0x42
118c 6801 |h | Jump_Zero 0x118e
118d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
118e 0092 14eb | | Action Push_String_Extended,0x14eb ; " "
1190 e402 | | Load 0x2,0x2
1191 e404 | | Load 0x2,0x4
1192 e403 | | Load 0x2,0x3
1193 8231 | 1 | Call 0x1,0x31
1194 01cc | | Execute Vector,Catenate
1195 8228 | ( | Call 0x1,0x28
1196 00da | | Load_Top At_Offset_2
1197 6803 |h | Jump_Zero 0x119b
1198 0092 14ec | | Action Push_String_Extended,0x14ec ; " (archived)"
119a 8228 | ( | Call 0x1,0x28
119b e5fb | | Load 0x2,-0x5
119c 680a |h | Jump_Zero 0x11a7
119d e403 | | Load 0x2,0x3
119e 0f29 | ) | Execute_Immediate Equal,0x29
119f 6807 |h | Jump_Zero 0x11a7
11a0 0092 14ed | | Action Push_String_Extended,0x14ed ; " Elab Segment Offset: "
11a2 e405 | | Load 0x2,0x5
11a3 00e0 | | Load_Encached Standard_Cache
11a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11a5 01cc | | Execute Vector,Catenate
11a6 8228 | ( | Call 0x1,0x28
11a7 8229 | ) | Call 0x1,0x29
11a8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
11a9 0000 0000 | | .BLANK 0000[0x7]
11b0 ; --------------------------------------------------------------------------------------
11b0 ; SUBPROGRAM
11b0 ; --------------------------------------------------------------------------------------
11b0 11d2 | | .CONST 0x11d2 ; Address of begin
11b1 0004 | | .CONST 0x0004 ; Address of exception handler
11b2 0008 | | .CONST 0x0008 ; Number of locals
11b3 INIT_11b0:
11b3 00ec | | Load_Encached Diana_Tree_Cache
11b4 e04d | M | Load 0x0,0x4d
11b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11b6 02c7 | | Declare_Variable Any
11b7 00d8 | | Load_Top At_Offset_0
11b8 1c00 | | Execute_Immediate Run_Utility,0x0
11b9 e5ff | | Load 0x2,-0x1
11ba 0227 | ' | Execute Access,All_Reference
11bb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
11bc e004 | | Load 0x0,0x4
11bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11be 03f1 | | Declare_Variable Discrete,With_Value
11bf e004 | | Load 0x0,0x4
11c0 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
11c1 02c7 | | Declare_Variable Any
11c2 e5ff | | Load 0x2,-0x1
11c3 0227 | ' | Execute Access,All_Reference
11c4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
11c5 a405 | | Store_Unchecked 0x2,0x5
11c6 e04d | M | Load 0x0,0x4d
11c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11c8 8273 | s | Call 0x1,0x73
11c9 00e1 | | Load_Encached Boolean_Cache
11ca 03f1 | | Declare_Variable Discrete,With_Value
11cb e5ff | | Load 0x2,-0x1
11cc 0227 | ' | Execute Access,All_Reference
11cd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
11ce e003 | | Load 0x0,0x3
11cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11d0 00e1 | | Load_Encached Boolean_Cache
11d1 03f1 | | Declare_Variable Discrete,With_Value
11d2 BODY_11b0:
11d2 480a |H | Short_Literal 0xa
11d3 0092 14ee | | Action Push_String_Extended,0x14ee ; " Library: "
11d5 e5ff | | Load 0x2,-0x1
11d6 0227 | ' | Execute Access,All_Reference
11d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
11d8 822e | . | Call 0x1,0x2e
11d9 01cc | | Execute Vector,Catenate
11da 01cb | | Execute Vector,Append
11db 8228 | ( | Call 0x1,0x28
11dc 480a |H | Short_Literal 0xa
11dd 0092 14ef | | Action Push_String_Extended,0x14ef ; " Main Unit: "
11df e5ff | | Load 0x2,-0x1
11e0 0227 | ' | Execute Access,All_Reference
11e1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
11e2 8232 | 2 | Call 0x1,0x32
11e3 01cc | | Execute Vector,Catenate
11e4 01cb | | Execute Vector,Append
11e5 8228 | ( | Call 0x1,0x28
11e6 00d9 | | Load_Top At_Offset_1
11e7 6816 |h | Jump_Zero 0x11fe
11e8 00db | | Load_Top At_Offset_3
11e9 e404 | | Load 0x2,0x4
11ea 825a | Z | Call 0x1,0x5a
11eb 6812 |h | Jump_Zero 0x11fe
11ec 0092 14f0 | | Action Push_String_Extended,0x14f0 ; " Elab Segment:"
11ee e404 | | Load 0x2,0x4
11ef 00e0 | | Load_Encached Standard_Cache
11f0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11f1 01cc | | Execute Vector,Catenate
11f2 8228 | ( | Call 0x1,0x28
11f3 480a |H | Short_Literal 0xa
11f4 0092 14f1 | | Action Push_String_Extended,0x14f1 ; " Elab Frame Name:"
11f6 e405 | | Load 0x2,0x5
11f7 e004 | | Load 0x0,0x4
11f8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
11f9 00e0 | | Load_Encached Standard_Cache
11fa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11fb 01cc | | Execute Vector,Catenate
11fc 01cb | | Execute Vector,Append
11fd 8228 | ( | Call 0x1,0x28
11fe 0092 14f2 | | Action Push_String_Extended,0x14f2 ; " Library Units: \x0a"
1200 8228 | ( | Call 0x1,0x28
1201 e5ff | | Load 0x2,-0x1
1202 0227 | ' | Execute Access,All_Reference
1203 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1204 a402 | | Store_Unchecked 0x2,0x2
1205 e402 | | Load 0x2,0x2
1206 e013 | | Load 0x0,0x13
1207 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1208 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
1209 7008 |p | Jump_Nonzero 0x1212
120a e402 | | Load 0x2,0x2
120b e021 | ! | Load 0x0,0x21
120c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
120d 00eb | | Load_Encached Diana_Cache
120e 18ec | | Execute Package,Field_Execute,Field_Number 0xec
120f 00eb | | Load_Encached Diana_Cache
1210 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
1211 a402 | | Store_Unchecked 0x2,0x2
1212 e402 | | Load 0x2,0x2
1213 e013 | | Load 0x0,0x13
1214 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1215 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
1216 c403 | | Store 0x2,0x3
1217 e403 | | Load 0x2,0x3
1218 e04d | M | Load 0x0,0x4d
1219 1814 | | Execute Package,Field_Execute,Field_Number 0x14
121a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
121b 00cf | | Action Mark_Auxiliary
121c 00db | | Load_Top At_Offset_3
121d 4801 |H | Short_Literal 0x1
121e 0263 | c | Execute Discrete,Above_Bound
121f 700b |p | Jump_Nonzero 0x122b
1220 00db | | Load_Top At_Offset_3
1221 e407 | | Load 0x2,0x7
1222 e5ff | | Load 0x2,-0x1
1223 00db | | Load_Top At_Offset_3
1224 e403 | | Load 0x2,0x3
1225 e5ff | | Load 0x2,-0x1
1226 0227 | ' | Execute Access,All_Reference
1227 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1228 8278 | x | Call 0x1,0x78
1229 00c8 | | Action Pop_Auxiliary_Range
122a 3ff5 |? | Loop_Increasing 0x1220
122b 00ce | | Action Pop_Auxiliary
122c 8229 | ) | Call 0x1,0x29
122d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
122e 0000 0000 | | .XXX[0x2]
1230 ; --------------------------------------------------------------------------------------
1230 ; SUBPROGRAM
1230 ; --------------------------------------------------------------------------------------
1230 123a | : | .CONST 0x123a ; Address of begin
1231 0004 | | .CONST 0x0004 ; Address of exception handler
1232 0004 | | .CONST 0x0004 ; Number of locals
1233 INIT_1230:
1233 e224 | $ | Load 0x1,0x24
1234 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
1235 0322 | " | Declare_Variable Record
1236 e220 | | Load 0x1,0x20
1237 0007 | | Action Break_Optional
1238 00e1 | | Load_Encached Boolean_Cache
1239 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
123a BODY_1230:
123a 00da | | Load_Top At_Offset_2
123b e5ff | | Load 0x2,-0x1
123c 0227 | ' | Execute Access,All_Reference
123d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
123e e224 | $ | Load 0x1,0x24
123f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1240 00d1 | | Pop_Control Pop_Count_1
1241 00cf | | Action Mark_Auxiliary
1242 781e |x | Jump 0x1261
1243 00db | | Load_Top At_Offset_3
1244 e224 | $ | Load 0x1,0x24
1245 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
1246 e5ff | | Load 0x2,-0x1
1247 0227 | ' | Execute Access,All_Reference
1248 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1249 e224 | $ | Load 0x1,0x24
124a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
124b 003b | ; | Store_Top Access,At_Offset_3
124c 00da | | Load_Top At_Offset_2
124d 0227 | ' | Execute Access,All_Reference
124e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
124f 0f02 | | Execute_Immediate Equal,0x2
1250 680b |h | Jump_Zero 0x125c
1251 00d9 | | Load_Top At_Offset_1
1252 7005 |p | Jump_Nonzero 0x1258
1253 0092 14f3 | | Action Push_String_Extended,0x14f3 ; "Libraries in use by this program:\x0a"
1255 8228 | ( | Call 0x1,0x28
1256 4801 |H | Short_Literal 0x1
1257 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
1258 e5ff | | Load 0x2,-0x1
1259 00db | | Load_Top At_Offset_3
125a 8279 | y | Call 0x1,0x79
125b c5ff | | Store 0x2,-0x1
125c 00db | | Load_Top At_Offset_3
125d e224 | $ | Load 0x1,0x24
125e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
125f 00d1 | | Pop_Control Pop_Count_1
1260 00c9 | | Action Pop_Auxiliary_Loop
1261 00db | | Load_Top At_Offset_3
1262 e224 | $ | Load 0x1,0x24
1263 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1264 6fde |o | Jump_Zero 0x1243
1265 00ce | | Action Pop_Auxiliary
1266 00d8 | | Load_Top At_Offset_0
1267 7003 |p | Jump_Nonzero 0x126b
1268 0092 14f4 | | Action Push_String_Extended,0x14f4 ; "No libraries are currently registered.\x0a"
126a 8228 | ( | Call 0x1,0x28
126b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
126c 0000 0000 | | .BLANK 0000[0x4]
1270 ; --------------------------------------------------------------------------------------
1270 ; SUBPROGRAM
1270 ; --------------------------------------------------------------------------------------
1270 1273 | s | .CONST 0x1273 ; Address of begin
1271 0004 | | .CONST 0x0004 ; Address of exception handler
1272 0001 | | .CONST 0x0001 ; Number of locals
1273 BODY_1270:
1273 INIT_1270:
1273 4800 |H | Short_Literal 0x0
1274 a5fe | | Store_Unchecked 0x2,-0x2
1275 4800 |H | Short_Literal 0x0
1276 a5fc | | Store_Unchecked 0x2,-0x4
1277 00eb | | Load_Encached Diana_Cache
1278 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1279 0033 | 3 | Store_Top Heap_Access,At_Offset_3
127a e21e | | Load 0x1,0x1e
127b a5fd | | Store_Unchecked 0x2,-0x3
127c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
127d 0000 0000 | | .XXX[0x3]
127f 0000 | |
1280 ; --------------------------------------------------------------------------------------
1280 ; SUBPROGRAM
1280 ; --------------------------------------------------------------------------------------
1280 1288 | | .CONST 0x1288 ; Address of begin
1281 0004 | | .CONST 0x0004 ; Address of exception handler
1282 0002 | | .CONST 0x0002 ; Number of locals
1283 INIT_1280:
1283 00da | | Load_Top At_Offset_2
1284 e014 | | Load 0x0,0x14
1285 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
1286 00e3 | | Load_Encached Natural_Cache
1287 03f1 | | Declare_Variable Discrete,With_Value
1288 BODY_1280:
1288 00cf | | Action Mark_Auxiliary
1289 4801 |H | Short_Literal 0x1
128a 00da | | Load_Top At_Offset_2
128b 0264 | d | Execute Discrete,Below_Bound
128c 7014 |p | Jump_Nonzero 0x12a1
128d 00d8 | | Load_Top At_Offset_0
128e e5ff | | Load 0x2,-0x1
128f e014 | | Load 0x0,0x14
1290 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
1291 0f2e | . | Execute_Immediate Equal,0x2e
1292 680c |h | Jump_Zero 0x129f
1293 00db | | Load_Top At_Offset_3
1294 00d9 | | Load_Top At_Offset_1
1295 0a01 | | Execute_Immediate Plus,0x1
1296 00d8 | | Load_Top At_Offset_0
1297 00e4 | | Load_Encached Positive_Cache
1298 0260 | ` | Execute Discrete,In_Type
1299 7001 |p | Jump_Nonzero 0x129b
129a 0801 | | Execute_Immediate Raise,0x1
129b e5ff | | Load 0x2,-0x1
129c e014 | | Load 0x0,0x14
129d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
129e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
129f 00c8 | | Action Pop_Auxiliary_Range
12a0 37ec |7 | Loop_Decreasing 0x128d
12a1 00ce | | Action Pop_Auxiliary
12a2 00db | | Load_Top At_Offset_3
12a3 e014 | | Load 0x0,0x14
12a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
12a6 0000 0000 | | .XXX[0x2]
12a8 ; --------------------------------------------------------------------------------------
12a8 ; SUBPROGRAM
12a8 ; --------------------------------------------------------------------------------------
12a8 12b1 | | .CONST 0x12b1 ; Address of begin
12a9 0004 | | .CONST 0x0004 ; Address of exception handler
12aa 0004 | | .CONST 0x0004 ; Number of locals
12ab INIT_12a8:
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 e04f | O | Load 0x0,0x4f
12af 1b10 | | Execute Package,Field_Read,Field_Number 0x10
12b0 00ec | | Load_Encached Diana_Tree_Cache
12b1 BODY_12a8:
12b1 e050 | P | Load 0x0,0x50
12b2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
12b3 e024 | $ | Load 0x0,0x24
12b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12b6 e024 | $ | Load 0x0,0x24
12b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12b8 6027 |`' | Indirect_Literal Discrete,0x12e0,{0x00000000, 0x00004000}
12b9 e025 | % | Load 0x0,0x25
12ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12bb e403 | | Load 0x2,0x3
12bc e024 | $ | Load 0x0,0x24
12bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12be 1816 | | Execute Package,Field_Execute,Field_Number 0x16
12bf e5ff | | Load 0x2,-0x1
12c0 e014 | | Load 0x0,0x14
12c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12c2 e024 | $ | Load 0x0,0x24
12c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12c4 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
12c5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
12c6 005b | [ | Store_Top Discrete,At_Offset_3
12c7 00da | | Load_Top At_Offset_2
12c8 6803 |h | Jump_Zero 0x12cc
12c9 00eb | | Load_Encached Diana_Cache
12ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12
12cb 0031 | 1 | Store_Top Heap_Access,At_Offset_1
12cc 00d8 | | Load_Top At_Offset_0
12cd a5fe | | Store_Unchecked 0x2,-0x2
12ce 00d8 | | Load_Top At_Offset_0
12cf 00eb | | Load_Encached Diana_Cache
12d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12d1 6809 |h | Jump_Zero 0x12db
12d2 e5fd | | Load 0x2,-0x3
12d3 00ea | | Load_Encached Null_String_Cache
12d4 e5ff | | Load 0x2,-0x1
12d5 827d | } | Call 0x1,0x7d
12d6 e225 | % | Load 0x1,0x25
12d7 e012 | | Load 0x0,0x12
12d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
12d9 c5fd | | Store 0x2,-0x3
12da 4502 |E | Exit_Suprogram New_Top_Offset 0x2
12db e5fd | | Load 0x2,-0x3
12dc e012 | | Load 0x0,0x12
12dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
12de c5fd | | Store 0x2,-0x3
12df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
12e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
12e4 0000 0000 | | .BLANK 0000[0x4]
12e8 ; --------------------------------------------------------------------------------------
12e8 ; SUBPROGRAM
12e8 ; --------------------------------------------------------------------------------------
12e8 1319 | | .CONST 0x1319 ; Address of begin
12e9 0004 | | .CONST 0x0004 ; Address of exception handler
12ea 000e | | .CONST 0x000e ; Number of locals
12eb INIT_12e8:
12eb e5fd | | Load 0x2,-0x3
12ec e014 | | Load 0x0,0x14
12ed 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
12ee 00e3 | | Load_Encached Natural_Cache
12ef 03f1 | | Declare_Variable Discrete,With_Value
12f0 00d8 | | Load_Top At_Offset_0
12f1 0a01 | | Execute_Immediate Plus,0x1
12f2 e5ff | | Load 0x2,-0x1
12f3 e014 | | Load 0x0,0x14
12f4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
12f5 0273 | s | Execute Discrete,Plus
12f6 00e3 | | Load_Encached Natural_Cache
12f7 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
12f8 00d8 | | Load_Top At_Offset_0
12f9 e014 | | Load 0x0,0x14
12fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12fb 1c08 | | Execute_Immediate Run_Utility,0x8
12fc 00d8 | | Load_Top At_Offset_0
12fd 1c00 | | Execute_Immediate Run_Utility,0x0
12fe 00da | | Load_Top At_Offset_2
12ff e014 | | Load 0x0,0x14
1300 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1301 1c08 | | Execute_Immediate Run_Utility,0x8
1302 00d8 | | Load_Top At_Offset_0
1303 1c00 | | Execute_Immediate Run_Utility,0x0
1304 00da | | Load_Top At_Offset_2
1305 e014 | | Load 0x0,0x14
1306 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1307 1c08 | | Execute_Immediate Run_Utility,0x8
1308 00d8 | | Load_Top At_Offset_0
1309 1c00 | | Execute_Immediate Run_Utility,0x0
130a 00eb | | Load_Encached Diana_Cache
130b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
130c 00eb | | Load_Encached Diana_Cache
130d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
130e e012 | | Load 0x0,0x12
130f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1310 02c7 | | Declare_Variable Any
1311 00d8 | | Load_Top At_Offset_0
1312 1c00 | | Execute_Immediate Run_Utility,0x0
1313 e003 | | Load 0x0,0x3
1314 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1315 00e3 | | Load_Encached Natural_Cache
1316 00e1 | | Load_Encached Boolean_Cache
1317 00e1 | | Load_Encached Boolean_Cache
1318 00ec | | Load_Encached Diana_Tree_Cache
1319 BODY_12e8:
1319 00e1 | | Load_Encached Boolean_Cache
131a e003 | | Load 0x0,0x3
131b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
131c 00e3 | | Load_Encached Natural_Cache
131d 00ec | | Load_Encached Diana_Tree_Cache
131e 827c | | | Call 0x1,0x7c
131f c5f9 | | Store 0x2,-0x7
1320 c5f8 | | Store 0x2,-0x8
1321 c5f7 | | Store 0x2,-0x9
1322 c5f6 | | Store 0x2,-0xa
1323 4800 |H | Short_Literal 0x0
1324 a5fa | | Store_Unchecked 0x2,-0x6
1325 e404 | | Load 0x2,0x4
1326 e5ff | | Load 0x2,-0x1
1327 e014 | | Load 0x0,0x14
1328 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1329 e014 | | Load 0x0,0x14
132a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
132b 00d1 | | Pop_Control Pop_Count_1
132c 00cf | | Action Mark_Auxiliary
132d e406 | | Load 0x2,0x6
132e e404 | | Load 0x2,0x4
132f e016 | | Load 0x0,0x16
1330 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1331 e014 | | Load 0x0,0x14
1332 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1333 00d1 | | Pop_Control Pop_Count_1
1334 e5fc | | Load 0x2,-0x4
1335 e404 | | Load 0x2,0x4
1336 e016 | | Load 0x0,0x16
1337 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1338 e014 | | Load 0x0,0x14
1339 1810 | | Execute Package,Field_Execute,Field_Number 0x10
133a 00d1 | | Pop_Control Pop_Count_1
133b e5f5 | | Load 0x2,-0xb
133c 00ec | | Load_Encached Diana_Tree_Cache
133d e406 | | Load 0x2,0x6
133e 827e | ~ | Call 0x1,0x7e
133f c407 | | Store 0x2,0x7
1340 c5f5 | | Store 0x2,-0xb
1341 4802 |H | Short_Literal 0x2
1342 e5f5 | | Load 0x2,-0xb
1343 e012 | | Load 0x0,0x12
1344 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1345 6801 |h | Jump_Zero 0x1347
1346 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1347 e407 | | Load 0x2,0x7
1348 e003 | | Load 0x0,0x3
1349 1812 | | Execute Package,Field_Execute,Field_Number 0x12
134a a40c | | Store_Unchecked 0x2,0xc
134b 00db | | Load_Top At_Offset_3
134c 701b |p | Jump_Nonzero 0x1368
134d e5fd | | Load 0x2,-0x3
134e e014 | | Load 0x0,0x14
134f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
1350 6817 |h | Jump_Zero 0x1368
1351 e5f5 | | Load 0x2,-0xb
1352 00e3 | | Load_Encached Natural_Cache
1353 e405 | | Load 0x2,0x5
1354 e5fd | | Load 0x2,-0x3
1355 4800 |H | Short_Literal 0x0
1356 e402 | | Load 0x2,0x2
1357 e016 | | Load 0x0,0x16
1358 180d | | Execute Package,Field_Execute,Field_Number 0xd
1359 00d2 | | Pop_Control Pop_Count_2
135a c5fa | | Store 0x2,-0x6
135b c5f5 | | Store 0x2,-0xb
135c e404 | | Load 0x2,0x4
135d 482e |H. | Short_Literal 0x2e
135e e014 | | Load 0x0,0x14
135f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1360 00d1 | | Pop_Control Pop_Count_1
1361 e404 | | Load 0x2,0x4
1362 e405 | | Load 0x2,0x5
1363 e014 | | Load 0x0,0x14
1364 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1365 00d1 | | Pop_Control Pop_Count_1
1366 00c9 | | Action Pop_Auxiliary_Loop
1367 7fc5 | | Jump 0x132d
1368 00ce | | Action Pop_Auxiliary
1369 e407 | | Load 0x2,0x7
136a 822c | , | Call 0x1,0x2c
136b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
136c 00d8 | | Load_Top At_Offset_0
136d a5f9 | | Store_Unchecked 0x2,-0x7
136e e5f5 | | Load 0x2,-0xb
136f e012 | | Load 0x0,0x12
1370 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1371 c5f5 | | Store 0x2,-0xb
1372 00da | | Load_Top At_Offset_2
1373 681c |h | Jump_Zero 0x1390
1374 e409 | | Load 0x2,0x9
1375 00e1 | | Load_Encached Boolean_Cache
1376 00e1 | | Load_Encached Boolean_Cache
1377 00ec | | Load_Encached Diana_Tree_Cache
1378 e003 | | Load 0x0,0x3
1379 1b0e | | Execute Package,Field_Read,Field_Number 0xe
137a 00e3 | | Load_Encached Natural_Cache
137b e5fb | | Load 0x2,-0x5
137c e5fe | | Load 0x2,-0x2
137d e5fc | | Load 0x2,-0x4
137e e014 | | Load 0x0,0x14
137f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1380 e40e | | Load 0x2,0xe
1381 822d | - | Call 0x1,0x2d
1382 e40e | | Load 0x2,0xe
1383 480b |H | Short_Literal 0xb
1384 e27b | { | Load 0x1,0x7b
1385 170f | | Execute Task,Entry_Call,Field_Number 0xf
1386 c5fb | | Store 0x2,-0x5
1387 c5f8 | | Store 0x2,-0x8
1388 c40a | | Store 0x2,0xa
1389 c408 | | Store 0x2,0x8
138a c5f6 | | Store 0x2,-0xa
138b 005b | [ | Store_Top Discrete,At_Offset_3
138c c409 | | Store 0x2,0x9
138d 4800 |H | Short_Literal 0x0
138e a5f7 | | Store_Unchecked 0x2,-0x9
138f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1390 4800 |H | Short_Literal 0x0
1391 a5f8 | | Store_Unchecked 0x2,-0x8
1392 4802 |H | Short_Literal 0x2
1393 a5f7 | | Store_Unchecked 0x2,-0x9
1394 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1395 0000 0000 | | .XXX[0x3]
1397 0000 | |
1398 ; --------------------------------------------------------------------------------------
1398 ; SUBPROGRAM
1398 ; --------------------------------------------------------------------------------------
1398 139b | | .CONST 0x139b ; Address of begin
1399 13a3 | | .CONST 0x13a3 ; Address of exception handler
139a 0001 | | .CONST 0x0001 ; Number of locals
139b BODY_1398:
139b INIT_1398:
139b e5ff | | Load 0x2,-0x1
139c e5fd | | Load 0x2,-0x3
139d e5fc | | Load 0x2,-0x4
139e e013 | | Load 0x0,0x13
139f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
13a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
13a1 a402 | | Store_Unchecked 0x2,0x2
13a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
13a3 TRAP_1398:
13a3 e013 | | Load 0x0,0x13
13a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
13a5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
13a6 010f | | Execute Exception,Equal
13a7 7005 |p | Jump_Nonzero 0x13ad
13a8 e013 | | Load 0x0,0x13
13a9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
13aa 1b14 | | Execute Package,Field_Read,Field_Number 0x14
13ab 010f | | Execute Exception,Equal
13ac 6804 |h | Jump_Zero 0x13b1
13ad 00eb | | Load_Encached Diana_Cache
13ae 1812 | | Execute Package,Field_Execute,Field_Number 0x12
13af a402 | | Store_Unchecked 0x2,0x2
13b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
13b1 480a |H | Short_Literal 0xa
13b2 0092 14c0 | | Action Push_String_Extended,0x14c0 ; "Register: "
13b4 e011 | | Load 0x0,0x11
13b5 180d | | Execute Package,Field_Execute,Field_Number 0xd
13b6 01cc | | Execute Vector,Catenate
13b7 0092 14f5 | | Action Push_String_Extended,0x14f5 ; " raised locating source for unit."
13b9 01cc | | Execute Vector,Catenate
13ba 01cb | | Execute Vector,Append
13bb 821a | | Call 0x1,0x1a
13bc 00d8 | | Load_Top At_Offset_0
13bd 0101 | | Execute Exception,Reraise
13be 0000 0000 | | .XXX[0x2]
13c0 ; --------------------------------------------------------------------------------------
13c0 ; SUBPROGRAM
13c0 ; --------------------------------------------------------------------------------------
13c0 13d7 | | .CONST 0x13d7 ; Address of begin
13c1 0004 | | .CONST 0x0004 ; Address of exception handler
13c2 0015 | | .CONST 0x0015 ; Number of locals
13c3 INIT_13c0:
13c3 4805 |H | Short_Literal 0x5
13c4 02cb | | Declare_Variable Entry
13c5 4804 |H | Short_Literal 0x4
13c6 02cb | | Declare_Variable Entry
13c7 480b |H | Short_Literal 0xb
13c8 02cb | | Declare_Variable Entry
13c9 4806 |H | Short_Literal 0x6
13ca 02cb | | Declare_Variable Entry
13cb 4801 |H | Short_Literal 0x1
13cc 02cb | | Declare_Variable Entry
13cd 4801 |H | Short_Literal 0x1
13ce 02cb | | Declare_Variable Entry
13cf 4800 |H | Short_Literal 0x0
13d0 02cb | | Declare_Variable Entry
13d1 00bf | | Action Accept_Activation
13d2 00e1 | | Load_Encached Boolean_Cache
13d3 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
13d4 029f 13eb | | Declare_Subprogram INIT_13e8,For_Call
13d6 00bc | | Action Signal_Activated
13d7 BODY_13c0:
13d7 0092 14f6 | | Action Push_String_Extended,0x14f6 ; "Library_Database"
13d9 e001 | | Load 0x0,0x1
13da 180f | | Execute Package,Field_Execute,Field_Number 0xf
13db 00cf | | Action Mark_Auxiliary
13dc 7802 |x | Jump 0x13df
13dd 8215 | | Call 0x1,0x15
13de 00c9 | | Action Pop_Auxiliary_Loop
13df 00da | | Load_Top At_Offset_2
13e0 77fc |w | Jump_Nonzero 0x13dd
13e1 00ce | | Action Pop_Auxiliary
13e2 00bb | | Action Signal_Completion
13e3 0000 0000 | | .BLANK 0000[0x5]
13e8 ; --------------------------------------------------------------------------------------
13e8 ; SUBPROGRAM
13e8 ; --------------------------------------------------------------------------------------
13e8 13fe | | .CONST 0x13fe ; Address of begin
13e9 1407 | | .CONST 0x1407 ; Address of exception handler
13ea 0002 | | .CONST 0x0002 ; Number of locals
13eb INIT_13e8:
13eb 4813 4a82 |H J | Declare_Variable Select 0x000, 0x007,
13ed 4812 4a83 |H J | [0x000]: 0x000 = 0x0000,
13ef 4811 4a84 |H J | [0x00d]: 0x28e = 0x1470,
13f1 4810 4a88 |H J | [0x00e]: 0x28c = 0x1460,
13f3 480f 4a89 |H J | [0x00f]: 0x289 = 0x1448,
13f5 480e 4a8c |H J | [0x010]: 0x288 = 0x1440,
13f7 480d 4a8e |H J | [0x011]: 0x284 = 0x1420,
13f9 4800 4800 |H H | [0x012]: 0x283 = 0x1418,
13fb 4800 4807 |H H | [0x013]: 0x282 = 0x1410
13fd 02cf | |
13fe BODY_13e8:
13fe 00cf | | Action Mark_Auxiliary
13ff 7804 |x | Jump 0x1404
1400 00d9 | | Load_Top At_Offset_1
1401 013f | ? | Execute Select,Rendezvous
1402 00d1 | | Pop_Control Pop_Count_1
1403 00c9 | | Action Pop_Auxiliary_Loop
1404 e214 | | Load 0x1,0x14
1405 77fa |w | Jump_Nonzero 0x1400
1406 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1407 TRAP_13e8:
1407 0007 | | Action Break_Optional
1408 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1409 0000 0000 | | .BLANK 0000[0x7]
1410 ; --------------------------------------------------------------------------------------
1410 ; SUBPROGRAM
1410 ; See instruction 0x02cf at 0x13eb, index=0x13
1410 ; --------------------------------------------------------------------------------------
1410 1413 | | .CONST 0x1413 ; Address of begin
1411 0004 | | .CONST 0x0004 ; Address of exception handler
1412 0001 | | .CONST 0x0001 ; Number of locals
1413 BODY_1410:
1413 INIT_1410:
1413 4800 |H | Short_Literal 0x0
1414 a214 | | Store_Unchecked 0x1,0x14
1415 4100 |A | End_Rendezvous 0x0
1416 0000 0000 | | .XXX[0x2]
1418 ; --------------------------------------------------------------------------------------
1418 ; SUBPROGRAM
1418 ; See instruction 0x02cf at 0x13eb, index=0x12
1418 ; --------------------------------------------------------------------------------------
1418 141b | | .CONST 0x141b ; Address of begin
1419 0004 | | .CONST 0x0004 ; Address of exception handler
141a 0001 | | .CONST 0x0001 ; Number of locals
141b BODY_1418:
141b INIT_1418:
141b 00db | | Load_Top At_Offset_3
141c 8002 | | Call 0x0,0x2
141d c7fe | | Store 0x3,-0x2
141e 4101 |A | End_Rendezvous 0x1
141f 0000 | | .XXX[0x1]
1420 ; --------------------------------------------------------------------------------------
1420 ; SUBPROGRAM
1420 ; See instruction 0x02cf at 0x13eb, index=0x11
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 00db | | Load_Top At_Offset_3
1424 7003 |p | Jump_Nonzero 0x1428
1425 e003 | | Load 0x0,0x3
1426 03bc | | Declare_Variable Access,By_Allocation
1427 a7fe | | Store_Unchecked 0x3,-0x2
1428 4801 |H | Short_Literal 0x1
1429 e7fe | | Load 0x3,-0x2
142a 0227 | ' | Execute Access,All_Reference
142b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
142c 00db | | Load_Top At_Offset_3
142d 0229 | ) | Execute Access,All_Read
142e e004 | | Load 0x0,0x4
142f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
1430 e004 | | Load 0x0,0x4
1431 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1432 00d9 | | Load_Top At_Offset_1
1433 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
1434 00d1 | | Pop_Control Pop_Count_1
1435 00db | | Load_Top At_Offset_3
1436 0229 | ) | Execute Access,All_Read
1437 e005 | | Load 0x0,0x5
1438 1b13 | | Execute Package,Field_Read,Field_Number 0x13
1439 4865 |He | Short_Literal 0x65
143a e005 | | Load 0x0,0x5
143b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
143c 00d9 | | Load_Top At_Offset_1
143d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
143e 4101 |A | End_Rendezvous 0x1
143f 0000 | | .XXX[0x1]
1440 ; --------------------------------------------------------------------------------------
1440 ; SUBPROGRAM
1440 ; See instruction 0x02cf at 0x13eb, index=0x10
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 029f 1483 | | Declare_Subprogram INIT_1480,For_Call
1445 8602 | | Call 0x3,0x2
1446 4105 |A | End_Rendezvous 0x5
1447 0000 | | .XXX[0x1]
1448 ; --------------------------------------------------------------------------------------
1448 ; SUBPROGRAM
1448 ; See instruction 0x02cf at 0x13eb, index=0xf
1448 ; --------------------------------------------------------------------------------------
1448 144b | K | .CONST 0x144b ; Address of begin
1449 0004 | | .CONST 0x0004 ; Address of exception handler
144a 0001 | | .CONST 0x0001 ; Number of locals
144b BODY_1448:
144b INIT_1448:
144b e7f4 | | Load 0x3,-0xc
144c 00ec | | Load_Encached Diana_Tree_Cache
144d 00e1 | | Load_Encached Boolean_Cache
144e 00e1 | | Load_Encached Boolean_Cache
144f e006 | | Load 0x0,0x6
1450 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1451 00e3 | | Load_Encached Natural_Cache
1452 e7fa | | Load 0x3,-0x6
1453 e7fb | | Load 0x3,-0x5
1454 e7fc | | Load 0x3,-0x4
1455 e7fd | | Load 0x3,-0x3
1456 e7fe | | Load 0x3,-0x2
1457 8007 | | Call 0x0,0x7
1458 c7fa | | Store 0x3,-0x6
1459 c7f9 | | Store 0x3,-0x7
145a c7f8 | | Store 0x3,-0x8
145b c7f6 | | Store 0x3,-0xa
145c c7f5 | | Store 0x3,-0xb
145d c7f7 | | Store 0x3,-0x9
145e c7f4 | | Store 0x3,-0xc
145f 4107 |A | End_Rendezvous 0x7
1460 ; --------------------------------------------------------------------------------------
1460 ; SUBPROGRAM
1460 ; See instruction 0x02cf at 0x13eb, index=0xe
1460 ; --------------------------------------------------------------------------------------
1460 1463 | c | .CONST 0x1463 ; Address of begin
1461 0004 | | .CONST 0x0004 ; Address of exception handler
1462 0001 | | .CONST 0x0001 ; Number of locals
1463 BODY_1460:
1463 INIT_1460:
1463 e7fb | | Load 0x3,-0x5
1464 e7fc | | Load 0x3,-0x4
1465 e7fd | | Load 0x3,-0x3
1466 e7fe | | Load 0x3,-0x2
1467 8008 | | Call 0x0,0x8
1468 c7fb | | Store 0x3,-0x5
1469 4101 |A | End_Rendezvous 0x1
146a 0000 0000 | | .BLANK 0000[0x6]
1470 ; --------------------------------------------------------------------------------------
1470 ; SUBPROGRAM
1470 ; See instruction 0x02cf at 0x13eb, index=0xd
1470 ; --------------------------------------------------------------------------------------
1470 1473 | s | .CONST 0x1473 ; Address of begin
1471 0004 | | .CONST 0x0004 ; Address of exception handler
1472 0001 | | .CONST 0x0001 ; Number of locals
1473 BODY_1470:
1473 INIT_1470:
1473 e7fa | | Load 0x3,-0x6
1474 e7fb | | Load 0x3,-0x5
1475 e7fc | | Load 0x3,-0x4
1476 e7fd | | Load 0x3,-0x3
1477 e7fe | | Load 0x3,-0x2
1478 00eb | | Load_Encached Diana_Cache
1479 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
147a e7fe | | Load 0x3,-0x2
147b 8009 | | Call 0x0,0x9
147c c7fa | | Store 0x3,-0x6
147d 4101 |A | End_Rendezvous 0x1
147e 0000 0000 | | .XXX[0x2]
1480 ; --------------------------------------------------------------------------------------
1480 ; SUBPROGRAM
1480 ; --------------------------------------------------------------------------------------
1480 1486 | | .CONST 0x1486 ; Address of begin
1481 0004 | | .CONST 0x0004 ; Address of exception handler
1482 0003 | | .CONST 0x0003 ; Number of locals
1483 INIT_1480:
1483 e00a | | Load 0x0,0xa
1484 0007 | | Action Break_Optional
1485 00e1 | | Load_Encached Boolean_Cache
1486 BODY_1480:
1486 00e1 | | Load_Encached Boolean_Cache
1487 00da | | Load_Top At_Offset_2
1488 e7fe | | Load 0x3,-0x2
1489 e7fd | | Load 0x3,-0x3
148a 0227 | ' | Execute Access,All_Reference
148b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
148c e005 | | Load 0x0,0x5
148d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
148e 003b | ; | Store_Top Access,At_Offset_3
148f 0059 | Y | Store_Top Discrete,At_Offset_1
1490 00d8 | | Load_Top At_Offset_0
1491 681f |h | Jump_Zero 0x14b1
1492 00d9 | | Load_Top At_Offset_1
1493 0227 | ' | Execute Access,All_Reference
1494 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
1495 a7fa | | Store_Unchecked 0x3,-0x6
1496 00d9 | | Load_Top At_Offset_1
1497 0227 | ' | Execute Access,All_Reference
1498 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
1499 c7fc | | Store 0x3,-0x4
149a 00d9 | | Load_Top At_Offset_1
149b 0227 | ' | Execute Access,All_Reference
149c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
149d c7fb | | Store 0x3,-0x5
149e 00d9 | | Load_Top At_Offset_1
149f 0227 | ' | Execute Access,All_Reference
14a0 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
14a1 e00b | | Load 0x0,0xb
14a2 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
14a3 012f | / | Execute Any,Equal
14a4 6807 |h | Jump_Zero 0x14ac
14a5 e7f9 | | Load 0x3,-0x7
14a6 0092 14f7 | | Action Push_String_Extended,0x14f7 ; "Library unit not elaborated"
14a8 e00c | | Load 0x0,0xc
14a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
14aa c7f9 | | Store 0x3,-0x7
14ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
14ac e7f9 | | Load 0x3,-0x7
14ad e00c | | Load 0x0,0xc
14ae 181a | | Execute Package,Field_Execute,Field_Number 0x1a
14af c7f9 | | Store 0x3,-0x7
14b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
14b1 0092 14f8 | | Action Push_String_Extended,0x14f8 ; "Could not locate Index in database"
14b3 e00c | | Load 0x0,0xc
14b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
14b5 c7f9 | | Store 0x3,-0x7
14b6 4800 |H | Short_Literal 0x0
14b7 a7fa | | Store_Unchecked 0x3,-0x6
14b8 e00d | | Load 0x0,0xd
14b9 c7fc | | Store 0x3,-0x4
14ba 4800 |H | Short_Literal 0x0
14bb a7fb | | Store_Unchecked 0x3,-0x5
14bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
14bd ; --------------------------------------------------------------------------------------
14bd ; STRING TABLE
14bd ; --------------------------------------------------------------------------------------
14bd 007a | z | .STRTAB 0x007a->0x14fa ; "Name not found"
14be 0086 | | .STRTAB 0x0086->0x1501 ; "Invalid qualifier (none required)"
14bf 00a5 | | .STRTAB 0x00a5->0x1511 ; "Warning: Elaborating units that have been archived, deleted or re-coded;\x0a Debugging information will not be available for such units.\x0a"
14c0 0133 | 3 | .STRTAB 0x0133->0x1559 ; "Register: "
14c1 013b | ; | .STRTAB 0x013b->0x155e ; "Debug_Debugger"
14c2 0147 | G | .STRTAB 0x0147->0x1565 ; "Assert fail: "
14c3 0152 | R | .STRTAB 0x0152->0x156c ; "Sm_Back_Link returned unexpected kind of node"
14c4 017d | } | .STRTAB 0x017d->0x1582 ; "<NULL>"
14c5 0181 | | .STRTAB 0x0181->0x1585 ; "procedure "
14c6 0189 | | .STRTAB 0x0189->0x158a ; "function "
14c7 0190 | | .STRTAB 0x0190->0x158f ; "package "
14c8 0196 | | .STRTAB 0x0196->0x1593 ; "generic "
14c9 019c | | .STRTAB 0x019c->0x1597 ; "Warning: Incompatible subsystem versions detected in command"
14ca 01d6 | | .STRTAB 0x01d6->0x15b5 ; " Spec: "
14cb 01de | | .STRTAB 0x01de->0x15ba ; ", Units: "
14cc 01e5 | | .STRTAB 0x01e5->0x15be ; ", "
14cd 01e5 | | .STRTAB 0x01e5->0x15bf ; ", Unit: "
14ce 01eb | | .STRTAB 0x01eb->0x15c3 ; "Same_Object: Library_Node of type "
14cf 020b | | .STRTAB 0x020b->0x15d4 ; "Invalid qualifier (none required): "
14d0 022c | , | .STRTAB 0x022c->0x15e6 ; "Delete_Low_Priority_Overloads deleted everything"
14d1 025a | Z | .STRTAB 0x025a->0x15fe ; "; Library Name "
14d2 0267 | g | .STRTAB 0x0267->0x1605 ; "Index N("
14d3 026d | m | .STRTAB 0x026d->0x1609 ; "): "
14d4 026f | o | .STRTAB 0x026f->0x160b ; "Main Unit "
14d5 0277 | w | .STRTAB 0x0277->0x1610 ; "There are several library units named "
14d6 029b | | .STRTAB 0x029b->0x1623 ; "The qualifier specified did not resolve this overload.\x0a"
14d7 02d0 | | .STRTAB 0x02d0->0x163f ; "When you ask for it again, please choose one by appending to "
14d8 030b | | .STRTAB 0x030b->0x165d ; "a single quote followed by an index, as follows:"
14d9 0339 | 9 | .STRTAB 0x0339->0x1675 ; "Init_Subsystem_Lookthrough: "
14da 0353 | S | .STRTAB 0x0353->0x1683 ; "Warning: Program includes archived main unit "
14db 037e | ~ | .STRTAB 0x037e->0x169a ; ". "
14dc 037f | | .STRTAB 0x037f->0x169b ; "Debugging will be limited."
14dd 0397 | | .STRTAB 0x0397->0x16a8 ; "Register_Unit: Empty units_in_program list"
14de 03bf | | .STRTAB 0x03bf->0x16bd ; "Register_Unit: Main_Unit not a procedure or function"
14df 03f1 | | .STRTAB 0x03f1->0x16d7 ; "Register_Unit: "
14e0 03fe | | .STRTAB 0x03fe->0x16df ; "Register_Used_Unit: Unit_Offset is 0"
14e1 0420 | | .STRTAB 0x0420->0x16f1 ; "Register_Used_Unit: unknown node: "
14e2 0440 | @ | .STRTAB 0x0440->0x1702 ; "Register_Used_Unit: "
14e3 0452 | R | .STRTAB 0x0452->0x170c ; "UnRegister_Unit: unknown node: "
14e4 046f | o | .STRTAB 0x046f->0x171b ; "unRegister_Unit: "
14e5 047e | ~ | .STRTAB 0x047e->0x1724 ; "UnRegister_Unit: Empty Unit_List list"
14e6 04a1 | | .STRTAB 0x04a1->0x1736 ; "Unregister_Unit: "
14e7 04b0 | | .STRTAB 0x04b0->0x173f ; "empty overload chain"
14e8 04c2 | | .STRTAB 0x04c2->0x1749 ; " "
14e9 04c8 | | .STRTAB 0x04c8->0x174d ; " Library Units used by "
14ea 04e2 | | .STRTAB 0x04e2->0x175b ; " "
14eb 04e2 | | .STRTAB 0x04e2->0x175c ; " "
14ec 04e4 | | .STRTAB 0x04e4->0x175e ; " (archived)"
14ed 04ed | | .STRTAB 0x04ed->0x1763 ; " Elab Segment Offset: "
14ee 0501 | | .STRTAB 0x0501->0x176e ; " Library: "
14ef 050a | | .STRTAB 0x050a->0x1774 ; " Main Unit: "
14f0 0515 | | .STRTAB 0x0515->0x177a ; " Elab Segment:"
14f1 0522 | " | .STRTAB 0x0522->0x1782 ; " Elab Frame Name:"
14f2 0532 | 2 | .STRTAB 0x0532->0x178b ; " Library Units: \x0a"
14f3 0542 | B | .STRTAB 0x0542->0x1794 ; "Libraries in use by this program:\x0a"
14f4 0562 | b | .STRTAB 0x0562->0x17a5 ; "No libraries are currently registered.\x0a"
14f5 0587 | | .STRTAB 0x0587->0x17b8 ; " raised locating source for unit."
14f6 05a6 | | .STRTAB 0x05a6->0x17c9 ; "Library_Database"
14f7 05b4 | | .STRTAB 0x05b4->0x17d1 ; "Library unit not elaborated"
14f8 05cd | | .STRTAB 0x05cd->0x17de ; "Could not locate Index in database"
14f9 05ed | | .STREND 0x05ed->0x17ef
14fa 4e61 6d65 |Name| .STRTAB_STRINGS
17f0 ; --------------------------------------------------------------------------------------
17f0 ; Debug Table
17f0 ; --------------------------------------------------------------------------------------
17f0 0004 0010 | | .DEBUG4 0x0004,0x0010,0x5f81,0x0000,0x0001,0x0000
17f6 0000 0000 | | .BLANK 0000[0xa]