TITLE	"Z3GCRT - Z3lib 4.0"
;================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;----------------------------------------------------------------
; Author  : Harold F. Bower
;		Derived from Z3GCRT.Z80 Ver 1.1 by Richard Conn
; Date   : 30 Mar 89
; Version : 1.2
; Module  : Z3GCRT
; Abstract: This module contains the routine GETCRT which returns
;	the address of the CRT record from the Z3 Environment. It
;	has been modified to conform to the single CRT definition
;	restriction in the Extended ENV.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;  Module Entry Points

	PUBLIC		GETCRT

;  External References

	EXT		ENVPTR

	.Z80
	CSEG
;===============================================================
; NAME - GETCRT
; Entry: - None
; Exit : HL - Points to the CRT record
; Uses : HL
; Special Requirements: None
;===============================================================
; The CRT record is structured as follows:
;
;		defb	<width of CRT in characters>
;		defb	<number of lines on CRT screen>
;		defb	<number of text lines on CRT screen>

GETCRT:	PUSH	AF
	PUSH	DE
	LD	HL,(ENVPTR)	; Get Environment address
	LD	DE,31H		; Set offset to CRT record
	ADD	HL,DE		; Add offset to ENV Base
	POP	DE		; ..restore regs
	POP	AF
	RET

	END