/**=============發送==================**/ 
KEYB    EQU     20H.0    ;按鍵標致（為1時有鍵按下） 

        ORG 0000H 

        AJMP MAIN 
        ORG 0030H 
MAIN:    
/*         MOV  SP,#60H 
         MOV  TMOD,#20H 
         MOV  TL1,#0E6H 
         MOV  TH1,#0E6H 
         MOV  SCON,#50H 
         MOV  PCON,#80H      ;   
        SETB TR1 
*/      
BEGIN:  ACALL KEY         ;調用鍵盤掃描 
        JB KEYB,BEGIN_     ;判斷是否有鍵按下    
        JMP BEGIN 
BEGIN_: CLR KEYB 
         MOV  R0,#80H 
         MOV  A,R4 
         MOV  @R0,A 
         MOV  P0,A 
/* 
;發送聯絡信號  
ITX4:   MOV  SBUF,#33H     ;發給從機1 
ITX2:  JBC TI,ITX1 
       JMP ITX2            ;等待發送 
ITX1:  JBC RI,ITX3        ;等待二號機回答 
       JMP ITX1 
ITX3:   MOV  A,SBUF        ;接收聯絡信號 
       XRL A,#33H        ;異或，等于33H的話，A就為0 
       JNZ ITX4            ;二號機未準備好，繼續聯絡    
;串行發送 
CK2:    MOV  R0,#80H        ;開始讀取,數據傳送    
START:  MOV  A,@R0 
        MOV  SBUF,A 
WAIT:  JBC TI,CONT 
       JMP WAIT 
CONT:  JMP BEGIN */ 
        SJMP BEGIN 

;********鍵盤掃描********調用鍵盤掃描以后會返回一個鍵值存于R4中，和一個標致位KEYB     
KEY:     MOV  A,#0FH         ;查詢是否有鍵按下    
         MOV  P1,A 
         MOV  A,P1 
        CJNE A,#0FH,KEYY 
        CLR KEYB 
        AJMP NEXT 
KEYY:   ACALL DEL            ;去抖動     
         MOV  A,P1 
        CJNE A,#0FH,GO 
         MOV  R4,#10H            ;若有抖動，則返回無效鍵值     
        CLR KEYB 
        AJMP NEXT 
GO:     SETB KEYB            ;置按鍵標致位     
         MOV  R2,A            ;R2中存放著行信息           
    X1: CJNE R2,#0EH,X2        ;若為第一行    
         MOV  A,#0F0H 
         MOV  P1,A 
         MOV  A,P1 
         MOV  R3,A            ;R3中存放著列信息         
Y0:        CJNE R3,#0E0H,Y1    ;若為第一列                 
         MOV  R4,#00H            ;R4中存放要返回的鍵值 
        AJMP NEXT 
Y1:     CJNE R3,#0D0H,Y2    ;若為第二列,Yn表示16個鍵對應的操作    
         MOV  R4,#01H 
        AJMP NEXT 
Y2:     CJNE R3,#0B0H,Y3    ;若為第三列 
         MOV  R4,#02H 
        AJMP NEXT 
Y3:     CJNE R3,#70H,X2        ;若為第四列 
         MOV  R4,#03H 
        AJMP NEXT 
    X2: CJNE R2,#0DH,X3        ;若為第二行 
         MOV  A,#0F0H 
         MOV  P1,A 
         MOV  A,P1 
         MOV  R3,A 
Y4:        CJNE R3,#0E0H,Y5    ;若為第一列 
         MOV  R4,#04H 
        AJMP NEXT 
Y5:     CJNE R3,#0D0H,Y6    ;若為第二列 
         MOV  R4,#05H 
        AJMP NEXT 
Y6:     CJNE R3,#0B0H,Y7 
         MOV  R4,#06H 
        AJMP NEXT 
Y7:     CJNE R3,#70H,X3 
         MOV  R4,#07H 
        AJMP NEXT 
   X3:  CJNE R2,#0BH,X4         ;若為第三行        
         MOV  A,#0F0H 
         MOV  P1,A 
         MOV  A,P1 
         MOV  R3,A 
Y8:        CJNE R3,#0E0H,Y9 
         MOV  R4,#08H 
        AJMP NEXT 
Y9:     CJNE R3,#0D0H,Y10 
         MOV  R4,#09H 
        AJMP NEXT 
Y10:    CJNE R3,#0B0H,Y11 
         MOV  R4,#0AH 
        AJMP NEXT 
Y11:    CJNE R3,#70H,X4 
         MOV  R4,#0BH 
        AJMP NEXT 
   X4:  CJNE R2,#07H,NEXT      ;若為第四行 
         MOV  A,#0F0H 
         MOV  P1,A 
         MOV  A,P1 
         MOV  R3,A 
Y12:    CJNE R3,#0E0H,Y13 
         MOV  R4,#0CH 
        AJMP NEXT 
Y13:    CJNE R3,#0D0H,Y14 
         MOV  R4,#0DH 
        AJMP NEXT 
Y14:    CJNE R3,#0B0H,Y15 
         MOV  R4,#0EH 
        AJMP NEXT 
Y15:    CJNE R3,#70H,NEXT 
         MOV  R4,#0FH 
NEXT:   RET 



DEL:      MOV  R7,#07H 
DEL1_:   MOV  R6,#0FFH 
        DJNZ R6,$ 
         DJNZ R7,DEL1_ 
         RET 


   END 





/**==============接收========================**/ 
;********89C51引腳定義******** 
    RS    BIT     P3.6     ;數據/命令選擇（H/L） 
    R_W   BIT     P2.5     ;讀/寫選擇（H/L） 
    E     BIT     P2.6     ;使能信號 
    DB0_DB7  EQU  P0     ;數據傳送端口 
;***************程序開始**************   


        ORG 0000H 
        AJMP MAIN 
        ORG 0030H 
MAIN:    
         
         MOV  R4,#80H       ;第一行首地址從80H開始 
         MOV  R1,#0C0H      ;第一行首地址從C0H開始 
         MOV  R2,#00H 
         MOV  R3,#16 
        LCALL INITIAL        ;顯示初始化程序 
        LCALL CLS          ;調用清屏子程序 
AGAIN:     
         MOV  A,R4 
        LCALL WRITE_COM       ;調用寫指令程序 
         MOV  A,R2           ;取表格中的第幾個字符 
         MOV  DPTR,#LINE1       ;取表格的首地址 
        LCALL DISP           ;調用顯示子程序 
        INC R4 
        INC R2 
        DJNZ R3,AGAIN 
         MOV  R2,#00H 
         MOV  R3,#16 
AGAIN1:     
         MOV  A,R1 
        LCALL WRITE_COM       ;調用寫指令程序 
         MOV  A,R2           ;取表格中的第幾個字符 
         MOV  DPTR,#LINE3       ;取表格的首地址 
        LCALL DISP           ;調用顯示子程序 
        INC R1 
        INC R2 
        DJNZ R3,AGAIN1 


;************************************************* 
         MOV  TMOD,#20H 
         MOV  TL1,#0E6H 
         MOV  TH1,#0E6H 
         MOV  SCON,#50H 
         MOV  PCON,#80H 
        SETB TR1 
      
BEGIN: JBC RI,BR2 
       JMP BEGIN 
BR2:    MOV  A,SBUF 
       XRL A,#33H 
       JNZ BEGIN 
BT1:    MOV  SBUF,#33H 
BS1:   JBC TI,BR3 
       JMP BS1 

BR3:    MOV  R0,#80H 
WAIT:  JBC RI,READ 
       JMP WAIT 
READ:   MOV  A,SBUF 
        MOV  @R0,A 
        MOV  P0,A 
;顯示接收數據    
         MOV  A,#0C7H 
        LCALL WRITE_COM       ;調用寫指令程序 
         MOV  A,@R0           ;取表格中的第幾個字符 
         MOV  DPTR,#LINE2       ;取表格的首地址 
        LCALL DISP           ;調用顯示子程序 
         
        SJMP BEGIN 

;****** 初始化LCM子程序****** 
INITIAL: MOV  A,#38H 
        LCALL WRITE_COM 
         MOV  A,#0EH  
        LCALL WRITE_COM 
         MOV  A,#06H  
        LCALL WRITE_COM  
        RET 

;*******查詢忙碌標志信號子程序******** 
CHECK_BUSY:      
        PUSH ACC 
BUSY_LOOP:     
        CLR E 
        SETB R_W 
        CLR RS 
        SETB E 
         MOV  A, DB0_DB7 
        CLR E 
        JB ACC.7,BUSY_LOOP 
        POP ACC 
        LCALL DEL 
        RET 

;****** 寫指令到LCM子程序******* 
WRITE_COM:      
         LCALL CHECK_BUSY 
        CLR E 
        CLR RS  
        CLR R_W 
        SETB E 
         MOV   DB0_DB7,A 
        CLR E 
        RET 

;****** 寫數據到LCM子程序****** 
WRITE_DATA:      
        LCALL CHECK_BUSY 
        CLR E 
        SETB RS  
        CLR R_W 
        SETB E 
         MOV   DB0_DB7,A 
        CLR E 
        RET 
;*******顯示1個字符到LCM子程序******** 
DISP:     
;    PUSH ACC 
;    CLR A 
     MOV C A,@A+DPTR 
    LCALL WRITE_DATA 
;    POP ACC 
    RET 

;*******清除LCM子程序******* 
CLS:     MOV  A,#01H 
        LCALL WRITE_COM 
        RET 

;****延時子程序**** 
DEL:     
     MOV  R6,#5 
L1:     MOV  R7,#248 
    DJNZ R7,$ 
    DJNZ R6,L1 
    RET 
;******延時0.1s子程序:  T=兩個機器周期（2*1us）*R5(4)*R6(256)*R7(256)us=0.524288s 
DELL:   MOV  R7,#09H 
DEL1:  MOV  R6,#0FFH 
DEL2:  MOV  R5,#0FFH 
      DJNZ R5,$ 
      DJNZ R6,DEL2 
      DJNZ R7,DEL1 
      RET 

;*****LCM第一、二行顯示字符串***** 
LINE1:    DB "*** China OK ***",00H 
LINE2:    DB "0123456789ABCDEF",00H 
LINE3:    DB "-----(   )------",00H 


   END