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

LINEA_INIT	equ	$A000
GET_REZ		equ	4	extended bios resolution inquiry

hi50	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	04(a1),a1	a1 -> 8x8 font header
	move.l	72(a1),-$0A(a0)	v_off_ad <- 8x8 offset table addr
	move.l	76(a1),-$16(a0)	v_fnt_ad <- 8x8 font data addr
	move.w	#008,-$2E(a0)	v_cel_ht <- 8    8x8 cell height
	move.w	#049,-$2A(a0)	v_cel_my <- 49   maximum cell "Y"
	move.w	#640,-$28(a0)	v_cel_wr <- 640  offset to cell Y+1

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

	ds.l	$10
stack	ds.l	$01		stack em up an blow em out

	end