$JOB/TIME/LIST/RT11 ! MON003.BAT .DATE TTYIO $! NAB/SLA/1736 01-NOV-78/07-DEC-78 $! RT-11 SOFTWARE DISPATCH AUGUST 1978 $! RT-11 V3B SEQ 3 M $MES UPDATE: SJ (S) FROM V03B-00A TO V03B-00B $MES PATCH: BSTRAP.MAC .COPY DST:BSTRAP.MAC PAT: LET Q=47 ! Q IS A ' MARK .RUN EDIT *EBPAT:BSTRAP.MAC[58]RV *G1-DI2V *FBSTRNG:G'Q'AV *-DIBV *EX .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES PATCH: EDTGBL.MAC .COPY DST:EDTGBL.MAC PAT: .RUN EDIT *EBPAT:EDTGBL.MAC[23]R *I;EDTGBL EDIT LEVEL O * *FIFCTLCG=V *I=V *EX .'FF' $MES/WAIT ABORT THE JOB IF AN ERROR EXISTS ON THE LOG FILE $MES PATCH: RMONSJ.MAC .COPY DST:RMONSJ.MAC PAT: .RUN EDIT *EBPAT:RMONSJ.MAC[71]R *I;RMONSJ EDIT LEVEL 0 * *FGOEXIT:0AV *I .EXIT ;0 *;-LL *-7AIGOEXIT::DV *FZAP:9AV *I JSR PC,CMKALL ;0 *;-LL *FTTCQE:14AV *I MOV R2,R3 ;0 *-LL *FTTCMPL:3AV *I;AI;-LL *F$RQABT:AV *I MOV TTHIUS,-(SP) ;0+ * BIS TTHOUS,(SP)+ * BEQ 1$ * JSR PC,TTCMPL *1$: ;0- *-6LL *FLKQUE:G10$AV *I TST EXTFLG ;0 * BNE 10$ ;0 *-3LL *G2$:AV *AI MOV C.SEQ(R5),R0 ;0+ * CMP #-1,C.SYS(R5) * BNE 25$ * MOV C.COMP(R5),R5 * BR 26$ ;0- *25$:-6LL *AI; *3AI26$:-LL *FCHXIT:AV *I MOV SP,EXTFLG ;0 *-LL *G5$:AI;V *G10$:-AV *I.IFF ;0 * JSR PC,MTRSET ;0 *-3LL *FSAVE30:0AV *I.ENDC ;0 *.IF NE TIM$IT+MTS$J ;0 *-2LL *FCMKALL:V *I MOV R2,-(SP) ;0+ * MOV R3,-(SP) * MOV R4,-(SP) * *2AI;V *AI JSR PC,CMARKT * MOV (SP)+,R4 * MOV (SP)+,R3 * MOV (SP)+,R2 * RTS PC ;0- *-12L *F$RMEND:-4AV *I.IF NE MTT$Y ;0+ * .REPT 50 * .WORD 125252 * .ENDR *.ENDC ;0- *-6L *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 EDTGBL.MAC .COPY PAT:EDTGBL.MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:EDTGBL.(MAC,BAK) $MES RMONSJ.MAC .COPY PAT:RMONSJ.MAC DST: .SQU/NOQ DST: .DEL/NOQ PAT:RMONSJ.(MAC,BAK) $EOJ