; Program: ERRORX
; Author:  Richard Conn
; Version: 1.0
; Date:  29 Mar 84

version	equ	11
z3env	defl	0ef00H

;	ERRORX disengages the current error handler.  No error handler
; is available after ERRORX executes.

;-----------------------------------------------------------------------------

; Revision history
;
; Version 1.1	Jay Sage	June 1, 1987
;     Converted code to Zilog mnemonics and modified for use with ZCPR33.
; Error handling is now turned off by loading a null command line as the error
; handling comand.  Removed the code for internal environment support and set
; up the program for a type-3 environment.

;-----------------------------------------------------------------------------

;  Z33LIB, Z3LIB, and SYSLIB References

	ext	z3init,getmsg,puterc,print


entry:
	jp	start
	db	'Z3ENV'		; ZCPR3 program ID
	db	3		; Type-3 environment
z3eadr:
	dw	z3env
	dw	entry

start:
	ld	hl,(z3eadr)	; Get ENV address into HL
	call	z3init		; Initialize the ZCPR3 environment

	call	getmsg		; Reset flag at Z3MSG+0 for ZCPR30
	ld	(hl),0
	ld	hl,nullcmd	; Set error handling command line to null
	call	puterc		; Use Z33LIB routine

; Print Message

	call	print
	db	' ERRORX Version '
	db	(version/10)+'0','.',(version mod 10)+'0'
	db	' -- Error Handling Disengaged',0
	ret

nullcmd:
	defb	0		; Null error handling command line

	end