COUNT: EQU 03H
TABLE: DEFB 01H,20H,50H,3AH,2BH,E5H
DSRT:
MOV R6,#00H
MOV R7,#COVNT
DEC R1
MOV R0,#TAB
MOV R1,#23H
LOOP:
MOV 2AH,@R0
INC R0
MOV 2BH,@R0
MOV 2CH,@R1
INC R1
MOV 2DH,@R1
MOV R2,#02H
CLR C
MOV A,2AH
SUBB A,2CH
MOV 2AH,A
MOV A,2BH
SUBB A,2DH
MOV ABH,A
JNC C,LOOP2
DEC R0
DEC R1
MOV R2,#01H
LOOP1:
MOV 2AH,@R0
MOV 2DH,@R1
MOV @R1,2AH
MOV @R0,2DH
MOV R6,#01H
LOOP2:
INC R0
INC R1
DEC R2
MOV A,R2
JZ A,LOOP1
DJNZ R7,LOOP
DEC R6
MOV A,R6
JZ A,DSRT
RET