asdf.asm

这是一个24C02的程序

SDAK BIT P3.0
SCLK BIT P3.1
         ORG 0
		 AJMP STAR
START:   SETB SDAK
         NOP
		 SETB SCLK
		 NOP
		 NOP
		 NOP
		 NOP
		 CLR SDAK
		 NOP
		 NOP
		 NOP
		 NOP
		 NOP
		 CLR SCLK
		 NOP
		 RET
STOP:    CLR  SDAK
         SETB SCLK
		 NOP
		 NOP
		 NOP
		 NOP
		 NOP
		 NOP
		 SETB SDAK
		 NOP
		 NOP
		 NOP
		 NOP
		 CLR SCLK
		 NOP
		 NOP
		 RET
TACK:    CLR SDAK
         NOP
		 NOP
		 NOP
		 SETB SCLK
		 NOP
		 NOP
		 NOP
		 NOP
		 CLR SCLK
		 NOP
		 NOP
		 RET
NOTACK:  SETB SDAK
         NOP
		 NOP
		 NOP
		 NOP
		 SETB SCLK
		 NOP
		 NOP
		 NOP
		 NOP
		 CLR SCLK
		 NOP
		 RET
WRBYT:   MOV R7,#8
WRBYT1:  RLC A
         JC WRBYT2
		 CLR SDAK
		 SETB SCLK
		 NOP
		 NOP
		 NOP
		 NOP
		 CLR SCLK
		 DJNZ R7,WRBYT1
		 RET
WRBYT2:  SETB SDAK
         NOP
		 NOP
		 SETB SCLK
		 NOP
		 NOP
		 NOP
		 NOP
		 CLR SCLK
		 CLR SDAK
		 DJNZ R7,WRBYT1
		 RET
RDBYT:   MOV R7,#8
RDBYT1:  SETB SDAK
         SETB SCLK
		 MOV C,SDAK
		 MOV A,R6
		 RLC A
		 MOV R6,A
		 CLR SCLK
		 DJNZ R7,RDBYT1
		 RET
STAR :   ACALL DLY5M
         ACALL DLY5M
		 ACALL RD2416
		 ANL A,#0FH
		 MOV P1,A
		 MOV P2,#0FFH
ST1:     ACALL RD2416
         ANL A,#0FH
		 MOV P1,A
		 MOV A,P2
		 ANL A,#0FH
		 MOV B,A
		 ACALL WR2416
		 ACALL DLY5M 
		 ACALL DLY5M
		 ACALL DLY5M
		 SJMP ST1
RD2416:  ACALL START
         MOV A,#0A0H
		 ACALL WRBYT
		 ACALL TACK
		 MOV A,#0
		 ACALL WRBYT
		 ACALL TACK
		 ACALL START
		 MOV A,#0A1H
		 ACALL WRBYT
		 ACALL TACK
		 ACALL RDBYT
		 ACALL NOTACK
		 ACALL STOP 
		 ACALL DLY5M
		 RET
WR2416:   ACALL START
         MOV A,#0A0H
		 ACALL WRBYT
		 ACALL TACK
		 MOV A,#0
		 ACALL WRBYT
		 ACALL TACK 
		 MOV A,B
		 ACALL WRBYT 
		 ACALL TACK
		 ACALL STOP
		 ACALL DLY5M
		 ACALL DLY5M
		 ACALL DLY5M
		 ACALL DLY5M
		 RET
DLY1S:   MOV R5,#20
     D1: MOV R4,#100
	 D2: MOV R3,#250
	 DJNZ R3,$
	 DJNZ R4,D2
	 DJNZ R5,D1
	 RET
DLY5M : MOV R4,#10
DLY5M1: MOV R3,#248
        DJNZ R3,$
		DJNZ R4,DLY5M1
		RET
		END