|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0478 | x | .CONST 0x0478 ; 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 For_Outer_Call,Visible,Unelaborated,INIT_0038
000d 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
000f 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
0011 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
0013 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
0015 029a 02ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a8
0017 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
0019 00bf | | Action Accept_Activation
001a 029d 0373 | s| Declare_Subprogram For_Outer_Call,INIT_0370
001c 029d 0393 | | Declare_Subprogram For_Outer_Call,INIT_0390
001e 029d 03c3 | | Declare_Subprogram For_Outer_Call,INIT_03c0
0020 029d 03e3 | | Declare_Subprogram For_Outer_Call,INIT_03e0
0022 029d 03f3 | | Declare_Subprogram For_Outer_Call,INIT_03f0
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 60b2 |` | Indirect_Literal Discrete,0x104,{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 6819 |h | Jump_Zero 0x78
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 0334 | 4 | Declare_Variable Array,With_Constraint
0065 e5fd | | Load 0x2,-0x3
0066 e003 | | Load 0x0,0x3
0067 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0068 e003 | | Load 0x0,0x3
0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006a 0119 | | Execute Any,Check_In_Formal_Type
006b 4801 |H | Short_Literal 0x1
006c 00da | | Load_Top At_Offset_2
006d 01d6 | | Execute Vector,Field_Write
006e 6091 |` | Indirect_Literal Discrete,0x100,{0x00000000, 0x0000889c}
006f e004 | | Load 0x0,0x4
0070 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0071 e003 | | Load 0x0,0x3
0072 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0073 6088 |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00008882}
0074 e004 | | Load 0x0,0x4
0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0076 a5f9 | | Store_Unchecked 0x2,-0x7
0077 4507 |E | Exit_Subprogram 0x7
0078 e5fa | | Load 0x2,-0x6
0079 e5fd | | Load 0x2,-0x3
007a e402 | | Load 0x2,0x2
007b e005 | | Load 0x0,0x5
007c 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
007d 6819 |h | Jump_Zero 0x97
007e e5fa | | Load 0x2,-0x6
007f 4801 |H | Short_Literal 0x1
0080 4801 |H | Short_Literal 0x1
0081 e003 | | Load 0x0,0x3
0082 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0083 0334 | 4 | Declare_Variable Array,With_Constraint
0084 e402 | | Load 0x2,0x2
0085 e002 | | Load 0x0,0x2
0086 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0087 e003 | | Load 0x0,0x3
0088 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0089 0119 | | Execute Any,Check_In_Formal_Type
008a 4801 |H | Short_Literal 0x1
008b 00da | | Load_Top At_Offset_2
008c 01d6 | | Execute Vector,Field_Write
008d 606a |`j | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00008881}
008e e004 | | Load 0x0,0x4
008f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0090 e003 | | Load 0x0,0x3
0091 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0092 6069 |`i | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00008882}
0093 e004 | | Load 0x0,0x4
0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0095 a5f9 | | Store_Unchecked 0x2,-0x7
0096 4507 |E | Exit_Subprogram 0x7
0097 e5fa | | Load 0x2,-0x6
0098 00db | | Load_Top At_Offset_3
0099 e002 | | Load 0x0,0x2
009a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
009b 7015 |p | Jump_Nonzero 0xb1
009c e5fa | | Load 0x2,-0x6
009d 4801 |H | Short_Literal 0x1
009e 4801 |H | Short_Literal 0x1
009f e003 | | Load 0x0,0x3
00a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a1 0334 | 4 | Declare_Variable Array,With_Constraint
00a2 e402 | | Load 0x2,0x2
00a3 e002 | | Load 0x0,0x2
00a4 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00a5 e003 | | Load 0x0,0x3
00a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a7 0119 | | Execute Any,Check_In_Formal_Type
00a8 4801 |H | Short_Literal 0x1
00a9 00da | | Load_Top At_Offset_2
00aa 01d6 | | Execute Vector,Field_Write
00ab 6048 |`H | Indirect_Literal Discrete,0xf4,{0x00000000, 0x0000889a}
00ac e004 | | Load 0x0,0x4
00ad 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00ae e004 | | Load 0x0,0x4
00af 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b0 0257 | W | Execute Discrete,Raise
00b1 00da | | Load_Top At_Offset_2
00b2 8215 | | Call 0x1,0x15
00b3 6815 |h | Jump_Zero 0xc9
00b4 e5fa | | Load 0x2,-0x6
00b5 4801 |H | Short_Literal 0x1
00b6 4801 |H | Short_Literal 0x1
00b7 e003 | | Load 0x0,0x3
00b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b9 0334 | 4 | Declare_Variable Array,With_Constraint
00ba e402 | | Load 0x2,0x2
00bb e002 | | Load 0x0,0x2
00bc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00bd e003 | | Load 0x0,0x3
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf 0119 | | Execute Any,Check_In_Formal_Type
00c0 4801 |H | Short_Literal 0x1
00c1 00da | | Load_Top At_Offset_2
00c2 01d6 | | Execute Vector,Field_Write
00c3 602c |`, | Indirect_Literal Discrete,0xf0,{0x00000000, 0x0000889f}
00c4 e004 | | Load 0x0,0x4
00c5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00c6 e004 | | Load 0x0,0x4
00c7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c8 0257 | W | Execute Discrete,Raise
00c9 e5fa | | Load 0x2,-0x6
00ca 00db | | Load_Top At_Offset_3
00cb 8218 | | Call 0x1,0x18
00cc e004 | | Load 0x0,0x4
00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ce e5fa | | Load 0x2,-0x6
00cf e5fd | | Load 0x2,-0x3
00d0 e5fa | | Load 0x2,-0x6
00d1 4801 |H | Short_Literal 0x1
00d2 e402 | | Load 0x2,0x2
00d3 e002 | | Load 0x0,0x2
00d4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d5 e005 | | Load 0x0,0x5
00d6 1886 | | Execute Package,Field_Execute,Field_Number 0x86
00d7 c5f9 | | Store 0x2,-0x7
00d8 e5f9 | | Load 0x2,-0x7
00d9 6803 |h | Jump_Zero 0xdd
00da e004 | | Load 0x0,0x4
00db 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00dc 0257 | W | Execute Discrete,Raise
00dd e004 | | Load 0x0,0x4
00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00df e5fa | | Load 0x2,-0x6
00e0 e5fb | | Load 0x2,-0x5
00e1 e5fc | | Load 0x2,-0x4
00e2 e5fd | | Load 0x2,-0x3
00e3 e5fe | | Load 0x2,-0x2
00e4 e402 | | Load 0x2,0x2
00e5 e005 | | Load 0x0,0x5
00e6 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
00e7 c5f9 | | Store 0x2,-0x7
00e8 e5f9 | | Load 0x2,-0x7
00e9 6803 |h | Jump_Zero 0xed
00ea e004 | | Load 0x0,0x4
00eb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00ec 0257 | W | Execute Discrete,Raise
00ed 4507 |E | Exit_Subprogram 0x7
00ee 0000 0000 | | .XXX[0x2]
00f0 0000 0000 | | .LITERAL {0x00000000, 0x0000889f}
00f4 0000 0000 | | .LITERAL {0x00000000, 0x0000889a}
00f8 0000 0000 | | .LITERAL {0x00000000, 0x00008881}
00fc 0000 0000 | | .LITERAL {0x00000000, 0x00008882}
0100 0000 0000 | | .LITERAL {0x00000000, 0x0000889c}
0104 0000 0000 | | .LITERAL {0x00000000, 0x00008870}
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0129 | ) | .CONST 0x0129 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0009 | | .CONST 0x0009 ; Number of locals
010b INIT_0108:
010b e001 | | Load 0x0,0x1
010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010d 02c7 | | Declare_Variable Any
010e 00d8 | | Load_Top At_Offset_0
010f 1c00 | | Execute_Immediate Run_Utility,0x0
0110 e001 | | Load 0x0,0x1
0111 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0112 02c7 | | Declare_Variable Any
0113 00d8 | | Load_Top At_Offset_0
0114 1c00 | | Execute_Immediate Run_Utility,0x0
0115 e001 | | Load 0x0,0x1
0116 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0117 02c7 | | Declare_Variable Any
0118 00d8 | | Load_Top At_Offset_0
0119 1c00 | | Execute_Immediate Run_Utility,0x0
011a e001 | | Load 0x0,0x1
011b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011c 02c7 | | Declare_Variable Any
011d 00d8 | | Load_Top At_Offset_0
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f e001 | | Load 0x0,0x1
0120 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0121 02c7 | | Declare_Variable Any
0122 00d8 | | Load_Top At_Offset_0
0123 1c00 | | Execute_Immediate Run_Utility,0x0
0124 00e1 | | Load_Encached Boolean_Cache
0125 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0126 00e2 | | Load_Encached Integer_Cache
0127 029f 042b | +| Declare_Subprogram For_Call,INIT_0428
0129 BODY_0108:
0129 e5fe | | Load 0x2,-0x2
012a 4801 |H | Short_Literal 0x1
012b e5ff | | Load 0x2,-0x1
012c e002 | | Load 0x0,0x2
012d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
012e c403 | | Store 0x2,0x3
012f 00db | | Load_Top At_Offset_3
0130 e5fe | | Load 0x2,-0x2
0131 e403 | | Load 0x2,0x3
0132 8217 | | Call 0x1,0x17
0133 c406 | | Store 0x2,0x6
0134 e004 | | Load 0x0,0x4
0135 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0136 00e2 | | Load_Encached Integer_Cache
0137 e402 | | Load 0x2,0x2
0138 0120 | | Execute Any,Is_Value
0139 6803 |h | Jump_Zero 0x13d
013a e001 | | Load 0x0,0x1
013b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013c 7801 |x | Jump 0x13e
013d e402 | | Load 0x2,0x2
013e e5fe | | Load 0x2,-0x2
013f e403 | | Load 0x2,0x3
0140 e005 | | Load 0x0,0x5
0141 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0142 c402 | | Store 0x2,0x2
0143 005b | [ | Store_Top Discrete,At_Offset_3
0144 c5fd | | Store 0x2,-0x3
0145 e5fd | | Load 0x2,-0x3
0146 6803 |h | Jump_Zero 0x14a
0147 e004 | | Load 0x0,0x4
0148 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0149 0257 | W | Execute Discrete,Raise
014a e5fe | | Load 0x2,-0x2
014b e402 | | Load 0x2,0x2
014c e002 | | Load 0x0,0x2
014d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
014e 7015 |p | Jump_Nonzero 0x164
014f e5fe | | Load 0x2,-0x2
0150 4801 |H | Short_Literal 0x1
0151 4801 |H | Short_Literal 0x1
0152 e003 | | Load 0x0,0x3
0153 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0154 0334 | 4 | Declare_Variable Array,With_Constraint
0155 e402 | | Load 0x2,0x2
0156 e002 | | Load 0x0,0x2
0157 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0158 e003 | | Load 0x0,0x3
0159 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015a 0119 | | Execute Any,Check_In_Formal_Type
015b 4801 |H | Short_Literal 0x1
015c 00da | | Load_Top At_Offset_2
015d 01d6 | | Execute Vector,Field_Write
015e 6795 |g | Indirect_Literal Discrete,0xf4,{0x00000000, 0x0000889a}
015f e004 | | Load 0x0,0x4
0160 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0161 e004 | | Load 0x0,0x4
0162 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0163 0257 | W | Execute Discrete,Raise
0164 e5fe | | Load 0x2,-0x2
0165 e402 | | Load 0x2,0x2
0166 8218 | | Call 0x1,0x18
0167 8409 | | Call 0x2,0x9
0168 4503 |E | Exit_Subprogram 0x3
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 018d | | .CONST 0x018d ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0006 | | .CONST 0x0006 ; Number of locals
0173 INIT_0170:
0173 e001 | | Load 0x0,0x1
0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0175 02c7 | | Declare_Variable Any
0176 00d8 | | Load_Top At_Offset_0
0177 1c00 | | Execute_Immediate Run_Utility,0x0
0178 e001 | | Load 0x0,0x1
0179 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017a 02c7 | | Declare_Variable Any
017b 00d8 | | Load_Top At_Offset_0
017c 1c00 | | Execute_Immediate Run_Utility,0x0
017d e001 | | Load 0x0,0x1
017e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017f 02c7 | | Declare_Variable Any
0180 00d8 | | Load_Top At_Offset_0
0181 1c00 | | Execute_Immediate Run_Utility,0x0
0182 e001 | | Load 0x0,0x1
0183 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0184 02c7 | | Declare_Variable Any
0185 00d8 | | Load_Top At_Offset_0
0186 1c00 | | Execute_Immediate Run_Utility,0x0
0187 e001 | | Load 0x0,0x1
0188 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0189 1b18 | | Execute Package,Field_Read,Field_Number 0x18
018a 02c7 | | Declare_Variable Any
018b 00d8 | | Load_Top At_Offset_0
018c 1c00 | | Execute_Immediate Run_Utility,0x0
018d BODY_0170:
018d e5fe | | Load 0x2,-0x2
018e 4800 |H | Short_Literal 0x0
018f e5ff | | Load 0x2,-0x1
0190 e002 | | Load 0x0,0x2
0191 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0192 c406 | | Store 0x2,0x6
0193 e5fe | | Load 0x2,-0x2
0194 e5ff | | Load 0x2,-0x1
0195 00da | | Load_Top At_Offset_2
0196 602d |`- | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x0000882b}
0197 8216 | | Call 0x1,0x16
0198 00cf | | Action Mark_Auxiliary
0199 781e |x | Jump 0x1b8
019a e5fe | | Load 0x2,-0x2
019b 4801 |H | Short_Literal 0x1
019c 00db | | Load_Top At_Offset_3
019d e002 | | Load 0x0,0x2
019e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
019f c402 | | Store 0x2,0x2
01a0 e402 | | Load 0x2,0x2
01a1 c404 | | Store 0x2,0x4
01a2 e5fe | | Load 0x2,-0x2
01a3 601c |` | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x00008870}
01a4 e404 | | Load 0x2,0x4
01a5 8214 | | Call 0x1,0x14
01a6 e004 | | Load 0x0,0x4
01a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a8 e5fe | | Load 0x2,-0x2
01a9 e402 | | Load 0x2,0x2
01aa e005 | | Load 0x0,0x5
01ab 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
01ac c5fd | | Store 0x2,-0x3
01ad e5fd | | Load 0x2,-0x3
01ae 6803 |h | Jump_Zero 0x1b2
01af e004 | | Load 0x0,0x4
01b0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01b1 0257 | W | Execute Discrete,Raise
01b2 00d9 | | Load_Top At_Offset_1
01b3 e001 | | Load 0x0,0x1
01b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01b5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b6 c406 | | Store 0x2,0x6
01b7 00c9 | | Action Pop_Auxiliary_Loop
01b8 00d9 | | Load_Top At_Offset_1
01b9 e001 | | Load 0x0,0x1
01ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01bb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01bc 6fdd |o | Jump_Zero 0x19a
01bd 4503 |E | Exit_Subprogram 0x3
01be 0000 0000 | | .XXX[0x2]
01c0 0000 0000 | | .LITERAL {0x00000000, 0x00008870}
01c4 0000 0000 | | .LITERAL {0x00000000, 0x0000882b}
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01e0 | | .CONST 0x01e0 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0006 | | .CONST 0x0006 ; Number of locals
01cb INIT_01c8:
01cb e001 | | Load 0x0,0x1
01cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cd 02c7 | | Declare_Variable Any
01ce 00d8 | | Load_Top At_Offset_0
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 e001 | | Load 0x0,0x1
01d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d2 02c7 | | Declare_Variable Any
01d3 00d8 | | Load_Top At_Offset_0
01d4 1c00 | | Execute_Immediate Run_Utility,0x0
01d5 00e2 | | Load_Encached Integer_Cache
01d6 e001 | | Load 0x0,0x1
01d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d8 02c7 | | Declare_Variable Any
01d9 00d8 | | Load_Top At_Offset_0
01da 1c00 | | Execute_Immediate Run_Utility,0x0
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 BODY_01c8:
01e0 e5fc | | Load 0x2,-0x4
01e1 4801 |H | Short_Literal 0x1
01e2 e5ff | | Load 0x2,-0x1
01e3 e002 | | Load 0x0,0x2
01e4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e5 c403 | | Store 0x2,0x3
01e6 e004 | | Load 0x0,0x4
01e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e8 00e2 | | Load_Encached Integer_Cache
01e9 e402 | | Load 0x2,0x2
01ea 0120 | | Execute Any,Is_Value
01eb 6803 |h | Jump_Zero 0x1ef
01ec e001 | | Load 0x0,0x1
01ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ee 7801 |x | Jump 0x1f0
01ef e402 | | Load 0x2,0x2
01f0 e5fc | | Load 0x2,-0x4
01f1 e403 | | Load 0x2,0x3
01f2 e005 | | Load 0x0,0x5
01f3 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
01f4 c402 | | Store 0x2,0x2
01f5 c404 | | Store 0x2,0x4
01f6 c5fb | | Store 0x2,-0x5
01f7 e5fb | | Load 0x2,-0x5
01f8 6803 |h | Jump_Zero 0x1fc
01f9 e004 | | Load 0x0,0x4
01fa 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01fb 0257 | W | Execute Discrete,Raise
01fc e004 | | Load 0x0,0x4
01fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fe 00da | | Load_Top At_Offset_2
01ff 0120 | | Execute Any,Is_Value
0200 6803 |h | Jump_Zero 0x204
0201 e001 | | Load 0x0,0x1
0202 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0203 7801 |x | Jump 0x205
0204 00da | | Load_Top At_Offset_2
0205 e5fc | | Load 0x2,-0x4
0206 e403 | | Load 0x2,0x3
0207 e005 | | Load 0x0,0x5
0208 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0209 c405 | | Store 0x2,0x5
020a c5fb | | Store 0x2,-0x5
020b e5fb | | Load 0x2,-0x5
020c 6803 |h | Jump_Zero 0x210
020d e004 | | Load 0x0,0x4
020e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
020f 0257 | W | Execute Discrete,Raise
0210 e5fc | | Load 0x2,-0x4
0211 00da | | Load_Top At_Offset_2
0212 e002 | | Load 0x0,0x2
0213 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0214 7019 |p | Jump_Nonzero 0x22e
0215 e5fc | | Load 0x2,-0x4
0216 4801 |H | Short_Literal 0x1
0217 4801 |H | Short_Literal 0x1
0218 e003 | | Load 0x0,0x3
0219 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021a 0334 | 4 | Declare_Variable Array,With_Constraint
021b 00db | | Load_Top At_Offset_3
021c e002 | | Load 0x0,0x2
021d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
021e e003 | | Load 0x0,0x3
021f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0220 0119 | | Execute Any,Check_In_Formal_Type
0221 4801 |H | Short_Literal 0x1
0222 00da | | Load_Top At_Offset_2
0223 01d6 | | Execute Vector,Field_Write
0224 602b |`+ | Indirect_Literal Discrete,0x250,{0x00000000, 0x0000889b}
0225 e004 | | Load 0x0,0x4
0226 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0227 e003 | | Load 0x0,0x3
0228 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0229 6022 |`" | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00008883}
022a e004 | | Load 0x0,0x4
022b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022c a5fb | | Store_Unchecked 0x2,-0x5
022d 4505 |E | Exit_Subprogram 0x5
022e 00d8 | | Load_Top At_Offset_0
022f e5fc | | Load 0x2,-0x4
0230 e403 | | Load 0x2,0x3
0231 8217 | | Call 0x1,0x17
0232 c406 | | Store 0x2,0x6
0233 e5fc | | Load 0x2,-0x4
0234 e402 | | Load 0x2,0x2
0235 8218 | | Call 0x1,0x18
0236 e004 | | Load 0x0,0x4
0237 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0238 e5fc | | Load 0x2,-0x4
0239 00db | | Load_Top At_Offset_3
023a e005 | | Load 0x0,0x5
023b 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
023c c5fb | | Store 0x2,-0x5
023d e5fb | | Load 0x2,-0x5
023e 6803 |h | Jump_Zero 0x242
023f e004 | | Load 0x0,0x4
0240 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0241 0257 | W | Execute Discrete,Raise
0242 e5fd | | Load 0x2,-0x3
0243 e5fe | | Load 0x2,-0x2
0244 00db | | Load_Top At_Offset_3
0245 e002 | | Load 0x0,0x2
0246 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0247 e006 | | Load 0x0,0x6
0248 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0249 4505 |E | Exit_Subprogram 0x5
024a 0000 0000 | | .XXX[0x2]
024c 0000 0000 | | .LITERAL {0x00000000, 0x00008883}
0250 0000 0000 | | .LITERAL {0x00000000, 0x0000889b}
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0265 | e | .CONST 0x0265 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0003 | | .CONST 0x0003 ; Number of locals
025b INIT_0258:
025b e001 | | Load 0x0,0x1
025c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025d 02c7 | | Declare_Variable Any
025e 00d8 | | Load_Top At_Offset_0
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 e001 | | Load 0x0,0x1
0261 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0262 02c7 | | Declare_Variable Any
0263 00d8 | | Load_Top At_Offset_0
0264 1c00 | | Execute_Immediate Run_Utility,0x0
0265 BODY_0258:
0265 e5fd | | Load 0x2,-0x3
0266 4801 |H | Short_Literal 0x1
0267 e5ff | | Load 0x2,-0x1
0268 e002 | | Load 0x0,0x2
0269 181a | | Execute Package,Field_Execute,Field_Number 0x1a
026a c402 | | Store 0x2,0x2
026b e5fd | | Load 0x2,-0x3
026c 6037 |`7 | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x00008870}
026d 00db | | Load_Top At_Offset_3
026e 8214 | | Call 0x1,0x14
026f 00d8 | | Load_Top At_Offset_0
0270 e5fd | | Load 0x2,-0x3
0271 00db | | Load_Top At_Offset_3
0272 8217 | | Call 0x1,0x17
0273 c403 | | Store 0x2,0x3
0274 e5fd | | Load 0x2,-0x3
0275 00da | | Load_Top At_Offset_2
0276 e002 | | Load 0x0,0x2
0277 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0278 7015 |p | Jump_Nonzero 0x28e
0279 e5fd | | Load 0x2,-0x3
027a 4801 |H | Short_Literal 0x1
027b 4801 |H | Short_Literal 0x1
027c e003 | | Load 0x0,0x3
027d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
027e 0334 | 4 | Declare_Variable Array,With_Constraint
027f 00db | | Load_Top At_Offset_3
0280 e002 | | Load 0x0,0x2
0281 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0282 e003 | | Load 0x0,0x3
0283 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0284 0119 | | Execute Any,Check_In_Formal_Type
0285 4801 |H | Short_Literal 0x1
0286 00da | | Load_Top At_Offset_2
0287 01d6 | | Execute Vector,Field_Write
0288 6017 |` | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0000889a}
0289 e004 | | Load 0x0,0x4
028a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
028b e004 | | Load 0x0,0x4
028c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
028d 0257 | W | Execute Discrete,Raise
028e e5fd | | Load 0x2,-0x3
028f 00da | | Load_Top At_Offset_2
0290 8218 | | Call 0x1,0x18
0291 e004 | | Load 0x0,0x4
0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0293 e5fd | | Load 0x2,-0x3
0294 e5fe | | Load 0x2,-0x2
0295 e402 | | Load 0x2,0x2
0296 e005 | | Load 0x0,0x5
0297 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
0298 c5fc | | Store 0x2,-0x4
0299 e5fc | | Load 0x2,-0x4
029a 6803 |h | Jump_Zero 0x29e
029b e004 | | Load 0x0,0x4
029c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
029d 0257 | W | Execute Discrete,Raise
029e 4504 |E | Exit_Subprogram 0x4
029f 0000 | | .XXX[0x1]
02a0 0000 0000 | | .LITERAL {0x00000000, 0x0000889a}
02a4 0000 0000 | | .LITERAL {0x00000000, 0x00008870}
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02bb | | .CONST 0x02bb ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0005 | | .CONST 0x0005 ; Number of locals
02ab INIT_02a8:
02ab e001 | | Load 0x0,0x1
02ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ad 02c7 | | Declare_Variable Any
02ae 00d8 | | Load_Top At_Offset_0
02af 1c00 | | Execute_Immediate Run_Utility,0x0
02b0 e001 | | Load 0x0,0x1
02b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b2 02c7 | | Declare_Variable Any
02b3 00d8 | | Load_Top At_Offset_0
02b4 1c00 | | Execute_Immediate Run_Utility,0x0
02b5 00e2 | | Load_Encached Integer_Cache
02b6 e001 | | Load 0x0,0x1
02b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b8 02c7 | | Declare_Variable Any
02b9 00d8 | | Load_Top At_Offset_0
02ba 1c00 | | Execute_Immediate Run_Utility,0x0
02bb BODY_02a8:
02bb e5fd | | Load 0x2,-0x3
02bc 4801 |H | Short_Literal 0x1
02bd e5fe | | Load 0x2,-0x2
02be e002 | | Load 0x0,0x2
02bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02c0 c403 | | Store 0x2,0x3
02c1 e004 | | Load 0x0,0x4
02c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c3 00e2 | | Load_Encached Integer_Cache
02c4 e402 | | Load 0x2,0x2
02c5 0120 | | Execute Any,Is_Value
02c6 6803 |h | Jump_Zero 0x2ca
02c7 e001 | | Load 0x0,0x1
02c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c9 7801 |x | Jump 0x2cb
02ca e402 | | Load 0x2,0x2
02cb e5fd | | Load 0x2,-0x3
02cc e403 | | Load 0x2,0x3
02cd e005 | | Load 0x0,0x5
02ce 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
02cf c402 | | Store 0x2,0x2
02d0 005b | [ | Store_Top Discrete,At_Offset_3
02d1 c5fc | | Store 0x2,-0x4
02d2 e5fc | | Load 0x2,-0x4
02d3 6803 |h | Jump_Zero 0x2d7
02d4 e004 | | Load 0x0,0x4
02d5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02d6 0257 | W | Execute Discrete,Raise
02d7 00d8 | | Load_Top At_Offset_0
02d8 e5fd | | Load 0x2,-0x3
02d9 e403 | | Load 0x2,0x3
02da 8217 | | Call 0x1,0x17
02db c405 | | Store 0x2,0x5
02dc e5fd | | Load 0x2,-0x3
02dd e402 | | Load 0x2,0x2
02de e002 | | Load 0x0,0x2
02df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02e0 7015 |p | Jump_Nonzero 0x2f6
02e1 e5fd | | Load 0x2,-0x3
02e2 4801 |H | Short_Literal 0x1
02e3 4801 |H | Short_Literal 0x1
02e4 e003 | | Load 0x0,0x3
02e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02e6 0334 | 4 | Declare_Variable Array,With_Constraint
02e7 e402 | | Load 0x2,0x2
02e8 e002 | | Load 0x0,0x2
02e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02ea e003 | | Load 0x0,0x3
02eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ec 0119 | | Execute Any,Check_In_Formal_Type
02ed 4801 |H | Short_Literal 0x1
02ee 00da | | Load_Top At_Offset_2
02ef 01d6 | | Execute Vector,Field_Write
02f0 67af |g | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x0000889a}
02f1 e004 | | Load 0x0,0x4
02f2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02f3 e004 | | Load 0x0,0x4
02f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02f5 0257 | W | Execute Discrete,Raise
02f6 e5fd | | Load 0x2,-0x3
02f7 e402 | | Load 0x2,0x2
02f8 8218 | | Call 0x1,0x18
02f9 e004 | | Load 0x0,0x4
02fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fb e5fd | | Load 0x2,-0x3
02fc e5ff | | Load 0x2,-0x1
02fd e403 | | Load 0x2,0x3
02fe e005 | | Load 0x0,0x5
02ff 186d | m | Execute Package,Field_Execute,Field_Number 0x6d
0300 c5fc | | Store 0x2,-0x4
0301 e5fc | | Load 0x2,-0x4
0302 6803 |h | Jump_Zero 0x306
0303 e004 | | Load 0x0,0x4
0304 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0305 0257 | W | Execute Discrete,Raise
0306 4504 |E | Exit_Subprogram 0x4
0307 0000 | | .XXX[0x1]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 031b | | .CONST 0x031b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0005 | | .CONST 0x0005 ; Number of locals
030b INIT_0308:
030b e001 | | Load 0x0,0x1
030c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
030d 02c7 | | Declare_Variable Any
030e 00d8 | | Load_Top At_Offset_0
030f 1c00 | | Execute_Immediate Run_Utility,0x0
0310 e001 | | Load 0x0,0x1
0311 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0312 02c7 | | Declare_Variable Any
0313 00d8 | | Load_Top At_Offset_0
0314 1c00 | | Execute_Immediate Run_Utility,0x0
0315 00e2 | | Load_Encached Integer_Cache
0316 e001 | | Load 0x0,0x1
0317 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0318 02c7 | | Declare_Variable Any
0319 00d8 | | Load_Top At_Offset_0
031a 1c00 | | Execute_Immediate Run_Utility,0x0
031b BODY_0308:
031b e5fd | | Load 0x2,-0x3
031c 4801 |H | Short_Literal 0x1
031d e5fe | | Load 0x2,-0x2
031e e002 | | Load 0x0,0x2
031f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0320 c403 | | Store 0x2,0x3
0321 e004 | | Load 0x0,0x4
0322 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0323 00e2 | | Load_Encached Integer_Cache
0324 e402 | | Load 0x2,0x2
0325 0120 | | Execute Any,Is_Value
0326 6803 |h | Jump_Zero 0x32a
0327 e001 | | Load 0x0,0x1
0328 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0329 7801 |x | Jump 0x32b
032a e402 | | Load 0x2,0x2
032b e5fd | | Load 0x2,-0x3
032c e403 | | Load 0x2,0x3
032d e005 | | Load 0x0,0x5
032e 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
032f c402 | | Store 0x2,0x2
0330 005b | [ | Store_Top Discrete,At_Offset_3
0331 c5fc | | Store 0x2,-0x4
0332 e5fc | | Load 0x2,-0x4
0333 6803 |h | Jump_Zero 0x337
0334 e004 | | Load 0x0,0x4
0335 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0336 0257 | W | Execute Discrete,Raise
0337 00d8 | | Load_Top At_Offset_0
0338 e5fd | | Load 0x2,-0x3
0339 e403 | | Load 0x2,0x3
033a 8217 | | Call 0x1,0x17
033b c405 | | Store 0x2,0x5
033c e5fd | | Load 0x2,-0x3
033d e402 | | Load 0x2,0x2
033e e002 | | Load 0x0,0x2
033f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0340 7015 |p | Jump_Nonzero 0x356
0341 e5fd | | Load 0x2,-0x3
0342 4801 |H | Short_Literal 0x1
0343 4801 |H | Short_Literal 0x1
0344 e003 | | Load 0x0,0x3
0345 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0346 0334 | 4 | Declare_Variable Array,With_Constraint
0347 e402 | | Load 0x2,0x2
0348 e002 | | Load 0x0,0x2
0349 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
034a e003 | | Load 0x0,0x3
034b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034c 0119 | | Execute Any,Check_In_Formal_Type
034d 4801 |H | Short_Literal 0x1
034e 00da | | Load_Top At_Offset_2
034f 01d6 | | Execute Vector,Field_Write
0350 6017 |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x0000889a}
0351 e004 | | Load 0x0,0x4
0352 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0353 e004 | | Load 0x0,0x4
0354 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0355 0257 | W | Execute Discrete,Raise
0356 e5fd | | Load 0x2,-0x3
0357 e402 | | Load 0x2,0x2
0358 8218 | | Call 0x1,0x18
0359 e004 | | Load 0x0,0x4
035a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035b e5fd | | Load 0x2,-0x3
035c e5ff | | Load 0x2,-0x1
035d e403 | | Load 0x2,0x3
035e e005 | | Load 0x0,0x5
035f 186e | n | Execute Package,Field_Execute,Field_Number 0x6e
0360 c5fc | | Store 0x2,-0x4
0361 e5fc | | Load 0x2,-0x4
0362 6803 |h | Jump_Zero 0x366
0363 e004 | | Load 0x0,0x4
0364 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0365 0257 | W | Execute Discrete,Raise
0366 4504 |E | Exit_Subprogram 0x4
0367 0000 | | .XXX[0x1]
0368 0000 0000 | | .LITERAL {0x00000000, 0x0000889a}
036c 0000 0000 | | .BLANK 0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 e002 | | Load 0x0,0x2
0375 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0376 7015 |p | Jump_Nonzero 0x38c
0377 e5fd | | Load 0x2,-0x3
0378 4801 |H | Short_Literal 0x1
0379 4801 |H | Short_Literal 0x1
037a e003 | | Load 0x0,0x3
037b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
037c 0334 | 4 | Declare_Variable Array,With_Constraint
037d e5ff | | Load 0x2,-0x1
037e e002 | | Load 0x0,0x2
037f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0380 e003 | | Load 0x0,0x3
0381 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0382 0119 | | Execute Any,Check_In_Formal_Type
0383 4801 |H | Short_Literal 0x1
0384 00da | | Load_Top At_Offset_2
0385 01d6 | | Execute Vector,Field_Write
0386 e5fe | | Load 0x2,-0x2
0387 e004 | | Load 0x0,0x4
0388 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0389 e004 | | Load 0x0,0x4
038a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
038b 0257 | W | Execute Discrete,Raise
038c 4504 |E | Exit_Subprogram 0x4
038d 0000 0000 | | .XXX[0x3]
038f 0000 | |
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 039b | | .CONST 0x039b ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0003 | | .CONST 0x0003 ; Number of locals
0393 INIT_0390:
0393 e001 | | Load 0x0,0x1
0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0395 e001 | | Load 0x0,0x1
0396 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0397 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0398 02c7 | | Declare_Variable Any
0399 00d8 | | Load_Top At_Offset_0
039a 1c00 | | Execute_Immediate Run_Utility,0x0
039b BODY_0390:
039b e001 | | Load 0x0,0x1
039c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039d 00d9 | | Load_Top At_Offset_1
039e 0120 | | Execute Any,Is_Value
039f 6804 |h | Jump_Zero 0x3a4
03a0 e001 | | Load 0x0,0x1
03a1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a3 7801 |x | Jump 0x3a5
03a4 00d9 | | Load_Top At_Offset_1
03a5 e5ff | | Load 0x2,-0x1
03a6 e001 | | Load 0x0,0x1
03a7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03a8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03a9 c403 | | Store 0x2,0x3
03aa 005a | Z | Store_Top Discrete,At_Offset_2
03ab 00d9 | | Load_Top At_Offset_1
03ac 6803 |h | Jump_Zero 0x3b0
03ad e004 | | Load 0x0,0x4
03ae 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03af 0257 | W | Execute Discrete,Raise
03b0 00d8 | | Load_Top At_Offset_0
03b1 e001 | | Load 0x0,0x1
03b2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
03b3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03b4 e002 | | Load 0x0,0x2
03b5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
03b6 6802 |h | Jump_Zero 0x3b9
03b7 4801 |H | Short_Literal 0x1
03b8 4401 |D | Exit_Subprogram With_Result,0x1
03b9 4800 |H | Short_Literal 0x0
03ba 4401 |D | Exit_Subprogram With_Result,0x1
03bb 0000 0000 | | .BLANK 0000[0x5]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00db | | Load_Top At_Offset_3
03c4 e001 | | Load 0x0,0x1
03c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03c7 6815 |h | Jump_Zero 0x3dd
03c8 e5fc | | Load 0x2,-0x4
03c9 4801 |H | Short_Literal 0x1
03ca 4801 |H | Short_Literal 0x1
03cb e003 | | Load 0x0,0x3
03cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03cd 0334 | 4 | Declare_Variable Array,With_Constraint
03ce e5fd | | Load 0x2,-0x3
03cf e003 | | Load 0x0,0x3
03d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d1 e003 | | Load 0x0,0x3
03d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d3 0119 | | Execute Any,Check_In_Formal_Type
03d4 4801 |H | Short_Literal 0x1
03d5 00da | | Load_Top At_Offset_2
03d6 01d6 | | Execute Vector,Field_Write
03d7 e5ff | | Load 0x2,-0x1
03d8 e004 | | Load 0x0,0x4
03d9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03da e004 | | Load 0x0,0x4
03db 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03dc 0257 | W | Execute Discrete,Raise
03dd 4505 |E | Exit_Subprogram 0x5
03de 0000 0000 | | .XXX[0x2]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00db | | Load_Top At_Offset_3
03e4 4801 |H | Short_Literal 0x1
03e5 e5ff | | Load 0x2,-0x1
03e6 e002 | | Load 0x0,0x2
03e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03e8 c5fd | | Store 0x2,-0x3
03e9 00db | | Load_Top At_Offset_3
03ea e5fd | | Load 0x2,-0x3
03eb e007 | | Load 0x0,0x7
03ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ed 4503 |E | Exit_Subprogram 0x3
03ee 0000 0000 | | .XXX[0x2]
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 e008 | | Load 0x0,0x8
03f5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f6 682b |h+ | Jump_Zero 0x422
03f7 4801 |H | Short_Literal 0x1
03f8 4801 |H | Short_Literal 0x1
03f9 4800 |H | Short_Literal 0x0
03fa 4801 |H | Short_Literal 0x1
03fb e5fe | | Load 0x2,-0x2
03fc e002 | | Load 0x0,0x2
03fd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03fe e009 | | Load 0x0,0x9
03ff 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0400 4800 |H | Short_Literal 0x0
0401 0092 0470 | p| Action Push_String_Extended,0x470 ; "<ALL_WORLDS>"
0403 4802 |H | Short_Literal 0x2
0404 e5ff | | Load 0x2,-0x1
0405 e002 | | Load 0x0,0x2
0406 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0407 e00a | | Load 0x0,0xa
0408 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0409 00da | | Load_Top At_Offset_2
040a e008 | | Load 0x0,0x8
040b 180e | | Execute Package,Field_Execute,Field_Number 0xe
040c 6815 |h | Jump_Zero 0x422
040d 00db | | Load_Top At_Offset_3
040e 4801 |H | Short_Literal 0x1
040f 4801 |H | Short_Literal 0x1
0410 e003 | | Load 0x0,0x3
0411 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0412 0334 | 4 | Declare_Variable Array,With_Constraint
0413 e5ff | | Load 0x2,-0x1
0414 e002 | | Load 0x0,0x2
0415 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0416 e003 | | Load 0x0,0x3
0417 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0418 0119 | | Execute Any,Check_In_Formal_Type
0419 4801 |H | Short_Literal 0x1
041a 00da | | Load_Top At_Offset_2
041b 01d6 | | Execute Vector,Field_Write
041c 6007 |` | Indirect_Literal Discrete,0x424,{0x00000000, 0x00008805}
041d e004 | | Load 0x0,0x4
041e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
041f e004 | | Load 0x0,0x4
0420 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0421 0257 | W | Execute Discrete,Raise
0422 4503 |E | Exit_Subprogram 0x3
0423 0000 | | .XXX[0x1]
0424 0000 0000 | | .LITERAL {0x00000000, 0x00008805}
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042f | / | .CONST 0x042f ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b e5fe | | Load 0x2,-0x2
042c e403 | | Load 0x2,0x3
042d e005 | | Load 0x0,0x5
042e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
042f BODY_0428:
042f 00d8 | | Load_Top At_Offset_0
0430 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0431 6805 |h | Jump_Zero 0x437
0432 00d8 | | Load_Top At_Offset_0
0433 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0434 a5fd | | Store_Unchecked 0x2,-0x3
0435 00cc | | Action Pop_Block
0436 4503 |E | Exit_Subprogram 0x3
0437 e004 | | Load 0x0,0x4
0438 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0439 e5fe | | Load 0x2,-0x2
043a e403 | | Load 0x2,0x3
043b e005 | | Load 0x0,0x5
043c 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
043d c5fd | | Store 0x2,-0x3
043e e5fd | | Load 0x2,-0x3
043f 6803 |h | Jump_Zero 0x443
0440 e004 | | Load 0x0,0x4
0441 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0442 0257 | W | Execute Discrete,Raise
0443 e5fe | | Load 0x2,-0x2
0444 4801 |H | Short_Literal 0x1
0445 4803 |H | Short_Literal 0x3
0446 e003 | | Load 0x0,0x3
0447 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0448 0334 | 4 | Declare_Variable Array,With_Constraint
0449 e402 | | Load 0x2,0x2
044a e002 | | Load 0x0,0x2
044b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
044c e003 | | Load 0x0,0x3
044d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044e 0119 | | Execute Any,Check_In_Formal_Type
044f 4801 |H | Short_Literal 0x1
0450 00da | | Load_Top At_Offset_2
0451 01d6 | | Execute Vector,Field_Write
0452 e5ff | | Load 0x2,-0x1
0453 e003 | | Load 0x0,0x3
0454 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0455 e003 | | Load 0x0,0x3
0456 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0457 0119 | | Execute Any,Check_In_Formal_Type
0458 4802 |H | Short_Literal 0x2
0459 00da | | Load_Top At_Offset_2
045a 01d6 | | Execute Vector,Field_Write
045b 00da | | Load_Top At_Offset_2
045c 2503 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x3
045d e003 | | Load 0x0,0x3
045e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
045f e003 | | Load 0x0,0x3
0460 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0461 0119 | | Execute Any,Check_In_Formal_Type
0462 4803 |H | Short_Literal 0x3
0463 00da | | Load_Top At_Offset_2
0464 01d6 | | Execute Vector,Field_Write
0465 6006 |` | Indirect_Literal Discrete,0x46c,{0x00000000, 0x00008862}
0466 e004 | | Load 0x0,0x4
0467 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0468 4501 |E | Exit_Subprogram 0x1
0469 0000 0000 | | .XXX[0x3]
046b 0000 | |
046c 0000 0000 | | .LITERAL {0x00000000, 0x00008862}
0470 ; --------------------------------------------------------------------------------------
0470 ; STRING TABLE
0470 ; --------------------------------------------------------------------------------------
0470 0004 | | .STRTAB 0x0004->0x0472 ; "<ALL_WORLDS>"
0471 000e | | .STREND 0x000e->0x0478
0472 3c41 4c4c |<ALL| .STRTAB_STRINGS
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug Table
0478 ; --------------------------------------------------------------------------------------
0478 0004 000c | | .DEBUG4 0x0004,0x000c,0x1698,0x0000,0x0001,0x0000
047e e60c e60f | | .XXX[0x182]
0480 1b0e 00da | |
0482 e60f 1927 | '|
0484 e60f 1936 | 6|
0486 e60f 1b13 | |
0488 e62e 1923 | . #|
048a e60f 1b12 | |
048c e62e 1918 | . |
048e e62e 1926 | . &|
0490 e62e 1928 | . (|
0492 e62e 1929 | . )|
0494 e60f 193b | ;|
0496 e60f 1921 | !|
0498 e60f 1924 | $|
049a e60f 1922 | "|
049c e60f 1923 | #|
049e e62e 1b0d | . |
04a0 e622 4813 | "H |
04a2 e633 020e | 3 |
04a4 00d9 020f | |
04a6 4800 00a2 |H |
04a8 21a4 02a0 |! |
04aa 038e 4801 | H |
04ac 4800 00e5 |H |
04ae 02a0 4801 | H |
04b0 035d 0337 | ] 7|
04b2 4801 00da |H |
04b4 020e 0387 | |
04b6 e62e 1b2e | . .|
04b8 e62e 191b | . |
04ba e60f 192c | ,|
04bc e62e 1912 | . |
04be e62e 1913 | . |
04c0 e62e 1914 | . |
04c2 e62e 192c | . ,|
04c4 e60f 1b13 | |
04c6 e60f 1b55 | U|
04c8 e611 e625 | %|
04ca e622 e610 | " |
04cc e62e 192d | . -|
04ce e60c e60f | |
04d0 1b4e e60f | N |
04d2 1936 e60f | 6 |
04d4 1b12 e633 | 3|
04d6 1918 e62e | .|
04d8 191e e62e | .|
04da 1916 e62e | .|
04dc 191f e633 | 3|
04de 1910 e62e | .|
04e0 1920 e633 | 3|
04e2 1911 e62e | .|
04e4 1927 e62e | ' .|
04e6 1917 e60f | |
04e8 1934 481c | 4H |
04ea e635 020e | 5 |
04ec 00d8 020f | |
04ee 00a2 21a0 | ! |
04f0 e002 e001 | |
04f2 1835 4800 | 5H |
04f4 00a2 219c | ! |
04f6 02a0 038e | |
04f8 4801 4800 |H H |
04fa 00e5 02a0 | |
04fc 4801 035d |H ]|
04fe 0337 4801 | 7H |
0500 00da 020e | |
0502 0387 00a2 | |
0504 2198 e002 |! |
0506 e001 1835 | 5|
0508 00a2 2194 | ! |
050a e002 e001 | |
050c 1835 4800 | 5H |
050e 00a2 2190 | ! |
0510 02a0 038e | |
0512 4801 4800 |H H |
0514 00e5 02a0 | |
0516 4801 035d |H ]|
0518 0337 4801 | 7H |
051a 00da 020e | |
051c 0387 00a2 | |
051e 218c e002 |! |
0520 e001 1835 | 5|
0522 190d 4800 | H |
0524 00a2 2188 | ! |
0526 02a0 038e | |
0528 4801 4800 |H H |
052a 00e5 02a0 | |
052c 4801 035d |H ]|
052e 0337 4801 | 7H |
0530 00da 020e | |
0532 0387 00a2 | |
0534 2184 e002 |! |
0536 e001 1835 | 5|
0538 4bff e002 |K |
053a e001 1835 | 5|
053c e611 e625 | %|
053e 00da 4803 | H |
0540 e63c 020e | < |
0542 00da 020f | |
0544 e611 e625 | %|
0546 e60b e63a | :|
0548 1913 e63a | :|
054a 192d e62e | - .|
054c 191f e61e | |
054e e62e 1b2e | . .|
0550 e60f 1b13 | |
0552 e60f 1b12 | |
0554 e63a 1932 | : 2|
0556 e62e 191e | . |
0558 e62e 1920 | . |
055a e62e 1927 | . '|
055c e635 190e | 5 |
055e e62e 191c | . |
0560 e62e 191d | . |
0562 e612 e60f | |
0564 1b0e e610 | |
0566 e633 191c | 3 |
0568 e623 190e | # |
056a e63a 1936 | : 6|
056c e627 1914 | ' |
056e e63a 1935 | : 5|
0570 e63a 1937 | : 7|
0572 e60f 1927 | '|
0574 e638 e633 | 8 3|
0576 1910 e633 | 3|
0578 1911 e627 | '|
057a 1920 e622 | "|
057c 4820 e637 |H 7|
057e 020e e637 | 7|
0580 020f e62e | .|
0582 1b0e e627 | '|
0584 190e e623 | #|
0586 191c e623 | #|
0588 190e e60f | |
058a 1b0f e60f | |
058c 1b10 e62d | -|
058e 1913 e623 | #|
0590 190f e623 | #|
0592 1911 e623 | #|
0594 1913 e623 | #|
0596 1916 e623 | #|
0598 1917 e623 | #|
059a 1919 e623 | #|
059c 191a e60f | |
059e 1b12 e61c | |
05a0 e631 1910 | 1 |
05a2 e60f 1b55 | U|
05a4 e637 1911 | 7 |
05a6 e60b e63a | :|
05a8 1916 e631 | 1|
05aa 190f e631 | 1|
05ac 190d e637 | 7|
05ae 190d e637 | 7|
05b0 1912 e637 | 7|
05b2 1913 e62d | -|
05b4 1916 e627 | '|
05b6 1914 e63a | :|
05b8 190f e60c | |
05ba e630 e63a | 0 :|
05bc 1926 4801 | &H |
05be 4800 e63a |H :|
05c0 1b25 e61e | % |
05c2 e63a 1b41 | : A|
05c4 e63a 1928 | : (|
05c6 e63a 192b | : +|
05c8 e63a 1929 | : )|
05ca e63a 192a | : *|
05cc e63a 1910 | : |
05ce e63a 1911 | : |
05d0 e63a 1912 | : |
05d2 e63a 191e | : |
05d4 e624 e63a | $ :|
05d6 191c e60f | |
05d8 193a e63a | : :|
05da 1921 e63a | ! :|
05dc 1920 e60f | |
05de 1938 e63a | 8 :|
05e0 191f e634 | 4|
05e2 e635 1910 | 5 |
05e4 e60f 1934 | 4|
05e6 e60f 1939 | 9|
05e8 e60f 192f | /|
05ea e637 190e | 7 |
05ec e631 1913 | 1 |
05ee e63a 1913 | : |
05f0 e63a 192e | : .|
05f2 e63a 191b | : |
05f4 e60f 1937 | 7|
05f6 e612 e63a | :|
05f8 1918 e63a | :|
05fa 1919 e63a | :|
05fc 191a 4843 | HC|
05fe e62f 020e | / |