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