|
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_043cfb
└─⟦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 0578 | x | .CONST 0x0578 ; 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 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0013 c211 | | Store 0x1,0x11
0014 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0016 c210 | | Store 0x1,0x10
0017 00bf | | Action Accept_Activation
0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0019 00c7 | | Action Elaborate_Subprogram
001a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
001b 00c7 | | Action Elaborate_Subprogram
001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001d 00c7 | | Action Elaborate_Subprogram
001e BODY_0008:
001e 00bc | | Action Signal_Activated
001f 00bb | | Action Signal_Completion
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 e001 | | Load 0x0,0x1
0026 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0027 e001 | | Load 0x0,0x1
0028 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0029 03f1 | | Declare_Variable Discrete,With_Value
002a e001 | | Load 0x0,0x1
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 e001 | | Load 0x0,0x1
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 e001 | | Load 0x0,0x1
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 e002 | | Load 0x0,0x2
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 e003 | | Load 0x0,0x3
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 02c7 | | Declare_Variable Any
0056 e004 | | Load 0x0,0x4
0057 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0058 e003 | | Load 0x0,0x3
0059 1814 | | Execute Package,Field_Execute,Field_Number 0x14
005a a402 | | Store_Unchecked 0x2,0x2
005b e005 | | Load 0x0,0x5
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 e006 | | Load 0x0,0x6
0063 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0064 e402 | | Load 0x2,0x2
0065 e007 | | Load 0x0,0x7
0066 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0067 e008 | | Load 0x0,0x8
0068 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0069 e005 | | Load 0x0,0x5
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 00f3 | | Declare_Subprogram INIT_00f0,For_Call
006f 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0071 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0073 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0075 029f 020b | | Declare_Subprogram INIT_0208,For_Call
0077 029f 023b | ;| Declare_Subprogram INIT_0238,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 e003 | | Load 0x0,0x3
007e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007f c402 | | Store 0x2,0x2
0080 e403 | | Load 0x2,0x3
0081 e005 | | Load 0x0,0x5
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 00ae | | .CONST 0x00ae ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 000e | | .CONST 0x000e ; Number of locals
008b INIT_0088:
008b e009 | | Load 0x0,0x9
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 e00a | | Load 0x0,0xa
0091 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0092 0007 | | Action Break_Optional
0093 e006 | | Load 0x0,0x6
0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0095 02c7 | | Declare_Variable Any
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 00e1 | | Load_Encached Boolean_Cache
0099 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
009a 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
009c 029f 036b | k| Declare_Subprogram INIT_0368,For_Call
009e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
009f 00c6 | | Action Check_Subprogram_Elaborated
00a0 4806 |H | Short_Literal 0x6
00a1 4802 |H | Short_Literal 0x2
00a2 0099 | | Action Reference_Dynamic
00a3 4807 |H | Short_Literal 0x7
00a4 4802 |H | Short_Literal 0x2
00a5 0099 | | Action Reference_Dynamic
00a6 e00b | | Load 0x0,0xb
00a7 e00c | | Load 0x0,0xc
00a8 480c |H | Short_Literal 0xc
00a9 0007 | | Action Break_Optional
00aa 029f 037b | {| Declare_Subprogram INIT_0378,For_Call
00ac 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
00ae BODY_0088:
00ae 840e | | Call 0x2,0xe
00af e402 | | Load 0x2,0x2
00b0 4800 |H | Short_Literal 0x0
00b1 0092 0429 | )| Action Push_String_Extended,0x429 ; "[Program_Library_Maintenance.Display_Referencers (R1000_Code_Segment_Name =>"
00b3 e5ff | | Load 0x2,-0x1
00b4 00e0 | | Load_Encached Standard_Cache
00b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b6 01cc | | Execute Vector,Catenate
00b7 0092 042a | *| Action Push_String_Extended,0x42a ; ", Worlds => \x22"
00b9 01cc | | Execute Vector,Catenate
00ba e5fe | | Load 0x2,-0x2
00bb 01cc | | Execute Vector,Catenate
00bc 0092 042b | +| Action Push_String_Extended,0x42b ; "\x22, Options => \x22"
00be 01cc | | Execute Vector,Catenate
00bf e5fd | | Load 0x2,-0x3
00c0 01cc | | Execute Vector,Catenate
00c1 0092 042c | ,| Action Push_String_Extended,0x42c ; "\x22, Response => \x22"
00c3 01cc | | Execute Vector,Catenate
00c4 e5fc | | Load 0x2,-0x4
00c5 01cc | | Execute Vector,Catenate
00c6 0092 042d | -| Action Push_String_Extended,0x42d ; "\x22);]."
00c8 01cc | | Execute Vector,Catenate
00c9 8403 | | Call 0x2,0x3
00ca e404 | | Load 0x2,0x4
00cb 0120 | | Execute Any,Is_Value
00cc 6803 |h | Jump_Zero 0xd0
00cd e006 | | Load 0x0,0x6
00ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cf 7801 |x | Jump 0xd1
00d0 e404 | | Load 0x2,0x4
00d1 e5fe | | Load 0x2,-0x2
00d2 e5ff | | Load 0x2,-0x1
00d3 4808 |H | Short_Literal 0x8
00d4 4802 |H | Short_Literal 0x2
00d5 0099 | | Action Reference_Dynamic
00d6 4809 |H | Short_Literal 0x9
00d7 4802 |H | Short_Literal 0x2
00d8 0099 | | Action Reference_Dynamic
00d9 480a |H | Short_Literal 0xa
00da 4802 |H | Short_Literal 0x2
00db 0099 | | Action Reference_Dynamic
00dc 8211 | | Call 0x1,0x11
00dd c404 | | Store 0x2,0x4
00de e405 | | Load 0x2,0x5
00df 6804 |h | Jump_Zero 0xe4
00e0 0092 042e | .| Action Push_String_Extended,0x42e ; "<none>"
00e2 e00d | | Load 0x0,0xd
00e3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00e4 e404 | | Load 0x2,0x4
00e5 840d | | Call 0x2,0xd
00e6 e402 | | Load 0x2,0x2
00e7 4800 |H | Short_Literal 0x0
00e8 0092 042f | /| Action Push_String_Extended,0x42f ; "[End of Program_Library_Maintenance.Display_Referencers command]."
00ea 8403 | | Call 0x2,0x3
00eb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0101 | | .CONST 0x0101 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0006 | | .CONST 0x0006 ; Number of locals
00f3 INIT_00f0:
00f3 e00e | | Load 0x0,0xe
00f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00f5 02ff | | Declare_Variable Variant_Record
00f6 00d8 | | Load_Top At_Offset_0
00f7 1c00 | | Execute_Immediate Run_Utility,0x0
00f8 e00e | | Load 0x0,0xe
00f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fa e00f | | Load 0x0,0xf
00fb 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00fc e00f | | Load 0x0,0xf
00fd 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00fe e00f | | Load 0x0,0xf
00ff 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0100 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0101 BODY_00f0:
0101 e00e | | Load 0x0,0xe
0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0103 e602 | | Load 0x3,0x2
0104 6073 |`s | Indirect_Literal Discrete,0x178,{0x00000000, 0x00004000}
0105 e003 | | Load 0x0,0x3
0106 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0107 4800 |H | Short_Literal 0x0
0108 e7ff | | Load 0x3,-0x1
0109 e00e | | Load 0x0,0xe
010a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
010b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
010c 00d1 | | Pop_Control Pop_Count_1
010d c603 | | Store 0x3,0x3
010e 00db | | Load_Top At_Offset_3
010f 6816 |h | Jump_Zero 0x126
0110 4802 |H | Short_Literal 0x2
0111 0092 0430 | 0| Action Push_String_Extended,0x430 ; "Bad status getting version for Archived_Code object "
0113 e7ff | | Load 0x3,-0x1
0114 e00e | | Load 0x0,0xe
0115 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0116 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0117 01cc | | Execute Vector,Catenate
0118 0092 0431 | 1| Action Push_String_Extended,0x431 ; ": "
011a 01cc | | Execute Vector,Catenate
011b e603 | | Load 0x3,0x3
011c e00e | | Load 0x0,0xe
011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011e 011c | | Execute Any,Convert_Unchecked
011f 1c01 | | Execute_Immediate Run_Utility,0x1
0120 01cc | | Execute Vector,Catenate
0121 e403 | | Load 0x2,0x3
0122 e005 | | Load 0x0,0x5
0123 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0124 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0125 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0126 e00f | | Load 0x0,0xf
0127 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0128 e00f | | Load 0x0,0xf
0129 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
012a 4801 |H | Short_Literal 0x1
012b e003 | | Load 0x0,0x3
012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012d e602 | | Load 0x3,0x2
012e e00f | | Load 0x0,0xf
012f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0130 0162 | b | Execute Variant_Record,Check_In_Type
0131 e00f | | Load 0x0,0xf
0132 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0133 c604 | | Store 0x3,0x4
0134 005a | Z | Store_Top Discrete,At_Offset_2
0135 00d9 | | Load_Top At_Offset_1
0136 6816 |h | Jump_Zero 0x14d
0137 4802 |H | Short_Literal 0x2
0138 0092 0432 | 2| Action Push_String_Extended,0x432 ; "Bad status opening Archived_Code object "
013a e602 | | Load 0x3,0x2
013b e00e | | Load 0x0,0xe
013c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
013d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
013e 01cc | | Execute Vector,Catenate
013f 0092 0431 | 1| Action Push_String_Extended,0x431 ; ": "
0141 01cc | | Execute Vector,Catenate
0142 00db | | Load_Top At_Offset_3
0143 e00f | | Load 0x0,0xf
0144 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0145 011c | | Execute Any,Convert_Unchecked
0146 1c01 | | Execute_Immediate Run_Utility,0x1
0147 01cc | | Execute Vector,Catenate
0148 e403 | | Load 0x2,0x3
0149 e005 | | Load 0x0,0x5
014a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
014b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014d e00f | | Load 0x0,0xf
014e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
014f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0150 e403 | | Load 0x2,0x3
0151 e005 | | Load 0x0,0x5
0152 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0153 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0154 e604 | | Load 0x3,0x4
0155 0217 | | Execute Heap_Access,All_Reference
0156 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0157 e00f | | Load 0x0,0xf
0158 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0159 181f | | Execute Package,Field_Execute,Field_Number 0x1f
015a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
015b 00cf | | Action Mark_Auxiliary
015c 7814 |x | Jump 0x171
015d e5fc | | Load 0x2,-0x4
015e 00da | | Load_Top At_Offset_2
015f e00f | | Load 0x0,0xf
0160 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0161 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0162 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0163 027f | | Execute Discrete,Equal
0164 6806 |h | Jump_Zero 0x16b
0165 e602 | | Load 0x3,0x2
0166 e00f | | Load 0x0,0xf
0167 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0168 0162 | b | Execute Variant_Record,Check_In_Type
0169 85fe | | Call 0x2,-0x2
016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016b 00d9 | | Load_Top At_Offset_1
016c e00f | | Load 0x0,0xf
016d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
016e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
016f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0170 00c9 | | Action Pop_Auxiliary_Loop
0171 00d9 | | Load_Top At_Offset_1
0172 e00f | | Load 0x0,0xf
0173 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0174 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0175 6fe7 |o | Jump_Zero 0x15d
0176 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0177 0000 | | .XXX[0x1]
0178 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018a | | .CONST 0x018a ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 e010 | | Load 0x0,0x10
0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0185 e011 | | Load 0x0,0x11
0186 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0187 02c7 | | Declare_Variable Any
0188 00d8 | | Load_Top At_Offset_0
0189 1c00 | | Execute_Immediate Run_Utility,0x0
018a BODY_0180:
018a 00be | | Action Activate_Tasks
018b e010 | | Load 0x0,0x10
018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018d 00d9 | | Load_Top At_Offset_1
018e 0120 | | Execute Any,Is_Value
018f 6803 |h | Jump_Zero 0x193
0190 e011 | | Load 0x0,0x11
0191 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0192 7801 |x | Jump 0x194
0193 00d9 | | Load_Top At_Offset_1
0194 e003 | | Load 0x0,0x3
0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0196 4800 |H | Short_Literal 0x0
0197 e011 | | Load 0x0,0x11
0198 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0199 e002 | | Load 0x0,0x2
019a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
019b e011 | | Load 0x0,0x11
019c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
019d 0161 | a | Execute Variant_Record,Check_In_Formal_Type
019e 4801 |H | Short_Literal 0x1
019f e7ff | | Load 0x3,-0x1
01a0 e011 | | Load 0x0,0x11
01a1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a2 c603 | | Store 0x3,0x3
01a3 005a | Z | Store_Top Discrete,At_Offset_2
01a4 00d9 | | Load_Top At_Offset_1
01a5 7004 |p | Jump_Nonzero 0x1aa
01a6 00d8 | | Load_Top At_Offset_0
01a7 e011 | | Load 0x0,0x11
01a8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01aa 4802 |H | Short_Literal 0x2
01ab 0092 0433 | 3| Action Push_String_Extended,0x433 ; "Bad status opening code segment "
01ad e7ff | | Load 0x3,-0x1
01ae e002 | | Load 0x0,0x2
01af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b0 01cc | | Execute Vector,Catenate
01b1 0092 0431 | 1| Action Push_String_Extended,0x431 ; ": "
01b3 01cc | | Execute Vector,Catenate
01b4 00db | | Load_Top At_Offset_3
01b5 e010 | | Load 0x0,0x10
01b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b7 011c | | Execute Any,Convert_Unchecked
01b8 1c01 | | Execute_Immediate Run_Utility,0x1
01b9 01cc | | Execute Vector,Catenate
01ba e403 | | Load 0x2,0x3
01bb e005 | | Load 0x0,0x5
01bc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
01bd 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01be 4800 |H | Short_Literal 0x0
01bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c8 | | .CONST 0x01c8 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e005 | | Load 0x0,0x5
01c4 1b52 | R | Execute Package,Field_Read,Field_Number 0x52
01c5 02c7 | | Declare_Variable Any
01c6 00db | | Load_Top At_Offset_3
01c7 a602 | | Store_Unchecked 0x3,0x2
01c8 BODY_01c0:
01c8 00cf | | Action Mark_Auxiliary
01c9 7811 |x | Jump 0x1db
01ca e5fc | | Load 0x2,-0x4
01cb 00da | | Load_Top At_Offset_2
01cc e005 | | Load 0x0,0x5
01cd 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
01ce e011 | | Load 0x0,0x11
01cf 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01d0 0162 | b | Execute Variant_Record,Check_In_Type
01d1 8405 | | Call 0x2,0x5
01d2 027f | | Execute Discrete,Equal
01d3 6802 |h | Jump_Zero 0x1d6
01d4 4801 |H | Short_Literal 0x1
01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d6 00d9 | | Load_Top At_Offset_1
01d7 e005 | | Load 0x0,0x5
01d8 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
01d9 c602 | | Store 0x3,0x2
01da 00c9 | | Action Pop_Auxiliary_Loop
01db 00d9 | | Load_Top At_Offset_1
01dc e005 | | Load 0x0,0x5
01dd 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
01de 012f | / | Execute Any,Equal
01df 6fea |o | Jump_Zero 0x1ca
01e0 00ce | | Action Pop_Auxiliary
01e1 4800 |H | Short_Literal 0x0
01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e3 0000 0000 | | .BLANK 0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ed | | .CONST 0x01ed ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
01ed BODY_01e8:
01ed 00db | | Load_Top At_Offset_3
01ee e005 | | Load 0x0,0x5
01ef 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01f0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01f1 8406 | | Call 0x2,0x6
01f2 6803 |h | Jump_Zero 0x1f6
01f3 4800 |H | Short_Literal 0x0
01f4 e7ff | | Load 0x3,-0x1
01f5 85fd | | Call 0x2,-0x3
01f6 00db | | Load_Top At_Offset_3
01f7 e005 | | Load 0x0,0x5
01f8 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01f9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01fa 8406 | | Call 0x2,0x6
01fb 6803 |h | Jump_Zero 0x1ff
01fc 4801 |H | Short_Literal 0x1
01fd e7ff | | Load 0x3,-0x1
01fe 85fd | | Call 0x2,-0x3
01ff 00db | | Load_Top At_Offset_3
0200 e005 | | Load 0x0,0x5
0201 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0202 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0203 6801 |h | Jump_Zero 0x205
0204 8602 | | Call 0x3,0x2
0205 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0206 0000 0000 | | .XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0216 | | .CONST 0x0216 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0005 | | .CONST 0x0005 ; Number of locals
020b INIT_0208:
020b e005 | | Load 0x0,0x5
020c 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
020d 191f | | Execute Package,Field_Reference,Field_Number 0x1f
020e 00c6 | | Action Check_Subprogram_Elaborated
020f 4807 |H | Short_Literal 0x7
0210 4802 |H | Short_Literal 0x2
0211 0099 | | Action Reference_Dynamic
0212 e012 | | Load 0x0,0x12
0213 e013 | | Load 0x0,0x13
0214 4805 |H | Short_Literal 0x5
0215 0007 | | Action Break_Optional
0216 BODY_0208:
0216 4800 |H | Short_Literal 0x0
0217 e014 | | Load 0x0,0x14
0218 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0219 e7ff | | Load 0x3,-0x1
021a e005 | | Load 0x0,0x5
021b 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
021c 180f | | Execute Package,Field_Execute,Field_Number 0xf
021d e015 | | Load 0x0,0x15
021e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
021f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0220 0f03 | | Execute_Immediate Equal,0x3
0221 680e |h | Jump_Zero 0x230
0222 4801 |H | Short_Literal 0x1
0223 4801 |H | Short_Literal 0x1
0224 4801 |H | Short_Literal 0x1
0225 4800 |H | Short_Literal 0x0
0226 e7ff | | Load 0x3,-0x1
0227 4802 |H | Short_Literal 0x2
0228 4803 |H | Short_Literal 0x3
0229 0099 | | Action Reference_Dynamic
022a 4803 |H | Short_Literal 0x3
022b 4803 |H | Short_Literal 0x3
022c 0099 | | Action Reference_Dynamic
022d e005 | | Load 0x0,0x5
022e 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
022f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0230 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0260 | ` | .CONST 0x0260 ; Address of begin
0239 0337 | 7 | .CONST 0x0337 ; Address of exception handler
023a 0008 | | .CONST 0x0008 ; Number of locals
023b INIT_0238:
023b 485b |H[ | Short_Literal 0x5b
023c e5fb | | Load 0x2,-0x5
023d 01ca | | Execute Vector,Prepend
023e 0092 0434 | 4| Action Push_String_Extended,0x434 ; "]"
0240 01cc | | Execute Vector,Catenate
0241 0092 0435 | 5| Action Push_String_Extended,0x435 ; "<*PROGRAM_LIBRARY>"
0243 01cc | | Execute Vector,Catenate
0244 0007 | | Action Break_Optional
0245 e00e | | Load 0x0,0xe
0246 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0247 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0248 e00e | | Load 0x0,0xe
0249 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
024a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
024b 02c7 | | Declare_Variable Any
024c 00d8 | | Load_Top At_Offset_0
024d 1c00 | | Execute_Immediate Run_Utility,0x0
024e e00e | | Load 0x0,0xe
024f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0250 e00e | | Load 0x0,0xe
0251 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0252 02c7 | | Declare_Variable Any
0253 00d8 | | Load_Top At_Offset_0
0254 1c00 | | Execute_Immediate Run_Utility,0x0
0255 e005 | | Load 0x0,0x5
0256 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0257 02c7 | | Declare_Variable Any
0258 00d8 | | Load_Top At_Offset_0
0259 1c00 | | Execute_Immediate Run_Utility,0x0
025a 485b |H[ | Short_Literal 0x5b
025b e5fb | | Load 0x2,-0x5
025c 01ca | | Execute Vector,Prepend
025d 0092 0436 | 6| Action Push_String_Extended,0x436 ; "]code_database'c(archived_code)"
025f 01cc | | Execute Vector,Catenate
0260 BODY_0238:
0260 00cf | | Action Mark_Auxiliary
0261 00e1 | | Load_Encached Boolean_Cache
0262 0266 | f | Execute Discrete,Bounds
0263 0007 | | Action Break_Optional
0264 00d8 | | Load_Top At_Offset_0
0265 6819 |h | Jump_Zero 0x27f
0266 e00e | | Load 0x0,0xe
0267 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0269 e604 | | Load 0x3,0x4
026a 60e1 |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00004000}
026b e003 | | Load 0x0,0x3
026c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026d e007 | | Load 0x0,0x7
026e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
026f e008 | | Load 0x0,0x8
0270 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0271 4801 |H | Short_Literal 0x1
0272 4800 |H | Short_Literal 0x0
0273 e007 | | Load 0x0,0x7
0274 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0275 e00e | | Load 0x0,0xe
0276 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0277 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0278 e602 | | Load 0x3,0x2
0279 e00e | | Load 0x0,0xe
027a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
027c c604 | | Store 0x3,0x4
027d c603 | | Store 0x3,0x3
027e 7818 |x | Jump 0x297
027f e00e | | Load 0x0,0xe
0280 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0281 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0282 e604 | | Load 0x3,0x4
0283 60c8 |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00004000}
0284 e003 | | Load 0x0,0x3
0285 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0286 e007 | | Load 0x0,0x7
0287 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0288 e008 | | Load 0x0,0x8
0289 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028a 4801 |H | Short_Literal 0x1
028b 4800 |H | Short_Literal 0x0
028c e007 | | Load 0x0,0x7
028d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028e e00e | | Load 0x0,0xe
028f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0290 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0291 e608 | | Load 0x3,0x8
0292 e00e | | Load 0x0,0xe
0293 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0294 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0295 c604 | | Store 0x3,0x4
0296 c603 | | Store 0x3,0x3
0297 e603 | | Load 0x3,0x3
0298 684c |hL | Jump_Zero 0x2e5
0299 e603 | | Load 0x3,0x3
029a 0e03 | | Execute_Immediate Not_Equal,0x3
029b 7005 |p | Jump_Nonzero 0x2a1
029c e604 | | Load 0x3,0x4
029d e00e | | Load 0x0,0xe
029e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
029f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02a0 7044 |pD | Jump_Nonzero 0x2e5
02a1 00d8 | | Load_Top At_Offset_0
02a2 6821 |h! | Jump_Zero 0x2c4
02a3 4802 |H | Short_Literal 0x2
02a4 0092 0437 | 7| Action Push_String_Extended,0x437 ; "Unable to resolve name \x22"
02a6 e602 | | Load 0x3,0x2
02a7 01cc | | Execute Vector,Catenate
02a8 0092 0438 | 8| Action Push_String_Extended,0x438 ; "\x22 because "
02aa 01cc | | Execute Vector,Catenate
02ab 60a0 |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00004000}
02ac e003 | | Load 0x0,0x3
02ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ae e007 | | Load 0x0,0x7
02af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b0 e008 | | Load 0x0,0x8
02b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b2 4801 |H | Short_Literal 0x1
02b3 4800 |H | Short_Literal 0x0
02b4 e007 | | Load 0x0,0x7
02b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b6 e00e | | Load 0x0,0xe
02b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02b9 e602 | | Load 0x3,0x2
02ba e603 | | Load 0x3,0x3
02bb e00e | | Load 0x0,0xe
02bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02bd 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02be 01cc | | Execute Vector,Catenate
02bf e403 | | Load 0x2,0x3
02c0 e005 | | Load 0x0,0x5
02c1 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
02c2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02c3 7870 |xp | Jump 0x334
02c4 4802 |H | Short_Literal 0x2
02c5 0092 0437 | 7| Action Push_String_Extended,0x437 ; "Unable to resolve name \x22"
02c7 e608 | | Load 0x3,0x8
02c8 01cc | | Execute Vector,Catenate
02c9 0092 0438 | 8| Action Push_String_Extended,0x438 ; "\x22 because "
02cb 01cc | | Execute Vector,Catenate
02cc 607f |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0x00004000}
02cd e003 | | Load 0x0,0x3
02ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02cf e007 | | Load 0x0,0x7
02d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d1 e008 | | Load 0x0,0x8
02d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d3 4801 |H | Short_Literal 0x1
02d4 4800 |H | Short_Literal 0x0
02d5 e007 | | Load 0x0,0x7
02d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d7 e00e | | Load 0x0,0xe
02d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02da e608 | | Load 0x3,0x8
02db e603 | | Load 0x3,0x3
02dc e00e | | Load 0x0,0xe
02dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02de 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02df 01cc | | Execute Vector,Catenate
02e0 e403 | | Load 0x2,0x3
02e1 e005 | | Load 0x0,0x5
02e2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
02e3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02e4 784f |xO | Jump 0x334
02e5 00cf | | Action Mark_Auxiliary
02e6 7847 |xG | Jump 0x32e
02e7 e00e | | Load 0x0,0xe
02e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e9 e606 | | Load 0x3,0x6
02ea 0120 | | Execute Any,Is_Value
02eb 6803 |h | Jump_Zero 0x2ef
02ec e00e | | Load 0x0,0xe
02ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ee 7801 |x | Jump 0x2f0
02ef e606 | | Load 0x3,0x6
02f0 e604 | | Load 0x3,0x4
02f1 e00e | | Load 0x0,0xe
02f2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02f3 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02f4 c606 | | Store 0x3,0x6
02f5 c605 | | Store 0x3,0x5
02f6 e605 | | Load 0x3,0x5
02f7 6816 |h | Jump_Zero 0x30e
02f8 4802 |H | Short_Literal 0x2
02f9 0092 0439 | 9| Action Push_String_Extended,0x439 ; "Bad status getting object for "
02fb e604 | | Load 0x3,0x4
02fc e00e | | Load 0x0,0xe
02fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fe 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02ff 01cc | | Execute Vector,Catenate
0300 0092 0431 | 1| Action Push_String_Extended,0x431 ; ": "
0302 01cc | | Execute Vector,Catenate
0303 e605 | | Load 0x3,0x5
0304 e00e | | Load 0x0,0xe
0305 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0306 011c | | Execute Any,Convert_Unchecked
0307 1c01 | | Execute_Immediate Run_Utility,0x1
0308 01cc | | Execute Vector,Catenate
0309 e403 | | Load 0x2,0x3
030a e005 | | Load 0x0,0x5
030b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
030c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
030d 781a |x | Jump 0x328
030e 00d9 | | Load_Top At_Offset_1
030f 6816 |h | Jump_Zero 0x326
0310 e607 | | Load 0x3,0x7
0311 0120 | | Execute Any,Is_Value
0312 6803 |h | Jump_Zero 0x316
0313 e005 | | Load 0x0,0x5
0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0315 7801 |x | Jump 0x317
0316 e607 | | Load 0x3,0x7
0317 4801 |H | Short_Literal 0x1
0318 e606 | | Load 0x3,0x6
0319 e403 | | Load 0x2,0x3
031a e005 | | Load 0x0,0x5
031b 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
031c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
031d c607 | | Store 0x3,0x7
031e e403 | | Load 0x2,0x3
031f e005 | | Load 0x0,0x5
0320 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0321 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0322 6810 |h | Jump_Zero 0x333
0323 e607 | | Load 0x3,0x7
0324 8408 | | Call 0x2,0x8
0325 7802 |x | Jump 0x328
0326 e606 | | Load 0x3,0x6
0327 8404 | | Call 0x2,0x4
0328 e604 | | Load 0x3,0x4
0329 e00e | | Load 0x0,0xe
032a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
032b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
032c c604 | | Store 0x3,0x4
032d 00c9 | | Action Pop_Auxiliary_Loop
032e e604 | | Load 0x3,0x4
032f e00e | | Load 0x0,0xe
0330 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0331 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0332 6fb4 |o | Jump_Zero 0x2e7
0333 00ce | | Action Pop_Auxiliary
0334 00c8 | | Action Pop_Auxiliary_Range
0335 372e |7. | Loop_Decreasing 0x264
0336 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0337 TRAP_0238:
0337 0007 | | Action Break_Optional
0338 4802 |H | Short_Literal 0x2
0339 0092 043a | :| Action Push_String_Extended,0x43a ; "Unexpected exception raised while determining referencers for code segment "
033b e5fc | | Load 0x2,-0x4
033c 00e0 | | Load_Encached Standard_Cache
033d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
033e 01cc | | Execute Vector,Catenate
033f 0092 0431 | 1| Action Push_String_Extended,0x431 ; ": "
0341 01cc | | Execute Vector,Catenate
0342 e016 | | Load 0x0,0x16
0343 180d | | Execute Package,Field_Execute,Field_Number 0xd
0344 01cc | | Execute Vector,Catenate
0345 e403 | | Load 0x2,0x3
0346 e005 | | Load 0x0,0x5
0347 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0348 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0349 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034a 0000 0000 | | .XXX[0x2]
034c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0357 | W | .CONST 0x0357 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 e005 | | Load 0x0,0x5
0355 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0356 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0357 BODY_0350:
0357 e7fe | | Load 0x3,-0x2
0358 6807 |h | Jump_Zero 0x360
0359 00d8 | | Load_Top At_Offset_0
035a 0092 043b | ;| Action Push_String_Extended,0x43b ; " (elaboration code)"
035c 01cc | | Execute Vector,Catenate
035d e00d | | Load 0x0,0xd
035e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
035f 7803 |x | Jump 0x363
0360 00d8 | | Load_Top At_Offset_0
0361 e00d | | Load 0x0,0xd
0362 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0363 4800 |H | Short_Literal 0x0
0364 a405 | | Store_Unchecked 0x2,0x5
0365 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c e00e | | Load 0x0,0xe
036d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
036e 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
036f e00d | | Load 0x0,0xd
0370 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0371 4800 |H | Short_Literal 0x0
0372 a405 | | Store_Unchecked 0x2,0x5
0373 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0374 0000 0000 | | .BLANK 0000[0x4]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 03a3 | | .CONST 0x03a3 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0004 | | .CONST 0x0004 ; Number of locals
037b INIT_0378:
037b e006 | | Load 0x0,0x6
037c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037d 02c7 | | Declare_Variable Any
037e 00db | | Load_Top At_Offset_3
037f a602 | | Store_Unchecked 0x3,0x2
0380 e006 | | Load 0x0,0x6
0381 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0382 0266 | f | Execute Discrete,Bounds
0383 e009 | | Load 0x0,0x9
0384 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0385 02a0 | | Declare_Subprogram Null_Subprogram
0386 4801 |H | Short_Literal 0x1
0387 035d | ] | Declare_Type Array,Defined
0388 00d8 | | Load_Top At_Offset_0
0389 0337 | 7 | Declare_Variable Array
038a 00d8 | | Load_Top At_Offset_0
038b 0335 | 5 | Declare_Variable Array,Duplicate
038c 00cd | | Action Spare6_Action
038d 4802 |H | Short_Literal 0x2
038e 4800 |H | Short_Literal 0x0
038f 00da | | Load_Top At_Offset_2
0390 01d6 | | Execute Vector,Field_Write
0391 4806 |H | Short_Literal 0x6
0392 4801 |H | Short_Literal 0x1
0393 00da | | Load_Top At_Offset_2
0394 01d6 | | Execute Vector,Field_Write
0395 4807 |H | Short_Literal 0x7
0396 4802 |H | Short_Literal 0x2
0397 00da | | Load_Top At_Offset_2
0398 01d6 | | Execute Vector,Field_Write
0399 4807 |H | Short_Literal 0x7
039a 4803 |H | Short_Literal 0x3
039b 00da | | Load_Top At_Offset_2
039c 01d6 | | Execute Vector,Field_Write
039d 4808 |H | Short_Literal 0x8
039e 4804 |H | Short_Literal 0x4
039f 00da | | Load_Top At_Offset_2
03a0 01d6 | | Execute Vector,Field_Write
03a1 00d9 | | Load_Top At_Offset_1
03a2 01d4 | | Execute Vector,Structure_Write
03a3 BODY_0378:
03a3 00cf | | Action Mark_Auxiliary
03a4 780f |x | Jump 0x3b4
03a5 e402 | | Load 0x2,0x2
03a6 e602 | | Load 0x3,0x2
03a7 e006 | | Load 0x0,0x6
03a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a9 00db | | Load_Top At_Offset_3
03aa 01d7 | | Execute Vector,Field_Read
03ab e602 | | Load 0x3,0x2
03ac e006 | | Load 0x0,0x6
03ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03ae 8403 | | Call 0x2,0x3
03af 00db | | Load_Top At_Offset_3
03b0 e006 | | Load 0x0,0x6
03b1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03b2 c602 | | Store 0x3,0x2
03b3 00c9 | | Action Pop_Auxiliary_Loop
03b4 00db | | Load_Top At_Offset_3
03b5 e006 | | Load 0x0,0x6
03b6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03b7 6fed |o | Jump_Zero 0x3a5
03b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b9 0000 0000 | | .BLANK 0000[0x7]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c8 | | .CONST 0x03c8 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0002 | | .CONST 0x0002 ; Number of locals
03c3 INIT_03c0:
03c3 e017 | | Load 0x0,0x17
03c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03c5 02c7 | | Declare_Variable Any
03c6 00d8 | | Load_Top At_Offset_0
03c7 1c00 | | Execute_Immediate Run_Utility,0x0
03c8 BODY_03c0:
03c8 00d8 | | Load_Top At_Offset_0
03c9 e402 | | Load 0x2,0x2
03ca 0120 | | Execute Any,Is_Value
03cb 6803 |h | Jump_Zero 0x3cf
03cc e009 | | Load 0x0,0x9
03cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ce 7801 |x | Jump 0x3d0
03cf e402 | | Load 0x2,0x2
03d0 e5fc | | Load 0x2,-0x4
03d1 e009 | | Load 0x0,0x9
03d2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
03d3 c402 | | Store 0x2,0x2
03d4 c602 | | Store 0x3,0x2
03d5 4801 |H | Short_Literal 0x1
03d6 00d9 | | Load_Top At_Offset_1
03d7 e017 | | Load 0x0,0x17
03d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03d9 6807 |h | Jump_Zero 0x3e1
03da e009 | | Load 0x0,0x9
03db 180e | | Execute Package,Field_Execute,Field_Number 0xe
03dc 00d9 | | Load_Top At_Offset_1
03dd e00a | | Load 0x0,0xa
03de 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03df 00cc | | Action Pop_Block
03e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e2 0000 0000 | | .BLANK 0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f1 | | .CONST 0x03f1 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0003 | | .CONST 0x0003 ; Number of locals
03eb INIT_03e8:
03eb e7ff | | Load 0x3,-0x1
03ec e005 | | Load 0x0,0x5
03ed 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
03ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ef 029f 040b | | Declare_Subprogram INIT_0408,For_Call
03f1 BODY_03e8:
03f1 8803 | | Call 0x4,0x3
03f2 00d9 | | Load_Top At_Offset_1
03f3 00eb | | Load_Encached Diana_Cache
03f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f5 700c |p | Jump_Nonzero 0x402
03f6 e003 | | Load 0x0,0x3
03f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f8 00da | | Load_Top At_Offset_2
03f9 e018 | | Load 0x0,0x18
03fa 1860 | ` | Execute Package,Field_Execute,Field_Number 0x60
03fb 6806 |h | Jump_Zero 0x402
03fc e003 | | Load 0x0,0x3
03fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fe 00da | | Load_Top At_Offset_2
03ff e018 | | Load 0x0,0x18
0400 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0401 8404 | | Call 0x2,0x4
0402 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0403 0000 0000 | | .BLANK 0000[0x5]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0418 | | .CONST 0x0418 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b e802 | | Load 0x4,0x2
040c 00eb | | Load_Encached Diana_Cache
040d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
040e 0f35 | 5 | Execute_Immediate Equal,0x35
040f 6807 |h | Jump_Zero 0x417
0410 4802 |H | Short_Literal 0x2
0411 0092 043c | <| Action Push_String_Extended,0x43c ; "It is very unlikely that this message will ever be emitted"
0413 e403 | | Load 0x2,0x3
0414 e005 | | Load 0x0,0x5
0415 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0416 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0417 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0418 TRAP_0408:
0418 0007 | | Action Break_Optional
0419 4802 |H | Short_Literal 0x2
041a 0092 043d | =| Action Push_String_Extended,0x43d ; "Found corrupt Comp_Unit_Id for unit "
041c e7ff | | Load 0x3,-0x1
041d e005 | | Load 0x0,0x5
041e 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
041f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0420 01cc | | Execute Vector,Catenate
0421 e403 | | Load 0x2,0x3
0422 e005 | | Load 0x0,0x5
0423 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0424 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0425 00eb | | Load_Encached Diana_Cache
0426 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0427 a802 | | Store_Unchecked 0x4,0x2
0428 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0429 ; --------------------------------------------------------------------------------------
0429 ; STRING TABLE
0429 ; --------------------------------------------------------------------------------------
0429 002c | , | .STRTAB 0x002c->0x043f ; "[Program_Library_Maintenance.Display_Referencers (R1000_Code_Segment_Name =>"
042a 0076 | v | .STRTAB 0x0076->0x0465 ; ", Worlds => \x22"
042b 0081 | | .STRTAB 0x0081->0x046b ; "\x22, Options => \x22"
042c 008e | | .STRTAB 0x008e->0x0473 ; "\x22, Response => \x22"
042d 009c | | .STRTAB 0x009c->0x047b ; "\x22);]."
042e 009f | | .STRTAB 0x009f->0x047d ; "<none>"
042f 00a3 | | .STRTAB 0x00a3->0x0480 ; "[End of Program_Library_Maintenance.Display_Referencers command]."
0430 00e2 | | .STRTAB 0x00e2->0x04a1 ; "Bad status getting version for Archived_Code object "
0431 0114 | | .STRTAB 0x0114->0x04bb ; ": "
0432 0114 | | .STRTAB 0x0114->0x04bc ; "Bad status opening Archived_Code object "
0433 013a | : | .STRTAB 0x013a->0x04d0 ; "Bad status opening code segment "
0434 0158 | X | .STRTAB 0x0158->0x04e0 ; "]"
0435 0157 | W | .STRTAB 0x0157->0x04e0 ; "<*PROGRAM_LIBRARY>"
0436 0167 | g | .STRTAB 0x0167->0x04e9 ; "]code_database'c(archived_code)"
0437 0184 | | .STRTAB 0x0184->0x04f9 ; "Unable to resolve name \x22"
0438 019a | | .STRTAB 0x019a->0x0505 ; "\x22 because "
0439 01a2 | | .STRTAB 0x01a2->0x050a ; "Bad status getting object for "
043a 01be | | .STRTAB 0x01be->0x0519 ; "Unexpected exception raised while determining referencers for code segment "
043b 0207 | | .STRTAB 0x0207->0x053e ; " (elaboration code)"
043c 0218 | | .STRTAB 0x0218->0x0548 ; "It is very unlikely that this message will ever be emitted"
043d 0250 | P | .STRTAB 0x0250->0x0565 ; "Found corrupt Comp_Unit_Id for unit "
043e 0272 | r | .STREND 0x0272->0x0577
043f 5b50 726f |[Pro| .STRTAB_STRINGS
0577 0000 | | .XXX[0x1]
0578 ; --------------------------------------------------------------------------------------
0578 ; Debug Table
0578 ; --------------------------------------------------------------------------------------
0578 0004 0011 | | .DEBUG4 0x0004,0x0011,0xfab6,0x0000,0x0001,0x0000
057e 0000 0000 | | .BLANK 0000[0x82]