|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05e8 | | .CONST 0x05e8 ; 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 0066 | f | .CONST 0x0066 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; 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 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0029 c21d | | Store 0x1,0x1d
002a 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
002c c21e | | Store 0x1,0x1e
002d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
002f c21f | | Store 0x1,0x1f
0030 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0032 c220 | | Store 0x1,0x20
0033 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0035 c221 | ! | Store 0x1,0x21
0036 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0038 c222 | " | Store 0x1,0x22
0039 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
003b c223 | # | Store 0x1,0x23
003c 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
003e c224 | $ | Store 0x1,0x24
003f 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0041 c225 | % | Store 0x1,0x25
0042 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
0044 c226 | & | Store 0x1,0x26
0045 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
0047 c227 | ' | Store 0x1,0x27
0048 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
004a c228 | ( | Store 0x1,0x28
004b 00bf | | Action Accept_Activation
004c 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call
004e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
004f 00c7 | | Action Elaborate_Subprogram
0050 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0051 00c7 | | Action Elaborate_Subprogram
0052 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0053 00c7 | | Action Elaborate_Subprogram
0054 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0055 00c7 | | Action Elaborate_Subprogram
0056 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0057 00c7 | | Action Elaborate_Subprogram
0058 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0059 00c7 | | Action Elaborate_Subprogram
005a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
005b 00c7 | | Action Elaborate_Subprogram
005c 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
005d 00c7 | | Action Elaborate_Subprogram
005e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
005f 00c7 | | Action Elaborate_Subprogram
0060 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0061 00c7 | | Action Elaborate_Subprogram
0062 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0063 00c7 | | Action Elaborate_Subprogram
0064 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0065 00c7 | | Action Elaborate_Subprogram
0066 BODY_0008:
0066 00bc | | Action Signal_Activated
0067 00bb | | Action Signal_Completion
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0075 | u | .CONST 0x0075 ; Address of begin
0069 00a7 | | .CONST 0x00a7 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b e001 | | Load 0x0,0x1
006c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006d 02c7 | | Declare_Variable Any
006e 00d8 | | Load_Top At_Offset_0
006f 1c00 | | Execute_Immediate Run_Utility,0x0
0070 e002 | | Load 0x0,0x2
0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0072 02c7 | | Declare_Variable Any
0073 00d8 | | Load_Top At_Offset_0
0074 1c00 | | Execute_Immediate Run_Utility,0x0
0075 BODY_0068:
0075 e5fc | | Load 0x2,-0x4
0076 e002 | | Load 0x0,0x2
0077 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0078 c403 | | Store 0x2,0x3
0079 00d8 | | Load_Top At_Offset_0
007a e002 | | Load 0x0,0x2
007b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
007c 6816 |h | Jump_Zero 0x93
007d e003 | | Load 0x0,0x3
007e 180e | | Execute Package,Field_Execute,Field_Number 0xe
007f 4801 |H | Short_Literal 0x1
0080 4801 |H | Short_Literal 0x1
0081 e004 | | Load 0x0,0x4
0082 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0083 035b | [ | Declare_Type Array,Constrained
0084 0337 | 7 | Declare_Variable Array
0085 e5fc | | Load 0x2,-0x4
0086 e005 | | Load 0x0,0x5
0087 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0088 e004 | | Load 0x0,0x4
0089 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008a 0119 | | Execute Any,Check_In_Formal_Type
008b 4801 |H | Short_Literal 0x1
008c 00da | | Load_Top At_Offset_2
008d 01d6 | | Execute Vector,Field_Write
008e 6041 |`A | Indirect_Literal Discrete,0xd0,{0x00000000, 0x0000885a}
008f e006 | | Load 0x0,0x6
0090 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0091 4800 |H | Short_Literal 0x0
0092 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0093 00d9 | | Load_Top At_Offset_1
0094 e5fb | | Load 0x2,-0x5
0095 e5fd | | Load 0x2,-0x3
0096 e5fe | | Load 0x2,-0x2
0097 e5ff | | Load 0x2,-0x1
0098 e403 | | Load 0x2,0x3
0099 e007 | | Load 0x0,0x7
009a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
009b 00d8 | | Load_Top At_Offset_0
009c e007 | | Load 0x0,0x7
009d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
009e 7003 |p | Jump_Nonzero 0xa2
009f e008 | | Load 0x0,0x8
00a0 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00a1 0257 | W | Execute Discrete,Raise
00a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a3 c402 | | Store 0x2,0x2
00a4 00d9 | | Load_Top At_Offset_1
00a5 8229 | ) | Call 0x1,0x29
00a6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
00a7 TRAP_0068:
00a7 4884 |H | Short_Literal 0x84
00a8 010f | | Execute Exception,Equal
00a9 7004 |p | Jump_Nonzero 0xae
00aa e008 | | Load 0x0,0x8
00ab 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00ac 010f | | Execute Exception,Equal
00ad 6816 |h | Jump_Zero 0xc4
00ae e003 | | Load 0x0,0x3
00af 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b0 4801 |H | Short_Literal 0x1
00b1 4801 |H | Short_Literal 0x1
00b2 e004 | | Load 0x0,0x4
00b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b4 035b | [ | Declare_Type Array,Constrained
00b5 0337 | 7 | Declare_Variable Array
00b6 e5fc | | Load 0x2,-0x4
00b7 e005 | | Load 0x0,0x5
00b8 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00b9 e004 | | Load 0x0,0x4
00ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bb 0119 | | Execute Any,Check_In_Formal_Type
00bc 4801 |H | Short_Literal 0x1
00bd 00da | | Load_Top At_Offset_2
00be 01d6 | | Execute Vector,Field_Write
00bf 600c |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x0000885b}
00c0 e006 | | Load 0x0,0x6
00c1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00c2 4800 |H | Short_Literal 0x0
00c3 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
00c4 e006 | | Load 0x0,0x6
00c5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c6 010f | | Execute Exception,Equal
00c7 6802 |h | Jump_Zero 0xca
00c8 4800 |H | Short_Literal 0x0
00c9 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
00ca 0100 | | Execute Exception,Raise
00cb 0000 | | .XXX[0x1]
00cc 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
00d0 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e5 | | .CONST 0x00e5 ; Address of begin
00d9 0117 | | .CONST 0x0117 ; Address of exception handler
00da 0003 | | .CONST 0x0003 ; Number of locals
00db INIT_00d8:
00db e001 | | Load 0x0,0x1
00dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00dd 02c7 | | Declare_Variable Any
00de 00d8 | | Load_Top At_Offset_0
00df 1c00 | | Execute_Immediate Run_Utility,0x0
00e0 e002 | | Load 0x0,0x2
00e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e2 02c7 | | Declare_Variable Any
00e3 00d8 | | Load_Top At_Offset_0
00e4 1c00 | | Execute_Immediate Run_Utility,0x0
00e5 BODY_00d8:
00e5 e5fc | | Load 0x2,-0x4
00e6 e002 | | Load 0x0,0x2
00e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e8 c403 | | Store 0x2,0x3
00e9 00d8 | | Load_Top At_Offset_0
00ea e002 | | Load 0x0,0x2
00eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ec 6816 |h | Jump_Zero 0x103
00ed e003 | | Load 0x0,0x3
00ee 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ef 4801 |H | Short_Literal 0x1
00f0 4801 |H | Short_Literal 0x1
00f1 e004 | | Load 0x0,0x4
00f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f3 035b | [ | Declare_Type Array,Constrained
00f4 0337 | 7 | Declare_Variable Array
00f5 e5fc | | Load 0x2,-0x4
00f6 e005 | | Load 0x0,0x5
00f7 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00f8 e004 | | Load 0x0,0x4
00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fa 0119 | | Execute Any,Check_In_Formal_Type
00fb 4801 |H | Short_Literal 0x1
00fc 00da | | Load_Top At_Offset_2
00fd 01d6 | | Execute Vector,Field_Write
00fe 67d1 |g | Indirect_Literal Discrete,0xd0,{0x00000000, 0x0000885a}
00ff e006 | | Load 0x0,0x6
0100 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0101 4800 |H | Short_Literal 0x0
0102 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0103 00d9 | | Load_Top At_Offset_1
0104 e5fb | | Load 0x2,-0x5
0105 e5fd | | Load 0x2,-0x3
0106 e5fe | | Load 0x2,-0x2
0107 e5ff | | Load 0x2,-0x1
0108 e403 | | Load 0x2,0x3
0109 e007 | | Load 0x0,0x7
010a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
010b 00d8 | | Load_Top At_Offset_0
010c e007 | | Load 0x0,0x7
010d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
010e 7003 |p | Jump_Nonzero 0x112
010f e008 | | Load 0x0,0x8
0110 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0111 0257 | W | Execute Discrete,Raise
0112 180f | | Execute Package,Field_Execute,Field_Number 0xf
0113 c402 | | Store 0x2,0x2
0114 00d9 | | Load_Top At_Offset_1
0115 8229 | ) | Call 0x1,0x29
0116 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0117 TRAP_00d8:
0117 4884 |H | Short_Literal 0x84
0118 010f | | Execute Exception,Equal
0119 7004 |p | Jump_Nonzero 0x11e
011a e008 | | Load 0x0,0x8
011b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
011c 010f | | Execute Exception,Equal
011d 6816 |h | Jump_Zero 0x134
011e e003 | | Load 0x0,0x3
011f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0120 4801 |H | Short_Literal 0x1
0121 4801 |H | Short_Literal 0x1
0122 e004 | | Load 0x0,0x4
0123 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0124 035b | [ | Declare_Type Array,Constrained
0125 0337 | 7 | Declare_Variable Array
0126 e5fc | | Load 0x2,-0x4
0127 e005 | | Load 0x0,0x5
0128 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0129 e004 | | Load 0x0,0x4
012a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012b 0119 | | Execute Any,Check_In_Formal_Type
012c 4801 |H | Short_Literal 0x1
012d 00da | | Load_Top At_Offset_2
012e 01d6 | | Execute Vector,Field_Write
012f 679c |g | Indirect_Literal Discrete,0xcc,{0x00000000, 0x0000885b}
0130 e006 | | Load 0x0,0x6
0131 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0132 4800 |H | Short_Literal 0x0
0133 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0134 e006 | | Load 0x0,0x6
0135 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0136 010f | | Execute Exception,Equal
0137 6802 |h | Jump_Zero 0x13a
0138 4800 |H | Short_Literal 0x0
0139 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
013a 0100 | | Execute Exception,Raise
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014f | O | .CONST 0x014f ; Address of begin
0141 017a | z | .CONST 0x017a ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 e001 | | Load 0x0,0x1
0144 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0145 02c7 | | Declare_Variable Any
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 e002 | | Load 0x0,0x2
0149 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014a 02c7 | | Declare_Variable Any
014b e5fe | | Load 0x2,-0x2
014c e002 | | Load 0x0,0x2
014d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014e a403 | | Store_Unchecked 0x2,0x3
014f BODY_0140:
014f 00d8 | | Load_Top At_Offset_0
0150 e002 | | Load 0x0,0x2
0151 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0152 6816 |h | Jump_Zero 0x169
0153 e003 | | Load 0x0,0x3
0154 180e | | Execute Package,Field_Execute,Field_Number 0xe
0155 4801 |H | Short_Literal 0x1
0156 4801 |H | Short_Literal 0x1
0157 e004 | | Load 0x0,0x4
0158 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0159 035b | [ | Declare_Type Array,Constrained
015a 0337 | 7 | Declare_Variable Array
015b e5fe | | Load 0x2,-0x2
015c e005 | | Load 0x0,0x5
015d 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
015e e004 | | Load 0x0,0x4
015f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0160 0119 | | Execute Any,Check_In_Formal_Type
0161 4801 |H | Short_Literal 0x1
0162 00da | | Load_Top At_Offset_2
0163 01d6 | | Execute Vector,Field_Write
0164 603f |`? | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x0000885a}
0165 e006 | | Load 0x0,0x6
0166 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0167 4800 |H | Short_Literal 0x0
0168 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0169 00d9 | | Load_Top At_Offset_1
016a e5ff | | Load 0x2,-0x1
016b 00da | | Load_Top At_Offset_2
016c e007 | | Load 0x0,0x7
016d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
016e 00d8 | | Load_Top At_Offset_0
016f e007 | | Load 0x0,0x7
0170 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0171 7003 |p | Jump_Nonzero 0x175
0172 e008 | | Load 0x0,0x8
0173 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0174 0257 | W | Execute Discrete,Raise
0175 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0176 c402 | | Store 0x2,0x2
0177 00d9 | | Load_Top At_Offset_1
0178 8229 | ) | Call 0x1,0x29
0179 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017a TRAP_0140:
017a 4884 |H | Short_Literal 0x84
017b 010f | | Execute Exception,Equal
017c 7004 |p | Jump_Nonzero 0x181
017d e008 | | Load 0x0,0x8
017e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
017f 010f | | Execute Exception,Equal
0180 6816 |h | Jump_Zero 0x197
0181 e003 | | Load 0x0,0x3
0182 180e | | Execute Package,Field_Execute,Field_Number 0xe
0183 4801 |H | Short_Literal 0x1
0184 4801 |H | Short_Literal 0x1
0185 e004 | | Load 0x0,0x4
0186 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0187 035b | [ | Declare_Type Array,Constrained
0188 0337 | 7 | Declare_Variable Array
0189 e5fe | | Load 0x2,-0x2
018a e005 | | Load 0x0,0x5
018b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
018c e004 | | Load 0x0,0x4
018d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
018e 0119 | | Execute Any,Check_In_Formal_Type
018f 4801 |H | Short_Literal 0x1
0190 00da | | Load_Top At_Offset_2
0191 01d6 | | Execute Vector,Field_Write
0192 600d |` | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x0000885b}
0193 e006 | | Load 0x0,0x6
0194 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0195 4800 |H | Short_Literal 0x0
0196 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0197 e006 | | Load 0x0,0x6
0198 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0199 010f | | Execute Exception,Equal
019a 6802 |h | Jump_Zero 0x19d
019b 4800 |H | Short_Literal 0x0
019c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
019d 0100 | | Execute Exception,Raise
019e 0000 0000 | | .XXX[0x2]
01a0 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
01a4 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b5 | | .CONST 0x01b5 ; Address of begin
01a9 01e4 | | .CONST 0x01e4 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e001 | | Load 0x0,0x1
01ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ad 02c7 | | Declare_Variable Any
01ae 00d8 | | Load_Top At_Offset_0
01af 1c00 | | Execute_Immediate Run_Utility,0x0
01b0 e002 | | Load 0x0,0x2
01b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b2 02c7 | | Declare_Variable Any
01b3 00d8 | | Load_Top At_Offset_0
01b4 1c00 | | Execute_Immediate Run_Utility,0x0
01b5 BODY_01a8:
01b5 e5fe | | Load 0x2,-0x2
01b6 e002 | | Load 0x0,0x2
01b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b8 c403 | | Store 0x2,0x3
01b9 00d8 | | Load_Top At_Offset_0
01ba e002 | | Load 0x0,0x2
01bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01bc 6816 |h | Jump_Zero 0x1d3
01bd e003 | | Load 0x0,0x3
01be 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bf 4801 |H | Short_Literal 0x1
01c0 4801 |H | Short_Literal 0x1
01c1 e004 | | Load 0x0,0x4
01c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c3 035b | [ | Declare_Type Array,Constrained
01c4 0337 | 7 | Declare_Variable Array
01c5 e5fe | | Load 0x2,-0x2
01c6 e005 | | Load 0x0,0x5
01c7 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01c8 e004 | | Load 0x0,0x4
01c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ca 0119 | | Execute Any,Check_In_Formal_Type
01cb 4801 |H | Short_Literal 0x1
01cc 00da | | Load_Top At_Offset_2
01cd 01d6 | | Execute Vector,Field_Write
01ce 67d5 |g | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x0000885a}
01cf e006 | | Load 0x0,0x6
01d0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01d1 4800 |H | Short_Literal 0x0
01d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d3 00d9 | | Load_Top At_Offset_1
01d4 e5ff | | Load 0x2,-0x1
01d5 00da | | Load_Top At_Offset_2
01d6 e007 | | Load 0x0,0x7
01d7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01d8 00d8 | | Load_Top At_Offset_0
01d9 e007 | | Load 0x0,0x7
01da 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01db 7003 |p | Jump_Nonzero 0x1df
01dc e008 | | Load 0x0,0x8
01dd 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01de 0257 | W | Execute Discrete,Raise
01df 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e0 c402 | | Store 0x2,0x2
01e1 00d9 | | Load_Top At_Offset_1
01e2 8229 | ) | Call 0x1,0x29
01e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e4 TRAP_01a8:
01e4 4884 |H | Short_Literal 0x84
01e5 010f | | Execute Exception,Equal
01e6 7004 |p | Jump_Nonzero 0x1eb
01e7 e008 | | Load 0x0,0x8
01e8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01e9 010f | | Execute Exception,Equal
01ea 6816 |h | Jump_Zero 0x201
01eb e003 | | Load 0x0,0x3
01ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ed 4801 |H | Short_Literal 0x1
01ee 4801 |H | Short_Literal 0x1
01ef e004 | | Load 0x0,0x4
01f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f1 035b | [ | Declare_Type Array,Constrained
01f2 0337 | 7 | Declare_Variable Array
01f3 e5fe | | Load 0x2,-0x2
01f4 e005 | | Load 0x0,0x5
01f5 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01f6 e004 | | Load 0x0,0x4
01f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f8 0119 | | Execute Any,Check_In_Formal_Type
01f9 4801 |H | Short_Literal 0x1
01fa 00da | | Load_Top At_Offset_2
01fb 01d6 | | Execute Vector,Field_Write
01fc 67a3 |g | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x0000885b}
01fd e006 | | Load 0x0,0x6
01fe 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01ff 4800 |H | Short_Literal 0x0
0200 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0201 e006 | | Load 0x0,0x6
0202 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0203 010f | | Execute Exception,Equal
0204 6802 |h | Jump_Zero 0x207
0205 4800 |H | Short_Literal 0x0
0206 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0207 0100 | | Execute Exception,Raise
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0215 | | .CONST 0x0215 ; Address of begin
0209 0245 | E | .CONST 0x0245 ; Address of exception handler
020a 0003 | | .CONST 0x0003 ; Number of locals
020b INIT_0208:
020b e001 | | Load 0x0,0x1
020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020d 02c7 | | Declare_Variable Any
020e 00d8 | | Load_Top At_Offset_0
020f 1c00 | | Execute_Immediate Run_Utility,0x0
0210 e002 | | Load 0x0,0x2
0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0212 02c7 | | Declare_Variable Any
0213 00d8 | | Load_Top At_Offset_0
0214 1c00 | | Execute_Immediate Run_Utility,0x0
0215 BODY_0208:
0215 e5fd | | Load 0x2,-0x3
0216 e002 | | Load 0x0,0x2
0217 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0218 c403 | | Store 0x2,0x3
0219 00d8 | | Load_Top At_Offset_0
021a e002 | | Load 0x0,0x2
021b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021c 6816 |h | Jump_Zero 0x233
021d e003 | | Load 0x0,0x3
021e 180e | | Execute Package,Field_Execute,Field_Number 0xe
021f 4801 |H | Short_Literal 0x1
0220 4801 |H | Short_Literal 0x1
0221 e004 | | Load 0x0,0x4
0222 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0223 035b | [ | Declare_Type Array,Constrained
0224 0337 | 7 | Declare_Variable Array
0225 e5fd | | Load 0x2,-0x3
0226 e005 | | Load 0x0,0x5
0227 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0228 e004 | | Load 0x0,0x4
0229 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022a 0119 | | Execute Any,Check_In_Formal_Type
022b 4801 |H | Short_Literal 0x1
022c 00da | | Load_Top At_Offset_2
022d 01d6 | | Execute Vector,Field_Write
022e 6041 |`A | Indirect_Literal Discrete,0x270,{0x00000000, 0x0000885a}
022f e006 | | Load 0x0,0x6
0230 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0231 4800 |H | Short_Literal 0x0
0232 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0233 00d9 | | Load_Top At_Offset_1
0234 e5fe | | Load 0x2,-0x2
0235 e5ff | | Load 0x2,-0x1
0236 00db | | Load_Top At_Offset_3
0237 e007 | | Load 0x0,0x7
0238 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0239 00d8 | | Load_Top At_Offset_0
023a e007 | | Load 0x0,0x7
023b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
023c 7003 |p | Jump_Nonzero 0x240
023d e008 | | Load 0x0,0x8
023e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
023f 0257 | W | Execute Discrete,Raise
0240 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0241 c402 | | Store 0x2,0x2
0242 00d9 | | Load_Top At_Offset_1
0243 8229 | ) | Call 0x1,0x29
0244 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0245 TRAP_0208:
0245 4884 |H | Short_Literal 0x84
0246 010f | | Execute Exception,Equal
0247 7004 |p | Jump_Nonzero 0x24c
0248 e008 | | Load 0x0,0x8
0249 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
024a 010f | | Execute Exception,Equal
024b 6816 |h | Jump_Zero 0x262
024c e003 | | Load 0x0,0x3
024d 180e | | Execute Package,Field_Execute,Field_Number 0xe
024e 4801 |H | Short_Literal 0x1
024f 4801 |H | Short_Literal 0x1
0250 e004 | | Load 0x0,0x4
0251 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0252 035b | [ | Declare_Type Array,Constrained
0253 0337 | 7 | Declare_Variable Array
0254 e5fd | | Load 0x2,-0x3
0255 e005 | | Load 0x0,0x5
0256 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0257 e004 | | Load 0x0,0x4
0258 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0259 0119 | | Execute Any,Check_In_Formal_Type
025a 4801 |H | Short_Literal 0x1
025b 00da | | Load_Top At_Offset_2
025c 01d6 | | Execute Vector,Field_Write
025d 600e |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000885b}
025e e006 | | Load 0x0,0x6
025f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0260 4800 |H | Short_Literal 0x0
0261 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0262 e006 | | Load 0x0,0x6
0263 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0264 010f | | Execute Exception,Equal
0265 6802 |h | Jump_Zero 0x268
0266 4800 |H | Short_Literal 0x0
0267 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0268 0100 | | Execute Exception,Raise
0269 0000 0000 | | .XXX[0x3]
026b 0000 | |
026c 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
0270 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0285 | | .CONST 0x0285 ; Address of begin
0279 02b5 | | .CONST 0x02b5 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b e001 | | Load 0x0,0x1
027c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
027d 02c7 | | Declare_Variable Any
027e 00d8 | | Load_Top At_Offset_0
027f 1c00 | | Execute_Immediate Run_Utility,0x0
0280 e002 | | Load 0x0,0x2
0281 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0282 02c7 | | Declare_Variable Any
0283 00d8 | | Load_Top At_Offset_0
0284 1c00 | | Execute_Immediate Run_Utility,0x0
0285 BODY_0278:
0285 e5fd | | Load 0x2,-0x3
0286 e002 | | Load 0x0,0x2
0287 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0288 c403 | | Store 0x2,0x3
0289 00d8 | | Load_Top At_Offset_0
028a e002 | | Load 0x0,0x2
028b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028c 6816 |h | Jump_Zero 0x2a3
028d e003 | | Load 0x0,0x3
028e 180e | | Execute Package,Field_Execute,Field_Number 0xe
028f 4801 |H | Short_Literal 0x1
0290 4801 |H | Short_Literal 0x1
0291 e004 | | Load 0x0,0x4
0292 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0293 035b | [ | Declare_Type Array,Constrained
0294 0337 | 7 | Declare_Variable Array
0295 e5fd | | Load 0x2,-0x3
0296 e005 | | Load 0x0,0x5
0297 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0298 e004 | | Load 0x0,0x4
0299 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029a 0119 | | Execute Any,Check_In_Formal_Type
029b 4801 |H | Short_Literal 0x1
029c 00da | | Load_Top At_Offset_2
029d 01d6 | | Execute Vector,Field_Write
029e 67d1 |g | Indirect_Literal Discrete,0x270,{0x00000000, 0x0000885a}
029f e006 | | Load 0x0,0x6
02a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02a1 4800 |H | Short_Literal 0x0
02a2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02a3 00d9 | | Load_Top At_Offset_1
02a4 e5fe | | Load 0x2,-0x2
02a5 e5ff | | Load 0x2,-0x1
02a6 00db | | Load_Top At_Offset_3
02a7 e007 | | Load 0x0,0x7
02a8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02a9 00d8 | | Load_Top At_Offset_0
02aa e007 | | Load 0x0,0x7
02ab 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
02ac 7003 |p | Jump_Nonzero 0x2b0
02ad e008 | | Load 0x0,0x8
02ae 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
02af 0257 | W | Execute Discrete,Raise
02b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02b1 c402 | | Store 0x2,0x2
02b2 00d9 | | Load_Top At_Offset_1
02b3 8229 | ) | Call 0x1,0x29
02b4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02b5 TRAP_0278:
02b5 4884 |H | Short_Literal 0x84
02b6 010f | | Execute Exception,Equal
02b7 7004 |p | Jump_Nonzero 0x2bc
02b8 e008 | | Load 0x0,0x8
02b9 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
02ba 010f | | Execute Exception,Equal
02bb 6816 |h | Jump_Zero 0x2d2
02bc e003 | | Load 0x0,0x3
02bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
02be 4801 |H | Short_Literal 0x1
02bf 4801 |H | Short_Literal 0x1
02c0 e004 | | Load 0x0,0x4
02c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c2 035b | [ | Declare_Type Array,Constrained
02c3 0337 | 7 | Declare_Variable Array
02c4 e5fd | | Load 0x2,-0x3
02c5 e005 | | Load 0x0,0x5
02c6 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
02c7 e004 | | Load 0x0,0x4
02c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c9 0119 | | Execute Any,Check_In_Formal_Type
02ca 4801 |H | Short_Literal 0x1
02cb 00da | | Load_Top At_Offset_2
02cc 01d6 | | Execute Vector,Field_Write
02cd 679e |g | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000885b}
02ce e006 | | Load 0x0,0x6
02cf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02d0 4800 |H | Short_Literal 0x0
02d1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02d2 e006 | | Load 0x0,0x6
02d3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02d4 010f | | Execute Exception,Equal
02d5 6802 |h | Jump_Zero 0x2d8
02d6 4800 |H | Short_Literal 0x0
02d7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02d8 0100 | | Execute Exception,Raise
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02ed | | .CONST 0x02ed ; Address of begin
02e1 031d | | .CONST 0x031d ; Address of exception handler
02e2 0003 | | .CONST 0x0003 ; Number of locals
02e3 INIT_02e0:
02e3 e001 | | Load 0x0,0x1
02e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02e5 02c7 | | Declare_Variable Any
02e6 00d8 | | Load_Top At_Offset_0
02e7 1c00 | | Execute_Immediate Run_Utility,0x0
02e8 e002 | | Load 0x0,0x2
02e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ea 02c7 | | Declare_Variable Any
02eb 00d8 | | Load_Top At_Offset_0
02ec 1c00 | | Execute_Immediate Run_Utility,0x0
02ed BODY_02e0:
02ed e5fd | | Load 0x2,-0x3
02ee e002 | | Load 0x0,0x2
02ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f0 c403 | | Store 0x2,0x3
02f1 00d8 | | Load_Top At_Offset_0
02f2 e002 | | Load 0x0,0x2
02f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f4 6816 |h | Jump_Zero 0x30b
02f5 e003 | | Load 0x0,0x3
02f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f7 4801 |H | Short_Literal 0x1
02f8 4801 |H | Short_Literal 0x1
02f9 e004 | | Load 0x0,0x4
02fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02fb 035b | [ | Declare_Type Array,Constrained
02fc 0337 | 7 | Declare_Variable Array
02fd e5fd | | Load 0x2,-0x3
02fe e005 | | Load 0x0,0x5
02ff 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0300 e004 | | Load 0x0,0x4
0301 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0302 0119 | | Execute Any,Check_In_Formal_Type
0303 4801 |H | Short_Literal 0x1
0304 00da | | Load_Top At_Offset_2
0305 01d6 | | Execute Vector,Field_Write
0306 6041 |`A | Indirect_Literal Discrete,0x348,{0x00000000, 0x0000885a}
0307 e006 | | Load 0x0,0x6
0308 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0309 4800 |H | Short_Literal 0x0
030a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
030b 00d9 | | Load_Top At_Offset_1
030c e5fe | | Load 0x2,-0x2
030d e5ff | | Load 0x2,-0x1
030e 00db | | Load_Top At_Offset_3
030f e007 | | Load 0x0,0x7
0310 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0311 00d8 | | Load_Top At_Offset_0
0312 e007 | | Load 0x0,0x7
0313 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0314 7003 |p | Jump_Nonzero 0x318
0315 e008 | | Load 0x0,0x8
0316 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0317 0257 | W | Execute Discrete,Raise
0318 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0319 c402 | | Store 0x2,0x2
031a 00d9 | | Load_Top At_Offset_1
031b 8229 | ) | Call 0x1,0x29
031c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
031d TRAP_02e0:
031d 4884 |H | Short_Literal 0x84
031e 010f | | Execute Exception,Equal
031f 7004 |p | Jump_Nonzero 0x324
0320 e008 | | Load 0x0,0x8
0321 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0322 010f | | Execute Exception,Equal
0323 6816 |h | Jump_Zero 0x33a
0324 e003 | | Load 0x0,0x3
0325 180e | | Execute Package,Field_Execute,Field_Number 0xe
0326 4801 |H | Short_Literal 0x1
0327 4801 |H | Short_Literal 0x1
0328 e004 | | Load 0x0,0x4
0329 1b0f | | Execute Package,Field_Read,Field_Number 0xf
032a 035b | [ | Declare_Type Array,Constrained
032b 0337 | 7 | Declare_Variable Array
032c e5fd | | Load 0x2,-0x3
032d e005 | | Load 0x0,0x5
032e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
032f e004 | | Load 0x0,0x4
0330 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0331 0119 | | Execute Any,Check_In_Formal_Type
0332 4801 |H | Short_Literal 0x1
0333 00da | | Load_Top At_Offset_2
0334 01d6 | | Execute Vector,Field_Write
0335 600e |` | Indirect_Literal Discrete,0x344,{0x00000000, 0x0000885b}
0336 e006 | | Load 0x0,0x6
0337 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0338 4800 |H | Short_Literal 0x0
0339 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
033a e006 | | Load 0x0,0x6
033b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
033c 010f | | Execute Exception,Equal
033d 6802 |h | Jump_Zero 0x340
033e 4800 |H | Short_Literal 0x0
033f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0340 0100 | | Execute Exception,Raise
0341 0000 0000 | | .XXX[0x3]
0343 0000 | |
0344 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
0348 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
034c 0000 0000 | | .BLANK 0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035d | ] | .CONST 0x035d ; Address of begin
0351 038d | | .CONST 0x038d ; Address of exception handler
0352 0003 | | .CONST 0x0003 ; Number of locals
0353 INIT_0350:
0353 e001 | | Load 0x0,0x1
0354 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0355 02c7 | | Declare_Variable Any
0356 00d8 | | Load_Top At_Offset_0
0357 1c00 | | Execute_Immediate Run_Utility,0x0
0358 e002 | | Load 0x0,0x2
0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035a 02c7 | | Declare_Variable Any
035b 00d8 | | Load_Top At_Offset_0
035c 1c00 | | Execute_Immediate Run_Utility,0x0
035d BODY_0350:
035d e5fd | | Load 0x2,-0x3
035e e002 | | Load 0x0,0x2
035f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0360 c403 | | Store 0x2,0x3
0361 00d8 | | Load_Top At_Offset_0
0362 e002 | | Load 0x0,0x2
0363 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0364 6816 |h | Jump_Zero 0x37b
0365 e003 | | Load 0x0,0x3
0366 180e | | Execute Package,Field_Execute,Field_Number 0xe
0367 4801 |H | Short_Literal 0x1
0368 4801 |H | Short_Literal 0x1
0369 e004 | | Load 0x0,0x4
036a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036b 035b | [ | Declare_Type Array,Constrained
036c 0337 | 7 | Declare_Variable Array
036d e5fd | | Load 0x2,-0x3
036e e005 | | Load 0x0,0x5
036f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0370 e004 | | Load 0x0,0x4
0371 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0372 0119 | | Execute Any,Check_In_Formal_Type
0373 4801 |H | Short_Literal 0x1
0374 00da | | Load_Top At_Offset_2
0375 01d6 | | Execute Vector,Field_Write
0376 67d1 |g | Indirect_Literal Discrete,0x348,{0x00000000, 0x0000885a}
0377 e006 | | Load 0x0,0x6
0378 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0379 4800 |H | Short_Literal 0x0
037a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
037b 00d9 | | Load_Top At_Offset_1
037c e5fe | | Load 0x2,-0x2
037d e5ff | | Load 0x2,-0x1
037e 00db | | Load_Top At_Offset_3
037f e007 | | Load 0x0,0x7
0380 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0381 00d8 | | Load_Top At_Offset_0
0382 e007 | | Load 0x0,0x7
0383 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0384 7003 |p | Jump_Nonzero 0x388
0385 e008 | | Load 0x0,0x8
0386 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0387 0257 | W | Execute Discrete,Raise
0388 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0389 c402 | | Store 0x2,0x2
038a 00d9 | | Load_Top At_Offset_1
038b 8229 | ) | Call 0x1,0x29
038c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
038d TRAP_0350:
038d 4884 |H | Short_Literal 0x84
038e 010f | | Execute Exception,Equal
038f 7004 |p | Jump_Nonzero 0x394
0390 e008 | | Load 0x0,0x8
0391 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0392 010f | | Execute Exception,Equal
0393 6816 |h | Jump_Zero 0x3aa
0394 e003 | | Load 0x0,0x3
0395 180e | | Execute Package,Field_Execute,Field_Number 0xe
0396 4801 |H | Short_Literal 0x1
0397 4801 |H | Short_Literal 0x1
0398 e004 | | Load 0x0,0x4
0399 1b0f | | Execute Package,Field_Read,Field_Number 0xf
039a 035b | [ | Declare_Type Array,Constrained
039b 0337 | 7 | Declare_Variable Array
039c e5fd | | Load 0x2,-0x3
039d e005 | | Load 0x0,0x5
039e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
039f e004 | | Load 0x0,0x4
03a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a1 0119 | | Execute Any,Check_In_Formal_Type
03a2 4801 |H | Short_Literal 0x1
03a3 00da | | Load_Top At_Offset_2
03a4 01d6 | | Execute Vector,Field_Write
03a5 679e |g | Indirect_Literal Discrete,0x344,{0x00000000, 0x0000885b}
03a6 e006 | | Load 0x0,0x6
03a7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03a8 4800 |H | Short_Literal 0x0
03a9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03aa e006 | | Load 0x0,0x6
03ab 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03ac 010f | | Execute Exception,Equal
03ad 6802 |h | Jump_Zero 0x3b0
03ae 4800 |H | Short_Literal 0x0
03af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03b0 0100 | | Execute Exception,Raise
03b1 0000 0000 | | .BLANK 0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c5 | | .CONST 0x03c5 ; Address of begin
03b9 03f5 | | .CONST 0x03f5 ; Address of exception handler
03ba 0003 | | .CONST 0x0003 ; Number of locals
03bb INIT_03b8:
03bb e001 | | Load 0x0,0x1
03bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03bd 02c7 | | Declare_Variable Any
03be 00d8 | | Load_Top At_Offset_0
03bf 1c00 | | Execute_Immediate Run_Utility,0x0
03c0 e002 | | Load 0x0,0x2
03c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c2 02c7 | | Declare_Variable Any
03c3 00d8 | | Load_Top At_Offset_0
03c4 1c00 | | Execute_Immediate Run_Utility,0x0
03c5 BODY_03b8:
03c5 e5fd | | Load 0x2,-0x3
03c6 e002 | | Load 0x0,0x2
03c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c8 c403 | | Store 0x2,0x3
03c9 00d8 | | Load_Top At_Offset_0
03ca e002 | | Load 0x0,0x2
03cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03cc 6816 |h | Jump_Zero 0x3e3
03cd e003 | | Load 0x0,0x3
03ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
03cf 4801 |H | Short_Literal 0x1
03d0 4801 |H | Short_Literal 0x1
03d1 e004 | | Load 0x0,0x4
03d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d3 035b | [ | Declare_Type Array,Constrained
03d4 0337 | 7 | Declare_Variable Array
03d5 e5fd | | Load 0x2,-0x3
03d6 e005 | | Load 0x0,0x5
03d7 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
03d8 e004 | | Load 0x0,0x4
03d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03da 0119 | | Execute Any,Check_In_Formal_Type
03db 4801 |H | Short_Literal 0x1
03dc 00da | | Load_Top At_Offset_2
03dd 01d6 | | Execute Vector,Field_Write
03de 6041 |`A | Indirect_Literal Discrete,0x420,{0x00000000, 0x0000885a}
03df e006 | | Load 0x0,0x6
03e0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03e1 4800 |H | Short_Literal 0x0
03e2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03e3 00d9 | | Load_Top At_Offset_1
03e4 e5fe | | Load 0x2,-0x2
03e5 e5ff | | Load 0x2,-0x1
03e6 00db | | Load_Top At_Offset_3
03e7 e007 | | Load 0x0,0x7
03e8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03e9 00d8 | | Load_Top At_Offset_0
03ea e007 | | Load 0x0,0x7
03eb 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03ec 7003 |p | Jump_Nonzero 0x3f0
03ed e008 | | Load 0x0,0x8
03ee 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03ef 0257 | W | Execute Discrete,Raise
03f0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03f1 c402 | | Store 0x2,0x2
03f2 00d9 | | Load_Top At_Offset_1
03f3 8229 | ) | Call 0x1,0x29
03f4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03f5 TRAP_03b8:
03f5 4884 |H | Short_Literal 0x84
03f6 010f | | Execute Exception,Equal
03f7 7004 |p | Jump_Nonzero 0x3fc
03f8 e008 | | Load 0x0,0x8
03f9 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03fa 010f | | Execute Exception,Equal
03fb 6816 |h | Jump_Zero 0x412
03fc e003 | | Load 0x0,0x3
03fd 180e | | Execute Package,Field_Execute,Field_Number 0xe
03fe 4801 |H | Short_Literal 0x1
03ff 4801 |H | Short_Literal 0x1
0400 e004 | | Load 0x0,0x4
0401 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0402 035b | [ | Declare_Type Array,Constrained
0403 0337 | 7 | Declare_Variable Array
0404 e5fd | | Load 0x2,-0x3
0405 e005 | | Load 0x0,0x5
0406 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0407 e004 | | Load 0x0,0x4
0408 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0409 0119 | | Execute Any,Check_In_Formal_Type
040a 4801 |H | Short_Literal 0x1
040b 00da | | Load_Top At_Offset_2
040c 01d6 | | Execute Vector,Field_Write
040d 600e |` | Indirect_Literal Discrete,0x41c,{0x00000000, 0x0000885b}
040e e006 | | Load 0x0,0x6
040f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0410 4800 |H | Short_Literal 0x0
0411 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0412 e006 | | Load 0x0,0x6
0413 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0414 010f | | Execute Exception,Equal
0415 6802 |h | Jump_Zero 0x418
0416 4800 |H | Short_Literal 0x0
0417 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0418 0100 | | Execute Exception,Raise
0419 0000 0000 | | .XXX[0x3]
041b 0000 | |
041c 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
0420 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
0424 0000 0000 | | .BLANK 0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0435 | 5 | .CONST 0x0435 ; Address of begin
0429 0465 | e | .CONST 0x0465 ; Address of exception handler
042a 0003 | | .CONST 0x0003 ; Number of locals
042b INIT_0428:
042b e001 | | Load 0x0,0x1
042c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
042d 02c7 | | Declare_Variable Any
042e 00d8 | | Load_Top At_Offset_0
042f 1c00 | | Execute_Immediate Run_Utility,0x0
0430 e002 | | Load 0x0,0x2
0431 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0432 02c7 | | Declare_Variable Any
0433 00d8 | | Load_Top At_Offset_0
0434 1c00 | | Execute_Immediate Run_Utility,0x0
0435 BODY_0428:
0435 e5fd | | Load 0x2,-0x3
0436 e002 | | Load 0x0,0x2
0437 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0438 c403 | | Store 0x2,0x3
0439 00d8 | | Load_Top At_Offset_0
043a e002 | | Load 0x0,0x2
043b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
043c 6816 |h | Jump_Zero 0x453
043d e003 | | Load 0x0,0x3
043e 180e | | Execute Package,Field_Execute,Field_Number 0xe
043f 4801 |H | Short_Literal 0x1
0440 4801 |H | Short_Literal 0x1
0441 e004 | | Load 0x0,0x4
0442 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0443 035b | [ | Declare_Type Array,Constrained
0444 0337 | 7 | Declare_Variable Array
0445 e5fd | | Load 0x2,-0x3
0446 e005 | | Load 0x0,0x5
0447 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0448 e004 | | Load 0x0,0x4
0449 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044a 0119 | | Execute Any,Check_In_Formal_Type
044b 4801 |H | Short_Literal 0x1
044c 00da | | Load_Top At_Offset_2
044d 01d6 | | Execute Vector,Field_Write
044e 67d1 |g | Indirect_Literal Discrete,0x420,{0x00000000, 0x0000885a}
044f e006 | | Load 0x0,0x6
0450 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0451 4800 |H | Short_Literal 0x0
0452 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0453 00d9 | | Load_Top At_Offset_1
0454 e5fe | | Load 0x2,-0x2
0455 e5ff | | Load 0x2,-0x1
0456 00db | | Load_Top At_Offset_3
0457 e007 | | Load 0x0,0x7
0458 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0459 00d8 | | Load_Top At_Offset_0
045a e007 | | Load 0x0,0x7
045b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
045c 7003 |p | Jump_Nonzero 0x460
045d e008 | | Load 0x0,0x8
045e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
045f 0257 | W | Execute Discrete,Raise
0460 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0461 c402 | | Store 0x2,0x2
0462 00d9 | | Load_Top At_Offset_1
0463 8229 | ) | Call 0x1,0x29
0464 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0465 TRAP_0428:
0465 4884 |H | Short_Literal 0x84
0466 010f | | Execute Exception,Equal
0467 7004 |p | Jump_Nonzero 0x46c
0468 e008 | | Load 0x0,0x8
0469 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
046a 010f | | Execute Exception,Equal
046b 6816 |h | Jump_Zero 0x482
046c e003 | | Load 0x0,0x3
046d 180e | | Execute Package,Field_Execute,Field_Number 0xe
046e 4801 |H | Short_Literal 0x1
046f 4801 |H | Short_Literal 0x1
0470 e004 | | Load 0x0,0x4
0471 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0472 035b | [ | Declare_Type Array,Constrained
0473 0337 | 7 | Declare_Variable Array
0474 e5fd | | Load 0x2,-0x3
0475 e005 | | Load 0x0,0x5
0476 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0477 e004 | | Load 0x0,0x4
0478 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0479 0119 | | Execute Any,Check_In_Formal_Type
047a 4801 |H | Short_Literal 0x1
047b 00da | | Load_Top At_Offset_2
047c 01d6 | | Execute Vector,Field_Write
047d 679e |g | Indirect_Literal Discrete,0x41c,{0x00000000, 0x0000885b}
047e e006 | | Load 0x0,0x6
047f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0480 4800 |H | Short_Literal 0x0
0481 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0482 e006 | | Load 0x0,0x6
0483 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0484 010f | | Execute Exception,Equal
0485 6802 |h | Jump_Zero 0x488
0486 4800 |H | Short_Literal 0x0
0487 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0488 0100 | | Execute Exception,Raise
0489 0000 0000 | | .BLANK 0000[0x7]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 049d | | .CONST 0x049d ; Address of begin
0491 04d0 | | .CONST 0x04d0 ; Address of exception handler
0492 0003 | | .CONST 0x0003 ; Number of locals
0493 INIT_0490:
0493 e001 | | Load 0x0,0x1
0494 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0495 02c7 | | Declare_Variable Any
0496 00d8 | | Load_Top At_Offset_0
0497 1c00 | | Execute_Immediate Run_Utility,0x0
0498 e002 | | Load 0x0,0x2
0499 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049a 02c7 | | Declare_Variable Any
049b 00d8 | | Load_Top At_Offset_0
049c 1c00 | | Execute_Immediate Run_Utility,0x0
049d BODY_0490:
049d e5fb | | Load 0x2,-0x5
049e e002 | | Load 0x0,0x2
049f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04a0 c403 | | Store 0x2,0x3
04a1 00d8 | | Load_Top At_Offset_0
04a2 e002 | | Load 0x0,0x2
04a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04a4 6816 |h | Jump_Zero 0x4bb
04a5 e003 | | Load 0x0,0x3
04a6 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a7 4801 |H | Short_Literal 0x1
04a8 4801 |H | Short_Literal 0x1
04a9 e004 | | Load 0x0,0x4
04aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ab 035b | [ | Declare_Type Array,Constrained
04ac 0337 | 7 | Declare_Variable Array
04ad e5fb | | Load 0x2,-0x5
04ae e005 | | Load 0x0,0x5
04af 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
04b0 e004 | | Load 0x0,0x4
04b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b2 0119 | | Execute Any,Check_In_Formal_Type
04b3 4801 |H | Short_Literal 0x1
04b4 00da | | Load_Top At_Offset_2
04b5 01d6 | | Execute Vector,Field_Write
04b6 6041 |`A | Indirect_Literal Discrete,0x4f8,{0x00000000, 0x0000885a}
04b7 e006 | | Load 0x0,0x6
04b8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04b9 4800 |H | Short_Literal 0x0
04ba 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04bb 00d9 | | Load_Top At_Offset_1
04bc e5fa | | Load 0x2,-0x6
04bd e5fc | | Load 0x2,-0x4
04be e5fd | | Load 0x2,-0x3
04bf e5fe | | Load 0x2,-0x2
04c0 e5ff | | Load 0x2,-0x1
04c1 e403 | | Load 0x2,0x3
04c2 e007 | | Load 0x0,0x7
04c3 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04c4 00d8 | | Load_Top At_Offset_0
04c5 e007 | | Load 0x0,0x7
04c6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04c7 7003 |p | Jump_Nonzero 0x4cb
04c8 e008 | | Load 0x0,0x8
04c9 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
04ca 0257 | W | Execute Discrete,Raise
04cb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04cc c402 | | Store 0x2,0x2
04cd 00d9 | | Load_Top At_Offset_1
04ce 8229 | ) | Call 0x1,0x29
04cf 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04d0 TRAP_0490:
04d0 4884 |H | Short_Literal 0x84
04d1 010f | | Execute Exception,Equal
04d2 7004 |p | Jump_Nonzero 0x4d7
04d3 e008 | | Load 0x0,0x8
04d4 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
04d5 010f | | Execute Exception,Equal
04d6 6816 |h | Jump_Zero 0x4ed
04d7 e003 | | Load 0x0,0x3
04d8 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d9 4801 |H | Short_Literal 0x1
04da 4801 |H | Short_Literal 0x1
04db e004 | | Load 0x0,0x4
04dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04dd 035b | [ | Declare_Type Array,Constrained
04de 0337 | 7 | Declare_Variable Array
04df e5fb | | Load 0x2,-0x5
04e0 e005 | | Load 0x0,0x5
04e1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
04e2 e004 | | Load 0x0,0x4
04e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e4 0119 | | Execute Any,Check_In_Formal_Type
04e5 4801 |H | Short_Literal 0x1
04e6 00da | | Load_Top At_Offset_2
04e7 01d6 | | Execute Vector,Field_Write
04e8 600b |` | Indirect_Literal Discrete,0x4f4,{0x00000000, 0x0000885b}
04e9 e006 | | Load 0x0,0x6
04ea 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04eb 4800 |H | Short_Literal 0x0
04ec 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04ed e006 | | Load 0x0,0x6
04ee 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04ef 010f | | Execute Exception,Equal
04f0 6802 |h | Jump_Zero 0x4f3
04f1 4800 |H | Short_Literal 0x0
04f2 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04f3 0100 | | Execute Exception,Raise
04f4 0000 0000 | | .LITERAL {0x00000000, 0x0000885b}
04f8 0000 0000 | | .LITERAL {0x00000000, 0x0000885a}
04fc 0000 0000 | | .BLANK 0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 050d | | .CONST 0x050d ; Address of begin
0501 0540 | @ | .CONST 0x0540 ; Address of exception handler
0502 0003 | | .CONST 0x0003 ; Number of locals
0503 INIT_0500:
0503 e001 | | Load 0x0,0x1
0504 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0505 02c7 | | Declare_Variable Any
0506 00d8 | | Load_Top At_Offset_0
0507 1c00 | | Execute_Immediate Run_Utility,0x0
0508 e002 | | Load 0x0,0x2
0509 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050a 02c7 | | Declare_Variable Any
050b 00d8 | | Load_Top At_Offset_0
050c 1c00 | | Execute_Immediate Run_Utility,0x0
050d BODY_0500:
050d e5fb | | Load 0x2,-0x5
050e e002 | | Load 0x0,0x2
050f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0510 c403 | | Store 0x2,0x3
0511 00d8 | | Load_Top At_Offset_0
0512 e002 | | Load 0x0,0x2
0513 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0514 6816 |h | Jump_Zero 0x52b
0515 e003 | | Load 0x0,0x3
0516 180e | | Execute Package,Field_Execute,Field_Number 0xe
0517 4801 |H | Short_Literal 0x1
0518 4801 |H | Short_Literal 0x1
0519 e004 | | Load 0x0,0x4
051a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
051b 035b | [ | Declare_Type Array,Constrained
051c 0337 | 7 | Declare_Variable Array
051d e5fb | | Load 0x2,-0x5
051e e005 | | Load 0x0,0x5
051f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0520 e004 | | Load 0x0,0x4
0521 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0522 0119 | | Execute Any,Check_In_Formal_Type
0523 4801 |H | Short_Literal 0x1
0524 00da | | Load_Top At_Offset_2
0525 01d6 | | Execute Vector,Field_Write
0526 67d1 |g | Indirect_Literal Discrete,0x4f8,{0x00000000, 0x0000885a}
0527 e006 | | Load 0x0,0x6
0528 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0529 4800 |H | Short_Literal 0x0
052a 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
052b 00d9 | | Load_Top At_Offset_1
052c e5fa | | Load 0x2,-0x6
052d e5fc | | Load 0x2,-0x4
052e e5fd | | Load 0x2,-0x3
052f e5fe | | Load 0x2,-0x2
0530 e5ff | | Load 0x2,-0x1
0531 e403 | | Load 0x2,0x3
0532 e007 | | Load 0x0,0x7
0533 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0534 00d8 | | Load_Top At_Offset_0
0535 e007 | | Load 0x0,0x7
0536 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0537 7003 |p | Jump_Nonzero 0x53b
0538 e008 | | Load 0x0,0x8
0539 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
053a 0257 | W | Execute Discrete,Raise
053b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
053c c402 | | Store 0x2,0x2
053d 00d9 | | Load_Top At_Offset_1
053e 8229 | ) | Call 0x1,0x29
053f 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0540 TRAP_0500:
0540 4884 |H | Short_Literal 0x84
0541 010f | | Execute Exception,Equal
0542 7004 |p | Jump_Nonzero 0x547
0543 e008 | | Load 0x0,0x8
0544 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0545 010f | | Execute Exception,Equal
0546 6816 |h | Jump_Zero 0x55d
0547 e003 | | Load 0x0,0x3
0548 180e | | Execute Package,Field_Execute,Field_Number 0xe
0549 4801 |H | Short_Literal 0x1
054a 4801 |H | Short_Literal 0x1
054b e004 | | Load 0x0,0x4
054c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054d 035b | [ | Declare_Type Array,Constrained
054e 0337 | 7 | Declare_Variable Array
054f e5fb | | Load 0x2,-0x5
0550 e005 | | Load 0x0,0x5
0551 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0552 e004 | | Load 0x0,0x4
0553 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0554 0119 | | Execute Any,Check_In_Formal_Type
0555 4801 |H | Short_Literal 0x1
0556 00da | | Load_Top At_Offset_2
0557 01d6 | | Execute Vector,Field_Write
0558 679b |g | Indirect_Literal Discrete,0x4f4,{0x00000000, 0x0000885b}
0559 e006 | | Load 0x0,0x6
055a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
055b 4800 |H | Short_Literal 0x0
055c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
055d e006 | | Load 0x0,0x6
055e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
055f 010f | | Execute Exception,Equal
0560 6802 |h | Jump_Zero 0x563
0561 4800 |H | Short_Literal 0x0
0562 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0563 0100 | | Execute Exception,Raise
0564 0000 0000 | | .BLANK 0000[0x4]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 00da | | Load_Top At_Offset_2
056c e001 | | Load 0x0,0x1
056d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
056e 4603 |F | Jump_Case 0x4
056f 7819 |x | Jump 0x589 ; case 0x0
0570 7830 |x0 | Jump 0x5a1 ; case 0x1
0571 7847 |xG | Jump 0x5b9 ; case 0x2
0572 7800 |x | Jump 0x573 ; case 0x3
0573 4801 |H | Short_Literal 0x1
0574 4801 |H | Short_Literal 0x1
0575 e004 | | Load 0x0,0x4
0576 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0577 035b | [ | Declare_Type Array,Constrained
0578 0337 | 7 | Declare_Variable Array
0579 00db | | Load_Top At_Offset_3
057a e001 | | Load 0x0,0x1
057b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
057c e004 | | Load 0x0,0x4
057d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
057e e004 | | Load 0x0,0x4
057f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0580 0119 | | Execute Any,Check_In_Formal_Type
0581 4801 |H | Short_Literal 0x1
0582 00da | | Load_Top At_Offset_2
0583 01d6 | | Execute Vector,Field_Write
0584 605b |`[ | Indirect_Literal Discrete,0x5e0,{0x00000000, 0x00008856}
0585 e006 | | Load 0x0,0x6
0586 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0587 4800 |H | Short_Literal 0x0
0588 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0589 e003 | | Load 0x0,0x3
058a 180e | | Execute Package,Field_Execute,Field_Number 0xe
058b 4801 |H | Short_Literal 0x1
058c 4801 |H | Short_Literal 0x1
058d e004 | | Load 0x0,0x4
058e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
058f 035b | [ | Declare_Type Array,Constrained
0590 0337 | 7 | Declare_Variable Array
0591 e5ff | | Load 0x2,-0x1
0592 e001 | | Load 0x0,0x1
0593 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0594 e004 | | Load 0x0,0x4
0595 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0596 e004 | | Load 0x0,0x4
0597 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0598 0119 | | Execute Any,Check_In_Formal_Type
0599 4801 |H | Short_Literal 0x1
059a 00da | | Load_Top At_Offset_2
059b 01d6 | | Execute Vector,Field_Write
059c 603f |`? | Indirect_Literal Discrete,0x5dc,{0x00000000, 0x00008858}
059d e006 | | Load 0x0,0x6
059e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
059f 4801 |H | Short_Literal 0x1
05a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a1 e003 | | Load 0x0,0x3
05a2 180e | | Execute Package,Field_Execute,Field_Number 0xe
05a3 4801 |H | Short_Literal 0x1
05a4 4801 |H | Short_Literal 0x1
05a5 e004 | | Load 0x0,0x4
05a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05a7 035b | [ | Declare_Type Array,Constrained
05a8 0337 | 7 | Declare_Variable Array
05a9 e5ff | | Load 0x2,-0x1
05aa e001 | | Load 0x0,0x1
05ab 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05ac e004 | | Load 0x0,0x4
05ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ae e004 | | Load 0x0,0x4
05af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b0 0119 | | Execute Any,Check_In_Formal_Type
05b1 4801 |H | Short_Literal 0x1
05b2 00da | | Load_Top At_Offset_2
05b3 01d6 | | Execute Vector,Field_Write
05b4 6023 |`# | Indirect_Literal Discrete,0x5d8,{0x00000000, 0x00008857}
05b5 e006 | | Load 0x0,0x6
05b6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05b7 4801 |H | Short_Literal 0x1
05b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b9 e003 | | Load 0x0,0x3
05ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
05bb 4801 |H | Short_Literal 0x1
05bc 4801 |H | Short_Literal 0x1
05bd e004 | | Load 0x0,0x4
05be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05bf 035b | [ | Declare_Type Array,Constrained
05c0 0337 | 7 | Declare_Variable Array
05c1 e5ff | | Load 0x2,-0x1
05c2 e001 | | Load 0x0,0x1
05c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05c4 e004 | | Load 0x0,0x4
05c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05c6 e004 | | Load 0x0,0x4
05c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05c8 0119 | | Execute Any,Check_In_Formal_Type
05c9 4801 |H | Short_Literal 0x1
05ca 00da | | Load_Top At_Offset_2
05cb 01d6 | | Execute Vector,Field_Write
05cc 6007 |` | Indirect_Literal Discrete,0x5d4,{0x00000000, 0x00008859}
05cd e006 | | Load 0x0,0x6
05ce 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05cf 4800 |H | Short_Literal 0x0
05d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d1 0000 0000 | | .XXX[0x3]
05d3 0000 | |
05d4 0000 0000 | | .LITERAL {0x00000000, 0x00008859}
05d8 0000 0000 | | .LITERAL {0x00000000, 0x00008857}
05dc 0000 0000 | | .LITERAL {0x00000000, 0x00008858}
05e0 0000 0000 | | .LITERAL {0x00000000, 0x00008856}
05e4 0000 0000 | | .BLANK 0000[0x4]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug Table
05e8 ; --------------------------------------------------------------------------------------
05e8 0004 000d | | .DEBUG4 0x0004,0x000d,0x50a0,0x0000,0x0001,0x0000
05ee 0000 0000 | | .BLANK 0000[0x7]
05f5 4000 007f |@ | .XXX[0xb]
05f7 8000 0000 | |
05f9 0000 0040 | @|
05fb 0000 0838 | 8|
05fd 0000 0001 | |
05ff 0000 | |