a.asm

汇编程序(cygnal c8051f021)

$INCLUDE(C8051F020.INC)

DAT1 			DATA 021H
DAT2 			DATA  022H

DIN 			BIT P1.1
LOAD 			BIT P1.2
CLK 			BIT P1.3


ORG 0000H
AJMP START
ORG 0100H
START:		MOV WDTCN,#0DEH
					MOV WDTCN,#0ADH
SCLK:			MOV OSCXCN,#67H
					MOV ACC,#00H
					DJNZ ACC,$
					DJNZ ACC,$
					DJNZ ACC,$
					CLR C
WAIT:			MOV ACC,OSCXCN
					JNB ACC.7,WAIT
					ORL OSCXCN,#80H
					ORL OSCICN,#08H
CTSET:		MOV XBR2,#040H
					MOV CKCON,#00H
					MOV TCON,#00H				
					MOV TMOD,#01H
MAIN:			LCALL RS7219
LOOP:			MOV DAT1,#01H
					MOV DAT2,#00H
					LCALL SEND
					MOV DAT1,#01H
					MOV DAT2,#01H
					LCALL SEND
					SJMP LOOP
					
DEL1S:		MOV R0,#014H 
DLOP1:		MOV TH0,#03CH
					MOV TL0,#0B0H
					SETB TR0
DLOP2:		JNB TF0,DLOP2
					CLR TF0
					CLR TR0
					DJNZ R0,DLOP1
					RET
								
								
RS7219:	  MOV DAT1,#09H //硬件译码
					MOV DAT2,#0FFH 
					LCALL SEND
					MOV DAT1,#0AH //强度5
					MOV DAT2,#04H
					LCALL SEND
					MOV DAT1,#0BH //限扫4
					MOV DAT2,#03H
					LCALL SEND						
					MOV DAT1,#0CH// 启动	
					MOV DAT2,#01H
					LCALL SEND
					RET

SEND:			MOV R0,#08H
					CLR LOAD
					MOV 040H,A
					PUSH 040H
SENDLOOP: CLR CLK										
					MOV C,DAT1.7
					MOV DIN,C
					SETB CLK
					MOV A,DAT1
					RL A
					MOV DAT1,A
					DJNZ R0,SENDLOOP
SEND1:		MOV R3,#08H
SENDLOOP1:CLR CLK
					MOV C,DAT2.7
					MOV DIN,C
					SETB CLK
					MOV A,DAT2
					RL A
					MOV DAT2,A
					DJNZ R3,SENDLOOP1
					SETB LOAD
					POP 040H
					MOV A,040H
					RET
					END