$JOB/TIME/LIST/RT11 ! SRC008.BAT .DATE TTYIO $! NAB/1736/SLA 03-OCT-79/05-OCT-79 $! RT-11 SOFTWARE DISPATCH SEPTEMBER 1979 $! RT-11 V03B-00 SEQ 8 M $! SOURCES $! TM.MAC $! TJ.MAC $! MAGTAPE ABORT ENTRY CORRECTION. $MES PATCH TM.MAC. .COPY DST:TM.MAC PAT: .RUN EDIT *EBPAT:TM.MACRV *G1-C2V *FMTSTSV *G2-C6V *FMTABRT:V *I MOV #-1,FLAG ;2+ * MOV MTCQE,R5 * BEQ 10$ * MOVB Q.JNUN(R5),-(SP) * ASR @SP * ASR @SP * ASR @SP * BIC #177761,@SP * CMPB (SP)+,R4 * BNE 10$ *A-11L *I CLR FLAG *10$: ;2- *-2L *G.ENDC2AV *-1KV *I BICB FGCHAN,INUSE ;2+ *-L *G1$AV *I CLRB INUSE *-2L *AV *I BR 2$ *-2L *G:I CLRB FGCHAN *2$: ;2- *-2L *GMMG$T0A5K *I.IF DF FILES * JMP $DONE *.ENDC * JMP MTDONE *-4L *F$DONE::V *2AV *I TST FLAG ;2+ * BNE 10$ ;2- *-2L *G.ENDCA *I10$: CLR FLAG ;2+ * RTS PC ;2- *-3L *FINUSE:V *-A *IFLAG: .WORD 0 ;2 *-L *EX .'FF' $MES/WAIT ABORT YHE JOB IF ANY ERRORS EXIST ON THE LOG FILE. $MES RETURN THE PATCHED FILES TO THE DISTRIBUTION MEDIA. .COPY PAT:TM.MAC DST: .SQU/NOQ DST: .DEL/NOQ/LOG PAT:TM $EOJ