asembler нужна помщь по реализации простого алгоритма

for b:=0 to 10 do
for k:=0 to 20 do
for t:=0 to 200 do
if(20*b+10*k+t=200) and (b+k+t=100)
then
writeln('Быков ', b, 'коров ', k ' телят ', t)
нужно реализовать на ассемблере
помогите пжл