RSTLABEL PROC  POS,1,TAPEDRV=90,DISCDRV=50,CYL=202,VOL9030,ADDR=CYL,   X
//1  TESTPR=NO,DSKTYPE=8416,LBL=SRC,RERUN=NO,VOLNO=111111,FIRSTFLE=1,  X
//2  LACENO=3,PUNIT=999,INIT=XXX,DSP=XXX,DXT=XXX,RES=XXX,LIA=1
RESTORE  NAME
// IF ('&INIT' EQ 'ONLY')TAGII
// OPR 'PHASE I TAPE VERIFICATION'
// OPR  'NOTE-TAPE SHOULD BE AT LOAD POINT'
//VOL30 JSET &VOL9030
// IF ('&FIRSTFLE' LT '1')TAG60
// IF ('&FIRSTFLE' GT '9')TAG60
//  GO TAG61
//TAG60  OPR  'FIRSTFLE PARAMETER INVALID USING 1'
//FIRSTFLE JSET 1
//TAG61  NOP
// IF ('&CYL' EQ '102')TAG63
// IF ('&CYL' EQ '202')TAG63
//  OPR  'CYL KEYWORD PARAMETER INVALID USING 202'
//CYL JSET 202
//TAG63  NOP
// DVC 20
// LFD PRNTR
// IF ('&PUNIT' EQ '999')TAGAA
// DVC &TAPEDRV.,&PUNIT
//  GO TAGBB
//TAGAA NOP
// DVC &TAPEDRV
//TAGBB NOP
// VOL VDUM(NOV)
// LFD BACKTAPE
// OPTION SUB
// EXEC EA$DSP
/$
&FIRSTFLE
/*
//TAGII NOP
// IF ('&LIA' EQ '1')TAG81
//LIA JSET 2
//TAG81 NOP
// IF ('&TESTPR' EQ 'NO')TAG80
// OPTION NSUB,NSCAN
// GO TAG70
//TAG80 NOP
// OPR 'PHASE II DISC INITIALIZATION'
// IF ('&RERUN' EQ 'NO')TAG10
// DVC &DISCDRV
// VOL &VOL9030
// LBL &LBL
// LFD DSKDRV02
// SCR DSKDRV02
//TAG10 NOP
// IF ('&CYL' NE '102')TAG25
// IF ('&DSKTYPE' NE '8430')TAG14
//NOCYL JSET 17
//  GO  TAG45
//TAG14 NOP
// IF ('&DSKTYPE' NE '8411')TAG15
//NOCYL JSET 99
//  GO  TAG45
//TAG15 IF ('&DSKTYPE' NE '8414')TAG20
//NOCYL JSET 26
//  GO  TAG45
//TAG20 NOP
//NOCYL JSET 50
//  GO  TAG45
//TAG25 IF ('&DSKTYPE' NE '8411')TAG30
//NOCYL JSET 199
//  GO  TAG45
//TAG30 IF ('&DSKTYPE' NE '8414')TAG35
//NOCYL JSET 51
//  GO  TAG45
//TAG35 NOP
// IF ('&DSKTYPE' NE '8430')TAG36
//NOCYL JSET 34
//  GO  TAG45
//TAG36 NOP
//NOCYL JSET 97
//TAG45 NOP
//COMPRES JSET ' '
// IF ('&DSKTYPE' NE '8411')TAG50
//COMPRES JSET C
//TAG50 NOP
// DVC &DISCDRV
// VOL &VOL9030
// LBL &LBL
// IF ('&ADDR' NE 'CYL')TAGH1
// IF ('&CYL' NE '102')TAGH2
// EXT ST,C,0,BLK,(1536,2060)
// GO TAGH3
//TAGH2 NOP
// EXT ST,C,0,BLK,(1536,4060)
// GO TAGH3
//TAGH1 NOP
// EXT ST,C,,&ADDR,&NOCYL
//TAGH3 NOP
// LFD DSKDRV01
// OPTION SUB
// EXEC EA$INT
/$
DSKDRV01        &CYL &COMPRES &LACENO &LIA &VOLNO
/*
// IF ('&INIT' EQ 'ONLY')TAGXX
// OPR 'PHASE III EMULATION OF BACKUP RESTORE PROGRAM'
// DVC 20
// LFD PRNTR731
// IF ('&PUNIT' EQ '999')TAGCC
// DVC &TAPEDRV.,&PUNIT
//  GO TAGDD
//TAGCC NOP
// DVC &TAPEDRV
//TAGDD NOP
// VOL TAPE0(NOV)
// LFD E2$TAPE0
// DVC &DISCDRV
// VOL &VOL9030
// LFD E2$DC060
// OPTION SUB,SCAN
// OPTION DUMP
// EXEC E2RSTR,,1
/$
A        84                  0149
A        80                  014A
06000&VOL30  1          &LBL.                                                  2
090  00                                                                        4
// OPTION NSUB,NSCAN
                                            0B20                               6

ص簵 0K  K    K K uK     m   K
}   &$ 9K  0   

}+ &$    n+#{ nN&{ nX&#00< 0 K { ;r J 
TXT          KN+جHn {n جr 	0{ؕ  rn      002
TXT   O       ֢ؕؕ=0} k0kaN	 7=ؕwwka    003
TXT         0}N  K֥ kaN =N  =k ak 簕    004
TXT          N أn  ؕ=y0n k a=kaN  =k     005
TXT  =       ذ   ج  {n  0N  ka=Kk K    006
TXT         kaNإ N =N=k aNأ2N    007
TXT         =n =k K 2 #k n  0 =0=    008
TXT         K
KkF
0 k  0  S簕{K   k k     009
TXT  ;        S K sK K    K    K    k     010
TXT  o       K 	 k  簕{K0 N k aإN =    011
TXT         N! =n ;ؕ=n ؕ=E2 4ؕ4 r  y =    012
TXT           F =;E2 4;n =K 4      00n  \ k     013
TXT          \ 0} N#} ؕâ} O} {r  0;\  }\ 0        014
TXT                                                                    015
TXT  :                                                                  016
TXT  =       r 0= 
n+#nE&إ h0w 
0}      B',//      017
TXT          	      R41Ju    R52K  R62bK   R72c L    018
TXT           
                                                        019
RLD                    H    M    \                        020
TXT  4          ASSGN SYSRDR,X'8000',UA SYSRES,D4D3    
n  }       021
TXT           &ةr 0&      
 ة-  ة-a ;  0    022
TXT          F                                                          023
RLD                 -                                                    024
END                                                                  BIP4351
// ASSGN SYSRDR,X'100',R4                                               BIP4366
// ASSGN SYSRES,UA
TXT   m                                                                025
TXT   s             0        >b 0 }0 0                 026
TXT                                                                     027
RLD                 o                                  028
TXT   O                                                                  029
TXT          l
/ 
/                                                 030
RLD                      \     S     U                            031
TXT         HH                                                          032
TXT                      {
/                                           033
RLD                                                                     034
TXT                                                                  035
TXT                                                             036
RLD                                                               037
TXT         a k a                                         038
RLD                    :        f                            039
TXT                                                                   040
TXT                                                                   041
TXT                                                                   042
TXT                                                                   043
TXT  h                                        a    0  \  } &    044
TXT  {        { +  < @o	 }\ \ \ k m }k } } jج r     045
TXT  8       0\ K} u0\ j\ j    n 0 0 }  }    046
TXT          0K } \ }0 }  0 K  } K   0 (\   0  m0 H    047
TXT           j0P  \n \   Ksk 0                      048
RLD                                                                    049
TXT         j }o00OK0 } K } k } j  Fo{}K}  m} o     050
TXT  H       }m"0n0 06  0yKy 0k0P0j0}    051
TXT          0 n 0   n0 00sn uKsuk00n       052
TXT           -o0{n * 0sk 0 0yk P0 \ } &    053
TXT         { + <a  n j n  jm Ӣ\ 
00 j     054
TXT  y       0n  00K   50j0}0 N }      055
TXT  \       K   0 (\ -k  k0       0n0 0 m7 mj    056
TXT           nڬ    0 0K  } 0 0;r 0            057
RLD                   0                                            058
TXT             W                                                       059
RLD                                                                 060
TXT                                                                     061
TXT         0         b }  } f }                                   062
RLD                 >                              :    063
TXT   =                        / A O  }               064
RLD                 @     =     d          u     w     y    065
TXT           	                                                      066
RLD                                                            067
TXT                                                                  068
RLD                     B                                            069
TXT   H              \ D 0 Fo  mk  k0 _k 	kr K	 4  2 2     070
TXT  	           k  k  O B(\4K	  K  \tM \ (\ N      071
TXT  	        	9  	  Ӣ\>N  Uo	 \ {j m    072
TXT  	        hj  &	o
 hj  j  	y 	K 0k0	j    s0     073
TXT  	y       n  A !  %n  A   B	O(\ %(\ 0 80 ok m  j     074
TXT  	\          o K 0N0     K   B  o ({K0 } {    075
TXT           .{}  { !K }  K } ZK } XK }  $j} o r   0    076
TXT   &       ({0 (\ K  g(\ :0<n  dn0  sk 0 (\     077
TXT   h       
%(\ n K l0(\  B . 0K n        078
TXT   {       KK0  j  \ 2n 0 K0 u{0{> {00 on0      079
TXT   8        r                                                     080
RLD               	                                               081
TXT         K k0 B(\ wn   d k0 K k 0    r     082
TXT           i0	  (\   h	k  _0\\ K	 \  k0(\4(\       083
TXT           0	 k {  Bq. (\4j  Xdk     084
TXT         0  0  m 0 - B(\4K	  4j0	\Sk 0 n   SK0     085
TXT  S         \ D0 F 0 9\ 	 0\ \     086
TXT           (\ >K  \ k  r   n 0\\ }ج  \  -K   k $    087
TXT          1 !  r   0j}  j  k $0 k $0 j  \j    088
TXT           \j  n  0\ K  mn 0\                    089
RLD                                                            090
TXT             ݪ   B8r  0 B                              091
TXT   }       ( r   h  K ikkqk                            092
TXT   0       ( a  8   K o   <  
}      n k     093
TXT            \  nN   nF   nE   nX  0 0     *  \    094
TXT   -        } H 0 K \  80 (\ m p\ 0  0  0   2  0     095
TXT   q       K\  \n,0  fo0 p8n  h \  Bm                   096
RLD                                                                     097
TXT   B       
0}                                                      098
TXT   B       0 4                                                        099
TXT           |
 0r }   
 0  00 4 
r a  8   \ kK    100
TXT           o  0r J8r }8     	     4J  	
    B         101
RLD                                                      102
TXT            T 3   
                                                  103
RLD                                                           104
TXT                                                                     105
XFR   0                                                                   106
TXT  m       \ D WK 2                                               107
TXT  s       K	 W ({
   o  m{ j  j j  6j Kj      108
TXT          j j K                                        109
TXT         r 	0                                                    110
TXT  6       j  K(\   0o }K	  W0
j{                 111
TXT        k:n 2  j}0                                    112
TXT          n{ +j  k:j  m Y{{ .{ Y{
-j     113
TXT         0({
  n 3  3 ({
 an* 3 d({
   3  q0    114
TXT                                                                  115
TXT        j X({
 0                                          116
TXT         ({
                                                       117
TXT  D      ({
  n 3                                              118
TXT  K      (\    ӳ 2                                             119
TXT  S       (\                                                          120
TXT  Y        S s-

j  X
k 
Sk0
\ D0             121
TXT  
       0Sj sm 0 K
{ (\  
0
j{j {r      122
TXT  
&      0                                                    123
RLD               
     
    
*                                    124
TXT  
       0 0                                                        125
REP  00017C    0780
REP  000182    0781
XFR  
                                                                   126
TXT  Q      \{M !
                                             127
RLD                Q                \    S    U    128
TXT  Y          4
%                                              129
RLD                W    Y                0    2    130
TXT  6        JOB  LOG  NOLOGPAUSEASSGNDATE EXEC CONFGUPSI VOL  FILE    131
TXT         SOPTN DELETDSPLYUDATE          TPLABDLAB XTENT     132
TXT         R5R6bR7c P3aP2     &-̰y                    134
TXT         0123456789ABCDEFSYSR S R RIPTOPTLST LOG L1 L3a R4    133
TXT  O             
           $  f g     d                    135
RLD                4    6                              137
TXT            Q8*                                              136
TXT         @mC                                              138
TXT           (                             b >m                  140
RLD                                                      139
RLD                                       <     +     &    141
TXT                                                                   142
RLD                                                                 143
TXT                        // X'UATES P                              144
TXT   o            {6k 'm 
X(0 m 5k #N c 
    (0 s    145
TXT          
9
k #n @n,     {6\  0 }\ N 0 
0    146
TXT  
        
f\ 0 6}6
k& #n @k  #\ k #j
k  #j
    147
TXT  
         (0 sj0

k  r %n   m 
mլ
0
o0

9
n     148
TXT  
       @n, (0 S 	 2  (0 K  * k;j &
k;2     149
TXT  
       (0 K ) k   0  \F0F\M K  0 .}  
D}     150
TXT  
W         (0 K m   (0  K  mK K  K *o
2    151
TXT           m2  2 0 
9
n  @n .@0F\  m ?}>n1\     152
TXT         * .\F  \   }>o  0 
9
n @n  @\y\ d    153
TXT         n \ N\ K  \0 x1216 24{32                     154
RLD               
d    
h    y                                    155
TXT         m"
0 jج
 oج
(0 s0 (0 r  0 k #j
  
9
    156
TXT  0       k  #n K	o
0 m٬
k #j
(0  \k*\ 0      157
TXT           K	0   k  K   <k 3k  (0 0 F   0  
9
N     158
TXT   -       @k #j  o 0 k k (0
H } j} }} n} @k #    159
TXT   q       
n @} .}  } N  Bk k00n k0 n     160
TXT   }        UK K 0 (0 S  2 (0 }D } (\ y     161
TXT          j     } .}F  0 REW             2k	     162
TXT           
9 n, } Sk } Ka}} K}c} k   { (0 D    163
TXT         (0 0K DK  q0
k #n @n Kk0k      164
TXT         (0                                                        165
RLD                 Y                                      166
TXT         k k0 n  n, @F0K o K k (}  K  o0     167
TXT  4         2K B kE'K  (0 s(0 sK   k0 { (0 D (0      168
TXT          k0 } S }2Kf} }k  k   %k0.n}'% K
       169
TXT         (0 s0  dK   (0 sK  (0 sk0_k0$n}  n1}e    170
TXT         n3}fk k .0 Uk0K } K
}k \(0 K    171
TXT  M        \(0 K
 /\} n}  {   K{ 0  .\Mk  k^    172
TXT           (0 k k K /{ dK }!}$n3}f  k k .3 }!k      173
TXT          N}- \}*(0 K /\};(0 K  /\}-(0 K  /\}    174
TXT   @       (0 K /}K(0 sK  .{F0  K|} }n3}f k {    175
TXT          M.}0  K  (0 s(0 sk k  k _k $k .K  B0       176
TXT                                                                     177
RLD                                                                    178
TXT          FILENAME  EX-DATE  SYS  TYPE  CYL HEAD TO CYL HEADNO LAB    179
TXT          EL FOUND                                                    180
TXT          kE'(0
Hk 'j}  } }  }} n} k #
n @n     181
TXT          K } }} n}  k} .}  } o0 X0 o0 T0 k.	    182
TXT          N ( 
9n' k<	   YSn'    m  T(0      183
TXT   O       }.}Y} k(	} K } K }\ }0 (0 r .0 }{    184
TXT         k0 bk	N @k	n 
9n' @n1@  Yn' @n,    185
TXT          @W  @n  @N  @0k.	0 k l0dk     186
TXT  =       k0'(0  K  (0 0k}'k0lk1}eK}  K}\ }      187
TXT         (0 (0 s
9k	 @n @
k	n @n, @(0 S   2     188
TXT          (0 } K  k	(0 n, @K  *k	(0 N * <}    189
TXT          K} K} *n, +n  @o0k0 G0                     190
RLD               W                                                191
TXT  +       Fn' k	@   80O0 n'0 @K}+o0k0 G0 k*	    192
TXT  f       N	 (0 sn @
9
k	n @n, @n1Mn2H    193
TXT         j  bMn4@j  bJ  F
k	n @n, @(0 S    194
TXT  6         2 (0 }8 }   } K    }  k	(0  K  *k    195
TXT         	(0  N  * N HN *D@0!N ! N !FN !    196
TXT         DN ! ;@Fk	n' @n'@n, @K	 }k	kE    197
TXT         'k 
J(0
Hk,
Jk 'k	j} \} n \ @.} k	n  bS\    198
TXT  O        N	 \  }  \  } } \ N} \ @0  } }     199
TXT         n  b N	 }   }   Ӣ}k)	(0 آ}K\F\H}F    200
TXT         n }   }  }  .}4}   n2}e }  }H 0 } }    201
TXT  =         U}  n2}e\M}  K }  n n  $n  ^    202
TXT         o   \ \F \ \ \F \ \0k^	 0 \ dq(0    203
TXT          Ka}}k3} k3}eK}  =}H0k*	N	 }@} K   K}     204
TXT           K} K	}  ɢ}   0 0\k/	.\4n1\e ;N	 \     205
TXT   ;       \   \ K \. \ \ }  \ \ }  (0 K!} \ k1}e    206
TXT   o        } \ \F \ 0 n     o  b\ *} ;  O} } O    207
TXT          }K.\F.\ .} !  \   Ӣ\  Ң\F \ 0 o b0 o  b    208
TXT           (0 K}.  }  0 n  bk;	j b} K }. \ \ }     209
TXT            \ j- b  *k$	j  b0 }  K}= k-	j  b j       210
TXT          k  bk k  Xk   }.}4K}a K}c }   H.}4k2J
n1    211
TXT          }e DK}a K}c k1J
0 k3}f  }  } .}F }  } k	    212
TXT   W       j}    }.}4o0n}' k JK} (0                213
RLD               4    8                                            214
TXT           Sj  k  K K
a  0 (0  k  Kfg} 0 0    215
TXT          k I}    n3}fWK B { (0 DH} Sk } K}} K
J     217
TXT         F 0 k!	0{  (0 D m  }  (0  K k K o    216
TXT  B       } (0 0Mk0I(}  K  B(0 sk  G0 W.}40 Kf } 0 0    218
TXT        F 0 m 0Qn3}f.}4k0 0                      219
RLD               >                                             220
TXT                	               +                                221
RLD                                                               222
TXT                                                                   223
TXT   +       a       (0
Hk #
N h
N f@n'@ }
(0      224
TXT   f        n, @F2  ,n7 n8 

}
n  %@n2      225
TXT          n   U  \Hn , 0 0n  ,@0 n , \ dn ,@    226
TXT   6       0 k #N0   0H.\F  0 +\ 0 0 \F0     227
TXT          0 &\F0 n @K} 0n  o }0 n , n ,     228
TXT          n , \H0 6j k #j  k #j8 %j  %k _
    229
TXT          k #nT@n @n2
n1@n, @F
k #N f@n     230
TXT   O        @n'@n @(0   2 
 0  N 0 
0F0     231
TXT  
        n{
nH@K  >k #0 N ,0 
0  0 }
     232
TXT  
        0  n  ,
o >K0  ,0    .0 0 k } 0 o0 5n,    233
TXT  
=         Bk  >0
 j k  >
k #n @n, nD@ka _n3    234
TXT  
       
 n4@kb _0
  0 
9
n, @n @N_@(0 S 
2    235
TXT  
       0  0 N0  }F0H0 0
8k	k2 2 (0     236
TXT         } } }   ڢF0  K  00  00 0  }  \      237
TXT  ;        {     {K B k k } S { (0     mn}' k0    238
TXT  o       in3}fuk in1}eF} S(0 D 0̢}40hN}       239
TXT         0k	0 K  k0e  k  r +n    (0 s    240
TXT         k  GK  0  W                                            241
RLD                           f         
Y    
        242
TXT         } S } SKf&} k0^k x0 .Fn3}fs.F}4n3}f    243
TXT  +       K { } S   SK  {{ (0 D (0  n }  K { K    244
TXT  f         (0 { (0 D K  0  0MKf} &K { K  (0    245
TXT          { (0 D K  0n }g Kf&}g{ (0 D6(0  Kf}g}     246
TXT  6       Kf} &K { K  { (0 (0 D K  K  {(0  n }g    247
TXT          { .{F { n   k  K  } Sk } K}} K
J } { (0    248
TXT           D (0 0   K B K o BK k (}  K  Bk ek ^k0x    249
TXT          {  } \    0  0 r |0     n    UK Q0 n     250
TXT   O       0  k  .{{ { 0  k	0 (\ y                   251
RLD                         o    H                   252
TXT           j     (\ y  j      0 ʢF
n @n, @(0 S     253
TXT            2  (0 }6 }F  }H< } *2 (0 }}  } ;    254
TXT          0  (0 r  0 N}   oN}  |N} *}  .}4    255
TXT   y       } k(	k } Kc}} k} k2}  }  k}k } K} } k2}e }     256
TXT   \       }0 \0n0}   n9} 0 nF} nA} + }  $.}F}  Y    257
TXT          00  
K / .\F    / 0  3 / /     0 %F    258
TXT   &       
(0 S 	 n @o0
X0
0   n  "F0 >k K     259
TXT   h       \  n  n,  \   K \  \FF0  }    260
TXT   {          } n      1   0 \0   } } }0k     261
TXT   8        00 j0\ J  \ n  \F.}F  0  K  q(0  \ SK    262
TXT           \  oK\  k(0 j ^k8 k8 j{   %j  kk    263
TXT             kk   k^k^   k"k"   K  3 0 _K     264
TXT           jج
\ n \    S}   { Hr   &   { r     265
TXT   Q         & 0 r  0 n  }       {  r }& Ӫ
       266
TXT           r K0 (0 r 0   }       {  r }&       267
TXT            r J {K  K Ь m0 j  @\ } \K \} }     268
TXT         n }  qk0k05k0)0 (\ y                               269
RLD                                            !         270
TXT           < {6\Kj   .\ j   j  .\ j{      271
TXT   O       .\  \  k  K  0 n0 k0 K   n 0k  k
      272
TXT         kL 
j0k (jb
{ K  0(0 sK	  &(0 sK	 m
k&    273
TXT         k } S }   } & }  Y(0  n }  @K}  qK} D(0 n     274
TXT  =       }|qK  K;k  Pk |K B} K } K } j D(0      275
TXT         k }gKe}h}g(0 { (0 DYk } K}} K
J } (0 K  B0       276
TXT         |END OF JOB\   S                                    277
RLD                                                         278
END   &                                                                   279
// LOG
// JOB BACK41
// DATE 74079
// CONFG 12
// ASSGN SYS019,X'780',T2,X'C8'
// ASSGN SYSOPT,X'801',D3
// EXEC
TXT                             0  @n B410002
TXT         }  & !r   0!k K+ܺ ! @r   0@B410003
TXT         k A {0K{ K3{ k ({k  r   0Sk0AB410004
TXT  H       K	 3  k ({{0j  0{    0123456789ABCDB410005
TXT          EFHALTCHOICE   ( h      }( hB410006
TXT                }  h }  h h} } } 0}      B410007
TXT         
  
     l
  g   m          B410008
TXT  y           m  
 } }k}(\ ybmj eOjB410009
TXT  \       e4Nb K  on }  }   }0  K  M({B410010
TXT          m0 =K  M({m0 =j ,  j    j e  j r B410011
TXT   &       j ~ &j z (\ yo(\ y(}  (} 0 f(}  (} (}B410012
TXT   h         0 Bm99l[[ w                           /*B410013
TXT   {                   =TAPE MISPOSITIONED OR DEFECT   k0 1B410014
TXT   8       K ({m K q K mK   ({ ({ N	  N+B410015
TXT            m     N q N	i = K    K  { q{  {B410016
TXT           q{   K|({K
 {({m0   DTXT        PUT B410017
TXT          CORR CARDS FOR VTOC INTO SYSRDR INCORRECT CARDn  } &B410018
TXT   Q         K   r }0 r K0  {
{    2k B410019
TXT         N| 0  K({mF K]0  }wk yK c} K B410020
TXT         }K l}(}        !(}       !  o B410021
TXT         j  oyo  m   0}w0}     SYSRDR NOT ATTB410022
TXT         ACHED  {j Mr 0 N	0N	%0r ]0 B410023
TXT  0        {K  o j  k    K     K   0B410024
TXT            j @  m"K  K  { {j{
 { N{  N{ B410025
TXT   -        m({ N y YN  HN  N B410026
TXT   q        K  u0 Yr Fbc k L0 {k  LkL 5k  X0 }k Lk  XB410027
TXT   }       k 	k  k  Tk k 4k j ({ {3 *k/;3 ^ B410028
TXT           K ({ j  K({mH0  n    B410029
TXT           f   ! n  K
a({mG0 fK ({ ({ B410030
TXT          K|({Np wN
K
({m0 K{ dB410031
TXT          { n { N{ N { 4N {
 N	{]
K
B410032
TXT   Y       C({m~0 { n {  4N { J
 N { 
 KW({msB410033
TXT  
        0 o0 m"0 { n { 
 N	{ 5
*N{ 
 o B410034
TXT  
       0 o m"0 K	;<K om0 { n {
N {B410035
TXT  
        
N	{ 
 k 
o mn {
 n,{
 { 
 n { B410036
TXT           PROGRAM  -  RESTORE FUNCTION  VERS 03/01  #RESTORBACKB410039
TXT  
H       
  
2K	{o0 k0
om7.{ 0
K	>{o 0 B410037
TXT           {K 0 FBACK42  a MOD 20 DPS  BACKUP AND RESTOREB410038
TXT         41SYSOPT NOT DISKBACKUP TAPE NOT SYS019// VOL1INVALID FOB410040
TXT  y       RMAT , END OPTN COPY CHECK INVALID OPCODEVERIFY=NO VERIFB410041
TXT  \       Y=YES INVALID OPERANDVOLNO LIA INPUTOUTPUT              B410042
REP  0026AF  01C5D5,C4C4
END  {                                                               B410043
// CHECK INPUT
// CHECK OUTPUT
// ENDD
TXT           (\ ywK (}{j  o) {K ?K y(\ y j  B420002
TXT            K|N  ;K 2({{ =0 K	CK(\ y B420003
TXT          K K	} =j  yN	> = KQ m0 yKP K	X>B420004
TXT   y       ({K  K	}j 2N	 QKQ m0 KP K	B420005
TXT   \       X({E =0  ju Uj ({D =0  ({j B420006
TXT           K	C =0  j  K	C;K Yk 2j    K!;n4;B420007
TXT   &        K ({A =0 KK sn } u  naB420008
TXT   h        mn uK
 ({I =KKs(} }   jy WB420009
TXT   {       K ({ =oK dK dKs hKK  DNsB420010
TXT   8       
 (}   D0 2  
 K
 ({ =0 }KKB420011
TXT  
        s(}    nv
m? xKyK(} L   o xjy
mB420012
TXT  
       j
K d({ =oK3 sK v wk KyKB420013
TXT  
       (}     K(} k k(\ y  j  
D0
6k0
B420014
TXT  
Q         q 
6(}N  0
N   n  n1 kB420015
TXT         0 n2 n3  n   K  ({B =0j B420016
TXT         j*o0 m"0
Q(}qo j(}  (}  {B420017
TXT         K 0 FBACK43 k (}qo (} N  ?}o  mjصB420018
TXT         N  o k  K     k Gn Kѵ%KB420019
TXT  0       (} P  } .}  } jyo     G H  0B420020
TXT           0
Mm0  k< Gk en  KѵK(} P  }B420021
TXT  -        .}  } jyo     G H  k0e k G0B420022
TXT  q       K  m   o  0s r Km(}{j  KB420023
TXT  }       (} kj %j  (\ y  j  6(} (}B420024
TXT            0 }  }n }   N }    } w} m} 0  o 0  B420025
TXT            }   *k0 K d(} K Y WK Yk  K  Kn B420026
TXT           K  j  ja \ {j   { m  }j   (\ y j B420027
TXT            K   w (}0 o  WK Y0  (} 00 B420028
TXT   Y             VOL1NO VOLUME LABELINPUT  VOLUME ISAS SPECIFIED. SB420029
TXT           PECIFIED WASOUTPUT VOLUME ISNO VTOC FOUNDDISK TOO SMALLVB420030
TXT          TOC OVERLAPS WITH BACKUP FILESVTOC TOO SHORTLIA OVERLAPSB420031
TXT           WITH BACKUP FILES         /* VTOC DEFECT {j B420032
TXT   H        Kr 0 BN	  Ur ]0 j  KB 60 (}  BACK42B420033
REP  002674  014DD0,206A,4DD0,2030
END                                                                  B420034
TXT            {j   r 0 BN	 { r ]0 N N }B430002
TXT            k  ,k  k K K  kj  j  b 0 KB430003
TXT           (}K 0 j   j   o0  r K B K B430004
TXT   y         B H  k0 N   N    kK (}K KB430005
TXT   \        (}K  j   j  oذ K  BK  j  bB430006
TXT             k0 N    k gk  l0 <j ({K F({ B430007
TXT   &       K (}j  oj  { jج  (\ y  j   B430008
TXT   h       K ׵ ({0 ({K F({  {K  0 FBACK44 B430009
TXT   {       BACK43UNEXPIRED FILES TO BE DELETED                     B430010
END                                                                   B430011
TXT           K K   J  ]J ' ](\ yj , (}B440002
TXT          .   K K o0 K| k &K &K yJ  ~J B440003
TXT   0       ' ~(\ yj , K k  K  K! ;k gK hgB440004
TXT            (}j {j  jج  j  u u -({ B440005
TXT  -         j   (\ y j  j K L ({N   K	B440006
TXT  q       Cࢰ  (}j {j 0<  ({ K  k B440007
TXT  }        K ({ Y({K  KL j 6(\ ywKkK
 KB440008
TXT           m(}{j} Kmj} Km (}{j } B440009
TXT            rN   n   n1  K L ({N    K	CB440010
TXT           j    ({ K  k  K ({ Yj
   B440011
TXT           u  ({ K  K  K
~   ({ ({j {K B440012
TXT   Y        0 FBACK51 k0AK	  r K d0  j  ({   k B440013
TXT           K  k  K ({ Y  Kk r({ *
         m7 B440014
TXT          0:   k0 )j   K  A({m {K  f0 FBACK61 OUB440015
TXT          TPUT PACK  VOLUME SERIAL NUMBER NEW FILES- NONE -PUT PHAB440016
TXT   H       SE BACK61 INTO SYSRDR K  K	LC({K 
!KL
 rB440017
TXT  
        K  K0  {N	
,
 r ]0 B({j
KB440018
TXT  
         ({({ {K 
0 FBACK45 OLD FILES- NONE -BACK4B440019
TXT  
      4                                                       B440020
REP  00236C  0147F0
REP  002292  0147F0
REP  0022F4  014DD0,2030,0700
END  
                                                                B440021
TXT           {j r 0 BN	  r ]0(}{K
J  vJ B450002
TXT          ' vj 
 j 
 =j
 =jJ  ~J ' ~(\ yj B450003
TXT         ,j
 K   K	C *jw(\ ywK  ({({0B450004
TXT          fj j
 +jj
 n 
N
 }n
B450005
TXT  Y        K3
K	
K|
 ({Y(\ yj ,k 
K 
 
(}B450006
TXT           n20=n2 k |0K ({m00=jB450007
TXT         j
 0{K3 K|
k 
K 

K 
K y0B450008
TXT         k N	C=k K K y (\ y j  ({Y(\ yB450009
TXT  H       j ,(} N 3 0=n    N	  K	 B450010
TXT           CN	 N   K	C  YDISK FILES HAVB450011
TXT           E BEEN TRANSFERRED TO DISK BACK45COPIED   LIA TOO SHB450012
TXT         ORT                                                     B450013
END                                                                  B450014
?*/
/*
//TAG70   NOP
// OPR 'PHASE IV DISC EXTENT DISPLAY'
// DVC 20
// LFD PRNTR
// DVC &DISCDRV
// VOL &VOL9030
// LBL &LBL
// LFD DISKDRV1
// EXEC EA$DXT
/$
DISKDRV1
/*
//TAGXX NOP
         END                                                            XXXXXXXX
