|
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_03b8fe
└─⟦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 0508 | | .CONST 0x0508 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01b0 | | .CONST 0x01b0 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0034 | 4 | .CONST 0x0034 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4802 |H | Short_Literal 0x2 000d e001 | | Load 0x0,0x1 000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000f 02a0 | | Declare_Subprogram Null_Subprogram 0010 4801 |H | Short_Literal 0x1 0011 035e | ^ | Declare_Type Array,Defined,Visible 0012 4801 |H | Short_Literal 0x1 0013 4804 |H | Short_Literal 0x4 0014 e001 | | Load 0x0,0x1 0015 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 4801 |H | Short_Literal 0x1 0018 035e | ^ | Declare_Type Array,Defined,Visible 0019 4801 |H | Short_Literal 0x1 001a 4806 |H | Short_Literal 0x6 001b e001 | | Load 0x0,0x1 001c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 4801 |H | Short_Literal 0x1 001f 035e | ^ | Declare_Type Array,Defined,Visible 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 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 4801 |H | Short_Literal 0x1 0046 480f |H | Short_Literal 0xf 0047 e001 | | Load 0x0,0x1 0048 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0049 02a0 | | Declare_Subprogram Null_Subprogram 004a 4801 |H | Short_Literal 0x1 004b 035e | ^ | Declare_Type Array,Defined,Visible 004c c230 | 0 | Store 0x1,0x30 004d 4801 |H | Short_Literal 0x1 004e 4a70 |Jp | Short_Literal 0x270 004f e001 | | Load 0x0,0x1 0050 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0051 02a0 | | Declare_Subprogram Null_Subprogram 0052 4801 |H | Short_Literal 0x1 0053 035e | ^ | Declare_Type Array,Defined,Visible 0054 c210 | | Store 0x1,0x10 0055 4801 |H | Short_Literal 0x1 0056 485c |H\ | Short_Literal 0x5c 0057 e001 | | Load 0x0,0x1 0058 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0059 02a0 | | Declare_Subprogram Null_Subprogram 005a 4801 |H | Short_Literal 0x1 005b 035e | ^ | Declare_Type Array,Defined,Visible 005c c212 | | Store 0x1,0x12 005d 4801 |H | Short_Literal 0x1 005e 4860 |H` | Short_Literal 0x60 005f e001 | | Load 0x0,0x1 0060 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0061 02a0 | | Declare_Subprogram Null_Subprogram 0062 4801 |H | Short_Literal 0x1 0063 035e | ^ | Declare_Type Array,Defined,Visible 0064 c213 | | Store 0x1,0x13 0065 4800 |H | Short_Literal 0x0 0066 4bdd |K | Short_Literal 0x3dd 0067 e001 | | Load 0x0,0x1 0068 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0069 02a0 | | Declare_Subprogram Null_Subprogram 006a 4801 |H | Short_Literal 0x1 006b 035e | ^ | Declare_Type Array,Defined,Visible 006c c234 | 4 | Store 0x1,0x34 006d 4801 |H | Short_Literal 0x1 006e 6175 |au | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x00000400} 006f e001 | | Load 0x0,0x1 0070 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0071 02a0 | | Declare_Subprogram Null_Subprogram 0072 4801 |H | Short_Literal 0x1 0073 035e | ^ | Declare_Type Array,Defined,Visible 0074 c214 | | Store 0x1,0x14 0075 4801 |H | Short_Literal 0x1 0076 480d |H | Short_Literal 0xd 0077 e001 | | Load 0x0,0x1 0078 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0079 02a0 | | Declare_Subprogram Null_Subprogram 007a 4801 |H | Short_Literal 0x1 007b 035e | ^ | Declare_Type Array,Defined,Visible 007c c215 | | Store 0x1,0x15 007d 4801 |H | Short_Literal 0x1 007e 480e |H | Short_Literal 0xe 007f e001 | | Load 0x0,0x1 0080 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0081 02a0 | | Declare_Subprogram Null_Subprogram 0082 4801 |H | Short_Literal 0x1 0083 035e | ^ | Declare_Type Array,Defined,Visible 0084 c216 | | Store 0x1,0x16 0085 4801 |H | Short_Literal 0x1 0086 4810 |H | Short_Literal 0x10 0087 e001 | | Load 0x0,0x1 0088 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0089 02a0 | | Declare_Subprogram Null_Subprogram 008a 4801 |H | Short_Literal 0x1 008b 035e | ^ | Declare_Type Array,Defined,Visible 008c c217 | | Store 0x1,0x17 008d 4801 |H | Short_Literal 0x1 008e 4818 |H | Short_Literal 0x18 008f e001 | | Load 0x0,0x1 0090 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0091 02a0 | | Declare_Subprogram Null_Subprogram 0092 4801 |H | Short_Literal 0x1 0093 035e | ^ | Declare_Type Array,Defined,Visible 0094 c218 | | Store 0x1,0x18 0095 4801 |H | Short_Literal 0x1 0096 481c |H | Short_Literal 0x1c 0097 e001 | | Load 0x0,0x1 0098 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0099 02a0 | | Declare_Subprogram Null_Subprogram 009a 4801 |H | Short_Literal 0x1 009b 035e | ^ | Declare_Type Array,Defined,Visible 009c c219 | | Store 0x1,0x19 009d 4801 |H | Short_Literal 0x1 009e 481e |H | Short_Literal 0x1e 009f e001 | | Load 0x0,0x1 00a0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a1 02a0 | | Declare_Subprogram Null_Subprogram 00a2 4801 |H | Short_Literal 0x1 00a3 035e | ^ | Declare_Type Array,Defined,Visible 00a4 c21a | | Store 0x1,0x1a 00a5 4801 |H | Short_Literal 0x1 00a6 4820 |H | Short_Literal 0x20 00a7 e001 | | Load 0x0,0x1 00a8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a9 02a0 | | Declare_Subprogram Null_Subprogram 00aa 4801 |H | Short_Literal 0x1 00ab 035e | ^ | Declare_Type Array,Defined,Visible 00ac c21b | | Store 0x1,0x1b 00ad 00e2 | | Load_Encached Integer_Cache 00ae 00e2 | | Load_Encached Integer_Cache 00af 00e2 | | Load_Encached Integer_Cache 00b0 00e2 | | Load_Encached Integer_Cache 00b1 02a0 | | Declare_Subprogram Null_Subprogram 00b2 4804 |H | Short_Literal 0x4 00b3 032e | . | Declare_Type Record,Defined,Visible 00b4 c233 | 3 | Store 0x1,0x33 00b5 4800 |H | Short_Literal 0x0 00b6 0093 0473 | s| push_full_address INIT_0470 00b8 02a0 | | Declare_Subprogram Null_Subprogram 00b9 038f | | Declare_Type Package,Defined,Visible 00ba e001 | | Load 0x0,0x1 00bb 00b6 | | Action Make_Scope 00bc 4802 |H | Short_Literal 0x2 00bd 00db | | Load_Top At_Offset_3 00be 020e | | Execute Module,Augment_Imports 00bf 0386 | | Declare_Variable Package,Visible 00c0 c21c | | Store 0x1,0x1c 00c1 4800 |H | Short_Literal 0x0 00c2 0093 0453 | S| push_full_address INIT_0450 00c4 02a0 | | Declare_Subprogram Null_Subprogram 00c5 038f | | Declare_Type Package,Defined,Visible 00c6 e001 | | Load 0x0,0x1 00c7 00b6 | | Action Make_Scope 00c8 4802 |H | Short_Literal 0x2 00c9 00db | | Load_Top At_Offset_3 00ca 020e | | Execute Module,Augment_Imports 00cb 0386 | | Declare_Variable Package,Visible 00cc c21d | | Store 0x1,0x1d 00cd 4800 |H | Short_Literal 0x0 00ce 0093 043b | ;| push_full_address INIT_0438 00d0 02a0 | | Declare_Subprogram Null_Subprogram 00d1 038f | | Declare_Type Package,Defined,Visible 00d2 e002 | | Load 0x0,0x2 00d3 4801 |H | Short_Literal 0x1 00d4 00da | | Load_Top At_Offset_2 00d5 020e | | Execute Module,Augment_Imports 00d6 0386 | | Declare_Variable Package,Visible 00d7 c21e | | Store 0x1,0x1e 00d8 4800 |H | Short_Literal 0x0 00d9 0093 03e3 | | push_full_address INIT_03e0 00db 02a0 | | Declare_Subprogram Null_Subprogram 00dc 038f | | Declare_Type Package,Defined,Visible 00dd e001 | | Load 0x0,0x1 00de 00b6 | | Action Make_Scope 00df 4802 |H | Short_Literal 0x2 00e0 00db | | Load_Top At_Offset_3 00e1 020e | | Execute Module,Augment_Imports 00e2 0386 | | Declare_Variable Package,Visible 00e3 c21f | | Store 0x1,0x1f 00e4 4800 |H | Short_Literal 0x0 00e5 0093 03bb | | push_full_address INIT_03b8 00e7 02a0 | | Declare_Subprogram Null_Subprogram 00e8 038f | | Declare_Type Package,Defined,Visible 00e9 e001 | | Load 0x0,0x1 00ea 00b6 | | Action Make_Scope 00eb 4802 |H | Short_Literal 0x2 00ec 00db | | Load_Top At_Offset_3 00ed 020e | | Execute Module,Augment_Imports 00ee 0386 | | Declare_Variable Package,Visible 00ef c220 | | Store 0x1,0x20 00f0 4800 |H | Short_Literal 0x0 00f1 0093 037b | {| push_full_address INIT_0378 00f3 02a0 | | Declare_Subprogram Null_Subprogram 00f4 038f | | Declare_Type Package,Defined,Visible 00f5 e001 | | Load 0x0,0x1 00f6 00b6 | | Action Make_Scope 00f7 4802 |H | Short_Literal 0x2 00f8 00db | | Load_Top At_Offset_3 00f9 020e | | Execute Module,Augment_Imports 00fa 0386 | | Declare_Variable Package,Visible 00fb c221 | ! | Store 0x1,0x21 00fc e001 | | Load 0x0,0x1 00fd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00fe e001 | | Load 0x0,0x1 00ff 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0100 02a0 | | Declare_Subprogram Null_Subprogram 0101 4802 |H | Short_Literal 0x2 0102 032e | . | Declare_Type Record,Defined,Visible 0103 c222 | " | Store 0x1,0x22 0104 4800 |H | Short_Literal 0x0 0105 480f |H | Short_Literal 0xf 0106 e222 | " | Load 0x1,0x22 0107 02a0 | | Declare_Subprogram Null_Subprogram 0108 4801 |H | Short_Literal 0x1 0109 035e | ^ | Declare_Type Array,Defined,Visible 010a c223 | # | Store 0x1,0x23 010b 4800 |H | Short_Literal 0x0 010c 0093 034b | K| push_full_address INIT_0348 010e 02a0 | | Declare_Subprogram Null_Subprogram 010f 038f | | Declare_Type Package,Defined,Visible 0110 e001 | | Load 0x0,0x1 0111 00b6 | | Action Make_Scope 0112 4802 |H | Short_Literal 0x2 0113 00db | | Load_Top At_Offset_3 0114 020e | | Execute Module,Augment_Imports 0115 0386 | | Declare_Variable Package,Visible 0116 c224 | $ | Store 0x1,0x24 0117 4800 |H | Short_Literal 0x0 0118 0093 031b | | push_full_address INIT_0318 011a 02a0 | | Declare_Subprogram Null_Subprogram 011b 038f | | Declare_Type Package,Defined,Visible 011c e001 | | Load 0x0,0x1 011d 00b6 | | Action Make_Scope 011e 4802 |H | Short_Literal 0x2 011f 00db | | Load_Top At_Offset_3 0120 020e | | Execute Module,Augment_Imports 0121 0386 | | Declare_Variable Package,Visible 0122 c225 | % | Store 0x1,0x25 0123 4800 |H | Short_Literal 0x0 0124 0093 02f3 | | push_full_address INIT_02f0 0126 02a0 | | Declare_Subprogram Null_Subprogram 0127 038f | | Declare_Type Package,Defined,Visible 0128 e001 | | Load 0x0,0x1 0129 00b6 | | Action Make_Scope 012a 4802 |H | Short_Literal 0x2 012b 00db | | Load_Top At_Offset_3 012c 020e | | Execute Module,Augment_Imports 012d 0386 | | Declare_Variable Package,Visible 012e c226 | & | Store 0x1,0x26 012f 4800 |H | Short_Literal 0x0 0130 0093 02d3 | | push_full_address INIT_02d0 0132 02a0 | | Declare_Subprogram Null_Subprogram 0133 038f | | Declare_Type Package,Defined,Visible 0134 e001 | | Load 0x0,0x1 0135 4801 |H | Short_Literal 0x1 0136 00da | | Load_Top At_Offset_2 0137 020e | | Execute Module,Augment_Imports 0138 0386 | | Declare_Variable Package,Visible 0139 c227 | ' | Store 0x1,0x27 013a 4800 |H | Short_Literal 0x0 013b 480f |H | Short_Literal 0xf 013c e001 | | Load 0x0,0x1 013d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 013e 02a0 | | Declare_Subprogram Null_Subprogram 013f 4801 |H | Short_Literal 0x1 0140 035e | ^ | Declare_Type Array,Defined,Visible 0141 c228 | ( | Store 0x1,0x28 0142 4800 |H | Short_Literal 0x0 0143 480f |H | Short_Literal 0xf 0144 e001 | | Load 0x0,0x1 0145 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0146 02a0 | | Declare_Subprogram Null_Subprogram 0147 4801 |H | Short_Literal 0x1 0148 035e | ^ | Declare_Type Array,Defined,Visible 0149 c229 | ) | Store 0x1,0x29 014a 4800 |H | Short_Literal 0x0 014b 0093 028b | | push_full_address INIT_0288 014d 02a0 | | Declare_Subprogram Null_Subprogram 014e 038f | | Declare_Type Package,Defined,Visible 014f 00b6 | | Action Make_Scope 0150 e001 | | Load 0x0,0x1 0151 4802 |H | Short_Literal 0x2 0152 00db | | Load_Top At_Offset_3 0153 020e | | Execute Module,Augment_Imports 0154 0386 | | Declare_Variable Package,Visible 0155 c22a | * | Store 0x1,0x2a 0156 4800 |H | Short_Literal 0x0 0157 0093 026b | k| push_full_address INIT_0268 0159 02a0 | | Declare_Subprogram Null_Subprogram 015a 038f | | Declare_Type Package,Defined,Visible 015b e001 | | Load 0x0,0x1 015c 4801 |H | Short_Literal 0x1 015d 00da | | Load_Top At_Offset_2 015e 020e | | Execute Module,Augment_Imports 015f 0386 | | Declare_Variable Package,Visible 0160 c22b | + | Store 0x1,0x2b 0161 4800 |H | Short_Literal 0x0 0162 0093 01eb | | push_full_address INIT_01e8 0164 02a0 | | Declare_Subprogram Null_Subprogram 0165 038f | | Declare_Type Package,Defined,Visible 0166 e001 | | Load 0x0,0x1 0167 00b6 | | Action Make_Scope 0168 4802 |H | Short_Literal 0x2 0169 00db | | Load_Top At_Offset_3 016a 020e | | Execute Module,Augment_Imports 016b 0386 | | Declare_Variable Package,Visible 016c c22c | , | Store 0x1,0x2c 016d e21c | | Load 0x1,0x1c 016e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016f e21d | | Load 0x1,0x1d 0170 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0171 e21f | | Load 0x1,0x1f 0172 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0173 e220 | | Load 0x1,0x20 0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0175 e221 | ! | Load 0x1,0x21 0176 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0177 e224 | $ | Load 0x1,0x24 0178 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0179 e225 | % | Load 0x1,0x25 017a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017b e226 | & | Load 0x1,0x26 017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017d e227 | ' | Load 0x1,0x27 017e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017f e22a | * | Load 0x1,0x2a 0180 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0181 e22b | + | Load 0x1,0x2b 0182 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0183 e22c | , | Load 0x1,0x2c 0184 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0185 e21e | | Load 0x1,0x1e 0186 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0187 02a0 | | Declare_Subprogram Null_Subprogram 0188 480d |H | Short_Literal 0xd 0189 032e | . | Declare_Type Record,Defined,Visible 018a c22d | - | Store 0x1,0x2d 018b e22d | - | Load 0x1,0x2d 018c 02a0 | | Declare_Subprogram Null_Subprogram 018d 4818 |H | Short_Literal 0x18 018e 03d6 | | Declare_Type Access,Defined,Visible 018f c22e | . | Store 0x1,0x2e 0190 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0192 c22f | / | Store 0x1,0x2f 0193 00bf | | Action Accept_Activation 0194 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0195 00c7 | | Action Elaborate_Subprogram 0196 e21c | | Load 0x1,0x1c 0197 020f | | Execute Module,Activate 0198 e21d | | Load 0x1,0x1d 0199 020f | | Execute Module,Activate 019a e21e | | Load 0x1,0x1e 019b 020f | | Execute Module,Activate 019c e21f | | Load 0x1,0x1f 019d 020f | | Execute Module,Activate 019e e220 | | Load 0x1,0x20 019f 020f | | Execute Module,Activate 01a0 e221 | ! | Load 0x1,0x21 01a1 020f | | Execute Module,Activate 01a2 e224 | $ | Load 0x1,0x24 01a3 020f | | Execute Module,Activate 01a4 e225 | % | Load 0x1,0x25 01a5 020f | | Execute Module,Activate 01a6 e226 | & | Load 0x1,0x26 01a7 020f | | Execute Module,Activate 01a8 e227 | ' | Load 0x1,0x27 01a9 020f | | Execute Module,Activate 01aa e22a | * | Load 0x1,0x2a 01ab 020f | | Execute Module,Activate 01ac e22b | + | Load 0x1,0x2b 01ad 020f | | Execute Module,Activate 01ae e22c | , | Load 0x1,0x2c 01af 020f | | Execute Module,Activate 01b0 BODY_0008: 01b0 00bc | | Action Signal_Activated 01b1 00bb | | Action Signal_Completion 01b2 0000 0000 | | .BLANK 0000[0x6] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01cb | | .CONST 0x01cb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0005 | | .CONST 0x0005 ; Number of locals 01bb INIT_01b8: 01bb e003 | | Load 0x0,0x3 01bc e004 | | Load 0x0,0x4 01bd e22d | - | Load 0x1,0x2d 01be e005 | | Load 0x0,0x5 01bf 0387 | | Declare_Variable Package 01c0 00d8 | | Load_Top At_Offset_0 01c1 020f | | Execute Module,Activate 01c2 0092 04b1 | | Action Push_String_Extended,0x4b1 ; ".saved_state" 01c4 00d9 | | Load_Top At_Offset_1 01c5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01c6 02c7 | | Declare_Variable Any 01c7 00d8 | | Load_Top At_Offset_0 01c8 1c00 | | Execute_Immediate Run_Utility,0x0 01c9 e22e | . | Load 0x1,0x2e 01ca 0007 | | Action Break_Optional 01cb BODY_01b8: 01cb e22e | . | Load 0x1,0x2e 01cc 03bc | | Declare_Variable Access,By_Allocation 01cd 0039 | 9 | Store_Top Access,At_Offset_1 01ce 00d9 | | Load_Top At_Offset_1 01cf 00ea | | Load_Encached Null_String_Cache 01d0 e5ff | | Load 0x2,-0x1 01d1 4800 |H | Short_Literal 0x0 01d2 e402 | | Load 0x2,0x2 01d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d4 c404 | | Store 0x2,0x4 01d5 00d8 | | Load_Top At_Offset_0 01d6 0229 | ) | Execute Access,All_Read 01d7 00d8 | | Load_Top At_Offset_0 01d8 00db | | Load_Top At_Offset_3 01d9 e402 | | Load 0x2,0x2 01da 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01db 00d2 | | Pop_Control Pop_Count_2 01dc 00d9 | | Load_Top At_Offset_1 01dd e402 | | Load 0x2,0x2 01de 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01df c404 | | Store 0x2,0x4 01e0 00d8 | | Load_Top At_Offset_0 01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e2 0000 0000 | | .XXX[0x2] 01e4 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 0237 | 7 | .CONST 0x0237 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0015 | | .CONST 0x0015 ; Number of locals 01eb INIT_01e8: 01eb 4800 |H | Short_Literal 0x0 01ec 480a |H | Short_Literal 0xa 01ed 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 01ef 03fe | | Declare_Type Discrete,Defined,Visible 01f0 4801 |H | Short_Literal 0x1 01f1 480a |H | Short_Literal 0xa 01f2 00da | | Load_Top At_Offset_2 01f3 03f9 | | Declare_Type Discrete,Constrained,Visible 01f4 4801 |H | Short_Literal 0x1 01f5 481e |H | Short_Literal 0x1e 01f6 00e9 | | Load_Encached String_Cache 01f7 035c | \ | Declare_Type Array,Constrained,Visible 01f8 e001 | | Load 0x0,0x1 01f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fa e001 | | Load 0x0,0x1 01fb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fc e001 | | Load 0x0,0x1 01fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fe e001 | | Load 0x0,0x1 01ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0200 02a0 | | Declare_Subprogram Null_Subprogram 0201 4804 |H | Short_Literal 0x4 0202 032e | . | Declare_Type Record,Defined,Visible 0203 e001 | | Load 0x0,0x1 0204 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0205 e001 | | Load 0x0,0x1 0206 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0207 00db | | Load_Top At_Offset_3 0208 02a0 | | Declare_Subprogram Null_Subprogram 0209 4803 |H | Short_Literal 0x3 020a 032e | . | Declare_Type Record,Defined,Visible 020b e001 | | Load 0x0,0x1 020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020d 00d9 | | Load_Top At_Offset_1 020e e001 | | Load 0x0,0x1 020f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0210 02a0 | | Declare_Subprogram Null_Subprogram 0211 4803 |H | Short_Literal 0x3 0212 032e | . | Declare_Type Record,Defined,Visible 0213 e001 | | Load 0x0,0x1 0214 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0215 e001 | | Load 0x0,0x1 0216 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0217 e001 | | Load 0x0,0x1 0218 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0219 e001 | | Load 0x0,0x1 021a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021b e001 | | Load 0x0,0x1 021c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021d e001 | | Load 0x0,0x1 021e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021f e001 | | Load 0x0,0x1 0220 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0221 02a0 | | Declare_Subprogram Null_Subprogram 0222 4807 |H | Short_Literal 0x7 0223 032e | . | Declare_Type Record,Defined,Visible 0224 4801 |H | Short_Literal 0x1 0225 480a |H | Short_Literal 0xa 0226 e211 | | Load 0x1,0x11 0227 02a0 | | Declare_Subprogram Null_Subprogram 0228 4801 |H | Short_Literal 0x1 0229 035e | ^ | Declare_Type Array,Defined,Visible 022a e001 | | Load 0x0,0x1 022b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 022c e210 | | Load 0x1,0x10 022d e212 | | Load 0x1,0x12 022e e213 | | Load 0x1,0x13 022f e211 | | Load 0x1,0x11 0230 e214 | | Load 0x1,0x14 0231 e002 | | Load 0x0,0x2 0232 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0233 02a0 | | Declare_Subprogram Null_Subprogram 0234 4807 |H | Short_Literal 0x7 0235 032e | . | Declare_Type Record,Defined,Visible 0236 00bf | | Action Accept_Activation 0237 BODY_01e8: 0237 00bc | | Action Signal_Activated 0238 00bb | | Action Signal_Completion 0239 0000 0000 | | .BLANK 0000[0x7] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 4607 |F | Jump_Case 0x8 0244 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0245 7806 |x | Jump 0x24c ; case 0x1 0246 7809 |x | Jump 0x250 ; case 0x2 0247 780d |x | Jump 0x255 ; case 0x3 0248 7810 |x | Jump 0x259 ; case 0x4 0249 7811 |x | Jump 0x25b ; case 0x5 024a 7812 |x | Jump 0x25d ; case 0x6 024b 7815 |x | Jump 0x261 ; case 0x7 024c 00da | | Load_Top At_Offset_2 024d 0091 04a6 | | Action Push_String_Extended_Indexed,0x4a6 ; "MICROCODE" 024f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0250 00db | | Load_Top At_Offset_3 0251 00db | | Load_Top At_Offset_3 0252 00e0 | | Load_Encached Standard_Cache 0253 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0254 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0255 00da | | Load_Top At_Offset_2 0256 00e0 | | Load_Encached Standard_Cache 0257 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0258 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0259 00db | | Load_Top At_Offset_3 025a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 025b 00db | | Load_Top At_Offset_3 025c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 025d e20d | | Load 0x1,0xd 025e 00dc | | Load_Top At_Offset_4 025f 0267 | g | Execute Discrete,Predecessor 0260 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0261 e20d | | Load 0x1,0xd 0262 00dc | | Load_Top At_Offset_4 0263 0268 | h | Execute Discrete,Successor 0264 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0265 0000 0000 | | .XXX[0x3] 0267 0000 | | 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0283 | | .CONST 0x0283 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 000e | | .CONST 0x000e ; Number of locals 026b INIT_0268: 026b e001 | | Load 0x0,0x1 026c 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 026d 0129 | ) | Execute Any,Make_Visible 026e 00d8 | | Load_Top At_Offset_0 026f 012c | , | Execute Any,Size 0270 0f10 | | Execute_Immediate Equal,0x10 0271 7001 |p | Jump_Nonzero 0x273 0272 0887 | | Execute_Immediate Raise,0x87 0273 4800 |H | Short_Literal 0x0 0274 4bff |K | Short_Literal 0x3ff 0275 00da | | Load_Top At_Offset_2 0276 02a0 | | Declare_Subprogram Null_Subprogram 0277 4801 |H | Short_Literal 0x1 0278 035e | ^ | Declare_Type Array,Defined,Visible 0279 00d8 | | Load_Top At_Offset_0 027a 012c | , | Execute Any,Size 027b e001 | | Load 0x0,0x1 027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027d 012c | , | Execute Any,Size 027e 0901 | | Execute_Immediate Binary_Scale,0x1 027f 027f | | Execute Discrete,Equal 0280 7001 |p | Jump_Nonzero 0x282 0281 0887 | | Execute_Immediate Raise,0x87 0282 00bf | | Action Accept_Activation 0283 BODY_0268: 0283 00bc | | Action Signal_Activated 0284 00bb | | Action Signal_Completion 0285 0000 0000 | | .XXX[0x3] 0287 0000 | | 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 02cd | | .CONST 0x02cd ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 000d | | .CONST 0x000d ; Number of locals 028b INIT_0288: 028b e001 | | Load 0x0,0x1 028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028d e002 | | Load 0x0,0x2 028e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 028f e002 | | Load 0x0,0x2 0290 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0291 e002 | | Load 0x0,0x2 0292 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0293 e002 | | Load 0x0,0x2 0294 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0295 e002 | | Load 0x0,0x2 0296 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0297 e002 | | Load 0x0,0x2 0298 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0299 e002 | | Load 0x0,0x2 029a 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 029b e002 | | Load 0x0,0x2 029c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 029d e002 | | Load 0x0,0x2 029e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 029f e002 | | Load 0x0,0x2 02a0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02a1 e002 | | Load 0x0,0x2 02a2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02a3 e002 | | Load 0x0,0x2 02a4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02a5 e002 | | Load 0x0,0x2 02a6 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02a7 e002 | | Load 0x0,0x2 02a8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02a9 e002 | | Load 0x0,0x2 02aa 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 02ab e002 | | Load 0x0,0x2 02ac 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 02ad e002 | | Load 0x0,0x2 02ae 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02af e002 | | Load 0x0,0x2 02b0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b1 e002 | | Load 0x0,0x2 02b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b3 e002 | | Load 0x0,0x2 02b4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b5 e002 | | Load 0x0,0x2 02b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b7 e002 | | Load 0x0,0x2 02b8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02b9 e002 | | Load 0x0,0x2 02ba 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02bb e001 | | Load 0x0,0x1 02bc 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 02bd e001 | | Load 0x0,0x1 02be 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 02bf e001 | | Load 0x0,0x1 02c0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02c1 02a0 | | Declare_Subprogram Null_Subprogram 02c2 481b |H | Short_Literal 0x1b 02c3 032e | . | Declare_Type Record,Defined,Visible 02c4 00d8 | | Load_Top At_Offset_0 02c5 012c | , | Execute Any,Size 02c6 e002 | | Load 0x0,0x2 02c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c8 012c | , | Execute Any,Size 02c9 027f | | Execute Discrete,Equal 02ca 7001 |p | Jump_Nonzero 0x2cc 02cb 0887 | | Execute_Immediate Raise,0x87 02cc 00bf | | Action Accept_Activation 02cd BODY_0288: 02cd 00bc | | Action Signal_Activated 02ce 00bb | | Action Signal_Completion 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02e3 | | .CONST 0x02e3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 000d | | .CONST 0x000d ; Number of locals 02d3 INIT_02d0: 02d3 4801 |H | Short_Literal 0x1 02d4 6013 |` | Indirect_Literal Discrete,0x2e8,{0x00000000, 0x00000400} 02d5 e001 | | Load 0x0,0x1 02d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d7 02a0 | | Declare_Subprogram Null_Subprogram 02d8 4801 |H | Short_Literal 0x1 02d9 035e | ^ | Declare_Type Array,Defined,Visible 02da 00d8 | | Load_Top At_Offset_0 02db 012c | , | Execute Any,Size 02dc e001 | | Load 0x0,0x1 02dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02de 012c | , | Execute Any,Size 02df 027f | | Execute Discrete,Equal 02e0 7001 |p | Jump_Nonzero 0x2e2 02e1 0887 | | Execute_Immediate Raise,0x87 02e2 00bf | | Action Accept_Activation 02e3 BODY_02d0: 02e3 00bc | | Action Signal_Activated 02e4 00bb | | Action Signal_Completion 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 030f | | .CONST 0x030f ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 000d | | .CONST 0x000d ; Number of locals 02f3 INIT_02f0: 02f3 e001 | | Load 0x0,0x1 02f4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02f5 e002 | | Load 0x0,0x2 02f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02f7 e001 | | Load 0x0,0x1 02f8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02f9 e001 | | Load 0x0,0x1 02fa 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02fb e001 | | Load 0x0,0x1 02fc 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02fd e001 | | Load 0x0,0x1 02fe 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02ff e002 | | Load 0x0,0x2 0300 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0301 e002 | | Load 0x0,0x2 0302 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0303 02a0 | | Declare_Subprogram Null_Subprogram 0304 4808 |H | Short_Literal 0x8 0305 032e | . | Declare_Type Record,Defined,Visible 0306 00d8 | | Load_Top At_Offset_0 0307 012c | , | Execute Any,Size 0308 e001 | | Load 0x0,0x1 0309 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030a 012c | , | Execute Any,Size 030b 027f | | Execute Discrete,Equal 030c 7001 |p | Jump_Nonzero 0x30e 030d 0887 | | Execute_Immediate Raise,0x87 030e 00bf | | Action Accept_Activation 030f BODY_02f0: 030f 00bc | | Action Signal_Activated 0310 00bb | | Action Signal_Completion 0311 0000 0000 | | .BLANK 0000[0x7] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 033f | ? | .CONST 0x033f ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 000d | | .CONST 0x000d ; Number of locals 031b INIT_0318: 031b e001 | | Load 0x0,0x1 031c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 031d e002 | | Load 0x0,0x2 031e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 031f e001 | | Load 0x0,0x1 0320 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0321 e001 | | Load 0x0,0x1 0322 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0323 e001 | | Load 0x0,0x1 0324 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0325 e001 | | Load 0x0,0x1 0326 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0327 e001 | | Load 0x0,0x1 0328 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0329 e001 | | Load 0x0,0x1 032a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 032b e001 | | Load 0x0,0x1 032c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 032d e002 | | Load 0x0,0x2 032e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 032f e002 | | Load 0x0,0x2 0330 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0331 e002 | | Load 0x0,0x2 0332 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0333 02a0 | | Declare_Subprogram Null_Subprogram 0334 480c |H | Short_Literal 0xc 0335 032e | . | Declare_Type Record,Defined,Visible 0336 00d8 | | Load_Top At_Offset_0 0337 012c | , | Execute Any,Size 0338 e001 | | Load 0x0,0x1 0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033a 012c | , | Execute Any,Size 033b 027f | | Execute Discrete,Equal 033c 7001 |p | Jump_Nonzero 0x33e 033d 0887 | | Execute_Immediate Raise,0x87 033e 00bf | | Action Accept_Activation 033f BODY_0318: 033f 00bc | | Action Signal_Activated 0340 00bb | | Action Signal_Completion 0341 0000 0000 | | .BLANK 0000[0x7] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 036f | o | .CONST 0x036f ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 000d | | .CONST 0x000d ; Number of locals 034b INIT_0348: 034b e001 | | Load 0x0,0x1 034c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 034d e002 | | Load 0x0,0x2 034e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 034f e001 | | Load 0x0,0x1 0350 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0351 e001 | | Load 0x0,0x1 0352 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0353 e001 | | Load 0x0,0x1 0354 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0355 e001 | | Load 0x0,0x1 0356 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0357 e002 | | Load 0x0,0x2 0358 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0359 e001 | | Load 0x0,0x1 035a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 035b e001 | | Load 0x0,0x1 035c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 035d e002 | | Load 0x0,0x2 035e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 035f e002 | | Load 0x0,0x2 0360 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0361 e002 | | Load 0x0,0x2 0362 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0363 02a0 | | Declare_Subprogram Null_Subprogram 0364 480c |H | Short_Literal 0xc 0365 032e | . | Declare_Type Record,Defined,Visible 0366 00d8 | | Load_Top At_Offset_0 0367 012c | , | Execute Any,Size 0368 e001 | | Load 0x0,0x1 0369 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036a 012c | , | Execute Any,Size 036b 027f | | Execute Discrete,Equal 036c 7001 |p | Jump_Nonzero 0x36e 036d 0887 | | Execute_Immediate Raise,0x87 036e 00bf | | Action Accept_Activation 036f BODY_0348: 036f 00bc | | Action Signal_Activated 0370 00bb | | Action Signal_Completion 0371 0000 0000 | | .BLANK 0000[0x7] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 03b1 | | .CONST 0x03b1 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 000d | | .CONST 0x000d ; Number of locals 037b INIT_0378: 037b e001 | | Load 0x0,0x1 037c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 037d e002 | | Load 0x0,0x2 037e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037f e001 | | Load 0x0,0x1 0380 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0381 e001 | | Load 0x0,0x1 0382 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0383 e001 | | Load 0x0,0x1 0384 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0385 e001 | | Load 0x0,0x1 0386 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0387 e001 | | Load 0x0,0x1 0388 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0389 e001 | | Load 0x0,0x1 038a 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 038b e001 | | Load 0x0,0x1 038c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 038d e001 | | Load 0x0,0x1 038e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 038f e001 | | Load 0x0,0x1 0390 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0391 e001 | | Load 0x0,0x1 0392 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0393 e001 | | Load 0x0,0x1 0394 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0395 e001 | | Load 0x0,0x1 0396 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0397 e001 | | Load 0x0,0x1 0398 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0399 e001 | | Load 0x0,0x1 039a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 039b e001 | | Load 0x0,0x1 039c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 039d e001 | | Load 0x0,0x1 039e 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 039f e001 | | Load 0x0,0x1 03a0 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 03a1 e002 | | Load 0x0,0x2 03a2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03a3 e002 | | Load 0x0,0x2 03a4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03a5 02a0 | | Declare_Subprogram Null_Subprogram 03a6 4815 |H | Short_Literal 0x15 03a7 032e | . | Declare_Type Record,Defined,Visible 03a8 00d8 | | Load_Top At_Offset_0 03a9 012c | , | Execute Any,Size 03aa e001 | | Load 0x0,0x1 03ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ac 012c | , | Execute Any,Size 03ad 027f | | Execute Discrete,Equal 03ae 7001 |p | Jump_Nonzero 0x3b0 03af 0887 | | Execute_Immediate Raise,0x87 03b0 00bf | | Action Accept_Activation 03b1 BODY_0378: 03b1 00bc | | Action Signal_Activated 03b2 00bb | | Action Signal_Completion 03b3 0000 0000 | | .BLANK 0000[0x5] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03dd | | .CONST 0x03dd ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 000d | | .CONST 0x000d ; Number of locals 03bb INIT_03b8: 03bb e001 | | Load 0x0,0x1 03bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03bd e002 | | Load 0x0,0x2 03be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03bf e001 | | Load 0x0,0x1 03c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03c1 e001 | | Load 0x0,0x1 03c2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03c3 e001 | | Load 0x0,0x1 03c4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03c5 e001 | | Load 0x0,0x1 03c6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03c7 e001 | | Load 0x0,0x1 03c8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03c9 e001 | | Load 0x0,0x1 03ca 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03cb e001 | | Load 0x0,0x1 03cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03cd e002 | | Load 0x0,0x2 03ce 1b19 | | Execute Package,Field_Read,Field_Number 0x19 03cf e002 | | Load 0x0,0x2 03d0 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03d1 02a0 | | Declare_Subprogram Null_Subprogram 03d2 480b |H | Short_Literal 0xb 03d3 032e | . | Declare_Type Record,Defined,Visible 03d4 00d8 | | Load_Top At_Offset_0 03d5 012c | , | Execute Any,Size 03d6 e001 | | Load 0x0,0x1 03d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d8 012c | , | Execute Any,Size 03d9 027f | | Execute Discrete,Equal 03da 7001 |p | Jump_Nonzero 0x3dc 03db 0887 | | Execute_Immediate Raise,0x87 03dc 00bf | | Action Accept_Activation 03dd BODY_03b8: 03dd 00bc | | Action Signal_Activated 03de 00bb | | Action Signal_Completion 03df 0000 | | .XXX[0x1] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 0431 | 1 | .CONST 0x0431 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 000f | | .CONST 0x000f ; Number of locals 03e3 INIT_03e0: 03e3 4800 |H | Short_Literal 0x0 03e4 4803 |H | Short_Literal 0x3 03e5 00e5 | | Load_Encached Long_Integer_Cache 03e6 03f9 | | Declare_Type Discrete,Constrained,Visible 03e7 e001 | | Load 0x0,0x1 03e8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03e9 e002 | | Load 0x0,0x2 03ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03eb e001 | | Load 0x0,0x1 03ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03ed e001 | | Load 0x0,0x1 03ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ef e001 | | Load 0x0,0x1 03f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f1 e001 | | Load 0x0,0x1 03f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f3 e001 | | Load 0x0,0x1 03f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f5 e001 | | Load 0x0,0x1 03f6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03f7 e001 | | Load 0x0,0x1 03f8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03f9 e001 | | Load 0x0,0x1 03fa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03fb e001 | | Load 0x0,0x1 03fc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03fd e001 | | Load 0x0,0x1 03fe 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03ff e001 | | Load 0x0,0x1 0400 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0401 e001 | | Load 0x0,0x1 0402 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0403 e001 | | Load 0x0,0x1 0404 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0405 e001 | | Load 0x0,0x1 0406 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0407 e001 | | Load 0x0,0x1 0408 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0409 e001 | | Load 0x0,0x1 040a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 040b e001 | | Load 0x0,0x1 040c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 040d e001 | | Load 0x0,0x1 040e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 040f e002 | | Load 0x0,0x2 0410 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0411 e001 | | Load 0x0,0x1 0412 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0413 e001 | | Load 0x0,0x1 0414 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0415 e001 | | Load 0x0,0x1 0416 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0417 e001 | | Load 0x0,0x1 0418 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0419 e001 | | Load 0x0,0x1 041a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 041b e002 | | Load 0x0,0x2 041c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 041d e002 | | Load 0x0,0x2 041e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 041f 02a0 | | Declare_Subprogram Null_Subprogram 0420 481c |H | Short_Literal 0x1c 0421 032e | . | Declare_Type Record,Defined,Visible 0422 00d8 | | Load_Top At_Offset_0 0423 012c | , | Execute Any,Size 0424 e001 | | Load 0x0,0x1 0425 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0426 012c | , | Execute Any,Size 0427 027f | | Execute Discrete,Equal 0428 7001 |p | Jump_Nonzero 0x42a 0429 0887 | | Execute_Immediate Raise,0x87 042a 4800 |H | Short_Literal 0x0 042b 4803 |H | Short_Literal 0x3 042c 00da | | Load_Top At_Offset_2 042d 02a0 | | Declare_Subprogram Null_Subprogram 042e 4801 |H | Short_Literal 0x1 042f 035e | ^ | Declare_Type Array,Defined,Visible 0430 00bf | | Action Accept_Activation 0431 BODY_03e0: 0431 00bc | | Action Signal_Activated 0432 00bb | | Action Signal_Completion 0433 0000 0000 | | .BLANK 0000[0x5] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 044d | M | .CONST 0x044d ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 000f | | .CONST 0x000f ; Number of locals 043b INIT_0438: 043b 4800 |H | Short_Literal 0x0 043c 481f |H | Short_Literal 0x1f 043d e001 | | Load 0x0,0x1 043e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 043f 02a0 | | Declare_Subprogram Null_Subprogram 0440 4801 |H | Short_Literal 0x1 0441 035e | ^ | Declare_Type Array,Defined,Visible 0442 4800 |H | Short_Literal 0x0 0443 481f |H | Short_Literal 0x1f 0444 00da | | Load_Top At_Offset_2 0445 02a0 | | Declare_Subprogram Null_Subprogram 0446 4801 |H | Short_Literal 0x1 0447 035e | ^ | Declare_Type Array,Defined,Visible 0448 00d8 | | Load_Top At_Offset_0 0449 02a0 | | Declare_Subprogram Null_Subprogram 044a 4801 |H | Short_Literal 0x1 044b 032e | . | Declare_Type Record,Defined,Visible 044c 00bf | | Action Accept_Activation 044d BODY_0438: 044d 00bc | | Action Signal_Activated 044e 00bb | | Action Signal_Completion 044f 0000 | | .XXX[0x1] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0468 | h | .CONST 0x0468 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 000e | | .CONST 0x000e ; Number of locals 0453 INIT_0450: 0453 4800 |H | Short_Literal 0x0 0454 4b3f |K? | Short_Literal 0x33f 0455 e001 | | Load 0x0,0x1 0456 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0457 02a0 | | Declare_Subprogram Null_Subprogram 0458 4801 |H | Short_Literal 0x1 0459 035e | ^ | Declare_Type Array,Defined,Visible 045a e002 | | Load 0x0,0x2 045b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 045c e002 | | Load 0x0,0x2 045d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 045e e002 | | Load 0x0,0x2 045f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0460 00e2 | | Load_Encached Integer_Cache 0461 e002 | | Load 0x0,0x2 0462 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0463 e20d | | Load 0x1,0xd 0464 02a0 | | Declare_Subprogram Null_Subprogram 0465 4806 |H | Short_Literal 0x6 0466 032e | . | Declare_Type Record,Defined,Visible 0467 00bf | | Action Accept_Activation 0468 BODY_0450: 0468 00bc | | Action Signal_Activated 0469 00bb | | Action Signal_Completion 046a 0000 0000 | | .BLANK 0000[0x6] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 04a4 | | .CONST 0x04a4 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0011 | | .CONST 0x0011 ; Number of locals 0473 INIT_0470: 0473 4801 |H | Short_Literal 0x1 0474 4812 |H | Short_Literal 0x12 0475 00e9 | | Load_Encached String_Cache 0476 035c | \ | Declare_Type Array,Constrained,Visible 0477 00c4 | | Action Make_Default 0478 00c4 | | Action Make_Default 0479 00c4 | | Action Make_Default 047a 00c4 | | Action Make_Default 047b e001 | | Load 0x0,0x1 047c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 047d e001 | | Load 0x0,0x1 047e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 047f e001 | | Load 0x0,0x1 0480 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0481 e001 | | Load 0x0,0x1 0482 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0483 e001 | | Load 0x0,0x1 0484 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0485 e001 | | Load 0x0,0x1 0486 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0487 e20d | | Load 0x1,0xd 0488 e001 | | Load 0x0,0x1 0489 1b11 | | Execute Package,Field_Read,Field_Number 0x11 048a e001 | | Load 0x0,0x1 048b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 048c e002 | | Load 0x0,0x2 048d 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 048e 02a0 | | Declare_Subprogram Null_Subprogram 048f 480a |H | Short_Literal 0xa 0490 032e | . | Declare_Type Record,Defined,Visible 0491 c20f | | Store 0x1,0xf 0492 e002 | | Load 0x0,0x2 0493 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0494 0322 | " | Declare_Variable Record 0495 4800 |H | Short_Literal 0x0 0496 00d9 | | Load_Top At_Offset_1 0497 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0498 481e |H | Short_Literal 0x1e 0499 00d9 | | Load_Top At_Offset_1 049a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 049b 489e |H | Short_Literal 0x9e 049c 00d9 | | Load_Top At_Offset_1 049d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 049e 4bdd |K | Short_Literal 0x3dd 049f 00d9 | | Load_Top At_Offset_1 04a0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 04a1 0129 | ) | Execute Any,Make_Visible 04a2 c211 | | Store 0x1,0x11 04a3 00bf | | Action Accept_Activation 04a4 BODY_0470: 04a4 00bc | | Action Signal_Activated 04a5 00bb | | Action Signal_Completion 04a6 ; -------------------------------------------------------------------------------------- 04a6 ; STRING TABLE 04a6 ; -------------------------------------------------------------------------------------- 04a6 001a | | .STRTAB 0x001a->0x04b3 ; "MICROCODE" 04a7 0021 | ! | .STRTAB 0x0021->0x04b7 ; "ADA_BASE" 04a8 0027 | ' | .STRTAB 0x0027->0x04bb ; "MACHINE_INTERFACE" 04a9 0036 | 6 | .STRTAB 0x0036->0x04c4 ; "KERNEL_DEBUGGER_IO" 04aa 0046 | F | .STRTAB 0x0046->0x04cd ; "KERNEL_DEBUGGER" 04ab 0053 | S | .STRTAB 0x0053->0x04d4 ; "KERNEL" 04ac 0057 | W | .STRTAB 0x0057->0x04d7 ; "ENVIRONMENT_DEBUGGER" 04ad 0069 | i | .STRTAB 0x0069->0x04e1 ; "ABSTRACT_TYPES" 04ae 0075 | u | .STRTAB 0x0075->0x04e8 ; "MISCELLANEOUS" 04af 0080 | | .STRTAB 0x0080->0x04ef ; "OS_UTILITIES" 04b0 008a | | .STRTAB 0x008a->0x04f5 ; "ELABORATOR_DATABASE" 04b1 009b | | .STRTAB 0x009b->0x04fe ; ".saved_state" 04b2 00a5 | | .STREND 0x00a5->0x0504 04b3 4d49 4352 |MICR| .STRTAB_STRINGS 0505 0000 0000 | | .XXX[0x3] 0507 0000 | | 0508 ; -------------------------------------------------------------------------------------- 0508 ; Debug Table 0508 ; -------------------------------------------------------------------------------------- 0508 0004 000e | | .DEBUG4 0x0004,0x000e,0x9a01,0x0000,0x0001,0x0000 050e 4190 6419 |A d | .XXX[0xf2] 0510 0641 9064 | A d| 0512 1906 4190 | A | 0514 6419 0641 |d A| 0516 9064 1906 | d | 0518 4190 6419 |A d | 051a 0641 9064 | A d| 051c 1906 4190 | A | 051e 6419 0641 |d A| 0520 9064 1906 | d | 0522 4190 6419 |A d | 0524 0641 9064 | A d| 0526 1906 4190 | A | 0528 6419 0641 |d A| 052a 9064 1906 | d | 052c 4190 6419 |A d | 052e 0641 9064 | A d| 0530 1906 4190 | A | 0532 6419 0641 |d A| 0534 9064 1906 | d | 0536 4190 6419 |A d | 0538 0641 9064 | A d| 053a 1906 4190 | A | 053c 6419 0641 |d A| 053e 9064 1906 | d | 0540 4190 6419 |A d | 0542 0641 9064 | A d| 0544 1906 4190 | A | 0546 6419 0641 |d A| 0548 9064 1906 | d | 054a 4190 6419 |A d | 054c 0641 9064 | A d| 054e 1906 4190 | A | 0550 6419 0641 |d A| 0552 9064 1906 | d | 0554 4190 6419 |A d | 0556 0641 9064 | A d| 0558 1906 4190 | A | 055a 6419 0641 |d A| 055c 9064 1906 | d | 055e 4190 6419 |A d | 0560 0641 9064 | A d| 0562 1906 4190 | A | 0564 6419 0641 |d A| 0566 9064 1906 | d | 0568 4190 6419 |A d | 056a 0641 9064 | A d| 056c 1906 4190 | A | 056e 6419 0641 |d A| 0570 9064 1906 | d | 0572 4190 6419 |A d | 0574 0641 9064 | A d| 0576 1906 4190 | A | 0578 6419 0641 |d A| 057a 9064 1906 | d | 057c 4190 6419 |A d | 057e 0641 9064 | A d| 0580 1906 4190 | A | 0582 6419 0641 |d A| 0584 9064 1906 | d | 0586 4190 6419 |A d | 0588 0641 9064 | A d| 058a 1906 4190 | A | 058c 6419 0641 |d A| 058e 9064 1906 | d | 0590 4190 6419 |A d | 0592 0641 9064 | A d| 0594 1906 4190 | A | 0596 6419 0641 |d A| 0598 9064 1906 | d | 059a 4190 6419 |A d | 059c 0641 9064 | A d| 059e 1906 4190 | A | 05a0 6419 0641 |d A| 05a2 9064 1906 | d | 05a4 4190 6419 |A d | 05a6 0641 9064 | A d| 05a8 1906 4190 | A | 05aa 6419 0641 |d A| 05ac 9064 1906 | d | 05ae 4190 6419 |A d | 05b0 0641 9064 | A d| 05b2 1906 4190 | A | 05b4 6419 0641 |d A| 05b6 9064 1906 | d | 05b8 4190 6419 |A d | 05ba 0641 9064 | A d| 05bc 1906 4190 | A | 05be 6419 0641 |d A| 05c0 9064 1906 | d | 05c2 4190 6419 |A d | 05c4 0641 9064 | A d| 05c6 1906 4190 | A | 05c8 6419 0641 |d A| 05ca 9064 1906 | d | 05cc 4190 6419 |A d | 05ce 0641 9064 | A d| 05d0 1906 4190 | A | 05d2 6419 0641 |d A| 05d4 9064 1906 | d | 05d6 4190 6419 |A d | 05d8 0641 9064 | A d| 05da 1906 4190 | A | 05dc 6419 0641 |d A| 05de 9064 1906 | d | 05e0 4190 6419 |A d | 05e2 0641 9064 | A d| 05e4 1906 4190 | A | 05e6 6419 0641 |d A| 05e8 9064 1906 | d | 05ea 4190 6419 |A d | 05ec 0641 9064 | A d| 05ee 1906 4190 | A | 05f0 6419 0641 |d A| 05f2 9064 1906 | d | 05f4 4190 6419 |A d | 05f6 0641 9064 | A d| 05f8 1906 4190 | A | 05fa 6419 0641 |d A| 05fc 9064 1906 | d | 05fe 4190 6419 |A d |