*    TERMINET write routine.
*    This program calls the DJ board directly.

     org  100h

djcout    equ  0e406h         ;DJ output port.

start     mvi  c,01h          ;Get an input
          call 05h
          cpi  1bh            ;Done? (Escape character).
          jz   00h            ;Yes, restart CP/M
          call write
          jmp  start
write  cpi     0AH            ;no, process the character.
       jz      lines
       cpi     0Ch              
       jz      formf
       cpi     0Dh              
       jz      carrt
       call    djcout
       ret         
lines  call    djcout
       lxi     b,0580h
       jmp     sdelay
carrt  call    djcout
       lxi     b,0f00h
       jmp     sdelay
formf  call    djcout
       lxi     b,0000h 
       lxi     d,0105h
       jmp     ldelay
sdelay dcr     c
       jnz     sdelay
       dcr     b
       jnz     sdelay
       ret
ldelay call    sdelay
       dcr     e
       jnz     ldelay
       dcr     d
       jnz     ldelay
       ret