Курсовая работа: Переглядач для файлів різних типів з визначенням типу файлу по розширенню і відповідно способу перегляду 2

popa

ret

scroll_pguphex endp

;================================== B I N

;показ дампа для вигляду bin

showbindump proc

pusha

mov cx,2000

mov bx,word ptr fs:[filepointer]

add bx,offset file

mov bp,offset file

add bp,32767

mov ax,0b800h

mov es,ax

xor si,si

bin_l: mov al,byte ptr fs:[bx]

mov byte ptr es:[si],al

inc bx

cmp bx,bp

jb bin_loop

mov bx,offset file

mov word ptr fs:[filepointer],0

bin_loop:

inc si

inc si

loop bin_l

cmp bx,bp

jb bin_sav

sub bx,bp