$JOB/TIME/LIST/RT11			! MON017.BAT
.DATE
	TTYIO
$! NAB/SLA/1736				01-NOV-78/06-JUN-79
$! RT-11 SOFTWARE DISPATCH		APRIL 1979
$! RT-11 V3B				SEQ 17 M
$MES	UPDATE:	FB (S)	FROM	V03B-00G	TO	V03B-00H
$MES		XM (S)		V03B-00J		V03B-00K
	LET E=33			! 'E' IS AN ESCAPE CHARACTER.
	LET Q=47			! 'Q' IS A SINGLE QUOTE MARK (').
$MES	PATCH:	BSTRAP.MAC
.COPY	DST:BSTRAP.MAC			PAT:
.RUN	EDIT
*EBPAT:BSTRAP.MAC[57]'E'RV'E''E'
*G2'E'=C3'E'V'E''E'
*FBSTRNG:'E'GFB'E'V'E''E'
*GG'E'=CH'E'V'E''E'
*GXM'E'V'E''E'
*GJ'E'=CK'E'V'E''E'
*FHSRB+10'E'AV'E''E'
*I.IF NE MTT$Y
*	PHSRBO
*	PHSQBU
*	HSRBOQ
*	HSRBOQ+2
*	HSRBOQ+4
*	HSRBOQ+10
*.ENDC
*'E'-8LL'E''E'
*EX'E''E'
.'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[154]'E'RV'E''E'
*G6'E'=C7'E'V'E''E'
*FTIFBLK:'E'2AV'E''E'
*I.IFF
*HSRBOQ::
*	.WORD	HSQBUF
*	.WORD	HSQBUF+DL11$N
*	.WORD	HSQBUF
*	.WORD	-1
*	.WORD	HSQBUF
*HSQBUF::
*	.BLKB	DL11$N
*	.EVEN
*TOFBLK::
*	BSS	F.BSIZ/2
*.ENDC
*'E'AK-14LL'E''E'
*EX'E''E'
.'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]'E'RV'E''E'
*G2'E'=C3'E'V'E''E'
*F.IIF	NDF	HSRBSZ'E'V'E''E'
*0AI.IIF NDF	DL11$N,DL11$N = 1
*'E'-LL'E''E'
*A-2JI * DL11$N'E'V'E''E'
*EX'E''E'
.'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[42]'E'RV'E''E'
*G1'E'=C2'E'V'E''E'
*FPR4	= 200'E'0AL'E''E'
*IPR0	= 0
*'E'-LL/A'E''E'
*I.IIF	NDF	MTP$S,	MTP$S	= 0
*.IF	EQ	MTP$S
*.MACRO	PUTPS	DST
*	JSR	PC,GETPSW
*	MOV	(SP)+,DST
*.ENDM	PUTPS
*.IFF
*.MACRO	PUTPS	DST
*	MFPS	DST
*.ENDM	PUTPS
*.ENDC
*'E'-10LL'E''E'
*FDLIINT:'E'F,GETPSW'E'V'E''E'
*0A2KI	PUTPS	DLTMP
*'E'-LL'E''E'
*FMOVB	DLTMP,R5'E'V'E''E'
*0A6KI	MOVB	DLTMP,R4
*	BIC	#177760,R4
*	ASL	R4
*	ADD	PDLTBL,R4
*	MOV	@R4,R4
*'E'-5LL'E''E'
*GADD	#2,(R5)+'E'0AL'E''E'
*I	MOV	T.CSR(R3),R4
*'E'-LL'E''E'
*GMOV	-10(R5),(R5)'E'0AL'E''E'
*G10'E'=C4'E'V'E''E'
*GBEQ	15$'E'V'E'-2J-DI3'E'V'E''E'
*G.IFF'E'0AI35$:
*'E'-LL'E''E'
*F	MOV	DLTMP,R4'E'0AL'E''E'
*I.IF	EQ	HSR$B
*'E'AI.ENDC
*'E'-3LL'E''E'
*FTTOINT::'E'0AL'E''E'
*I	.ENABLE	LSB
*'E'2AI.IF EQ HSR$B
*'E'A2KI	PUTPS	DLTMP
*'E'-5LL'E''E'
*F.IF NE MTI$M'E'0AL'E''E'
*I.IFF
*	PUTPS	DLTMP
*	MOV	R0,-(SP)
*	MOV	(PC)+,R0
*PHSRBO:: .WORD	HSRBOQ
*	MOVB	DLTMP,@(R0)+
*	INC	-(R0)
*	CMP	(R0)+,(R0)+
*	BLO	10$
*	MOV	(R0),-4(R0)
*10$:	INC	2(R0)
*	BEQ	20$
*	MOV	(SP)+,R0
*	RTI
*
*20$:	MOV	(SP)+,R0
*	JSR	R5,$INTEN
*	.WORD	^C<PR0>&PR7
*	JSR	R3,SAVE30
*30$:	MOV	(PC)+,R5
*PHSQBU:: .WORD	HSQBUF
*	MOVB	@-(R5),R4
*	INC	@R5
*	CMP	@R5,-6(R5)
*	BLO	40$
*	MOV	-4(R5),(R5)
*40$:	MOV	R5,-(SP)
*	JSR	PC,TTOSTF
*	MOV	(SP)+,R5
*	DEC	-(R5)
*	BPL	30$
*	RTS	PC
*	.DSABL	LSB
*TTOSTF: JSR	PC,DLSAV
*.ENDC
*'E'-35LL'E''E'
*FMOVB	R0,T.TPB(R4)'E'0AL'E''E'
*I.IF	NE	MTI$M
*	BIS	#INEXP$,T.STAT(R3)
*.ENDC
*'E'-3LL'E''E'
*2<FJSR	PC,GETPSW'E'0A2KI	PUTPS	DZTMP
*'E'-LL'E'>'E''E'
*EX'E''E'
.'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,RMONFB,EDTGBL,MTTINT).MAC
.COPY	PAT:(BSTRAP,RMONFB).MAC		DST:
.COPY	PAT:(EDTGBL,MTTINT).MAC		DST:
.SQU/NOQ	DST:
.DEL/NOQ	PAT:(BSTRAP,RMONFB,EDTGBL,MTTINT).*
$EOJ
                                                                                                                                                                      