|
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_191cd7
└─⟦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 0360 | ` | .CONST 0x0360 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 004c | L | .CONST 0x004c ; Address of begin 0019 0050 | P | .CONST 0x0050 ; Address of exception handler 001a 0009 | | .CONST 0x0009 ; Number of locals 001b INIT_0018: 001b 0007 | | Action Break_Optional 001c 0007 | | Action Break_Optional 001d e002 | | Load 0x0,0x2 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 02c7 | | Declare_Variable Any 0020 e5fc | | Load 0x2,-0x4 0021 e002 | | Load 0x0,0x2 0022 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0023 a402 | | Store_Unchecked 0x2,0x2 0024 0093 0000 | | push_full_address 0x0 0026 6049 |`I | Indirect_Literal Discrete,0x70,{0x80000000, 0x00010000} 0027 0273 | s | Execute Discrete,Plus 0028 0007 | | Action Break_Optional 0029 0092 02db | | Action Push_String_Extended,0x2db ; "!Machine.Temporary.Parameterize_Ada_Unit_" 002b 4802 |H | Short_Literal 0x2 002c 4800 |H | Short_Literal 0x0 002d 4804 |H | Short_Literal 0x4 002e e003 | | Load 0x0,0x3 002f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0030 e003 | | Load 0x0,0x3 0031 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0032 01cc | | Execute Vector,Catenate 0033 0092 02dc | | Action Push_String_Extended,0x2dc ; "_" 0035 01cc | | Execute Vector,Catenate 0036 4801 |H | Short_Literal 0x1 0037 4803 |H | Short_Literal 0x3 0038 4800 |H | Short_Literal 0x0 0039 e003 | | Load 0x0,0x3 003a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 003b e003 | | Load 0x0,0x3 003c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 003d 01cc | | Execute Vector,Catenate 003e 0007 | | Action Break_Optional 003f e004 | | Load 0x0,0x4 0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0041 02c7 | | Declare_Variable Any 0042 00d8 | | Load_Top At_Offset_0 0043 1c00 | | Execute_Immediate Run_Utility,0x0 0044 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0046 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0048 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 004a 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 004c BODY_0018: 004c e5fe | | Load 0x2,-0x2 004d 8005 | | Call 0x0,0x5 004e 8409 | | Call 0x2,0x9 004f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0050 TRAP_0018: 0050 e403 | | Load 0x2,0x3 0051 010f | | Execute Exception,Equal 0052 7004 |p | Jump_Nonzero 0x57 0053 e002 | | Load 0x0,0x2 0054 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0055 010f | | Execute Exception,Equal 0056 6809 |h | Jump_Zero 0x60 0057 e402 | | Load 0x2,0x2 0058 4802 |H | Short_Literal 0x2 0059 0092 02dd | | Action Push_String_Extended,0x2dd ; "[End Parameterize_Ada_Unit]" 005b e006 | | Load 0x0,0x6 005c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005d e002 | | Load 0x0,0x2 005e 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 005f 0257 | W | Execute Discrete,Raise 0060 e402 | | Load 0x2,0x2 0061 4808 |H | Short_Literal 0x8 0062 0092 02de | | Action Push_String_Extended,0x2de ; "Unexpected exception: " 0064 4801 |H | Short_Literal 0x1 0065 4801 |H | Short_Literal 0x1 0066 e007 | | Load 0x0,0x7 0067 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0068 01cc | | Execute Vector,Catenate 0069 e006 | | Load 0x0,0x6 006a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006b 00d8 | | Load_Top At_Offset_0 006c 0101 | | Execute Exception,Reraise 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0074 0000 0000 | | .BLANK 0000[0x4] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 00a3 | | .CONST 0x00a3 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0011 | | .CONST 0x0011 ; Number of locals 007b INIT_0078: 007b e004 | | Load 0x0,0x4 007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007d 02c7 | | Declare_Variable Any 007e 00d8 | | Load_Top At_Offset_0 007f 1c00 | | Execute_Immediate Run_Utility,0x0 0080 e004 | | Load 0x0,0x4 0081 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0082 02c7 | | Declare_Variable Any 0083 00d8 | | Load_Top At_Offset_0 0084 1c00 | | Execute_Immediate Run_Utility,0x0 0085 4801 |H | Short_Literal 0x1 0086 6035 |`5 | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00000400} 0087 00e9 | | Load_Encached String_Cache 0088 035b | [ | Declare_Type Array,Constrained 0089 0337 | 7 | Declare_Variable Array 008a 4801 |H | Short_Literal 0x1 008b 6030 |`0 | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00000400} 008c 00e9 | | Load_Encached String_Cache 008d 035b | [ | Declare_Type Array,Constrained 008e 0337 | 7 | Declare_Variable Array 008f 00e3 | | Load_Encached Natural_Cache 0090 00e3 | | Load_Encached Natural_Cache 0091 e004 | | Load 0x0,0x4 0092 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0093 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0094 e004 | | Load 0x0,0x4 0095 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0096 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0097 00e1 | | Load_Encached Boolean_Cache 0098 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0099 00e1 | | Load_Encached Boolean_Cache 009a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009b 00e1 | | Load_Encached Boolean_Cache 009c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009d 00e3 | | Load_Encached Natural_Cache 009e 00e3 | | Load_Encached Natural_Cache 009f 00e3 | | Load_Encached Natural_Cache 00a0 00e3 | | Load_Encached Natural_Cache 00a1 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 00a3 BODY_0078: 00a3 e602 | | Load 0x3,0x2 00a4 00ea | | Load_Encached Null_String_Cache 00a5 e7ff | | Load 0x3,-0x1 00a6 4800 |H | Short_Literal 0x0 00a7 e004 | | Load 0x0,0x4 00a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a9 c602 | | Store 0x3,0x2 00aa e603 | | Load 0x3,0x3 00ab 00ea | | Load_Encached Null_String_Cache 00ac e7fe | | Load 0x3,-0x2 00ad 4800 |H | Short_Literal 0x0 00ae e004 | | Load 0x0,0x4 00af 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b0 c603 | | Store 0x3,0x3 00b1 8611 | | Call 0x3,0x11 00b2 e602 | | Load 0x3,0x2 00b3 e004 | | Load 0x0,0x4 00b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b5 c602 | | Store 0x3,0x2 00b6 e603 | | Load 0x3,0x3 00b7 e004 | | Load 0x0,0x4 00b8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b9 c603 | | Store 0x3,0x3 00ba 4801 |H | Short_Literal 0x1 00bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00bc 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c5 | | .CONST 0x00c5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 00c5 BODY_00c0: 00c5 e402 | | Load 0x2,0x2 00c6 4803 |H | Short_Literal 0x3 00c7 0092 02df | | Action Push_String_Extended,0x2df ; "Process " 00c9 e7ff | | Load 0x3,-0x1 00ca 01cc | | Execute Vector,Catenate 00cb e006 | | Load 0x0,0x6 00cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cd 4800 |H | Short_Literal 0x0 00ce e404 | | Load 0x2,0x4 00cf e7ff | | Load 0x3,-0x1 00d0 8008 | | Call 0x0,0x8 00d1 e404 | | Load 0x2,0x4 00d2 e7ff | | Load 0x3,-0x1 00d3 8406 | | Call 0x2,0x6 00d4 6831 |h1 | Jump_Zero 0x106 00d5 e5fc | | Load 0x2,-0x4 00d6 4800 |H | Short_Literal 0x0 00d7 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "<ALL_WORLDS>" 00d9 4801 |H | Short_Literal 0x1 00da e7ff | | Load 0x3,-0x1 00db e009 | | Load 0x0,0x9 00dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00dd 8602 | | Call 0x3,0x2 00de 4801 |H | Short_Literal 0x1 00df e00a | | Load 0x0,0xa 00e0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e2 4801 |H | Short_Literal 0x1 00e3 4800 |H | Short_Literal 0x0 00e4 e7ff | | Load 0x3,-0x1 00e5 e00b | | Load 0x0,0xb 00e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e7 4800 |H | Short_Literal 0x0 00e8 e00a | | Load 0x0,0xa 00e9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ea 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00eb 4800 |H | Short_Literal 0x0 00ec 601b |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x0001869f} 00ed 4801 |H | Short_Literal 0x1 00ee 4801 |H | Short_Literal 0x1 00ef 00e9 | | Load_Encached String_Cache 00f0 0334 | 4 | Declare_Variable Array,With_Constraint 00f1 480c |H | Short_Literal 0xc 00f2 4801 |H | Short_Literal 0x1 00f3 00da | | Load_Top At_Offset_2 00f4 01d6 | | Execute Vector,Field_Write 00f5 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "<!EOP!>" 00f7 e00a | | Load 0x0,0xa 00f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00fa e00c | | Load 0x0,0xc 00fb 180f | | Execute Package,Field_Execute,Field_Number 0xf 00fc 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "<IMAGE>" 00fe e00b | | Load 0x0,0xb 00ff 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0100 e00a | | Load 0x0,0xa 0101 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0102 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0103 e00a | | Load 0x0,0xa 0104 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0105 180e | | Execute Package,Field_Execute,Field_Number 0xe 0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0107 0000 | | .XXX[0x1] 0108 0000 0000 | | .LITERAL {0x00000000, 0x0001869f} 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 00cf | | Action Mark_Auxiliary 0114 00db | | Load_Top At_Offset_3 0115 01da | | Execute Vector,Bounds 0116 0264 | d | Execute Discrete,Below_Bound 0117 704e |pN | Jump_Nonzero 0x166 0118 00d8 | | Load_Top At_Offset_0 0119 e7ff | | Load 0x3,-0x1 011a 01d7 | | Execute Vector,Field_Read 011b 0f27 | ' | Execute_Immediate Equal,0x27 011c 6847 |hG | Jump_Zero 0x164 011d 00d8 | | Load_Top At_Offset_0 011e e7ff | | Load 0x3,-0x1 011f 01dc | | Execute Vector,Last 0120 0afc | | Execute_Immediate Plus,-0x4 0121 027a | z | Execute Discrete,Less_Equal 0122 6841 |hA | Jump_Zero 0x164 0123 00d8 | | Load_Top At_Offset_0 0124 00d9 | | Load_Top At_Offset_1 0125 0a02 | | Execute_Immediate Plus,0x2 0126 00d8 | | Load_Top At_Offset_0 0127 00e2 | | Load_Encached Integer_Cache 0128 0260 | ` | Execute Discrete,In_Type 0129 7001 |p | Jump_Nonzero 0x12b 012a 0801 | | Execute_Immediate Raise,0x1 012b e7ff | | Load 0x3,-0x1 012c 01cf | | Execute Vector,Slice_Read 012d 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "'V(" 012f 01df | | Execute Vector,Equal 0130 6833 |h3 | Jump_Zero 0x164 0131 00cf | | Action Mark_Auxiliary 0132 e7ff | | Load 0x3,-0x1 0133 01dc | | Execute Vector,Last 0134 00da | | Load_Top At_Offset_2 0135 0a03 | | Execute_Immediate Plus,0x3 0136 00d8 | | Load_Top At_Offset_0 0137 00e2 | | Load_Encached Integer_Cache 0138 0260 | ` | Execute Discrete,In_Type 0139 7001 |p | Jump_Nonzero 0x13b 013a 0801 | | Execute_Immediate Raise,0x1 013b 0263 | c | Execute Discrete,Above_Bound 013c 7026 |p& | Jump_Nonzero 0x163 013d 00d8 | | Load_Top At_Offset_0 013e e7ff | | Load 0x3,-0x1 013f 01d7 | | Execute Vector,Field_Read 0140 0f29 | ) | Execute_Immediate Equal,0x29 0141 681f |h | Jump_Zero 0x161 0142 00d8 | | Load_Top At_Offset_0 0143 e7ff | | Load 0x3,-0x1 0144 01dc | | Execute Vector,Last 0145 027f | | Execute Discrete,Equal 0146 6807 |h | Jump_Zero 0x14e 0147 e7ff | | Load 0x3,-0x1 0148 01dd | | Execute Vector,First 0149 e604 | | Load 0x3,0x4 014a 0aff | | Execute_Immediate Plus,-0x1 014b e7ff | | Load 0x3,-0x1 014c 01cf | | Execute Vector,Slice_Read 014d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014e e7ff | | Load 0x3,-0x1 014f 01dd | | Execute Vector,First 0150 e604 | | Load 0x3,0x4 0151 0aff | | Execute_Immediate Plus,-0x1 0152 e7ff | | Load 0x3,-0x1 0153 01cf | | Execute Vector,Slice_Read 0154 00d9 | | Load_Top At_Offset_1 0155 0a01 | | Execute_Immediate Plus,0x1 0156 00d8 | | Load_Top At_Offset_0 0157 00e2 | | Load_Encached Integer_Cache 0158 0260 | ` | Execute Discrete,In_Type 0159 7001 |p | Jump_Nonzero 0x15b 015a 0801 | | Execute_Immediate Raise,0x1 015b e7ff | | Load 0x3,-0x1 015c 01dc | | Execute Vector,Last 015d e7ff | | Load 0x3,-0x1 015e 01cf | | Execute Vector,Slice_Read 015f 01cc | | Execute Vector,Catenate 0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0161 00c8 | | Action Pop_Auxiliary_Range 0162 3fda |? | Loop_Increasing 0x13d 0163 00ce | | Action Pop_Auxiliary 0164 00c8 | | Action Pop_Auxiliary_Range 0165 37b2 |7 | Loop_Decreasing 0x118 0166 00ce | | Action Pop_Auxiliary 0167 0831 | 1 | Execute_Immediate Raise,0x31 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0179 | y | .CONST 0x0179 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0004 | | .CONST 0x0004 ; Number of locals 016b INIT_0168: 016b e00d | | Load 0x0,0xd 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 016e 02c7 | | Declare_Variable Any 016f 00d8 | | Load_Top At_Offset_0 0170 1c00 | | Execute_Immediate Run_Utility,0x0 0171 e00d | | Load 0x0,0xd 0172 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0173 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0174 02c7 | | Declare_Variable Any 0175 00d8 | | Load_Top At_Offset_0 0176 1c00 | | Execute_Immediate Run_Utility,0x0 0177 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 0179 BODY_0168: 0179 e402 | | Load 0x2,0x2 017a 4802 |H | Short_Literal 0x2 017b 0092 02e4 | | Action Push_String_Extended,0x2e4 ; "[Parameterize_Ada_Unit (" 017d e5ff | | Load 0x2,-0x1 017e 01cc | | Execute Vector,Catenate 017f 0092 02e5 | | Action Push_String_Extended,0x2e5 ; ")]" 0181 01cc | | Execute Vector,Catenate 0182 e006 | | Load 0x0,0x6 0183 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0184 4801 |H | Short_Literal 0x1 0185 e00d | | Load 0x0,0xd 0186 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0187 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0188 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "[" 018a e5ff | | Load 0x2,-0x1 018b 01cc | | Execute Vector,Catenate 018c 0092 02e7 | | Action Push_String_Extended,0x2e7 ; "]'c(ada)" 018e 01cc | | Execute Vector,Catenate 018f e00d | | Load 0x0,0xd 0190 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0191 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0192 c602 | | Store 0x3,0x2 0193 00da | | Load_Top At_Offset_2 0194 e00d | | Load 0x0,0xd 0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0196 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0197 680a |h | Jump_Zero 0x1a2 0198 e402 | | Load 0x2,0x2 0199 4807 |H | Short_Literal 0x7 019a e5ff | | Load 0x2,-0x1 019b 0092 02e8 | | Action Push_String_Extended,0x2e8 ; " does not match any existing Ada units." 019d 01cc | | Execute Vector,Catenate 019e e006 | | Load 0x0,0x6 019f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a0 e403 | | Load 0x2,0x3 01a1 0257 | W | Execute Discrete,Raise 01a2 00cf | | Action Mark_Auxiliary 01a3 0007 | | Action Break_Optional 01a4 00db | | Load_Top At_Offset_3 01a5 e00d | | Load 0x0,0xd 01a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01a8 c603 | | Store 0x3,0x3 01a9 8604 | | Call 0x3,0x4 01aa 00db | | Load_Top At_Offset_3 01ab e00d | | Load 0x0,0xd 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01ae c602 | | Store 0x3,0x2 01af 00db | | Load_Top At_Offset_3 01b0 e00d | | Load 0x0,0xd 01b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01b3 6801 |h | Jump_Zero 0x1b5 01b4 7802 |x | Jump 0x1b7 01b5 00c9 | | Action Pop_Auxiliary_Loop 01b6 7fed | | Jump 0x1a4 01b7 00ce | | Action Pop_Auxiliary 01b8 e5fd | | Load 0x2,-0x3 01b9 6809 |h | Jump_Zero 0x1c3 01ba e5fc | | Load 0x2,-0x4 01bb 4800 |H | Short_Literal 0x0 01bc 0092 02e9 | | Action Push_String_Extended,0x2e9 ; "<WORLDS>" 01be 4802 |H | Short_Literal 0x2 01bf 4802 |H | Short_Literal 0x2 01c0 e5ff | | Load 0x2,-0x1 01c1 e009 | | Load 0x0,0x9 01c2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01c3 e5fc | | Load 0x2,-0x4 01c4 0092 02ea | | Action Push_String_Extended,0x2ea ; " ~:::" 01c6 01cc | | Execute Vector,Catenate 01c7 0092 02e9 | | Action Push_String_Extended,0x2e9 ; "<WORLDS>" 01c9 e404 | | Load 0x2,0x4 01ca e009 | | Load 0x0,0x9 01cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01cc e402 | | Load 0x2,0x2 01cd 4802 |H | Short_Literal 0x2 01ce 0092 02dd | | Action Push_String_Extended,0x2dd ; "[End Parameterize_Ada_Unit]" 01d0 e006 | | Load 0x0,0x6 01d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d3 0000 0000 | | .BLANK 0000[0x5] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0284 | | .CONST 0x0284 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00cf | | Action Mark_Auxiliary 01dc 0007 | | Action Break_Optional 01dd e602 | | Load 0x3,0x2 01de e004 | | Load 0x0,0x4 01df 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01e0 680f |h | Jump_Zero 0x1f0 01e1 e603 | | Load 0x3,0x3 01e2 e004 | | Load 0x0,0x4 01e3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01e4 680b |h | Jump_Zero 0x1f0 01e5 e602 | | Load 0x3,0x2 01e6 e004 | | Load 0x0,0x4 01e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e8 c602 | | Store 0x3,0x2 01e9 e603 | | Load 0x3,0x3 01ea e004 | | Load 0x0,0x4 01eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ec c603 | | Store 0x3,0x3 01ed 4800 |H | Short_Literal 0x0 01ee 00cb | | Action Pop_Block_With_Result 01ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f0 00e3 | | Load_Encached Natural_Cache 01f1 e604 | | Load 0x3,0x4 01f2 e602 | | Load 0x3,0x2 01f3 e004 | | Load 0x0,0x4 01f4 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 01f5 00d1 | | Pop_Control Pop_Count_1 01f6 c606 | | Store 0x3,0x6 01f7 4801 |H | Short_Literal 0x1 01f8 a60d | | Store_Unchecked 0x3,0xd 01f9 00cf | | Action Mark_Auxiliary 01fa e606 | | Load 0x3,0x6 01fb 4801 |H | Short_Literal 0x1 01fc 0263 | c | Execute Discrete,Above_Bound 01fd 7012 |p | Jump_Nonzero 0x210 01fe 00d8 | | Load_Top At_Offset_0 01ff e604 | | Load 0x3,0x4 0200 01d7 | | Execute Vector,Field_Read 0201 0f20 | | Execute_Immediate Equal,0x20 0202 7005 |p | Jump_Nonzero 0x208 0203 00d8 | | Load_Top At_Offset_0 0204 e604 | | Load 0x3,0x4 0205 01d7 | | Execute Vector,Field_Read 0206 0f09 | | Execute_Immediate Equal,0x9 0207 6804 |h | Jump_Zero 0x20c 0208 00d8 | | Load_Top At_Offset_0 0209 0a01 | | Execute_Immediate Plus,0x1 020a c60d | | Store 0x3,0xd 020b 7802 |x | Jump 0x20e 020c 00d2 | | Pop_Control Pop_Count_2 020d 7802 |x | Jump 0x210 020e 00c8 | | Action Pop_Auxiliary_Range 020f 3fee |? | Loop_Increasing 0x1fe 0210 00ce | | Action Pop_Auxiliary 0211 e606 | | Load 0x3,0x6 0212 a60f | | Store_Unchecked 0x3,0xf 0213 00cf | | Action Mark_Auxiliary 0214 e60d | | Load 0x3,0xd 0215 e606 | | Load 0x3,0x6 0216 0264 | d | Execute Discrete,Below_Bound 0217 7012 |p | Jump_Nonzero 0x22a 0218 00d8 | | Load_Top At_Offset_0 0219 e604 | | Load 0x3,0x4 021a 01d7 | | Execute Vector,Field_Read 021b 0f20 | | Execute_Immediate Equal,0x20 021c 7005 |p | Jump_Nonzero 0x222 021d 00d8 | | Load_Top At_Offset_0 021e e604 | | Load 0x3,0x4 021f 01d7 | | Execute Vector,Field_Read 0220 0f09 | | Execute_Immediate Equal,0x9 0221 6804 |h | Jump_Zero 0x226 0222 00d8 | | Load_Top At_Offset_0 0223 0aff | | Execute_Immediate Plus,-0x1 0224 c60f | | Store 0x3,0xf 0225 7802 |x | Jump 0x228 0226 00d2 | | Pop_Control Pop_Count_2 0227 7802 |x | Jump 0x22a 0228 00c8 | | Action Pop_Auxiliary_Range 0229 37ee |7 | Loop_Decreasing 0x218 022a 00ce | | Action Pop_Auxiliary 022b 00e3 | | Load_Encached Natural_Cache 022c e605 | | Load 0x3,0x5 022d e603 | | Load 0x3,0x3 022e e004 | | Load 0x0,0x4 022f 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 0230 00d1 | | Pop_Control Pop_Count_1 0231 c607 | | Store 0x3,0x7 0232 4801 |H | Short_Literal 0x1 0233 a60e | | Store_Unchecked 0x3,0xe 0234 00cf | | Action Mark_Auxiliary 0235 e607 | | Load 0x3,0x7 0236 4801 |H | Short_Literal 0x1 0237 0263 | c | Execute Discrete,Above_Bound 0238 7012 |p | Jump_Nonzero 0x24b 0239 00d8 | | Load_Top At_Offset_0 023a e605 | | Load 0x3,0x5 023b 01d7 | | Execute Vector,Field_Read 023c 0f20 | | Execute_Immediate Equal,0x20 023d 7005 |p | Jump_Nonzero 0x243 023e 00d8 | | Load_Top At_Offset_0 023f e605 | | Load 0x3,0x5 0240 01d7 | | Execute Vector,Field_Read 0241 0f09 | | Execute_Immediate Equal,0x9 0242 6804 |h | Jump_Zero 0x247 0243 00d8 | | Load_Top At_Offset_0 0244 0a01 | | Execute_Immediate Plus,0x1 0245 c60e | | Store 0x3,0xe 0246 7802 |x | Jump 0x249 0247 00d2 | | Pop_Control Pop_Count_2 0248 7802 |x | Jump 0x24b 0249 00c8 | | Action Pop_Auxiliary_Range 024a 3fee |? | Loop_Increasing 0x239 024b 00ce | | Action Pop_Auxiliary 024c e607 | | Load 0x3,0x7 024d a610 | | Store_Unchecked 0x3,0x10 024e 00cf | | Action Mark_Auxiliary 024f e60e | | Load 0x3,0xe 0250 e607 | | Load 0x3,0x7 0251 0264 | d | Execute Discrete,Below_Bound 0252 7012 |p | Jump_Nonzero 0x265 0253 00d8 | | Load_Top At_Offset_0 0254 e605 | | Load 0x3,0x5 0255 01d7 | | Execute Vector,Field_Read 0256 0f20 | | Execute_Immediate Equal,0x20 0257 7005 |p | Jump_Nonzero 0x25d 0258 00d8 | | Load_Top At_Offset_0 0259 e605 | | Load 0x3,0x5 025a 01d7 | | Execute Vector,Field_Read 025b 0f09 | | Execute_Immediate Equal,0x9 025c 6804 |h | Jump_Zero 0x261 025d 00d8 | | Load_Top At_Offset_0 025e 0aff | | Execute_Immediate Plus,-0x1 025f c610 | | Store 0x3,0x10 0260 7802 |x | Jump 0x263 0261 00d2 | | Pop_Control Pop_Count_2 0262 7802 |x | Jump 0x265 0263 00c8 | | Action Pop_Auxiliary_Range 0264 37ee |7 | Loop_Decreasing 0x253 0265 00ce | | Action Pop_Auxiliary 0266 e602 | | Load 0x3,0x2 0267 e004 | | Load 0x0,0x4 0268 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0269 e603 | | Load 0x3,0x3 026a e004 | | Load 0x0,0x4 026b 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 026c 027f | | Execute Discrete,Equal 026d 6815 |h | Jump_Zero 0x283 026e e60f | | Load 0x3,0xf 026f e60d | | Load 0x3,0xd 0270 0272 | r | Execute Discrete,Minus 0271 e610 | | Load 0x3,0x10 0272 e60e | | Load 0x3,0xe 0273 0272 | r | Execute Discrete,Minus 0274 027e | ~ | Execute Discrete,Not_Equal 0275 700d |p | Jump_Nonzero 0x283 0276 e60d | | Load 0x3,0xd 0277 e60f | | Load 0x3,0xf 0278 e604 | | Load 0x3,0x4 0279 01cf | | Execute Vector,Slice_Read 027a e60e | | Load 0x3,0xe 027b e610 | | Load 0x3,0x10 027c e605 | | Load 0x3,0x5 027d 01cf | | Execute Vector,Slice_Read 027e 01de | | Execute Vector,Not_Equal 027f 6801 |h | Jump_Zero 0x281 0280 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0281 00c9 | | Action Pop_Auxiliary_Loop 0282 7f5a | Z | Jump 0x1dd 0283 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0284 TRAP_01d8: 0284 00d8 | | Load_Top At_Offset_0 0285 0107 | | Execute Exception,Get_Name 0286 4950 |IP | Short_Literal 0x150 0287 495f |I_ | Short_Literal 0x15f 0288 0262 | b | Execute Discrete,In_Range 0289 6802 |h | Jump_Zero 0x28c 028a 0008 | | Action Idle 028b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028c 0100 | | Execute Exception,Raise 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 02a3 | | .CONST 0x02a3 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 0092 02eb | | Action Push_String_Extended,0x2eb ; "V" 0295 4801 |H | Short_Literal 0x1 0296 e00d | | Load 0x0,0xd 0297 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0298 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0299 e7ff | | Load 0x3,-0x1 029a e00d | | Load 0x0,0xd 029b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 029d e00d | | Load 0x0,0xd 029e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02a0 e00d | | Load 0x0,0xd 02a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02a3 BODY_0290: 02a3 e5fc | | Load 0x2,-0x4 02a4 00ea | | Load_Encached Null_String_Cache 02a5 4800 |H | Short_Literal 0x0 02a6 e7ff | | Load 0x3,-0x1 02a7 e00d | | Load 0x0,0xd 02a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02aa 0092 02ec | | Action Push_String_Extended,0x2ec ; ".$" 02ac 01cc | | Execute Vector,Catenate 02ad e404 | | Load 0x2,0x4 02ae e009 | | Load 0x0,0x9 02af 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02b0 00d8 | | Load_Top At_Offset_0 02b1 0092 02eb | | Action Push_String_Extended,0x2eb ; "V" 02b3 4801 |H | Short_Literal 0x1 02b4 e00d | | Load 0x0,0xd 02b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b7 e7ff | | Load 0x3,-0x1 02b8 e00d | | Load 0x0,0xd 02b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ba 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02bb e00d | | Load 0x0,0xd 02bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02bd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02be e00d | | Load 0x0,0xd 02bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02c1 01df | | Execute Vector,Equal 02c2 6807 |h | Jump_Zero 0x2ca 02c3 e402 | | Load 0x2,0x2 02c4 e002 | | Load 0x0,0x2 02c5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02c6 6803 |h | Jump_Zero 0x2ca 02c7 e002 | | Load 0x0,0x2 02c8 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 02c9 0257 | W | Execute Discrete,Raise 02ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02cb 0000 0000 | | .BLANK 0000[0x5] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d8 | | .CONST 0x02d8 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0002 | | .CONST 0x0002 ; Number of locals 02d3 INIT_02d0: 02d3 e603 | | Load 0x3,0x3 02d4 e00d | | Load 0x0,0xd 02d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02d7 8408 | | Call 0x2,0x8 02d8 BODY_02d0: 02d8 00d8 | | Load_Top At_Offset_0 02d9 8407 | | Call 0x2,0x7 02da 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02db ; -------------------------------------------------------------------------------------- 02db ; STRING TABLE 02db ; -------------------------------------------------------------------------------------- 02db 0026 | & | .STRTAB 0x0026->0x02ee ; "!Machine.Temporary.Parameterize_Ada_Unit_" 02dc 004d | M | .STRTAB 0x004d->0x0302 ; "_" 02dd 004c | L | .STRTAB 0x004c->0x0303 ; "[End Parameterize_Ada_Unit]" 02de 0065 | e | .STRTAB 0x0065->0x0310 ; "Unexpected exception: " 02df 0079 | y | .STRTAB 0x0079->0x031b ; "Process " 02e0 007f | | .STRTAB 0x007f->0x031f ; "<ALL_WORLDS>" 02e1 0089 | | .STRTAB 0x0089->0x0325 ; "<!EOP!>" 02e2 008e | | .STRTAB 0x008e->0x0329 ; "<IMAGE>" 02e3 0093 | | .STRTAB 0x0093->0x032c ; "'V(" 02e4 0094 | | .STRTAB 0x0094->0x032e ; "[Parameterize_Ada_Unit (" 02e5 00aa | | .STRTAB 0x00aa->0x033a ; ")]" 02e6 00aa | | .STRTAB 0x00aa->0x033b ; "[" 02e7 00a9 | | .STRTAB 0x00a9->0x033b ; "]'c(ada)" 02e8 00af | | .STRTAB 0x00af->0x033f ; " does not match any existing Ada units." 02e9 00d4 | | .STRTAB 0x00d4->0x0353 ; "<WORLDS>" 02ea 00da | | .STRTAB 0x00da->0x0357 ; " ~:::" 02eb 00dd | | .STRTAB 0x00dd->0x0359 ; "V" 02ec 00dc | | .STRTAB 0x00dc->0x035a ; ".$" 02ed 00dc | | .STREND 0x00dc->0x035b 02ee 214d 6163 |!Mac| .STRTAB_STRINGS 035b 0000 0000 | | .BLANK 0000[0x5] 0360 ; -------------------------------------------------------------------------------------- 0360 ; Debug Table 0360 ; -------------------------------------------------------------------------------------- 0360 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4d2c,0x0000,0x0001,0x0009 0366 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 036a 001b 038a | | .DBG4T 0x001b,0x038a,0x8001,0x0000 036e 007b 039c | { | .DBG4T 0x007b,0x039c,0x0002,0x0000 0372 00c3 03b3 | | .DBG4T 0x00c3,0x03b3,0x0001,0x0000 0376 0113 03c2 | | .DBG4T 0x0113,0x03c2,0x0002,0x0000 037a 016b 03cb | k | .DBG4T 0x016b,0x03cb,0x0001,0x0000 037e 01db 03df | | .DBG4T 0x01db,0x03df,0x0004,0x0000 0382 0293 03ff | | .DBG4T 0x0293,0x03ff,0x0004,0x0000 0386 02d3 0406 | | .DBG4T 0x02d3,0x0406,0x0004,0x0000 038a ; -------------------------------------------------------------------------------------- 038a ; Debug chain 038a ; -------------------------------------------------------------------------------------- 038a 000a 0006 | | .DBGLEN 0x000a,0x0006 038c 001b 001c | | .DBGLNO 0x001b,0x001c,0x001d,0x0024,0x0029,0x003f,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0057,0x005d,0x0060,0x006b 039c ; -------------------------------------------------------------------------------------- 039c ; Debug chain 039c ; -------------------------------------------------------------------------------------- 039c 000f 0006 | | .DBGLEN 0x000f,0x0006 039e 007b 0080 | { | .DBGLNO 0x007b,0x0080,0x0085,0x008a,0x008f,0x0090,0x0091,0x0094,0x0097,0x0099,0x009b,0x009d,0x009e,0x009f,0x00a0,0x00a3,0x00aa,0x00b1,0x00b2,0x00b6,0x00ba 03b3 ; -------------------------------------------------------------------------------------- 03b3 ; Debug chain 03b3 ; -------------------------------------------------------------------------------------- 03b3 0000 000d | | .DBGLEN 0x0000,0x000d 03b5 00c5 00cd | | .DBGLNO 0x00c5,0x00cd,0x00d1,0x00d5,0x00dd,0x00de,0x00e2,0x00e7,0x00eb,0x00fa,0x00fc,0x0100,0x0103 03c2 ; -------------------------------------------------------------------------------------- 03c2 ; Debug chain 03c2 ; -------------------------------------------------------------------------------------- 03c2 0000 0007 | | .DBGLEN 0x0000,0x0007 03c4 0114 0118 | | .DBGLNO 0x0114,0x0118,0x0132,0x013d,0x0142,0x0147,0x014e 03cb ; -------------------------------------------------------------------------------------- 03cb ; Debug chain 03cb ; -------------------------------------------------------------------------------------- 03cb 0002 0010 | | .DBGLEN 0x0002,0x0010 03cd 016b 0171 | k q| .DBGLNO 0x016b,0x0171,0x0179,0x0184,0x0193,0x0198,0x01a0,0x01a3,0x01a4,0x01a9,0x01aa,0x01af,0x01b4,0x01b8,0x01ba,0x01c3,0x01cc,0x01d2 03df ; -------------------------------------------------------------------------------------- 03df ; Debug chain 03df ; -------------------------------------------------------------------------------------- 03df 0000 001e | | .DBGLEN 0x0000,0x001e 03e1 01dc 01dd | | .DBGLNO 0x01dc,0x01dd,0x01e5,0x01e9,0x01ed,0x01f0,0x01f7,0x01fa,0x01fe,0x0208,0x020c,0x0211,0x0214,0x0218,0x0222,0x0226,0x022b,0x0232,0x0235,0x0239,0x0243,0x0247,0x024c,0x024f,0x0253,0x025d,0x0261,0x0266,0x0280,0x028a 03ff ; -------------------------------------------------------------------------------------- 03ff ; Debug chain 03ff ; -------------------------------------------------------------------------------------- 03ff 0001 0004 | | .DBGLEN 0x0001,0x0004 0401 0293 02a3 | | .DBGLNO 0x0293,0x02a3,0x02b0,0x02c3,0x02c7 0406 ; -------------------------------------------------------------------------------------- 0406 ; Debug chain 0406 ; -------------------------------------------------------------------------------------- 0406 0001 0001 | | .DBGLEN 0x0001,0x0001 0408 02d3 02d8 | | .DBGLNO 0x02d3,0x02d8 040a 0000 0000 | | .BLANK 0000[0x1f6]