bcdchange.asm

前两天一个朋友要我写一个51例程

BCDADDP	SEGMENT	CODE  

PUBLIC	BCDADD
RSEG	BCDADDP
BCDADD:	 			;不带参数传递, 
	PUSH	ACC
	PUSH	0
	PUSH	PSW
 	MOV	A,	51H
	CLR	C
	ADDC A,#1	
   	DA	A
	MOV	51H,	A
	MOV	55H,#0
	MOV	R0,#55H
	XCHD	A,	@R0
	SWAP	A
	MOV	54H,A
	MOV	A,	50H
	ADDC	A,#0
	DA	A
	MOV	50H,A
	MOV	53H,#0
	MOV	R0,	#53H
	XCHD	A,	@R0
	SWAP	A
	MOV	52H,A  
	POP		PSW
	POP		0
	POP		ACC
	RET

;PUBLIC	_BCDCHGRG
;RSEG	BCDCHGP
;_BCDCHGRG:	   		;带寄存器参数传递
;	RET
END