|
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 8000 0606 | | .XXX[0x3]
0878 4b82 |K |
0879 0000 0000 | | .BLANK 0000[0x8]
0881 0002 41f8 | A | .XXX[0x1c]
0883 2f80 0000 |/ |
0885 3148 0000 |1H |
0887 8006 0002 | |
0889 a800 0000 | |
088b 2a5a 0000 |*Z |
088d 1000 0000 | |
088f 1801 4000 | @ |
0891 0000 4000 | @ |
0893 0010 0000 | |
0895 0088 0000 | |
0897 0000 4000 | @ |
0899 0002 9000 | |
089b 0080 be26 | &|
089d 0000 0000 | | .BLANK 0000[0x1e]
08bb 483f 0600 |H? | .XXX[0x1c]
08bd 0000 06c9 | |
08bf 0000 1000 | |
08c1 c000 5500 | U |
08c3 0000 0605 | |
08c5 4000 0200 |@ |
08c7 0000 0300 | |
08c9 2800 0000 |( |
08cb 0800 0002 | |
08cd 0000 0011 | |
08cf 0000 0000 | |
08d1 0800 0000 | |
08d3 5200 0010 |R |
08d5 1864 c800 | d |
08d7 0000 0000 | | .BLANK 0000[0x1d]
08f4 0907 e0c0 | | .XXX[0x1c]
08f6 0000 00dd | |
08f8 2000 0200 | |
08fa 1800 0aa0 | |
08fc 0000 00c0 | |
08fe a800 0060 | `|
0900 0000 00a0 | |
0902 0500 0000 | |
0904 0100 0000 | |
0906 4000 0002 |@ |
0908 2000 0000 | |
090a 0100 0000 | |
090c 0a40 0002 | @ |
090e 030c 9900 | |
0910 0000 0000 | | .BLANK 0000[0x8]
0918 0040 0003 | @ | .XXX[0x4]
091a 0325 f800 | % |
091c 0000 0000 | | .BLANK 0000[0x11]
092d 0120 fc18 | | .XXX[0x1c]
092f c000 0018 | |
0931 a400 0040 | @|
0933 0300 0154 | T|
0935 0000 0015 | |
0937 1800 0008 | |
0939 0000 0014 | |
093b 00a0 0000 | |
093d 0020 0000 | |
093f 0800 0000 | |
0941 4400 0000 |D |
0943 0020 0000 | |
0945 0148 0000 | H |
0947 405f 9a60 |@_ `|
0949 0000 0000 | | .BLANK 0000[0x8]
0951 0008 0000 | | .XXX[0x4]
0953 405f 06c0 |@_ |
0955 0000 0000 | | .BLANK 0000[0x11]
0966 0024 1f83 | $ | .XXX[0x19]
0968 2000 0003 | |
096a 0480 0008 | |
096c 0060 002a | ` *|
096e 8000 0002 | |
0970 70e0 0001 |p |
0972 0000 0000 | |
0974 8014 0000 | |
0976 0004 0000 | |
0978 0100 0000 | |
097a 0880 0000 | |
097c 0004 0000 | |
097e 0028 | ( |
097f 0000 0000 | | .BLANK 0000[0x20]
099f 0004 83f0 | | .XXX[0x1d]
09a1 6400 0000 |d |
09a3 6290 0001 |b |
09a5 000c 0005 | |
09a7 5000 0000 |P |
09a9 4e1c 0000 |N |
09ab 3000 0000 |0 |
09ad 5002 8000 |P |
09af 0000 8000 | |
09b1 0020 0000 | |
09b3 0110 0000 | |
09b5 0000 8000 | |
09b7 0005 2000 | |
09b9 0181 7cac | | |
09bb 8000 | |
09bc 0000 0000 | | .BLANK 0000[0x8]
09c4 2000 0181 | | .XXX[0x3]
09c6 7c61 ||a |
09c7 0000 0000 | | .BLANK 0000[0x39]