; first quantas file

; home
b:

; turn in a random direction
rnd 2
jz 1>
ror
ror
ror
1:
rnd 3
jz 1>
ror
rnd 2
jz 1>
ror
1:

; go forwards until found food
g:
mov %ah %bl
jo w>
pck
jo g<

; when food found, go home
rol
rol
rol
1:
mov %ah %bl
cmp %bl +h
jnc 1<

; drop food, start again
drp
jmp b<

; at obstackle:
w:
cmp %ah +f ; if friend woth food
jnc 1> ; then move sideways politely
set 1
ror
mov %ah %bl
rol
rol
mov %ah %bl
ror
jmp g<
1: ; elsif at home, restart from the beginning
cmp %bl +h
jc b<
set 0 ; else just try again but set marker 0
jmp g<




; end