mov     color,100100b    ;RGB-code красного
call     draw
 mov     color,??????b

mov     color,100100b    ;RGB-code  100100 = 36 
call     draw
mov     color,000100b

;Рисование флага+движение (быстрая графика) 
                     
                     ;директивы сегментов
        .model small ;модель памяти
        .stack 100h ;определение стека,его размер
        .data ;определение сегмента данных
        x	dw	 230 
	y0	dw	 150 
	hi	dw	 50 
	w	dw	 25 
	yc	dw	?
	color	db	 0 
     increm	dw	 0 
; 12 -red
; 15 -white

;Макрос настройки цветового регистра reg на цветовой оттенок rgb

nastr		macro	reg,rgb
		mov	ax,1000h
		mov	bh,rgb 
		mov	bl,reg
		int	10h
endm

;Процедура записи значений во внутренние регистры адаптера через порты (адресный и данных)
;prt - номер адресного порта,nreg - номер регистра, val - значение

ports		macro	prt,nreg,val
		mov	dx,prt
		mov	al,nreg
		out	dx,al
		inc	dx
		mov	al,val
		out	dx,al
endm

;Макрос рисования горизонтальной линии непосредственно в видеопамяти
;xl,yl,len,col - то же самое, что и ранее для BIOS

adgline		macro	xl,yl,len,col
		local	beg
		mov	cx,len		;Line length To CX
		xor	si,si		;SI= 0 
		mov	al, 80 		;AL= 80 
		mul	yl		;AL= 80 *Y0 (bytes)
		mov	dx,ax		;AX->DX
		mov	ax,xl		;X0->AX
		mov	bl, 8 		; 8 ->BL
		div	bl		;X0=X0 /  8  (bytes)
		xor	ah,ah		;AH= 0 
		add	dx,ax		;DX=Y0* 80 +X0 (bytes) = startbyte
		mov	bx,dx		;DX->BX
beg:		ports	3c4h, 2 ,0fh ;регистр Адреса Указателя Последовательности доступен через порт, а  2 -это индекс регистра Маскирования Растра
		ports	3ceh, 8 ,0ffh ; регистр Графического Контроллера доступен через порт, а  8  - это индекс регистра Битовая Маска
		mov	byte ptr es:[bx][si],00000000b ; si-смещение области данных,где находится пиксельная ячейка
		ports	3c4h, 2 ,col 
		mov	byte ptr es:[bx][si],0ffh
		inc	si	
		loop	beg
	endm	


;макрос консольной приостановки до нажатия клавиши
;после нажатия клавиши два байта поступают в регистр АХ;
;макрос может использоваться для очистки консольного буфера
stop	macro
	mov	ah, 0 
	int	16h
	endm


        .code ;определение сегмента кода
        mov     ax,@data; Инициализация сегментных регистров
        mov     ds,ax 
	mov	ax,0a000h ;адрес видеобуфера
	mov	es,ax
	mov	ah, 0  ;функция  0  (ah= 0 )устанавливает видео-режим
	mov	al,12h ;номер режима
	int	10h ;обращение к видео-BIOS через прерывание int 10h
	nastr	 8 , 4 
	nastr	 0 , 9 ;   ->      001   001 
	stop;		       RGB rgb
 	call	draw
	
	
again:	mov	ah, 1 ; функция прерывания int 16h для чтения символа с клавиатуры
	int	16h			
	jz	again
	cmp	ah, 1 	
	jne	m3
	jmp	endprog		
m3:	cmp	ah,50h		;down arrow Code
	mov	increm, 10 
	je	m2
	cmp	ah, 72 		;up arrow Code
	mov	increm,- 10 
	jne	again
m2:     mov     color, 0 
     call     draw
     add     y0, 50 
     call     draw
     add     y0,- 50 
     mov     ax,increm
     add     y0,ax
     mov     color,100100b    ;RGB-code  100100 = 36 
     call     draw
     mov     color,000100b
     add     y0, 50 
     call     draw
     add     y0,- 50 
     stop
     jmp     again

proc		draw		
		mov	ax,y0
		mov	yc,ax
		mov	cx,hi	
loopy:		push	cx
		adgline	x,yc,w,color
		inc	yc
		pop	cx
		loop	loopy
		ret
	    	endp
		
endprog:
	nastr	 4 , 8 
	mov	ax, 3 
	int	10h
	stop
	mov	ax,4c00h ;Вызов функции завершения программы
	int	21h
end