asdf.asm

来自「这是一个24C02的程序」· 汇编 代码 · 共 167 行

ASM
167
字号
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







⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?