|
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: 6144 (0x1800)
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 0a98 | | .CONST 0x0a98 ; 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 00ab | | .CONST 0x00ab ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003e | > | .CONST 0x003e ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
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 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e e001 | | Load 0x0,0x1
002f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0030 e002 | | Load 0x0,0x2
0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0032 e002 | | Load 0x0,0x2
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 029f 09ab | | Declare_Subprogram INIT_09a8,For_Call
0036 4803 |H | Short_Literal 0x3
0037 032e | . | Declare_Type Record,Defined,Visible
0038 c227 | ' | Store 0x1,0x27
0039 00e3 | | Load_Encached Natural_Cache
003a 0266 | f | Execute Discrete,Bounds
003b e227 | ' | Load 0x1,0x27
003c 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
003e 4801 |H | Short_Literal 0x1
003f 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0040 c228 | ( | Store 0x1,0x28
0041 00e3 | | Load_Encached Natural_Cache
0042 e003 | | Load 0x0,0x3
0043 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0044 4801 |H | Short_Literal 0x1
0045 607e |`~ | Indirect_Literal Discrete,0xc4,{0x00000000, 0x7fffffff}
0046 e228 | ( | Load 0x1,0x28
0047 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0048 029f 09d3 | | Declare_Subprogram INIT_09d0,For_Call
004a 4800 |H | Short_Literal 0x0
004b 4801 |H | Short_Literal 0x1
004c 4801 |H | Short_Literal 0x1
004d 4800 |H | Short_Literal 0x0
004e 4801 |H | Short_Literal 0x1
004f 4801 |H | Short_Literal 0x1
0050 031e | | Declare_Type Variant_Record,Defined,Visible
0051 c20e | | Store 0x1,0xe
0052 e004 | | Load 0x0,0x4
0053 0129 | ) | Execute Any,Make_Visible
0054 c215 | | Store 0x1,0x15
0055 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0057 c22a | * | Store 0x1,0x2a
0058 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
005a c217 | | Store 0x1,0x17
005b 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
005d c22b | + | Store 0x1,0x2b
005e 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0060 c21a | | Store 0x1,0x1a
0061 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0063 c21b | | Store 0x1,0x1b
0064 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0066 c21c | | Store 0x1,0x1c
0067 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0069 c21d | | Store 0x1,0x1d
006a 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
006c c22c | , | Store 0x1,0x2c
006d 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
006f c229 | ) | Store 0x1,0x29
0070 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
0072 c22f | / | Store 0x1,0x2f
0073 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
0075 c221 | ! | Store 0x1,0x21
0076 00bf | | Action Accept_Activation
0077 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
0079 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call
007b 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call
007d 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call
007f 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call
0081 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call
0083 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call
0085 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
0087 029d 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call
0089 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
008b 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
008c 00c7 | | Action Elaborate_Subprogram
008d 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call
008f 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
0091 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call
0093 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call
0095 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0096 00c7 | | Action Elaborate_Subprogram
0097 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0098 00c7 | | Action Elaborate_Subprogram
0099 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
009a 00c7 | | Action Elaborate_Subprogram
009b 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call
009d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
009e 00c7 | | Action Elaborate_Subprogram
009f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00aa 00c7 | | Action Elaborate_Subprogram
00ab BODY_0008:
00ab 00bc | | Action Signal_Activated
00ac 00bb | | Action Signal_Completion
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00d1 | | Pop_Control Pop_Count_1
00b4 00da | | Load_Top At_Offset_2
00b5 01dc | | Execute Vector,Last
00b6 00db | | Load_Top At_Offset_3
00b7 01dd | | Execute Vector,First
00b8 0263 | c | Execute Discrete,Above_Bound
00b9 7006 |p | Jump_Nonzero 0xc0
00ba 00d8 | | Load_Top At_Offset_0
00bb e5ff | | Load 0x2,-0x1
00bc 01d5 | | Execute Vector,Field_Reference
00bd 1c00 | | Execute_Immediate Run_Utility,0x0
00be 0a01 | | Execute_Immediate Plus,0x1
00bf 7ff8 | | Jump 0xb8
00c0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00c1 0000 0000 | | .XXX[0x3]
00c3 0000 | |
00c4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00fb | | .CONST 0x00fb ; Address of begin
00c9 0186 | | .CONST 0x0186 ; Address of exception handler
00ca 000d | | .CONST 0x000d ; Number of locals
00cb INIT_00c8:
00cb 00e2 | | Load_Encached Integer_Cache
00cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00cd 00e2 | | Load_Encached Integer_Cache
00ce e001 | | Load 0x0,0x1
00cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d0 02c7 | | Declare_Variable Any
00d1 00d8 | | Load_Top At_Offset_0
00d2 1c00 | | Execute_Immediate Run_Utility,0x0
00d3 e001 | | Load 0x0,0x1
00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d5 4800 |H | Short_Literal 0x0
00d6 e20e | | Load 0x1,0xe
00d7 1c08 | | Execute_Immediate Run_Utility,0x8
00d8 00d8 | | Load_Top At_Offset_0
00d9 1c00 | | Execute_Immediate Run_Utility,0x0
00da e005 | | Load 0x0,0x5
00db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00dd 02c7 | | Declare_Variable Any
00de e5ff | | Load 0x2,-0x1
00df a407 | | Store_Unchecked 0x2,0x7
00e0 00d8 | | Load_Top At_Offset_0
00e1 8231 | 1 | Call 0x1,0x31
00e2 e20e | | Load 0x1,0xe
00e3 1c08 | | Execute_Immediate Run_Utility,0x8
00e4 00d8 | | Load_Top At_Offset_0
00e5 1c00 | | Execute_Immediate Run_Utility,0x0
00e6 e003 | | Load 0x0,0x3
00e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e9 e002 | | Load 0x0,0x2
00ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00eb 02c7 | | Declare_Variable Any
00ec 00d8 | | Load_Top At_Offset_0
00ed 1c00 | | Execute_Immediate Run_Utility,0x0
00ee e002 | | Load 0x0,0x2
00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f0 02c7 | | Declare_Variable Any
00f1 00d8 | | Load_Top At_Offset_0
00f2 1c00 | | Execute_Immediate Run_Utility,0x0
00f3 e005 | | Load 0x0,0x5
00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f6 02c7 | | Declare_Variable Any
00f7 00d8 | | Load_Top At_Offset_0
00f8 1c00 | | Execute_Immediate Run_Utility,0x0
00f9 029f 0703 | | Declare_Subprogram INIT_0700,For_Call
00fb BODY_00c8:
00fb e006 | | Load 0x0,0x6
00fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fd 4802 |H | Short_Literal 0x2
00fe 0092 09f8 | | Action Push_String_Extended,0x9f8 ; "Checking if units specify batch mode"
0100 e007 | | Load 0x0,0x7
0101 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0102 e003 | | Load 0x0,0x3
0103 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0104 e5fd | | Load 0x2,-0x3
0105 e407 | | Load 0x2,0x7
0106 822b | + | Call 0x1,0x2b
0107 c409 | | Store 0x2,0x9
0108 4800 |H | Short_Literal 0x0
0109 e409 | | Load 0x2,0x9
010a e003 | | Load 0x0,0x3
010b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
010c 7005 |p | Jump_Nonzero 0x112
010d e409 | | Load 0x2,0x9
010e e406 | | Load 0x2,0x6
010f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0110 e406 | | Load 0x2,0x6
0111 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0112 e006 | | Load 0x0,0x6
0113 180e | | Execute Package,Field_Execute,Field_Number 0xe
0114 4802 |H | Short_Literal 0x2
0115 0092 09f9 | | Action Push_String_Extended,0x9f9 ; "Selecting units for build"
0117 e007 | | Load 0x0,0x7
0118 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0119 e407 | | Load 0x2,0x7
011a e005 | | Load 0x0,0x5
011b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
011d 4801 |H | Short_Literal 0x1
011e a403 | | Store_Unchecked 0x2,0x3
011f 00cf | | Action Mark_Auxiliary
0120 7857 |xW | Jump 0x178
0121 e407 | | Load 0x2,0x7
0122 e005 | | Load 0x0,0x5
0123 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0124 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0125 c40c | | Store 0x2,0xc
0126 00da | | Load_Top At_Offset_2
0127 8232 | 2 | Call 0x1,0x32
0128 c404 | | Store 0x2,0x4
0129 e404 | | Load 0x2,0x4
012a e008 | | Load 0x0,0x8
012b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
012c 6845 |hE | Jump_Zero 0x172
012d 00db | | Load_Top At_Offset_3
012e 0120 | | Execute Any,Is_Value
012f 6803 |h | Jump_Zero 0x133
0130 e002 | | Load 0x0,0x2
0131 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0132 7801 |x | Jump 0x134
0133 00db | | Load_Top At_Offset_3
0134 e40a | | Load 0x2,0xa
0135 0120 | | Execute Any,Is_Value
0136 6803 |h | Jump_Zero 0x13a
0137 e002 | | Load 0x0,0x2
0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0139 7801 |x | Jump 0x13b
013a e40a | | Load 0x2,0xa
013b e5fd | | Load 0x2,-0x3
013c e404 | | Load 0x2,0x4
013d 8237 | 7 | Call 0x1,0x37
013e c40a | | Store 0x2,0xa
013f c40b | | Store 0x2,0xb
0140 e5fe | | Load 0x2,-0x2
0141 681b |h | Jump_Zero 0x15d
0142 00db | | Load_Top At_Offset_3
0143 e40a | | Load 0x2,0xa
0144 e002 | | Load 0x0,0x2
0145 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0146 682b |h+ | Jump_Zero 0x172
0147 e404 | | Load 0x2,0x4
0148 e403 | | Load 0x2,0x3
0149 e408 | | Load 0x2,0x8
014a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
014b 01d5 | | Execute Vector,Field_Reference
014c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014d e40a | | Load 0x2,0xa
014e e403 | | Load 0x2,0x3
014f e408 | | Load 0x2,0x8
0150 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0151 01d5 | | Execute Vector,Field_Reference
0152 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0153 00db | | Load_Top At_Offset_3
0154 e403 | | Load 0x2,0x3
0155 e408 | | Load 0x2,0x8
0156 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0157 01d5 | | Execute Vector,Field_Reference
0158 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0159 e403 | | Load 0x2,0x3
015a 0a01 | | Execute_Immediate Plus,0x1
015b c403 | | Store 0x2,0x3
015c 7815 |x | Jump 0x172
015d e404 | | Load 0x2,0x4
015e e403 | | Load 0x2,0x3
015f e408 | | Load 0x2,0x8
0160 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0161 01d5 | | Execute Vector,Field_Reference
0162 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0163 e40a | | Load 0x2,0xa
0164 e403 | | Load 0x2,0x3
0165 e408 | | Load 0x2,0x8
0166 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0167 01d5 | | Execute Vector,Field_Reference
0168 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0169 00db | | Load_Top At_Offset_3
016a e403 | | Load 0x2,0x3
016b e408 | | Load 0x2,0x8
016c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
016d 01d5 | | Execute Vector,Field_Reference
016e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
016f e403 | | Load 0x2,0x3
0170 0a01 | | Execute_Immediate Plus,0x1
0171 c403 | | Store 0x2,0x3
0172 e407 | | Load 0x2,0x7
0173 e005 | | Load 0x0,0x5
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0176 c407 | | Store 0x2,0x7
0177 00c9 | | Action Pop_Auxiliary_Loop
0178 e407 | | Load 0x2,0x7
0179 e005 | | Load 0x0,0x5
017a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
017c 6fa4 |o | Jump_Zero 0x121
017d 00ce | | Action Pop_Auxiliary
017e e403 | | Load 0x2,0x3
017f 0c02 | | Execute_Immediate Greater_Equal,0x2
0180 6802 |h | Jump_Zero 0x183
0181 840d | | Call 0x2,0xd
0182 7802 |x | Jump 0x185
0183 e406 | | Load 0x2,0x6
0184 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0185 0831 | 1 | Execute_Immediate Raise,0x31
0186 TRAP_00c8:
0186 0007 | | Action Break_Optional
0187 e5fd | | Load 0x2,-0x3
0188 4800 |H | Short_Literal 0x0
0189 4801 |H | Short_Literal 0x1
018a e009 | | Load 0x0,0x9
018b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
018c 0092 09fa | | Action Push_String_Extended,0x9fa ; "get_build_list"
018e 8235 | 5 | Call 0x1,0x35
018f 0831 | 1 | Execute_Immediate Raise,0x31
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a4 | | .CONST 0x01a4 ; Address of begin
0191 01be | | .CONST 0x01be ; Address of exception handler
0192 0009 | | .CONST 0x0009 ; Number of locals
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0195 e20e | | Load 0x1,0xe
0196 1c08 | | Execute_Immediate Run_Utility,0x8
0197 00db | | Load_Top At_Offset_3
0198 00d9 | | Load_Top At_Offset_1
0199 016d | m | Execute Variant_Record,Structure_Write
019a a00a | | Store_Unchecked 0x0,0xa
019b 00c6 | | Action Check_Subprogram_Elaborated
019c e227 | ' | Load 0x1,0x27
019d 00e3 | | Load_Encached Natural_Cache
019e e228 | ( | Load 0x1,0x28
019f 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
01a0 e00b | | Load 0x0,0xb
01a1 e00c | | Load 0x0,0xc
01a2 4809 |H | Short_Literal 0x9
01a3 0007 | | Action Break_Optional
01a4 BODY_0190:
01a4 e006 | | Load 0x0,0x6
01a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a6 4802 |H | Short_Literal 0x2
01a7 0092 09fb | | Action Push_String_Extended,0x9fb ; "Sorting build list"
01a9 e007 | | Load 0x0,0x7
01aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ab e402 | | Load 0x2,0x2
01ac 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ad 0c01 | | Execute_Immediate Greater_Equal,0x1
01ae 680d |h | Jump_Zero 0x1bc
01af e402 | | Load 0x2,0x2
01b0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01b1 e403 | | Load 0x2,0x3
01b2 e404 | | Load 0x2,0x4
01b3 e405 | | Load 0x2,0x5
01b4 4806 |H | Short_Literal 0x6
01b5 4802 |H | Short_Literal 0x2
01b6 0099 | | Action Reference_Dynamic
01b7 4807 |H | Short_Literal 0x7
01b8 4802 |H | Short_Literal 0x2
01b9 0099 | | Action Reference_Dynamic
01ba 800a | | Call 0x0,0xa
01bb 00d1 | | Pop_Control Pop_Count_1
01bc e402 | | Load 0x2,0x2
01bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01be TRAP_0190:
01be 0007 | | Action Break_Optional
01bf e5fe | | Load 0x2,-0x2
01c0 4800 |H | Short_Literal 0x0
01c1 4801 |H | Short_Literal 0x1
01c2 e009 | | Load 0x0,0x9
01c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c4 0092 09fc | | Action Push_String_Extended,0x9fc ; "sort_build_list"
01c6 8235 | 5 | Call 0x1,0x35
01c7 0831 | 1 | Execute_Immediate Raise,0x31
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01e0 | | .CONST 0x01e0 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0006 | | .CONST 0x0006 ; Number of locals
01cb INIT_01c8:
01cb e001 | | Load 0x0,0x1
01cc 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
01cd 0322 | " | Declare_Variable Record
01ce 00d8 | | Load_Top At_Offset_0
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 e001 | | Load 0x0,0x1
01d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d2 02c7 | | Declare_Variable Any
01d3 00d8 | | Load_Top At_Offset_0
01d4 1c00 | | Execute_Immediate Run_Utility,0x0
01d5 e003 | | Load 0x0,0x3
01d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01d8 e005 | | Load 0x0,0x5
01d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01da 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01db 02c7 | | Declare_Variable Any
01dc e5ff | | Load 0x2,-0x1
01dd a405 | | Store_Unchecked 0x2,0x5
01de 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call
01e0 BODY_01c8:
01e0 4800 |H | Short_Literal 0x0
01e1 a5fd | | Store_Unchecked 0x2,-0x3
01e2 00d9 | | Load_Top At_Offset_1
01e3 8231 | 1 | Call 0x1,0x31
01e4 7003 |p | Jump_Nonzero 0x1e8
01e5 4800 |H | Short_Literal 0x0
01e6 a5fd | | Store_Unchecked 0x2,-0x3
01e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e8 00d9 | | Load_Top At_Offset_1
01e9 e005 | | Load 0x0,0x5
01ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01eb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01ec e5fe | | Load 0x2,-0x2
01ed 00da | | Load_Top At_Offset_2
01ee e005 | | Load 0x0,0x5
01ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01f1 8232 | 2 | Call 0x1,0x32
01f2 e008 | | Load 0x0,0x8
01f3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01f4 e402 | | Load 0x2,0x2
01f5 017d | } | Execute Record,Structure_Write
01f6 e5fe | | Load 0x2,-0x2
01f7 4800 |H | Short_Literal 0x0
01f8 00db | | Load_Top At_Offset_3
01f9 e005 | | Load 0x0,0x5
01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01fc 8232 | 2 | Call 0x1,0x32
01fd e008 | | Load 0x0,0x8
01fe 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ff c403 | | Store 0x2,0x3
0200 e003 | | Load 0x0,0x3
0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0202 e5fe | | Load 0x2,-0x2
0203 e402 | | Load 0x2,0x2
0204 e403 | | Load 0x2,0x3
0205 8238 | 8 | Call 0x1,0x38
0206 005b | [ | Store_Top Discrete,At_Offset_3
0207 4800 |H | Short_Literal 0x0
0208 00db | | Load_Top At_Offset_3
0209 e003 | | Load 0x0,0x3
020a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
020b 7003 |p | Jump_Nonzero 0x20f
020c 00da | | Load_Top At_Offset_2
020d a5fd | | Store_Unchecked 0x2,-0x3
020e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020f 8406 | | Call 0x2,0x6
0210 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0227 | ' | .CONST 0x0227 ; Address of begin
0219 0269 | i | .CONST 0x0269 ; Address of exception handler
021a 0004 | | .CONST 0x0004 ; Number of locals
021b INIT_0218:
021b e001 | | Load 0x0,0x1
021c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
021d 0322 | " | Declare_Variable Record
021e 00d8 | | Load_Top At_Offset_0
021f 1c00 | | Execute_Immediate Run_Utility,0x0
0220 e001 | | Load 0x0,0x1
0221 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0222 02c7 | | Declare_Variable Any
0223 00d8 | | Load_Top At_Offset_0
0224 1c00 | | Execute_Immediate Run_Utility,0x0
0225 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call
0227 BODY_0218:
0227 4800 |H | Short_Literal 0x0
0228 e5ff | | Load 0x2,-0x1
0229 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
022a e003 | | Load 0x0,0x3
022b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
022c 7002 |p | Jump_Nonzero 0x22f
022d 00ea | | Load_Encached Null_String_Cache
022e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
022f e5ff | | Load 0x2,-0x1
0230 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0231 7002 |p | Jump_Nonzero 0x234
0232 00ea | | Load_Encached Null_String_Cache
0233 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0234 e5fe | | Load 0x2,-0x2
0235 4801 |H | Short_Literal 0x1
0236 e5ff | | Load 0x2,-0x1
0237 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0238 01d5 | | Execute Vector,Field_Reference
0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023a e008 | | Load 0x0,0x8
023b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
023c 00db | | Load_Top At_Offset_3
023d 017d | } | Execute Record,Structure_Write
023e e5fe | | Load 0x2,-0x2
023f 4800 |H | Short_Literal 0x0
0240 4801 |H | Short_Literal 0x1
0241 e5ff | | Load 0x2,-0x1
0242 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0243 01d5 | | Execute Vector,Field_Reference
0244 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0245 e008 | | Load 0x0,0x8
0246 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0247 c403 | | Store 0x2,0x3
0248 00d9 | | Load_Top At_Offset_1
0249 e001 | | Load 0x0,0x1
024a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
024b 012e | . | Execute Any,Not_Equal
024c 6802 |h | Jump_Zero 0x24f
024d 8404 | | Call 0x2,0x4
024e 7819 |x | Jump 0x268
024f e006 | | Load 0x0,0x6
0250 180e | | Execute Package,Field_Execute,Field_Number 0xe
0251 4801 |H | Short_Literal 0x1
0252 4801 |H | Short_Literal 0x1
0253 e00d | | Load 0x0,0xd
0254 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0255 035b | [ | Declare_Type Array,Constrained
0256 0337 | 7 | Declare_Variable Array
0257 00db | | Load_Top At_Offset_3
0258 e001 | | Load 0x0,0x1
0259 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
025b e00d | | Load 0x0,0xd
025c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
025d e00d | | Load 0x0,0xd
025e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
025f 0119 | | Execute Any,Check_In_Formal_Type
0260 4801 |H | Short_Literal 0x1
0261 00da | | Load_Top At_Offset_2
0262 01d6 | | Execute Vector,Field_Write
0263 6010 |` | Indirect_Literal Discrete,0x274,{0x00000000, 0x000081ed}
0264 e003 | | Load 0x0,0x3
0265 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0266 00ea | | Load_Encached Null_String_Cache
0267 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0268 0831 | 1 | Execute_Immediate Raise,0x31
0269 TRAP_0218:
0269 0007 | | Action Break_Optional
026a e5fe | | Load 0x2,-0x2
026b 4800 |H | Short_Literal 0x0
026c 4801 |H | Short_Literal 0x1
026d e009 | | Load 0x0,0x9
026e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
026f 0092 09fd | | Action Push_String_Extended,0x9fd ; "get_remote_machine"
0271 8235 | 5 | Call 0x1,0x35
0272 00ea | | Load_Encached Null_String_Cache
0273 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0274 0000 0000 | | .LITERAL {0x00000000, 0x000081ed}
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0284 | | .CONST 0x0284 ; Address of begin
0279 0286 | | .CONST 0x0286 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b e001 | | Load 0x0,0x1
027c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
027d 0322 | " | Declare_Variable Record
027e e5fe | | Load 0x2,-0x2
027f e5ff | | Load 0x2,-0x1
0280 e008 | | Load 0x0,0x8
0281 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0282 00d9 | | Load_Top At_Offset_1
0283 017d | } | Execute Record,Structure_Write
0284 BODY_0278:
0284 00d8 | | Load_Top At_Offset_0
0285 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0286 TRAP_0278:
0286 0007 | | Action Break_Optional
0287 e5fe | | Load 0x2,-0x2
0288 4800 |H | Short_Literal 0x0
0289 4801 |H | Short_Literal 0x1
028a e009 | | Load 0x0,0x9
028b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
028c 0092 09fe | | Action Push_String_Extended,0x9fe ; "get_target_key"
028e 8235 | 5 | Call 0x1,0x35
028f 0831 | 1 | Execute_Immediate Raise,0x31
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0296 | | .CONST 0x0296 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0002 | | .CONST 0x0002 ; Number of locals
0293 INIT_0290:
0293 e003 | | Load 0x0,0x3
0294 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0295 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0296 BODY_0290:
0296 4800 |H | Short_Literal 0x0
0297 a5fc | | Store_Unchecked 0x2,-0x4
0298 00db | | Load_Top At_Offset_3
0299 012c | , | Execute Any,Size
029a 6850 |hP | Jump_Zero 0x2eb
029b 00cf | | Action Mark_Auxiliary
029c e5ff | | Load 0x2,-0x1
029d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
029e 01dc | | Execute Vector,Last
029f 4801 |H | Short_Literal 0x1
02a0 0263 | c | Execute Discrete,Above_Bound
02a1 7048 |pH | Jump_Nonzero 0x2ea
02a2 e003 | | Load 0x0,0x3
02a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a4 e5fd | | Load 0x2,-0x3
02a5 e5fe | | Load 0x2,-0x2
02a6 00db | | Load_Top At_Offset_3
02a7 e5ff | | Load 0x2,-0x1
02a8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02a9 01d5 | | Execute Vector,Field_Reference
02aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ab e00e | | Load 0x0,0xe
02ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ad c5fc | | Store 0x2,-0x4
02ae 4800 |H | Short_Literal 0x0
02af e402 | | Load 0x2,0x2
02b0 e003 | | Load 0x0,0x3
02b1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02b2 701e |p | Jump_Nonzero 0x2d1
02b3 e5fd | | Load 0x2,-0x3
02b4 4801 |H | Short_Literal 0x1
02b5 4801 |H | Short_Literal 0x1
02b6 e00d | | Load 0x0,0xd
02b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b8 035b | [ | Declare_Type Array,Constrained
02b9 0337 | 7 | Declare_Variable Array
02ba 00da | | Load_Top At_Offset_2
02bb e5ff | | Load 0x2,-0x1
02bc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02bd 01d5 | | Execute Vector,Field_Reference
02be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02bf e008 | | Load 0x0,0x8
02c0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02c1 e00d | | Load 0x0,0xd
02c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c3 0119 | | Execute Any,Check_In_Formal_Type
02c4 4801 |H | Short_Literal 0x1
02c5 00da | | Load_Top At_Offset_2
02c6 01d6 | | Execute Vector,Field_Write
02c7 6028 |`( | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x000081f2}
02c8 e003 | | Load 0x0,0x3
02c9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02ca e00d | | Load 0x0,0xd
02cb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02cc 6023 |`# | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x000081f2}
02cd e003 | | Load 0x0,0x3
02ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cf a5fc | | Store_Unchecked 0x2,-0x4
02d0 7817 |x | Jump 0x2e8
02d1 e5fd | | Load 0x2,-0x3
02d2 4801 |H | Short_Literal 0x1
02d3 4801 |H | Short_Literal 0x1
02d4 e00d | | Load 0x0,0xd
02d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d6 035b | [ | Declare_Type Array,Constrained
02d7 0337 | 7 | Declare_Variable Array
02d8 00da | | Load_Top At_Offset_2
02d9 e5ff | | Load 0x2,-0x1
02da 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02db 01d5 | | Execute Vector,Field_Reference
02dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02dd e008 | | Load 0x0,0x8
02de 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02df e00d | | Load 0x0,0xd
02e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02e1 0119 | | Execute Any,Check_In_Formal_Type
02e2 4801 |H | Short_Literal 0x1
02e3 00da | | Load_Top At_Offset_2
02e4 01d6 | | Execute Vector,Field_Write
02e5 6006 |` | Indirect_Literal Discrete,0x2ec,{0x00000000, 0x000081ff}
02e6 e003 | | Load 0x0,0x3
02e7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02e8 00c8 | | Action Pop_Auxiliary_Range
02e9 3fb8 |? | Loop_Increasing 0x2a2
02ea 00ce | | Action Pop_Auxiliary
02eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ec 0000 0000 | | .LITERAL {0x00000000, 0x000081ff}
02f0 0000 0000 | | .LITERAL {0x00000000, 0x000081f2}
02f4 0000 0000 | | .BLANK 0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0305 | | .CONST 0x0305 ; Address of begin
02f9 0318 | | .CONST 0x0318 ; Address of exception handler
02fa 0003 | | .CONST 0x0003 ; Number of locals
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc e001 | | Load 0x0,0x1
02fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fe 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02ff e001 | | Load 0x0,0x1
0300 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0301 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0302 02c7 | | Declare_Variable Any
0303 00d8 | | Load_Top At_Offset_0
0304 1c00 | | Execute_Immediate Run_Utility,0x0
0305 BODY_02f8:
0305 e5fe | | Load 0x2,-0x2
0306 4800 |H | Short_Literal 0x0
0307 00db | | Load_Top At_Offset_3
0308 0092 09ff | | Action Push_String_Extended,0x9ff ; "'c(main_body)"
030a 01cc | | Execute Vector,Catenate
030b e008 | | Load 0x0,0x8
030c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
030d c403 | | Store 0x2,0x3
030e 00d8 | | Load_Top At_Offset_0
030f e001 | | Load 0x0,0x1
0310 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0311 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0312 012f | / | Execute Any,Equal
0313 6802 |h | Jump_Zero 0x316
0314 4800 |H | Short_Literal 0x0
0315 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0316 4801 |H | Short_Literal 0x1
0317 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0318 TRAP_02f8:
0318 0007 | | Action Break_Optional
0319 4800 |H | Short_Literal 0x0
031a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 034b | K | .CONST 0x034b ; Address of begin
0321 0356 | V | .CONST 0x0356 ; Address of exception handler
0322 000a | | .CONST 0x000a ; Number of locals
0323 INIT_0320:
0323 e005 | | Load 0x0,0x5
0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0325 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0326 02c7 | | Declare_Variable Any
0327 00db | | Load_Top At_Offset_3
0328 a402 | | Store_Unchecked 0x2,0x2
0329 00db | | Load_Top At_Offset_3
032a 8231 | 1 | Call 0x1,0x31
032b 00e2 | | Load_Encached Integer_Cache
032c 03f1 | | Declare_Variable Discrete,With_Value
032d 00e2 | | Load_Encached Integer_Cache
032e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
032f 4800 |H | Short_Literal 0x0
0330 e20e | | Load 0x1,0xe
0331 1c08 | | Execute_Immediate Run_Utility,0x8
0332 00d8 | | Load_Top At_Offset_0
0333 1c00 | | Execute_Immediate Run_Utility,0x0
0334 e001 | | Load 0x0,0x1
0335 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0336 02c7 | | Declare_Variable Any
0337 00d8 | | Load_Top At_Offset_0
0338 1c00 | | Execute_Immediate Run_Utility,0x0
0339 e005 | | Load 0x0,0x5
033a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033c 02c7 | | Declare_Variable Any
033d 00d8 | | Load_Top At_Offset_0
033e 1c00 | | Execute_Immediate Run_Utility,0x0
033f e002 | | Load 0x0,0x2
0340 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0341 02c7 | | Declare_Variable Any
0342 00d8 | | Load_Top At_Offset_0
0343 1c00 | | Execute_Immediate Run_Utility,0x0
0344 e002 | | Load 0x0,0x2
0345 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0346 02c7 | | Declare_Variable Any
0347 00d8 | | Load_Top At_Offset_0
0348 1c00 | | Execute_Immediate Run_Utility,0x0
0349 029f 0783 | | Declare_Subprogram INIT_0780,For_Call
034b BODY_0320:
034b e403 | | Load 0x2,0x3
034c 0c01 | | Execute_Immediate Greater_Equal,0x1
034d 6802 |h | Jump_Zero 0x350
034e 840a | | Call 0x2,0xa
034f 7805 |x | Jump 0x355
0350 4800 |H | Short_Literal 0x0
0351 e405 | | Load 0x2,0x5
0352 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0353 e405 | | Load 0x2,0x5
0354 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0355 0831 | 1 | Execute_Immediate Raise,0x31
0356 TRAP_0320:
0356 0007 | | Action Break_Optional
0357 e5fe | | Load 0x2,-0x2
0358 4800 |H | Short_Literal 0x0
0359 4801 |H | Short_Literal 0x1
035a e009 | | Load 0x0,0x9
035b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
035c 0092 0a00 | | Action Push_String_Extended,0xa00 ; "to_unit_list"
035e 8235 | 5 | Call 0x1,0x35
035f e00d | | Load 0x0,0xd
0360 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0361 6006 |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x0000813b}
0362 e003 | | Load 0x0,0x3
0363 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0364 e405 | | Load 0x2,0x5
0365 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0366 e405 | | Load 0x2,0x5
0367 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0368 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
036c 0000 0000 | | .BLANK 0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 038d | | .CONST 0x038d ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0008 | | .CONST 0x0008 ; 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 00db | | Load_Top At_Offset_3
0378 a402 | | Store_Unchecked 0x2,0x2
0379 4800 |H | Short_Literal 0x0
037a e20e | | Load 0x1,0xe
037b 1c08 | | Execute_Immediate Run_Utility,0x8
037c 00d8 | | Load_Top At_Offset_0
037d 1c00 | | Execute_Immediate Run_Utility,0x0
037e 4800 |H | Short_Literal 0x0
037f e20e | | Load 0x1,0xe
0380 1c08 | | Execute_Immediate Run_Utility,0x8
0381 00d8 | | Load_Top At_Offset_0
0382 1c00 | | Execute_Immediate Run_Utility,0x0
0383 e001 | | Load 0x0,0x1
0384 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0385 02c7 | | Declare_Variable Any
0386 00d8 | | Load_Top At_Offset_0
0387 1c00 | | Execute_Immediate Run_Utility,0x0
0388 00e2 | | Load_Encached Integer_Cache
0389 e001 | | Load 0x0,0x1
038a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038b 029f 0803 | | Declare_Subprogram INIT_0800,For_Call
038d BODY_0370:
038d e402 | | Load 0x2,0x2
038e 8230 | 0 | Call 0x1,0x30
038f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0390 00da | | Load_Top At_Offset_2
0391 7005 |p | Jump_Nonzero 0x397
0392 4800 |H | Short_Literal 0x0
0393 e403 | | Load 0x2,0x3
0394 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0395 e403 | | Load 0x2,0x3
0396 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0397 8408 | | Call 0x2,0x8
0398 0831 | 1 | Execute_Immediate Raise,0x31
0399 0000 0000 | | .BLANK 0000[0x7]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03b3 | | .CONST 0x03b3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0005 | | .CONST 0x0005 ; Number of locals
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 e00f | | Load 0x0,0xf
03a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03a6 e005 | | Load 0x0,0x5
03a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a9 02c7 | | Declare_Variable Any
03aa 00d8 | | Load_Top At_Offset_0
03ab 1c00 | | Execute_Immediate Run_Utility,0x0
03ac e005 | | Load 0x0,0x5
03ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03af 02c7 | | Declare_Variable Any
03b0 00d8 | | Load_Top At_Offset_0
03b1 1c00 | | Execute_Immediate Run_Utility,0x0
03b2 00e1 | | Load_Encached Boolean_Cache
03b3 BODY_03a0:
03b3 4800 |H | Short_Literal 0x0
03b4 a5fb | | Store_Unchecked 0x2,-0x5
03b5 4800 |H | Short_Literal 0x0
03b6 e402 | | Load 0x2,0x2
03b7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03b8 e003 | | Load 0x0,0x3
03b9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03ba 6849 |hI | Jump_Zero 0x404
03bb e5fc | | Load 0x2,-0x4
03bc e005 | | Load 0x0,0x5
03bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03be 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
03bf 4800 |H | Short_Literal 0x0
03c0 e402 | | Load 0x2,0x2
03c1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03c2 e003 | | Load 0x0,0x3
03c3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03c4 683e |h> | Jump_Zero 0x403
03c5 00cf | | Action Mark_Auxiliary
03c6 e402 | | Load 0x2,0x2
03c7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03c8 01dc | | Execute Vector,Last
03c9 4801 |H | Short_Literal 0x1
03ca 0263 | c | Execute Discrete,Above_Bound
03cb 7036 |p6 | Jump_Nonzero 0x402
03cc 00d8 | | Load_Top At_Offset_0
03cd e402 | | Load 0x2,0x2
03ce 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03cf 01d7 | | Execute Vector,Field_Read
03d0 c403 | | Store 0x2,0x3
03d1 e403 | | Load 0x2,0x3
03d2 823a | : | Call 0x1,0x3a
03d3 702c |p, | Jump_Nonzero 0x400
03d4 00e1 | | Load_Encached Boolean_Cache
03d5 e005 | | Load 0x0,0x5
03d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d8 e403 | | Load 0x2,0x3
03d9 e5fc | | Load 0x2,-0x4
03da e005 | | Load 0x0,0x5
03db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03dc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03dd c405 | | Store 0x2,0x5
03de e403 | | Load 0x2,0x3
03df e005 | | Load 0x0,0x5
03e0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03e1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03e2 c404 | | Store 0x2,0x4
03e3 e404 | | Load 0x2,0x4
03e4 e005 | | Load 0x0,0x5
03e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e6 180f | | Execute Package,Field_Execute,Field_Number 0xf
03e7 7018 |p | Jump_Nonzero 0x400
03e8 e404 | | Load 0x2,0x4
03e9 e005 | | Load 0x0,0x5
03ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03eb 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
03ec 6813 |h | Jump_Zero 0x400
03ed 00e1 | | Load_Encached Boolean_Cache
03ee e005 | | Load 0x0,0x5
03ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f1 e404 | | Load 0x2,0x4
03f2 e5fc | | Load 0x2,-0x4
03f3 e005 | | Load 0x0,0x5
03f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f5 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03f6 c405 | | Store 0x2,0x5
03f7 e404 | | Load 0x2,0x4
03f8 e005 | | Load 0x0,0x5
03f9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03fb 7004 |p | Jump_Nonzero 0x400
03fc e5fc | | Load 0x2,-0x4
03fd e404 | | Load 0x2,0x4
03fe 823c | < | Call 0x1,0x3c
03ff c5fc | | Store 0x2,-0x4
0400 00c8 | | Action Pop_Auxiliary_Range
0401 3fca |? | Loop_Increasing 0x3cc
0402 00ce | | Action Pop_Auxiliary
0403 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0404 00db | | Load_Top At_Offset_3
0405 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0406 a5fb | | Store_Unchecked 0x2,-0x5
0407 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0412 | | .CONST 0x0412 ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0003 | | .CONST 0x0003 ; Number of locals
040b INIT_0408:
040b e001 | | Load 0x0,0x1
040c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
040d 02c7 | | Declare_Variable Any
040e 00d8 | | Load_Top At_Offset_0
040f 1c00 | | Execute_Immediate Run_Utility,0x0
0410 029f 08cb | | Declare_Subprogram INIT_08c8,For_Call
0412 BODY_0408:
0412 4800 |H | Short_Literal 0x0
0413 a5fd | | Store_Unchecked 0x2,-0x3
0414 00cf | | Action Mark_Auxiliary
0415 e5ff | | Load 0x2,-0x1
0416 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0417 01dc | | Execute Vector,Last
0418 4801 |H | Short_Literal 0x1
0419 0263 | c | Execute Discrete,Above_Bound
041a 7009 |p | Jump_Nonzero 0x424
041b 00d8 | | Load_Top At_Offset_0
041c e5ff | | Load 0x2,-0x1
041d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
041e 01d5 | | Execute Vector,Field_Reference
041f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0420 c402 | | Store 0x2,0x2
0421 8403 | | Call 0x2,0x3
0422 00c8 | | Action Pop_Auxiliary_Range
0423 3ff7 |? | Loop_Increasing 0x41b
0424 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0425 0000 0000 | | .XXX[0x3]
0427 0000 | |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0433 | 3 | .CONST 0x0433 ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0003 | | .CONST 0x0003 ; Number of locals
042b INIT_0428:
042b 00e2 | | Load_Encached Integer_Cache
042c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
042d e001 | | Load 0x0,0x1
042e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
042f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0430 02c7 | | Declare_Variable Any
0431 e5ff | | Load 0x2,-0x1
0432 a403 | | Store_Unchecked 0x2,0x3
0433 BODY_0428:
0433 00d8 | | Load_Top At_Offset_0
0434 e001 | | Load 0x0,0x1
0435 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0436 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0437 c403 | | Store 0x2,0x3
0438 00cf | | Action Mark_Auxiliary
0439 7809 |x | Jump 0x443
043a 00da | | Load_Top At_Offset_2
043b 0a01 | | Execute_Immediate Plus,0x1
043c 005b | [ | Store_Top Discrete,At_Offset_3
043d 00d9 | | Load_Top At_Offset_1
043e e001 | | Load 0x0,0x1
043f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0440 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0441 c403 | | Store 0x2,0x3
0442 00c9 | | Action Pop_Auxiliary_Loop
0443 00d9 | | Load_Top At_Offset_1
0444 e001 | | Load 0x0,0x1
0445 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0446 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0447 6ff2 |o | Jump_Zero 0x43a
0448 00ce | | Action Pop_Auxiliary
0449 00d9 | | Load_Top At_Offset_1
044a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044b 0000 0000 | | .BLANK 0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 045b | [ | .CONST 0x045b ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0003 | | .CONST 0x0003 ; Number of locals
0453 INIT_0450:
0453 00e2 | | Load_Encached Integer_Cache
0454 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0455 e005 | | Load 0x0,0x5
0456 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0457 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0458 02c7 | | Declare_Variable Any
0459 e5ff | | Load 0x2,-0x1
045a a403 | | Store_Unchecked 0x2,0x3
045b BODY_0450:
045b 00d8 | | Load_Top At_Offset_0
045c e005 | | Load 0x0,0x5
045d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
045f 00cf | | Action Mark_Auxiliary
0460 7809 |x | Jump 0x46a
0461 00da | | Load_Top At_Offset_2
0462 0a01 | | Execute_Immediate Plus,0x1
0463 005b | [ | Store_Top Discrete,At_Offset_3
0464 00d9 | | Load_Top At_Offset_1
0465 e005 | | Load 0x0,0x5
0466 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0467 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0468 c403 | | Store 0x2,0x3
0469 00c9 | | Action Pop_Auxiliary_Loop
046a 00d9 | | Load_Top At_Offset_1
046b e005 | | Load 0x0,0x5
046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
046e 6ff2 |o | Jump_Zero 0x461
046f 00ce | | Action Pop_Auxiliary
0470 00d9 | | Load_Top At_Offset_1
0471 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0472 0000 0000 | | .BLANK 0000[0x6]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0482 | | .CONST 0x0482 ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0003 | | .CONST 0x0003 ; Number of locals
047b INIT_0478:
047b e001 | | Load 0x0,0x1
047c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
047d 02c7 | | Declare_Variable Any
047e 00d8 | | Load_Top At_Offset_0
047f 1c00 | | Execute_Immediate Run_Utility,0x0
0480 e001 | | Load 0x0,0x1
0481 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0482 BODY_0478:
0482 e001 | | Load 0x0,0x1
0483 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0484 00da | | Load_Top At_Offset_2
0485 0120 | | Execute Any,Is_Value
0486 6803 |h | Jump_Zero 0x48a
0487 e001 | | Load 0x0,0x1
0488 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0489 7801 |x | Jump 0x48b
048a 00da | | Load_Top At_Offset_2
048b e5ff | | Load 0x2,-0x1
048c e005 | | Load 0x0,0x5
048d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
048f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0490 c402 | | Store 0x2,0x2
0491 0059 | Y | Store_Top Discrete,At_Offset_1
0492 00d8 | | Load_Top At_Offset_0
0493 681b |h | Jump_Zero 0x4af
0494 e006 | | Load 0x0,0x6
0495 180e | | Execute Package,Field_Execute,Field_Number 0xe
0496 4801 |H | Short_Literal 0x1
0497 4801 |H | Short_Literal 0x1
0498 e00d | | Load 0x0,0xd
0499 1b0f | | Execute Package,Field_Read,Field_Number 0xf
049a 035b | [ | Declare_Type Array,Constrained
049b 0337 | 7 | Declare_Variable Array
049c 00da | | Load_Top At_Offset_2
049d e001 | | Load 0x0,0x1
049e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049f 011c | | Execute Any,Convert_Unchecked
04a0 1c01 | | Execute_Immediate Run_Utility,0x1
04a1 e00d | | Load 0x0,0xd
04a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04a3 e00d | | Load 0x0,0xd
04a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a5 0119 | | Execute Any,Check_In_Formal_Type
04a6 4801 |H | Short_Literal 0x1
04a7 00da | | Load_Top At_Offset_2
04a8 01d6 | | Execute Vector,Field_Write
04a9 600a |` | Indirect_Literal Discrete,0x4b4,{0x00000000, 0x0000820f}
04aa e003 | | Load 0x0,0x3
04ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04ac e001 | | Load 0x0,0x1
04ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04af 00d9 | | Load_Top At_Offset_1
04b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b1 0000 0000 | | .XXX[0x3]
04b3 0000 | |
04b4 0000 0000 | | .LITERAL {0x00000000, 0x0000820f}
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 00da | | Load_Top At_Offset_2
04bc e001 | | Load 0x0,0x1
04bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04be 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04bf e005 | | Load 0x0,0x5
04c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04c1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c3 0000 0000 | | .BLANK 0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d1 | | .CONST 0x04d1 ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0002 | | .CONST 0x0002 ; Number of locals
04cb INIT_04c8:
04cb e005 | | Load 0x0,0x5
04cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04cd 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
04ce 02c7 | | Declare_Variable Any
04cf 00d8 | | Load_Top At_Offset_0
04d0 1c00 | | Execute_Immediate Run_Utility,0x0
04d1 BODY_04c8:
04d1 00db | | Load_Top At_Offset_3
04d2 e005 | | Load 0x0,0x5
04d3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04d4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04d5 6815 |h | Jump_Zero 0x4eb
04d6 00d8 | | Load_Top At_Offset_0
04d7 0120 | | Execute Any,Is_Value
04d8 6804 |h | Jump_Zero 0x4dd
04d9 e005 | | Load 0x0,0x5
04da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04db 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
04dc 7801 |x | Jump 0x4de
04dd 00d8 | | Load_Top At_Offset_0
04de 4800 |H | Short_Literal 0x0
04df 4801 |H | Short_Literal 0x1
04e0 e005 | | Load 0x0,0x5
04e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04e3 e5ff | | Load 0x2,-0x1
04e4 e005 | | Load 0x0,0x5
04e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
04e7 e005 | | Load 0x0,0x5
04e8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04e9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04ea c402 | | Store 0x2,0x2
04eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 e5fd | | Load 0x2,-0x3
04f4 4801 |H | Short_Literal 0x1
04f5 4802 |H | Short_Literal 0x2
04f6 e00d | | Load 0x0,0xd
04f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04f8 035b | [ | Declare_Type Array,Constrained
04f9 0337 | 7 | Declare_Variable Array
04fa e5fe | | Load 0x2,-0x2
04fb e00d | | Load 0x0,0xd
04fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04fd e00d | | Load 0x0,0xd
04fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ff 0119 | | Execute Any,Check_In_Formal_Type
0500 4801 |H | Short_Literal 0x1
0501 00da | | Load_Top At_Offset_2
0502 01d6 | | Execute Vector,Field_Write
0503 e5ff | | Load 0x2,-0x1
0504 e00d | | Load 0x0,0xd
0505 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0506 e00d | | Load 0x0,0xd
0507 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0508 0119 | | Execute Any,Check_In_Formal_Type
0509 4802 |H | Short_Literal 0x2
050a 00da | | Load_Top At_Offset_2
050b 01d6 | | Execute Vector,Field_Write
050c 6003 |` | Indirect_Literal Discrete,0x510,{0x00000000, 0x0000813b}
050d e003 | | Load 0x0,0x3
050e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
050f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0510 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0514 0000 0000 | | .BLANK 0000[0x4]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 051f | | .CONST 0x051f ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 4800 |H | Short_Literal 0x0
051c e002 | | Load 0x0,0x2
051d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
051e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
051f TRAP_0518:
051f 0007 | | Action Break_Optional
0520 00db | | Load_Top At_Offset_3
0521 4800 |H | Short_Literal 0x0
0522 4801 |H | Short_Literal 0x1
0523 e009 | | Load 0x0,0x9
0524 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0525 0092 0a01 | | Action Push_String_Extended,0xa01 ; "null_time"
0527 8235 | 5 | Call 0x1,0x35
0528 e215 | | Load 0x1,0x15
0529 0257 | W | Execute Discrete,Raise
052a 0000 0000 | | .BLANK 0000[0x6]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 053b | ; | .CONST 0x053b ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0003 | | .CONST 0x0003 ; Number of locals
0533 INIT_0530:
0533 e002 | | Load 0x0,0x2
0534 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0535 02c7 | | Declare_Variable Any
0536 00d8 | | Load_Top At_Offset_0
0537 1c00 | | Execute_Immediate Run_Utility,0x0
0538 e003 | | Load 0x0,0x3
0539 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
053b BODY_0530:
053b e003 | | Load 0x0,0x3
053c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053d e5fc | | Load 0x2,-0x4
053e 0120 | | Execute Any,Is_Value
053f 6803 |h | Jump_Zero 0x543
0540 e002 | | Load 0x0,0x2
0541 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0542 7801 |x | Jump 0x544
0543 e5fc | | Load 0x2,-0x4
0544 e5fd | | Load 0x2,-0x3
0545 0120 | | Execute Any,Is_Value
0546 6803 |h | Jump_Zero 0x54a
0547 e002 | | Load 0x0,0x2
0548 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0549 7801 |x | Jump 0x54b
054a e5fd | | Load 0x2,-0x3
054b e5fe | | Load 0x2,-0x2
054c e5ff | | Load 0x2,-0x1
054d e00e | | Load 0x0,0xe
054e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
054f c5fd | | Store 0x2,-0x3
0550 c5fc | | Store 0x2,-0x4
0551 0059 | Y | Store_Top Discrete,At_Offset_1
0552 4800 |H | Short_Literal 0x0
0553 00d9 | | Load_Top At_Offset_1
0554 e003 | | Load 0x0,0x3
0555 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0556 7014 |p | Jump_Nonzero 0x56b
0557 e006 | | Load 0x0,0x6
0558 180e | | Execute Package,Field_Execute,Field_Number 0xe
0559 4801 |H | Short_Literal 0x1
055a 4801 |H | Short_Literal 0x1
055b e00d | | Load 0x0,0xd
055c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
055d 035b | [ | Declare_Type Array,Constrained
055e 0337 | 7 | Declare_Variable Array
055f e5ff | | Load 0x2,-0x1
0560 e008 | | Load 0x0,0x8
0561 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0562 e00d | | Load 0x0,0xd
0563 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0564 0119 | | Execute Any,Check_In_Formal_Type
0565 4801 |H | Short_Literal 0x1
0566 00da | | Load_Top At_Offset_2
0567 01d6 | | Execute Vector,Field_Write
0568 6003 |` | Indirect_Literal Discrete,0x56c,{0x00000000, 0x000081e7}
0569 e003 | | Load 0x0,0x3
056a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
056b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
056c 0000 0000 | | .LITERAL {0x00000000, 0x000081e7}
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0575 | u | .CONST 0x0575 ; Address of begin
0571 05dc | | .CONST 0x05dc ; Address of exception handler
0572 0002 | | .CONST 0x0002 ; Number of locals
0573 INIT_0570:
0573 e010 | | Load 0x0,0x10
0574 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0575 BODY_0570:
0575 4800 |H | Short_Literal 0x0
0576 a5fc | | Store_Unchecked 0x2,-0x4
0577 e5fe | | Load 0x2,-0x2
0578 e011 | | Load 0x0,0x11
0579 1811 | | Execute Package,Field_Execute,Field_Number 0x11
057a e010 | | Load 0x0,0x10
057b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
057c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
057d 00d8 | | Load_Top At_Offset_0
057e 0f01 | | Execute_Immediate Equal,0x1
057f 682e |h. | Jump_Zero 0x5ae
0580 4801 |H | Short_Literal 0x1
0581 0092 0a02 | | Action Push_String_Extended,0xa02 ; "interactive"
0583 4800 |H | Short_Literal 0x0
0584 e5fd | | Load 0x2,-0x3
0585 4801 |H | Short_Literal 0x1
0586 e5ff | | Load 0x2,-0x1
0587 e008 | | Load 0x0,0x8
0588 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0589 e012 | | Load 0x0,0x12
058a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
058b e012 | | Load 0x0,0x12
058c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
058d e013 | | Load 0x0,0x13
058e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
058f 681d |h | Jump_Zero 0x5ad
0590 e5fd | | Load 0x2,-0x3
0591 4801 |H | Short_Literal 0x1
0592 4801 |H | Short_Literal 0x1
0593 e00d | | Load 0x0,0xd
0594 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0595 035b | [ | Declare_Type Array,Constrained
0596 0337 | 7 | Declare_Variable Array
0597 e5ff | | Load 0x2,-0x1
0598 e001 | | Load 0x0,0x1
0599 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
059a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
059b e00d | | Load 0x0,0xd
059c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
059d e00d | | Load 0x0,0xd
059e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
059f 0119 | | Execute Any,Check_In_Formal_Type
05a0 4801 |H | Short_Literal 0x1
05a1 00da | | Load_Top At_Offset_2
05a2 01d6 | | Execute Vector,Field_Write
05a3 6044 |`D | Indirect_Literal Discrete,0x5e8,{0x00000000, 0x000081ee}
05a4 e003 | | Load 0x0,0x3
05a5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05a6 e00d | | Load 0x0,0xd
05a7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05a8 603f |`? | Indirect_Literal Discrete,0x5e8,{0x00000000, 0x000081ee}
05a9 e003 | | Load 0x0,0x3
05aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ab a5fc | | Store_Unchecked 0x2,-0x4
05ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05ae 4801 |H | Short_Literal 0x1
05af 0092 0a03 | | Action Push_String_Extended,0xa03 ; "batch"
05b1 4800 |H | Short_Literal 0x0
05b2 e5fd | | Load 0x2,-0x3
05b3 4801 |H | Short_Literal 0x1
05b4 e5ff | | Load 0x2,-0x1
05b5 e008 | | Load 0x0,0x8
05b6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05b7 e012 | | Load 0x0,0x12
05b8 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
05b9 e012 | | Load 0x0,0x12
05ba 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
05bb e013 | | Load 0x0,0x13
05bc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05bd 701d |p | Jump_Nonzero 0x5db
05be e5fd | | Load 0x2,-0x3
05bf 4801 |H | Short_Literal 0x1
05c0 4801 |H | Short_Literal 0x1
05c1 e00d | | Load 0x0,0xd
05c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c3 035b | [ | Declare_Type Array,Constrained
05c4 0337 | 7 | Declare_Variable Array
05c5 e5ff | | Load 0x2,-0x1
05c6 e001 | | Load 0x0,0x1
05c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05c8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
05c9 e00d | | Load 0x0,0xd
05ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05cb e00d | | Load 0x0,0xd
05cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05cd 0119 | | Execute Any,Check_In_Formal_Type
05ce 4801 |H | Short_Literal 0x1
05cf 00da | | Load_Top At_Offset_2
05d0 01d6 | | Execute Vector,Field_Write
05d1 6016 |` | Indirect_Literal Discrete,0x5e8,{0x00000000, 0x000081ee}
05d2 e003 | | Load 0x0,0x3
05d3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05d4 e00d | | Load 0x0,0xd
05d5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05d6 6011 |` | Indirect_Literal Discrete,0x5e8,{0x00000000, 0x000081ee}
05d7 e003 | | Load 0x0,0x3
05d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05d9 a5fc | | Store_Unchecked 0x2,-0x4
05da 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05db 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05dc TRAP_0570:
05dc 0007 | | Action Break_Optional
05dd e5fd | | Load 0x2,-0x3
05de 4800 |H | Short_Literal 0x0
05df 4801 |H | Short_Literal 0x1
05e0 e009 | | Load 0x0,0x9
05e1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05e2 0092 0a04 | | Action Push_String_Extended,0xa04 ; "check_if_batch_mode"
05e4 8235 | 5 | Call 0x1,0x35
05e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05e6 0000 0000 | | .XXX[0x2]
05e8 0000 0000 | | .LITERAL {0x00000000, 0x000081ee}
05ec 0000 0000 | | .BLANK 0000[0x4]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 0600 | | .CONST 0x0600 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0004 | | .CONST 0x0004 ; Number of locals
05f3 INIT_05f0:
05f3 e001 | | Load 0x0,0x1
05f4 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
05f5 0322 | " | Declare_Variable Record
05f6 00d8 | | Load_Top At_Offset_0
05f7 1c00 | | Execute_Immediate Run_Utility,0x0
05f8 e001 | | Load 0x0,0x1
05f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05fa 02c7 | | Declare_Variable Any
05fb 00d8 | | Load_Top At_Offset_0
05fc 1c00 | | Execute_Immediate Run_Utility,0x0
05fd e003 | | Load 0x0,0x3
05fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0600 BODY_05f0:
0600 4800 |H | Short_Literal 0x0
0601 a5fd | | Store_Unchecked 0x2,-0x3
0602 e5fe | | Load 0x2,-0x2
0603 e5ff | | Load 0x2,-0x1
0604 e008 | | Load 0x0,0x8
0605 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0606 00db | | Load_Top At_Offset_3
0607 017d | } | Execute Record,Structure_Write
0608 e5fe | | Load 0x2,-0x2
0609 4800 |H | Short_Literal 0x0
060a e5ff | | Load 0x2,-0x1
060b e008 | | Load 0x0,0x8
060c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
060d c403 | | Store 0x2,0x3
060e e003 | | Load 0x0,0x3
060f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0610 e5fe | | Load 0x2,-0x2
0611 e402 | | Load 0x2,0x2
0612 e403 | | Load 0x2,0x3
0613 8238 | 8 | Call 0x1,0x38
0614 0059 | Y | Store_Top Discrete,At_Offset_1
0615 00d8 | | Load_Top At_Offset_0
0616 a5fd | | Store_Unchecked 0x2,-0x3
0617 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0621 | ! | .CONST 0x0621 ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0003 | | .CONST 0x0003 ; Number of locals
061b INIT_0618:
061b 00da | | Load_Top At_Offset_2
061c e005 | | Load 0x0,0x5
061d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
061e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
061f 00e3 | | Load_Encached Natural_Cache
0620 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0621 BODY_0618:
0621 4800 |H | Short_Literal 0x0
0622 00da | | Load_Top At_Offset_2
0623 482e |H. | Short_Literal 0x2e
0624 e013 | | Load 0x0,0x13
0625 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0626 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0627 00d8 | | Load_Top At_Offset_0
0628 7002 |p | Jump_Nonzero 0x62b
0629 4800 |H | Short_Literal 0x0
062a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
062b 4801 |H | Short_Literal 0x1
062c 00da | | Load_Top At_Offset_2
062d 01dd | | Execute Vector,First
062e 00da | | Load_Top At_Offset_2
062f 0aff | | Execute_Immediate Plus,-0x1
0630 e402 | | Load 0x2,0x2
0631 01cf | | Execute Vector,Slice_Read
0632 0092 0a05 | | Action Push_String_Extended,0xa05 ; "!Targets"
0634 e013 | | Load 0x0,0x13
0635 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0636 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0637 0000 | | .XXX[0x1]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 00da | | Load_Top At_Offset_2
063c e005 | | Load 0x0,0x5
063d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
063e 180e | | Execute Package,Field_Execute,Field_Number 0xe
063f 0e04 | | Execute_Immediate Not_Equal,0x4
0640 6819 |h | Jump_Zero 0x65a
0641 e006 | | Load 0x0,0x6
0642 180e | | Execute Package,Field_Execute,Field_Number 0xe
0643 4801 |H | Short_Literal 0x1
0644 4801 |H | Short_Literal 0x1
0645 e00d | | Load 0x0,0xd
0646 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0647 035b | [ | Declare_Type Array,Constrained
0648 0337 | 7 | Declare_Variable Array
0649 e5ff | | Load 0x2,-0x1
064a e005 | | Load 0x0,0x5
064b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
064c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
064d e00d | | Load 0x0,0xd
064e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
064f e00d | | Load 0x0,0xd
0650 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0651 0119 | | Execute Any,Check_In_Formal_Type
0652 4801 |H | Short_Literal 0x1
0653 00da | | Load_Top At_Offset_2
0654 01d6 | | Execute Vector,Field_Write
0655 6006 |` | Indirect_Literal Discrete,0x65c,{0x00000000, 0x00008203}
0656 e003 | | Load 0x0,0x3
0657 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0658 e014 | | Load 0x0,0x14
0659 0257 | W | Execute Discrete,Raise
065a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
065b 0000 | | .XXX[0x1]
065c 0000 0000 | | .LITERAL {0x00000000, 0x00008203}
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 066c | l | .CONST 0x066c ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0003 | | .CONST 0x0003 ; Number of locals
0663 INIT_0660:
0663 e005 | | Load 0x0,0x5
0664 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0665 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0666 02c7 | | Declare_Variable Any
0667 e005 | | Load 0x0,0x5
0668 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0669 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
066a a402 | | Store_Unchecked 0x2,0x2
066b 00e1 | | Load_Encached Boolean_Cache
066c BODY_0660:
066c 4801 |H | Short_Literal 0x1
066d 0092 0a06 | | Action Push_String_Extended,0xa06 ; "@"
066f e5ff | | Load 0x2,-0x1
0670 e005 | | Load 0x0,0x5
0671 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0672 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0673 c402 | | Store 0x2,0x2
0674 00d9 | | Load_Top At_Offset_1
0675 e005 | | Load 0x0,0x5
0676 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0677 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0678 681f |h | Jump_Zero 0x698
0679 00d9 | | Load_Top At_Offset_1
067a e005 | | Load 0x0,0x5
067b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
067d 00cf | | Action Mark_Auxiliary
067e 7813 |x | Jump 0x692
067f 00e1 | | Load_Encached Boolean_Cache
0680 e005 | | Load 0x0,0x5
0681 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0682 180e | | Execute Package,Field_Execute,Field_Number 0xe
0683 e402 | | Load 0x2,0x2
0684 e005 | | Load 0x0,0x5
0685 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0686 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0687 e5fe | | Load 0x2,-0x2
0688 e005 | | Load 0x0,0x5
0689 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
068b 005a | Z | Store_Top Discrete,At_Offset_2
068c 00da | | Load_Top At_Offset_2
068d e005 | | Load 0x0,0x5
068e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0690 c402 | | Store 0x2,0x2
0691 00c9 | | Action Pop_Auxiliary_Loop
0692 00da | | Load_Top At_Offset_2
0693 e005 | | Load 0x0,0x5
0694 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0695 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0696 6fe8 |o | Jump_Zero 0x67f
0697 00ce | | Action Pop_Auxiliary
0698 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0699 0000 0000 | | .BLANK 0000[0x7]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06b2 | | .CONST 0x06b2 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0004 | | .CONST 0x0004 ; Number of locals
06a3 INIT_06a0:
06a3 e001 | | Load 0x0,0x1
06a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06a5 02c7 | | Declare_Variable Any
06a6 00d8 | | Load_Top At_Offset_0
06a7 1c00 | | Execute_Immediate Run_Utility,0x0
06a8 e002 | | Load 0x0,0x2
06a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06aa 02c7 | | Declare_Variable Any
06ab 00d8 | | Load_Top At_Offset_0
06ac 1c00 | | Execute_Immediate Run_Utility,0x0
06ad e002 | | Load 0x0,0x2
06ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06af 02c7 | | Declare_Variable Any
06b0 00d8 | | Load_Top At_Offset_0
06b1 1c00 | | Execute_Immediate Run_Utility,0x0
06b2 BODY_06a0:
06b2 e5ff | | Load 0x2,-0x1
06b3 8232 | 2 | Call 0x1,0x32
06b4 c402 | | Store 0x2,0x2
06b5 00da | | Load_Top At_Offset_2
06b6 e008 | | Load 0x0,0x8
06b7 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
06b8 681a |h | Jump_Zero 0x6d3
06b9 00d8 | | Load_Top At_Offset_0
06ba 0120 | | Execute Any,Is_Value
06bb 6803 |h | Jump_Zero 0x6bf
06bc e002 | | Load 0x0,0x2
06bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06be 7801 |x | Jump 0x6c0
06bf 00d8 | | Load_Top At_Offset_0
06c0 00da | | Load_Top At_Offset_2
06c1 0120 | | Execute Any,Is_Value
06c2 6803 |h | Jump_Zero 0x6c6
06c3 e002 | | Load 0x0,0x2
06c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06c5 7801 |x | Jump 0x6c7
06c6 00da | | Load_Top At_Offset_2
06c7 e5fe | | Load 0x2,-0x2
06c8 e402 | | Load 0x2,0x2
06c9 8237 | 7 | Call 0x1,0x37
06ca c403 | | Store 0x2,0x3
06cb c404 | | Store 0x2,0x4
06cc 00d8 | | Load_Top At_Offset_0
06cd 00da | | Load_Top At_Offset_2
06ce e002 | | Load 0x0,0x2
06cf 181f | | Execute Package,Field_Execute,Field_Number 0x1f
06d0 6802 |h | Jump_Zero 0x6d3
06d1 4800 |H | Short_Literal 0x0
06d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06d3 4801 |H | Short_Literal 0x1
06d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06d5 0000 0000 | | .XXX[0x3]
06d7 0000 | |
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06ef | | .CONST 0x06ef ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0002 | | .CONST 0x0002 ; Number of locals
06db INIT_06d8:
06db e006 | | Load 0x0,0x6
06dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06dd 02c7 | | Declare_Variable Any
06de e006 | | Load 0x0,0x6
06df 180e | | Execute Package,Field_Execute,Field_Number 0xe
06e0 e006 | | Load 0x0,0x6
06e1 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
06e2 e006 | | Load 0x0,0x6
06e3 180e | | Execute Package,Field_Execute,Field_Number 0xe
06e4 e006 | | Load 0x0,0x6
06e5 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
06e6 484d |HM | Short_Literal 0x4d
06e7 e006 | | Load 0x0,0x6
06e8 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
06e9 e006 | | Load 0x0,0x6
06ea 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
06eb 4800 |H | Short_Literal 0x0
06ec e006 | | Load 0x0,0x6
06ed 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
06ee a402 | | Store_Unchecked 0x2,0x2
06ef BODY_06d8:
06ef e5fe | | Load 0x2,-0x2
06f0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06f1 e5ff | | Load 0x2,-0x1
06f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06f3 e002 | | Load 0x0,0x2
06f4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06f5 6802 |h | Jump_Zero 0x6f8
06f6 4801 |H | Short_Literal 0x1
06f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06f8 4800 |H | Short_Literal 0x0
06f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06fa 0000 0000 | | .BLANK 0000[0x6]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0728 | ( | .CONST 0x0728 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0002 | | .CONST 0x0002 ; Number of locals
0703 INIT_0700:
0703 e403 | | Load 0x2,0x3
0704 0aff | | Execute_Immediate Plus,-0x1
0705 e20e | | Load 0x1,0xe
0706 1c08 | | Execute_Immediate Run_Utility,0x8
0707 e408 | | Load 0x2,0x8
0708 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0709 00d9 | | Load_Top At_Offset_1
070a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
070b 4801 |H | Short_Literal 0x1
070c e403 | | Load 0x2,0x3
070d 0aff | | Execute_Immediate Plus,-0x1
070e 00d8 | | Load_Top At_Offset_0
070f 00e2 | | Load_Encached Integer_Cache
0710 0260 | ` | Execute Discrete,In_Type
0711 7001 |p | Jump_Nonzero 0x713
0712 0801 | | Execute_Immediate Raise,0x1
0713 e408 | | Load 0x2,0x8
0714 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0715 01cf | | Execute Vector,Slice_Read
0716 00d9 | | Load_Top At_Offset_1
0717 00d8 | | Load_Top At_Offset_0
0718 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0719 00da | | Load_Top At_Offset_2
071a 01da | | Execute Vector,Bounds
071b 00da | | Load_Top At_Offset_2
071c 01da | | Execute Vector,Bounds
071d 00da | | Load_Top At_Offset_2
071e 027f | | Execute Discrete,Equal
071f 7001 |p | Jump_Nonzero 0x721
0720 08e0 | | Execute_Immediate Raise,0xe0
0721 00cd | | Action Spare6_Action
0722 027f | | Execute Discrete,Equal
0723 7001 |p | Jump_Nonzero 0x725
0724 08e0 | | Execute_Immediate Raise,0xe0
0725 00d2 | | Pop_Control Pop_Count_2
0726 00d9 | | Load_Top At_Offset_1
0727 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0728 BODY_0700:
0728 00d8 | | Load_Top At_Offset_0
0729 00cb | | Action Pop_Block_With_Result
072a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
072b 0000 0000 | | .BLANK 0000[0x5]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 073f | ? | .CONST 0x073f ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0004 | | .CONST 0x0004 ; Number of locals
0733 INIT_0730:
0733 e5fe | | Load 0x2,-0x2
0734 e402 | | Load 0x2,0x2
0735 e403 | | Load 0x2,0x3
0736 e015 | | Load 0x0,0x15
0737 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0738 e001 | | Load 0x0,0x1
0739 1b0f | | Execute Package,Field_Read,Field_Number 0xf
073a 02c7 | | Declare_Variable Any
073b e403 | | Load 0x2,0x3
073c a603 | | Store_Unchecked 0x3,0x3
073d 029f 0903 | | Declare_Subprogram INIT_0900,For_Call
073f BODY_0730:
073f 00cf | | Action Mark_Auxiliary
0740 7807 |x | Jump 0x748
0741 8604 | | Call 0x3,0x4
0742 e405 | | Load 0x2,0x5
0743 e005 | | Load 0x0,0x5
0744 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0745 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0746 c405 | | Store 0x2,0x5
0747 00c9 | | Action Pop_Auxiliary_Loop
0748 e405 | | Load 0x2,0x5
0749 e005 | | Load 0x0,0x5
074a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
074b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
074c 6ff4 |o | Jump_Zero 0x741
074d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
074e 0000 0000 | | .XXX[0x2]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0758 | X | .CONST 0x0758 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0002 | | .CONST 0x0002 ; Number of locals
0753 INIT_0750:
0753 e5fe | | Load 0x2,-0x2
0754 e402 | | Load 0x2,0x2
0755 e403 | | Load 0x2,0x3
0756 e015 | | Load 0x0,0x15
0757 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0758 BODY_0750:
0758 4800 |H | Short_Literal 0x0
0759 00d9 | | Load_Top At_Offset_1
075a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
075b e003 | | Load 0x0,0x3
075c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
075d 6804 |h | Jump_Zero 0x762
075e 00d8 | | Load_Top At_Offset_0
075f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0760 00cb | | Action Pop_Block_With_Result
0761 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0762 e006 | | Load 0x0,0x6
0763 180e | | Execute Package,Field_Execute,Field_Number 0xe
0764 4801 |H | Short_Literal 0x1
0765 4801 |H | Short_Literal 0x1
0766 e00d | | Load 0x0,0xd
0767 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0768 035b | [ | Declare_Type Array,Constrained
0769 0337 | 7 | Declare_Variable Array
076a e403 | | Load 0x2,0x3
076b e001 | | Load 0x0,0x1
076c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
076d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
076e e00d | | Load 0x0,0xd
076f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0770 e00d | | Load 0x0,0xd
0771 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0772 0119 | | Execute Any,Check_In_Formal_Type
0773 4801 |H | Short_Literal 0x1
0774 00da | | Load_Top At_Offset_2
0775 01d6 | | Execute Vector,Field_Write
0776 6005 |` | Indirect_Literal Discrete,0x77c,{0x00000000, 0x000081ed}
0777 e003 | | Load 0x0,0x3
0778 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0779 00ea | | Load_Encached Null_String_Cache
077a 00cb | | Action Pop_Block_With_Result
077b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
077c 0000 0000 | | .LITERAL {0x00000000, 0x000081ed}
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0788 | | .CONST 0x0788 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0002 | | .CONST 0x0002 ; Number of locals
0783 INIT_0780:
0783 e403 | | Load 0x2,0x3
0784 e20e | | Load 0x1,0xe
0785 1c08 | | Execute_Immediate Run_Utility,0x8
0786 00d8 | | Load_Top At_Offset_0
0787 1c00 | | Execute_Immediate Run_Utility,0x0
0788 BODY_0780:
0788 e402 | | Load 0x2,0x2
0789 e005 | | Load 0x0,0x5
078a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
078b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
078c 00cf | | Action Mark_Auxiliary
078d 783c |x< | Jump 0x7ca
078e e402 | | Load 0x2,0x2
078f e005 | | Load 0x0,0x5
0790 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0791 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0792 c407 | | Store 0x2,0x7
0793 e407 | | Load 0x2,0x7
0794 e005 | | Load 0x0,0x5
0795 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0796 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0797 0f02 | | Execute_Immediate Equal,0x2
0798 682b |h+ | Jump_Zero 0x7c4
0799 e407 | | Load 0x2,0x7
079a 8232 | 2 | Call 0x1,0x32
079b c406 | | Store 0x2,0x6
079c e409 | | Load 0x2,0x9
079d 0120 | | Execute Any,Is_Value
079e 6803 |h | Jump_Zero 0x7a2
079f e002 | | Load 0x0,0x2
07a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a1 7801 |x | Jump 0x7a3
07a2 e409 | | Load 0x2,0x9
07a3 e408 | | Load 0x2,0x8
07a4 0120 | | Execute Any,Is_Value
07a5 6803 |h | Jump_Zero 0x7a9
07a6 e002 | | Load 0x0,0x2
07a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a8 7801 |x | Jump 0x7aa
07a9 e408 | | Load 0x2,0x8
07aa e5fe | | Load 0x2,-0x2
07ab e406 | | Load 0x2,0x6
07ac 8237 | 7 | Call 0x1,0x37
07ad c408 | | Store 0x2,0x8
07ae c409 | | Store 0x2,0x9
07af e406 | | Load 0x2,0x6
07b0 e404 | | Load 0x2,0x4
07b1 00db | | Load_Top At_Offset_3
07b2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07b3 01d5 | | Execute Vector,Field_Reference
07b4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07b5 e408 | | Load 0x2,0x8
07b6 e404 | | Load 0x2,0x4
07b7 00db | | Load_Top At_Offset_3
07b8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07b9 01d5 | | Execute Vector,Field_Reference
07ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07bb e409 | | Load 0x2,0x9
07bc e404 | | Load 0x2,0x4
07bd 00db | | Load_Top At_Offset_3
07be 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07bf 01d5 | | Execute Vector,Field_Reference
07c0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07c1 e404 | | Load 0x2,0x4
07c2 0a01 | | Execute_Immediate Plus,0x1
07c3 c404 | | Store 0x2,0x4
07c4 e402 | | Load 0x2,0x2
07c5 e005 | | Load 0x0,0x5
07c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
07c8 c402 | | Store 0x2,0x2
07c9 00c9 | | Action Pop_Auxiliary_Loop
07ca e402 | | Load 0x2,0x2
07cb e005 | | Load 0x0,0x5
07cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07cd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07ce 6fbf |o | Jump_Zero 0x78e
07cf 00ce | | Action Pop_Auxiliary
07d0 4800 |H | Short_Literal 0x0
07d1 00d9 | | Load_Top At_Offset_1
07d2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07d3 e404 | | Load 0x2,0x4
07d4 0aff | | Execute_Immediate Plus,-0x1
07d5 e20e | | Load 0x1,0xe
07d6 1c08 | | Execute_Immediate Run_Utility,0x8
07d7 00d9 | | Load_Top At_Offset_1
07d8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07d9 00d9 | | Load_Top At_Offset_1
07da 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07db 4801 |H | Short_Literal 0x1
07dc e404 | | Load 0x2,0x4
07dd 0aff | | Execute_Immediate Plus,-0x1
07de 00d8 | | Load_Top At_Offset_0
07df 00e2 | | Load_Encached Integer_Cache
07e0 0260 | ` | Execute Discrete,In_Type
07e1 7001 |p | Jump_Nonzero 0x7e3
07e2 0801 | | Execute_Immediate Raise,0x1
07e3 00db | | Load_Top At_Offset_3
07e4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07e5 01cf | | Execute Vector,Slice_Read
07e6 00d9 | | Load_Top At_Offset_1
07e7 00d8 | | Load_Top At_Offset_0
07e8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07e9 00da | | Load_Top At_Offset_2
07ea 01da | | Execute Vector,Bounds
07eb 00da | | Load_Top At_Offset_2
07ec 01da | | Execute Vector,Bounds
07ed 00da | | Load_Top At_Offset_2
07ee 027f | | Execute Discrete,Equal
07ef 7001 |p | Jump_Nonzero 0x7f1
07f0 08e0 | | Execute_Immediate Raise,0xe0
07f1 00cd | | Action Spare6_Action
07f2 027f | | Execute Discrete,Equal
07f3 7001 |p | Jump_Nonzero 0x7f5
07f4 08e0 | | Execute_Immediate Raise,0xe0
07f5 00d2 | | Pop_Control Pop_Count_2
07f6 00d9 | | Load_Top At_Offset_1
07f7 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
07f8 00cb | | Action Pop_Block_With_Result
07f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07fa 0000 0000 | | .BLANK 0000[0x6]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0814 | | .CONST 0x0814 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0005 | | .CONST 0x0005 ; Number of locals
0803 INIT_0800:
0803 e406 | | Load 0x2,0x6
0804 e20e | | Load 0x1,0xe
0805 1c08 | | Execute_Immediate Run_Utility,0x8
0806 00d8 | | Load_Top At_Offset_0
0807 1c00 | | Execute_Immediate Run_Utility,0x0
0808 00e2 | | Load_Encached Integer_Cache
0809 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
080a e002 | | Load 0x0,0x2
080b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
080c 02c7 | | Declare_Variable Any
080d 00d8 | | Load_Top At_Offset_0
080e 1c00 | | Execute_Immediate Run_Utility,0x0
080f e002 | | Load 0x0,0x2
0810 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0811 02c7 | | Declare_Variable Any
0812 00d8 | | Load_Top At_Offset_0
0813 1c00 | | Execute_Immediate Run_Utility,0x0
0814 BODY_0800:
0814 e402 | | Load 0x2,0x2
0815 e001 | | Load 0x0,0x1
0816 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0817 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0818 c402 | | Store 0x2,0x2
0819 00cf | | Action Mark_Auxiliary
081a 786e |xn | Jump 0x889
081b e001 | | Load 0x0,0x1
081c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
081d e405 | | Load 0x2,0x5
081e 0120 | | Execute Any,Is_Value
081f 6803 |h | Jump_Zero 0x823
0820 e001 | | Load 0x0,0x1
0821 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0822 7801 |x | Jump 0x824
0823 e405 | | Load 0x2,0x5
0824 e402 | | Load 0x2,0x2
0825 e001 | | Load 0x0,0x1
0826 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0827 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0828 c405 | | Store 0x2,0x5
0829 c407 | | Store 0x2,0x7
082a e407 | | Load 0x2,0x7
082b 682b |h+ | Jump_Zero 0x857
082c e006 | | Load 0x0,0x6
082d 180e | | Execute Package,Field_Execute,Field_Number 0xe
082e 4801 |H | Short_Literal 0x1
082f 4802 |H | Short_Literal 0x2
0830 e00d | | Load 0x0,0xd
0831 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0832 035b | [ | Declare_Type Array,Constrained
0833 0337 | 7 | Declare_Variable Array
0834 e405 | | Load 0x2,0x5
0835 e00d | | Load 0x0,0xd
0836 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0837 e00d | | Load 0x0,0xd
0838 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0839 0119 | | Execute Any,Check_In_Formal_Type
083a 4801 |H | Short_Literal 0x1
083b 00da | | Load_Top At_Offset_2
083c 01d6 | | Execute Vector,Field_Write
083d e407 | | Load 0x2,0x7
083e e001 | | Load 0x0,0x1
083f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0840 011c | | Execute Any,Convert_Unchecked
0841 1c01 | | Execute_Immediate Run_Utility,0x1
0842 e00d | | Load 0x0,0xd
0843 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0844 e00d | | Load 0x0,0xd
0845 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0846 0119 | | Execute Any,Check_In_Formal_Type
0847 4802 |H | Short_Literal 0x2
0848 00da | | Load_Top At_Offset_2
0849 01d6 | | Execute Vector,Field_Write
084a 6075 |`u | Indirect_Literal Discrete,0x8c0,{0x00000000, 0x000081ea}
084b e003 | | Load 0x0,0x3
084c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
084d e00d | | Load 0x0,0xd
084e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
084f 6070 |`p | Indirect_Literal Discrete,0x8c0,{0x00000000, 0x000081ea}
0850 e003 | | Load 0x0,0x3
0851 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0852 e404 | | Load 0x2,0x4
0853 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0854 e404 | | Load 0x2,0x4
0855 00cb | | Action Pop_Block_With_Result
0856 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0857 e405 | | Load 0x2,0x5
0858 e008 | | Load 0x0,0x8
0859 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
085a 6828 |h( | Jump_Zero 0x883
085b 00d9 | | Load_Top At_Offset_1
085c 0120 | | Execute Any,Is_Value
085d 6803 |h | Jump_Zero 0x861
085e e002 | | Load 0x0,0x2
085f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0860 7801 |x | Jump 0x862
0861 00d9 | | Load_Top At_Offset_1
0862 00db | | Load_Top At_Offset_3
0863 0120 | | Execute Any,Is_Value
0864 6803 |h | Jump_Zero 0x868
0865 e002 | | Load 0x0,0x2
0866 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0867 7801 |x | Jump 0x869
0868 00db | | Load_Top At_Offset_3
0869 e5fe | | Load 0x2,-0x2
086a e405 | | Load 0x2,0x5
086b 8237 | 7 | Call 0x1,0x37
086c c604 | | Store 0x3,0x4
086d c605 | | Store 0x3,0x5
086e e405 | | Load 0x2,0x5
086f e603 | | Load 0x3,0x3
0870 e602 | | Load 0x3,0x2
0871 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0872 01d5 | | Execute Vector,Field_Reference
0873 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0874 00da | | Load_Top At_Offset_2
0875 e603 | | Load 0x3,0x3
0876 e602 | | Load 0x3,0x2
0877 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0878 01d5 | | Execute Vector,Field_Reference
0879 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
087a 00d9 | | Load_Top At_Offset_1
087b e603 | | Load 0x3,0x3
087c e602 | | Load 0x3,0x2
087d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
087e 01d5 | | Execute Vector,Field_Reference
087f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0880 00db | | Load_Top At_Offset_3
0881 0a01 | | Execute_Immediate Plus,0x1
0882 c603 | | Store 0x3,0x3
0883 e402 | | Load 0x2,0x2
0884 e001 | | Load 0x0,0x1
0885 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0886 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0887 c402 | | Store 0x2,0x2
0888 00c9 | | Action Pop_Auxiliary_Loop
0889 e402 | | Load 0x2,0x2
088a e001 | | Load 0x0,0x1
088b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
088c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
088d 6f8d |o | Jump_Zero 0x81b
088e 00ce | | Action Pop_Auxiliary
088f 00da | | Load_Top At_Offset_2
0890 0c02 | | Execute_Immediate Greater_Equal,0x2
0891 6827 |h' | Jump_Zero 0x8b9
0892 00da | | Load_Top At_Offset_2
0893 0aff | | Execute_Immediate Plus,-0x1
0894 e20e | | Load 0x1,0xe
0895 1c08 | | Execute_Immediate Run_Utility,0x8
0896 e602 | | Load 0x3,0x2
0897 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0898 00d9 | | Load_Top At_Offset_1
0899 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
089a 4801 |H | Short_Literal 0x1
089b e603 | | Load 0x3,0x3
089c 0aff | | Execute_Immediate Plus,-0x1
089d 00d8 | | Load_Top At_Offset_0
089e 00e2 | | Load_Encached Integer_Cache
089f 0260 | ` | Execute Discrete,In_Type
08a0 7001 |p | Jump_Nonzero 0x8a2
08a1 0801 | | Execute_Immediate Raise,0x1
08a2 e602 | | Load 0x3,0x2
08a3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08a4 01cf | | Execute Vector,Slice_Read
08a5 00d9 | | Load_Top At_Offset_1
08a6 00d8 | | Load_Top At_Offset_0
08a7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08a8 00da | | Load_Top At_Offset_2
08a9 01da | | Execute Vector,Bounds
08aa 00da | | Load_Top At_Offset_2
08ab 01da | | Execute Vector,Bounds
08ac 00da | | Load_Top At_Offset_2
08ad 027f | | Execute Discrete,Equal
08ae 7001 |p | Jump_Nonzero 0x8b0
08af 08e0 | | Execute_Immediate Raise,0xe0
08b0 00cd | | Action Spare6_Action
08b1 027f | | Execute Discrete,Equal
08b2 7001 |p | Jump_Nonzero 0x8b4
08b3 08e0 | | Execute_Immediate Raise,0xe0
08b4 00d2 | | Pop_Control Pop_Count_2
08b5 00d9 | | Load_Top At_Offset_1
08b6 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
08b7 00cb | | Action Pop_Block_With_Result
08b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08b9 4800 |H | Short_Literal 0x0
08ba e403 | | Load 0x2,0x3
08bb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
08bc e403 | | Load 0x2,0x3
08bd 00cb | | Action Pop_Block_With_Result
08be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08bf 0000 | | .XXX[0x1]
08c0 0000 0000 | | .LITERAL {0x00000000, 0x000081ea}
08c4 0000 0000 | | .BLANK 0000[0x4]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cf | | .CONST 0x08cf ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0002 | | .CONST 0x0002 ; Number of locals
08cb INIT_08c8:
08cb e402 | | Load 0x2,0x2
08cc e001 | | Load 0x0,0x1
08cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08ce 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
08cf BODY_08c8:
08cf 0092 0a07 | | Action Push_String_Extended,0xa07 ; "Unit :"
08d1 00d9 | | Load_Top At_Offset_1
08d2 01cc | | Execute Vector,Catenate
08d3 e016 | | Load 0x0,0x16
08d4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
08d5 0092 0a08 | | Action Push_String_Extended,0xa08 ; "Last coding time :"
08d7 4800 |H | Short_Literal 0x0
08d8 4800 |H | Short_Literal 0x0
08d9 4800 |H | Short_Literal 0x0
08da e406 | | Load 0x2,0x6
08db e5ff | | Load 0x2,-0x1
08dc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08dd 01d5 | | Execute Vector,Field_Reference
08de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08df e017 | | Load 0x0,0x17
08e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08e1 e017 | | Load 0x0,0x17
08e2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
08e3 01cc | | Execute Vector,Catenate
08e4 e016 | | Load 0x0,0x16
08e5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
08e6 0092 0a09 | | Action Push_String_Extended,0xa09 ; "Last build time :"
08e8 4800 |H | Short_Literal 0x0
08e9 4800 |H | Short_Literal 0x0
08ea 4800 |H | Short_Literal 0x0
08eb e406 | | Load 0x2,0x6
08ec e5ff | | Load 0x2,-0x1
08ed 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08ee 01d5 | | Execute Vector,Field_Reference
08ef 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08f0 e017 | | Load 0x0,0x17
08f1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08f2 e017 | | Load 0x0,0x17
08f3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
08f4 01cc | | Execute Vector,Catenate
08f5 e016 | | Load 0x0,0x16
08f6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
08f7 0092 0a0a | | Action Push_String_Extended,0xa0a ; " "
08f9 e016 | | Load 0x0,0x16
08fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
08fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08fc 0000 0000 | | .BLANK 0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0929 | ) | .CONST 0x0929 ; Address of begin
0901 0004 | | .CONST 0x0004 ; Address of exception handler
0902 0006 | | .CONST 0x0006 ; Number of locals
0903 INIT_0900:
0903 e005 | | Load 0x0,0x5
0904 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0905 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0906 02c7 | | Declare_Variable Any
0907 e405 | | Load 0x2,0x5
0908 e005 | | Load 0x0,0x5
0909 1b0d | | Execute Package,Field_Read,Field_Number 0xd
090a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
090b a802 | | Store_Unchecked 0x4,0x2
090c e001 | | Load 0x0,0x1
090d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
090e 02c7 | | Declare_Variable Any
090f 00d9 | | Load_Top At_Offset_1
0910 8232 | 2 | Call 0x1,0x32
0911 a803 | | Store_Unchecked 0x4,0x3
0912 e001 | | Load 0x0,0x1
0913 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0914 0322 | " | Declare_Variable Record
0915 e5fe | | Load 0x2,-0x2
0916 00da | | Load_Top At_Offset_2
0917 e008 | | Load 0x0,0x8
0918 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0919 00d9 | | Load_Top At_Offset_1
091a 017d | } | Execute Record,Structure_Write
091b e001 | | Load 0x0,0x1
091c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
091d 02c7 | | Declare_Variable Any
091e e5fe | | Load 0x2,-0x2
091f 4800 |H | Short_Literal 0x0
0920 e803 | | Load 0x4,0x3
0921 e008 | | Load 0x0,0x8
0922 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0923 a805 | | Store_Unchecked 0x4,0x5
0924 e5fe | | Load 0x2,-0x2
0925 00da | | Load_Top At_Offset_2
0926 00da | | Load_Top At_Offset_2
0927 e015 | | Load 0x0,0x15
0928 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0929 BODY_0900:
0929 e402 | | Load 0x2,0x2
092a 00db | | Load_Top At_Offset_3
092b 017e | ~ | Execute Record,Not_Equal
092c 682a |h* | Jump_Zero 0x957
092d e006 | | Load 0x0,0x6
092e 180e | | Execute Package,Field_Execute,Field_Number 0xe
092f 4801 |H | Short_Literal 0x1
0930 4802 |H | Short_Literal 0x2
0931 e00d | | Load 0x0,0xd
0932 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0933 035b | [ | Declare_Type Array,Constrained
0934 0337 | 7 | Declare_Variable Array
0935 e402 | | Load 0x2,0x2
0936 e018 | | Load 0x0,0x18
0937 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0938 e00d | | Load 0x0,0xd
0939 1810 | | Execute Package,Field_Execute,Field_Number 0x10
093a e00d | | Load 0x0,0xd
093b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
093c 0119 | | Execute Any,Check_In_Formal_Type
093d 4801 |H | Short_Literal 0x1
093e 00da | | Load_Top At_Offset_2
093f 01d6 | | Execute Vector,Field_Write
0940 e804 | | Load 0x4,0x4
0941 e018 | | Load 0x0,0x18
0942 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0943 e00d | | Load 0x0,0xd
0944 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0945 e00d | | Load 0x0,0xd
0946 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0947 0119 | | Execute Any,Check_In_Formal_Type
0948 4802 |H | Short_Literal 0x2
0949 00da | | Load_Top At_Offset_2
094a 01d6 | | Execute Vector,Field_Write
094b 6058 |`X | Indirect_Literal Discrete,0x9a4,{0x00000000, 0x000081eb}
094c e003 | | Load 0x0,0x3
094d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
094e e00d | | Load 0x0,0xd
094f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0950 6053 |`S | Indirect_Literal Discrete,0x9a4,{0x00000000, 0x000081eb}
0951 e003 | | Load 0x0,0x3
0952 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0953 a5fd | | Store_Unchecked 0x2,-0x3
0954 00cc | | Action Pop_Block
0955 00cc | | Action Pop_Block
0956 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0957 4801 |H | Short_Literal 0x1
0958 e602 | | Load 0x3,0x2
0959 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
095a 00da | | Load_Top At_Offset_2
095b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
095c e013 | | Load 0x0,0x13
095d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
095e 7028 |p( | Jump_Nonzero 0x987
095f e006 | | Load 0x0,0x6
0960 180e | | Execute Package,Field_Execute,Field_Number 0xe
0961 4801 |H | Short_Literal 0x1
0962 4802 |H | Short_Literal 0x2
0963 e00d | | Load 0x0,0xd
0964 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0965 035b | [ | Declare_Type Array,Constrained
0966 0337 | 7 | Declare_Variable Array
0967 e602 | | Load 0x3,0x2
0968 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0969 e00d | | Load 0x0,0xd
096a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
096b e00d | | Load 0x0,0xd
096c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
096d 0119 | | Execute Any,Check_In_Formal_Type
096e 4801 |H | Short_Literal 0x1
096f 00da | | Load_Top At_Offset_2
0970 01d6 | | Execute Vector,Field_Write
0971 00da | | Load_Top At_Offset_2
0972 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0973 e00d | | Load 0x0,0xd
0974 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0975 e00d | | Load 0x0,0xd
0976 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0977 0119 | | Execute Any,Check_In_Formal_Type
0978 4802 |H | Short_Literal 0x2
0979 00da | | Load_Top At_Offset_2
097a 01d6 | | Execute Vector,Field_Write
097b 6024 |`$ | Indirect_Literal Discrete,0x9a0,{0x00000000, 0x000081ec}
097c e003 | | Load 0x0,0x3
097d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
097e e00d | | Load 0x0,0xd
097f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0980 6023 |`# | Indirect_Literal Discrete,0x9a4,{0x00000000, 0x000081eb}
0981 e003 | | Load 0x0,0x3
0982 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0983 a5fd | | Store_Unchecked 0x2,-0x3
0984 00cc | | Action Pop_Block
0985 00cc | | Action Pop_Block
0986 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0987 e603 | | Load 0x3,0x3
0988 00da | | Load_Top At_Offset_2
0989 012e | . | Execute Any,Not_Equal
098a 6813 |h | Jump_Zero 0x99e
098b 00d9 | | Load_Top At_Offset_1
098c c603 | | Store 0x3,0x3
098d e003 | | Load 0x0,0x3
098e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
098f e5fe | | Load 0x2,-0x2
0990 e402 | | Load 0x2,0x2
0991 e805 | | Load 0x4,0x5
0992 8238 | 8 | Call 0x1,0x38
0993 c404 | | Store 0x2,0x4
0994 4800 |H | Short_Literal 0x0
0995 e404 | | Load 0x2,0x4
0996 e003 | | Load 0x0,0x3
0997 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0998 7005 |p | Jump_Nonzero 0x99e
0999 e404 | | Load 0x2,0x4
099a a5fd | | Store_Unchecked 0x2,-0x3
099b 00cc | | Action Pop_Block
099c 00cc | | Action Pop_Block
099d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
099e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
099f 0000 | | .XXX[0x1]
09a0 0000 0000 | | .LITERAL {0x00000000, 0x000081ec}
09a4 0000 0000 | | .LITERAL {0x00000000, 0x000081eb}
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09ab | | .CONST 0x09ab ; Address of begin
09a9 0004 | | .CONST 0x0004 ; Address of exception handler
09aa 0001 | | .CONST 0x0001 ; Number of locals
09ab BODY_09a8:
09ab INIT_09a8:
09ab 4608 |F | Jump_Case 0x9
09ac 7808 |x | Jump 0x9b5 ; case 0x0
09ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
09ae 7819 |x | Jump 0x9c8 ; case 0x2
09af 7818 |x | Jump 0x9c8 ; case 0x3
09b0 7817 |x | Jump 0x9c8 ; case 0x4
09b1 7816 |x | Jump 0x9c8 ; case 0x5
09b2 7815 |x | Jump 0x9c8 ; case 0x6
09b3 7814 |x | Jump 0x9c8 ; case 0x7
09b4 7813 |x | Jump 0x9c8 ; case 0x8
09b5 00da | | Load_Top At_Offset_2
09b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09b7 0125 | % | Execute Any,Set_Constraint
09b8 00da | | Load_Top At_Offset_2
09b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09ba 1c00 | | Execute_Immediate Run_Utility,0x0
09bb 00da | | Load_Top At_Offset_2
09bc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
09bd 0125 | % | Execute Any,Set_Constraint
09be 00da | | Load_Top At_Offset_2
09bf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
09c0 1c00 | | Execute_Immediate Run_Utility,0x0
09c1 00da | | Load_Top At_Offset_2
09c2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
09c3 0125 | % | Execute Any,Set_Constraint
09c4 00da | | Load_Top At_Offset_2
09c5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
09c6 1c00 | | Execute_Immediate Run_Utility,0x0
09c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09c8 0869 | i | Execute_Immediate Raise,0x69
09c9 0000 0000 | | .BLANK 0000[0x7]
09d0 ; --------------------------------------------------------------------------------------
09d0 ; SUBPROGRAM
09d0 ; --------------------------------------------------------------------------------------
09d0 09d3 | | .CONST 0x09d3 ; Address of begin
09d1 0004 | | .CONST 0x0004 ; Address of exception handler
09d2 0001 | | .CONST 0x0001 ; Number of locals
09d3 BODY_09d0:
09d3 INIT_09d0:
09d3 4608 |F | Jump_Case 0x9
09d4 7808 |x | Jump 0x9dd ; case 0x0
09d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
09d6 7820 |x | Jump 0x9f7 ; case 0x2
09d7 781f |x | Jump 0x9f7 ; case 0x3
09d8 781e |x | Jump 0x9f7 ; case 0x4
09d9 781d |x | Jump 0x9f7 ; case 0x5
09da 781c |x | Jump 0x9f7 ; case 0x6
09db 7808 |x | Jump 0x9e4 ; case 0x7
09dc 7810 |x | Jump 0x9ed ; case 0x8
09dd 4800 |H | Short_Literal 0x0
09de 00db | | Load_Top At_Offset_3
09df 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09e0 00da | | Load_Top At_Offset_2
09e1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09e2 1c00 | | Execute_Immediate Run_Utility,0x0
09e3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
09e4 00db | | Load_Top At_Offset_3
09e5 4801 |H | Short_Literal 0x1
09e6 e5fe | | Load 0x2,-0x2
09e7 e228 | ( | Load 0x1,0x28
09e8 035b | [ | Declare_Type Array,Constrained
09e9 4801 |H | Short_Literal 0x1
09ea e5ff | | Load 0x2,-0x1
09eb 031b | | Declare_Type Variant_Record,Constrained
09ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09ed 00db | | Load_Top At_Offset_3
09ee 00db | | Load_Top At_Offset_3
09ef 02fc | | Declare_Variable Variant_Record,With_Constraint
09f0 4801 |H | Short_Literal 0x1
09f1 e5fe | | Load 0x2,-0x2
09f2 e228 | ( | Load 0x1,0x28
09f3 0334 | 4 | Declare_Variable Array,With_Constraint
09f4 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
09f5 016a | j | QQ_execute Variant_Record,XXX
09f6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
09f7 0869 | i | Execute_Immediate Raise,0x69
09f8 ; --------------------------------------------------------------------------------------
09f8 ; STRING TABLE
09f8 ; --------------------------------------------------------------------------------------
09f8 0028 | ( | .STRTAB 0x0028->0x0a0c ; "Checking if units specify batch mode"
09f9 004a | J | .STRTAB 0x004a->0x0a1e ; "Selecting units for build"
09fa 0061 | a | .STRTAB 0x0061->0x0a2a ; "get_build_list"
09fb 006d | m | .STRTAB 0x006d->0x0a31 ; "Sorting build list"
09fc 007d | } | .STRTAB 0x007d->0x0a3a ; "sort_build_list"
09fd 008a | | .STRTAB 0x008a->0x0a42 ; "get_remote_machine"
09fe 009a | | .STRTAB 0x009a->0x0a4b ; "get_target_key"
09ff 00a6 | | .STRTAB 0x00a6->0x0a52 ; "'c(main_body)"
0a00 00b1 | | .STRTAB 0x00b1->0x0a58 ; "to_unit_list"
0a01 00bb | | .STRTAB 0x00bb->0x0a5e ; "null_time"
0a02 00c2 | | .STRTAB 0x00c2->0x0a63 ; "interactive"
0a03 00cb | | .STRTAB 0x00cb->0x0a68 ; "batch"
0a04 00ce | | .STRTAB 0x00ce->0x0a6b ; "check_if_batch_mode"
0a05 00df | | .STRTAB 0x00df->0x0a74 ; "!Targets"
0a06 00e5 | | .STRTAB 0x00e5->0x0a78 ; "@"
0a07 00e4 | | .STRTAB 0x00e4->0x0a79 ; "Unit :"
0a08 00f4 | | .STRTAB 0x00f4->0x0a82 ; "Last coding time :"
0a09 0104 | | .STRTAB 0x0104->0x0a8b ; "Last build time :"
0a0a 0114 | | .STRTAB 0x0114->0x0a94 ; " "
0a0b 0113 | | .STREND 0x0113->0x0a94
0a0c 4368 6563 |Chec| .STRTAB_STRINGS
0a95 0000 0000 | | .XXX[0x3]
0a97 0000 | |
0a98 ; --------------------------------------------------------------------------------------
0a98 ; Debug Table
0a98 ; --------------------------------------------------------------------------------------
0a98 0004 000e | | .DEBUG4 0x0004,0x000e,0xe375,0x0000,0x0001,0x0000
0a9e 0000 0000 | | .BLANK 0000[0x8]
0aa6 0057 26c5 | W& | .XXX[0x2]
0aa8 0000 0000 | | .BLANK 0000[0x7]
0aaf 00b4 | | .XXX[0x1]
0ab0 0000 0000 | | .BLANK 0000[0x8]
0ab8 00ce f8b3 | | .XXX[0x8]
0aba 0000 0016 | |
0abc 004a 500e | JP |
0abe 0000 32b2 | 2 |
0ac0 0000 0000 | | .BLANK 0000[0x140]