/*------------------------------------------------------------------------------
;  This file is part of a exercise.
;  Copyright (c)
;  Version: 1.0 
;-------------------------------------------------------------------------------
;  Filename:
;  SLAVEFUNC.A51
;  Function:   
;
;  Author:
;  pirate
;     
;  Writedate:
;  Oct.18 2005
;  Moddate(latest):
;  Oct.18 2005
;-------------------------------------------------------------------------------
*/
;******************************D E F I N I T I O N******************************
                               NAME SLAVEFUNCTION			   
;*****************************D E C L A R A T I O N*****************************


                    PUBLIC  _Nop
		    PUBLIC  _SendChar
		    PUBLIC  _DelayXs
		   


SLAVEFUNC_ROUTINE   SEGMENT CODE
                    RSEG    SLAVEFUNC_ROUTINE

;-------------------------------------------------------------------------------
;a nop function for delay
_Nop:               NOP
                    RET

;-------------------------------------------------------------------------------
;send a char from uart
_SendChar:          MOV     A,R7
                    CLR     TI
		    MOV     SBUF,A
LPSD:               JNB     TI,LPSD
                    CLR     TI
		    RET

;-------------------------------------------------------------------------------
;delayXs
_DelayXs:           MOV     R4,#20
DLP0:		    MOV     R5,#250
DLP1:		    MOV     R6,#200
		    DJNZ    R6,$
		    DJNZ    R5,DLP1
		    DJNZ    R4,DLP0
		    DJNZ    R7,_DelayXs
		    RET
                    
;-------------------------------------------------------------------------------
;stop compiling

                    END