L1 BSET PC 3 - ORG @ 0x34 + ! ( execute -- DI -> wordref )
    AH AH XORrr,
    AL [DI] MOVr[],
    DI INCx, ( PFA )
    AX JMPr,