JMP START
DB 05
DB 20
db 40
org 05
mov  al,20
mov [bl],al

IRET

START:
OUT 01
MOV BL,C0
OUT 07
STI

PETLA:
mov al,7c
mov [bl],al
JMP PETLA

ORG 20
CLI
IN 07


cmp al,0d
jz enter
cmp al,08
jz back
cmp bl,ff
jz end
mov [bl],al
inc bl
STI
IRET
ORG 40
push al
popf
IN 08


cmp al,0d
jz enter
cmp al,08
jz back
cmp bl,ff
jz end
mov [bl],al
inc bl
sti
IRET
enter:
mov al,20
mov [bl],al
kol:

inc bl
cmp bl,d0
jz petla
cmp bl,e0
jz petla
cmp bl, f0
jz petla
cmp bl, ff
jz end
sti
jmp kol
back:
mov al,20
mov [bl],al
dec bl
mov al,20
mov [bl],al
sti
jmp petla

end:
end