BVPA7357            END-PROC*SBTRCTTIME@@@
BVPA7358            PROCEDURE*DISECTFRAME@@@
BVPA7359            LOC-INDEX*SEQUENCER@@@
BVPA7360  FRAMELOOP VARY*SEQUENCER*THRU*14D@@@
BVPA7361            SET*FRAMER*EQ*FTAMER/2*SAVING*REMAINDER@@@
BVPA7362            IF*REMAINDER*NOT*0*THEN*SET*BITS%BITCOUNT<*EQ*1@@@
BVPA7363            INCR*BITCOUNT@@@
BVPA7364            END*FRAMELOOP@@@
BVPA7365  INCR*BITCOUNT*BY*2*THEN*RETURN@@@
BVPA7366            END-PROC*DISECTFRAME@@@
BVPA7367            PROCEDURE*TIMEDELAY@@@
BVPA7368            SET*MEMRY%RTC<*EQ*-A@@@
