pcf8574led.asm

C8051F.rar

;实验程序A：PCF8574LED。ASM  PCF8574控制6位数码显示
;显示子程序 : 在六个数码管上显示数据。数值在71H ～ 76H之中。不用键盘。
  $include(c8051f020.inc)
 SLA1W          EQU   70H      ;PCF8574 A片写的节点地址 (可选地址开关：000H)
 SLA1R          EQU   71H      ;PCF8574 A片读的节点地址 
 SLA2W          EQU   72H      ;PCF8574 B片写的节点地址 (可选地址开关：001H )    
 SLA2R          EQU   73H      ;PCF8574 B片读的节点地址 
 SLA3W          EQU   76H      ;PCF8574 C片写的节点地址 (可选地址开关：011H)
 SLA3R          EQU   77H      ;PCF8574 C片读的节点地址 
 SLA            EQU   60H
SLAW            EQU   62H
 SLAR           EQU   63H 
NUMBYT          EQU   61H     ;被传送的字节数存放单元
 MTD            EQU   20H     ;发送数据缓冲区首地址
 MRD            EQU   30H     ;接收字节缓冲区首地址          
 VSCL           EQU   P0.1    ;模拟I2C总线时钟线
 VSDA           EQU   P0.0    ;模拟I2C总线数据线
        ORG        00H
        AJMP       START
        ORG        0030H
START:  MOV        SP,#7H   ;堆栈地址
        MOV    WDTCN,#0DEH  ;禁止看门狗定时器
        MOV    WDTCN,#0ADH;
	   MOV     XBR2,#40H  ;C8051F交叉开关使能
        ACALL   SEND        ;传送子程序,在RAM71H-76H中分别存入1，2，3，4，5，6
DD:	   ACALL	   DISP       ; 显示六位数字:'1', '2', '3', '4,' '5', '6'
	   AJMP       DD
       ;显示子程序:显示固定存储区（即CPU RAM 71H～76H）中存放的数值
DISP:  MOV	   R2,#01H            ; 字位码在R2中，（R2）= #1，#2，#4，#8
       MOV	   R5,#6              ;显示6个数。
       MOV         R0,#71H          ;71H为数据区首地址
DSP1:  MOV         A,R2
       ACALL       WRITEB           ;B口输出作为六位数码管的位选
       MOV	    A,@R0              ;将要显示的数值送入A中
DSP2:  MOV	    DPTR,#BCD          ;查表
       MOVC	    A,@A+DPTR  ;查表，查出要显示的数值的字形码           
       ACALL       WRITEC             ;C口输出字形码              
       ACALL 	    DEL0               ;延时
       MOV         A,R2
       RL	          A
       MOV         R2,A         ; 字位码指向下一位
       INC	     R0           ;准备显示下一位
       DJNZ  	   R5, DSP1
       RET
BCD:   DB	3FH,06H,5BH,4FH  			  ;显示数值0，1，2，3
       DB	66H,6DH,7DH,07H       	              ;4，5，6，7
       DB	7FH,6FH,77H,7CH                       ;8，9，A，B
       DB	39H,5EH,79H,71H                       ;C，D，E，F
       DB	73H,3EH,31H,6EH                       ;P，U，Z，Y
       DB	40H,00H	                             ;- ，灭
DEL0:   MOV  		R6,#00H            ;延时子程序
TM:     MOV		R7,#01                   
        DJNZ 		R7,$
        DJNZ 		R6,TM
	RET
;传送子程序, 在RAM  71H-76H中分别存入六位数字:'1', '2', '3', '4,' '5', '6'
SEND:   MOV   	R7,#6     
MOV     R0, #71H
MOV   	A,#1
SS:     MOV   	@R0,A
        INC    	A
        INC    	R0
        DJNZ   	R7,SS
        RET
WRITEB:  MOV    SLAW,#SLA2W      ;将数据送器件B
         MOV    SLAR,#SLA2R
        ACALL   WRBC   
         RET
WRITEC:  MOV    SLAW,#SLA3W     ;将数据送器件C
         MOV    SLAR,#SLA3R
 ACALL   WRBC   
         RET             
WRBC:    MOV    MTD,A
         MOV    SLA,SLAW
         MOV    NUMBYT,#1
         LCALL  WRNBYT
         RET   
;发送一个字节数据（WRBYT）子程序,该子程序是向虚拟IIC总线的数据线VSDA上发送
;一个字节数据的操作。调用本子程序前将要发送的数据送入A中。占用资源：R0，C。        
WRNBYT: MOV          R3,NUMBYT
          LCALL    STAA             ;启动IIC总线
          MOV         A,SLA         ;发送SLAW字节
          LCALL       WRBYT
          LCALL       CACK          ;检查应答位
          JB          F0,WRNBYT     ;非应答位则重发
          MOV         R1,#MTD
  WRDA: MOV         A,@R1
          LCALL       WRBYT
          LCALL       CACK
          JB          F0,WRNBYT
          INC         R1
          DJNZ        R3,WRDA
          LCALL       STOP
          RET
;向被控器件发送N个字节数据（WRNBYT）子程序
WRBYT:   MOV	     R0,#08H       ;8为数据长度送R0中
   WLP:  RLC         A           ;发送数据左移，使发送位入C
         JC          WR1         ;判断发送"1"还是"0"，发送"1"转WR1
         AJMP        WR0         ;发送"0"转WR0
  WLP1:  DJNZ         R0,WLP     ;8位是否发送完，未完转WLP
         RET                     ;8位发送完结束
   WR1:  SETB         VSDA       ;发送"1"程序段
         SETB        VSCL  
         NOP
         NOP
         CLR        VSCL
         CLR        VSDA
         AJMP       WLP1
  WR0:   CLR        VSDA         ;发送"0"程序段
         SETB       VSCL
         NOP
         NOP
         CLR    VSCL
         AJMP   WLP1
;通用N字节接收子程序（RDNBYT）
 RDNBYT:MOV        R3,NUMBYT
        LCALL      STAA               ;发送启动位
        MOV        A,SLA             ;发送寻址字节（读）
        LCALL      WRBYT
        LCALL      CACK              ;检查应答位
        JB         F0,RDNBYT         ;非正常应答时重新开始
RDN:    MOV        R1,#MRD           ;接收数据缓冲区首址MDR入R1
RDN1:   LCALL      RDBYT             ;读入一个字节到接收数据缓冲中
        MOV        @R1,A
        DJNZ       R3,ACK            ;N节读完否?未完转ACK
        LCALL      MNACK             ;N个字节读完发送非应答位
        LCALL      STOP              ;发送停止信号
        RET                         ;子程序结束
 ACK:   LCALL      MACK              ;发送应答位
        INC        R1                ;指向下一个接收数据缓冲单元
        SJMP       RDN1             ;转读入下一个字节数据
CACK:   SETB    VSDA                ;置VSDA为输入方式
        SETB    VSCL                ;使VSDA上数据有效
        CLR     F0                  ;预设F0=0
        MOV     C,VSDA              ;输入VSDA引脚状态
        JNC     CEND                ;检查VSDA状态，正常应答转CEND，且F0=0
        SETB    F0                  ;无正常应答，F0=1
CEND:  CLR     VSCL                ;子程序结束，使VSCL=0
        RET
MACK:  CLR       VSDA;发送应答位MACK子程序
        SETB      VSCL
        NOP
        NOP
        CLR       VSCL
        SETB      VSDA
	     RET
 MNACK: SETB        VSDA   ;发送非应答位 MNACK子程序
         SETB        VSCL
         NOP
         NOP
         CLR         VSCL
         CLR         VSDA
         RET
;从VSDA上接收一个字节数据（RDBYT）子程序，该子程序用来从VSDA上读取一个字节数据.执行本程序后，从VSDA上读取的一个字节存放在R2或A中。资源占用：R0，R2，C。
 RDBYT:  MOV	R0,#08H                ;8位数据长度如R0
   RLP:  SETB        VSDA            ;置VSDA为输入方式
         SETB       VSCL             ;使VSDA上数据有效
         MOV        C,VSDA           ;读入VSDA引脚状态
         MOV        A,R2             ;读入"0"程序段，由C拼装入R2中
         RLC        A
         MOV        R2,A
         CLR        VSCL             ;使VSCL=0可继续接收数据位
         DJNZ       R0,RLP           ;8位读完否?未读完转RLP
         RET
STAA:    SETB	 VSDA;启动STAA子程序
         SETB	 VSCL
         NOP  
         NOP
         CLR	 VSDA
         NOP
         NOP
         CLR   VSCL
         RET
 STOP:CLR	VSDA;停止（STOP）子程序
      SETB	VSCL
      NOP  
      NOP
      SETB	VSDA
      NOP
      NOP
      CLR       VSDA
      CLR       VSCL
      RET        
         END