*
*
*

START:	dc.l	PARA-START
	dc.l	INIT-START
	dc.l	LIB1-START
CATALOG:
	dc.w	LIB2-LIB1
	dc.w	LIB3-LIB2
	dc.w	NDPRG-LIB3
PARA:	dc.w	3,3
	dc.w	PPRNTER-PARA
	dc.w	PRANGE-PARA
	dc.w	PSPRPAL-PARA
I	equ	$0
F	equ	$40
S	equ	$80
C	equ	","
PPRNTER:  dc.b	0,I,1,1,0
PRANGE:   dc.b	I,I,C,I,C,I,1,1,0
PSPRPAL   dc.b	0,I,1,1,0
INIT	bra	COLDST
COLDST:	lea	END(pc),a2
END:	rts
PRNTER:
LIB1:
	dc.w	0	; no library calls
	move.l	(a6)+,d3
	movem.l	a0-a6,-(a7)
	move.w	d3,-(a7)
	move.w	#33,-(a7)
	trap	#14
	addq.l	#4,a7
	movem.l	(a7)+,a0-a6
	rts

RANGE:
LIB2:	dc.w	0
	move.l	(a6)+,d0
	move.l	(a6)+,d1
	move.l	(a6)+,d2
	cmp.l	d1,d2
	blt	TOOLOW
TLBK	cmp.l	d2,d0
	blt	TOOHIGH
THBK	move.l	d2,-(a6)
	rts
TOOLOW	move.w	d1,d2
	bra	TLBK
TOOHIGH	move.w	d0,d2
	bra	THBK
SPRPAL:
LIB3:	dc.w	0
	move.l	(a6)+,a0
	clr.l	d0
GSPL:	cmp.l	#"PALT",0(a0,d0.l)
	beq	GOTTIT
	addq.l	#2,d0
	bra	GSPL
GOTTIT:
	move.l	#$FF8240,a1
	clr.l	d1
GSPL2:	move.w	4(a0,d0.l),(a1)
	addq.l	#2,d0
	addq.l	#2,a1
	cmp.l	#$FF8260,a1
	bne	GSPL2
	rts

NDPRG	dc.w	0