|
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]