ORG 0000H
START:MOV R1,#20
MOV R2,#10
MOV R3,#6
MOV R4,#00H
LOOP1:MOV R2,#10
LOOP:MOV A,R4
MOV B,#0AH
DIV AB
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P1,A
MOV A,B
MOVC A,@A+DPTR
MOV P2,A
LCALL DEL
INC R4
DJNZ R2,LOOP
DJNZ R3,LOOP1
MOV P1,#00
MOV P2,#00
LJMP START
DEL:MOV R7,#12
DEL1:MOV R6,#123
NOP
DEL2:DJNZ R6,DEL2
DJNZ R7,DEL1
DJNZ R1,DEL
RET
TAB:DB 3FE,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END
|