ped_MaxColumns	equ	$16
pd_PrintBuf	equ	$60
DeviceData	equ	$0
ped_NumRows	equ	$18
_LVOFreeMem	equ	-$D2
_LVOCloseLibrary	equ	-$19E
pd_PBothReady	equ	$68
PrinterData	equ	$0
ped_XDotsInch	equ	$22
ped_YDotsInch	equ	$24
pd_PWrite	equ	$64
_LVOOpenLibrary	equ	-$228
_LVOAllocMem	equ	-$C6
ped_MaxXDots	equ	$1A
**********************************************************************
	SECTION EpsonX[CBM_MPS1250]rs000000,CODE
ProgStart
	moveq	#0,d0
	rts

	dc.w	35,36
lbL000008	dc.l	HandlerNAME
	dc.l	InitHandler
	dc.l	CloseHandler
	dc.l	Nothing01
	dc.l	Nothing02
	dc.w	$304,$880A,8,0,$660,0,0,$78,$48
	dc.l	Tab01
	dc.l	lbC0007E8
	dc.l	lbC000B20
	dc.l	$1E
	dc.l	Tab02
	dc.l	0,0
HandlerNAME	dc.b	'EpsonX',0,0
	dc.w	0

InitHandler	move.l	4(sp),lbL00016C
	lea	lbL000008(pc),a0
	move.l	a0,lbL000170
	move.l	a6,-(sp)
	move.l	4,a6
	move.l	a6,ExecBASE
	lea	DosNAME(pc),a1
	moveq	#0,d0
	jsr	_LVOOpenLibrary(a6)
	move.l	d0,DosBASE
	beq	OpenDosERR
	lea	GraphNAME(pc),a1
	moveq	#0,d0
	jsr	_LVOOpenLibrary(a6)
	move.l	d0,GraphBASE
	beq	OpenGraphERR
	lea	IntuiNAME(pc),a1
	moveq	#0,d0
	jsr	_LVOOpenLibrary(a6)
	move.l	d0,IntuiBASE
	beq	OpenIntuiERR
	moveq	#0,d0
lbC0000B2	move.l	(sp)+,a6
	rts

	move.l	IntuiBASE,a1
	move.l	a6,-(sp)
	move.l	ExecBASE,a6
	jsr	_LVOCloseLibrary(a6)
	move.l	(sp)+,a6
OpenIntuiERR	move.l	GraphBASE,a1
	move.l	a6,-(sp)
	move.l	ExecBASE,a6
	jsr	_LVOCloseLibrary(a6)
	move.l	(sp)+,a6
OpenGraphERR	move.l	DosBASE,a1
	move.l	a6,-(sp)
	move.l	ExecBASE,a6
	jsr	_LVOCloseLibrary(a6)
	move.l	(sp)+,a6
OpenDosERR	moveq	#-$1,d0
	bra.s	lbC0000B2

IntuiNAME	dc.b	'intuition.library',0
DosNAME	dc.b	'dos.library',0
GraphNAME	dc.b	'graphics.library',0,0

CloseHandler	move.l	IntuiBASE,a1
	move.l	a6,-(sp)
	move.l	ExecBASE,a6
	jsr	_LVOCloseLibrary(a6)
	move.l	(sp)+,a6
	move.l	GraphBASE,a1
	move.l	a6,-(sp)
	move.l	ExecBASE,a6
	jsr	_LVOCloseLibrary(a6)
	move.l	(sp)+,a6
	move.l	DosBASE,a1
	move.l	a6,-(sp)
	move.l	ExecBASE,a6
	jsr	_LVOCloseLibrary(a6)
	move.l	(sp)+,a6
Nothing01	moveq	#0,d0
	rts

Nothing02	moveq	#0,d0
	rts

	dc.w	0

	SECTION EpsonX[CBM_MPS1250]rs00016C,DATA
lbL00016C	dc.l	0
lbL000170	dc.l	0
ExecBASE	dc.l	0
DosBASE	dc.l	0
GraphBASE	dc.l	0
IntuiBASE	dc.l	0

	SECTION EpsonX[CBM_MPS1250]rs000184,DATA
Tab01	dc.l	InitPrinter
	dc.l	lbB0002BE
	dc.l	LineFeed
	dc.l	NewLine
	dc.l	lbB0002C6
	dc.l	NormUnder0Bold0
	dc.l	Kursiv1
	dc.l	Kursiv0
	dc.l	Underline1
	dc.l	Underline0
	dc.l	Bold1
	dc.l	Bold0
	dc.l	lbB0002E8
	dc.l	lbB0002EA
	dc.l	lbB0002EC
	dc.l	lbB0002F4
	dc.l	lbB0002FC
	dc.l	lbB000300
	dc.l	Pica1
	dc.l	DoubleWidth1
	dc.l	DoubleWidth0
	dc.l	lbB000312
	dc.l	lbB000314
	dc.l	DStrike1
	dc.l	DStrike0
	dc.l	NLQ1
	dc.l	NLQ0
	dc.l	Superscript1
	dc.l	Superscript0
	dc.l	Subscript1
	dc.l	Subscript0
	dc.l	lbB000336
	dc.l	lbB00033A
	dc.l	lbB00033C
	dc.l	Chars0
	dc.l	Chars1
	dc.l	Chars2
	dc.l	Chars3
	dc.l	Chars4
	dc.l	Chars5
	dc.l	Chars6
	dc.l	Chars7
	dc.l	Chars8
	dc.l	Chars9
	dc.l	Chars10
	dc.l	Proportional1
	dc.l	Proportional0
	dc.l	lbB000372
	dc.l	lbB000374
	dc.l	lbB000376
	dc.l	lbB000378
	dc.l	lbB00037A
	dc.l	lbB00037C
	dc.l	lbB00037E
	dc.l	lbB000380
	dc.l	Odstep1_8
	dc.l	Odstep1_6
	dc.l	IlePageLinesN
	dc.l	PerforationScroll1
	dc.l	PerforationScroll0
	dc.l	lbB000396
	dc.l	lbB000398
	dc.l	lbB00039A
	dc.l	lbB00039C
	dc.l	lbB00039E
	dc.l	lbB0003A0
	dc.l	lbB0003A2
	dc.l	lbB0003A4
	dc.l	lbB0003A6
	dc.l	lbB0003A8
	dc.l	PoziomTabN
	dc.l	lbB0003AE
	dc.l	PionTabN
	dc.l	lbB0003B4
	dc.l	StandardTabs
	dc.l	lbB0003CC
	dc.l	lbB0003CE
InitPrinter	dc.b	$FD,$1B,$40,$FD,0,0
lbB0002BE	dc.b	$FF,0
LineFeed	dc.b	10,0
NewLine	dc.b	13,10,0,0
lbB0002C6	dc.b	$FF,0
NormUnder0Bold0	dc.b	$1B,$35,$1B,$2D,$FE,$1B,$46,0
Kursiv1	dc.b	$1B
	dc.b	'4',0,0
Kursiv0	dc.b	$1B
	dc.b	'5',0,0
Underline1	dc.b	$1B
	dc.b	'-'
	dc.b	1
	dc.b	0
Underline0	dc.b	$1B
	dc.b	'-'
	dc.b	$FE
	dc.b	0
Bold1	dc.b	$1B,$45,0,0
Bold0	dc.b	$1B,$46,0,0
lbB0002E8	dc.b	$FF,0
lbB0002EA	dc.b	$FF,0
lbB0002EC	dc.b	$1B,$50,$12,$1B,$57,$FE,0,0	; double szer??
lbB0002F4	dc.b	$1B,$4D,$12,$1B,$57,$FE,0,0
lbB0002FC	dc.b	$1B,$50,0,0	; pica on
lbB000300	dc.b	15,$1B,$50,$1B,$57,$FE,0,0
Pica1	dc.b	$12,0	; ???
DoubleWidth1	dc.b	$1B
	dc.b	'W'
	dc.b	1
	dc.b	0
DoubleWidth0	dc.b	$1B
	dc.b	'W'
	dc.b	$FE
	dc.b	0
lbB000312	dc.b	$FF,0
lbB000314	dc.b	$FF,0
DStrike1	dc.b	$1B
	dc.b	'G',0,0
DStrike0	dc.b	$1B
	dc.b	'H',0,0
NLQ1	dc.b	$1B
	dc.b	'x'
	dc.b	1
	dc.b	0
NLQ0	dc.b	$1B
	dc.b	'x'
	dc.b	$FE
	dc.b	0
Superscript1	dc.b	$1B
	dc.b	'S'
	dc.b	$FE
	dc.b	0
Superscript0	dc.b	$1B
	dc.b	'T',0,0
Subscript1	dc.b	$1B
	dc.b	'S'
	dc.b	1
	dc.b	0
Subscript0	dc.b	$1B
	dc.b	'T',0,0
lbB000336	dc.b	$1B,$54,0,0
lbB00033A	dc.b	$FF,0
lbB00033C	dc.b	$FF,0
Chars0	dc.b	$1B,$52,$FE,0
Chars1	dc.b	$1B,$52,1,0
Chars2	dc.b	$1B,$52,2,0
Chars3	dc.b	$1B,$52,3,0
Chars4	dc.b	$1B,$52,4,0
Chars5	dc.b	$1B,$52,5,0
Chars6	dc.b	$1B,$52,6,0
Chars7	dc.b	$1B,$52,7,0
Chars8	dc.b	$1B,$52,8,0
Chars9	dc.b	$1B,$52,9,0
Chars10	dc.b	$1B,$52,10,0
Proportional1	dc.b	$1B
	dc.b	'p1',0
Proportional0	dc.b	$1B
	dc.b	'p0',0
lbB000372	dc.b	$FF,0
lbB000374	dc.b	$FF,0
lbB000376	dc.b	$FF,0
lbB000378	dc.b	$FF,0
lbB00037A	dc.b	$FF,0
lbB00037C	dc.b	$FF,0
lbB00037E	dc.b	$FF,0
lbB000380	dc.b	$FF,0
Odstep1_8	dc.b	$1B
	dc.b	'0',0,0
Odstep1_6	dc.b	$1B
	dc.b	'2',0,0
IlePageLinesN	dc.b	$1B
	dc.b	'C',0,0
PerforationScroll1	dc.b	$1B
	dc.b	'N',0,0
PerforationScroll0	dc.b	$1B
	dc.b	'O',0,0
lbB000396	dc.b	$FF,0
lbB000398	dc.b	$FF,0
lbB00039A	dc.b	$FF,0
lbB00039C	dc.b	$FF,0
lbB00039E	dc.b	$FF,0
lbB0003A0	dc.b	$FF,0
lbB0003A2	dc.b	$FF,0
lbB0003A4	dc.b	$FF,0
lbB0003A6	dc.b	$FF,0
lbB0003A8	dc.b	$FF,0
PoziomTabN	dc.b	$1B
	dc.b	'D'
	dc.b	$FE
	dc.b	0
lbB0003AE	dc.b	$FF,0
PionTabN	dc.b	$1B,$42,$FE,0
lbB0003B4	dc.b	$1B,$44,$FE,$1B,$42,$FE,0,0
StandardTabs	dc.b	27,68,8,16,24,32,40,48,56,64,72,80,88
	dc.b	$FE,0,0
lbB0003CC	dc.b	$FF,0
lbB0003CE	dc.b	$FF,0
Tab02	dc.l	CodeA0
	dc.l	CodeA1
	dc.l	CodeA2
	dc.l	CodeA3
	dc.l	CodeA4
	dc.l	CodeA5
	dc.l	CodeA6
	dc.l	CodeA7
	dc.l	CodeA8
	dc.l	CodeA9
	dc.l	CodeAA
	dc.l	CodeAB
	dc.l	CodeAC
	dc.l	CodeAD
	dc.l	CodeAE
	dc.l	CodeAF
	dc.l	CodeB0
	dc.l	lbB0005B4
	dc.l	lbB0005B8
	dc.l	lbB0005C2
	dc.l	lbB0005CC
	dc.l	lbB0005CE
	dc.l	lbB0005D0
	dc.l	lbB0005D2
	dc.l	lbB0005DC
	dc.l	lbB0005DE
	dc.l	lbB0005E8
	dc.l	lbB0005F4
	dc.l	lbB0005F6
	dc.l	lbB00060A
	dc.l	lbB00061E
	dc.l	lbB000632
	dc.l	CodeC0
	dc.l	lbB000640
	dc.l	lbB000644
	dc.l	lbB000648
	dc.l	lbB00064C
	dc.l	lbB000656
	dc.l	lbB000660
	dc.l	lbB00066A
	dc.l	lbB00066E
	dc.l	lbB000672
	dc.l	lbB00067C
	dc.l	lbB000680
	dc.l	lbB00068C
	dc.l	lbB000690
	dc.l	lbB000694
	dc.l	lbB000698
	dc.l	CodeD0
	dc.l	lbB0006A8
	dc.l	lbB0006B2
	dc.l	lbB0006B6
	dc.l	lbB0006BA
	dc.l	lbB0006BE
	dc.l	lbB0006C2
	dc.l	lbB0006CC
	dc.l	lbB0006CE
	dc.l	lbB0006D8
	dc.l	lbB0006DC
	dc.l	lbB0006E0
	dc.l	lbB0006E4
	dc.l	lbB0006EE
	dc.l	lbB0006F2
	dc.l	lbB0006F4
	dc.l	CodeE0
	dc.l	lbB000708
	dc.l	lbB00070C
	dc.l	lbB000710
	dc.l	lbB000714
	dc.l	lbB00071E
	dc.l	lbB000728
	dc.l	lbB000732
	dc.l	lbB00073C
	dc.l	lbB000746
	dc.l	lbB000750
	dc.l	lbB000754
	dc.l	lbB000760
	dc.l	lbB00076A
	dc.l	lbB00076E
	dc.l	lbB000772
	dc.l	CodeF0
	dc.l	lbB000780
	dc.l	lbB00078A
	dc.l	lbB000794
	dc.l	lbB000798
	dc.l	lbB00079C
	dc.l	lbB0007A0
	dc.l	lbB0007AA
	dc.l	lbB0007AE
	dc.l	lbB0007B8
	dc.l	lbB0007C2
	dc.l	lbB0007C6
	dc.l	lbB0007CA
	dc.l	lbB0007D4
	dc.l	lbB0007D8
	dc.l	CodeFF
CodeA0	dc.b	$20,0
CodeA1	dc.b	$a1,0
CodeA2	dc.b	$a2,0
CodeA3	dc.b	$a3,0
CodeA4	dc.b	$a4,0
CodeA5	dc.b	$a5,0
CodeA6	dc.b	$a6,0
CodeA7	dc.b	$a7,0
CodeA8	dc.b	$a8,0
CodeA9	dc.b	$a9,0
CodeAA	dc.b	$aa,0
CodeAB	dc.b	$ab,0
CodeAC	dc.b	$ac,0
CodeAD	dc.b	$ad,0
CodeAE	dc.b	$ae,0
CodeAF	dc.b	$af,0
CodeB0	dc.b	$B0,0
lbB0005B4	dc.b	$B1,0
lbB0005B8	dc.b	$B2,0
lbB0005C2	dc.b	$B3,0
lbB0005CC	dc.b	$b4,0
lbB0005CE	dc.b	$b5,0
lbB0005D0	dc.b	$b6,0
lbB0005D2	dc.b	$b7,0
lbB0005DC	dc.b	$b8,0
lbB0005DE	dc.b	$B9,0
lbB0005E8	dc.b	$Ba,0
lbB0005F4	dc.b	$bb,0
lbB0005F6	dc.b	$Bc,0
lbB00060A	dc.b	$Bd,0
lbB00061E	dc.b	$Be,0
lbB000632	dc.b	$Bf,0
CodeC0	        dc.b	$c0,0
lbB000640	dc.b	$c1,0
lbB000644	dc.b	$c2,0
lbB000648	dc.b	$c3,0
lbB00064C	dc.b	$c4,0
lbB000656	dc.b	$c5,0
lbB000660	dc.b	$c6,0
lbB00066A	dc.b	$C7,0
lbB00066E	dc.b	$c8,0
lbB000672	dc.b	$c9,0
lbB00067C	dc.b	$ca,0
lbB000680	dc.b	$cb,0
lbB00068C	dc.b	$cc,0
lbB000690	dc.b	$cd,0
lbB000694	dc.b	$cE,0
lbB000698	dc.b	$cf,0
CodeD0	        dc.b	$d0,0
lbB0006A8	dc.b	$d1,0
lbB0006B2	dc.b	$d2,0
lbB0006B6	dc.b	$d3,0
lbB0006BA	dc.b	$d4,0
lbB0006BE	dc.b	$d5,0
lbB0006C2	dc.b	$d6,0
lbB0006CC	dc.b	$d7,0
lbB0006CE	dc.b	$d8,0
lbB0006D8	dc.b	$d9,0
lbB0006DC	dc.b	$da,0
lbB0006E0	dc.b	$db,0
lbB0006E4	dc.b	$dc,0
lbB0006EE	dc.b	$dd,0
lbB0006F2	dc.b	$de,0
lbB0006F4	dc.b	$df,0
CodeE0	        dc.b	$e0,0
lbB000708	dc.b	$e1,0
lbB00070C	dc.b	$e2,0
lbB000710	dc.b	$e3,0
lbB000714	dc.b	$e4,0
lbB00071E	dc.b	$e5,0
lbB000728	dc.b	$e6,0
lbB000732	dc.b	$e7,0
lbB00073C	dc.b	$e8,0
lbB000746	dc.b	$e9,0
lbB000750	dc.b	$ea,0
lbB000754	dc.b	$eb,0
lbB000760	dc.b	$ec,0
lbB00076A	dc.b	$ed,0
lbB00076E	dc.b	$eE,0
lbB000772	dc.b	$ef,0
CodeF0	        dc.b	$f0,0
lbB000780	dc.b	$f1,0
lbB00078A	dc.b	$f2,0
lbB000794	dc.b	$f3,0
lbB000798	dc.b	$f4,0
lbB00079C	dc.b	$f5,0
lbB0007A0	dc.b	$f6,0
lbB0007AA	dc.b	$f7,0
lbB0007AE	dc.b	$f8,0
lbB0007B8	dc.b	$f9,0
lbB0007C2	dc.b	$fa,0
lbB0007C6	dc.b	$fb,0
lbB0007CA	dc.b	$fc,0
lbB0007D4	dc.b	$fd,0
lbB0007D8	dc.b	$fe,0
CodeFF	        dc.b	$ff,0


	SECTION EpsonX[CBM_MPS1250]rs0007E8,CODE
lbC0007E8	movem.l	d2-d6/a2-a4,-(sp)
	move.l	$24(sp),a3
	move.l	$28(sp),d2
	move.l	$2C(sp),a4
	moveq	#0,d3
	moveq	#0,d1
	move.l	#lbL00016C,d4
	move.l	#lbB000AF4,d5
	cmp.w	#1,(a3)
	bne	lbC0008AE
	bra.s	lbC000822

lbC000812	move.l	d3,a1
	move.l	#OffAllBajery,a0
	move.b	0(a0,d3.l),0(a1,d2.l)
	addq.l	#1,d3
lbC000822	moveq	#$1A,d0
	move.l	d0,a0
	cmp.l	d3,a0
	bgt.s	lbC000812
	move.l	d4,a0
	move.l	(a0),a2
	cmp.w	#$100,$A58(a2)
	bne.s	lbC00083E
	move.l	d2,a0
	move.b	#1,$11(a0)
lbC00083E	move.l	$30(sp),a2
	move.b	#$24,(a2)
	move.l	d4,a0
	move.l	(a0),a2
	cmp.w	#$200,$A5A(a2)
	bne.s	lbC000862
	move.l	d2,a0
	move.b	#$30,$18(a0)
	move.l	$30(sp),a2
	move.b	#$1B,(a2)
lbC000862	move.l	d4,a0
	move.l	(a0),a2
	cmp.w	#$400,$A56(a2)
	bne.s	lbC000878
	move.l	d2,a0
	move.b	#$4D,9(a0)
	bra.s	lbC000892

lbC000878	move.l	d4,a0
	move.l	(a0),a2
	cmp.w	#$800,$A56(a2)
	bne.s	lbC000892
	move.l	d2,a0
	move.b	#15,7(a0)
	move.b	#$50,9(a0)
lbC000892	move.l	$38(sp),a2
	move.l	d4,a1
	move.l	(a1),a0
	move.b	$A5D(a0),(a2)
	move.l	$38(sp),a2
	move.l	(a1),a0
	move.b	$A5F(a0),1(a2)
	move.w	#$41,(a3)
lbC0008AE	cmp.w	#$42,(a3)
	bne	lbC000924
	move.l	d4,a0
	move.l	(a0),a2
	cmp.w	#$30,$A68(a2)
	bne.s	lbC0008CA
	move.l	#$88,d1
	bra.s	lbC0008CC

lbC0008CA	moveq	#$50,d1
lbC0008CC	move.l	d4,a0
	move.l	(a0),a2
	tst.w	$A56(a2)
	bne.s	lbC0008E4
	move.l	$38(sp),a2
	move.l	d1,d0
	add.l	d0,d0
	move.l	d0,d1
	asl.l	#2,d0
	bra.s	lbC000906

lbC0008E4	move.l	d4,a0
	move.l	(a0),a2
	cmp.w	#$400,$A56(a2)
	bne.s	lbC0008FE
	move.l	$38(sp),a2
	move.l	d1,d0
	asl.l	#2,d0
	move.l	d0,d1
	add.l	d0,d0
	bra.s	lbC000906

lbC0008FE	move.l	$38(sp),a2
	move.l	d1,d0
	asl.l	#4,d0
lbC000906	add.l	d1,d0
	moveq	#10,d1
	jsr	lbC001432
	move.l	d0,d6
	move.b	d6,1(a2)
	move.l	$38(sp),a2
	move.b	#1,(a2)
	moveq	#0,d1
	move.w	#$41,(a3)
lbC000924	cmp.w	#$41,(a3)
	bne.s	lbC000982
	move.l	d4,a0
	move.l	(a0),a2
	move.b	#$FD,$AA0(a2)
	move.l	$38(sp),a2
	tst.b	(a2)
	bne.s	lbC000944
	move.l	d5,a0
	clr.b	3(a0)
	bra.s	lbC000958

lbC000944	move.l	$38(sp),a2
	moveq	#0,d0
	move.b	(a2),d0
	move.l	d0,a0
	subq.l	#1,a0
	move.l	a0,d4
	move.l	d5,a1
	move.b	d4,3(a1)
lbC000958	move.l	$38(sp),a2
	move.l	d5,a0
	move.b	1(a2),6(a0)
	bra.s	lbC000976

lbC000966	move.l	d3,a0
	addq.l	#1,d3
	move.l	d1,d0
	addq.l	#1,d1
	move.l	d5,a1
	move.b	0(a1,d0.l),0(a0,d2.l)
lbC000976	moveq	#8,d0
	move.l	d0,a0
	cmp.l	d1,a0
	bgt.s	lbC000966
	bra	lbC000AEC

lbC000982	cmp.w	#$20,(a3)
	bne.s	lbC0009AE
	tst.b	(a4)
	bne.s	lbC000998
	move.b	#1,(a4)
	move.w	#$1B,(a3)
	bra	lbC000AEA

lbC000998	tst.b	(a4)
	bge.s	lbC0009A6
	clr.b	(a4)
	move.w	#$1E,(a3)
	bra	lbC000AEA

lbC0009A6	moveq	#-$1,d0
	move.l	d0,d3
	bra	lbC000AEC

lbC0009AE	cmp.w	#$21,(a3)
	bne.s	lbC0009D4
	tst.b	(a4)
	bne.s	lbC0009C4
	move.b	#$FF,(a4)
	move.w	#$1D,(a3)
	bra	lbC000AEA

lbC0009C4	tst.b	(a4)
	ble.s	lbC0009D2
	clr.b	(a4)
	move.w	#$1C,(a3)
	bra	lbC000AEA

lbC0009D2	bra.s	lbC0009A6

lbC0009D4	cmp.w	#$1F,(a3)
	bne.s	lbC0009DC
	clr.b	(a4)
lbC0009DC	cmp.w	#$1C,(a3)
	bne.s	lbC0009E4
	clr.b	(a4)
lbC0009E4	cmp.w	#$1B,(a3)
	bne.s	lbC0009EE
	move.b	#1,(a4)
lbC0009EE	cmp.w	#$1E,(a3)
	bne.s	lbC0009F6
	clr.b	(a4)
lbC0009F6	cmp.w	#$1D,(a3)
	bne.s	lbC000A00
	move.b	#$FF,(a4)
lbC000A00	cmp.w	#$37,(a3)
	bne.s	lbC000A0E
	move.l	$30(sp),a2
	move.b	#$1B,(a2)
lbC000A0E	cmp.w	#$38,(a3)
	bne.s	lbC000A1C
	move.l	$30(sp),a2
	move.b	#$24,(a2)
lbC000A1C	cmp.w	#2,(a3)
	bne.s	lbC000A48
	move.l	d3,a0
	addq.l	#1,d3
	move.b	#$1B,0(a0,d2.l)
	move.l	d3,a0
	addq.l	#1,d3
	move.b	#$4A,0(a0,d2.l)
lbC000A36	move.l	d3,a0
	addq.l	#1,d3
	move.l	a0,a2
	move.l	$30(sp),a0
	move.b	(a0),0(a2,d2.l)
	bra	lbC000AEC

lbC000A48	cmp.w	#4,(a3)
	bne.s	lbC000A64
	move.l	d3,a0
	addq.l	#1,d3
	move.b	#$1B,0(a0,d2.l)
	move.l	d3,a0
	addq.l	#1,d3
	move.b	#$6A,0(a0,d2.l)
	bra.s	lbC000A36

lbC000A64	cmp.w	#12,(a3)
	bne	lbC000ADC
	move.l	$38(sp),a2
	cmp.b	#$27,(a2)
	bne.s	lbC000A7E
	move.l	$38(sp),a2
	move.b	#$1E,(a2)
lbC000A7E	move.l	$38(sp),a2
	cmp.b	#$25,(a2)
	bls.s	lbC000A8A
	bra.s	lbC000AEA

lbC000A8A	move.l	d3,a0
	addq.l	#1,d3
	move.b	#$1B,0(a0,d2.l)
	move.l	d3,a0
	addq.l	#1,d3
	move.b	#$72,0(a0,d2.l)
	move.l	d3,a0
	addq.l	#1,d3
	move.l	a0,a2
	move.l	$38(sp),a0
	moveq	#0,d1
	move.b	(a0),d1
	move.l	d1,d0
	moveq	#$1E,d1
	sub.l	d1,d0
	move.l	#lbB000B16,a0
	move.b	0(a0,d0.l),0(a2,d2.l)
	move.l	d3,a0
	addq.l	#1,d3
	move.b	#$1B,0(a0,d2.l)
	move.l	d3,a0
	addq.l	#1,d3
	move.b	#$74,0(a0,d2.l)
	move.l	d3,a0
	addq.l	#1,d3
	clr.b	0(a0,d2.l)
	bra.s	lbC000AEC

lbC000ADC	tst.w	(a3)
	bne.s	lbC000AEA
	move.l	d4,a0
	move.l	(a0),a2
	move.b	#$FD,$AA0(a2)
lbC000AEA	moveq	#0,d3
lbC000AEC	move.l	d3,d0
	movem.l	(sp)+,d2-d6/a2-a4
	rts


	SECTION EpsonX[CBM_MPS1250]rs000AF4,DATA
lbB000AF4	dc.b	$FD,$1B,$6C,$4C,$1B,$51,$71,$FD
OffAllBajery	dc.b	$1B
	dc.b	'5'
	dc.b	$1B
	dc.b	'-',0
	dc.b	$1B
	dc.b	'F'
	dc.b	$12
	dc.b	$1B
	dc.b	'P'
	dc.b	$1B
	dc.b	'W',0
	dc.b	$1B
	dc.b	'H'
	dc.b	$1B
	dc.b	'x',0
	dc.b	$1B
	dc.b	'T'
	dc.b	$1B
	dc.b	'p0'
	dc.b	$1B
	dc.b	'2',$D
lbB000B16	dc.b	0,5,6,4,3,1,2,0,0,0


	SECTION EpsonX[CBM_MPS1250]rs000B20,CODE
lbC000B20	movem.l	d2-d4/a2-a4,-(sp)
	move.l	$1C(sp),d4
	move.l	$20(sp),d1
	move.l	$24(sp),d3
	move.l	#lbL00016C,a3
	move.l	#lbB0010DA,a4
	move.l	#lbL0010D2,a1
	move.l	$28(sp),d0
	blt	lbC000F8A
	moveq	#5,d2
	cmp.l	d0,d2
	blt	lbC000F8A
	add.l	d0,d0
	move.w	lbW000B5C(pc,d0.l),d0
	jmp	lbW000B5C(pc,d0.w)

lbW000B5C	dc.w	lbC000B68-lbW000B5C
	dc.w	lbC000D2A-lbW000B5C
	dc.w	lbC000D56-lbW000B5C
	dc.w	lbC000EC2-lbW000B5C
	dc.w	lbC000EDC-lbW000B5C
	dc.w	lbC000F5C-lbW000B5C

lbC000B68	move.w	d1,lbW0010F6
	moveq	#0,d2
	move.w	lbW0010F6,d2
	move.l	d2,d0
	addq.l	#8,d0
	move.w	d0,lbW0010F8
	move.l	(a3),a0
	cmp.w	#2,$A64(a0)
	bne.s	lbC000BE4
	move.w	#4,lbW0010FA
	moveq	#0,d2
	move.w	lbW0010F8,d2
	move.l	d2,d0
	muls	#3,d0
	move.w	d0,(a1)
	clr.w	2(a1)
	moveq	#0,d2
	move.w	lbW0010F8,d2
	move.l	d2,d0
	move.w	d0,4(a1)
	moveq	#0,d2
	move.w	lbW0010F8,d2
	move.l	d2,d0
	add.l	d0,d0
	move.w	d0,6(a1)
	move.w	#4,lbW0010FE
	move.w	#1,lbW001100
	move.w	#2,lbW001102
	clr.w	lbL001104
	bra.s	lbC000BF4

lbC000BE4	move.w	#1,lbW0010FA
	clr.w	(a1)
	clr.w	lbW0010FE
lbC000BF4	moveq	#0,d0
	move.w	lbW0010FA,d0
	move.l	d0,d1
	mulu	lbW0010F8,d1
	move.l	d1,lbL0010C4
	addq.l	#4,lbL0010C4
	move.l	lbL000170,a0
	cmp.w	#$D8,$24(a0)
	bne.s	lbC000C62
	move.l	lbL0010C4,a1
	move.l	a1,d0
	add.l	a1,a1
	add.l	d0,a1
	move.l	a1,lbL0010F2
	move.l	lbL0010C4,lbL0010C8
	move.l	lbL0010C8,d1
	add.l	d1,lbL0010C8
	move.l	lbL0010C8,a1
	move.l	lbL0010C8,d1
	add.l	d1,lbL0010C8
	move.l	a1,d1
	add.l	d1,lbL0010C8
	bra.s	lbC000CB8

lbC000C62	move.l	lbL000170,a0
	cmp.w	#$90,$24(a0)
	bne.s	lbC000C98
	move.l	lbL0010C4,a1
	add.l	a1,a1
	move.l	a1,lbL0010F2
	move.l	lbL0010C4,lbL0010C8
	move.l	lbL0010C8,d0
	asl.l	#2,d0
	move.l	d0,lbL0010C8
	bra.s	lbC000CB8

lbC000C98	move.l	lbL0010C4,lbL0010F2
	move.l	lbL0010C4,lbL0010C8
	move.l	lbL0010C8,d0
	add.l	d0,lbL0010C8
lbC000CB8	move.l	(a3),a2
	pea	1
	move.l	lbL0010C8,-(sp)
	jsr	AllocMem
	move.l	d0,$60(a2)
	move.l	(a3),a0
	tst.l	pd_PrintBuf(a0)
	addq.l	#8,sp
	bne.s	lbC000CDE
	moveq	#7,d2
	bra	lbC000F8A

lbC000CDE	moveq	#7,d0
	move.l	d0,lbL0010CC
	move.b	#$50,1(a4)
	move.b	#$12,2(a4)
	clr.b	8(a4)
	move.l	(a3),a0
	cmp.w	#$30,$A68(a0)
	bne.s	lbC000D08
	move.l	#$88,d0
	bra.s	lbC000D0A

lbC000D08	moveq	#$50,d0
lbC000D0A	move.b	d0,11(a4)
	move.b	#$31,15(a4)
	pea	$13
	pea	(a4)
	move.l	(a3),a2
	move.l	pd_PWrite(a2),a0
	jsr	(a0)
	move.l	d0,d2
lbC000D24	addq.l	#8,sp
	bra	lbC000F8A

lbC000D2A	move.l	lbL0010C4,-(sp)
	pea	(a1)
	move.l	(a3),a2
	move.l	pd_PrintBuf(a2),a1
	move.l	lbL0010CC,a4
	pea	0(a4,a1.l)
	move.l	d3,-(sp)
	move.l	d4,-(sp)
	jsr	lbC001108
	moveq	#0,d2
	lea	$14(sp),sp
	bra	lbC000F8A

lbC000D56	move.l	(a3),a0
	move.l	lbL0010CC,a1
	subq.l	#7,a1
	move.l	pd_PrintBuf(a0),d0
	move.l	a1,a2
	add.l	d0,a2
	move.l	a2,d4
	move.l	lbL000170,a0
	cmp.w	#$48,$24(a0)
	bne.s	lbC000D9E
	move.l	d3,d0
	move.l	d0,d2
	add.l	d0,d0
	add.l	d2,d0
	moveq	#0,d1
	move.w	lbW0010D0,d1
	sub.l	d1,d0
	move.l	d0,d3
	pea	1
	move.l	d3,-(sp)
	move.l	d4,-(sp)
	move.l	d4,d1
	addq.l	#7,d1
	move.l	d1,-(sp)
	bra	lbC000E7A

lbC000D9E	move.l	lbL000170,a0
	cmp.w	#$90,$24(a0)
	bne.s	lbC000DF6
	pea	1
	pea	2
	move.l	d4,-(sp)
	move.l	d4,d1
	addq.l	#7,d1
	move.l	d1,-(sp)
	jsr	lbC000F92
	move.l	d0,d2
	moveq	#1,d0
	cmp.l	d3,d0
	lea	$10(sp),sp
	bge	lbC000E86
	clr.l	-(sp)
	move.l	d3,d0
	add.l	d3,d3
	add.l	d0,d3
	moveq	#2,d1
	move.l	d3,d0
	jsr	lbC001432
	move.l	d0,d1
	subq.l	#2,d1
	move.l	d1,-(sp)
	move.l	d2,-(sp)
	move.l	(a3),a2
	move.l	lbL0010C4,a0
	bra	lbC000E6C

lbC000DF6	move.l	lbL000170,a0
	cmp.w	#$D8,$24(a0)
	bne	lbC000E86
	pea	1
	pea	1
	move.l	d4,-(sp)
	move.l	d4,d1
	addq.l	#7,d1
	move.l	d1,-(sp)
	jsr	lbC000F92
	move.l	d0,d2
	moveq	#1,d0
	cmp.l	d3,d0
	lea	$10(sp),sp
	bge.s	lbC000E52
	clr.l	-(sp)
	pea	1
	move.l	d2,-(sp)
	move.l	(a3),a2
	move.l	lbL0010C4,a1
	add.l	lbL0010CC,a1
	move.l	pd_PrintBuf(a2),d0
	pea	0(a1,d0.l)
	jsr	lbC000F92
	move.l	d0,d2
	lea	$10(sp),sp
lbC000E52	moveq	#2,d0
	cmp.l	d3,d0
	bge.s	lbC000E86
	clr.l	-(sp)
	move.l	d3,d1
	subq.l	#2,d1
	move.l	d1,-(sp)
	move.l	d2,-(sp)
	move.l	(a3),a2
	move.l	lbL0010C4,a0
	add.l	a0,a0
lbC000E6C	add.l	lbL0010CC,a0
	move.l	$60(a2),d0
	pea	0(a0,d0.l)
lbC000E7A	jsr	lbC000F92
	move.l	d0,d2
	lea	$10(sp),sp
lbC000E86	move.l	d2,d1
	sub.l	d4,d1
	move.l	d1,-(sp)
	move.l	d4,-(sp)
	move.l	(a3),a2
	move.l	pd_PWrite(a2),a0
	jsr	(a0)
	move.l	d0,d2
	addq.l	#8,sp
	bne	lbC000F8A
	moveq	#7,d0
	cmp.l	lbL0010CC,d0
	bne.s	lbC000EB0
	move.l	lbL0010F2,d0
	bra.s	lbC000EB2

lbC000EB0	moveq	#0,d0
lbC000EB2	move.l	d0,lbL0010CC
	addq.l	#7,lbL0010CC
	bra	lbC000F8A

lbC000EC2	move.l	(a3),a2
	move.l	pd_PrintBuf(a2),a1
	move.l	lbL0010CC,a4
	pea	0(a4,a1.l)
	jsr	lbC001098
	bra	lbC000F86

lbC000EDC	moveq	#0,d2
	moveq	#1,d0
	cmp.l	d4,d0
	beq.s	lbC000F36
	move.l	(a3),a0
	cmp.w	#$400,$A56(a0)
	bne.s	lbC000EF6
	move.b	#$4D,1(a4)
	bra.s	lbC000F06

lbC000EF6	move.l	(a3),a0
	cmp.w	#$800,$A56(a0)
	bne.s	lbC000F06
	move.b	#15,2(a4)
lbC000F06	move.l	(a3),a0
	moveq	#0,d2
	move.w	$A5C(a0),d2
	move.l	d2,d0
	subq.l	#1,d0
	move.b	d0,8(a4)
	move.l	(a3),a0
	move.b	$A5F(a0),11(a4)
	move.b	#$30,15(a4)
	pea	$13
	pea	(a4)
	move.l	(a3),a2
	move.l	pd_PWrite(a2),a0
	jsr	(a0)
	move.l	d0,d2
	addq.l	#8,sp
lbC000F36	move.l	(a3),a2
	move.l	pd_PBothReady(a2),a0
	jsr	(a0)
	move.l	(a3),a0
	tst.l	pd_PrintBuf(a0)
	beq.s	lbC000F8A
	move.l	lbL0010C8,-(sp)
	move.l	(a3),a2
	move.l	pd_PrintBuf(a2),-(sp)
	jsr	FreeMem
	bra	lbC000D24

lbC000F5C	move.l	(a3),a0
	cmp.w	#$80,$A6C(a0)
	bne.s	lbC000F6A
	moveq	#1,d0
	bra.s	lbC000F6C

lbC000F6A	moveq	#0,d0
lbC000F6C	move.w	d0,lbW0010D0
	and.l	#$700,d1
	move.l	d1,-(sp)
	jsr	lbC001278
	move.w	d0,lbB0010FC
lbC000F86	moveq	#0,d2
	addq.l	#4,sp
lbC000F8A	move.l	d2,d0
	movem.l	(sp)+,d2-d4/a2-a4
	rts

lbC000F92	movem.l	d2-d5/a2/a3,-(sp)
	move.l	$1C(sp),d2
	move.l	$20(sp),a0
	move.l	$24(sp),d3
	move.l	a0,a2
	tst.l	$28(sp)
	beq.s	lbC000FB0
	clr.l	lbL0010EE
lbC000FB0	moveq	#0,d5
	bra	lbC00106E

lbC000FB6	moveq	#0,d1
	move.w	lbW0010F6,d1
	move.l	d1,d4
	move.l	d4,d0
	add.l	d2,d0
	move.l	d0,d1
	subq.l	#1,d1
	move.l	d1,a1
	bra.s	lbC000FD0

lbC000FCC	subq.l	#1,d4
	subq.l	#1,a1
lbC000FD0	tst.l	d4
	ble.s	lbC000FD8
	tst.b	(a1)
	beq.s	lbC000FCC
lbC000FD8	tst.l	d4
	beq.s	lbC001048
	addq.l	#1,a1
	move.b	#13,(a1)
	move.l	d2,d1
	subq.l	#7,d1
	move.l	d1,a1
	move.b	#$1B,(a1)+
	move.b	#$72,(a1)+
	move.l	a1,d1
	addq.l	#1,a1
	move.l	d5,d0
	add.l	d0,d0
	move.l	#lbW0010FE,a0
	move.l	d1,a3
	move.b	1(a0,d0.l),(a3)
	move.b	#$1B,(a1)+
	move.l	a1,d1
	addq.l	#1,a1
	move.l	d1,a3
	move.b	lbB0010FD,(a3)
	move.l	a1,d1
	addq.l	#1,a1
	move.l	d4,d0
	and.l	#$FF,d0
	move.l	d1,a3
	move.b	d0,(a3)
	move.l	a1,d1
	move.l	d4,d0
	asr.l	#8,d0
	move.l	d1,a3
	move.b	d0,(a3)
	addq.l	#8,d4
	tst.l	lbL0010EE
	beq.s	lbC001046
	move.l	d2,d1
	subq.l	#7,d1
	move.l	d1,a1
lbC00103E	move.b	(a1)+,(a2)+
	subq.l	#1,d4
	beq.s	lbC001048
	bra.s	lbC00103E

lbC001046	add.l	d4,a2
lbC001048	moveq	#0,d0
	move.w	lbW0010F6,d0
	move.l	d0,d1
	addq.l	#8,d1
	cmp.l	d1,d4
	beq.s	lbC001060
	moveq	#1,d0
	move.l	d0,lbL0010EE
lbC001060	addq.l	#1,d5
	moveq	#0,d0
	move.w	lbW0010F8,d0
	move.l	d0,d1
	add.l	d1,d2
lbC00106E	moveq	#0,d0
	move.w	lbW0010FA,d0
	cmp.l	d5,d0
	bhi	lbC000FB6
	move.b	#13,(a2)+
	move.b	#$1B,(a2)+
	move.b	#$4A,(a2)+
	move.l	a2,d1
	addq.l	#1,a2
	move.l	d1,a0
	move.b	d3,(a0)
	move.l	a2,d0
	movem.l	(sp)+,d2-d5/a2/a3
	rts

lbC001098	move.l	4(sp),a0
	move.l	lbL0010F2,d0
	moveq	#12,d1
	sub.l	d1,d0
	move.l	a0,d1
	btst	#0,d1
	bne.s	lbC0010BA
	addq.l	#3,d0
	lsr.l	#2,d0
lbC0010B2	clr.l	(a0)+
	subq.l	#1,d0
	beq.s	lbC0010C0
	bra.s	lbC0010B2

lbC0010BA	clr.b	(a0)+
	subq.l	#1,d0
	bne.s	lbC0010BA
lbC0010C0	rts

	dc.w	0

	SECTION EpsonX[CBM_MPS1250]rs0010C4,DATA
lbL0010C4	dc.l	0
lbL0010C8	dc.l	0
lbL0010CC	dc.l	0
lbW0010D0	dc.w	0
lbL0010D2	dc.l	0,0
lbB0010DA	dc.b	$1B,$50,$12,$1B,$57,0,$1B,$6C,$6E,$1B,$51,$6E,13
	dc.b	$1B,$55,$31,$1B,$74,0,0
lbL0010EE	dc.l	0
lbL0010F2	dc.l	0
lbW0010F6	dc.w	0
lbW0010F8	dc.w	0
lbW0010FA	dc.w	0
lbB0010FC	dc.b	0
lbB0010FD	dc.b	0
lbW0010FE	dc.w	0
lbW001100	dc.w	0
lbW001102	dc.w	0
lbL001104	dc.l	0


	SECTION EpsonX[CBM_MPS1250]rs001108,CODE
lbC001108	movem.l	d2-d6/a2-a4,-(sp)
	move.l	$24(sp),a0
	move.l	$28(sp),d0
	move.l	$2C(sp),a1
	move.l	$30(sp),a2
	move.l	$34(sp),d1
	move.l	d0,d3
	moveq	#3,d2
	and.w	d0,d2
	lsl.w	#2,d2
	move.l	$30(a0),a3
	add.l	d2,a3
	move.l	lbL000170,a4
	cmp.w	#$D8,$24(a4)
	bne.s	lbC001148
	divu	#3,d0
	swap	d0
	mulu	d0,d1
	swap	d0
	bra.s	lbC00115A

lbC001148	cmp.w	#$90,$24(a4)
	bne.s	lbC001158
	asr.w	#1,d0
	btst	#0,d3
	bne.s	lbC00115A
lbC001158	moveq	#0,d1
lbC00115A	move.w	d0,d6
	not.b	d6
	add.l	d1,a1
	move.l	lbL00016C,a4
	cmp.w	#2,$A64(a4)
	bne	lbC0011F4
	movem.l	d7/a5/a6,-(sp)
	move.l	a1,a4
	move.l	a1,a5
	move.l	a1,a6
	add.w	(a2)+,a1
	add.w	(a2)+,a4
	add.w	(a2)+,a5
	add.w	(a2)+,a6
	move.l	$18(a0),a2
	move.w	$58(a0),lbW001274
	move.w	$6A(a0),d2
	move.l	$28(a0),a0
	move.b	d6,d7
lbC001198	move.b	3(a2),d1
	move.b	0(a2),d4
	move.b	1(a2),d5
	move.b	2(a2),d6
	addq.l	#4,a2
	move.w	(a0)+,lbW001272
lbC0011B0	moveq	#3,d3
	and.w	d2,d3
	move.b	0(a3,d3.w),d3
	cmp.b	d3,d1
	ble.s	lbC0011C2
	bset	d7,0(a1,d2.w)
	bra.s	lbC0011DA

lbC0011C2	cmp.b	d3,d4
	ble.s	lbC0011CA
	bset	d7,0(a4,d2.w)
lbC0011CA	cmp.b	d3,d5
	ble.s	lbC0011D2
	bset	d7,0(a5,d2.w)
lbC0011D2	cmp.b	d3,d6
	ble.s	lbC0011DA
	bset	d7,0(a6,d2.w)
lbC0011DA	addq.w	#1,d2
	subq.w	#1,lbW001272
	bne.s	lbC0011B0
	subq.w	#1,lbW001274
	bne.s	lbC001198
	movem.l	(sp)+,d7/a5/a6
	bra	lbC00126A

lbC0011F4	add.w	(a2),a1
	move.w	$58(a0),d1
	subq.w	#1,d1
	move.w	$6C(a0),d3
	beq.s	lbC00123A
	eor.b	#15,d3
	move.l	$18(a0),a2
	move.w	$6A(a0),d2
	move.l	$28(a0),a0
	add.w	d2,a1
lbC001214	move.b	3(a2),d4
	addq.l	#4,a2
	move.w	(a0)+,d5
	cmp.b	d3,d4
	ble.s	lbC001232
	subq.w	#1,d5
lbC001222	bset	d6,(a1)
	add.w	#1,a1
	dbra	d5,lbC001222

	dbra	d1,lbC001214

	bra.s	lbC00126A

lbC001232	add.w	d5,a1
	dbra	d1,lbC001214

	bra.s	lbC00126A

lbC00123A	move.l	$18(a0),a2
	move.w	$6A(a0),d2
	move.l	$28(a0),a0
lbC001246	move.b	3(a2),d4
	addq.l	#4,a2
	move.w	(a0)+,d5
	subq.w	#1,d5
lbC001250	moveq	#3,d3
	and.w	d2,d3
	move.b	0(a3,d3.w),d3
	cmp.b	d3,d4
	ble.s	lbC001260
	bset	d6,0(a1,d2.w)
lbC001260	addq.w	#1,d2
	dbra	d5,lbC001250

	dbra	d1,lbC001246

lbC00126A	movem.l	(sp)+,d2-d6/a2-a4
	moveq	#0,d0
	rts

lbW001272	dc.w	0
lbW001274	dc.w	0,0


	SECTION EpsonX[CBM_MPS1250]rs001278,CODE
lbC001278	movem.l	d2/a2/a3,-(sp)
	move.l	16(sp),d2
	move.l	#lbL000170,a3
	move.l	lbL00016C,a2
	cmp.w	#$30,$A68(a2)
	bne.s	lbC00129C
	move.l	#136,d0
	bra.s	lbC00129E

lbC00129C	moveq	#80,d0
lbC00129E	move.l	(a3),a2
	move.b	d0,ped_MaxColumns(a2)
	move.l	d2,d0
	lsr.l	#8,d0
	move.l	d0,d2
	move.l	(a3),a2
	asl.l	#2,d0
	move.l	#DPI_poziomo,a0
	move.l	0(a0,d0.l),d0
	move.l	(a3),a0
	move.l	d0,d1
	moveq	#0,d0
	move.b	ped_MaxColumns(a0),d0
	jsr	lbC0013D4
	moveq	#10,d1
	jsr	lbC001432
	move.l	d0,ped_MaxXDots(a2)
	move.l	(a3),a2
	move.l	d2,d0
	asl.l	#2,d0
	move.l	#DPI_poziomo,a0
	move.w	2(a0,d0.l),ped_XDotsInch(a2)
	move.l	(a3),a2
	move.l	d2,d0
	asl.l	#2,d0
	move.l	#DPI_pionowo,a0
	move.w	2(a0,d0.l),ped_YDotsInch(a2)
	move.l	d2,d0
	asl.l	#2,d0
	move.l	#DPI_pionowo,a2
	move.l	(a3),a0
	move.w	2(a2,d0.l),d0
	move.w	d0,ped_YDotsInch(a0)
	cmp.w	#216,d0
	bne.s	Set16pinsPrint
	move.l	(a3),a2
	move.w	#24,ped_NumRows(a2)
	bra.s	lbC001338

Set16pinsPrint	move.l	(a3),a2
	cmp.w	#144,ped_YDotsInch(a2)
	bne.s	Set8pinsPrint
	move.l	(a3),a2
	move.w	#16,ped_NumRows(a2)
	bra.s	lbC001338

Set8pinsPrint	move.l	(a3),a2
	move.w	#8,ped_NumRows(a2)
lbC001338	move.l	#GfxOnCodes,a2
	move.b	0(a2,d2.l),d0
	ext.w	d0
	ext.l	d0
	movem.l	(sp)+,d2/a2/a3
	rts


	SECTION EpsonX[CBM_MPS1250]rs00134C,DATA
DPI_poziomo	dc.l	120,120,120,240,120,240,240,240
DPI_pionowo	dc.l	72,72,144,72,216,144,216,216
GfxOnCodes	dc.b	76,76,76,90,76,90,90,90


	SECTION EpsonX[CBM_MPS1250]rs001394,CODE
lbC001394	cmp.l	#$FFFF,d2
	bgt.s	lbC0013B4
	move.w	d1,a1
	clr.w	d1
	swap	d1
	divu	d2,d1
	move.l	d1,d0
	swap	d1
	move.w	a1,d0
	divu	d2,d0
	move.w	d0,d1
	clr.w	d0
	swap	d0
	rts

lbC0013B4	move.l	d1,d0
	clr.w	d0
	swap	d0
	swap	d1
	clr.w	d1
	move.l	d2,a1
	moveq	#15,d2
lbC0013C2	add.l	d1,d1
	addx.l	d0,d0
	cmp.l	d0,a1
	bgt.s	lbC0013CE
	sub.l	a1,d0
	addq.w	#1,d1
lbC0013CE	dbra	d2,lbC0013C2

	rts

lbC0013D4	move.l	d2,-(sp)
	move.l	d0,d2
	mulu	d1,d2
	move.l	d2,a0
	move.l	d0,d2
	swap	d2
	mulu	d1,d2
	swap	d1
	mulu	d1,d0
	add.l	d2,d0
	swap	d0
	clr.w	d0
	add.l	d0,a0
	move.l	a0,d0
	move.l	(sp)+,d2
	rts

	move.l	d2,-(sp)
	move.l	d1,d2
	move.l	d0,d1
	bsr.s	lbC001394
	move.l	(sp)+,d2
	rts

	move.l	d2,-(sp)
	move.l	d1,d2
	move.l	d0,d1
	bsr.s	lbC001394
	move.l	d1,d0
	move.l	(sp)+,d2
	rts

	move.l	d2,-(sp)
	move.l	d1,d2
	bge.s	lbC001416
	neg.l	d2
lbC001416	move.l	d0,d1
	moveq	#0,d0
	tst.l	d1
	bge.s	lbC001422
	neg.l	d1
	not.l	d0
lbC001422	move.l	d0,a0
	bsr	lbC001394
	move.w	a0,d2
	beq.s	lbC00142E
	neg.l	d0
lbC00142E	move.l	(sp)+,d2
	rts

lbC001432	move.l	d2,-(sp)
	move.l	d0,a0
	moveq	#0,d0
	move.l	d1,d2
	bge.s	lbC001440
	neg.l	d2
	not.l	d0
lbC001440	move.l	a0,d1
	bge.s	lbC001448
	neg.l	d1
	not.l	d0
lbC001448	move.l	d0,a0
	bsr	lbC001394
	move.l	a0,d2
	beq.s	lbC001454
	neg.l	d1
lbC001454	move.l	d1,d0
	move.l	(sp)+,d2
	rts

	dc.w	0


	SECTION EpsonX[CBM_MPS1250]rs00145C,CODE
AllocMem	move.l	a6,-(sp)
	move.l	ExecBASE,a6
	movem.l	8(sp),d0/d1
	jsr	_LVOAllocMem(a6)
	move.l	(sp)+,a6
	rts

	dc.w	0

FreeMem	move.l	a6,-(sp)
	move.l	ExecBASE,a6
	move.l	8(sp),a1
	move.l	12(sp),d0
	jsr	_LVOFreeMem(a6)
	move.l	(sp)+,a6
	rts