|
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_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 05e0 | | .CONST 0x05e0 ; 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 0059 | Y | .CONST 0x0059 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; 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 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
001c c21a | | Store 0x1,0x1a
001d 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001f c21b | | Store 0x1,0x1b
0020 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0022 c20f | | Store 0x1,0xf
0023 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0025 c219 | | Store 0x1,0x19
0026 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0028 c211 | | Store 0x1,0x11
0029 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
002b c212 | | Store 0x1,0x12
002c 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
002e c213 | | Store 0x1,0x13
002f 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0031 c214 | | Store 0x1,0x14
0032 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0034 c215 | | Store 0x1,0x15
0035 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
0037 c216 | | Store 0x1,0x16
0038 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
003a c217 | | Store 0x1,0x17
003b 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
003d c218 | | Store 0x1,0x18
003e 00bf | | Action Accept_Activation
003f 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call
0041 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0042 00c7 | | Action Elaborate_Subprogram
0043 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0044 00c7 | | Action Elaborate_Subprogram
0045 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0046 00c7 | | Action Elaborate_Subprogram
0047 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0048 00c7 | | Action Elaborate_Subprogram
0049 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004a 00c7 | | Action Elaborate_Subprogram
004b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004c 00c7 | | Action Elaborate_Subprogram
004d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004e 00c7 | | Action Elaborate_Subprogram
004f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0050 00c7 | | Action Elaborate_Subprogram
0051 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0052 00c7 | | Action Elaborate_Subprogram
0053 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0054 00c7 | | Action Elaborate_Subprogram
0055 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0056 00c7 | | Action Elaborate_Subprogram
0057 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0058 00c7 | | Action Elaborate_Subprogram
0059 BODY_0008:
0059 00bc | | Action Signal_Activated
005a 00bb | | Action Signal_Completion
005b 0000 0000 | | .BLANK 0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006d | m | .CONST 0x006d ; Address of begin
0061 00a1 | | .CONST 0x00a1 ; Address of exception handler
0062 0003 | | .CONST 0x0003 ; Number of locals
0063 INIT_0060:
0063 e001 | | Load 0x0,0x1
0064 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0065 02c7 | | Declare_Variable Any
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 e002 | | Load 0x0,0x2
0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006a 02c7 | | Declare_Variable Any
006b 00d8 | | Load_Top At_Offset_0
006c 1c00 | | Execute_Immediate Run_Utility,0x0
006d BODY_0060:
006d e5fb | | Load 0x2,-0x5
006e e002 | | Load 0x0,0x2
006f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0070 c403 | | Store 0x2,0x3
0071 00d8 | | Load_Top At_Offset_0
0072 e002 | | Load 0x0,0x2
0073 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0074 6816 |h | Jump_Zero 0x8b
0075 e003 | | Load 0x0,0x3
0076 180e | | Execute Package,Field_Execute,Field_Number 0xe
0077 4801 |H | Short_Literal 0x1
0078 4801 |H | Short_Literal 0x1
0079 e004 | | Load 0x0,0x4
007a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007b 035b | [ | Declare_Type Array,Constrained
007c 0337 | 7 | Declare_Variable Array
007d e5fb | | Load 0x2,-0x5
007e e005 | | Load 0x0,0x5
007f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0080 e004 | | Load 0x0,0x4
0081 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0082 0119 | | Execute Any,Check_In_Formal_Type
0083 4801 |H | Short_Literal 0x1
0084 00da | | Load_Top At_Offset_2
0085 01d6 | | Execute Vector,Field_Write
0086 6045 |`E | Indirect_Literal Discrete,0xcc,{0x00000000, 0x00008f5a}
0087 e006 | | Load 0x0,0x6
0088 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0089 4800 |H | Short_Literal 0x0
008a 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
008b 00d9 | | Load_Top At_Offset_1
008c e5fa | | Load 0x2,-0x6
008d e5fc | | Load 0x2,-0x4
008e e5fd | | Load 0x2,-0x3
008f e5fe | | Load 0x2,-0x2
0090 e5ff | | Load 0x2,-0x1
0091 e403 | | Load 0x2,0x3
0092 e007 | | Load 0x0,0x7
0093 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0094 00d8 | | Load_Top At_Offset_0
0095 e007 | | Load 0x0,0x7
0096 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0097 7003 |p | Jump_Nonzero 0x9b
0098 e008 | | Load 0x0,0x8
0099 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
009a 0257 | W | Execute Discrete,Raise
009b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009c c402 | | Store 0x2,0x2
009d 00d9 | | Load_Top At_Offset_1
009e 821c | | Call 0x1,0x1c
009f 4801 |H | Short_Literal 0x1
00a0 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
00a1 TRAP_0060:
00a1 4884 |H | Short_Literal 0x84
00a2 010f | | Execute Exception,Equal
00a3 7004 |p | Jump_Nonzero 0xa8
00a4 e008 | | Load 0x0,0x8
00a5 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00a6 010f | | Execute Exception,Equal
00a7 6816 |h | Jump_Zero 0xbe
00a8 e003 | | Load 0x0,0x3
00a9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00aa 4801 |H | Short_Literal 0x1
00ab 4801 |H | Short_Literal 0x1
00ac e004 | | Load 0x0,0x4
00ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ae 035b | [ | Declare_Type Array,Constrained
00af 0337 | 7 | Declare_Variable Array
00b0 e5fb | | Load 0x2,-0x5
00b1 e005 | | Load 0x0,0x5
00b2 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00b3 e004 | | Load 0x0,0x4
00b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b5 0119 | | Execute Any,Check_In_Formal_Type
00b6 4801 |H | Short_Literal 0x1
00b7 00da | | Load_Top At_Offset_2
00b8 01d6 | | Execute Vector,Field_Write
00b9 600e |` | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00008f5b}
00ba e006 | | Load 0x0,0x6
00bb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00bc 4800 |H | Short_Literal 0x0
00bd 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
00be e006 | | Load 0x0,0x6
00bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c0 010f | | Execute Exception,Equal
00c1 6802 |h | Jump_Zero 0xc4
00c2 4800 |H | Short_Literal 0x0
00c3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
00c4 0100 | | Execute Exception,Raise
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 0000 0000 | | .LITERAL {0x00000000, 0x00008f5b}
00cc 0000 0000 | | .LITERAL {0x00000000, 0x00008f5a}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00dd | | .CONST 0x00dd ; Address of begin
00d1 0111 | | .CONST 0x0111 ; Address of exception handler
00d2 0003 | | .CONST 0x0003 ; Number of locals
00d3 INIT_00d0:
00d3 e001 | | Load 0x0,0x1
00d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d5 02c7 | | Declare_Variable Any
00d6 00d8 | | Load_Top At_Offset_0
00d7 1c00 | | Execute_Immediate Run_Utility,0x0
00d8 e002 | | Load 0x0,0x2
00d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00da 02c7 | | Declare_Variable Any
00db 00d8 | | Load_Top At_Offset_0
00dc 1c00 | | Execute_Immediate Run_Utility,0x0
00dd BODY_00d0:
00dd e5fb | | Load 0x2,-0x5
00de e002 | | Load 0x0,0x2
00df 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e0 c403 | | Store 0x2,0x3
00e1 00d8 | | Load_Top At_Offset_0
00e2 e002 | | Load 0x0,0x2
00e3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e4 6816 |h | Jump_Zero 0xfb
00e5 e003 | | Load 0x0,0x3
00e6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e7 4801 |H | Short_Literal 0x1
00e8 4801 |H | Short_Literal 0x1
00e9 e004 | | Load 0x0,0x4
00ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00eb 035b | [ | Declare_Type Array,Constrained
00ec 0337 | 7 | Declare_Variable Array
00ed e5fb | | Load 0x2,-0x5
00ee e005 | | Load 0x0,0x5
00ef 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00f0 e004 | | Load 0x0,0x4
00f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f2 0119 | | Execute Any,Check_In_Formal_Type
00f3 4801 |H | Short_Literal 0x1
00f4 00da | | Load_Top At_Offset_2
00f5 01d6 | | Execute Vector,Field_Write
00f6 67d5 |g | Indirect_Literal Discrete,0xcc,{0x00000000, 0x00008f5a}
00f7 e006 | | Load 0x0,0x6
00f8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00f9 4800 |H | Short_Literal 0x0
00fa 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
00fb 00d9 | | Load_Top At_Offset_1
00fc e5fa | | Load 0x2,-0x6
00fd e5fc | | Load 0x2,-0x4
00fe e5fd | | Load 0x2,-0x3
00ff e5fe | | Load 0x2,-0x2
0100 e5ff | | Load 0x2,-0x1
0101 e403 | | Load 0x2,0x3
0102 e007 | | Load 0x0,0x7
0103 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0104 00d8 | | Load_Top At_Offset_0
0105 e007 | | Load 0x0,0x7
0106 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0107 7003 |p | Jump_Nonzero 0x10b
0108 e008 | | Load 0x0,0x8
0109 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
010a 0257 | W | Execute Discrete,Raise
010b 180f | | Execute Package,Field_Execute,Field_Number 0xf
010c c402 | | Store 0x2,0x2
010d 00d9 | | Load_Top At_Offset_1
010e 821c | | Call 0x1,0x1c
010f 4801 |H | Short_Literal 0x1
0110 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0111 TRAP_00d0:
0111 4884 |H | Short_Literal 0x84
0112 010f | | Execute Exception,Equal
0113 7004 |p | Jump_Nonzero 0x118
0114 e008 | | Load 0x0,0x8
0115 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0116 010f | | Execute Exception,Equal
0117 6816 |h | Jump_Zero 0x12e
0118 e003 | | Load 0x0,0x3
0119 180e | | Execute Package,Field_Execute,Field_Number 0xe
011a 4801 |H | Short_Literal 0x1
011b 4801 |H | Short_Literal 0x1
011c e004 | | Load 0x0,0x4
011d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011e 035b | [ | Declare_Type Array,Constrained
011f 0337 | 7 | Declare_Variable Array
0120 e5fb | | Load 0x2,-0x5
0121 e005 | | Load 0x0,0x5
0122 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0123 e004 | | Load 0x0,0x4
0124 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0125 0119 | | Execute Any,Check_In_Formal_Type
0126 4801 |H | Short_Literal 0x1
0127 00da | | Load_Top At_Offset_2
0128 01d6 | | Execute Vector,Field_Write
0129 679e |g | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00008f5b}
012a e006 | | Load 0x0,0x6
012b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
012c 4800 |H | Short_Literal 0x0
012d 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
012e e006 | | Load 0x0,0x6
012f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0130 010f | | Execute Exception,Equal
0131 6802 |h | Jump_Zero 0x134
0132 4800 |H | Short_Literal 0x0
0133 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0134 0100 | | Execute Exception,Raise
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0147 | G | .CONST 0x0147 ; Address of begin
0139 0173 | s | .CONST 0x0173 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b e001 | | Load 0x0,0x1
013c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013d 02c7 | | Declare_Variable Any
013e 00d8 | | Load_Top At_Offset_0
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 e002 | | Load 0x0,0x2
0141 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0142 02c7 | | Declare_Variable Any
0143 e5fe | | Load 0x2,-0x2
0144 e002 | | Load 0x0,0x2
0145 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0146 a403 | | Store_Unchecked 0x2,0x3
0147 BODY_0138:
0147 00d8 | | Load_Top At_Offset_0
0148 e002 | | Load 0x0,0x2
0149 1811 | | Execute Package,Field_Execute,Field_Number 0x11
014a 6816 |h | Jump_Zero 0x161
014b e003 | | Load 0x0,0x3
014c 180e | | Execute Package,Field_Execute,Field_Number 0xe
014d 4801 |H | Short_Literal 0x1
014e 4801 |H | Short_Literal 0x1
014f e004 | | Load 0x0,0x4
0150 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0151 035b | [ | Declare_Type Array,Constrained
0152 0337 | 7 | Declare_Variable Array
0153 e5fe | | Load 0x2,-0x2
0154 e005 | | Load 0x0,0x5
0155 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0156 e004 | | Load 0x0,0x4
0157 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0158 0119 | | Execute Any,Check_In_Formal_Type
0159 4801 |H | Short_Literal 0x1
015a 00da | | Load_Top At_Offset_2
015b 01d6 | | Execute Vector,Field_Write
015c 603f |`? | Indirect_Literal Discrete,0x19c,{0x00000000, 0x00008f5a}
015d e006 | | Load 0x0,0x6
015e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
015f 4800 |H | Short_Literal 0x0
0160 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0161 00d9 | | Load_Top At_Offset_1
0162 e5ff | | Load 0x2,-0x1
0163 00da | | Load_Top At_Offset_2
0164 e007 | | Load 0x0,0x7
0165 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0166 00d8 | | Load_Top At_Offset_0
0167 e007 | | Load 0x0,0x7
0168 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0169 7003 |p | Jump_Nonzero 0x16d
016a e008 | | Load 0x0,0x8
016b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
016c 0257 | W | Execute Discrete,Raise
016d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016e c402 | | Store 0x2,0x2
016f 00d9 | | Load_Top At_Offset_1
0170 821c | | Call 0x1,0x1c
0171 4801 |H | Short_Literal 0x1
0172 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0173 TRAP_0138:
0173 4884 |H | Short_Literal 0x84
0174 010f | | Execute Exception,Equal
0175 7004 |p | Jump_Nonzero 0x17a
0176 e008 | | Load 0x0,0x8
0177 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0178 010f | | Execute Exception,Equal
0179 6816 |h | Jump_Zero 0x190
017a e003 | | Load 0x0,0x3
017b 180e | | Execute Package,Field_Execute,Field_Number 0xe
017c 4801 |H | Short_Literal 0x1
017d 4801 |H | Short_Literal 0x1
017e e004 | | Load 0x0,0x4
017f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0180 035b | [ | Declare_Type Array,Constrained
0181 0337 | 7 | Declare_Variable Array
0182 e5fe | | Load 0x2,-0x2
0183 e005 | | Load 0x0,0x5
0184 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0185 e004 | | Load 0x0,0x4
0186 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0187 0119 | | Execute Any,Check_In_Formal_Type
0188 4801 |H | Short_Literal 0x1
0189 00da | | Load_Top At_Offset_2
018a 01d6 | | Execute Vector,Field_Write
018b 600c |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x00008f5b}
018c e006 | | Load 0x0,0x6
018d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
018e 4800 |H | Short_Literal 0x0
018f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0190 e006 | | Load 0x0,0x6
0191 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0192 010f | | Execute Exception,Equal
0193 6802 |h | Jump_Zero 0x196
0194 4800 |H | Short_Literal 0x0
0195 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0196 0100 | | Execute Exception,Raise
0197 0000 | | .XXX[0x1]
0198 0000 0000 | | .LITERAL {0x00000000, 0x00008f5b}
019c 0000 0000 | | .LITERAL {0x00000000, 0x00008f5a}
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ad | | .CONST 0x01ad ; Address of begin
01a1 01df | | .CONST 0x01df ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e001 | | Load 0x0,0x1
01a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a5 02c7 | | Declare_Variable Any
01a6 00d8 | | Load_Top At_Offset_0
01a7 1c00 | | Execute_Immediate Run_Utility,0x0
01a8 e002 | | Load 0x0,0x2
01a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01aa 02c7 | | Declare_Variable Any
01ab 00d8 | | Load_Top At_Offset_0
01ac 1c00 | | Execute_Immediate Run_Utility,0x0
01ad BODY_01a0:
01ad e5fc | | Load 0x2,-0x4
01ae e002 | | Load 0x0,0x2
01af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b0 c403 | | Store 0x2,0x3
01b1 00d8 | | Load_Top At_Offset_0
01b2 e002 | | Load 0x0,0x2
01b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b4 6816 |h | Jump_Zero 0x1cb
01b5 e003 | | Load 0x0,0x3
01b6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b7 4801 |H | Short_Literal 0x1
01b8 4801 |H | Short_Literal 0x1
01b9 e004 | | Load 0x0,0x4
01ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01bb 035b | [ | Declare_Type Array,Constrained
01bc 0337 | 7 | Declare_Variable Array
01bd e5fc | | Load 0x2,-0x4
01be e005 | | Load 0x0,0x5
01bf 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01c0 e004 | | Load 0x0,0x4
01c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c2 0119 | | Execute Any,Check_In_Formal_Type
01c3 4801 |H | Short_Literal 0x1
01c4 00da | | Load_Top At_Offset_2
01c5 01d6 | | Execute Vector,Field_Write
01c6 67d5 |g | Indirect_Literal Discrete,0x19c,{0x00000000, 0x00008f5a}
01c7 e006 | | Load 0x0,0x6
01c8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01c9 4800 |H | Short_Literal 0x0
01ca 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01cb 00d9 | | Load_Top At_Offset_1
01cc e5fd | | Load 0x2,-0x3
01cd e5fe | | Load 0x2,-0x2
01ce e5ff | | Load 0x2,-0x1
01cf e403 | | Load 0x2,0x3
01d0 e007 | | Load 0x0,0x7
01d1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01d2 00d8 | | Load_Top At_Offset_0
01d3 e007 | | Load 0x0,0x7
01d4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01d5 7003 |p | Jump_Nonzero 0x1d9
01d6 e008 | | Load 0x0,0x8
01d7 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01d8 0257 | W | Execute Discrete,Raise
01d9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01da c402 | | Store 0x2,0x2
01db 00d9 | | Load_Top At_Offset_1
01dc 821c | | Call 0x1,0x1c
01dd 4801 |H | Short_Literal 0x1
01de 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01df TRAP_01a0:
01df 4884 |H | Short_Literal 0x84
01e0 010f | | Execute Exception,Equal
01e1 7004 |p | Jump_Nonzero 0x1e6
01e2 e008 | | Load 0x0,0x8
01e3 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01e4 010f | | Execute Exception,Equal
01e5 6816 |h | Jump_Zero 0x1fc
01e6 e003 | | Load 0x0,0x3
01e7 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e8 4801 |H | Short_Literal 0x1
01e9 4801 |H | Short_Literal 0x1
01ea e004 | | Load 0x0,0x4
01eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ec 035b | [ | Declare_Type Array,Constrained
01ed 0337 | 7 | Declare_Variable Array
01ee e5fc | | Load 0x2,-0x4
01ef e005 | | Load 0x0,0x5
01f0 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01f1 e004 | | Load 0x0,0x4
01f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f3 0119 | | Execute Any,Check_In_Formal_Type
01f4 4801 |H | Short_Literal 0x1
01f5 00da | | Load_Top At_Offset_2
01f6 01d6 | | Execute Vector,Field_Write
01f7 67a0 |g | Indirect_Literal Discrete,0x198,{0x00000000, 0x00008f5b}
01f8 e006 | | Load 0x0,0x6
01f9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01fa 4800 |H | Short_Literal 0x0
01fb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01fc e006 | | Load 0x0,0x6
01fd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01fe 010f | | Execute Exception,Equal
01ff 6802 |h | Jump_Zero 0x202
0200 4800 |H | Short_Literal 0x0
0201 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0202 0100 | | Execute Exception,Raise
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0215 | | .CONST 0x0215 ; Address of begin
0209 0246 | F | .CONST 0x0246 ; 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, 0x00008f5a}
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 821c | | Call 0x1,0x1c
0244 4801 |H | Short_Literal 0x1
0245 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0246 TRAP_0208:
0246 4884 |H | Short_Literal 0x84
0247 010f | | Execute Exception,Equal
0248 7004 |p | Jump_Nonzero 0x24d
0249 e008 | | Load 0x0,0x8
024a 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
024b 010f | | Execute Exception,Equal
024c 6816 |h | Jump_Zero 0x263
024d e003 | | Load 0x0,0x3
024e 180e | | Execute Package,Field_Execute,Field_Number 0xe
024f 4801 |H | Short_Literal 0x1
0250 4801 |H | Short_Literal 0x1
0251 e004 | | Load 0x0,0x4
0252 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0253 035b | [ | Declare_Type Array,Constrained
0254 0337 | 7 | Declare_Variable Array
0255 e5fd | | Load 0x2,-0x3
0256 e005 | | Load 0x0,0x5
0257 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0258 e004 | | Load 0x0,0x4
0259 1b0e | | Execute Package,Field_Read,Field_Number 0xe
025a 0119 | | Execute Any,Check_In_Formal_Type
025b 4801 |H | Short_Literal 0x1
025c 00da | | Load_Top At_Offset_2
025d 01d6 | | Execute Vector,Field_Write
025e 600d |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x00008f5b}
025f e006 | | Load 0x0,0x6
0260 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0261 4800 |H | Short_Literal 0x0
0262 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0263 e006 | | Load 0x0,0x6
0264 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0265 010f | | Execute Exception,Equal
0266 6802 |h | Jump_Zero 0x269
0267 4800 |H | Short_Literal 0x0
0268 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0269 0100 | | Execute Exception,Raise
026a 0000 0000 | | .XXX[0x2]
026c 0000 0000 | | .LITERAL {0x00000000, 0x00008f5b}
0270 0000 0000 | | .LITERAL {0x00000000, 0x00008f5a}
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0285 | | .CONST 0x0285 ; Address of begin
0279 02b6 | | .CONST 0x02b6 ; 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, 0x00008f5a}
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 821c | | Call 0x1,0x1c
02b4 4801 |H | Short_Literal 0x1
02b5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02b6 TRAP_0278:
02b6 4884 |H | Short_Literal 0x84
02b7 010f | | Execute Exception,Equal
02b8 7004 |p | Jump_Nonzero 0x2bd
02b9 e008 | | Load 0x0,0x8
02ba 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
02bb 010f | | Execute Exception,Equal
02bc 6816 |h | Jump_Zero 0x2d3
02bd e003 | | Load 0x0,0x3
02be 180e | | Execute Package,Field_Execute,Field_Number 0xe
02bf 4801 |H | Short_Literal 0x1
02c0 4801 |H | Short_Literal 0x1
02c1 e004 | | Load 0x0,0x4
02c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c3 035b | [ | Declare_Type Array,Constrained
02c4 0337 | 7 | Declare_Variable Array
02c5 e5fd | | Load 0x2,-0x3
02c6 e005 | | Load 0x0,0x5
02c7 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
02c8 e004 | | Load 0x0,0x4
02c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ca 0119 | | Execute Any,Check_In_Formal_Type
02cb 4801 |H | Short_Literal 0x1
02cc 00da | | Load_Top At_Offset_2
02cd 01d6 | | Execute Vector,Field_Write
02ce 679d |g | Indirect_Literal Discrete,0x26c,{0x00000000, 0x00008f5b}
02cf e006 | | Load 0x0,0x6
02d0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02d1 4800 |H | Short_Literal 0x0
02d2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02d3 e006 | | Load 0x0,0x6
02d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02d5 010f | | Execute Exception,Equal
02d6 6802 |h | Jump_Zero 0x2d9
02d7 4800 |H | Short_Literal 0x0
02d8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02d9 0100 | | Execute Exception,Raise
02da 0000 0000 | | .BLANK 0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02ed | | .CONST 0x02ed ; Address of begin
02e1 031e | | .CONST 0x031e ; 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, 0x00008f5a}
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 821c | | Call 0x1,0x1c
031c 4801 |H | Short_Literal 0x1
031d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
031e TRAP_02e0:
031e 4884 |H | Short_Literal 0x84
031f 010f | | Execute Exception,Equal
0320 7004 |p | Jump_Nonzero 0x325
0321 e008 | | Load 0x0,0x8
0322 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0323 010f | | Execute Exception,Equal
0324 6816 |h | Jump_Zero 0x33b
0325 e003 | | Load 0x0,0x3
0326 180e | | Execute Package,Field_Execute,Field_Number 0xe
0327 4801 |H | Short_Literal 0x1
0328 4801 |H | Short_Literal 0x1
0329 e004 | | Load 0x0,0x4
032a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
032b 035b | [ | Declare_Type Array,Constrained
032c 0337 | 7 | Declare_Variable Array
032d e5fd | | Load 0x2,-0x3
032e e005 | | Load 0x0,0x5
032f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0330 e004 | | Load 0x0,0x4
0331 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0332 0119 | | Execute Any,Check_In_Formal_Type
0333 4801 |H | Short_Literal 0x1
0334 00da | | Load_Top At_Offset_2
0335 01d6 | | Execute Vector,Field_Write
0336 600d |` | Indirect_Literal Discrete,0x344,{0x00000000, 0x00008f5b}
0337 e006 | | Load 0x0,0x6
0338 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0339 4800 |H | Short_Literal 0x0
033a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
033b e006 | | Load 0x0,0x6
033c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
033d 010f | | Execute Exception,Equal
033e 6802 |h | Jump_Zero 0x341
033f 4800 |H | Short_Literal 0x0
0340 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0341 0100 | | Execute Exception,Raise
0342 0000 0000 | | .XXX[0x2]
0344 0000 0000 | | .LITERAL {0x00000000, 0x00008f5b}
0348 0000 0000 | | .LITERAL {0x00000000, 0x00008f5a}
034c 0000 0000 | | .BLANK 0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035d | ] | .CONST 0x035d ; Address of begin
0351 038e | | .CONST 0x038e ; 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, 0x00008f5a}
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 821c | | Call 0x1,0x1c
038c 4801 |H | Short_Literal 0x1
038d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
038e TRAP_0350:
038e 4884 |H | Short_Literal 0x84
038f 010f | | Execute Exception,Equal
0390 7004 |p | Jump_Nonzero 0x395
0391 e008 | | Load 0x0,0x8
0392 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0393 010f | | Execute Exception,Equal
0394 6816 |h | Jump_Zero 0x3ab
0395 e003 | | Load 0x0,0x3
0396 180e | | Execute Package,Field_Execute,Field_Number 0xe
0397 4801 |H | Short_Literal 0x1
0398 4801 |H | Short_Literal 0x1
0399 e004 | | Load 0x0,0x4
039a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
039b 035b | [ | Declare_Type Array,Constrained
039c 0337 | 7 | Declare_Variable Array
039d e5fd | | Load 0x2,-0x3
039e e005 | | Load 0x0,0x5
039f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
03a0 e004 | | Load 0x0,0x4
03a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a2 0119 | | Execute Any,Check_In_Formal_Type
03a3 4801 |H | Short_Literal 0x1
03a4 00da | | Load_Top At_Offset_2
03a5 01d6 | | Execute Vector,Field_Write
03a6 679d |g | Indirect_Literal Discrete,0x344,{0x00000000, 0x00008f5b}
03a7 e006 | | Load 0x0,0x6
03a8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03a9 4800 |H | Short_Literal 0x0
03aa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03ab e006 | | Load 0x0,0x6
03ac 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03ad 010f | | Execute Exception,Equal
03ae 6802 |h | Jump_Zero 0x3b1
03af 4800 |H | Short_Literal 0x0
03b0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03b1 0100 | | Execute Exception,Raise
03b2 0000 0000 | | .BLANK 0000[0x6]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c5 | | .CONST 0x03c5 ; Address of begin
03b9 03f6 | | .CONST 0x03f6 ; 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, 0x00008f5a}
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 821c | | Call 0x1,0x1c
03f4 4801 |H | Short_Literal 0x1
03f5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03f6 TRAP_03b8:
03f6 4884 |H | Short_Literal 0x84
03f7 010f | | Execute Exception,Equal
03f8 7004 |p | Jump_Nonzero 0x3fd
03f9 e008 | | Load 0x0,0x8
03fa 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03fb 010f | | Execute Exception,Equal
03fc 6816 |h | Jump_Zero 0x413
03fd e003 | | Load 0x0,0x3
03fe 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ff 4801 |H | Short_Literal 0x1
0400 4801 |H | Short_Literal 0x1
0401 e004 | | Load 0x0,0x4
0402 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0403 035b | [ | Declare_Type Array,Constrained
0404 0337 | 7 | Declare_Variable Array
0405 e5fd | | Load 0x2,-0x3
0406 e005 | | Load 0x0,0x5
0407 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0408 e004 | | Load 0x0,0x4
0409 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040a 0119 | | Execute Any,Check_In_Formal_Type
040b 4801 |H | Short_Literal 0x1
040c 00da | | Load_Top At_Offset_2
040d 01d6 | | Execute Vector,Field_Write
040e 600d |` | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00008f5b}
040f e006 | | Load 0x0,0x6
0410 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0411 4800 |H | Short_Literal 0x0
0412 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0413 e006 | | Load 0x0,0x6
0414 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0415 010f | | Execute Exception,Equal
0416 6802 |h | Jump_Zero 0x419
0417 4800 |H | Short_Literal 0x0
0418 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0419 0100 | | Execute Exception,Raise
041a 0000 0000 | | .XXX[0x2]
041c 0000 0000 | | .LITERAL {0x00000000, 0x00008f5b}
0420 0000 0000 | | .LITERAL {0x00000000, 0x00008f5a}
0424 0000 0000 | | .BLANK 0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0435 | 5 | .CONST 0x0435 ; Address of begin
0429 0466 | f | .CONST 0x0466 ; 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, 0x00008f5a}
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 821c | | Call 0x1,0x1c
0464 4801 |H | Short_Literal 0x1
0465 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0466 TRAP_0428:
0466 4884 |H | Short_Literal 0x84
0467 010f | | Execute Exception,Equal
0468 7004 |p | Jump_Nonzero 0x46d
0469 e008 | | Load 0x0,0x8
046a 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
046b 010f | | Execute Exception,Equal
046c 6816 |h | Jump_Zero 0x483
046d e003 | | Load 0x0,0x3
046e 180e | | Execute Package,Field_Execute,Field_Number 0xe
046f 4801 |H | Short_Literal 0x1
0470 4801 |H | Short_Literal 0x1
0471 e004 | | Load 0x0,0x4
0472 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0473 035b | [ | Declare_Type Array,Constrained
0474 0337 | 7 | Declare_Variable Array
0475 e5fd | | Load 0x2,-0x3
0476 e005 | | Load 0x0,0x5
0477 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0478 e004 | | Load 0x0,0x4
0479 1b0e | | Execute Package,Field_Read,Field_Number 0xe
047a 0119 | | Execute Any,Check_In_Formal_Type
047b 4801 |H | Short_Literal 0x1
047c 00da | | Load_Top At_Offset_2
047d 01d6 | | Execute Vector,Field_Write
047e 679d |g | Indirect_Literal Discrete,0x41c,{0x00000000, 0x00008f5b}
047f e006 | | Load 0x0,0x6
0480 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0481 4800 |H | Short_Literal 0x0
0482 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0483 e006 | | Load 0x0,0x6
0484 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0485 010f | | Execute Exception,Equal
0486 6802 |h | Jump_Zero 0x489
0487 4800 |H | Short_Literal 0x0
0488 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0489 0100 | | Execute Exception,Raise
048a 0000 0000 | | .BLANK 0000[0x6]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 049d | | .CONST 0x049d ; Address of begin
0491 04d1 | | .CONST 0x04d1 ; 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 6045 |`E | Indirect_Literal Discrete,0x4fc,{0x00000000, 0x00008f5a}
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 821c | | Call 0x1,0x1c
04cf 4801 |H | Short_Literal 0x1
04d0 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04d1 TRAP_0490:
04d1 4884 |H | Short_Literal 0x84
04d2 010f | | Execute Exception,Equal
04d3 7004 |p | Jump_Nonzero 0x4d8
04d4 e008 | | Load 0x0,0x8
04d5 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
04d6 010f | | Execute Exception,Equal
04d7 6816 |h | Jump_Zero 0x4ee
04d8 e003 | | Load 0x0,0x3
04d9 180e | | Execute Package,Field_Execute,Field_Number 0xe
04da 4801 |H | Short_Literal 0x1
04db 4801 |H | Short_Literal 0x1
04dc e004 | | Load 0x0,0x4
04dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04de 035b | [ | Declare_Type Array,Constrained
04df 0337 | 7 | Declare_Variable Array
04e0 e5fb | | Load 0x2,-0x5
04e1 e005 | | Load 0x0,0x5
04e2 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
04e3 e004 | | Load 0x0,0x4
04e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e5 0119 | | Execute Any,Check_In_Formal_Type
04e6 4801 |H | Short_Literal 0x1
04e7 00da | | Load_Top At_Offset_2
04e8 01d6 | | Execute Vector,Field_Write
04e9 600e |` | Indirect_Literal Discrete,0x4f8,{0x00000000, 0x00008f5b}
04ea e006 | | Load 0x0,0x6
04eb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04ec 4800 |H | Short_Literal 0x0
04ed 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04ee e006 | | Load 0x0,0x6
04ef 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04f0 010f | | Execute Exception,Equal
04f1 6802 |h | Jump_Zero 0x4f4
04f2 4800 |H | Short_Literal 0x0
04f3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04f4 0100 | | Execute Exception,Raise
04f5 0000 0000 | | .XXX[0x3]
04f7 0000 | |
04f8 0000 0000 | | .LITERAL {0x00000000, 0x00008f5b}
04fc 0000 0000 | | .LITERAL {0x00000000, 0x00008f5a}
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 050d | | .CONST 0x050d ; Address of begin
0501 0541 | A | .CONST 0x0541 ; 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 67d5 |g | Indirect_Literal Discrete,0x4fc,{0x00000000, 0x00008f5a}
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 821c | | Call 0x1,0x1c
053f 4801 |H | Short_Literal 0x1
0540 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0541 TRAP_0500:
0541 4884 |H | Short_Literal 0x84
0542 010f | | Execute Exception,Equal
0543 7004 |p | Jump_Nonzero 0x548
0544 e008 | | Load 0x0,0x8
0545 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0546 010f | | Execute Exception,Equal
0547 6816 |h | Jump_Zero 0x55e
0548 e003 | | Load 0x0,0x3
0549 180e | | Execute Package,Field_Execute,Field_Number 0xe
054a 4801 |H | Short_Literal 0x1
054b 4801 |H | Short_Literal 0x1
054c e004 | | Load 0x0,0x4
054d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054e 035b | [ | Declare_Type Array,Constrained
054f 0337 | 7 | Declare_Variable Array
0550 e5fb | | Load 0x2,-0x5
0551 e005 | | Load 0x0,0x5
0552 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0553 e004 | | Load 0x0,0x4
0554 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0555 0119 | | Execute Any,Check_In_Formal_Type
0556 4801 |H | Short_Literal 0x1
0557 00da | | Load_Top At_Offset_2
0558 01d6 | | Execute Vector,Field_Write
0559 679e |g | Indirect_Literal Discrete,0x4f8,{0x00000000, 0x00008f5b}
055a e006 | | Load 0x0,0x6
055b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
055c 4800 |H | Short_Literal 0x0
055d 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
055e e006 | | Load 0x0,0x6
055f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0560 010f | | Execute Exception,Equal
0561 6802 |h | Jump_Zero 0x564
0562 4800 |H | Short_Literal 0x0
0563 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0564 0100 | | Execute Exception,Raise
0565 0000 0000 | | .XXX[0x3]
0567 0000 | |
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 7818 |x | Jump 0x588 ; case 0x0
0570 782e |x. | Jump 0x59f ; case 0x1
0571 7844 |xD | Jump 0x5b6 ; 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 6057 |`W | Indirect_Literal Discrete,0x5dc,{0x00000000, 0x00008f56}
0585 e006 | | Load 0x0,0x6
0586 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0587 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0588 e003 | | Load 0x0,0x3
0589 180e | | Execute Package,Field_Execute,Field_Number 0xe
058a 4801 |H | Short_Literal 0x1
058b 4801 |H | Short_Literal 0x1
058c e004 | | Load 0x0,0x4
058d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
058e 035b | [ | Declare_Type Array,Constrained
058f 0337 | 7 | Declare_Variable Array
0590 e5ff | | Load 0x2,-0x1
0591 e001 | | Load 0x0,0x1
0592 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0593 e004 | | Load 0x0,0x4
0594 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0595 e004 | | Load 0x0,0x4
0596 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0597 0119 | | Execute Any,Check_In_Formal_Type
0598 4801 |H | Short_Literal 0x1
0599 00da | | Load_Top At_Offset_2
059a 01d6 | | Execute Vector,Field_Write
059b 603c |`< | Indirect_Literal Discrete,0x5d8,{0x00000000, 0x00008f58}
059c e006 | | Load 0x0,0x6
059d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
059e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
059f e003 | | Load 0x0,0x3
05a0 180e | | Execute Package,Field_Execute,Field_Number 0xe
05a1 4801 |H | Short_Literal 0x1
05a2 4801 |H | Short_Literal 0x1
05a3 e004 | | Load 0x0,0x4
05a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05a5 035b | [ | Declare_Type Array,Constrained
05a6 0337 | 7 | Declare_Variable Array
05a7 e5ff | | Load 0x2,-0x1
05a8 e001 | | Load 0x0,0x1
05a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05aa e004 | | Load 0x0,0x4
05ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ac e004 | | Load 0x0,0x4
05ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ae 0119 | | Execute Any,Check_In_Formal_Type
05af 4801 |H | Short_Literal 0x1
05b0 00da | | Load_Top At_Offset_2
05b1 01d6 | | Execute Vector,Field_Write
05b2 6021 |`! | Indirect_Literal Discrete,0x5d4,{0x00000000, 0x00008f57}
05b3 e006 | | Load 0x0,0x6
05b4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05b6 e003 | | Load 0x0,0x3
05b7 180e | | Execute Package,Field_Execute,Field_Number 0xe
05b8 4801 |H | Short_Literal 0x1
05b9 4801 |H | Short_Literal 0x1
05ba e004 | | Load 0x0,0x4
05bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05bc 035b | [ | Declare_Type Array,Constrained
05bd 0337 | 7 | Declare_Variable Array
05be e5ff | | Load 0x2,-0x1
05bf e001 | | Load 0x0,0x1
05c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05c1 e004 | | Load 0x0,0x4
05c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05c3 e004 | | Load 0x0,0x4
05c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05c5 0119 | | Execute Any,Check_In_Formal_Type
05c6 4801 |H | Short_Literal 0x1
05c7 00da | | Load_Top At_Offset_2
05c8 01d6 | | Execute Vector,Field_Write
05c9 6006 |` | Indirect_Literal Discrete,0x5d0,{0x00000000, 0x00008f59}
05ca e006 | | Load 0x0,0x6
05cb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05cd 0000 0000 | | .XXX[0x3]
05cf 0000 | |
05d0 0000 0000 | | .LITERAL {0x00000000, 0x00008f59}
05d4 0000 0000 | | .LITERAL {0x00000000, 0x00008f57}
05d8 0000 0000 | | .LITERAL {0x00000000, 0x00008f58}
05dc 0000 0000 | | .LITERAL {0x00000000, 0x00008f56}
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug Table
05e0 ; --------------------------------------------------------------------------------------
05e0 0004 000e | | .DEBUG4 0x0004,0x000e,0xcc92,0x0000,0x0001,0x0000
05e6 6b9b 0800 |k | .XXX[0x6]
05e8 0000 0008 | |
05ea 00d0 cac0 | |
05ec 0000 0000 | | .BLANK 0000[0x4]
05f0 0023 f1c0 | # | .XXX[0x6]
05f2 0000 0000 | |
05f4 0000 1000 | |
05f6 0000 0000 | | .BLANK 0000[0xa]