Org	*

ASCII_Out:
                 ACALL hex_ascii2                        
                 ACALL Serial_Out                        
                 XCH   A,B                         
                 ACALL Serial_Out                        
                 RET                                  

Out_DPTR          
		 ACALL Enter_Code                        
                 MOV   A,DPH                         
                 ACALL ASCII_Out                        
                 MOV   A,DPL                         
                 ACALL ASCII_Out                        
                 RET                                  




Enter_Code:
                 PUSH  A
                 MOV   A,#00Dh                        
                 ACALL Serial_Out                        
                 MOV   A,#00Ah                        
                 ACALL Serial_Out                      
                 POP   A                           
                 RET                                  

Init_Serial:
	MOV     SCON,#52H        ; Mode 1 Ren
	MOV	TMOD,#20H        ; T0 Mode 2, T1 Mode 2
	MOV	TH1,#0FDH        ; 9600 Baudrate
	MOV     TCON,#040H       ; T1 On, T0 Off
	MOV     PCON,#00H        ;
	RET   

Serial_Out:
                 CLR   TI
                 MOV   SBUF,A                         
                 JNB   TI,*                  
                 RET

Serial_In:
                 CLR   RI
                 JNB   RI,*                  
                 MOV   A,SBUF                         
                 RET                                  

KirimPesan_Serial:
                 MOV   A,#000h
                 MOVC  A,@A+DPTR                      
                 CJNE  A,#00Fh,Send_String                
                 RET                                  

Send_string:
                 ACALL Serial_Out
                 INC   DPTR                           
                 AJMP  KirimPesan_Serial