;
; File generated by cc65 v 2.19 - Git ab8bb268
;
	.fopt		compiler,"cc65 v 2.19 - Git ab8bb268"
	.setcpu		"65C02"
	.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		_open
	.import		_close
	.import		_write
	.import		_read
	.import		_pen_adjuster
	.import		_pen_calibrate
	.export		_pen_adjust

.segment	"BSS"

_name:
	.res	2,$00

; ---------------------------------------------------------------
; void __near__ __fastcall__ pen_adjust (const char *filename)
; ---------------------------------------------------------------

.segment	"CODE"

.proc	_pen_adjust: near

.segment	"CODE"

	jsr     pushax
	lda     (sp)
	ldy     #$01
	ora     (sp),y
	beq     L0002
	jsr     ldax0sp
	sta     ptr1
	stx     ptr1+1
	lda     (ptr1)
	beq     L0002
	jsr     ldax0sp
	sta     _name
	stx     _name+1
	lda     #>(_adjuster)
	sta     _pen_adjuster+1
	lda     #<(_adjuster)
	bra     L0008
L0002:	lda     #>(_pen_calibrate)
	sta     _pen_adjuster+1
	lda     #<(_pen_calibrate)
L0008:	sta     _pen_adjuster
	jmp     incsp2

.endproc

; ---------------------------------------------------------------
; void __near__ __fastcall__ adjuster (unsigned char *XOffset)
; ---------------------------------------------------------------

.segment	"CODE"

.proc	_adjuster: near

.segment	"CODE"

	jsr     pushax
	lda     _name
	ldx     _name+1
	jsr     pushax
	lda     #$01
	jsr     pusha0
	ldy     #$04
	jsr     _open
	jsr     pushax
	jsr     ldax0sp
	cpx     #$80
	bcc     L0002
	ldy     #$03
	jsr     ldaxysp
	jsr     _pen_calibrate
	lda     _name
	ldx     _name+1
	jsr     pushax
	lda     #$92
	jsr     pusha0
	ldy     #$04
	jsr     _open
	jsr     stax0sp
	txa
	bmi     L0004
	jsr     pushw0sp
	ldy     #$07
	jsr     pushwysp
	ldx     #$00
	lda     #$01
	jsr     _write
	bra     L0007
L0002:	jsr     pushw0sp
	ldy     #$07
	jsr     pushwysp
	ldx     #$00
	lda     #$01
	jsr     _read
L0007:	jsr     ldax0sp
	jsr     _close
L0004:	jmp     incsp4

.endproc