|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0960 | ` | .CONST 0x0960 ; 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 0095 | | .CONST 0x0095 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000e 0129 | ) | Execute Any,Make_Visible
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 e001 | | Load 0x0,0x1
0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0022 e20d | | Load 0x1,0xd
0023 00e2 | | Load_Encached Integer_Cache
0024 029f 088b | | Declare_Subprogram INIT_0888,For_Call
0026 4803 |H | Short_Literal 0x3
0027 032e | . | Declare_Type Record,Defined,Visible
0028 c215 | | Store 0x1,0x15
0029 00e2 | | Load_Encached Integer_Cache
002a 0266 | f | Execute Discrete,Bounds
002b e215 | | Load 0x1,0x15
002c 029f 009b | | Declare_Subprogram INIT_0098,For_Call
002e 4801 |H | Short_Literal 0x1
002f 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0030 c20f | | Store 0x1,0xf
0031 00e2 | | Load_Encached Integer_Cache
0032 4801 |H | Short_Literal 0x1
0033 6078 |`x | Indirect_Literal Discrete,0xac,{0x00000000, 0x7fffffff}
0034 e20f | | Load 0x1,0xf
0035 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0036 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call
0038 4800 |H | Short_Literal 0x0
0039 4801 |H | Short_Literal 0x1
003a 4800 |H | Short_Literal 0x0
003b 4800 |H | Short_Literal 0x0
003c 4801 |H | Short_Literal 0x1
003d 4801 |H | Short_Literal 0x1
003e 031e | | Declare_Type Variant_Record,Defined,Visible
003f c210 | | Store 0x1,0x10
0040 e001 | | Load 0x0,0x1
0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0042 e001 | | Load 0x0,0x1
0043 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0044 029f 08cb | | Declare_Subprogram INIT_08c8,For_Call
0046 4802 |H | Short_Literal 0x2
0047 032e | . | Declare_Type Record,Defined,Visible
0048 c211 | | Store 0x1,0x11
0049 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
004b c216 | | Store 0x1,0x16
004c 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
004e c213 | | Store 0x1,0x13
004f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0051 c217 | | Store 0x1,0x17
0052 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0054 c21e | | Store 0x1,0x1e
0055 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0057 c218 | | Store 0x1,0x18
0058 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
005a c219 | | Store 0x1,0x19
005b 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
005d c21a | | Store 0x1,0x1a
005e 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0060 c21b | | Store 0x1,0x1b
0061 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0063 c21d | | Store 0x1,0x1d
0064 00bf | | Action Accept_Activation
0065 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0067 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call
0069 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
006a 00c7 | | Action Elaborate_Subprogram
006b 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
006d 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
006f 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call
0071 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
0073 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call
0075 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
0077 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
0079 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
007b 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call
007d 029d 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call
007f 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call
0081 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
0083 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call
0085 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0086 00c7 | | Action Elaborate_Subprogram
0087 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0088 00c7 | | Action Elaborate_Subprogram
0089 1d17 | | Execute_Immediate Reference_Lex_1,0x17
008a 00c7 | | Action Elaborate_Subprogram
008b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008c 00c7 | | Action Elaborate_Subprogram
008d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
008e 00c7 | | Action Elaborate_Subprogram
008f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0090 00c7 | | Action Elaborate_Subprogram
0091 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0092 00c7 | | Action Elaborate_Subprogram
0093 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0094 00c7 | | Action Elaborate_Subprogram
0095 BODY_0008:
0095 00bc | | Action Signal_Activated
0096 00bb | | Action Signal_Completion
0097 0000 | | .XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00d1 | | Pop_Control Pop_Count_1
009c 00da | | Load_Top At_Offset_2
009d 01dc | | Execute Vector,Last
009e 00db | | Load_Top At_Offset_3
009f 01dd | | Execute Vector,First
00a0 0263 | c | Execute Discrete,Above_Bound
00a1 7006 |p | Jump_Nonzero 0xa8
00a2 00d8 | | Load_Top At_Offset_0
00a3 e5ff | | Load 0x2,-0x1
00a4 01d5 | | Execute Vector,Field_Reference
00a5 1c00 | | Execute_Immediate Run_Utility,0x0
00a6 0a01 | | Execute_Immediate Plus,0x1
00a7 7ff8 | | Jump 0xa0
00a8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00a9 0000 0000 | | .XXX[0x3]
00ab 0000 | |
00ac 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00d5 | | .CONST 0x00d5 ; Address of begin
00b1 018e | | .CONST 0x018e ; Address of exception handler
00b2 0009 | | .CONST 0x0009 ; Number of locals
00b3 INIT_00b0:
00b3 e001 | | Load 0x0,0x1
00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b5 02c7 | | Declare_Variable Any
00b6 00d8 | | Load_Top At_Offset_0
00b7 1c00 | | Execute_Immediate Run_Utility,0x0
00b8 e001 | | Load 0x0,0x1
00b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ba 02c7 | | Declare_Variable Any
00bb 00d8 | | Load_Top At_Offset_0
00bc 1c00 | | Execute_Immediate Run_Utility,0x0
00bd e002 | | Load 0x0,0x2
00be 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00bf e002 | | Load 0x0,0x2
00c0 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00c1 02c7 | | Declare_Variable Any
00c2 00d8 | | Load_Top At_Offset_0
00c3 1c00 | | Execute_Immediate Run_Utility,0x0
00c4 e002 | | Load 0x0,0x2
00c5 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00c6 02c7 | | Declare_Variable Any
00c7 00d8 | | Load_Top At_Offset_0
00c8 1c00 | | Execute_Immediate Run_Utility,0x0
00c9 e002 | | Load 0x0,0x2
00ca 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00cb 02c7 | | Declare_Variable Any
00cc 00d8 | | Load_Top At_Offset_0
00cd 1c00 | | Execute_Immediate Run_Utility,0x0
00ce e002 | | Load 0x0,0x2
00cf 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
00d0 02c7 | | Declare_Variable Any
00d1 00d8 | | Load_Top At_Offset_0
00d2 1c00 | | Execute_Immediate Run_Utility,0x0
00d3 029f 0583 | | Declare_Subprogram INIT_0580,For_Call
00d5 BODY_00b0:
00d5 4800 |H | Short_Literal 0x0
00d6 a5fd | | Store_Unchecked 0x2,-0x3
00d7 4800 |H | Short_Literal 0x0
00d8 a5fc | | Store_Unchecked 0x2,-0x4
00d9 4800 |H | Short_Literal 0x0
00da a5fb | | Store_Unchecked 0x2,-0x5
00db e5fe | | Load 0x2,-0x2
00dc e5ff | | Load 0x2,-0x1
00dd e003 | | Load 0x0,0x3
00de 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00df 7001 |p | Jump_Nonzero 0xe1
00e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e1 e5fe | | Load 0x2,-0x2
00e2 4801 |H | Short_Literal 0x1
00e3 e5ff | | Load 0x2,-0x1
00e4 e003 | | Load 0x0,0x3
00e5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e6 c402 | | Store 0x2,0x2
00e7 e5fe | | Load 0x2,-0x2
00e8 4801 |H | Short_Literal 0x1
00e9 e402 | | Load 0x2,0x2
00ea e003 | | Load 0x0,0x3
00eb 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ec c403 | | Store 0x2,0x3
00ed e002 | | Load 0x0,0x2
00ee 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ef e405 | | Load 0x2,0x5
00f0 0120 | | Execute Any,Is_Value
00f1 6803 |h | Jump_Zero 0xf5
00f2 e002 | | Load 0x0,0x2
00f3 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00f4 7801 |x | Jump 0xf6
00f5 e405 | | Load 0x2,0x5
00f6 e004 | | Load 0x0,0x4
00f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f8 e403 | | Load 0x2,0x3
00f9 e003 | | Load 0x0,0x3
00fa 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00fb 0092 08e3 | | Action Push_String_Extended,0x8e3 ; ".state.cmvc_database"
00fd 01cc | | Execute Vector,Catenate
00fe e002 | | Load 0x0,0x2
00ff 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0100 180e | | Execute Package,Field_Execute,Field_Number 0xe
0101 c405 | | Store 0x2,0x5
0102 c404 | | Store 0x2,0x4
0103 e404 | | Load 0x2,0x4
0104 e002 | | Load 0x0,0x2
0105 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0106 6817 |h | Jump_Zero 0x11e
0107 e5fe | | Load 0x2,-0x2
0108 4801 |H | Short_Literal 0x1
0109 4801 |H | Short_Literal 0x1
010a e005 | | Load 0x0,0x5
010b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010c 035b | [ | Declare_Type Array,Constrained
010d 0337 | 7 | Declare_Variable Array
010e e403 | | Load 0x2,0x3
010f e003 | | Load 0x0,0x3
0110 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0111 e005 | | Load 0x0,0x5
0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0113 0119 | | Execute Any,Check_In_Formal_Type
0114 4801 |H | Short_Literal 0x1
0115 00da | | Load_Top At_Offset_2
0116 01d6 | | Execute Vector,Field_Write
0117 6094 |` | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x000081c7}
0118 e006 | | Load 0x0,0x6
0119 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
011a 6091 |` | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x000081c7}
011b a5fb | | Store_Unchecked 0x2,-0x5
011c e007 | | Load 0x0,0x7
011d 0257 | W | Execute Discrete,Raise
011e e002 | | Load 0x0,0x2
011f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0120 00db | | Load_Top At_Offset_3
0121 0120 | | Execute Any,Is_Value
0122 6803 |h | Jump_Zero 0x126
0123 e002 | | Load 0x0,0x2
0124 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0125 7801 |x | Jump 0x127
0126 00db | | Load_Top At_Offset_3
0127 e405 | | Load 0x2,0x5
0128 e402 | | Load 0x2,0x2
0129 e003 | | Load 0x0,0x3
012a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
012b e001 | | Load 0x0,0x1
012c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012d 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
012e e002 | | Load 0x0,0x2
012f 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0130 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0131 c407 | | Store 0x2,0x7
0132 c404 | | Store 0x2,0x4
0133 e404 | | Load 0x2,0x4
0134 e002 | | Load 0x0,0x2
0135 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0136 6817 |h | Jump_Zero 0x14e
0137 e5fe | | Load 0x2,-0x2
0138 4801 |H | Short_Literal 0x1
0139 4801 |H | Short_Literal 0x1
013a e005 | | Load 0x0,0x5
013b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013c 035b | [ | Declare_Type Array,Constrained
013d 0337 | 7 | Declare_Variable Array
013e e402 | | Load 0x2,0x2
013f e003 | | Load 0x0,0x3
0140 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0141 e005 | | Load 0x0,0x5
0142 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0143 0119 | | Execute Any,Check_In_Formal_Type
0144 4801 |H | Short_Literal 0x1
0145 00da | | Load_Top At_Offset_2
0146 01d6 | | Execute Vector,Field_Write
0147 6060 |`` | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x000081c8}
0148 e006 | | Load 0x0,0x6
0149 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
014a 605d |`] | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x000081c8}
014b a5fb | | Store_Unchecked 0x2,-0x5
014c e007 | | Load 0x0,0x7
014d 0257 | W | Execute Discrete,Raise
014e 8409 | | Call 0x2,0x9
014f e002 | | Load 0x0,0x2
0150 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0151 00da | | Load_Top At_Offset_2
0152 0120 | | Execute Any,Is_Value
0153 6803 |h | Jump_Zero 0x157
0154 e002 | | Load 0x0,0x2
0155 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0156 7801 |x | Jump 0x158
0157 00da | | Load_Top At_Offset_2
0158 e407 | | Load 0x2,0x7
0159 e406 | | Load 0x2,0x6
015a e002 | | Load 0x0,0x2
015b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
015c 180f | | Execute Package,Field_Execute,Field_Number 0xf
015d c408 | | Store 0x2,0x8
015e c404 | | Store 0x2,0x4
015f e404 | | Load 0x2,0x4
0160 e002 | | Load 0x0,0x2
0161 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0162 6817 |h | Jump_Zero 0x17a
0163 e5fe | | Load 0x2,-0x2
0164 4801 |H | Short_Literal 0x1
0165 4801 |H | Short_Literal 0x1
0166 e005 | | Load 0x0,0x5
0167 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0168 035b | [ | Declare_Type Array,Constrained
0169 0337 | 7 | Declare_Variable Array
016a e5ff | | Load 0x2,-0x1
016b e003 | | Load 0x0,0x3
016c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
016d e005 | | Load 0x0,0x5
016e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016f 0119 | | Execute Any,Check_In_Formal_Type
0170 4801 |H | Short_Literal 0x1
0171 00da | | Load_Top At_Offset_2
0172 01d6 | | Execute Vector,Field_Write
0173 6030 |`0 | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x000081c9}
0174 e006 | | Load 0x0,0x6
0175 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0176 602d |`- | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x000081c9}
0177 a5fb | | Store_Unchecked 0x2,-0x5
0178 e007 | | Load 0x0,0x7
0179 0257 | W | Execute Discrete,Raise
017a 00da | | Load_Top At_Offset_2
017b e406 | | Load 0x2,0x6
017c e002 | | Load 0x0,0x2
017d 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
017e 180d | | Execute Package,Field_Execute,Field_Number 0xd
017f a5fd | | Store_Unchecked 0x2,-0x3
0180 00d9 | | Load_Top At_Offset_1
0181 e002 | | Load 0x0,0x2
0182 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0183 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0184 a5fc | | Store_Unchecked 0x2,-0x4
0185 e002 | | Load 0x0,0x2
0186 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0187 4800 |H | Short_Literal 0x0
0188 e405 | | Load 0x2,0x5
0189 e002 | | Load 0x0,0x2
018a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
018b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018c c404 | | Store 0x2,0x4
018d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018e TRAP_00b0:
018e e007 | | Load 0x0,0x7
018f 010f | | Execute Exception,Equal
0190 6809 |h | Jump_Zero 0x19a
0191 e002 | | Load 0x0,0x2
0192 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0193 4800 |H | Short_Literal 0x0
0194 e405 | | Load 0x2,0x5
0195 e002 | | Load 0x0,0x2
0196 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0197 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0198 c404 | | Store 0x2,0x4
0199 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019a 6005 |` | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x0000813b}
019b a5fb | | Store_Unchecked 0x2,-0x5
019c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
01a4 0000 0000 | | .LITERAL {0x00000000, 0x000081c9}
01a8 0000 0000 | | .LITERAL {0x00000000, 0x000081c8}
01ac 0000 0000 | | .LITERAL {0x00000000, 0x000081c7}
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01c2 | | .CONST 0x01c2 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0005 | | .CONST 0x0005 ; Number of locals
01b3 INIT_01b0:
01b3 e001 | | Load 0x0,0x1
01b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01b5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01b6 02c7 | | Declare_Variable Any
01b7 00d8 | | Load_Top At_Offset_0
01b8 1c00 | | Execute_Immediate Run_Utility,0x0
01b9 4800 |H | Short_Literal 0x0
01ba e210 | | Load 0x1,0x10
01bb 1c08 | | Execute_Immediate Run_Utility,0x8
01bc 00d8 | | Load_Top At_Offset_0
01bd 1c00 | | Execute_Immediate Run_Utility,0x0
01be 00e2 | | Load_Encached Integer_Cache
01bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01c0 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call
01c2 BODY_01b0:
01c2 e5ff | | Load 0x2,-0x1
01c3 e003 | | Load 0x0,0x3
01c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01c5 0092 08e4 | | Action Push_String_Extended,0x8e4 ; ".units.??'c(~library)"
01c7 01cc | | Execute Vector,Catenate
01c8 8222 | " | Call 0x1,0x22
01c9 c402 | | Store 0x2,0x2
01ca 00db | | Load_Top At_Offset_3
01cb 8224 | $ | Call 0x1,0x24
01cc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01cd 00d9 | | Load_Top At_Offset_1
01ce 0c01 | | Execute_Immediate Greater_Equal,0x1
01cf 6801 |h | Jump_Zero 0x1d1
01d0 8405 | | Call 0x2,0x5
01d1 00da | | Load_Top At_Offset_2
01d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 01fc | | .CONST 0x01fc ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4800 |H | Short_Literal 0x0
01dc a5f8 | | Store_Unchecked 0x2,-0x8
01dd e5f9 | | Load 0x2,-0x7
01de e5fc | | Load 0x2,-0x4
01df e5fd | | Load 0x2,-0x3
01e0 8228 | ( | Call 0x1,0x28
01e1 e5f9 | | Load 0x2,-0x7
01e2 e5fb | | Load 0x2,-0x5
01e3 e5fa | | Load 0x2,-0x6
01e4 e5fd | | Load 0x2,-0x3
01e5 e5fe | | Load 0x2,-0x2
01e6 e5ff | | Load 0x2,-0x1
01e7 822b | + | Call 0x1,0x2b
01e8 e5f9 | | Load 0x2,-0x7
01e9 e5fb | | Load 0x2,-0x5
01ea e5fa | | Load 0x2,-0x6
01eb e5fd | | Load 0x2,-0x3
01ec e5fe | | Load 0x2,-0x2
01ed e5ff | | Load 0x2,-0x1
01ee 822a | * | Call 0x1,0x2a
01ef e006 | | Load 0x0,0x6
01f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f1 e5f9 | | Load 0x2,-0x7
01f2 e5fe | | Load 0x2,-0x2
01f3 e003 | | Load 0x0,0x3
01f4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f5 0092 08e5 | | Action Push_String_Extended,0x8e5 ; ".units"
01f7 01cc | | Execute Vector,Catenate
01f8 e008 | | Load 0x0,0x8
01f9 1884 | | Execute Package,Field_Execute,Field_Number 0x84
01fa c5f8 | | Store 0x2,-0x8
01fb 4508 |E | Exit_Suprogram New_Top_Offset 0x8
01fc TRAP_01d8:
01fc 0007 | | Action Break_Optional
01fd 6002 |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x0000813b}
01fe a5f8 | | Store_Unchecked 0x2,-0x8
01ff 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0200 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0216 | | .CONST 0x0216 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0005 | | .CONST 0x0005 ; Number of locals
020b INIT_0208:
020b e001 | | Load 0x0,0x1
020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020d 02c7 | | Declare_Variable Any
020e 00d8 | | Load_Top At_Offset_0
020f 1c00 | | Execute_Immediate Run_Utility,0x0
0210 e006 | | Load 0x0,0x6
0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0212 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0213 00e1 | | Load_Encached Boolean_Cache
0214 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call
0216 BODY_0208:
0216 e5ff | | Load 0x2,-0x1
0217 e001 | | Load 0x0,0x1
0218 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0219 012f | / | Execute Any,Equal
021a 6801 |h | Jump_Zero 0x21c
021b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
021c e5fd | | Load 0x2,-0x3
021d e003 | | Load 0x0,0x3
021e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
021f e009 | | Load 0x0,0x9
0220 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0221 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0222 6801 |h | Jump_Zero 0x224
0223 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0224 8405 | | Call 0x2,0x5
0225 e006 | | Load 0x0,0x6
0226 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0227 e5fc | | Load 0x2,-0x4
0228 e5fe | | Load 0x2,-0x2
0229 e003 | | Load 0x0,0x3
022a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
022b 0092 08e5 | | Action Push_String_Extended,0x8e5 ; ".units"
022d 01cc | | Execute Vector,Catenate
022e e008 | | Load 0x0,0x8
022f 1883 | | Execute Package,Field_Execute,Field_Number 0x83
0230 005b | [ | Store_Top Discrete,At_Offset_3
0231 e006 | | Load 0x0,0x6
0232 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0233 e5fc | | Load 0x2,-0x4
0234 e5fe | | Load 0x2,-0x2
0235 e003 | | Load 0x0,0x3
0236 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0237 0092 08e5 | | Action Push_String_Extended,0x8e5 ; ".units"
0239 01cc | | Execute Vector,Catenate
023a e008 | | Load 0x0,0x8
023b 1884 | | Execute Package,Field_Execute,Field_Number 0x84
023c 005b | [ | Store_Top Discrete,At_Offset_3
023d 4800 |H | Short_Literal 0x0
023e 00db | | Load_Top At_Offset_3
023f e006 | | Load 0x0,0x6
0240 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0241 7003 |p | Jump_Nonzero 0x245
0242 e006 | | Load 0x0,0x6
0243 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0244 0257 | W | Execute Discrete,Raise
0245 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 025f | _ | .CONST 0x025f ; Address of begin
0249 026b | k | .CONST 0x026b ; Address of exception handler
024a 0007 | | .CONST 0x0007 ; Number of locals
024b INIT_0248:
024b 4800 |H | Short_Literal 0x0
024c e210 | | Load 0x1,0x10
024d 1c08 | | Execute_Immediate Run_Utility,0x8
024e 00d8 | | Load_Top At_Offset_0
024f 1c00 | | Execute_Immediate Run_Utility,0x0
0250 e001 | | Load 0x0,0x1
0251 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0252 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0253 02c7 | | Declare_Variable Any
0254 00d8 | | Load_Top At_Offset_0
0255 1c00 | | Execute_Immediate Run_Utility,0x0
0256 00e2 | | Load_Encached Integer_Cache
0257 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0258 00e1 | | Load_Encached Boolean_Cache
0259 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
025a e006 | | Load 0x0,0x6
025b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
025d 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
025f BODY_0248:
025f e5ff | | Load 0x2,-0x1
0260 8222 | " | Call 0x1,0x22
0261 c403 | | Store 0x2,0x3
0262 e403 | | Load 0x2,0x3
0263 8224 | $ | Call 0x1,0x24
0264 a404 | | Store_Unchecked 0x2,0x4
0265 00db | | Load_Top At_Offset_3
0266 0c01 | | Execute_Immediate Greater_Equal,0x1
0267 6801 |h | Jump_Zero 0x269
0268 8407 | | Call 0x2,0x7
0269 e402 | | Load 0x2,0x2
026a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026b TRAP_0248:
026b 0007 | | Action Break_Optional
026c e402 | | Load 0x2,0x2
026d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026e 0000 0000 | | .XXX[0x2]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0287 | | .CONST 0x0287 ; Address of begin
0271 0293 | | .CONST 0x0293 ; Address of exception handler
0272 0007 | | .CONST 0x0007 ; Number of locals
0273 INIT_0270:
0273 4800 |H | Short_Literal 0x0
0274 e210 | | Load 0x1,0x10
0275 1c08 | | Execute_Immediate Run_Utility,0x8
0276 00d8 | | Load_Top At_Offset_0
0277 1c00 | | Execute_Immediate Run_Utility,0x0
0278 e001 | | Load 0x0,0x1
0279 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
027b 02c7 | | Declare_Variable Any
027c 00d8 | | Load_Top At_Offset_0
027d 1c00 | | Execute_Immediate Run_Utility,0x0
027e 00e2 | | Load_Encached Integer_Cache
027f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0280 00e1 | | Load_Encached Boolean_Cache
0281 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0282 e006 | | Load 0x0,0x6
0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0284 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0285 029f 071b | | Declare_Subprogram INIT_0718,For_Call
0287 BODY_0270:
0287 e5ff | | Load 0x2,-0x1
0288 8222 | " | Call 0x1,0x22
0289 c403 | | Store 0x2,0x3
028a e403 | | Load 0x2,0x3
028b 8224 | $ | Call 0x1,0x24
028c a404 | | Store_Unchecked 0x2,0x4
028d 00db | | Load_Top At_Offset_3
028e 0c01 | | Execute_Immediate Greater_Equal,0x1
028f 6801 |h | Jump_Zero 0x291
0290 8407 | | Call 0x2,0x7
0291 e402 | | Load 0x2,0x2
0292 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0293 TRAP_0270:
0293 0007 | | Action Break_Optional
0294 e402 | | Load 0x2,0x2
0295 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 02ae | | .CONST 0x02ae ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 4800 |H | Short_Literal 0x0
029c a5fc | | Store_Unchecked 0x2,-0x4
029d 00cf | | Action Mark_Auxiliary
029e 00db | | Load_Top At_Offset_3
029f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02a0 4801 |H | Short_Literal 0x1
02a1 0263 | c | Execute Discrete,Above_Bound
02a2 700a |p | Jump_Nonzero 0x2ad
02a3 e5fd | | Load 0x2,-0x3
02a4 e5fe | | Load 0x2,-0x2
02a5 00da | | Load_Top At_Offset_2
02a6 e5ff | | Load 0x2,-0x1
02a7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02a8 01d5 | | Execute Vector,Field_Reference
02a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02aa 8226 | & | Call 0x1,0x26
02ab 00c8 | | Action Pop_Auxiliary_Range
02ac 3ff6 |? | Loop_Increasing 0x2a3
02ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ae TRAP_0298:
02ae 0007 | | Action Break_Optional
02af 6004 |` | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x0000813b}
02b0 a5fc | | Store_Unchecked 0x2,-0x4
02b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02b2 0000 0000 | | .XXX[0x2]
02b4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c0 | | .CONST 0x02c0 ; Address of begin
02b9 02e1 | | .CONST 0x02e1 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb e001 | | Load 0x0,0x1
02bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02bd 02c7 | | Declare_Variable Any
02be 00d8 | | Load_Top At_Offset_0
02bf 1c00 | | Execute_Immediate Run_Utility,0x0
02c0 BODY_02b8:
02c0 4800 |H | Short_Literal 0x0
02c1 a5fb | | Store_Unchecked 0x2,-0x5
02c2 e5fe | | Load 0x2,-0x2
02c3 7001 |p | Jump_Nonzero 0x2c5
02c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02c5 00cf | | Action Mark_Auxiliary
02c6 e5ff | | Load 0x2,-0x1
02c7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02c8 4801 |H | Short_Literal 0x1
02c9 0263 | c | Execute Discrete,Above_Bound
02ca 7015 |p | Jump_Nonzero 0x2e0
02cb 00d8 | | Load_Top At_Offset_0
02cc e5ff | | Load 0x2,-0x1
02cd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02ce 01d5 | | Execute Vector,Field_Reference
02cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d0 c402 | | Store 0x2,0x2
02d1 00d8 | | Load_Top At_Offset_0
02d2 e5ff | | Load 0x2,-0x1
02d3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02d4 01d5 | | Execute Vector,Field_Reference
02d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d6 e402 | | Load 0x2,0x2
02d7 8220 | | Call 0x1,0x20
02d8 027d | } | Execute Discrete,Greater
02d9 6804 |h | Jump_Zero 0x2de
02da e5fc | | Load 0x2,-0x4
02db e5fd | | Load 0x2,-0x3
02dc e402 | | Load 0x2,0x2
02dd 8227 | ' | Call 0x1,0x27
02de 00c8 | | Action Pop_Auxiliary_Range
02df 3feb |? | Loop_Increasing 0x2cb
02e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02e1 TRAP_02b8:
02e1 0007 | | Action Break_Optional
02e2 67d1 |g | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x0000813b}
02e3 a5fb | | Store_Unchecked 0x2,-0x5
02e4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02e5 0000 0000 | | .XXX[0x3]
02e7 0000 | |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ff | | .CONST 0x02ff ; Address of begin
02e9 030b | | .CONST 0x030b ; Address of exception handler
02ea 0007 | | .CONST 0x0007 ; Number of locals
02eb INIT_02e8:
02eb 4800 |H | Short_Literal 0x0
02ec e210 | | Load 0x1,0x10
02ed 1c08 | | Execute_Immediate Run_Utility,0x8
02ee 00d8 | | Load_Top At_Offset_0
02ef 1c00 | | Execute_Immediate Run_Utility,0x0
02f0 e001 | | Load 0x0,0x1
02f1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02f2 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02f3 02c7 | | Declare_Variable Any
02f4 00d8 | | Load_Top At_Offset_0
02f5 1c00 | | Execute_Immediate Run_Utility,0x0
02f6 00e2 | | Load_Encached Integer_Cache
02f7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02f8 00e1 | | Load_Encached Boolean_Cache
02f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02fa e006 | | Load 0x0,0x6
02fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02fd 029f 0793 | | Declare_Subprogram INIT_0790,For_Call
02ff BODY_02e8:
02ff e5ff | | Load 0x2,-0x1
0300 8222 | " | Call 0x1,0x22
0301 c403 | | Store 0x2,0x3
0302 e403 | | Load 0x2,0x3
0303 8224 | $ | Call 0x1,0x24
0304 a404 | | Store_Unchecked 0x2,0x4
0305 00db | | Load_Top At_Offset_3
0306 0c01 | | Execute_Immediate Greater_Equal,0x1
0307 6801 |h | Jump_Zero 0x309
0308 8407 | | Call 0x2,0x7
0309 e402 | | Load 0x2,0x2
030a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
030b TRAP_02e8:
030b 0007 | | Action Break_Optional
030c e402 | | Load 0x2,0x2
030d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
030e 0000 0000 | | .XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031d | | .CONST 0x031d ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0003 | | .CONST 0x0003 ; Number of locals
0313 INIT_0310:
0313 00db | | Load_Top At_Offset_3
0314 4801 |H | Short_Literal 0x1
0315 e5ff | | Load 0x2,-0x1
0316 e003 | | Load 0x0,0x3
0317 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0318 e003 | | Load 0x0,0x3
0319 1817 | | Execute Package,Field_Execute,Field_Number 0x17
031a 00db | | Load_Top At_Offset_3
031b e003 | | Load 0x0,0x3
031c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
031d BODY_0310:
031d 00d8 | | Load_Top At_Offset_0
031e 01dd | | Execute Vector,First
031f 00da | | Load_Top At_Offset_2
0320 01db | | Execute Vector,Length
0321 0273 | s | Execute Discrete,Plus
0322 0a01 | | Execute_Immediate Plus,0x1
0323 00d8 | | Load_Top At_Offset_0
0324 00e2 | | Load_Encached Integer_Cache
0325 0260 | ` | Execute Discrete,In_Type
0326 7001 |p | Jump_Nonzero 0x328
0327 0801 | | Execute_Immediate Raise,0x1
0328 00d9 | | Load_Top At_Offset_1
0329 01dc | | Execute Vector,Last
032a 00da | | Load_Top At_Offset_2
032b 01cf | | Execute Vector,Slice_Read
032c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0338 | 8 | .CONST 0x0338 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0003 | | .CONST 0x0003 ; Number of locals
0333 INIT_0330:
0333 e001 | | Load 0x0,0x1
0334 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0335 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0336 e001 | | Load 0x0,0x1
0337 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0338 BODY_0330:
0338 e001 | | Load 0x0,0x1
0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033a e001 | | Load 0x0,0x1
033b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
033c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033d 600e |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00004000}
033e e004 | | Load 0x0,0x4
033f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0340 4800 |H | Short_Literal 0x0
0341 e5ff | | Load 0x2,-0x1
0342 e001 | | Load 0x0,0x1
0343 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0344 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0345 e001 | | Load 0x0,0x1
0346 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0347 180f | | Execute Package,Field_Execute,Field_Number 0xf
0348 005b | [ | Store_Top Discrete,At_Offset_3
0349 0059 | Y | Store_Top Discrete,At_Offset_1
034a 00d9 | | Load_Top At_Offset_1
034b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0358 | X | .CONST 0x0358 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0003 | | .CONST 0x0003 ; Number of locals
0353 INIT_0350:
0353 e001 | | Load 0x0,0x1
0354 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0355 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0356 e001 | | Load 0x0,0x1
0357 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0358 BODY_0350:
0358 e001 | | Load 0x0,0x1
0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035a e001 | | Load 0x0,0x1
035b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
035c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035d 67ee |g | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00004000}
035e e004 | | Load 0x0,0x4
035f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0360 4800 |H | Short_Literal 0x0
0361 e5ff | | Load 0x2,-0x1
0362 e001 | | Load 0x0,0x1
0363 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0364 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0365 e001 | | Load 0x0,0x1
0366 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0367 180f | | Execute Package,Field_Execute,Field_Number 0xf
0368 005b | [ | Store_Top Discrete,At_Offset_3
0369 0059 | Y | Store_Top Discrete,At_Offset_1
036a 00d9 | | Load_Top At_Offset_1
036b 0f04 | | Execute_Immediate Equal,0x4
036c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036d 0000 0000 | | .XXX[0x3]
036f 0000 | |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037c | | | .CONST 0x037c ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0003 | | .CONST 0x0003 ; Number of locals
0373 INIT_0370:
0373 e001 | | Load 0x0,0x1
0374 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0375 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0376 02c7 | | Declare_Variable Any
0377 00d8 | | Load_Top At_Offset_0
0378 1c00 | | Execute_Immediate Run_Utility,0x0
0379 e001 | | Load 0x0,0x1
037a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
037b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
037c BODY_0370:
037c e001 | | Load 0x0,0x1
037d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
037e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
037f 00da | | Load_Top At_Offset_2
0380 601f |` | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x00004000}
0381 e004 | | Load 0x0,0x4
0382 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0383 e00a | | Load 0x0,0xa
0384 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0385 e00b | | Load 0x0,0xb
0386 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0387 4801 |H | Short_Literal 0x1
0388 4800 |H | Short_Literal 0x0
0389 e00a | | Load 0x0,0xa
038a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
038b e001 | | Load 0x0,0x1
038c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
038d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
038e e5ff | | Load 0x2,-0x1
038f e001 | | Load 0x0,0x1
0390 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0391 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0392 c402 | | Store 0x2,0x2
0393 0059 | Y | Store_Top Discrete,At_Offset_1
0394 00d8 | | Load_Top At_Offset_0
0395 0e00 | | Execute_Immediate Not_Equal,0x0
0396 00d9 | | Load_Top At_Offset_1
0397 0e03 | | Execute_Immediate Not_Equal,0x3
0398 0279 | y | Execute Discrete,And
0399 6804 |h | Jump_Zero 0x39e
039a e001 | | Load 0x0,0x1
039b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
039c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
039d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
039e 00d9 | | Load_Top At_Offset_1
039f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b1 | | .CONST 0x03b1 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0004 | | .CONST 0x0004 ; Number of locals
03ab INIT_03a8:
03ab 00e2 | | Load_Encached Integer_Cache
03ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03ad 03e9 | | Declare_Variable Discrete,Duplicate
03ae e006 | | Load 0x0,0x6
03af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03b1 BODY_03a8:
03b1 e006 | | Load 0x0,0x6
03b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b3 00e3 | | Load_Encached Natural_Cache
03b4 00e3 | | Load_Encached Natural_Cache
03b5 e5fe | | Load 0x2,-0x2
03b6 e5ff | | Load 0x2,-0x1
03b7 8216 | | Call 0x1,0x16
03b8 c402 | | Store 0x2,0x2
03b9 005b | [ | Store_Top Discrete,At_Offset_3
03ba 0059 | Y | Store_Top Discrete,At_Offset_1
03bb 4800 |H | Short_Literal 0x0
03bc 00d9 | | Load_Top At_Offset_1
03bd e006 | | Load 0x0,0x6
03be 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03bf 7002 |p | Jump_Nonzero 0x3c2
03c0 4800 |H | Short_Literal 0x0
03c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03c2 00da | | Load_Top At_Offset_2
03c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03c4 0000 0000 | | .BLANK 0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d3 | | .CONST 0x03d3 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0003 | | .CONST 0x0003 ; Number of locals
03cb INIT_03c8:
03cb 00e2 | | Load_Encached Integer_Cache
03cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03cd e001 | | Load 0x0,0x1
03ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03cf 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03d0 02c7 | | Declare_Variable Any
03d1 e5ff | | Load 0x2,-0x1
03d2 a403 | | Store_Unchecked 0x2,0x3
03d3 BODY_03c8:
03d3 00d8 | | Load_Top At_Offset_0
03d4 e001 | | Load 0x0,0x1
03d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03d6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03d7 6802 |h | Jump_Zero 0x3da
03d8 4800 |H | Short_Literal 0x0
03d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03da 00d8 | | Load_Top At_Offset_0
03db e001 | | Load 0x0,0x1
03dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03de c403 | | Store 0x2,0x3
03df 00cf | | Action Mark_Auxiliary
03e0 7809 |x | Jump 0x3ea
03e1 00da | | Load_Top At_Offset_2
03e2 0a01 | | Execute_Immediate Plus,0x1
03e3 005b | [ | Store_Top Discrete,At_Offset_3
03e4 00d9 | | Load_Top At_Offset_1
03e5 e001 | | Load 0x0,0x1
03e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03e7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03e8 c403 | | Store 0x2,0x3
03e9 00c9 | | Action Pop_Auxiliary_Loop
03ea 00d9 | | Load_Top At_Offset_1
03eb e001 | | Load 0x0,0x1
03ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03ed 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03ee 6ff2 |o | Jump_Zero 0x3e1
03ef 00ce | | Action Pop_Auxiliary
03f0 00d8 | | Load_Top At_Offset_0
03f1 e001 | | Load 0x0,0x1
03f2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03f4 c403 | | Store 0x2,0x3
03f5 00d9 | | Load_Top At_Offset_1
03f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f7 0000 | | .XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb e004 | | Load 0x0,0x4
03fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fd 00db | | Load_Top At_Offset_3
03fe e00c | | Load 0x0,0xc
03ff 180d | | Execute Package,Field_Execute,Field_Number 0xd
0400 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0401 0000 0000 | | .BLANK 0000[0x7]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c 8221 | ! | Call 0x1,0x21
040d 682a |h* | Jump_Zero 0x438
040e 00db | | Load_Top At_Offset_3
040f 7016 |p | Jump_Nonzero 0x426
0410 e5fd | | Load 0x2,-0x3
0411 4801 |H | Short_Literal 0x1
0412 4801 |H | Short_Literal 0x1
0413 e005 | | Load 0x0,0x5
0414 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0415 035b | [ | Declare_Type Array,Constrained
0416 0337 | 7 | Declare_Variable Array
0417 e5ff | | Load 0x2,-0x1
0418 e003 | | Load 0x0,0x3
0419 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
041a e005 | | Load 0x0,0x5
041b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
041c 0119 | | Execute Any,Check_In_Formal_Type
041d 4801 |H | Short_Literal 0x1
041e 00da | | Load_Top At_Offset_2
041f 01d6 | | Execute Vector,Field_Write
0420 601b |` | Indirect_Literal Discrete,0x43c,{0x00000000, 0x000081ca}
0421 e006 | | Load 0x0,0x6
0422 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0423 e006 | | Load 0x0,0x6
0424 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0425 0257 | W | Execute Discrete,Raise
0426 4801 |H | Short_Literal 0x1
0427 4801 |H | Short_Literal 0x1
0428 4800 |H | Short_Literal 0x0
0429 4801 |H | Short_Literal 0x1
042a e5fd | | Load 0x2,-0x3
042b e003 | | Load 0x0,0x3
042c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
042d e00d | | Load 0x0,0xd
042e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
042f 4800 |H | Short_Literal 0x0
0430 0092 08e6 | | Action Push_String_Extended,0x8e6 ; "<ALL_WORLDS>"
0432 4802 |H | Short_Literal 0x2
0433 e5ff | | Load 0x2,-0x1
0434 e003 | | Load 0x0,0x3
0435 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0436 e00e | | Load 0x0,0xe
0437 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0438 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0439 0000 0000 | | .XXX[0x3]
043b 0000 | |
043c 0000 0000 | | .LITERAL {0x00000000, 0x000081ca}
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 4800 |H | Short_Literal 0x0
0444 4801 |H | Short_Literal 0x1
0445 4800 |H | Short_Literal 0x0
0446 4801 |H | Short_Literal 0x1
0447 e5fd | | Load 0x2,-0x3
0448 e003 | | Load 0x0,0x3
0449 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
044a e00d | | Load 0x0,0xd
044b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
044c 4800 |H | Short_Literal 0x0
044d 0092 08e7 | | Action Push_String_Extended,0x8e7 ; "<WORLDS>"
044f e5fe | | Load 0x2,-0x2
0450 4803 |H | Short_Literal 0x3
0451 e5ff | | Load 0x2,-0x1
0452 e003 | | Load 0x0,0x3
0453 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0454 e00e | | Load 0x0,0xe
0455 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0456 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0457 0000 | | .XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0466 | f | .CONST 0x0466 ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0004 | | .CONST 0x0004 ; Number of locals
045b INIT_0458:
045b e001 | | Load 0x0,0x1
045c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
045d 02c7 | | Declare_Variable Any
045e 00d8 | | Load_Top At_Offset_0
045f 1c00 | | Execute_Immediate Run_Utility,0x0
0460 e001 | | Load 0x0,0x1
0461 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0462 02c7 | | Declare_Variable Any
0463 00d8 | | Load_Top At_Offset_0
0464 1c00 | | Execute_Immediate Run_Utility,0x0
0465 00e1 | | Load_Encached Boolean_Cache
0466 BODY_0458:
0466 00cf | | Action Mark_Auxiliary
0467 e5ff | | Load 0x2,-0x1
0468 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0469 4801 |H | Short_Literal 0x1
046a 0263 | c | Execute Discrete,Above_Bound
046b 702a |p* | Jump_Nonzero 0x496
046c 00d8 | | Load_Top At_Offset_0
046d e5ff | | Load 0x2,-0x1
046e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
046f 01d5 | | Execute Vector,Field_Reference
0470 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0471 c402 | | Store 0x2,0x2
0472 00d8 | | Load_Top At_Offset_0
0473 e5ff | | Load 0x2,-0x1
0474 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0475 01d5 | | Execute Vector,Field_Reference
0476 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0477 e5fd | | Load 0x2,-0x3
0478 e402 | | Load 0x2,0x2
0479 8223 | # | Call 0x1,0x23
047a 027c | | | Execute Discrete,Less
047b 6818 |h | Jump_Zero 0x494
047c e402 | | Load 0x2,0x2
047d e003 | | Load 0x0,0x3
047e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
047f 7014 |p | Jump_Nonzero 0x494
0480 00e1 | | Load_Encached Boolean_Cache
0481 e403 | | Load 0x2,0x3
0482 0120 | | Execute Any,Is_Value
0483 6803 |h | Jump_Zero 0x487
0484 e001 | | Load 0x0,0x1
0485 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0486 7801 |x | Jump 0x488
0487 e403 | | Load 0x2,0x3
0488 e5fd | | Load 0x2,-0x3
0489 e402 | | Load 0x2,0x2
048a e008 | | Load 0x0,0x8
048b 1887 | | Execute Package,Field_Execute,Field_Number 0x87
048c c403 | | Store 0x2,0x3
048d c404 | | Store 0x2,0x4
048e 00db | | Load_Top At_Offset_3
048f 6804 |h | Jump_Zero 0x494
0490 e5fd | | Load 0x2,-0x3
0491 e5fe | | Load 0x2,-0x2
0492 e403 | | Load 0x2,0x3
0493 8226 | & | Call 0x1,0x26
0494 00c8 | | Action Pop_Auxiliary_Range
0495 3fd6 |? | Loop_Increasing 0x46c
0496 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0497 0000 | | .XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00cf | | Action Mark_Auxiliary
049c e5fe | | Load 0x2,-0x2
049d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
049e 4801 |H | Short_Literal 0x1
049f 0263 | c | Execute Discrete,Above_Bound
04a0 700c |p | Jump_Nonzero 0x4ad
04a1 e5ff | | Load 0x2,-0x1
04a2 00d9 | | Load_Top At_Offset_1
04a3 e5fe | | Load 0x2,-0x2
04a4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04a5 01d5 | | Execute Vector,Field_Reference
04a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a7 012f | / | Execute Any,Equal
04a8 6802 |h | Jump_Zero 0x4ab
04a9 4801 |H | Short_Literal 0x1
04aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04ab 00c8 | | Action Pop_Auxiliary_Range
04ac 3ff4 |? | Loop_Increasing 0x4a1
04ad 00ce | | Action Pop_Auxiliary
04ae 4800 |H | Short_Literal 0x0
04af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04be | | .CONST 0x04be ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0003 | | .CONST 0x0003 ; Number of locals
04b3 INIT_04b0:
04b3 e001 | | Load 0x0,0x1
04b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04b5 02c7 | | Declare_Variable Any
04b6 00d8 | | Load_Top At_Offset_0
04b7 1c00 | | Execute_Immediate Run_Utility,0x0
04b8 e001 | | Load 0x0,0x1
04b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ba 1b18 | | Execute Package,Field_Read,Field_Number 0x18
04bb 02c7 | | Declare_Variable Any
04bc 00d8 | | Load_Top At_Offset_0
04bd 1c00 | | Execute_Immediate Run_Utility,0x0
04be BODY_04b0:
04be e5fe | | Load 0x2,-0x2
04bf e003 | | Load 0x0,0x3
04c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04c1 0092 08e8 | | Action Push_String_Extended,0x8e8 ; ".units.??'c(ada)'if(controlled)"
04c3 01cc | | Execute Vector,Catenate
04c4 8222 | " | Call 0x1,0x22
04c5 c403 | | Store 0x2,0x3
04c6 00cf | | Action Mark_Auxiliary
04c7 781b |x | Jump 0x4e3
04c8 e5fa | | Load 0x2,-0x6
04c9 4801 |H | Short_Literal 0x1
04ca 00db | | Load_Top At_Offset_3
04cb e003 | | Load 0x0,0x3
04cc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04cd c402 | | Store 0x2,0x2
04ce e5fd | | Load 0x2,-0x3
04cf 00db | | Load_Top At_Offset_3
04d0 8229 | ) | Call 0x1,0x29
04d1 700b |p | Jump_Nonzero 0x4dd
04d2 e5fa | | Load 0x2,-0x6
04d3 00db | | Load_Top At_Offset_3
04d4 e5fe | | Load 0x2,-0x2
04d5 e5ff | | Load 0x2,-0x1
04d6 821e | | Call 0x1,0x1e
04d7 e5fb | | Load 0x2,-0x5
04d8 6804 |h | Jump_Zero 0x4dd
04d9 e5fa | | Load 0x2,-0x6
04da e5fc | | Load 0x2,-0x4
04db e402 | | Load 0x2,0x2
04dc 8227 | ' | Call 0x1,0x27
04dd 00d9 | | Load_Top At_Offset_1
04de e001 | | Load 0x0,0x1
04df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04e1 c403 | | Store 0x2,0x3
04e2 00c9 | | Action Pop_Auxiliary_Loop
04e3 00d9 | | Load_Top At_Offset_1
04e4 e001 | | Load 0x0,0x1
04e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04e7 6fe0 |o | Jump_Zero 0x4c8
04e8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04e9 0000 0000 | | .BLANK 0000[0x7]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f8 | | .CONST 0x04f8 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0002 | | .CONST 0x0002 ; Number of locals
04f3 INIT_04f0:
04f3 e001 | | Load 0x0,0x1
04f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04f5 02c7 | | Declare_Variable Any
04f6 00d8 | | Load_Top At_Offset_0
04f7 1c00 | | Execute_Immediate Run_Utility,0x0
04f8 BODY_04f0:
04f8 00cf | | Action Mark_Auxiliary
04f9 e5fd | | Load 0x2,-0x3
04fa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04fb 4801 |H | Short_Literal 0x1
04fc 0263 | c | Execute Discrete,Above_Bound
04fd 7031 |p1 | Jump_Nonzero 0x52f
04fe 00d8 | | Load_Top At_Offset_0
04ff e5fd | | Load 0x2,-0x3
0500 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0501 01d5 | | Execute Vector,Field_Reference
0502 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0503 c402 | | Store 0x2,0x2
0504 00db | | Load_Top At_Offset_3
0505 e003 | | Load 0x0,0x3
0506 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0507 6825 |h% | Jump_Zero 0x52d
0508 00d8 | | Load_Top At_Offset_0
0509 e5fd | | Load 0x2,-0x3
050a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
050b 01d5 | | Execute Vector,Field_Reference
050c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
050d e5fa | | Load 0x2,-0x6
050e e402 | | Load 0x2,0x2
050f 8223 | # | Call 0x1,0x23
0510 027c | | | Execute Discrete,Less
0511 680c |h | Jump_Zero 0x51e
0512 e5fa | | Load 0x2,-0x6
0513 e402 | | Load 0x2,0x2
0514 e5fe | | Load 0x2,-0x2
0515 e5ff | | Load 0x2,-0x1
0516 821e | | Call 0x1,0x1e
0517 e5fb | | Load 0x2,-0x5
0518 6814 |h | Jump_Zero 0x52d
0519 e5fa | | Load 0x2,-0x6
051a e5fc | | Load 0x2,-0x4
051b e402 | | Load 0x2,0x2
051c 8227 | ' | Call 0x1,0x27
051d 780f |x | Jump 0x52d
051e 00d8 | | Load_Top At_Offset_0
051f e5fd | | Load 0x2,-0x3
0520 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0521 01d5 | | Execute Vector,Field_Reference
0522 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0523 e402 | | Load 0x2,0x2
0524 8220 | | Call 0x1,0x20
0525 027d | } | Execute Discrete,Greater
0526 6806 |h | Jump_Zero 0x52d
0527 e5fb | | Load 0x2,-0x5
0528 6804 |h | Jump_Zero 0x52d
0529 e5fa | | Load 0x2,-0x6
052a e5fc | | Load 0x2,-0x4
052b e402 | | Load 0x2,0x2
052c 8227 | ' | Call 0x1,0x27
052d 00c8 | | Action Pop_Auxiliary_Range
052e 3fcf |? | Loop_Increasing 0x4fe
052f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0545 | E | .CONST 0x0545 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0007 | | .CONST 0x0007 ; Number of locals
0533 INIT_0530:
0533 e001 | | Load 0x0,0x1
0534 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0535 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0536 02c7 | | Declare_Variable Any
0537 00d8 | | Load_Top At_Offset_0
0538 1c00 | | Execute_Immediate Run_Utility,0x0
0539 e001 | | Load 0x0,0x1
053a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
053b 02c7 | | Declare_Variable Any
053c 00d8 | | Load_Top At_Offset_0
053d 1c00 | | Execute_Immediate Run_Utility,0x0
053e e006 | | Load 0x0,0x6
053f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0540 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0541 00e2 | | Load_Encached Integer_Cache
0542 00e1 | | Load_Encached Boolean_Cache
0543 029f 0803 | | Declare_Subprogram INIT_0800,For_Call
0545 BODY_0530:
0545 e5ff | | Load 0x2,-0x1
0546 e003 | | Load 0x0,0x3
0547 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0548 7001 |p | Jump_Nonzero 0x54a
0549 8407 | | Call 0x2,0x7
054a 4800 |H | Short_Literal 0x0
054b a5fc | | Store_Unchecked 0x2,-0x4
054c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
054d 0000 0000 | | .XXX[0x3]
054f 0000 | |
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0559 | Y | .CONST 0x0559 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0004 | | .CONST 0x0004 ; Number of locals
0553 INIT_0550:
0553 e006 | | Load 0x0,0x6
0554 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0555 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0556 00e2 | | Load_Encached Integer_Cache
0557 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0558 03e9 | | Declare_Variable Discrete,Duplicate
0559 BODY_0550:
0559 e006 | | Load 0x0,0x6
055a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
055b 00e3 | | Load_Encached Natural_Cache
055c 00e3 | | Load_Encached Natural_Cache
055d e5fc | | Load 0x2,-0x4
055e e5ff | | Load 0x2,-0x1
055f 8216 | | Call 0x1,0x16
0560 c403 | | Store 0x2,0x3
0561 005a | Z | Store_Top Discrete,At_Offset_2
0562 005b | [ | Store_Top Discrete,At_Offset_3
0563 4800 |H | Short_Literal 0x0
0564 00db | | Load_Top At_Offset_3
0565 e006 | | Load 0x0,0x6
0566 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0567 7002 |p | Jump_Nonzero 0x56a
0568 4800 |H | Short_Literal 0x0
0569 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
056a e5fe | | Load 0x2,-0x2
056b 4fff |O | Short_Literal -0x1
056c 027f | | Execute Discrete,Equal
056d 6805 |h | Jump_Zero 0x573
056e 00d9 | | Load_Top At_Offset_1
056f 0f01 | | Execute_Immediate Equal,0x1
0570 6802 |h | Jump_Zero 0x573
0571 4800 |H | Short_Literal 0x0
0572 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0573 00d9 | | Load_Top At_Offset_1
0574 e5fe | | Load 0x2,-0x2
0575 027f | | Execute Discrete,Equal
0576 6802 |h | Jump_Zero 0x579
0577 4800 |H | Short_Literal 0x0
0578 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0579 4801 |H | Short_Literal 0x1
057a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
057b 0000 0000 | | .BLANK 0000[0x5]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0586 | | .CONST 0x0586 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0002 | | .CONST 0x0002 ; Number of locals
0583 INIT_0580:
0583 e5fe | | Load 0x2,-0x2
0584 e5ff | | Load 0x2,-0x1
0585 821f | | Call 0x1,0x1f
0586 BODY_0580:
0586 e002 | | Load 0x0,0x2
0587 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0588 e406 | | Load 0x2,0x6
0589 0120 | | Execute Any,Is_Value
058a 6803 |h | Jump_Zero 0x58e
058b e002 | | Load 0x0,0x2
058c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
058d 7801 |x | Jump 0x58f
058e e406 | | Load 0x2,0x6
058f e405 | | Load 0x2,0x5
0590 00db | | Load_Top At_Offset_3
0591 e002 | | Load 0x0,0x2
0592 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0593 180e | | Execute Package,Field_Execute,Field_Number 0xe
0594 c406 | | Store 0x2,0x6
0595 c404 | | Store 0x2,0x4
0596 e404 | | Load 0x2,0x4
0597 e002 | | Load 0x0,0x2
0598 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0599 6817 |h | Jump_Zero 0x5b1
059a e5fe | | Load 0x2,-0x2
059b 4801 |H | Short_Literal 0x1
059c 4801 |H | Short_Literal 0x1
059d e005 | | Load 0x0,0x5
059e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
059f 035b | [ | Declare_Type Array,Constrained
05a0 0337 | 7 | Declare_Variable Array
05a1 e5ff | | Load 0x2,-0x1
05a2 e003 | | Load 0x0,0x3
05a3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
05a4 e005 | | Load 0x0,0x5
05a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05a6 0119 | | Execute Any,Check_In_Formal_Type
05a7 4801 |H | Short_Literal 0x1
05a8 00da | | Load_Top At_Offset_2
05a9 01d6 | | Execute Vector,Field_Write
05aa 6009 |` | Indirect_Literal Discrete,0x5b4,{0x00000000, 0x000081c9}
05ab e006 | | Load 0x0,0x6
05ac 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05ad 6006 |` | Indirect_Literal Discrete,0x5b4,{0x00000000, 0x000081c9}
05ae a5fb | | Store_Unchecked 0x2,-0x5
05af e007 | | Load 0x0,0x7
05b0 0257 | W | Execute Discrete,Raise
05b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05b2 0000 0000 | | .XXX[0x2]
05b4 0000 0000 | | .LITERAL {0x00000000, 0x000081c9}
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05c7 | | .CONST 0x05c7 ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0004 | | .CONST 0x0004 ; Number of locals
05bb INIT_05b8:
05bb e404 | | Load 0x2,0x4
05bc e210 | | Load 0x1,0x10
05bd 1c08 | | Execute_Immediate Run_Utility,0x8
05be 00d8 | | Load_Top At_Offset_0
05bf 1c00 | | Execute_Immediate Run_Utility,0x0
05c0 00e2 | | Load_Encached Integer_Cache
05c1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05c2 e001 | | Load 0x0,0x1
05c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c4 02c7 | | Declare_Variable Any
05c5 00d8 | | Load_Top At_Offset_0
05c6 1c00 | | Execute_Immediate Run_Utility,0x0
05c7 BODY_05b8:
05c7 00cf | | Action Mark_Auxiliary
05c8 7824 |x$ | Jump 0x5ed
05c9 00da | | Load_Top At_Offset_2
05ca 0a01 | | Execute_Immediate Plus,0x1
05cb 005b | [ | Store_Top Discrete,At_Offset_3
05cc e5fe | | Load 0x2,-0x2
05cd 4801 |H | Short_Literal 0x1
05ce e402 | | Load 0x2,0x2
05cf e003 | | Load 0x0,0x3
05d0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
05d1 c604 | | Store 0x3,0x4
05d2 00d9 | | Load_Top At_Offset_1
05d3 00db | | Load_Top At_Offset_3
05d4 e602 | | Load 0x3,0x2
05d5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05d6 01d5 | | Execute Vector,Field_Reference
05d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05d8 00d9 | | Load_Top At_Offset_1
05d9 8220 | | Call 0x1,0x20
05da 00db | | Load_Top At_Offset_3
05db e602 | | Load 0x3,0x2
05dc 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05dd 01d5 | | Execute Vector,Field_Reference
05de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05df e5fe | | Load 0x2,-0x2
05e0 00da | | Load_Top At_Offset_2
05e1 8223 | # | Call 0x1,0x23
05e2 00db | | Load_Top At_Offset_3
05e3 e602 | | Load 0x3,0x2
05e4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05e5 01d5 | | Execute Vector,Field_Reference
05e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05e7 e402 | | Load 0x2,0x2
05e8 e001 | | Load 0x0,0x1
05e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05eb c402 | | Store 0x2,0x2
05ec 00c9 | | Action Pop_Auxiliary_Loop
05ed e402 | | Load 0x2,0x2
05ee e001 | | Load 0x0,0x1
05ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05f0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05f1 6fd7 |o | Jump_Zero 0x5c9
05f2 00ce | | Action Pop_Auxiliary
05f3 00da | | Load_Top At_Offset_2
05f4 00cb | | Action Pop_Block_With_Result
05f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f6 0000 0000 | | .XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 0611 | | .CONST 0x0611 ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0005 | | .CONST 0x0005 ; Number of locals
05fb INIT_05f8:
05fb e5fc | | Load 0x2,-0x4
05fc 00d8 | | Load_Top At_Offset_0
05fd 4801 |H | Short_Literal 0x1
05fe e5fd | | Load 0x2,-0x3
05ff e003 | | Load 0x0,0x3
0600 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0601 821f | | Call 0x1,0x1f
0602 00d8 | | Load_Top At_Offset_0
0603 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
0605 01cc | | Execute Vector,Catenate
0606 e5fd | | Load 0x2,-0x3
0607 e003 | | Load 0x0,0x3
0608 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0609 01cc | | Execute Vector,Catenate
060a 0007 | | Action Break_Optional
060b e5ff | | Load 0x2,-0x1
060c e003 | | Load 0x0,0x3
060d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
060e e5fe | | Load 0x2,-0x2
060f e003 | | Load 0x0,0x3
0610 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0611 BODY_05f8:
0611 e5fd | | Load 0x2,-0x3
0612 e003 | | Load 0x0,0x3
0613 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0614 6842 |hB | Jump_Zero 0x657
0615 00ea | | Load_Encached Null_String_Cache
0616 4801 |H | Short_Literal 0x1
0617 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>"
0619 4801 |H | Short_Literal 0x1
061a e604 | | Load 0x3,0x4
061b 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
061d 01cc | | Execute Vector,Catenate
061e e603 | | Load 0x3,0x3
061f 01cc | | Execute Vector,Catenate
0620 0092 08eb | | Action Push_String_Extended,0x8eb ; "_secondary_@_spec"
0622 01cc | | Execute Vector,Catenate
0623 e604 | | Load 0x3,0x4
0624 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
0626 01cc | | Execute Vector,Catenate
0627 e603 | | Load 0x3,0x3
0628 01cc | | Execute Vector,Catenate
0629 0092 08ec | | Action Push_String_Extended,0x8ec ; "'spec.<secondary_@>"
062b 01cc | | Execute Vector,Catenate
062c e00f | | Load 0x0,0xf
062d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
062e 00ea | | Load_Encached Null_String_Cache
062f 4801 |H | Short_Literal 0x1
0630 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>"
0632 4801 |H | Short_Literal 0x1
0633 e605 | | Load 0x3,0x5
0634 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
0636 01cc | | Execute Vector,Catenate
0637 e603 | | Load 0x3,0x3
0638 01cc | | Execute Vector,Catenate
0639 0092 08eb | | Action Push_String_Extended,0x8eb ; "_secondary_@_spec"
063b 01cc | | Execute Vector,Catenate
063c e604 | | Load 0x3,0x4
063d 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
063f 01cc | | Execute Vector,Catenate
0640 e603 | | Load 0x3,0x3
0641 01cc | | Execute Vector,Catenate
0642 0092 08eb | | Action Push_String_Extended,0x8eb ; "_secondary_@_spec"
0644 01cc | | Execute Vector,Catenate
0645 e00f | | Load 0x0,0xf
0646 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0647 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>"
0649 0092 08ed | | Action Push_String_Extended,0x8ed ; "<DIRECTORIES>"
064b 00db | | Load_Top At_Offset_3
064c 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
064e 01cc | | Execute Vector,Catenate
064f e603 | | Load 0x3,0x3
0650 01cc | | Execute Vector,Catenate
0651 0092 08eb | | Action Push_String_Extended,0x8eb ; "_secondary_@_spec"
0653 01cc | | Execute Vector,Catenate
0654 e00f | | Load 0x0,0xf
0655 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0656 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0657 00ea | | Load_Encached Null_String_Cache
0658 4801 |H | Short_Literal 0x1
0659 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>"
065b 4801 |H | Short_Literal 0x1
065c e604 | | Load 0x3,0x4
065d 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
065f 01cc | | Execute Vector,Catenate
0660 e603 | | Load 0x3,0x3
0661 01cc | | Execute Vector,Catenate
0662 0092 08ee | | Action Push_String_Extended,0x8ee ; "_secondary_@_body"
0664 01cc | | Execute Vector,Catenate
0665 e604 | | Load 0x3,0x4
0666 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
0668 01cc | | Execute Vector,Catenate
0669 e603 | | Load 0x3,0x3
066a 01cc | | Execute Vector,Catenate
066b 0092 08ef | | Action Push_String_Extended,0x8ef ; "'body.<secondary_@>"
066d 01cc | | Execute Vector,Catenate
066e e00f | | Load 0x0,0xf
066f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0670 00ea | | Load_Encached Null_String_Cache
0671 4801 |H | Short_Literal 0x1
0672 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>"
0674 4801 |H | Short_Literal 0x1
0675 e605 | | Load 0x3,0x5
0676 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
0678 01cc | | Execute Vector,Catenate
0679 e603 | | Load 0x3,0x3
067a 01cc | | Execute Vector,Catenate
067b 0092 08ee | | Action Push_String_Extended,0x8ee ; "_secondary_@_body"
067d 01cc | | Execute Vector,Catenate
067e e604 | | Load 0x3,0x4
067f 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
0681 01cc | | Execute Vector,Catenate
0682 e603 | | Load 0x3,0x3
0683 01cc | | Execute Vector,Catenate
0684 0092 08ee | | Action Push_String_Extended,0x8ee ; "_secondary_@_body"
0686 01cc | | Execute Vector,Catenate
0687 e00f | | Load 0x0,0xf
0688 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0689 0092 08ea | | Action Push_String_Extended,0x8ea ; "<QUIET>"
068b 0092 08ed | | Action Push_String_Extended,0x8ed ; "<DIRECTORIES>"
068d 00db | | Load_Top At_Offset_3
068e 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "."
0690 01cc | | Execute Vector,Catenate
0691 e603 | | Load 0x3,0x3
0692 01cc | | Execute Vector,Catenate
0693 0092 08ee | | Action Push_String_Extended,0x8ee ; "_secondary_@_body"
0695 01cc | | Execute Vector,Catenate
0696 e00f | | Load 0x0,0xf
0697 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0698 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0699 0000 0000 | | .BLANK 0000[0x7]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06b6 | | .CONST 0x06b6 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0006 | | .CONST 0x0006 ; Number of locals
06a3 INIT_06a0:
06a3 e404 | | Load 0x2,0x4
06a4 e210 | | Load 0x1,0x10
06a5 1c08 | | Execute_Immediate Run_Utility,0x8
06a6 00d8 | | Load_Top At_Offset_0
06a7 1c00 | | Execute_Immediate Run_Utility,0x0
06a8 00e2 | | Load_Encached Integer_Cache
06a9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06aa e001 | | Load 0x0,0x1
06ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06ac 02c7 | | Declare_Variable Any
06ad 00d8 | | Load_Top At_Offset_0
06ae 1c00 | | Execute_Immediate Run_Utility,0x0
06af e001 | | Load 0x0,0x1
06b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06b1 02c7 | | Declare_Variable Any
06b2 00d8 | | Load_Top At_Offset_0
06b3 1c00 | | Execute_Immediate Run_Utility,0x0
06b4 029f 0843 | C| Declare_Subprogram INIT_0840,For_Call
06b6 BODY_06a0:
06b6 00cf | | Action Mark_Auxiliary
06b7 784e |xN | Jump 0x706
06b8 e5fe | | Load 0x2,-0x2
06b9 4801 |H | Short_Literal 0x1
06ba e403 | | Load 0x2,0x3
06bb e003 | | Load 0x0,0x3
06bc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
06bd c604 | | Store 0x3,0x4
06be 00db | | Load_Top At_Offset_3
06bf e003 | | Load 0x0,0x3
06c0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
06c1 703e |p> | Jump_Nonzero 0x700
06c2 e5fe | | Load 0x2,-0x2
06c3 e604 | | Load 0x3,0x4
06c4 e003 | | Load 0x0,0x3
06c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06c6 6839 |h9 | Jump_Zero 0x700
06c7 e5fe | | Load 0x2,-0x2
06c8 e604 | | Load 0x3,0x4
06c9 e003 | | Load 0x0,0x3
06ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06cb 6834 |h4 | Jump_Zero 0x700
06cc 00e1 | | Load_Encached Boolean_Cache
06cd 00db | | Load_Top At_Offset_3
06ce 0120 | | Execute Any,Is_Value
06cf 6803 |h | Jump_Zero 0x6d3
06d0 e001 | | Load 0x0,0x1
06d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06d2 7801 |x | Jump 0x6d4
06d3 00db | | Load_Top At_Offset_3
06d4 e5fe | | Load 0x2,-0x2
06d5 e604 | | Load 0x3,0x4
06d6 822c | , | Call 0x1,0x2c
06d7 c605 | | Store 0x3,0x5
06d8 c405 | | Store 0x2,0x5
06d9 e405 | | Load 0x2,0x5
06da 6825 |h% | Jump_Zero 0x700
06db e006 | | Load 0x0,0x6
06dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06dd e5fe | | Load 0x2,-0x2
06de e604 | | Load 0x3,0x4
06df e003 | | Load 0x0,0x3
06e0 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
06e1 c406 | | Store 0x2,0x6
06e2 4800 |H | Short_Literal 0x0
06e3 e406 | | Load 0x2,0x6
06e4 e006 | | Load 0x0,0x6
06e5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
06e6 7003 |p | Jump_Nonzero 0x6ea
06e7 e006 | | Load 0x0,0x6
06e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
06e9 0257 | W | Execute Discrete,Raise
06ea e603 | | Load 0x3,0x3
06eb 0a01 | | Execute_Immediate Plus,0x1
06ec c603 | | Store 0x3,0x3
06ed 00da | | Load_Top At_Offset_2
06ee e603 | | Load 0x3,0x3
06ef e602 | | Load 0x3,0x2
06f0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
06f1 01d5 | | Execute Vector,Field_Reference
06f2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06f3 00da | | Load_Top At_Offset_2
06f4 8220 | | Call 0x1,0x20
06f5 e603 | | Load 0x3,0x3
06f6 e602 | | Load 0x3,0x2
06f7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
06f8 01d5 | | Execute Vector,Field_Reference
06f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06fa 4800 |H | Short_Literal 0x0
06fb e603 | | Load 0x3,0x3
06fc e602 | | Load 0x3,0x2
06fd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
06fe 01d5 | | Execute Vector,Field_Reference
06ff 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0700 e403 | | Load 0x2,0x3
0701 e001 | | Load 0x0,0x1
0702 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0703 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0704 c403 | | Store 0x2,0x3
0705 00c9 | | Action Pop_Auxiliary_Loop
0706 e403 | | Load 0x2,0x3
0707 e001 | | Load 0x0,0x1
0708 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0709 181e | | Execute Package,Field_Execute,Field_Number 0x1e
070a 6fad |o | Jump_Zero 0x6b8
070b 00ce | | Action Pop_Auxiliary
070c 00db | | Load_Top At_Offset_3
070d 0c01 | | Execute_Immediate Greater_Equal,0x1
070e 6801 |h | Jump_Zero 0x710
070f 8606 | | Call 0x3,0x6
0710 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0711 0000 0000 | | .BLANK 0000[0x7]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 072e | . | .CONST 0x072e ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0006 | | .CONST 0x0006 ; Number of locals
071b INIT_0718:
071b e404 | | Load 0x2,0x4
071c e210 | | Load 0x1,0x10
071d 1c08 | | Execute_Immediate Run_Utility,0x8
071e 00d8 | | Load_Top At_Offset_0
071f 1c00 | | Execute_Immediate Run_Utility,0x0
0720 00e2 | | Load_Encached Integer_Cache
0721 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0722 e001 | | Load 0x0,0x1
0723 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0724 02c7 | | Declare_Variable Any
0725 00d8 | | Load_Top At_Offset_0
0726 1c00 | | Execute_Immediate Run_Utility,0x0
0727 e001 | | Load 0x0,0x1
0728 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0729 02c7 | | Declare_Variable Any
072a 00d8 | | Load_Top At_Offset_0
072b 1c00 | | Execute_Immediate Run_Utility,0x0
072c 029f 085b | [| Declare_Subprogram INIT_0858,For_Call
072e BODY_0718:
072e 00cf | | Action Mark_Auxiliary
072f 7854 |xT | Jump 0x784
0730 e5fc | | Load 0x2,-0x4
0731 4801 |H | Short_Literal 0x1
0732 e403 | | Load 0x2,0x3
0733 e003 | | Load 0x0,0x3
0734 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0735 c604 | | Store 0x3,0x4
0736 00db | | Load_Top At_Offset_3
0737 e003 | | Load 0x0,0x3
0738 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0739 7044 |pD | Jump_Nonzero 0x77e
073a e5fc | | Load 0x2,-0x4
073b e604 | | Load 0x3,0x4
073c e003 | | Load 0x0,0x3
073d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
073e 683f |h? | Jump_Zero 0x77e
073f e5fc | | Load 0x2,-0x4
0740 e604 | | Load 0x3,0x4
0741 e003 | | Load 0x0,0x3
0742 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0743 703a |p: | Jump_Nonzero 0x77e
0744 00e1 | | Load_Encached Boolean_Cache
0745 00db | | Load_Top At_Offset_3
0746 0120 | | Execute Any,Is_Value
0747 6803 |h | Jump_Zero 0x74b
0748 e001 | | Load 0x0,0x1
0749 1b0f | | Execute Package,Field_Read,Field_Number 0xf
074a 7801 |x | Jump 0x74c
074b 00db | | Load_Top At_Offset_3
074c e5fc | | Load 0x2,-0x4
074d e604 | | Load 0x3,0x4
074e 822c | , | Call 0x1,0x2c
074f c605 | | Store 0x3,0x5
0750 c405 | | Store 0x2,0x5
0751 e405 | | Load 0x2,0x5
0752 682b |h+ | Jump_Zero 0x77e
0753 e5fc | | Load 0x2,-0x4
0754 e5fd | | Load 0x2,-0x3
0755 e5fe | | Load 0x2,-0x2
0756 e604 | | Load 0x3,0x4
0757 822d | - | Call 0x1,0x2d
0758 6825 |h% | Jump_Zero 0x77e
0759 e006 | | Load 0x0,0x6
075a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
075b e5fc | | Load 0x2,-0x4
075c e604 | | Load 0x3,0x4
075d e003 | | Load 0x0,0x3
075e 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
075f c406 | | Store 0x2,0x6
0760 4800 |H | Short_Literal 0x0
0761 e406 | | Load 0x2,0x6
0762 e006 | | Load 0x0,0x6
0763 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0764 7003 |p | Jump_Nonzero 0x768
0765 e006 | | Load 0x0,0x6
0766 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0767 0257 | W | Execute Discrete,Raise
0768 e603 | | Load 0x3,0x3
0769 0a01 | | Execute_Immediate Plus,0x1
076a c603 | | Store 0x3,0x3
076b 00da | | Load_Top At_Offset_2
076c e603 | | Load 0x3,0x3
076d e602 | | Load 0x3,0x2
076e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
076f 01d5 | | Execute Vector,Field_Reference
0770 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0771 00da | | Load_Top At_Offset_2
0772 8220 | | Call 0x1,0x20
0773 e603 | | Load 0x3,0x3
0774 e602 | | Load 0x3,0x2
0775 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0776 01d5 | | Execute Vector,Field_Reference
0777 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0778 4800 |H | Short_Literal 0x0
0779 e603 | | Load 0x3,0x3
077a e602 | | Load 0x3,0x2
077b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
077c 01d5 | | Execute Vector,Field_Reference
077d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
077e e403 | | Load 0x2,0x3
077f e001 | | Load 0x0,0x1
0780 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0781 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0782 c403 | | Store 0x2,0x3
0783 00c9 | | Action Pop_Auxiliary_Loop
0784 e403 | | Load 0x2,0x3
0785 e001 | | Load 0x0,0x1
0786 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0787 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0788 6fa7 |o | Jump_Zero 0x730
0789 00ce | | Action Pop_Auxiliary
078a 00db | | Load_Top At_Offset_3
078b 0c01 | | Execute_Immediate Greater_Equal,0x1
078c 6801 |h | Jump_Zero 0x78e
078d 8606 | | Call 0x3,0x6
078e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
078f 0000 | | .XXX[0x1]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 07a6 | | .CONST 0x07a6 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0006 | | .CONST 0x0006 ; Number of locals
0793 INIT_0790:
0793 e404 | | Load 0x2,0x4
0794 e210 | | Load 0x1,0x10
0795 1c08 | | Execute_Immediate Run_Utility,0x8
0796 00d8 | | Load_Top At_Offset_0
0797 1c00 | | Execute_Immediate Run_Utility,0x0
0798 00e2 | | Load_Encached Integer_Cache
0799 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
079a e001 | | Load 0x0,0x1
079b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
079c 02c7 | | Declare_Variable Any
079d 00d8 | | Load_Top At_Offset_0
079e 1c00 | | Execute_Immediate Run_Utility,0x0
079f e001 | | Load 0x0,0x1
07a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07a1 02c7 | | Declare_Variable Any
07a2 00d8 | | Load_Top At_Offset_0
07a3 1c00 | | Execute_Immediate Run_Utility,0x0
07a4 029f 0873 | s| Declare_Subprogram INIT_0870,For_Call
07a6 BODY_0790:
07a6 00cf | | Action Mark_Auxiliary
07a7 7849 |xI | Jump 0x7f1
07a8 e5fe | | Load 0x2,-0x2
07a9 4801 |H | Short_Literal 0x1
07aa e403 | | Load 0x2,0x3
07ab e003 | | Load 0x0,0x3
07ac 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
07ad c604 | | Store 0x3,0x4
07ae 00db | | Load_Top At_Offset_3
07af e003 | | Load 0x0,0x3
07b0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
07b1 7039 |p9 | Jump_Nonzero 0x7eb
07b2 e5fe | | Load 0x2,-0x2
07b3 e604 | | Load 0x3,0x4
07b4 e003 | | Load 0x0,0x3
07b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07b6 6834 |h4 | Jump_Zero 0x7eb
07b7 00e1 | | Load_Encached Boolean_Cache
07b8 00db | | Load_Top At_Offset_3
07b9 0120 | | Execute Any,Is_Value
07ba 6803 |h | Jump_Zero 0x7be
07bb e001 | | Load 0x0,0x1
07bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07bd 7801 |x | Jump 0x7bf
07be 00db | | Load_Top At_Offset_3
07bf e5fe | | Load 0x2,-0x2
07c0 e604 | | Load 0x3,0x4
07c1 822c | , | Call 0x1,0x2c
07c2 c605 | | Store 0x3,0x5
07c3 c405 | | Store 0x2,0x5
07c4 e405 | | Load 0x2,0x5
07c5 6825 |h% | Jump_Zero 0x7eb
07c6 e006 | | Load 0x0,0x6
07c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c8 e5fe | | Load 0x2,-0x2
07c9 e604 | | Load 0x3,0x4
07ca e003 | | Load 0x0,0x3
07cb 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
07cc c406 | | Store 0x2,0x6
07cd 4800 |H | Short_Literal 0x0
07ce e406 | | Load 0x2,0x6
07cf e006 | | Load 0x0,0x6
07d0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
07d1 7003 |p | Jump_Nonzero 0x7d5
07d2 e006 | | Load 0x0,0x6
07d3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
07d4 0257 | W | Execute Discrete,Raise
07d5 e603 | | Load 0x3,0x3
07d6 0a01 | | Execute_Immediate Plus,0x1
07d7 c603 | | Store 0x3,0x3
07d8 00da | | Load_Top At_Offset_2
07d9 e603 | | Load 0x3,0x3
07da e602 | | Load 0x3,0x2
07db 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
07dc 01d5 | | Execute Vector,Field_Reference
07dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07de 00da | | Load_Top At_Offset_2
07df 8220 | | Call 0x1,0x20
07e0 e603 | | Load 0x3,0x3
07e1 e602 | | Load 0x3,0x2
07e2 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
07e3 01d5 | | Execute Vector,Field_Reference
07e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07e5 4800 |H | Short_Literal 0x0
07e6 e603 | | Load 0x3,0x3
07e7 e602 | | Load 0x3,0x2
07e8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
07e9 01d5 | | Execute Vector,Field_Reference
07ea 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07eb e403 | | Load 0x2,0x3
07ec e001 | | Load 0x0,0x1
07ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07ee 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07ef c403 | | Store 0x2,0x3
07f0 00c9 | | Action Pop_Auxiliary_Loop
07f1 e403 | | Load 0x2,0x3
07f2 e001 | | Load 0x0,0x1
07f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
07f4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
07f5 6fb2 |o | Jump_Zero 0x7a8
07f6 00ce | | Action Pop_Auxiliary
07f7 00db | | Load_Top At_Offset_3
07f8 0c01 | | Execute_Immediate Greater_Equal,0x1
07f9 6801 |h | Jump_Zero 0x7fb
07fa 8606 | | Call 0x3,0x6
07fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07fc 0000 0000 | | .BLANK 0000[0x4]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0815 | | .CONST 0x0815 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0002 | | .CONST 0x0002 ; Number of locals
0803 INIT_0800:
0803 e5fe | | Load 0x2,-0x2
0804 4801 |H | Short_Literal 0x1
0805 e5ff | | Load 0x2,-0x1
0806 e003 | | Load 0x0,0x3
0807 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0808 e003 | | Load 0x0,0x3
0809 1817 | | Execute Package,Field_Execute,Field_Number 0x17
080a 0092 08f0 | | Action Push_String_Extended,0x8f0 ; ".@'c(ada).<secondary_"
080c 01cc | | Execute Vector,Catenate
080d e5ff | | Load 0x2,-0x1
080e e003 | | Load 0x0,0x3
080f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0810 01cc | | Execute Vector,Catenate
0811 0092 08f1 | | Action Push_String_Extended,0x8f1 ; ">"
0813 01cc | | Execute Vector,Catenate
0814 0007 | | Action Break_Optional
0815 BODY_0800:
0815 00d8 | | Load_Top At_Offset_0
0816 8222 | " | Call 0x1,0x22
0817 c402 | | Store 0x2,0x2
0818 e402 | | Load 0x2,0x2
0819 e001 | | Load 0x0,0x1
081a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
081b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
081c 7022 |p" | Jump_Nonzero 0x83f
081d e402 | | Load 0x2,0x2
081e e001 | | Load 0x0,0x1
081f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0820 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0821 701d |p | Jump_Nonzero 0x83f
0822 e5fe | | Load 0x2,-0x2
0823 4801 |H | Short_Literal 0x1
0824 e402 | | Load 0x2,0x2
0825 e003 | | Load 0x0,0x3
0826 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0827 c403 | | Store 0x2,0x3
0828 e006 | | Load 0x0,0x6
0829 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082a 00e2 | | Load_Encached Integer_Cache
082b 00e1 | | Load_Encached Boolean_Cache
082c e5fd | | Load 0x2,-0x3
082d 0120 | | Execute Any,Is_Value
082e 6803 |h | Jump_Zero 0x832
082f e001 | | Load 0x0,0x1
0830 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0831 7801 |x | Jump 0x833
0832 e5fd | | Load 0x2,-0x3
0833 e5fe | | Load 0x2,-0x2
0834 e403 | | Load 0x2,0x3
0835 e008 | | Load 0x0,0x8
0836 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0837 c5fd | | Store 0x2,-0x3
0838 c406 | | Store 0x2,0x6
0839 c405 | | Store 0x2,0x5
083a c404 | | Store 0x2,0x4
083b e406 | | Load 0x2,0x6
083c a5fc | | Store_Unchecked 0x2,-0x4
083d 00cc | | Action Pop_Block
083e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
083f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0848 | H | .CONST 0x0848 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0002 | | .CONST 0x0002 ; Number of locals
0843 INIT_0840:
0843 e603 | | Load 0x3,0x3
0844 e210 | | Load 0x1,0x10
0845 1c08 | | Execute_Immediate Run_Utility,0x8
0846 00d8 | | Load_Top At_Offset_0
0847 1c00 | | Execute_Immediate Run_Utility,0x0
0848 BODY_0840:
0848 4801 |H | Short_Literal 0x1
0849 e603 | | Load 0x3,0x3
084a e602 | | Load 0x3,0x2
084b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
084c 01cf | | Execute Vector,Slice_Read
084d 4801 |H | Short_Literal 0x1
084e e603 | | Load 0x3,0x3
084f 00db | | Load_Top At_Offset_3
0850 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0851 01ce | | Execute Vector,Slice_Write
0852 00d8 | | Load_Top At_Offset_0
0853 00cb | | Action Pop_Block_With_Result
0854 00cb | | Action Pop_Block_With_Result
0855 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0856 0000 0000 | | .XXX[0x2]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 0860 | ` | .CONST 0x0860 ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0002 | | .CONST 0x0002 ; Number of locals
085b INIT_0858:
085b e603 | | Load 0x3,0x3
085c e210 | | Load 0x1,0x10
085d 1c08 | | Execute_Immediate Run_Utility,0x8
085e 00d8 | | Load_Top At_Offset_0
085f 1c00 | | Execute_Immediate Run_Utility,0x0
0860 BODY_0858:
0860 4801 |H | Short_Literal 0x1
0861 e603 | | Load 0x3,0x3
0862 e602 | | Load 0x3,0x2
0863 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0864 01cf | | Execute Vector,Slice_Read
0865 4801 |H | Short_Literal 0x1
0866 e603 | | Load 0x3,0x3
0867 00db | | Load_Top At_Offset_3
0868 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0869 01ce | | Execute Vector,Slice_Write
086a 00d8 | | Load_Top At_Offset_0
086b 00cb | | Action Pop_Block_With_Result
086c 00cb | | Action Pop_Block_With_Result
086d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
086e 0000 0000 | | .XXX[0x2]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0878 | x | .CONST 0x0878 ; Address of begin
0871 0004 | | .CONST 0x0004 ; Address of exception handler
0872 0002 | | .CONST 0x0002 ; Number of locals
0873 INIT_0870:
0873 e603 | | Load 0x3,0x3
0874 e210 | | Load 0x1,0x10
0875 1c08 | | Execute_Immediate Run_Utility,0x8
0876 00d8 | | Load_Top At_Offset_0
0877 1c00 | | Execute_Immediate Run_Utility,0x0
0878 BODY_0870:
0878 4801 |H | Short_Literal 0x1
0879 e603 | | Load 0x3,0x3
087a e602 | | Load 0x3,0x2
087b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
087c 01cf | | Execute Vector,Slice_Read
087d 4801 |H | Short_Literal 0x1
087e e603 | | Load 0x3,0x3
087f 00db | | Load_Top At_Offset_3
0880 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0881 01ce | | Execute Vector,Slice_Write
0882 00d8 | | Load_Top At_Offset_0
0883 00cb | | Action Pop_Block_With_Result
0884 00cb | | Action Pop_Block_With_Result
0885 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0886 0000 0000 | | .XXX[0x2]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 4608 |F | Jump_Case 0x9
088c 7808 |x | Jump 0x895 ; case 0x0
088d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
088e 780d |x | Jump 0x89c ; case 0x2
088f 780c |x | Jump 0x89c ; case 0x3
0890 780b |x | Jump 0x89c ; case 0x4
0891 780a |x | Jump 0x89c ; case 0x5
0892 7809 |x | Jump 0x89c ; case 0x6
0893 7808 |x | Jump 0x89c ; case 0x7
0894 7807 |x | Jump 0x89c ; case 0x8
0895 00da | | Load_Top At_Offset_2
0896 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0897 0125 | % | Execute Any,Set_Constraint
0898 00da | | Load_Top At_Offset_2
0899 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
089a 1c00 | | Execute_Immediate Run_Utility,0x0
089b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
089c 0869 | i | Execute_Immediate Raise,0x69
089d 0000 0000 | | .XXX[0x3]
089f 0000 | |
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 4608 |F | Jump_Case 0x9
08a4 7808 |x | Jump 0x8ad ; case 0x0
08a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
08a6 781d |x | Jump 0x8c4 ; case 0x2
08a7 781c |x | Jump 0x8c4 ; case 0x3
08a8 781b |x | Jump 0x8c4 ; case 0x4
08a9 781a |x | Jump 0x8c4 ; case 0x5
08aa 7819 |x | Jump 0x8c4 ; case 0x6
08ab 7805 |x | Jump 0x8b1 ; case 0x7
08ac 780d |x | Jump 0x8ba ; case 0x8
08ad 00da | | Load_Top At_Offset_2
08ae 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
08af 1c00 | | Execute_Immediate Run_Utility,0x0
08b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
08b1 00db | | Load_Top At_Offset_3
08b2 4801 |H | Short_Literal 0x1
08b3 e5fe | | Load 0x2,-0x2
08b4 e20f | | Load 0x1,0xf
08b5 035b | [ | Declare_Type Array,Constrained
08b6 4801 |H | Short_Literal 0x1
08b7 e5ff | | Load 0x2,-0x1
08b8 031b | | Declare_Type Variant_Record,Constrained
08b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08ba 00db | | Load_Top At_Offset_3
08bb 00db | | Load_Top At_Offset_3
08bc 02fc | | Declare_Variable Variant_Record,With_Constraint
08bd 4801 |H | Short_Literal 0x1
08be e5fe | | Load 0x2,-0x2
08bf e20f | | Load 0x1,0xf
08c0 0334 | 4 | Declare_Variable Array,With_Constraint
08c1 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
08c2 016a | j | QQ_execute Variant_Record,XXX
08c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08c4 0869 | i | Execute_Immediate Raise,0x69
08c5 0000 0000 | | .XXX[0x3]
08c7 0000 | |
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cb | | .CONST 0x08cb ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0001 | | .CONST 0x0001 ; Number of locals
08cb BODY_08c8:
08cb INIT_08c8:
08cb 4608 |F | Jump_Case 0x9
08cc 7808 |x | Jump 0x8d5 ; case 0x0
08cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
08ce 7813 |x | Jump 0x8e2 ; case 0x2
08cf 7812 |x | Jump 0x8e2 ; case 0x3
08d0 7811 |x | Jump 0x8e2 ; case 0x4
08d1 7810 |x | Jump 0x8e2 ; case 0x5
08d2 780f |x | Jump 0x8e2 ; case 0x6
08d3 780e |x | Jump 0x8e2 ; case 0x7
08d4 780d |x | Jump 0x8e2 ; case 0x8
08d5 00da | | Load_Top At_Offset_2
08d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08d7 0125 | % | Execute Any,Set_Constraint
08d8 00da | | Load_Top At_Offset_2
08d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08da 1c00 | | Execute_Immediate Run_Utility,0x0
08db 00da | | Load_Top At_Offset_2
08dc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
08dd 0125 | % | Execute Any,Set_Constraint
08de 00da | | Load_Top At_Offset_2
08df 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
08e0 1c00 | | Execute_Immediate Run_Utility,0x0
08e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
08e2 0869 | i | Execute_Immediate Raise,0x69
08e3 ; --------------------------------------------------------------------------------------
08e3 ; STRING TABLE
08e3 ; --------------------------------------------------------------------------------------
08e3 0020 | | .STRTAB 0x0020->0x08f3 ; ".state.cmvc_database"
08e4 0032 | 2 | .STRTAB 0x0032->0x08fd ; ".units.??'c(~library)"
08e5 0045 | E | .STRTAB 0x0045->0x0907 ; ".units"
08e6 0049 | I | .STRTAB 0x0049->0x090a ; "<ALL_WORLDS>"
08e7 0053 | S | .STRTAB 0x0053->0x0910 ; "<WORLDS>"
08e8 0059 | Y | .STRTAB 0x0059->0x0914 ; ".units.??'c(ada)'if(controlled)"
08e9 0076 | v | .STRTAB 0x0076->0x0924 ; "."
08ea 0075 | u | .STRTAB 0x0075->0x0924 ; "<QUIET>"
08eb 007a | z | .STRTAB 0x007a->0x0928 ; "_secondary_@_spec"
08ec 0089 | | .STRTAB 0x0089->0x0930 ; "'spec.<secondary_@>"
08ed 009a | | .STRTAB 0x009a->0x093a ; "<DIRECTORIES>"
08ee 00a5 | | .STRTAB 0x00a5->0x0940 ; "_secondary_@_body"
08ef 00b4 | | .STRTAB 0x00b4->0x0949 ; "'body.<secondary_@>"
08f0 00c5 | | .STRTAB 0x00c5->0x0952 ; ".@'c(ada).<secondary_"
08f1 00d8 | | .STRTAB 0x00d8->0x095d ; ">"
08f2 00d7 | | .STREND 0x00d7->0x095d
08f3 2e73 7461 |.sta| .STRTAB_STRINGS
095e 0000 0000 | | .XXX[0x2]
0960 ; --------------------------------------------------------------------------------------
0960 ; Debug Table
0960 ; --------------------------------------------------------------------------------------
0960 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ede,0x0000,0x0001,0x0000
0966 0000 0000 | | .BLANK 0000[0x13]
0979 8020 e0fb | | .XXX[0x4]
097b 802e 880c | . |
097d 0000 0000 | | .BLANK 0000[0x6]
0983 4400 |D | .XXX[0x1]
0984 0000 0000 | | .BLANK 0000[0x26]
09aa 0008 020e | | .XXX[0x10]
09ac 0fb8 0080 | |
09ae 0041 f7c4 | A |
09b0 0041 f7c4 | A |
09b2 0000 0000 | |
09b4 0041 c1f7 | A |
09b6 8020 e0fb | |
09b8 8072 280c | r( |
09ba 0000 0000 | | .BLANK 0000[0x6]
09c0 2100 0000 |! | .XXX[0x3]
09c2 0600 | |
09c3 0000 0000 | | .BLANK 0000[0x38]
09fb 0040 | @ | .XXX[0x1]
09fc 0000 0000 | | .BLANK 0000[0x4]