|
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: 2048 (0x800) 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 03e0 | | .CONST 0x03e0 ; 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 0107 | | .CONST 0x0107 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0026 | & | .CONST 0x0026 ; 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 4801 |H | Short_Literal 0x1 0021 480d |H | Short_Literal 0xd 0022 e001 | | Load 0x0,0x1 0023 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0024 02a0 | | Declare_Subprogram Null_Subprogram 0025 4801 |H | Short_Literal 0x1 0026 035e | ^ | Declare_Type Array,Defined,Visible 0027 4801 |H | Short_Literal 0x1 0028 480e |H | Short_Literal 0xe 0029 e001 | | Load 0x0,0x1 002a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c 4801 |H | Short_Literal 0x1 002d 035e | ^ | Declare_Type Array,Defined,Visible 002e 4801 |H | Short_Literal 0x1 002f 4810 |H | Short_Literal 0x10 0030 e001 | | Load 0x0,0x1 0031 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0032 02a0 | | Declare_Subprogram Null_Subprogram 0033 4801 |H | Short_Literal 0x1 0034 035e | ^ | Declare_Type Array,Defined,Visible 0035 4801 |H | Short_Literal 0x1 0036 4818 |H | Short_Literal 0x18 0037 e001 | | Load 0x0,0x1 0038 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0039 02a0 | | Declare_Subprogram Null_Subprogram 003a 4801 |H | Short_Literal 0x1 003b 035e | ^ | Declare_Type Array,Defined,Visible 003c 4801 |H | Short_Literal 0x1 003d 481c |H | Short_Literal 0x1c 003e e001 | | Load 0x0,0x1 003f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0040 02a0 | | Declare_Subprogram Null_Subprogram 0041 4801 |H | Short_Literal 0x1 0042 035e | ^ | Declare_Type Array,Defined,Visible 0043 4801 |H | Short_Literal 0x1 0044 481e |H | Short_Literal 0x1e 0045 e001 | | Load 0x0,0x1 0046 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0047 02a0 | | Declare_Subprogram Null_Subprogram 0048 4801 |H | Short_Literal 0x1 0049 035e | ^ | Declare_Type Array,Defined,Visible 004a 4801 |H | Short_Literal 0x1 004b 4820 |H | Short_Literal 0x20 004c e001 | | Load 0x0,0x1 004d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 004e 02a0 | | Declare_Subprogram Null_Subprogram 004f 4801 |H | Short_Literal 0x1 0050 035e | ^ | Declare_Type Array,Defined,Visible 0051 4800 |H | Short_Literal 0x0 0052 0093 032b | +| push_full_address INIT_0328 0054 02a0 | | Declare_Subprogram Null_Subprogram 0055 038f | | Declare_Type Package,Defined,Visible 0056 e001 | | Load 0x0,0x1 0057 00b6 | | Action Make_Scope 0058 4802 |H | Short_Literal 0x2 0059 00db | | Load_Top At_Offset_3 005a 020e | | Execute Module,Augment_Imports 005b 0386 | | Declare_Variable Package,Visible 005c 4800 |H | Short_Literal 0x0 005d 0093 0303 | | push_full_address INIT_0300 005f 02a0 | | Declare_Subprogram Null_Subprogram 0060 038f | | Declare_Type Package,Defined,Visible 0061 e001 | | Load 0x0,0x1 0062 00b6 | | Action Make_Scope 0063 4802 |H | Short_Literal 0x2 0064 00db | | Load_Top At_Offset_3 0065 020e | | Execute Module,Augment_Imports 0066 0386 | | Declare_Variable Package,Visible 0067 4800 |H | Short_Literal 0x0 0068 0093 02c3 | | push_full_address INIT_02c0 006a 02a0 | | Declare_Subprogram Null_Subprogram 006b 038f | | Declare_Type Package,Defined,Visible 006c e001 | | Load 0x0,0x1 006d 00b6 | | Action Make_Scope 006e 4802 |H | Short_Literal 0x2 006f 00db | | Load_Top At_Offset_3 0070 020e | | Execute Module,Augment_Imports 0071 0386 | | Declare_Variable Package,Visible 0072 e001 | | Load 0x0,0x1 0073 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0074 e001 | | Load 0x0,0x1 0075 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0076 02a0 | | Declare_Subprogram Null_Subprogram 0077 4802 |H | Short_Literal 0x2 0078 032e | . | Declare_Type Record,Defined,Visible 0079 4800 |H | Short_Literal 0x0 007a 480f |H | Short_Literal 0xf 007b 00da | | Load_Top At_Offset_2 007c 02a0 | | Declare_Subprogram Null_Subprogram 007d 4801 |H | Short_Literal 0x1 007e 035e | ^ | Declare_Type Array,Defined,Visible 007f 4800 |H | Short_Literal 0x0 0080 0093 0293 | | push_full_address INIT_0290 0082 02a0 | | Declare_Subprogram Null_Subprogram 0083 038f | | Declare_Type Package,Defined,Visible 0084 e001 | | Load 0x0,0x1 0085 00b6 | | Action Make_Scope 0086 4802 |H | Short_Literal 0x2 0087 00db | | Load_Top At_Offset_3 0088 020e | | Execute Module,Augment_Imports 0089 0386 | | Declare_Variable Package,Visible 008a 4800 |H | Short_Literal 0x0 008b 0093 0263 | c| push_full_address INIT_0260 008d 02a0 | | Declare_Subprogram Null_Subprogram 008e 038f | | Declare_Type Package,Defined,Visible 008f e001 | | Load 0x0,0x1 0090 00b6 | | Action Make_Scope 0091 4802 |H | Short_Literal 0x2 0092 00db | | Load_Top At_Offset_3 0093 020e | | Execute Module,Augment_Imports 0094 0386 | | Declare_Variable Package,Visible 0095 4800 |H | Short_Literal 0x0 0096 0093 023b | ;| push_full_address INIT_0238 0098 02a0 | | Declare_Subprogram Null_Subprogram 0099 038f | | Declare_Type Package,Defined,Visible 009a e001 | | Load 0x0,0x1 009b 00b6 | | Action Make_Scope 009c 4802 |H | Short_Literal 0x2 009d 00db | | Load_Top At_Offset_3 009e 020e | | Execute Module,Augment_Imports 009f 0386 | | Declare_Variable Package,Visible 00a0 4800 |H | Short_Literal 0x0 00a1 0093 021b | | push_full_address INIT_0218 00a3 02a0 | | Declare_Subprogram Null_Subprogram 00a4 038f | | Declare_Type Package,Defined,Visible 00a5 e001 | | Load 0x0,0x1 00a6 4801 |H | Short_Literal 0x1 00a7 00da | | Load_Top At_Offset_2 00a8 020e | | Execute Module,Augment_Imports 00a9 0386 | | Declare_Variable Package,Visible 00aa 4800 |H | Short_Literal 0x0 00ab 480f |H | Short_Literal 0xf 00ac e001 | | Load 0x0,0x1 00ad 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00ae 02a0 | | Declare_Subprogram Null_Subprogram 00af 4801 |H | Short_Literal 0x1 00b0 035e | ^ | Declare_Type Array,Defined,Visible 00b1 4800 |H | Short_Literal 0x0 00b2 480f |H | Short_Literal 0xf 00b3 e001 | | Load 0x0,0x1 00b4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b5 02a0 | | Declare_Subprogram Null_Subprogram 00b6 4801 |H | Short_Literal 0x1 00b7 035e | ^ | Declare_Type Array,Defined,Visible 00b8 4800 |H | Short_Literal 0x0 00b9 0093 01d3 | | push_full_address INIT_01d0 00bb 02a0 | | Declare_Subprogram Null_Subprogram 00bc 038f | | Declare_Type Package,Defined,Visible 00bd 00b6 | | Action Make_Scope 00be e001 | | Load 0x0,0x1 00bf 4802 |H | Short_Literal 0x2 00c0 00db | | Load_Top At_Offset_3 00c1 020e | | Execute Module,Augment_Imports 00c2 0386 | | Declare_Variable Package,Visible 00c3 4800 |H | Short_Literal 0x0 00c4 0093 01b3 | | push_full_address INIT_01b0 00c6 02a0 | | Declare_Subprogram Null_Subprogram 00c7 038f | | Declare_Type Package,Defined,Visible 00c8 e001 | | Load 0x0,0x1 00c9 4801 |H | Short_Literal 0x1 00ca 00da | | Load_Top At_Offset_2 00cb 020e | | Execute Module,Augment_Imports 00cc 0386 | | Declare_Variable Package,Visible 00cd 4800 |H | Short_Literal 0x0 00ce 0093 013b | ;| push_full_address INIT_0138 00d0 02a0 | | Declare_Subprogram Null_Subprogram 00d1 038f | | Declare_Type Package,Defined,Visible 00d2 e001 | | Load 0x0,0x1 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 e217 | | Load 0x1,0x17 00d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d9 e218 | | Load 0x1,0x18 00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00db e219 | | Load 0x1,0x19 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd e21c | | Load 0x1,0x1c 00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00df e21d | | Load 0x1,0x1d 00e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e1 e21e | | Load 0x1,0x1e 00e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e3 e21f | | Load 0x1,0x1f 00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e5 e222 | " | Load 0x1,0x22 00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e7 e223 | # | Load 0x1,0x23 00e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e9 e224 | $ | Load 0x1,0x24 00ea 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00eb 02a0 | | Declare_Subprogram Null_Subprogram 00ec 480a |H | Short_Literal 0xa 00ed 032e | . | Declare_Type Record,Defined,Visible 00ee 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 00f0 00bf | | Action Accept_Activation 00f1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00f2 00c7 | | Action Elaborate_Subprogram 00f3 e217 | | Load 0x1,0x17 00f4 020f | | Execute Module,Activate 00f5 e218 | | Load 0x1,0x18 00f6 020f | | Execute Module,Activate 00f7 e219 | | Load 0x1,0x19 00f8 020f | | Execute Module,Activate 00f9 e21c | | Load 0x1,0x1c 00fa 020f | | Execute Module,Activate 00fb e21d | | Load 0x1,0x1d 00fc 020f | | Execute Module,Activate 00fd e21e | | Load 0x1,0x1e 00fe 020f | | Execute Module,Activate 00ff e21f | | Load 0x1,0x1f 0100 020f | | Execute Module,Activate 0101 e222 | " | Load 0x1,0x22 0102 020f | | Execute Module,Activate 0103 00db | | Load_Top At_Offset_3 0104 020f | | Execute Module,Activate 0105 00da | | Load_Top At_Offset_2 0106 020f | | Execute Module,Activate 0107 BODY_0008: 0107 00bc | | Action Signal_Activated 0108 00bb | | Action Signal_Completion 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0123 | # | .CONST 0x0123 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0005 | | .CONST 0x0005 ; Number of locals 0113 INIT_0110: 0113 e002 | | Load 0x0,0x2 0114 e003 | | Load 0x0,0x3 0115 e225 | % | Load 0x1,0x25 0116 e004 | | Load 0x0,0x4 0117 0387 | | Declare_Variable Package 0118 00d8 | | Load_Top At_Offset_0 0119 020f | | Execute Module,Activate 011a 0092 0386 | | Action Push_String_Extended,0x386 ; ".saved_state" 011c 00d9 | | Load_Top At_Offset_1 011d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 011e 02c7 | | Declare_Variable Any 011f 00d8 | | Load_Top At_Offset_0 0120 1c00 | | Execute_Immediate Run_Utility,0x0 0121 e225 | % | Load 0x1,0x25 0122 0322 | " | Declare_Variable Record 0123 BODY_0110: 0123 00d9 | | Load_Top At_Offset_1 0124 00ea | | Load_Encached Null_String_Cache 0125 e5ff | | Load 0x2,-0x1 0126 e403 | | Load 0x2,0x3 0127 01cc | | Execute Vector,Catenate 0128 4800 |H | Short_Literal 0x0 0129 e402 | | Load 0x2,0x2 012a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012b c404 | | Store 0x2,0x4 012c 00d8 | | Load_Top At_Offset_0 012d 00da | | Load_Top At_Offset_2 012e e402 | | Load 0x2,0x2 012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0130 00d1 | | Pop_Control Pop_Count_1 0131 00d9 | | Load_Top At_Offset_1 0132 e402 | | Load 0x2,0x2 0133 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0134 c404 | | Store 0x2,0x4 0135 00d8 | | Load_Top At_Offset_0 0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0185 | | .CONST 0x0185 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0015 | | .CONST 0x0015 ; Number of locals 013b INIT_0138: 013b 4800 |H | Short_Literal 0x0 013c 480a |H | Short_Literal 0xa 013d 029f 018b | | Declare_Subprogram INIT_0188,For_Call 013f 03fe | | Declare_Type Discrete,Defined,Visible 0140 4801 |H | Short_Literal 0x1 0141 480a |H | Short_Literal 0xa 0142 00da | | Load_Top At_Offset_2 0143 03f9 | | Declare_Type Discrete,Constrained,Visible 0144 4801 |H | Short_Literal 0x1 0145 481e |H | Short_Literal 0x1e 0146 00e9 | | Load_Encached String_Cache 0147 035c | \ | Declare_Type Array,Constrained,Visible 0148 e001 | | Load 0x0,0x1 0149 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014a e001 | | Load 0x0,0x1 014b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014c e001 | | Load 0x0,0x1 014d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014e e001 | | Load 0x0,0x1 014f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0150 02a0 | | Declare_Subprogram Null_Subprogram 0151 4804 |H | Short_Literal 0x4 0152 032e | . | Declare_Type Record,Defined,Visible 0153 e001 | | Load 0x0,0x1 0154 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0155 e001 | | Load 0x0,0x1 0156 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0157 00db | | Load_Top At_Offset_3 0158 02a0 | | Declare_Subprogram Null_Subprogram 0159 4803 |H | Short_Literal 0x3 015a 032e | . | Declare_Type Record,Defined,Visible 015b e001 | | Load 0x0,0x1 015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015d 00d9 | | Load_Top At_Offset_1 015e e001 | | Load 0x0,0x1 015f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0160 02a0 | | Declare_Subprogram Null_Subprogram 0161 4803 |H | Short_Literal 0x3 0162 032e | . | Declare_Type Record,Defined,Visible 0163 e001 | | Load 0x0,0x1 0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0165 e001 | | Load 0x0,0x1 0166 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0167 e001 | | Load 0x0,0x1 0168 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0169 e001 | | Load 0x0,0x1 016a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016b e001 | | Load 0x0,0x1 016c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016d e001 | | Load 0x0,0x1 016e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016f e001 | | Load 0x0,0x1 0170 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0171 02a0 | | Declare_Subprogram Null_Subprogram 0172 4807 |H | Short_Literal 0x7 0173 032e | . | Declare_Type Record,Defined,Visible 0174 4801 |H | Short_Literal 0x1 0175 480a |H | Short_Literal 0xa 0176 e211 | | Load 0x1,0x11 0177 02a0 | | Declare_Subprogram Null_Subprogram 0178 4801 |H | Short_Literal 0x1 0179 035e | ^ | Declare_Type Array,Defined,Visible 017a e001 | | Load 0x0,0x1 017b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 017c e210 | | Load 0x1,0x10 017d e212 | | Load 0x1,0x12 017e e213 | | Load 0x1,0x13 017f e211 | | Load 0x1,0x11 0180 e214 | | Load 0x1,0x14 0181 02a0 | | Declare_Subprogram Null_Subprogram 0182 4806 |H | Short_Literal 0x6 0183 032e | . | Declare_Type Record,Defined,Visible 0184 00bf | | Action Accept_Activation 0185 BODY_0138: 0185 00bc | | Action Signal_Activated 0186 00bb | | Action Signal_Completion 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 4607 |F | Jump_Case 0x8 018c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 018d 7806 |x | Jump 0x194 ; case 0x1 018e 7809 |x | Jump 0x198 ; case 0x2 018f 780d |x | Jump 0x19d ; case 0x3 0190 7810 |x | Jump 0x1a1 ; case 0x4 0191 7811 |x | Jump 0x1a3 ; case 0x5 0192 7812 |x | Jump 0x1a5 ; case 0x6 0193 7815 |x | Jump 0x1a9 ; case 0x7 0194 00da | | Load_Top At_Offset_2 0195 0091 037b | {| Action Push_String_Extended_Indexed,0x37b ; "MICROCODE" 0197 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0198 00db | | Load_Top At_Offset_3 0199 00db | | Load_Top At_Offset_3 019a 00e0 | | Load_Encached Standard_Cache 019b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 019c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019d 00da | | Load_Top At_Offset_2 019e 00e0 | | Load_Encached Standard_Cache 019f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a1 00db | | Load_Top At_Offset_3 01a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a3 00db | | Load_Top At_Offset_3 01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a5 e20d | | Load 0x1,0xd 01a6 00dc | | Load_Top At_Offset_4 01a7 0267 | g | Execute Discrete,Predecessor 01a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a9 e20d | | Load 0x1,0xd 01aa 00dc | | Load_Top At_Offset_4 01ab 0268 | h | Execute Discrete,Successor 01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01cb | | .CONST 0x01cb ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 000e | | .CONST 0x000e ; Number of locals 01b3 INIT_01b0: 01b3 e001 | | Load 0x0,0x1 01b4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 01b5 0129 | ) | Execute Any,Make_Visible 01b6 00d8 | | Load_Top At_Offset_0 01b7 012c | , | Execute Any,Size 01b8 0f10 | | Execute_Immediate Equal,0x10 01b9 7001 |p | Jump_Nonzero 0x1bb 01ba 0887 | | Execute_Immediate Raise,0x87 01bb 4800 |H | Short_Literal 0x0 01bc 4bff |K | Short_Literal 0x3ff 01bd 00da | | Load_Top At_Offset_2 01be 02a0 | | Declare_Subprogram Null_Subprogram 01bf 4801 |H | Short_Literal 0x1 01c0 035e | ^ | Declare_Type Array,Defined,Visible 01c1 00d8 | | Load_Top At_Offset_0 01c2 012c | , | Execute Any,Size 01c3 e001 | | Load 0x0,0x1 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 012c | , | Execute Any,Size 01c6 0901 | | Execute_Immediate Binary_Scale,0x1 01c7 027f | | Execute Discrete,Equal 01c8 7001 |p | Jump_Nonzero 0x1ca 01c9 0887 | | Execute_Immediate Raise,0x87 01ca 00bf | | Action Accept_Activation 01cb BODY_01b0: 01cb 00bc | | Action Signal_Activated 01cc 00bb | | Action Signal_Completion 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 0215 | | .CONST 0x0215 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 000d | | .CONST 0x000d ; Number of locals 01d3 INIT_01d0: 01d3 e001 | | Load 0x0,0x1 01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d5 e002 | | Load 0x0,0x2 01d6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01d7 e002 | | Load 0x0,0x2 01d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01d9 e002 | | Load 0x0,0x2 01da 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01db e002 | | Load 0x0,0x2 01dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01dd e002 | | Load 0x0,0x2 01de 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01df e002 | | Load 0x0,0x2 01e0 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 01e1 e002 | | Load 0x0,0x2 01e2 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 01e3 e002 | | Load 0x0,0x2 01e4 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 01e5 e002 | | Load 0x0,0x2 01e6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01e7 e002 | | Load 0x0,0x2 01e8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01e9 e002 | | Load 0x0,0x2 01ea 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01eb e002 | | Load 0x0,0x2 01ec 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01ed e002 | | Load 0x0,0x2 01ee 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01ef e002 | | Load 0x0,0x2 01f0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01f1 e002 | | Load 0x0,0x2 01f2 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 01f3 e002 | | Load 0x0,0x2 01f4 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 01f5 e002 | | Load 0x0,0x2 01f6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01f7 e002 | | Load 0x0,0x2 01f8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01f9 e002 | | Load 0x0,0x2 01fa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01fb e002 | | Load 0x0,0x2 01fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01fd e002 | | Load 0x0,0x2 01fe 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01ff e002 | | Load 0x0,0x2 0200 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0201 e002 | | Load 0x0,0x2 0202 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0203 e001 | | Load 0x0,0x1 0204 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0205 e001 | | Load 0x0,0x1 0206 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0207 e001 | | Load 0x0,0x1 0208 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0209 02a0 | | Declare_Subprogram Null_Subprogram 020a 481b |H | Short_Literal 0x1b 020b 032e | . | Declare_Type Record,Defined,Visible 020c 00d8 | | Load_Top At_Offset_0 020d 012c | , | Execute Any,Size 020e e002 | | Load 0x0,0x2 020f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0210 012c | , | Execute Any,Size 0211 027f | | Execute Discrete,Equal 0212 7001 |p | Jump_Nonzero 0x214 0213 0887 | | Execute_Immediate Raise,0x87 0214 00bf | | Action Accept_Activation 0215 BODY_01d0: 0215 00bc | | Action Signal_Activated 0216 00bb | | Action Signal_Completion 0217 0000 | | .XXX[0x1] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 022b | + | .CONST 0x022b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 000d | | .CONST 0x000d ; Number of locals 021b INIT_0218: 021b 4801 |H | Short_Literal 0x1 021c 6013 |` | Indirect_Literal Discrete,0x230,{0x00000000, 0x00000400} 021d e001 | | Load 0x0,0x1 021e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021f 02a0 | | Declare_Subprogram Null_Subprogram 0220 4801 |H | Short_Literal 0x1 0221 035e | ^ | Declare_Type Array,Defined,Visible 0222 00d8 | | Load_Top At_Offset_0 0223 012c | , | Execute Any,Size 0224 e001 | | Load 0x0,0x1 0225 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0226 012c | , | Execute Any,Size 0227 027f | | Execute Discrete,Equal 0228 7001 |p | Jump_Nonzero 0x22a 0229 0887 | | Execute_Immediate Raise,0x87 022a 00bf | | Action Accept_Activation 022b BODY_0218: 022b 00bc | | Action Signal_Activated 022c 00bb | | Action Signal_Completion 022d 0000 0000 | | .XXX[0x3] 022f 0000 | | 0230 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0257 | W | .CONST 0x0257 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 000d | | .CONST 0x000d ; Number of locals 023b INIT_0238: 023b e001 | | Load 0x0,0x1 023c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 023d e002 | | Load 0x0,0x2 023e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 023f e001 | | Load 0x0,0x1 0240 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0241 e001 | | Load 0x0,0x1 0242 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0243 e001 | | Load 0x0,0x1 0244 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0245 e001 | | Load 0x0,0x1 0246 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0247 e002 | | Load 0x0,0x2 0248 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0249 e002 | | Load 0x0,0x2 024a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 024b 02a0 | | Declare_Subprogram Null_Subprogram 024c 4808 |H | Short_Literal 0x8 024d 032e | . | Declare_Type Record,Defined,Visible 024e 00d8 | | Load_Top At_Offset_0 024f 012c | , | Execute Any,Size 0250 e001 | | Load 0x0,0x1 0251 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0252 012c | , | Execute Any,Size 0253 027f | | Execute Discrete,Equal 0254 7001 |p | Jump_Nonzero 0x256 0255 0887 | | Execute_Immediate Raise,0x87 0256 00bf | | Action Accept_Activation 0257 BODY_0238: 0257 00bc | | Action Signal_Activated 0258 00bb | | Action Signal_Completion 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0287 | | .CONST 0x0287 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 000d | | .CONST 0x000d ; Number of locals 0263 INIT_0260: 0263 e001 | | Load 0x0,0x1 0264 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0265 e002 | | Load 0x0,0x2 0266 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0267 e001 | | Load 0x0,0x1 0268 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0269 e001 | | Load 0x0,0x1 026a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 026b e001 | | Load 0x0,0x1 026c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 026d e001 | | Load 0x0,0x1 026e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 026f e001 | | Load 0x0,0x1 0270 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0271 e001 | | Load 0x0,0x1 0272 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0273 e001 | | Load 0x0,0x1 0274 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0275 e002 | | Load 0x0,0x2 0276 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0277 e002 | | Load 0x0,0x2 0278 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0279 e002 | | Load 0x0,0x2 027a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 027b 02a0 | | Declare_Subprogram Null_Subprogram 027c 480c |H | Short_Literal 0xc 027d 032e | . | Declare_Type Record,Defined,Visible 027e 00d8 | | Load_Top At_Offset_0 027f 012c | , | Execute Any,Size 0280 e001 | | Load 0x0,0x1 0281 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0282 012c | , | Execute Any,Size 0283 027f | | Execute Discrete,Equal 0284 7001 |p | Jump_Nonzero 0x286 0285 0887 | | Execute_Immediate Raise,0x87 0286 00bf | | Action Accept_Activation 0287 BODY_0260: 0287 00bc | | Action Signal_Activated 0288 00bb | | Action Signal_Completion 0289 0000 0000 | | .BLANK 0000[0x7] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 02b7 | | .CONST 0x02b7 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 000d | | .CONST 0x000d ; Number of locals 0293 INIT_0290: 0293 e001 | | Load 0x0,0x1 0294 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0295 e002 | | Load 0x0,0x2 0296 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0297 e001 | | Load 0x0,0x1 0298 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0299 e001 | | Load 0x0,0x1 029a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 029b e001 | | Load 0x0,0x1 029c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029d e001 | | Load 0x0,0x1 029e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029f e002 | | Load 0x0,0x2 02a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a1 e001 | | Load 0x0,0x1 02a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02a3 e001 | | Load 0x0,0x1 02a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02a5 e002 | | Load 0x0,0x2 02a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02a7 e002 | | Load 0x0,0x2 02a8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02a9 e002 | | Load 0x0,0x2 02aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02ab 02a0 | | Declare_Subprogram Null_Subprogram 02ac 480c |H | Short_Literal 0xc 02ad 032e | . | Declare_Type Record,Defined,Visible 02ae 00d8 | | Load_Top At_Offset_0 02af 012c | , | Execute Any,Size 02b0 e001 | | Load 0x0,0x1 02b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b2 012c | , | Execute Any,Size 02b3 027f | | Execute Discrete,Equal 02b4 7001 |p | Jump_Nonzero 0x2b6 02b5 0887 | | Execute_Immediate Raise,0x87 02b6 00bf | | Action Accept_Activation 02b7 BODY_0290: 02b7 00bc | | Action Signal_Activated 02b8 00bb | | Action Signal_Completion 02b9 0000 0000 | | .BLANK 0000[0x7] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02f9 | | .CONST 0x02f9 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 000d | | .CONST 0x000d ; Number of locals 02c3 INIT_02c0: 02c3 e001 | | Load 0x0,0x1 02c4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02c5 e002 | | Load 0x0,0x2 02c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c7 e001 | | Load 0x0,0x1 02c8 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02c9 e001 | | Load 0x0,0x1 02ca 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02cb e001 | | Load 0x0,0x1 02cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02cd e001 | | Load 0x0,0x1 02ce 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 02cf e001 | | Load 0x0,0x1 02d0 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 02d1 e001 | | Load 0x0,0x1 02d2 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 02d3 e001 | | Load 0x0,0x1 02d4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02d5 e001 | | Load 0x0,0x1 02d6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02d7 e001 | | Load 0x0,0x1 02d8 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 02d9 e001 | | Load 0x0,0x1 02da 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02db e001 | | Load 0x0,0x1 02dc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02dd e001 | | Load 0x0,0x1 02de 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02df e001 | | Load 0x0,0x1 02e0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 02e1 e001 | | Load 0x0,0x1 02e2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02e3 e001 | | Load 0x0,0x1 02e4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02e5 e001 | | Load 0x0,0x1 02e6 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 02e7 e001 | | Load 0x0,0x1 02e8 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 02e9 e002 | | Load 0x0,0x2 02ea 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02eb e002 | | Load 0x0,0x2 02ec 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02ed 02a0 | | Declare_Subprogram Null_Subprogram 02ee 4815 |H | Short_Literal 0x15 02ef 032e | . | Declare_Type Record,Defined,Visible 02f0 00d8 | | Load_Top At_Offset_0 02f1 012c | , | Execute Any,Size 02f2 e001 | | Load 0x0,0x1 02f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f4 012c | , | Execute Any,Size 02f5 027f | | Execute Discrete,Equal 02f6 7001 |p | Jump_Nonzero 0x2f8 02f7 0887 | | Execute_Immediate Raise,0x87 02f8 00bf | | Action Accept_Activation 02f9 BODY_02c0: 02f9 00bc | | Action Signal_Activated 02fa 00bb | | Action Signal_Completion 02fb 0000 0000 | | .BLANK 0000[0x5] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0325 | % | .CONST 0x0325 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 000d | | .CONST 0x000d ; Number of locals 0303 INIT_0300: 0303 e001 | | Load 0x0,0x1 0304 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0305 e002 | | Load 0x0,0x2 0306 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0307 e001 | | Load 0x0,0x1 0308 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0309 e001 | | Load 0x0,0x1 030a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 030b e001 | | Load 0x0,0x1 030c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 030d e001 | | Load 0x0,0x1 030e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 030f e001 | | Load 0x0,0x1 0310 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0311 e001 | | Load 0x0,0x1 0312 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0313 e001 | | Load 0x0,0x1 0314 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0315 e002 | | Load 0x0,0x2 0316 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0317 e002 | | Load 0x0,0x2 0318 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0319 02a0 | | Declare_Subprogram Null_Subprogram 031a 480b |H | Short_Literal 0xb 031b 032e | . | Declare_Type Record,Defined,Visible 031c 00d8 | | Load_Top At_Offset_0 031d 012c | , | Execute Any,Size 031e e001 | | Load 0x0,0x1 031f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0320 012c | , | Execute Any,Size 0321 027f | | Execute Discrete,Equal 0322 7001 |p | Jump_Nonzero 0x324 0323 0887 | | Execute_Immediate Raise,0x87 0324 00bf | | Action Accept_Activation 0325 BODY_0300: 0325 00bc | | Action Signal_Activated 0326 00bb | | Action Signal_Completion 0327 0000 | | .XXX[0x1] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0379 | y | .CONST 0x0379 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 000f | | .CONST 0x000f ; Number of locals 032b INIT_0328: 032b 4800 |H | Short_Literal 0x0 032c 4803 |H | Short_Literal 0x3 032d 00e5 | | Load_Encached Long_Integer_Cache 032e 03f9 | | Declare_Type Discrete,Constrained,Visible 032f e001 | | Load 0x0,0x1 0330 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0331 e002 | | Load 0x0,0x2 0332 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0333 e001 | | Load 0x0,0x1 0334 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0335 e001 | | Load 0x0,0x1 0336 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0337 e001 | | Load 0x0,0x1 0338 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0339 e001 | | Load 0x0,0x1 033a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033b e001 | | Load 0x0,0x1 033c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033d e001 | | Load 0x0,0x1 033e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 033f e001 | | Load 0x0,0x1 0340 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0341 e001 | | Load 0x0,0x1 0342 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0343 e001 | | Load 0x0,0x1 0344 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0345 e001 | | Load 0x0,0x1 0346 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0347 e001 | | Load 0x0,0x1 0348 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0349 e001 | | Load 0x0,0x1 034a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 034b e001 | | Load 0x0,0x1 034c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 034d e001 | | Load 0x0,0x1 034e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 034f e001 | | Load 0x0,0x1 0350 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0351 e001 | | Load 0x0,0x1 0352 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0353 e001 | | Load 0x0,0x1 0354 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0355 e001 | | Load 0x0,0x1 0356 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0357 e002 | | Load 0x0,0x2 0358 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0359 e001 | | Load 0x0,0x1 035a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 035b e001 | | Load 0x0,0x1 035c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035d e001 | | Load 0x0,0x1 035e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035f e001 | | Load 0x0,0x1 0360 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0361 e001 | | Load 0x0,0x1 0362 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0363 e002 | | Load 0x0,0x2 0364 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0365 e002 | | Load 0x0,0x2 0366 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0367 02a0 | | Declare_Subprogram Null_Subprogram 0368 481c |H | Short_Literal 0x1c 0369 032e | . | Declare_Type Record,Defined,Visible 036a 00d8 | | Load_Top At_Offset_0 036b 012c | , | Execute Any,Size 036c e001 | | Load 0x0,0x1 036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036e 012c | , | Execute Any,Size 036f 027f | | Execute Discrete,Equal 0370 7001 |p | Jump_Nonzero 0x372 0371 0887 | | Execute_Immediate Raise,0x87 0372 4800 |H | Short_Literal 0x0 0373 4803 |H | Short_Literal 0x3 0374 00da | | Load_Top At_Offset_2 0375 02a0 | | Declare_Subprogram Null_Subprogram 0376 4801 |H | Short_Literal 0x1 0377 035e | ^ | Declare_Type Array,Defined,Visible 0378 00bf | | Action Accept_Activation 0379 BODY_0328: 0379 00bc | | Action Signal_Activated 037a 00bb | | Action Signal_Completion 037b ; -------------------------------------------------------------------------------------- 037b ; STRING TABLE 037b ; -------------------------------------------------------------------------------------- 037b 001a | | .STRTAB 0x001a->0x0388 ; "MICROCODE" 037c 0021 | ! | .STRTAB 0x0021->0x038c ; "ADA_BASE" 037d 0027 | ' | .STRTAB 0x0027->0x0390 ; "MACHINE_INTERFACE" 037e 0036 | 6 | .STRTAB 0x0036->0x0399 ; "KERNEL_DEBUGGER_IO" 037f 0046 | F | .STRTAB 0x0046->0x03a2 ; "KERNEL_DEBUGGER" 0380 0053 | S | .STRTAB 0x0053->0x03a9 ; "KERNEL" 0381 0057 | W | .STRTAB 0x0057->0x03ac ; "ENVIRONMENT_DEBUGGER" 0382 0069 | i | .STRTAB 0x0069->0x03b6 ; "ABSTRACT_TYPES" 0383 0075 | u | .STRTAB 0x0075->0x03bd ; "MISCELLANEOUS" 0384 0080 | | .STRTAB 0x0080->0x03c4 ; "OS_UTILITIES" 0385 008a | | .STRTAB 0x008a->0x03ca ; "ELABORATOR_DATABASE" 0386 009b | | .STRTAB 0x009b->0x03d3 ; ".saved_state" 0387 00a5 | | .STREND 0x00a5->0x03d9 0388 4d49 4352 |MICR| .STRTAB_STRINGS 03da 0000 0000 | | .BLANK 0000[0x6] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; Debug Table 03e0 ; -------------------------------------------------------------------------------------- 03e0 0004 000e | | .DEBUG4 0x0004,0x000e,0x1edb,0x0000,0x0001,0x0000 03e6 2e00 1038 |. 8| .XXX[0x1a] 03e8 3e00 103d |> =| 03ea 6600 103e |f >| 03ec 6e00 1042 |n B| 03ee 8e00 1043 | C| 03f0 9600 1047 | G| 03f2 b600 0000 | | 03f4 0000 104c | L| 03f6 de00 104e | N| 03f8 ee00 1050 | P| 03fa fe00 1053 | S| 03fc 0e00 1057 | W| 03fe 2e00 1058 |. X|