Sorting-Machine-Intel-8085-Microprocessor-Project/Sorting_Machine.asm at master · thelalitarora/Sorting-Machine-Intel-8085-Microprocessor-Project · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
.ORG 0000H
JMP 0040H

.ORG 003CH
JMP 0500H

.ORG 0040H
LXI SP,0FFFFH
MVI A,00BH
SIM
EI

MVI A,88H
OUT 03H

IR:IN 02H
ANI 80H
JZ IR

MVI E,00H

MVI A,20H ;COUNTER 0
OUT 83H

MVI A,098H ; counter 2 mode 4
OUT 83H

MVI A,74H ;COUNTER 1
OUT 83H

RED:MVI A,050H ; counter 1 least significant bit
OUT 81H
MVI A,0C3H ; counter 1 most significant bit
OUT 81H

MVI A,014H ; counter 2 least significant bit
OUT 82H

MVI A,00CH
OUT  02H

MVI A,0FFH
OUT 80H

MVI A,00CH

WAITR:JNZ WAITR

MOV A,E
CPI 0FFH
JZ IR

BLUE:MVI A,050H ; counter 1 least significant bit
OUT 81H
MVI A,0C3H ; counter 1 most significant bit
OUT 81H

MVI A,014H ; counter 2 least significant bit
OUT 82H

MVI A,00DH
OUT  02H

MVI A,0FFH
OUT 80H

MVI A,00DH

WAITB:JNZ WAITB

JMP IR

DELAY:
LXI B,0247H
LOOPD:DCX B
MOV A,C
ORA B
JNZ LOOPD
RET

REST:MVI H,32H
LOOPY:CALL DELAY
DCR H
JNZ LOOPY
RET


.ORG 0500H
CPI 00CH
JNZ BLUE_DETECT
IN 80H
MOV C,A
MVI A,0FFH
SUB C
CPI 02EH

JNC ACLK_M1

;RETURN CODE
xra a
EI
RET

ACLK_M1: MVI D,06H
DRIVE_ACM1:MVI A , 05H
OUT 00H
CALL DELAY
MVI A,01H
OUT 00H
CALL DELAY
MVI A,09H
OUT 00H
CALL DELAY
MVI A,08H
OUT 00H
CALL DELAY
MVI A,0AH
OUT 00H
CALL DELAY
MVI A,02H
OUT 00H
CALL DELAY
MVI A,06H
OUT 00H
CALL DELAY
MVI A,04H
OUT 00H
CALL DELAY
DCR D
JNZ DRIVE_ACM1

CALL REST

MVI A,00H
OUT 00H

 MVI D,06H
DRIVE_CM1:MVI A,06H ; MOTOR ANTICLOCKWISE
OUT 00H
CALL DELAY
MVI A,02H
OUT 00H
CALL DELAY
MVI A,0AH
OUT 00H
CALL DELAY
MVI A,08H
OUT 00H
CALL DELAY
MVI A,09H
OUT 00H
CALL DELAY
MVI A,01H
OUT 00H
CALL DELAY
MVI A,05H
OUT 00H
CALL DELAY
MVI A , 04H
OUT 00H
CALL DELAY
DCR D
JNZ DRIVE_CM1

CALL REST
MVI A,00H
OUT 00H
;return code
MVI E,0FFH
xra a
EI
RET

BLUE_DETECT:
IN 80H
MOV C,A
MVI A,0FFH
SUB C
CPI 027H

JNC CLK

TURN:MVI D,18H
DRIVE_M12:MVI A , 50H ; MOTOR ANTICLOCKWISE
OUT 00H
CALL DELAY

MVI A,04H
OUT 00H
CALL DELAY

MVI A,10H
OUT 00H
CALL DELAY

MVI A,06H
OUT 00H
CALL DELAY

MVI A,90H
OUT 00H
CALL DELAY

MVI A,02H
OUT 00H
CALL DELAY

MVI A,80H
OUT 00H
CALL DELAY

MVI A,0AH
OUT 00H
CALL DELAY

MVI A,A0H
OUT 00H
CALL DELAY

MVI A,08H
OUT 00H
CALL DELAY

MVI A,20H
OUT 00H
CALL DELAY

MVI A,09H
OUT 00H
CALL DELAY

MVI A,60H
OUT 00H
CALL DELAY

MVI A,01H
OUT 00H
CALL DELAY

MVI A,40H
OUT 00H
CALL DELAY

MVI A,05H
OUT 00H
CALL DELAY

DCR D
JNZ DRIVE_M12

CALL REST
MVI A,00H
OUT 00H

;return code
xra a
EI
RET

CLK: MVI D,06H
DRIVE_CM2:MVI A , 40H ;
OUT 00H
CALL DELAY
MVI A,60H
OUT 00H
CALL DELAY
MVI A,20H
OUT 00H
CALL DELAY
MVI A,A0H
OUT 00H
CALL DELAY
MVI A,80H
OUT 00H
CALL DELAY
MVI A,90H
OUT 00H
CALL DELAY
MVI A,10H
OUT 00H
CALL DELAY
MVI A,50H
OUT 00H
CALL DELAY
DCR D
JNZ DRIVE_CM2

CALL REST

MVI A,00H
OUT 00H

MVI D,06H
DRIVE_ACM2:MVI A,10H
OUT 00H
CALL DELAY
MVI A,90H
OUT 00H
CALL DELAY
MVI A,80H
OUT 00H
CALL DELAY
MVI A,A0H
OUT 00H
CALL DELAY
MVI A,20H
OUT 00H
CALL DELAY
MVI A,60H
OUT 00H
CALL DELAY
MVI A,40H
OUT 00H
CALL DELAY
MVI A , 50H
OUT 00H
CALL DELAY
DCR D
JNZ DRIVE_ACM2

CALL REST
MVI A,00H
OUT 00H
;return code
xra a
EI
RET