.module delay

__delay_ms::
    ld      b, a
1$:
    ld      hl, #400
2$:
    dec     hl
    ld      a, h
    or      l
    jr      nz, 2$
    djnz    1$
    ret