|
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 - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0a10 | | .CONST 0x0a10 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d6 | | .CONST 0x00d6 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0035 | 5 | .CONST 0x0035 ; Number of locals
000b INIT_0008:
000b 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
000d 03a9 | | Declare_Type Heap_Access,Incomplete,Visible
000e 00c4 | | Action Make_Default
000f 4800 |H | Short_Literal 0x0
0010 61d7 |a | Indirect_Literal Discrete,0x1e8,{0x00000000, 0x0000ffff}
0011 00e3 | | Load_Encached Natural_Cache
0012 03f9 | | Declare_Type Discrete,Constrained,Visible
0013 4800 |H | Short_Literal 0x0
0014 4803 |H | Short_Literal 0x3
0015 029f 01f3 | | Declare_Subprogram For_Call,INIT_01f0
0017 03fe | | Declare_Type Discrete,Defined,Visible
0018 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
001a 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
001c 029a 028b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0288
001e 029a 029b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0298
0020 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
0022 029a 02cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c8
0024 00e3 | | Load_Encached Natural_Cache
0025 0266 | f | Execute Discrete,Bounds
0026 e210 | | Load 0x1,0x10
0027 02a0 | | Declare_Subprogram Null_Subprogram
0028 4801 |H | Short_Literal 0x1
0029 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
002a 029a 02eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e8
002c 029a 0333 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0330
002e 029a 037b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0378
0030 029a 038b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0388
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 029a 039b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0398
0038 c21f | | Store 0x1,0x1f
0039 029a 03eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03e8
003b c220 | | Store 0x1,0x20
003c 029a 0403 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0400
003e c21d | | Store 0x1,0x1d
003f 4806 |H | Short_Literal 0x6
0040 032a | * | Declare_Type Record,Incomplete
0041 c21e | | Store 0x1,0x1e
0042 00da | | Load_Top At_Offset_2
0043 02a0 | | Declare_Subprogram Null_Subprogram
0044 e20e | | Load 0x1,0xe
0045 03a3 | | Complete_Type Heap_Access,By_Defining
0046 e20e | | Load 0x1,0xe
0047 0129 | ) | Execute Any,Make_Visible
0048 c20f | | Store 0x1,0xf
0049 00bf | | Action Accept_Activation
004a 4801 |H | Short_Literal 0x1
004b 4805 |H | Short_Literal 0x5
004c 00e3 | | Load_Encached Natural_Cache
004d 03f8 | | Declare_Type Discrete,Constrained
004e 4800 |H | Short_Literal 0x0
004f 6194 |a | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x00001fff}
0050 00e3 | | Load_Encached Natural_Cache
0051 03f8 | | Declare_Type Discrete,Constrained
0052 e001 | | Load 0x0,0x1
0053 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0054 00da | | Load_Top At_Offset_2
0055 e002 | | Load 0x0,0x2
0056 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0057 029f 0413 | | Declare_Subprogram For_Call,INIT_0410
0059 4803 |H | Short_Literal 0x3
005a 032d | - | Declare_Type Record,Defined
005b 00e9 | | Load_Encached String_Cache
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 03ad | | Declare_Type Heap_Access,Defined
005e 00e2 | | Load_Encached Integer_Cache
005f e002 | | Load 0x0,0x2
0060 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0061 e002 | | Load 0x0,0x2
0062 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0063 e211 | | Load 0x1,0x11
0064 e001 | | Load 0x0,0x1
0065 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0066 e224 | $ | Load 0x1,0x24
0067 029f 042b | +| Declare_Subprogram For_Call,INIT_0428
0069 e21e | | Load 0x1,0x1e
006a 0326 | & | Complete_Type Record,By_Defining
006b 029b 044b | K| Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0448
006d 029b 045b | [| Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0458
006f e003 | | Load 0x0,0x3
0070 e004 | | Load 0x0,0x4
0071 4865 |He | Short_Literal 0x65
0072 e210 | | Load 0x1,0x10
0073 e223 | # | Load 0x1,0x23
0074 e20e | | Load 0x1,0xe
0075 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0076 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0077 e005 | | Load 0x0,0x5
0078 0387 | | Declare_Variable Package
0079 00d8 | | Load_Top At_Offset_0
007a 020f | | Execute Module,Activate
007b e006 | | Load 0x0,0x6
007c e007 | | Load 0x0,0x7
007d 4865 |He | Short_Literal 0x65
007e e223 | # | Load 0x1,0x23
007f e008 | | Load 0x0,0x8
0080 0387 | | Declare_Variable Package
0081 00d8 | | Load_Top At_Offset_0
0082 020f | | Execute Module,Activate
0083 e009 | | Load 0x0,0x9
0084 e00a | | Load 0x0,0xa
0085 00e2 | | Load_Encached Integer_Cache
0086 e002 | | Load 0x0,0x2
0087 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0088 0387 | | Declare_Variable Package
0089 00d8 | | Load_Top At_Offset_0
008a 020f | | Execute Module,Activate
008b e00b | | Load 0x0,0xb
008c e00c | | Load 0x0,0xc
008d 00e9 | | Load_Encached String_Cache
008e e002 | | Load 0x0,0x2
008f 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0090 0387 | | Declare_Variable Package
0091 00d8 | | Load_Top At_Offset_0
0092 020f | | Execute Module,Activate
0093 e00d | | Load 0x0,0xd
0094 e00e | | Load 0x0,0xe
0095 00e9 | | Load_Encached String_Cache
0096 e224 | $ | Load 0x1,0x24
0097 e002 | | Load 0x0,0x2
0098 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0099 0387 | | Declare_Variable Package
009a 00d8 | | Load_Top At_Offset_0
009b 020f | | Execute Module,Activate
009c e00f | | Load 0x0,0xf
009d e010 | | Load 0x0,0x10
009e e001 | | Load 0x0,0x1
009f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00a0 e011 | | Load 0x0,0x11
00a1 0387 | | Declare_Variable Package
00a2 00d8 | | Load_Top At_Offset_0
00a3 020f | | Execute Module,Activate
00a4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00b5 00c7 | | Action Elaborate_Subprogram
00b6 029d 0463 | c| Declare_Subprogram For_Outer_Call,INIT_0460
00b8 029d 0493 | | Declare_Subprogram For_Outer_Call,INIT_0490
00ba 029d 04eb | | Declare_Subprogram For_Outer_Call,INIT_04e8
00bc 029d 050b | | Declare_Subprogram For_Outer_Call,INIT_0508
00be 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00bf 00c7 | | Action Elaborate_Subprogram
00c0 029d 051b | | Declare_Subprogram For_Outer_Call,INIT_0518
00c2 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00c9 00c7 | | Action Elaborate_Subprogram
00ca 029d 0553 | S| Declare_Subprogram For_Outer_Call,INIT_0550
00cc 029d 05f3 | | Declare_Subprogram For_Outer_Call,INIT_05f0
00ce 029d 060b | | Declare_Subprogram For_Outer_Call,INIT_0608
00d0 029d 0623 | #| Declare_Subprogram For_Outer_Call,INIT_0620
00d2 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00d5 00c7 | | Action Elaborate_Subprogram
00d6 BODY_0008:
00d6 00bc | | Action Signal_Activated
00d7 00bb | | Action Signal_Completion
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00ff | | .CONST 0x00ff ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 000f | | .CONST 0x000f ; Number of locals
00db INIT_00d8:
00db e20e | | Load 0x1,0xe
00dc e012 | | Load 0x0,0x12
00dd 180d | | Execute Package,Field_Execute,Field_Number 0xd
00de 039c | | Declare_Variable Heap_Access,By_Allocation
00df e20e | | Load 0x1,0xe
00e0 0007 | | Action Break_Optional
00e1 00e2 | | Load_Encached Integer_Cache
00e2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e3 e228 | ( | Load 0x1,0x28
00e4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00e5 e228 | ( | Load 0x1,0x28
00e6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00e7 0322 | " | Declare_Variable Record
00e8 e013 | | Load 0x0,0x13
00e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ea 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00eb 02c7 | | Declare_Variable Any
00ec 00d8 | | Load_Top At_Offset_0
00ed 1c00 | | Execute_Immediate Run_Utility,0x0
00ee e013 | | Load 0x0,0x13
00ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f1 e002 | | Load 0x0,0x2
00f2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00f3 029f 0663 | c| Declare_Subprogram For_Call,INIT_0660
00f5 029f 06ab | | Declare_Subprogram For_Call,INIT_06a8
00f7 029f 06cb | | Declare_Subprogram For_Call,INIT_06c8
00f9 029f 06e3 | | Declare_Subprogram For_Call,INIT_06e0
00fb 029f 0723 | #| Declare_Subprogram For_Call,INIT_0720
00fd 029f 07bb | | Declare_Subprogram For_Call,INIT_07b8
00ff BODY_00d8:
00ff e20e | | Load 0x1,0xe
0100 0092 09cb | | Action Push_String_Extended,0x9cb ; "Error '~@~' (~#~) encountered processing ~1~ ~2~ ~3~"
0102 4807 |H | Short_Literal 0x7
0103 4802 |H | Short_Literal 0x2
0104 0092 09cc | | Action Push_String_Extended,0x9cc ; "!Machine.Target_Builder.Message_File"
0106 8212 | | Call 0x1,0x12
0107 c403 | | Store 0x2,0x3
0108 e402 | | Load 0x2,0x2
0109 0219 | | Execute Heap_Access,All_Read
010a 00d8 | | Load_Top At_Offset_0
010b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010c e5fd | | Load 0x2,-0x3
010d 4802 |H | Short_Literal 0x2
010e 8232 | 2 | Call 0x1,0x32
010f 00d9 | | Load_Top At_Offset_1
0110 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0111 00d1 | | Pop_Control Pop_Count_1
0112 4800 |H | Short_Literal 0x0
0113 e002 | | Load 0x0,0x2
0114 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0115 e402 | | Load 0x2,0x2
0116 0217 | | Execute Heap_Access,All_Reference
0117 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0118 e229 | ) | Load 0x1,0x29
0119 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011a e002 | | Load 0x0,0x2
011b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
011c e402 | | Load 0x2,0x2
011d 0217 | | Execute Heap_Access,All_Reference
011e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011f e229 | ) | Load 0x1,0x29
0120 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0121 e402 | | Load 0x2,0x2
0122 0217 | | Execute Heap_Access,All_Reference
0123 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0124 e402 | | Load 0x2,0x2
0125 0217 | | Execute Heap_Access,All_Reference
0126 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0127 e402 | | Load 0x2,0x2
0128 0217 | | Execute Heap_Access,All_Reference
0129 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012a e227 | ' | Load 0x1,0x27
012b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
012c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
012d e228 | ( | Load 0x1,0x28
012e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
012f 4865 |He | Short_Literal 0x65
0130 e012 | | Load 0x0,0x12
0131 180d | | Execute Package,Field_Execute,Field_Number 0xd
0132 e228 | ( | Load 0x1,0x28
0133 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0134 c405 | | Store 0x2,0x5
0135 e013 | | Load 0x0,0x13
0136 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0137 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0138 e407 | | Load 0x2,0x7
0139 60a6 |` | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00004000}
013a e014 | | Load 0x0,0x14
013b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013c e015 | | Load 0x0,0x15
013d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013e e016 | | Load 0x0,0x16
013f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0140 4801 |H | Short_Literal 0x1
0141 4800 |H | Short_Literal 0x0
0142 e015 | | Load 0x0,0x15
0143 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0144 e013 | | Load 0x0,0x13
0145 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0146 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0147 e5ff | | Load 0x2,-0x1
0148 e013 | | Load 0x0,0x13
0149 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
014a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
014b c407 | | Store 0x2,0x7
014c c408 | | Store 0x2,0x8
014d e408 | | Load 0x2,0x8
014e 7061 |pa | Jump_Nonzero 0x1b0
014f 00cf | | Action Mark_Auxiliary
0150 780b |x | Jump 0x15c
0151 e407 | | Load 0x2,0x7
0152 e013 | | Load 0x0,0x13
0153 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0154 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0155 840d | | Call 0x2,0xd
0156 e407 | | Load 0x2,0x7
0157 e013 | | Load 0x0,0x13
0158 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0159 181d | | Execute Package,Field_Execute,Field_Number 0x1d
015a c407 | | Store 0x2,0x7
015b 00c9 | | Action Pop_Auxiliary_Loop
015c e407 | | Load 0x2,0x7
015d e013 | | Load 0x0,0x13
015e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
015f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0160 6ff0 |o | Jump_Zero 0x151
0161 00ce | | Action Pop_Auxiliary
0162 e013 | | Load 0x0,0x13
0163 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0165 e407 | | Load 0x2,0x7
0166 6079 |`y | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00004000}
0167 e014 | | Load 0x0,0x14
0168 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0169 e015 | | Load 0x0,0x15
016a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016b e016 | | Load 0x0,0x16
016c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016d 4801 |H | Short_Literal 0x1
016e 4800 |H | Short_Literal 0x0
016f e015 | | Load 0x0,0x15
0170 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0171 e013 | | Load 0x0,0x13
0172 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0173 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0174 e5fe | | Load 0x2,-0x2
0175 e013 | | Load 0x0,0x13
0176 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0177 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0178 c407 | | Store 0x2,0x7
0179 c408 | | Store 0x2,0x8
017a e408 | | Load 0x2,0x8
017b 702a |p* | Jump_Nonzero 0x1a6
017c 00cf | | Action Mark_Auxiliary
017d 7809 |x | Jump 0x187
017e e407 | | Load 0x2,0x7
017f 840f | | Call 0x2,0xf
0180 c407 | | Store 0x2,0x7
0181 e407 | | Load 0x2,0x7
0182 e013 | | Load 0x0,0x13
0183 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0184 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0185 c407 | | Store 0x2,0x7
0186 00c9 | | Action Pop_Auxiliary_Loop
0187 e407 | | Load 0x2,0x7
0188 e013 | | Load 0x0,0x13
0189 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
018b 6ff2 |o | Jump_Zero 0x17e
018c 00ce | | Action Pop_Auxiliary
018d e406 | | Load 0x2,0x6
018e e405 | | Load 0x2,0x5
018f e228 | ( | Load 0x1,0x28
0190 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0191 00d1 | | Pop_Control Pop_Count_1
0192 00cf | | Action Mark_Auxiliary
0193 780c |x | Jump 0x1a0
0194 4800 |H | Short_Literal 0x0
0195 e406 | | Load 0x2,0x6
0196 e228 | ( | Load 0x1,0x28
0197 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0198 4820 |H | Short_Literal 0x20
0199 e403 | | Load 0x2,0x3
019a 821b | | Call 0x1,0x1b
019b e406 | | Load 0x2,0x6
019c e228 | ( | Load 0x1,0x28
019d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
019e 00d1 | | Pop_Control Pop_Count_1
019f 00c9 | | Action Pop_Auxiliary_Loop
01a0 e406 | | Load 0x2,0x6
01a1 e228 | ( | Load 0x1,0x28
01a2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01a3 6ff0 |o | Jump_Zero 0x194
01a4 00ce | | Action Pop_Auxiliary
01a5 7813 |x | Jump 0x1b9
01a6 4800 |H | Short_Literal 0x0
01a7 e5fe | | Load 0x2,-0x2
01a8 e408 | | Load 0x2,0x8
01a9 e013 | | Load 0x0,0x13
01aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ac 4821 |H! | Short_Literal 0x21
01ad e403 | | Load 0x2,0x3
01ae 821b | | Call 0x1,0x1b
01af 7809 |x | Jump 0x1b9
01b0 4800 |H | Short_Literal 0x0
01b1 e5ff | | Load 0x2,-0x1
01b2 e408 | | Load 0x2,0x8
01b3 e013 | | Load 0x0,0x13
01b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b6 4822 |H" | Short_Literal 0x22
01b7 e403 | | Load 0x2,0x3
01b8 821b | | Call 0x1,0x1b
01b9 e404 | | Load 0x2,0x4
01ba e002 | | Load 0x0,0x2
01bb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01bc e402 | | Load 0x2,0x2
01bd 0217 | | Execute Heap_Access,All_Reference
01be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01bf e229 | ) | Load 0x1,0x29
01c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01c1 4800 |H | Short_Literal 0x0
01c2 e402 | | Load 0x2,0x2
01c3 0217 | | Execute Heap_Access,All_Reference
01c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c5 e002 | | Load 0x0,0x2
01c6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c7 4820 |H | Short_Literal 0x20
01c8 4800 |H | Short_Literal 0x0
01c9 480a |H | Short_Literal 0xa
01ca e404 | | Load 0x2,0x4
01cb e017 | | Load 0x0,0x17
01cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01cd 821d | | Call 0x1,0x1d
01ce 4823 |H# | Short_Literal 0x23
01cf e403 | | Load 0x2,0x3
01d0 821b | | Call 0x1,0x1b
01d1 e402 | | Load 0x2,0x2
01d2 0219 | | Execute Heap_Access,All_Read
01d3 e002 | | Load 0x0,0x2
01d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d5 00d9 | | Load_Top At_Offset_1
01d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d7 e002 | | Load 0x0,0x2
01d8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01d9 00da | | Load_Top At_Offset_2
01da 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01db c409 | | Store 0x2,0x9
01dc 00d1 | | Pop_Control Pop_Count_1
01dd e403 | | Load 0x2,0x3
01de 8213 | | Call 0x1,0x13
01df 4506 |E | Exit_Subprogram 0x6
01e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01e4 0000 0000 | | .LITERAL {0x00000000, 0x00001fff}
01e8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4607 |F | Jump_Case 0x7
01f4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
01f5 7806 |x | Jump 0x1fc ; case 0x1
01f6 7809 |x | Jump 0x200 ; case 0x2
01f7 780d |x | Jump 0x205 ; case 0x3
01f8 7810 |x | Jump 0x209 ; case 0x4
01f9 7811 |x | Jump 0x20b ; case 0x5
01fa 7812 |x | Jump 0x20d ; case 0x6
01fb 7815 |x | Jump 0x211 ; case 0x7
01fc 00da | | Load_Top At_Offset_2
01fd 0091 09c7 | | Action Push_String_Extended_Indexed,0x9c7 ; "DEFAULT"
01ff 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0200 00db | | Load_Top At_Offset_3
0201 00db | | Load_Top At_Offset_3
0202 00e0 | | Load_Encached Standard_Cache
0203 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0204 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0205 00da | | Load_Top At_Offset_2
0206 00e0 | | Load_Encached Standard_Cache
0207 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0208 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0209 00db | | Load_Top At_Offset_3
020a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
020b 00db | | Load_Top At_Offset_3
020c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
020d e211 | | Load 0x1,0x11
020e 00dc | | Load_Top At_Offset_4
020f 0267 | g | Execute Discrete,Predecessor
0210 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0211 e211 | | Load 0x1,0x11
0212 00dc | | Load_Top At_Offset_4
0213 0268 | h | Execute Discrete,Successor
0214 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0215 0000 0000 | | .XXX[0x3]
0217 0000 | |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0221 | ! | .CONST 0x0221 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0003 | | .CONST 0x0003 ; Number of locals
021b INIT_0218:
021b e20e | | Load 0x1,0xe
021c e012 | | Load 0x0,0x12
021d 180d | | Execute Package,Field_Execute,Field_Number 0xd
021e 039c | | Declare_Variable Heap_Access,By_Allocation
021f e002 | | Load 0x0,0x2
0220 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0221 BODY_0218:
0221 00d9 | | Load_Top At_Offset_1
0222 0219 | | Execute Heap_Access,All_Read
0223 e002 | | Load 0x0,0x2
0224 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0225 00d9 | | Load_Top At_Offset_1
0226 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0227 4800 |H | Short_Literal 0x0
0228 6043 |`C | Indirect_Literal Discrete,0x26c,{0x00000000, 0x00004000}
0229 e014 | | Load 0x0,0x14
022a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022b e015 | | Load 0x0,0x15
022c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
022d e002 | | Load 0x0,0x2
022e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
022f 4800 |H | Short_Literal 0x0
0230 e5ff | | Load 0x2,-0x1
0231 4800 |H | Short_Literal 0x0
0232 e002 | | Load 0x0,0x2
0233 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0234 00da | | Load_Top At_Offset_2
0235 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0236 005a | Z | Store_Top Discrete,At_Offset_2
0237 00d1 | | Pop_Control Pop_Count_1
0238 00d9 | | Load_Top At_Offset_1
0239 0217 | | Execute Heap_Access,All_Reference
023a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023b e002 | | Load 0x0,0x2
023c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
023d 6815 |h | Jump_Zero 0x253
023e e002 | | Load 0x0,0x2
023f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0240 00da | | Load_Top At_Offset_2
0241 0217 | | Execute Heap_Access,All_Reference
0242 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0243 e229 | ) | Load 0x1,0x29
0244 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0245 00da | | Load_Top At_Offset_2
0246 0217 | | Execute Heap_Access,All_Reference
0247 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0248 e002 | | Load 0x0,0x2
0249 1817 | | Execute Package,Field_Execute,Field_Number 0x17
024a 00da | | Load_Top At_Offset_2
024b 0217 | | Execute Heap_Access,All_Reference
024c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
024d e229 | ) | Load 0x1,0x29
024e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
024f 00da | | Load_Top At_Offset_2
0250 0217 | | Execute Heap_Access,All_Reference
0251 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0252 7804 |x | Jump 0x257
0253 4800 |H | Short_Literal 0x0
0254 00da | | Load_Top At_Offset_2
0255 0217 | | Execute Heap_Access,All_Reference
0256 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0257 e5fe | | Load 0x2,-0x2
0258 00da | | Load_Top At_Offset_2
0259 0217 | | Execute Heap_Access,All_Reference
025a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
025b e5fd | | Load 0x2,-0x3
025c 00da | | Load_Top At_Offset_2
025d 0217 | | Execute Heap_Access,All_Reference
025e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
025f e5fc | | Load 0x2,-0x4
0260 e224 | $ | Load 0x1,0x24
0261 e012 | | Load 0x0,0x12
0262 180d | | Execute Package,Field_Execute,Field_Number 0xd
0263 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0264 00da | | Load_Top At_Offset_2
0265 0217 | | Execute Heap_Access,All_Reference
0266 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0267 00d9 | | Load_Top At_Offset_1
0268 a5fb | | Store_Unchecked 0x2,-0x5
0269 4505 |E | Exit_Subprogram 0x5
026a 0000 0000 | | .XXX[0x2]
026c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0275 | u | .CONST 0x0275 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 e002 | | Load 0x0,0x2
0274 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0275 BODY_0270:
0275 00db | | Load_Top At_Offset_3
0276 0217 | | Execute Heap_Access,All_Reference
0277 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0278 e002 | | Load 0x0,0x2
0279 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
027a 680c |h | Jump_Zero 0x287
027b 00db | | Load_Top At_Offset_3
027c 0219 | | Execute Heap_Access,All_Read
027d e002 | | Load 0x0,0x2
027e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
027f 00d9 | | Load_Top At_Offset_1
0280 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0281 e002 | | Load 0x0,0x2
0282 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0283 00da | | Load_Top At_Offset_2
0284 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0285 005a | Z | Store_Top Discrete,At_Offset_2
0286 00d1 | | Pop_Control Pop_Count_1
0287 4502 |E | Exit_Subprogram 0x2
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 6806 |h | Jump_Zero 0x293
028d 00da | | Load_Top At_Offset_2
028e 0217 | | Execute Heap_Access,All_Reference
028f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0290 e002 | | Load 0x0,0x2
0291 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0292 4401 |D | Exit_Subprogram With_Result,0x1
0293 4800 |H | Short_Literal 0x0
0294 4401 |D | Exit_Subprogram With_Result,0x1
0295 0000 0000 | | .XXX[0x3]
0297 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 02a7 | | .CONST 0x02a7 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00db | | Load_Top At_Offset_3
029c 00db | | Load_Top At_Offset_3
029d 0217 | | Execute Heap_Access,All_Reference
029e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
029f e5ff | | Load 0x2,-0x1
02a0 0217 | | Execute Heap_Access,All_Reference
02a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a2 e227 | ' | Load 0x1,0x27
02a3 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
02a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
02a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a6 4402 |D | Exit_Subprogram With_Result,0x2
02a7 TRAP_0298:
02a7 0007 | | Action Break_Optional
02a8 00db | | Load_Top At_Offset_3
02a9 0217 | | Execute Heap_Access,All_Reference
02aa 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02ab 4402 |D | Exit_Subprogram With_Result,0x2
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 02bf | | .CONST 0x02bf ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00db | | Load_Top At_Offset_3
02b4 00db | | Load_Top At_Offset_3
02b5 0217 | | Execute Heap_Access,All_Reference
02b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b7 e5ff | | Load 0x2,-0x1
02b8 0217 | | Execute Heap_Access,All_Reference
02b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ba e227 | ' | Load 0x1,0x27
02bb 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
02bc 180d | | Execute Package,Field_Execute,Field_Number 0xd
02bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02be 4402 |D | Exit_Subprogram With_Result,0x2
02bf TRAP_02b0:
02bf 0007 | | Action Break_Optional
02c0 4800 |H | Short_Literal 0x0
02c1 4402 |D | Exit_Subprogram With_Result,0x2
02c2 0000 0000 | | .BLANK 0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 02dc | | .CONST 0x02dc ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00db | | Load_Top At_Offset_3
02cc 00db | | Load_Top At_Offset_3
02cd 0217 | | Execute Heap_Access,All_Reference
02ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02cf e5ff | | Load 0x2,-0x1
02d0 0217 | | Execute Heap_Access,All_Reference
02d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d2 e227 | ' | Load 0x1,0x27
02d3 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
02d4 180d | | Execute Package,Field_Execute,Field_Number 0xd
02d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d6 00db | | Load_Top At_Offset_3
02d7 0217 | | Execute Heap_Access,All_Reference
02d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d9 e22a | * | Load 0x1,0x2a
02da 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02db 4402 |D | Exit_Subprogram With_Result,0x2
02dc TRAP_02c8:
02dc 0007 | | Action Break_Optional
02dd 00db | | Load_Top At_Offset_3
02de 0217 | | Execute Heap_Access,All_Reference
02df 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
02e0 0217 | | Execute Heap_Access,All_Reference
02e1 0335 | 5 | Declare_Variable Array,Duplicate
02e2 00cd | | Action Spare6_Action
02e3 4402 |D | Exit_Subprogram With_Result,0x2
02e4 0000 0000 | | .BLANK 0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f7 | | .CONST 0x02f7 ; Address of begin
02e9 0323 | # | .CONST 0x0323 ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb 4801 |H | Short_Literal 0x1
02ec 00db | | Load_Top At_Offset_3
02ed 0217 | | Execute Heap_Access,All_Reference
02ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ef e218 | | Load 0x1,0x18
02f0 035b | [ | Declare_Type Array,Constrained
02f1 0337 | 7 | Declare_Variable Array
02f2 e227 | ' | Load 0x1,0x27
02f3 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
02f4 0322 | " | Declare_Variable Record
02f5 00d8 | | Load_Top At_Offset_0
02f6 1c00 | | Execute_Immediate Run_Utility,0x0
02f7 BODY_02e8:
02f7 00d8 | | Load_Top At_Offset_0
02f8 e5ff | | Load 0x2,-0x1
02f9 0217 | | Execute Heap_Access,All_Reference
02fa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02fb e5ff | | Load 0x2,-0x1
02fc 0217 | | Execute Heap_Access,All_Reference
02fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fe e227 | ' | Load 0x1,0x27
02ff 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0300 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0301 00d1 | | Pop_Control Pop_Count_1
0302 00cf | | Action Mark_Auxiliary
0303 00da | | Load_Top At_Offset_2
0304 01d9 | | Execute Vector,Reverse_Bounds
0305 0263 | c | Execute Discrete,Above_Bound
0306 7017 |p | Jump_Nonzero 0x31e
0307 e5ff | | Load 0x2,-0x1
0308 0217 | | Execute Heap_Access,All_Reference
0309 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030a e403 | | Load 0x2,0x3
030b e227 | ' | Load 0x1,0x27
030c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
030d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
030e 00d9 | | Load_Top At_Offset_1
030f e402 | | Load 0x2,0x2
0310 01d6 | | Execute Vector,Field_Write
0311 00db | | Load_Top At_Offset_3
0312 e5ff | | Load 0x2,-0x1
0313 0217 | | Execute Heap_Access,All_Reference
0314 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0315 e5ff | | Load 0x2,-0x1
0316 0217 | | Execute Heap_Access,All_Reference
0317 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0318 e227 | ' | Load 0x1,0x27
0319 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
031a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
031b 00d1 | | Pop_Control Pop_Count_1
031c 00c8 | | Action Pop_Auxiliary_Range
031d 3fe9 |? | Loop_Increasing 0x307
031e 00ce | | Action Pop_Auxiliary
031f 00d9 | | Load_Top At_Offset_1
0320 e218 | | Load 0x1,0x18
0321 01c6 | | Execute Vector,Convert_To_Formal
0322 4401 |D | Exit_Subprogram With_Result,0x1
0323 TRAP_02e8:
0323 0007 | | Action Break_Optional
0324 4801 |H | Short_Literal 0x1
0325 4800 |H | Short_Literal 0x0
0326 e218 | | Load 0x1,0x18
0327 0334 | 4 | Declare_Variable Array,With_Constraint
0328 4401 |D | Exit_Subprogram With_Result,0x1
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0339 | 9 | .CONST 0x0339 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0003 | | .CONST 0x0003 ; Number of locals
0333 INIT_0330:
0333 e223 | # | Load 0x1,0x23
0334 0322 | " | Declare_Variable Record
0335 00d8 | | Load_Top At_Offset_0
0336 1c00 | | Execute_Immediate Run_Utility,0x0
0337 00e1 | | Load_Encached Boolean_Cache
0338 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0339 BODY_0330:
0339 e5ff | | Load 0x2,-0x1
033a 0217 | | Execute Heap_Access,All_Reference
033b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
033c e002 | | Load 0x0,0x2
033d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
033e 680e |h | Jump_Zero 0x34d
033f 00e1 | | Load_Encached Boolean_Cache
0340 00da | | Load_Top At_Offset_2
0341 e5fe | | Load 0x2,-0x2
0342 e5ff | | Load 0x2,-0x1
0343 0217 | | Execute Heap_Access,All_Reference
0344 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0345 e5ff | | Load 0x2,-0x1
0346 0217 | | Execute Heap_Access,All_Reference
0347 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0348 e227 | ' | Load 0x1,0x27
0349 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
034a 180e | | Execute Package,Field_Execute,Field_Number 0xe
034b 00d1 | | Pop_Control Pop_Count_1
034c 0059 | Y | Store_Top Discrete,At_Offset_1
034d 00d8 | | Load_Top At_Offset_0
034e 680e |h | Jump_Zero 0x35d
034f e5ff | | Load 0x2,-0x1
0350 e5fc | | Load 0x2,-0x4
0351 8230 | 0 | Call 0x1,0x30
0352 e5fd | | Load 0x2,-0x3
0353 00db | | Load_Top At_Offset_3
0354 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0355 e5ff | | Load 0x2,-0x1
0356 0217 | | Execute Heap_Access,All_Reference
0357 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0358 e22a | * | Load 0x1,0x2a
0359 1811 | | Execute Package,Field_Execute,Field_Number 0x11
035a e5fe | | Load 0x2,-0x2
035b 822f | / | Call 0x1,0x2f
035c 4404 |D | Exit_Subprogram With_Result,0x4
035d e5ff | | Load 0x2,-0x1
035e e5fc | | Load 0x2,-0x4
035f 8230 | 0 | Call 0x1,0x30
0360 e5fd | | Load 0x2,-0x3
0361 480a |H | Short_Literal 0xa
0362 0092 09cd | | Action Push_String_Extended,0x9cd ; "SPARE_"
0364 4820 |H | Short_Literal 0x20
0365 4800 |H | Short_Literal 0x0
0366 480a |H | Short_Literal 0xa
0367 e5fe | | Load 0x2,-0x2
0368 e017 | | Load 0x0,0x17
0369 1816 | | Execute Package,Field_Execute,Field_Number 0x16
036a 01cc | | Execute Vector,Catenate
036b 01cb | | Execute Vector,Append
036c e5ff | | Load 0x2,-0x1
036d 0217 | | Execute Heap_Access,All_Reference
036e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
036f 0217 | | Execute Heap_Access,All_Reference
0370 01cc | | Execute Vector,Catenate
0371 e5fe | | Load 0x2,-0x2
0372 822f | / | Call 0x1,0x2f
0373 4404 |D | Exit_Subprogram With_Result,0x4
0374 0000 0000 | | .BLANK 0000[0x4]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b e001 | | Load 0x0,0x1
037c 180e | | Execute Package,Field_Execute,Field_Number 0xe
037d e5fc | | Load 0x2,-0x4
037e e5fd | | Load 0x2,-0x3
037f e5fe | | Load 0x2,-0x2
0380 e5ff | | Load 0x2,-0x1
0381 821f | | Call 0x1,0x1f
0382 4505 |E | Exit_Subprogram 0x5
0383 0000 0000 | | .BLANK 0000[0x5]
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 e001 | | Load 0x0,0x1
038c 180e | | Execute Package,Field_Execute,Field_Number 0xe
038d e5fb | | Load 0x2,-0x5
038e e5fc | | Load 0x2,-0x4
038f e5fd | | Load 0x2,-0x3
0390 e5fe | | Load 0x2,-0x2
0391 e5ff | | Load 0x2,-0x1
0392 8220 | | Call 0x1,0x20
0393 4506 |E | Exit_Subprogram 0x6
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a1 | | .CONST 0x03a1 ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0003 | | .CONST 0x0003 ; Number of locals
039b INIT_0398:
039b e223 | # | Load 0x1,0x23
039c 0322 | " | Declare_Variable Record
039d 00d8 | | Load_Top At_Offset_0
039e 1c00 | | Execute_Immediate Run_Utility,0x0
039f 00e1 | | Load_Encached Boolean_Cache
03a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03a1 BODY_0398:
03a1 e5ff | | Load 0x2,-0x1
03a2 0217 | | Execute Heap_Access,All_Reference
03a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03a4 e002 | | Load 0x0,0x2
03a5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03a6 680e |h | Jump_Zero 0x3b5
03a7 00e1 | | Load_Encached Boolean_Cache
03a8 00da | | Load_Top At_Offset_2
03a9 e5fe | | Load 0x2,-0x2
03aa e5ff | | Load 0x2,-0x1
03ab 0217 | | Execute Heap_Access,All_Reference
03ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03ad e5ff | | Load 0x2,-0x1
03ae 0217 | | Execute Heap_Access,All_Reference
03af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b0 e227 | ' | Load 0x1,0x27
03b1 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
03b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b3 00d1 | | Pop_Control Pop_Count_1
03b4 0059 | Y | Store_Top Discrete,At_Offset_1
03b5 00d8 | | Load_Top At_Offset_0
03b6 6812 |h | Jump_Zero 0x3c9
03b7 e5fb | | Load 0x2,-0x5
03b8 00da | | Load_Top At_Offset_2
03b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ba e5ff | | Load 0x2,-0x1
03bb e5fc | | Load 0x2,-0x4
03bc 8230 | 0 | Call 0x1,0x30
03bd e5fd | | Load 0x2,-0x3
03be e402 | | Load 0x2,0x2
03bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03c0 e5ff | | Load 0x2,-0x1
03c1 0217 | | Execute Heap_Access,All_Reference
03c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c3 e22a | * | Load 0x1,0x2a
03c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c5 e5fe | | Load 0x2,-0x2
03c6 822f | / | Call 0x1,0x2f
03c7 8231 | 1 | Call 0x1,0x31
03c8 4506 |E | Exit_Subprogram 0x6
03c9 e5fb | | Load 0x2,-0x5
03ca e5ff | | Load 0x2,-0x1
03cb 0217 | | Execute Heap_Access,All_Reference
03cc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03cd e5ff | | Load 0x2,-0x1
03ce e5fc | | Load 0x2,-0x4
03cf 8230 | 0 | Call 0x1,0x30
03d0 e5fd | | Load 0x2,-0x3
03d1 480a |H | Short_Literal 0xa
03d2 0092 09cd | | Action Push_String_Extended,0x9cd ; "SPARE_"
03d4 4820 |H | Short_Literal 0x20
03d5 4800 |H | Short_Literal 0x0
03d6 480a |H | Short_Literal 0xa
03d7 e5fe | | Load 0x2,-0x2
03d8 e017 | | Load 0x0,0x17
03d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03da 01cc | | Execute Vector,Catenate
03db 01cb | | Execute Vector,Append
03dc e5ff | | Load 0x2,-0x1
03dd 0217 | | Execute Heap_Access,All_Reference
03de 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03df 0217 | | Execute Heap_Access,All_Reference
03e0 01cc | | Execute Vector,Catenate
03e1 e5fe | | Load 0x2,-0x2
03e2 822f | / | Call 0x1,0x2f
03e3 e018 | | Load 0x0,0x18
03e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e5 4506 |E | Exit_Subprogram 0x6
03e6 0000 0000 | | .XXX[0x2]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f5 | | .CONST 0x03f5 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0004 | | .CONST 0x0004 ; Number of locals
03eb INIT_03e8:
03eb e5fb | | Load 0x2,-0x5
03ec e5fc | | Load 0x2,-0x4
03ed e5fd | | Load 0x2,-0x3
03ee e5ff | | Load 0x2,-0x1
03ef 821a | | Call 0x1,0x1a
03f0 00d8 | | Load_Top At_Offset_0
03f1 01dd | | Execute Vector,First
03f2 00e2 | | Load_Encached Integer_Cache
03f3 03f1 | | Declare_Variable Discrete,With_Value
03f4 00e2 | | Load_Encached Integer_Cache
03f5 BODY_03e8:
03f5 e5fa | | Load 0x2,-0x6
03f6 e5fe | | Load 0x2,-0x2
03f7 e5fb | | Load 0x2,-0x5
03f8 e5fc | | Load 0x2,-0x4
03f9 e5fd | | Load 0x2,-0x3
03fa e5ff | | Load 0x2,-0x1
03fb 821a | | Call 0x1,0x1a
03fc 8231 | 1 | Call 0x1,0x31
03fd 4507 |E | Exit_Subprogram 0x7
03fe 0000 0000 | | .XXX[0x2]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 480a |H | Short_Literal 0xa
0404 00db | | Load_Top At_Offset_3
0405 01cb | | Execute Vector,Append
0406 e5fe | | Load 0x2,-0x2
0407 01cc | | Execute Vector,Catenate
0408 4402 |D | Exit_Subprogram With_Result,0x2
0409 0000 0000 | | .BLANK 0000[0x7]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 4608 |F | Jump_Case 0x8
0414 7808 |x | Jump 0x41d ; case 0x0
0415 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0416 780d |x | Jump 0x424 ; case 0x2
0417 780c |x | Jump 0x424 ; case 0x3
0418 780b |x | Jump 0x424 ; case 0x4
0419 780a |x | Jump 0x424 ; case 0x5
041a 7809 |x | Jump 0x424 ; case 0x6
041b 7808 |x | Jump 0x424 ; case 0x7
041c 7807 |x | Jump 0x424 ; case 0x8
041d 00da | | Load_Top At_Offset_2
041e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
041f 0125 | % | Execute Any,Set_Constraint
0420 00da | | Load_Top At_Offset_2
0421 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0422 1c00 | | Execute_Immediate Run_Utility,0x0
0423 4302 |C | Exit_Subprogram From_Utility,0x2
0424 0869 | i | Execute_Immediate Raise,0x69
0425 0000 0000 | | .XXX[0x3]
0427 0000 | |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 4608 |F | Jump_Case 0x8
042c 7808 |x | Jump 0x435 ; case 0x0
042d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
042e 7813 |x | Jump 0x442 ; case 0x2
042f 7812 |x | Jump 0x442 ; case 0x3
0430 7811 |x | Jump 0x442 ; case 0x4
0431 7810 |x | Jump 0x442 ; case 0x5
0432 780f |x | Jump 0x442 ; case 0x6
0433 780e |x | Jump 0x442 ; case 0x7
0434 780d |x | Jump 0x442 ; case 0x8
0435 00da | | Load_Top At_Offset_2
0436 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0437 0125 | % | Execute Any,Set_Constraint
0438 00da | | Load_Top At_Offset_2
0439 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
043a 1c00 | | Execute_Immediate Run_Utility,0x0
043b 00da | | Load_Top At_Offset_2
043c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
043d 0125 | % | Execute Any,Set_Constraint
043e 00da | | Load_Top At_Offset_2
043f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0440 1c00 | | Execute_Immediate Run_Utility,0x0
0441 4302 |C | Exit_Subprogram From_Utility,0x2
0442 0869 | i | Execute_Immediate Raise,0x69
0443 0000 0000 | | .BLANK 0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 0217 | | Execute Heap_Access,All_Reference
044d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
044e 00d8 | | Load_Top At_Offset_0
044f 0120 | | Execute Any,Is_Value
0450 7002 |p | Jump_Nonzero 0x453
0451 00d8 | | Load_Top At_Offset_0
0452 011e | | Execute Any,Convert
0453 4401 |D | Exit_Subprogram With_Result,0x1
0454 0000 0000 | | .BLANK 0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 00da | | Load_Top At_Offset_2
045c 4401 |D | Exit_Subprogram With_Result,0x1
045d 0000 0000 | | .XXX[0x3]
045f 0000 | |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0469 | i | .CONST 0x0469 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0003 | | .CONST 0x0003 ; Number of locals
0463 INIT_0460:
0463 00e2 | | Load_Encached Integer_Cache
0464 00db | | Load_Top At_Offset_3
0465 01dd | | Execute Vector,First
0466 0aff | | Execute_Immediate Plus,-0x1
0467 00e2 | | Load_Encached Integer_Cache
0468 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0469 BODY_0460:
0469 00cf | | Action Mark_Auxiliary
046a e5fe | | Load 0x2,-0x2
046b 4801 |H | Short_Literal 0x1
046c 0263 | c | Execute Discrete,Above_Bound
046d 7015 |p | Jump_Nonzero 0x483
046e 00db | | Load_Top At_Offset_3
046f 0a01 | | Execute_Immediate Plus,0x1
0470 c402 | | Store 0x2,0x2
0471 4800 |H | Short_Literal 0x0
0472 e402 | | Load 0x2,0x2
0473 e5ff | | Load 0x2,-0x1
0474 01dc | | Execute Vector,Last
0475 e5ff | | Load 0x2,-0x1
0476 01cf | | Execute Vector,Slice_Read
0477 480a |H | Short_Literal 0xa
0478 e017 | | Load 0x0,0x17
0479 181e | | Execute Package,Field_Execute,Field_Number 0x1e
047a a403 | | Store_Unchecked 0x2,0x3
047b 00db | | Load_Top At_Offset_3
047c 7004 |p | Jump_Nonzero 0x481
047d e5ff | | Load 0x2,-0x1
047e 01dc | | Execute Vector,Last
047f 0a01 | | Execute_Immediate Plus,0x1
0480 c403 | | Store 0x2,0x3
0481 00c8 | | Action Pop_Auxiliary_Range
0482 3feb |? | Loop_Increasing 0x46e
0483 00ce | | Action Pop_Auxiliary
0484 00d9 | | Load_Top At_Offset_1
0485 00d9 | | Load_Top At_Offset_1
0486 0aff | | Execute_Immediate Plus,-0x1
0487 00d8 | | Load_Top At_Offset_0
0488 00e2 | | Load_Encached Integer_Cache
0489 0260 | ` | Execute Discrete,In_Type
048a 7001 |p | Jump_Nonzero 0x48c
048b 0801 | | Execute_Immediate Raise,0x1
048c e5ff | | Load 0x2,-0x1
048d 01cf | | Execute Vector,Slice_Read
048e 4402 |D | Exit_Subprogram With_Result,0x2
048f 0000 | | .XXX[0x1]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 049d | | .CONST 0x049d ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0004 | | .CONST 0x0004 ; Number of locals
0493 INIT_0490:
0493 4800 |H | Short_Literal 0x0
0494 e5fd | | Load 0x2,-0x3
0495 487e |H~ | Short_Literal 0x7e
0496 e017 | | Load 0x0,0x17
0497 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0498 00e2 | | Load_Encached Integer_Cache
0499 03f1 | | Declare_Variable Discrete,With_Value
049a 00e2 | | Load_Encached Integer_Cache
049b 029f 08b3 | | Declare_Subprogram For_Call,INIT_08b0
049d BODY_0490:
049d 00da | | Load_Top At_Offset_2
049e 0c01 | | Execute_Immediate Greater_Equal,0x1
049f 6841 |hA | Jump_Zero 0x4e1
04a0 4800 |H | Short_Literal 0x0
04a1 00db | | Load_Top At_Offset_3
04a2 0a01 | | Execute_Immediate Plus,0x1
04a3 00d8 | | Load_Top At_Offset_0
04a4 00e2 | | Load_Encached Integer_Cache
04a5 0260 | ` | Execute Discrete,In_Type
04a6 7001 |p | Jump_Nonzero 0x4a8
04a7 0801 | | Execute_Immediate Raise,0x1
04a8 e5fd | | Load 0x2,-0x3
04a9 01dc | | Execute Vector,Last
04aa e5fd | | Load 0x2,-0x3
04ab 01cf | | Execute Vector,Slice_Read
04ac 487e |H~ | Short_Literal 0x7e
04ad e017 | | Load 0x0,0x17
04ae 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04af 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
04b0 00d9 | | Load_Top At_Offset_1
04b1 0c01 | | Execute_Immediate Greater_Equal,0x1
04b2 682e |h. | Jump_Zero 0x4e1
04b3 e5fd | | Load 0x2,-0x3
04b4 01dd | | Execute Vector,First
04b5 00db | | Load_Top At_Offset_3
04b6 0aff | | Execute_Immediate Plus,-0x1
04b7 00d8 | | Load_Top At_Offset_0
04b8 00e2 | | Load_Encached Integer_Cache
04b9 0260 | ` | Execute Discrete,In_Type
04ba 7001 |p | Jump_Nonzero 0x4bc
04bb 0801 | | Execute_Immediate Raise,0x1
04bc e5fd | | Load 0x2,-0x3
04bd 01cf | | Execute Vector,Slice_Read
04be 00db | | Load_Top At_Offset_3
04bf 0a01 | | Execute_Immediate Plus,0x1
04c0 00d8 | | Load_Top At_Offset_0
04c1 00e2 | | Load_Encached Integer_Cache
04c2 0260 | ` | Execute Discrete,In_Type
04c3 7001 |p | Jump_Nonzero 0x4c5
04c4 0801 | | Execute_Immediate Raise,0x1
04c5 00db | | Load_Top At_Offset_3
04c6 0aff | | Execute_Immediate Plus,-0x1
04c7 00d8 | | Load_Top At_Offset_0
04c8 00e2 | | Load_Encached Integer_Cache
04c9 0260 | ` | Execute Discrete,In_Type
04ca 7001 |p | Jump_Nonzero 0x4cc
04cb 0801 | | Execute_Immediate Raise,0x1
04cc e5fd | | Load 0x2,-0x3
04cd 01cf | | Execute Vector,Slice_Read
04ce 8404 | | Call 0x2,0x4
04cf 01cc | | Execute Vector,Catenate
04d0 e5fc | | Load 0x2,-0x4
04d1 00db | | Load_Top At_Offset_3
04d2 0a01 | | Execute_Immediate Plus,0x1
04d3 00d8 | | Load_Top At_Offset_0
04d4 00e2 | | Load_Encached Integer_Cache
04d5 0260 | ` | Execute Discrete,In_Type
04d6 7001 |p | Jump_Nonzero 0x4d8
04d7 0801 | | Execute_Immediate Raise,0x1
04d8 e5fd | | Load 0x2,-0x3
04d9 01dc | | Execute Vector,Last
04da e5fd | | Load 0x2,-0x3
04db 01cf | | Execute Vector,Slice_Read
04dc e5fe | | Load 0x2,-0x2
04dd e5ff | | Load 0x2,-0x1
04de 822e | . | Call 0x1,0x2e
04df 01cc | | Execute Vector,Catenate
04e0 4404 |D | Exit_Subprogram With_Result,0x4
04e1 e5fd | | Load 0x2,-0x3
04e2 4404 |D | Exit_Subprogram With_Result,0x4
04e3 0000 0000 | | .BLANK 0000[0x5]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f3 | | .CONST 0x04f3 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0002 | | .CONST 0x0002 ; Number of locals
04eb INIT_04e8:
04eb e5fc | | Load 0x2,-0x4
04ec 00d8 | | Load_Top At_Offset_0
04ed 00e4 | | Load_Encached Positive_Cache
04ee 0260 | ` | Execute Discrete,In_Type
04ef 7001 |p | Jump_Nonzero 0x4f1
04f0 0801 | | Execute_Immediate Raise,0x1
04f1 e5fe | | Load 0x2,-0x2
04f2 822d | - | Call 0x1,0x2d
04f3 BODY_04e8:
04f3 00d8 | | Load_Top At_Offset_0
04f4 01db | | Execute Vector,Length
04f5 7008 |p | Jump_Nonzero 0x4fe
04f6 e211 | | Load 0x1,0x11
04f7 e5fc | | Load 0x2,-0x4
04f8 0267 | g | Execute Discrete,Predecessor
04f9 e5fd | | Load 0x2,-0x3
04fa e5fe | | Load 0x2,-0x2
04fb e5ff | | Load 0x2,-0x1
04fc 822f | / | Call 0x1,0x2f
04fd 4404 |D | Exit_Subprogram With_Result,0x4
04fe e5fd | | Load 0x2,-0x3
04ff 00d9 | | Load_Top At_Offset_1
0500 4801 |H | Short_Literal 0x1
0501 e5fe | | Load 0x2,-0x2
0502 822d | - | Call 0x1,0x2d
0503 e5ff | | Load 0x2,-0x1
0504 822e | . | Call 0x1,0x2e
0505 4404 |D | Exit_Subprogram With_Result,0x4
0506 0000 0000 | | .XXX[0x2]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c 7004 |p | Jump_Nonzero 0x511
050d 00db | | Load_Top At_Offset_3
050e 0217 | | Execute Heap_Access,All_Reference
050f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0510 4402 |D | Exit_Subprogram With_Result,0x2
0511 00da | | Load_Top At_Offset_2
0512 4402 |D | Exit_Subprogram With_Result,0x2
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0520 | | .CONST 0x0520 ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0003 | | .CONST 0x0003 ; Number of locals
051b INIT_0518:
051b 00da | | Load_Top At_Offset_2
051c 01dd | | Execute Vector,First
051d 00e2 | | Load_Encached Integer_Cache
051e 03f1 | | Declare_Variable Discrete,With_Value
051f 00e2 | | Load_Encached Integer_Cache
0520 BODY_0518:
0520 00cf | | Action Mark_Auxiliary
0521 4800 |H | Short_Literal 0x0
0522 00db | | Load_Top At_Offset_3
0523 e5ff | | Load 0x2,-0x1
0524 01dc | | Execute Vector,Last
0525 e5ff | | Load 0x2,-0x1
0526 01cf | | Execute Vector,Slice_Read
0527 480a |H | Short_Literal 0xa
0528 e017 | | Load 0x0,0x17
0529 181e | | Execute Package,Field_Execute,Field_Number 0x1e
052a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
052b 00d9 | | Load_Top At_Offset_1
052c 6813 |h | Jump_Zero 0x540
052d e5fd | | Load 0x2,-0x3
052e e5fe | | Load 0x2,-0x2
052f e402 | | Load 0x2,0x2
0530 e403 | | Load 0x2,0x3
0531 0aff | | Execute_Immediate Plus,-0x1
0532 00d8 | | Load_Top At_Offset_0
0533 00e2 | | Load_Encached Integer_Cache
0534 0260 | ` | Execute Discrete,In_Type
0535 7001 |p | Jump_Nonzero 0x537
0536 0801 | | Execute_Immediate Raise,0x1
0537 e5ff | | Load 0x2,-0x1
0538 01cf | | Execute Vector,Slice_Read
0539 e018 | | Load 0x0,0x18
053a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
053b 00d9 | | Load_Top At_Offset_1
053c 0a01 | | Execute_Immediate Plus,0x1
053d 005b | [ | Store_Top Discrete,At_Offset_3
053e 00c9 | | Action Pop_Auxiliary_Loop
053f 7fe1 | | Jump 0x521
0540 00ce | | Action Pop_Auxiliary
0541 e5fd | | Load 0x2,-0x3
0542 e5fe | | Load 0x2,-0x2
0543 00db | | Load_Top At_Offset_3
0544 e5ff | | Load 0x2,-0x1
0545 01dc | | Execute Vector,Last
0546 e5ff | | Load 0x2,-0x1
0547 01cf | | Execute Vector,Slice_Read
0548 e018 | | Load 0x0,0x18
0549 1813 | | Execute Package,Field_Execute,Field_Number 0x13
054a 4504 |E | Exit_Subprogram 0x4
054b 0000 0000 | | .BLANK 0000[0x5]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 056b | k | .CONST 0x056b ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0006 | | .CONST 0x0006 ; Number of locals
0553 INIT_0550:
0553 e019 | | Load 0x0,0x19
0554 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0555 02c7 | | Declare_Variable Any
0556 00d8 | | Load_Top At_Offset_0
0557 1c00 | | Execute_Immediate Run_Utility,0x0
0558 e013 | | Load 0x0,0x13
0559 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
055a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
055b 02c7 | | Declare_Variable Any
055c 00d8 | | Load_Top At_Offset_0
055d 1c00 | | Execute_Immediate Run_Utility,0x0
055e e013 | | Load 0x0,0x13
055f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0560 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0561 02c7 | | Declare_Variable Any
0562 00d8 | | Load_Top At_Offset_0
0563 1c00 | | Execute_Immediate Run_Utility,0x0
0564 e013 | | Load 0x0,0x13
0565 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0566 e013 | | Load 0x0,0x13
0567 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0568 02ff | | Declare_Variable Variant_Record
0569 00d8 | | Load_Top At_Offset_0
056a 1c00 | | Execute_Immediate Run_Utility,0x0
056b BODY_0550:
056b e002 | | Load 0x0,0x2
056c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
056d e5fd | | Load 0x2,-0x3
056e 4800 |H | Short_Literal 0x0
056f 607c |`| | Indirect_Literal Discrete,0x5ec,{0x00000000, 0x00004000}
0570 e014 | | Load 0x0,0x14
0571 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0572 e015 | | Load 0x0,0x15
0573 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0574 e002 | | Load 0x0,0x2
0575 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0576 4800 |H | Short_Literal 0x0
0577 e5fe | | Load 0x2,-0x2
0578 e5ff | | Load 0x2,-0x1
0579 e002 | | Load 0x0,0x2
057a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
057b c5fd | | Store 0x2,-0x3
057c 005a | Z | Store_Top Discrete,At_Offset_2
057d 00d9 | | Load_Top At_Offset_1
057e 460e |F | Jump_Case 0xe
057f 7810 |x | Jump 0x590 ; case 0x0
0580 780d |x | Jump 0x58e ; case 0x1
0581 780c |x | Jump 0x58e ; case 0x2
0582 780b |x | Jump 0x58e ; case 0x3
0583 780a |x | Jump 0x58e ; case 0x4
0584 7809 |x | Jump 0x58e ; case 0x5
0585 7808 |x | Jump 0x58e ; case 0x6
0586 7807 |x | Jump 0x58e ; case 0x7
0587 7806 |x | Jump 0x58e ; case 0x8
0588 7810 |x | Jump 0x599 ; case 0x9
0589 7804 |x | Jump 0x58e ; case 0xa
058a 7803 |x | Jump 0x58e ; case 0xb
058b 7802 |x | Jump 0x58e ; case 0xc
058c 7801 |x | Jump 0x58e ; case 0xd
058d 7800 |x | Jump 0x58e ; case 0xe
058e 4940 |I@ | Short_Literal 0x140
058f 0257 | W | Execute Discrete,Raise
0590 e5ff | | Load 0x2,-0x1
0591 0f02 | | Execute_Immediate Equal,0x2
0592 6805 |h | Jump_Zero 0x598
0593 e002 | | Load 0x0,0x2
0594 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0595 e5fd | | Load 0x2,-0x3
0596 e002 | | Load 0x0,0x2
0597 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0598 4503 |E | Exit_Subprogram 0x3
0599 e013 | | Load 0x0,0x13
059a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059b 00db | | Load_Top At_Offset_3
059c 0120 | | Execute Any,Is_Value
059d 6802 |h | Jump_Zero 0x5a0
059e 00f1 | | Load_Encached Diana_Temp_Seq
059f 7801 |x | Jump 0x5a1
05a0 00db | | Load_Top At_Offset_3
05a1 e403 | | Load 0x2,0x3
05a2 0120 | | Execute Any,Is_Value
05a3 6804 |h | Jump_Zero 0x5a8
05a4 e013 | | Load 0x0,0x13
05a5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
05a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05a7 7801 |x | Jump 0x5a9
05a8 e403 | | Load 0x2,0x3
05a9 e402 | | Load 0x2,0x2
05aa 0120 | | Execute Any,Is_Value
05ab 6803 |h | Jump_Zero 0x5af
05ac e019 | | Load 0x0,0x19
05ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ae 7801 |x | Jump 0x5b0
05af e402 | | Load 0x2,0x2
05b0 e406 | | Load 0x2,0x6
05b1 603a |`: | Indirect_Literal Discrete,0x5ec,{0x00000000, 0x00004000}
05b2 e014 | | Load 0x0,0x14
05b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b4 4800 |H | Short_Literal 0x0
05b5 e013 | | Load 0x0,0x13
05b6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
05b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b8 e013 | | Load 0x0,0x13
05b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05ba 602d |`- | Indirect_Literal Discrete,0x5e8,{0x00000000, 0x7fffffff}
05bb 4ffc |O | Short_Literal 0x7fc
05bc 4ffd |O | Short_Literal 0x7fd
05bd e015 | | Load 0x0,0x15
05be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05bf e013 | | Load 0x0,0x13
05c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05c2 e013 | | Load 0x0,0x13
05c3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05c4 e002 | | Load 0x0,0x2
05c5 180f | | Execute Package,Field_Execute,Field_Number 0xf
05c6 e5fe | | Load 0x2,-0x2
05c7 e013 | | Load 0x0,0x13
05c8 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
05c9 180f | | Execute Package,Field_Execute,Field_Number 0xf
05ca 00d1 | | Pop_Control Pop_Count_1
05cb c402 | | Store 0x2,0x2
05cc c403 | | Store 0x2,0x3
05cd c404 | | Store 0x2,0x4
05ce 005a | Z | Store_Top Discrete,At_Offset_2
05cf 00d9 | | Load_Top At_Offset_1
05d0 6802 |h | Jump_Zero 0x5d3
05d1 4920 |I | Short_Literal 0x120
05d2 0257 | W | Execute Discrete,Raise
05d3 e002 | | Load 0x0,0x2
05d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05d5 00d9 | | Load_Top At_Offset_1
05d6 e5fd | | Load 0x2,-0x3
05d7 4800 |H | Short_Literal 0x0
05d8 6013 |` | Indirect_Literal Discrete,0x5ec,{0x00000000, 0x00004000}
05d9 e014 | | Load 0x0,0x14
05da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05db e5ff | | Load 0x2,-0x1
05dc e002 | | Load 0x0,0x2
05dd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
05de c5fd | | Store 0x2,-0x3
05df 00d1 | | Pop_Control Pop_Count_1
05e0 005a | Z | Store_Top Discrete,At_Offset_2
05e1 00d9 | | Load_Top At_Offset_1
05e2 6802 |h | Jump_Zero 0x5e5
05e3 4940 |I@ | Short_Literal 0x140
05e4 0257 | W | Execute Discrete,Raise
05e5 4503 |E | Exit_Subprogram 0x3
05e6 0000 0000 | | .XXX[0x2]
05e8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
05ec 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 05fa | | .CONST 0x05fa ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 4820 |H | Short_Literal 0x20
05f4 00db | | Load_Top At_Offset_3
05f5 e01a | | Load 0x0,0x1a
05f6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
05f7 e017 | | Load 0x0,0x17
05f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05f9 4401 |D | Exit_Subprogram With_Result,0x1
05fa TRAP_05f0:
05fa 00d8 | | Load_Top At_Offset_0
05fb 0107 | | Execute Exception,Get_Name
05fc 4950 |IP | Short_Literal 0x150
05fd 495f |I_ | Short_Literal 0x15f
05fe 0262 | b | Execute Discrete,In_Range
05ff 6802 |h | Jump_Zero 0x602
0600 00ea | | Load_Encached Null_String_Cache
0601 4401 |D | Exit_Subprogram With_Result,0x1
0602 0100 | | Execute Exception,Raise
0603 0000 0000 | | .BLANK 0000[0x5]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0611 | | .CONST 0x0611 ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0002 | | .CONST 0x0002 ; Number of locals
060b INIT_0608:
060b 4820 |H | Short_Literal 0x20
060c 00db | | Load_Top At_Offset_3
060d e01a | | Load 0x0,0x1a
060e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
060f e017 | | Load 0x0,0x17
0610 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0611 BODY_0608:
0611 00d8 | | Load_Top At_Offset_0
0612 01db | | Execute Vector,Length
0613 6802 |h | Jump_Zero 0x616
0614 00d8 | | Load_Top At_Offset_0
0615 4401 |D | Exit_Subprogram With_Result,0x1
0616 00db | | Load_Top At_Offset_3
0617 8234 | 4 | Call 0x1,0x34
0618 4401 |D | Exit_Subprogram With_Result,0x1
0619 0000 0000 | | .BLANK 0000[0x7]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0629 | ) | .CONST 0x0629 ; 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 00db | | Load_Top At_Offset_3
0625 01dd | | Execute Vector,First
0626 0aff | | Execute_Immediate Plus,-0x1
0627 00e2 | | Load_Encached Integer_Cache
0628 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0629 BODY_0620:
0629 00cf | | Action Mark_Auxiliary
062a e5fe | | Load 0x2,-0x2
062b 4801 |H | Short_Literal 0x1
062c 0263 | c | Execute Discrete,Above_Bound
062d 7026 |p& | Jump_Nonzero 0x654
062e 00db | | Load_Top At_Offset_3
062f 0a01 | | Execute_Immediate Plus,0x1
0630 c402 | | Store 0x2,0x2
0631 00cf | | Action Mark_Auxiliary
0632 7804 |x | Jump 0x637
0633 e402 | | Load 0x2,0x2
0634 0a01 | | Execute_Immediate Plus,0x1
0635 c402 | | Store 0x2,0x2
0636 00c9 | | Action Pop_Auxiliary_Loop
0637 e402 | | Load 0x2,0x2
0638 e5ff | | Load 0x2,-0x1
0639 01dc | | Execute Vector,Last
063a 027a | z | Execute Discrete,Less_Equal
063b 6805 |h | Jump_Zero 0x641
063c e402 | | Load 0x2,0x2
063d e5ff | | Load 0x2,-0x1
063e 01d7 | | Execute Vector,Field_Read
063f 0f20 | | Execute_Immediate Equal,0x20
0640 77f2 |w | Jump_Nonzero 0x633
0641 00ce | | Action Pop_Auxiliary
0642 4800 |H | Short_Literal 0x0
0643 e402 | | Load 0x2,0x2
0644 e5ff | | Load 0x2,-0x1
0645 01dc | | Execute Vector,Last
0646 e5ff | | Load 0x2,-0x1
0647 01cf | | Execute Vector,Slice_Read
0648 4820 |H | Short_Literal 0x20
0649 e017 | | Load 0x0,0x17
064a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
064b a403 | | Store_Unchecked 0x2,0x3
064c 00db | | Load_Top At_Offset_3
064d 7004 |p | Jump_Nonzero 0x652
064e e5ff | | Load 0x2,-0x1
064f 01dc | | Execute Vector,Last
0650 0a01 | | Execute_Immediate Plus,0x1
0651 c403 | | Store 0x2,0x3
0652 00c8 | | Action Pop_Auxiliary_Range
0653 3fda |? | Loop_Increasing 0x62e
0654 00ce | | Action Pop_Auxiliary
0655 00d9 | | Load_Top At_Offset_1
0656 00d9 | | Load_Top At_Offset_1
0657 0aff | | Execute_Immediate Plus,-0x1
0658 00d8 | | Load_Top At_Offset_0
0659 00e2 | | Load_Encached Integer_Cache
065a 0260 | ` | Execute Discrete,In_Type
065b 7001 |p | Jump_Nonzero 0x65d
065c 0801 | | Execute_Immediate Raise,0x1
065d e5ff | | Load 0x2,-0x1
065e 01cf | | Execute Vector,Slice_Read
065f 4402 |D | Exit_Subprogram With_Result,0x2
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0670 | p | .CONST 0x0670 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0006 | | .CONST 0x0006 ; Number of locals
0663 INIT_0660:
0663 4802 |H | Short_Literal 0x2
0664 00db | | Load_Top At_Offset_3
0665 8235 | 5 | Call 0x1,0x35
0666 e017 | | Load 0x0,0x17
0667 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0668 e001 | | Load 0x0,0x1
0669 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
066a 00e1 | | Load_Encached Boolean_Cache
066b 03e9 | | Declare_Variable Discrete,Duplicate
066c 4820 |H | Short_Literal 0x20
066d e602 | | Load 0x3,0x2
066e 01cb | | Execute Vector,Append
066f 0007 | | Action Break_Optional
0670 BODY_0660:
0670 e602 | | Load 0x3,0x2
0671 01db | | Execute Vector,Length
0672 7002 |p | Jump_Nonzero 0x675
0673 4807 |H | Short_Literal 0x7
0674 4401 |D | Exit_Subprogram With_Result,0x1
0675 e602 | | Load 0x3,0x2
0676 01dd | | Execute Vector,First
0677 e602 | | Load 0x3,0x2
0678 01d7 | | Execute Vector,Field_Read
0679 4841 |HA | Short_Literal 0x41
067a 485a |HZ | Short_Literal 0x5a
067b 0262 | b | Execute Discrete,In_Range
067c 6810 |h | Jump_Zero 0x68d
067d 00e1 | | Load_Encached Boolean_Cache
067e 00e1 | | Load_Encached Boolean_Cache
067f e22c | , | Load 0x1,0x2c
0680 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0681 e602 | | Load 0x3,0x2
0682 e22c | , | Load 0x1,0x2c
0683 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0684 c603 | | Store 0x3,0x3
0685 c604 | | Store 0x3,0x4
0686 005a | Z | Store_Top Discrete,At_Offset_2
0687 00da | | Load_Top At_Offset_2
0688 6814 |h | Jump_Zero 0x69d
0689 00d9 | | Load_Top At_Offset_1
068a 6812 |h | Jump_Zero 0x69d
068b 00db | | Load_Top At_Offset_3
068c 4401 |D | Exit_Subprogram With_Result,0x1
068d 00cf | | Action Mark_Auxiliary
068e e001 | | Load 0x0,0x1
068f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0690 0265 | e | Execute Discrete,Reverse_Bounds
0691 0007 | | Action Break_Optional
0692 00d8 | | Load_Top At_Offset_0
0693 e018 | | Load 0x0,0x18
0694 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0695 e606 | | Load 0x3,0x6
0696 01df | | Execute Vector,Equal
0697 6802 |h | Jump_Zero 0x69a
0698 00d8 | | Load_Top At_Offset_0
0699 4401 |D | Exit_Subprogram With_Result,0x1
069a 00c8 | | Action Pop_Auxiliary_Range
069b 3ff6 |? | Loop_Increasing 0x692
069c 00ce | | Action Pop_Auxiliary
069d 4800 |H | Short_Literal 0x0
069e e602 | | Load 0x3,0x2
069f e7ff | | Load 0x3,-0x1
06a0 821d | | Call 0x1,0x1d
06a1 4817 |H | Short_Literal 0x17
06a2 e403 | | Load 0x2,0x3
06a3 821b | | Call 0x1,0x1b
06a4 4807 |H | Short_Literal 0x7
06a5 4401 |D | Exit_Subprogram With_Result,0x1
06a6 0000 0000 | | .XXX[0x2]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ae | | .CONST 0x06ae ; Address of begin
06a9 06bd | | .CONST 0x06bd ; Address of exception handler
06aa 0002 | | .CONST 0x0002 ; Number of locals
06ab INIT_06a8:
06ab 4803 |H | Short_Literal 0x3
06ac 00db | | Load_Top At_Offset_3
06ad 8235 | 5 | Call 0x1,0x35
06ae BODY_06a8:
06ae 00d8 | | Load_Top At_Offset_0
06af 01db | | Execute Vector,Length
06b0 680a |h | Jump_Zero 0x6bb
06b1 00d8 | | Load_Top At_Offset_0
06b2 00e2 | | Load_Encached Integer_Cache
06b3 00e0 | | Load_Encached Standard_Cache
06b4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06b5 00d8 | | Load_Top At_Offset_0
06b6 e221 | ! | Load 0x1,0x21
06b7 0260 | ` | Execute Discrete,In_Type
06b8 7001 |p | Jump_Nonzero 0x6ba
06b9 0801 | | Execute_Immediate Raise,0x1
06ba 4401 |D | Exit_Subprogram With_Result,0x1
06bb 4801 |H | Short_Literal 0x1
06bc 4401 |D | Exit_Subprogram With_Result,0x1
06bd TRAP_06a8:
06bd 0007 | | Action Break_Optional
06be 4800 |H | Short_Literal 0x0
06bf 00da | | Load_Top At_Offset_2
06c0 e7ff | | Load 0x3,-0x1
06c1 821d | | Call 0x1,0x1d
06c2 4818 |H | Short_Literal 0x18
06c3 e403 | | Load 0x2,0x3
06c4 821b | | Call 0x1,0x1b
06c5 4801 |H | Short_Literal 0x1
06c6 4401 |D | Exit_Subprogram With_Result,0x1
06c7 0000 | | .XXX[0x1]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cd | | .CONST 0x06cd ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0002 | | .CONST 0x0002 ; Number of locals
06cb INIT_06c8:
06cb 00da | | Load_Top At_Offset_2
06cc 8233 | 3 | Call 0x1,0x33
06cd BODY_06c8:
06cd 00d8 | | Load_Top At_Offset_0
06ce 01db | | Execute Vector,Length
06cf 7002 |p | Jump_Nonzero 0x6d2
06d0 00ea | | Load_Encached Null_String_Cache
06d1 4401 |D | Exit_Subprogram With_Result,0x1
06d2 4820 |H | Short_Literal 0x20
06d3 00d9 | | Load_Top At_Offset_1
06d4 01cb | | Execute Vector,Append
06d5 e7ff | | Load 0x3,-0x1
06d6 840c | | Call 0x2,0xc
06d7 01cc | | Execute Vector,Catenate
06d8 4401 |D | Exit_Subprogram With_Result,0x1
06d9 0000 0000 | | .BLANK 0000[0x7]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06ee | | .CONST 0x06ee ; Address of begin
06e1 0708 | | .CONST 0x0708 ; Address of exception handler
06e2 0004 | | .CONST 0x0004 ; Number of locals
06e3 INIT_06e0:
06e3 e01a | | Load 0x0,0x1a
06e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06e5 02c7 | | Declare_Variable Any
06e6 00d8 | | Load_Top At_Offset_0
06e7 1c00 | | Execute_Immediate Run_Utility,0x0
06e8 e223 | # | Load 0x1,0x23
06e9 0322 | " | Declare_Variable Record
06ea 00d8 | | Load_Top At_Offset_0
06eb 1c00 | | Execute_Immediate Run_Utility,0x0
06ec 029f 096b | k| Declare_Subprogram For_Call,INIT_0968
06ee BODY_06e0:
06ee 4800 |H | Short_Literal 0x0
06ef e7ff | | Load 0x3,-0x1
06f0 4819 |H | Short_Literal 0x19
06f1 e403 | | Load 0x2,0x3
06f2 821b | | Call 0x1,0x1b
06f3 00da | | Load_Top At_Offset_2
06f4 00ea | | Load_Encached Null_String_Cache
06f5 e7ff | | Load 0x3,-0x1
06f6 4800 |H | Short_Literal 0x0
06f7 e01a | | Load 0x0,0x1a
06f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06f9 c602 | | Store 0x3,0x2
06fa 00cf | | Action Mark_Auxiliary
06fb 7802 |x | Jump 0x6fe
06fc 8604 | | Call 0x3,0x4
06fd 00c9 | | Action Pop_Auxiliary_Loop
06fe 00db | | Load_Top At_Offset_3
06ff e01a | | Load 0x0,0x1a
0700 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0701 6ffa |o | Jump_Zero 0x6fc
0702 00ce | | Action Pop_Auxiliary
0703 00da | | Load_Top At_Offset_2
0704 e01a | | Load 0x0,0x1a
0705 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0706 c602 | | Store 0x3,0x2
0707 4502 |E | Exit_Subprogram 0x2
0708 TRAP_06e0:
0708 00d8 | | Load_Top At_Offset_0
0709 0107 | | Execute Exception,Get_Name
070a 4950 |IP | Short_Literal 0x150
070b 495f |I_ | Short_Literal 0x15f
070c 0262 | b | Execute Discrete,In_Range
070d 6805 |h | Jump_Zero 0x713
070e 00db | | Load_Top At_Offset_3
070f e01a | | Load 0x0,0x1a
0710 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0711 c602 | | Store 0x3,0x2
0712 4502 |E | Exit_Subprogram 0x2
0713 4800 |H | Short_Literal 0x0
0714 e7ff | | Load 0x3,-0x1
0715 481b |H | Short_Literal 0x1b
0716 e403 | | Load 0x2,0x3
0717 821b | | Call 0x1,0x1b
0718 4502 |E | Exit_Subprogram 0x2
0719 0000 0000 | | .BLANK 0000[0x7]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0741 | A | .CONST 0x0741 ; Address of begin
0721 07aa | | .CONST 0x07aa ; Address of exception handler
0722 0008 | | .CONST 0x0008 ; Number of locals
0723 INIT_0720:
0723 00ee | | Load_Encached Diana_Seq_Type_Cache
0724 02c7 | | Declare_Variable Any
0725 00db | | Load_Top At_Offset_3
0726 00eb | | Load_Encached Diana_Cache
0727 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
0728 00eb | | Load_Encached Diana_Cache
0729 1888 | | Execute Package,Field_Execute,Field_Number 0x88
072a a602 | | Store_Unchecked 0x3,0x2
072b 00eb | | Load_Encached Diana_Cache
072c 1b96 | | Execute Package,Field_Read,Field_Number 0x96
072d 02c7 | | Declare_Variable Any
072e e7ff | | Load 0x3,-0x1
072f 00eb | | Load_Encached Diana_Cache
0730 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
0731 00eb | | Load_Encached Diana_Cache
0732 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
0733 a603 | | Store_Unchecked 0x3,0x3
0734 00ec | | Load_Encached Diana_Tree_Cache
0735 02c7 | | Declare_Variable Any
0736 00d8 | | Load_Top At_Offset_0
0737 1c00 | | Execute_Immediate Run_Utility,0x0
0738 e223 | # | Load 0x1,0x23
0739 0322 | " | Declare_Variable Record
073a 00d8 | | Load_Top At_Offset_0
073b 1c00 | | Execute_Immediate Run_Utility,0x0
073c e210 | | Load 0x1,0x10
073d 0007 | | Action Break_Optional
073e 00e1 | | Load_Encached Boolean_Cache
073f 029f 09bb | | Declare_Subprogram For_Call,INIT_09b8
0741 BODY_0720:
0741 e603 | | Load 0x3,0x3
0742 00eb | | Load_Encached Diana_Cache
0743 189f | | Execute Package,Field_Execute,Field_Number 0x9f
0744 00d8 | | Load_Top At_Offset_0
0745 e210 | | Load 0x1,0x10
0746 0260 | ` | Execute Discrete,In_Type
0747 7001 |p | Jump_Nonzero 0x749
0748 0801 | | Execute_Immediate Raise,0x1
0749 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
074a 00cf | | Action Mark_Auxiliary
074b 785b |x[ | Jump 0x7a7
074c e602 | | Load 0x3,0x2
074d 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
074e c604 | | Store 0x3,0x4
074f e602 | | Load 0x3,0x2
0750 0217 | | Execute Heap_Access,All_Reference
0751 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0752 c602 | | Store 0x3,0x2
0753 00e1 | | Load_Encached Boolean_Cache
0754 e605 | | Load 0x3,0x5
0755 e606 | | Load 0x3,0x6
0756 e402 | | Load 0x2,0x2
0757 0217 | | Execute Heap_Access,All_Reference
0758 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0759 e402 | | Load 0x2,0x2
075a 0217 | | Execute Heap_Access,All_Reference
075b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
075c e227 | ' | Load 0x1,0x27
075d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
075e 180e | | Execute Package,Field_Execute,Field_Number 0xe
075f 00d1 | | Pop_Control Pop_Count_1
0760 005b | [ | Store_Top Discrete,At_Offset_3
0761 00da | | Load_Top At_Offset_2
0762 6814 |h | Jump_Zero 0x777
0763 4800 |H | Short_Literal 0x0
0764 4801 |H | Short_Literal 0x1
0765 e605 | | Load 0x3,0x5
0766 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0767 e402 | | Load 0x2,0x2
0768 0217 | | Execute Heap_Access,All_Reference
0769 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
076a e22a | * | Load 0x1,0x2a
076b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
076c 822d | - | Call 0x1,0x2d
076d e604 | | Load 0x3,0x4
076e e013 | | Load 0x0,0x13
076f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0770 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0771 821d | | Call 0x1,0x1d
0772 481c |H | Short_Literal 0x1c
0773 e403 | | Load 0x2,0x3
0774 821b | | Call 0x1,0x1b
0775 8608 | | Call 0x3,0x8
0776 782f |x/ | Jump 0x7a6
0777 00e1 | | Load_Encached Boolean_Cache
0778 e605 | | Load 0x3,0x5
0779 e604 | | Load 0x3,0x4
077a 00eb | | Load_Encached Diana_Cache
077b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
077c 00eb | | Load_Encached Diana_Cache
077d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
077e e405 | | Load 0x2,0x5
077f e228 | ( | Load 0x1,0x28
0780 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0781 00d1 | | Pop_Control Pop_Count_1
0782 005b | [ | Store_Top Discrete,At_Offset_3
0783 00da | | Load_Top At_Offset_2
0784 6819 |h | Jump_Zero 0x79e
0785 4800 |H | Short_Literal 0x0
0786 e605 | | Load 0x3,0x5
0787 e606 | | Load 0x3,0x6
0788 e402 | | Load 0x2,0x2
0789 0217 | | Execute Heap_Access,All_Reference
078a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
078b e402 | | Load 0x2,0x2
078c 0217 | | Execute Heap_Access,All_Reference
078d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
078e e227 | ' | Load 0x1,0x27
078f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0790 180f | | Execute Package,Field_Execute,Field_Number 0xf
0791 e404 | | Load 0x2,0x4
0792 0a01 | | Execute_Immediate Plus,0x1
0793 c404 | | Store 0x2,0x4
0794 e405 | | Load 0x2,0x5
0795 e604 | | Load 0x3,0x4
0796 00eb | | Load_Encached Diana_Cache
0797 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0798 00eb | | Load_Encached Diana_Cache
0799 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
079a e228 | ( | Load 0x1,0x28
079b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
079c c405 | | Store 0x2,0x5
079d 7808 |x | Jump 0x7a6
079e 4800 |H | Short_Literal 0x0
079f e604 | | Load 0x3,0x4
07a0 e013 | | Load 0x0,0x13
07a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07a2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
07a3 481e |H | Short_Literal 0x1e
07a4 e403 | | Load 0x2,0x3
07a5 821b | | Call 0x1,0x1b
07a6 00c9 | | Action Pop_Auxiliary_Loop
07a7 e602 | | Load 0x3,0x2
07a8 77a3 |w | Jump_Nonzero 0x74c
07a9 4502 |E | Exit_Subprogram 0x2
07aa TRAP_0720:
07aa 010e | | Execute Exception,Is_Constraint_Error
07ab 7002 |p | Jump_Nonzero 0x7ae
07ac 010d | | Execute Exception,Is_Numeric_Error
07ad 6809 |h | Jump_Zero 0x7b7
07ae 4800 |H | Short_Literal 0x0
07af e7ff | | Load 0x3,-0x1
07b0 e013 | | Load 0x0,0x13
07b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07b2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
07b3 481d |H | Short_Literal 0x1d
07b4 e403 | | Load 0x2,0x3
07b5 821b | | Call 0x1,0x1b
07b6 4502 |E | Exit_Subprogram 0x2
07b7 0100 | | Execute Exception,Raise
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07d4 | | .CONST 0x07d4 ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0009 | | .CONST 0x0009 ; Number of locals
07bb INIT_07b8:
07bb e013 | | Load 0x0,0x13
07bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
07bd 02ff | | Declare_Variable Variant_Record
07be 00d8 | | Load_Top At_Offset_0
07bf 1c00 | | Execute_Immediate Run_Utility,0x0
07c0 e01b | | Load 0x0,0x1b
07c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c2 02c7 | | Declare_Variable Any
07c3 00d8 | | Load_Top At_Offset_0
07c4 1c00 | | Execute_Immediate Run_Utility,0x0
07c5 e013 | | Load 0x0,0x13
07c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c7 00ec | | Load_Encached Diana_Tree_Cache
07c8 02c7 | | Declare_Variable Any
07c9 00d8 | | Load_Top At_Offset_0
07ca 1c00 | | Execute_Immediate Run_Utility,0x0
07cb e01b | | Load 0x0,0x1b
07cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
07cd 0322 | " | Declare_Variable Record
07ce 00e3 | | Load_Encached Natural_Cache
07cf 00e3 | | Load_Encached Natural_Cache
07d0 00ee | | Load_Encached Diana_Seq_Type_Cache
07d1 02c7 | | Declare_Variable Any
07d2 00d8 | | Load_Top At_Offset_0
07d3 1c00 | | Execute_Immediate Run_Utility,0x0
07d4 BODY_07b8:
07d4 4800 |H | Short_Literal 0x0
07d5 e7ff | | Load 0x3,-0x1
07d6 e013 | | Load 0x0,0x13
07d7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07d8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07d9 4813 |H | Short_Literal 0x13
07da e403 | | Load 0x2,0x3
07db 821b | | Call 0x1,0x1b
07dc e013 | | Load 0x0,0x13
07dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07de e602 | | Load 0x3,0x2
07df 60cc |` | Indirect_Literal Discrete,0x8ac,{0x00000000, 0x00004000}
07e0 e014 | | Load 0x0,0x14
07e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07e2 e7ff | | Load 0x3,-0x1
07e3 e013 | | Load 0x0,0x13
07e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07e5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
07e6 00d1 | | Pop_Control Pop_Count_1
07e7 c604 | | Store 0x3,0x4
07e8 e602 | | Load 0x3,0x2
07e9 e013 | | Load 0x0,0x13
07ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07eb 6809 |h | Jump_Zero 0x7f5
07ec 4800 |H | Short_Literal 0x0
07ed e7ff | | Load 0x3,-0x1
07ee e013 | | Load 0x0,0x13
07ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07f0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07f1 4816 |H | Short_Literal 0x16
07f2 e403 | | Load 0x2,0x3
07f3 821b | | Call 0x1,0x1b
07f4 4501 |E | Exit_Subprogram 0x1
07f5 e602 | | Load 0x3,0x2
07f6 e013 | | Load 0x0,0x13
07f7 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
07f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07f9 7009 |p | Jump_Nonzero 0x803
07fa 4800 |H | Short_Literal 0x0
07fb e602 | | Load 0x3,0x2
07fc e013 | | Load 0x0,0x13
07fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07fe 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
07ff 4815 |H | Short_Literal 0x15
0800 e403 | | Load 0x2,0x3
0801 821b | | Call 0x1,0x1b
0802 4501 |E | Exit_Subprogram 0x1
0803 e013 | | Load 0x0,0x13
0804 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0805 e603 | | Load 0x3,0x3
0806 0120 | | Execute Any,Is_Value
0807 6803 |h | Jump_Zero 0x80b
0808 e01b | | Load 0x0,0x1b
0809 1b0d | | Execute Package,Field_Read,Field_Number 0xd
080a 7801 |x | Jump 0x80c
080b e603 | | Load 0x3,0x3
080c 609f |` | Indirect_Literal Discrete,0x8ac,{0x00000000, 0x00004000}
080d e014 | | Load 0x0,0x14
080e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
080f e602 | | Load 0x3,0x2
0810 e01b | | Load 0x0,0x1b
0811 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0812 c603 | | Store 0x3,0x3
0813 c604 | | Store 0x3,0x4
0814 e603 | | Load 0x3,0x3
0815 e01b | | Load 0x0,0x1b
0816 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0817 012f | / | Execute Any,Equal
0818 680f |h | Jump_Zero 0x828
0819 4800 |H | Short_Literal 0x0
081a e604 | | Load 0x3,0x4
081b e013 | | Load 0x0,0x13
081c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
081d 011c | | Execute Any,Convert_Unchecked
081e 1c01 | | Execute_Immediate Run_Utility,0x1
081f e602 | | Load 0x3,0x2
0820 e013 | | Load 0x0,0x13
0821 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0822 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0823 821d | | Call 0x1,0x1d
0824 4814 |H | Short_Literal 0x14
0825 e403 | | Load 0x2,0x3
0826 821b | | Call 0x1,0x1b
0827 4501 |E | Exit_Subprogram 0x1
0828 4801 |H | Short_Literal 0x1
0829 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
082a e603 | | Load 0x3,0x3
082b e01b | | Load 0x0,0x1b
082c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
082d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
082e 00cf | | Action Mark_Auxiliary
082f 786c |xl | Jump 0x89c
0830 4801 |H | Short_Literal 0x1
0831 4820 |H | Short_Literal 0x20
0832 e603 | | Load 0x3,0x3
0833 e607 | | Load 0x3,0x7
0834 00d8 | | Load_Top At_Offset_0
0835 00e4 | | Load_Encached Positive_Cache
0836 0260 | ` | Execute Discrete,In_Type
0837 7001 |p | Jump_Nonzero 0x839
0838 0801 | | Execute_Immediate Raise,0x1
0839 e01b | | Load 0x0,0x1b
083a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
083b e017 | | Load 0x0,0x17
083c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
083d e5fc | | Load 0x2,-0x4
083e e017 | | Load 0x0,0x17
083f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0840 6857 |hW | Jump_Zero 0x898
0841 e603 | | Load 0x3,0x3
0842 e607 | | Load 0x3,0x7
0843 00d8 | | Load_Top At_Offset_0
0844 00e4 | | Load_Encached Positive_Cache
0845 0260 | ` | Execute Discrete,In_Type
0846 7001 |p | Jump_Nonzero 0x848
0847 0801 | | Execute_Immediate Raise,0x1
0848 e01b | | Load 0x0,0x1b
0849 181d | | Execute Package,Field_Execute,Field_Number 0x1d
084a c605 | | Store 0x3,0x5
084b e605 | | Load 0x3,0x5
084c 4975 |Iu | Short_Literal 0x175
084d 00eb | | Load_Encached Diana_Cache
084e 0098 | | Execute Package,Field_Read_Dynamic
084f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0850 c609 | | Store 0x3,0x9
0851 00cf | | Action Mark_Auxiliary
0852 00da | | Load_Top At_Offset_2
0853 0217 | | Execute Heap_Access,All_Reference
0854 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0855 c609 | | Store 0x3,0x9
0856 00da | | Load_Top At_Offset_2
0857 7012 |p | Jump_Nonzero 0x86a
0858 4800 |H | Short_Literal 0x0
0859 e5fb | | Load 0x2,-0x5
085a e602 | | Load 0x3,0x2
085b e013 | | Load 0x0,0x13
085c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
085d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
085e 821d | | Call 0x1,0x1d
085f 481f |H | Short_Literal 0x1f
0860 e403 | | Load 0x2,0x3
0861 821b | | Call 0x1,0x1b
0862 e013 | | Load 0x0,0x13
0863 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0864 e603 | | Load 0x3,0x3
0865 e01b | | Load 0x0,0x1b
0866 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0867 c603 | | Store 0x3,0x3
0868 c604 | | Store 0x3,0x4
0869 4501 |E | Exit_Subprogram 0x1
086a 00da | | Load_Top At_Offset_2
086b 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
086c c605 | | Store 0x3,0x5
086d e605 | | Load 0x3,0x5
086e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
086f 0f3a | : | Execute_Immediate Equal,0x3a
0870 6802 |h | Jump_Zero 0x873
0871 e605 | | Load 0x3,0x5
0872 840e | | Call 0x2,0xe
0873 e603 | | Load 0x3,0x3
0874 4802 |H | Short_Literal 0x2
0875 e605 | | Load 0x3,0x5
0876 e01b | | Load 0x0,0x1b
0877 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0878 e606 | | Load 0x3,0x6
0879 017d | } | Execute Record,Structure_Write
087a 00cf | | Action Mark_Auxiliary
087b e606 | | Load 0x3,0x6
087c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
087d e606 | | Load 0x3,0x6
087e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
087f 0263 | c | Execute Discrete,Above_Bound
0880 7013 |p | Jump_Nonzero 0x894
0881 4801 |H | Short_Literal 0x1
0882 4820 |H | Short_Literal 0x20
0883 e603 | | Load 0x3,0x3
0884 00db | | Load_Top At_Offset_3
0885 e01b | | Load 0x0,0x1b
0886 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0887 e017 | | Load 0x0,0x17
0888 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0889 e5fb | | Load 0x2,-0x5
088a e017 | | Load 0x0,0x17
088b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
088c 6805 |h | Jump_Zero 0x892
088d 00d8 | | Load_Top At_Offset_0
088e a607 | | Store_Unchecked 0x3,0x7
088f 00d2 | | Pop_Control Pop_Count_2
0890 00ce | | Action Pop_Auxiliary
0891 7805 |x | Jump 0x897
0892 00c8 | | Action Pop_Auxiliary_Range
0893 3fed |? | Loop_Increasing 0x881
0894 00ce | | Action Pop_Auxiliary
0895 00c9 | | Action Pop_Auxiliary_Loop
0896 7fbb | | Jump 0x852
0897 00ce | | Action Pop_Auxiliary
0898 00db | | Load_Top At_Offset_3
0899 0a01 | | Execute_Immediate Plus,0x1
089a c607 | | Store 0x3,0x7
089b 00c9 | | Action Pop_Auxiliary_Loop
089c 00db | | Load_Top At_Offset_3
089d 00db | | Load_Top At_Offset_3
089e 027c | | | Execute Discrete,Less
089f 7790 |w | Jump_Nonzero 0x830
08a0 00ce | | Action Pop_Auxiliary
08a1 e013 | | Load 0x0,0x13
08a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08a3 e603 | | Load 0x3,0x3
08a4 e01b | | Load 0x0,0x1b
08a5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08a6 c603 | | Store 0x3,0x3
08a7 c604 | | Store 0x3,0x4
08a8 4501 |E | Exit_Subprogram 0x1
08a9 0000 0000 | | .XXX[0x3]
08ab 0000 | |
08ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b8 | | .CONST 0x08b8 ; Address of begin
08b1 095b | [ | .CONST 0x095b ; Address of exception handler
08b2 0003 | | .CONST 0x0003 ; Number of locals
08b3 INIT_08b0:
08b3 00da | | Load_Top At_Offset_2
08b4 01dd | | Execute Vector,First
08b5 00e2 | | Load_Encached Integer_Cache
08b6 03f1 | | Declare_Variable Discrete,With_Value
08b7 00e2 | | Load_Encached Integer_Cache
08b8 BODY_08b0:
08b8 e7ff | | Load 0x3,-0x1
08b9 01db | | Execute Vector,Length
08ba 7003 |p | Jump_Nonzero 0x8be
08bb 0092 09ce | | Action Push_String_Extended,0x9ce ; "~"
08bd 4401 |D | Exit_Subprogram With_Result,0x1
08be 00d9 | | Load_Top At_Offset_1
08bf e7ff | | Load 0x3,-0x1
08c0 01d7 | | Execute Vector,Field_Read
08c1 00d8 | | Load_Top At_Offset_0
08c2 0d21 | ! | Execute_Immediate Less,0x21
08c3 702c |p, | Jump_Nonzero 0x8f0
08c4 00d8 | | Load_Top At_Offset_0
08c5 0c41 | A | Execute_Immediate Greater_Equal,0x41
08c6 7026 |p& | Jump_Nonzero 0x8ed
08c7 0adf | | Execute_Immediate Plus,-0x21
08c8 461f |F | Jump_Case 0x1f
08c9 785e |x^ | Jump 0x928 ; case 0x0
08ca 7826 |x& | Jump 0x8f1 ; case 0x1
08cb 782b |x+ | Jump 0x8f7 ; case 0x2
08cc 7824 |x$ | Jump 0x8f1 ; case 0x3
08cd 7823 |x# | Jump 0x8f1 ; case 0x4
08ce 7822 |x" | Jump 0x8f1 ; case 0x5
08cf 7821 |x! | Jump 0x8f1 ; case 0x6
08d0 7820 |x | Jump 0x8f1 ; case 0x7
08d1 781f |x | Jump 0x8f1 ; case 0x8
08d2 781e |x | Jump 0x8f1 ; case 0x9
08d3 781d |x | Jump 0x8f1 ; case 0xa
08d4 781c |x | Jump 0x8f1 ; case 0xb
08d5 781b |x | Jump 0x8f1 ; case 0xc
08d6 781a |x | Jump 0x8f1 ; case 0xd
08d7 7819 |x | Jump 0x8f1 ; case 0xe
08d8 7818 |x | Jump 0x8f1 ; case 0xf
08d9 7824 |x$ | Jump 0x8fe ; case 0x10
08da 7823 |x# | Jump 0x8fe ; case 0x11
08db 7822 |x" | Jump 0x8fe ; case 0x12
08dc 7821 |x! | Jump 0x8fe ; case 0x13
08dd 7820 |x | Jump 0x8fe ; case 0x14
08de 781f |x | Jump 0x8fe ; case 0x15
08df 781e |x | Jump 0x8fe ; case 0x16
08e0 781d |x | Jump 0x8fe ; case 0x17
08e1 781c |x | Jump 0x8fe ; case 0x18
08e2 780e |x | Jump 0x8f1 ; case 0x19
08e3 780d |x | Jump 0x8f1 ; case 0x1a
08e4 780c |x | Jump 0x8f1 ; case 0x1b
08e5 780b |x | Jump 0x8f1 ; case 0x1c
08e6 780a |x | Jump 0x8f1 ; case 0x1d
08e7 7840 |x@ | Jump 0x928 ; case 0x1e
08e8 7800 |x | Jump 0x8e9 ; case 0x1f
08e9 e5fe | | Load 0x2,-0x2
08ea 0335 | 5 | Declare_Variable Array,Duplicate
08eb 00cd | | Action Spare6_Action
08ec 4401 |D | Exit_Subprogram With_Result,0x1
08ed 0f5c | \ | Execute_Immediate Equal,0x5c
08ee 7063 |pc | Jump_Nonzero 0x952
08ef 7801 |x | Jump 0x8f1
08f0 00d1 | | Pop_Control Pop_Count_1
08f1 482a |H* | Short_Literal 0x2a
08f2 482a |H* | Short_Literal 0x2a
08f3 e7ff | | Load 0x3,-0x1
08f4 01ca | | Execute Vector,Prepend
08f5 01cb | | Execute Vector,Append
08f6 4401 |D | Exit_Subprogram With_Result,0x1
08f7 4820 |H | Short_Literal 0x20
08f8 4800 |H | Short_Literal 0x0
08f9 480a |H | Short_Literal 0xa
08fa e5ff | | Load 0x2,-0x1
08fb e017 | | Load 0x0,0x17
08fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08fd 4401 |D | Exit_Subprogram With_Result,0x1
08fe 00d9 | | Load_Top At_Offset_1
08ff 00da | | Load_Top At_Offset_2
0900 e7ff | | Load 0x3,-0x1
0901 01cf | | Execute Vector,Slice_Read
0902 00e2 | | Load_Encached Integer_Cache
0903 00e0 | | Load_Encached Standard_Cache
0904 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0905 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0906 00d8 | | Load_Top At_Offset_0
0907 00d8 | | Load_Top At_Offset_0
0908 00e4 | | Load_Encached Positive_Cache
0909 0260 | ` | Execute Discrete,In_Type
090a 7001 |p | Jump_Nonzero 0x90c
090b 0801 | | Execute_Immediate Raise,0x1
090c e5fc | | Load 0x2,-0x4
090d 822d | - | Call 0x1,0x2d
090e 01db | | Execute Vector,Length
090f 700f |p | Jump_Nonzero 0x91f
0910 4820 |H | Short_Literal 0x20
0911 00da | | Load_Top At_Offset_2
0912 0a01 | | Execute_Immediate Plus,0x1
0913 00d8 | | Load_Top At_Offset_0
0914 00e2 | | Load_Encached Integer_Cache
0915 0260 | ` | Execute Discrete,In_Type
0916 7001 |p | Jump_Nonzero 0x918
0917 0801 | | Execute_Immediate Raise,0x1
0918 e7ff | | Load 0x3,-0x1
0919 01dc | | Execute Vector,Last
091a e7ff | | Load 0x3,-0x1
091b 01cf | | Execute Vector,Slice_Read
091c e017 | | Load 0x0,0x17
091d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
091e 4401 |D | Exit_Subprogram With_Result,0x1
091f 00d8 | | Load_Top At_Offset_0
0920 00d8 | | Load_Top At_Offset_0
0921 00e4 | | Load_Encached Positive_Cache
0922 0260 | ` | Execute Discrete,In_Type
0923 7001 |p | Jump_Nonzero 0x925
0924 0801 | | Execute_Immediate Raise,0x1
0925 e5fc | | Load 0x2,-0x4
0926 822d | - | Call 0x1,0x2d
0927 4401 |D | Exit_Subprogram With_Result,0x1
0928 00d9 | | Load_Top At_Offset_1
0929 0a01 | | Execute_Immediate Plus,0x1
092a 005a | Z | Store_Top Discrete,At_Offset_2
092b 00d9 | | Load_Top At_Offset_1
092c 00da | | Load_Top At_Offset_2
092d e7ff | | Load 0x3,-0x1
092e 01cf | | Execute Vector,Slice_Read
092f 00e2 | | Load_Encached Integer_Cache
0930 00e0 | | Load_Encached Standard_Cache
0931 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0932 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0933 00d8 | | Load_Top At_Offset_0
0934 00d8 | | Load_Top At_Offset_0
0935 00e4 | | Load_Encached Positive_Cache
0936 0260 | ` | Execute Discrete,In_Type
0937 7001 |p | Jump_Nonzero 0x939
0938 0801 | | Execute_Immediate Raise,0x1
0939 e5fc | | Load 0x2,-0x4
093a 822d | - | Call 0x1,0x2d
093b 01db | | Execute Vector,Length
093c 0f00 | | Execute_Immediate Equal,0x0
093d e7ff | | Load 0x3,-0x1
093e 01dd | | Execute Vector,First
093f e7ff | | Load 0x3,-0x1
0940 01d7 | | Execute Vector,Field_Read
0941 0f21 | ! | Execute_Immediate Equal,0x21
0942 027f | | Execute Discrete,Equal
0943 680c |h | Jump_Zero 0x950
0944 00d9 | | Load_Top At_Offset_1
0945 0a01 | | Execute_Immediate Plus,0x1
0946 00d8 | | Load_Top At_Offset_0
0947 00e2 | | Load_Encached Integer_Cache
0948 0260 | ` | Execute Discrete,In_Type
0949 7001 |p | Jump_Nonzero 0x94b
094a 0801 | | Execute_Immediate Raise,0x1
094b e7ff | | Load 0x3,-0x1
094c 01dc | | Execute Vector,Last
094d e7ff | | Load 0x3,-0x1
094e 01cf | | Execute Vector,Slice_Read
094f 4401 |D | Exit_Subprogram With_Result,0x1
0950 00ea | | Load_Encached Null_String_Cache
0951 4401 |D | Exit_Subprogram With_Result,0x1
0952 4801 |H | Short_Literal 0x1
0953 4801 |H | Short_Literal 0x1
0954 00e9 | | Load_Encached String_Cache
0955 0334 | 4 | Declare_Variable Array,With_Constraint
0956 480a |H | Short_Literal 0xa
0957 4801 |H | Short_Literal 0x1
0958 00da | | Load_Top At_Offset_2
0959 01d6 | | Execute Vector,Field_Write
095a 4401 |D | Exit_Subprogram With_Result,0x1
095b TRAP_08b0:
095b 010e | | Execute Exception,Is_Constraint_Error
095c 6806 |h | Jump_Zero 0x963
095d 482a |H* | Short_Literal 0x2a
095e 482a |H* | Short_Literal 0x2a
095f e7ff | | Load 0x3,-0x1
0960 01ca | | Execute Vector,Prepend
0961 01cb | | Execute Vector,Append
0962 4401 |D | Exit_Subprogram With_Result,0x1
0963 0100 | | Execute Exception,Raise
0964 0000 0000 | | .BLANK 0000[0x4]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 097d | } | .CONST 0x097d ; Address of begin
0969 09a4 | | .CONST 0x09a4 ; Address of exception handler
096a 0007 | | .CONST 0x0007 ; Number of locals
096b INIT_0968:
096b e602 | | Load 0x3,0x2
096c 8234 | 4 | Call 0x1,0x34
096d 4801 |H | Short_Literal 0x1
096e 00d9 | | Load_Top At_Offset_1
096f 8235 | 5 | Call 0x1,0x35
0970 00d9 | | Load_Top At_Offset_1
0971 840a | | Call 0x2,0xa
0972 e001 | | Load 0x0,0x1
0973 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0974 03f1 | | Declare_Variable Discrete,With_Value
0975 00da | | Load_Top At_Offset_2
0976 840b | | Call 0x2,0xb
0977 00e2 | | Load_Encached Integer_Cache
0978 03f1 | | Declare_Variable Discrete,With_Value
0979 e602 | | Load 0x3,0x2
097a 8233 | 3 | Call 0x1,0x33
097b e602 | | Load 0x3,0x2
097c 840c | | Call 0x2,0xc
097d BODY_0968:
097d 00db | | Load_Top At_Offset_3
097e e603 | | Load 0x3,0x3
097f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0980 00da | | Load_Top At_Offset_2
0981 e603 | | Load 0x3,0x3
0982 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0983 e402 | | Load 0x2,0x2
0984 0217 | | Execute Heap_Access,All_Reference
0985 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0986 e002 | | Load 0x0,0x2
0987 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0988 e603 | | Load 0x3,0x3
0989 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
098a e405 | | Load 0x2,0x5
098b 4801 |H | Short_Literal 0x1
098c e603 | | Load 0x3,0x3
098d e803 | | Load 0x4,0x3
098e e017 | | Load 0x0,0x17
098f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0990 e228 | ( | Load 0x1,0x28
0991 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0992 c405 | | Store 0x2,0x5
0993 480a |H | Short_Literal 0xa
0994 480a |H | Short_Literal 0xa
0995 e803 | | Load 0x4,0x3
0996 01cb | | Execute Vector,Append
0997 00db | | Load_Top At_Offset_3
0998 01cc | | Execute Vector,Catenate
0999 01cb | | Execute Vector,Append
099a 00d9 | | Load_Top At_Offset_1
099b 01cc | | Execute Vector,Catenate
099c e603 | | Load 0x3,0x3
099d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
099e e402 | | Load 0x2,0x2
099f 0217 | | Execute Heap_Access,All_Reference
09a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
09a1 e22a | * | Load 0x1,0x2a
09a2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
09a3 4501 |E | Exit_Subprogram 0x1
09a4 TRAP_0968:
09a4 e228 | ( | Load 0x1,0x28
09a5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
09a6 010f | | Execute Exception,Equal
09a7 6808 |h | Jump_Zero 0x9b0
09a8 4800 |H | Short_Literal 0x0
09a9 e7ff | | Load 0x3,-0x1
09aa e803 | | Load 0x4,0x3
09ab 821d | | Call 0x1,0x1d
09ac 481a |H | Short_Literal 0x1a
09ad e403 | | Load 0x2,0x3
09ae 821b | | Call 0x1,0x1b
09af 4501 |E | Exit_Subprogram 0x1
09b0 0100 | | Execute Exception,Raise
09b1 0000 0000 | | .BLANK 0000[0x7]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb | | .CONST 0x09bb ; Address of begin
09b9 09c5 | | .CONST 0x09c5 ; Address of exception handler
09ba 0001 | | .CONST 0x0001 ; Number of locals
09bb BODY_09b8:
09bb INIT_09b8:
09bb e405 | | Load 0x2,0x5
09bc e604 | | Load 0x3,0x4
09bd 00eb | | Load_Encached Diana_Cache
09be 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
09bf 00eb | | Load_Encached Diana_Cache
09c0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
09c1 e228 | ( | Load 0x1,0x28
09c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
09c3 c405 | | Store 0x2,0x5
09c4 4501 |E | Exit_Subprogram 0x1
09c5 TRAP_09b8:
09c5 0007 | | Action Break_Optional
09c6 4501 |E | Exit_Subprogram 0x1
09c7 ; --------------------------------------------------------------------------------------
09c7 ; STRING TABLE
09c7 ; --------------------------------------------------------------------------------------
09c7 0012 | | .STRTAB 0x0012->0x09d0 ; "DEFAULT"
09c8 0017 | | .STRTAB 0x0017->0x09d3 ; "SIMPLE"
09c9 001b | | .STRTAB 0x001b->0x09d6 ; "CONCISE"
09ca 0020 | | .STRTAB 0x0020->0x09da ; "VERBOSE"
09cb 0025 | % | .STRTAB 0x0025->0x09dd ; "Error '~@~' (~#~) encountered processing ~1~ ~2~ ~3~"
09cc 0057 | W | .STRTAB 0x0057->0x09f7 ; "!Machine.Target_Builder.Message_File"
09cd 0079 | y | .STRTAB 0x0079->0x0a09 ; "SPARE_"
; "SPARE_"
09ce 007d | } | .STRTAB 0x007d->0x0a0c ; "~"
09cf 007c | | | .STREND 0x007c->0x0a0d
09d0 4445 4641 |DEFA| .STRTAB_STRINGS
0a0d 0000 0000 | | .XXX[0x3]
0a0f 0000 | |
0a10 ; --------------------------------------------------------------------------------------
0a10 ; Debug Table
0a10 ; --------------------------------------------------------------------------------------
0a10 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb2e,0x0000,0x0001,0x0000
0a16 0000 0000 | | .BLANK 0000[0x1e2]
0bf8 a564 0000 | d | .XXX[0x4]
0bfa 4010 a570 |@ p|
0bfc 0000 0000 | | .BLANK 0000[0x4]