|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 04b0 | | .CONST 0x04b0 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0032 | 2 | .CONST 0x0032 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
000f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0011 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0013 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0015 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0017 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0019 00bf | | Action Accept_Activation
001a 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call
001c 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call
001e 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call
0020 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
0022 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call
0024 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0025 00c7 | | Action Elaborate_Subprogram
0026 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0027 00c7 | | Action Elaborate_Subprogram
0028 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0029 00c7 | | Action Elaborate_Subprogram
002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002b 00c7 | | Action Elaborate_Subprogram
002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002d 00c7 | | Action Elaborate_Subprogram
002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002f 00c7 | | Action Elaborate_Subprogram
0030 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0031 00c7 | | Action Elaborate_Subprogram
0032 BODY_0008:
0032 00bc | | Action Signal_Activated
0033 00bb | | Action Signal_Completion
0034 0000 0000 | | .BLANK 0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 004a | J | .CONST 0x004a ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0004 | | .CONST 0x0004 ; Number of locals
003b INIT_0038:
003b e001 | | Load 0x0,0x1
003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003d 02c7 | | Declare_Variable Any
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 e001 | | Load 0x0,0x1
0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0042 02c7 | | Declare_Variable Any
0043 00d8 | | Load_Top At_Offset_0
0044 1c00 | | Execute_Immediate Run_Utility,0x0
0045 e001 | | Load 0x0,0x1
0046 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0047 02c7 | | Declare_Variable Any
0048 00d8 | | Load_Top At_Offset_0
0049 1c00 | | Execute_Immediate Run_Utility,0x0
004a BODY_0038:
004a e5fa | | Load 0x2,-0x6
004b 4801 |H | Short_Literal 0x1
004c e5ff | | Load 0x2,-0x1
004d e002 | | Load 0x0,0x2
004e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
004f c402 | | Store 0x2,0x2
0050 e5fa | | Load 0x2,-0x6
0051 60ba |` | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00008870}
0052 e402 | | Load 0x2,0x2
0053 8214 | | Call 0x1,0x14
0054 00d8 | | Load_Top At_Offset_0
0055 e5fa | | Load 0x2,-0x6
0056 e402 | | Load 0x2,0x2
0057 8217 | | Call 0x1,0x17
0058 c404 | | Store 0x2,0x4
0059 e5fd | | Load 0x2,-0x3
005a e001 | | Load 0x0,0x1
005b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
005d 01db | | Execute Vector,Length
005e 681a |h | Jump_Zero 0x79
005f e5fa | | Load 0x2,-0x6
0060 4801 |H | Short_Literal 0x1
0061 4801 |H | Short_Literal 0x1
0062 e003 | | Load 0x0,0x3
0063 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0064 035b | [ | Declare_Type Array,Constrained
0065 0337 | 7 | Declare_Variable Array
0066 e5fd | | Load 0x2,-0x3
0067 e003 | | Load 0x0,0x3
0068 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0069 e003 | | Load 0x0,0x3
006a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006b 0119 | | Execute Any,Check_In_Formal_Type
006c 4801 |H | Short_Literal 0x1
006d 00da | | Load_Top At_Offset_2
006e 01d6 | | Execute Vector,Field_Write
006f 6098 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x0000889c}
0070 e004 | | Load 0x0,0x4
0071 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0072 e003 | | Load 0x0,0x3
0073 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0074 608f |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008882}
0075 e004 | | Load 0x0,0x4
0076 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0077 a5f9 | | Store_Unchecked 0x2,-0x7
0078 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0079 e5fa | | Load 0x2,-0x6
007a e5fd | | Load 0x2,-0x3
007b e402 | | Load 0x2,0x2
007c e005 | | Load 0x0,0x5
007d 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
007e 681a |h | Jump_Zero 0x99
007f e5fa | | Load 0x2,-0x6
0080 4801 |H | Short_Literal 0x1
0081 4801 |H | Short_Literal 0x1
0082 e003 | | Load 0x0,0x3
0083 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0084 035b | [ | Declare_Type Array,Constrained
0085 0337 | 7 | Declare_Variable Array
0086 e402 | | Load 0x2,0x2
0087 e002 | | Load 0x0,0x2
0088 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0089 e003 | | Load 0x0,0x3
008a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008b 0119 | | Execute Any,Check_In_Formal_Type
008c 4801 |H | Short_Literal 0x1
008d 00da | | Load_Top At_Offset_2
008e 01d6 | | Execute Vector,Field_Write
008f 6070 |`p | Indirect_Literal Discrete,0x100,{0x00000000, 0x00008881}
0090 e004 | | Load 0x0,0x4
0091 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0092 e003 | | Load 0x0,0x3
0093 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0094 606f |`o | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008882}
0095 e004 | | Load 0x0,0x4
0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0097 a5f9 | | Store_Unchecked 0x2,-0x7
0098 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0099 e5fa | | Load 0x2,-0x6
009a 00db | | Load_Top At_Offset_3
009b e002 | | Load 0x0,0x2
009c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
009d 7016 |p | Jump_Nonzero 0xb4
009e e5fa | | Load 0x2,-0x6
009f 4801 |H | Short_Literal 0x1
00a0 4801 |H | Short_Literal 0x1
00a1 e003 | | Load 0x0,0x3
00a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a3 035b | [ | Declare_Type Array,Constrained
00a4 0337 | 7 | Declare_Variable Array
00a5 e402 | | Load 0x2,0x2
00a6 e002 | | Load 0x0,0x2
00a7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00a8 e003 | | Load 0x0,0x3
00a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00aa 0119 | | Execute Any,Check_In_Formal_Type
00ab 4801 |H | Short_Literal 0x1
00ac 00da | | Load_Top At_Offset_2
00ad 01d6 | | Execute Vector,Field_Write
00ae 604d |`M | Indirect_Literal Discrete,0xfc,{0x00000000, 0x0000889a}
00af e004 | | Load 0x0,0x4
00b0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00b1 e004 | | Load 0x0,0x4
00b2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b3 0257 | W | Execute Discrete,Raise
00b4 00da | | Load_Top At_Offset_2
00b5 8215 | | Call 0x1,0x15
00b6 6816 |h | Jump_Zero 0xcd
00b7 e5fa | | Load 0x2,-0x6
00b8 4801 |H | Short_Literal 0x1
00b9 4801 |H | Short_Literal 0x1
00ba e003 | | Load 0x0,0x3
00bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00bc 035b | [ | Declare_Type Array,Constrained
00bd 0337 | 7 | Declare_Variable Array
00be e402 | | Load 0x2,0x2
00bf e002 | | Load 0x0,0x2
00c0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00c1 e003 | | Load 0x0,0x3
00c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c3 0119 | | Execute Any,Check_In_Formal_Type
00c4 4801 |H | Short_Literal 0x1
00c5 00da | | Load_Top At_Offset_2
00c6 01d6 | | Execute Vector,Field_Write
00c7 6030 |`0 | Indirect_Literal Discrete,0xf8,{0x00000000, 0x0000889f}
00c8 e004 | | Load 0x0,0x4
00c9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00ca e004 | | Load 0x0,0x4
00cb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cc 0257 | W | Execute Discrete,Raise
00cd e5fa | | Load 0x2,-0x6
00ce 00db | | Load_Top At_Offset_3
00cf 8218 | | Call 0x1,0x18
00d0 e004 | | Load 0x0,0x4
00d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d2 e5fa | | Load 0x2,-0x6
00d3 e5fd | | Load 0x2,-0x3
00d4 e5fa | | Load 0x2,-0x6
00d5 4801 |H | Short_Literal 0x1
00d6 e402 | | Load 0x2,0x2
00d7 e002 | | Load 0x0,0x2
00d8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d9 e005 | | Load 0x0,0x5
00da 1886 | | Execute Package,Field_Execute,Field_Number 0x86
00db c5f9 | | Store 0x2,-0x7
00dc 4800 |H | Short_Literal 0x0
00dd e5f9 | | Load 0x2,-0x7
00de e004 | | Load 0x0,0x4
00df 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00e0 7003 |p | Jump_Nonzero 0xe4
00e1 e004 | | Load 0x0,0x4
00e2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00e3 0257 | W | Execute Discrete,Raise
00e4 e004 | | Load 0x0,0x4
00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e6 e5fa | | Load 0x2,-0x6
00e7 e5fb | | Load 0x2,-0x5
00e8 e5fc | | Load 0x2,-0x4
00e9 e5fd | | Load 0x2,-0x3
00ea e5fe | | Load 0x2,-0x2
00eb e402 | | Load 0x2,0x2
00ec e005 | | Load 0x0,0x5
00ed 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
00ee c5f9 | | Store 0x2,-0x7
00ef 4800 |H | Short_Literal 0x0
00f0 e5f9 | | Load 0x2,-0x7
00f1 e004 | | Load 0x0,0x4
00f2 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00f3 7003 |p | Jump_Nonzero 0xf7
00f4 e004 | | Load 0x0,0x4
00f5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00f6 0257 | W | Execute Discrete,Raise
00f7 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00f8 0000 0000 | | .LITERAL {0x00000000, 0x0000889f}
00fc 0000 0000 | | .LITERAL {0x00000000, 0x0000889a}
0100 0000 0000 | | .LITERAL {0x00000000, 0x00008881}
0104 0000 0000 | | .LITERAL {0x00000000, 0x00008882}
0108 0000 0000 | | .LITERAL {0x00000000, 0x0000889c}
010c 0000 0000 | | .LITERAL {0x00000000, 0x00008870}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0131 | 1 | .CONST 0x0131 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0009 | | .CONST 0x0009 ; Number of locals
0113 INIT_0110:
0113 e001 | | Load 0x0,0x1
0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0115 02c7 | | Declare_Variable Any
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 e001 | | Load 0x0,0x1
0119 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011a 02c7 | | Declare_Variable Any
011b 00d8 | | Load_Top At_Offset_0
011c 1c00 | | Execute_Immediate Run_Utility,0x0
011d e001 | | Load 0x0,0x1
011e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011f 02c7 | | Declare_Variable Any
0120 00d8 | | Load_Top At_Offset_0
0121 1c00 | | Execute_Immediate Run_Utility,0x0
0122 e001 | | Load 0x0,0x1
0123 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0124 02c7 | | Declare_Variable Any
0125 00d8 | | Load_Top At_Offset_0
0126 1c00 | | Execute_Immediate Run_Utility,0x0
0127 e001 | | Load 0x0,0x1
0128 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0129 02c7 | | Declare_Variable Any
012a 00d8 | | Load_Top At_Offset_0
012b 1c00 | | Execute_Immediate Run_Utility,0x0
012c 00e1 | | Load_Encached Boolean_Cache
012d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
012e 00e2 | | Load_Encached Integer_Cache
012f 029f 045b | [| Declare_Subprogram INIT_0458,For_Call
0131 BODY_0110:
0131 e5fe | | Load 0x2,-0x2
0132 4801 |H | Short_Literal 0x1
0133 e5ff | | Load 0x2,-0x1
0134 e002 | | Load 0x0,0x2
0135 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0136 c403 | | Store 0x2,0x3
0137 00db | | Load_Top At_Offset_3
0138 e5fe | | Load 0x2,-0x2
0139 e403 | | Load 0x2,0x3
013a 8217 | | Call 0x1,0x17
013b c406 | | Store 0x2,0x6
013c e004 | | Load 0x0,0x4
013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013e 00e2 | | Load_Encached Integer_Cache
013f e402 | | Load 0x2,0x2
0140 0120 | | Execute Any,Is_Value
0141 6803 |h | Jump_Zero 0x145
0142 e001 | | Load 0x0,0x1
0143 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0144 7801 |x | Jump 0x146
0145 e402 | | Load 0x2,0x2
0146 e5fe | | Load 0x2,-0x2
0147 e403 | | Load 0x2,0x3
0148 e005 | | Load 0x0,0x5
0149 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
014a c402 | | Store 0x2,0x2
014b 005b | [ | Store_Top Discrete,At_Offset_3
014c c5fd | | Store 0x2,-0x3
014d 4800 |H | Short_Literal 0x0
014e e5fd | | Load 0x2,-0x3
014f e004 | | Load 0x0,0x4
0150 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0151 7003 |p | Jump_Nonzero 0x155
0152 e004 | | Load 0x0,0x4
0153 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0154 0257 | W | Execute Discrete,Raise
0155 e5fe | | Load 0x2,-0x2
0156 e402 | | Load 0x2,0x2
0157 e002 | | Load 0x0,0x2
0158 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0159 7016 |p | Jump_Nonzero 0x170
015a e5fe | | Load 0x2,-0x2
015b 4801 |H | Short_Literal 0x1
015c 4801 |H | Short_Literal 0x1
015d e003 | | Load 0x0,0x3
015e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015f 035b | [ | Declare_Type Array,Constrained
0160 0337 | 7 | Declare_Variable Array
0161 e402 | | Load 0x2,0x2
0162 e002 | | Load 0x0,0x2
0163 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0164 e003 | | Load 0x0,0x3
0165 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0166 0119 | | Execute Any,Check_In_Formal_Type
0167 4801 |H | Short_Literal 0x1
0168 00da | | Load_Top At_Offset_2
0169 01d6 | | Execute Vector,Field_Write
016a 6791 |g | Indirect_Literal Discrete,0xfc,{0x00000000, 0x0000889a}
016b e004 | | Load 0x0,0x4
016c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
016d e004 | | Load 0x0,0x4
016e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
016f 0257 | W | Execute Discrete,Raise
0170 e5fe | | Load 0x2,-0x2
0171 e402 | | Load 0x2,0x2
0172 8218 | | Call 0x1,0x18
0173 8409 | | Call 0x2,0x9
0174 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0195 | | .CONST 0x0195 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0006 | | .CONST 0x0006 ; Number of locals
017b INIT_0178:
017b e001 | | Load 0x0,0x1
017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017d 02c7 | | Declare_Variable Any
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 e001 | | Load 0x0,0x1
0181 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0182 02c7 | | Declare_Variable Any
0183 00d8 | | Load_Top At_Offset_0
0184 1c00 | | Execute_Immediate Run_Utility,0x0
0185 e001 | | Load 0x0,0x1
0186 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0187 02c7 | | Declare_Variable Any
0188 00d8 | | Load_Top At_Offset_0
0189 1c00 | | Execute_Immediate Run_Utility,0x0
018a e001 | | Load 0x0,0x1
018b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018c 02c7 | | Declare_Variable Any
018d 00d8 | | Load_Top At_Offset_0
018e 1c00 | | Execute_Immediate Run_Utility,0x0
018f e001 | | Load 0x0,0x1
0190 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0191 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0192 02c7 | | Declare_Variable Any
0193 00d8 | | Load_Top At_Offset_0
0194 1c00 | | Execute_Immediate Run_Utility,0x0
0195 BODY_0178:
0195 e5fe | | Load 0x2,-0x2
0196 4800 |H | Short_Literal 0x0
0197 e5ff | | Load 0x2,-0x1
0198 e002 | | Load 0x0,0x2
0199 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
019a c406 | | Store 0x2,0x6
019b e5fe | | Load 0x2,-0x2
019c e5ff | | Load 0x2,-0x1
019d 00da | | Load_Top At_Offset_2
019e 6031 |`1 | Indirect_Literal Discrete,0x1d0,{0x00000000, 0x0000882b}
019f 8216 | | Call 0x1,0x16
01a0 00cf | | Action Mark_Auxiliary
01a1 7821 |x! | Jump 0x1c3
01a2 e5fe | | Load 0x2,-0x2
01a3 4801 |H | Short_Literal 0x1
01a4 00db | | Load_Top At_Offset_3
01a5 e002 | | Load 0x0,0x2
01a6 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01a7 c402 | | Store 0x2,0x2
01a8 e402 | | Load 0x2,0x2
01a9 c404 | | Store 0x2,0x4
01aa e5fe | | Load 0x2,-0x2
01ab 6020 |` | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x00008870}
01ac e404 | | Load 0x2,0x4
01ad 8214 | | Call 0x1,0x14
01ae e004 | | Load 0x0,0x4
01af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b0 e5fe | | Load 0x2,-0x2
01b1 e402 | | Load 0x2,0x2
01b2 e005 | | Load 0x0,0x5
01b3 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
01b4 c5fd | | Store 0x2,-0x3
01b5 4800 |H | Short_Literal 0x0
01b6 e5fd | | Load 0x2,-0x3
01b7 e004 | | Load 0x0,0x4
01b8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01b9 7003 |p | Jump_Nonzero 0x1bd
01ba e004 | | Load 0x0,0x4
01bb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01bc 0257 | W | Execute Discrete,Raise
01bd 00d9 | | Load_Top At_Offset_1
01be e001 | | Load 0x0,0x1
01bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c1 c406 | | Store 0x2,0x6
01c2 00c9 | | Action Pop_Auxiliary_Loop
01c3 00d9 | | Load_Top At_Offset_1
01c4 e001 | | Load 0x0,0x1
01c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01c7 6fda |o | Jump_Zero 0x1a2
01c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c9 0000 0000 | | .XXX[0x3]
01cb 0000 | |
01cc 0000 0000 | | .LITERAL {0x00000000, 0x00008870}
01d0 0000 0000 | | .LITERAL {0x00000000, 0x0000882b}
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f0 | | .CONST 0x01f0 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0006 | | .CONST 0x0006 ; Number of locals
01db INIT_01d8:
01db e001 | | Load 0x0,0x1
01dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01dd 02c7 | | Declare_Variable Any
01de 00d8 | | Load_Top At_Offset_0
01df 1c00 | | Execute_Immediate Run_Utility,0x0
01e0 e001 | | Load 0x0,0x1
01e1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e2 02c7 | | Declare_Variable Any
01e3 00d8 | | Load_Top At_Offset_0
01e4 1c00 | | Execute_Immediate Run_Utility,0x0
01e5 00e2 | | Load_Encached Integer_Cache
01e6 e001 | | Load 0x0,0x1
01e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e8 02c7 | | Declare_Variable Any
01e9 00d8 | | Load_Top At_Offset_0
01ea 1c00 | | Execute_Immediate Run_Utility,0x0
01eb e001 | | Load 0x0,0x1
01ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ed 02c7 | | Declare_Variable Any
01ee 00d8 | | Load_Top At_Offset_0
01ef 1c00 | | Execute_Immediate Run_Utility,0x0
01f0 BODY_01d8:
01f0 e5fc | | Load 0x2,-0x4
01f1 4801 |H | Short_Literal 0x1
01f2 e5ff | | Load 0x2,-0x1
01f3 e002 | | Load 0x0,0x2
01f4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f5 c403 | | Store 0x2,0x3
01f6 e004 | | Load 0x0,0x4
01f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f8 00e2 | | Load_Encached Integer_Cache
01f9 e402 | | Load 0x2,0x2
01fa 0120 | | Execute Any,Is_Value
01fb 6803 |h | Jump_Zero 0x1ff
01fc e001 | | Load 0x0,0x1
01fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fe 7801 |x | Jump 0x200
01ff e402 | | Load 0x2,0x2
0200 e5fc | | Load 0x2,-0x4
0201 e403 | | Load 0x2,0x3
0202 e005 | | Load 0x0,0x5
0203 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0204 c402 | | Store 0x2,0x2
0205 c404 | | Store 0x2,0x4
0206 c5fb | | Store 0x2,-0x5
0207 4800 |H | Short_Literal 0x0
0208 e5fb | | Load 0x2,-0x5
0209 e004 | | Load 0x0,0x4
020a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
020b 7003 |p | Jump_Nonzero 0x20f
020c e004 | | Load 0x0,0x4
020d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
020e 0257 | W | Execute Discrete,Raise
020f e004 | | Load 0x0,0x4
0210 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0211 00da | | Load_Top At_Offset_2
0212 0120 | | Execute Any,Is_Value
0213 6803 |h | Jump_Zero 0x217
0214 e001 | | Load 0x0,0x1
0215 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0216 7801 |x | Jump 0x218
0217 00da | | Load_Top At_Offset_2
0218 e5fc | | Load 0x2,-0x4
0219 e403 | | Load 0x2,0x3
021a e005 | | Load 0x0,0x5
021b 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
021c c405 | | Store 0x2,0x5
021d c5fb | | Store 0x2,-0x5
021e 4800 |H | Short_Literal 0x0
021f e5fb | | Load 0x2,-0x5
0220 e004 | | Load 0x0,0x4
0221 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0222 7003 |p | Jump_Nonzero 0x226
0223 e004 | | Load 0x0,0x4
0224 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0225 0257 | W | Execute Discrete,Raise
0226 e5fc | | Load 0x2,-0x4
0227 00da | | Load_Top At_Offset_2
0228 e002 | | Load 0x0,0x2
0229 1816 | | Execute Package,Field_Execute,Field_Number 0x16
022a 701a |p | Jump_Nonzero 0x245
022b e5fc | | Load 0x2,-0x4
022c 4801 |H | Short_Literal 0x1
022d 4801 |H | Short_Literal 0x1
022e e003 | | Load 0x0,0x3
022f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0230 035b | [ | Declare_Type Array,Constrained
0231 0337 | 7 | Declare_Variable Array
0232 00db | | Load_Top At_Offset_3
0233 e002 | | Load 0x0,0x2
0234 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0235 e003 | | Load 0x0,0x3
0236 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0237 0119 | | Execute Any,Check_In_Formal_Type
0238 4801 |H | Short_Literal 0x1
0239 00da | | Load_Top At_Offset_2
023a 01d6 | | Execute Vector,Field_Write
023b 602c |`, | Indirect_Literal Discrete,0x268,{0x00000000, 0x0000889b}
023c e004 | | Load 0x0,0x4
023d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
023e e003 | | Load 0x0,0x3
023f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0240 6023 |`# | Indirect_Literal Discrete,0x264,{0x00000000, 0x00008883}
0241 e004 | | Load 0x0,0x4
0242 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0243 a5fb | | Store_Unchecked 0x2,-0x5
0244 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0245 00d8 | | Load_Top At_Offset_0
0246 e5fc | | Load 0x2,-0x4
0247 e403 | | Load 0x2,0x3
0248 8217 | | Call 0x1,0x17
0249 c406 | | Store 0x2,0x6
024a e5fc | | Load 0x2,-0x4
024b e402 | | Load 0x2,0x2
024c 8218 | | Call 0x1,0x18
024d e004 | | Load 0x0,0x4
024e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024f e5fc | | Load 0x2,-0x4
0250 00db | | Load_Top At_Offset_3
0251 e005 | | Load 0x0,0x5
0252 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
0253 c5fb | | Store 0x2,-0x5
0254 4800 |H | Short_Literal 0x0
0255 e5fb | | Load 0x2,-0x5
0256 e004 | | Load 0x0,0x4
0257 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0258 7003 |p | Jump_Nonzero 0x25c
0259 e004 | | Load 0x0,0x4
025a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
025b 0257 | W | Execute Discrete,Raise
025c e5fd | | Load 0x2,-0x3
025d e5fe | | Load 0x2,-0x2
025e 00db | | Load_Top At_Offset_3
025f e002 | | Load 0x0,0x2
0260 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0261 e006 | | Load 0x0,0x6
0262 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0263 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0264 0000 0000 | | .LITERAL {0x00000000, 0x00008883}
0268 0000 0000 | | .LITERAL {0x00000000, 0x0000889b}
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027d | } | .CONST 0x027d ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0003 | | .CONST 0x0003 ; Number of locals
0273 INIT_0270:
0273 e001 | | Load 0x0,0x1
0274 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0275 02c7 | | Declare_Variable Any
0276 00d8 | | Load_Top At_Offset_0
0277 1c00 | | Execute_Immediate Run_Utility,0x0
0278 e001 | | Load 0x0,0x1
0279 1b0f | | Execute Package,Field_Read,Field_Number 0xf
027a 02c7 | | Declare_Variable Any
027b 00d8 | | Load_Top At_Offset_0
027c 1c00 | | Execute_Immediate Run_Utility,0x0
027d BODY_0270:
027d e5fd | | Load 0x2,-0x3
027e 4801 |H | Short_Literal 0x1
027f e5ff | | Load 0x2,-0x1
0280 e002 | | Load 0x0,0x2
0281 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0282 c402 | | Store 0x2,0x2
0283 e5fd | | Load 0x2,-0x3
0284 603b |`; | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00008870}
0285 00db | | Load_Top At_Offset_3
0286 8214 | | Call 0x1,0x14
0287 00d8 | | Load_Top At_Offset_0
0288 e5fd | | Load 0x2,-0x3
0289 00db | | Load_Top At_Offset_3
028a 8217 | | Call 0x1,0x17
028b c403 | | Store 0x2,0x3
028c e5fd | | Load 0x2,-0x3
028d 00da | | Load_Top At_Offset_2
028e e002 | | Load 0x0,0x2
028f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0290 7016 |p | Jump_Nonzero 0x2a7
0291 e5fd | | Load 0x2,-0x3
0292 4801 |H | Short_Literal 0x1
0293 4801 |H | Short_Literal 0x1
0294 e003 | | Load 0x0,0x3
0295 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0296 035b | [ | Declare_Type Array,Constrained
0297 0337 | 7 | Declare_Variable Array
0298 00db | | Load_Top At_Offset_3
0299 e002 | | Load 0x0,0x2
029a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
029b e003 | | Load 0x0,0x3
029c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029d 0119 | | Execute Any,Check_In_Formal_Type
029e 4801 |H | Short_Literal 0x1
029f 00da | | Load_Top At_Offset_2
02a0 01d6 | | Execute Vector,Field_Write
02a1 601a |` | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x0000889a}
02a2 e004 | | Load 0x0,0x4
02a3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02a4 e004 | | Load 0x0,0x4
02a5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02a6 0257 | W | Execute Discrete,Raise
02a7 e5fd | | Load 0x2,-0x3
02a8 00da | | Load_Top At_Offset_2
02a9 8218 | | Call 0x1,0x18
02aa e004 | | Load 0x0,0x4
02ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ac e5fd | | Load 0x2,-0x3
02ad e5fe | | Load 0x2,-0x2
02ae e402 | | Load 0x2,0x2
02af e005 | | Load 0x0,0x5
02b0 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
02b1 c5fc | | Store 0x2,-0x4
02b2 4800 |H | Short_Literal 0x0
02b3 e5fc | | Load 0x2,-0x4
02b4 e004 | | Load 0x0,0x4
02b5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02b6 7003 |p | Jump_Nonzero 0x2ba
02b7 e004 | | Load 0x0,0x4
02b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02b9 0257 | W | Execute Discrete,Raise
02ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02bb 0000 | | .XXX[0x1]
02bc 0000 0000 | | .LITERAL {0x00000000, 0x0000889a}
02c0 0000 0000 | | .LITERAL {0x00000000, 0x00008870}
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02db | | .CONST 0x02db ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0005 | | .CONST 0x0005 ; Number of locals
02cb INIT_02c8:
02cb e001 | | Load 0x0,0x1
02cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02cd 02c7 | | Declare_Variable Any
02ce 00d8 | | Load_Top At_Offset_0
02cf 1c00 | | Execute_Immediate Run_Utility,0x0
02d0 e001 | | Load 0x0,0x1
02d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d2 02c7 | | Declare_Variable Any
02d3 00d8 | | Load_Top At_Offset_0
02d4 1c00 | | Execute_Immediate Run_Utility,0x0
02d5 00e2 | | Load_Encached Integer_Cache
02d6 e001 | | Load 0x0,0x1
02d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d8 02c7 | | Declare_Variable Any
02d9 00d8 | | Load_Top At_Offset_0
02da 1c00 | | Execute_Immediate Run_Utility,0x0
02db BODY_02c8:
02db e5fd | | Load 0x2,-0x3
02dc 4801 |H | Short_Literal 0x1
02dd e5fe | | Load 0x2,-0x2
02de e002 | | Load 0x0,0x2
02df 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02e0 c403 | | Store 0x2,0x3
02e1 e004 | | Load 0x0,0x4
02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e3 00e2 | | Load_Encached Integer_Cache
02e4 e402 | | Load 0x2,0x2
02e5 0120 | | Execute Any,Is_Value
02e6 6803 |h | Jump_Zero 0x2ea
02e7 e001 | | Load 0x0,0x1
02e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02e9 7801 |x | Jump 0x2eb
02ea e402 | | Load 0x2,0x2
02eb e5fd | | Load 0x2,-0x3
02ec e403 | | Load 0x2,0x3
02ed e005 | | Load 0x0,0x5
02ee 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
02ef c402 | | Store 0x2,0x2
02f0 005b | [ | Store_Top Discrete,At_Offset_3
02f1 c5fc | | Store 0x2,-0x4
02f2 4800 |H | Short_Literal 0x0
02f3 e5fc | | Load 0x2,-0x4
02f4 e004 | | Load 0x0,0x4
02f5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02f6 7003 |p | Jump_Nonzero 0x2fa
02f7 e004 | | Load 0x0,0x4
02f8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02f9 0257 | W | Execute Discrete,Raise
02fa 00d8 | | Load_Top At_Offset_0
02fb e5fd | | Load 0x2,-0x3
02fc e403 | | Load 0x2,0x3
02fd 8217 | | Call 0x1,0x17
02fe c405 | | Store 0x2,0x5
02ff e5fd | | Load 0x2,-0x3
0300 e402 | | Load 0x2,0x2
0301 e002 | | Load 0x0,0x2
0302 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0303 7016 |p | Jump_Nonzero 0x31a
0304 e5fd | | Load 0x2,-0x3
0305 4801 |H | Short_Literal 0x1
0306 4801 |H | Short_Literal 0x1
0307 e003 | | Load 0x0,0x3
0308 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0309 035b | [ | Declare_Type Array,Constrained
030a 0337 | 7 | Declare_Variable Array
030b e402 | | Load 0x2,0x2
030c e002 | | Load 0x0,0x2
030d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
030e e003 | | Load 0x0,0x3
030f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0310 0119 | | Execute Any,Check_In_Formal_Type
0311 4801 |H | Short_Literal 0x1
0312 00da | | Load_Top At_Offset_2
0313 01d6 | | Execute Vector,Field_Write
0314 67a7 |g | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x0000889a}
0315 e004 | | Load 0x0,0x4
0316 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0317 e004 | | Load 0x0,0x4
0318 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0319 0257 | W | Execute Discrete,Raise
031a e5fd | | Load 0x2,-0x3
031b e402 | | Load 0x2,0x2
031c 8218 | | Call 0x1,0x18
031d e004 | | Load 0x0,0x4
031e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031f e5fd | | Load 0x2,-0x3
0320 e5ff | | Load 0x2,-0x1
0321 e403 | | Load 0x2,0x3
0322 e005 | | Load 0x0,0x5
0323 186d | m | Execute Package,Field_Execute,Field_Number 0x6d
0324 c5fc | | Store 0x2,-0x4
0325 4800 |H | Short_Literal 0x0
0326 e5fc | | Load 0x2,-0x4
0327 e004 | | Load 0x0,0x4
0328 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0329 7003 |p | Jump_Nonzero 0x32d
032a e004 | | Load 0x0,0x4
032b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
032c 0257 | W | Execute Discrete,Raise
032d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
032e 0000 0000 | | .XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0343 | C | .CONST 0x0343 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0005 | | .CONST 0x0005 ; Number of locals
0333 INIT_0330:
0333 e001 | | Load 0x0,0x1
0334 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0335 02c7 | | Declare_Variable Any
0336 00d8 | | Load_Top At_Offset_0
0337 1c00 | | Execute_Immediate Run_Utility,0x0
0338 e001 | | Load 0x0,0x1
0339 1b0f | | Execute Package,Field_Read,Field_Number 0xf
033a 02c7 | | Declare_Variable Any
033b 00d8 | | Load_Top At_Offset_0
033c 1c00 | | Execute_Immediate Run_Utility,0x0
033d 00e2 | | Load_Encached Integer_Cache
033e e001 | | Load 0x0,0x1
033f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0340 02c7 | | Declare_Variable Any
0341 00d8 | | Load_Top At_Offset_0
0342 1c00 | | Execute_Immediate Run_Utility,0x0
0343 BODY_0330:
0343 e5fd | | Load 0x2,-0x3
0344 4801 |H | Short_Literal 0x1
0345 e5fe | | Load 0x2,-0x2
0346 e002 | | Load 0x0,0x2
0347 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0348 c403 | | Store 0x2,0x3
0349 e004 | | Load 0x0,0x4
034a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
034b 00e2 | | Load_Encached Integer_Cache
034c e402 | | Load 0x2,0x2
034d 0120 | | Execute Any,Is_Value
034e 6803 |h | Jump_Zero 0x352
034f e001 | | Load 0x0,0x1
0350 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0351 7801 |x | Jump 0x353
0352 e402 | | Load 0x2,0x2
0353 e5fd | | Load 0x2,-0x3
0354 e403 | | Load 0x2,0x3
0355 e005 | | Load 0x0,0x5
0356 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0357 c402 | | Store 0x2,0x2
0358 005b | [ | Store_Top Discrete,At_Offset_3
0359 c5fc | | Store 0x2,-0x4
035a 4800 |H | Short_Literal 0x0
035b e5fc | | Load 0x2,-0x4
035c e004 | | Load 0x0,0x4
035d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
035e 7003 |p | Jump_Nonzero 0x362
035f e004 | | Load 0x0,0x4
0360 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0361 0257 | W | Execute Discrete,Raise
0362 00d8 | | Load_Top At_Offset_0
0363 e5fd | | Load 0x2,-0x3
0364 e403 | | Load 0x2,0x3
0365 8217 | | Call 0x1,0x17
0366 c405 | | Store 0x2,0x5
0367 e5fd | | Load 0x2,-0x3
0368 e402 | | Load 0x2,0x2
0369 e002 | | Load 0x0,0x2
036a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
036b 7016 |p | Jump_Nonzero 0x382
036c e5fd | | Load 0x2,-0x3
036d 4801 |H | Short_Literal 0x1
036e 4801 |H | Short_Literal 0x1
036f e003 | | Load 0x0,0x3
0370 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0371 035b | [ | Declare_Type Array,Constrained
0372 0337 | 7 | Declare_Variable Array
0373 e402 | | Load 0x2,0x2
0374 e002 | | Load 0x0,0x2
0375 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0376 e003 | | Load 0x0,0x3
0377 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0378 0119 | | Execute Any,Check_In_Formal_Type
0379 4801 |H | Short_Literal 0x1
037a 00da | | Load_Top At_Offset_2
037b 01d6 | | Execute Vector,Field_Write
037c 601b |` | Indirect_Literal Discrete,0x398,{0x00000000, 0x0000889a}
037d e004 | | Load 0x0,0x4
037e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
037f e004 | | Load 0x0,0x4
0380 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0381 0257 | W | Execute Discrete,Raise
0382 e5fd | | Load 0x2,-0x3
0383 e402 | | Load 0x2,0x2
0384 8218 | | Call 0x1,0x18
0385 e004 | | Load 0x0,0x4
0386 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0387 e5fd | | Load 0x2,-0x3
0388 e5ff | | Load 0x2,-0x1
0389 e403 | | Load 0x2,0x3
038a e005 | | Load 0x0,0x5
038b 186e | n | Execute Package,Field_Execute,Field_Number 0x6e
038c c5fc | | Store 0x2,-0x4
038d 4800 |H | Short_Literal 0x0
038e e5fc | | Load 0x2,-0x4
038f e004 | | Load 0x0,0x4
0390 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0391 7003 |p | Jump_Nonzero 0x395
0392 e004 | | Load 0x0,0x4
0393 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0394 0257 | W | Execute Discrete,Raise
0395 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0396 0000 0000 | | .XXX[0x2]
0398 0000 0000 | | .LITERAL {0x00000000, 0x0000889a}
039c 0000 0000 | | .BLANK 0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 e002 | | Load 0x0,0x2
03a5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
03a6 7016 |p | Jump_Nonzero 0x3bd
03a7 e5fd | | Load 0x2,-0x3
03a8 4801 |H | Short_Literal 0x1
03a9 4801 |H | Short_Literal 0x1
03aa e003 | | Load 0x0,0x3
03ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ac 035b | [ | Declare_Type Array,Constrained
03ad 0337 | 7 | Declare_Variable Array
03ae e5ff | | Load 0x2,-0x1
03af e002 | | Load 0x0,0x2
03b0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03b1 e003 | | Load 0x0,0x3
03b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b3 0119 | | Execute Any,Check_In_Formal_Type
03b4 4801 |H | Short_Literal 0x1
03b5 00da | | Load_Top At_Offset_2
03b6 01d6 | | Execute Vector,Field_Write
03b7 e5fe | | Load 0x2,-0x2
03b8 e004 | | Load 0x0,0x4
03b9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03ba e004 | | Load 0x0,0x4
03bb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03bc 0257 | W | Execute Discrete,Raise
03bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03cb | | .CONST 0x03cb ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0003 | | .CONST 0x0003 ; Number of locals
03c3 INIT_03c0:
03c3 e001 | | Load 0x0,0x1
03c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c5 e001 | | Load 0x0,0x1
03c6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c8 02c7 | | Declare_Variable Any
03c9 00d8 | | Load_Top At_Offset_0
03ca 1c00 | | Execute_Immediate Run_Utility,0x0
03cb BODY_03c0:
03cb e001 | | Load 0x0,0x1
03cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cd 00d9 | | Load_Top At_Offset_1
03ce 0120 | | Execute Any,Is_Value
03cf 6804 |h | Jump_Zero 0x3d4
03d0 e001 | | Load 0x0,0x1
03d1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d3 7801 |x | Jump 0x3d5
03d4 00d9 | | Load_Top At_Offset_1
03d5 e5ff | | Load 0x2,-0x1
03d6 e001 | | Load 0x0,0x1
03d7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d9 c403 | | Store 0x2,0x3
03da 005a | Z | Store_Top Discrete,At_Offset_2
03db 00d9 | | Load_Top At_Offset_1
03dc 6803 |h | Jump_Zero 0x3e0
03dd e004 | | Load 0x0,0x4
03de 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03df 0257 | W | Execute Discrete,Raise
03e0 00d8 | | Load_Top At_Offset_0
03e1 e001 | | Load 0x0,0x1
03e2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03e3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03e4 e002 | | Load 0x0,0x2
03e5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
03e6 6802 |h | Jump_Zero 0x3e9
03e7 4801 |H | Short_Literal 0x1
03e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e9 4800 |H | Short_Literal 0x0
03ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03eb 0000 0000 | | .BLANK 0000[0x5]
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 00db | | Load_Top At_Offset_3
03f4 e001 | | Load 0x0,0x1
03f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03f6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03f7 6816 |h | Jump_Zero 0x40e
03f8 e5fc | | Load 0x2,-0x4
03f9 4801 |H | Short_Literal 0x1
03fa 4801 |H | Short_Literal 0x1
03fb e003 | | Load 0x0,0x3
03fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03fd 035b | [ | Declare_Type Array,Constrained
03fe 0337 | 7 | Declare_Variable Array
03ff e5fd | | Load 0x2,-0x3
0400 e003 | | Load 0x0,0x3
0401 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0402 e003 | | Load 0x0,0x3
0403 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0404 0119 | | Execute Any,Check_In_Formal_Type
0405 4801 |H | Short_Literal 0x1
0406 00da | | Load_Top At_Offset_2
0407 01d6 | | Execute Vector,Field_Write
0408 e5ff | | Load 0x2,-0x1
0409 e004 | | Load 0x0,0x4
040a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
040b e004 | | Load 0x0,0x4
040c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
040d 0257 | W | Execute Discrete,Raise
040e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
040f 0000 | | .XXX[0x1]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00db | | Load_Top At_Offset_3
0414 4801 |H | Short_Literal 0x1
0415 e5ff | | Load 0x2,-0x1
0416 e002 | | Load 0x0,0x2
0417 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0418 c5fd | | Store 0x2,-0x3
0419 00db | | Load_Top At_Offset_3
041a e5fd | | Load 0x2,-0x3
041b e007 | | Load 0x0,0x7
041c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
041d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
041e 0000 0000 | | .XXX[0x2]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 00da | | Load_Top At_Offset_2
0424 e008 | | Load 0x0,0x8
0425 180e | | Execute Package,Field_Execute,Field_Number 0xe
0426 682c |h, | Jump_Zero 0x453
0427 4801 |H | Short_Literal 0x1
0428 4801 |H | Short_Literal 0x1
0429 4800 |H | Short_Literal 0x0
042a 4801 |H | Short_Literal 0x1
042b e5fe | | Load 0x2,-0x2
042c e002 | | Load 0x0,0x2
042d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
042e e009 | | Load 0x0,0x9
042f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0430 4800 |H | Short_Literal 0x0
0431 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "<ALL_WORLDS>"
0433 4802 |H | Short_Literal 0x2
0434 e5ff | | Load 0x2,-0x1
0435 e002 | | Load 0x0,0x2
0436 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0437 e00a | | Load 0x0,0xa
0438 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0439 00da | | Load_Top At_Offset_2
043a e008 | | Load 0x0,0x8
043b 180e | | Execute Package,Field_Execute,Field_Number 0xe
043c 6816 |h | Jump_Zero 0x453
043d 00db | | Load_Top At_Offset_3
043e 4801 |H | Short_Literal 0x1
043f 4801 |H | Short_Literal 0x1
0440 e003 | | Load 0x0,0x3
0441 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0442 035b | [ | Declare_Type Array,Constrained
0443 0337 | 7 | Declare_Variable Array
0444 e5ff | | Load 0x2,-0x1
0445 e002 | | Load 0x0,0x2
0446 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0447 e003 | | Load 0x0,0x3
0448 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0449 0119 | | Execute Any,Check_In_Formal_Type
044a 4801 |H | Short_Literal 0x1
044b 00da | | Load_Top At_Offset_2
044c 01d6 | | Execute Vector,Field_Write
044d 6006 |` | Indirect_Literal Discrete,0x454,{0x00000000, 0x00008805}
044e e004 | | Load 0x0,0x4
044f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0450 e004 | | Load 0x0,0x4
0451 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0452 0257 | W | Execute Discrete,Raise
0453 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0454 0000 0000 | | .LITERAL {0x00000000, 0x00008805}
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045f | _ | .CONST 0x045f ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0002 | | .CONST 0x0002 ; Number of locals
045b INIT_0458:
045b e5fe | | Load 0x2,-0x2
045c e403 | | Load 0x2,0x3
045d e005 | | Load 0x0,0x5
045e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
045f BODY_0458:
045f 4800 |H | Short_Literal 0x0
0460 00d9 | | Load_Top At_Offset_1
0461 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0462 e004 | | Load 0x0,0x4
0463 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0464 7005 |p | Jump_Nonzero 0x46a
0465 00d8 | | Load_Top At_Offset_0
0466 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0467 a5fd | | Store_Unchecked 0x2,-0x3
0468 00cc | | Action Pop_Block
0469 4503 |E | Exit_Suprogram New_Top_Offset 0x3
046a e004 | | Load 0x0,0x4
046b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046c e5fe | | Load 0x2,-0x2
046d e403 | | Load 0x2,0x3
046e e005 | | Load 0x0,0x5
046f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0470 c5fd | | Store 0x2,-0x3
0471 4800 |H | Short_Literal 0x0
0472 e5fd | | Load 0x2,-0x3
0473 e004 | | Load 0x0,0x4
0474 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0475 7003 |p | Jump_Nonzero 0x479
0476 e004 | | Load 0x0,0x4
0477 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0478 0257 | W | Execute Discrete,Raise
0479 e5fe | | Load 0x2,-0x2
047a 4801 |H | Short_Literal 0x1
047b 4803 |H | Short_Literal 0x3
047c e003 | | Load 0x0,0x3
047d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
047e 035b | [ | Declare_Type Array,Constrained
047f 0337 | 7 | Declare_Variable Array
0480 e402 | | Load 0x2,0x2
0481 e002 | | Load 0x0,0x2
0482 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0483 e003 | | Load 0x0,0x3
0484 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0485 0119 | | Execute Any,Check_In_Formal_Type
0486 4801 |H | Short_Literal 0x1
0487 00da | | Load_Top At_Offset_2
0488 01d6 | | Execute Vector,Field_Write
0489 e5ff | | Load 0x2,-0x1
048a e003 | | Load 0x0,0x3
048b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
048c e003 | | Load 0x0,0x3
048d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048e 0119 | | Execute Any,Check_In_Formal_Type
048f 4802 |H | Short_Literal 0x2
0490 00da | | Load_Top At_Offset_2
0491 01d6 | | Execute Vector,Field_Write
0492 00da | | Load_Top At_Offset_2
0493 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0494 e003 | | Load 0x0,0x3
0495 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0496 e003 | | Load 0x0,0x3
0497 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0498 0119 | | Execute Any,Check_In_Formal_Type
0499 4803 |H | Short_Literal 0x3
049a 00da | | Load_Top At_Offset_2
049b 01d6 | | Execute Vector,Field_Write
049c 6003 |` | Indirect_Literal Discrete,0x4a0,{0x00000000, 0x00008862}
049d e004 | | Load 0x0,0x4
049e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
049f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a0 0000 0000 | | .LITERAL {0x00000000, 0x00008862}
04a4 ; --------------------------------------------------------------------------------------
04a4 ; STRING TABLE
04a4 ; --------------------------------------------------------------------------------------
04a4 0004 | | .STRTAB 0x0004->0x04a6 ; "<ALL_WORLDS>"
04a5 000e | | .STREND 0x000e->0x04ac
04a6 3c41 4c4c |<ALL| .STRTAB_STRINGS
04ac 0000 0000 | | .BLANK 0000[0x4]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug Table
04b0 ; --------------------------------------------------------------------------------------
04b0 0004 000d | | .DEBUG4 0x0004,0x000d,0xf6b2,0x0000,0x0001,0x0000
04b6 0000 0000 | | .XXX[0x21]
04b8 0002 6917 | i |
04ba 0110 a876 | v|
04bc 7200 0008 |r |
04be 38ad 2e30 |8 .0|
04c0 1000 c000 | |
04c2 b100 0000 | |
04c4 2b6a 0000 |+j |
04c6 0600 0001 | |
04c8 0700 2800 | ( |
04ca 0005 1000 | |
04cc 0002 0000 | |
04ce 0011 0000 | |
04d0 0000 0800 | |
04d2 0000 5200 | R |
04d4 0030 3095 | 00 |
04d6 6000 |` |
04d7 0000 0000 | | .BLANK 0000[0x1b]
04f2 4d22 e020 |M" | .XXX[0x2]
04f4 0000 0000 | | .BLANK 0000[0xd]
0501 0020 0500 | | .XXX[0xc]
0503 0000 0000 | |
0505 0000 4000 | @ |
0507 0002 2000 | |
0509 0000 0100 | |
050b 0000 0a00 | |
050d 0000 0000 | | .BLANK 0000[0x2d]
053a 0004 00a0 | | .XXX[0xc]
053c 0000 0000 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0140 | @|
0546 0000 0000 | | .BLANK 0000[0x2e]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]