nx2501.asm

单片机混合编程 嵌入式/单片机编程单片机混合编程 嵌入式/单片机编程

; 这是被CALL5045.c调用的x5045汇编程序，文件名为NX2501.ASM 
; NX2501.ASM  chai1,_a_func1
NAME x2501
?PR?_a_func1?X2501     SEGMENT CODE
?DT?_a_func1?X2501     SEGMENT DATA OVERLAYABLE
?DT?X2501              SEGMENT DATA

PUBLIC   chai1
PUBLIC   ?_a_func1?BYTE
PUBLIC   _a_func1
RSEG     ?DT?_a_func1?X2501
	 ?_a_func1?BYTE:
	 aa:DS 2
	 bb:DS 1
RSEG     ?DT?X2501
	 chai1:DS 1
RSEG     ?PR?_a_func1?X2501
	 _a_func1:

CS       EQU P0.0
SO       EQU P0.1
SI       EQU P0.2
SCK      EQU P0.3

		MOV aa,R7
		MOV aa+1,R6
		MOV bb,R5
		LCALL WREN
		LCALL WRSR
		LCALL WREN
		LCALL BYTE_WRITE
		RET
BYTE_WRITE:     NOP
		MOV DPH,aa+1
		MOV DPL,aa
		CLR SCK
		CLR CS
		MOV A,#0AH
		MOV B,DPH
		MOV C,B.0
		MOV ACC.3,C
		LCALL BYTE_OUT
		MOV A,DPL
		LCALL BYTE_OUT
		MOV A,bb
		LCALL BYTE_OUT
		CLR SCK
		SETB CS
		LCALL WIP_POLL
		RET
WREN:           CLR SCK
		CLR CS
		MOV A,#06H
		LCALL BYTE_OUT
		CLR SCK
		SETB CS
		RET
WRSR:           CLR SCK
		CLR CS
		MOV A,#01H
		LCALL BYTE_OUT
        	MOV A,#00H     ;dog 1.4s
		LCALL BYTE_OUT
		CLR SCK
		SETB CS
		LCALL WIP_POLL
		RET
RDSR:           CLR SCK
		CLR CS
		MOV A,#05H
		LCALL BYTE_OUT
		LCALL BYTE_IN
		CLR SCK
		SETB CS
		RET
WIP_POLL:       MOV R1,#099H
WIP_POLL1:      LCALL RDSR
		JNB ACC.0,WIP_POLL2
		DJNZ R1,WIP_POLL1
WIP_POLL2:      RET
BYTE_OUT:       MOV R0,#08H
BOUT1:          CLR SCK
		RLC A
		MOV SI,C
		SETB SCK
		DJNZ R0,BOUT1
		CLR SI
	 	RET
BYTE_IN:        MOV R0,#08H
BIN1:           SETB SCK
		CLR SCK
		MOV C,SO
		RLC A
	 	DJNZ R0,BIN1
	  	RET
		END