lcd_mono_data:
    move.l  (4, %sp), %a0       /* p_bytes */
    move.l  (8, %sp), %d0       /* count */
    lea.l   LCD_BASE_ADDRESS+2, %a1  /* LCD data port address */

.md_loop:
    move.b  (%a0)+, %d1
    move.w  %d1, (%a1)    /* byte transfers actually */
    move.w  %d1, (%a1)
    subq.l  #1, %d0
    bne.s   .md_loop
    rts