imFastCopy:
    ld a,i
    push af
        di
        ld c,$10
mmsetrow:
        in a,(c)
        rla ;test 7th bit
        jr c,mmsetrow
        ld a,$80
        out ($10),a
        ld hl,gbuf
        ld de,12
        ld a,$20
mmcol:
        push af ;the push and pop are wasted clocks
mmcolwait: ;but this only occurs 12 times
        in a,(c)
        rla
        jr c,mmcolwait
        pop af
        out ($10),a
        push af
        ld b,64
mmrow:
        in a,(c)
        rla
        jr c,mmrow
        ld a,(hl)
        out ($11),a
        add hl,de
        djnz mmrow
        pop af
        dec h
        dec h
        dec h
        inc hl
        inc a
        cp $2c
        jr nz,mmcol
        pop af
    ret po
#ifdef enablecn2eis
    ei
#endif
    ret