;
; File generated by cc65 v 2.19 - Git ab8bb268
;
	.fopt		compiler,"cc65 v 2.19 - Git ab8bb268"
	.setcpu		"6502"
	.smart		on
	.autoimport	on
	.case		on
	.debuginfo	off
	.importzp	sp, sreg, regsave, regbank
	.importzp	tmp1, tmp2, tmp3, tmp4, ptr1, ptr2, ptr3, ptr4
	.macpack	longbranch
	.import		_malloc
	.import		_free
	.import		_memcmp
	.import		_open
	.import		_close
	.import		_read
	.export		_tgi_load_vectorfont
	.import		_tgi_error

; ---------------------------------------------------------------
; const struct tgi_vectorfont *__near__ __fastcall__ tgi_load_vectorfont (const char *name)
; ---------------------------------------------------------------

.segment	"CODE"

.proc	_tgi_load_vectorfont: near

.segment	"CODE"

	jsr     pushax
	jsr     decsp8
	jsr     push0
	jsr     decsp3
	lda     #$02
	sta     _tgi_error
	ldy     #$10
	jsr     pushwysp
	lda     #$01
	jsr     pusha0
	ldy     #$04
	jsr     _open
	ldy     #$05
	jsr     staxysp
	cpx     #$80
	jcs     L0003
	ldy     #$08
	jsr     pushwysp
	lda     #$09
	jsr     leaa0sp
	jsr     pushax
	ldx     #$00
	lda     #$06
	jsr     _read
	cpx     #$00
	jne     L0003
	cmp     #$06
	jne     L0003
	lda     #$07
	jsr     leaa0sp
	jsr     pushax
	lda     #<(M0001)
	ldx     #>(M0001)
	jsr     pushax
	ldx     #$00
	lda     #$04
	jsr     _memcmp
	cpx     #$00
	jne     L0003
	cmp     #$00
	jne     L0003
	ldy     #$0C
	jsr     ldaxysp
	jsr     _malloc
	ldy     #$03
	jsr     staxysp
	cpx     #$00
	bne     L0008
	cmp     #$00
	bne     L0008
	lda     #$08
	sta     _tgi_error
	jmp     L0003
L0008:	ldy     #$08
	jsr     pushwysp
	ldy     #$08
	jsr     pushwysp
	ldy     #$10
	jsr     ldaxysp
	jsr     _read
	ldy     #$0B
	cmp     (sp),y
	bne     L0015
	txa
	iny
	cmp     (sp),y
	beq     L000A
L0015:	ldy     #$04
	jsr     ldaxysp
	jsr     _free
	jmp     L0003
L000A:	ldy     #$06
	jsr     ldaxysp
	jsr     _close
	lda     #$20
	clc
	ldy     #$03
	adc     (sp),y
	pha
	lda     #$01
	iny
	adc     (sp),y
	tax
	pla
	ldy     #$01
	jsr     staxysp
	lda     #$00
	tay
L0012:	sta     (sp),y
	cmp     #$5F
	bcs     L0014
	ldy     #$04
	jsr     ldaxysp
	ldy     #$62
	jsr     incaxy
	sta     ptr1
	stx     ptr1+1
	ldx     #$00
	lda     (sp,x)
	asl     a
	bcc     L0013
	inx
	clc
L0013:	adc     ptr1
	pha
	txa
	adc     ptr1+1
	tax
	pla
	sta     sreg
	stx     sreg+1
	jsr     ldaxi
	sta     ptr1
	stx     ptr1+1
	ldy     #$02
	jsr     ldaxysp
	clc
	adc     ptr1
	pha
	txa
	adc     ptr1+1
	tax
	pla
	ldy     #$00
	sta     (sreg),y
	iny
	txa
	sta     (sreg),y
	dey
	clc
	lda     #$01
	adc     (sp),y
	jmp     L0012
L0014:	sty     _tgi_error
	ldy     #$04
	jsr     ldaxysp
	jmp     L0001
L0003:	ldy     #$06
	jsr     ldaxysp
	txa
	bmi     L000F
	ldy     #$06
	jsr     ldaxysp
	jsr     _close
L000F:	ldx     #$00
	txa
L0001:	ldy     #$0F
	jmp     addysp

.segment	"RODATA"

M0001:
	.byte	$54
	.byte	$43
	.byte	$48
	.byte	$00
M0002:
	.word	$0000
M0003:
	.word	$0000
M0004:
	.word	$0000
M0005:
	.word	$0000
M0006:
	.word	$0000

.endproc