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

OUTPORT 0..7 TYPE=0

RESET
PIPES P1, P2
CONST INTERNAL=10
VARIABLE SCALE1=500000 LONG
IDEF A 2
  CLOCK EXTERNAL
  HTRIGGER ONESHOT
  SET IP0 CTL0
  SET IP1 CT0 INTERNAL
  TIME 100
  END
PDEF B
  CTRATE (IP1, P1)
  BAVERAGE (P1, 256, 100, P2)
  $BINOUT = SCALE1 / P2
  END
START A, B
