В общем задержка решила проблему.
Ниже программа умеющая двигать ноль по экрану, но убого кривая. Может кто-то предложит лучше вариант?
Скрытый текст
Код:keyb_ask EQU 0F812H ;опрос состояния клавиатуры keyb_enter EQU 0F803H ;ввод символа с клавиатуры код в A keyb_ask_key EQU 0F81BH ;опрос кода нажатой клавиши код в A prn_symb EQU 0F809H ;печать символа в C код символа prn_line EQU 0F818H ;печать строки в HL адрес строки prn_hex EQU 0F815H ;печать в HEX в A байт prompt EQU 0F86Ch up EQU 19h down EQU 1ah left EQU 08h right EQU 18h enter EQU 0dh org 0 mvi c,1fh call prn_symb mvi b, 0 mvi c, 1 start: call coord mvi m, '0' call delay mvi m, ' ' start1: call keyb_ask_key cpi up jz go_up cpi down jz go_down cpi left jz go_left cpi right jz go_right cpi enter jz prompt jmp start go_up: mov a,c cpi 1 jz start1 dcr c jmp start go_down: mov a,c cpi 26 jz start1 inr c jmp start go_left: mov a,b cpi 0 jz start1 dcr b jmp start go_right: mov a,b cpi 64 jz start1 inr b jmp start coord: push d ;B это x C это y push b lxi h,77c2h lxi d,004eh coord1: dad d dcr c jnz coord1 mov e,b dad d pop b pop d ret delay: push b mvi b,020h delay2: mvi c,0ffh delay1: nop dcr c jnz delay1 dcr b jnz delay2 pop b ret[свернуть]