|
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_0698fd
└─⟦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 0450 | P | .CONST 0x0450 ; 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 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 0053 | S | .CONST 0x0053 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000a | | .CONST 0x000a ; Number of locals
001b INIT_0018:
001b 0092 02bb | | Action Push_String_Extended,0x2bb ; "!Users.Smp.System_Tools.Rev1_Working.Units."
001d e001 | | Load 0x0,0x1
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 02c7 | | Declare_Variable Any
0020 60cf |` | Indirect_Literal Discrete,0xf0,{0x0000003b, 0x53800000}
0021 e001 | | Load 0x0,0x1
0022 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0023 e001 | | Load 0x0,0x1
0024 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0025 0092 02bc | | Action Push_String_Extended,0x2bc ; "<MINUS_90_DAYS>"
0027 e5ff | | Load 0x2,-0x1
0028 e002 | | Load 0x0,0x2
0029 180e | | Execute Package,Field_Execute,Field_Number 0xe
002a e003 | | Load 0x0,0x3
002b 180d | | Execute Package,Field_Execute,Field_Number 0xd
002c a403 | | Store_Unchecked 0x2,0x3
002d e001 | | Load 0x0,0x1
002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002f 02c7 | | Declare_Variable Any
0030 e001 | | Load 0x0,0x1
0031 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0032 0092 02bd | | Action Push_String_Extended,0x2bd ; "<TODAY>"
0034 e5fe | | Load 0x2,-0x2
0035 e002 | | Load 0x0,0x2
0036 180e | | Execute Package,Field_Execute,Field_Number 0xe
0037 e003 | | Load 0x0,0x3
0038 180d | | Execute Package,Field_Execute,Field_Number 0xd
0039 a404 | | Store_Unchecked 0x2,0x4
003a 0092 02be | | Action Push_String_Extended,0x2be ; "PM_Report_"
003c 4802 |H | Short_Literal 0x2
003d 4801 |H | Short_Literal 0x1
003e 4804 |H | Short_Literal 0x4
003f e001 | | Load 0x0,0x1
0040 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0041 e003 | | Load 0x0,0x3
0042 180f | | Execute Package,Field_Execute,Field_Number 0xf
0043 01cc | | Execute Vector,Catenate
0044 0092 02bf | | Action Push_String_Extended,0x2bf ; "<DEFAULT>"
0046 e5fb | | Load 0x2,-0x5
0047 e002 | | Load 0x0,0x2
0048 180d | | Execute Package,Field_Execute,Field_Number 0xd
0049 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
004b 029f 010b | | Declare_Subprogram INIT_0108,For_Call
004d 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
004f 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0051 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0053 BODY_0018:
0053 8407 | | Call 0x2,0x7
0054 8408 | | Call 0x2,0x8
0055 840a | | Call 0x2,0xa
0056 8406 | | Call 0x2,0x6
0057 8409 | | Call 0x2,0x9
0058 8406 | | Call 0x2,0x6
0059 e5fa | | Load 0x2,-0x6
005a 4802 |H | Short_Literal 0x2
005b 4801 |H | Short_Literal 0x1
005c 4802 |H | Short_Literal 0x2
005d e404 | | Load 0x2,0x4
005e e003 | | Load 0x0,0x3
005f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0060 4802 |H | Short_Literal 0x2
0061 4801 |H | Short_Literal 0x1
0062 4802 |H | Short_Literal 0x2
0063 e403 | | Load 0x2,0x3
0064 e003 | | Load 0x0,0x3
0065 180f | | Execute Package,Field_Execute,Field_Number 0xf
0066 4808 |H | Short_Literal 0x8
0067 e004 | | Load 0x0,0x4
0068 180e | | Execute Package,Field_Execute,Field_Number 0xe
0069 e5fa | | Load 0x2,-0x6
006a 4802 |H | Short_Literal 0x2
006b 4801 |H | Short_Literal 0x1
006c 4802 |H | Short_Literal 0x2
006d e404 | | Load 0x2,0x4
006e e003 | | Load 0x0,0x3
006f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0070 4802 |H | Short_Literal 0x2
0071 4801 |H | Short_Literal 0x1
0072 4802 |H | Short_Literal 0x2
0073 e403 | | Load 0x2,0x3
0074 e003 | | Load 0x0,0x3
0075 180f | | Execute Package,Field_Execute,Field_Number 0xf
0076 6075 |`u | Indirect_Literal Discrete,0xec,{0x00000000, 0x0000ea60}
0077 8005 | | Call 0x0,0x5
0078 8406 | | Call 0x2,0x6
0079 e5f9 | | Load 0x2,-0x7
007a 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "@"
007c 4802 |H | Short_Literal 0x2
007d 4801 |H | Short_Literal 0x1
007e 4802 |H | Short_Literal 0x2
007f e404 | | Load 0x2,0x4
0080 e003 | | Load 0x0,0x3
0081 180f | | Execute Package,Field_Execute,Field_Number 0xf
0082 4802 |H | Short_Literal 0x2
0083 4801 |H | Short_Literal 0x1
0084 4802 |H | Short_Literal 0x2
0085 e403 | | Load 0x2,0x3
0086 e003 | | Load 0x0,0x3
0087 180f | | Execute Package,Field_Execute,Field_Number 0xf
0088 8006 | | Call 0x0,0x6
0089 8406 | | Call 0x2,0x6
008a 00ea | | Load_Encached Null_String_Cache
008b e007 | | Load 0x0,0x7
008c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008d 4802 |H | Short_Literal 0x2
008e e008 | | Load 0x0,0x8
008f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0090 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "disk"
0092 e007 | | Load 0x0,0x7
0093 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0094 8406 | | Call 0x2,0x6
0095 4801 |H | Short_Literal 0x1
0096 4800 |H | Short_Literal 0x0
0097 480a |H | Short_Literal 0xa
0098 e009 | | Load 0x0,0x9
0099 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009a 8406 | | Call 0x2,0x6
009b e00a | | Load 0x0,0xa
009c 180d | | Execute Package,Field_Execute,Field_Number 0xd
009d 4802 |H | Short_Literal 0x2
009e e008 | | Load 0x0,0x8
009f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00a0 4801 |H | Short_Literal 0x1
00a1 4801 |H | Short_Literal 0x1
00a2 0092 02c2 | | Action Push_String_Extended,0x2c2 ; "all"
00a4 e00b | | Load 0x0,0xb
00a5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00a6 4802 |H | Short_Literal 0x2
00a7 e008 | | Load 0x0,0x8
00a8 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00a9 800c | | Call 0x0,0xc
00aa 8406 | | Call 0x2,0x6
00ab 4801 |H | Short_Literal 0x1
00ac 4801 |H | Short_Literal 0x1
00ad e00d | | Load 0x0,0xd
00ae 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00af 8406 | | Call 0x2,0x6
00b0 0092 02c3 | | Action Push_String_Extended,0x2c3 ; "<PROFILE>"
00b2 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "!Machine.Release.Current.Activity"
00b4 4802 |H | Short_Literal 0x2
00b5 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "?"
00b7 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "?"
00b9 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "?"
00bb e00e | | Load 0x0,0xe
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 e003 | | Load 0x0,0x3
00c5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c6 4802 |H | Short_Literal 0x2
00c7 4801 |H | Short_Literal 0x1
00c8 4802 |H | Short_Literal 0x2
00c9 e403 | | Load 0x2,0x3
00ca e003 | | Load 0x0,0x3
00cb 180f | | Execute Package,Field_Execute,Field_Number 0xf
00cc 800f | | Call 0x0,0xf
00cd e008 | | Load 0x0,0x8
00ce 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
00cf e5fc | | Load 0x2,-0x4
00d0 e5fb | | Load 0x2,-0x5
00d1 01db | | Execute Vector,Length
00d2 0e00 | | Execute_Immediate Not_Equal,0x0
00d3 0279 | y | Execute Discrete,And
00d4 680b |h | Jump_Zero 0xe0
00d5 0092 02bf | | Action Push_String_Extended,0x2bf ; "<DEFAULT>"
00d7 0092 02bf | | Action Push_String_Extended,0x2bf ; "<DEFAULT>"
00d9 0092 02bf | | Action Push_String_Extended,0x2bf ; "<DEFAULT>"
00db 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "RAW"
00dd e405 | | Load 0x2,0x5
00de e00b | | Load 0x0,0xb
00df 180d | | Execute Package,Field_Execute,Field_Number 0xd
00e0 e5fd | | Load 0x2,-0x3
00e1 6806 |h | Jump_Zero 0xe8
00e2 e404 | | Load 0x2,0x4
00e3 e403 | | Load 0x2,0x3
00e4 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "!Machine.Error_Logs.Log_@"
00e6 e010 | | Load 0x0,0x10
00e7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e8 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00e9 0000 0000 | | .XXX[0x3]
00eb 0000 | |
00ec 0000 0000 | | .LITERAL {0x00000000, 0x0000ea60}
00f0 0000 003b | ;| .LITERAL {0x0000003b, 0x53800000}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4801 |H | Short_Literal 0x1
00fc e008 | | Load 0x0,0x8
00fd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00fe e008 | | Load 0x0,0x8
00ff 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0100 4801 |H | Short_Literal 0x1
0101 e008 | | Load 0x0,0x8
0102 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0103 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0110 | | .CONST 0x0110 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e011 | | Load 0x0,0x11
010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010d 02c7 | | Declare_Variable Any
010e 00d8 | | Load_Top At_Offset_0
010f 1c00 | | Execute_Immediate Run_Utility,0x0
0110 BODY_0108:
0110 00d8 | | Load_Top At_Offset_0
0111 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<QUIET>"
0113 e012 | | Load 0x0,0x12
0114 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0115 c602 | | Store 0x3,0x2
0116 4800 |H | Short_Literal 0x0
0117 e013 | | Load 0x0,0x13
0118 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0119 e5fc | | Load 0x2,-0x4
011a 6805 |h | Jump_Zero 0x120
011b 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "PM Report is being printed"
011d e013 | | Load 0x0,0x13
011e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011f 7804 |x | Jump 0x124
0120 0092 02ca | | Action Push_String_Extended,0x2ca ; "PM Report has been generated"
0122 e013 | | Load 0x0,0x13
0123 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0124 e405 | | Load 0x2,0x5
0125 01db | | Execute Vector,Length
0126 6803 |h | Jump_Zero 0x12a
0127 e405 | | Load 0x2,0x5
0128 e008 | | Load 0x0,0x8
0129 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
012a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
012b 0000 0000 | | .BLANK 0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 4801 |H | Short_Literal 0x1
0134 e008 | | Load 0x0,0x8
0135 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0136 0092 02cb | | Action Push_String_Extended,0x2cb ; "Date : "
0138 4800 |H | Short_Literal 0x0
0139 4800 |H | Short_Literal 0x0
013a 4800 |H | Short_Literal 0x0
013b e014 | | Load 0x0,0x14
013c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
013d e014 | | Load 0x0,0x14
013e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
013f 01cc | | Execute Vector,Catenate
0140 e008 | | Load 0x0,0x8
0141 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0142 0092 02cc | | Action Push_String_Extended,0x2cc ; "Customer : "
0144 e015 | | Load 0x0,0x15
0145 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0146 01cc | | Execute Vector,Catenate
0147 e008 | | Load 0x0,0x8
0148 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0149 485d |H] | Short_Literal 0x5d
014a 0092 02cd | | Action Push_String_Extended,0x2cd ; "Machine : "
014c e015 | | Load 0x0,0x15
014d 180f | | Execute Package,Field_Execute,Field_Number 0xf
014e 01cc | | Execute Vector,Catenate
014f 0092 02ce | | Action Push_String_Extended,0x2ce ; " ["
0151 01cc | | Execute Vector,Catenate
0152 e015 | | Load 0x0,0x15
0153 180d | | Execute Package,Field_Execute,Field_Number 0xd
0154 01cc | | Execute Vector,Catenate
0155 01cb | | Execute Vector,Append
0156 e008 | | Load 0x0,0x8
0157 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0158 0092 02cf | | Action Push_String_Extended,0x2cf ; "Period : "
015a 4802 |H | Short_Literal 0x2
015b 4801 |H | Short_Literal 0x1
015c 4802 |H | Short_Literal 0x2
015d e403 | | Load 0x2,0x3
015e e003 | | Load 0x0,0x3
015f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0160 01cc | | Execute Vector,Catenate
0161 0092 02d0 | | Action Push_String_Extended,0x2d0 ; " to "
0163 01cc | | Execute Vector,Catenate
0164 4802 |H | Short_Literal 0x2
0165 4801 |H | Short_Literal 0x1
0166 4802 |H | Short_Literal 0x2
0167 e404 | | Load 0x2,0x4
0168 e003 | | Load 0x0,0x3
0169 180f | | Execute Package,Field_Execute,Field_Number 0xf
016a 01cc | | Execute Vector,Catenate
016b e008 | | Load 0x0,0x8
016c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
016d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0179 | y | .CONST 0x0179 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0004 | | .CONST 0x0004 ; Number of locals
0173 INIT_0170:
0173 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0175 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0177 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0179 BODY_0170:
0179 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "Booted Configuration : "
017b e016 | | Load 0x0,0x16
017c 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
017d 01cc | | Execute Vector,Catenate
017e e008 | | Load 0x0,0x8
017f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0180 00cf | | Action Mark_Auxiliary
0181 4805 |H | Short_Literal 0x5
0182 4800 |H | Short_Literal 0x0
0183 0007 | | Action Break_Optional
0184 00d8 | | Load_Top At_Offset_0
0185 e016 | | Load 0x0,0x16
0186 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0187 e008 | | Load 0x0,0x8
0188 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0189 00c8 | | Action Pop_Auxiliary_Range
018a 3ff9 |? | Loop_Increasing 0x184
018b 00ce | | Action Pop_Auxiliary
018c 8406 | | Call 0x2,0x6
018d 00cf | | Action Mark_Auxiliary
018e 4867 |Hg | Short_Literal 0x67
018f 4864 |Hd | Short_Literal 0x64
0190 0007 | | Action Break_Optional
0191 00d8 | | Load_Top At_Offset_0
0192 e016 | | Load 0x0,0x16
0193 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0194 e008 | | Load 0x0,0x8
0195 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0196 00c8 | | Action Pop_Auxiliary_Range
0197 3ff9 |? | Loop_Increasing 0x191
0198 00ce | | Action Pop_Auxiliary
0199 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "System Boot Configuration Settings"
019b e008 | | Load 0x0,0x8
019c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
019d 0092 02d3 | | Action Push_String_Extended,0x2d3 ; "=================================="
019f e008 | | Load 0x0,0x8
01a0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01a1 e017 | | Load 0x0,0x17
01a2 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a3 4802 |H | Short_Literal 0x2
01a4 e008 | | Load 0x0,0x8
01a5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01a6 0092 02d4 | | Action Push_String_Extended,0x2d4 ; " DISK BAD BLOCK INFORMATION"
01a8 e008 | | Load 0x0,0x8
01a9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01aa 0092 02d5 | | Action Push_String_Extended,0x2d5 ; "Vol Manufact Retarget Total HDA"
01ac e008 | | Load 0x0,0x8
01ad 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ae 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "==========================================="
01b0 e008 | | Load 0x0,0x8
01b1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b2 00cf | | Action Mark_Auxiliary
01b3 481f |H | Short_Literal 0x1f
01b4 4801 |H | Short_Literal 0x1
01b5 0007 | | Action Break_Optional
01b6 8604 | | Call 0x3,0x4
01b7 00c8 | | Action Pop_Auxiliary_Range
01b8 3ffd |? | Loop_Increasing 0x1b6
01b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 01ce | | .CONST 0x01ce ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4801 |H | Short_Literal 0x1
01c4 0092 02d7 | | Action Push_String_Extended,0x2d7 ; "System_Availability"
01c6 e018 | | Load 0x0,0x18
01c7 180d | | Execute Package,Field_Execute,Field_Number 0xd
01c8 0092 02d8 | | Action Push_String_Extended,0x2d8 ; ".Units.Data.PM_Checklist"
01ca 01cc | | Execute Vector,Catenate
01cb e010 | | Load 0x0,0x10
01cc 180d | | Execute Package,Field_Execute,Field_Number 0xd
01cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ce TRAP_01c0:
01ce e018 | | Load 0x0,0x18
01cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d0 010f | | Execute Exception,Equal
01d1 6805 |h | Jump_Zero 0x1d7
01d2 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "*** Error - Cannot find Checklist in System_Availability Load View."
01d4 e008 | | Load 0x0,0x8
01d5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d7 0100 | | Execute Exception,Raise
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e9ff | | Load 0x4,-0x1
01dc 01dc | | Execute Vector,Last
01dd e9ff | | Load 0x4,-0x1
01de 01dd | | Execute Vector,First
01df 0272 | r | Execute Discrete,Minus
01e0 0a01 | | Execute_Immediate Plus,0x1
01e1 00d8 | | Load_Top At_Offset_0
01e2 00e3 | | Load_Encached Natural_Cache
01e3 0260 | ` | Execute Discrete,In_Type
01e4 7001 |p | Jump_Nonzero 0x1e6
01e5 0801 | | Execute_Immediate Raise,0x1
01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01fa | | .CONST 0x01fa ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0004 | | .CONST 0x0004 ; Number of locals
01eb INIT_01e8:
01eb e9ff | | Load 0x4,-0x1
01ec 01dd | | Execute Vector,First
01ed e9ff | | Load 0x4,-0x1
01ee 01dc | | Execute Vector,Last
01ef 00e9 | | Load_Encached String_Cache
01f0 035b | [ | Declare_Type Array,Constrained
01f1 0337 | 7 | Declare_Variable Array
01f2 e9ff | | Load 0x4,-0x1
01f3 e802 | | Load 0x4,0x2
01f4 01d4 | | Execute Vector,Structure_Write
01f5 00e8 | | Load_Encached Character_Cache
01f6 e9ff | | Load 0x4,-0x1
01f7 01dd | | Execute Vector,First
01f8 00e3 | | Load_Encached Natural_Cache
01f9 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01fa BODY_01e8:
01fa 00cf | | Action Mark_Auxiliary
01fb 7814 |x | Jump 0x210
01fc e804 | | Load 0x4,0x4
01fd e802 | | Load 0x4,0x2
01fe 01d7 | | Execute Vector,Field_Read
01ff a803 | | Store_Unchecked 0x4,0x3
0200 e804 | | Load 0x4,0x4
0201 0a01 | | Execute_Immediate Plus,0x1
0202 e802 | | Load 0x4,0x2
0203 01d7 | | Execute Vector,Field_Read
0204 e804 | | Load 0x4,0x4
0205 e802 | | Load 0x4,0x2
0206 01d6 | | Execute Vector,Field_Write
0207 e803 | | Load 0x4,0x3
0208 e804 | | Load 0x4,0x4
0209 0a01 | | Execute_Immediate Plus,0x1
020a e802 | | Load 0x4,0x2
020b 01d6 | | Execute Vector,Field_Write
020c e804 | | Load 0x4,0x4
020d 0a02 | | Execute_Immediate Plus,0x2
020e c804 | | Store 0x4,0x4
020f 00c9 | | Action Pop_Auxiliary_Loop
0210 e804 | | Load 0x4,0x4
0211 e9ff | | Load 0x4,-0x1
0212 01dc | | Execute Vector,Last
0213 027c | | | Execute Discrete,Less
0214 77e7 |w | Jump_Nonzero 0x1fc
0215 00ce | | Action Pop_Auxiliary
0216 4800 |H | Short_Literal 0x0
0217 e802 | | Load 0x4,0x2
0218 4800 |H | Short_Literal 0x0
0219 e019 | | Load 0x0,0x19
021a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
021b a804 | | Store_Unchecked 0x4,0x4
021c 00d8 | | Load_Top At_Offset_0
021d 7004 |p | Jump_Nonzero 0x222
021e e802 | | Load 0x4,0x2
021f 01dc | | Execute Vector,Last
0220 c804 | | Store 0x4,0x4
0221 7803 |x | Jump 0x225
0222 00d8 | | Load_Top At_Offset_0
0223 0aff | | Execute_Immediate Plus,-0x1
0224 c804 | | Store 0x4,0x4
0225 e802 | | Load 0x4,0x2
0226 01dd | | Execute Vector,First
0227 e804 | | Load 0x4,0x4
0228 e802 | | Load 0x4,0x2
0229 01cf | | Execute Vector,Slice_Read
022a 00e9 | | Load_Encached String_Cache
022b 01c6 | | Execute Vector,Convert_To_Formal
022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023a | : | .CONST 0x023a ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0004 | | .CONST 0x0004 ; Number of locals
0233 INIT_0230:
0233 00e1 | | Load_Encached Boolean_Cache
0234 e01a | | Load 0x0,0x1a
0235 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0236 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0237 0322 | " | Declare_Variable Record
0238 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
023a BODY_0230:
023a 8804 | | Call 0x4,0x4
023b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023c 0000 0000 | | .BLANK 0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0260 | ` | .CONST 0x0260 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0003 | | .CONST 0x0003 ; Number of locals
0243 INIT_0240:
0243 4801 |H | Short_Literal 0x1
0244 4802 |H | Short_Literal 0x2
0245 00e3 | | Load_Encached Natural_Cache
0246 02a0 | | Declare_Subprogram Null_Subprogram
0247 4801 |H | Short_Literal 0x1
0248 035d | ] | Declare_Type Array,Defined
0249 00d8 | | Load_Top At_Offset_0
024a 0337 | 7 | Declare_Variable Array
024b 00d8 | | Load_Top At_Offset_0
024c 0335 | 5 | Declare_Variable Array,Duplicate
024d 00cd | | Action Spare6_Action
024e 4801 |H | Short_Literal 0x1
024f e607 | | Load 0x3,0x7
0250 e016 | | Load 0x0,0x16
0251 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0252 8602 | | Call 0x3,0x2
0253 4801 |H | Short_Literal 0x1
0254 ea04 | | Load 0x5,0x4
0255 01d6 | | Execute Vector,Field_Write
0256 4802 |H | Short_Literal 0x2
0257 e607 | | Load 0x3,0x7
0258 e016 | | Load 0x0,0x16
0259 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
025a 8602 | | Call 0x3,0x2
025b 4802 |H | Short_Literal 0x2
025c ea04 | | Load 0x5,0x4
025d 01d6 | | Execute Vector,Field_Write
025e ea03 | | Load 0x5,0x3
025f 01d4 | | Execute Vector,Structure_Write
0260 BODY_0240:
0260 e803 | | Load 0x4,0x3
0261 00e1 | | Load_Encached Boolean_Cache
0262 e607 | | Load 0x3,0x7
0263 e01a | | Load 0x0,0x1a
0264 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0265 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0266 c802 | | Store 0x4,0x2
0267 00d1 | | Pop_Control Pop_Count_1
0268 e802 | | Load 0x4,0x2
0269 6850 |hP | Jump_Zero 0x2ba
026a e607 | | Load 0x3,0x7
026b 00e0 | | Load_Encached Standard_Cache
026c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026d 4820 |H | Short_Literal 0x20
026e 480a |H | Short_Literal 0xa
026f 480a |H | Short_Literal 0xa
0270 4801 |H | Short_Literal 0x1
0271 ea03 | | Load 0x5,0x3
0272 01d7 | | Execute Vector,Field_Read
0273 e019 | | Load 0x0,0x19
0274 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0275 01cc | | Execute Vector,Catenate
0276 4820 |H | Short_Literal 0x20
0277 480a |H | Short_Literal 0xa
0278 480a |H | Short_Literal 0xa
0279 4802 |H | Short_Literal 0x2
027a ea03 | | Load 0x5,0x3
027b 01d7 | | Execute Vector,Field_Read
027c e019 | | Load 0x0,0x19
027d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
027e 01cc | | Execute Vector,Catenate
027f 4820 |H | Short_Literal 0x20
0280 480a |H | Short_Literal 0xa
0281 480a |H | Short_Literal 0xa
0282 4801 |H | Short_Literal 0x1
0283 ea03 | | Load 0x5,0x3
0284 01d7 | | Execute Vector,Field_Read
0285 4802 |H | Short_Literal 0x2
0286 ea03 | | Load 0x5,0x3
0287 01d7 | | Execute Vector,Field_Read
0288 0273 | s | Execute Discrete,Plus
0289 00d8 | | Load_Top At_Offset_0
028a 00e2 | | Load_Encached Integer_Cache
028b 0260 | ` | Execute Discrete,In_Type
028c 7001 |p | Jump_Nonzero 0x28e
028d 0801 | | Execute_Immediate Raise,0x1
028e e019 | | Load 0x0,0x19
028f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0290 01cc | | Execute Vector,Catenate
0291 0092 02da | | Action Push_String_Extended,0x2da ; " "
0293 01cc | | Execute Vector,Catenate
0294 e803 | | Load 0x4,0x3
0295 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0296 8603 | | Call 0x3,0x3
0297 01cc | | Execute Vector,Catenate
0298 e008 | | Load 0x0,0x8
0299 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
029a 4802 |H | Short_Literal 0x2
029b ea03 | | Load 0x5,0x3
029c 01d7 | | Execute Vector,Field_Read
029d 0c15 | | Execute_Immediate Greater_Equal,0x15
029e 6805 |h | Jump_Zero 0x2a4
029f 0092 02db | | Action Push_String_Extended,0x2db ; " <<*** Call Rational, Drive should be Rebuilt"
02a1 e008 | | Load 0x0,0x8
02a2 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
02a3 7813 |x | Jump 0x2b7
02a4 4802 |H | Short_Literal 0x2
02a5 ea03 | | Load 0x5,0x3
02a6 01d7 | | Execute Vector,Field_Read
02a7 0c0b | | Execute_Immediate Greater_Equal,0xb
02a8 6805 |h | Jump_Zero 0x2ae
02a9 0092 02dc | | Action Push_String_Extended,0x2dc ; " <<=== Potential Problem with Drive, call Rational"
02ab e008 | | Load 0x0,0x8
02ac 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
02ad 7809 |x | Jump 0x2b7
02ae 4802 |H | Short_Literal 0x2
02af ea03 | | Load 0x5,0x3
02b0 01d7 | | Execute Vector,Field_Read
02b1 0c06 | | Execute_Immediate Greater_Equal,0x6
02b2 6804 |h | Jump_Zero 0x2b7
02b3 0092 02dd | | Action Push_String_Extended,0x2dd ; " <<--- Monitor Drive for increases"
02b5 e008 | | Load 0x0,0x8
02b6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
02b7 4801 |H | Short_Literal 0x1
02b8 e008 | | Load 0x0,0x8
02b9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02bb ; --------------------------------------------------------------------------------------
02bb ; STRING TABLE
02bb ; --------------------------------------------------------------------------------------
02bb 0048 | H | .STRTAB 0x0048->0x02df ; "!Users.Smp.System_Tools.Rev1_Working.Units."
02bc 0071 | q | .STRTAB 0x0071->0x02f4 ; "<MINUS_90_DAYS>"
02bd 007e | ~ | .STRTAB 0x007e->0x02fc ; "<TODAY>"
02be 0083 | | .STRTAB 0x0083->0x02ff ; "PM_Report_"
02bf 008b | | .STRTAB 0x008b->0x0304 ; "<DEFAULT>"
02c0 0092 | | .STRTAB 0x0092->0x0309 ; "@"
02c1 0091 | | .STRTAB 0x0091->0x0309 ; "disk"
02c2 0093 | | .STRTAB 0x0093->0x030b ; "all"
02c3 0094 | | .STRTAB 0x0094->0x030d ; "<PROFILE>"
02c4 009b | | .STRTAB 0x009b->0x0311 ; "!Machine.Release.Current.Activity"
02c5 00ba | | .STRTAB 0x00ba->0x0322 ; "?"
02c6 00b9 | | .STRTAB 0x00b9->0x0322 ; "RAW"
02c7 00ba | | .STRTAB 0x00ba->0x0324 ; "!Machine.Error_Logs.Log_@"
02c8 00d1 | | .STRTAB 0x00d1->0x0330 ; "<QUIET>"
02c9 00d6 | | .STRTAB 0x00d6->0x0334 ; "PM Report is being printed"
02ca 00ee | | .STRTAB 0x00ee->0x0341 ; "PM Report has been generated"
02cb 0108 | | .STRTAB 0x0108->0x034f ; "Date : "
02cc 0111 | | .STRTAB 0x0111->0x0354 ; "Customer : "
02cd 011a | | .STRTAB 0x011a->0x035a ; "Machine : "
02ce 0123 | # | .STRTAB 0x0123->0x035f ; " ["
02cf 0123 | # | .STRTAB 0x0123->0x0360 ; "Period : "
02d0 012c | , | .STRTAB 0x012c->0x0366 ; " to "
02d1 012e | . | .STRTAB 0x012e->0x0368 ; "Booted Configuration : "
02d2 0143 | C | .STRTAB 0x0143->0x0373 ; "System Boot Configuration Settings"
02d3 0163 | c | .STRTAB 0x0163->0x0384 ; "=================================="
02d4 0183 | | .STRTAB 0x0183->0x0395 ; " DISK BAD BLOCK INFORMATION"
02d5 01a4 | | .STRTAB 0x01a4->0x03a7 ; "Vol Manufact Retarget Total HDA"
02d6 01ca | | .STRTAB 0x01ca->0x03bb ; "==========================================="
02d7 01f3 | | .STRTAB 0x01f3->0x03d0 ; "System_Availability"
02d8 0204 | | .STRTAB 0x0204->0x03da ; ".Units.Data.PM_Checklist"
02d9 021a | | .STRTAB 0x021a->0x03e6 ; "*** Error - Cannot find Checklist in System_Availability Load View."
02da 025b | [ | .STRTAB 0x025b->0x0407 ; " "
02db 025c | \ | .STRTAB 0x025c->0x0409 ; " <<*** Call Rational, Drive should be Rebuilt"
02dc 0287 | | .STRTAB 0x0287->0x041f ; " <<=== Potential Problem with Drive, call Rational"
02dd 02b7 | | .STRTAB 0x02b7->0x0438 ; " <<--- Monitor Drive for increases"
02de 02d7 | | .STREND 0x02d7->0x0449
02df 2155 7365 |!Use| .STRTAB_STRINGS
044a 0000 0000 | | .BLANK 0000[0x6]
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 000d | | .DEBUG4 0x0004,0x000d,0x4035,0x0000,0x0001,0x0000
0456 0000 0000 | | .BLANK 0000[0x1aa]