Из COM в ASM

TITLE GRAPHIX (COM) Пример цвета и графики
CODESG SEGMENT PARA 'Code'
ASSUME CS:CODESG,DS:CODESG,SS:CODESG
ORG 100H
 
MAIN PROC NEAR
MOV AN,00 ;Установка режима графики
MOV AL,0DH ; для EGA (CGA=04)
MOV AH,0BH ;Установить палитру
MOV BH,00 ;Фон
MOV BL,02 ;Зеленый
INT 10H
MOV BX,00 ;Начальные цвет,
MOV CX,00 ; столбец
MOV DX,00 ; и строка
A50:
MOV AH,0CH ;Функция вывода точки
MOV AL,BL ;Установить цвет
INT 10H ;BX, CX, и DX сохраняются
INC CX ;Увеличить столбец
CMP CX,320 ;Столбец 320?
JNE A50 ; нет - цикл,
MOV CX,00 ; да - сбросить столбец
INS BL ;Изменить цвет
INS DX ;Увеличить строку
CMP DX,40 ;Строка 40?
JNE A50 ; нет - цикл,
RET ; да - завершить
MAIN ENDP
CODESG ENDS
END MAIN

; masm dos exe #
.286
.model small
.code
 
MAIN:mov ax,0Dh ;Установка режима графики для EGA (CGA=04)
    int 10h
    mov ah,0Bh ;Установить палитру
    mov bx,2 ;Фон Зеленый
    int 10H
    mov bx,0 ;Начальные цвет,
    mov cx,0 ; столбец
    mov DX,0 ; и строка
    mov ah,0Ch ;Функция вывода точки
A50:mov al,bl ;Установить цвет
    int 10h 
    inc cx ;Увеличить столбец
    cmp cx,320 ;Столбец 320?
    jne A50 ; нет - цикл,
    mov cx,0; да - сбросить столбец
    inc bl ;Изменить цвет
    inc dx ;Увеличить строку
    cmp dx,40 ;Строка 40?
    jne A50 ; нет - цикл,
    mov ah,0;ждем нажатия на клавиатуру
    int 16h
    mov ax,3;восстанавливаем текстовый графический режим
    int 10h
    mov ah,0
    int 16h
    mov ah,4Ch; да - завершить
    int 21h
END MAIN