|
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_29d0d7
└─⟦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 03f8 | | .CONST 0x03f8 ; 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 00c6 | | .CONST 0x00c6 ; 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 481e |H | Short_Literal 0x1e 000d 00e9 | | Load_Encached String_Cache 000e 035c | \ | Declare_Type Array,Constrained,Visible 000f 4810 |H | Short_Literal 0x10 0010 4800 |H | Short_Literal 0x0 0011 60f6 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x0000ffff} 0012 00e2 | | Load_Encached Integer_Cache 0013 03fc | | QQ_Declare_Type Discrete,XXX 0014 4808 |H | Short_Literal 0x8 0015 4800 |H | Short_Literal 0x0 0016 4801 |H | Short_Literal 0x1 0017 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0019 03fb | | Declare_Type Discrete,Defined,Visible,With_Size 001a 4808 |H | Short_Literal 0x8 001b 4800 |H | Short_Literal 0x0 001c 4801 |H | Short_Literal 0x1 001d 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 001f 03fb | | Declare_Type Discrete,Defined,Visible,With_Size 0020 4800 |H | Short_Literal 0x0 0021 4803 |H | Short_Literal 0x3 0022 00da | | Load_Top At_Offset_2 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4801 |H | Short_Literal 0x1 0025 035e | ^ | Declare_Type Array,Defined,Visible 0026 00d9 | | Load_Top At_Offset_1 0027 00db | | Load_Top At_Offset_3 0028 00da | | Load_Top At_Offset_2 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a 4803 |H | Short_Literal 0x3 002b 032e | . | Declare_Type Record,Defined,Visible 002c 00da | | Load_Top At_Offset_2 002d 00db | | Load_Top At_Offset_3 002e e210 | | Load 0x1,0x10 002f 00d8 | | Load_Top At_Offset_0 0030 02a0 | | Declare_Subprogram Null_Subprogram 0031 4804 |H | Short_Literal 0x4 0032 032e | . | Declare_Type Record,Defined,Visible 0033 00db | | Load_Top At_Offset_3 0034 e210 | | Load 0x1,0x10 0035 e20d | | Load 0x1,0xd 0036 02a0 | | Declare_Subprogram Null_Subprogram 0037 4803 |H | Short_Literal 0x3 0038 032e | . | Declare_Type Record,Defined,Visible 0039 e210 | | Load 0x1,0x10 003a 00d9 | | Load_Top At_Offset_1 003b e210 | | Load 0x1,0x10 003c e20e | | Load 0x1,0xe 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e 4804 |H | Short_Literal 0x4 003f 032e | . | Declare_Type Record,Defined,Visible 0040 e210 | | Load 0x1,0x10 0041 00d8 | | Load_Top At_Offset_0 0042 e210 | | Load 0x1,0x10 0043 00d8 | | Load_Top At_Offset_0 0044 e210 | | Load 0x1,0x10 0045 00d8 | | Load_Top At_Offset_0 0046 e210 | | Load 0x1,0x10 0047 02a0 | | Declare_Subprogram Null_Subprogram 0048 4807 |H | Short_Literal 0x7 0049 032e | . | Declare_Type Record,Defined,Visible 004a 4808 |H | Short_Literal 0x8 004b 4800 |H | Short_Literal 0x0 004c 4809 |H | Short_Literal 0x9 004d 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 004f 03fb | | Declare_Type Discrete,Defined,Visible,With_Size 0050 00d8 | | Load_Top At_Offset_0 0051 0266 | f | Execute Discrete,Bounds 0052 e214 | | Load 0x1,0x14 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 4801 |H | Short_Literal 0x1 0055 035e | ^ | Declare_Type Array,Defined,Visible 0056 e20e | | Load 0x1,0xe 0057 e213 | | Load 0x1,0x13 0058 e215 | | Load 0x1,0x15 0059 e216 | | Load 0x1,0x16 005a e214 | | Load 0x1,0x14 005b e218 | | Load 0x1,0x18 005c e210 | | Load 0x1,0x10 005d 02a0 | | Declare_Subprogram Null_Subprogram 005e 4807 |H | Short_Literal 0x7 005f 032e | . | Declare_Type Record,Defined,Visible 0060 00d8 | | Load_Top At_Offset_0 0061 012c | , | Execute Any,Size 0062 00e2 | | Load_Encached Integer_Cache 0063 03e8 | | Declare_Variable Discrete,Visible,With_Value,With_Constraint 0064 00d8 | | Load_Top At_Offset_0 0065 09fd | | Execute_Immediate Binary_Scale,-0x3 0066 00e3 | | Load_Encached Natural_Cache 0067 03e8 | | Declare_Variable Discrete,Visible,With_Value,With_Constraint 0068 4800 |H | Short_Literal 0x0 0069 00d9 | | Load_Top At_Offset_1 006a 0aff | | Execute_Immediate Plus,-0x1 006b e002 | | Load 0x0,0x2 006c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006d 035c | \ | Declare_Type Array,Constrained,Visible 006e 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0070 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0072 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0074 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0076 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0078 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 007a 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 007c 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 007e 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 0080 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0082 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 0084 00bf | | Action Accept_Activation 0085 e219 | | Load 0x1,0x19 0086 0322 | " | Declare_Variable Record 0087 e214 | | Load 0x1,0x14 0088 0322 | " | Declare_Variable Record 0089 4800 |H | Short_Literal 0x0 008a 00d9 | | Load_Top At_Offset_1 008b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008c 4800 |H | Short_Literal 0x0 008d 00d9 | | Load_Top At_Offset_1 008e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 008f e214 | | Load 0x1,0x14 0090 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 0091 0337 | 7 | Declare_Variable Array 0092 481e |H | Short_Literal 0x1e 0093 4801 |H | Short_Literal 0x1 0094 4800 |H | Short_Literal 0x0 0095 00d9 | | Load_Top At_Offset_1 0096 e22a | * | Load 0x1,0x2a 0097 01d6 | | Execute Vector,Field_Write 0098 3ffb |? | Loop_Increasing 0x94 0099 e214 | | Load 0x1,0x14 009a 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 009b 0119 | | Execute Any,Check_In_Formal_Type 009c 00d9 | | Load_Top At_Offset_1 009d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 009e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00a1 00c7 | | Action Elaborate_Subprogram 00a2 a003 | | Store_Unchecked 0x0,0x3 00a3 00c6 | | Action Check_Subprogram_Elaborated 00a4 e219 | | Load 0x1,0x19 00a5 e21c | | Load 0x1,0x1c 00a6 e004 | | Load 0x0,0x4 00a7 e005 | | Load 0x0,0x5 00a8 4800 |H | Short_Literal 0x0 00a9 0007 | | Action Break_Optional 00aa a003 | | Store_Unchecked 0x0,0x3 00ab 00c6 | | Action Check_Subprogram_Elaborated 00ac e21c | | Load 0x1,0x1c 00ad e219 | | Load 0x1,0x19 00ae e006 | | Load 0x0,0x6 00af e007 | | Load 0x0,0x7 00b0 4800 |H | Short_Literal 0x0 00b1 0007 | | Action Break_Optional 00b2 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00b9 00c7 | | Action Elaborate_Subprogram 00ba 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 00bc 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00c5 00c7 | | Action Elaborate_Subprogram 00c6 BODY_0008: 00c6 e21c | | Load 0x1,0x1c 00c7 01db | | Execute Vector,Length 00c8 4801 |H | Short_Literal 0x1 00c9 0279 | y | Execute Discrete,And 00ca 6801 |h | Jump_Zero 0xcc 00cb 0887 | | Execute_Immediate Raise,0x87 00cc e21b | | Load 0x1,0x1b 00cd 0903 | | Execute_Immediate Binary_Scale,0x3 00ce e21a | | Load 0x1,0x1a 00cf 027f | | Execute Discrete,Equal 00d0 7001 |p | Jump_Nonzero 0xd2 00d1 0887 | | Execute_Immediate Raise,0x87 00d2 4802 |H | Short_Literal 0x2 00d3 e228 | ( | Load 0x1,0x28 00d4 017c | | | Execute Record,Component_Offset 00d5 4803 |H | Short_Literal 0x3 00d6 e228 | ( | Load 0x1,0x28 00d7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00d8 017c | | | Execute Record,Component_Offset 00d9 0273 | s | Execute Discrete,Plus 00da 480f |H | Short_Literal 0xf 00db 0279 | y | Execute Discrete,And 00dc 6801 |h | Jump_Zero 0xde 00dd 0887 | | Execute_Immediate Raise,0x87 00de 00bc | | Action Signal_Activated 00df 00bb | | Action Signal_Completion 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4607 |F | Jump_Case 0x8 00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00e5 7807 |x | Jump 0xed ; case 0x1 00e6 780a |x | Jump 0xf1 ; case 0x2 00e7 780e |x | Jump 0xf6 ; case 0x3 00e8 7811 |x | Jump 0xfa ; case 0x4 00e9 7812 |x | Jump 0xfc ; case 0x5 00ea 7813 |x | Jump 0xfe ; case 0x6 00eb 7816 |x | Jump 0x102 ; case 0x7 00ec 4302 |C | .XXX[0x1] 00ed 00da | | Load_Top At_Offset_2 00ee 0091 0398 | | Action Push_String_Extended_Indexed,0x398 ; "MB2" 00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f1 00db | | Load_Top At_Offset_3 00f2 00db | | Load_Top At_Offset_3 00f3 00e0 | | Load_Encached Standard_Cache 00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 00da | | Load_Top At_Offset_2 00f7 00e0 | | Load_Encached Standard_Cache 00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00fa 00db | | Load_Top At_Offset_3 00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fc 00db | | Load_Top At_Offset_3 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe e20f | | Load 0x1,0xf 00ff 00dc | | Load_Top At_Offset_4 0100 0267 | g | Execute Discrete,Predecessor 0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0102 e20f | | Load 0x1,0xf 0103 00dc | | Load_Top At_Offset_4 0104 0268 | h | Execute Discrete,Successor 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 0000 0000 | | .XXX[0x2] 0108 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4607 |F | Jump_Case 0x8 0114 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0115 7807 |x | Jump 0x11d ; case 0x1 0116 780a |x | Jump 0x121 ; case 0x2 0117 780e |x | Jump 0x126 ; case 0x3 0118 7811 |x | Jump 0x12a ; case 0x4 0119 7812 |x | Jump 0x12c ; case 0x5 011a 7813 |x | Jump 0x12e ; case 0x6 011b 7816 |x | Jump 0x132 ; case 0x7 011c 4302 |C | .XXX[0x1] 011d 00da | | Load_Top At_Offset_2 011e 0091 039a | | Action Push_String_Extended_Indexed,0x39a ; "FALSE" 0120 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0121 00db | | Load_Top At_Offset_3 0122 00db | | Load_Top At_Offset_3 0123 00e0 | | Load_Encached Standard_Cache 0124 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0125 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0126 00da | | Load_Top At_Offset_2 0127 00e0 | | Load_Encached Standard_Cache 0128 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0129 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 012a 00db | | Load_Top At_Offset_3 012b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012c 00db | | Load_Top At_Offset_3 012d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012e e210 | | Load 0x1,0x10 012f 00dc | | Load_Top At_Offset_4 0130 0267 | g | Execute Discrete,Predecessor 0131 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0132 e210 | | Load 0x1,0x10 0133 00dc | | Load_Top At_Offset_4 0134 0268 | h | Execute Discrete,Successor 0135 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0136 0000 0000 | | .XXX[0x2] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 4607 |F | Jump_Case 0x8 013c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 013d 7807 |x | Jump 0x145 ; case 0x1 013e 780a |x | Jump 0x149 ; case 0x2 013f 780e |x | Jump 0x14e ; case 0x3 0140 7811 |x | Jump 0x152 ; case 0x4 0141 7812 |x | Jump 0x154 ; case 0x5 0142 7813 |x | Jump 0x156 ; case 0x6 0143 7816 |x | Jump 0x15a ; case 0x7 0144 4302 |C | .XXX[0x1] 0145 00da | | Load_Top At_Offset_2 0146 0091 039c | | Action Push_String_Extended_Indexed,0x39c ; "ADA_BASE" 0148 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0149 00db | | Load_Top At_Offset_3 014a 00db | | Load_Top At_Offset_3 014b 00e0 | | Load_Encached Standard_Cache 014c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 014d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 014e 00da | | Load_Top At_Offset_2 014f 00e0 | | Load_Encached Standard_Cache 0150 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0151 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0152 00db | | Load_Top At_Offset_3 0153 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0154 00db | | Load_Top At_Offset_3 0155 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0156 e217 | | Load 0x1,0x17 0157 00dc | | Load_Top At_Offset_4 0158 0267 | g | Execute Discrete,Predecessor 0159 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015a e217 | | Load 0x1,0x17 015b 00dc | | Load_Top At_Offset_4 015c 0268 | h | Execute Discrete,Successor 015d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e229 | ) | Load 0x1,0x29 0164 0320 | | Declare_Variable Record,Duplicate 0165 00cd | | Action Spare6_Action 0166 00ca | | Action Exit_Nullary_Function 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016d | m | .CONST 0x016d ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b e219 | | Load 0x1,0x19 016c 0322 | " | Declare_Variable Record 016d BODY_0168: 016d 4803 |H | Short_Literal 0x3 016e 00d9 | | Load_Top At_Offset_1 016f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0170 4800 |H | Short_Literal 0x0 0171 00d9 | | Load_Top At_Offset_1 0172 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0173 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0174 4800 |H | Short_Literal 0x0 0175 00d9 | | Load_Top At_Offset_1 0176 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0177 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0178 4800 |H | Short_Literal 0x0 0179 00d9 | | Load_Top At_Offset_1 017a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 017b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 017c 4800 |H | Short_Literal 0x0 017d 00d9 | | Load_Top At_Offset_1 017e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 017f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0180 4800 |H | Short_Literal 0x0 0181 00d9 | | Load_Top At_Offset_1 0182 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0183 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0184 821d | | Call 0x1,0x1d 0185 00d9 | | Load_Top At_Offset_1 0186 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0187 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0188 4800 |H | Short_Literal 0x0 0189 00d9 | | Load_Top At_Offset_1 018a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 018b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 018c 6083 |` | Indirect_Literal Discrete,0x210,{0x00000000, 0x0000ffff} 018d 00d9 | | Load_Top At_Offset_1 018e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 018f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0190 4801 |H | Short_Literal 0x1 0191 00d9 | | Load_Top At_Offset_1 0192 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0193 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0194 4801 |H | Short_Literal 0x1 0195 00d9 | | Load_Top At_Offset_1 0196 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0197 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0198 4800 |H | Short_Literal 0x0 0199 00d9 | | Load_Top At_Offset_1 019a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 019b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 019c 4800 |H | Short_Literal 0x0 019d 00d9 | | Load_Top At_Offset_1 019e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 019f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01a0 4800 |H | Short_Literal 0x0 01a1 00d9 | | Load_Top At_Offset_1 01a2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01a3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01a4 4801 |H | Short_Literal 0x1 01a5 00d9 | | Load_Top At_Offset_1 01a6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01a7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 01a8 4801 |H | Short_Literal 0x1 01a9 00d9 | | Load_Top At_Offset_1 01aa 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01ab 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 01ac 4800 |H | Short_Literal 0x0 01ad 00d9 | | Load_Top At_Offset_1 01ae 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01b0 4800 |H | Short_Literal 0x0 01b1 00d9 | | Load_Top At_Offset_1 01b2 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01b4 00d8 | | Load_Top At_Offset_0 01b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b7 4801 |H | Short_Literal 0x1 01b8 4807 |H | Short_Literal 0x7 01b9 00da | | Load_Top At_Offset_2 01ba 035b | [ | Declare_Type Array,Constrained 01bb 00d9 | | Load_Top At_Offset_1 01bc 01cd | | Execute Vector,Slice_Reference 01bd 4801 |H | Short_Literal 0x1 01be 4807 |H | Short_Literal 0x7 01bf 00e9 | | Load_Encached String_Cache 01c0 035b | [ | Declare_Type Array,Constrained 01c1 0337 | 7 | Declare_Variable Array 01c2 4843 |HC | Short_Literal 0x43 01c3 4801 |H | Short_Literal 0x1 01c4 00da | | Load_Top At_Offset_2 01c5 01d6 | | Execute Vector,Field_Write 01c6 4855 |HU | Short_Literal 0x55 01c7 4802 |H | Short_Literal 0x2 01c8 00da | | Load_Top At_Offset_2 01c9 01d6 | | Execute Vector,Field_Write 01ca 4852 |HR | Short_Literal 0x52 01cb 4803 |H | Short_Literal 0x3 01cc 00da | | Load_Top At_Offset_2 01cd 01d6 | | Execute Vector,Field_Write 01ce 4852 |HR | Short_Literal 0x52 01cf 4804 |H | Short_Literal 0x4 01d0 00da | | Load_Top At_Offset_2 01d1 01d6 | | Execute Vector,Field_Write 01d2 4845 |HE | Short_Literal 0x45 01d3 4805 |H | Short_Literal 0x5 01d4 00da | | Load_Top At_Offset_2 01d5 01d6 | | Execute Vector,Field_Write 01d6 484e |HN | Short_Literal 0x4e 01d7 4806 |H | Short_Literal 0x6 01d8 00da | | Load_Top At_Offset_2 01d9 01d6 | | Execute Vector,Field_Write 01da 4854 |HT | Short_Literal 0x54 01db 4807 |H | Short_Literal 0x7 01dc 00da | | Load_Top At_Offset_2 01dd 01d6 | | Execute Vector,Field_Write 01de 00cd | | Action Spare6_Action 01df 4801 |H | Short_Literal 0x1 01e0 4807 |H | Short_Literal 0x7 01e1 00db | | Load_Top At_Offset_3 01e2 01ce | | Execute Vector,Slice_Write 01e3 00d1 | | Pop_Control Pop_Count_1 01e4 00d8 | | Load_Top At_Offset_0 01e5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e7 4808 |H | Short_Literal 0x8 01e8 481e |H | Short_Literal 0x1e 01e9 00da | | Load_Top At_Offset_2 01ea 035b | [ | Declare_Type Array,Constrained 01eb 00d9 | | Load_Top At_Offset_1 01ec 01cd | | Execute Vector,Slice_Reference 01ed 00d8 | | Load_Top At_Offset_0 01ee 0335 | 5 | Declare_Variable Array,Duplicate 01ef 00cd | | Action Spare6_Action 01f0 00d9 | | Load_Top At_Offset_1 01f1 01d9 | | Execute Vector,Reverse_Bounds 01f2 0263 | c | Execute Discrete,Above_Bound 01f3 7005 |p | Jump_Nonzero 0x1f9 01f4 4800 |H | Short_Literal 0x0 01f5 00d9 | | Load_Top At_Offset_1 01f6 e405 | | Load 0x2,0x5 01f7 01d6 | | Execute Vector,Field_Write 01f8 3ffb |? | Loop_Increasing 0x1f4 01f9 00cd | | Action Spare6_Action 01fa 4808 |H | Short_Literal 0x8 01fb 481e |H | Short_Literal 0x1e 01fc 00db | | Load_Top At_Offset_3 01fd 01ce | | Execute Vector,Slice_Write 01fe 00d1 | | Pop_Control Pop_Count_1 01ff 00cf | | Action Mark_Auxiliary 0200 e217 | | Load 0x1,0x17 0201 0265 | e | Execute Discrete,Reverse_Bounds 0202 0007 | | Action Break_Optional 0203 e229 | ) | Load 0x1,0x29 0204 00d9 | | Load_Top At_Offset_1 0205 e402 | | Load 0x2,0x2 0206 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0207 01d6 | | Execute Vector,Field_Write 0208 00c8 | | Action Pop_Auxiliary_Range 0209 3ff9 |? | Loop_Increasing 0x203 020a 00ce | | Action Pop_Auxiliary 020b 4800 |H | Short_Literal 0x0 020c 00d9 | | Load_Top At_Offset_1 020d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 020e 00d8 | | Load_Top At_Offset_0 020f 00ca | | Action Exit_Nullary_Function 0210 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c e22a | * | Load 0x1,0x2a 021d e22b | + | Load 0x1,0x2b 021e 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 021f 8003 | | Call 0x0,0x3 0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0221 0000 0000 | | .BLANK 0000[0x7] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0249 | I | .CONST 0x0249 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0006 | | .CONST 0x0006 ; Number of locals 022b INIT_0228: 022b e21c | | Load 0x1,0x1c 022c 0337 | 7 | Declare_Variable Array 022d 00db | | Load_Top At_Offset_3 022e e22a | * | Load 0x1,0x2a 022f e22b | + | Load 0x1,0x2b 0230 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0231 8003 | | Call 0x0,0x3 0232 00d9 | | Load_Top At_Offset_1 0233 01d4 | | Execute Vector,Structure_Write 0234 4800 |H | Short_Literal 0x0 0235 e5ff | | Load 0x2,-0x1 0236 017c | | | Execute Record,Component_Offset 0237 09fd | | Execute_Immediate Binary_Scale,-0x3 0238 00e3 | | Load_Encached Natural_Cache 0239 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 023a 4803 |H | Short_Literal 0x3 023b e5ff | | Load 0x2,-0x1 023c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 023d 017c | | | Execute Record,Component_Offset 023e 4802 |H | Short_Literal 0x2 023f e5ff | | Load 0x2,-0x1 0240 017c | | | Execute Record,Component_Offset 0241 0273 | s | Execute Discrete,Plus 0242 09fd | | Execute_Immediate Binary_Scale,-0x3 0243 00e3 | | Load_Encached Natural_Cache 0244 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0245 00e2 | | Load_Encached Integer_Cache 0246 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0247 e002 | | Load 0x0,0x2 0248 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0249 BODY_0228: 0249 00cf | | Action Mark_Auxiliary 024a 781c |x | Jump 0x267 024b 00da | | Load_Top At_Offset_2 024c e403 | | Load 0x2,0x3 024d 027e | ~ | Execute Discrete,Not_Equal 024e 6814 |h | Jump_Zero 0x263 024f 00da | | Load_Top At_Offset_2 0250 e404 | | Load 0x2,0x4 0251 027e | ~ | Execute Discrete,Not_Equal 0252 6810 |h | Jump_Zero 0x263 0253 00da | | Load_Top At_Offset_2 0254 e402 | | Load 0x2,0x2 0255 01d7 | | Execute Vector,Field_Read 0256 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0257 00da | | Load_Top At_Offset_2 0258 0a01 | | Execute_Immediate Plus,0x1 0259 e402 | | Load 0x2,0x2 025a 01d7 | | Execute Vector,Field_Read 025b 00db | | Load_Top At_Offset_3 025c e402 | | Load 0x2,0x2 025d 01d6 | | Execute Vector,Field_Write 025e 00d9 | | Load_Top At_Offset_1 025f 00db | | Load_Top At_Offset_3 0260 0a01 | | Execute_Immediate Plus,0x1 0261 e402 | | Load 0x2,0x2 0262 01d6 | | Execute Vector,Field_Write 0263 00da | | Load_Top At_Offset_2 0264 0a02 | | Execute_Immediate Plus,0x2 0265 005b | [ | Store_Top Discrete,At_Offset_3 0266 00c9 | | Action Pop_Auxiliary_Loop 0267 00da | | Load_Top At_Offset_2 0268 0a01 | | Execute_Immediate Plus,0x1 0269 e402 | | Load 0x2,0x2 026a 01da | | Execute Vector,Bounds 026b 0262 | b | Execute Discrete,In_Range 026c 77de |w | Jump_Nonzero 0x24b 026d 00ce | | Action Pop_Auxiliary 026e e402 | | Load 0x2,0x2 026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 e22f | / | Load 0x1,0x2f 0275 e230 | 0 | Load 0x1,0x30 0276 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0277 8003 | | Call 0x0,0x3 0278 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 029f | | .CONST 0x029f ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0007 | | .CONST 0x0007 ; Number of locals 0283 INIT_0280: 0283 e21c | | Load 0x1,0x1c 0284 0337 | 7 | Declare_Variable Array 0285 00db | | Load_Top At_Offset_3 0286 00d9 | | Load_Top At_Offset_1 0287 01d4 | | Execute Vector,Structure_Write 0288 e219 | | Load 0x1,0x19 0289 0322 | " | Declare_Variable Record 028a e002 | | Load 0x0,0x2 028b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 028c 00e3 | | Load_Encached Natural_Cache 028d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 028e 4800 |H | Short_Literal 0x0 028f 00db | | Load_Top At_Offset_3 0290 017c | | | Execute Record,Component_Offset 0291 09fd | | Execute_Immediate Binary_Scale,-0x3 0292 00e3 | | Load_Encached Natural_Cache 0293 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0294 4803 |H | Short_Literal 0x3 0295 e403 | | Load 0x2,0x3 0296 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0297 017c | | | Execute Record,Component_Offset 0298 4802 |H | Short_Literal 0x2 0299 e403 | | Load 0x2,0x3 029a 017c | | | Execute Record,Component_Offset 029b 0273 | s | Execute Discrete,Plus 029c 09fd | | Execute_Immediate Binary_Scale,-0x3 029d 00e3 | | Load_Encached Natural_Cache 029e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 029f BODY_0280: 029f 00cf | | Action Mark_Auxiliary 02a0 781c |x | Jump 0x2bd 02a1 00db | | Load_Top At_Offset_3 02a2 00db | | Load_Top At_Offset_3 02a3 027e | ~ | Execute Discrete,Not_Equal 02a4 6814 |h | Jump_Zero 0x2b9 02a5 00db | | Load_Top At_Offset_3 02a6 00da | | Load_Top At_Offset_2 02a7 027e | ~ | Execute Discrete,Not_Equal 02a8 6810 |h | Jump_Zero 0x2b9 02a9 00db | | Load_Top At_Offset_3 02aa 0a01 | | Execute_Immediate Plus,0x1 02ab e402 | | Load 0x2,0x2 02ac 01d7 | | Execute Vector,Field_Read 02ad a404 | | Store_Unchecked 0x2,0x4 02ae 00db | | Load_Top At_Offset_3 02af e402 | | Load 0x2,0x2 02b0 01d7 | | Execute Vector,Field_Read 02b1 e405 | | Load 0x2,0x5 02b2 0a01 | | Execute_Immediate Plus,0x1 02b3 e402 | | Load 0x2,0x2 02b4 01d6 | | Execute Vector,Field_Write 02b5 e404 | | Load 0x2,0x4 02b6 e405 | | Load 0x2,0x5 02b7 e402 | | Load 0x2,0x2 02b8 01d6 | | Execute Vector,Field_Write 02b9 00db | | Load_Top At_Offset_3 02ba 0a02 | | Execute_Immediate Plus,0x2 02bb c405 | | Store 0x2,0x5 02bc 00c9 | | Action Pop_Auxiliary_Loop 02bd 00db | | Load_Top At_Offset_3 02be 0a01 | | Execute_Immediate Plus,0x1 02bf e402 | | Load 0x2,0x2 02c0 01da | | Execute Vector,Bounds 02c1 0262 | b | Execute Discrete,In_Range 02c2 77de |w | Jump_Nonzero 0x2a1 02c3 00ce | | Action Pop_Auxiliary 02c4 e402 | | Load 0x2,0x2 02c5 e22f | / | Load 0x1,0x2f 02c6 e230 | 0 | Load 0x1,0x30 02c7 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 02c8 8003 | | Call 0x0,0x3 02c9 e403 | | Load 0x2,0x3 02ca 017d | } | Execute Record,Structure_Write 02cb e403 | | Load 0x2,0x3 02cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02cd 0000 0000 | | .XXX[0x3] 02cf 0000 | | 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02de | | .CONST 0x02de ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0004 | | .CONST 0x0004 ; Number of locals 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 01da | | Execute Vector,Bounds 02d5 00e9 | | Load_Encached String_Cache 02d6 035b | [ | Declare_Type Array,Constrained 02d7 0337 | 7 | Declare_Variable Array 02d8 00db | | Load_Top At_Offset_3 02d9 00d9 | | Load_Top At_Offset_1 02da 01d4 | | Execute Vector,Structure_Write 02db 00e3 | | Load_Encached Natural_Cache 02dc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02dd 00e8 | | Load_Encached Character_Cache 02de BODY_02d0: 02de 781b |x | Jump 0x2fa 02df 00da 0a01 | | .XXX[0x1b] 02e1 e402 01d7 | | 02e3 0052 00da | R | 02e5 e402 01d7 | | 02e7 00db 0a01 | | 02e9 e402 01d6 | | 02eb 00d9 00db | | 02ed e402 01d6 | | 02ef 00da 0a02 | | 02f1 005b 00c9 | [ | 02f3 00da 0a01 | | 02f5 e402 01da | | 02f7 0262 77e6 | bw | 02f9 00ce | | 02fa 00da | | Load_Top At_Offset_2 02fb 8234 | 4 | Call 0x1,0x34 02fc 00e9 | | Load_Encached String_Cache 02fd 01c6 | | Execute Vector,Convert_To_Formal 02fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ff 0000 | | .XXX[0x1] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0308 | | .CONST 0x0308 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0004 | | .CONST 0x0004 ; Number of locals 0303 INIT_0300: 0303 e20d | | Load 0x1,0xd 0304 0337 | 7 | Declare_Variable Array 0305 00e3 | | Load_Encached Natural_Cache 0306 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0307 00e8 | | Load_Encached Character_Cache 0308 BODY_0300: 0308 e5ff | | Load 0x2,-0x1 0309 01db | | Execute Vector,Length 030a 0c1f | | Execute_Immediate Greater_Equal,0x1f 030b 680f |h | Jump_Zero 0x31b 030c e5ff | | Load 0x2,-0x1 030d 01dd | | Execute Vector,First 030e e5ff | | Load 0x2,-0x1 030f 01dd | | Execute Vector,First 0310 0a1d | | Execute_Immediate Plus,0x1d 0311 00d8 | | Load_Top At_Offset_0 0312 00e2 | | Load_Encached Integer_Cache 0313 0260 | ` | Execute Discrete,In_Type 0314 7001 |p | Jump_Nonzero 0x316 0315 0801 | | Execute_Immediate Raise,0x1 0316 e5ff | | Load 0x2,-0x1 0317 01cf | | Execute Vector,Slice_Read 0318 00db | | Load_Top At_Offset_3 0319 01d4 | | Execute Vector,Structure_Write 031a 7835 |x5 | Jump 0x350 031b 00da | | Load_Top At_Offset_2 031c 00d8 | | Load_Top At_Offset_0 031d 0335 | 5 | Declare_Variable Array,Duplicate 031e 00cd | | Action Spare6_Action 031f 481e |H | Short_Literal 0x1e 0320 4801 |H | Short_Literal 0x1 0321 4800 |H | Short_Literal 0x0 0322 00d9 | | Load_Top At_Offset_1 0323 e406 | | Load 0x2,0x6 0324 01d6 | | Execute Vector,Field_Write 0325 3ffb |? | Loop_Increasing 0x321 0326 00cd | | Action Spare6_Action 0327 00db | | Load_Top At_Offset_3 0328 01d4 | | Execute Vector,Structure_Write 0329 e5ff | | Load 0x2,-0x1 032a 4801 |H | Short_Literal 0x1 032b e5ff | | Load 0x2,-0x1 032c 01db | | Execute Vector,Length 032d 00d8 | | Load_Top At_Offset_0 032e 00e2 | | Load_Encached Integer_Cache 032f 0260 | ` | Execute Discrete,In_Type 0330 7001 |p | Jump_Nonzero 0x332 0331 0801 | | Execute_Immediate Raise,0x1 0332 e402 | | Load 0x2,0x2 0333 01ce | | Execute Vector,Slice_Write 0334 781b |x | Jump 0x350 0335 00da 0a01 | | .XXX[0x1b] 0337 e402 01d7 | | 0339 0052 00da | R | 033b e402 01d7 | | 033d 00db 0a01 | | 033f e402 01d6 | | 0341 00d9 00db | | 0343 e402 01d6 | | 0345 00da 0a02 | | 0347 005b 00c9 | [ | 0349 00da 0a01 | | 034b e402 01da | | 034d 0262 77e6 | bw | 034f 00ce | | 0350 00da | | Load_Top At_Offset_2 0351 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0352 0000 0000 | | .BLANK 0000[0x6] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00da | | Load_Top At_Offset_2 035c e210 | | Load 0x1,0x10 035d 011c | | Execute Any,Convert_Unchecked 035e 1c01 | | Execute_Immediate Run_Utility,0x1 035f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 e210 | | Load 0x1,0x10 0365 1c02 | | Execute_Immediate Run_Utility,0x2 0366 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0367 0000 | | .XXX[0x1] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c 00d8 | | Load_Top At_Offset_0 036d e210 | | Load 0x1,0x10 036e 0260 | ` | Execute Discrete,In_Type 036f 7001 |p | Jump_Nonzero 0x371 0370 0801 | | Execute_Immediate Raise,0x1 0371 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0372 0000 0000 | | .BLANK 0000[0x6] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0383 | | .CONST 0x0383 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0003 | | .CONST 0x0003 ; Number of locals 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c 01dd | | Execute Vector,First 037d 00e3 | | Load_Encached Natural_Cache 037e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 037f 00db | | Load_Top At_Offset_3 0380 01dc | | Execute Vector,Last 0381 00e3 | | Load_Encached Natural_Cache 0382 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0383 BODY_0378: 0383 00cf | | Action Mark_Auxiliary 0384 7804 |x | Jump 0x389 0385 00d9 | | Load_Top At_Offset_1 0386 0aff | | Execute_Immediate Plus,-0x1 0387 005a | Z | Store_Top Discrete,At_Offset_2 0388 00c9 | | Action Pop_Auxiliary_Loop 0389 00d9 | | Load_Top At_Offset_1 038a e5ff | | Load 0x2,-0x1 038b 01da | | Execute Vector,Bounds 038c 0262 | b | Execute Discrete,In_Range 038d 6804 |h | Jump_Zero 0x392 038e 00d9 | | Load_Top At_Offset_1 038f e5ff | | Load 0x2,-0x1 0390 01d7 | | Execute Vector,Field_Read 0391 6ff3 |o | Jump_Zero 0x385 0392 00ce | | Action Pop_Auxiliary 0393 00d9 | | Load_Top At_Offset_1 0394 00d9 | | Load_Top At_Offset_1 0395 e5ff | | Load 0x2,-0x1 0396 01cf | | Execute Vector,Slice_Read 0397 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0398 ; -------------------------------------------------------------------------------------- 0398 ; STRING TABLE 0398 ; -------------------------------------------------------------------------------------- 0398 001e | | .STRTAB 0x001e->0x03a7 ; "MB2" 0399 001f | | .STRTAB 0x001f->0x03a8 ; "MB8" 039a 0020 | | .STRTAB 0x0020->0x03aa ; "FALSE" 039b 0023 | # | .STRTAB 0x0023->0x03ac ; "TRUE" 039c 0025 | % | .STRTAB 0x0025->0x03ae ; "ADA_BASE" 039d 002b | + | .STRTAB 0x002b->0x03b2 ; "MACHINE_INTERFACE" 039e 003a | : | .STRTAB 0x003a->0x03bb ; "KERNEL_DEBUGGER_IO" 039f 004a | J | .STRTAB 0x004a->0x03c4 ; "KERNEL_DEBUGGER" 03a0 0057 | W | .STRTAB 0x0057->0x03cb ; "KERNEL" 03a1 005b | [ | .STRTAB 0x005b->0x03ce ; "ENVIRONMENT_DEBUGGER" 03a2 006d | m | .STRTAB 0x006d->0x03d8 ; "ABSTRACT_TYPES" 03a3 0079 | y | .STRTAB 0x0079->0x03df ; "MISCELLANEOUS" 03a4 0084 | | .STRTAB 0x0084->0x03e6 ; "OS_UTILITIES" 03a5 008e | | .STRTAB 0x008e->0x03ec ; "ELABORATOR_DATABASE" 03a6 009f | | .STREND 0x009f->0x03f5 03a7 4d42 324d |MB2M| .STRTAB_STRINGS 03f6 0000 0000 | | .XXX[0x2] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; Debug Table 03f8 ; -------------------------------------------------------------------------------------- 03f8 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf219,0x0000,0x0001,0x0000 03fe 5d24 0009 |]$ | .XXX[0x2]