home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
ZCPR33
/
A-R
/
ERRORX11.LBR
/
ERRORX11.Z80
< prev
Wrap
Text File
|
2000-06-30
|
1KB
|
59 lines
; 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