; uloha 3 - 99 bytu (8086) org 100h ;mov ax,0003h ;int 10h mov ax,3509h int 21h push es push bx ;mov cx,(80h+1)*2 xchg ax,cx dec cx paint: mov al,cl call print dec cx loop paint mov ax,2509h mov dx,newvect int 21h waitesc: cmp byte [es:di+1-10],30h je waitesc pop dx pop ds int 21h ; ret iprint: shl al,1 mov ah,1fh jnc print mov ah,31h print: cld mov di,0b800h mov es,di mov di,ax push cx mov cl,5 mul cl xchg ax,di printnum:ror al,cl push ax and al,0fh add al,90h daa adc al,40h daa stosw pop ax ; dec cl dec cx ; ! parita z 8 bitu jnp printnum pop cx mov ax,3000h+'h' stosw mov al,' ' ; ! 20h stosw stosw ret newvect: push ax in al,60h push es push di call iprint pop di pop es ; mov al,20h out 20h,al pop ax iret