$JOB/TIME/LIST/RT11 ! MON002.BAT .DATE TTYIO $! NAB/SLA/1736 01-NOV-78/07-DEC-78 $! RT-11 SOFTWARE DISPATCH AUGUST 1978 $! RT-11 V3B SEQ 2 M $MES UPDATE: FB (S) FROM V03B-00A TO V03B-00B $MES XM (S) V03B-00A V03B-00B $MES PATCH: BSTRAP.MAC .COPY DST:BSTRAP.MAC PAT: LET Q=47 ! Q IS A ' MARK .RUN EDIT *EBPAT:BSTRAP.MAC[57]RV *G0-DI1V *FBSTRNG:G'Q'AV *-DIBV *G'Q'A-DIBV *EX .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES PATCH: SYSTBL.CND .COPY DST:SYSTBL.CND PAT: .RUN EDIT *EBPAT:SYSTBL.CND[26]R *I;SYSTBL EDIT LEVEL 0 *-LL *FAS.CAR0AL *IAS.HNG == 100 ;0 *-LL *EX .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES PATCH: RMONFB.MAC .COPY DST:RMONFB.MAC PAT: .RUN EDIT *EBPAT:RMONFB.MAC[152]R *I;RMONFB EDIT LEVEL 0 * *FC$SIGN:GMTT$Y0AV *I;AAI;AI;AI;A-4LL *EX .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES PATCH: MTTINT.MAC .COPY DST:MTTINT.MAC PAT: .RUN EDIT *EBPAT:MTTINT.MAC[41]R *I;MTTINT EDIT LEVEL 0 * *FDL.DTRV *G2-C6 ;0V *2AV *IDL.SRD == 2000 ;0 *-LL *F.K.0AL *I BIT #,R0 ;0 * BNE 10$ ;0 *-2LL *F153AV *G0-CAS.HNG ;0V *GTRMSTS2AV *G0-CAS.HNG ;0V *5AV *I JSR PC,CTIMR ;0 *-LL *FQTIMR:5AV *I.IF NE BF ;0 *A *I.ENDC ;0 *-3LL *GCTIMR:2AV *I.IF NE BF ;0 *A *I.ENDC ;0 *-3LL *FOUTPTR:8A-LL *I;2A *I.IFF ;0 * TST T.OWNR(R3) ;0 *.IFTF ;0 *-4LL *FCTRL.C:2AI;V *AI BPL 5$ ;0 *-LL *GBIT0AI5$:V *FTTHIUSV *-AI;AI;AI;AI;AI;AI;AI;-7LL *FDLOINT:GDLFILLAV *I.IF NE MAT$S ;0+ * MOV R5,-(SP) *.IFTF *A *I.IFT * MOV (SP)+,R5 *.ENDC ;0- *-7LL *FDZIINT:GT.OWNR0AV *I.IF NE BF ;0+ *A *I.IFF * TST T.OWNR(R3) *.ENDC ;0- *-5L *FDZOINT:GT.OWNR0AV *I.IF NE BF ;0+ *AI.IFF * TST T.OWNR(R3) *.ENDC ;0- *-5L *FDZMCTL:GAS.CAR-AV *G0-CAS.HNG ;0V *GTRMSTS2AV *G0-CAS.HNG ;0V *FTRMSTS:AV *I.IF NE BF ;0+ * BIT #SHARE$,T.STAT(R3) * BEQ 2$ *2AI.ENDC ;0- *2$:-6LL *EX .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES PATCH: MTTEMT.MAC .COPY DST:MTTEMT.MAC PAT: .RUN EDIT *EBPAT:MTTEMT.MAC[23]R *I;MTTEMT EDIT LEVEL 0 * *FM$TTIO:GT.OWNR0AV *I.IF NE BF ;0+ *2AI.IFF * TST T.OWNR(R3) * BEQ 20$ *.ENDC ;0- *-7LL *EX .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES RETURN THE FILE(S) TO THE DISTRIBUTION MEDIA $MES BSTRAP.MAC .COPY PAT:BSTRAP.MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:BSTRAP.(MAC,BAK) $MES SYSTBL.CND .COPY PAT:SYSTBL.CND DST: .SQU/NOQ DST: .DEL/NOQ PAT:SYSTBL.(CND,BAK) $MES RMONFB.MAC .COPY PAT:RMONFB.MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:RMONFB.(MAC,BAK) $MES MTTINT.MAC .COPY PAT:MTTINT.MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:MTTINT.(MAC,BAK) $MES MTTEMT.MAC .COPY PAT:MTTEMT.MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:MTTEMT.(MAC,BAK) $EOJ