Курсовая работа: Завантажувач шрифтів

mov ah,3dh

mov al,0h

mov dx,offset fname+2

int 21h

jnc itd

mov ah,09h

lea dx,Msg3

int 21h

jmp Quit

itd: mov [handle],ax

ret

fopen endp

escape PROC NEAR

fclose proc

mov ah,3eh

mov bx,[handle]

int 21h

jnc its_ok2

mov dx,offset Msg5

call outputer

its_ok2:

ret

fclose endp

esca proc

met1: mov ah,3fh

mov bx,[handle]

mov cx,1

mov dx,offset escposl

int 21h