K5ERRORX11COM xERRORX11Z80 ; 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  Z3ENV* ͋|6!ST͑ ERRORX Version 1.1 -- Error Handling Disengagedpw#( pw=|~ѷ*"~#fo"͗~#    ÜÜ Üyʜ ÜyG>GO> Ü   >^@O*. +