|
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_03bcfe
└─⟦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 05a8 | | .CONST 0x05a8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0013 00c7 | | Action Elaborate_Subprogram
0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0015 00c7 | | Action Elaborate_Subprogram
0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 002d | - | .CONST 0x002d ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0004 | | .CONST 0x0004 ; Number of locals
0023 INIT_0020:
0023 4803 |H | Short_Literal 0x3
0024 00db | | Load_Top At_Offset_3
0025 e002 | | Load 0x0,0x2
0026 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0027 e002 | | Load 0x0,0x2
0028 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0029 03f1 | | Declare_Variable Discrete,With_Value
002a e002 | | Load 0x0,0x2
002b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
002c 03e9 | | Declare_Variable Discrete,Duplicate
002d BODY_0020:
002d 00da | | Load_Top At_Offset_2
002e 7002 |p | Jump_Nonzero 0x31
002f 4800 |H | Short_Literal 0x0
0030 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0031 00da | | Load_Top At_Offset_2
0032 0a01 | | Execute_Immediate Plus,0x1
0033 005b | [ | Store_Top Discrete,At_Offset_3
0034 00da | | Load_Top At_Offset_2
0035 e5ff | | Load 0x2,-0x1
0036 e002 | | Load 0x0,0x2
0037 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0038 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0039 00da | | Load_Top At_Offset_2
003a 0a01 | | Execute_Immediate Plus,0x1
003b 005b | [ | Store_Top Discrete,At_Offset_3
003c 00da | | Load_Top At_Offset_2
003d e5ff | | Load 0x2,-0x1
003e e002 | | Load 0x0,0x2
003f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0040 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0041 00d9 | | Load_Top At_Offset_1
0042 0910 | | Execute_Immediate Binary_Scale,0x10
0043 00d9 | | Load_Top At_Offset_1
0044 0273 | s | Execute Discrete,Plus
0045 00d8 | | Load_Top At_Offset_0
0046 e003 | | Load 0x0,0x3
0047 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0048 0260 | ` | Execute Discrete,In_Type
0049 7001 |p | Jump_Nonzero 0x4b
004a 0801 | | Execute_Immediate Raise,0x1
004b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004c 0000 0000 | | .BLANK 0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0079 | y | .CONST 0x0079 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0009 | | .CONST 0x0009 ; Number of locals
0053 INIT_0050:
0053 e004 | | Load 0x0,0x4
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 02c7 | | Declare_Variable Any
0056 e005 | | Load 0x0,0x5
0057 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0058 e004 | | Load 0x0,0x4
0059 1814 | | Execute Package,Field_Execute,Field_Number 0x14
005a a402 | | Store_Unchecked 0x2,0x2
005b e006 | | Load 0x0,0x6
005c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
005d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005e 02c7 | | Declare_Variable Any
005f 4800 |H | Short_Literal 0x0
0060 4800 |H | Short_Literal 0x0
0061 4801 |H | Short_Literal 0x1
0062 e007 | | Load 0x0,0x7
0063 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0064 e402 | | Load 0x2,0x2
0065 e008 | | Load 0x0,0x8
0066 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0067 e009 | | Load 0x0,0x9
0068 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0069 e006 | | Load 0x0,0x6
006a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
006b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
006c a403 | | Store_Unchecked 0x2,0x3
006d 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
006f 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0071 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0073 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0075 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0077 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
0079 BODY_0050:
0079 8409 | | Call 0x2,0x9
007a e402 | | Load 0x2,0x2
007b 4801 |H | Short_Literal 0x1
007c 4800 |H | Short_Literal 0x0
007d e004 | | Load 0x0,0x4
007e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007f c402 | | Store 0x2,0x2
0080 e403 | | Load 0x2,0x3
0081 e006 | | Load 0x0,0x6
0082 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0083 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0084 c5fa | | Store 0x2,-0x6
0085 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 00b5 | | .CONST 0x00b5 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 000e | | .CONST 0x000e ; Number of locals
008b INIT_0088:
008b e00a | | Load 0x0,0xa
008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008d 02c7 | | Declare_Variable Any
008e 00d8 | | Load_Top At_Offset_0
008f 1c00 | | Execute_Immediate Run_Utility,0x0
0090 e007 | | Load 0x0,0x7
0091 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0092 02c7 | | Declare_Variable Any
0093 00d8 | | Load_Top At_Offset_0
0094 1c00 | | Execute_Immediate Run_Utility,0x0
0095 00e1 | | Load_Encached Boolean_Cache
0096 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0097 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call
0099 029f 037b | {| Declare_Subprogram INIT_0378,For_Call
009b 029f 038b | | Declare_Subprogram INIT_0388,For_Call
009d 029f 039b | | Declare_Subprogram INIT_0398,For_Call
009f 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00a0 00c6 | | Action Check_Subprogram_Elaborated
00a1 4807 |H | Short_Literal 0x7
00a2 4802 |H | Short_Literal 0x2
00a3 0099 | | Action Reference_Dynamic
00a4 4808 |H | Short_Literal 0x8
00a5 4802 |H | Short_Literal 0x2
00a6 0099 | | Action Reference_Dynamic
00a7 0093 0000 | | push_full_address 0x0
00a9 604e |`N | Indirect_Literal Discrete,0xf8,{0x80000000, 0x00010000}
00aa 0273 | s | Execute Discrete,Plus
00ab e00b | | Load 0x0,0xb
00ac 0273 | s | Execute Discrete,Plus
00ad e00c | | Load 0x0,0xc
00ae 0273 | s | Execute Discrete,Plus
00af 480c |H | Short_Literal 0xc
00b0 0007 | | Action Break_Optional
00b1 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
00b3 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
00b5 BODY_0088:
00b5 840e | | Call 0x2,0xe
00b6 e402 | | Load 0x2,0x2
00b7 4800 |H | Short_Literal 0x0
00b8 0092 0457 | W| Action Push_String_Extended,0x457 ; "[Program_Library_Maintenance.Display_Referencers (R1000_Code_Segment_Name =>"
00ba e5ff | | Load 0x2,-0x1
00bb 00e0 | | Load_Encached Standard_Cache
00bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00bd 01cc | | Execute Vector,Catenate
00be 0092 0458 | X| Action Push_String_Extended,0x458 ; ", Worlds => \x22"
00c0 01cc | | Execute Vector,Catenate
00c1 e5fe | | Load 0x2,-0x2
00c2 01cc | | Execute Vector,Catenate
00c3 0092 0459 | Y| Action Push_String_Extended,0x459 ; "\x22, Options => \x22"
00c5 01cc | | Execute Vector,Catenate
00c6 e5fd | | Load 0x2,-0x3
00c7 01cc | | Execute Vector,Catenate
00c8 0092 045a | Z| Action Push_String_Extended,0x45a ; "\x22, Response => \x22"
00ca 01cc | | Execute Vector,Catenate
00cb e5fc | | Load 0x2,-0x4
00cc 01cc | | Execute Vector,Catenate
00cd 0092 045b | [| Action Push_String_Extended,0x45b ; "\x22);]."
00cf 01cc | | Execute Vector,Catenate
00d0 e00d | | Load 0x0,0xd
00d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d2 e403 | | Load 0x2,0x3
00d3 0120 | | Execute Any,Is_Value
00d4 6803 |h | Jump_Zero 0xd8
00d5 e007 | | Load 0x0,0x7
00d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d7 7801 |x | Jump 0xd9
00d8 e403 | | Load 0x2,0x3
00d9 e5fe | | Load 0x2,-0x2
00da e5ff | | Load 0x2,-0x1
00db 4809 |H | Short_Literal 0x9
00dc 4802 |H | Short_Literal 0x2
00dd 0099 | | Action Reference_Dynamic
00de 480a |H | Short_Literal 0xa
00df 4802 |H | Short_Literal 0x2
00e0 0099 | | Action Reference_Dynamic
00e1 480b |H | Short_Literal 0xb
00e2 4802 |H | Short_Literal 0x2
00e3 0099 | | Action Reference_Dynamic
00e4 820e | | Call 0x1,0xe
00e5 c403 | | Store 0x2,0x3
00e6 e404 | | Load 0x2,0x4
00e7 6804 |h | Jump_Zero 0xec
00e8 0092 045c | \| Action Push_String_Extended,0x45c ; "<none>"
00ea e00e | | Load 0x0,0xe
00eb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ec e403 | | Load 0x2,0x3
00ed 840d | | Call 0x2,0xd
00ee e402 | | Load 0x2,0x2
00ef 4800 |H | Short_Literal 0x0
00f0 0092 045d | ]| Action Push_String_Extended,0x45d ; "[End of Program_Library_Maintenance.Display_Referencers command]."
00f2 e00d | | Load 0x0,0xd
00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0111 | | .CONST 0x0111 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0006 | | .CONST 0x0006 ; Number of locals
0103 INIT_0100:
0103 e00f | | Load 0x0,0xf
0104 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0105 02ff | | Declare_Variable Variant_Record
0106 00d8 | | Load_Top At_Offset_0
0107 1c00 | | Execute_Immediate Run_Utility,0x0
0108 e00f | | Load 0x0,0xf
0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010a e010 | | Load 0x0,0x10
010b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
010c e010 | | Load 0x0,0x10
010d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
010e e010 | | Load 0x0,0x10
010f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0110 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0111 BODY_0100:
0111 e00f | | Load 0x0,0xf
0112 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0113 e602 | | Load 0x3,0x2
0114 6073 |`s | Indirect_Literal Discrete,0x188,{0x00000000, 0x00004000}
0115 e004 | | Load 0x0,0x4
0116 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0117 4800 |H | Short_Literal 0x0
0118 e7ff | | Load 0x3,-0x1
0119 e00f | | Load 0x0,0xf
011a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
011b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011c 00d1 | | Pop_Control Pop_Count_1
011d c603 | | Store 0x3,0x3
011e 00db | | Load_Top At_Offset_3
011f 6816 |h | Jump_Zero 0x136
0120 4802 |H | Short_Literal 0x2
0121 0092 045e | ^| Action Push_String_Extended,0x45e ; "Bad status getting version for Archived_Code object "
0123 e7ff | | Load 0x3,-0x1
0124 e00f | | Load 0x0,0xf
0125 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0126 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0127 01cc | | Execute Vector,Catenate
0128 0092 045f | _| Action Push_String_Extended,0x45f ; ": "
012a 01cc | | Execute Vector,Catenate
012b e603 | | Load 0x3,0x3
012c e00f | | Load 0x0,0xf
012d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012e 011c | | Execute Any,Convert_Unchecked
012f 1c01 | | Execute_Immediate Run_Utility,0x1
0130 01cc | | Execute Vector,Catenate
0131 e403 | | Load 0x2,0x3
0132 e006 | | Load 0x0,0x6
0133 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0134 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0136 e010 | | Load 0x0,0x10
0137 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0138 e010 | | Load 0x0,0x10
0139 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
013a 4801 |H | Short_Literal 0x1
013b e004 | | Load 0x0,0x4
013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013d e602 | | Load 0x3,0x2
013e e010 | | Load 0x0,0x10
013f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0140 0162 | b | Execute Variant_Record,Check_In_Type
0141 e010 | | Load 0x0,0x10
0142 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0143 c604 | | Store 0x3,0x4
0144 005a | Z | Store_Top Discrete,At_Offset_2
0145 00d9 | | Load_Top At_Offset_1
0146 6816 |h | Jump_Zero 0x15d
0147 4802 |H | Short_Literal 0x2
0148 0092 0460 | `| Action Push_String_Extended,0x460 ; "Bad status opening Archived_Code object "
014a e602 | | Load 0x3,0x2
014b e00f | | Load 0x0,0xf
014c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
014d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
014e 01cc | | Execute Vector,Catenate
014f 0092 045f | _| Action Push_String_Extended,0x45f ; ": "
0151 01cc | | Execute Vector,Catenate
0152 00db | | Load_Top At_Offset_3
0153 e010 | | Load 0x0,0x10
0154 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0155 011c | | Execute Any,Convert_Unchecked
0156 1c01 | | Execute_Immediate Run_Utility,0x1
0157 01cc | | Execute Vector,Catenate
0158 e403 | | Load 0x2,0x3
0159 e006 | | Load 0x0,0x6
015a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
015b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
015c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015d e010 | | Load 0x0,0x10
015e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
015f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0160 e403 | | Load 0x2,0x3
0161 e006 | | Load 0x0,0x6
0162 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0163 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0164 e604 | | Load 0x3,0x4
0165 0217 | | Execute Heap_Access,All_Reference
0166 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0167 e010 | | Load 0x0,0x10
0168 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0169 181f | | Execute Package,Field_Execute,Field_Number 0x1f
016a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
016b 00cf | | Action Mark_Auxiliary
016c 7814 |x | Jump 0x181
016d e5fc | | Load 0x2,-0x4
016e 00da | | Load_Top At_Offset_2
016f e010 | | Load 0x0,0x10
0170 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0171 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0172 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0173 027f | | Execute Discrete,Equal
0174 6806 |h | Jump_Zero 0x17b
0175 e602 | | Load 0x3,0x2
0176 e010 | | Load 0x0,0x10
0177 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0178 0162 | b | Execute Variant_Record,Check_In_Type
0179 85fe | | Call 0x2,-0x2
017a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017b 00d9 | | Load_Top At_Offset_1
017c e010 | | Load 0x0,0x10
017d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
017e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
017f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0180 00c9 | | Action Pop_Auxiliary_Loop
0181 00d9 | | Load_Top At_Offset_1
0182 e010 | | Load 0x0,0x10
0183 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0184 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0185 6fe7 |o | Jump_Zero 0x16d
0186 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0187 0000 | | .XXX[0x1]
0188 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019a | | .CONST 0x019a ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 e011 | | Load 0x0,0x11
0194 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0195 e012 | | Load 0x0,0x12
0196 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0197 02c7 | | Declare_Variable Any
0198 00d8 | | Load_Top At_Offset_0
0199 1c00 | | Execute_Immediate Run_Utility,0x0
019a BODY_0190:
019a 00be | | Action Activate_Tasks
019b e011 | | Load 0x0,0x11
019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019d 00d9 | | Load_Top At_Offset_1
019e 0120 | | Execute Any,Is_Value
019f 6803 |h | Jump_Zero 0x1a3
01a0 e012 | | Load 0x0,0x12
01a1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01a2 7801 |x | Jump 0x1a4
01a3 00d9 | | Load_Top At_Offset_1
01a4 e004 | | Load 0x0,0x4
01a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a6 4800 |H | Short_Literal 0x0
01a7 e012 | | Load 0x0,0x12
01a8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01a9 e003 | | Load 0x0,0x3
01aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ab e012 | | Load 0x0,0x12
01ac 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ad 0161 | a | Execute Variant_Record,Check_In_Formal_Type
01ae 4801 |H | Short_Literal 0x1
01af e7ff | | Load 0x3,-0x1
01b0 e012 | | Load 0x0,0x12
01b1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b2 c603 | | Store 0x3,0x3
01b3 005a | Z | Store_Top Discrete,At_Offset_2
01b4 00d9 | | Load_Top At_Offset_1
01b5 7004 |p | Jump_Nonzero 0x1ba
01b6 00d8 | | Load_Top At_Offset_0
01b7 e012 | | Load 0x0,0x12
01b8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ba 4802 |H | Short_Literal 0x2
01bb 0092 0461 | a| Action Push_String_Extended,0x461 ; "Bad status opening code segment "
01bd e7ff | | Load 0x3,-0x1
01be e003 | | Load 0x0,0x3
01bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c0 01cc | | Execute Vector,Catenate
01c1 0092 045f | _| Action Push_String_Extended,0x45f ; ": "
01c3 01cc | | Execute Vector,Catenate
01c4 00db | | Load_Top At_Offset_3
01c5 e011 | | Load 0x0,0x11
01c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c7 011c | | Execute Any,Convert_Unchecked
01c8 1c01 | | Execute_Immediate Run_Utility,0x1
01c9 01cc | | Execute Vector,Catenate
01ca e403 | | Load 0x2,0x3
01cb e006 | | Load 0x0,0x6
01cc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
01cd 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ce 4800 |H | Short_Literal 0x0
01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d8 | | .CONST 0x01d8 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e006 | | Load 0x0,0x6
01d4 1b52 | R | Execute Package,Field_Read,Field_Number 0x52
01d5 02c7 | | Declare_Variable Any
01d6 00db | | Load_Top At_Offset_3
01d7 a602 | | Store_Unchecked 0x3,0x2
01d8 BODY_01d0:
01d8 00cf | | Action Mark_Auxiliary
01d9 7811 |x | Jump 0x1eb
01da e5fc | | Load 0x2,-0x4
01db 00da | | Load_Top At_Offset_2
01dc e006 | | Load 0x0,0x6
01dd 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
01de e012 | | Load 0x0,0x12
01df 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01e0 0162 | b | Execute Variant_Record,Check_In_Type
01e1 8405 | | Call 0x2,0x5
01e2 027f | | Execute Discrete,Equal
01e3 6802 |h | Jump_Zero 0x1e6
01e4 4801 |H | Short_Literal 0x1
01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e6 00d9 | | Load_Top At_Offset_1
01e7 e006 | | Load 0x0,0x6
01e8 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
01e9 c602 | | Store 0x3,0x2
01ea 00c9 | | Action Pop_Auxiliary_Loop
01eb 00d9 | | Load_Top At_Offset_1
01ec e006 | | Load 0x0,0x6
01ed 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
01ee 012f | / | Execute Any,Equal
01ef 6fea |o | Jump_Zero 0x1da
01f0 00ce | | Action Pop_Auxiliary
01f1 4800 |H | Short_Literal 0x0
01f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fd | | .CONST 0x01fd ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb 029f 041b | | Declare_Subprogram INIT_0418,For_Call
01fd BODY_01f8:
01fd 00db | | Load_Top At_Offset_3
01fe e006 | | Load 0x0,0x6
01ff 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0200 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0201 8406 | | Call 0x2,0x6
0202 6803 |h | Jump_Zero 0x206
0203 4800 |H | Short_Literal 0x0
0204 e7ff | | Load 0x3,-0x1
0205 85fd | | Call 0x2,-0x3
0206 00db | | Load_Top At_Offset_3
0207 e006 | | Load 0x0,0x6
0208 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0209 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
020a 8406 | | Call 0x2,0x6
020b 6803 |h | Jump_Zero 0x20f
020c 4801 |H | Short_Literal 0x1
020d e7ff | | Load 0x3,-0x1
020e 85fd | | Call 0x2,-0x3
020f 00db | | Load_Top At_Offset_3
0210 e006 | | Load 0x0,0x6
0211 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0212 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0213 6801 |h | Jump_Zero 0x215
0214 8602 | | Call 0x3,0x2
0215 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0226 | & | .CONST 0x0226 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0005 | | .CONST 0x0005 ; Number of locals
021b INIT_0218:
021b e006 | | Load 0x0,0x6
021c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
021d 191f | | Execute Package,Field_Reference,Field_Number 0x1f
021e 00c6 | | Action Check_Subprogram_Elaborated
021f 4807 |H | Short_Literal 0x7
0220 4802 |H | Short_Literal 0x2
0221 0099 | | Action Reference_Dynamic
0222 e013 | | Load 0x0,0x13
0223 e014 | | Load 0x0,0x14
0224 4805 |H | Short_Literal 0x5
0225 0007 | | Action Break_Optional
0226 BODY_0218:
0226 4800 |H | Short_Literal 0x0
0227 e015 | | Load 0x0,0x15
0228 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0229 e7ff | | Load 0x3,-0x1
022a e006 | | Load 0x0,0x6
022b 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
022c 180f | | Execute Package,Field_Execute,Field_Number 0xf
022d e016 | | Load 0x0,0x16
022e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
022f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0230 0f03 | | Execute_Immediate Equal,0x3
0231 680e |h | Jump_Zero 0x240
0232 4801 |H | Short_Literal 0x1
0233 4801 |H | Short_Literal 0x1
0234 4801 |H | Short_Literal 0x1
0235 4800 |H | Short_Literal 0x0
0236 e7ff | | Load 0x3,-0x1
0237 4802 |H | Short_Literal 0x2
0238 4803 |H | Short_Literal 0x3
0239 0099 | | Action Reference_Dynamic
023a 4803 |H | Short_Literal 0x3
023b 4803 |H | Short_Literal 0x3
023c 0099 | | Action Reference_Dynamic
023d e006 | | Load 0x0,0x6
023e 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
023f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0240 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0241 0000 0000 | | .BLANK 0000[0x7]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0270 | p | .CONST 0x0270 ; Address of begin
0249 0347 | G | .CONST 0x0347 ; Address of exception handler
024a 0008 | | .CONST 0x0008 ; Number of locals
024b INIT_0248:
024b 485b |H[ | Short_Literal 0x5b
024c e5fb | | Load 0x2,-0x5
024d 01ca | | Execute Vector,Prepend
024e 0092 0462 | b| Action Push_String_Extended,0x462 ; "]"
0250 01cc | | Execute Vector,Catenate
0251 0092 0463 | c| Action Push_String_Extended,0x463 ; "<*PROGRAM_LIBRARY>"
0253 01cc | | Execute Vector,Catenate
0254 0007 | | Action Break_Optional
0255 e00f | | Load 0x0,0xf
0256 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0257 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0258 e00f | | Load 0x0,0xf
0259 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
025b 02c7 | | Declare_Variable Any
025c 00d8 | | Load_Top At_Offset_0
025d 1c00 | | Execute_Immediate Run_Utility,0x0
025e e00f | | Load 0x0,0xf
025f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0260 e00f | | Load 0x0,0xf
0261 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0262 02c7 | | Declare_Variable Any
0263 00d8 | | Load_Top At_Offset_0
0264 1c00 | | Execute_Immediate Run_Utility,0x0
0265 e006 | | Load 0x0,0x6
0266 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0267 02c7 | | Declare_Variable Any
0268 00d8 | | Load_Top At_Offset_0
0269 1c00 | | Execute_Immediate Run_Utility,0x0
026a 485b |H[ | Short_Literal 0x5b
026b e5fb | | Load 0x2,-0x5
026c 01ca | | Execute Vector,Prepend
026d 0092 0464 | d| Action Push_String_Extended,0x464 ; "]code_database'c(archived_code)"
026f 01cc | | Execute Vector,Catenate
0270 BODY_0248:
0270 00cf | | Action Mark_Auxiliary
0271 00e1 | | Load_Encached Boolean_Cache
0272 0266 | f | Execute Discrete,Bounds
0273 0007 | | Action Break_Optional
0274 00d8 | | Load_Top At_Offset_0
0275 6819 |h | Jump_Zero 0x28f
0276 e00f | | Load 0x0,0xf
0277 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0278 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0279 e604 | | Load 0x3,0x4
027a 60e1 |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000}
027b e004 | | Load 0x0,0x4
027c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
027d e008 | | Load 0x0,0x8
027e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
027f e009 | | Load 0x0,0x9
0280 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0281 4801 |H | Short_Literal 0x1
0282 4800 |H | Short_Literal 0x0
0283 e008 | | Load 0x0,0x8
0284 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0285 e00f | | Load 0x0,0xf
0286 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0287 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0288 e602 | | Load 0x3,0x2
0289 e00f | | Load 0x0,0xf
028a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
028b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
028c c604 | | Store 0x3,0x4
028d c603 | | Store 0x3,0x3
028e 7818 |x | Jump 0x2a7
028f e00f | | Load 0x0,0xf
0290 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0291 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0292 e604 | | Load 0x3,0x4
0293 60c8 |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000}
0294 e004 | | Load 0x0,0x4
0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0296 e008 | | Load 0x0,0x8
0297 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0298 e009 | | Load 0x0,0x9
0299 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029a 4801 |H | Short_Literal 0x1
029b 4800 |H | Short_Literal 0x0
029c e008 | | Load 0x0,0x8
029d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029e e00f | | Load 0x0,0xf
029f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02a1 e608 | | Load 0x3,0x8
02a2 e00f | | Load 0x0,0xf
02a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02a5 c604 | | Store 0x3,0x4
02a6 c603 | | Store 0x3,0x3
02a7 e603 | | Load 0x3,0x3
02a8 684c |hL | Jump_Zero 0x2f5
02a9 e603 | | Load 0x3,0x3
02aa 0e03 | | Execute_Immediate Not_Equal,0x3
02ab 7005 |p | Jump_Nonzero 0x2b1
02ac e604 | | Load 0x3,0x4
02ad e00f | | Load 0x0,0xf
02ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02af 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02b0 7044 |pD | Jump_Nonzero 0x2f5
02b1 00d8 | | Load_Top At_Offset_0
02b2 6821 |h! | Jump_Zero 0x2d4
02b3 4802 |H | Short_Literal 0x2
02b4 0092 0465 | e| Action Push_String_Extended,0x465 ; "Unable to resolve name \x22"
02b6 e602 | | Load 0x3,0x2
02b7 01cc | | Execute Vector,Catenate
02b8 0092 0466 | f| Action Push_String_Extended,0x466 ; "\x22 because "
02ba 01cc | | Execute Vector,Catenate
02bb 60a0 |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000}
02bc e004 | | Load 0x0,0x4
02bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02be e008 | | Load 0x0,0x8
02bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c0 e009 | | Load 0x0,0x9
02c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c2 4801 |H | Short_Literal 0x1
02c3 4800 |H | Short_Literal 0x0
02c4 e008 | | Load 0x0,0x8
02c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c6 e00f | | Load 0x0,0xf
02c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02c9 e602 | | Load 0x3,0x2
02ca e603 | | Load 0x3,0x3
02cb e00f | | Load 0x0,0xf
02cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02cd 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02ce 01cc | | Execute Vector,Catenate
02cf e403 | | Load 0x2,0x3
02d0 e006 | | Load 0x0,0x6
02d1 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
02d2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02d3 7870 |xp | Jump 0x344
02d4 4802 |H | Short_Literal 0x2
02d5 0092 0465 | e| Action Push_String_Extended,0x465 ; "Unable to resolve name \x22"
02d7 e608 | | Load 0x3,0x8
02d8 01cc | | Execute Vector,Catenate
02d9 0092 0466 | f| Action Push_String_Extended,0x466 ; "\x22 because "
02db 01cc | | Execute Vector,Catenate
02dc 607f |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00004000}
02dd e004 | | Load 0x0,0x4
02de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02df e008 | | Load 0x0,0x8
02e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e1 e009 | | Load 0x0,0x9
02e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e3 4801 |H | Short_Literal 0x1
02e4 4800 |H | Short_Literal 0x0
02e5 e008 | | Load 0x0,0x8
02e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e7 e00f | | Load 0x0,0xf
02e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ea e608 | | Load 0x3,0x8
02eb e603 | | Load 0x3,0x3
02ec e00f | | Load 0x0,0xf
02ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ee 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02ef 01cc | | Execute Vector,Catenate
02f0 e403 | | Load 0x2,0x3
02f1 e006 | | Load 0x0,0x6
02f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
02f3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02f4 784f |xO | Jump 0x344
02f5 00cf | | Action Mark_Auxiliary
02f6 7847 |xG | Jump 0x33e
02f7 e00f | | Load 0x0,0xf
02f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f9 e606 | | Load 0x3,0x6
02fa 0120 | | Execute Any,Is_Value
02fb 6803 |h | Jump_Zero 0x2ff
02fc e00f | | Load 0x0,0xf
02fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02fe 7801 |x | Jump 0x300
02ff e606 | | Load 0x3,0x6
0300 e604 | | Load 0x3,0x4
0301 e00f | | Load 0x0,0xf
0302 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0303 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0304 c606 | | Store 0x3,0x6
0305 c605 | | Store 0x3,0x5
0306 e605 | | Load 0x3,0x5
0307 6816 |h | Jump_Zero 0x31e
0308 4802 |H | Short_Literal 0x2
0309 0092 0467 | g| Action Push_String_Extended,0x467 ; "Bad status getting object for "
030b e604 | | Load 0x3,0x4
030c e00f | | Load 0x0,0xf
030d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
030e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
030f 01cc | | Execute Vector,Catenate
0310 0092 045f | _| Action Push_String_Extended,0x45f ; ": "
0312 01cc | | Execute Vector,Catenate
0313 e605 | | Load 0x3,0x5
0314 e00f | | Load 0x0,0xf
0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0316 011c | | Execute Any,Convert_Unchecked
0317 1c01 | | Execute_Immediate Run_Utility,0x1
0318 01cc | | Execute Vector,Catenate
0319 e403 | | Load 0x2,0x3
031a e006 | | Load 0x0,0x6
031b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
031c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
031d 781a |x | Jump 0x338
031e 00d9 | | Load_Top At_Offset_1
031f 6816 |h | Jump_Zero 0x336
0320 e607 | | Load 0x3,0x7
0321 0120 | | Execute Any,Is_Value
0322 6803 |h | Jump_Zero 0x326
0323 e006 | | Load 0x0,0x6
0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0325 7801 |x | Jump 0x327
0326 e607 | | Load 0x3,0x7
0327 4801 |H | Short_Literal 0x1
0328 e606 | | Load 0x3,0x6
0329 e403 | | Load 0x2,0x3
032a e006 | | Load 0x0,0x6
032b 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
032c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
032d c607 | | Store 0x3,0x7
032e e403 | | Load 0x2,0x3
032f e006 | | Load 0x0,0x6
0330 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0331 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0332 6810 |h | Jump_Zero 0x343
0333 e607 | | Load 0x3,0x7
0334 8408 | | Call 0x2,0x8
0335 7802 |x | Jump 0x338
0336 e606 | | Load 0x3,0x6
0337 8404 | | Call 0x2,0x4
0338 e604 | | Load 0x3,0x4
0339 e00f | | Load 0x0,0xf
033a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
033b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
033c c604 | | Store 0x3,0x4
033d 00c9 | | Action Pop_Auxiliary_Loop
033e e604 | | Load 0x3,0x4
033f e00f | | Load 0x0,0xf
0340 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0341 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0342 6fb4 |o | Jump_Zero 0x2f7
0343 00ce | | Action Pop_Auxiliary
0344 00c8 | | Action Pop_Auxiliary_Range
0345 372e |7. | Loop_Decreasing 0x274
0346 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0347 TRAP_0248:
0347 0007 | | Action Break_Optional
0348 4802 |H | Short_Literal 0x2
0349 0092 0468 | h| Action Push_String_Extended,0x468 ; "Unexpected exception raised while determining referencers for code segment "
034b e5fc | | Load 0x2,-0x4
034c 00e0 | | Load_Encached Standard_Cache
034d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
034e 01cc | | Execute Vector,Catenate
034f 0092 045f | _| Action Push_String_Extended,0x45f ; ": "
0351 01cc | | Execute Vector,Catenate
0352 e017 | | Load 0x0,0x17
0353 180d | | Execute Package,Field_Execute,Field_Number 0xd
0354 01cc | | Execute Vector,Catenate
0355 e403 | | Load 0x2,0x3
0356 e006 | | Load 0x0,0x6
0357 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0358 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0359 4501 |E | Exit_Suprogram New_Top_Offset 0x1
035a 0000 0000 | | .XXX[0x2]
035c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0367 | g | .CONST 0x0367 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0002 | | .CONST 0x0002 ; Number of locals
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 e006 | | Load 0x0,0x6
0365 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0366 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0367 BODY_0360:
0367 e7fe | | Load 0x3,-0x2
0368 6807 |h | Jump_Zero 0x370
0369 00d8 | | Load_Top At_Offset_0
036a 0092 0469 | i| Action Push_String_Extended,0x469 ; " (elaboration code)"
036c 01cc | | Execute Vector,Catenate
036d e00e | | Load 0x0,0xe
036e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
036f 7803 |x | Jump 0x373
0370 00d8 | | Load_Top At_Offset_0
0371 e00e | | Load 0x0,0xe
0372 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0373 4800 |H | Short_Literal 0x0
0374 a404 | | Store_Unchecked 0x2,0x4
0375 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0376 0000 0000 | | .XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c e00f | | Load 0x0,0xf
037d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
037e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
037f e00e | | Load 0x0,0xe
0380 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0381 4800 |H | Short_Literal 0x0
0382 a404 | | Store_Unchecked 0x2,0x4
0383 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0384 0000 0000 | | .BLANK 0000[0x4]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00db | | Load_Top At_Offset_3
038c 00db | | Load_Top At_Offset_3
038d e006 | | Load 0x0,0x6
038e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
038f 0119 | | Execute Any,Check_In_Formal_Type
0390 8405 | | Call 0x2,0x5
0391 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0392 0000 0000 | | .BLANK 0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00da | | Load_Top At_Offset_2
039c e010 | | Load 0x0,0x10
039d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
039e 0161 | a | Execute Variant_Record,Check_In_Formal_Type
039f 8406 | | Call 0x2,0x6
03a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a1 0000 0000 | | .BLANK 0000[0x7]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03d3 | | .CONST 0x03d3 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0004 | | .CONST 0x0004 ; Number of locals
03ab INIT_03a8:
03ab e007 | | Load 0x0,0x7
03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ad 02c7 | | Declare_Variable Any
03ae 00db | | Load_Top At_Offset_3
03af a602 | | Store_Unchecked 0x3,0x2
03b0 e007 | | Load 0x0,0x7
03b1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03b2 0266 | f | Execute Discrete,Bounds
03b3 e00a | | Load 0x0,0xa
03b4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
03b5 02a0 | | Declare_Subprogram Null_Subprogram
03b6 4801 |H | Short_Literal 0x1
03b7 035d | ] | Declare_Type Array,Defined
03b8 00d8 | | Load_Top At_Offset_0
03b9 0337 | 7 | Declare_Variable Array
03ba 00d8 | | Load_Top At_Offset_0
03bb 0335 | 5 | Declare_Variable Array,Duplicate
03bc 00cd | | Action Spare6_Action
03bd 4802 |H | Short_Literal 0x2
03be 4800 |H | Short_Literal 0x0
03bf 00da | | Load_Top At_Offset_2
03c0 01d6 | | Execute Vector,Field_Write
03c1 4806 |H | Short_Literal 0x6
03c2 4801 |H | Short_Literal 0x1
03c3 00da | | Load_Top At_Offset_2
03c4 01d6 | | Execute Vector,Field_Write
03c5 4807 |H | Short_Literal 0x7
03c6 4802 |H | Short_Literal 0x2
03c7 00da | | Load_Top At_Offset_2
03c8 01d6 | | Execute Vector,Field_Write
03c9 4807 |H | Short_Literal 0x7
03ca 4803 |H | Short_Literal 0x3
03cb 00da | | Load_Top At_Offset_2
03cc 01d6 | | Execute Vector,Field_Write
03cd 4808 |H | Short_Literal 0x8
03ce 4804 |H | Short_Literal 0x4
03cf 00da | | Load_Top At_Offset_2
03d0 01d6 | | Execute Vector,Field_Write
03d1 00d9 | | Load_Top At_Offset_1
03d2 01d4 | | Execute Vector,Structure_Write
03d3 BODY_03a8:
03d3 00cf | | Action Mark_Auxiliary
03d4 7810 |x | Jump 0x3e5
03d5 e402 | | Load 0x2,0x2
03d6 e602 | | Load 0x3,0x2
03d7 e007 | | Load 0x0,0x7
03d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d9 00db | | Load_Top At_Offset_3
03da 01d7 | | Execute Vector,Field_Read
03db e602 | | Load 0x3,0x2
03dc e007 | | Load 0x0,0x7
03dd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03de e00d | | Load 0x0,0xd
03df 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e0 00db | | Load_Top At_Offset_3
03e1 e007 | | Load 0x0,0x7
03e2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03e3 c602 | | Store 0x3,0x2
03e4 00c9 | | Action Pop_Auxiliary_Loop
03e5 00db | | Load_Top At_Offset_3
03e6 e007 | | Load 0x0,0x7
03e7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03e8 6fec |o | Jump_Zero 0x3d5
03e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ea 0000 0000 | | .BLANK 0000[0x6]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f8 | | .CONST 0x03f8 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0002 | | .CONST 0x0002 ; Number of locals
03f3 INIT_03f0:
03f3 e018 | | Load 0x0,0x18
03f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f5 02c7 | | Declare_Variable Any
03f6 00d8 | | Load_Top At_Offset_0
03f7 1c00 | | Execute_Immediate Run_Utility,0x0
03f8 BODY_03f0:
03f8 00d8 | | Load_Top At_Offset_0
03f9 e402 | | Load 0x2,0x2
03fa 0120 | | Execute Any,Is_Value
03fb 6803 |h | Jump_Zero 0x3ff
03fc e00a | | Load 0x0,0xa
03fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fe 7801 |x | Jump 0x400
03ff e402 | | Load 0x2,0x2
0400 e5fc | | Load 0x2,-0x4
0401 e00a | | Load 0x0,0xa
0402 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0403 c402 | | Store 0x2,0x2
0404 c602 | | Store 0x3,0x2
0405 4801 |H | Short_Literal 0x1
0406 00d9 | | Load_Top At_Offset_1
0407 e018 | | Load 0x0,0x18
0408 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0409 6807 |h | Jump_Zero 0x411
040a e00a | | Load 0x0,0xa
040b 180e | | Execute Package,Field_Execute,Field_Number 0xe
040c 00d9 | | Load_Top At_Offset_1
040d e00d | | Load 0x0,0xd
040e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
040f 00cc | | Action Pop_Block
0410 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0411 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0412 0000 0000 | | .BLANK 0000[0x6]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0421 | ! | .CONST 0x0421 ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0003 | | .CONST 0x0003 ; Number of locals
041b INIT_0418:
041b e7ff | | Load 0x3,-0x1
041c e006 | | Load 0x0,0x6
041d 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
041e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
041f 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
0421 BODY_0418:
0421 8803 | | Call 0x4,0x3
0422 00d9 | | Load_Top At_Offset_1
0423 680c |h | Jump_Zero 0x430
0424 e004 | | Load 0x0,0x4
0425 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0426 00da | | Load_Top At_Offset_2
0427 e019 | | Load 0x0,0x19
0428 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
0429 6806 |h | Jump_Zero 0x430
042a e004 | | Load 0x0,0x4
042b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
042c 00da | | Load_Top At_Offset_2
042d e019 | | Load 0x0,0x19
042e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
042f 8404 | | Call 0x2,0x4
0430 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0431 0000 0000 | | .BLANK 0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0447 | G | .CONST 0x0447 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b e802 | | Load 0x4,0x2
043c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
043d 0f35 | 5 | Execute_Immediate Equal,0x35
043e 6807 |h | Jump_Zero 0x446
043f 4802 |H | Short_Literal 0x2
0440 0092 046a | j| Action Push_String_Extended,0x46a ; "It is very unlikely that this message will ever be emitted"
0442 e403 | | Load 0x2,0x3
0443 e006 | | Load 0x0,0x6
0444 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0445 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0446 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0447 TRAP_0438:
0447 0007 | | Action Break_Optional
0448 4802 |H | Short_Literal 0x2
0449 0092 046b | k| Action Push_String_Extended,0x46b ; "Found corrupt Comp_Unit_Id for unit "
044b e7ff | | Load 0x3,-0x1
044c e006 | | Load 0x0,0x6
044d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
044e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
044f 01cc | | Execute Vector,Catenate
0450 e403 | | Load 0x2,0x3
0451 e006 | | Load 0x0,0x6
0452 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0453 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0454 00ec | | Load_Encached Diana_Tree_Cache
0455 a802 | | Store_Unchecked 0x4,0x2
0456 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0457 ; --------------------------------------------------------------------------------------
0457 ; STRING TABLE
0457 ; --------------------------------------------------------------------------------------
0457 002c | , | .STRTAB 0x002c->0x046d ; "[Program_Library_Maintenance.Display_Referencers (R1000_Code_Segment_Name =>"
0458 0076 | v | .STRTAB 0x0076->0x0493 ; ", Worlds => \x22"
0459 0081 | | .STRTAB 0x0081->0x0499 ; "\x22, Options => \x22"
045a 008e | | .STRTAB 0x008e->0x04a1 ; "\x22, Response => \x22"
045b 009c | | .STRTAB 0x009c->0x04a9 ; "\x22);]."
045c 009f | | .STRTAB 0x009f->0x04ab ; "<none>"
045d 00a3 | | .STRTAB 0x00a3->0x04ae ; "[End of Program_Library_Maintenance.Display_Referencers command]."
045e 00e2 | | .STRTAB 0x00e2->0x04cf ; "Bad status getting version for Archived_Code object "
045f 0114 | | .STRTAB 0x0114->0x04e9 ; ": "
0460 0114 | | .STRTAB 0x0114->0x04ea ; "Bad status opening Archived_Code object "
0461 013a | : | .STRTAB 0x013a->0x04fe ; "Bad status opening code segment "
0462 0158 | X | .STRTAB 0x0158->0x050e ; "]"
0463 0157 | W | .STRTAB 0x0157->0x050e ; "<*PROGRAM_LIBRARY>"
0464 0167 | g | .STRTAB 0x0167->0x0517 ; "]code_database'c(archived_code)"
0465 0184 | | .STRTAB 0x0184->0x0527 ; "Unable to resolve name \x22"
0466 019a | | .STRTAB 0x019a->0x0533 ; "\x22 because "
0467 01a2 | | .STRTAB 0x01a2->0x0538 ; "Bad status getting object for "
0468 01be | | .STRTAB 0x01be->0x0547 ; "Unexpected exception raised while determining referencers for code segment "
0469 0207 | | .STRTAB 0x0207->0x056c ; " (elaboration code)"
046a 0218 | | .STRTAB 0x0218->0x0576 ; "It is very unlikely that this message will ever be emitted"
046b 0250 | P | .STRTAB 0x0250->0x0593 ; "Found corrupt Comp_Unit_Id for unit "
046c 0272 | r | .STREND 0x0272->0x05a5
046d 5b50 726f |[Pro| .STRTAB_STRINGS
05a5 0000 0000 | | .XXX[0x3]
05a7 0000 | |
05a8 ; --------------------------------------------------------------------------------------
05a8 ; Debug Table
05a8 ; --------------------------------------------------------------------------------------
05a8 0004 0007 | | .DEBUG4 0x0004,0x0007,0x48a7,0x0000,0x0001,0x0000
05ae 0000 0000 | | .XXX[0x7]
05b0 10f7 5ce4 | \ |
05b2 f000 0000 | |
05b4 0008 | |
05b5 0000 0000 | | .BLANK 0000[0xf]
05c4 3925 0300 |9% | .XXX[0x10]
05c6 0000 803d | =|
05c8 d143 c880 | C |
05ca 0000 0002 | |
05cc 0000 0004 | |
05ce 8000 085e | ^|
05d0 0000 0001 | |
05d2 0000 0001 | |
05d4 0000 0000 | | .BLANK 0000[0x7]
05db 1070 8000 | p | .XXX[0x2]
05dd 0000 0000 | | .BLANK 0000[0x7]
05e4 0020 0000 | | .XXX[0x9]
05e6 0000 0000 | |
05e8 0020 0001 | |
05ea 2c00 2167 |, !g|
05ec 4f40 |O@ |
05ed 0000 0000 | | .BLANK 0000[0x4]
05f1 10b3 f4f0 | | .XXX[0xf]
05f3 0003 b6ea | |
05f5 8197 a54c | L|
05f7 1abb 0000 | |
05f9 0540 e1a5 | @ |
05fb 31a6 9b80 |1 |
05fd 0009 1000 | |
05ff 0000 | |