$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