|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0298 | | .CONST 0x0298 ; 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 0001 | | .CONST 0x0001 ; 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 0060 | ` | .CONST 0x0060 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0012 | | .CONST 0x0012 ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 4804 |H | Short_Literal 0x4
001d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 00d8 | | Load_Top At_Offset_0
0021 0266 | f | Execute Discrete,Bounds
0022 00e2 | | Load_Encached Integer_Cache
0023 02a0 | | Declare_Subprogram Null_Subprogram
0024 4801 |H | Short_Literal 0x1
0025 035d | ] | Declare_Type Array,Defined
0026 00d8 | | Load_Top At_Offset_0
0027 0337 | 7 | Declare_Variable Array
0028 e001 | | Load 0x0,0x1
0029 e002 | | Load 0x0,0x2
002a 4805 |H | Short_Literal 0x5
002b 0092 022c | ,| Action Push_String_Extended,0x22c ; " "
002d e003 | | Load 0x0,0x3
002e 0387 | | Declare_Variable Package
002f 00d8 | | Load_Top At_Offset_0
0030 020f | | Execute Module,Activate
0031 4801 |H | Short_Literal 0x1
0032 4805 |H | Short_Literal 0x5
0033 00da | | Load_Top At_Offset_2
0034 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0035 035b | [ | Declare_Type Array,Constrained
0036 0337 | 7 | Declare_Variable Array
0037 e004 | | Load 0x0,0x4
0038 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0039 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
003a 02c7 | | Declare_Variable Any
003b 4801 |H | Short_Literal 0x1
003c e004 | | Load 0x0,0x4
003d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
003f e5ff | | Load 0x2,-0x1
0040 e004 | | Load 0x0,0x4
0041 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0042 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0043 a407 | | Store_Unchecked 0x2,0x7
0044 e004 | | Load 0x0,0x4
0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0047 02c7 | | Declare_Variable Any
0048 00d8 | | Load_Top At_Offset_0
0049 1c00 | | Execute_Immediate Run_Utility,0x0
004a 00e1 | | Load_Encached Boolean_Cache
004b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
004c 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
004e 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0050 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0052 e005 | | Load 0x0,0x5
0053 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28
0054 00c6 | | Action Check_Subprogram_Elaborated
0055 00e1 | | Load_Encached Boolean_Cache
0056 480b |H | Short_Literal 0xb
0057 4802 |H | Short_Literal 0x2
0058 0099 | | Action Reference_Dynamic
0059 480c |H | Short_Literal 0xc
005a 4802 |H | Short_Literal 0x2
005b 0099 | | Action Reference_Dynamic
005c e006 | | Load 0x0,0x6
005d e007 | | Load 0x0,0x7
005e 4812 |H | Short_Literal 0x12
005f 0007 | | Action Break_Optional
0060 BODY_0018:
0060 e407 | | Load 0x2,0x7
0061 e004 | | Load 0x0,0x4
0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0063 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0064 680a |h | Jump_Zero 0x6f
0065 e008 | | Load 0x0,0x8
0066 180e | | Execute Package,Field_Execute,Field_Number 0xe
0067 4807 |H | Short_Literal 0x7
0068 e5ff | | Load 0x2,-0x1
0069 0092 022d | -| Action Push_String_Extended,0x22d ; ": is not a valid pathname"
006b 01cc | | Execute Vector,Catenate
006c e009 | | Load 0x0,0x9
006d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006f 00cf | | Action Mark_Auxiliary
0070 e402 | | Load 0x2,0x2
0071 0265 | e | Execute Discrete,Reverse_Bounds
0072 0007 | | Action Break_Optional
0073 00d8 | | Load_Top At_Offset_0
0074 0a01 | | Execute_Immediate Plus,0x1
0075 00d9 | | Load_Top At_Offset_1
0076 0a01 | | Execute_Immediate Plus,0x1
0077 e406 | | Load 0x2,0x6
0078 01d6 | | Execute Vector,Field_Write
0079 4800 |H | Short_Literal 0x0
007a 4800 |H | Short_Literal 0x0
007b 00da | | Load_Top At_Offset_2
007c e402 | | Load 0x2,0x2
007d 011c | | Execute Any,Convert_Unchecked
007e 1c01 | | Execute_Immediate Run_Utility,0x1
007f e405 | | Load 0x2,0x5
0080 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0081 00c8 | | Action Pop_Auxiliary_Range
0082 3ff0 |? | Loop_Increasing 0x73
0083 00c9 | | Action Pop_Auxiliary_Loop
0084 7844 |xD | Jump 0xc9
0085 e407 | | Load 0x2,0x7
0086 e004 | | Load 0x0,0x4
0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0088 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0089 c408 | | Store 0x2,0x8
008a e408 | | Load 0x2,0x8
008b e004 | | Load 0x0,0x4
008c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
008e 700d |p | Jump_Nonzero 0x9c
008f e008 | | Load 0x0,0x8
0090 180e | | Execute Package,Field_Execute,Field_Number 0xe
0091 4806 |H | Short_Literal 0x6
0092 e408 | | Load 0x2,0x8
0093 e004 | | Load 0x0,0x4
0094 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0095 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0096 0092 022e | .| Action Push_String_Extended,0x22e ; " is not an Ada unit"
0098 01cc | | Execute Vector,Catenate
0099 e009 | | Load 0x0,0x9
009a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009b 7827 |x' | Jump 0xc3
009c e408 | | Load 0x2,0x8
009d e004 | | Load 0x0,0x4
009e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a0 6816 |h | Jump_Zero 0xb7
00a1 e409 | | Load 0x2,0x9
00a2 4800 |H | Short_Literal 0x0
00a3 e00a | | Load 0x0,0xa
00a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a5 e408 | | Load 0x2,0x8
00a6 e005 | | Load 0x0,0x5
00a7 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
00a8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a9 e40d | | Load 0x2,0xd
00aa 480e |H | Short_Literal 0xe
00ab 4802 |H | Short_Literal 0x2
00ac 0099 | | Action Reference_Dynamic
00ad 480f |H | Short_Literal 0xf
00ae 4802 |H | Short_Literal 0x2
00af 0099 | | Action Reference_Dynamic
00b0 4810 |H | Short_Literal 0x10
00b1 4802 |H | Short_Literal 0x2
00b2 0099 | | Action Reference_Dynamic
00b3 e005 | | Load 0x0,0x5
00b4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00b5 c409 | | Store 0x2,0x9
00b6 780c |x | Jump 0xc3
00b7 e008 | | Load 0x0,0x8
00b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b9 4806 |H | Short_Literal 0x6
00ba e408 | | Load 0x2,0x8
00bb e004 | | Load 0x0,0x4
00bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00be 0092 022f | /| Action Push_String_Extended,0x22f ; " is not installed"
00c0 01cc | | Execute Vector,Catenate
00c1 e009 | | Load 0x0,0x9
00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c3 e407 | | Load 0x2,0x7
00c4 e004 | | Load 0x0,0x4
00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00c7 c407 | | Store 0x2,0x7
00c8 00c9 | | Action Pop_Auxiliary_Loop
00c9 e407 | | Load 0x2,0x7
00ca e004 | | Load 0x0,0x4
00cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00cd 6fb7 |o | Jump_Zero 0x85
00ce 00ce | | Action Pop_Auxiliary
00cf e406 | | Load 0x2,0x6
00d0 e405 | | Load 0x2,0x5
00d1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d2 e00b | | Load 0x0,0xb
00d3 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00d4 e405 | | Load 0x2,0x5
00d5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d7 0000 | | .XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4607 |F | Jump_Case 0x8
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7806 |x | Jump 0xe4 ; case 0x1
00de 7809 |x | Jump 0xe8 ; case 0x2
00df 780d |x | Jump 0xed ; case 0x3
00e0 7810 |x | Jump 0xf1 ; case 0x4
00e1 7811 |x | Jump 0xf3 ; case 0x5
00e2 7812 |x | Jump 0xf5 ; case 0x6
00e3 7815 |x | Jump 0xf9 ; case 0x7
00e4 00da | | Load_Top At_Offset_2
00e5 0091 0227 | '| Action Push_String_Extended_Indexed,0x227 ; "DECL_UNIT"
00e7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e8 00db | | Load_Top At_Offset_3
00e9 00db | | Load_Top At_Offset_3
00ea 00e0 | | Load_Encached Standard_Cache
00eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed 00da | | Load_Top At_Offset_2
00ee 00e0 | | Load_Encached Standard_Cache
00ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db | | Load_Top At_Offset_3
00f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f3 00db | | Load_Top At_Offset_3
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 e402 | | Load 0x2,0x2
00f6 00dc | | Load_Top At_Offset_4
00f7 0267 | g | Execute Discrete,Predecessor
00f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f9 e402 | | Load 0x2,0x2
00fa 00dc | | Load_Top At_Offset_4
00fb 0268 | h | Execute Discrete,Successor
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 e00c | | Load 0x0,0xc
0105 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0106 e00c | | Load 0x0,0xc
0107 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0108 e00d | | Load 0x0,0xd
0109 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0115 | | .CONST 0x0115 ; Address of begin
0111 0140 | @ | .CONST 0x0140 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0115 BODY_0110:
0115 00db | | Load_Top At_Offset_3
0116 e005 | | Load 0x0,0x5
0117 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0118 4801 |H | Short_Literal 0x1
0119 4802 |H | Short_Literal 0x2
011a 0262 | b | Execute Discrete,In_Range
011b 7021 |p! | Jump_Nonzero 0x13d
011c 7800 |x | Jump 0x11d
011d 00db | | Load_Top At_Offset_3
011e e00d | | Load 0x0,0xd
011f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0120 00d8 | | Load_Top At_Offset_0
0121 4801 |H | Short_Literal 0x1
0122 4804 |H | Short_Literal 0x4
0123 0262 | b | Execute Discrete,In_Range
0124 7005 |p | Jump_Nonzero 0x12a
0125 4805 |H | Short_Literal 0x5
0126 4826 |H& | Short_Literal 0x26
0127 0262 | b | Execute Discrete,In_Range
0128 7014 |p | Jump_Nonzero 0x13d
0129 7803 |x | Jump 0x12d
012a 00d1 | | Pop_Control Pop_Count_1
012b 8602 | | Call 0x3,0x2
012c 7810 |x | Jump 0x13d
012d 00db | | Load_Top At_Offset_3
012e e005 | | Load 0x0,0x5
012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0130 e005 | | Load 0x0,0x5
0131 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0132 0f02 | | Execute_Immediate Equal,0x2
0133 6808 |h | Jump_Zero 0x13c
0134 00db | | Load_Top At_Offset_3
0135 e005 | | Load 0x0,0x5
0136 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0137 e00d | | Load 0x0,0xd
0138 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0139 0f05 | | Execute_Immediate Equal,0x5
013a 6801 |h | Jump_Zero 0x13c
013b 7801 |x | Jump 0x13d
013c 8602 | | Call 0x3,0x2
013d 4800 |H | Short_Literal 0x0
013e a7fd | | Store_Unchecked 0x3,-0x3
013f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0140 TRAP_0110:
0140 0007 | | Action Break_Optional
0141 e008 | | Load 0x0,0x8
0142 180e | | Execute Package,Field_Execute,Field_Number 0xe
0143 4807 |H | Short_Literal 0x7
0144 0092 0230 | 0| Action Push_String_Extended,0x230 ; "UNEXPECTED ERROR, EXCEPTION:"
0146 4800 |H | Short_Literal 0x0
0147 4801 |H | Short_Literal 0x1
0148 e00e | | Load 0x0,0xe
0149 1815 | | Execute Package,Field_Execute,Field_Number 0x15
014a 01cc | | Execute Vector,Catenate
014b e009 | | Load 0x0,0x9
014c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014d e008 | | Load 0x0,0x8
014e 180e | | Execute Package,Field_Execute,Field_Number 0xe
014f 4807 |H | Short_Literal 0x7
0150 0092 0231 | 1| Action Push_String_Extended,0x231 ; "DIAGNOSIS: "
0152 e005 | | Load 0x0,0x5
0153 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0154 01cc | | Execute Vector,Catenate
0155 e009 | | Load 0x0,0x9
0156 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0157 e008 | | Load 0x0,0x8
0158 180e | | Execute Package,Field_Execute,Field_Number 0xe
0159 4807 |H | Short_Literal 0x7
015a 0092 0232 | 2| Action Push_String_Extended,0x232 ; "UNIT: "
015c e408 | | Load 0x2,0x8
015d e004 | | Load 0x0,0x4
015e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0160 01cc | | Execute Vector,Catenate
0161 e009 | | Load 0x0,0x9
0162 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0163 e008 | | Load 0x0,0x8
0164 180e | | Execute Package,Field_Execute,Field_Number 0xe
0165 4807 |H | Short_Literal 0x7
0166 0092 0233 | 3| Action Push_String_Extended,0x233 ; "On line: "
0168 e7ff | | Load 0x3,-0x1
0169 e005 | | Load 0x0,0x5
016a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016b 00e0 | | Load_Encached Standard_Cache
016c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
016d 01cc | | Execute Vector,Catenate
016e e009 | | Load 0x0,0x9
016f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0170 4800 |H | Short_Literal 0x0
0171 a7fd | | Store_Unchecked 0x3,-0x3
0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4800 |H | Short_Literal 0x0
017c a7fd | | Store_Unchecked 0x3,-0x3
017d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 01a4 | | .CONST 0x01a4 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0005 | | .CONST 0x0005 ; Number of locals
0183 INIT_0180:
0183 e00f | | Load 0x0,0xf
0184 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0185 02c7 | | Declare_Variable Any
0186 e7ff | | Load 0x3,-0x1
0187 e00f | | Load 0x0,0xf
0188 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0189 a802 | | Store_Unchecked 0x4,0x2
018a e7ff | | Load 0x3,-0x1
018b e005 | | Load 0x0,0x5
018c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
018d 0092 0234 | 4| Action Push_String_Extended,0x234 ; "("
018f 01cc | | Execute Vector,Catenate
0190 4820 |H | Short_Literal 0x20
0191 e7ff | | Load 0x3,-0x1
0192 e005 | | Load 0x0,0x5
0193 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0194 00e0 | | Load_Encached Standard_Cache
0195 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0196 e010 | | Load 0x0,0x10
0197 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0198 01cc | | Execute Vector,Catenate
0199 0092 0235 | 5| Action Push_String_Extended,0x235 ; ")"
019b 01cc | | Execute Vector,Catenate
019c 0007 | | Action Break_Optional
019d e7ff | | Load 0x3,-0x1
019e 840a | | Call 0x2,0xa
019f e005 | | Load 0x0,0x5
01a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a1 02c7 | | Declare_Variable Any
01a2 00d8 | | Load_Top At_Offset_0
01a3 1c00 | | Execute_Immediate Run_Utility,0x0
01a4 BODY_0180:
01a4 00cf | | Action Mark_Auxiliary
01a5 787c |x| | Jump 0x222
01a6 e802 | | Load 0x4,0x2
01a7 e00f | | Load 0x0,0xf
01a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a9 c805 | | Store 0x4,0x5
01aa 00ea | | Load_Encached Null_String_Cache
01ab e004 | | Load 0x0,0x4
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01ae e004 | | Load 0x0,0x4
01af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b1 e005 | | Load 0x0,0x5
01b2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01b3 e005 | | Load 0x0,0x5
01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b5 e804 | | Load 0x4,0x4
01b6 e405 | | Load 0x2,0x5
01b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b8 00ea | | Load_Encached Null_String_Cache
01b9 e004 | | Load 0x0,0x4
01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01bc e004 | | Load 0x0,0x4
01bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01be 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bf e005 | | Load 0x0,0x5
01c0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01c1 e005 | | Load 0x0,0x5
01c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c3 e803 | | Load 0x4,0x3
01c4 e405 | | Load 0x2,0x5
01c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c6 00ea | | Load_Encached Null_String_Cache
01c7 e004 | | Load 0x0,0x4
01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01ca e004 | | Load 0x0,0x4
01cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
01cd e005 | | Load 0x0,0x5
01ce 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01cf e005 | | Load 0x0,0x5
01d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d1 e805 | | Load 0x4,0x5
01d2 e005 | | Load 0x0,0x5
01d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d4 00e0 | | Load_Encached Standard_Cache
01d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d6 e405 | | Load 0x2,0x5
01d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d8 00ea | | Load_Encached Null_String_Cache
01d9 e004 | | Load 0x0,0x4
01da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01db 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01dc e004 | | Load 0x0,0x4
01dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01de 180e | | Execute Package,Field_Execute,Field_Number 0xe
01df e005 | | Load 0x0,0x5
01e0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01e1 e005 | | Load 0x0,0x5
01e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e3 e805 | | Load 0x4,0x5
01e4 840a | | Call 0x2,0xa
01e5 e405 | | Load 0x2,0x5
01e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e7 00d9 | | Load_Top At_Offset_1
01e8 e00f | | Load 0x0,0xf
01e9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ea 4602 |F | Jump_Case 0x3
01eb 7812 |x | Jump 0x1fe ; case 0x0
01ec 7821 |x! | Jump 0x20e ; case 0x1
01ed 7800 |x | Jump 0x1ee ; case 0x2
01ee 00ea | | Load_Encached Null_String_Cache
01ef e004 | | Load 0x0,0x4
01f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01f2 e004 | | Load 0x0,0x4
01f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f5 e005 | | Load 0x0,0x5
01f6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01f7 e005 | | Load 0x0,0x5
01f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f9 0092 0236 | 6| Action Push_String_Extended,0x236 ; "SET/USED"
01fb e405 | | Load 0x2,0x5
01fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fd 781f |x | Jump 0x21d
01fe 00ea | | Load_Encached Null_String_Cache
01ff e004 | | Load 0x0,0x4
0200 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0201 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0202 e004 | | Load 0x0,0x4
0203 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0204 180e | | Execute Package,Field_Execute,Field_Number 0xe
0205 e005 | | Load 0x0,0x5
0206 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0207 e005 | | Load 0x0,0x5
0208 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0209 0092 0237 | 7| Action Push_String_Extended,0x237 ; "SET"
020b e405 | | Load 0x2,0x5
020c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020d 780f |x | Jump 0x21d
020e 00ea | | Load_Encached Null_String_Cache
020f e004 | | Load 0x0,0x4
0210 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0211 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0212 e004 | | Load 0x0,0x4
0213 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0214 180e | | Execute Package,Field_Execute,Field_Number 0xe
0215 e005 | | Load 0x0,0x5
0216 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0217 e005 | | Load 0x0,0x5
0218 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0219 0092 0238 | 8| Action Push_String_Extended,0x238 ; "USED"
021b e405 | | Load 0x2,0x5
021c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021d e802 | | Load 0x4,0x2
021e e00f | | Load 0x0,0xf
021f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0220 c802 | | Store 0x4,0x2
0221 00c9 | | Action Pop_Auxiliary_Loop
0222 e802 | | Load 0x4,0x2
0223 e00f | | Load 0x0,0xf
0224 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0225 6f80 |o | Jump_Zero 0x1a6
0226 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0227 ; --------------------------------------------------------------------------------------
0227 ; STRING TABLE
0227 ; --------------------------------------------------------------------------------------
0227 0026 | & | .STRTAB 0x0026->0x023a ; "DECL_UNIT"
0228 002d | - | .STRTAB 0x002d->0x023e ; "OBJECT_DECL"
0229 0036 | 6 | .STRTAB 0x0036->0x0244 ; "REF_LINE"
022a 003c | < | .STRTAB 0x003c->0x0248 ; "REF_UNIT"
022b 0042 | B | .STRTAB 0x0042->0x024c ; "SET_USED"
022c 0048 | H | .STRTAB 0x0048->0x0250 ; " "
022d 0047 | G | .STRTAB 0x0047->0x0250 ; ": is not a valid pathname"
022e 005e | ^ | .STRTAB 0x005e->0x025d ; " is not an Ada unit"
022f 006f | o | .STRTAB 0x006f->0x0266 ; " is not installed"
0230 007e | ~ | .STRTAB 0x007e->0x026f ; "UNEXPECTED ERROR, EXCEPTION:"
0231 0098 | | .STRTAB 0x0098->0x027d ; "DIAGNOSIS: "
0232 00a1 | | .STRTAB 0x00a1->0x0282 ; "UNIT: "
0233 00a5 | | .STRTAB 0x00a5->0x0285 ; "On line: "
0234 00ac | | .STRTAB 0x00ac->0x028a ; "("
0235 00ab | | .STRTAB 0x00ab->0x028a ; ")"
0236 00aa | | .STRTAB 0x00aa->0x028b ; "SET/USED"
0237 00b0 | | .STRTAB 0x00b0->0x028f ; "SET"
0238 00b1 | | .STRTAB 0x00b1->0x0290 ; "USED"
0239 00b3 | | .STREND 0x00b3->0x0292
023a 4445 434c |DECL| .STRTAB_STRINGS
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f9e,0x0000,0x0001,0x0007
029e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
02a2 001b 02ba | | .DBG4T 0x001b,0x02ba,0x8001,0xc000
02a6 00db 0000 | | .DBG4T 0x00db,0x0000,0x0005,0x0000
02aa 0103 02f0 | | .DBG4T 0x0103,0x02f0,0x0002,0x0000
02ae 0113 02f3 | | .DBG4T 0x0113,0x02f3,0x0001,0x4000
02b2 017b 030e | { | .DBG4T 0x017b,0x030e,0x0001,0x0000
02b6 0183 0311 | | .DBG4T 0x0183,0x0311,0x0001,0x4000
02ba ; --------------------------------------------------------------------------------------
02ba ; Debug chain
02ba ; --------------------------------------------------------------------------------------
02ba 000b 000f | | .DBGLEN 0x000b,0x000f
02bc 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0028,0x0031,0x0037,0x0044,0x004a,0x004c,0x004e,0x0050,0x0052,0x0060,0x0065,0x0070,0x0073,0x0079,0x0085,0x008a,0x008f,0x009c,0x00a1,0x00b7,0x00c3,0x00c9,0x00cf,0x00d2
02d6 0006 0007 | | .XXX[0x1a]
02d8 0008 0009 | |
02da 000a 000b | |
02dc 000c 000d | |
02de 000e 000f | |
02e0 0010 0001 | |
02e2 0002 0003 | |
02e4 0004 0005 | |
02e6 0007 0008 | |
02e8 0009 000a | |
02ea 000b 000c | |
02ec 000d 0006 | |
02ee 000e 000f | |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug chain
02f0 ; --------------------------------------------------------------------------------------
02f0 0000 0001 | | .DBGLEN 0x0000,0x0001
02f2 0103 | | .DBGLNO 0x0103
02f3 ; --------------------------------------------------------------------------------------
02f3 ; Debug chain
02f3 ; --------------------------------------------------------------------------------------
02f3 0001 000c | | .DBGLEN 0x0001,0x000c
02f5 0113 0115 | | .DBGLNO 0x0113,0x0115,0x011d,0x012b,0x012d,0x013b,0x013c,0x013d,0x0141,0x014d,0x0157,0x0163,0x0170
0302 0001 0002 | | .XXX[0xc]
0304 0006 0003 | |
0306 0004 0005 | |
0308 0009 000a | |
030a 000b 000c | |
030c 000d 000e | |
030e ; --------------------------------------------------------------------------------------
030e ; Debug chain
030e ; --------------------------------------------------------------------------------------
030e 0000 0001 | | .DBGLEN 0x0000,0x0001
0310 017b | { | .DBGLNO 0x017b
0311 ; --------------------------------------------------------------------------------------
0311 ; Debug chain
0311 ; --------------------------------------------------------------------------------------
0311 0004 000b | | .DBGLEN 0x0004,0x000b
0313 0183 018a | | .DBGLNO 0x0183,0x018a,0x019d,0x019f,0x01a6,0x01aa,0x01b8,0x01c6,0x01d8,0x01e7,0x01ee,0x01fe,0x020e,0x021d,0x0222
0322 0002 0003 | | .XXX[0xb]
0324 0004 0005 | |
0326 0006 0007 | |
0328 000a 0008 | |
032a 0009 000b | |
032c 0001 | |
032d 0000 0000 | | .BLANK 0000[0xd3]