$JOB/TIME/LIST/RT11 ! MON018.BAT .DATE TTYIO $! NAB/SLA/1736 01-NOV-78/06-JUN-79 $! RT-11 SOFTWARE DISPATCH APRIL 1979 $! RT-11 V3B SEQ 18 M $MES UPDATE: FB FROM V03B-00C TO V03B-00D $MES FB (S) V03B-00H V03B-00I $MES XM (S) V03B-00K V03B-00L $MES PATCH: DXMNFB.SYS .COPY/SYS DST:DXMNFB.SYS PAT: .RUN PATCH *PAT:DXMNFB.SYS/A/D *4764\\104 *5000;0R *0,2116/104346 *0,2120/22712 *0,2122/616 *0,2124/3003 *0,2126/10501 *0,2130/4767 *0,2132/12 *0,2134/5067 *0,2136/12172 *E $MES CHECKSUM SHOULD BE 73436 $MES PATCH: RKMNFB.SYS .COPY/SYS DST:RKMNFB.SYS PAT: .RUN PATCH *PAT:RKMNFB.SYS/A/D *4764\\104 *5000;0R *0,2116/104346 *0,2120/22712 *0,2122/616 *0,2124/3003 *0,2126/10501 *0,2130/4767 *0,2132/12 *0,2134/5067 *0,2136/12172 *E .'FF' $MES CHECKSUM SHOULD BE 73436 $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE LET E=33 ! 'E' IS AN ESCAPE CHARACTER. LET Q=47 ! 'Q' IS A SINGLE QUOTE MARK ('). $MES PATCH: BSTRAP.MAC .COPY DST:BSTRAP.MAC PAT: .RUN EDIT *EBPAT:BSTRAP.MAC[57]'E'RV'E''E' *G3'E'-DI4'E'V'E''E' *FBSTRNG:'E'V'E''E' *GFB'E'V'E''E' *GH'E'-DII'E'V'E''E' *GXM'E'V'E''E' *GK'E'-DIL'E'V'E''E' *EX'E''E' .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES PATCH: KMON.MAC .COPY DST:KMON.MAC PAT: .RUN EDIT *EBPAT:KMON.MAC[109]'E'RV'E''E' *G2'E'-DI3'E'V'E''E' *FCMDBAS=.'E'AV'E''E' *0AI.IIF NE BF, .LOCK *'E'-A2L'E''E' *AGLOCK'E'V'E''E' *0AI;'E'GK'E'I ;REMOVED'E'V'E''E' *EX'E''E' .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES RETURN THE FILE(S) TO THE DISTRIBUTION MEDIA $MES DXMNFB.SYS .COPY/SYS PAT:DXMNFB.SYS DST: .SQU/NOQ DST: .DEL/NOQ/SYS PAT:DXMNFB.* $MES RKMNFB.SYS .COPY/SYS PAT:RKMNFB.SYS DST: .SQU/NOQ DST: .DEL/NOQ/SYS PAT:RKMNFB.* $MES (BSTRAP,KMON).MAC .COPY PAT:(BSTRAP,KMON).MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:(BSTRAP,KMON).* $MES REPLACE THE MONITORS ON THE SYSTEM .DEL/NOQ/SYS SYS:(DXMNFB,RKMNFB).SYS .COPY/SYS DST:RKMNFB.SYS SYS: .COPY/SYS DST:DXMNFB.SYS SYS: .COPY/BOOT SYS:RKMNFB.SYS SYS: .'FF' .SQU/NOQ SYS: $EOJ