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

RESET
CONST NAVE=16
PIPES P1 LONG,P2 LONG,P3 LONG
PIPES P4 LONG,P5 LONG,P6 LONG,P7,P8,P9
IDEF A 3
  SET IP0 S256
  SET IP1 S0
  SET IP2 S1
  TIME 1000
  END
PDEF B
  CROSSPOWER (IP1, IP2, 0, 10, 0, P1, P2, P3)
  BAVERAGE (P1, 512, NAVE, P4)
  BAVERAGE (P2, 512, NAVE, P5)
  BAVERAGE (P3, 512, NAVE, P6)
  TFUNCTION2 (P6, P4, P5, 100, P7, P8)
  P9 = (P8 * 180) / 32767
  MERGE (P7, P9, $BINOUT)
  END
START A, B
