Tuesday, May 31, 2016

8051 Program - running led

;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
LCALL 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
STEP1:MOV COUNTER,#5
WAIT11:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT11
SETB LED6 ;ON
SETB LED5 ;ON
CLR LED4 ;OFF
CLR LED3 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT12:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT12
CLR LED6 ;OFF
CLR LED5 ;OFF
SETB LED4 ;ON
SETB LED3 ;ON
CLR LED2 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT13:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT13
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED4 ;OFF
CLR LED3 ;OFF
SETB LED2 ;ON
SETB LED1 ;ON
RET
STEP2:SETB LED2 ;ON
SETB LED1 ;ON
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED4 ;OFF
CLR LED3 ;OFF
MOV COUNTER,#5
WAIT21:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT21
CLR LED6 ;OFF
CLR LED5 ;OFF
SETB LED4 ;ON
SETB LED3 ;ON
CLR LED2 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT22:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT22
CLR LED1 ;OFF
CLR LED2 ;OFF
CLR LED3 ;OFF
CLR LED4 ;OFF
SETB LED5 ;ON
SETB LED6 ;ON
MOV COUNTER,#5
WAIT23:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT23
RET
STEP3:SETB LED6 ;ON
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT31:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT31
SETB LED5 ;ON
CLR LED3 ;OFF
MOV COUNTER,#5
WAIT32:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT32
SETB LED4 ;ON
CLR LED2 ;OFF
MOV COUNTER,#5
WAIT33:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT33
SETB LED3 ;ON
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT34:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT34
SETB LED2 ;ON
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT35:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT35
SETB LED1 ;ON
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT36:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT36
RET
STEP4:SETB LED1 ;ON
CLR LED3 ;OFF
MOV COUNTER,#5
WAIT41:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT41
SETB LED2 ;ON
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT42:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT42
SETB LED3 ;ON
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT43:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT43
SETB LED4 ;ON
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT44:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT44
SETB LED5 ;ON
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT45:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT45
SETB LED6 ;ON
CLR LED2 ;OFF
MOV COUNTER,#5
WAIT46:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT46
RET
STEP5:SETB LED6 ;ON
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT51:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT51
SETB LED5 ;ON
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT52:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT52
SETB LED4 ;ON
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT53:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT53
SETB LED3 ;ON
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT54:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT54
SETB LED2 ;ON
CLR LED3 ;OFF
MOV COUNTER,#5
WAIT55:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT55
SETB LED1 ;ON
CLR LED2 ;OFF
MOV COUNTER,#5
WAIT56:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT56
RET
STEP6:SETB LED1 ;ON
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT61:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT61
SETB LED2 ;ON
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT62:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT62
SETB LED3 ;ON
CLR LED2 ;OFF
MOV COUNTER,#5
WAIT63:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT63
SETB LED4 ;ON
CLR LED3 ;OFF
MOV COUNTER,#5
WAIT64:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT64
SETB LED5 ;ON
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT65:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT65
SETB LED6 ;ON
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT66:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT66
RET
STEP7:SETB LED3 ;ON
SETB LED4 ;ON
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED1 ;OFF
CLR LED2 ;OFF
MOV COUNTER,#5
WAIT71:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT71
SETB LED2 ;ON
SETB LED5 ;ON
CLR LED3 ;OFF
CLR LED4 ;OFF
CLR LED1 ;OFF
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT72:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT72
SETB LED1 ;ON
SETB LED6 ;ON
CLR LED3 ;OFF
CLR LED4 ;OFF
CLR LED2 ;OFF
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT73:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT73
RET
STEP8:SETB LED1 ;ON
SETB LED6 ;ON
CLR LED5 ;OFF
CLR LED4 ;OFF
CLR LED3 ;OFF
CLR LED2 ;OFF
MOV COUNTER,#5
WAIT81:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT81
SETB LED2 ;ON
SETB LED5 ;ON
CLR LED3 ;OFF
CLR LED4 ;OFF
CLR LED1 ;OFF
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT82:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT82
SETB LED3 ;ON
SETB LED4 ;ON
CLR LED1 ;OFF
CLR LED2 ;OFF
CLR LED6 ;OFF
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT83:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT83
RET
STEP9:MOV COUNTER,#5
WAIT91:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT91
SETB LED6 ;ON
SETB LED5 ;ON
CLR LED4 ;OFF
CLR LED3 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT92:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT92
SETB LED4 ;ON
SETB LED3 ;ON
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT93:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT93
SETB LED1 ;ON
SETB LED2 ;ON
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED3 ;OFF
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT94:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT94
SETB LED3 ;ON
SETB LED4 ;ON
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
RET
STEP10:MOV COUNTER,#5
WAIT101:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT101
SETB LED4 ;ON
SETB LED3 ;ON
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED6 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT102:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT102
SETB LED5 ;ON
SETB LED2 ;ON
CLR LED6 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT103:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT103
SETB LED6 ;ON
SETB LED1 ;ON
MOV COUNTER,#5
WAIT104:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT104
MOV P1,#00
CLR P3.7
RET
STEP11:MOV COUNTER,#5
WAIT111:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT111
SETB LED6 ;ON
SETB LED1 ;ON
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED3 ;OFF
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT112:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT112
SETB LED5 ;ON
SETB LED2 ;ON
CLR LED3 ;OFF
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT113:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT113
SETB LED4 ;ON
SETB LED3 ;ON
MOV COUNTER,#5
WAIT114:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT114
MOV P1,#00
CLR P3.7
RET
STEP12:MOV COUNTER,#5
WAIT121:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT121
SETB LED1 ;ON
SETB LED4 ;ON
CLR LED2 ;OFF
CLR LED3 ;OFF
CLR LED6 ;OFF
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT122:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT122
SETB LED5 ;ON
SETB LED2 ;ON
CLR LED6 ;ON
CLR LED1 ;ON
CLR LED3 ;OFF
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT123:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT123
SETB LED3 ;ON
SETB LED6 ;ON
CLR LED5 ;ON
CLR LED2 ;ON
CLR LED1 ;OFF
CLR LED4 ;OFF
RET
STEP13:MOV COUNTER,#5
WAIT131:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT131
SETB LED6 ;ON
SETB LED3 ;ON
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT132:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT132
SETB LED5 ;ON
SETB LED2 ;ON
CLR LED6 ;ON
CLR LED1 ;ON
CLR LED3 ;OFF
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT133:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT133
SETB LED4 ;ON
SETB LED1 ;ON
CLR LED5 ;ON
CLR LED2 ;ON
CLR LED6 ;OFF
CLR LED3 ;OFF
RET
STEP14:MOV COUNTER,#5
WAIT141:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT141
SETB LED6 ;ON
SETB LED1 ;ON
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED3 ;OFF
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT142:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT142
SETB LED5 ;ON
SETB LED2 ;ON
MOV COUNTER,#5
WAIT143:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT143
SETB LED3 ;OFF
SETB LED4 ;OFF
MOV COUNTER,#5
WAIT144:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT144
CLR LED1 ;OFF
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT145:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT145
CLR LED2 ;OFF
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT146:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT146
CLR LED3 ;OFF
CLR LED4 ;OFF
RET
STEP15:MOV COUNTER,#5
WAIT151:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT151
SETB LED3 ;ON
SETB LED4 ;ON
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT152:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT152
SETB LED5 ;ON
SETB LED2 ;ON
MOV COUNTER,#5
WAIT153:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT153
SETB LED1 ;ON
SETB LED6 ;ON
MOV COUNTER,#5
WAIT154:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT154
CLR LED3 ;OFF
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT155:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT155
CLR LED2 ;OFF
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT156:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT156
CLR LED1 ;OFF
CLR LED6 ;OFF
RET
STEP16:SETB LED1 ;ON
CLR LED2 ;OFF
MOV COUNTER,#5
WAIT161:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT161
SETB LED2 ;ON
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT162:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT162
SETB LED3 ;ON
CLR LED2 ;OFF
MOV COUNTER,#5
WAIT163:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT163
SETB LED4 ;ON
CLR LED3 ;OFF
MOV COUNTER,#5
WAIT164:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT164
SETB LED5 ;ON
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT165:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT165
SETB LED6 ;ON
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT166:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT166
SETB LED5 ;ON
CLR LED6 ;OFF
MOV COUNTER,#5
WAIT167:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT167
SETB LED4 ;ON
CLR LED5 ;OFF
MOV COUNTER,#5
WAIT168:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT168
SETB LED3 ;ON
CLR LED4 ;OFF
MOV COUNTER,#5
WAIT169:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT169
SETB LED2 ;ON
CLR LED3 ;OFF
MOV COUNTER,#5
WAIT1610:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT1610
RET
STEP17:MOV COUNTER,#5
WAIT171:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT171
SETB LED5 ;ON
SETB LED6 ;ON
CLR LED4 ;OFF
CLR LED3 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT172:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT172
CLR LED6 ;OFF
SETB LED5 ;ON
SETB LED4 ;ON
CLR LED3 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
MOV COUNTER,#5
WAIT173:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT173
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
SETB LED4 ;ON
SETB LED3 ;ON
MOV COUNTER,#5
WAIT174:JB RUNSPEED,$
vJNB RUNSPEED,$
DJNZ COUNTER,WAIT174
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED4 ;OFF
CLR LED1 ;OFF
SETB LED2 ;ON
SETB LED3 ;ON
MOV COUNTER,#5
WAIT175:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT175
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED4 ;OFF
CLR LED3 ;OFF
SETB LED1 ;ON
SETB LED2 ;ON
MOV COUNTER,#5
WAIT176:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT176
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED1 ;OFF
CLR LED4 ;OFF
SETB LED2 ;ON
SETB LED3 ;ON
MOV COUNTER,#5
WAIT177:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT177
CLR LED6 ;OFF
CLR LED5 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
SETB LED3 ;ON
SETB LED4 ;ON
MOV COUNTER,#5
WAIT178:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT178
CLR LED6 ;OFF
CLR LED3 ;OFF
CLR LED2 ;OFF
CLR LED1 ;OFF
SETB LED4 ;ON
SETB LED5 ;ON
RET
STEP18:MOV COUNTER,#5
WAIT181:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT181
SETB LED1 ;ON
SETB LED2 ;ON
SETB LED3 ;ON
SETB LED4 ;ON
SETB LED5 ;ON
SETB LED6 ;ON
MOV COUNTER,#5
WAIT182:JB RUNSPEED,$
JNB RUNSPEED,$
DJNZ COUNTER,WAIT182
CLR LED1 ;OFF
CLR LED2 ;OFF
CLR LED3 ;OFF
CLR LED4 ;OFF
CLR LED5 ;OFF
CLR LED6 ;OFF
RET
DELAY:MOV R3,#255 ;DELAY2 FOR HOLD DATA
HERE5:MOV R2,#255
HERE4:DJNZ R2,HERE4
DJNZ R3,HERE5
RET
END



Related topics:
8051 Program - 4 bit lcd code   |   8051 Program - 8 bit lcd code   |   8051 Program - 32bit multiplication   |   8051 Program - memory subroutines   |   8051 Program - math subroutines   |   8051 Program - conversion subroutines

List of topics: 8051

No comments:

Post a Comment