|
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_03b8fe
└─⟦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 0548 | H | .CONST 0x0548 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 004d | M | .CONST 0x004d ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0018 | | .CONST 0x0018 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 191e | | Execute Package,Field_Reference,Field_Number 0x1e
001d 0007 | | Action Break_Optional
001e 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0020 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0022 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0024 e002 | | Load 0x0,0x2
0025 191b | | Execute Package,Field_Reference,Field_Number 0x1b
0026 0007 | | Action Break_Optional
0027 e003 | | Load 0x0,0x3
0028 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0029 02c7 | | Declare_Variable Any
002a 00d8 | | Load_Top At_Offset_0
002b 1c00 | | Execute_Immediate Run_Utility,0x0
002c e004 | | Load 0x0,0x4
002d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002e e005 | | Load 0x0,0x5
002f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0030 00e3 | | Load_Encached Natural_Cache
0031 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0032 00e3 | | Load_Encached Natural_Cache
0033 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0034 03e9 | | Declare_Variable Discrete,Duplicate
0035 00e3 | | Load_Encached Natural_Cache
0036 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0037 00e3 | | Load_Encached Natural_Cache
0038 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0039 03e9 | | Declare_Variable Discrete,Duplicate
003a 00e3 | | Load_Encached Natural_Cache
003b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003c 00e3 | | Load_Encached Natural_Cache
003d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003e 00e3 | | Load_Encached Natural_Cache
003f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0040 00e3 | | Load_Encached Natural_Cache
0041 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0042 00e1 | | Load_Encached Boolean_Cache
0043 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0045 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0047 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0049 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
004b 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call
004d BODY_0018:
004d 4801 |H | Short_Literal 0x1
004e e006 | | Load 0x0,0x6
004f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0050 e006 | | Load 0x0,0x6
0051 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0052 7005 |p | Jump_Nonzero 0x58
0053 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "Privileged mode is required to run this utility."
0055 e007 | | Load 0x0,0x7
0056 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0057 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0058 e407 | | Load 0x2,0x7
0059 0120 | | Execute Any,Is_Value
005a 6803 |h | Jump_Zero 0x5e
005b e003 | | Load 0x0,0x3
005c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
005d 7801 |x | Jump 0x5f
005e e407 | | Load 0x2,0x7
005f e008 | | Load 0x0,0x8
0060 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0061 e408 | | Load 0x2,0x8
0062 e003 | | Load 0x0,0x3
0063 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0064 c407 | | Store 0x2,0x7
0065 0092 03d9 | | Action Push_String_Extended,0x3d9 ; "Number of objects: "
0067 e008 | | Load 0x0,0x8
0068 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0069 e003 | | Load 0x0,0x3
006a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
006b 00e0 | | Load_Encached Standard_Cache
006c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
006d 01cc | | Execute Vector,Catenate
006e e007 | | Load 0x0,0x7
006f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0070 00ea | | Load_Encached Null_String_Cache
0071 e007 | | Load 0x0,0x7
0072 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0073 00cf | | Action Mark_Auxiliary
0074 7815 |x | Jump 0x8a
0075 e407 | | Load 0x2,0x7
0076 e003 | | Load 0x0,0x3
0077 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0078 8418 | | Call 0x2,0x18
0079 e409 | | Load 0x2,0x9
007a 0a01 | | Execute_Immediate Plus,0x1
007b c409 | | Store 0x2,0x9
007c e407 | | Load 0x2,0x7
007d e003 | | Load 0x0,0x3
007e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
007f c407 | | Store 0x2,0x7
0080 e409 | | Load 0x2,0x9
0081 4864 |Hd | Short_Literal 0x64
0082 026e | n | Execute Discrete,Modulo
0083 7005 |p | Jump_Nonzero 0x89
0084 e409 | | Load 0x2,0x9
0085 00e0 | | Load_Encached Standard_Cache
0086 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0087 e007 | | Load 0x0,0x7
0088 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0089 00c9 | | Action Pop_Auxiliary_Loop
008a e407 | | Load 0x2,0x7
008b e003 | | Load 0x0,0x3
008c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
008d 6fe7 |o | Jump_Zero 0x75
008e 00ce | | Action Pop_Auxiliary
008f 00ea | | Load_Encached Null_String_Cache
0090 e007 | | Load 0x0,0x7
0091 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0092 e409 | | Load 0x2,0x9
0093 00e0 | | Load_Encached Standard_Cache
0094 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0095 0092 03da | | Action Push_String_Extended,0x3da ; " objects total"
0097 01cc | | Execute Vector,Catenate
0098 e007 | | Load 0x0,0x7
0099 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
009a e40a | | Load 0x2,0xa
009b 00e0 | | Load_Encached Standard_Cache
009c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009d 0092 03db | | Action Push_String_Extended,0x3db ; " good ATTRs"
009f 01cc | | Execute Vector,Catenate
00a0 e007 | | Load 0x0,0x7
00a1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00a2 e40b | | Load 0x2,0xb
00a3 00e0 | | Load_Encached Standard_Cache
00a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a5 0092 03dc | | Action Push_String_Extended,0x3dc ; " bad ATTRs ("
00a7 01cc | | Execute Vector,Catenate
00a8 e40d | | Load 0x2,0xd
00a9 00e0 | | Load_Encached Standard_Cache
00aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ab 01cc | | Execute Vector,Catenate
00ac e40e | | Load 0x2,0xe
00ad 00e0 | | Load_Encached Standard_Cache
00ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00af 01cc | | Execute Vector,Catenate
00b0 0092 03dd | | Action Push_String_Extended,0x3dd ; " )"
00b2 01cc | | Execute Vector,Catenate
00b3 e007 | | Load 0x0,0x7
00b4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00b5 00ea | | Load_Encached Null_String_Cache
00b6 e007 | | Load 0x0,0x7
00b7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00b8 0092 03de | | Action Push_String_Extended,0x3de ; "Reclaimable space (pages): "
00ba e40c | | Load 0x2,0xc
00bb 00e0 | | Load_Encached Standard_Cache
00bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00bd 01cc | | Execute Vector,Catenate
00be e007 | | Load 0x0,0x7
00bf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c0 00ea | | Load_Encached Null_String_Cache
00c1 e007 | | Load 0x0,0x7
00c2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c3 0092 03df | | Action Push_String_Extended,0x3df ; "Object manager stats"
00c5 e007 | | Load 0x0,0x7
00c6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c7 0092 03e0 | | Action Push_String_Extended,0x3e0 ; " ADA unit count :"
00c9 e411 | | Load 0x2,0x11
00ca 00e0 | | Load_Encached Standard_Cache
00cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00cc 01cc | | Execute Vector,Catenate
00cd e007 | | Load 0x0,0x7
00ce 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00cf 0092 03e1 | | Action Push_String_Extended,0x3e1 ; " ATTR count :"
00d1 e40f | | Load 0x2,0xf
00d2 00e0 | | Load_Encached Standard_Cache
00d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d4 01cc | | Execute Vector,Catenate
00d5 e007 | | Load 0x0,0x7
00d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00d7 0092 03e2 | | Action Push_String_Extended,0x3e2 ; " TDDB count :"
00d9 e410 | | Load 0x2,0x10
00da 00e0 | | Load_Encached Standard_Cache
00db 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00dc 01cc | | Execute Vector,Catenate
00dd e007 | | Load 0x0,0x7
00de 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00df e5fe | | Load 0x2,-0x2
00e0 701a |p | Jump_Nonzero 0xfb
00e1 00ea | | Load_Encached Null_String_Cache
00e2 e007 | | Load 0x0,0x7
00e3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00e4 0092 03e3 | | Action Push_String_Extended,0x3e3 ; "***"
00e6 e412 | | Load 0x2,0x12
00e7 00e0 | | Load_Encached Standard_Cache
00e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e9 01cc | | Execute Vector,Catenate
00ea 0092 03e4 | | Action Push_String_Extended,0x3e4 ; " Orphan ATTRs have been successfully deleted ***"
00ec 01cc | | Execute Vector,Catenate
00ed e007 | | Load 0x0,0x7
00ee 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ef e412 | | Load 0x2,0x12
00f0 00e0 | | Load_Encached Standard_Cache
00f1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f2 0092 03e5 | | Action Push_String_Extended,0x3e5 ; " Orphan ATTRs have been successfully deleted."
00f4 01cc | | Execute Vector,Catenate
00f5 00ea | | Load_Encached Null_String_Cache
00f6 4800 |H | Short_Literal 0x0
00f7 0092 03e6 | | Action Push_String_Extended,0x3e6 ; "REPAIR_CG_ATTRS"
00f9 e009 | | Load 0x0,0x9
00fa 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e7ff | | Load 0x3,-0x1
0104 e00a | | Load 0x0,0xa
0105 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0106 011c | | Execute Any,Convert_Unchecked
0107 1c01 | | Execute_Immediate Run_Utility,0x1
0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e7ff | | Load 0x3,-0x1
0114 e00b | | Load 0x0,0xb
0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0116 011c | | Execute Any,Convert_Unchecked
0117 1c01 | | Execute_Immediate Run_Utility,0x1
0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e7ff | | Load 0x3,-0x1
0124 00d8 | | Load_Top At_Offset_0
0125 00e2 | | Load_Encached Integer_Cache
0126 0260 | ` | Execute Discrete,In_Type
0127 7001 |p | Jump_Nonzero 0x129
0128 0801 | | Execute_Immediate Raise,0x1
0129 00e0 | | Load_Encached Standard_Cache
012a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
012b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0147 | G | .CONST 0x0147 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0005 | | .CONST 0x0005 ; Number of locals
0133 INIT_0130:
0133 e7ff | | Load 0x3,-0x1
0134 e001 | | Load 0x0,0x1
0135 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0136 00e5 | | Load_Encached Long_Integer_Cache
0137 03f1 | | Declare_Variable Discrete,With_Value
0138 00d8 | | Load_Top At_Offset_0
0139 09e0 | | Execute_Immediate Binary_Scale,-0x20
013a 00e5 | | Load_Encached Long_Integer_Cache
013b 03f1 | | Declare_Variable Discrete,With_Value
013c e602 | | Load 0x3,0x2
013d 6036 |`6 | Indirect_Literal Discrete,0x174,{0x00000000, 0xffffffff}
013e 0279 | y | Execute Discrete,And
013f 00e5 | | Load_Encached Long_Integer_Cache
0140 03f1 | | Declare_Variable Discrete,With_Value
0141 4830 |H0 | Short_Literal 0x30
0142 4808 |H | Short_Literal 0x8
0143 4810 |H | Short_Literal 0x10
0144 e604 | | Load 0x3,0x4
0145 e00c | | Load 0x0,0xc
0146 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0147 BODY_0130:
0147 e7fe | | Load 0x3,-0x2
0148 6815 |h | Jump_Zero 0x15e
0149 e7fd | | Load 0x3,-0x3
014a 680c |h | Jump_Zero 0x157
014b 4820 |H | Short_Literal 0x20
014c 4808 |H | Short_Literal 0x8
014d 4810 |H | Short_Literal 0x10
014e e603 | | Load 0x3,0x3
014f e00c | | Load 0x0,0xc
0150 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0151 0092 03e7 | | Action Push_String_Extended,0x3e7 ; "_"
0153 01cc | | Execute Vector,Catenate
0154 e605 | | Load 0x3,0x5
0155 01cc | | Execute Vector,Catenate
0156 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0157 4820 |H | Short_Literal 0x20
0158 4808 |H | Short_Literal 0x8
0159 4810 |H | Short_Literal 0x10
015a e603 | | Load 0x3,0x3
015b e00c | | Load 0x0,0xc
015c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
015e e7fd | | Load 0x3,-0x3
015f 680c |h | Jump_Zero 0x16c
0160 4820 |H | Short_Literal 0x20
0161 4800 |H | Short_Literal 0x0
0162 4810 |H | Short_Literal 0x10
0163 e603 | | Load 0x3,0x3
0164 e00c | | Load 0x0,0xc
0165 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0166 0092 03e7 | | Action Push_String_Extended,0x3e7 ; "_"
0168 01cc | | Execute Vector,Catenate
0169 e605 | | Load 0x3,0x5
016a 01cc | | Execute Vector,Catenate
016b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
016c 4820 |H | Short_Literal 0x20
016d 4800 |H | Short_Literal 0x0
016e 4810 |H | Short_Literal 0x10
016f e603 | | Load 0x3,0x3
0170 e00c | | Load 0x0,0xc
0171 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0172 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0173 0000 | | .XXX[0x1]
0174 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0182 | | .CONST 0x0182 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b e002 | | Load 0x0,0x2
017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017d 02ff | | Declare_Variable Variant_Record
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 e00b | | Load 0x0,0xb
0181 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0182 BODY_0178:
0182 e00b | | Load 0x0,0xb
0183 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0184 e602 | | Load 0x3,0x2
0185 602a |`* | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x00004000}
0186 e00d | | Load 0x0,0xd
0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0188 4800 |H | Short_Literal 0x0
0189 e7ff | | Load 0x3,-0x1
018a e00b | | Load 0x0,0xb
018b 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
018c 180e | | Execute Package,Field_Execute,Field_Number 0xe
018d e00b | | Load 0x0,0xb
018e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
018f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0190 00d1 | | Pop_Control Pop_Count_1
0191 c603 | | Store 0x3,0x3
0192 00d8 | | Load_Top At_Offset_0
0193 7005 |p | Jump_Nonzero 0x199
0194 e602 | | Load 0x3,0x2
0195 e008 | | Load 0x0,0x8
0196 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0197 0162 | b | Execute Variant_Record,Check_In_Type
0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0199 00d8 | | Load_Top At_Offset_0
019a 0f08 | | Execute_Immediate Equal,0x8
019b 6802 |h | Jump_Zero 0x19e
019c e00e | | Load 0x0,0xe
019d 0257 | W | Execute Discrete,Raise
019e 0092 03e8 | | Action Push_String_Extended,0x3e8 ; "dir.traversal.get_version failed (bad status): "
01a0 e7ff | | Load 0x3,-0x1
01a1 8406 | | Call 0x2,0x6
01a2 01cc | | Execute Vector,Catenate
01a3 0092 03e9 | | Action Push_String_Extended,0x3e9 ; " "
01a5 01cc | | Execute Vector,Catenate
01a6 e603 | | Load 0x3,0x3
01a7 e00b | | Load 0x0,0xb
01a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a9 011c | | Execute Any,Convert_Unchecked
01aa 1c01 | | Execute_Immediate Run_Utility,0x1
01ab 01cc | | Execute Vector,Catenate
01ac e007 | | Load 0x0,0x7
01ad 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ae e00f | | Load 0x0,0xf
01af 0257 | W | Execute Discrete,Raise
01b0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01dc | | .CONST 0x01dc ; Address of begin
01b9 0257 | W | .CONST 0x0257 ; Address of exception handler
01ba 0009 | | .CONST 0x0009 ; Number of locals
01bb INIT_01b8:
01bb e00a | | Load 0x0,0xa
01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bd e008 | | Load 0x0,0x8
01be 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01bf 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
01c0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01c1 e008 | | Load 0x0,0x8
01c2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01c3 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
01c4 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01c5 e002 | | Load 0x0,0x2
01c6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c7 02ff | | Declare_Variable Variant_Record
01c8 00d8 | | Load_Top At_Offset_0
01c9 1c00 | | Execute_Immediate Run_Utility,0x0
01ca e008 | | Load 0x0,0x8
01cb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cd 02c7 | | Declare_Variable Any
01ce 00d8 | | Load_Top At_Offset_0
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 e010 | | Load 0x0,0x10
01d1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01d2 e00d | | Load 0x0,0xd
01d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d4 02c7 | | Declare_Variable Any
01d5 00d8 | | Load_Top At_Offset_0
01d6 1c00 | | Execute_Immediate Run_Utility,0x0
01d7 e008 | | Load 0x0,0x8
01d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d9 02ff | | Declare_Variable Variant_Record
01da 00d8 | | Load_Top At_Offset_0
01db 1c00 | | Execute_Immediate Run_Utility,0x0
01dc BODY_01b8:
01dc e7ff | | Load 0x3,-0x1
01dd 8415 | | Call 0x2,0x15
01de e609 | | Load 0x3,0x9
01df 016d | m | Execute Variant_Record,Structure_Write
01e0 e00a | | Load 0x0,0xa
01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e2 e008 | | Load 0x0,0x8
01e3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01e4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
01e5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01e6 e00d | | Load 0x0,0xd
01e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e8 4800 |H | Short_Literal 0x0
01e9 e609 | | Load 0x3,0x9
01ea e008 | | Load 0x0,0x8
01eb 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01ec 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01ed c603 | | Store 0x3,0x3
01ee c602 | | Store 0x3,0x2
01ef e602 | | Load 0x3,0x2
01f0 6813 |h | Jump_Zero 0x204
01f1 0092 03ea | | Action Push_String_Extended,0x3ea ; "can't get associated objects for unit (bad status): "
01f3 e609 | | Load 0x3,0x9
01f4 8406 | | Call 0x2,0x6
01f5 01cc | | Execute Vector,Catenate
01f6 0092 03e9 | | Action Push_String_Extended,0x3e9 ; " "
01f8 01cc | | Execute Vector,Catenate
01f9 e602 | | Load 0x3,0x2
01fa e00a | | Load 0x0,0xa
01fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fc 011c | | Execute Any,Convert_Unchecked
01fd 1c01 | | Execute_Immediate Run_Utility,0x1
01fe 01cc | | Execute Vector,Catenate
01ff e007 | | Load 0x0,0x7
0200 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0201 e010 | | Load 0x0,0x10
0202 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0204 e008 | | Load 0x0,0x8
0205 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0206 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0207 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0208 e603 | | Load 0x3,0x3
0209 e008 | | Load 0x0,0x8
020a 1b15 | | Execute Package,Field_Read,Field_Number 0x15
020b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
020c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
020d c604 | | Store 0x3,0x4
020e 00cf | | Action Mark_Auxiliary
020f 783e |x> | Jump 0x24e
0210 e604 | | Load 0x3,0x4
0211 e008 | | Load 0x0,0x8
0212 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0213 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0214 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0215 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0216 e605 | | Load 0x3,0x5
0217 016d | m | Execute Variant_Record,Structure_Write
0218 e605 | | Load 0x3,0x5
0219 e002 | | Load 0x0,0x2
021a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
021b e008 | | Load 0x0,0x8
021c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021d 027f | | Execute Discrete,Equal
021e 6828 |h( | Jump_Zero 0x247
021f e00a | | Load 0x0,0xa
0220 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0221 e606 | | Load 0x3,0x6
0222 0120 | | Execute Any,Is_Value
0223 6804 |h | Jump_Zero 0x228
0224 e008 | | Load 0x0,0x8
0225 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0226 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0227 7801 |x | Jump 0x229
0228 e606 | | Load 0x3,0x6
0229 e00d | | Load 0x0,0xd
022a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022b 4800 |H | Short_Literal 0x0
022c 4800 |H | Short_Literal 0x0
022d e605 | | Load 0x3,0x5
022e e008 | | Load 0x0,0x8
022f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0230 0162 | b | Execute Variant_Record,Check_In_Type
0231 e008 | | Load 0x0,0x8
0232 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0233 c606 | | Store 0x3,0x6
0234 c602 | | Store 0x3,0x2
0235 e602 | | Load 0x3,0x2
0236 7010 |p | Jump_Nonzero 0x247
0237 e606 | | Load 0x3,0x6
0238 e008 | | Load 0x0,0x8
0239 1b13 | | Execute Package,Field_Read,Field_Number 0x13
023a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
023b a607 | | Store_Unchecked 0x3,0x7
023c e607 | | Load 0x3,0x7
023d e008 | | Load 0x0,0x8
023e 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
023f 6801 |h | Jump_Zero 0x241
0240 7806 |x | Jump 0x247
0241 e607 | | Load 0x3,0x7
0242 e008 | | Load 0x0,0x8
0243 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0244 6802 |h | Jump_Zero 0x247
0245 e607 | | Load 0x3,0x7
0246 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0247 e604 | | Load 0x3,0x4
0248 e008 | | Load 0x0,0x8
0249 1b15 | | Execute Package,Field_Read,Field_Number 0x15
024a 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
024b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
024c c604 | | Store 0x3,0x4
024d 00c9 | | Action Pop_Auxiliary_Loop
024e e604 | | Load 0x3,0x4
024f e008 | | Load 0x0,0x8
0250 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0251 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0252 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0253 6fbc |o | Jump_Zero 0x210
0254 00ce | | Action Pop_Auxiliary
0255 e011 | | Load 0x0,0x11
0256 0257 | W | Execute Discrete,Raise
0257 TRAP_01b8:
0257 e00e | | Load 0x0,0xe
0258 010f | | Execute Exception,Equal
0259 7003 |p | Jump_Nonzero 0x25d
025a e011 | | Load 0x0,0x11
025b 010f | | Execute Exception,Equal
025c 6802 |h | Jump_Zero 0x25f
025d 00d8 | | Load_Top At_Offset_0
025e 0101 | | Execute Exception,Reraise
025f e00f | | Load 0x0,0xf
0260 010f | | Execute Exception,Equal
0261 6803 |h | Jump_Zero 0x265
0262 e010 | | Load 0x0,0x10
0263 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0264 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0265 0092 03eb | | Action Push_String_Extended,0x3eb ; "exception "
0267 e012 | | Load 0x0,0x12
0268 180d | | Execute Package,Field_Execute,Field_Number 0xd
0269 01cc | | Execute Vector,Catenate
026a 0092 03ec | | Action Push_String_Extended,0x3ec ; " processing attr_seg: "
026c 01cc | | Execute Vector,Catenate
026d e609 | | Load 0x3,0x9
026e 8406 | | Call 0x2,0x6
026f 01cc | | Execute Vector,Catenate
0270 e007 | | Load 0x0,0x7
0271 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0272 e010 | | Load 0x0,0x10
0273 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0274 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 028a | | .CONST 0x028a ; Address of begin
0279 02b6 | | .CONST 0x02b6 ; Address of exception handler
027a 0007 | | .CONST 0x0007 ; Number of locals
027b INIT_0278:
027b 00e1 | | Load_Encached Boolean_Cache
027c e013 | | Load 0x0,0x13
027d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
027e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027f 0322 | " | Declare_Variable Record
0280 00d8 | | Load_Top At_Offset_0
0281 1c00 | | Execute_Immediate Run_Utility,0x0
0282 e00a | | Load 0x0,0xa
0283 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0284 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
0286 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
0288 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
028a BODY_0278:
028a e7ff | | Load 0x3,-0x1
028b e010 | | Load 0x0,0x10
028c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
028d 021f | | Execute Heap_Access,Equal
028e 7026 |p& | Jump_Nonzero 0x2b5
028f e7ff | | Load 0x3,-0x1
0290 e008 | | Load 0x0,0x8
0291 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0292 6817 |h | Jump_Zero 0x2aa
0293 e40f | | Load 0x2,0xf
0294 0a01 | | Execute_Immediate Plus,0x1
0295 c40f | | Store 0x2,0xf
0296 e7ff | | Load 0x3,-0x1
0297 e008 | | Load 0x0,0x8
0298 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0299 1813 | | Execute Package,Field_Execute,Field_Number 0x13
029a e008 | | Load 0x0,0x8
029b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
029c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
029d e014 | | Load 0x0,0x14
029e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029f 0162 | b | Execute Variant_Record,Check_In_Type
02a0 8416 | | Call 0x2,0x16
02a1 e7ff | | Load 0x3,-0x1
02a2 021f | | Execute Heap_Access,Equal
02a3 7004 |p | Jump_Nonzero 0x2a8
02a4 0092 03ed | | Action Push_String_Extended,0x3ed ; "coded parent"
02a6 8606 | | Call 0x3,0x6
02a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a8 8607 | | Call 0x3,0x7
02a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02aa e7ff | | Load 0x3,-0x1
02ab e008 | | Load 0x0,0x8
02ac 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
02ad 6804 |h | Jump_Zero 0x2b2
02ae e410 | | Load 0x2,0x10
02af 0a01 | | Execute_Immediate Plus,0x1
02b0 c410 | | Store 0x2,0x10
02b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b2 e411 | | Load 0x2,0x11
02b3 0a01 | | Execute_Immediate Plus,0x1
02b4 c411 | | Store 0x2,0x11
02b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b6 TRAP_0278:
02b6 e00e | | Load 0x0,0xe
02b7 010f | | Execute Exception,Equal
02b8 6807 |h | Jump_Zero 0x2c0
02b9 0092 03ee | | Action Push_String_Extended,0x3ee ; "~coded parent"
02bb 8606 | | Call 0x3,0x6
02bc e40d | | Load 0x2,0xd
02bd 0a01 | | Execute_Immediate Plus,0x1
02be c40d | | Store 0x2,0xd
02bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c0 e011 | | Load 0x0,0x11
02c1 010f | | Execute Exception,Equal
02c2 6807 |h | Jump_Zero 0x2ca
02c3 0092 03ef | | Action Push_String_Extended,0x3ef ; "non-existent parent"
02c5 8606 | | Call 0x3,0x6
02c6 e40e | | Load 0x2,0xe
02c7 0a01 | | Execute_Immediate Plus,0x1
02c8 c40e | | Store 0x2,0xe
02c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ca 0092 03f0 | | Action Push_String_Extended,0x3f0 ; "Check(seg)"
02cc e409 | | Load 0x2,0x9
02cd 00e0 | | Load_Encached Standard_Cache
02ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02cf 01cc | | Execute Vector,Catenate
02d0 0092 03f1 | | Action Push_String_Extended,0x3f1 ; ": "
02d2 01cc | | Execute Vector,Catenate
02d3 e7fe | | Load 0x3,-0x2
02d4 8406 | | Call 0x2,0x6
02d5 01cc | | Execute Vector,Catenate
02d6 0092 03e9 | | Action Push_String_Extended,0x3e9 ; " "
02d8 01cc | | Execute Vector,Catenate
02d9 e012 | | Load 0x0,0x12
02da 180d | | Execute Package,Field_Execute,Field_Number 0xd
02db 01cc | | Execute Vector,Catenate
02dc e007 | | Load 0x0,0x7
02dd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02de 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02df 0000 | | .XXX[0x1]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02f0 | | .CONST 0x02f0 ; Address of begin
02e1 031d | | .CONST 0x031d ; Address of exception handler
02e2 0005 | | .CONST 0x0005 ; Number of locals
02e3 INIT_02e0:
02e3 e003 | | Load 0x0,0x3
02e4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02e5 0322 | " | Declare_Variable Record
02e6 00d8 | | Load_Top At_Offset_0
02e7 1c00 | | Execute_Immediate Run_Utility,0x0
02e8 e00a | | Load 0x0,0xa
02e9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02ea e00a | | Load 0x0,0xa
02eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ec e602 | | Load 0x3,0x2
02ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ee 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02ef 0007 | | Action Break_Optional
02f0 BODY_02e0:
02f0 e7ff | | Load 0x3,-0x1
02f1 e002 | | Load 0x0,0x2
02f2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02f3 7028 |p( | Jump_Nonzero 0x31c
02f4 e00a | | Load 0x0,0xa
02f5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02f6 e602 | | Load 0x3,0x2
02f7 e00d | | Load 0x0,0xd
02f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02f9 4800 |H | Short_Literal 0x0
02fa 4800 |H | Short_Literal 0x0
02fb e7ff | | Load 0x3,-0x1
02fc e003 | | Load 0x0,0x3
02fd 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02fe 00d1 | | Pop_Control Pop_Count_1
02ff c603 | | Store 0x3,0x3
0300 e603 | | Load 0x3,0x3
0301 6815 |h | Jump_Zero 0x317
0302 e409 | | Load 0x2,0x9
0303 00e0 | | Load_Encached Standard_Cache
0304 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0305 0092 03f1 | | Action Push_String_Extended,0x3f1 ; ": "
0307 01cc | | Execute Vector,Catenate
0308 e7ff | | Load 0x3,-0x1
0309 8406 | | Call 0x2,0x6
030a 01cc | | Execute Vector,Catenate
030b 0092 03e9 | | Action Push_String_Extended,0x3e9 ; " "
030d 01cc | | Execute Vector,Catenate
030e e603 | | Load 0x3,0x3
030f e00a | | Load 0x0,0xa
0310 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0311 011c | | Execute Any,Convert_Unchecked
0312 1c01 | | Execute_Immediate Run_Utility,0x1
0313 01cc | | Execute Vector,Catenate
0314 e007 | | Load 0x0,0x7
0315 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0316 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0317 e7ff | | Load 0x3,-0x1
0318 e602 | | Load 0x3,0x2
0319 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
031a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
031b 8417 | | Call 0x2,0x17
031c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031d TRAP_02e0:
031d 0007 | | Action Break_Optional
031e 0092 03f2 | | Action Push_String_Extended,0x3f2 ; "Check(object.id)"
0320 e409 | | Load 0x2,0x9
0321 00e0 | | Load_Encached Standard_Cache
0322 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0323 01cc | | Execute Vector,Catenate
0324 0092 03f1 | | Action Push_String_Extended,0x3f1 ; ": "
0326 01cc | | Execute Vector,Catenate
0327 e7ff | | Load 0x3,-0x1
0328 8406 | | Call 0x2,0x6
0329 01cc | | Execute Vector,Catenate
032a 0092 03e9 | | Action Push_String_Extended,0x3e9 ; " "
032c 01cc | | Execute Vector,Catenate
032d e012 | | Load 0x0,0x12
032e 180d | | Execute Package,Field_Execute,Field_Number 0xd
032f 01cc | | Execute Vector,Catenate
0330 e007 | | Load 0x0,0x7
0331 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0332 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0333 0000 0000 | | .BLANK 0000[0x5]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e602 | | Load 0x3,0x2
033c 680b |h | Jump_Zero 0x348
033d 0092 03f3 | | Action Push_String_Extended,0x3f3 ; "; "
033f e603 | | Load 0x3,0x3
0340 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0341 00e0 | | Load_Encached Standard_Cache
0342 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0343 01cc | | Execute Vector,Catenate
0344 0092 03f4 | | Action Push_String_Extended,0x3f4 ; " pages"
0346 01cc | | Execute Vector,Catenate
0347 00ca | | Action Exit_Nullary_Function
0348 00ea | | Load_Encached Null_String_Cache
0349 00ca | | Action Exit_Nullary_Function
034a 0000 0000 | | .BLANK 0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e40b | | Load 0x2,0xb
0354 0a01 | | Execute_Immediate Plus,0x1
0355 c40b | | Store 0x2,0xb
0356 e603 | | Load 0x3,0x3
0357 00e1 | | Load_Encached Boolean_Cache
0358 e7ff | | Load 0x3,-0x1
0359 8402 | | Call 0x2,0x2
035a e013 | | Load 0x0,0x13
035b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
035c 180e | | Execute Package,Field_Execute,Field_Number 0xe
035d c602 | | Store 0x3,0x2
035e 00d1 | | Pop_Control Pop_Count_1
035f e602 | | Load 0x3,0x2
0360 7010 |p | Jump_Nonzero 0x371
0361 0092 03f5 | | Action Push_String_Extended,0x3f5 ; "Fatal!! Orphan ATTR seg not found in space manager: "
0363 4800 |H | Short_Literal 0x0
0364 4801 |H | Short_Literal 0x1
0365 e7ff | | Load 0x3,-0x1
0366 8414 | | Call 0x2,0x14
0367 01cc | | Execute Vector,Catenate
0368 0092 03f1 | | Action Push_String_Extended,0x3f1 ; ": "
036a 01cc | | Execute Vector,Catenate
036b e7fe | | Load 0x3,-0x2
036c 8406 | | Call 0x2,0x6
036d 01cc | | Execute Vector,Catenate
036e e007 | | Load 0x0,0x7
036f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0370 7805 |x | Jump 0x376
0371 e40c | | Load 0x2,0xc
0372 e603 | | Load 0x3,0x3
0373 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0374 0273 | s | Execute Discrete,Plus
0375 c40c | | Store 0x2,0xc
0376 e5ff | | Load 0x2,-0x1
0377 6816 |h | Jump_Zero 0x38e
0378 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "**** Bad ATTR ("
037a e9ff | | Load 0x4,-0x1
037b 01cc | | Execute Vector,Catenate
037c 0092 03f7 | | Action Push_String_Extended,0x3f7 ; "): "
037e 01cc | | Execute Vector,Catenate
037f 4800 |H | Short_Literal 0x0
0380 4801 |H | Short_Literal 0x1
0381 e7ff | | Load 0x3,-0x1
0382 8414 | | Call 0x2,0x14
0383 01cc | | Execute Vector,Catenate
0384 0092 03f1 | | Action Push_String_Extended,0x3f1 ; ": "
0386 01cc | | Execute Vector,Catenate
0387 e7fe | | Load 0x3,-0x2
0388 8406 | | Call 0x2,0x6
0389 01cc | | Execute Vector,Catenate
038a 8605 | | Call 0x3,0x5
038b 01cc | | Execute Vector,Catenate
038c e007 | | Load 0x0,0x7
038d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
038e e5fe | | Load 0x2,-0x2
038f 7027 |p' | Jump_Nonzero 0x3b7
0390 e00a | | Load 0x0,0xa
0391 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0392 e00d | | Load 0x0,0xd
0393 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0394 6023 |`# | Indirect_Literal Discrete,0x3b8,{0x00000000, 0x00028000}
0395 e7fe | | Load 0x3,-0x2
0396 e008 | | Load 0x0,0x8
0397 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0398 0162 | b | Execute Variant_Record,Check_In_Type
0399 e008 | | Load 0x0,0x8
039a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
039b c604 | | Store 0x3,0x4
039c e604 | | Load 0x3,0x4
039d 0f00 | | Execute_Immediate Equal,0x0
039e a413 | | Store_Unchecked 0x2,0x13
039f e413 | | Load 0x2,0x13
03a0 7013 |p | Jump_Nonzero 0x3b4
03a1 0092 03f8 | | Action Push_String_Extended,0x3f8 ; "Unable to reclaim space for orphan attribute: "
03a3 e7fe | | Load 0x3,-0x2
03a4 8406 | | Call 0x2,0x6
03a5 01cc | | Execute Vector,Catenate
03a6 0092 03e9 | | Action Push_String_Extended,0x3e9 ; " "
03a8 01cc | | Execute Vector,Catenate
03a9 e604 | | Load 0x3,0x4
03aa e00a | | Load 0x0,0xa
03ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ac 011c | | Execute Any,Convert_Unchecked
03ad 1c01 | | Execute_Immediate Run_Utility,0x1
03ae 01cc | | Execute Vector,Catenate
03af 8605 | | Call 0x3,0x5
03b0 01cc | | Execute Vector,Catenate
03b1 e007 | | Load 0x0,0x7
03b2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b4 e412 | | Load 0x2,0x12
03b5 0a01 | | Execute_Immediate Plus,0x1
03b6 c412 | | Store 0x2,0x12
03b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b8 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
03bc 0000 0000 | | .BLANK 0000[0x4]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 e40a | | Load 0x2,0xa
03c4 0a01 | | Execute_Immediate Plus,0x1
03c5 c40a | | Store 0x2,0xa
03c6 e5ff | | Load 0x2,-0x1
03c7 680f |h | Jump_Zero 0x3d7
03c8 0092 03f9 | | Action Push_String_Extended,0x3f9 ; "Good ATTR: "
03ca 4800 |H | Short_Literal 0x0
03cb 4801 |H | Short_Literal 0x1
03cc e7ff | | Load 0x3,-0x1
03cd 8414 | | Call 0x2,0x14
03ce 01cc | | Execute Vector,Catenate
03cf 0092 03f1 | | Action Push_String_Extended,0x3f1 ; ": "
03d1 01cc | | Execute Vector,Catenate
03d2 e7fe | | Load 0x3,-0x2
03d3 8406 | | Call 0x2,0x6
03d4 01cc | | Execute Vector,Catenate
03d5 e007 | | Load 0x0,0x7
03d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 ; STRING TABLE
03d8 ; --------------------------------------------------------------------------------------
03d8 0046 | F | .STRTAB 0x0046->0x03fb ; "Privileged mode is required to run this utility."
03d9 0074 | t | .STRTAB 0x0074->0x0413 ; "Number of objects: "
03da 0085 | | .STRTAB 0x0085->0x041c ; " objects total"
03db 0091 | | .STRTAB 0x0091->0x0423 ; " good ATTRs"
03dc 009a | | .STRTAB 0x009a->0x0429 ; " bad ATTRs ("
03dd 00a4 | | .STRTAB 0x00a4->0x042f ; " )"
03de 00a4 | | .STRTAB 0x00a4->0x0430 ; "Reclaimable space (pages): "
03df 00bd | | .STRTAB 0x00bd->0x043d ; "Object manager stats"
03e0 00cf | | .STRTAB 0x00cf->0x0447 ; " ADA unit count :"
03e1 00df | | .STRTAB 0x00df->0x0450 ; " ATTR count :"
03e2 00ef | | .STRTAB 0x00ef->0x0459 ; " TDDB count :"
03e3 00ff | | .STRTAB 0x00ff->0x0462 ; "***"
03e4 0100 | | .STRTAB 0x0100->0x0464 ; " Orphan ATTRs have been successfully deleted ***"
03e5 012e | . | .STRTAB 0x012e->0x047c ; " Orphan ATTRs have been successfully deleted."
03e6 0159 | Y | .STRTAB 0x0159->0x0492 ; "REPAIR_CG_ATTRS"
03e7 0166 | f | .STRTAB 0x0166->0x049a ; "_"
03e8 0165 | e | .STRTAB 0x0165->0x049a ; "dir.traversal.get_version failed (bad status): "
03e9 0192 | | .STRTAB 0x0192->0x04b2 ; " "
03ea 0191 | | .STRTAB 0x0191->0x04b2 ; "can't get associated objects for unit (bad status): "
03eb 01c3 | | .STRTAB 0x01c3->0x04cc ; "exception "
03ec 01cb | | .STRTAB 0x01cb->0x04d1 ; " processing attr_seg: "
03ed 01df | | .STRTAB 0x01df->0x04dc ; "coded parent"
03ee 01e9 | | .STRTAB 0x01e9->0x04e2 ; "~coded parent"
03ef 01f4 | | .STRTAB 0x01f4->0x04e9 ; "non-existent parent"
03f0 0205 | | .STRTAB 0x0205->0x04f2 ; "Check(seg)"
03f1 020d | | .STRTAB 0x020d->0x04f7 ; ": "
03f2 020d | | .STRTAB 0x020d->0x04f8 ; "Check(object.id)"
03f3 021b | | .STRTAB 0x021b->0x0500 ; "; "
03f4 021b | | .STRTAB 0x021b->0x0501 ; " pages"
03f5 021f | | .STRTAB 0x021f->0x0504 ; "Fatal!! Orphan ATTR seg not found in space manager: "
03f6 0251 | Q | .STRTAB 0x0251->0x051e ; "**** Bad ATTR ("
03f7 025e | ^ | .STRTAB 0x025e->0x0526 ; "): "
03f8 025f | _ | .STRTAB 0x025f->0x0527 ; "Unable to reclaim space for orphan attribute: "
03f9 028b | | .STRTAB 0x028b->0x053e ; "Good ATTR: "
03fa 0294 | | .STREND 0x0294->0x0544
03fb 5072 6976 |Priv| .STRTAB_STRINGS
0544 0000 0000 | | .BLANK 0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; Debug Table
0548 ; --------------------------------------------------------------------------------------
0548 0004 000e | | .DEBUG4 0x0004,0x000e,0xa47a,0x0000,0x0001,0x0000
054e 0000 0000 | | .BLANK 0000[0x26]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]