;PROGRAM FOR RUNNING LIGHT 12 led 06.11.09 BY SD DWIVEDI Mod date 01.12.09 ;************************************************ COUNTER EQU 70H TCOUNTER EQU 71H DCOUNTER EQU 72H ;*********************************** LED1 EQU P0.0 LED2 EQU P0.1 LED3 EQU P0.2 LED4 EQU P0.3 LED5 EQU P0.4 LED6 EQU P0.5 ;*********************************** LED7 EQU P2.7 LED8 EQU P2.6 LED9 EQU P2.5 LED10 EQU P2.4 LED11 EQU P2.3 LED12 EQU P2.2 HOLDFUNCTION EQU P2.1 RUNSPEED EQU P2.0 ;************************************ ORG 00H sjmp START ORG 50H START:MOV P1,#00 ;CLR ALL LEDS CLR P3.7 SETB RUNSPEED ACALL DELAY ;************************************* FUNCTION1:MOV TCOUNTER,#10 REPT1: ACALL STEP1 DJNZ TCOUNTER,REPT1 JNB HOLDFUNCTION,FUNCTION1 MOV P0,#00 ;CLR ALL LEDS MOV P2,#00 ;CLR ALL LEDS ;************************************ FUNCTION2:MOV TCOUNTER,#10 REPT2: ACALL STEP2 DJNZ TCOUNTER,REPT2 JNB HOLDFUNCTION,FUNCTION2 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION3:MOV TCOUNTER,#10 REPT3: ACALL STEP3 DJNZ TCOUNTER,REPT3 JNB HOLDFUNCTION,FUNCTION3 ;************************************ MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION4:MOV TCOUNTER,#10 REPT4: ACALL STEP4 DJNZ TCOUNTER,REPT4 JNB HOLDFUNCTION,FUNCTION4 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION5:MOV TCOUNTER,#10 REPT5: ACALL STEP5 DJNZ TCOUNTER,REPT5 JNB HOLDFUNCTION,FUNCTION5 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION6:MOV TCOUNTER,#10 REPT6: ACALL STEP6 DJNZ TCOUNTER,REPT6 JNB HOLDFUNCTION,FUNCTION6 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION7:MOV TCOUNTER,#10 REPT7: ACALL STEP7 DJNZ TCOUNTER,REPT7 JNB HOLDFUNCTION,FUNCTION7 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION8:MOV TCOUNTER,#10 REPT8: ACALL STEP8 DJNZ TCOUNTER,REPT8 JNB HOLDFUNCTION,FUNCTION8 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION9:MOV TCOUNTER,#10 REPT9: ACALL STEP9 DJNZ TCOUNTER,REPT9 JNB HOLDFUNCTION,FUNCTION9 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION10:MOV TCOUNTER,#10 REPT10: ACALL STEP10 DJNZ TCOUNTER,REPT10 JNB HOLDFUNCTION,FUNCTION10 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION11:MOV TCOUNTER,#10 REPT11: ACALL STEP11 DJNZ TCOUNTER,REPT11 JNB HOLDFUNCTION,FUNCTION11 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION12:MOV TCOUNTER,#10 REPT12: ACALL STEP12 DJNZ TCOUNTER,REPT12 JNB HOLDFUNCTION,FUNCTION12 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION13:MOV TCOUNTER,#10 REPT13: ACALL STEP13 DJNZ TCOUNTER,REPT13 JNB HOLDFUNCTION,FUNCTION13 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION14:MOV TCOUNTER,#10 REPT14: ACALL STEP14 DJNZ TCOUNTER,REPT14 JNB HOLDFUNCTION,FUNCTION14 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION15:MOV TCOUNTER,#10 REPT15: ACALL STEP15 DJNZ TCOUNTER,REPT15 JNB HOLDFUNCTION,FUNCTION15 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION16:MOV TCOUNTER,#10 REPT16: ACALL STEP16 DJNZ TCOUNTER,REPT16 JNB HOLDFUNCTION,FUNCTION16 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION17:MOV TCOUNTER,#10 REPT17: ACALL STEP17 DJNZ TCOUNTER,REPT17 JNB HOLDFUNCTION,FUNCTION17 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ FUNCTION18:MOV TCOUNTER,#10 REPT18: ACALL STEP18 DJNZ TCOUNTER,REPT18 JNB HOLDFUNCTION,FUNCTION18 MOV P1,#00 ;CLR ALL LEDS CLR P3.7 ;************************************ AJMP FUNCTION1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP1:MOV COUNTER,#5 WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,WAIT1 SETB LED6 ;ON SETB LED5 ;ON CLR LED4 ;OFF CLR LED3 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,WAIT2 CLR LED6 ;OFF CLR LED5 ;OFF SETB LED4 ;ON SETB LED3 ;ON CLR LED2 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,WAIT3 CLR LED6 ;OFF CLR LED5 ;OFF CLR LED4 ;OFF CLR LED3 ;OFF SETB LED2 ;ON SETB LED1 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN2 STEP2:SETB LED2 ;ON SETB LED1 ;ON CLR LED6 ;OFF CLR LED5 ;OFF CLR LED4 ;OFF CLR LED3 ;OFF MOV COUNTER,#5 2WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,2WAIT1 ;@@@@@@@@@@@@@@@@@@@@@@ CLR LED6 ;OFF CLR LED5 ;OFF SETB LED4 ;ON SETB LED3 ;ON CLR LED2 ;OFF CLR LED1 ;OFF MOV COUNTER,#5 2WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,2WAIT2 ;@@@@@@@@@@@@@@@@@@@@@@ CLR LED1 ;OFF CLR LED2 ;OFF CLR LED3 ;OFF CLR LED4 ;OFF SETB LED5 ;ON SETB LED6 ;ON MOV COUNTER,#5 2WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,2WAIT3 ;@@@@@@@@@@@@@@@@@@@@@@ RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN3 STEP3:SETB LED6 ;ON CLR LED4 ;OFF MOV COUNTER,#5 3WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,3WAIT1 ;################################### SETB LED5 ;ON CLR LED3 ;OFF MOV COUNTER,#5 3WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,3WAIT2 ;######################## ;################################### RUN4 SETB LED4 ;ON CLR LED2 ;OFF MOV COUNTER,#5 3WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,3WAIT3 ;######################## SETB LED3 ;ON CLR LED1 ;OFF MOV COUNTER,#5 3WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,3WAIT4 ;################################### SETB LED2 ;ON CLR LED6 ;OFF MOV COUNTER,#5 3WAIT5:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,3WAIT5 ;################################### SETB LED1 ;ON CLR LED5 ;OFF MOV COUNTER,#5 3WAIT6:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,3WAIT6 ;################################### RET ;**************************************COMP @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN4 G1 G2 STEP4:SETB LED1 ;ON CLR LED3 ;OFF MOV COUNTER,#5 4WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,4WAIT1 ;################################### SETB LED2 ;ON CLR LED4 ;OFF MOV COUNTER,#5 4WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,4WAIT2 ;######################## ;################################### RUN4 SETB LED3 ;ON CLR LED5 ;OFF MOV COUNTER,#5 4WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,4WAIT3 ;######################## SETB LED4 ;ON CLR LED6 ;OFF MOV COUNTER,#5 4WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,4WAIT4 ;################################### SETB LED5 ;ON CLR LED1 ;OFF MOV COUNTER,#5 4WAIT5:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,4WAIT5 ;################################### SETB LED6 ;ON CLR LED2 ;OFF MOV COUNTER,#5 4WAIT6:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,4WAIT6 ;################################### RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN5 G1 G2 STEP5:SETB LED6 ;ON CLR LED1 ;OFF MOV COUNTER,#5 5WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,5WAIT1 ;################################### SETB LED5 ;ON CLR LED6 ;OFF MOV COUNTER,#5 5WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,5WAIT2 ;################################### RUN5 SETB LED4 ;ON CLR LED5 ;OFF MOV COUNTER,#5 5WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,5WAIT3 ;######################## SETB LED3 ;ON CLR LED4 ;OFF MOV COUNTER,#5 5WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,5WAIT4 ;################################### SETB LED2 ;ON CLR LED3 ;OFF MOV COUNTER,#5 5WAIT5:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,5WAIT5 ;################################### SETB LED1 ;ON CLR LED2 ;OFF MOV COUNTER,#5 5WAIT6:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,5WAIT6 ;################################### RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN5 G1 G2 STEP6:SETB LED1 ;ON CLR LED6 ;OFF MOV COUNTER,#5 6WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,6WAIT1 ;################################### SETB LED2 ;ON CLR LED1 ;OFF MOV COUNTER,#5 6WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,6WAIT2 ;################################### RUN5 SETB LED3 ;ON CLR LED2 ;OFF MOV COUNTER,#5 6WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,6WAIT3 ;######################## SETB LED4 ;ON CLR LED3 ;OFF MOV COUNTER,#5 6WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,6WAIT4 ;################################### SETB LED5 ;ON CLR LED4 ;OFF MOV COUNTER,#5 6WAIT5:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,6WAIT5 ;################################### SETB LED6 ;ON CLR LED5 ;OFF MOV COUNTER,#5 6WAIT6:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,6WAIT6 ;################################### RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN5 G1 G2 STEP7:SETB LED3 ;ON SETB LED4 ;ON CLR LED6 ;OFF CLR LED5 ;OFF CLR LED1 ;OFF CLR LED2 ;OFF MOV COUNTER,#5 7WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,7WAIT1 ;################################### SETB LED2 ;ON SETB LED5 ;ON CLR LED3 ;OFF CLR LED4 ;OFF CLR LED1 ;OFF CLR LED6 ;OFF MOV COUNTER,#5 7WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,7WAIT2 ;################################### RUN5 SETB LED1 ;ON SETB LED6 ;ON CLR LED3 ;OFF CLR LED4 ;OFF CLR LED2 ;OFF CLR LED5 ;OFF MOV COUNTER,#5 7WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,7WAIT3 ;######################## RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN5 G1 G2 STEP8:SETB LED1 ;ON SETB LED6 ;ON CLR LED5 ;OFF CLR LED4 ;OFF CLR LED3 ;OFF CLR LED2 ;OFF MOV COUNTER,#5 8WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,8WAIT1 ;################################### SETB LED2 ;ON SETB LED5 ;ON CLR LED3 ;OFF CLR LED4 ;OFF CLR LED1 ;OFF CLR LED6 ;OFF MOV COUNTER,#5 8WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,8WAIT2 ;################################### RUN5 SETB LED3 ;ON SETB LED4 ;ON CLR LED1 ;OFF CLR LED2 ;OFF CLR LED6 ;OFF CLR LED5 ;OFF MOV COUNTER,#5 8WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,8WAIT3 ;######################## RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP9:MOV COUNTER,#5 9WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,9WAIT1 SETB LED6 ;ON SETB LED5 ;ON CLR LED4 ;OFF CLR LED3 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 9WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,9WAIT2 SETB LED4 ;ON SETB LED3 ;ON CLR LED6 ;OFF CLR LED5 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 9WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,9WAIT3 SETB LED1 ;ON SETB LED2 ;ON CLR LED6 ;OFF CLR LED5 ;OFF CLR LED3 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 9WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,9WAIT4 SETB LED3 ;ON SETB LED4 ;ON CLR LED6 ;OFF CLR LED5 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP10:MOV COUNTER,#5 10WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,10WAIT1 SETB LED4 ;ON SETB LED3 ;ON CLR LED5 ;OFF CLR LED2 ;OFF CLR LED6 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 10WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,10WAIT2 SETB LED5 ;ON SETB LED2 ;ON CLR LED6 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 10WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,10WAIT3 SETB LED6 ;ON SETB LED1 ;ON MOV COUNTER,#5 10WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,10WAIT4 MOV P1,#00 CLR P3.7 RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP11:MOV COUNTER,#5 11WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,11WAIT1 SETB LED6 ;ON SETB LED1 ;ON CLR LED5 ;OFF CLR LED2 ;OFF CLR LED3 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 11WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,11WAIT2 SETB LED5 ;ON SETB LED2 ;ON CLR LED3 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@// MOV COUNTER,#5 11WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,11WAIT3 SETB LED4 ;ON SETB LED3 ;ON MOV COUNTER,#5 11WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,11WAIT4 MOV P1,#00 CLR P3.7 RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP12:MOV COUNTER,#5 12WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,12WAIT1 SETB LED1 ;ON SETB LED4 ;ON CLR LED2 ;OFF CLR LED3 ;OFF CLR LED6 ;OFF CLR LED5 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 12WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,12WAIT2 SETB LED5 ;ON SETB LED2 ;ON CLR LED6 ;ON CLR LED1 ;ON CLR LED3 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 12WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,12WAIT3 SETB LED3 ;ON SETB LED6 ;ON CLR LED5 ;ON CLR LED2 ;ON CLR LED1 ;OFF CLR LED4 ;OFF RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP13:MOV COUNTER,#5 13WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,13WAIT1 SETB LED6 ;ON SETB LED3 ;ON CLR LED5 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 13WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,13WAIT2 SETB LED5 ;ON SETB LED2 ;ON CLR LED6 ;ON CLR LED1 ;ON CLR LED3 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 13WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,13WAIT3 SETB LED4 ;ON SETB LED1 ;ON CLR LED5 ;ON CLR LED2 ;ON CLR LED6 ;OFF CLR LED3 ;OFF RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP14:MOV COUNTER,#5 14WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,14WAIT1 SETB LED6 ;ON SETB LED1 ;ON CLR LED5 ;OFF CLR LED2 ;OFF CLR LED3 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 14WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,14WAIT2 SETB LED5 ;ON SETB LED2 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 14WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,14WAIT3 SETB LED3 ;OFF SETB LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 14WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,14WAIT4 CLR LED1 ;OFF CLR LED6 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 14WAIT5:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,14WAIT5 CLR LED2 ;OFF CLR LED5 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 14WAIT6:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,14WAIT6 CLR LED3 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP15:MOV COUNTER,#5 15WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,15WAIT1 SETB LED3 ;ON SETB LED4 ;ON CLR LED5 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF CLR LED6 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 15WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,15WAIT2 SETB LED5 ;ON SETB LED2 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 15WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,15WAIT3 SETB LED1 ;ON SETB LED6 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 15WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,15WAIT4 CLR LED3 ;OFF CLR LED4 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 15WAIT5:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,15WAIT5 CLR LED2 ;OFF CLR LED5 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 15WAIT6:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,15WAIT6 CLR LED1 ;OFF CLR LED6 ;OFF RET ;*********************** @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN5 G1 G2 STEP16:SETB LED1 ;ON CLR LED2 ;OFF MOV COUNTER,#5 16WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT1 ;################################### SETB LED2 ;ON CLR LED1 ;OFF MOV COUNTER,#5 16WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT2 ;################################### RUN5 SETB LED3 ;ON CLR LED2 ;OFF MOV COUNTER,#5 16WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT3 ;######################## SETB LED4 ;ON CLR LED3 ;OFF MOV COUNTER,#5 16WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT4 ;################################### SETB LED5 ;ON CLR LED4 ;OFF MOV COUNTER,#5 16WAIT5:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT5 ;################################### SETB LED6 ;ON CLR LED5 ;OFF MOV COUNTER,#5 16WAIT6:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT6 ;################################### SETB LED5 ;ON CLR LED6 ;OFF MOV COUNTER,#5 16WAIT7:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT7 ;################################### SETB LED4 ;ON CLR LED5 ;OFF MOV COUNTER,#5 16WAIT8:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT8 ;################################### RUN5 SETB LED3 ;ON CLR LED4 ;OFF MOV COUNTER,#5 16WAIT9:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT9 ;######################## SETB LED2 ;ON CLR LED3 ;OFF MOV COUNTER,#5 16WAIT10:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,16WAIT10 RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP17:MOV COUNTER,#5 17WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,17WAIT1 SETB LED5 ;ON SETB LED6 ;ON CLR LED4 ;OFF CLR LED3 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 17WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,17WAIT2 CLR LED6 ;OFF SETB LED5 ;ON SETB LED4 ;ON CLR LED3 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 17WAIT3:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,17WAIT3 CLR LED6 ;OFF CLR LED5 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF SETB LED4 ;ON SETB LED3 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 17WAIT4:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,17WAIT4 CLR LED6 ;OFF CLR LED5 ;OFF CLR LED4 ;OFF CLR LED1 ;OFF SETB LED2 ;ON SETB LED3 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 17WAIT5:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,17WAIT5 CLR LED6 ;OFF CLR LED5 ;OFF CLR LED4 ;OFF CLR LED3 ;OFF SETB LED1 ;ON SETB LED2 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 17WAIT6:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,17WAIT6 CLR LED6 ;OFF CLR LED5 ;OFF CLR LED1 ;OFF CLR LED4 ;OFF SETB LED2 ;ON SETB LED3 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 17WAIT7:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,17WAIT7 CLR LED6 ;OFF CLR LED5 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF SETB LED3 ;ON SETB LED4 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 17WAIT8:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,17WAIT8 CLR LED6 ;OFF CLR LED3 ;OFF CLR LED2 ;OFF CLR LED1 ;OFF SETB LED4 ;ON SETB LED5 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 RET @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RUN1 STEP18:MOV COUNTER,#5 18WAIT1:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,18WAIT1 SETB LED1 ;ON SETB LED2 ;ON SETB LED3 ;ON SETB LED4 ;ON SETB LED5 ;ON SETB LED6 ;ON ;@@@@@@@@@@@@@@@@@@@@@@ MOV COUNTER,#5 18WAIT2:JB RUNSPEED,$ JNB RUNSPEED,$ DJNZ COUNTER,18WAIT2 CLR LED1 ;OFF CLR LED2 ;OFF CLR LED3 ;OFF CLR LED4 ;OFF CLR LED5 ;OFF CLR LED6 ;OFF ;@@@@@@@@@@@@@@@@@@@@@@ RET ;888888888888888888888888888888888888888 DELAY: MOV R3,#255 ;DELAY2 FOR HOLD DATA HERE5: MOV R2,#255 HERE4: DJNZ R2,HERE4 DJNZ R3,HERE5 RET END