|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_05d8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0870 | p | .CONST 0x0870 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ad | | .CONST 0x00ad ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002b | + | .CONST 0x002b ; Number of locals 000b INIT_0008: 000b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000d 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 000f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0011 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0013 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0015 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0017 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0019 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001b 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 001d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 001f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0021 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0023 4fff |O | Short_Literal -0x1 0024 60a7 |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x7fffffff} 0025 00e2 | | Load_Encached Integer_Cache 0026 03f9 | | Declare_Type Discrete,Constrained,Visible 0027 4800 |H | Short_Literal 0x0 0028 60a3 |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x7fffffff} 0029 00da | | Load_Top At_Offset_2 002a 03f9 | | Declare_Type Discrete,Constrained,Visible 002b 4801 |H | Short_Literal 0x1 002c 609f |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x7fffffff} 002d 00db | | Load_Top At_Offset_3 002e 03f9 | | Declare_Type Discrete,Constrained,Visible 002f e001 | | Load 0x0,0x1 0030 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0031 00e1 | | Load_Encached Boolean_Cache 0032 e219 | | Load 0x1,0x19 0033 02a0 | | Declare_Subprogram Null_Subprogram 0034 4803 |H | Short_Literal 0x3 0035 032e | . | Declare_Type Record,Defined,Visible 0036 00d8 | | Load_Top At_Offset_0 0037 0322 | " | Declare_Variable Record 0038 e001 | | Load 0x0,0x1 0039 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 003a 00d9 | | Load_Top At_Offset_1 003b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003c 4800 |H | Short_Literal 0x0 003d 00d9 | | Load_Top At_Offset_1 003e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 003f 4800 |H | Short_Literal 0x0 0040 00d9 | | Load_Top At_Offset_1 0041 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0042 0129 | ) | Execute Any,Make_Visible 0043 00d9 | | Load_Top At_Offset_1 0044 0322 | " | Declare_Variable Record 0045 e001 | | Load 0x0,0x1 0046 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0048 00d9 | | Load_Top At_Offset_1 0049 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 004a 4800 |H | Short_Literal 0x0 004b 00d9 | | Load_Top At_Offset_1 004c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 004d 4801 |H | Short_Literal 0x1 004e 00d9 | | Load_Top At_Offset_1 004f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0050 0129 | ) | Execute Any,Make_Visible 0051 00da | | Load_Top At_Offset_2 0052 0322 | " | Declare_Variable Record 0053 e001 | | Load 0x0,0x1 0054 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0055 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0056 00d9 | | Load_Top At_Offset_1 0057 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0058 4800 |H | Short_Literal 0x0 0059 00d9 | | Load_Top At_Offset_1 005a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 005b 4800 |H | Short_Literal 0x0 005c 00d9 | | Load_Top At_Offset_1 005d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 005e 0129 | ) | Execute Any,Make_Visible 005f 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0061 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0063 4806 |H | Short_Literal 0x6 0064 0093 0483 | | push_full_address INIT_0480 0066 02a0 | | Declare_Subprogram Null_Subprogram 0067 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0068 00bf | | Action Accept_Activation 0069 4801 |H | Short_Literal 0x1 006a 4800 |H | Short_Literal 0x0 006b e002 | | Load 0x0,0x2 006c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006d 035b | [ | Declare_Type Array,Constrained 006e 0337 | 7 | Declare_Variable Array 006f 00d8 | | Load_Top At_Offset_0 0070 0335 | 5 | Declare_Variable Array,Duplicate 0071 00cd | | Action Spare6_Action 0072 00d9 | | Load_Top At_Offset_1 0073 01d4 | | Execute Vector,Structure_Write 0074 e001 | | Load 0x0,0x1 0075 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0076 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0077 00c7 | | Action Elaborate_Subprogram 0078 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0079 00c7 | | Action Elaborate_Subprogram 007a 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 007c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 007d 00c7 | | Action Elaborate_Subprogram 007e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 007f 00c7 | | Action Elaborate_Subprogram 0080 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0081 00c7 | | Action Elaborate_Subprogram 0082 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0083 00c7 | | Action Elaborate_Subprogram 0084 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0085 00c7 | | Action Elaborate_Subprogram 0086 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0087 00c7 | | Action Elaborate_Subprogram 0088 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0089 00c7 | | Action Elaborate_Subprogram 008a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 008b 00c7 | | Action Elaborate_Subprogram 008c 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 008e 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 0090 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0092 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0093 00c7 | | Action Elaborate_Subprogram 0094 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call 0096 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0097 00c7 | | Action Elaborate_Subprogram 0098 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 009a 1d20 | | Execute_Immediate Reference_Lex_1,0x20 009b 00c7 | | Action Elaborate_Subprogram 009c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 009d 00c7 | | Action Elaborate_Subprogram 009e 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 00a0 00b6 | | Action Make_Scope 00a1 e002 | | Load 0x0,0x2 00a2 e003 | | Load 0x0,0x3 00a3 e001 | | Load 0x0,0x1 00a4 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00a5 e004 | | Load 0x0,0x4 00a6 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00a7 e224 | $ | Load 0x1,0x24 00a8 4808 |H | Short_Literal 0x8 00a9 e222 | " | Load 0x1,0x22 00aa 020e | | Execute Module,Augment_Imports 00ab e222 | " | Load 0x1,0x22 00ac 020d | | Execute Module,Elaborate 00ad BODY_0008: 00ad 00bc | | Action Signal_Activated 00ae 00bb | | Action Signal_Completion 00af 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 00b4 680a |h | Jump_Zero 0xbf 00b5 4801 |H | Short_Literal 0x1 00b6 4801 |H | Short_Literal 0x1 00b7 e003 | | Load 0x0,0x3 00b8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b9 0334 | 4 | Declare_Variable Array,With_Constraint 00ba 48ff |H | Short_Literal 0xff 00bb 4801 |H | Short_Literal 0x1 00bc 00da | | Load_Top At_Offset_2 00bd 01d6 | | Execute Vector,Field_Write 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf 4801 |H | Short_Literal 0x1 00c0 4801 |H | Short_Literal 0x1 00c1 e003 | | Load 0x0,0x3 00c2 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00c3 0334 | 4 | Declare_Variable Array,With_Constraint 00c4 4800 |H | Short_Literal 0x0 00c5 4801 |H | Short_Literal 0x1 00c6 00da | | Load_Top At_Offset_2 00c7 01d6 | | Execute Vector,Field_Write 00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c9 0000 0000 | | .XXX[0x3] 00cb 0000 | | 00cc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00cf | | Action Mark_Auxiliary 00d4 00db | | Load_Top At_Offset_3 00d5 01d9 | | Execute Vector,Reverse_Bounds 00d6 0263 | c | Execute Discrete,Above_Bound 00d7 7008 |p | Jump_Nonzero 0xe0 00d8 00d8 | | Load_Top At_Offset_0 00d9 e5ff | | Load 0x2,-0x1 00da 01d7 | | Execute Vector,Field_Read 00db 6802 |h | Jump_Zero 0xde 00dc 4801 |H | Short_Literal 0x1 00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00de 00c8 | | Action Pop_Auxiliary_Range 00df 3ff8 |? | Loop_Increasing 0xd8 00e0 00ce | | Action Pop_Auxiliary 00e1 4800 |H | Short_Literal 0x0 00e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f6 | | .CONST 0x00f6 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0003 | | .CONST 0x0003 ; Number of locals 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec e001 | | Load 0x0,0x1 00ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ee 03f1 | | Declare_Variable Discrete,With_Value 00ef 4801 |H | Short_Literal 0x1 00f0 e5ff | | Load 0x2,-0x1 00f1 8225 | % | Call 0x1,0x25 00f2 e002 | | Load 0x0,0x2 00f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f4 035b | [ | Declare_Type Array,Constrained 00f5 0337 | 7 | Declare_Variable Array 00f6 BODY_00e8: 00f6 00cf | | Action Mark_Auxiliary 00f7 4802 |H | Short_Literal 0x2 00f8 00da | | Load_Top At_Offset_2 00f9 01dc | | Execute Vector,Last 00fa 0264 | d | Execute Discrete,Below_Bound 00fb 7011 |p | Jump_Nonzero 0x10d 00fc e402 | | Load 0x2,0x2 00fd 48ff |H | Short_Literal 0xff 00fe 0279 | y | Execute Discrete,And 00ff 00d8 | | Load_Top At_Offset_0 0100 e003 | | Load 0x0,0x3 0101 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0102 0260 | ` | Execute Discrete,In_Type 0103 7001 |p | Jump_Nonzero 0x105 0104 0801 | | Execute_Immediate Raise,0x1 0105 00d9 | | Load_Top At_Offset_1 0106 e403 | | Load 0x2,0x3 0107 01d6 | | Execute Vector,Field_Write 0108 e402 | | Load 0x2,0x2 0109 09f8 | | Execute_Immediate Binary_Scale,-0x8 010a a402 | | Store_Unchecked 0x2,0x2 010b 00c8 | | Action Pop_Auxiliary_Range 010c 37ef |7 | Loop_Decreasing 0xfc 010d 00ce | | Action Pop_Auxiliary 010e 00d9 | | Load_Top At_Offset_1 010f 4f80 |O | Short_Literal -0x80 0110 487f |H | Short_Literal 0x7f 0111 0262 | b | Execute Discrete,In_Range 0112 7001 |p | Jump_Nonzero 0x114 0113 0887 | | Execute_Immediate Raise,0x87 0114 00d9 | | Load_Top At_Offset_1 0115 0d00 | | Execute_Immediate Less,0x0 0116 680f |h | Jump_Zero 0x126 0117 00d9 | | Load_Top At_Offset_1 0118 4880 |H | Short_Literal 0x80 0119 0273 | s | Execute Discrete,Plus 011a 00d8 | | Load_Top At_Offset_0 011b e003 | | Load 0x0,0x3 011c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 011d 0260 | ` | Execute Discrete,In_Type 011e 7001 |p | Jump_Nonzero 0x120 011f 0801 | | Execute_Immediate Raise,0x1 0120 4880 |H | Short_Literal 0x80 0121 0273 | s | Execute Discrete,Plus 0122 4801 |H | Short_Literal 0x1 0123 00da | | Load_Top At_Offset_2 0124 01d6 | | Execute Vector,Field_Write 0125 780a |x | Jump 0x130 0126 00d9 | | Load_Top At_Offset_1 0127 00d8 | | Load_Top At_Offset_0 0128 e003 | | Load 0x0,0x3 0129 1b11 | | Execute Package,Field_Read,Field_Number 0x11 012a 0260 | ` | Execute Discrete,In_Type 012b 7001 |p | Jump_Nonzero 0x12d 012c 0801 | | Execute_Immediate Raise,0x1 012d 4801 |H | Short_Literal 0x1 012e 00da | | Load_Top At_Offset_2 012f 01d6 | | Execute Vector,Field_Write 0130 00d8 | | Load_Top At_Offset_0 0131 e003 | | Load 0x0,0x3 0132 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0133 01c6 | | Execute Vector,Convert_To_Formal 0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013e | > | .CONST 0x013e ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b e001 | | Load 0x0,0x1 013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 013e BODY_0138: 013e 00db | | Load_Top At_Offset_3 013f 01db | | Execute Vector,Length 0140 0c01 | | Execute_Immediate Greater_Equal,0x1 0141 681d |h | Jump_Zero 0x15f 0142 4801 |H | Short_Literal 0x1 0143 e5ff | | Load 0x2,-0x1 0144 01d7 | | Execute Vector,Field_Read 0145 09f9 | | Execute_Immediate Binary_Scale,-0x7 0146 4f80 |O | Short_Literal -0x80 0147 0271 | q | Execute Discrete,Times 0148 4801 |H | Short_Literal 0x1 0149 e5ff | | Load 0x2,-0x1 014a 01d7 | | Execute Vector,Field_Read 014b 487f |H | Short_Literal 0x7f 014c 0279 | y | Execute Discrete,And 014d 0273 | s | Execute Discrete,Plus 014e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 014f 00cf | | Action Mark_Auxiliary 0150 e5ff | | Load 0x2,-0x1 0151 01dc | | Execute Vector,Last 0152 4802 |H | Short_Literal 0x2 0153 0263 | c | Execute Discrete,Above_Bound 0154 7009 |p | Jump_Nonzero 0x15e 0155 00db | | Load_Top At_Offset_3 0156 0908 | | Execute_Immediate Binary_Scale,0x8 0157 00d9 | | Load_Top At_Offset_1 0158 e5ff | | Load 0x2,-0x1 0159 01d7 | | Execute Vector,Field_Read 015a 0273 | s | Execute Discrete,Plus 015b a402 | | Store_Unchecked 0x2,0x2 015c 00c8 | | Action Pop_Auxiliary_Range 015d 3ff7 |? | Loop_Increasing 0x155 015e 00ce | | Action Pop_Auxiliary 015f 00d8 | | Load_Top At_Offset_0 0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e004 | | Load 0x0,0x4 016c 0257 | W | Execute Discrete,Raise 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e004 | | Load 0x0,0x4 0174 0257 | W | Execute Discrete,Raise 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c 0335 | 5 | Declare_Variable Array,Duplicate 017d 00cd | | Action Spare6_Action 017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 0335 | 5 | Declare_Variable Array,Duplicate 0185 00cd | | Action Spare6_Action 0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b e223 | # | Load 0x1,0x23 018c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018d 0000 0000 | | .XXX[0x3] 018f 0000 | | 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 4800 |H | Short_Literal 0x0 0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a6 | | .CONST 0x01a6 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0004 | | .CONST 0x0004 ; Number of locals 019b INIT_0198: 019b 4801 |H | Short_Literal 0x1 019c 00db | | Load_Top At_Offset_3 019d 8228 | ( | Call 0x1,0x28 019e e002 | | Load 0x0,0x2 019f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a0 035b | [ | Declare_Type Array,Constrained 01a1 0337 | 7 | Declare_Variable Array 01a2 00e3 | | Load_Encached Natural_Cache 01a3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01a4 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 01a6 BODY_0198: 01a6 e5ff | | Load 0x2,-0x1 01a7 01db | | Execute Vector,Length 01a8 0c02 | | Execute_Immediate Greater_Equal,0x2 01a9 6829 |h) | Jump_Zero 0x1d3 01aa e5ff | | Load 0x2,-0x1 01ab 01dd | | Execute Vector,First 01ac e5ff | | Load 0x2,-0x1 01ad 01d7 | | Execute Vector,Field_Read 01ae 4828 |H( | Short_Literal 0x28 01af 0271 | q | Execute Discrete,Times 01b0 e5ff | | Load 0x2,-0x1 01b1 01dd | | Execute Vector,First 01b2 0a01 | | Execute_Immediate Plus,0x1 01b3 e5ff | | Load 0x2,-0x1 01b4 01d7 | | Execute Vector,Field_Read 01b5 0273 | s | Execute Discrete,Plus 01b6 e001 | | Load 0x0,0x1 01b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01b8 00d9 | | Load_Top At_Offset_1 01b9 00d0 | | Action Swap_Control 01ba 0260 | ` | Execute Discrete,In_Type 01bb 7001 |p | Jump_Nonzero 0x1bd 01bc 0801 | | Execute_Immediate Raise,0x1 01bd 8404 | | Call 0x2,0x4 01be 00cf | | Action Mark_Auxiliary 01bf e5ff | | Load 0x2,-0x1 01c0 01dc | | Execute Vector,Last 01c1 e5ff | | Load 0x2,-0x1 01c2 01dd | | Execute Vector,First 01c3 0a02 | | Execute_Immediate Plus,0x2 01c4 00d8 | | Load_Top At_Offset_0 01c5 00e2 | | Load_Encached Integer_Cache 01c6 0260 | ` | Execute Discrete,In_Type 01c7 7001 |p | Jump_Nonzero 0x1c9 01c8 0801 | | Execute_Immediate Raise,0x1 01c9 0263 | c | Execute Discrete,Above_Bound 01ca 7006 |p | Jump_Nonzero 0x1d1 01cb 00d8 | | Load_Top At_Offset_0 01cc e5ff | | Load 0x2,-0x1 01cd 01d7 | | Execute Vector,Field_Read 01ce 8404 | | Call 0x2,0x4 01cf 00c8 | | Action Pop_Auxiliary_Range 01d0 3ffa |? | Loop_Increasing 0x1cb 01d1 00ce | | Action Pop_Auxiliary 01d2 7805 |x | Jump 0x1d8 01d3 e5ff | | Load 0x2,-0x1 01d4 01db | | Execute Vector,Length 01d5 0f01 | | Execute_Immediate Equal,0x1 01d6 6801 |h | Jump_Zero 0x1d8 01d7 08e0 | | Execute_Immediate Raise,0xe0 01d8 00d9 | | Load_Top At_Offset_1 01d9 00db | | Load_Top At_Offset_3 01da 01dc | | Execute Vector,Last 01db 027f | | Execute Discrete,Equal 01dc 7001 |p | Jump_Nonzero 0x1de 01dd 0887 | | Execute_Immediate Raise,0x87 01de 00da | | Load_Top At_Offset_2 01df e003 | | Load 0x0,0x3 01e0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01e1 01c6 | | Execute Vector,Convert_To_Formal 01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 0202 | | .CONST 0x0202 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb 4801 |H | Short_Literal 0x1 01ec 00db | | Load_Top At_Offset_3 01ed 8229 | ) | Call 0x1,0x29 01ee e001 | | Load 0x0,0x1 01ef 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01f0 035b | [ | Declare_Type Array,Constrained 01f1 0337 | 7 | Declare_Variable Array 01f2 00d8 | | Load_Top At_Offset_0 01f3 0335 | 5 | Declare_Variable Array,Duplicate 01f4 00cd | | Action Spare6_Action 01f5 00d9 | | Load_Top At_Offset_1 01f6 01d9 | | Execute Vector,Reverse_Bounds 01f7 0263 | c | Execute Discrete,Above_Bound 01f8 7005 |p | Jump_Nonzero 0x1fe 01f9 4800 |H | Short_Literal 0x0 01fa 00d9 | | Load_Top At_Offset_1 01fb e403 | | Load 0x2,0x3 01fc 01d6 | | Execute Vector,Field_Write 01fd 3ffb |? | Loop_Increasing 0x1f9 01fe 00d9 | | Load_Top At_Offset_1 01ff 01d4 | | Execute Vector,Structure_Write 0200 00e4 | | Load_Encached Positive_Cache 0201 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0202 BODY_01e8: 0202 00cf | | Action Mark_Auxiliary 0203 e5ff | | Load 0x2,-0x1 0204 01d9 | | Execute Vector,Reverse_Bounds 0205 0263 | c | Execute Discrete,Above_Bound 0206 703f |p? | Jump_Nonzero 0x246 0207 00d8 | | Load_Top At_Offset_0 0208 e5ff | | Load 0x2,-0x1 0209 01d7 | | Execute Vector,Field_Read 020a 0d80 | | Execute_Immediate Less,-0x80 020b 6826 |h& | Jump_Zero 0x232 020c 00db | | Load_Top At_Offset_3 020d e402 | | Load 0x2,0x2 020e 01d7 | | Execute Vector,Field_Read 020f 0907 | | Execute_Immediate Binary_Scale,0x7 0210 00d9 | | Load_Top At_Offset_1 0211 e5ff | | Load 0x2,-0x1 0212 01d7 | | Execute Vector,Field_Read 0213 0273 | s | Execute Discrete,Plus 0214 e403 | | Load 0x2,0x3 0215 e402 | | Load 0x2,0x2 0216 01d6 | | Execute Vector,Field_Write 0217 00db | | Load_Top At_Offset_3 0218 0f01 | | Execute_Immediate Equal,0x1 0219 6814 |h | Jump_Zero 0x22e 021a 4801 |H | Short_Literal 0x1 021b e402 | | Load 0x2,0x2 021c 01d7 | | Execute Vector,Field_Read 021d 4828 |H( | Short_Literal 0x28 021e 026e | n | Execute Discrete,Modulo 021f 4802 |H | Short_Literal 0x2 0220 e402 | | Load 0x2,0x2 0221 01d6 | | Execute Vector,Field_Write 0222 4801 |H | Short_Literal 0x1 0223 e402 | | Load 0x2,0x2 0224 01d7 | | Execute Vector,Field_Read 0225 4828 |H( | Short_Literal 0x28 0226 0270 | p | Execute Discrete,Divide 0227 4801 |H | Short_Literal 0x1 0228 e402 | | Load 0x2,0x2 0229 01d6 | | Execute Vector,Field_Write 022a 00db | | Load_Top At_Offset_3 022b 0a02 | | Execute_Immediate Plus,0x2 022c c403 | | Store 0x2,0x3 022d 7816 |x | Jump 0x244 022e 00db | | Load_Top At_Offset_3 022f 0a01 | | Execute_Immediate Plus,0x1 0230 c403 | | Store 0x2,0x3 0231 7812 |x | Jump 0x244 0232 00db | | Load_Top At_Offset_3 0233 e402 | | Load 0x2,0x2 0234 01d7 | | Execute Vector,Field_Read 0235 0907 | | Execute_Immediate Binary_Scale,0x7 0236 00d9 | | Load_Top At_Offset_1 0237 e5ff | | Load 0x2,-0x1 0238 01d7 | | Execute Vector,Field_Read 0239 0a80 | | Execute_Immediate Plus,-0x80 023a 00d8 | | Load_Top At_Offset_0 023b e001 | | Load 0x0,0x1 023c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 023d 0260 | ` | Execute Discrete,In_Type 023e 7001 |p | Jump_Nonzero 0x240 023f 0801 | | Execute_Immediate Raise,0x1 0240 0273 | s | Execute Discrete,Plus 0241 e403 | | Load 0x2,0x3 0242 e402 | | Load 0x2,0x2 0243 01d6 | | Execute Vector,Field_Write 0244 00c8 | | Action Pop_Auxiliary_Range 0245 3fc1 |? | Loop_Increasing 0x207 0246 00ce | | Action Pop_Auxiliary 0247 00d8 | | Load_Top At_Offset_0 0248 00da | | Load_Top At_Offset_2 0249 01dc | | Execute Vector,Last 024a 00db | | Load_Top At_Offset_3 024b 01dc | | Execute Vector,Last 024c 0a01 | | Execute_Immediate Plus,0x1 024d 00d8 | | Load_Top At_Offset_0 024e 00e2 | | Load_Encached Integer_Cache 024f 0260 | ` | Execute Discrete,In_Type 0250 7001 |p | Jump_Nonzero 0x252 0251 0801 | | Execute_Immediate Raise,0x1 0252 0262 | b | Execute Discrete,In_Range 0253 7001 |p | Jump_Nonzero 0x255 0254 0887 | | Execute_Immediate Raise,0x87 0255 00d9 | | Load_Top At_Offset_1 0256 e001 | | Load 0x0,0x1 0257 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0258 01c6 | | Execute Vector,Convert_To_Formal 0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025a 0000 0000 | | .BLANK 0000[0x6] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0270 | p | .CONST 0x0270 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0005 | | .CONST 0x0005 ; Number of locals 0263 INIT_0260: 0263 4801 |H | Short_Literal 0x1 0264 00db | | Load_Top At_Offset_3 0265 822a | * | Call 0x1,0x2a 0266 e002 | | Load 0x0,0x2 0267 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0268 035b | [ | Declare_Type Array,Constrained 0269 0337 | 7 | Declare_Variable Array 026a 00e4 | | Load_Encached Positive_Cache 026b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 026c 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 026e 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call 0270 BODY_0260: 0270 e5ff | | Load 0x2,-0x1 0271 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0272 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0273 4603 |F | Jump_Case 0x4 0274 7808 |x | Jump 0x27d ; case 0x0 0275 780c |x | Jump 0x282 ; case 0x1 0276 7810 |x | Jump 0x287 ; case 0x2 0277 7800 |x | Jump 0x278 ; case 0x3 0278 48c0 |H | Short_Literal 0xc0 0279 00db | | Load_Top At_Offset_3 027a e402 | | Load 0x2,0x2 027b 01d6 | | Execute Vector,Field_Write 027c 780e |x | Jump 0x28b 027d 4800 |H | Short_Literal 0x0 027e 00db | | Load_Top At_Offset_3 027f e402 | | Load 0x2,0x2 0280 01d6 | | Execute Vector,Field_Write 0281 7809 |x | Jump 0x28b 0282 4840 |H@ | Short_Literal 0x40 0283 00db | | Load_Top At_Offset_3 0284 e402 | | Load 0x2,0x2 0285 01d6 | | Execute Vector,Field_Write 0286 7804 |x | Jump 0x28b 0287 4880 |H | Short_Literal 0x80 0288 00db | | Load_Top At_Offset_3 0289 e402 | | Load 0x2,0x2 028a 01d6 | | Execute Vector,Field_Write 028b e5ff | | Load 0x2,-0x1 028c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028d 6807 |h | Jump_Zero 0x295 028e 00da | | Load_Top At_Offset_2 028f e402 | | Load 0x2,0x2 0290 01d7 | | Execute Vector,Field_Read 0291 0a20 | | Execute_Immediate Plus,0x20 0292 00db | | Load_Top At_Offset_3 0293 e402 | | Load 0x2,0x2 0294 01d6 | | Execute Vector,Field_Write 0295 e5ff | | Load 0x2,-0x1 0296 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0297 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0298 0d1f | | Execute_Immediate Less,0x1f 0299 6811 |h | Jump_Zero 0x2ab 029a 00da | | Load_Top At_Offset_2 029b e402 | | Load 0x2,0x2 029c 01d7 | | Execute Vector,Field_Read 029d e5ff | | Load 0x2,-0x1 029e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 029f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a0 00d8 | | Load_Top At_Offset_0 02a1 e003 | | Load 0x0,0x3 02a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02a3 0260 | ` | Execute Discrete,In_Type 02a4 7001 |p | Jump_Nonzero 0x2a6 02a5 0801 | | Execute_Immediate Raise,0x1 02a6 0273 | s | Execute Discrete,Plus 02a7 00db | | Load_Top At_Offset_3 02a8 e402 | | Load 0x2,0x2 02a9 01d6 | | Execute Vector,Field_Write 02aa 7808 |x | Jump 0x2b3 02ab 00da | | Load_Top At_Offset_2 02ac e402 | | Load 0x2,0x2 02ad 01d7 | | Execute Vector,Field_Read 02ae 0a1f | | Execute_Immediate Plus,0x1f 02af 00db | | Load_Top At_Offset_3 02b0 e402 | | Load 0x2,0x2 02b1 01d6 | | Execute Vector,Field_Write 02b2 8404 | | Call 0x2,0x4 02b3 00da | | Load_Top At_Offset_2 02b4 0a01 | | Execute_Immediate Plus,0x1 02b5 005b | [ | Store_Top Discrete,At_Offset_3 02b6 e5ff | | Load 0x2,-0x1 02b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02b8 4fff |O | Short_Literal -0x1 02b9 027f | | Execute Discrete,Equal 02ba 6805 |h | Jump_Zero 0x2c0 02bb 4880 |H | Short_Literal 0x80 02bc 00db | | Load_Top At_Offset_3 02bd e402 | | Load 0x2,0x2 02be 01d6 | | Execute Vector,Field_Write 02bf 7811 |x | Jump 0x2d1 02c0 e5ff | | Load 0x2,-0x1 02c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02c2 0d80 | | Execute_Immediate Less,-0x80 02c3 680c |h | Jump_Zero 0x2d0 02c4 e5ff | | Load 0x2,-0x1 02c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02c6 00d8 | | Load_Top At_Offset_0 02c7 e003 | | Load 0x0,0x3 02c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02c9 0260 | ` | Execute Discrete,In_Type 02ca 7001 |p | Jump_Nonzero 0x2cc 02cb 0801 | | Execute_Immediate Raise,0x1 02cc 00db | | Load_Top At_Offset_3 02cd e402 | | Load 0x2,0x2 02ce 01d6 | | Execute Vector,Field_Write 02cf 7801 |x | Jump 0x2d1 02d0 8405 | | Call 0x2,0x5 02d1 00da | | Load_Top At_Offset_2 02d2 e402 | | Load 0x2,0x2 02d3 01dc | | Execute Vector,Last 02d4 027f | | Execute Discrete,Equal 02d5 7001 |p | Jump_Nonzero 0x2d7 02d6 0887 | | Execute_Immediate Raise,0x87 02d7 00db | | Load_Top At_Offset_3 02d8 e003 | | Load 0x0,0x3 02d9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02da 01c6 | | Execute Vector,Convert_To_Formal 02db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 e004 | | Load 0x0,0x4 02e4 0257 | W | Execute Discrete,Raise 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f1 | | .CONST 0x02f1 ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0003 | | .CONST 0x0003 ; Number of locals 02eb INIT_02e8: 02eb 00da | | Load_Top At_Offset_2 02ec e001 | | Load 0x0,0x1 02ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ee 03f1 | | Declare_Variable Discrete,With_Value 02ef 00e4 | | Load_Encached Positive_Cache 02f0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02f1 BODY_02e8: 02f1 00cf | | Action Mark_Auxiliary 02f2 7807 |x | Jump 0x2fa 02f3 00d9 | | Load_Top At_Offset_1 02f4 0a01 | | Execute_Immediate Plus,0x1 02f5 005a | Z | Store_Top Discrete,At_Offset_2 02f6 00da | | Load_Top At_Offset_2 02f7 09f8 | | Execute_Immediate Binary_Scale,-0x8 02f8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02f9 00c9 | | Action Pop_Auxiliary_Loop 02fa 00da | | Load_Top At_Offset_2 02fb 4f80 |O | Short_Literal -0x80 02fc 487f |H | Short_Literal 0x7f 02fd 0261 | a | Execute Discrete,Not_In_Range 02fe 77f4 |w | Jump_Nonzero 0x2f3 02ff 00ce | | Action Pop_Auxiliary 0300 00d8 | | Load_Top At_Offset_0 0301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0302 0000 0000 | | .BLANK 0000[0x6] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0311 | | .CONST 0x0311 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0003 | | .CONST 0x0003 ; Number of locals 030b INIT_0308: 030b 00e4 | | Load_Encached Positive_Cache 030c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 030d 00db | | Load_Top At_Offset_3 030e 09f9 | | Execute_Immediate Binary_Scale,-0x7 030f e224 | $ | Load 0x1,0x24 0310 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0311 BODY_0308: 0311 00cf | | Action Mark_Auxiliary 0312 7807 |x | Jump 0x31a 0313 00da | | Load_Top At_Offset_2 0314 0a01 | | Execute_Immediate Plus,0x1 0315 005b | [ | Store_Top Discrete,At_Offset_3 0316 00d9 | | Load_Top At_Offset_1 0317 09f9 | | Execute_Immediate Binary_Scale,-0x7 0318 005a | Z | Store_Top Discrete,At_Offset_2 0319 00c9 | | Action Pop_Auxiliary_Loop 031a 00d9 | | Load_Top At_Offset_1 031b 77f7 |w | Jump_Nonzero 0x313 031c 00ce | | Action Pop_Auxiliary 031d 00d9 | | Load_Top At_Offset_1 031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031f 0000 | | .XXX[0x1] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0331 | 1 | .CONST 0x0331 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0005 | | .CONST 0x0005 ; Number of locals 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 e224 | $ | Load 0x1,0x24 0325 03f1 | | Declare_Variable Discrete,With_Value 0326 4801 |H | Short_Literal 0x1 0327 e5ff | | Load 0x2,-0x1 0328 8226 | & | Call 0x1,0x26 0329 e002 | | Load 0x0,0x2 032a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 032b 035b | [ | Declare_Type Array,Constrained 032c 0337 | 7 | Declare_Variable Array 032d 00e3 | | Load_Encached Natural_Cache 032e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 032f 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 0331 BODY_0320: 0331 00cf | | Action Mark_Auxiliary 0332 e402 | | Load 0x2,0x2 0333 0d80 | | Execute_Immediate Less,-0x80 0334 6809 |h | Jump_Zero 0x33e 0335 e402 | | Load 0x2,0x2 0336 00d8 | | Load_Top At_Offset_0 0337 e003 | | Load 0x0,0x3 0338 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0339 0260 | ` | Execute Discrete,In_Type 033a 7001 |p | Jump_Nonzero 0x33c 033b 0801 | | Execute_Immediate Raise,0x1 033c 8405 | | Call 0x2,0x5 033d 7811 |x | Jump 0x34f 033e e402 | | Load 0x2,0x2 033f 487f |H | Short_Literal 0x7f 0340 0279 | y | Execute Discrete,And 0341 4880 |H | Short_Literal 0x80 0342 0273 | s | Execute Discrete,Plus 0343 00d8 | | Load_Top At_Offset_0 0344 e003 | | Load 0x0,0x3 0345 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0346 0260 | ` | Execute Discrete,In_Type 0347 7001 |p | Jump_Nonzero 0x349 0348 0801 | | Execute_Immediate Raise,0x1 0349 8405 | | Call 0x2,0x5 034a e402 | | Load 0x2,0x2 034b 09f9 | | Execute_Immediate Binary_Scale,-0x7 034c c402 | | Store 0x2,0x2 034d 00c9 | | Action Pop_Auxiliary_Loop 034e 7fe3 | | Jump 0x332 034f 00ce | | Action Pop_Auxiliary 0350 00d9 | | Load_Top At_Offset_1 0351 00db | | Load_Top At_Offset_3 0352 01dc | | Execute Vector,Last 0353 027f | | Execute Discrete,Equal 0354 7001 |p | Jump_Nonzero 0x356 0355 0887 | | Execute_Immediate Raise,0x87 0356 00da | | Load_Top At_Offset_2 0357 e003 | | Load 0x0,0x3 0358 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0359 01c6 | | Execute Vector,Convert_To_Formal 035a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035b 0000 0000 | | .BLANK 0000[0x5] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0364 | d | .CONST 0x0364 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0002 | | .CONST 0x0002 ; Number of locals 0363 INIT_0360: 0363 00e3 | | Load_Encached Natural_Cache 0364 BODY_0360: 0364 00db | | Load_Top At_Offset_3 0365 01db | | Execute Vector,Length 0366 0c02 | | Execute_Immediate Greater_Equal,0x2 0367 682b |h+ | Jump_Zero 0x393 0368 00db | | Load_Top At_Offset_3 0369 01dd | | Execute Vector,First 036a e5ff | | Load 0x2,-0x1 036b 01d7 | | Execute Vector,Field_Read 036c 4828 |H( | Short_Literal 0x28 036d 0271 | q | Execute Discrete,Times 036e e5ff | | Load 0x2,-0x1 036f 01dd | | Execute Vector,First 0370 0a01 | | Execute_Immediate Plus,0x1 0371 e5ff | | Load 0x2,-0x1 0372 01d7 | | Execute Vector,Field_Read 0373 0273 | s | Execute Discrete,Plus 0374 00d8 | | Load_Top At_Offset_0 0375 e224 | $ | Load 0x1,0x24 0376 0260 | ` | Execute Discrete,In_Type 0377 7001 |p | Jump_Nonzero 0x379 0378 0801 | | Execute_Immediate Raise,0x1 0379 8226 | & | Call 0x1,0x26 037a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 037b 00cf | | Action Mark_Auxiliary 037c e5ff | | Load 0x2,-0x1 037d 01dc | | Execute Vector,Last 037e e5ff | | Load 0x2,-0x1 037f 01dd | | Execute Vector,First 0380 0a02 | | Execute_Immediate Plus,0x2 0381 00d8 | | Load_Top At_Offset_0 0382 00e2 | | Load_Encached Integer_Cache 0383 0260 | ` | Execute Discrete,In_Type 0384 7001 |p | Jump_Nonzero 0x386 0385 0801 | | Execute_Immediate Raise,0x1 0386 0263 | c | Execute Discrete,Above_Bound 0387 7009 |p | Jump_Nonzero 0x391 0388 00db | | Load_Top At_Offset_3 0389 00d9 | | Load_Top At_Offset_1 038a e5ff | | Load 0x2,-0x1 038b 01d7 | | Execute Vector,Field_Read 038c 8226 | & | Call 0x1,0x26 038d 0273 | s | Execute Discrete,Plus 038e c402 | | Store 0x2,0x2 038f 00c8 | | Action Pop_Auxiliary_Range 0390 3ff7 |? | Loop_Increasing 0x388 0391 00ce | | Action Pop_Auxiliary 0392 7807 |x | Jump 0x39a 0393 00db | | Load_Top At_Offset_3 0394 01db | | Execute Vector,Length 0395 0f01 | | Execute_Immediate Equal,0x1 0396 6801 |h | Jump_Zero 0x398 0397 08e0 | | Execute_Immediate Raise,0xe0 0398 4800 |H | Short_Literal 0x0 0399 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 039a 00d8 | | Load_Top At_Offset_0 039b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039c 0000 0000 | | .BLANK 0000[0x4] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a5 | | .CONST 0x03a5 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0002 | | .CONST 0x0002 ; Number of locals 03a3 INIT_03a0: 03a3 00e3 | | Load_Encached Natural_Cache 03a4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03a5 BODY_03a0: 03a5 00cf | | Action Mark_Auxiliary 03a6 e5ff | | Load 0x2,-0x1 03a7 01d9 | | Execute Vector,Reverse_Bounds 03a8 0263 | c | Execute Discrete,Above_Bound 03a9 700a |p | Jump_Nonzero 0x3b4 03aa 00d8 | | Load_Top At_Offset_0 03ab e5ff | | Load 0x2,-0x1 03ac 01d7 | | Execute Vector,Field_Read 03ad 0d80 | | Execute_Immediate Less,-0x80 03ae 6803 |h | Jump_Zero 0x3b2 03af 00db | | Load_Top At_Offset_3 03b0 0a01 | | Execute_Immediate Plus,0x1 03b1 c402 | | Store 0x2,0x2 03b2 00c8 | | Action Pop_Auxiliary_Range 03b3 3ff6 |? | Loop_Increasing 0x3aa 03b4 00ce | | Action Pop_Auxiliary 03b5 00d8 | | Load_Top At_Offset_0 03b6 0c01 | | Execute_Immediate Greater_Equal,0x1 03b7 6803 |h | Jump_Zero 0x3bb 03b8 00d8 | | Load_Top At_Offset_0 03b9 0a01 | | Execute_Immediate Plus,0x1 03ba 0059 | Y | Store_Top Discrete,At_Offset_1 03bb 00d8 | | Load_Top At_Offset_0 03bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03bd 0000 0000 | | .XXX[0x3] 03bf 0000 | | 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c4 | | .CONST 0x03c4 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0002 | | .CONST 0x0002 ; Number of locals 03c3 INIT_03c0: 03c3 00e4 | | Load_Encached Positive_Cache 03c4 BODY_03c0: 03c4 00db | | Load_Top At_Offset_3 03c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c7 0d1f | | Execute_Immediate Less,0x1f 03c8 6803 |h | Jump_Zero 0x3cc 03c9 4801 |H | Short_Literal 0x1 03ca 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03cb 7806 |x | Jump 0x3d2 03cc 00db | | Load_Top At_Offset_3 03cd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03cf 8226 | & | Call 0x1,0x26 03d0 0a01 | | Execute_Immediate Plus,0x1 03d1 0059 | Y | Store_Top Discrete,At_Offset_1 03d2 00db | | Load_Top At_Offset_3 03d3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03d4 4fff |O | Short_Literal -0x1 03d5 027f | | Execute Discrete,Equal 03d6 6804 |h | Jump_Zero 0x3db 03d7 00d8 | | Load_Top At_Offset_0 03d8 0a01 | | Execute_Immediate Plus,0x1 03d9 0059 | Y | Store_Top Discrete,At_Offset_1 03da 780f |x | Jump 0x3ea 03db 00db | | Load_Top At_Offset_3 03dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03dd 0d80 | | Execute_Immediate Less,-0x80 03de 6804 |h | Jump_Zero 0x3e3 03df 00d8 | | Load_Top At_Offset_0 03e0 0a01 | | Execute_Immediate Plus,0x1 03e1 0059 | Y | Store_Top Discrete,At_Offset_1 03e2 7807 |x | Jump 0x3ea 03e3 00d8 | | Load_Top At_Offset_0 03e4 0a01 | | Execute_Immediate Plus,0x1 03e5 e5ff | | Load 0x2,-0x1 03e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03e7 8225 | % | Call 0x1,0x25 03e8 0273 | s | Execute Discrete,Plus 03e9 0059 | Y | Store_Top Discrete,At_Offset_1 03ea 00d8 | | Load_Top At_Offset_0 03eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ec 0000 0000 | | .BLANK 0000[0x4] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03f5 7005 |p | Jump_Nonzero 0x3fb 03f6 00da | | Load_Top At_Offset_2 03f7 e5fe | | Load 0x2,-0x2 03f8 017f | | Execute Record,Equal 03f9 7001 |p | Jump_Nonzero 0x3fb 03fa 08e0 | | Execute_Immediate Raise,0xe0 03fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03fc 0000 0000 | | .BLANK 0000[0x4] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0405 | | .CONST 0x0405 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0002 | | .CONST 0x0002 ; Number of locals 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 8227 | ' | Call 0x1,0x27 0405 BODY_0400: 0405 00d8 | | Load_Top At_Offset_0 0406 e403 | | Load 0x2,0x3 0407 0a01 | | Execute_Immediate Plus,0x1 0408 00d8 | | Load_Top At_Offset_0 0409 00e2 | | Load_Encached Integer_Cache 040a 0260 | ` | Execute Discrete,In_Type 040b 7001 |p | Jump_Nonzero 0x40d 040c 0801 | | Execute_Immediate Raise,0x1 040d e403 | | Load 0x2,0x3 040e 00db | | Load_Top At_Offset_3 040f 01db | | Execute Vector,Length 0410 0273 | s | Execute Discrete,Plus 0411 00d8 | | Load_Top At_Offset_0 0412 00e2 | | Load_Encached Integer_Cache 0413 0260 | ` | Execute Discrete,In_Type 0414 7001 |p | Jump_Nonzero 0x416 0415 0801 | | Execute_Immediate Raise,0x1 0416 e402 | | Load 0x2,0x2 0417 01ce | | Execute Vector,Slice_Write 0418 e403 | | Load 0x2,0x3 0419 00d9 | | Load_Top At_Offset_1 041a 01db | | Execute Vector,Length 041b 0273 | s | Execute Discrete,Plus 041c c403 | | Store 0x2,0x3 041d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 041e 0000 0000 | | .XXX[0x2] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0427 | ' | .CONST 0x0427 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0002 | | .CONST 0x0002 ; Number of locals 0423 INIT_0420: 0423 e5ff | | Load 0x2,-0x1 0424 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0425 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0426 8227 | ' | Call 0x1,0x27 0427 BODY_0420: 0427 00d8 | | Load_Top At_Offset_0 0428 e403 | | Load 0x2,0x3 0429 0a01 | | Execute_Immediate Plus,0x1 042a 00d8 | | Load_Top At_Offset_0 042b 00e2 | | Load_Encached Integer_Cache 042c 0260 | ` | Execute Discrete,In_Type 042d 7001 |p | Jump_Nonzero 0x42f 042e 0801 | | Execute_Immediate Raise,0x1 042f e403 | | Load 0x2,0x3 0430 00db | | Load_Top At_Offset_3 0431 01db | | Execute Vector,Length 0432 0273 | s | Execute Discrete,Plus 0433 00d8 | | Load_Top At_Offset_0 0434 00e2 | | Load_Encached Integer_Cache 0435 0260 | ` | Execute Discrete,In_Type 0436 7001 |p | Jump_Nonzero 0x438 0437 0801 | | Execute_Immediate Raise,0x1 0438 e402 | | Load 0x2,0x2 0439 01ce | | Execute Vector,Slice_Write 043a e403 | | Load 0x2,0x3 043b 00d9 | | Load_Top At_Offset_1 043c 01db | | Execute Vector,Length 043d 0273 | s | Execute Discrete,Plus 043e c403 | | Store 0x2,0x3 043f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0446 | F | .CONST 0x0446 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0002 | | .CONST 0x0002 ; Number of locals 0443 INIT_0440: 0443 e5ff | | Load 0x2,-0x1 0444 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0445 820f | | Call 0x1,0xf 0446 BODY_0440: 0446 00d8 | | Load_Top At_Offset_0 0447 01db | | Execute Vector,Length 0448 0d7f | | Execute_Immediate Less,0x7f 0449 7001 |p | Jump_Nonzero 0x44b 044a 0887 | | Execute_Immediate Raise,0x87 044b 00d8 | | Load_Top At_Offset_0 044c 01db | | Execute Vector,Length 044d 4880 |H | Short_Literal 0x80 044e 0273 | s | Execute Discrete,Plus 044f e403 | | Load 0x2,0x3 0450 e402 | | Load 0x2,0x2 0451 01d6 | | Execute Vector,Field_Write 0452 00d8 | | Load_Top At_Offset_0 0453 e403 | | Load 0x2,0x3 0454 0a01 | | Execute_Immediate Plus,0x1 0455 00d8 | | Load_Top At_Offset_0 0456 00e2 | | Load_Encached Integer_Cache 0457 0260 | ` | Execute Discrete,In_Type 0458 7001 |p | Jump_Nonzero 0x45a 0459 0801 | | Execute_Immediate Raise,0x1 045a e403 | | Load 0x2,0x3 045b 00db | | Load_Top At_Offset_3 045c 01db | | Execute Vector,Length 045d 0273 | s | Execute Discrete,Plus 045e 00d8 | | Load_Top At_Offset_0 045f 00e2 | | Load_Encached Integer_Cache 0460 0260 | ` | Execute Discrete,In_Type 0461 7001 |p | Jump_Nonzero 0x463 0462 0801 | | Execute_Immediate Raise,0x1 0463 e402 | | Load 0x2,0x2 0464 01ce | | Execute Vector,Slice_Write 0465 e403 | | Load 0x2,0x3 0466 00d9 | | Load_Top At_Offset_1 0467 01db | | Execute Vector,Length 0468 0273 | s | Execute Discrete,Plus 0469 c403 | | Store 0x2,0x3 046a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 046b 0000 0000 | | .BLANK 0000[0x5] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 e404 | | Load 0x2,0x4 0474 0a01 | | Execute_Immediate Plus,0x1 0475 c404 | | Store 0x2,0x4 0476 00da | | Load_Top At_Offset_2 0477 e404 | | Load 0x2,0x4 0478 e403 | | Load 0x2,0x3 0479 01d6 | | Execute Vector,Field_Write 047a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 04e8 | | .CONST 0x04e8 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 002d | - | .CONST 0x002d ; Number of locals 0483 INIT_0480: 0483 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0485 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated 0487 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 0489 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated 048b 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated 048d 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated 048f 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated 0491 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated 0493 029a 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call,Visible,Unelaborated 0495 029a 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call,Visible,Unelaborated 0497 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated 0499 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated 049b 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated 049d 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated 049f 029a 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call,Visible,Unelaborated 04a1 029a 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call,Visible,Unelaborated 04a3 029a 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call,Visible,Unelaborated 04a5 029a 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Visible,Unelaborated 04a7 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated 04a9 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 04ab 029a 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call,Visible,Unelaborated 04ad 029a 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call,Visible,Unelaborated 04af 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated 04b1 00bf | | Action Accept_Activation 04b2 029d 079b | | Declare_Subprogram INIT_0798,For_Outer_Call 04b4 029d 07b3 | | Declare_Subprogram INIT_07b0,For_Outer_Call 04b6 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call 04b8 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call 04ba 1d13 | | Execute_Immediate Reference_Lex_1,0x13 04bb 00c7 | | Action Elaborate_Subprogram 04bc 1d14 | | Execute_Immediate Reference_Lex_1,0x14 04bd 00c7 | | Action Elaborate_Subprogram 04be 1d15 | | Execute_Immediate Reference_Lex_1,0x15 04bf 00c7 | | Action Elaborate_Subprogram 04c0 1d16 | | Execute_Immediate Reference_Lex_1,0x16 04c1 00c7 | | Action Elaborate_Subprogram 04c2 1d17 | | Execute_Immediate Reference_Lex_1,0x17 04c3 00c7 | | Action Elaborate_Subprogram 04c4 1d18 | | Execute_Immediate Reference_Lex_1,0x18 04c5 00c7 | | Action Elaborate_Subprogram 04c6 1d19 | | Execute_Immediate Reference_Lex_1,0x19 04c7 00c7 | | Action Elaborate_Subprogram 04c8 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 04c9 00c7 | | Action Elaborate_Subprogram 04ca 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 04cb 00c7 | | Action Elaborate_Subprogram 04cc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 04cd 00c7 | | Action Elaborate_Subprogram 04ce 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 04cf 00c7 | | Action Elaborate_Subprogram 04d0 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 04d1 00c7 | | Action Elaborate_Subprogram 04d2 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 04d3 00c7 | | Action Elaborate_Subprogram 04d4 1d20 | | Execute_Immediate Reference_Lex_1,0x20 04d5 00c7 | | Action Elaborate_Subprogram 04d6 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 04d7 00c7 | | Action Elaborate_Subprogram 04d8 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 04d9 00c7 | | Action Elaborate_Subprogram 04da 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 04db 00c7 | | Action Elaborate_Subprogram 04dc 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 04dd 00c7 | | Action Elaborate_Subprogram 04de 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 04df 00c7 | | Action Elaborate_Subprogram 04e0 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 04e1 00c7 | | Action Elaborate_Subprogram 04e2 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 04e3 00c7 | | Action Elaborate_Subprogram 04e4 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 04e5 00c7 | | Action Elaborate_Subprogram 04e6 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 04e7 00c7 | | Action Elaborate_Subprogram 04e8 BODY_0480: 04e8 00bc | | Action Signal_Activated 04e9 00bb | | Action Signal_Completion 04ea 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 04f4 e001 | | Load 0x0,0x1 04f5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 04f6 00db | | Load_Top At_Offset_3 04f7 e20f | | Load 0x1,0xf 04f8 0119 | | Execute Any,Check_In_Formal_Type 04f9 8210 | | Call 0x1,0x10 04fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04fb 0000 0000 | | .BLANK 0000[0x5] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 050a | | .CONST 0x050a ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0004 | | .CONST 0x0004 ; Number of locals 0503 INIT_0500: 0503 e001 | | Load 0x0,0x1 0504 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0505 0322 | " | Declare_Variable Record 0506 e002 | | Load 0x0,0x2 0507 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0508 029f 0803 | | Declare_Subprogram INIT_0800,For_Call 050a BODY_0500: 050a e5ff | | Load 0x2,-0x1 050b e20f | | Load 0x1,0xf 050c 0119 | | Execute Any,Check_In_Formal_Type 050d 822b | + | Call 0x1,0x2b 050e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 050f 00d9 | | Load_Top At_Offset_1 0510 09fa | | Execute_Immediate Binary_Scale,-0x6 0511 e003 | | Load 0x0,0x3 0512 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0513 00d9 | | Load_Top At_Offset_1 0514 00d0 | | Action Swap_Control 0515 0260 | ` | Execute Discrete,In_Type 0516 7001 |p | Jump_Nonzero 0x518 0517 0801 | | Execute_Immediate Raise,0x1 0518 0b00 | | Execute_Immediate Case_Compare,0x0 0519 7007 |p | Jump_Nonzero 0x521 051a 0b01 | | Execute_Immediate Case_Compare,0x1 051b 700b |p | Jump_Nonzero 0x527 051c 0b02 | | Execute_Immediate Case_Compare,0x2 051d 700f |p | Jump_Nonzero 0x52d 051e 0f03 | | Execute_Immediate Equal,0x3 051f 7013 |p | Jump_Nonzero 0x533 0520 08e0 | | Execute_Immediate Raise,0xe0 0521 00d1 | | Pop_Control Pop_Count_1 0522 4800 |H | Short_Literal 0x0 0523 00db | | Load_Top At_Offset_3 0524 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0525 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0526 7810 |x | Jump 0x537 0527 00d1 | | Pop_Control Pop_Count_1 0528 4801 |H | Short_Literal 0x1 0529 00db | | Load_Top At_Offset_3 052a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 052b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 052c 780a |x | Jump 0x537 052d 00d1 | | Pop_Control Pop_Count_1 052e 4802 |H | Short_Literal 0x2 052f 00db | | Load_Top At_Offset_3 0530 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0531 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0532 7804 |x | Jump 0x537 0533 4803 |H | Short_Literal 0x3 0534 00db | | Load_Top At_Offset_3 0535 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0536 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0537 00d9 | | Load_Top At_Offset_1 0538 09fb | | Execute_Immediate Binary_Scale,-0x5 0539 4801 |H | Short_Literal 0x1 053a 0279 | y | Execute Discrete,And 053b 0f00 | | Execute_Immediate Equal,0x0 053c 0f00 | | Execute_Immediate Equal,0x0 053d 00db | | Load_Top At_Offset_3 053e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 053f 00d9 | | Load_Top At_Offset_1 0540 481f |H | Short_Literal 0x1f 0541 0279 | y | Execute Discrete,And 0542 0d1f | | Execute_Immediate Less,0x1f 0543 680d |h | Jump_Zero 0x551 0544 00d9 | | Load_Top At_Offset_1 0545 481f |H | Short_Literal 0x1f 0546 0279 | y | Execute Discrete,And 0547 00d8 | | Load_Top At_Offset_0 0548 e004 | | Load 0x0,0x4 0549 1b0f | | Execute Package,Field_Read,Field_Number 0xf 054a 0260 | ` | Execute Discrete,In_Type 054b 7001 |p | Jump_Nonzero 0x54d 054c 0801 | | Execute_Immediate Raise,0x1 054d 00db | | Load_Top At_Offset_3 054e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 054f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0550 7807 |x | Jump 0x558 0551 e5ff | | Load 0x2,-0x1 0552 e20f | | Load 0x1,0xf 0553 0119 | | Execute Any,Check_In_Formal_Type 0554 822d | - | Call 0x1,0x2d 0555 00db | | Load_Top At_Offset_3 0556 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0557 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0558 e5ff | | Load 0x2,-0x1 0559 e20f | | Load 0x1,0xf 055a 0119 | | Execute Any,Check_In_Formal_Type 055b 822b | + | Call 0x1,0x2b 055c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 055d 00d9 | | Load_Top At_Offset_1 055e 0b80 | | Execute_Immediate Case_Compare,0x80 055f 7006 |p | Jump_Nonzero 0x566 0560 4800 |H | Short_Literal 0x0 0561 487f |H | Short_Literal 0x7f 0562 0262 | b | Execute Discrete,In_Range 0563 7007 |p | Jump_Nonzero 0x56b 0564 8404 | | Call 0x2,0x4 0565 7808 |x | Jump 0x56e 0566 00d1 | | Pop_Control Pop_Count_1 0567 4fff |O | Short_Literal -0x1 0568 00db | | Load_Top At_Offset_3 0569 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 056a 7803 |x | Jump 0x56e 056b 00d9 | | Load_Top At_Offset_1 056c 00db | | Load_Top At_Offset_3 056d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 056e 00da | | Load_Top At_Offset_2 056f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0576 | v | .CONST 0x0576 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0002 | | .CONST 0x0002 ; Number of locals 0573 INIT_0570: 0573 00db | | Load_Top At_Offset_3 0574 e001 | | Load 0x0,0x1 0575 180d | | Execute Package,Field_Execute,Field_Number 0xd 0576 BODY_0570: 0576 e001 | | Load 0x0,0x1 0577 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0578 0322 | " | Declare_Variable Record 0579 e5fd | | Load 0x2,-0x3 057a 00d9 | | Load_Top At_Offset_1 057b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 057c 4800 |H | Short_Literal 0x0 057d 00d9 | | Load_Top At_Offset_1 057e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 057f 00d9 | | Load_Top At_Offset_1 0580 01db | | Execute Vector,Length 0581 00d9 | | Load_Top At_Offset_1 0582 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0583 e5ff | | Load 0x2,-0x1 0584 e20f | | Load 0x1,0xf 0585 0119 | | Execute Any,Check_In_Formal_Type 0586 8213 | | Call 0x1,0x13 0587 00d8 | | Load_Top At_Offset_0 0588 e5ff | | Load 0x2,-0x1 0589 e20f | | Load 0x1,0xf 058a 0119 | | Execute Any,Check_In_Formal_Type 058b 8210 | | Call 0x1,0x10 058c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 058d 0000 0000 | | .XXX[0x3] 058f 0000 | | 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0597 | | .CONST 0x0597 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0002 | | .CONST 0x0002 ; Number of locals 0593 INIT_0590: 0593 00da | | Load_Top At_Offset_2 0594 e20f | | Load 0x1,0xf 0595 0119 | | Execute Any,Check_In_Formal_Type 0596 8214 | | Call 0x1,0x14 0597 BODY_0590: 0597 e004 | | Load 0x0,0x4 0598 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0599 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059a 00d9 | | Load_Top At_Offset_1 059b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 059c 8005 | | Call 0x0,0x5 059d 00d8 | | Load_Top At_Offset_0 059e e5ff | | Load 0x2,-0x1 059f e20f | | Load 0x1,0xf 05a0 0119 | | Execute Any,Check_In_Formal_Type 05a1 8217 | | Call 0x1,0x17 05a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a3 0000 0000 | | .BLANK 0000[0x5] 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05bc | | .CONST 0x05bc ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0002 | | .CONST 0x0002 ; Number of locals 05ab INIT_05a8: 05ab 00db | | Load_Top At_Offset_3 05ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05ad 6801 |h | Jump_Zero 0x5af 05ae 0887 | | Execute_Immediate Raise,0x87 05af 00db | | Load_Top At_Offset_3 05b0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05b1 4fff |O | Short_Literal -0x1 05b2 027e | ~ | Execute Discrete,Not_Equal 05b3 7001 |p | Jump_Nonzero 0x5b5 05b4 0887 | | Execute_Immediate Raise,0x87 05b5 4801 |H | Short_Literal 0x1 05b6 e5fe | | Load 0x2,-0x2 05b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05b8 e002 | | Load 0x0,0x2 05b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05ba 035b | [ | Declare_Type Array,Constrained 05bb 0337 | 7 | Declare_Variable Array 05bc BODY_05a8: 05bc 00d8 | | Load_Top At_Offset_0 05bd e5ff | | Load 0x2,-0x1 05be e20f | | Load 0x1,0xf 05bf 0119 | | Execute Any,Check_In_Formal_Type 05c0 8211 | | Call 0x1,0x11 05c1 00d1 | | Pop_Control Pop_Count_1 05c2 00d8 | | Load_Top At_Offset_0 05c3 e001 | | Load 0x0,0x1 05c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 05c5 e004 | | Load 0x0,0x4 05c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c7 025e | ^ | Execute Discrete,Convert 05c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c9 0000 0000 | | .BLANK 0000[0x7] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d6 | | .CONST 0x05d6 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0002 | | .CONST 0x0002 ; Number of locals 05d3 INIT_05d0: 05d3 00db | | Load_Top At_Offset_3 05d4 e001 | | Load 0x0,0x1 05d5 180f | | Execute Package,Field_Execute,Field_Number 0xf 05d6 BODY_05d0: 05d6 e001 | | Load 0x0,0x1 05d7 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 05d8 0322 | " | Declare_Variable Record 05d9 e5fd | | Load 0x2,-0x3 05da 00d9 | | Load_Top At_Offset_1 05db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05dc 4800 |H | Short_Literal 0x0 05dd 00d9 | | Load_Top At_Offset_1 05de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05df 00d9 | | Load_Top At_Offset_1 05e0 01db | | Execute Vector,Length 05e1 00d9 | | Load_Top At_Offset_1 05e2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05e3 e5ff | | Load 0x2,-0x1 05e4 e20f | | Load 0x1,0xf 05e5 0119 | | Execute Any,Check_In_Formal_Type 05e6 8213 | | Call 0x1,0x13 05e7 00d8 | | Load_Top At_Offset_0 05e8 e5ff | | Load 0x2,-0x1 05e9 e20f | | Load 0x1,0xf 05ea 0119 | | Execute Any,Check_In_Formal_Type 05eb 8210 | | Call 0x1,0x10 05ec 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05ed 0000 0000 | | .XXX[0x3] 05ef 0000 | | 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f7 | | .CONST 0x05f7 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0002 | | .CONST 0x0002 ; Number of locals 05f3 INIT_05f0: 05f3 00da | | Load_Top At_Offset_2 05f4 e20f | | Load 0x1,0xf 05f5 0119 | | Execute Any,Check_In_Formal_Type 05f6 8214 | | Call 0x1,0x14 05f7 BODY_05f0: 05f7 e004 | | Load 0x0,0x4 05f8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 05f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05fa 00d9 | | Load_Top At_Offset_1 05fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05fc 8005 | | Call 0x0,0x5 05fd 00d8 | | Load_Top At_Offset_0 05fe e5ff | | Load 0x2,-0x1 05ff e20f | | Load 0x1,0xf 0600 0119 | | Execute Any,Check_In_Formal_Type 0601 821a | | Call 0x1,0x1a 0602 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0603 0000 0000 | | .BLANK 0000[0x5] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 061c | | .CONST 0x061c ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0002 | | .CONST 0x0002 ; Number of locals 060b INIT_0608: 060b 00db | | Load_Top At_Offset_3 060c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 060d 6801 |h | Jump_Zero 0x60f 060e 0887 | | Execute_Immediate Raise,0x87 060f 00db | | Load_Top At_Offset_3 0610 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0611 4fff |O | Short_Literal -0x1 0612 027e | ~ | Execute Discrete,Not_Equal 0613 7001 |p | Jump_Nonzero 0x615 0614 0887 | | Execute_Immediate Raise,0x87 0615 4801 |H | Short_Literal 0x1 0616 e5fe | | Load 0x2,-0x2 0617 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0618 e002 | | Load 0x0,0x2 0619 1b0e | | Execute Package,Field_Read,Field_Number 0xe 061a 035b | [ | Declare_Type Array,Constrained 061b 0337 | 7 | Declare_Variable Array 061c BODY_0608: 061c 00d8 | | Load_Top At_Offset_0 061d e5ff | | Load 0x2,-0x1 061e e20f | | Load 0x1,0xf 061f 0119 | | Execute Any,Check_In_Formal_Type 0620 8211 | | Call 0x1,0x11 0621 00d1 | | Pop_Control Pop_Count_1 0622 00d8 | | Load_Top At_Offset_0 0623 e001 | | Load 0x0,0x1 0624 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0625 e004 | | Load 0x0,0x4 0626 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0627 025e | ^ | Execute Discrete,Convert 0628 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0629 0000 0000 | | .BLANK 0000[0x7] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0633 | 3 | .CONST 0x0633 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0001 | | .CONST 0x0001 ; Number of locals 0633 BODY_0630: 0633 INIT_0630: 0633 e006 | | Load 0x0,0x6 0634 0257 | W | Execute Discrete,Raise 0635 0000 0000 | | .XXX[0x3] 0637 0000 | | 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 e006 | | Load 0x0,0x6 063c 0257 | W | Execute Discrete,Raise 063d 0000 0000 | | .XXX[0x3] 063f 0000 | | 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0643 | C | .CONST 0x0643 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0001 | | .CONST 0x0001 ; Number of locals 0643 BODY_0640: 0643 INIT_0640: 0643 e006 | | Load 0x0,0x6 0644 0257 | W | Execute Discrete,Raise 0645 0000 0000 | | .XXX[0x3] 0647 0000 | | 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064b | K | .CONST 0x064b ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0001 | | .CONST 0x0001 ; Number of locals 064b BODY_0648: 064b INIT_0648: 064b e001 | | Load 0x0,0x1 064c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 064d 0322 | " | Declare_Variable Record 064e e5fd | | Load 0x2,-0x3 064f 00d9 | | Load_Top At_Offset_1 0650 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0651 4800 |H | Short_Literal 0x0 0652 00d9 | | Load_Top At_Offset_1 0653 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0654 e5fe | | Load 0x2,-0x2 0655 01db | | Execute Vector,Length 0656 00d9 | | Load_Top At_Offset_1 0657 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0658 00db | | Load_Top At_Offset_3 0659 e20f | | Load 0x1,0xf 065a 0119 | | Execute Any,Check_In_Formal_Type 065b 8213 | | Call 0x1,0x13 065c 00db | | Load_Top At_Offset_3 065d 00db | | Load_Top At_Offset_3 065e e20f | | Load 0x1,0xf 065f 0119 | | Execute Any,Check_In_Formal_Type 0660 8210 | | Call 0x1,0x10 0661 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0662 0000 0000 | | .BLANK 0000[0x6] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066f | o | .CONST 0x066f ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0002 | | .CONST 0x0002 ; Number of locals 066b INIT_0668: 066b 00da | | Load_Top At_Offset_2 066c e20f | | Load 0x1,0xf 066d 0119 | | Execute Any,Check_In_Formal_Type 066e 8214 | | Call 0x1,0x14 066f BODY_0668: 066f e004 | | Load 0x0,0x4 0670 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0671 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0672 00d9 | | Load_Top At_Offset_1 0673 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0674 8005 | | Call 0x0,0x5 0675 00d8 | | Load_Top At_Offset_0 0676 e5ff | | Load 0x2,-0x1 0677 e20f | | Load 0x1,0xf 0678 0119 | | Execute Any,Check_In_Formal_Type 0679 8220 | | Call 0x1,0x20 067a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 067b 0000 0000 | | .BLANK 0000[0x5] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0689 | | .CONST 0x0689 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0004 | | .CONST 0x0004 ; Number of locals 0683 INIT_0680: 0683 029f 082b | +| Declare_Subprogram INIT_0828,For_Call 0685 029f 0843 | C| Declare_Subprogram INIT_0840,For_Call 0687 029f 084b | K| Declare_Subprogram INIT_0848,For_Call 0689 BODY_0680: 0689 e5fe | | Load 0x2,-0x2 068a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 068b 6810 |h | Jump_Zero 0x69c 068c e5fe | | Load 0x2,-0x2 068d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 068e 4fff |O | Short_Literal -0x1 068f 027f | | Execute Discrete,Equal 0690 6802 |h | Jump_Zero 0x693 0691 8402 | | Call 0x2,0x2 0692 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0693 e5fe | | Load 0x2,-0x2 0694 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0695 00d8 | | Load_Top At_Offset_0 0696 00e3 | | Load_Encached Natural_Cache 0697 0260 | ` | Execute Discrete,In_Type 0698 7001 |p | Jump_Nonzero 0x69a 0699 0801 | | Execute_Immediate Raise,0x1 069a 8403 | | Call 0x2,0x3 069b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 069c e5fe | | Load 0x2,-0x2 069d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 069e 4fff |O | Short_Literal -0x1 069f 027e | ~ | Execute Discrete,Not_Equal 06a0 7001 |p | Jump_Nonzero 0x6a2 06a1 0887 | | Execute_Immediate Raise,0x87 06a2 8404 | | Call 0x2,0x4 06a3 0831 | 1 | Execute_Immediate Raise,0x31 06a4 0000 0000 | | .BLANK 0000[0x4] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06ab | | .CONST 0x06ab ; Address of begin 06a9 0004 | | .CONST 0x0004 ; Address of exception handler 06aa 0001 | | .CONST 0x0001 ; Number of locals 06ab BODY_06a8: 06ab INIT_06a8: 06ab e001 | | Load 0x0,0x1 06ac 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 06ad 0322 | " | Declare_Variable Record 06ae e5fd | | Load 0x2,-0x3 06af 00d9 | | Load_Top At_Offset_1 06b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06b1 4800 |H | Short_Literal 0x0 06b2 00d9 | | Load_Top At_Offset_1 06b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06b4 4800 |H | Short_Literal 0x0 06b5 00d9 | | Load_Top At_Offset_1 06b6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06b7 00db | | Load_Top At_Offset_3 06b8 e20f | | Load 0x1,0xf 06b9 0119 | | Execute Any,Check_In_Formal_Type 06ba 8213 | | Call 0x1,0x13 06bb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06bc 0000 0000 | | .BLANK 0000[0x4] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c7 | | .CONST 0x06c7 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0002 | | .CONST 0x0002 ; Number of locals 06c3 INIT_06c0: 06c3 00da | | Load_Top At_Offset_2 06c4 e20f | | Load 0x1,0xf 06c5 0119 | | Execute Any,Check_In_Formal_Type 06c6 8214 | | Call 0x1,0x14 06c7 BODY_06c0: 06c7 e004 | | Load 0x0,0x4 06c8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 06c9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 06ca 00d9 | | Load_Top At_Offset_1 06cb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06cc 8005 | | Call 0x0,0x5 06cd 00d8 | | Load_Top At_Offset_0 06ce e5ff | | Load 0x2,-0x1 06cf e20f | | Load 0x1,0xf 06d0 0119 | | Execute Any,Check_In_Formal_Type 06d1 8223 | # | Call 0x1,0x23 06d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d3 0000 0000 | | .BLANK 0000[0x5] 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06ec | | .CONST 0x06ec ; Address of begin 06d9 0004 | | .CONST 0x0004 ; Address of exception handler 06da 0002 | | .CONST 0x0002 ; Number of locals 06db INIT_06d8: 06db 00db | | Load_Top At_Offset_3 06dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06dd 6801 |h | Jump_Zero 0x6df 06de 0887 | | Execute_Immediate Raise,0x87 06df 00db | | Load_Top At_Offset_3 06e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06e1 4fff |O | Short_Literal -0x1 06e2 027e | ~ | Execute Discrete,Not_Equal 06e3 7001 |p | Jump_Nonzero 0x6e5 06e4 0887 | | Execute_Immediate Raise,0x87 06e5 4801 |H | Short_Literal 0x1 06e6 e5fe | | Load 0x2,-0x2 06e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06e8 e002 | | Load 0x0,0x2 06e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06ea 035b | [ | Declare_Type Array,Constrained 06eb 0337 | 7 | Declare_Variable Array 06ec BODY_06d8: 06ec 00d8 | | Load_Top At_Offset_0 06ed e5ff | | Load 0x2,-0x1 06ee e20f | | Load 0x1,0xf 06ef 0119 | | Execute Any,Check_In_Formal_Type 06f0 8211 | | Call 0x1,0x11 06f1 00d1 | | Pop_Control Pop_Count_1 06f2 00d8 | | Load_Top At_Offset_0 06f3 e001 | | Load 0x0,0x1 06f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06f5 e004 | | Load 0x0,0x4 06f6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06f7 025e | ^ | Execute Discrete,Convert 06f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06f9 0000 0000 | | .BLANK 0000[0x7] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0706 | | .CONST 0x0706 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0002 | | .CONST 0x0002 ; Number of locals 0703 INIT_0700: 0703 00db | | Load_Top At_Offset_3 0704 e001 | | Load 0x0,0x1 0705 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0706 BODY_0700: 0706 e001 | | Load 0x0,0x1 0707 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0708 0322 | " | Declare_Variable Record 0709 e5fd | | Load 0x2,-0x3 070a 00d9 | | Load_Top At_Offset_1 070b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 070c 4800 |H | Short_Literal 0x0 070d 00d9 | | Load_Top At_Offset_1 070e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 070f 00d9 | | Load_Top At_Offset_1 0710 01db | | Execute Vector,Length 0711 00d9 | | Load_Top At_Offset_1 0712 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0713 e5ff | | Load 0x2,-0x1 0714 e20f | | Load 0x1,0xf 0715 0119 | | Execute Any,Check_In_Formal_Type 0716 8213 | | Call 0x1,0x13 0717 00d8 | | Load_Top At_Offset_0 0718 e5ff | | Load 0x2,-0x1 0719 e20f | | Load 0x1,0xf 071a 0119 | | Execute Any,Check_In_Formal_Type 071b 8210 | | Call 0x1,0x10 071c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 071d 0000 0000 | | .XXX[0x3] 071f 0000 | | 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0727 | ' | .CONST 0x0727 ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0002 | | .CONST 0x0002 ; Number of locals 0723 INIT_0720: 0723 00da | | Load_Top At_Offset_2 0724 e20f | | Load 0x1,0xf 0725 0119 | | Execute Any,Check_In_Formal_Type 0726 8214 | | Call 0x1,0x14 0727 BODY_0720: 0727 e004 | | Load 0x0,0x4 0728 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0729 1b12 | | Execute Package,Field_Read,Field_Number 0x12 072a 00d9 | | Load_Top At_Offset_1 072b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 072c 8005 | | Call 0x0,0x5 072d 00d8 | | Load_Top At_Offset_0 072e e5ff | | Load 0x2,-0x1 072f e20f | | Load 0x1,0xf 0730 0119 | | Execute Any,Check_In_Formal_Type 0731 8226 | & | Call 0x1,0x26 0732 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0733 0000 0000 | | .BLANK 0000[0x5] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 074c | L | .CONST 0x074c ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0002 | | .CONST 0x0002 ; Number of locals 073b INIT_0738: 073b 00db | | Load_Top At_Offset_3 073c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 073d 6801 |h | Jump_Zero 0x73f 073e 0887 | | Execute_Immediate Raise,0x87 073f 00db | | Load_Top At_Offset_3 0740 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0741 4fff |O | Short_Literal -0x1 0742 027e | ~ | Execute Discrete,Not_Equal 0743 7001 |p | Jump_Nonzero 0x745 0744 0887 | | Execute_Immediate Raise,0x87 0745 4801 |H | Short_Literal 0x1 0746 e5fe | | Load 0x2,-0x2 0747 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0748 e002 | | Load 0x0,0x2 0749 1b0e | | Execute Package,Field_Read,Field_Number 0xe 074a 035b | [ | Declare_Type Array,Constrained 074b 0337 | 7 | Declare_Variable Array 074c BODY_0738: 074c 00d8 | | Load_Top At_Offset_0 074d e5ff | | Load 0x2,-0x1 074e e20f | | Load 0x1,0xf 074f 0119 | | Execute Any,Check_In_Formal_Type 0750 8211 | | Call 0x1,0x11 0751 00d1 | | Pop_Control Pop_Count_1 0752 00d8 | | Load_Top At_Offset_0 0753 e001 | | Load 0x0,0x1 0754 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0755 e004 | | Load 0x0,0x4 0756 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0757 01c6 | | Execute Vector,Convert_To_Formal 0758 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0759 0000 0000 | | .BLANK 0000[0x7] 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 e5fd | | Load 0x2,-0x3 0764 e5fe | | Load 0x2,-0x2 0765 e5ff | | Load 0x2,-0x1 0766 e20f | | Load 0x1,0xf 0767 0119 | | Execute Any,Check_In_Formal_Type 0768 821e | | Call 0x1,0x1e 0769 4504 |E | Exit_Suprogram New_Top_Offset 0x4 076a 0000 0000 | | .BLANK 0000[0x6] 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0777 | w | .CONST 0x0777 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0002 | | .CONST 0x0002 ; Number of locals 0773 INIT_0770: 0773 00da | | Load_Top At_Offset_2 0774 e20f | | Load 0x1,0xf 0775 0119 | | Execute Any,Check_In_Formal_Type 0776 8214 | | Call 0x1,0x14 0777 BODY_0770: 0777 00d8 | | Load_Top At_Offset_0 0778 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0779 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 077a 7007 |p | Jump_Nonzero 0x782 077b 00d8 | | Load_Top At_Offset_0 077c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 077d e004 | | Load 0x0,0x4 077e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 077f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0780 7001 |p | Jump_Nonzero 0x782 0781 08e0 | | Execute_Immediate Raise,0xe0 0782 00d8 | | Load_Top At_Offset_0 0783 e5ff | | Load 0x2,-0x1 0784 e20f | | Load 0x1,0xf 0785 0119 | | Execute Any,Check_In_Formal_Type 0786 8229 | ) | Call 0x1,0x29 0787 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 078b | | .CONST 0x078b ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0001 | | .CONST 0x0001 ; Number of locals 078b BODY_0788: 078b INIT_0788: 078b 00db | | Load_Top At_Offset_3 078c 00db | | Load_Top At_Offset_3 078d e20f | | Load 0x1,0xf 078e 0119 | | Execute Any,Check_In_Formal_Type 078f 8220 | | Call 0x1,0x20 0790 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0791 0000 0000 | | .BLANK 0000[0x7] 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 079b | | .CONST 0x079b ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0001 | | .CONST 0x0001 ; Number of locals 079b BODY_0798: 079b INIT_0798: 079b 4801 |H | Short_Literal 0x1 079c 4801 |H | Short_Literal 0x1 079d e003 | | Load 0x0,0x3 079e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 079f 0334 | 4 | Declare_Variable Array,With_Constraint 07a0 e5fe | | Load 0x2,-0x2 07a1 4801 |H | Short_Literal 0x1 07a2 00da | | Load_Top At_Offset_2 07a3 01d6 | | Execute Vector,Field_Write 07a4 00db | | Load_Top At_Offset_3 07a5 e20f | | Load 0x1,0xf 07a6 0119 | | Execute Any,Check_In_Formal_Type 07a7 8210 | | Call 0x1,0x10 07a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07a9 0000 0000 | | .BLANK 0000[0x7] 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; SUBPROGRAM 07b0 ; -------------------------------------------------------------------------------------- 07b0 07b9 | | .CONST 0x07b9 ; Address of begin 07b1 0004 | | .CONST 0x0004 ; Address of exception handler 07b2 0002 | | .CONST 0x0002 ; Number of locals 07b3 INIT_07b0: 07b3 4801 |H | Short_Literal 0x1 07b4 4801 |H | Short_Literal 0x1 07b5 e002 | | Load 0x0,0x2 07b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07b7 035b | [ | Declare_Type Array,Constrained 07b8 0337 | 7 | Declare_Variable Array 07b9 BODY_07b0: 07b9 00d8 | | Load_Top At_Offset_0 07ba e5ff | | Load 0x2,-0x1 07bb e20f | | Load 0x1,0xf 07bc 0119 | | Execute Any,Check_In_Formal_Type 07bd 8211 | | Call 0x1,0x11 07be 00d1 | | Pop_Control Pop_Count_1 07bf 4801 |H | Short_Literal 0x1 07c0 00d9 | | Load_Top At_Offset_1 07c1 01d7 | | Execute Vector,Field_Read 07c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07c3 0000 0000 | | .BLANK 0000[0x5] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07cb | | .CONST 0x07cb ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0001 | | .CONST 0x0001 ; Number of locals 07cb BODY_07c8: 07cb INIT_07c8: 07cb 00db | | Load_Top At_Offset_3 07cc 8007 | | Call 0x0,0x7 07cd 00db | | Load_Top At_Offset_3 07ce e20f | | Load 0x1,0xf 07cf 0119 | | Execute Any,Check_In_Formal_Type 07d0 8210 | | Call 0x1,0x10 07d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07d2 0000 0000 | | .BLANK 0000[0x6] 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; SUBPROGRAM 07d8 ; -------------------------------------------------------------------------------------- 07d8 07df | | .CONST 0x07df ; Address of begin 07d9 0004 | | .CONST 0x0004 ; Address of exception handler 07da 0003 | | .CONST 0x0003 ; Number of locals 07db INIT_07d8: 07db e008 | | Load 0x0,0x8 07dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07dd e002 | | Load 0x0,0x2 07de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07df BODY_07d8: 07df 00cf | | Action Mark_Auxiliary 07e0 e5ff | | Load 0x2,-0x1 07e1 e20f | | Load 0x1,0xf 07e2 0119 | | Execute Any,Check_In_Formal_Type 07e3 822b | + | Call 0x1,0x2b 07e4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 07e5 00d9 | | Load_Top At_Offset_1 07e6 0d80 | | Execute_Immediate Less,-0x80 07e7 6806 |h | Jump_Zero 0x7ee 07e8 00da | | Load_Top At_Offset_2 07e9 0907 | | Execute_Immediate Binary_Scale,0x7 07ea 00da | | Load_Top At_Offset_2 07eb 0273 | s | Execute Discrete,Plus 07ec 005b | [ | Store_Top Discrete,At_Offset_3 07ed 7808 |x | Jump 0x7f6 07ee 00da | | Load_Top At_Offset_2 07ef 0907 | | Execute_Immediate Binary_Scale,0x7 07f0 00da | | Load_Top At_Offset_2 07f1 0273 | s | Execute Discrete,Plus 07f2 0a80 | | Execute_Immediate Plus,-0x80 07f3 005b | [ | Store_Top Discrete,At_Offset_3 07f4 00c9 | | Action Pop_Auxiliary_Loop 07f5 7fea | | Jump 0x7e0 07f6 00ce | | Action Pop_Auxiliary 07f7 00d9 | | Load_Top At_Offset_1 07f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f9 0000 0000 | | .BLANK 0000[0x7] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 080d | | .CONST 0x080d ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0003 | | .CONST 0x0003 ; Number of locals 0803 INIT_0800: 0803 4801 |H | Short_Literal 0x1 0804 e403 | | Load 0x2,0x3 0805 0a80 | | Execute_Immediate Plus,-0x80 0806 e002 | | Load 0x0,0x2 0807 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0808 035b | [ | Declare_Type Array,Constrained 0809 0337 | 7 | Declare_Variable Array 080a e001 | | Load 0x0,0x1 080b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 080c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 080d BODY_0800: 080d 00d9 | | Load_Top At_Offset_1 080e e5ff | | Load 0x2,-0x1 080f e20f | | Load 0x1,0xf 0810 0119 | | Execute Any,Check_In_Formal_Type 0811 8211 | | Call 0x1,0x11 0812 00d1 | | Pop_Control Pop_Count_1 0813 00cf | | Action Mark_Auxiliary 0814 00da | | Load_Top At_Offset_2 0815 01d9 | | Execute Vector,Reverse_Bounds 0816 0263 | c | Execute Discrete,Above_Bound 0817 7009 |p | Jump_Nonzero 0x821 0818 00db | | Load_Top At_Offset_3 0819 0908 | | Execute_Immediate Binary_Scale,0x8 081a 00d9 | | Load_Top At_Offset_1 081b e602 | | Load 0x3,0x2 081c 01d7 | | Execute Vector,Field_Read 081d 0273 | s | Execute Discrete,Plus 081e c603 | | Store 0x3,0x3 081f 00c8 | | Action Pop_Auxiliary_Range 0820 3ff7 |? | Loop_Increasing 0x818 0821 00ce | | Action Pop_Auxiliary 0822 00d8 | | Load_Top At_Offset_0 0823 e402 | | Load 0x2,0x2 0824 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0825 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0826 0000 0000 | | .XXX[0x2] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 0831 | 1 | .CONST 0x0831 ; Address of begin 0829 0004 | | .CONST 0x0004 ; Address of exception handler 082a 0003 | | .CONST 0x0003 ; Number of locals 082b INIT_0828: 082b e5ff | | Load 0x2,-0x1 082c e20f | | Load 0x1,0xf 082d 0119 | | Execute Any,Check_In_Formal_Type 082e 8214 | | Call 0x1,0x14 082f 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call 0831 BODY_0828: 0831 00d9 | | Load_Top At_Offset_1 0832 e001 | | Load 0x0,0x1 0833 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0834 017f | | Execute Record,Equal 0835 6803 |h | Jump_Zero 0x839 0836 e004 | | Load 0x0,0x4 0837 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0838 00ca | | Action Exit_Nullary_Function 0839 8603 | | Call 0x3,0x3 083a 0831 | 1 | Execute_Immediate Raise,0x31 083b 0000 0000 | | .BLANK 0000[0x5] 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 0843 | C | .CONST 0x0843 ; Address of begin 0841 0004 | | .CONST 0x0004 ; Address of exception handler 0842 0001 | | .CONST 0x0001 ; Number of locals 0843 BODY_0840: 0843 INIT_0840: 0843 e006 | | Load 0x0,0x6 0844 0257 | W | Execute Discrete,Raise 0845 0000 0000 | | .XXX[0x3] 0847 0000 | | 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 0852 | R | .CONST 0x0852 ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0002 | | .CONST 0x0002 ; Number of locals 084b INIT_0848: 084b 4801 |H | Short_Literal 0x1 084c e5fe | | Load 0x2,-0x2 084d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 084e e002 | | Load 0x0,0x2 084f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0850 035b | [ | Declare_Type Array,Constrained 0851 0337 | 7 | Declare_Variable Array 0852 BODY_0848: 0852 00d8 | | Load_Top At_Offset_0 0853 e5ff | | Load 0x2,-0x1 0854 e20f | | Load 0x1,0xf 0855 0119 | | Execute Any,Check_In_Formal_Type 0856 8211 | | Call 0x1,0x11 0857 00d1 | | Pop_Control Pop_Count_1 0858 00d8 | | Load_Top At_Offset_0 0859 e004 | | Load 0x0,0x4 085a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 085b 01c6 | | Execute Vector,Convert_To_Formal 085c 00cb | | Action Pop_Block_With_Result 085d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 085e 0000 0000 | | .XXX[0x2] 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0868 | h | .CONST 0x0868 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0002 | | .CONST 0x0002 ; Number of locals 0863 INIT_0860: 0863 e602 | | Load 0x3,0x2 0864 e5ff | | Load 0x2,-0x1 0865 e20f | | Load 0x1,0xf 0866 0119 | | Execute Any,Check_In_Formal_Type 0867 8220 | | Call 0x1,0x20 0868 BODY_0860: 0868 00d8 | | Load_Top At_Offset_0 0869 8402 | | Call 0x2,0x2 086a 01cc | | Execute Vector,Catenate 086b 00cb | | Action Pop_Block_With_Result 086c 00ca | | Action Exit_Nullary_Function 086d 0000 0000 | | .XXX[0x3] 086f 0000 | | 0870 ; -------------------------------------------------------------------------------------- 0870 ; Debug Table 0870 ; -------------------------------------------------------------------------------------- 0870 0004 000c | | .DEBUG4 0x0004,0x000c,0xac8e,0x0000,0x0001,0x0000 0876 0759 2021 | Y !| .XXX[0xc] 0878 2009 2000 | | 087a 0367 900c | g | 087c 0758 ffec | X | 087e 0364 0750 | d P| 0880 0361 1004 | a | 0882 0000 0000 | | .BLANK 0000[0x4] 0886 092c 0010 | , | .XXX[0x7c] 0888 0004 033f | ?| 088a 884d 2004 | M | 088c 098d c02c | ,| 088e 0363 8850 | c P| 0890 0754 d003 | T | 0892 97fc 077d | }| 0894 a008 0361 | a| 0896 1004 0320 | | 0898 ffd4 0339 | 9| 089a 2001 1004 | | 089c 0000 0000 | | 089e 0990 0010 | | 08a0 0008 038c | | 08a2 036e 0868 | n h| 08a4 0144 0361 | D a| 08a6 c04b 884c | K L| 08a8 3421 a00f |4! | 08aa 884c 2807 | L( | 08ac 084f 884c | O L| 08ae 0144 036c | D l| 08b0 0367 8850 | g P| 08b2 0754 e001 | T | 08b4 2000 0367 | g| 08b6 8850 0754 | P T| 08b8 e004 0363 | c| 08ba 8850 0754 | P T| 08bc f004 2804 | ( | 08be 0367 8850 | g P| 08c0 0754 e007 | T | 08c2 8840 3c09 | @< | 08c4 a00d 2006 | | 08c6 97f9 1408 | | 08c8 0363 8850 | c P| 08ca 0754 f007 | T | 08cc 885c 09f5 | \ | 08ce a00d 2006 | | 08d0 97f9 1409 | | 08d2 2002 97f9 | | 08d4 1408 0000 | | 08d6 0a88 0010 | | 08d8 000b 8008 | | 08da 6c34 0c8b |l4 | 08dc 8008 6048 | `H| 08de 0364 05f4 | d | 08e0 0363 8857 | c W| 08e2 8847 8008 | G | 08e4 6067 8008 |`g | 08e6 6079 a067 |`y g| 08e8 8840 3c09 | @< | 08ea a01b 884b | K| 08ec 8860 09f1 | ` | 08ee a009 2006 | | 08f0 8843 8840 | C @| 08f2 3c05 a023 |< #| 08f4 884b 8858 | K X| 08f6 09f1 a011 | | 08f8 2002 8841 | A| 08fa 2002 884c | L| 08fc 0363 8844 | c D| 08fe 05f5 2002 | | 0900 8849 1404 | I | 0902 0000 0000 | | .BLANK 0000[0x4] 0906 0b2c 0010 | , | .XXX[0xea] 0908 0007 8841 | A| 090a 1809 e009 | | 090c e021 1407 | ! | 090e 884b 8858 | K X| 0910 09ed a009 | | 0912 2006 8841 | A| 0914 1407 884b | K| 0916 8860 09ed | ` | 0918 a009 200a | | 091a 8841 1404 | A | 091c 0000 0000 | | 091e 0b8c 0010 | | 0920 0004 0a7c | || 0922 0c8e 0872 | r| 0924 1009 0404 | | 0926 0bac 0010 | | 0928 0004 036e | n| 092a 8857 97f6 | W | 092c 885b 97f2 | [ | 092e 885f 97ee | _ | 0930 8863 8859 | c Y| 0932 c009 2006 | | 0934 885b 8863 | [ c| 0936 8858 09f1 | X | 0938 a00b 885a | Z| 093a 8862 0871 | b q| 093c 0400 0000 | | 093e 0c0c 0010 | | 0940 0006 0873 | s| 0942 8848 2807 | H( | 0944 084a 0877 | J w| 0946 8841 1809 | A | 0948 e009 e011 | | 094a e029 2002 | ) | 094c 97f5 0407 | | 094e 801c 6c37 | l7| 0950 97fa 0866 | f| 0952 086f 17f5 | o | 0954 0407 801c | | 0956 6c37 97fa |l7 | 0958 0866 086f | f o| 095a 17f5 2006 | | 095c 97f5 0404 | | 095e 0c8c 0d0c | | 0960 0007 8857 | W| 0962 97f8 e003 | | 0964 885b 97f8 | [ | 0966 e007 885f | _| 0968 97f8 e00b | | 096a 8863 97f8 | c | 096c e00f 8843 | C| 096e 97f8 e017 | | 0970 884b 97f8 | K | 0972 e01b 884f | O| 0974 97f8 e01f | | 0976 8853 97f8 | S | 0978 e023 8847 | # G| 097a 8008 604b | `K| 097c 8008 6073 | `s| 097e 97f8 e011 | | 0980 1407 8008 | | 0982 6c84 043d |l =| 0984 a011 2003 | | 0986 97f8 e011 | | 0988 1404 0400 | | 098a 0000 0000 | | 098c 0e10 0000 | | 098e 0090 00a4 | | 0990 00d8 00e8 | | 0992 00fc 0110 | | 0994 012c 012c | , ,| 0996 0128 0124 | ( $| 0998 0164 01bc | d | 099a 0204 0248 | H| 099c 0244 0260 | D `| 099e 0264 0285 | d | 09a0 513d 7d19 |Q=} | 09a2 2531 1551 |%1 Q| 09a4 3d7d 0d3d |=} =| 09a6 394d 3d31 |9M=1| 09a8 157d 3d39 | }=9| 09aa 3165 393d |1e9=| 09ac 4935 0531 |I5 1| 09ae 353d 3925 |5=9%| 09b0 513d 493d |Q=I=| 09b2 5915 4949 |Y II| 09b4 5538 b081 |U8 | 09b6 3d59 1549 |=Y I| 09b8 4955 3880 |IU8 | 09ba a0b0 a56d | m| 09bc 4d85 b5c1 |M | 09be b195 7d25 | }%| 09c0 b9d1 95c9 | | 09c2 d985 b080 | | 09c4 f4b0 8135 | 5| 09c6 bdb9 a5d1 | | 09c8 bdc9 a5b9 | | 09ca 9d7d 51a1 | }Q | 09cc c995 cda1 | | 09ce bdb1 9080 | | 09d0 f4b0 8141 | A| 09d2 95c9 7d0d | } | 09d4 b1a5 95b9 | | 09d6 d17d 31a5 | }1 | 09d8 b5a5 d080 | | 09da f4b0 8105 | | 09dc 9d9d c995 | | 09de 9d85 d195 | | 09e0 7d31 a5b5 |}1 | 09e2 a5d0 80f5 | | 09e4 7481 b595 |t | 09e6 cdcd 859d | | 09e8 95cc 81a5 | | 09ea b881 cd95 | | 09ec 8dbd b991 | | 09ee cc80 8000 | | 09f0 0000 0000 | | .BLANK 0000[0x6] 09f6 000c 005c | \| .XXX[0xa] 09f8 002c 11ca | , | 09fa 0000 0000 | | 09fc 0054 4f10 | TO | 09fe 0000 000c | |