NGLP1: MOV A,#99H SUBB A,@R0 MOV @R0,A DEC R0 DJNZ R1,NGLP1 INC R0 INC R0 INC R0 MOV R1,#3 SETB C NGLP2: CLR A ADDC A,@R0 DA A MOV @R0,A DEC R0 DJNZ R1,NGLP2 BSBRT: RET