|
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 - metrics - 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
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0430 | 0 | .CONST 0x0430 ; 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 8002 | | .CONST 0x8002 ; 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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 000a | | .CONST 0x000a ; Number of locals
001b INIT_0018:
001b 0092 029b | | Action Push_String_Extended,0x29b ; "!Users.Smp.System_Tools.Rev1_Working.Units."
001d e002 | | Load 0x0,0x2
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 02c7 | | Declare_Variable Any
0020 60cb |` | Indirect_Literal Discrete,0xec,{0x0000003b, 0x53800000}
0021 e002 | | Load 0x0,0x2
0022 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0023 e002 | | Load 0x0,0x2
0024 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0025 0092 029c | | Action Push_String_Extended,0x29c ; "<MINUS_90_DAYS>"
0027 e5ff | | Load 0x2,-0x1
0028 8003 | | Call 0x0,0x3
0029 8004 | | Call 0x0,0x4
002a a403 | | Store_Unchecked 0x2,0x3
002b e002 | | Load 0x0,0x2
002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002d 02c7 | | Declare_Variable Any
002e e002 | | Load 0x0,0x2
002f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0030 0092 029d | | Action Push_String_Extended,0x29d ; "<TODAY>"
0032 e5fe | | Load 0x2,-0x2
0033 8003 | | Call 0x0,0x3
0034 8004 | | Call 0x0,0x4
0035 a404 | | Store_Unchecked 0x2,0x4
0036 0092 029e | | Action Push_String_Extended,0x29e ; "PM_Report_"
0038 4802 |H | Short_Literal 0x2
0039 4801 |H | Short_Literal 0x1
003a 4804 |H | Short_Literal 0x4
003b e002 | | Load 0x0,0x2
003c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
003d 8005 | | Call 0x0,0x5
003e 01cc | | Execute Vector,Catenate
003f 0092 029f | | Action Push_String_Extended,0x29f ; "<DEFAULT>"
0041 e5fb | | Load 0x2,-0x5
0042 8006 | | Call 0x0,0x6
0043 029f 00f3 | | Declare_Subprogram For_Call,INIT_00f0
0045 029f 0103 | | Declare_Subprogram For_Call,INIT_0100
0047 029f 012b | +| Declare_Subprogram For_Call,INIT_0128
0049 029f 016b | k| Declare_Subprogram For_Call,INIT_0168
004b 029f 01a3 | | Declare_Subprogram For_Call,INIT_01a0
004d BODY_0018:
004d 8407 | | Call 0x2,0x7
004e 8408 | | Call 0x2,0x8
004f 840a | | Call 0x2,0xa
0050 8406 | | Call 0x2,0x6
0051 8409 | | Call 0x2,0x9
0052 8406 | | Call 0x2,0x6
0053 e5fa | | Load 0x2,-0x6
0054 4802 |H | Short_Literal 0x2
0055 4801 |H | Short_Literal 0x1
0056 4802 |H | Short_Literal 0x2
0057 e404 | | Load 0x2,0x4
0058 8005 | | Call 0x0,0x5
0059 4802 |H | Short_Literal 0x2
005a 4801 |H | Short_Literal 0x1
005b 4802 |H | Short_Literal 0x2
005c e403 | | Load 0x2,0x3
005d 8005 | | Call 0x0,0x5
005e 4808 |H | Short_Literal 0x8
005f 8007 | | Call 0x0,0x7
0060 e5fa | | Load 0x2,-0x6
0061 4802 |H | Short_Literal 0x2
0062 4801 |H | Short_Literal 0x1
0063 4802 |H | Short_Literal 0x2
0064 e404 | | Load 0x2,0x4
0065 8005 | | Call 0x0,0x5
0066 4802 |H | Short_Literal 0x2
0067 4801 |H | Short_Literal 0x1
0068 4802 |H | Short_Literal 0x2
0069 e403 | | Load 0x2,0x3
006a 8005 | | Call 0x0,0x5
006b 607c |`| | Indirect_Literal Discrete,0xe8,{0x00000000, 0x0000ea60}
006c 8008 | | Call 0x0,0x8
006d 8406 | | Call 0x2,0x6
006e e5f9 | | Load 0x2,-0x7
006f 0092 02a0 | | Action Push_String_Extended,0x2a0 ; "@"
0071 4802 |H | Short_Literal 0x2
0072 4801 |H | Short_Literal 0x1
0073 4802 |H | Short_Literal 0x2
0074 e404 | | Load 0x2,0x4
0075 8005 | | Call 0x0,0x5
0076 4802 |H | Short_Literal 0x2
0077 4801 |H | Short_Literal 0x1
0078 4802 |H | Short_Literal 0x2
0079 e403 | | Load 0x2,0x3
007a 8005 | | Call 0x0,0x5
007b 8009 | | Call 0x0,0x9
007c 8406 | | Call 0x2,0x6
007d 00ea | | Load_Encached Null_String_Cache
007e e00a | | Load 0x0,0xa
007f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0080 4802 |H | Short_Literal 0x2
0081 e00b | | Load 0x0,0xb
0082 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0083 0092 02a1 | | Action Push_String_Extended,0x2a1 ; "disk"
0085 e00a | | Load 0x0,0xa
0086 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0087 8406 | | Call 0x2,0x6
0088 4801 |H | Short_Literal 0x1
0089 4800 |H | Short_Literal 0x0
008a 480a |H | Short_Literal 0xa
008b e00c | | Load 0x0,0xc
008c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008d 8406 | | Call 0x2,0x6
008e e00d | | Load 0x0,0xd
008f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0090 4802 |H | Short_Literal 0x2
0091 e00b | | Load 0x0,0xb
0092 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0093 4801 |H | Short_Literal 0x1
0094 4801 |H | Short_Literal 0x1
0095 0092 02a2 | | Action Push_String_Extended,0x2a2 ; "all"
0097 e00e | | Load 0x0,0xe
0098 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0099 4802 |H | Short_Literal 0x2
009a e00b | | Load 0x0,0xb
009b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
009c 800f | | Call 0x0,0xf
009d 8406 | | Call 0x2,0x6
009e 4800 |H | Short_Literal 0x0
009f 4800 |H | Short_Literal 0x0
00a0 4801 |H | Short_Literal 0x1
00a1 00ea | | Load_Encached Null_String_Cache
00a2 00ea | | Load_Encached Null_String_Cache
00a3 e010 | | Load 0x0,0x10
00a4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a5 4802 |H | Short_Literal 0x2
00a6 e00b | | Load 0x0,0xb
00a7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00a8 e011 | | Load 0x0,0x11
00a9 180f | | Execute Package,Field_Execute,Field_Number 0xf
00aa 8406 | | Call 0x2,0x6
00ab 4801 |H | Short_Literal 0x1
00ac 4801 |H | Short_Literal 0x1
00ad e012 | | Load 0x0,0x12
00ae 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00af 8406 | | Call 0x2,0x6
00b0 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "<PROFILE>"
00b2 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "!Machine.Release.Current.Activity"
00b4 4802 |H | Short_Literal 0x2
00b5 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "?"
00b7 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "?"
00b9 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "?"
00bb e013 | | Load 0x0,0x13
00bc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00bd 8406 | | Call 0x2,0x6
00be e5fa | | Load 0x2,-0x6
00bf 4801 |H | Short_Literal 0x1
00c0 4802 |H | Short_Literal 0x2
00c1 4801 |H | Short_Literal 0x1
00c2 4802 |H | Short_Literal 0x2
00c3 e404 | | Load 0x2,0x4
00c4 8005 | | Call 0x0,0x5
00c5 4802 |H | Short_Literal 0x2
00c6 4801 |H | Short_Literal 0x1
00c7 4802 |H | Short_Literal 0x2
00c8 e403 | | Load 0x2,0x3
00c9 8005 | | Call 0x0,0x5
00ca 8014 | | Call 0x0,0x14
00cb e00b | | Load 0x0,0xb
00cc 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
00cd e5fc | | Load 0x2,-0x4
00ce e5fb | | Load 0x2,-0x5
00cf 01db | | Execute Vector,Length
00d0 0e00 | | Execute_Immediate Not_Equal,0x0
00d1 0279 | y | Execute Discrete,And
00d2 680b |h | Jump_Zero 0xde
00d3 0092 029f | | Action Push_String_Extended,0x29f ; "<DEFAULT>"
00d5 0092 029f | | Action Push_String_Extended,0x29f ; "<DEFAULT>"
00d7 0092 029f | | Action Push_String_Extended,0x29f ; "<DEFAULT>"
00d9 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "RAW"
00db e405 | | Load 0x2,0x5
00dc e00e | | Load 0x0,0xe
00dd 180d | | Execute Package,Field_Execute,Field_Number 0xd
00de e5fd | | Load 0x2,-0x3
00df 6805 |h | Jump_Zero 0xe5
00e0 e404 | | Load 0x2,0x4
00e1 e403 | | Load 0x2,0x3
00e2 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "!Machine.Error_Logs.Log_@"
00e4 8015 | | Call 0x0,0x15
00e5 4508 |E | Exit_Subprogram 0x8
00e6 0000 0000 | | .XXX[0x2]
00e8 0000 0000 | | .LITERAL {0x00000000, 0x0000ea60}
00ec 0000 003b | ;| .LITERAL {0x0000003b, 0x53800000}
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4801 |H | Short_Literal 0x1
00f4 e00b | | Load 0x0,0xb
00f5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00f6 e00b | | Load 0x0,0xb
00f7 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
00f8 4801 |H | Short_Literal 0x1
00f9 e00b | | Load 0x0,0xb
00fa 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00fb 4501 |E | Exit_Subprogram 0x1
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0108 | | .CONST 0x0108 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e016 | | Load 0x0,0x16
0104 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0105 02c7 | | Declare_Variable Any
0106 00d8 | | Load_Top At_Offset_0
0107 1c00 | | Execute_Immediate Run_Utility,0x0
0108 BODY_0100:
0108 00d8 | | Load_Top At_Offset_0
0109 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "<QUIET>"
010b e017 | | Load 0x0,0x17
010c 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
010d c602 | | Store 0x3,0x2
010e 4800 |H | Short_Literal 0x0
010f e018 | | Load 0x0,0x18
0110 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0111 e5fc | | Load 0x2,-0x4
0112 6805 |h | Jump_Zero 0x118
0113 0092 02a9 | | Action Push_String_Extended,0x2a9 ; "PM Report is being printed"
0115 e018 | | Load 0x0,0x18
0116 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0117 7804 |x | Jump 0x11c
0118 0092 02aa | | Action Push_String_Extended,0x2aa ; "PM Report has been generated"
011a e018 | | Load 0x0,0x18
011b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011c e405 | | Load 0x2,0x5
011d 01db | | Execute Vector,Length
011e 6803 |h | Jump_Zero 0x122
011f e405 | | Load 0x2,0x5
0120 e00b | | Load 0x0,0xb
0121 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0122 4501 |E | Exit_Subprogram 0x1
0123 0000 0000 | | .BLANK 0000[0x5]
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 4801 |H | Short_Literal 0x1
012c e00b | | Load 0x0,0xb
012d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
012e 0092 02ab | | Action Push_String_Extended,0x2ab ; "Date : "
0130 4800 |H | Short_Literal 0x0
0131 4800 |H | Short_Literal 0x0
0132 4800 |H | Short_Literal 0x0
0133 e019 | | Load 0x0,0x19
0134 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0135 e019 | | Load 0x0,0x19
0136 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0137 01cc | | Execute Vector,Catenate
0138 e00b | | Load 0x0,0xb
0139 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
013a 0092 02ac | | Action Push_String_Extended,0x2ac ; "Customer : "
013c 801a | | Call 0x0,0x1a
013d 01cc | | Execute Vector,Catenate
013e e00b | | Load 0x0,0xb
013f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0140 485d |H] | Short_Literal 0x5d
0141 0092 02ad | | Action Push_String_Extended,0x2ad ; "Machine : "
0143 801b | | Call 0x0,0x1b
0144 01cc | | Execute Vector,Catenate
0145 0092 02ae | | Action Push_String_Extended,0x2ae ; " ["
0147 01cc | | Execute Vector,Catenate
0148 801c | | Call 0x0,0x1c
0149 01cc | | Execute Vector,Catenate
014a 01cb | | Execute Vector,Append
014b e00b | | Load 0x0,0xb
014c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
014d 0092 02af | | Action Push_String_Extended,0x2af ; "Period : "
014f 4802 |H | Short_Literal 0x2
0150 4801 |H | Short_Literal 0x1
0151 4802 |H | Short_Literal 0x2
0152 e403 | | Load 0x2,0x3
0153 8005 | | Call 0x0,0x5
0154 01cc | | Execute Vector,Catenate
0155 0092 02b0 | | Action Push_String_Extended,0x2b0 ; " to "
0157 01cc | | Execute Vector,Catenate
0158 4802 |H | Short_Literal 0x2
0159 4801 |H | Short_Literal 0x1
015a 4802 |H | Short_Literal 0x2
015b e404 | | Load 0x2,0x4
015c 8005 | | Call 0x0,0x5
015d 01cc | | Execute Vector,Catenate
015e e00b | | Load 0x0,0xb
015f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0160 4501 |E | Exit_Subprogram 0x1
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0171 | q | .CONST 0x0171 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0004 | | .CONST 0x0004 ; Number of locals
016b INIT_0168:
016b 029f 01bb | | Declare_Subprogram For_Call,INIT_01b8
016d 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8
016f 029f 0213 | | Declare_Subprogram For_Call,INIT_0210
0171 BODY_0168:
0171 0092 02b1 | | Action Push_String_Extended,0x2b1 ; "Booted Configuration : "
0173 e01d | | Load 0x0,0x1d
0174 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0175 01cc | | Execute Vector,Catenate
0176 e00b | | Load 0x0,0xb
0177 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0178 801e | | Call 0x0,0x1e
0179 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "System Boot Configuration Settings"
017b e00b | | Load 0x0,0xb
017c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
017d 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "=================================="
017f e00b | | Load 0x0,0xb
0180 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0181 801f | | Call 0x0,0x1f
0182 4802 |H | Short_Literal 0x2
0183 e00b | | Load 0x0,0xb
0184 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0185 0092 02b4 | | Action Push_String_Extended,0x2b4 ; " DISK BAD BLOCK INFORMATION"
0187 e00b | | Load 0x0,0xb
0188 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0189 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "Vol Manufact Retarget Total HDA"
018b e00b | | Load 0x0,0xb
018c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
018d 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "==========================================="
018f e00b | | Load 0x0,0xb
0190 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0191 00cf | | Action Mark_Auxiliary
0192 481f |H | Short_Literal 0x1f
0193 4801 |H | Short_Literal 0x1
0194 0007 | | Action Break_Optional
0195 8604 | | Call 0x3,0x4
0196 00c8 | | Action Pop_Auxiliary_Range
0197 3ffd |? | Loop_Increasing 0x195
0198 4501 |E | Exit_Subprogram 0x1
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 01ac | | .CONST 0x01ac ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4801 |H | Short_Literal 0x1
01a4 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "System_Availability"
01a6 8020 | | Call 0x0,0x20
01a7 0092 02b8 | | Action Push_String_Extended,0x2b8 ; ".Units.Data.PM_Checklist"
01a9 01cc | | Execute Vector,Catenate
01aa 8021 | ! | Call 0x0,0x21
01ab 4501 |E | Exit_Subprogram 0x1
01ac TRAP_01a0:
01ac e022 | " | Load 0x0,0x22
01ad 010f | | Execute Exception,Equal
01ae 6805 |h | Jump_Zero 0x1b4
01af 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "*** Error - Cannot find Checklist in System_Availability Load View."
01b1 e00b | | Load 0x0,0xb
01b2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b3 4501 |E | Exit_Subprogram 0x1
01b4 0100 | | Execute Exception,Raise
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e9ff | | Load 0x4,-0x1
01bc 01dc | | Execute Vector,Last
01bd e9ff | | Load 0x4,-0x1
01be 01dd | | Execute Vector,First
01bf 0272 | r | Execute Discrete,Minus
01c0 0a01 | | Execute_Immediate Plus,0x1
01c1 00d8 | | Load_Top At_Offset_0
01c2 00e3 | | Load_Encached Natural_Cache
01c3 0260 | ` | Execute Discrete,In_Type
01c4 7001 |p | Jump_Nonzero 0x1c6
01c5 0801 | | Execute_Immediate Raise,0x1
01c6 4401 |D | Exit_Subprogram With_Result,0x1
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01da | | .CONST 0x01da ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0004 | | .CONST 0x0004 ; Number of locals
01cb INIT_01c8:
01cb e9ff | | Load 0x4,-0x1
01cc 01dd | | Execute Vector,First
01cd e9ff | | Load 0x4,-0x1
01ce 01dc | | Execute Vector,Last
01cf 00e9 | | Load_Encached String_Cache
01d0 035b | [ | Declare_Type Array,Constrained
01d1 0337 | 7 | Declare_Variable Array
01d2 e9ff | | Load 0x4,-0x1
01d3 e802 | | Load 0x4,0x2
01d4 01d4 | | Execute Vector,Structure_Write
01d5 00e8 | | Load_Encached Character_Cache
01d6 e9ff | | Load 0x4,-0x1
01d7 01dd | | Execute Vector,First
01d8 00e3 | | Load_Encached Natural_Cache
01d9 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01da BODY_01c8:
01da 00cf | | Action Mark_Auxiliary
01db 7814 |x | Jump 0x1f0
01dc e804 | | Load 0x4,0x4
01dd e802 | | Load 0x4,0x2
01de 01d7 | | Execute Vector,Field_Read
01df a803 | | Store_Unchecked 0x4,0x3
01e0 e804 | | Load 0x4,0x4
01e1 0a01 | | Execute_Immediate Plus,0x1
01e2 e802 | | Load 0x4,0x2
01e3 01d7 | | Execute Vector,Field_Read
01e4 e804 | | Load 0x4,0x4
01e5 e802 | | Load 0x4,0x2
01e6 01d6 | | Execute Vector,Field_Write
01e7 e803 | | Load 0x4,0x3
01e8 e804 | | Load 0x4,0x4
01e9 0a01 | | Execute_Immediate Plus,0x1
01ea e802 | | Load 0x4,0x2
01eb 01d6 | | Execute Vector,Field_Write
01ec e804 | | Load 0x4,0x4
01ed 0a02 | | Execute_Immediate Plus,0x2
01ee c804 | | Store 0x4,0x4
01ef 00c9 | | Action Pop_Auxiliary_Loop
01f0 e804 | | Load 0x4,0x4
01f1 e9ff | | Load 0x4,-0x1
01f2 01dc | | Execute Vector,Last
01f3 027c | | | Execute Discrete,Less
01f4 77e7 |w | Jump_Nonzero 0x1dc
01f5 00ce | | Action Pop_Auxiliary
01f6 4800 |H | Short_Literal 0x0
01f7 e802 | | Load 0x4,0x2
01f8 4800 |H | Short_Literal 0x0
01f9 e023 | # | Load 0x0,0x23
01fa 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01fb a804 | | Store_Unchecked 0x4,0x4
01fc 00d8 | | Load_Top At_Offset_0
01fd 7004 |p | Jump_Nonzero 0x202
01fe e802 | | Load 0x4,0x2
01ff 01dc | | Execute Vector,Last
0200 c804 | | Store 0x4,0x4
0201 7803 |x | Jump 0x205
0202 00d8 | | Load_Top At_Offset_0
0203 0aff | | Execute_Immediate Plus,-0x1
0204 c804 | | Store 0x4,0x4
0205 e802 | | Load 0x4,0x2
0206 01dd | | Execute Vector,First
0207 e804 | | Load 0x4,0x4
0208 e802 | | Load 0x4,0x2
0209 01cf | | Execute Vector,Slice_Read
020a 00e9 | | Load_Encached String_Cache
020b 01c6 | | Execute Vector,Convert_To_Formal
020c 4401 |D | Exit_Subprogram With_Result,0x1
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021a | | .CONST 0x021a ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0004 | | .CONST 0x0004 ; Number of locals
0213 INIT_0210:
0213 00e1 | | Load_Encached Boolean_Cache
0214 e024 | $ | Load 0x0,0x24
0215 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0216 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0217 0322 | " | Declare_Variable Record
0218 029f 0223 | #| Declare_Subprogram For_Call,INIT_0220
021a BODY_0210:
021a 8804 | | Call 0x4,0x4
021b 4501 |E | Exit_Subprogram 0x1
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0240 | @ | .CONST 0x0240 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0003 | | .CONST 0x0003 ; Number of locals
0223 INIT_0220:
0223 4801 |H | Short_Literal 0x1
0224 4802 |H | Short_Literal 0x2
0225 00e3 | | Load_Encached Natural_Cache
0226 02a0 | | Declare_Subprogram Null_Subprogram
0227 4801 |H | Short_Literal 0x1
0228 035d | ] | Declare_Type Array,Defined
0229 00d8 | | Load_Top At_Offset_0
022a 0337 | 7 | Declare_Variable Array
022b 00d8 | | Load_Top At_Offset_0
022c 0335 | 5 | Declare_Variable Array,Duplicate
022d 00cd | | Action Spare6_Action
022e 4801 |H | Short_Literal 0x1
022f e607 | | Load 0x3,0x7
0230 e01d | | Load 0x0,0x1d
0231 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0232 8602 | | Call 0x3,0x2
0233 4801 |H | Short_Literal 0x1
0234 ea04 | | Load 0x5,0x4
0235 01d6 | | Execute Vector,Field_Write
0236 4802 |H | Short_Literal 0x2
0237 e607 | | Load 0x3,0x7
0238 e01d | | Load 0x0,0x1d
0239 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
023a 8602 | | Call 0x3,0x2
023b 4802 |H | Short_Literal 0x2
023c ea04 | | Load 0x5,0x4
023d 01d6 | | Execute Vector,Field_Write
023e ea03 | | Load 0x5,0x3
023f 01d4 | | Execute Vector,Structure_Write
0240 BODY_0220:
0240 e803 | | Load 0x4,0x3
0241 00e1 | | Load_Encached Boolean_Cache
0242 e607 | | Load 0x3,0x7
0243 e024 | $ | Load 0x0,0x24
0244 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0245 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0246 c802 | | Store 0x4,0x2
0247 00d1 | | Pop_Control Pop_Count_1
0248 e802 | | Load 0x4,0x2
0249 6850 |hP | Jump_Zero 0x29a
024a e607 | | Load 0x3,0x7
024b 00e0 | | Load_Encached Standard_Cache
024c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024d 4820 |H | Short_Literal 0x20
024e 480a |H | Short_Literal 0xa
024f 480a |H | Short_Literal 0xa
0250 4801 |H | Short_Literal 0x1
0251 ea03 | | Load 0x5,0x3
0252 01d7 | | Execute Vector,Field_Read
0253 e023 | # | Load 0x0,0x23
0254 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0255 01cc | | Execute Vector,Catenate
0256 4820 |H | Short_Literal 0x20
0257 480a |H | Short_Literal 0xa
0258 480a |H | Short_Literal 0xa
0259 4802 |H | Short_Literal 0x2
025a ea03 | | Load 0x5,0x3
025b 01d7 | | Execute Vector,Field_Read
025c e023 | # | Load 0x0,0x23
025d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
025e 01cc | | Execute Vector,Catenate
025f 4820 |H | Short_Literal 0x20
0260 480a |H | Short_Literal 0xa
0261 480a |H | Short_Literal 0xa
0262 4801 |H | Short_Literal 0x1
0263 ea03 | | Load 0x5,0x3
0264 01d7 | | Execute Vector,Field_Read
0265 4802 |H | Short_Literal 0x2
0266 ea03 | | Load 0x5,0x3
0267 01d7 | | Execute Vector,Field_Read
0268 0273 | s | Execute Discrete,Plus
0269 00d8 | | Load_Top At_Offset_0
026a 00e2 | | Load_Encached Integer_Cache
026b 0260 | ` | Execute Discrete,In_Type
026c 7001 |p | Jump_Nonzero 0x26e
026d 0801 | | Execute_Immediate Raise,0x1
026e e023 | # | Load 0x0,0x23
026f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0270 01cc | | Execute Vector,Catenate
0271 0092 02ba | | Action Push_String_Extended,0x2ba ; " "
0273 01cc | | Execute Vector,Catenate
0274 e803 | | Load 0x4,0x3
0275 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0276 8603 | | Call 0x3,0x3
0277 01cc | | Execute Vector,Catenate
0278 e00b | | Load 0x0,0xb
0279 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
027a 4802 |H | Short_Literal 0x2
027b ea03 | | Load 0x5,0x3
027c 01d7 | | Execute Vector,Field_Read
027d 0c15 | | Execute_Immediate Greater_Equal,0x15
027e 6805 |h | Jump_Zero 0x284
027f 0092 02bb | | Action Push_String_Extended,0x2bb ; " <<*** Call Rational, Drive should be Rebuilt"
0281 e00b | | Load 0x0,0xb
0282 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0283 7813 |x | Jump 0x297
0284 4802 |H | Short_Literal 0x2
0285 ea03 | | Load 0x5,0x3
0286 01d7 | | Execute Vector,Field_Read
0287 0c0b | | Execute_Immediate Greater_Equal,0xb
0288 6805 |h | Jump_Zero 0x28e
0289 0092 02bc | | Action Push_String_Extended,0x2bc ; " <<=== Potential Problem with Drive, call Rational"
028b e00b | | Load 0x0,0xb
028c 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
028d 7809 |x | Jump 0x297
028e 4802 |H | Short_Literal 0x2
028f ea03 | | Load 0x5,0x3
0290 01d7 | | Execute Vector,Field_Read
0291 0c06 | | Execute_Immediate Greater_Equal,0x6
0292 6804 |h | Jump_Zero 0x297
0293 0092 02bd | | Action Push_String_Extended,0x2bd ; " <<--- Monitor Drive for increases"
0295 e00b | | Load 0x0,0xb
0296 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0297 4801 |H | Short_Literal 0x1
0298 e00b | | Load 0x0,0xb
0299 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
029a 4501 |E | Exit_Subprogram 0x1
029b ; --------------------------------------------------------------------------------------
029b ; STRING TABLE
029b ; --------------------------------------------------------------------------------------
029b 0048 | H | .STRTAB 0x0048->0x02bf ; "!Users.Smp.System_Tools.Rev1_Working.Units."
029c 0071 | q | .STRTAB 0x0071->0x02d4 ; "<MINUS_90_DAYS>"
029d 007e | ~ | .STRTAB 0x007e->0x02dc ; "<TODAY>"
029e 0083 | | .STRTAB 0x0083->0x02df ; "PM_Report_"
029f 008b | | .STRTAB 0x008b->0x02e4 ; "<DEFAULT>"
; "<DEFAULT>"
; "<DEFAULT>"
; "<DEFAULT>"
02a0 0092 | | .STRTAB 0x0092->0x02e9 ; "@"
02a1 0091 | | .STRTAB 0x0091->0x02e9 ; "disk"
02a2 0093 | | .STRTAB 0x0093->0x02eb ; "all"
02a3 0094 | | .STRTAB 0x0094->0x02ed ; "<PROFILE>"
02a4 009b | | .STRTAB 0x009b->0x02f1 ; "!Machine.Release.Current.Activity"
02a5 00ba | | .STRTAB 0x00ba->0x0302 ; "?"
; "?"
; "?"
02a6 00b9 | | .STRTAB 0x00b9->0x0302 ; "RAW"
02a7 00ba | | .STRTAB 0x00ba->0x0304 ; "!Machine.Error_Logs.Log_@"
02a8 00d1 | | .STRTAB 0x00d1->0x0310 ; "<QUIET>"
02a9 00d6 | | .STRTAB 0x00d6->0x0314 ; "PM Report is being printed"
02aa 00ee | | .STRTAB 0x00ee->0x0321 ; "PM Report has been generated"
02ab 0108 | | .STRTAB 0x0108->0x032f ; "Date : "
02ac 0111 | | .STRTAB 0x0111->0x0334 ; "Customer : "
02ad 011a | | .STRTAB 0x011a->0x033a ; "Machine : "
02ae 0123 | # | .STRTAB 0x0123->0x033f ; " ["
02af 0123 | # | .STRTAB 0x0123->0x0340 ; "Period : "
02b0 012c | , | .STRTAB 0x012c->0x0346 ; " to "
02b1 012e | . | .STRTAB 0x012e->0x0348 ; "Booted Configuration : "
02b2 0143 | C | .STRTAB 0x0143->0x0353 ; "System Boot Configuration Settings"
02b3 0163 | c | .STRTAB 0x0163->0x0364 ; "=================================="
02b4 0183 | | .STRTAB 0x0183->0x0375 ; " DISK BAD BLOCK INFORMATION"
02b5 01a4 | | .STRTAB 0x01a4->0x0387 ; "Vol Manufact Retarget Total HDA"
02b6 01ca | | .STRTAB 0x01ca->0x039b ; "==========================================="
02b7 01f3 | | .STRTAB 0x01f3->0x03b0 ; "System_Availability"
02b8 0204 | | .STRTAB 0x0204->0x03ba ; ".Units.Data.PM_Checklist"
02b9 021a | | .STRTAB 0x021a->0x03c6 ; "*** Error - Cannot find Checklist in System_Availability Load View."
02ba 025b | [ | .STRTAB 0x025b->0x03e7 ; " "
02bb 025c | \ | .STRTAB 0x025c->0x03e9 ; " <<*** Call Rational, Drive should be Rebuilt"
02bc 0287 | | .STRTAB 0x0287->0x03ff ; " <<=== Potential Problem with Drive, call Rational"
02bd 02b7 | | .STRTAB 0x02b7->0x0418 ; " <<--- Monitor Drive for increases"
02be 02d7 | | .STREND 0x02d7->0x0429
02bf 2155 7365 |!Use| .STRTAB_STRINGS
042a 0000 0000 | | .BLANK 0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug Table
0430 ; --------------------------------------------------------------------------------------
0430 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9c9b,0x0000,0x0001,0x0000
0436 0000 0000 | | .BLANK 0000[0x1ca]