ASM, pcx2bmp

[1ntro]

Собсно такой вопрос. Наваял программу на асме преобразования bmp2pcx. Получилась громоздкая, но работает. И возник следующий вопрос: можно ли как либо добавить 2 маленьких процедуры, что бы преобразовывать pcx2bmp. Собсно вот вопрос =)

[1ntro]

Ап, все еще требуются идеи, как перекодировать Х_Х

; Считываем палитру из BMP и конвертируем ее в PCX формат
; Смещаем указатель в BMP файле на раздел палитры
mov ax, BMP_fileID
push ax
mov ax, 36h ; Смещение начала палитры
push ax
xor ax, ax
push ax
mov ax, 0 ; Относительно начала файла
push ax
call fmov
pop ax
test ax, ax
jnz error_readBMPfile
pop dx
pop ax
; Считываем в буфер палитру BMP
mov ax, BMP_fileID
push ax
mov ax, 1024
push ax
mov ax, offset rastr_str + 4 ; Смещаем палитру в буфере на 4
push ax ; байта для того, чтобы исполь-
call fread ; зовать один буфер для
; конвертирования
pop ax
test ax, ax
jnz error_readBMPfile
pop ax
;Конвертируем в палитру PCX
cld
mov cx, 256
mov si, offset rastr_str + 4 ; Палитра смещена в буфере на 4
; байта
mov di, offset rastr_str
mov byte ptr [di], 12 ; Метка начала палитры в PCX
; Есть варианты с меткой 10
inc di
loop_p:
mov al, [si]
inc si
mov ah, [si]
inc si
mov dl, [si]
inc si
mov [di], dl
inc di
mov [di], ah
inc di
mov [di], al
inc di
inc si ; Пропускаем байт интенсивности
loop loop_p
; Записываем палитру PCX в файл
mov ax, PCX_fileID
push ax
mov ax, 769 ; байт-метка + 3*256
push ax
mov ax, offset rastr_str
push ax
call fwrite
pop ax
test ax, ax
jnz error_writePCXfile
pop ax
; Закрываем файлы
; BMP
mov ax, BMP_fileID
push ax
call fclose
pop ax
test ax,ax
jnz error_closeBMPfile
; PCX
mov ax, PCX_fileID
push ax
call fclose
pop ax
test ax,ax
jnz error_closePCXfile

Это для bmp->pcx <.< обратно чо-та ниработает по моим методам