;********electronixforu.com 
; By: Engr. Tarique R. Memon
; 
ORG 0
  mov tmod, #20h
  mov th1, #-3
  mov scon, # 50h
  setb tr1
  mov a, # 'E'
  acall trans
  acall DELAY
  mov a, # 'L'
  acall trans
  acall DELAY
  mov a, # 'E'
  acall trans
  acall DELAY
  mov a, # 'C'
  acall trans
  acall DELAY
  mov a, # 'T'
  acall trans
  acall DELAY
  mov a, # 'R'
  acall trans
  acall DELAY
  mov a, # 'O'
  acall trans
  acall DELAY
  mov a, # 'N'
  acall trans
  acall DELAY
  mov a, # 'I'
  acall trans
  acall DELAY
  mov a, # 'X'
  acall trans
  acall DELAY
  mov a, # 'F'
  acall trans
  acall DELAY
  mov a, # 'O'
  acall trans
  acall DELAY
  mov a, # 'R'
  acall trans
  acall DELAY
  mov a, # 'U'
  acall trans
  acall DELAY
  mov a, # '.'
  acall trans
  acall DELAY
  mov a, # 'C'
  acall trans
  acall DELAY
  mov a, # 'O'
  acall trans
  acall DELAY
  mov a, # 'M'
  acall trans
  acall DELAY
stop:sjmp stop  
  
DELAY: MOV R5, # 250
MOV R6, # 50
DLOOP: DJNZ R5, DLOOP
DJNZ R6, DLOOP
RET

trans: mov sbuf, a
here:  jnb TI, here
clr TI
ret
  end