out portb
lxi h,flag
mvi m,3h
jmp circl
ind2: cpi 3h
jnz ind3
mvi a,7eh ;опускаум уровень воды
out portb
lxi h,flag
mvi m,4h
jmp circl
ind3: cpi 4h
jnz ind4
mvi a,8ch
out porta
mvi a,72h ;открыть ворота между камерами
out portb
lxi h,flag
mvi m,5h
jmp circl
ind4: cpi 5h
jnz ind5
mvi a,70h ;выходит корабль
out portb
mvi a,8eh ;заходит корабль
out porta
lxi h,flag
mvi m,6h
jmp circl
ind5: cpi 6h
jnz ind6
mvi a,0eeh
out porta
mvi a,7ch ;закрываем ворота между камерами
out portb
lxi h,flag
mvi m,7h
jmp circl
ind6: cpi 7h
jnz ind7
mvi a,7eh ;опускаем уровень воды
out porta
lxi h,flag
mvi m,8h
jmp circl
ind7: cpi 8h
jnz ind8
mvi a,72h ;открываем ворота
out porta
lxi h,flag
mvi m,9h
jmp circl
ind8: cpi 9h
jnz out
mvi a,70h ;выходит корабль
out porta
lxi h,flag
mvi m,10h
jmp circl
out: mvi a,7ch
out porta
out portb
lxi h,flag
mvi m,11h
jmp circl
pusk0: lxi h,flag
mov a,m
cpi 11h
jnz outP
mvi a,70h ;откроем ворота
out porta
call zader
mvi a,72h ;заходит корабль
out porta
call zader
mvi a,7eh ;закрываем ворота
out porta
call zader
mvi a,0eeh ;поднимаем уровень воды
out porta
call zader
mvi a,8eh
out porta
mvi a,70h ;открыть ворота между камерами
out portb
call zader
mvi a,8ch ;выходит корабль
out porta
mvi a,72h ;заходит корабль
out portb
call zader
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.