collapseos/blk/310

CODE PICK
    HL POP,
    ( x2 )
    L SLA, H RL,
    SP ADDHLd,
    C (HL) LDrr,
    HL INCd,
    B (HL) LDrr,
    ( check PS range before returning )
    EXDEHL,
    HL PS_ADDR LDdn,
    DE SUBHLd,
    CC lblofl @ JPc, ( abortUnderflow-B298 )
    BC PUSH,
;CODE