|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0428 | ( | .CONST 0x0428 ; 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 0195 | | .CONST 0x0195 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0031 | 1 | .CONST 0x0031 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4802 |H | Short_Literal 0x2 000d e002 | | Load 0x0,0x2 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 4801 |H | Short_Literal 0x1 0010 035e | ^ | Declare_Type Array,Defined,Visible 0011 4801 |H | Short_Literal 0x1 0012 4804 |H | Short_Literal 0x4 0013 e002 | | Load 0x0,0x2 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 4801 |H | Short_Literal 0x1 0016 035e | ^ | Declare_Type Array,Defined,Visible 0017 4801 |H | Short_Literal 0x1 0018 4806 |H | Short_Literal 0x6 0019 e002 | | Load 0x0,0x2 001a 02a0 | | Declare_Subprogram Null_Subprogram 001b 4801 |H | Short_Literal 0x1 001c 035e | ^ | Declare_Type Array,Defined,Visible 001d 4801 |H | Short_Literal 0x1 001e 480f |H | Short_Literal 0xf 001f e002 | | Load 0x0,0x2 0020 02a0 | | Declare_Subprogram Null_Subprogram 0021 4801 |H | Short_Literal 0x1 0022 035e | ^ | Declare_Type Array,Defined,Visible 0023 4801 |H | Short_Literal 0x1 0024 4a70 |Jp | Short_Literal 0x270 0025 e002 | | Load 0x0,0x2 0026 02a0 | | Declare_Subprogram Null_Subprogram 0027 4801 |H | Short_Literal 0x1 0028 035e | ^ | Declare_Type Array,Defined,Visible 0029 4801 |H | Short_Literal 0x1 002a 485c |H\ | Short_Literal 0x5c 002b e002 | | Load 0x0,0x2 002c 02a0 | | Declare_Subprogram Null_Subprogram 002d 4801 |H | Short_Literal 0x1 002e 035e | ^ | Declare_Type Array,Defined,Visible 002f 4801 |H | Short_Literal 0x1 0030 4860 |H` | Short_Literal 0x60 0031 e002 | | Load 0x0,0x2 0032 02a0 | | Declare_Subprogram Null_Subprogram 0033 4801 |H | Short_Literal 0x1 0034 035e | ^ | Declare_Type Array,Defined,Visible 0035 4800 |H | Short_Literal 0x0 0036 4bdd |K | Short_Literal 0x3dd 0037 e002 | | Load 0x0,0x2 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 4801 |H | Short_Literal 0x1 003a 035e | ^ | Declare_Type Array,Defined,Visible 003b 4801 |H | Short_Literal 0x1 003c 6187 |a | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x00000400} 003d e002 | | Load 0x0,0x2 003e 02a0 | | Declare_Subprogram Null_Subprogram 003f 4801 |H | Short_Literal 0x1 0040 035e | ^ | Declare_Type Array,Defined,Visible 0041 4801 |H | Short_Literal 0x1 0042 480d |H | Short_Literal 0xd 0043 e003 | | Load 0x0,0x3 0044 02a0 | | Declare_Subprogram Null_Subprogram 0045 4801 |H | Short_Literal 0x1 0046 035e | ^ | Declare_Type Array,Defined,Visible 0047 4801 |H | Short_Literal 0x1 0048 480e |H | Short_Literal 0xe 0049 e003 | | Load 0x0,0x3 004a 02a0 | | Declare_Subprogram Null_Subprogram 004b 4801 |H | Short_Literal 0x1 004c 035e | ^ | Declare_Type Array,Defined,Visible 004d 4801 |H | Short_Literal 0x1 004e 4810 |H | Short_Literal 0x10 004f e003 | | Load 0x0,0x3 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 4801 |H | Short_Literal 0x1 0052 035e | ^ | Declare_Type Array,Defined,Visible 0053 4801 |H | Short_Literal 0x1 0054 4818 |H | Short_Literal 0x18 0055 e003 | | Load 0x0,0x3 0056 02a0 | | Declare_Subprogram Null_Subprogram 0057 4801 |H | Short_Literal 0x1 0058 035e | ^ | Declare_Type Array,Defined,Visible 0059 4801 |H | Short_Literal 0x1 005a 481c |H | Short_Literal 0x1c 005b e003 | | Load 0x0,0x3 005c 02a0 | | Declare_Subprogram Null_Subprogram 005d 4801 |H | Short_Literal 0x1 005e 035e | ^ | Declare_Type Array,Defined,Visible 005f 4801 |H | Short_Literal 0x1 0060 481e |H | Short_Literal 0x1e 0061 e003 | | Load 0x0,0x3 0062 02a0 | | Declare_Subprogram Null_Subprogram 0063 4801 |H | Short_Literal 0x1 0064 035e | ^ | Declare_Type Array,Defined,Visible 0065 4801 |H | Short_Literal 0x1 0066 4820 |H | Short_Literal 0x20 0067 e003 | | Load 0x0,0x3 0068 02a0 | | Declare_Subprogram Null_Subprogram 0069 4801 |H | Short_Literal 0x1 006a 035e | ^ | Declare_Type Array,Defined,Visible 006b 00e2 | | Load_Encached Integer_Cache 006c 00e2 | | Load_Encached Integer_Cache 006d 00e2 | | Load_Encached Integer_Cache 006e 00e2 | | Load_Encached Integer_Cache 006f 02a0 | | Declare_Subprogram Null_Subprogram 0070 4804 |H | Short_Literal 0x4 0071 032e | . | Declare_Type Record,Defined,Visible 0072 4800 |H | Short_Literal 0x0 0073 0093 03a3 | | push_full_address INIT_03a0 0075 02a0 | | Declare_Subprogram Null_Subprogram 0076 038f | | Declare_Type Package,Defined,Visible 0077 e004 | | Load 0x0,0x4 0078 e214 | | Load 0x1,0x14 0079 00db | | Load_Top At_Offset_3 007a 4803 |H | Short_Literal 0x3 007b e21e | | Load 0x1,0x1e 007c 020e | | Execute Module,Augment_Imports 007d 0386 | | Declare_Variable Package,Visible 007e 4800 |H | Short_Literal 0x0 007f 0093 038b | | push_full_address INIT_0388 0081 02a0 | | Declare_Subprogram Null_Subprogram 0082 038f | | Declare_Type Package,Defined,Visible 0083 e002 | | Load 0x0,0x2 0084 e215 | | Load 0x1,0x15 0085 e213 | | Load 0x1,0x13 0086 e212 | | Load 0x1,0x12 0087 4804 |H | Short_Literal 0x4 0088 e21f | | Load 0x1,0x1f 0089 020e | | Execute Module,Augment_Imports 008a 0386 | | Declare_Variable Package,Visible 008b 4800 |H | Short_Literal 0x0 008c 0093 0373 | s| push_full_address INIT_0370 008e 02a0 | | Declare_Subprogram Null_Subprogram 008f 038f | | Declare_Type Package,Defined,Visible 0090 e003 | | Load 0x0,0x3 0091 4801 |H | Short_Literal 0x1 0092 00da | | Load_Top At_Offset_2 0093 020e | | Execute Module,Augment_Imports 0094 0386 | | Declare_Variable Package,Visible 0095 4800 |H | Short_Literal 0x0 0096 0093 033b | ;| push_full_address INIT_0338 0098 02a0 | | Declare_Subprogram Null_Subprogram 0099 038f | | Declare_Type Package,Defined,Visible 009a e005 | | Load 0x0,0x5 009b e20f | | Load 0x1,0xf 009c e002 | | Load 0x0,0x2 009d e004 | | Load 0x0,0x4 009e e003 | | Load 0x0,0x3 009f e20e | | Load 0x1,0xe 00a0 e219 | | Load 0x1,0x19 00a1 e21c | | Load 0x1,0x1c 00a2 e006 | | Load 0x0,0x6 00a3 4809 |H | Short_Literal 0x9 00a4 e221 | ! | Load 0x1,0x21 00a5 020e | | Execute Module,Augment_Imports 00a6 0386 | | Declare_Variable Package,Visible 00a7 4800 |H | Short_Literal 0x0 00a8 0093 031b | | push_full_address INIT_0318 00aa 02a0 | | Declare_Subprogram Null_Subprogram 00ab 038f | | Declare_Type Package,Defined,Visible 00ac e005 | | Load 0x0,0x5 00ad e20f | | Load 0x1,0xf 00ae e004 | | Load 0x0,0x4 00af e007 | | Load 0x0,0x7 00b0 e003 | | Load 0x0,0x3 00b1 e21a | | Load 0x1,0x1a 00b2 e21c | | Load 0x1,0x1c 00b3 e006 | | Load 0x0,0x6 00b4 4808 |H | Short_Literal 0x8 00b5 e222 | " | Load 0x1,0x22 00b6 020e | | Execute Module,Augment_Imports 00b7 0386 | | Declare_Variable Package,Visible 00b8 4800 |H | Short_Literal 0x0 00b9 0093 02f3 | | push_full_address INIT_02f0 00bb 02a0 | | Declare_Subprogram Null_Subprogram 00bc 038f | | Declare_Type Package,Defined,Visible 00bd e005 | | Load 0x0,0x5 00be e20d | | Load 0x1,0xd 00bf e007 | | Load 0x0,0x7 00c0 e004 | | Load 0x0,0x4 00c1 e008 | | Load 0x0,0x8 00c2 e009 | | Load 0x0,0x9 00c3 e003 | | Load 0x0,0x3 00c4 e00a | | Load 0x0,0xa 00c5 e00b | | Load 0x0,0xb 00c6 e00c | | Load 0x0,0xc 00c7 e00d | | Load 0x0,0xd 00c8 e00e | | Load 0x0,0xe 00c9 e00f | | Load 0x0,0xf 00ca e218 | | Load 0x1,0x18 00cb e21c | | Load 0x1,0x1c 00cc e006 | | Load 0x0,0x6 00cd 4810 |H | Short_Literal 0x10 00ce e223 | # | Load 0x1,0x23 00cf 020e | | Execute Module,Augment_Imports 00d0 0386 | | Declare_Variable Package,Visible 00d1 00e5 | | Load_Encached Long_Integer_Cache 00d2 00e5 | | Load_Encached Long_Integer_Cache 00d3 02a0 | | Declare_Subprogram Null_Subprogram 00d4 4802 |H | Short_Literal 0x2 00d5 032e | . | Declare_Type Record,Defined,Visible 00d6 4800 |H | Short_Literal 0x0 00d7 480f |H | Short_Literal 0xf 00d8 00da | | Load_Top At_Offset_2 00d9 02a0 | | Declare_Subprogram Null_Subprogram 00da 4801 |H | Short_Literal 0x1 00db 035e | ^ | Declare_Type Array,Defined,Visible 00dc 4800 |H | Short_Literal 0x0 00dd 0093 02d3 | | push_full_address INIT_02d0 00df 02a0 | | Declare_Subprogram Null_Subprogram 00e0 038f | | Declare_Type Package,Defined,Visible 00e1 e005 | | Load 0x0,0x5 00e2 e20f | | Load 0x1,0xf 00e3 e004 | | Load 0x0,0x4 00e4 e007 | | Load 0x0,0x7 00e5 e20d | | Load 0x1,0xd 00e6 e217 | | Load 0x1,0x17 00e7 e225 | % | Load 0x1,0x25 00e8 e21c | | Load 0x1,0x1c 00e9 e006 | | Load 0x0,0x6 00ea 4809 |H | Short_Literal 0x9 00eb e226 | & | Load 0x1,0x26 00ec 020e | | Execute Module,Augment_Imports 00ed 0386 | | Declare_Variable Package,Visible 00ee 4800 |H | Short_Literal 0x0 00ef 0093 02b3 | | push_full_address INIT_02b0 00f1 02a0 | | Declare_Subprogram Null_Subprogram 00f2 038f | | Declare_Type Package,Defined,Visible 00f3 e005 | | Load 0x0,0x5 00f4 e20f | | Load 0x1,0xf 00f5 e004 | | Load 0x0,0x4 00f6 e007 | | Load 0x0,0x7 00f7 e217 | | Load 0x1,0x17 00f8 e225 | % | Load 0x1,0x25 00f9 e21c | | Load 0x1,0x1c 00fa e006 | | Load 0x0,0x6 00fb 4808 |H | Short_Literal 0x8 00fc e227 | ' | Load 0x1,0x27 00fd 020e | | Execute Module,Augment_Imports 00fe 0386 | | Declare_Variable Package,Visible 00ff 4800 |H | Short_Literal 0x0 0100 0093 029b | | push_full_address INIT_0298 0102 02a0 | | Declare_Subprogram Null_Subprogram 0103 038f | | Declare_Type Package,Defined,Visible 0104 e005 | | Load 0x0,0x5 0105 e20f | | Load 0x1,0xf 0106 e004 | | Load 0x0,0x4 0107 e010 | | Load 0x0,0x10 0108 e003 | | Load 0x0,0x3 0109 e21b | | Load 0x1,0x1b 010a e21c | | Load 0x1,0x1c 010b e006 | | Load 0x0,0x6 010c 4808 |H | Short_Literal 0x8 010d e228 | ( | Load 0x1,0x28 010e 020e | | Execute Module,Augment_Imports 010f 0386 | | Declare_Variable Package,Visible 0110 4800 |H | Short_Literal 0x0 0111 0093 0283 | | push_full_address INIT_0280 0113 02a0 | | Declare_Subprogram Null_Subprogram 0114 038f | | Declare_Type Package,Defined,Visible 0115 e002 | | Load 0x0,0x2 0116 e006 | | Load 0x0,0x6 0117 4802 |H | Short_Literal 0x2 0118 00db | | Load_Top At_Offset_3 0119 020e | | Execute Module,Augment_Imports 011a 0386 | | Declare_Variable Package,Visible 011b 4800 |H | Short_Literal 0x0 011c 480f |H | Short_Literal 0xf 011d e003 | | Load 0x0,0x3 011e 02a0 | | Declare_Subprogram Null_Subprogram 011f 4801 |H | Short_Literal 0x1 0120 035e | ^ | Declare_Type Array,Defined,Visible 0121 4800 |H | Short_Literal 0x0 0122 480f |H | Short_Literal 0xf 0123 e003 | | Load 0x0,0x3 0124 02a0 | | Declare_Subprogram Null_Subprogram 0125 4801 |H | Short_Literal 0x1 0126 035e | ^ | Declare_Type Array,Defined,Visible 0127 4800 |H | Short_Literal 0x0 0128 0093 0253 | S| push_full_address INIT_0250 012a 02a0 | | Declare_Subprogram Null_Subprogram 012b 038f | | Declare_Type Package,Defined,Visible 012c e20d | | Load 0x1,0xd 012d e004 | | Load 0x0,0x4 012e e008 | | Load 0x0,0x8 012f e00a | | Load 0x0,0xa 0130 e00b | | Load 0x0,0xb 0131 e00c | | Load 0x0,0xc 0132 e00d | | Load 0x0,0xd 0133 e00e | | Load 0x0,0xe 0134 e00f | | Load 0x0,0xf 0135 e003 | | Load 0x0,0x3 0136 e22a | * | Load 0x1,0x2a 0137 e22b | + | Load 0x1,0x2b 0138 e216 | | Load 0x1,0x16 0139 e006 | | Load 0x0,0x6 013a 480e |H | Short_Literal 0xe 013b e22c | , | Load 0x1,0x2c 013c 020e | | Execute Module,Augment_Imports 013d 0386 | | Declare_Variable Package,Visible 013e 4800 |H | Short_Literal 0x0 013f 0093 0233 | 3| push_full_address INIT_0230 0141 02a0 | | Declare_Subprogram Null_Subprogram 0142 038f | | Declare_Type Package,Defined,Visible 0143 e009 | | Load 0x0,0x9 0144 e006 | | Load 0x0,0x6 0145 4802 |H | Short_Literal 0x2 0146 00db | | Load_Top At_Offset_3 0147 020e | | Execute Module,Augment_Imports 0148 0386 | | Declare_Variable Package,Visible 0149 4800 |H | Short_Literal 0x0 014a 0093 01cb | | push_full_address INIT_01c8 014c 02a0 | | Declare_Subprogram Null_Subprogram 014d 038f | | Declare_Type Package,Defined,Visible 014e e002 | | Load 0x0,0x2 014f e005 | | Load 0x0,0x5 0150 e211 | | Load 0x1,0x11 0151 4803 |H | Short_Literal 0x3 0152 e22e | . | Load 0x1,0x2e 0153 020e | | Execute Module,Augment_Imports 0154 0386 | | Declare_Variable Package,Visible 0155 e21e | | Load 0x1,0x1e 0156 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0157 e21f | | Load 0x1,0x1f 0158 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0159 e221 | ! | Load 0x1,0x21 015a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015b e222 | " | Load 0x1,0x22 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d e223 | # | Load 0x1,0x23 015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015f e226 | & | Load 0x1,0x26 0160 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0161 e227 | ' | Load 0x1,0x27 0162 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0163 e228 | ( | Load 0x1,0x28 0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0165 e229 | ) | Load 0x1,0x29 0166 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0167 e22c | , | Load 0x1,0x2c 0168 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0169 e22d | - | Load 0x1,0x2d 016a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016b e22e | . | Load 0x1,0x2e 016c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 016d e220 | | Load 0x1,0x20 016e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016f 02a0 | | Declare_Subprogram Null_Subprogram 0170 480d |H | Short_Literal 0xd 0171 032e | . | Declare_Type Record,Defined,Visible 0172 00d8 | | Load_Top At_Offset_0 0173 02a0 | | Declare_Subprogram Null_Subprogram 0174 4818 |H | Short_Literal 0x18 0175 03d6 | | Declare_Type Access,Defined,Visible 0176 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0178 00bf | | Action Accept_Activation 0179 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 017a 00c7 | | Action Elaborate_Subprogram 017b e21e | | Load 0x1,0x1e 017c 020f | | Execute Module,Activate 017d e21f | | Load 0x1,0x1f 017e 020f | | Execute Module,Activate 017f e220 | | Load 0x1,0x20 0180 020f | | Execute Module,Activate 0181 e221 | ! | Load 0x1,0x21 0182 020f | | Execute Module,Activate 0183 e222 | " | Load 0x1,0x22 0184 020f | | Execute Module,Activate 0185 e223 | # | Load 0x1,0x23 0186 020f | | Execute Module,Activate 0187 e226 | & | Load 0x1,0x26 0188 020f | | Execute Module,Activate 0189 e227 | ' | Load 0x1,0x27 018a 020f | | Execute Module,Activate 018b e228 | ( | Load 0x1,0x28 018c 020f | | Execute Module,Activate 018d e229 | ) | Load 0x1,0x29 018e 020f | | Execute Module,Activate 018f e22c | , | Load 0x1,0x2c 0190 020f | | Execute Module,Activate 0191 e22d | - | Load 0x1,0x2d 0192 020f | | Execute Module,Activate 0193 00db | | Load_Top At_Offset_3 0194 020f | | Execute Module,Activate 0195 BODY_0008: 0195 00bc | | Action Signal_Activated 0196 00bb | | Action Signal_Completion 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01ab | | .CONST 0x01ab ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0005 | | .CONST 0x0005 ; Number of locals 019b INIT_0198: 019b e011 | | Load 0x0,0x11 019c e012 | | Load 0x0,0x12 019d e22f | / | Load 0x1,0x2f 019e e013 | | Load 0x0,0x13 019f 0387 | | Declare_Variable Package 01a0 00d8 | | Load_Top At_Offset_0 01a1 020f | | Execute Module,Activate 01a2 0092 03d1 | | Action Push_String_Extended,0x3d1 ; ".saved_state" 01a4 00d9 | | Load_Top At_Offset_1 01a5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a6 02c7 | | Declare_Variable Any 01a7 00d8 | | Load_Top At_Offset_0 01a8 1c00 | | Execute_Immediate Run_Utility,0x0 01a9 e230 | 0 | Load 0x1,0x30 01aa 0007 | | Action Break_Optional 01ab BODY_0198: 01ab e230 | 0 | Load 0x1,0x30 01ac 03bc | | Declare_Variable Access,By_Allocation 01ad 0039 | 9 | Store_Top Access,At_Offset_1 01ae 00d9 | | Load_Top At_Offset_1 01af 00ea | | Load_Encached Null_String_Cache 01b0 e5ff | | Load 0x2,-0x1 01b1 4800 |H | Short_Literal 0x0 01b2 e402 | | Load 0x2,0x2 01b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b4 c404 | | Store 0x2,0x4 01b5 00d8 | | Load_Top At_Offset_0 01b6 0229 | ) | Execute Access,All_Read 01b7 00d8 | | Load_Top At_Offset_0 01b8 00db | | Load_Top At_Offset_3 01b9 e402 | | Load 0x2,0x2 01ba 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01bb 00d2 | | Pop_Control Pop_Count_2 01bc 00d9 | | Load_Top At_Offset_1 01bd e402 | | Load 0x2,0x2 01be 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01bf c404 | | Store 0x2,0x4 01c0 00d8 | | Load_Top At_Offset_0 01c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c2 0000 0000 | | .XXX[0x2] 01c4 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 0206 | | .CONST 0x0206 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0015 | | .CONST 0x0015 ; Number of locals 01cb INIT_01c8: 01cb 4800 |H | Short_Literal 0x0 01cc 480a |H | Short_Literal 0xa 01cd 029f 020b | | Declare_Subprogram INIT_0208,For_Call 01cf 03fe | | Declare_Type Discrete,Defined,Visible 01d0 4801 |H | Short_Literal 0x1 01d1 480a |H | Short_Literal 0xa 01d2 00da | | Load_Top At_Offset_2 01d3 03f9 | | Declare_Type Discrete,Constrained,Visible 01d4 4801 |H | Short_Literal 0x1 01d5 481e |H | Short_Literal 0x1e 01d6 00e9 | | Load_Encached String_Cache 01d7 035c | \ | Declare_Type Array,Constrained,Visible 01d8 e001 | | Load 0x0,0x1 01d9 00d8 | | Load_Top At_Offset_0 01da e001 | | Load 0x0,0x1 01db 00d8 | | Load_Top At_Offset_0 01dc 02a0 | | Declare_Subprogram Null_Subprogram 01dd 4804 |H | Short_Literal 0x4 01de 032e | . | Declare_Type Record,Defined,Visible 01df e001 | | Load 0x0,0x1 01e0 00d8 | | Load_Top At_Offset_0 01e1 00db | | Load_Top At_Offset_3 01e2 02a0 | | Declare_Subprogram Null_Subprogram 01e3 4803 |H | Short_Literal 0x3 01e4 032e | . | Declare_Type Record,Defined,Visible 01e5 e001 | | Load 0x0,0x1 01e6 00d9 | | Load_Top At_Offset_1 01e7 e002 | | Load 0x0,0x2 01e8 02a0 | | Declare_Subprogram Null_Subprogram 01e9 4803 |H | Short_Literal 0x3 01ea 032e | . | Declare_Type Record,Defined,Visible 01eb e001 | | Load 0x0,0x1 01ec 00d8 | | Load_Top At_Offset_0 01ed e001 | | Load 0x0,0x1 01ee 00d8 | | Load_Top At_Offset_0 01ef e001 | | Load 0x0,0x1 01f0 00d8 | | Load_Top At_Offset_0 01f1 e001 | | Load 0x0,0x1 01f2 02a0 | | Declare_Subprogram Null_Subprogram 01f3 4807 |H | Short_Literal 0x7 01f4 032e | . | Declare_Type Record,Defined,Visible 01f5 4801 |H | Short_Literal 0x1 01f6 480a |H | Short_Literal 0xa 01f7 e211 | | Load 0x1,0x11 01f8 02a0 | | Declare_Subprogram Null_Subprogram 01f9 4801 |H | Short_Literal 0x1 01fa 035e | ^ | Declare_Type Array,Defined,Visible 01fb e002 | | Load 0x0,0x2 01fc e210 | | Load 0x1,0x10 01fd e212 | | Load 0x1,0x12 01fe e213 | | Load 0x1,0x13 01ff e211 | | Load 0x1,0x11 0200 e214 | | Load 0x1,0x14 0201 e003 | | Load 0x0,0x3 0202 02a0 | | Declare_Subprogram Null_Subprogram 0203 4807 |H | Short_Literal 0x7 0204 032e | . | Declare_Type Record,Defined,Visible 0205 00bf | | Action Accept_Activation 0206 BODY_01c8: 0206 00bc | | Action Signal_Activated 0207 00bb | | Action Signal_Completion 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 4607 |F | Jump_Case 0x8 020c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 020d 7807 |x | Jump 0x215 ; case 0x1 020e 780a |x | Jump 0x219 ; case 0x2 020f 780e |x | Jump 0x21e ; case 0x3 0210 7811 |x | Jump 0x222 ; case 0x4 0211 7812 |x | Jump 0x224 ; case 0x5 0212 7813 |x | Jump 0x226 ; case 0x6 0213 7816 |x | Jump 0x22a ; case 0x7 0214 4302 |C | .XXX[0x1] 0215 00da | | Load_Top At_Offset_2 0216 0091 03c6 | | Action Push_String_Extended_Indexed,0x3c6 ; "MICROCODE" 0218 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0219 00db | | Load_Top At_Offset_3 021a 00db | | Load_Top At_Offset_3 021b 00e0 | | Load_Encached Standard_Cache 021c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 021d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021e 00da | | Load_Top At_Offset_2 021f 00e0 | | Load_Encached Standard_Cache 0220 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0221 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0222 00db | | Load_Top At_Offset_3 0223 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0224 00db | | Load_Top At_Offset_3 0225 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0226 e20d | | Load 0x1,0xd 0227 00dc | | Load_Top At_Offset_4 0228 0267 | g | Execute Discrete,Predecessor 0229 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022a e20d | | Load 0x1,0xd 022b 00dc | | Load_Top At_Offset_4 022c 0268 | h | Execute Discrete,Successor 022d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0247 | G | .CONST 0x0247 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 000d | | .CONST 0x000d ; Number of locals 0233 INIT_0230: 0233 e001 | | Load 0x0,0x1 0234 012c | , | Execute Any,Size 0235 0f10 | | Execute_Immediate Equal,0x10 0236 7001 |p | Jump_Nonzero 0x238 0237 0887 | | Execute_Immediate Raise,0x87 0238 4800 |H | Short_Literal 0x0 0239 4bff |K | Short_Literal 0x3ff 023a e001 | | Load 0x0,0x1 023b 02a0 | | Declare_Subprogram Null_Subprogram 023c 4801 |H | Short_Literal 0x1 023d 035e | ^ | Declare_Type Array,Defined,Visible 023e 00d8 | | Load_Top At_Offset_0 023f 012c | , | Execute Any,Size 0240 e002 | | Load 0x0,0x2 0241 012c | , | Execute Any,Size 0242 0901 | | Execute_Immediate Binary_Scale,0x1 0243 027f | | Execute Discrete,Equal 0244 7001 |p | Jump_Nonzero 0x246 0245 0887 | | Execute_Immediate Raise,0x87 0246 00bf | | Action Accept_Activation 0247 BODY_0230: 0247 00bc | | Action Signal_Activated 0248 00bb | | Action Signal_Completion 0249 0000 0000 | | .BLANK 0000[0x7] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0279 | y | .CONST 0x0279 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 000d | | .CONST 0x000d ; Number of locals 0253 INIT_0250: 0253 e001 | | Load 0x0,0x1 0254 e002 | | Load 0x0,0x2 0255 00d8 | | Load_Top At_Offset_0 0256 e002 | | Load 0x0,0x2 0257 00d8 | | Load_Top At_Offset_0 0258 e002 | | Load 0x0,0x2 0259 00d8 | | Load_Top At_Offset_0 025a e003 | | Load 0x0,0x3 025b e004 | | Load 0x0,0x4 025c e005 | | Load 0x0,0x5 025d e006 | | Load 0x0,0x6 025e 00d8 | | Load_Top At_Offset_0 025f e006 | | Load 0x0,0x6 0260 e007 | | Load 0x0,0x7 0261 00d8 | | Load_Top At_Offset_0 0262 e008 | | Load 0x0,0x8 0263 e009 | | Load 0x0,0x9 0264 e00a | | Load 0x0,0xa 0265 00e5 | | Load_Encached Long_Integer_Cache 0266 00e5 | | Load_Encached Long_Integer_Cache 0267 00e5 | | Load_Encached Long_Integer_Cache 0268 00e5 | | Load_Encached Long_Integer_Cache 0269 e00a | | Load 0x0,0xa 026a 00d8 | | Load_Top At_Offset_0 026b e00b | | Load 0x0,0xb 026c e00c | | Load 0x0,0xc 026d e00d | | Load 0x0,0xd 026e 02a0 | | Declare_Subprogram Null_Subprogram 026f 481b |H | Short_Literal 0x1b 0270 032e | . | Declare_Type Record,Defined,Visible 0271 00d8 | | Load_Top At_Offset_0 0272 012c | , | Execute Any,Size 0273 e00e | | Load 0x0,0xe 0274 012c | , | Execute Any,Size 0275 027f | | Execute Discrete,Equal 0276 7001 |p | Jump_Nonzero 0x278 0277 0887 | | Execute_Immediate Raise,0x87 0278 00bf | | Action Accept_Activation 0279 BODY_0250: 0279 00bc | | Action Signal_Activated 027a 00bb | | Action Signal_Completion 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0291 | | .CONST 0x0291 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 000d | | .CONST 0x000d ; Number of locals 0283 INIT_0280: 0283 4801 |H | Short_Literal 0x1 0284 600f |` | Indirect_Literal Discrete,0x294,{0x00000000, 0x00000400} 0285 e001 | | Load 0x0,0x1 0286 02a0 | | Declare_Subprogram Null_Subprogram 0287 4801 |H | Short_Literal 0x1 0288 035e | ^ | Declare_Type Array,Defined,Visible 0289 00d8 | | Load_Top At_Offset_0 028a 012c | , | Execute Any,Size 028b e002 | | Load 0x0,0x2 028c 012c | , | Execute Any,Size 028d 027f | | Execute Discrete,Equal 028e 7001 |p | Jump_Nonzero 0x290 028f 0887 | | Execute_Immediate Raise,0x87 0290 00bf | | Action Accept_Activation 0291 BODY_0280: 0291 00bc | | Action Signal_Activated 0292 00bb | | Action Signal_Completion 0293 0000 | | .XXX[0x1] 0294 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02ae | | .CONST 0x02ae ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 000d | | .CONST 0x000d ; Number of locals 029b INIT_0298: 029b e001 | | Load 0x0,0x1 029c e002 | | Load 0x0,0x2 029d e003 | | Load 0x0,0x3 029e 00d8 | | Load_Top At_Offset_0 029f e004 | | Load 0x0,0x4 02a0 e005 | | Load 0x0,0x5 02a1 e006 | | Load 0x0,0x6 02a2 e007 | | Load 0x0,0x7 02a3 02a0 | | Declare_Subprogram Null_Subprogram 02a4 4808 |H | Short_Literal 0x8 02a5 032e | . | Declare_Type Record,Defined,Visible 02a6 00d8 | | Load_Top At_Offset_0 02a7 012c | , | Execute Any,Size 02a8 e008 | | Load 0x0,0x8 02a9 012c | , | Execute Any,Size 02aa 027f | | Execute Discrete,Equal 02ab 7001 |p | Jump_Nonzero 0x2ad 02ac 0887 | | Execute_Immediate Raise,0x87 02ad 00bf | | Action Accept_Activation 02ae BODY_0298: 02ae 00bc | | Action Signal_Activated 02af 00bb | | Action Signal_Completion 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02ca | | .CONST 0x02ca ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 000d | | .CONST 0x000d ; Number of locals 02b3 INIT_02b0: 02b3 e001 | | Load 0x0,0x1 02b4 e002 | | Load 0x0,0x2 02b5 e003 | | Load 0x0,0x3 02b6 e004 | | Load 0x0,0x4 02b7 e003 | | Load 0x0,0x3 02b8 00d8 | | Load_Top At_Offset_0 02b9 e003 | | Load 0x0,0x3 02ba 00d8 | | Load_Top At_Offset_0 02bb 00e5 | | Load_Encached Long_Integer_Cache 02bc e005 | | Load 0x0,0x5 02bd e006 | | Load 0x0,0x6 02be e007 | | Load 0x0,0x7 02bf 02a0 | | Declare_Subprogram Null_Subprogram 02c0 480c |H | Short_Literal 0xc 02c1 032e | . | Declare_Type Record,Defined,Visible 02c2 00d8 | | Load_Top At_Offset_0 02c3 012c | , | Execute Any,Size 02c4 e008 | | Load 0x0,0x8 02c5 012c | , | Execute Any,Size 02c6 027f | | Execute Discrete,Equal 02c7 7001 |p | Jump_Nonzero 0x2c9 02c8 0887 | | Execute_Immediate Raise,0x87 02c9 00bf | | Action Accept_Activation 02ca BODY_02b0: 02ca 00bc | | Action Signal_Activated 02cb 00bb | | Action Signal_Completion 02cc 0000 0000 | | .BLANK 0000[0x4] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02ea | | .CONST 0x02ea ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 000d | | .CONST 0x000d ; Number of locals 02d3 INIT_02d0: 02d3 e001 | | Load 0x0,0x1 02d4 e002 | | Load 0x0,0x2 02d5 e003 | | Load 0x0,0x3 02d6 e004 | | Load 0x0,0x4 02d7 e003 | | Load 0x0,0x3 02d8 00d8 | | Load_Top At_Offset_0 02d9 e005 | | Load 0x0,0x5 02da e003 | | Load 0x0,0x3 02db 00e5 | | Load_Encached Long_Integer_Cache 02dc e006 | | Load 0x0,0x6 02dd e007 | | Load 0x0,0x7 02de e008 | | Load 0x0,0x8 02df 02a0 | | Declare_Subprogram Null_Subprogram 02e0 480c |H | Short_Literal 0xc 02e1 032e | . | Declare_Type Record,Defined,Visible 02e2 00d8 | | Load_Top At_Offset_0 02e3 012c | , | Execute Any,Size 02e4 e009 | | Load 0x0,0x9 02e5 012c | , | Execute Any,Size 02e6 027f | | Execute Discrete,Equal 02e7 7001 |p | Jump_Nonzero 0x2e9 02e8 0887 | | Execute_Immediate Raise,0x87 02e9 00bf | | Action Accept_Activation 02ea BODY_02d0: 02ea 00bc | | Action Signal_Activated 02eb 00bb | | Action Signal_Completion 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 0313 | | .CONST 0x0313 ; 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 e002 | | Load 0x0,0x2 02f5 e003 | | Load 0x0,0x3 02f6 00d8 | | Load_Top At_Offset_0 02f7 e004 | | Load 0x0,0x4 02f8 00d8 | | Load_Top At_Offset_0 02f9 e005 | | Load 0x0,0x5 02fa e006 | | Load 0x0,0x6 02fb 00e5 | | Load_Encached Long_Integer_Cache 02fc e007 | | Load 0x0,0x7 02fd e008 | | Load 0x0,0x8 02fe e009 | | Load 0x0,0x9 02ff e00a | | Load 0x0,0xa 0300 00d8 | | Load_Top At_Offset_0 0301 e00a | | Load 0x0,0xa 0302 e00b | | Load 0x0,0xb 0303 00d8 | | Load_Top At_Offset_0 0304 e00c | | Load 0x0,0xc 0305 e00d | | Load 0x0,0xd 0306 e00e | | Load 0x0,0xe 0307 e00f | | Load 0x0,0xf 0308 02a0 | | Declare_Subprogram Null_Subprogram 0309 4815 |H | Short_Literal 0x15 030a 032e | . | Declare_Type Record,Defined,Visible 030b 00d8 | | Load_Top At_Offset_0 030c 012c | , | Execute Any,Size 030d e010 | | Load 0x0,0x10 030e 012c | , | Execute Any,Size 030f 027f | | Execute Discrete,Equal 0310 7001 |p | Jump_Nonzero 0x312 0311 0887 | | Execute_Immediate Raise,0x87 0312 00bf | | Action Accept_Activation 0313 BODY_02f0: 0313 00bc | | Action Signal_Activated 0314 00bb | | Action Signal_Completion 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0331 | 1 | .CONST 0x0331 ; 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 e002 | | Load 0x0,0x2 031d e003 | | Load 0x0,0x3 031e e004 | | Load 0x0,0x4 031f e005 | | Load 0x0,0x5 0320 00e5 | | Load_Encached Long_Integer_Cache 0321 00e5 | | Load_Encached Long_Integer_Cache 0322 00e5 | | Load_Encached Long_Integer_Cache 0323 00e5 | | Load_Encached Long_Integer_Cache 0324 e006 | | Load 0x0,0x6 0325 e007 | | Load 0x0,0x7 0326 02a0 | | Declare_Subprogram Null_Subprogram 0327 480b |H | Short_Literal 0xb 0328 032e | . | Declare_Type Record,Defined,Visible 0329 00d8 | | Load_Top At_Offset_0 032a 012c | , | Execute Any,Size 032b e008 | | Load 0x0,0x8 032c 012c | , | Execute Any,Size 032d 027f | | Execute Discrete,Equal 032e 7001 |p | Jump_Nonzero 0x330 032f 0887 | | Execute_Immediate Raise,0x87 0330 00bf | | Action Accept_Activation 0331 BODY_0318: 0331 00bc | | Action Signal_Activated 0332 00bb | | Action Signal_Completion 0333 0000 0000 | | .BLANK 0000[0x5] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 036c | l | .CONST 0x036c ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 000f | | .CONST 0x000f ; Number of locals 033b INIT_0338: 033b 4800 |H | Short_Literal 0x0 033c 4803 |H | Short_Literal 0x3 033d 00e5 | | Load_Encached Long_Integer_Cache 033e 03f9 | | Declare_Type Discrete,Constrained,Visible 033f e001 | | Load 0x0,0x1 0340 e002 | | Load 0x0,0x2 0341 e001 | | Load 0x0,0x1 0342 e003 | | Load 0x0,0x3 0343 00d8 | | Load_Top At_Offset_0 0344 e003 | | Load 0x0,0x3 0345 00d8 | | Load_Top At_Offset_0 0346 e004 | | Load 0x0,0x4 0347 e005 | | Load 0x0,0x5 0348 00e5 | | Load_Encached Long_Integer_Cache 0349 e004 | | Load 0x0,0x4 034a 00d8 | | Load_Top At_Offset_0 034b e003 | | Load 0x0,0x3 034c 00d8 | | Load_Top At_Offset_0 034d e003 | | Load 0x0,0x3 034e 00d8 | | Load_Top At_Offset_0 034f 00e5 | | Load_Encached Long_Integer_Cache 0350 00e5 | | Load_Encached Long_Integer_Cache 0351 e005 | | Load 0x0,0x5 0352 00d8 | | Load_Top At_Offset_0 0353 e006 | | Load 0x0,0x6 0354 e004 | | Load 0x0,0x4 0355 e003 | | Load 0x0,0x3 0356 00d8 | | Load_Top At_Offset_0 0357 00e5 | | Load_Encached Long_Integer_Cache 0358 e005 | | Load 0x0,0x5 0359 e007 | | Load 0x0,0x7 035a e008 | | Load 0x0,0x8 035b 02a0 | | Declare_Subprogram Null_Subprogram 035c 481c |H | Short_Literal 0x1c 035d 032e | . | Declare_Type Record,Defined,Visible 035e 00d8 | | Load_Top At_Offset_0 035f 012c | , | Execute Any,Size 0360 e009 | | Load 0x0,0x9 0361 012c | , | Execute Any,Size 0362 027f | | Execute Discrete,Equal 0363 7001 |p | Jump_Nonzero 0x365 0364 0887 | | Execute_Immediate Raise,0x87 0365 4800 |H | Short_Literal 0x0 0366 4803 |H | Short_Literal 0x3 0367 00da | | Load_Top At_Offset_2 0368 02a0 | | Declare_Subprogram Null_Subprogram 0369 4801 |H | Short_Literal 0x1 036a 035e | ^ | Declare_Type Array,Defined,Visible 036b 00bf | | Action Accept_Activation 036c BODY_0338: 036c 00bc | | Action Signal_Activated 036d 00bb | | Action Signal_Completion 036e 0000 0000 | | .XXX[0x2] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0384 | | .CONST 0x0384 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 000f | | .CONST 0x000f ; Number of locals 0373 INIT_0370: 0373 4800 |H | Short_Literal 0x0 0374 481f |H | Short_Literal 0x1f 0375 e001 | | Load 0x0,0x1 0376 02a0 | | Declare_Subprogram Null_Subprogram 0377 4801 |H | Short_Literal 0x1 0378 035e | ^ | Declare_Type Array,Defined,Visible 0379 4800 |H | Short_Literal 0x0 037a 481f |H | Short_Literal 0x1f 037b 00da | | Load_Top At_Offset_2 037c 02a0 | | Declare_Subprogram Null_Subprogram 037d 4801 |H | Short_Literal 0x1 037e 035e | ^ | Declare_Type Array,Defined,Visible 037f 00d8 | | Load_Top At_Offset_0 0380 02a0 | | Declare_Subprogram Null_Subprogram 0381 4801 |H | Short_Literal 0x1 0382 032e | . | Declare_Type Record,Defined,Visible 0383 00bf | | Action Accept_Activation 0384 BODY_0370: 0384 00bc | | Action Signal_Activated 0385 00bb | | Action Signal_Completion 0386 0000 0000 | | .XXX[0x2] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 039b | | .CONST 0x039b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 000e | | .CONST 0x000e ; Number of locals 038b INIT_0388: 038b 4800 |H | Short_Literal 0x0 038c 4b3f |K? | Short_Literal 0x33f 038d e001 | | Load 0x0,0x1 038e 02a0 | | Declare_Subprogram Null_Subprogram 038f 4801 |H | Short_Literal 0x1 0390 035e | ^ | Declare_Type Array,Defined,Visible 0391 e002 | | Load 0x0,0x2 0392 00d8 | | Load_Top At_Offset_0 0393 e003 | | Load 0x0,0x3 0394 00e2 | | Load_Encached Integer_Cache 0395 e004 | | Load 0x0,0x4 0396 e20d | | Load 0x1,0xd 0397 02a0 | | Declare_Subprogram Null_Subprogram 0398 4806 |H | Short_Literal 0x6 0399 032e | . | Declare_Type Record,Defined,Visible 039a 00bf | | Action Accept_Activation 039b BODY_0388: 039b 00bc | | Action Signal_Activated 039c 00bb | | Action Signal_Completion 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03c4 | | .CONST 0x03c4 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 000f | | .CONST 0x000f ; Number of locals 03a3 INIT_03a0: 03a3 4801 |H | Short_Literal 0x1 03a4 4812 |H | Short_Literal 0x12 03a5 00e9 | | Load_Encached String_Cache 03a6 035c | \ | Declare_Type Array,Constrained,Visible 03a7 e001 | | Load 0x0,0x1 03a8 00d8 | | Load_Top At_Offset_0 03a9 e001 | | Load 0x0,0x1 03aa 00d8 | | Load_Top At_Offset_0 03ab e001 | | Load 0x0,0x1 03ac 00d8 | | Load_Top At_Offset_0 03ad e20d | | Load 0x1,0xd 03ae e001 | | Load 0x0,0x1 03af 00d8 | | Load_Top At_Offset_0 03b0 e002 | | Load 0x0,0x2 03b1 02a0 | | Declare_Subprogram Null_Subprogram 03b2 480a |H | Short_Literal 0xa 03b3 032e | . | Declare_Type Record,Defined,Visible 03b4 e003 | | Load 0x0,0x3 03b5 0322 | " | Declare_Variable Record 03b6 4800 |H | Short_Literal 0x0 03b7 00d9 | | Load_Top At_Offset_1 03b8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03b9 481e |H | Short_Literal 0x1e 03ba 00d9 | | Load_Top At_Offset_1 03bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03bc 489e |H | Short_Literal 0x9e 03bd 00d9 | | Load_Top At_Offset_1 03be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03bf 4bdd |K | Short_Literal 0x3dd 03c0 00d9 | | Load_Top At_Offset_1 03c1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03c2 0129 | ) | Execute Any,Make_Visible 03c3 00bf | | Action Accept_Activation 03c4 BODY_03a0: 03c4 00bc | | Action Signal_Activated 03c5 00bb | | Action Signal_Completion 03c6 ; -------------------------------------------------------------------------------------- 03c6 ; STRING TABLE 03c6 ; -------------------------------------------------------------------------------------- 03c6 001a | | .STRTAB 0x001a->0x03d3 ; "MICROCODE" 03c7 0021 | ! | .STRTAB 0x0021->0x03d7 ; "ADA_BASE" 03c8 0027 | ' | .STRTAB 0x0027->0x03db ; "MACHINE_INTERFACE" 03c9 0036 | 6 | .STRTAB 0x0036->0x03e4 ; "KERNEL_DEBUGGER_IO" 03ca 0046 | F | .STRTAB 0x0046->0x03ed ; "KERNEL_DEBUGGER" 03cb 0053 | S | .STRTAB 0x0053->0x03f4 ; "KERNEL" 03cc 0057 | W | .STRTAB 0x0057->0x03f7 ; "ENVIRONMENT_DEBUGGER" 03cd 0069 | i | .STRTAB 0x0069->0x0401 ; "ABSTRACT_TYPES" 03ce 0075 | u | .STRTAB 0x0075->0x0408 ; "MISCELLANEOUS" 03cf 0080 | | .STRTAB 0x0080->0x040f ; "OS_UTILITIES" 03d0 008a | | .STRTAB 0x008a->0x0415 ; "ELABORATOR_DATABASE" 03d1 009b | | .STRTAB 0x009b->0x041e ; ".saved_state" 03d2 00a5 | | .STREND 0x00a5->0x0424 03d3 4d49 4352 |MICR| .STRTAB_STRINGS 0425 0000 0000 | | .XXX[0x3] 0427 0000 | | 0428 ; -------------------------------------------------------------------------------------- 0428 ; Debug Table 0428 ; -------------------------------------------------------------------------------------- 0428 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34d9,0x0000,0x0001,0x0000 042e 930b a34b | K| .XXX[0x6] 0430 7b71 7000 |{qp | 0432 0000 0800 | | 0434 0000 0000 | | .BLANK 0000[0x4] 0438 0003 6800 | h | .XXX[0xcc] 043a 0000 0000 | | 043c 0003 6000 | ` | 043e 0003 8000 | | 0440 0001 e2a3 | | 0442 434b 9903 |CK | 0444 8393 7b1b | { | 0446 2b23 ab93 |+# | 0448 2903 932b |) +| 044a 8363 0b1b | c | 044c 2b99 03a3 |+ | 044e 4329 031b |C) | 0450 7b73 a32b |{s +| 0452 73a3 9903 |s | 0454 7b31 032b |{1 +| 0456 0b1b 4103 | A | 0458 7b13 532b |{ S+| 045a 1ba1 03bb | | 045c 4ba3 4103 |K A | 045e a343 2800 | C( | 0460 0003 7000 | p | 0462 0001 f101 | | 0464 02a3 434b | CK| 0466 9903 8393 | | 0468 7b1b 2b23 |{ +#| 046a ab93 2903 | ) | 046c 932b 8363 | + c| 046e 0b1b 2b99 | + | 0470 03a3 4329 | C)| 0472 031b 7b73 | {s| 0474 a32b 73a3 | +s | 0476 9903 7b31 | {1| 0478 032b 0b1b | + | 047a 4103 7b13 |A { | 047c 532b 1ba1 |S+ | 047e 03bb 4ba3 | K | 0480 4103 a343 |A C| 0482 2800 0003 |( | 0484 7000 0001 |p | 0486 f101 02a3 | | 0488 434b 9903 |CK | 048a 8393 7b1b | { | 048c 2b23 ab93 |+# | 048e 2903 932b |) +| 0490 8363 0b1b | c | 0492 2b99 03a3 |+ | 0494 4329 031b |C) | 0496 7b73 a32b |{s +| 0498 73a3 9903 |s | 049a 7b31 032b |{1 +| 049c 0b1b 4103 | A | 049e 7b13 532b |{ S+| 04a0 1ba1 03bb | | 04a2 4ba3 4103 |K A | 04a4 a343 2800 | C( | 04a6 0001 7800 | x | 04a8 0001 a31b | | 04aa 7b73 a32b |{s +| 04ac 73a3 9903 |s | 04ae 7b31 03a3 |{1 | 04b0 4329 034b |C) K| 04b2 7323 4b1b |s#K | 04b4 0ba3 2b21 | +!| 04b6 033b 2b73 | ;+s| 04b8 2b93 0ba3 |+ | 04ba 4b7b 7103 |K{q | 04bc 7b31 03a3 |{1 | 04be 430b a103 |C | 04c0 7b13 532b |{ S+| 04c2 1ba1 7000 | p | 04c4 0001 6800 | h | 04c6 0001 b101 | | 04c8 031b 7b73 | {s| 04ca a32b 73a3 | +s | 04cc 9903 7b31 | {1| 04ce 03a3 4329 | C)| 04d0 034b 7323 | Ks#| 04d2 4b1b 0ba3 |K | 04d4 2b21 033b |+! ;| 04d6 2b73 2b93 |+s+ | 04d8 0ba3 4b7b | K{| 04da 7103 7b31 |q {1| 04dc 03a3 430b | C | 04de a103 7b13 | { | 04e0 532b 1ba1 |S+ | 04e2 7000 0001 |p | 04e4 6800 0001 |h | 04e6 b101 031b | | 04e8 7b73 a32b |{s +| 04ea 73a3 9903 |s | 04ec 7b31 03a3 |{1 | 04ee 4329 034b |C) K| 04f0 7323 4b1b |s#K | 04f2 0ba3 2b21 | +!| 04f4 033b 2b73 | ;+s| 04f6 2b93 0ba3 |+ | 04f8 4b7b 7103 |K{q | 04fa 7b31 03a3 |{1 | 04fc 430b a103 |C | 04fe 7b13 532b |{ S+| 0500 1ba1 7000 | p | 0502 0000 0800 | | 0504 0000 0000 | | .BLANK 0000[0x4] 0508 0003 2000 | | .XXX[0xf8] 050a 0000 0000 | | 050c 0003 1800 | | 050e 0003 3800 | 8 | 0510 0002 02a3 | | 0512 4329 033b |C) ;| 0514 2b73 2b93 |+s+ | 0516 0ba3 4b7b | K{| 0518 7103 a379 |q y| 051a 03bb 434b | CK| 051c 1b41 030b | A | 051e 7103 7b13 |q { | 0520 532b 1ba1 |S+ | 0522 034b 9903 | K | 0524 932b b32b | + +| 0526 93a3 2b21 | +!| 0528 031b 0b71 | q| 052a 0313 2903 | ) | 052c 932b a30b | + | 052e 4b73 2b21 |Ks+!| 0530 030b 9800 | | 0532 0003 2800 | ( | 0534 0002 1101 | | 0536 02a3 4329 | C)| 0538 033b 2b73 | ;+s| 053a 2b93 0ba3 |+ | 053c 4b7b 7103 |K{q | 053e a379 03bb | y | 0540 434b 1b41 |CK A| 0542 030b 7103 | q | 0544 7b13 532b |{ S+| 0546 1ba1 034b | K| 0548 9903 932b | +| 054a b32b 93a3 | + | 054c 2b21 031b |+! | 054e 0b71 0313 | q | 0550 2903 932b |) +| 0552 a30b 4b73 | Ks| 0554 2b21 030b |+! | 0556 9800 0003 | | 0558 2800 0002 |( | 055a 1101 02a3 | | 055c 4329 033b |C) ;| 055e 2b73 2b93 |+s+ | 0560 0ba3 4b7b | K{| 0562 7103 a379 |q y| 0564 03bb 434b | CK| 0566 1b41 030b | A | 0568 7103 7b13 |q { | 056a 532b 1ba1 |S+ | 056c 034b 9903 | K | 056e 932b b32b | + +| 0570 93a3 2b21 | +!| 0572 031b 0b71 | q| 0574 0313 2903 | ) | 0576 932b a30b | + | 0578 4b73 2b21 |Ks+!| 057a 030b 9800 | | 057c 0001 5000 | P | 057e 0002 03a3 | | 0580 4329 0363 |C) c| 0582 0ba3 2b9b | + | 0584 a103 3b2b | ;+| 0586 732b 930b |s+ | 0588 a34b 7b71 | K{q| 058a 034b 3103 | K1 | 058c a343 2902 | C) | 058e 6b0b 5b2a |k [*| 0590 fa63 0ba3 | c | 0592 2b9b a2fa |+ | 0594 3b2b 732b |;+s+| 0596 930b a34b | K| 0598 7b71 0383 |{q | 059a 0b93 0b6b | k| 059c 2ba3 2b91 |+ + | 059e 034b 9800 | K | 05a0 0001 4000 | @ | 05a2 0002 1101 | | 05a4 03a3 4329 | C)| 05a6 0363 0ba3 | c | 05a8 2b9b a103 |+ | 05aa 3b2b 732b |;+s+| 05ac 930b a34b | K| 05ae 7b71 034b |{q K| 05b0 3103 a343 |1 C| 05b2 2902 6b0b |) k | 05b4 5b2a fa63 |[* c| 05b6 0ba3 2b9b | + | 05b8 a2fa 3b2b | ;+| 05ba 732b 930b |s+ | 05bc a34b 7b71 | K{q| 05be 0383 0b93 | | 05c0 0b6b 2ba3 | k+ | 05c2 2b91 034b |+ K| 05c4 9800 0001 | | 05c6 4000 0002 |@ | 05c8 1101 03a3 | | 05ca 4329 0363 |C) c| 05cc 0ba3 2b9b | + | 05ce a103 3b2b | ;+| 05d0 732b 930b |s+ | 05d2 a34b 7b71 | K{q| 05d4 034b 3103 | K1 | 05d6 a343 2902 | C) | 05d8 6b0b 5b2a |k [*| 05da fa63 0ba3 | c | 05dc 2b9b a2fa |+ | 05de 3b2b 732b |;+s+| 05e0 930b a34b | K| 05e2 7b71 0383 |{q | 05e4 0b93 0b6b | k| 05e6 2ba3 2b91 |+ + | 05e8 034b 9800 | K | 05ea 0003 6800 | h | 05ec 0001 f3a3 | | 05ee 93ab 2971 | )q| 05f0 0102 7ba3 | { | 05f2 432b 93bb |C+ | 05f4 4b9b 2961 |K )a| 05f6 03a3 4329 | C)| 05f8 0393 2bb3 | + | 05fa 2b93 a32b |+ +| 05fc 2103 7b13 |! { | 05fe 532b 1ba1 |S+ |