|
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 0310 | | .CONST 0x0310 ; 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 004f | O | .CONST 0x004f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 e001 | | Load 0x0,0x1
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 00e3 | | Load_Encached Natural_Cache
0013 e001 | | Load 0x0,0x1
0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0015 00e3 | | Load_Encached Natural_Cache
0016 e001 | | Load 0x0,0x1
0017 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0018 00e3 | | Load_Encached Natural_Cache
0019 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
001b 4806 |H | Short_Literal 0x6
001c 032d | - | Declare_Type Record,Defined
001d 00d8 | | Load_Top At_Offset_0
001e 0322 | " | Declare_Variable Record
001f e001 | | Load 0x0,0x1
0020 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0021 00da | | Load_Top At_Offset_2
0022 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0023 0119 | | Execute Any,Check_In_Formal_Type
0024 00d9 | | Load_Top At_Offset_1
0025 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0026 4800 |H | Short_Literal 0x0
0027 00d9 | | Load_Top At_Offset_1
0028 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0029 e001 | | Load 0x0,0x1
002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002b 00da | | Load_Top At_Offset_2
002c 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
002d 0119 | | Execute Any,Check_In_Formal_Type
002e 00d9 | | Load_Top At_Offset_1
002f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0030 4800 |H | Short_Literal 0x0
0031 00d9 | | Load_Top At_Offset_1
0032 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0033 e001 | | Load 0x0,0x1
0034 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0035 00da | | Load_Top At_Offset_2
0036 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
0037 0119 | | Execute Any,Check_In_Formal_Type
0038 00d9 | | Load_Top At_Offset_1
0039 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
003a 4800 |H | Short_Literal 0x0
003b 00d9 | | Load_Top At_Offset_1
003c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
003d 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call
003f 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0041 e001 | | Load 0x0,0x1
0042 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28
0043 00c6 | | Action Check_Subprogram_Elaborated
0044 00db | | Load_Top At_Offset_3
0045 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0047 e002 | | Load 0x0,0x2
0048 e003 | | Load 0x0,0x3
0049 4800 |H | Short_Literal 0x0
004a 0007 | | Action Break_Optional
004b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
004c 00c7 | | Action Elaborate_Subprogram
004d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004e 00c7 | | Action Elaborate_Subprogram
004f BODY_0008:
004f 00bc | | Action Signal_Activated
0050 00bb | | Action Signal_Completion
0051 0000 0000 | | .BLANK 0000[0x7]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0093 | | .CONST 0x0093 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0013 | | .CONST 0x0013 ; Number of locals
005b INIT_0058:
005b e004 | | Load 0x0,0x4
005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
005e 02c7 | | Declare_Variable Any
005f 4801 |H | Short_Literal 0x1
0060 e004 | | Load 0x0,0x4
0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0062 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0063 e5ff | | Load 0x2,-0x1
0064 e004 | | Load 0x0,0x4
0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0066 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0067 a402 | | Store_Unchecked 0x2,0x2
0068 4800 |H | Short_Literal 0x0
0069 4803 |H | Short_Literal 0x3
006a 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
006c 03fd | | Declare_Type Discrete,Defined
006d e20f | | Load 0x1,0xf
006e 0322 | " | Declare_Variable Record
006f 00d8 | | Load_Top At_Offset_0
0070 1c00 | | Execute_Immediate Run_Utility,0x0
0071 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0073 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0075 029f 020b | | Declare_Subprogram INIT_0208,For_Call
0077 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
0079 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
007b a005 | | Store_Unchecked 0x0,0x5
007c 00c6 | | Action Check_Subprogram_Elaborated
007d 4806 |H | Short_Literal 0x6
007e 4802 |H | Short_Literal 0x2
007f 0099 | | Action Reference_Dynamic
0080 e403 | | Load 0x2,0x3
0081 4805 |H | Short_Literal 0x5
0082 4802 |H | Short_Literal 0x2
0083 0099 | | Action Reference_Dynamic
0084 4808 |H | Short_Literal 0x8
0085 4802 |H | Short_Literal 0x2
0086 0099 | | Action Reference_Dynamic
0087 4807 |H | Short_Literal 0x7
0088 4802 |H | Short_Literal 0x2
0089 0099 | | Action Reference_Dynamic
008a 4809 |H | Short_Literal 0x9
008b 4802 |H | Short_Literal 0x2
008c 0099 | | Action Reference_Dynamic
008d 0092 0274 | t| Action Push_String_Extended,0x274 ; "UNITS CONTAINING USE CLAUSES"
008f e006 | | Load 0x0,0x6
0090 e007 | | Load 0x0,0x7
0091 4813 |H | Short_Literal 0x13
0092 0007 | | Action Break_Optional
0093 BODY_0058:
0093 e402 | | Load 0x2,0x2
0094 e004 | | Load 0x0,0x4
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0097 680a |h | Jump_Zero 0xa2
0098 e008 | | Load 0x0,0x8
0099 180e | | Execute Package,Field_Execute,Field_Number 0xe
009a 4807 |H | Short_Literal 0x7
009b e5ff | | Load 0x2,-0x1
009c 0092 0275 | u| Action Push_String_Extended,0x275 ; " is not a valid pathname"
009e 01cc | | Execute Vector,Catenate
009f e009 | | Load 0x0,0x9
00a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a2 e5fd | | Load 0x2,-0x3
00a3 e402 | | Load 0x2,0x2
00a4 0092 0276 | v| Action Push_String_Extended,0x276 ; "<PROFILE>"
00a6 480a |H | Short_Literal 0xa
00a7 4802 |H | Short_Literal 0x2
00a8 0099 | | Action Reference_Dynamic
00a9 e40b | | Load 0x2,0xb
00aa 480c |H | Short_Literal 0xc
00ab 4802 |H | Short_Literal 0x2
00ac 0099 | | Action Reference_Dynamic
00ad 480d |H | Short_Literal 0xd
00ae 4802 |H | Short_Literal 0x2
00af 0099 | | Action Reference_Dynamic
00b0 480e |H | Short_Literal 0xe
00b1 4802 |H | Short_Literal 0x2
00b2 0099 | | Action Reference_Dynamic
00b3 480f |H | Short_Literal 0xf
00b4 4802 |H | Short_Literal 0x2
00b5 0099 | | Action Reference_Dynamic
00b6 e410 | | Load 0x2,0x10
00b7 4811 |H | Short_Literal 0x11
00b8 4802 |H | Short_Literal 0x2
00b9 0099 | | Action Reference_Dynamic
00ba 8005 | | Call 0x0,0x5
00bb c402 | | Store 0x2,0x2
00bc c5fd | | Store 0x2,-0x3
00bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cd | | .CONST 0x00cd ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0003 | | .CONST 0x0003 ; Number of locals
00c3 INIT_00c0:
00c3 e00a | | Load 0x0,0xa
00c4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00c5 02c7 | | Declare_Variable Any
00c6 00d8 | | Load_Top At_Offset_0
00c7 1c00 | | Execute_Immediate Run_Utility,0x0
00c8 e00b | | Load 0x0,0xb
00c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ca 02c7 | | Declare_Variable Any
00cb 00d8 | | Load_Top At_Offset_0
00cc 1c00 | | Execute_Immediate Run_Utility,0x0
00cd BODY_00c0:
00cd 00d9 | | Load_Top At_Offset_1
00ce 00d9 | | Load_Top At_Offset_1
00cf e5fe | | Load 0x2,-0x2
00d0 800c | | Call 0x0,0xc
00d1 c403 | | Store 0x2,0x3
00d2 c402 | | Store 0x2,0x2
00d3 00d8 | | Load_Top At_Offset_0
00d4 e00b | | Load 0x0,0xb
00d5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d6 4802 |H | Short_Literal 0x2
00d7 4803 |H | Short_Literal 0x3
00d8 0262 | b | Execute Discrete,In_Range
00d9 700f |p | Jump_Nonzero 0xe9
00da 00d9 | | Load_Top At_Offset_1
00db e5fd | | Load 0x2,-0x3
00dc e5ff | | Load 0x2,-0x1
00dd 820d | | Call 0x1,0xd
00de c402 | | Store 0x2,0x2
00df 00d9 | | Load_Top At_Offset_1
00e0 e00a | | Load 0x0,0xa
00e1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00e2 c402 | | Store 0x2,0x2
00e3 4801 |H | Short_Literal 0x1
00e4 4800 |H | Short_Literal 0x0
00e5 e5fe | | Load 0x2,-0x2
00e6 e00d | | Load 0x0,0xd
00e7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e9 e008 | | Load 0x0,0x8
00ea 180e | | Execute Package,Field_Execute,Field_Number 0xe
00eb 4807 |H | Short_Literal 0x7
00ec 0092 0277 | w| Action Push_String_Extended,0x277 ; "Problem creating object "
00ee e5fe | | Load 0x2,-0x2
00ef 01cc | | Execute Vector,Catenate
00f0 0092 0278 | x| Action Push_String_Extended,0x278 ; ". "
00f2 01cc | | Execute Vector,Catenate
00f3 00db | | Load_Top At_Offset_3
00f4 e00b | | Load 0x0,0xb
00f5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f6 01cc | | Execute Vector,Catenate
00f7 e009 | | Load 0x0,0x9
00f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00fa 0000 0000 | | .BLANK 0000[0x6]
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 4608 |F | Jump_Case 0x9
0104 7808 |x | Jump 0x10d ; case 0x0
0105 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0106 7819 |x | Jump 0x120 ; case 0x2
0107 7818 |x | Jump 0x120 ; case 0x3
0108 7817 |x | Jump 0x120 ; case 0x4
0109 7816 |x | Jump 0x120 ; case 0x5
010a 7815 |x | Jump 0x120 ; case 0x6
010b 7814 |x | Jump 0x120 ; case 0x7
010c 7813 |x | Jump 0x120 ; case 0x8
010d 00da | | Load_Top At_Offset_2
010e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
010f 0125 | % | Execute Any,Set_Constraint
0110 00da | | Load_Top At_Offset_2
0111 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0112 1c00 | | Execute_Immediate Run_Utility,0x0
0113 00da | | Load_Top At_Offset_2
0114 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0115 0125 | % | Execute Any,Set_Constraint
0116 00da | | Load_Top At_Offset_2
0117 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0118 1c00 | | Execute_Immediate Run_Utility,0x0
0119 00da | | Load_Top At_Offset_2
011a 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
011b 0125 | % | Execute Any,Set_Constraint
011c 00da | | Load_Top At_Offset_2
011d 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0120 0869 | i | Execute_Immediate Raise,0x69
0121 0000 0000 | | .BLANK 0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0130 | 0 | .CONST 0x0130 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e001 | | Load 0x0,0x1
012c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
012d 02c7 | | Declare_Variable Any
012e 00d8 | | Load_Top At_Offset_0
012f 1c00 | | Execute_Immediate Run_Utility,0x0
0130 BODY_0128:
0130 00db | | Load_Top At_Offset_3
0131 e001 | | Load 0x0,0x1
0132 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0133 0f01 | | Execute_Immediate Equal,0x1
0134 7001 |p | Jump_Nonzero 0x136
0135 7861 |xa | Jump 0x197
0136 00db | | Load_Top At_Offset_3
0137 e00e | | Load 0x0,0xe
0138 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0139 4602 |F | Jump_Case 0x3
013a 7802 |x | Jump 0x13d ; case 0x0
013b 781f |x | Jump 0x15b ; case 0x1
013c 785a |xZ | Jump 0x197 ; case 0x2
013d e5fe | | Load 0x2,-0x2
013e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013f e001 | | Load 0x0,0x1
0140 180f | | Execute Package,Field_Execute,Field_Number 0xf
0141 6803 |h | Jump_Zero 0x145
0142 00db | | Load_Top At_Offset_3
0143 e5fe | | Load 0x2,-0x2
0144 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0145 00db | | Load_Top At_Offset_3
0146 e00e | | Load 0x0,0xe
0147 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0148 c402 | | Store 0x2,0x2
0149 00cf | | Action Mark_Auxiliary
014a 780a |x | Jump 0x155
014b e5fe | | Load 0x2,-0x2
014c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014d 0a01 | | Execute_Immediate Plus,0x1
014e e5fe | | Load 0x2,-0x2
014f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0150 00d9 | | Load_Top At_Offset_1
0151 e001 | | Load 0x0,0x1
0152 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0153 c402 | | Store 0x2,0x2
0154 00c9 | | Action Pop_Auxiliary_Loop
0155 00d9 | | Load_Top At_Offset_1
0156 e001 | | Load 0x0,0x1
0157 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0158 6ff2 |o | Jump_Zero 0x14b
0159 00ce | | Action Pop_Auxiliary
015a 783c |x< | Jump 0x197
015b 00db | | Load_Top At_Offset_3
015c e00e | | Load 0x0,0xe
015d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015e c402 | | Store 0x2,0x2
015f 00db | | Load_Top At_Offset_3
0160 e001 | | Load 0x0,0x1
0161 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0162 e001 | | Load 0x0,0x1
0163 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0164 6819 |h | Jump_Zero 0x17e
0165 e5fe | | Load 0x2,-0x2
0166 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0167 e5ff | | Load 0x2,-0x1
0168 e001 | | Load 0x0,0x1
0169 181d | | Execute Package,Field_Execute,Field_Number 0x1d
016a e5fe | | Load 0x2,-0x2
016b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
016c 00cf | | Action Mark_Auxiliary
016d 780a |x | Jump 0x178
016e e5fe | | Load 0x2,-0x2
016f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0170 0a01 | | Execute_Immediate Plus,0x1
0171 e5fe | | Load 0x2,-0x2
0172 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0173 00d9 | | Load_Top At_Offset_1
0174 e001 | | Load 0x0,0x1
0175 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0176 c402 | | Store 0x2,0x2
0177 00c9 | | Action Pop_Auxiliary_Loop
0178 00d9 | | Load_Top At_Offset_1
0179 e001 | | Load 0x0,0x1
017a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
017b 6ff2 |o | Jump_Zero 0x16e
017c 00ce | | Action Pop_Auxiliary
017d 7819 |x | Jump 0x197
017e e5fe | | Load 0x2,-0x2
017f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0180 e001 | | Load 0x0,0x1
0181 180f | | Execute Package,Field_Execute,Field_Number 0xf
0182 6803 |h | Jump_Zero 0x186
0183 00db | | Load_Top At_Offset_3
0184 e5fe | | Load 0x2,-0x2
0185 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0186 00cf | | Action Mark_Auxiliary
0187 780a |x | Jump 0x192
0188 e5fe | | Load 0x2,-0x2
0189 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
018a 0a01 | | Execute_Immediate Plus,0x1
018b e5fe | | Load 0x2,-0x2
018c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
018d 00d9 | | Load_Top At_Offset_1
018e e001 | | Load 0x0,0x1
018f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0190 c402 | | Store 0x2,0x2
0191 00c9 | | Action Pop_Auxiliary_Loop
0192 00d9 | | Load_Top At_Offset_1
0193 e001 | | Load 0x0,0x1
0194 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0195 6ff2 |o | Jump_Zero 0x188
0196 00ce | | Action Pop_Auxiliary
0197 4800 |H | Short_Literal 0x0
0198 a5fd | | Store_Unchecked 0x2,-0x3
0199 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019a 0000 0000 | | .BLANK 0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4800 |H | Short_Literal 0x0
01a4 a5fd | | Store_Unchecked 0x2,-0x3
01a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 4607 |F | Jump_Case 0x8
01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01ad 7806 |x | Jump 0x1b4 ; case 0x1
01ae 7809 |x | Jump 0x1b8 ; case 0x2
01af 780d |x | Jump 0x1bd ; case 0x3
01b0 7810 |x | Jump 0x1c1 ; case 0x4
01b1 7811 |x | Jump 0x1c3 ; case 0x5
01b2 7812 |x | Jump 0x1c5 ; case 0x6
01b3 7815 |x | Jump 0x1c9 ; case 0x7
01b4 00da | | Load_Top At_Offset_2
01b5 0091 0270 | p| Action Push_String_Extended_Indexed,0x270 ; "USES"
01b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b8 00db | | Load_Top At_Offset_3
01b9 00db | | Load_Top At_Offset_3
01ba 00e0 | | Load_Encached Standard_Cache
01bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bd 00da | | Load_Top At_Offset_2
01be 00e0 | | Load_Encached Standard_Cache
01bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c1 00db | | Load_Top At_Offset_3
01c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c3 00db | | Load_Top At_Offset_3
01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c5 e403 | | Load 0x2,0x3
01c6 00dc | | Load_Top At_Offset_4
01c7 0267 | g | Execute Discrete,Predecessor
01c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c9 e403 | | Load 0x2,0x3
01ca 00dc | | Load_Top At_Offset_4
01cb 0268 | h | Execute Discrete,Successor
01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 4800 |H | Short_Literal 0x0
01d5 4802 |H | Short_Literal 0x2
01d6 0262 | b | Execute Discrete,In_Range
01d7 7002 |p | Jump_Nonzero 0x1da
01d8 4800 |H | Short_Literal 0x0
01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01da 4801 |H | Short_Literal 0x1
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e001 | | Load 0x0,0x1
01e5 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01e6 6802 |h | Jump_Zero 0x1e9
01e7 4800 |H | Short_Literal 0x0
01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e9 e210 | | Load 0x1,0x10
01ea e404 | | Load 0x2,0x4
01eb 017d | } | Execute Record,Structure_Write
01ec e404 | | Load 0x2,0x4
01ed 4801 |H | Short_Literal 0x1
01ee e7ff | | Load 0x3,-0x1
01ef e213 | | Load 0x1,0x13
01f0 1d14 | | Execute_Immediate Reference_Lex_1,0x14
01f1 1d15 | | Execute_Immediate Reference_Lex_1,0x15
01f2 1d16 | | Execute_Immediate Reference_Lex_1,0x16
01f3 e001 | | Load 0x0,0x1
01f4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01f5 00d1 | | Pop_Control Pop_Count_1
01f6 e404 | | Load 0x2,0x4
01f7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01f8 0c01 | | Execute_Immediate Greater_Equal,0x1
01f9 7004 |p | Jump_Nonzero 0x1fe
01fa e404 | | Load 0x2,0x4
01fb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
01fc 0c01 | | Execute_Immediate Greater_Equal,0x1
01fd 6802 |h | Jump_Zero 0x200
01fe 4801 |H | Short_Literal 0x1
01ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0200 4800 |H | Short_Literal 0x0
0201 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c 4603 |F | Jump_Case 0x4
020d 7806 |x | Jump 0x214 ; case 0x0
020e 7808 |x | Jump 0x217 ; case 0x1
020f 780a |x | Jump 0x21a ; case 0x2
0210 7800 |x | Jump 0x211 ; case 0x3
0211 0092 0279 | y| Action Push_String_Extended,0x279 ; "Name of the compilation unit"
0213 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0214 0092 027a | z| Action Push_String_Extended,0x27a ; "Number of use clauses in the context part"
0216 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0217 0092 027b | {| Action Push_String_Extended,0x27b ; "Number of use clauses used internally in the unit"
0219 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
021a 0092 027c | || Action Push_String_Extended,0x27c ; "Number of with clauses in the context part"
021c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 4603 |F | Jump_Case 0x4
0225 7809 |x | Jump 0x22f ; case 0x0
0226 780d |x | Jump 0x234 ; case 0x1
0227 7811 |x | Jump 0x239 ; case 0x2
0228 7800 |x | Jump 0x229 ; case 0x3
0229 00db | | Load_Top At_Offset_3
022a e00e | | Load 0x0,0xe
022b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022c e00f | | Load 0x0,0xf
022d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
022e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
022f e404 | | Load 0x2,0x4
0230 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0231 00e0 | | Load_Encached Standard_Cache
0232 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0233 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0234 e404 | | Load 0x2,0x4
0235 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0236 00e0 | | Load_Encached Standard_Cache
0237 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0238 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0239 e404 | | Load 0x2,0x4
023a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023b 00e0 | | Load_Encached Standard_Cache
023c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
023d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e001 | | Load 0x0,0x1
0244 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0245 c7fd | | Store 0x3,-0x3
0246 e001 | | Load 0x0,0x1
0247 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0248 c7fc | | Store 0x3,-0x4
0249 00da | | Load_Top At_Offset_2
024a 4603 |F | Jump_Case 0x4
024b 7818 |x | Jump 0x264 ; case 0x0
024c 7807 |x | Jump 0x254 ; case 0x1
024d 780a |x | Jump 0x258 ; case 0x2
024e 7800 |x | Jump 0x24f ; case 0x3
024f 00db | | Load_Top At_Offset_3
0250 e010 | | Load 0x0,0x10
0251 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0252 c7fd | | Store 0x3,-0x3
0253 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0254 e404 | | Load 0x2,0x4
0255 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0256 c7fc | | Store 0x3,-0x4
0257 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0258 e404 | | Load 0x2,0x4
0259 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025a 0c01 | | Execute_Immediate Greater_Equal,0x1
025b 6804 |h | Jump_Zero 0x260
025c e404 | | Load 0x2,0x4
025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025e c7fd | | Store 0x3,-0x3
025f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0260 e001 | | Load 0x0,0x1
0261 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0262 c7fd | | Store 0x3,-0x3
0263 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0264 e404 | | Load 0x2,0x4
0265 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0266 0c01 | | Execute_Immediate Greater_Equal,0x1
0267 6804 |h | Jump_Zero 0x26c
0268 e404 | | Load 0x2,0x4
0269 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
026a c7fd | | Store 0x3,-0x3
026b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
026c e001 | | Load 0x0,0x1
026d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026e c7fd | | Store 0x3,-0x3
026f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0270 ; --------------------------------------------------------------------------------------
0270 ; STRING TABLE
0270 ; --------------------------------------------------------------------------------------
0270 001c | | .STRTAB 0x001c->0x027e ; "USES"
0271 001e | | .STRTAB 0x001e->0x0280 ; "INTERNAL_USES"
0272 0029 | ) | .STRTAB 0x0029->0x0286 ; "WITHS"
0273 002c | , | .STRTAB 0x002c->0x0289 ; "COMPILATION_UNIT"
0274 003a | : | .STRTAB 0x003a->0x0291 ; "UNITS CONTAINING USE CLAUSES"
0275 0054 | T | .STRTAB 0x0054->0x029f ; " is not a valid pathname"
0276 006a | j | .STRTAB 0x006a->0x02ab ; "<PROFILE>"
0277 0071 | q | .STRTAB 0x0071->0x02af ; "Problem creating object "
0278 0087 | | .STRTAB 0x0087->0x02bb ; ". "
0279 0088 | | .STRTAB 0x0088->0x02bd ; "Name of the compilation unit"
027a 00a2 | | .STRTAB 0x00a2->0x02cb ; "Number of use clauses in the context part"
027b 00c9 | | .STRTAB 0x00c9->0x02df ; "Number of use clauses used internally in the unit"
027c 00f8 | | .STRTAB 0x00f8->0x02f8 ; "Number of with clauses in the context part"
027d 0120 | | .STREND 0x0120->0x030d
027e 5553 4553 |USES| .STRTAB_STRINGS
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; Debug Table
0310 ; --------------------------------------------------------------------------------------
0310 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f83,0x0000,0x0001,0x000d
0316 000b 034a | J| .DBG4T 0x000b,0x034a,0x8000,0x0000
031a 0010 034e | N| .DBG4T 0x0010,0x034e,0x8000,0x0000
031e 005b 0357 | [ W| .DBG4T 0x005b,0x0357,0x0001,0x0000
0322 00c3 0365 | e| .DBG4T 0x00c3,0x0365,0x0001,0x4000
0326 0103 0000 | | .DBG4T 0x0103,0x0000,0x0005,0x0000
032a 012b 0375 | + u| .DBG4T 0x012b,0x0375,0x0001,0x4000
032e 01a3 03a0 | | .DBG4T 0x01a3,0x03a0,0x0001,0x0000
0332 01ab 0000 | | .DBG4T 0x01ab,0x0000,0x0005,0x0000
0336 01d3 03a3 | | .DBG4T 0x01d3,0x03a3,0x0002,0x4000
033a 01e3 03ab | | .DBG4T 0x01e3,0x03ab,0x0002,0x4000
033e 020b 03bb | | .DBG4T 0x020b,0x03bb,0x0002,0x0000
0342 0223 03c2 | # | .DBG4T 0x0223,0x03c2,0x0002,0x0000
0346 0243 03c9 | C | .DBG4T 0x0243,0x03c9,0x0001,0x0000
034a ; --------------------------------------------------------------------------------------
034a ; Debug chain
034a ; --------------------------------------------------------------------------------------
034a 0002 0000 | | .DBGLEN 0x0002,0x0000
034c 000b 000d | | .DBGLNO 0x000b,0x000d
034e ; --------------------------------------------------------------------------------------
034e ; Debug chain
034e ; --------------------------------------------------------------------------------------
034e 0007 0000 | | .DBGLEN 0x0007,0x0000
0350 0010 001d | | .DBGLNO 0x0010,0x001d,0x003d,0x003f,0x0041,0x004b,0x004d
0357 ; --------------------------------------------------------------------------------------
0357 ; Debug chain
0357 ; --------------------------------------------------------------------------------------
0357 0009 0003 | | .DBGLEN 0x0009,0x0003
0359 005b 0068 | [ h| .DBGLNO 0x005b,0x0068,0x006d,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x0093,0x0098,0x00a2
0365 ; --------------------------------------------------------------------------------------
0365 ; Debug chain
0365 ; --------------------------------------------------------------------------------------
0365 0002 0006 | | .DBGLEN 0x0002,0x0006
0367 00c3 00c8 | | .DBGLNO 0x00c3,0x00c8,0x00cd,0x00d3,0x00da,0x00df,0x00e3,0x00e9
036f 0001 0002 | | .XXX[0x6]
0371 0004 0005 | |
0373 0006 0003 | |
0375 ; --------------------------------------------------------------------------------------
0375 ; Debug chain
0375 ; --------------------------------------------------------------------------------------
0375 0001 0014 | | .DBGLEN 0x0001,0x0014
0377 012b 0130 | + 0| .DBGLNO 0x012b,0x0130,0x0136,0x013d,0x0142,0x0145,0x014b,0x0150,0x0155,0x015b,0x015f,0x0165,0x016e,0x0173,0x0178,0x017e,0x0183,0x0188,0x018d,0x0192,0x0197
038c 0001 0002 | | .XXX[0x14]
038e 000e 000f | |
0390 0010 0012 | |
0392 0013 0011 | |
0394 0003 0004 | |
0396 000a 000c | |
0398 000d 000b | |
039a 0005 0006 | |
039c 0008 0009 | |
039e 0007 0016 | |
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug chain
03a0 ; --------------------------------------------------------------------------------------
03a0 0000 0001 | | .DBGLEN 0x0000,0x0001
03a2 01a3 | | .DBGLNO 0x01a3
03a3 ; --------------------------------------------------------------------------------------
03a3 ; Debug chain
03a3 ; --------------------------------------------------------------------------------------
03a3 0000 0003 | | .DBGLEN 0x0000,0x0003
03a5 01d3 01d8 | | .DBGLNO 0x01d3,0x01d8,0x01da
03a8 0001 0003 | | .XXX[0x3]
03aa 0002 | |
03ab ; --------------------------------------------------------------------------------------
03ab ; Debug chain
03ab ; --------------------------------------------------------------------------------------
03ab 0000 0007 | | .DBGLEN 0x0000,0x0007
03ad 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7,0x01e9,0x01ec,0x01f6,0x01fe,0x0200
03b4 0001 0007 | | .XXX[0x7]
03b6 0002 0003 | |
03b8 0004 0005 | |
03ba 0006 | |
03bb ; --------------------------------------------------------------------------------------
03bb ; Debug chain
03bb ; --------------------------------------------------------------------------------------
03bb 0000 0005 | | .DBGLEN 0x0000,0x0005
03bd 020b 0211 | | .DBGLNO 0x020b,0x0211,0x0214,0x0217,0x021a
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug chain
03c2 ; --------------------------------------------------------------------------------------
03c2 0000 0005 | | .DBGLEN 0x0000,0x0005
03c4 0223 0229 | # )| .DBGLNO 0x0223,0x0229,0x022f,0x0234,0x0239
03c9 ; --------------------------------------------------------------------------------------
03c9 ; Debug chain
03c9 ; --------------------------------------------------------------------------------------
03c9 0000 000b | | .DBGLEN 0x0000,0x000b
03cb 0243 0246 | C F| .DBGLNO 0x0243,0x0246,0x0249,0x024f,0x0254,0x0258,0x025c,0x0260,0x0264,0x0268,0x026c
03d6 0000 0000 | | .BLANK 0000[0x2a]