SETBET0 SETBET1 SETBTR0 SETBTR1 SETBEX0 SETBIT0 SETBEX1 SETBIT1 NEXT1:?JNBP3.0,NEXT2 SJMPNEXT1NEXT2:SETBEACLRP1.0 SETBP1.1MOVA,#00H ACALLSQR SJMPSTART INT_0:CLREACLRP1.1 SETBP1.0MOVA,#01H ACALLSQR ACALLFASHENG RETIINT_1:CLREACLRP1.1 SETBP1.0MOVA,#02H ACALLSQR ACALLFASHENG RETIT_0:CLREACLRP1.1 SETBP1.0MOVA,#03H ACALLSQR ACALLFASHENG MOVTH0,#0FFH MOVTL0,#0FFH RETIT_1:CLREACLRP1.1 SETBP1.0MOVA,#04H ACALLSQR ACALLFASHENG MOVTH1,#0FFH MOVTL1,#0FFH RETISQR:MOVDPTR,#TABLE MOVCA,@A+DPTR MOVP0,A RETFASHENG:MOVR4,#50loop2:MOVR3,#50loop1:SETBP1.2ACALLDELAY1CPLP1.2ACALLDELAY2DJNZR3,loop1DJNZR4,loop2 RETIDELAY1:?MOV?R7,#10H D1:?MOVR6,#10HD2:DJNZ?R6,D2DJNZR7,D1RETDELAY2:?MOV?R7,#10H D4:?MOV?R6,#20HD3:?DJNZ?R6,D3?DJNZ?R7,D4RET TABLE:DB3FH,06H,5BH,4FH,66HDB6DH,7DH,07H,7FH,6FH DB77H,7CH,39H,5EH,79H,71H END