先来个汇编的,这是网上的。
MOV 20H, #99H
LOOP:
MOV A, 20H
MOV P1,A
SUBB A, #01H
MOV B, #10H
DIV AB
XCH A, B
SUBB A, #0AH
JC L1
ADD A, #04H
JMP L2
L1: ADD A, #0AH
L2:
SWAP A
ORL A, B
SWAP A
MOV 20H, A
lcall Delay1S
CJNE A,#00H,LOOP
MOV 20H, #99H
JMP LOOP
; 1秒的延时程序
Delay1S:
mov r1,#48
del0:
mov r2,#100
del1: mov r3,#100
djnz r3,$
djnz r2,del1
djnz r1,del0
Ret
END
//这个程序能实现100以内压缩BCD码的减法调整