* Program 	: To check the screen resolution
* Author	: Stephen McNabb
* Creation date : 15th February 1995
* Last update	: 15th February 1995
* Parameters	: None
* Output	: Value returned in d0
* 		  0 - Low resolution
*		  1 - Medium resolution
*		  2 - High resolution

start:	jsr	cls		/clear the screen
	move.w	#4,-(sp)	/use Getrez() function
	trap	#14		/use xbios
	addq.l	#2,sp		/tidy up stack
	
	cmpi.b	#1,d0		/compare d0 with value 1
	beq	med		/if it is we are in medium resolution
	blt	low		/if less we are in low resolution
	bgt	high		/if greater then we are in high resolution
	
low:	move.l	#lowrez,d0	/move address of lowrez message to d0
	bra	print		/and print it
med:	move.l	#medrez,d0	/or move address of medrez message to d0
	bra	print		/and print it
high:	move.l	#highrez,d0	/or move highrez message to d0 and print it

print:	jsr	ptext		/jump to 'print text' routine
end:	bra	exit		/and exit from program
	
	include "\SOURCE\FUNCTION.S"	/include standard functions
	
*** Program Data ***	
	
lowrez:	dc.b	'Low resolution',0
medrez:	dc.b	'Medium resolution',0
highrez:dc.b	'High resolution',0
	
*** End of file ***	