$JOB/TIME/LIST/RT11 ! SRC006.BAT .DATE TTYIO $! NAB/SLA/1736 01-NOV-78/07-JUN-79 $! RT-11 SOFTWARE DISPATCH MAY 1979 $! RT-11 V3B SEQ 6 M $MES UPDATE: FSM.MAC $MES TM.MAC LET E=33 ! 'E' IS AN ESCAPE CHARACTER. LET Q=47 ! 'Q' IS A SINGLE QUOTE MARK ('). $MES PATCH: FSM.MAC .COPY DST:FSM.MAC PAT: .RUN EDIT *EBPAT:FSM.MAC'E'RV'E''E' *G0'E'-C1'E'V'E''E' *FLOOK:'E'V'E''E' *AI MOV MTCQE,R3 ;1+ * CLR Q.WCNT(R3) * MOV (R3),R3 ;1- *;'E'A-4L'E''E' *FFNDPOS:'E'V'E''E' *G@DV'E'0AI5$:'E'V'E''E' *GFOR'E'0AV'E''E' *I CMP #BOTCODE,R4 ;1 * BEQ 5$ ;1 *'E'-2L'E''E' *EX'E''E' .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES PATCH: TM.MAC .COPY DST:TM.MAC PAT: .RUN EDIT *EBPAT:TM.MAC'E'RV'E''E' *G0'E'-C1'E'V'E''E' *FEXCEP:'E'V'E''E' *3A-3L'E''E' *FERBSAV'E'V'E''E' *2A-2L'E''E' *I BIS #30000,@#177776 ;1+ * MOV R0,-(SP) * MTPI (R1)+ * MOV ERRBL2,-(SP) * MTPI (R1)+ ;1- *'E'-5L'E''E' *EX'E''E' .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES REPLACE MT.SYS $CREATE/LIST PAT:SYCND.MAC FILES =1 ;MAGTAPE FILES SUPPORT DRIVEN =2 ;NUMBER OF MAGTAPE UNITS $EOD TTYIO .MACRO PAT:(SYCND+TM/OBJ),PAT:(SYCND+FSM/OBJ) .LINK/EXE:PAT:MT.SYS SYS:TM,FSM .DEL/NOQ PAT:SYCND.MAC .DEL/NOQ SYS:(TM,FSM).OBJ .DEL/SYS/NOQ SYS:MT.SYS .COPY/SYS PAT:MT.SYS SYS: .COPY/SYS PAT:MT.SYS DST: .DEL/SYS/NOQ PAT:MT.SYS .SQU/NOQ DST: $MES REPLACE MTHD.SYS .MACRO PAT:TM .LINK/EXE:PAT:MTHD.SYS SYS:TM .DEL/NOQ SYS:TM.OBJ .COPY/SYS PAT:MTHD.SYS DST: .DEL/SYS/NOQ PAT:MTHD.SYS .SQU/NOQ DST: $MES RETURN THE FILE(S) TO THE DISTRIBUTION MEDIA $MES FSM.MAC .COPY PAT:FSM.MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:FSM.(MAC,BAK) $MES TM.MAC .COPY PAT:TM.MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:TM.(MAC,BAK) .COPY/BOOT SYS:RKMNFB.SYS SYS: .'FF' .SQU/NOQ SYS: $EOJ