|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05f8 | | .CONST 0x05f8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0069 | i | .CONST 0x0069 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002c | , | .CONST 0x002c ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 029a 0073 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0070
002c c22a | * | Store 0x1,0x2a
002d 029a 00e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e0
002f c22b | + | Store 0x1,0x2b
0030 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
0032 c21f | | Store 0x1,0x1f
0033 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0
0035 c229 | ) | Store 0x1,0x29
0036 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
0038 c221 | ! | Store 0x1,0x21
0039 029a 028b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0288
003b c222 | " | Store 0x1,0x22
003c 029a 02f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02f0
003e c223 | # | Store 0x1,0x23
003f 029a 0363 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0360
0041 c224 | $ | Store 0x1,0x24
0042 029a 03cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03c8
0044 c225 | % | Store 0x1,0x25
0045 029a 043b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0438
0047 c226 | & | Store 0x1,0x26
0048 029a 04a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04a0
004a c227 | ' | Store 0x1,0x27
004b 029a 0513 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0510
004d c228 | ( | Store 0x1,0x28
004e 00bf | | Action Accept_Activation
004f 029d 057b | {| Declare_Subprogram For_Outer_Call,INIT_0578
0051 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0052 00c7 | | Action Elaborate_Subprogram
0053 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0054 00c7 | | Action Elaborate_Subprogram
0055 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0056 00c7 | | Action Elaborate_Subprogram
0057 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0058 00c7 | | Action Elaborate_Subprogram
0059 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
005a 00c7 | | Action Elaborate_Subprogram
005b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
005c 00c7 | | Action Elaborate_Subprogram
005d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
005e 00c7 | | Action Elaborate_Subprogram
005f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0060 00c7 | | Action Elaborate_Subprogram
0061 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0062 00c7 | | Action Elaborate_Subprogram
0063 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0064 00c7 | | Action Elaborate_Subprogram
0065 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0066 00c7 | | Action Elaborate_Subprogram
0067 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0068 00c7 | | Action Elaborate_Subprogram
0069 BODY_0008:
0069 00bc | | Action Signal_Activated
006a 00bb | | Action Signal_Completion
006b 0000 0000 | | .BLANK 0000[0x5]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007d | } | .CONST 0x007d ; Address of begin
0071 00b0 | | .CONST 0x00b0 ; Address of exception handler
0072 0003 | | .CONST 0x0003 ; Number of locals
0073 INIT_0070:
0073 e001 | | Load 0x0,0x1
0074 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0075 02c7 | | Declare_Variable Any
0076 00d8 | | Load_Top At_Offset_0
0077 1c00 | | Execute_Immediate Run_Utility,0x0
0078 e002 | | Load 0x0,0x2
0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007a 02c7 | | Declare_Variable Any
007b 00d8 | | Load_Top At_Offset_0
007c 1c00 | | Execute_Immediate Run_Utility,0x0
007d BODY_0070:
007d e5fb | | Load 0x2,-0x5
007e e002 | | Load 0x0,0x2
007f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0080 c403 | | Store 0x2,0x3
0081 00d8 | | Load_Top At_Offset_0
0082 e002 | | Load 0x0,0x2
0083 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0084 6816 |h | Jump_Zero 0x9b
0085 e003 | | Load 0x0,0x3
0086 180e | | Execute Package,Field_Execute,Field_Number 0xe
0087 4801 |H | Short_Literal 0x1
0088 4801 |H | Short_Literal 0x1
0089 e004 | | Load 0x0,0x4
008a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
008b 035b | [ | Declare_Type Array,Constrained
008c 0337 | 7 | Declare_Variable Array
008d e5fb | | Load 0x2,-0x5
008e e005 | | Load 0x0,0x5
008f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0090 e004 | | Load 0x0,0x4
0091 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0092 0119 | | Execute Any,Check_In_Formal_Type
0093 4801 |H | Short_Literal 0x1
0094 00da | | Load_Top At_Offset_2
0095 01d6 | | Execute Vector,Field_Write
0096 6041 |`A | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0000885a}
0097 e006 | | Load 0x0,0x6
0098 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0099 4800 |H | Short_Literal 0x0
009a 4406 |D | Exit_Subprogram With_Result,0x6
009b 00d9 | | Load_Top At_Offset_1
009c e5fa | | Load 0x2,-0x6
009d e5fc | | Load 0x2,-0x4
009e e5fd | | Load 0x2,-0x3
009f e5fe | | Load 0x2,-0x2
00a0 e5ff | | Load 0x2,-0x1
00a1 e403 | | Load 0x2,0x3
00a2 e007 | | Load 0x0,0x7
00a3 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00a4 00d8 | | Load_Top At_Offset_0
00a5 e007 | | Load 0x0,0x7
00a6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00a7 7003 |p | Jump_Nonzero 0xab
00a8 e008 | | Load 0x0,0x8
00a9 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00aa 0257 | W | Execute Discrete,Raise
00ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ac c402 | | Store 0x2,0x2
00ad 00d9 | | Load_Top At_Offset_1
00ae 822c | , | Call 0x1,0x2c
00af 4406 |D | Exit_Subprogram With_Result,0x6
00b0 TRAP_0070:
00b0 4884 |H | Short_Literal 0x84
00b1 010f | | Execute Exception,Equal
00b2 7004 |p | Jump_Nonzero 0xb7
00b3 e008 | | Load 0x0,0x8
00b4 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00b5 010f | | Execute Exception,Equal
00b6 6816 |h | Jump_Zero 0xcd
00b7 e003 | | Load 0x0,0x3
00b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b9 4801 |H | Short_Literal 0x1
00ba 4801 |H | Short_Literal 0x1
00bb e004 | | Load 0x0,0x4
00bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00bd 035b | [ | Declare_Type Array,Constrained
00be 0337 | 7 | Declare_Variable Array
00bf e5fb | | Load 0x2,-0x5
00c0 e005 | | Load 0x0,0x5
00c1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00c2 e004 | | Load 0x0,0x4
00c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c4 0119 | | Execute Any,Check_In_Formal_Type
00c5 4801 |H | Short_Literal 0x1
00c6 00da | | Load_Top At_Offset_2
00c7 01d6 | | Execute Vector,Field_Write
00c8 600b |` | Indirect_Literal Discrete,0xd4,{0x00000000, 0x0000885b}
00c9 e006 | | Load 0x0,0x6
00ca 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00cb 4800 |H | Short_Literal 0x0
00cc 4406 |D | Exit_Subprogram With_Result,0x6
00cd e006 | | Load 0x0,0x6
00ce 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cf 010f | | Execute Exception,Equal
00d0 6802 |h | Jump_Zero 0xd3
00d1 4800 |H | Short_Literal 0x0
00d2 4406 |D | Exit_Subprogram With_Result,0x6
00d3 0100 | | Execute Exception,Raise
00d4 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
00d8 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ed | | .CONST 0x00ed ; Address of begin
00e1 0120 | | .CONST 0x0120 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 e001 | | Load 0x0,0x1
00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e5 02c7 | | Declare_Variable Any
00e6 00d8 | | Load_Top At_Offset_0
00e7 1c00 | | Execute_Immediate Run_Utility,0x0
00e8 e002 | | Load 0x0,0x2
00e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ea 02c7 | | Declare_Variable Any
00eb 00d8 | | Load_Top At_Offset_0
00ec 1c00 | | Execute_Immediate Run_Utility,0x0
00ed BODY_00e0:
00ed e5fb | | Load 0x2,-0x5
00ee e002 | | Load 0x0,0x2
00ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f0 c403 | | Store 0x2,0x3
00f1 00d8 | | Load_Top At_Offset_0
00f2 e002 | | Load 0x0,0x2
00f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f4 6816 |h | Jump_Zero 0x10b
00f5 e003 | | Load 0x0,0x3
00f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f7 4801 |H | Short_Literal 0x1
00f8 4801 |H | Short_Literal 0x1
00f9 e004 | | Load 0x0,0x4
00fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fb 035b | [ | Declare_Type Array,Constrained
00fc 0337 | 7 | Declare_Variable Array
00fd e5fb | | Load 0x2,-0x5
00fe e005 | | Load 0x0,0x5
00ff 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0100 e004 | | Load 0x0,0x4
0101 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0102 0119 | | Execute Any,Check_In_Formal_Type
0103 4801 |H | Short_Literal 0x1
0104 00da | | Load_Top At_Offset_2
0105 01d6 | | Execute Vector,Field_Write
0106 67d1 |g | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0000885a}
0107 e006 | | Load 0x0,0x6
0108 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0109 4800 |H | Short_Literal 0x0
010a 4406 |D | Exit_Subprogram With_Result,0x6
010b 00d9 | | Load_Top At_Offset_1
010c e5fa | | Load 0x2,-0x6
010d e5fc | | Load 0x2,-0x4
010e e5fd | | Load 0x2,-0x3
010f e5fe | | Load 0x2,-0x2
0110 e5ff | | Load 0x2,-0x1
0111 e403 | | Load 0x2,0x3
0112 e007 | | Load 0x0,0x7
0113 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0114 00d8 | | Load_Top At_Offset_0
0115 e007 | | Load 0x0,0x7
0116 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0117 7003 |p | Jump_Nonzero 0x11b
0118 e008 | | Load 0x0,0x8
0119 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
011a 0257 | W | Execute Discrete,Raise
011b 180f | | Execute Package,Field_Execute,Field_Number 0xf
011c c402 | | Store 0x2,0x2
011d 00d9 | | Load_Top At_Offset_1
011e 822c | , | Call 0x1,0x2c
011f 4406 |D | Exit_Subprogram With_Result,0x6
0120 TRAP_00e0:
0120 4884 |H | Short_Literal 0x84
0121 010f | | Execute Exception,Equal
0122 7004 |p | Jump_Nonzero 0x127
0123 e008 | | Load 0x0,0x8
0124 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0125 010f | | Execute Exception,Equal
0126 6816 |h | Jump_Zero 0x13d
0127 e003 | | Load 0x0,0x3
0128 180e | | Execute Package,Field_Execute,Field_Number 0xe
0129 4801 |H | Short_Literal 0x1
012a 4801 |H | Short_Literal 0x1
012b e004 | | Load 0x0,0x4
012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012d 035b | [ | Declare_Type Array,Constrained
012e 0337 | 7 | Declare_Variable Array
012f e5fb | | Load 0x2,-0x5
0130 e005 | | Load 0x0,0x5
0131 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0132 e004 | | Load 0x0,0x4
0133 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0134 0119 | | Execute Any,Check_In_Formal_Type
0135 4801 |H | Short_Literal 0x1
0136 00da | | Load_Top At_Offset_2
0137 01d6 | | Execute Vector,Field_Write
0138 679b |g | Indirect_Literal Discrete,0xd4,{0x00000000, 0x0000885b}
0139 e006 | | Load 0x0,0x6
013a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
013b 4800 |H | Short_Literal 0x0
013c 4406 |D | Exit_Subprogram With_Result,0x6
013d e006 | | Load 0x0,0x6
013e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
013f 010f | | Execute Exception,Equal
0140 6802 |h | Jump_Zero 0x143
0141 4800 |H | Short_Literal 0x0
0142 4406 |D | Exit_Subprogram With_Result,0x6
0143 0100 | | Execute Exception,Raise
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0157 | W | .CONST 0x0157 ; Address of begin
0149 0182 | | .CONST 0x0182 ; Address of exception handler
014a 0003 | | .CONST 0x0003 ; Number of locals
014b INIT_0148:
014b e001 | | Load 0x0,0x1
014c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
014d 02c7 | | Declare_Variable Any
014e 00d8 | | Load_Top At_Offset_0
014f 1c00 | | Execute_Immediate Run_Utility,0x0
0150 e002 | | Load 0x0,0x2
0151 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0152 02c7 | | Declare_Variable Any
0153 e5fe | | Load 0x2,-0x2
0154 e002 | | Load 0x0,0x2
0155 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0156 a403 | | Store_Unchecked 0x2,0x3
0157 BODY_0148:
0157 00d8 | | Load_Top At_Offset_0
0158 e002 | | Load 0x0,0x2
0159 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015a 6816 |h | Jump_Zero 0x171
015b e003 | | Load 0x0,0x3
015c 180e | | Execute Package,Field_Execute,Field_Number 0xe
015d 4801 |H | Short_Literal 0x1
015e 4801 |H | Short_Literal 0x1
015f e004 | | Load 0x0,0x4
0160 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0161 035b | [ | Declare_Type Array,Constrained
0162 0337 | 7 | Declare_Variable Array
0163 e5fe | | Load 0x2,-0x2
0164 e005 | | Load 0x0,0x5
0165 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0166 e004 | | Load 0x0,0x4
0167 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0168 0119 | | Execute Any,Check_In_Formal_Type
0169 4801 |H | Short_Literal 0x1
016a 00da | | Load_Top At_Offset_2
016b 01d6 | | Execute Vector,Field_Write
016c 603f |`? | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x0000885a}
016d e006 | | Load 0x0,0x6
016e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
016f 4800 |H | Short_Literal 0x0
0170 4402 |D | Exit_Subprogram With_Result,0x2
0171 00d9 | | Load_Top At_Offset_1
0172 e5ff | | Load 0x2,-0x1
0173 00da | | Load_Top At_Offset_2
0174 e007 | | Load 0x0,0x7
0175 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0176 00d8 | | Load_Top At_Offset_0
0177 e007 | | Load 0x0,0x7
0178 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0179 7003 |p | Jump_Nonzero 0x17d
017a e008 | | Load 0x0,0x8
017b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
017c 0257 | W | Execute Discrete,Raise
017d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017e c402 | | Store 0x2,0x2
017f 00d9 | | Load_Top At_Offset_1
0180 822c | , | Call 0x1,0x2c
0181 4402 |D | Exit_Subprogram With_Result,0x2
0182 TRAP_0148:
0182 4884 |H | Short_Literal 0x84
0183 010f | | Execute Exception,Equal
0184 7004 |p | Jump_Nonzero 0x189
0185 e008 | | Load 0x0,0x8
0186 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0187 010f | | Execute Exception,Equal
0188 6816 |h | Jump_Zero 0x19f
0189 e003 | | Load 0x0,0x3
018a 180e | | Execute Package,Field_Execute,Field_Number 0xe
018b 4801 |H | Short_Literal 0x1
018c 4801 |H | Short_Literal 0x1
018d e004 | | Load 0x0,0x4
018e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018f 035b | [ | Declare_Type Array,Constrained
0190 0337 | 7 | Declare_Variable Array
0191 e5fe | | Load 0x2,-0x2
0192 e005 | | Load 0x0,0x5
0193 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0194 e004 | | Load 0x0,0x4
0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0196 0119 | | Execute Any,Check_In_Formal_Type
0197 4801 |H | Short_Literal 0x1
0198 00da | | Load_Top At_Offset_2
0199 01d6 | | Execute Vector,Field_Write
019a 600d |` | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x0000885b}
019b e006 | | Load 0x0,0x6
019c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
019d 4800 |H | Short_Literal 0x0
019e 4402 |D | Exit_Subprogram With_Result,0x2
019f e006 | | Load 0x0,0x6
01a0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01a1 010f | | Execute Exception,Equal
01a2 6802 |h | Jump_Zero 0x1a5
01a3 4800 |H | Short_Literal 0x0
01a4 4402 |D | Exit_Subprogram With_Result,0x2
01a5 0100 | | Execute Exception,Raise
01a6 0000 0000 | | .XXX[0x2]
01a8 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
01ac 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bd | | .CONST 0x01bd ; Address of begin
01b1 01ee | | .CONST 0x01ee ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 e001 | | Load 0x0,0x1
01b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b5 02c7 | | Declare_Variable Any
01b6 00d8 | | Load_Top At_Offset_0
01b7 1c00 | | Execute_Immediate Run_Utility,0x0
01b8 e002 | | Load 0x0,0x2
01b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ba 02c7 | | Declare_Variable Any
01bb 00d8 | | Load_Top At_Offset_0
01bc 1c00 | | Execute_Immediate Run_Utility,0x0
01bd BODY_01b0:
01bd e5fc | | Load 0x2,-0x4
01be e002 | | Load 0x0,0x2
01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c0 c403 | | Store 0x2,0x3
01c1 00d8 | | Load_Top At_Offset_0
01c2 e002 | | Load 0x0,0x2
01c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c4 6816 |h | Jump_Zero 0x1db
01c5 e003 | | Load 0x0,0x3
01c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c7 4801 |H | Short_Literal 0x1
01c8 4801 |H | Short_Literal 0x1
01c9 e004 | | Load 0x0,0x4
01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cb 035b | [ | Declare_Type Array,Constrained
01cc 0337 | 7 | Declare_Variable Array
01cd e5fc | | Load 0x2,-0x4
01ce e005 | | Load 0x0,0x5
01cf 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01d0 e004 | | Load 0x0,0x4
01d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d2 0119 | | Execute Any,Check_In_Formal_Type
01d3 4801 |H | Short_Literal 0x1
01d4 00da | | Load_Top At_Offset_2
01d5 01d6 | | Execute Vector,Field_Write
01d6 67d5 |g | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x0000885a}
01d7 e006 | | Load 0x0,0x6
01d8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01d9 4800 |H | Short_Literal 0x0
01da 4404 |D | Exit_Subprogram With_Result,0x4
01db 00d9 | | Load_Top At_Offset_1
01dc e5fd | | Load 0x2,-0x3
01dd e5fe | | Load 0x2,-0x2
01de e5ff | | Load 0x2,-0x1
01df e403 | | Load 0x2,0x3
01e0 e007 | | Load 0x0,0x7
01e1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01e2 00d8 | | Load_Top At_Offset_0
01e3 e007 | | Load 0x0,0x7
01e4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01e5 7003 |p | Jump_Nonzero 0x1e9
01e6 e008 | | Load 0x0,0x8
01e7 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01e8 0257 | W | Execute Discrete,Raise
01e9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ea c402 | | Store 0x2,0x2
01eb 00d9 | | Load_Top At_Offset_1
01ec 822c | , | Call 0x1,0x2c
01ed 4404 |D | Exit_Subprogram With_Result,0x4
01ee TRAP_01b0:
01ee 4884 |H | Short_Literal 0x84
01ef 010f | | Execute Exception,Equal
01f0 7004 |p | Jump_Nonzero 0x1f5
01f1 e008 | | Load 0x0,0x8
01f2 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01f3 010f | | Execute Exception,Equal
01f4 6816 |h | Jump_Zero 0x20b
01f5 e003 | | Load 0x0,0x3
01f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f7 4801 |H | Short_Literal 0x1
01f8 4801 |H | Short_Literal 0x1
01f9 e004 | | Load 0x0,0x4
01fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fb 035b | [ | Declare_Type Array,Constrained
01fc 0337 | 7 | Declare_Variable Array
01fd e5fc | | Load 0x2,-0x4
01fe e005 | | Load 0x0,0x5
01ff 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0200 e004 | | Load 0x0,0x4
0201 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0202 0119 | | Execute Any,Check_In_Formal_Type
0203 4801 |H | Short_Literal 0x1
0204 00da | | Load_Top At_Offset_2
0205 01d6 | | Execute Vector,Field_Write
0206 67a1 |g | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x0000885b}
0207 e006 | | Load 0x0,0x6
0208 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0209 4800 |H | Short_Literal 0x0
020a 4404 |D | Exit_Subprogram With_Result,0x4
020b e006 | | Load 0x0,0x6
020c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
020d 010f | | Execute Exception,Equal
020e 6802 |h | Jump_Zero 0x211
020f 4800 |H | Short_Literal 0x0
0210 4404 |D | Exit_Subprogram With_Result,0x4
0211 0100 | | Execute Exception,Raise
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0225 | % | .CONST 0x0225 ; Address of begin
0219 0255 | U | .CONST 0x0255 ; Address of exception handler
021a 0003 | | .CONST 0x0003 ; Number of locals
021b INIT_0218:
021b e001 | | Load 0x0,0x1
021c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021d 02c7 | | Declare_Variable Any
021e 00d8 | | Load_Top At_Offset_0
021f 1c00 | | Execute_Immediate Run_Utility,0x0
0220 e002 | | Load 0x0,0x2
0221 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0222 02c7 | | Declare_Variable Any
0223 00d8 | | Load_Top At_Offset_0
0224 1c00 | | Execute_Immediate Run_Utility,0x0
0225 BODY_0218:
0225 e5fd | | Load 0x2,-0x3
0226 e002 | | Load 0x0,0x2
0227 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0228 c403 | | Store 0x2,0x3
0229 00d8 | | Load_Top At_Offset_0
022a e002 | | Load 0x0,0x2
022b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
022c 6816 |h | Jump_Zero 0x243
022d e003 | | Load 0x0,0x3
022e 180e | | Execute Package,Field_Execute,Field_Number 0xe
022f 4801 |H | Short_Literal 0x1
0230 4801 |H | Short_Literal 0x1
0231 e004 | | Load 0x0,0x4
0232 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0233 035b | [ | Declare_Type Array,Constrained
0234 0337 | 7 | Declare_Variable Array
0235 e5fd | | Load 0x2,-0x3
0236 e005 | | Load 0x0,0x5
0237 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0238 e004 | | Load 0x0,0x4
0239 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023a 0119 | | Execute Any,Check_In_Formal_Type
023b 4801 |H | Short_Literal 0x1
023c 00da | | Load_Top At_Offset_2
023d 01d6 | | Execute Vector,Field_Write
023e 6041 |`A | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000885a}
023f e006 | | Load 0x0,0x6
0240 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0241 4800 |H | Short_Literal 0x0
0242 4403 |D | Exit_Subprogram With_Result,0x3
0243 00d9 | | Load_Top At_Offset_1
0244 e5fe | | Load 0x2,-0x2
0245 e5ff | | Load 0x2,-0x1
0246 00db | | Load_Top At_Offset_3
0247 e007 | | Load 0x0,0x7
0248 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0249 00d8 | | Load_Top At_Offset_0
024a e007 | | Load 0x0,0x7
024b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
024c 7003 |p | Jump_Nonzero 0x250
024d e008 | | Load 0x0,0x8
024e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
024f 0257 | W | Execute Discrete,Raise
0250 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0251 c402 | | Store 0x2,0x2
0252 00d9 | | Load_Top At_Offset_1
0253 822c | , | Call 0x1,0x2c
0254 4403 |D | Exit_Subprogram With_Result,0x3
0255 TRAP_0218:
0255 4884 |H | Short_Literal 0x84
0256 010f | | Execute Exception,Equal
0257 7004 |p | Jump_Nonzero 0x25c
0258 e008 | | Load 0x0,0x8
0259 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
025a 010f | | Execute Exception,Equal
025b 6816 |h | Jump_Zero 0x272
025c e003 | | Load 0x0,0x3
025d 180e | | Execute Package,Field_Execute,Field_Number 0xe
025e 4801 |H | Short_Literal 0x1
025f 4801 |H | Short_Literal 0x1
0260 e004 | | Load 0x0,0x4
0261 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0262 035b | [ | Declare_Type Array,Constrained
0263 0337 | 7 | Declare_Variable Array
0264 e5fd | | Load 0x2,-0x3
0265 e005 | | Load 0x0,0x5
0266 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0267 e004 | | Load 0x0,0x4
0268 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0269 0119 | | Execute Any,Check_In_Formal_Type
026a 4801 |H | Short_Literal 0x1
026b 00da | | Load_Top At_Offset_2
026c 01d6 | | Execute Vector,Field_Write
026d 600e |` | Indirect_Literal Discrete,0x27c,{0x00000000, 0x0000885b}
026e e006 | | Load 0x0,0x6
026f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0270 4800 |H | Short_Literal 0x0
0271 4403 |D | Exit_Subprogram With_Result,0x3
0272 e006 | | Load 0x0,0x6
0273 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0274 010f | | Execute Exception,Equal
0275 6802 |h | Jump_Zero 0x278
0276 4800 |H | Short_Literal 0x0
0277 4403 |D | Exit_Subprogram With_Result,0x3
0278 0100 | | Execute Exception,Raise
0279 0000 0000 | | .XXX[0x3]
027b 0000 | |
027c 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
0280 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0295 | | .CONST 0x0295 ; Address of begin
0289 02c5 | | .CONST 0x02c5 ; Address of exception handler
028a 0003 | | .CONST 0x0003 ; Number of locals
028b INIT_0288:
028b e001 | | Load 0x0,0x1
028c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028d 02c7 | | Declare_Variable Any
028e 00d8 | | Load_Top At_Offset_0
028f 1c00 | | Execute_Immediate Run_Utility,0x0
0290 e002 | | Load 0x0,0x2
0291 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0292 02c7 | | Declare_Variable Any
0293 00d8 | | Load_Top At_Offset_0
0294 1c00 | | Execute_Immediate Run_Utility,0x0
0295 BODY_0288:
0295 e5fd | | Load 0x2,-0x3
0296 e002 | | Load 0x0,0x2
0297 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0298 c403 | | Store 0x2,0x3
0299 00d8 | | Load_Top At_Offset_0
029a e002 | | Load 0x0,0x2
029b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029c 6816 |h | Jump_Zero 0x2b3
029d e003 | | Load 0x0,0x3
029e 180e | | Execute Package,Field_Execute,Field_Number 0xe
029f 4801 |H | Short_Literal 0x1
02a0 4801 |H | Short_Literal 0x1
02a1 e004 | | Load 0x0,0x4
02a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a3 035b | [ | Declare_Type Array,Constrained
02a4 0337 | 7 | Declare_Variable Array
02a5 e5fd | | Load 0x2,-0x3
02a6 e005 | | Load 0x0,0x5
02a7 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
02a8 e004 | | Load 0x0,0x4
02a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02aa 0119 | | Execute Any,Check_In_Formal_Type
02ab 4801 |H | Short_Literal 0x1
02ac 00da | | Load_Top At_Offset_2
02ad 01d6 | | Execute Vector,Field_Write
02ae 67d1 |g | Indirect_Literal Discrete,0x280,{0x00000000, 0x0000885a}
02af e006 | | Load 0x0,0x6
02b0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02b1 4800 |H | Short_Literal 0x0
02b2 4403 |D | Exit_Subprogram With_Result,0x3
02b3 00d9 | | Load_Top At_Offset_1
02b4 e5fe | | Load 0x2,-0x2
02b5 e5ff | | Load 0x2,-0x1
02b6 00db | | Load_Top At_Offset_3
02b7 e007 | | Load 0x0,0x7
02b8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02b9 00d8 | | Load_Top At_Offset_0
02ba e007 | | Load 0x0,0x7
02bb 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
02bc 7003 |p | Jump_Nonzero 0x2c0
02bd e008 | | Load 0x0,0x8
02be 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
02bf 0257 | W | Execute Discrete,Raise
02c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02c1 c402 | | Store 0x2,0x2
02c2 00d9 | | Load_Top At_Offset_1
02c3 822c | , | Call 0x1,0x2c
02c4 4403 |D | Exit_Subprogram With_Result,0x3
02c5 TRAP_0288:
02c5 4884 |H | Short_Literal 0x84
02c6 010f | | Execute Exception,Equal
02c7 7004 |p | Jump_Nonzero 0x2cc
02c8 e008 | | Load 0x0,0x8
02c9 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
02ca 010f | | Execute Exception,Equal
02cb 6816 |h | Jump_Zero 0x2e2
02cc e003 | | Load 0x0,0x3
02cd 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ce 4801 |H | Short_Literal 0x1
02cf 4801 |H | Short_Literal 0x1
02d0 e004 | | Load 0x0,0x4
02d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d2 035b | [ | Declare_Type Array,Constrained
02d3 0337 | 7 | Declare_Variable Array
02d4 e5fd | | Load 0x2,-0x3
02d5 e005 | | Load 0x0,0x5
02d6 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
02d7 e004 | | Load 0x0,0x4
02d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d9 0119 | | Execute Any,Check_In_Formal_Type
02da 4801 |H | Short_Literal 0x1
02db 00da | | Load_Top At_Offset_2
02dc 01d6 | | Execute Vector,Field_Write
02dd 679e |g | Indirect_Literal Discrete,0x27c,{0x00000000, 0x0000885b}
02de e006 | | Load 0x0,0x6
02df 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02e0 4800 |H | Short_Literal 0x0
02e1 4403 |D | Exit_Subprogram With_Result,0x3
02e2 e006 | | Load 0x0,0x6
02e3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02e4 010f | | Execute Exception,Equal
02e5 6802 |h | Jump_Zero 0x2e8
02e6 4800 |H | Short_Literal 0x0
02e7 4403 |D | Exit_Subprogram With_Result,0x3
02e8 0100 | | Execute Exception,Raise
02e9 0000 0000 | | .BLANK 0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02fd | | .CONST 0x02fd ; Address of begin
02f1 032d | - | .CONST 0x032d ; Address of exception handler
02f2 0003 | | .CONST 0x0003 ; Number of locals
02f3 INIT_02f0:
02f3 e001 | | Load 0x0,0x1
02f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f5 02c7 | | Declare_Variable Any
02f6 00d8 | | Load_Top At_Offset_0
02f7 1c00 | | Execute_Immediate Run_Utility,0x0
02f8 e002 | | Load 0x0,0x2
02f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fa 02c7 | | Declare_Variable Any
02fb 00d8 | | Load_Top At_Offset_0
02fc 1c00 | | Execute_Immediate Run_Utility,0x0
02fd BODY_02f0:
02fd e5fd | | Load 0x2,-0x3
02fe e002 | | Load 0x0,0x2
02ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0300 c403 | | Store 0x2,0x3
0301 00d8 | | Load_Top At_Offset_0
0302 e002 | | Load 0x0,0x2
0303 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0304 6816 |h | Jump_Zero 0x31b
0305 e003 | | Load 0x0,0x3
0306 180e | | Execute Package,Field_Execute,Field_Number 0xe
0307 4801 |H | Short_Literal 0x1
0308 4801 |H | Short_Literal 0x1
0309 e004 | | Load 0x0,0x4
030a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
030b 035b | [ | Declare_Type Array,Constrained
030c 0337 | 7 | Declare_Variable Array
030d e5fd | | Load 0x2,-0x3
030e e005 | | Load 0x0,0x5
030f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0310 e004 | | Load 0x0,0x4
0311 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0312 0119 | | Execute Any,Check_In_Formal_Type
0313 4801 |H | Short_Literal 0x1
0314 00da | | Load_Top At_Offset_2
0315 01d6 | | Execute Vector,Field_Write
0316 6041 |`A | Indirect_Literal Discrete,0x358,{0x00000000, 0x0000885a}
0317 e006 | | Load 0x0,0x6
0318 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0319 4800 |H | Short_Literal 0x0
031a 4403 |D | Exit_Subprogram With_Result,0x3
031b 00d9 | | Load_Top At_Offset_1
031c e5fe | | Load 0x2,-0x2
031d e5ff | | Load 0x2,-0x1
031e 00db | | Load_Top At_Offset_3
031f e007 | | Load 0x0,0x7
0320 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0321 00d8 | | Load_Top At_Offset_0
0322 e007 | | Load 0x0,0x7
0323 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0324 7003 |p | Jump_Nonzero 0x328
0325 e008 | | Load 0x0,0x8
0326 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0327 0257 | W | Execute Discrete,Raise
0328 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0329 c402 | | Store 0x2,0x2
032a 00d9 | | Load_Top At_Offset_1
032b 822c | , | Call 0x1,0x2c
032c 4403 |D | Exit_Subprogram With_Result,0x3
032d TRAP_02f0:
032d 4884 |H | Short_Literal 0x84
032e 010f | | Execute Exception,Equal
032f 7004 |p | Jump_Nonzero 0x334
0330 e008 | | Load 0x0,0x8
0331 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0332 010f | | Execute Exception,Equal
0333 6816 |h | Jump_Zero 0x34a
0334 e003 | | Load 0x0,0x3
0335 180e | | Execute Package,Field_Execute,Field_Number 0xe
0336 4801 |H | Short_Literal 0x1
0337 4801 |H | Short_Literal 0x1
0338 e004 | | Load 0x0,0x4
0339 1b0f | | Execute Package,Field_Read,Field_Number 0xf
033a 035b | [ | Declare_Type Array,Constrained
033b 0337 | 7 | Declare_Variable Array
033c e5fd | | Load 0x2,-0x3
033d e005 | | Load 0x0,0x5
033e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
033f e004 | | Load 0x0,0x4
0340 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0341 0119 | | Execute Any,Check_In_Formal_Type
0342 4801 |H | Short_Literal 0x1
0343 00da | | Load_Top At_Offset_2
0344 01d6 | | Execute Vector,Field_Write
0345 600e |` | Indirect_Literal Discrete,0x354,{0x00000000, 0x0000885b}
0346 e006 | | Load 0x0,0x6
0347 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0348 4800 |H | Short_Literal 0x0
0349 4403 |D | Exit_Subprogram With_Result,0x3
034a e006 | | Load 0x0,0x6
034b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
034c 010f | | Execute Exception,Equal
034d 6802 |h | Jump_Zero 0x350
034e 4800 |H | Short_Literal 0x0
034f 4403 |D | Exit_Subprogram With_Result,0x3
0350 0100 | | Execute Exception,Raise
0351 0000 0000 | | .XXX[0x3]
0353 0000 | |
0354 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
0358 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
035c 0000 0000 | | .BLANK 0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036d | m | .CONST 0x036d ; Address of begin
0361 039d | | .CONST 0x039d ; Address of exception handler
0362 0003 | | .CONST 0x0003 ; Number of locals
0363 INIT_0360:
0363 e001 | | Load 0x0,0x1
0364 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0365 02c7 | | Declare_Variable Any
0366 00d8 | | Load_Top At_Offset_0
0367 1c00 | | Execute_Immediate Run_Utility,0x0
0368 e002 | | Load 0x0,0x2
0369 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036a 02c7 | | Declare_Variable Any
036b 00d8 | | Load_Top At_Offset_0
036c 1c00 | | Execute_Immediate Run_Utility,0x0
036d BODY_0360:
036d e5fd | | Load 0x2,-0x3
036e e002 | | Load 0x0,0x2
036f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0370 c403 | | Store 0x2,0x3
0371 00d8 | | Load_Top At_Offset_0
0372 e002 | | Load 0x0,0x2
0373 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0374 6816 |h | Jump_Zero 0x38b
0375 e003 | | Load 0x0,0x3
0376 180e | | Execute Package,Field_Execute,Field_Number 0xe
0377 4801 |H | Short_Literal 0x1
0378 4801 |H | Short_Literal 0x1
0379 e004 | | Load 0x0,0x4
037a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
037b 035b | [ | Declare_Type Array,Constrained
037c 0337 | 7 | Declare_Variable Array
037d e5fd | | Load 0x2,-0x3
037e e005 | | Load 0x0,0x5
037f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0380 e004 | | Load 0x0,0x4
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 67d1 |g | Indirect_Literal Discrete,0x358,{0x00000000, 0x0000885a}
0387 e006 | | Load 0x0,0x6
0388 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0389 4800 |H | Short_Literal 0x0
038a 4403 |D | Exit_Subprogram With_Result,0x3
038b 00d9 | | Load_Top At_Offset_1
038c e5fe | | Load 0x2,-0x2
038d e5ff | | Load 0x2,-0x1
038e 00db | | Load_Top At_Offset_3
038f e007 | | Load 0x0,0x7
0390 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0391 00d8 | | Load_Top At_Offset_0
0392 e007 | | Load 0x0,0x7
0393 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0394 7003 |p | Jump_Nonzero 0x398
0395 e008 | | Load 0x0,0x8
0396 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0397 0257 | W | Execute Discrete,Raise
0398 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0399 c402 | | Store 0x2,0x2
039a 00d9 | | Load_Top At_Offset_1
039b 822c | , | Call 0x1,0x2c
039c 4403 |D | Exit_Subprogram With_Result,0x3
039d TRAP_0360:
039d 4884 |H | Short_Literal 0x84
039e 010f | | Execute Exception,Equal
039f 7004 |p | Jump_Nonzero 0x3a4
03a0 e008 | | Load 0x0,0x8
03a1 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03a2 010f | | Execute Exception,Equal
03a3 6816 |h | Jump_Zero 0x3ba
03a4 e003 | | Load 0x0,0x3
03a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a6 4801 |H | Short_Literal 0x1
03a7 4801 |H | Short_Literal 0x1
03a8 e004 | | Load 0x0,0x4
03a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03aa 035b | [ | Declare_Type Array,Constrained
03ab 0337 | 7 | Declare_Variable Array
03ac e5fd | | Load 0x2,-0x3
03ad e005 | | Load 0x0,0x5
03ae 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
03af e004 | | Load 0x0,0x4
03b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b1 0119 | | Execute Any,Check_In_Formal_Type
03b2 4801 |H | Short_Literal 0x1
03b3 00da | | Load_Top At_Offset_2
03b4 01d6 | | Execute Vector,Field_Write
03b5 679e |g | Indirect_Literal Discrete,0x354,{0x00000000, 0x0000885b}
03b6 e006 | | Load 0x0,0x6
03b7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03b8 4800 |H | Short_Literal 0x0
03b9 4403 |D | Exit_Subprogram With_Result,0x3
03ba e006 | | Load 0x0,0x6
03bb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03bc 010f | | Execute Exception,Equal
03bd 6802 |h | Jump_Zero 0x3c0
03be 4800 |H | Short_Literal 0x0
03bf 4403 |D | Exit_Subprogram With_Result,0x3
03c0 0100 | | Execute Exception,Raise
03c1 0000 0000 | | .BLANK 0000[0x7]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d5 | | .CONST 0x03d5 ; Address of begin
03c9 0405 | | .CONST 0x0405 ; Address of exception handler
03ca 0003 | | .CONST 0x0003 ; Number of locals
03cb INIT_03c8:
03cb e001 | | Load 0x0,0x1
03cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03cd 02c7 | | Declare_Variable Any
03ce 00d8 | | Load_Top At_Offset_0
03cf 1c00 | | Execute_Immediate Run_Utility,0x0
03d0 e002 | | Load 0x0,0x2
03d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d2 02c7 | | Declare_Variable Any
03d3 00d8 | | Load_Top At_Offset_0
03d4 1c00 | | Execute_Immediate Run_Utility,0x0
03d5 BODY_03c8:
03d5 e5fd | | Load 0x2,-0x3
03d6 e002 | | Load 0x0,0x2
03d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d8 c403 | | Store 0x2,0x3
03d9 00d8 | | Load_Top At_Offset_0
03da e002 | | Load 0x0,0x2
03db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03dc 6816 |h | Jump_Zero 0x3f3
03dd e003 | | Load 0x0,0x3
03de 180e | | Execute Package,Field_Execute,Field_Number 0xe
03df 4801 |H | Short_Literal 0x1
03e0 4801 |H | Short_Literal 0x1
03e1 e004 | | Load 0x0,0x4
03e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e3 035b | [ | Declare_Type Array,Constrained
03e4 0337 | 7 | Declare_Variable Array
03e5 e5fd | | Load 0x2,-0x3
03e6 e005 | | Load 0x0,0x5
03e7 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
03e8 e004 | | Load 0x0,0x4
03e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ea 0119 | | Execute Any,Check_In_Formal_Type
03eb 4801 |H | Short_Literal 0x1
03ec 00da | | Load_Top At_Offset_2
03ed 01d6 | | Execute Vector,Field_Write
03ee 6041 |`A | Indirect_Literal Discrete,0x430,{0x00000000, 0x0000885a}
03ef e006 | | Load 0x0,0x6
03f0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03f1 4800 |H | Short_Literal 0x0
03f2 4403 |D | Exit_Subprogram With_Result,0x3
03f3 00d9 | | Load_Top At_Offset_1
03f4 e5fe | | Load 0x2,-0x2
03f5 e5ff | | Load 0x2,-0x1
03f6 00db | | Load_Top At_Offset_3
03f7 e007 | | Load 0x0,0x7
03f8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03f9 00d8 | | Load_Top At_Offset_0
03fa e007 | | Load 0x0,0x7
03fb 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03fc 7003 |p | Jump_Nonzero 0x400
03fd e008 | | Load 0x0,0x8
03fe 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03ff 0257 | W | Execute Discrete,Raise
0400 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0401 c402 | | Store 0x2,0x2
0402 00d9 | | Load_Top At_Offset_1
0403 822c | , | Call 0x1,0x2c
0404 4403 |D | Exit_Subprogram With_Result,0x3
0405 TRAP_03c8:
0405 4884 |H | Short_Literal 0x84
0406 010f | | Execute Exception,Equal
0407 7004 |p | Jump_Nonzero 0x40c
0408 e008 | | Load 0x0,0x8
0409 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
040a 010f | | Execute Exception,Equal
040b 6816 |h | Jump_Zero 0x422
040c e003 | | Load 0x0,0x3
040d 180e | | Execute Package,Field_Execute,Field_Number 0xe
040e 4801 |H | Short_Literal 0x1
040f 4801 |H | Short_Literal 0x1
0410 e004 | | Load 0x0,0x4
0411 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0412 035b | [ | Declare_Type Array,Constrained
0413 0337 | 7 | Declare_Variable Array
0414 e5fd | | Load 0x2,-0x3
0415 e005 | | Load 0x0,0x5
0416 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0417 e004 | | Load 0x0,0x4
0418 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0419 0119 | | Execute Any,Check_In_Formal_Type
041a 4801 |H | Short_Literal 0x1
041b 00da | | Load_Top At_Offset_2
041c 01d6 | | Execute Vector,Field_Write
041d 600e |` | Indirect_Literal Discrete,0x42c,{0x00000000, 0x0000885b}
041e e006 | | Load 0x0,0x6
041f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0420 4800 |H | Short_Literal 0x0
0421 4403 |D | Exit_Subprogram With_Result,0x3
0422 e006 | | Load 0x0,0x6
0423 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0424 010f | | Execute Exception,Equal
0425 6802 |h | Jump_Zero 0x428
0426 4800 |H | Short_Literal 0x0
0427 4403 |D | Exit_Subprogram With_Result,0x3
0428 0100 | | Execute Exception,Raise
0429 0000 0000 | | .XXX[0x3]
042b 0000 | |
042c 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
0430 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0445 | E | .CONST 0x0445 ; Address of begin
0439 0475 | u | .CONST 0x0475 ; Address of exception handler
043a 0003 | | .CONST 0x0003 ; Number of locals
043b INIT_0438:
043b e001 | | Load 0x0,0x1
043c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
043d 02c7 | | Declare_Variable Any
043e 00d8 | | Load_Top At_Offset_0
043f 1c00 | | Execute_Immediate Run_Utility,0x0
0440 e002 | | Load 0x0,0x2
0441 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0442 02c7 | | Declare_Variable Any
0443 00d8 | | Load_Top At_Offset_0
0444 1c00 | | Execute_Immediate Run_Utility,0x0
0445 BODY_0438:
0445 e5fd | | Load 0x2,-0x3
0446 e002 | | Load 0x0,0x2
0447 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0448 c403 | | Store 0x2,0x3
0449 00d8 | | Load_Top At_Offset_0
044a e002 | | Load 0x0,0x2
044b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
044c 6816 |h | Jump_Zero 0x463
044d e003 | | Load 0x0,0x3
044e 180e | | Execute Package,Field_Execute,Field_Number 0xe
044f 4801 |H | Short_Literal 0x1
0450 4801 |H | Short_Literal 0x1
0451 e004 | | Load 0x0,0x4
0452 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0453 035b | [ | Declare_Type Array,Constrained
0454 0337 | 7 | Declare_Variable Array
0455 e5fd | | Load 0x2,-0x3
0456 e005 | | Load 0x0,0x5
0457 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0458 e004 | | Load 0x0,0x4
0459 1b0e | | Execute Package,Field_Read,Field_Number 0xe
045a 0119 | | Execute Any,Check_In_Formal_Type
045b 4801 |H | Short_Literal 0x1
045c 00da | | Load_Top At_Offset_2
045d 01d6 | | Execute Vector,Field_Write
045e 67d1 |g | Indirect_Literal Discrete,0x430,{0x00000000, 0x0000885a}
045f e006 | | Load 0x0,0x6
0460 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0461 4800 |H | Short_Literal 0x0
0462 4403 |D | Exit_Subprogram With_Result,0x3
0463 00d9 | | Load_Top At_Offset_1
0464 e5fe | | Load 0x2,-0x2
0465 e5ff | | Load 0x2,-0x1
0466 00db | | Load_Top At_Offset_3
0467 e007 | | Load 0x0,0x7
0468 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0469 00d8 | | Load_Top At_Offset_0
046a e007 | | Load 0x0,0x7
046b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
046c 7003 |p | Jump_Nonzero 0x470
046d e008 | | Load 0x0,0x8
046e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
046f 0257 | W | Execute Discrete,Raise
0470 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0471 c402 | | Store 0x2,0x2
0472 00d9 | | Load_Top At_Offset_1
0473 822c | , | Call 0x1,0x2c
0474 4403 |D | Exit_Subprogram With_Result,0x3
0475 TRAP_0438:
0475 4884 |H | Short_Literal 0x84
0476 010f | | Execute Exception,Equal
0477 7004 |p | Jump_Nonzero 0x47c
0478 e008 | | Load 0x0,0x8
0479 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
047a 010f | | Execute Exception,Equal
047b 6816 |h | Jump_Zero 0x492
047c e003 | | Load 0x0,0x3
047d 180e | | Execute Package,Field_Execute,Field_Number 0xe
047e 4801 |H | Short_Literal 0x1
047f 4801 |H | Short_Literal 0x1
0480 e004 | | Load 0x0,0x4
0481 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0482 035b | [ | Declare_Type Array,Constrained
0483 0337 | 7 | Declare_Variable Array
0484 e5fd | | Load 0x2,-0x3
0485 e005 | | Load 0x0,0x5
0486 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0487 e004 | | Load 0x0,0x4
0488 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0489 0119 | | Execute Any,Check_In_Formal_Type
048a 4801 |H | Short_Literal 0x1
048b 00da | | Load_Top At_Offset_2
048c 01d6 | | Execute Vector,Field_Write
048d 679e |g | Indirect_Literal Discrete,0x42c,{0x00000000, 0x0000885b}
048e e006 | | Load 0x0,0x6
048f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0490 4800 |H | Short_Literal 0x0
0491 4403 |D | Exit_Subprogram With_Result,0x3
0492 e006 | | Load 0x0,0x6
0493 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0494 010f | | Execute Exception,Equal
0495 6802 |h | Jump_Zero 0x498
0496 4800 |H | Short_Literal 0x0
0497 4403 |D | Exit_Subprogram With_Result,0x3
0498 0100 | | Execute Exception,Raise
0499 0000 0000 | | .BLANK 0000[0x7]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04ad | | .CONST 0x04ad ; Address of begin
04a1 04e0 | | .CONST 0x04e0 ; Address of exception handler
04a2 0003 | | .CONST 0x0003 ; Number of locals
04a3 INIT_04a0:
04a3 e001 | | Load 0x0,0x1
04a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a5 02c7 | | Declare_Variable Any
04a6 00d8 | | Load_Top At_Offset_0
04a7 1c00 | | Execute_Immediate Run_Utility,0x0
04a8 e002 | | Load 0x0,0x2
04a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04aa 02c7 | | Declare_Variable Any
04ab 00d8 | | Load_Top At_Offset_0
04ac 1c00 | | Execute_Immediate Run_Utility,0x0
04ad BODY_04a0:
04ad e5fb | | Load 0x2,-0x5
04ae e002 | | Load 0x0,0x2
04af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b0 c403 | | Store 0x2,0x3
04b1 00d8 | | Load_Top At_Offset_0
04b2 e002 | | Load 0x0,0x2
04b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b4 6816 |h | Jump_Zero 0x4cb
04b5 e003 | | Load 0x0,0x3
04b6 180e | | Execute Package,Field_Execute,Field_Number 0xe
04b7 4801 |H | Short_Literal 0x1
04b8 4801 |H | Short_Literal 0x1
04b9 e004 | | Load 0x0,0x4
04ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04bb 035b | [ | Declare_Type Array,Constrained
04bc 0337 | 7 | Declare_Variable Array
04bd e5fb | | Load 0x2,-0x5
04be e005 | | Load 0x0,0x5
04bf 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
04c0 e004 | | Load 0x0,0x4
04c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c2 0119 | | Execute Any,Check_In_Formal_Type
04c3 4801 |H | Short_Literal 0x1
04c4 00da | | Load_Top At_Offset_2
04c5 01d6 | | Execute Vector,Field_Write
04c6 6041 |`A | Indirect_Literal Discrete,0x508,{0x00000000, 0x0000885a}
04c7 e006 | | Load 0x0,0x6
04c8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04c9 4800 |H | Short_Literal 0x0
04ca 4406 |D | Exit_Subprogram With_Result,0x6
04cb 00d9 | | Load_Top At_Offset_1
04cc e5fa | | Load 0x2,-0x6
04cd e5fc | | Load 0x2,-0x4
04ce e5fd | | Load 0x2,-0x3
04cf e5fe | | Load 0x2,-0x2
04d0 e5ff | | Load 0x2,-0x1
04d1 e403 | | Load 0x2,0x3
04d2 e007 | | Load 0x0,0x7
04d3 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04d4 00d8 | | Load_Top At_Offset_0
04d5 e007 | | Load 0x0,0x7
04d6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04d7 7003 |p | Jump_Nonzero 0x4db
04d8 e008 | | Load 0x0,0x8
04d9 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
04da 0257 | W | Execute Discrete,Raise
04db 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04dc c402 | | Store 0x2,0x2
04dd 00d9 | | Load_Top At_Offset_1
04de 822c | , | Call 0x1,0x2c
04df 4406 |D | Exit_Subprogram With_Result,0x6
04e0 TRAP_04a0:
04e0 4884 |H | Short_Literal 0x84
04e1 010f | | Execute Exception,Equal
04e2 7004 |p | Jump_Nonzero 0x4e7
04e3 e008 | | Load 0x0,0x8
04e4 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
04e5 010f | | Execute Exception,Equal
04e6 6816 |h | Jump_Zero 0x4fd
04e7 e003 | | Load 0x0,0x3
04e8 180e | | Execute Package,Field_Execute,Field_Number 0xe
04e9 4801 |H | Short_Literal 0x1
04ea 4801 |H | Short_Literal 0x1
04eb e004 | | Load 0x0,0x4
04ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ed 035b | [ | Declare_Type Array,Constrained
04ee 0337 | 7 | Declare_Variable Array
04ef e5fb | | Load 0x2,-0x5
04f0 e005 | | Load 0x0,0x5
04f1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
04f2 e004 | | Load 0x0,0x4
04f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04f4 0119 | | Execute Any,Check_In_Formal_Type
04f5 4801 |H | Short_Literal 0x1
04f6 00da | | Load_Top At_Offset_2
04f7 01d6 | | Execute Vector,Field_Write
04f8 600b |` | Indirect_Literal Discrete,0x504,{0x00000000, 0x0000885b}
04f9 e006 | | Load 0x0,0x6
04fa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04fb 4800 |H | Short_Literal 0x0
04fc 4406 |D | Exit_Subprogram With_Result,0x6
04fd e006 | | Load 0x0,0x6
04fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04ff 010f | | Execute Exception,Equal
0500 6802 |h | Jump_Zero 0x503
0501 4800 |H | Short_Literal 0x0
0502 4406 |D | Exit_Subprogram With_Result,0x6
0503 0100 | | Execute Exception,Raise
0504 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
0508 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
050c 0000 0000 | | .BLANK 0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 051d | | .CONST 0x051d ; Address of begin
0511 0550 | P | .CONST 0x0550 ; Address of exception handler
0512 0003 | | .CONST 0x0003 ; Number of locals
0513 INIT_0510:
0513 e001 | | Load 0x0,0x1
0514 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0515 02c7 | | Declare_Variable Any
0516 00d8 | | Load_Top At_Offset_0
0517 1c00 | | Execute_Immediate Run_Utility,0x0
0518 e002 | | Load 0x0,0x2
0519 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051a 02c7 | | Declare_Variable Any
051b 00d8 | | Load_Top At_Offset_0
051c 1c00 | | Execute_Immediate Run_Utility,0x0
051d BODY_0510:
051d e5fb | | Load 0x2,-0x5
051e e002 | | Load 0x0,0x2
051f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0520 c403 | | Store 0x2,0x3
0521 00d8 | | Load_Top At_Offset_0
0522 e002 | | Load 0x0,0x2
0523 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0524 6816 |h | Jump_Zero 0x53b
0525 e003 | | Load 0x0,0x3
0526 180e | | Execute Package,Field_Execute,Field_Number 0xe
0527 4801 |H | Short_Literal 0x1
0528 4801 |H | Short_Literal 0x1
0529 e004 | | Load 0x0,0x4
052a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
052b 035b | [ | Declare_Type Array,Constrained
052c 0337 | 7 | Declare_Variable Array
052d e5fb | | Load 0x2,-0x5
052e e005 | | Load 0x0,0x5
052f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0530 e004 | | Load 0x0,0x4
0531 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0532 0119 | | Execute Any,Check_In_Formal_Type
0533 4801 |H | Short_Literal 0x1
0534 00da | | Load_Top At_Offset_2
0535 01d6 | | Execute Vector,Field_Write
0536 67d1 |g | Indirect_Literal Discrete,0x508,{0x00000000, 0x0000885a}
0537 e006 | | Load 0x0,0x6
0538 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0539 4800 |H | Short_Literal 0x0
053a 4406 |D | Exit_Subprogram With_Result,0x6
053b 00d9 | | Load_Top At_Offset_1
053c e5fa | | Load 0x2,-0x6
053d e5fc | | Load 0x2,-0x4
053e e5fd | | Load 0x2,-0x3
053f e5fe | | Load 0x2,-0x2
0540 e5ff | | Load 0x2,-0x1
0541 e403 | | Load 0x2,0x3
0542 e007 | | Load 0x0,0x7
0543 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0544 00d8 | | Load_Top At_Offset_0
0545 e007 | | Load 0x0,0x7
0546 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0547 7003 |p | Jump_Nonzero 0x54b
0548 e008 | | Load 0x0,0x8
0549 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
054a 0257 | W | Execute Discrete,Raise
054b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
054c c402 | | Store 0x2,0x2
054d 00d9 | | Load_Top At_Offset_1
054e 822c | , | Call 0x1,0x2c
054f 4406 |D | Exit_Subprogram With_Result,0x6
0550 TRAP_0510:
0550 4884 |H | Short_Literal 0x84
0551 010f | | Execute Exception,Equal
0552 7004 |p | Jump_Nonzero 0x557
0553 e008 | | Load 0x0,0x8
0554 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0555 010f | | Execute Exception,Equal
0556 6816 |h | Jump_Zero 0x56d
0557 e003 | | Load 0x0,0x3
0558 180e | | Execute Package,Field_Execute,Field_Number 0xe
0559 4801 |H | Short_Literal 0x1
055a 4801 |H | Short_Literal 0x1
055b e004 | | Load 0x0,0x4
055c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
055d 035b | [ | Declare_Type Array,Constrained
055e 0337 | 7 | Declare_Variable Array
055f e5fb | | Load 0x2,-0x5
0560 e005 | | Load 0x0,0x5
0561 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0562 e004 | | Load 0x0,0x4
0563 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0564 0119 | | Execute Any,Check_In_Formal_Type
0565 4801 |H | Short_Literal 0x1
0566 00da | | Load_Top At_Offset_2
0567 01d6 | | Execute Vector,Field_Write
0568 679b |g | Indirect_Literal Discrete,0x504,{0x00000000, 0x0000885b}
0569 e006 | | Load 0x0,0x6
056a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
056b 4800 |H | Short_Literal 0x0
056c 4406 |D | Exit_Subprogram With_Result,0x6
056d e006 | | Load 0x0,0x6
056e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
056f 010f | | Execute Exception,Equal
0570 6802 |h | Jump_Zero 0x573
0571 4800 |H | Short_Literal 0x0
0572 4406 |D | Exit_Subprogram With_Result,0x6
0573 0100 | | Execute Exception,Raise
0574 0000 0000 | | .BLANK 0000[0x4]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b | { | .CONST 0x057b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0001 | | .CONST 0x0001 ; Number of locals
057b BODY_0578:
057b INIT_0578:
057b 00da | | Load_Top At_Offset_2
057c e001 | | Load 0x0,0x1
057d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
057e 4603 |F | Jump_Case 0x3
057f 7819 |x | Jump 0x599 ; case 0x0
0580 7830 |x0 | Jump 0x5b1 ; case 0x1
0581 7847 |xG | Jump 0x5c9 ; case 0x2
0582 7800 |x | Jump 0x583 ; case 0x3
0583 4801 |H | Short_Literal 0x1
0584 4801 |H | Short_Literal 0x1
0585 e004 | | Load 0x0,0x4
0586 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0587 035b | [ | Declare_Type Array,Constrained
0588 0337 | 7 | Declare_Variable Array
0589 00db | | Load_Top At_Offset_3
058a e001 | | Load 0x0,0x1
058b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
058c e004 | | Load 0x0,0x4
058d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
058e e004 | | Load 0x0,0x4
058f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0590 0119 | | Execute Any,Check_In_Formal_Type
0591 4801 |H | Short_Literal 0x1
0592 00da | | Load_Top At_Offset_2
0593 01d6 | | Execute Vector,Field_Write
0594 605b |`[ | Indirect_Literal Discrete,0x5f0,{0x00000000, 0x00008856}
0595 e006 | | Load 0x0,0x6
0596 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0597 4800 |H | Short_Literal 0x0
0598 4401 |D | Exit_Subprogram With_Result,0x1
0599 e003 | | Load 0x0,0x3
059a 180e | | Execute Package,Field_Execute,Field_Number 0xe
059b 4801 |H | Short_Literal 0x1
059c 4801 |H | Short_Literal 0x1
059d e004 | | Load 0x0,0x4
059e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
059f 035b | [ | Declare_Type Array,Constrained
05a0 0337 | 7 | Declare_Variable Array
05a1 e5ff | | Load 0x2,-0x1
05a2 e001 | | Load 0x0,0x1
05a3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05a4 e004 | | Load 0x0,0x4
05a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05a6 e004 | | Load 0x0,0x4
05a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05a8 0119 | | Execute Any,Check_In_Formal_Type
05a9 4801 |H | Short_Literal 0x1
05aa 00da | | Load_Top At_Offset_2
05ab 01d6 | | Execute Vector,Field_Write
05ac 603f |`? | Indirect_Literal Discrete,0x5ec,{0x00000000, 0x00008858}
05ad e006 | | Load 0x0,0x6
05ae 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05af 4801 |H | Short_Literal 0x1
05b0 4401 |D | Exit_Subprogram With_Result,0x1
05b1 e003 | | Load 0x0,0x3
05b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b3 4801 |H | Short_Literal 0x1
05b4 4801 |H | Short_Literal 0x1
05b5 e004 | | Load 0x0,0x4
05b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05b7 035b | [ | Declare_Type Array,Constrained
05b8 0337 | 7 | Declare_Variable Array
05b9 e5ff | | Load 0x2,-0x1
05ba e001 | | Load 0x0,0x1
05bb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05bc e004 | | Load 0x0,0x4
05bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05be e004 | | Load 0x0,0x4
05bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05c0 0119 | | Execute Any,Check_In_Formal_Type
05c1 4801 |H | Short_Literal 0x1
05c2 00da | | Load_Top At_Offset_2
05c3 01d6 | | Execute Vector,Field_Write
05c4 6023 |`# | Indirect_Literal Discrete,0x5e8,{0x00000000, 0x00008857}
05c5 e006 | | Load 0x0,0x6
05c6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05c7 4801 |H | Short_Literal 0x1
05c8 4401 |D | Exit_Subprogram With_Result,0x1
05c9 e003 | | Load 0x0,0x3
05ca 180e | | Execute Package,Field_Execute,Field_Number 0xe
05cb 4801 |H | Short_Literal 0x1
05cc 4801 |H | Short_Literal 0x1
05cd e004 | | Load 0x0,0x4
05ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05cf 035b | [ | Declare_Type Array,Constrained
05d0 0337 | 7 | Declare_Variable Array
05d1 e5ff | | Load 0x2,-0x1
05d2 e001 | | Load 0x0,0x1
05d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05d4 e004 | | Load 0x0,0x4
05d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05d6 e004 | | Load 0x0,0x4
05d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d8 0119 | | Execute Any,Check_In_Formal_Type
05d9 4801 |H | Short_Literal 0x1
05da 00da | | Load_Top At_Offset_2
05db 01d6 | | Execute Vector,Field_Write
05dc 6007 |` | Indirect_Literal Discrete,0x5e4,{0x00000000, 0x00008859}
05dd e006 | | Load 0x0,0x6
05de 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05df 4800 |H | Short_Literal 0x0
05e0 4401 |D | Exit_Subprogram With_Result,0x1
05e1 0000 0000 | | .XXX[0x3]
05e3 0000 | |
05e4 0000 0000 | | .LITERAL {0x00000000, 0x00008859}
05e8 0000 0000 | | .LITERAL {0x00000000, 0x00008857}
05ec 0000 0000 | | .LITERAL {0x00000000, 0x00008858}
05f0 0000 0000 | | .LITERAL {0x00000000, 0x00008856}
05f4 0000 0000 | | .BLANK 0000[0x4]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug Table
05f8 ; --------------------------------------------------------------------------------------
05f8 0004 000e | | .DEBUG4 0x0004,0x000e,0xcc97,0x0000,0x0001,0x0000
05fe 0000 0000 | | .XXX[0x2]