Library RoseClocks; CELLTYPE CardCounter PORTS [PhaseA, PhaseBINT[16]] InittableState next: CARDINAL _ 7 EvalSimple IF PhaseA THEN next _ next + 1; IF PhaseB THEN count _ next; ENDCELLTYPE; Modulator: LAMBDA [modulus: |INTEGER|] RETURN CELLTYPE AutoName PORTS [count< INT[16], ans>INT[16]] EvalSimple IF (count MOD modulus) = 0 THEN ans _ count ENDCELLTYPE; CELLTYPE RoseTest3 Expand PhaseA, PhaseB: BOOL; count, ans: INT[16]; clkGen: ClockGen[]; counter: CardCounter[]; mod3: Modulator[3][]; mod5: Modulator[3][] ENDCELLTYPE NRoseTest3.Rose Last Edited by: Spreitzer, June 26, 1984 3:23:19 pm PDT Ę ˜J™J™7J˜J˜J˜šĪkœĪb ˜Jšœœœ˜*˜Jšœœ˜—˜ Jšœœ˜Jšœœ˜—Jš œ˜ —J˜š ž œœ œœœ ˜?Jšœ œ œ˜#˜ Jšœœœ ˜+—Jš œ˜ —J˜šœž ˜˜Jšœœ˜Jšœ œ˜J˜J˜Jšœ˜Jšœ˜—Jš ˜ ——…— {