程序如下:
ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:
MOV 23H,#4
MOV 22H,#3
MOV 21H,#2
MOV 20H,#1
MOV R0,#20H
MOV R7,#10001000B
MOV R6,#4
LOOP:
MOV A,@R0
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P0,A
MOV A,R7
LCALL DS1MS
MOV P2,A
RR A
MOV R7,A
INC R0
DJNZ R6,LOOP
LJMP MAIN
DS1MS:
MOV R5,#10
LP:
MOV R4,#248
DJNZ R4,$
DJNZ R5,LP
RET
TAB:
DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END
|