*************************************************************
*
*  Make hi rez screen bios handle 25 lines of 8x16 characters
*	
*  author:	j d eisenstein
*
*  date:		15-aug-85
*
*************************************************************

LINEA_INIT	equ	$A000
GET_REZ		equ	4	extended bios resolution inquiry


hi25	lea	stack,sp	
	move.w	#GET_REZ,-(sp)	get screen resolution
	trap	#14
	addq.w	#2,sp
	cmp.w	#2,d0		only execute if already in hi rez
	bne	exit
	dc.w	LINEA_INIT	get the important pointers
	move.l	08(a1),a1	a1 -> 8x16 font header
	move.l	72(a1),-$0A(a0)	v_off_ad <- 8x16 offset table addr
	move.l	76(a1),-$16(a0)	v_fnt_ad <- 8x16 font data addr
	move.w	#0016,-$2E(a0)	v_cel_ht <- 16    8x16 cell height
	move.w	#0024,-$2A(a0)	v_cel_my <- 24    maximum cell "Y"
	move.w	#1280,-$28(a0)	v_cel_wr <- 1280  vertical byte offset

exit	clr.w	-(sp)		back to the os
	trap	#1

	ds.l	$10
stack	ds.l	$01		hey chef, gimme a short stack

	end