ORG1000H
MOVR5,#70H
MOVR6,#30H
MOVR7,#00H
LOOP0:MOVA,R5
MOV@R6,A
INCR7
INCR5
INCR6
CJNER7,#20H,LOOP0
MOVR0,#13H
MOVR1,#30H
MOVR2,#00H
MOVR3,#00H
MOVR4,#00H
LOOP:MOVA,@R1
CJNEA,#00H,LOOP1
LOOP1:JNCLOOP2
INCR4
LOOP2:JZNEXT
INCR2
NEXT:INCR3
DECR0
INCR1
CJNER0,#00H,LOOP
END
|