0.png (424.35 KB, 下載次數(shù): 71)
下載附件
2016-12-31 23:39 上傳
ORG 0000H
LJMP START
ORG 0003H
LJMP LOOP
ORG 0100H
START:MOV R2,#8
MOV A,#0FEH
SETB C
MOV IE,#10000001B
LJMP $
LOOP:MOV P1,A
LCALL DELAY
RLC A
DJNZ R2,LOOP
MOV R2,#8
RETI
DELAY:MOV R5,#20
D1:MOV R6,#20
D2:MOV R7,#248
DJNZ R7,$
DJNZ R6,D2
DJNZ R5,D1
RET
END
|