Hi,

This routine is extracted from Reads51 of Rigel Corporation.

To print, send this instruction.

;---- Calling Routine --------

acall print
db "Printing Routine",0


;---- Printing routine -------

PRINT: pop dph
pop dpl
prtstr:
clr a
movc a, @a+dptr
cjne a, #0h, mchrok
sjmp prtdone
mchrok:
MOV sbuf,a
loop1X: CPL WATCH_DOG
JNB ti,loop1X
CLR ti

prtdone:
mov a, #1h
jmp @a+dptr