C..  REWIND.FTN   BOHDEN K. CMAYLO  MAY 81
C..
C..  ROUTINE DOES REWIND MM: OR MM1: BY REW AND REW 1
C..
	BYTE BINPUT(80)
	DIMENSION INPUT(40),ICMLIN(80)
	EQUIVALENCE (INPUT,BINPUT)
      DIMENSION IST(2),IR(6)
      DATA MM,MMREAD,MMWRIT,MMREW,MMREWU,MMEOF,MMATT
     1 /'MM',"1000,"400,"2400,"2540,"3000,"1400/
	DATA DEV,RTNAME/'TT  ',6RMCR.../
C..
C..  GET MCR COMMAND LINE, IF ANY
C..
	IDS=ISTXQT(BINPUT)
	IF(IDS.LE.0) BINPUT(1)='0'
C..
C..	OK, GET DEVICE
C..
2	DECODE(1,3,BINPUT(1),ERR=4)IUNIT
3	FORMAT(I1)
	IOUT=1
      CALL ASNLUN(IOUT,MM,IUNIT,IDS)
      CALL WTQIO(MMATT,IOUT,6,50,IST,IR,IDS)
      CALL WTQIO(MMREW,IOUT,6,50,IST,IR,IDS)
4	IF(IST(1).NE.1)
     1 WRITE(IPR,902)IST
902   FORMAT(' TAPE REWIND ERROR = ',2O7)
	CALL EXIT
	END