TITLE	TAPTST	DUMMY TAPTST PROGRAM TO RUN COPYMT
SUBTTL	BLS

SEARCH	UUOSYM
.REQUE	SYS:F10LIB		;HERE IS WHERE TMPWRT LIVES

T1=	1
L=	16
P=	17

PDSIZ==	20

PLIST:	BLOCK	PDSIZ

TAPTST:	JFCL			;GUARD AGAINST CCL
	RESET
	SKIPA	P,.+1		;INIT PDP
	 IOWD	PDSIZ,PLIST
	OUTSTR	MSG1		;TELL USER QUE PASSE
	MOVEI	L,TWRABL
	PUSHJ	P,TMPWRT##	;WRITE THE FILE
	MOVEI	T1,RUNUBL
	HRLI	T1,1		;CCL ENTRY
	RUN	T1,		;GO FIND COPYMT
	 OUTSTR	ERMSG2		;TELL CAN'T
	EXIT

	-3,,0			;FORTRAN ARG BLK
TWRABL:	EXP	CWTFIL		;ERR RETURN
	EXP	CMTMSG		;STRING
	EXP	[ASCIZ/CMT/]	;TMP FILE NAME

MSG1:	ASCIZ	/
%TAPTST HAS BEEN SUPERSEDED BY COPYMT
%RUNNING COPYMT AUTOMATICALLY TO TEST TAPE "TAPTST"
/

CMTMSG:	ASCIZ	\TAPTST:/TEST/OPTION
\
	EXP	0			;MARK END FOR TMPWRT

ERMSG2:	ASCIZ	/
% SORRY, CAN'T FIND COPYMT TODAY
/

ERMSG1:	ASCIZ	\
% SORRY, CAN'T WRITE TMPFIL TO SEND TO COPYMT
\

CWTFIL:	OUTSTR	ERMSG1
	EXIT


RUNUBL:	SIXBIT	/SYS/
	SIXBIT	/COPYMT/
	SIXBIT	/LOW/
	EXP	0,0
	EXP	0
	EXP	0
	END	TAPTST