;###################################

#define FWAIT   in f, (c) \ jp m, $-2

grayCopy:
    push    ix
    ld  a, (grayB)
    ld  b,a
    ld  de, (grayDE)
    ld  c, $10

    ld  a, $80
    ld  ixl, a

outerGray:
    FWAIT
    out ($10), a

    ld  a, $20
    FWAIT
    out ($10), a

    ld  ixh, 4

grayLoop:
    ld  a, (hl)
    inc hl
    xor (hl)
    and b
    xor (hl)
    inc hl

    FWAIT
    out ($11), a

    ld  a, (hl)
    inc hl
    xor (hl)
    and d
    xor (hl)
    inc hl

    FWAIT
    out ($11), a

    ld  a, (hl)
    inc hl
    xor (hl)
    and e
    xor (hl)
    inc hl

    FWAIT
    out ($11), a

    dec ixh
    jp  nz, grayLoop

    ld  a, b
    ld  b, d
    ld  d, e
    ld  e, a

    inc ixl
    ld  a, ixl
    cp  C0h
    jp  c,outerGray



grayQuit:
    ld  a,b
    ld  (grayB), a
    ld  (grayDE), de
    pop ix
    ret