#start$=$robot.exe#

name "robot"

#make$\_$bin#

#cs $=500$#

#ds $=500$#

#ss $=500$# ; stack

#sp $=$ ffff#

#ip $=0$#

; this is an example of contoling the robot.

; this code randomly moves the robot,

; and makes it to switch the lamps on and off.

; robot is a mechanical creature and it takes

; some time for it to complete a task.

; status register is used to see if robot is busy or not.

; c:$\backslash$emu$8086\backslash$devices$\backslash$robot$.$exe uses ports $9,10$ and $11$

; source code of the robot and other devices is in:

; c:$\backslash$emu$8086\backslash$devices$\backslash$developer$\backslash$sources$\backslash$

; robot is programmed in visual basic $6\mathrm{.}0$

; robot base i$/$o port:

r$\_$port equ $9$

;$===================================$

eternal$\_$loop:

; wait until robot

; is ready:

call wait$\_$robot

; examine the area

; in front of the robot:

mov al$,4$

out r$\_$port, al

call wait$\_$exam

; get result from

; data register:

in al$,$ r$\_$port $+1$

; nothing found?

cmp al$,0$

je cont ; $-$ yes, so continue.

; wall?

cmp al$,255$

je cont ; $-$ yes, so continue.

; switched$-$on lamp?

cmp al$,7$

jne lamp$\_$off ; $-$ no$,$ so skip.

; $-$ yes, so switch it off,

; and turn:

call switch$\_$off$\_$lamp

jmp cont ; continue

lamp$\_$off: nop

; if gets here, then we have

; switched$-$off lamp, because

; all other situations checked

; already:

call switch$\_$on$\_$lamp

cont:

call random$\_$turn

call wait$\_$robot

; try to step forward:

mov al$,1$

out r$\_$port, al

call wait$\_$robot

; try to step forward again:

mov al$,1$

out r$\_$port, al

jmp eternal$\_$loop ; go again!

;$===================================$

; this procedure does not

; return until robot is ready

; to receive next command:

wait$\_$robot proc

; check if robot busy:

busy: in al$,$ r$\_$port$+2$

test al$,00000010$b

jnz busy ; busy, so wait.

ret

wait$\_$robot endp

;$===================================$

; this procedure does not

; return until robot completes

; the examination:

wait$\_$exam proc

; check if has new data:

busy$2$: in al$,$ r$\_$port$+2$

test al$,00000001$b

jz busy$2$ ; no new data, so wait.

ret

wait$\_$exam endp

;$===================================$

; switch off the lamp:

switch$\_$off$\_$lamp proc

mov al$,6$

out r$\_$port, al

ret

switch$\_$off$\_$lamp endp

;$===================================$

; switch on the lamp:

switch$\_$on$\_$lamp proc

mov al$,5$

out r$\_$port, al

ret

switch$\_$on$\_$lamp endp

;$===================================$

; generates a random turn using

; system timer:

random$\_$turn proc

; get number of clock

; ticks since midnight

; in cx:dx

mov ah$,0$

int $1$ah

; randomize using xor:

xor dh$,$ dl

xor ch$,$ cl

xor ch$,$ dh

test ch$,2$

jz no$\_$turn

test ch$,1$

jnz turn$\_$right

; turn left:

mov al$,2$

out r$\_$port, al

; exit from procedure:

ret

turn$\_$right:

mov al$,3$

out r$\_$port, al

no$\_$turn:

ret

random$\_$turn endp

;$===================================$

in this code $,$ there is a problem that the robot moves randomly which take a long time to turn all the lamps on $,$ so can you please make some changes on the code so the robot can turn on all the lamps as fast as possible with a regular movment