|
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_03c0fe
└─⟦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 0560 | ` | .CONST 0x0560 ; 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 0056 | V | .CONST 0x0056 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0019 | | .CONST 0x0019 ; Number of locals
001b INIT_0018:
001b 029f 011b | | Declare_Subprogram INIT_0118,For_Call
001d 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
001f 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0021 e002 | | Load 0x0,0x2
0022 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0023 02c7 | | Declare_Variable Any
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 e003 | | Load 0x0,0x3
0027 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0028 e004 | | Load 0x0,0x4
0029 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002a 00e3 | | Load_Encached Natural_Cache
002b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002c 00e3 | | Load_Encached Natural_Cache
002d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002e 03e9 | | Declare_Variable Discrete,Duplicate
002f 00e3 | | Load_Encached Natural_Cache
0030 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0031 00e3 | | Load_Encached Natural_Cache
0032 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0033 03e9 | | Declare_Variable Discrete,Duplicate
0034 00e3 | | Load_Encached Natural_Cache
0035 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0036 00e3 | | Load_Encached Natural_Cache
0037 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0038 00e3 | | Load_Encached Natural_Cache
0039 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003a 00e3 | | Load_Encached Natural_Cache
003b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003c 00e1 | | Load_Encached Boolean_Cache
003d 0093 0000 | | push_full_address 0x0
003f 60d0 |` | Indirect_Literal Discrete,0x110,{0x80000000, 0x00010000}
0040 0273 | s | Execute Discrete,Plus
0041 0007 | | Action Break_Optional
0042 0093 0000 | | push_full_address 0x0
0044 60c7 |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00020000}
0045 0273 | s | Execute Discrete,Plus
0046 0007 | | Action Break_Optional
0047 0093 0000 | | push_full_address 0x0
0049 60be |` | Indirect_Literal Discrete,0x108,{0x80000000, 0x00030000}
004a 0273 | s | Execute Discrete,Plus
004b 0007 | | Action Break_Optional
004c 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
004e 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0050 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0052 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0054 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0056 BODY_0018:
0056 4801 |H | Short_Literal 0x1
0057 e005 | | Load 0x0,0x5
0058 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0059 e005 | | Load 0x0,0x5
005a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
005b 7005 |p | Jump_Nonzero 0x61
005c 0092 03f1 | | Action Push_String_Extended,0x3f1 ; "Privileged mode is required to run this utility."
005e e006 | | Load 0x0,0x6
005f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0060 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0061 e405 | | Load 0x2,0x5
0062 0120 | | Execute Any,Is_Value
0063 6803 |h | Jump_Zero 0x67
0064 e002 | | Load 0x0,0x2
0065 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0066 7801 |x | Jump 0x68
0067 e405 | | Load 0x2,0x5
0068 e007 | | Load 0x0,0x7
0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006a e406 | | Load 0x2,0x6
006b e002 | | Load 0x0,0x2
006c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
006d c405 | | Store 0x2,0x5
006e 0092 03f2 | | Action Push_String_Extended,0x3f2 ; "Number of objects: "
0070 e007 | | Load 0x0,0x7
0071 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0072 e002 | | Load 0x0,0x2
0073 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0074 00e0 | | Load_Encached Standard_Cache
0075 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0076 01cc | | Execute Vector,Catenate
0077 e006 | | Load 0x0,0x6
0078 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0079 00ea | | Load_Encached Null_String_Cache
007a e006 | | Load 0x0,0x6
007b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
007c 00cf | | Action Mark_Auxiliary
007d 7815 |x | Jump 0x93
007e e405 | | Load 0x2,0x5
007f e002 | | Load 0x0,0x2
0080 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0081 8419 | | Call 0x2,0x19
0082 e407 | | Load 0x2,0x7
0083 0a01 | | Execute_Immediate Plus,0x1
0084 c407 | | Store 0x2,0x7
0085 e405 | | Load 0x2,0x5
0086 e002 | | Load 0x0,0x2
0087 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0088 c405 | | Store 0x2,0x5
0089 e407 | | Load 0x2,0x7
008a 4864 |Hd | Short_Literal 0x64
008b 026e | n | Execute Discrete,Modulo
008c 7005 |p | Jump_Nonzero 0x92
008d e407 | | Load 0x2,0x7
008e 00e0 | | Load_Encached Standard_Cache
008f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0090 e006 | | Load 0x0,0x6
0091 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0092 00c9 | | Action Pop_Auxiliary_Loop
0093 e405 | | Load 0x2,0x5
0094 e002 | | Load 0x0,0x2
0095 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0096 6fe7 |o | Jump_Zero 0x7e
0097 00ce | | Action Pop_Auxiliary
0098 00ea | | Load_Encached Null_String_Cache
0099 e006 | | Load 0x0,0x6
009a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
009b e407 | | Load 0x2,0x7
009c 00e0 | | Load_Encached Standard_Cache
009d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009e 0092 03f3 | | Action Push_String_Extended,0x3f3 ; " objects total"
00a0 01cc | | Execute Vector,Catenate
00a1 e006 | | Load 0x0,0x6
00a2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00a3 e408 | | Load 0x2,0x8
00a4 00e0 | | Load_Encached Standard_Cache
00a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a6 0092 03f4 | | Action Push_String_Extended,0x3f4 ; " good ATTRs"
00a8 01cc | | Execute Vector,Catenate
00a9 e006 | | Load 0x0,0x6
00aa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ab e409 | | Load 0x2,0x9
00ac 00e0 | | Load_Encached Standard_Cache
00ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ae 0092 03f5 | | Action Push_String_Extended,0x3f5 ; " bad ATTRs ("
00b0 01cc | | Execute Vector,Catenate
00b1 e40b | | Load 0x2,0xb
00b2 00e0 | | Load_Encached Standard_Cache
00b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b4 01cc | | Execute Vector,Catenate
00b5 e40c | | Load 0x2,0xc
00b6 00e0 | | Load_Encached Standard_Cache
00b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b8 01cc | | Execute Vector,Catenate
00b9 0092 03f6 | | Action Push_String_Extended,0x3f6 ; " )"
00bb 01cc | | Execute Vector,Catenate
00bc e006 | | Load 0x0,0x6
00bd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00be 00ea | | Load_Encached Null_String_Cache
00bf e006 | | Load 0x0,0x6
00c0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c1 0092 03f7 | | Action Push_String_Extended,0x3f7 ; "Reclaimable space (pages): "
00c3 e40a | | Load 0x2,0xa
00c4 00e0 | | Load_Encached Standard_Cache
00c5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c6 01cc | | Execute Vector,Catenate
00c7 e006 | | Load 0x0,0x6
00c8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c9 00ea | | Load_Encached Null_String_Cache
00ca e006 | | Load 0x0,0x6
00cb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00cc 0092 03f8 | | Action Push_String_Extended,0x3f8 ; "Object manager stats"
00ce e006 | | Load 0x0,0x6
00cf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00d0 0092 03f9 | | Action Push_String_Extended,0x3f9 ; " ADA unit count :"
00d2 e40f | | Load 0x2,0xf
00d3 00e0 | | Load_Encached Standard_Cache
00d4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d5 01cc | | Execute Vector,Catenate
00d6 e006 | | Load 0x0,0x6
00d7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00d8 0092 03fa | | Action Push_String_Extended,0x3fa ; " ATTR count :"
00da e40d | | Load 0x2,0xd
00db 00e0 | | Load_Encached Standard_Cache
00dc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00dd 01cc | | Execute Vector,Catenate
00de e006 | | Load 0x0,0x6
00df 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00e0 0092 03fb | | Action Push_String_Extended,0x3fb ; " TDDB count :"
00e2 e40e | | Load 0x2,0xe
00e3 00e0 | | Load_Encached Standard_Cache
00e4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e5 01cc | | Execute Vector,Catenate
00e6 e006 | | Load 0x0,0x6
00e7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00e8 e5fe | | Load 0x2,-0x2
00e9 701a |p | Jump_Nonzero 0x104
00ea 00ea | | Load_Encached Null_String_Cache
00eb e006 | | Load 0x0,0x6
00ec 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ed 0092 03fc | | Action Push_String_Extended,0x3fc ; "***"
00ef e410 | | Load 0x2,0x10
00f0 00e0 | | Load_Encached Standard_Cache
00f1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f2 01cc | | Execute Vector,Catenate
00f3 0092 03fd | | Action Push_String_Extended,0x3fd ; " Orphan ATTRs have been successfully deleted ***"
00f5 01cc | | Execute Vector,Catenate
00f6 e006 | | Load 0x0,0x6
00f7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00f8 e410 | | Load 0x2,0x10
00f9 00e0 | | Load_Encached Standard_Cache
00fa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00fb 0092 03fe | | Action Push_String_Extended,0x3fe ; " Orphan ATTRs have been successfully deleted."
00fd 01cc | | Execute Vector,Catenate
00fe 00ea | | Load_Encached Null_String_Cache
00ff 4800 |H | Short_Literal 0x0
0100 0092 03ff | | Action Push_String_Extended,0x3ff ; "REPAIR_CG_ATTRS"
0102 e008 | | Load 0x0,0x8
0103 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0104 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
010c 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0110 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e7ff | | Load 0x3,-0x1
011c e009 | | Load 0x0,0x9
011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011e 011c | | Execute Any,Convert_Unchecked
011f 1c01 | | Execute_Immediate Run_Utility,0x1
0120 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0121 0000 0000 | | .BLANK 0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e7ff | | Load 0x3,-0x1
012c e00a | | Load 0x0,0xa
012d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012e 011c | | Execute Any,Convert_Unchecked
012f 1c01 | | Execute_Immediate Run_Utility,0x1
0130 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e7ff | | Load 0x3,-0x1
013c 00d8 | | Load_Top At_Offset_0
013d 00e2 | | Load_Encached Integer_Cache
013e 0260 | ` | Execute Discrete,In_Type
013f 7001 |p | Jump_Nonzero 0x141
0140 0801 | | Execute_Immediate Raise,0x1
0141 00e0 | | Load_Encached Standard_Cache
0142 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 015f | _ | .CONST 0x015f ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0005 | | .CONST 0x0005 ; Number of locals
014b INIT_0148:
014b e7ff | | Load 0x3,-0x1
014c e00b | | Load 0x0,0xb
014d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014e 00e5 | | Load_Encached Long_Integer_Cache
014f 03f1 | | Declare_Variable Discrete,With_Value
0150 00d8 | | Load_Top At_Offset_0
0151 09e0 | | Execute_Immediate Binary_Scale,-0x20
0152 00e5 | | Load_Encached Long_Integer_Cache
0153 03f1 | | Declare_Variable Discrete,With_Value
0154 e602 | | Load 0x3,0x2
0155 6036 |`6 | Indirect_Literal Discrete,0x18c,{0x00000000, 0xffffffff}
0156 0279 | y | Execute Discrete,And
0157 00e5 | | Load_Encached Long_Integer_Cache
0158 03f1 | | Declare_Variable Discrete,With_Value
0159 4830 |H0 | Short_Literal 0x30
015a 4808 |H | Short_Literal 0x8
015b 4810 |H | Short_Literal 0x10
015c e604 | | Load 0x3,0x4
015d e00c | | Load 0x0,0xc
015e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015f BODY_0148:
015f e7fe | | Load 0x3,-0x2
0160 6815 |h | Jump_Zero 0x176
0161 e7fd | | Load 0x3,-0x3
0162 680c |h | Jump_Zero 0x16f
0163 4820 |H | Short_Literal 0x20
0164 4808 |H | Short_Literal 0x8
0165 4810 |H | Short_Literal 0x10
0166 e603 | | Load 0x3,0x3
0167 e00c | | Load 0x0,0xc
0168 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0169 0092 0400 | | Action Push_String_Extended,0x400 ; "_"
016b 01cc | | Execute Vector,Catenate
016c e605 | | Load 0x3,0x5
016d 01cc | | Execute Vector,Catenate
016e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
016f 4820 |H | Short_Literal 0x20
0170 4808 |H | Short_Literal 0x8
0171 4810 |H | Short_Literal 0x10
0172 e603 | | Load 0x3,0x3
0173 e00c | | Load 0x0,0xc
0174 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0175 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0176 e7fd | | Load 0x3,-0x3
0177 680c |h | Jump_Zero 0x184
0178 4820 |H | Short_Literal 0x20
0179 4800 |H | Short_Literal 0x0
017a 4810 |H | Short_Literal 0x10
017b e603 | | Load 0x3,0x3
017c e00c | | Load 0x0,0xc
017d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
017e 0092 0400 | | Action Push_String_Extended,0x400 ; "_"
0180 01cc | | Execute Vector,Catenate
0181 e605 | | Load 0x3,0x5
0182 01cc | | Execute Vector,Catenate
0183 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0184 4820 |H | Short_Literal 0x20
0185 4800 |H | Short_Literal 0x0
0186 4810 |H | Short_Literal 0x10
0187 e603 | | Load 0x3,0x3
0188 e00c | | Load 0x0,0xc
0189 1817 | | Execute Package,Field_Execute,Field_Number 0x17
018a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
018b 0000 | | .XXX[0x1]
018c 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019a | | .CONST 0x019a ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 e00d | | Load 0x0,0xd
0194 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0195 02ff | | Declare_Variable Variant_Record
0196 00d8 | | Load_Top At_Offset_0
0197 1c00 | | Execute_Immediate Run_Utility,0x0
0198 e00a | | Load 0x0,0xa
0199 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019a BODY_0190:
019a e00a | | Load 0x0,0xa
019b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019c e602 | | Load 0x3,0x2
019d 602e |`. | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x00004000}
019e e00e | | Load 0x0,0xe
019f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a0 4800 |H | Short_Literal 0x0
01a1 e7ff | | Load 0x3,-0x1
01a2 e00a | | Load 0x0,0xa
01a3 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
01a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a5 e00a | | Load 0x0,0xa
01a6 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01a7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01a8 00d1 | | Pop_Control Pop_Count_1
01a9 c603 | | Store 0x3,0x3
01aa 00d8 | | Load_Top At_Offset_0
01ab 7005 |p | Jump_Nonzero 0x1b1
01ac e602 | | Load 0x3,0x2
01ad e007 | | Load 0x0,0x7
01ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01af 0162 | b | Execute Variant_Record,Check_In_Type
01b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b1 00d8 | | Load_Top At_Offset_0
01b2 0f08 | | Execute_Immediate Equal,0x8
01b3 6802 |h | Jump_Zero 0x1b6
01b4 e413 | | Load 0x2,0x13
01b5 0257 | W | Execute Discrete,Raise
01b6 0092 0401 | | Action Push_String_Extended,0x401 ; "dir.traversal.get_version failed (bad status): "
01b8 e7ff | | Load 0x3,-0x1
01b9 e00d | | Load 0x0,0xd
01ba 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01bb 01cc | | Execute Vector,Catenate
01bc 0092 0402 | | Action Push_String_Extended,0x402 ; " "
01be 01cc | | Execute Vector,Catenate
01bf e603 | | Load 0x3,0x3
01c0 e00a | | Load 0x0,0xa
01c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c2 011c | | Execute Any,Convert_Unchecked
01c3 1c01 | | Execute_Immediate Run_Utility,0x1
01c4 01cc | | Execute Vector,Catenate
01c5 e006 | | Load 0x0,0x6
01c6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01c7 e412 | | Load 0x2,0x12
01c8 0257 | W | Execute Discrete,Raise
01c9 0000 0000 | | .XXX[0x3]
01cb 0000 | |
01cc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01f4 | | .CONST 0x01f4 ; Address of begin
01d1 0270 | p | .CONST 0x0270 ; Address of exception handler
01d2 0009 | | .CONST 0x0009 ; Number of locals
01d3 INIT_01d0:
01d3 e009 | | Load 0x0,0x9
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 e007 | | Load 0x0,0x7
01d6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01d7 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
01d8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d9 e007 | | Load 0x0,0x7
01da 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01db 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
01dc 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01dd e00d | | Load 0x0,0xd
01de 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01df 02ff | | Declare_Variable Variant_Record
01e0 00d8 | | Load_Top At_Offset_0
01e1 1c00 | | Execute_Immediate Run_Utility,0x0
01e2 e007 | | Load 0x0,0x7
01e3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e5 02c7 | | Declare_Variable Any
01e6 00d8 | | Load_Top At_Offset_0
01e7 1c00 | | Execute_Immediate Run_Utility,0x0
01e8 e00f | | Load 0x0,0xf
01e9 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01ea e00e | | Load 0x0,0xe
01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ec 02c7 | | Declare_Variable Any
01ed 00d8 | | Load_Top At_Offset_0
01ee 1c00 | | Execute_Immediate Run_Utility,0x0
01ef e007 | | Load 0x0,0x7
01f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f1 02ff | | Declare_Variable Variant_Record
01f2 00d8 | | Load_Top At_Offset_0
01f3 1c00 | | Execute_Immediate Run_Utility,0x0
01f4 BODY_01d0:
01f4 e7ff | | Load 0x3,-0x1
01f5 8416 | | Call 0x2,0x16
01f6 e609 | | Load 0x3,0x9
01f7 016d | m | Execute Variant_Record,Structure_Write
01f8 e009 | | Load 0x0,0x9
01f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fa e007 | | Load 0x0,0x7
01fb 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01fc 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
01fd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01fe e00e | | Load 0x0,0xe
01ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0200 4800 |H | Short_Literal 0x0
0201 e609 | | Load 0x3,0x9
0202 e007 | | Load 0x0,0x7
0203 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0204 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0205 c603 | | Store 0x3,0x3
0206 c602 | | Store 0x3,0x2
0207 e602 | | Load 0x3,0x2
0208 6814 |h | Jump_Zero 0x21d
0209 0092 0403 | | Action Push_String_Extended,0x403 ; "can't get associated objects for unit (bad status): "
020b e609 | | Load 0x3,0x9
020c e00d | | Load 0x0,0xd
020d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020e 01cc | | Execute Vector,Catenate
020f 0092 0402 | | Action Push_String_Extended,0x402 ; " "
0211 01cc | | Execute Vector,Catenate
0212 e602 | | Load 0x3,0x2
0213 e009 | | Load 0x0,0x9
0214 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0215 011c | | Execute Any,Convert_Unchecked
0216 1c01 | | Execute_Immediate Run_Utility,0x1
0217 01cc | | Execute Vector,Catenate
0218 e006 | | Load 0x0,0x6
0219 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
021a e00f | | Load 0x0,0xf
021b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021d e007 | | Load 0x0,0x7
021e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
021f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0220 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0221 e603 | | Load 0x3,0x3
0222 e007 | | Load 0x0,0x7
0223 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0224 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0225 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0226 c604 | | Store 0x3,0x4
0227 00cf | | Action Mark_Auxiliary
0228 783e |x> | Jump 0x267
0229 e604 | | Load 0x3,0x4
022a e007 | | Load 0x0,0x7
022b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
022c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
022d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
022f e605 | | Load 0x3,0x5
0230 016d | m | Execute Variant_Record,Structure_Write
0231 e605 | | Load 0x3,0x5
0232 e00d | | Load 0x0,0xd
0233 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0234 e007 | | Load 0x0,0x7
0235 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0236 027f | | Execute Discrete,Equal
0237 6828 |h( | Jump_Zero 0x260
0238 e009 | | Load 0x0,0x9
0239 1b11 | | Execute Package,Field_Read,Field_Number 0x11
023a e606 | | Load 0x3,0x6
023b 0120 | | Execute Any,Is_Value
023c 6804 |h | Jump_Zero 0x241
023d e007 | | Load 0x0,0x7
023e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0240 7801 |x | Jump 0x242
0241 e606 | | Load 0x3,0x6
0242 e00e | | Load 0x0,0xe
0243 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0244 4800 |H | Short_Literal 0x0
0245 4800 |H | Short_Literal 0x0
0246 e605 | | Load 0x3,0x5
0247 e007 | | Load 0x0,0x7
0248 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0249 0162 | b | Execute Variant_Record,Check_In_Type
024a e007 | | Load 0x0,0x7
024b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
024c c606 | | Store 0x3,0x6
024d c602 | | Store 0x3,0x2
024e e602 | | Load 0x3,0x2
024f 7010 |p | Jump_Nonzero 0x260
0250 e606 | | Load 0x3,0x6
0251 e007 | | Load 0x0,0x7
0252 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0253 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0254 a607 | | Store_Unchecked 0x3,0x7
0255 e607 | | Load 0x3,0x7
0256 e007 | | Load 0x0,0x7
0257 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
0258 6801 |h | Jump_Zero 0x25a
0259 7806 |x | Jump 0x260
025a e607 | | Load 0x3,0x7
025b e007 | | Load 0x0,0x7
025c 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
025d 6802 |h | Jump_Zero 0x260
025e e607 | | Load 0x3,0x7
025f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0260 e604 | | Load 0x3,0x4
0261 e007 | | Load 0x0,0x7
0262 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0263 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0264 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0265 c604 | | Store 0x3,0x4
0266 00c9 | | Action Pop_Auxiliary_Loop
0267 e604 | | Load 0x3,0x4
0268 e007 | | Load 0x0,0x7
0269 1b15 | | Execute Package,Field_Read,Field_Number 0x15
026a 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
026b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
026c 6fbc |o | Jump_Zero 0x229
026d 00ce | | Action Pop_Auxiliary
026e e414 | | Load 0x2,0x14
026f 0257 | W | Execute Discrete,Raise
0270 TRAP_01d0:
0270 e413 | | Load 0x2,0x13
0271 010f | | Execute Exception,Equal
0272 7003 |p | Jump_Nonzero 0x276
0273 e414 | | Load 0x2,0x14
0274 010f | | Execute Exception,Equal
0275 6802 |h | Jump_Zero 0x278
0276 00d8 | | Load_Top At_Offset_0
0277 0101 | | Execute Exception,Reraise
0278 e412 | | Load 0x2,0x12
0279 010f | | Execute Exception,Equal
027a 6803 |h | Jump_Zero 0x27e
027b e00f | | Load 0x0,0xf
027c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
027d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027e 0092 0404 | | Action Push_String_Extended,0x404 ; "exception "
0280 e010 | | Load 0x0,0x10
0281 180d | | Execute Package,Field_Execute,Field_Number 0xd
0282 01cc | | Execute Vector,Catenate
0283 0092 0405 | | Action Push_String_Extended,0x405 ; " processing attr_seg: "
0285 01cc | | Execute Vector,Catenate
0286 e609 | | Load 0x3,0x9
0287 e00d | | Load 0x0,0xd
0288 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0289 01cc | | Execute Vector,Catenate
028a e006 | | Load 0x0,0x6
028b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
028c e00f | | Load 0x0,0xf
028d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f 0000 | | .XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 02a2 | | .CONST 0x02a2 ; Address of begin
0291 02ce | | .CONST 0x02ce ; Address of exception handler
0292 0007 | | .CONST 0x0007 ; Number of locals
0293 INIT_0290:
0293 00e1 | | Load_Encached Boolean_Cache
0294 e011 | | Load 0x0,0x11
0295 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0296 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0297 0322 | " | Declare_Variable Record
0298 00d8 | | Load_Top At_Offset_0
0299 1c00 | | Execute_Immediate Run_Utility,0x0
029a e009 | | Load 0x0,0x9
029b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029c 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
029e 029f 036b | k| Declare_Subprogram INIT_0368,For_Call
02a0 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
02a2 BODY_0290:
02a2 e7ff | | Load 0x3,-0x1
02a3 e00f | | Load 0x0,0xf
02a4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02a5 021f | | Execute Heap_Access,Equal
02a6 7026 |p& | Jump_Nonzero 0x2cd
02a7 e7ff | | Load 0x3,-0x1
02a8 e007 | | Load 0x0,0x7
02a9 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
02aa 6817 |h | Jump_Zero 0x2c2
02ab e40d | | Load 0x2,0xd
02ac 0a01 | | Execute_Immediate Plus,0x1
02ad c40d | | Store 0x2,0xd
02ae e7ff | | Load 0x3,-0x1
02af e007 | | Load 0x0,0x7
02b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b2 e007 | | Load 0x0,0x7
02b3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02b4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02b5 e012 | | Load 0x0,0x12
02b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b7 0162 | b | Execute Variant_Record,Check_In_Type
02b8 8417 | | Call 0x2,0x17
02b9 e7ff | | Load 0x3,-0x1
02ba 021f | | Execute Heap_Access,Equal
02bb 7004 |p | Jump_Nonzero 0x2c0
02bc 0092 0406 | | Action Push_String_Extended,0x406 ; "coded parent"
02be 8606 | | Call 0x3,0x6
02bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c0 8607 | | Call 0x3,0x7
02c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c2 e7ff | | Load 0x3,-0x1
02c3 e007 | | Load 0x0,0x7
02c4 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
02c5 6804 |h | Jump_Zero 0x2ca
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 e40f | | Load 0x2,0xf
02cb 0a01 | | Execute_Immediate Plus,0x1
02cc c40f | | Store 0x2,0xf
02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ce TRAP_0290:
02ce e413 | | Load 0x2,0x13
02cf 010f | | Execute Exception,Equal
02d0 6807 |h | Jump_Zero 0x2d8
02d1 0092 0407 | | Action Push_String_Extended,0x407 ; "~coded parent"
02d3 8606 | | Call 0x3,0x6
02d4 e40b | | Load 0x2,0xb
02d5 0a01 | | Execute_Immediate Plus,0x1
02d6 c40b | | Store 0x2,0xb
02d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d8 e414 | | Load 0x2,0x14
02d9 010f | | Execute Exception,Equal
02da 6807 |h | Jump_Zero 0x2e2
02db 0092 0408 | | Action Push_String_Extended,0x408 ; "non-existent parent"
02dd 8606 | | Call 0x3,0x6
02de e40c | | Load 0x2,0xc
02df 0a01 | | Execute_Immediate Plus,0x1
02e0 c40c | | Store 0x2,0xc
02e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e2 0092 0409 | | Action Push_String_Extended,0x409 ; "Check(seg)"
02e4 e407 | | Load 0x2,0x7
02e5 00e0 | | Load_Encached Standard_Cache
02e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02e7 01cc | | Execute Vector,Catenate
02e8 0092 040a | | Action Push_String_Extended,0x40a ; ": "
02ea 01cc | | Execute Vector,Catenate
02eb e7fe | | Load 0x3,-0x2
02ec e00d | | Load 0x0,0xd
02ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02ee 01cc | | Execute Vector,Catenate
02ef 0092 0402 | | Action Push_String_Extended,0x402 ; " "
02f1 01cc | | Execute Vector,Catenate
02f2 e010 | | Load 0x0,0x10
02f3 180d | | Execute Package,Field_Execute,Field_Number 0xd
02f4 01cc | | Execute Vector,Catenate
02f5 e006 | | Load 0x0,0x6
02f6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0308 | | .CONST 0x0308 ; Address of begin
02f9 0336 | 6 | .CONST 0x0336 ; Address of exception handler
02fa 0005 | | .CONST 0x0005 ; Number of locals
02fb INIT_02f8:
02fb e002 | | Load 0x0,0x2
02fc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02fd 0322 | " | Declare_Variable Record
02fe 00d8 | | Load_Top At_Offset_0
02ff 1c00 | | Execute_Immediate Run_Utility,0x0
0300 e009 | | Load 0x0,0x9
0301 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0302 e009 | | Load 0x0,0x9
0303 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0304 e602 | | Load 0x3,0x2
0305 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0306 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0307 0007 | | Action Break_Optional
0308 BODY_02f8:
0308 e7ff | | Load 0x3,-0x1
0309 e00d | | Load 0x0,0xd
030a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
030b 7029 |p) | Jump_Nonzero 0x335
030c e009 | | Load 0x0,0x9
030d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
030e e602 | | Load 0x3,0x2
030f e00e | | Load 0x0,0xe
0310 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0311 4800 |H | Short_Literal 0x0
0312 4800 |H | Short_Literal 0x0
0313 e7ff | | Load 0x3,-0x1
0314 e002 | | Load 0x0,0x2
0315 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0316 00d1 | | Pop_Control Pop_Count_1
0317 c603 | | Store 0x3,0x3
0318 e603 | | Load 0x3,0x3
0319 6816 |h | Jump_Zero 0x330
031a e407 | | Load 0x2,0x7
031b 00e0 | | Load_Encached Standard_Cache
031c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
031d 0092 040a | | Action Push_String_Extended,0x40a ; ": "
031f 01cc | | Execute Vector,Catenate
0320 e7ff | | Load 0x3,-0x1
0321 e00d | | Load 0x0,0xd
0322 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0323 01cc | | Execute Vector,Catenate
0324 0092 0402 | | Action Push_String_Extended,0x402 ; " "
0326 01cc | | Execute Vector,Catenate
0327 e603 | | Load 0x3,0x3
0328 e009 | | Load 0x0,0x9
0329 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032a 011c | | Execute Any,Convert_Unchecked
032b 1c01 | | Execute_Immediate Run_Utility,0x1
032c 01cc | | Execute Vector,Catenate
032d e006 | | Load 0x0,0x6
032e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
032f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0330 e7ff | | Load 0x3,-0x1
0331 e602 | | Load 0x3,0x2
0332 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0333 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0334 8418 | | Call 0x2,0x18
0335 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0336 TRAP_02f8:
0336 0007 | | Action Break_Optional
0337 0092 040b | | Action Push_String_Extended,0x40b ; "Check(object.id)"
0339 e407 | | Load 0x2,0x7
033a 00e0 | | Load_Encached Standard_Cache
033b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
033c 01cc | | Execute Vector,Catenate
033d 0092 040a | | Action Push_String_Extended,0x40a ; ": "
033f 01cc | | Execute Vector,Catenate
0340 e7ff | | Load 0x3,-0x1
0341 e00d | | Load 0x0,0xd
0342 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0343 01cc | | Execute Vector,Catenate
0344 0092 0402 | | Action Push_String_Extended,0x402 ; " "
0346 01cc | | Execute Vector,Catenate
0347 e010 | | Load 0x0,0x10
0348 180d | | Execute Package,Field_Execute,Field_Number 0xd
0349 01cc | | Execute Vector,Catenate
034a e006 | | Load 0x0,0x6
034b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
034c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
034d 0000 0000 | | .XXX[0x3]
034f 0000 | |
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 e602 | | Load 0x3,0x2
0354 680b |h | Jump_Zero 0x360
0355 0092 040c | | Action Push_String_Extended,0x40c ; "; "
0357 e603 | | Load 0x3,0x3
0358 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0359 00e0 | | Load_Encached Standard_Cache
035a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
035b 01cc | | Execute Vector,Catenate
035c 0092 040d | | Action Push_String_Extended,0x40d ; " pages"
035e 01cc | | Execute Vector,Catenate
035f 00ca | | Action Exit_Nullary_Function
0360 00ea | | Load_Encached Null_String_Cache
0361 00ca | | Action Exit_Nullary_Function
0362 0000 0000 | | .BLANK 0000[0x6]
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 e409 | | Load 0x2,0x9
036c 0a01 | | Execute_Immediate Plus,0x1
036d c409 | | Store 0x2,0x9
036e e603 | | Load 0x3,0x3
036f 00e1 | | Load_Encached Boolean_Cache
0370 e7ff | | Load 0x3,-0x1
0371 e00b | | Load 0x0,0xb
0372 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0373 e011 | | Load 0x0,0x11
0374 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0375 180e | | Execute Package,Field_Execute,Field_Number 0xe
0376 c602 | | Store 0x3,0x2
0377 00d1 | | Pop_Control Pop_Count_1
0378 e602 | | Load 0x3,0x2
0379 7011 |p | Jump_Nonzero 0x38b
037a 0092 040e | | Action Push_String_Extended,0x40e ; "Fatal!! Orphan ATTR seg not found in space manager: "
037c 4800 |H | Short_Literal 0x0
037d 4801 |H | Short_Literal 0x1
037e e7ff | | Load 0x3,-0x1
037f 8415 | | Call 0x2,0x15
0380 01cc | | Execute Vector,Catenate
0381 0092 040a | | Action Push_String_Extended,0x40a ; ": "
0383 01cc | | Execute Vector,Catenate
0384 e7fe | | Load 0x3,-0x2
0385 e00d | | Load 0x0,0xd
0386 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0387 01cc | | Execute Vector,Catenate
0388 e006 | | Load 0x0,0x6
0389 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
038a 7805 |x | Jump 0x390
038b e40a | | Load 0x2,0xa
038c e603 | | Load 0x3,0x3
038d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
038e 0273 | s | Execute Discrete,Plus
038f c40a | | Store 0x2,0xa
0390 e5ff | | Load 0x2,-0x1
0391 6817 |h | Jump_Zero 0x3a9
0392 0092 040f | | Action Push_String_Extended,0x40f ; "**** Bad ATTR ("
0394 e9ff | | Load 0x4,-0x1
0395 01cc | | Execute Vector,Catenate
0396 0092 0410 | | Action Push_String_Extended,0x410 ; "): "
0398 01cc | | Execute Vector,Catenate
0399 4800 |H | Short_Literal 0x0
039a 4801 |H | Short_Literal 0x1
039b e7ff | | Load 0x3,-0x1
039c 8415 | | Call 0x2,0x15
039d 01cc | | Execute Vector,Catenate
039e 0092 040a | | Action Push_String_Extended,0x40a ; ": "
03a0 01cc | | Execute Vector,Catenate
03a1 e7fe | | Load 0x3,-0x2
03a2 e00d | | Load 0x0,0xd
03a3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03a4 01cc | | Execute Vector,Catenate
03a5 8605 | | Call 0x3,0x5
03a6 01cc | | Execute Vector,Catenate
03a7 e006 | | Load 0x0,0x6
03a8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03a9 e5fe | | Load 0x2,-0x2
03aa 7028 |p( | Jump_Nonzero 0x3d3
03ab e009 | | Load 0x0,0x9
03ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ad e00e | | Load 0x0,0xe
03ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03af 6024 |`$ | Indirect_Literal Discrete,0x3d4,{0x00000000, 0x00028000}
03b0 e7fe | | Load 0x3,-0x2
03b1 e007 | | Load 0x0,0x7
03b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b3 0162 | b | Execute Variant_Record,Check_In_Type
03b4 e007 | | Load 0x0,0x7
03b5 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
03b6 c604 | | Store 0x3,0x4
03b7 e604 | | Load 0x3,0x4
03b8 0f00 | | Execute_Immediate Equal,0x0
03b9 a411 | | Store_Unchecked 0x2,0x11
03ba e411 | | Load 0x2,0x11
03bb 7014 |p | Jump_Nonzero 0x3d0
03bc 0092 0411 | | Action Push_String_Extended,0x411 ; "Unable to reclaim space for orphan attribute: "
03be e7fe | | Load 0x3,-0x2
03bf e00d | | Load 0x0,0xd
03c0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03c1 01cc | | Execute Vector,Catenate
03c2 0092 0402 | | Action Push_String_Extended,0x402 ; " "
03c4 01cc | | Execute Vector,Catenate
03c5 e604 | | Load 0x3,0x4
03c6 e009 | | Load 0x0,0x9
03c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c8 011c | | Execute Any,Convert_Unchecked
03c9 1c01 | | Execute_Immediate Run_Utility,0x1
03ca 01cc | | Execute Vector,Catenate
03cb 8605 | | Call 0x3,0x5
03cc 01cc | | Execute Vector,Catenate
03cd e006 | | Load 0x0,0x6
03ce 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d0 e410 | | Load 0x2,0x10
03d1 0a01 | | Execute_Immediate Plus,0x1
03d2 c410 | | Store 0x2,0x10
03d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d4 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db e408 | | Load 0x2,0x8
03dc 0a01 | | Execute_Immediate Plus,0x1
03dd c408 | | Store 0x2,0x8
03de e5ff | | Load 0x2,-0x1
03df 6810 |h | Jump_Zero 0x3f0
03e0 0092 0412 | | Action Push_String_Extended,0x412 ; "Good ATTR: "
03e2 4800 |H | Short_Literal 0x0
03e3 4801 |H | Short_Literal 0x1
03e4 e7ff | | Load 0x3,-0x1
03e5 8415 | | Call 0x2,0x15
03e6 01cc | | Execute Vector,Catenate
03e7 0092 040a | | Action Push_String_Extended,0x40a ; ": "
03e9 01cc | | Execute Vector,Catenate
03ea e7fe | | Load 0x3,-0x2
03eb e00d | | Load 0x0,0xd
03ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ed 01cc | | Execute Vector,Catenate
03ee e006 | | Load 0x0,0x6
03ef 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f1 ; --------------------------------------------------------------------------------------
03f1 ; STRING TABLE
03f1 ; --------------------------------------------------------------------------------------
03f1 0046 | F | .STRTAB 0x0046->0x0414 ; "Privileged mode is required to run this utility."
03f2 0074 | t | .STRTAB 0x0074->0x042c ; "Number of objects: "
03f3 0085 | | .STRTAB 0x0085->0x0435 ; " objects total"
03f4 0091 | | .STRTAB 0x0091->0x043c ; " good ATTRs"
03f5 009a | | .STRTAB 0x009a->0x0442 ; " bad ATTRs ("
03f6 00a4 | | .STRTAB 0x00a4->0x0448 ; " )"
03f7 00a4 | | .STRTAB 0x00a4->0x0449 ; "Reclaimable space (pages): "
03f8 00bd | | .STRTAB 0x00bd->0x0456 ; "Object manager stats"
03f9 00cf | | .STRTAB 0x00cf->0x0460 ; " ADA unit count :"
03fa 00df | | .STRTAB 0x00df->0x0469 ; " ATTR count :"
03fb 00ef | | .STRTAB 0x00ef->0x0472 ; " TDDB count :"
03fc 00ff | | .STRTAB 0x00ff->0x047b ; "***"
03fd 0100 | | .STRTAB 0x0100->0x047d ; " Orphan ATTRs have been successfully deleted ***"
03fe 012e | . | .STRTAB 0x012e->0x0495 ; " Orphan ATTRs have been successfully deleted."
03ff 0159 | Y | .STRTAB 0x0159->0x04ab ; "REPAIR_CG_ATTRS"
0400 0166 | f | .STRTAB 0x0166->0x04b3 ; "_"
0401 0165 | e | .STRTAB 0x0165->0x04b3 ; "dir.traversal.get_version failed (bad status): "
0402 0192 | | .STRTAB 0x0192->0x04cb ; " "
0403 0191 | | .STRTAB 0x0191->0x04cb ; "can't get associated objects for unit (bad status): "
0404 01c3 | | .STRTAB 0x01c3->0x04e5 ; "exception "
0405 01cb | | .STRTAB 0x01cb->0x04ea ; " processing attr_seg: "
0406 01df | | .STRTAB 0x01df->0x04f5 ; "coded parent"
0407 01e9 | | .STRTAB 0x01e9->0x04fb ; "~coded parent"
0408 01f4 | | .STRTAB 0x01f4->0x0502 ; "non-existent parent"
0409 0205 | | .STRTAB 0x0205->0x050b ; "Check(seg)"
040a 020d | | .STRTAB 0x020d->0x0510 ; ": "
040b 020d | | .STRTAB 0x020d->0x0511 ; "Check(object.id)"
040c 021b | | .STRTAB 0x021b->0x0519 ; "; "
040d 021b | | .STRTAB 0x021b->0x051a ; " pages"
040e 021f | | .STRTAB 0x021f->0x051d ; "Fatal!! Orphan ATTR seg not found in space manager: "
040f 0251 | Q | .STRTAB 0x0251->0x0537 ; "**** Bad ATTR ("
0410 025e | ^ | .STRTAB 0x025e->0x053f ; "): "
0411 025f | _ | .STRTAB 0x025f->0x0540 ; "Unable to reclaim space for orphan attribute: "
0412 028b | | .STRTAB 0x028b->0x0557 ; "Good ATTR: "
0413 0294 | | .STREND 0x0294->0x055d
0414 5072 6976 |Priv| .STRTAB_STRINGS
055d 0000 0000 | | .XXX[0x3]
055f 0000 | |
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug Table
0560 ; --------------------------------------------------------------------------------------
0560 0004 0011 | | .DEBUG4 0x0004,0x0011,0x977b,0x0000,0x0001,0x0000
0566 0000 0000 | | .BLANK 0000[0x9a]