SUBROUTINE EMASLK(SA,LA,SB,LB)
      INTEGER*2 SA(1),LA,SB(1),LB
      INTEGER*4 DA(10),EA,DB(10),EB
      INTEGER*2 X(20),Y(20)
      EQUIVALENCE (X(1),DA(1)),(Y(1),DB(1))
      DO 10 I=1,12
      X(I)=SA(I)
      Y(I)=SB(I)
   10 CONTINUE
      EA=LA
      EB=LB
      CALL EMASFC(DA,EA,DB,EB)
      END
      INTEGER FUNCTION IAND*2(A,B)
      INTEGER*2 A,B
      INTEGER*4 DA,DB,XIAND
      DA=A
      DB=B
      IAND=XIAND(DA,DB)
      RETURN
      END
      INTEGER FUNCTION IOR*2(A,B)
      INTEGER*2 A,B
      INTEGER*4 DA,DB,XIOR
      DA=A
      DB=B
      IOR=XIOR(DA,DB)
      RETURN
      END
      INTEGER FUNCTION IEOR*2(A,B)
      INTEGER*2 A,B
      INTEGER*4 DA,DB,XIEOR
      DA=A
      DB=B
      IEOR=XIEOR(DA,DB)
      RETURN
      END
      INTEGER FUNCTION ISHFT*2(A,B)
      INTEGER*2 A,B
      INTEGER*4 DA,DB,XISHFT
      DA=A
      DB=B
      ISHFT=XISHFT(DA,DB)
      RETURN
      END
      INTEGER FUNCTION NOT*2(A)
      INTEGER*2 A
      INTEGER DA,XNOT
      DA=A
      NOT=XNOT(DA)
      RETURN
      END
      INTEGER FUNCTION QQMOD*2(A,B)
      INTEGER*2 A,B
      INTEGER*4 DA,DB
      DA=A
      DB=B
      QQMOD=MOD(DA,DB) 
      RETURN
      END
      INTEGER FUNCTION SUCESS*2(IDUMMY)
      INTEGER*2 IDUMMY 
      INTEGER*4 XSUCES,IDUM
      SUCESS=XSUCES(IDUM)
      RETURN
      END
 
 
      SUBROUTINE QQDATE(BUF) 
      INTEGER*2 BUF(1),OINFO(4) 
      REAL*8 INFO
      EQUIVALENCE (OINFO(1),INFO) 
      CALL HDATE(INFO)
      DO 10 IK=1,4
      BUF(IK)=OINFO(IK)
   10 CONTINUE
      END
      SUBROUTINE QQTIME(BUF)
      INTEGER*2 BUF(1),OINFO(4)
      INTEGER*8 INFO
      EQUIVALENCE (OINFO(1),INFO) 
      CALL CTIME(INFO)
      DO 10 IK=1,4
      BUF(IK)=OINFO(IK)
   10 CONTINUE
      END

      SUBROUTINE FMTW(CHAN,FMT,BUF,PNTR)
      INTEGER*2 CHAN,FMT(1),BUF(1),PNTR
      INTEGER*4 BIGFMT(3),Z10000
      DATA Z10000/Z10000/

      DO 10 IK=1,3
      BIGFMT(IK)= (FMT(2*IK-1)*Z10000) + FMT(2*IK)
   10 CONTINUE
      WRITE(CHAN,BIGFMT)(BUF(IK),IK=1,PNTR)
      RETURN
      END