; Copyright (c) 1995,  Microstar Laboratories, Inc.
; All rights reserved.

RESET
PIPES P1,P2,P3
IDEF A 1
  SET IP0 S0
  TIME 10000
  END
PDEF B
  FFT (5, 8, 0, IP0, P1)
  FINDMAX (P1,128,INSIDE,1,127,P2,P3)
  MERGE (P2, P3, $BINOUT)
  END
START A, B
