CODE *  ( DE * BC -> DE (high) and HL (low) )
    DE POP, BC POP, chkPS,
    HL 0 LDdn,
    A 0x10 LDri,
( loop )
    HL ADDHLd,
    E RL, D RL,
    JRNC, 4 A, ( noinc )
    BC ADDHLd,
    JRNC, 1 A, ( noinc )
    DE INCd,
( noinc )
    A DECr,
    JRNZ, -14 A, ( loop )
    HL PUSH,
;CODE