name    readfont
;
;2バイト文字セットの文字パターンを読み取るモジュール
;
READFONT_TEXT   segment byte public 'CODE'
READFONT_TEXT   ends

DGROUP  group   _DATA,_BSS
    assume  cs:READFONT_TEXT,ds:DGROUP,ss:DGROUP

_DATA   segment word public 'DATA'
_DATA   ends

_BSS    segment word public 'BSS'
read_font	dd	?
_BSS    ends

READFONT_TEXT   segment byte public 'CODE'
_set_read_proc  proc    far     ;  フォントパターン読取ルーチンのアドレス設定
    push    bp
    mov	    ax,5000h            ;  フォントパターン読取機能のアドレス取得
    mov     bh,01h
    xor     bl,bl
    mov     dx,1010h
    mov     bp,0
    int     15h
    cmp     ah,0
    jne     error
    mov word ptr read_font,bx	;  読み込んだアドレスをread_fontに格納
    mov word ptr read_font +2 ,es
    mov     ax,0
    jmp     proc_end
error:
    mov     ax,1
proc_end:
    pop     bp
    ret
_set_read_proc endp

_read_font  proc    far
    push    bp
    mov     bp,sp
    mov     cx,[bp+6]
    mov     es,[bp+8]
    mov     si,[bp+10]
    call    dword ptr [read_font]
    pop     bp
    ret
_read_font  endp
READFONT_TEXT   ends

_DATA	segment word public 'DATA'
_DATA	ends

READFONT_TEXT	segment	byte public 'CODE'
	public	_set_read_proc,_read_font
READFONT_TEXT	ends
	end