;
; PROGRAM: FINDERR
; AUTHOR: TED H. EMIGH
; VERSION: 1.1
; DATE: 17 SEPT 84
; PREVIOUS VERSIONS: 1.0 (11 Sep 84), 0.1, 7 SEPT 84
;
VERSION EQU 11
EXTENV EQU 1 ; 1 for External Environ, 0 for Internal Environ
;
; FINDERR is a program to set the ZCPR3 message registers if various
; memory locations are nonzero
;
; ZCPR3 Header
;
MACLIB Z3BASE.LIB
;
; These are part of the built-in Help message. They indicate what
; registers are affected by this version of FINDERR
;
regmsg macro
db 0dh,0ah,' 0 - M80 Ver 3.44'
db 0dh,0ah,' 1 - F80'
endm
;
; These Locations Assume the use of M80/F80, Version 3.44
;
m80f equ 03cedh ;location of number of fatal errors (M80)
m80fb equ 2 ;--16 bits (2 bytes)
m80w equ 03cefh ;location of number of warning errors (M80)
m80wb equ 2 ;--16 bits (2 bytes)
f80f equ 01c1h ;location of number of fatal errors (F80)
f80fb equ 2 ;--16 bits (2 bytes)
f80w equ 02adh ;location of number of warning errors (F80)
f80wb equ 2 ;--16 bits (2 bytes)
;
; System Equates
; Add the location of the error indicator, and the number of byte
; for the indicator for each indicator desired. If the number of
; bytes is zero, that particular memory location is ignored.
;
fatal0 equ m80f ;location of number of fatal errors
bytesf0 equ m80fb ;number of bytes
warn0 equ m80w ;location of number of warning errors
bytesw0 equ m80wb ;number of bytes
fnderr0 equ bytesf0 or bytesw0 ;register 0 used for these errors
fatal1 equ f80f ;location of number of fatal errors
bytesf1 equ f80fb ;number of bytes
warn1 equ f80w ;location of number of warning errors
bytesw1 equ f80wb ;number of bytes
fnderr1 equ bytesf1 or bytesw1 ;register 1 used for these errors
;
; The rest of the registers are not used at this time
; (if bytes = 0, then the memory address is not checked)
;
fatal2 equ 0 ;location of number of fatal errors
bytesf2 equ 0 ;number of bytes
warn2 equ 0 ;location of number of warning errors
bytesw2 equ 0 ;number of bytes
fnderr2 equ bytesf2 or bytesw2 ;register 2 used for these errors
;
fatal3 equ 0 ;location of number of fatal errors
bytesf3 equ 0 ;number of bytes
warn3 equ 0 ;location of number of warning errors
bytesw3 equ 0 ;number of bytes
fnderr3 equ bytesf3 or bytesw3 ;register 3 used for these errors
;
fatal4 equ 0 ;location of number of fatal errors
bytesf4 equ 0 ;number of bytes
warn4 equ 0 ;location of number of warning errors
bytesw4 equ 0 ;number of bytes
fnderr4 equ bytesf4 or bytesw4 ;register 4 used for these errors
;
fatal5 equ 0 ;location of number of fatal errors
bytesf5 equ 0 ;number of bytes
warn5 equ 0 ;location of number of warning errors
bytesw5 equ 0 ;number of bytes
fnderr5 equ bytesf5 or bytesw5 ;register 5 used for these errors
;
fatal6 equ 0 ;location of number of fatal errors
bytesf6 equ 0 ;number of bytes
warn6 equ 0 ;location of number of warning errors
bytesw6 equ 0 ;number of bytes
fnderr6 equ bytesf6 or bytesw6 ;register 6 used for these errors
;
fatal7 equ 0 ;location of number of fatal errors
bytesf7 equ 0 ;number of bytes
warn7 equ 0 ;location of number of warning errors
bytesw7 equ 0 ;number of bytes
fnderr7 equ bytesf7 or bytesw7 ;register 7 used for these errors
;
fatal8 equ 0 ;location of number of fatal errors
bytesf8 equ 0 ;number of bytes
warn8 equ 0 ;location of number of warning errors
bytesw8 equ 0 ;number of bytes
fnderr8 equ bytesf8 or bytesw8 ;register 8 used for these errors
;
fatal9 equ 0 ;location of number of fatal errors
bytesf9 equ 0 ;number of bytes
warn9 equ 0 ;location of number of warning errors
bytesw9 equ 0 ;number of bytes
fnderr9 equ bytesf9 or bytesw9 ;register 9 used for these errors
;
; System Buffers and Entries
;
fcb equ 5ch
bdos equ 5
;
;
; MACROS TO PROVIDE Z80 EXTENSIONS
; MACROS INCLUDE:
;
; jrnz - Jump Relative if No Zero
; djnz - Decrement B and Jump Relative if No Zero
;
; @gendd Macro used for Checking and Generating
; 8-Bit Jump Relative Displacements
;
@gendd macro ?dd ;;Used for checking range of 8-bit displacements
if2 ;;M80
if (?dd gt 7FH) and (?dd lt 0FF80H)
db 100H,?dd ;Displacement Range Error
else
db ?dd
endif ;;Range Error
else ;;M80
db ?dd ;;M80
endif ;;M80
endm
;
;
; Z80 MACRO EXTENSIONS
;
jrnz macro ?n ;;Jump Relative on No Zero
if i8080 ;;8080/8085
jnz ?n
else ;;Z80
db 20H
@gendd ?n-$-1
endif ;;I8080
endm
;
djnz macro ?n ;;Decrement B and Jump Relative on No Zero
if i8080 ;;8080/8085
dcr B
jnz ?n
else ;;Z80
db 10H
@gendd ?n-$-1
endif ;;I8080
endm
;
; Macros to do most of the work
;
; SETBYT will set B register to 'value' if the any of the bytes
; at location 'loc' to 'loc'+'bytes'-1 are nonzero
; ('bytes' is the number of bytes to check)
; If no error, then B=0. errno is the error number
;
setbyt macro loc,bytes,errno,value
local nxtbyt
if bytes ne 0
;;
if bytes eq 1
lda loc ;;get byte
ora a ;;see if zero
endif ;;bytes eq 1
if bytes eq 2
lxi h,loc
mov a,m ;;get lower byte
inx h ;;point to higher byte
ora m ;;see if 16 bit number is zero
endif ;;bytes eq 2
if bytes gt 2
lxi h,loc
mov a,m ;;get first byte
mvi b,bytes-1 ;;number of bytes
nxtbyt: inx h ;;point to next byte
ora m ;;see if number is zero
djnz nxtbyt ;;more bytes?
if i8080
ora a ;;set flags for a again
endif ;;I8080
endif ;;bytes gt 2
mvi b,value
jrnz err&errno
;;
endif ;;bytes ne 0
endm
;
; SETBYT will set register number errno to the value in
; B if entered at err&errno, else it will reset the value
; at register number errno. This routine MUST follow the
; last setbyt for that error number.
;
finish macro errno
mvi b,0 ;;set for zero
err&errno:
lxi h,30h+errno ;;point to register number
dad d
mov m,b ;;save the error code
;
endm
;
; Environments
;
origin:
;
if extenv ; if external environment ...
;
; External Environment Definition
;
jmp finderr
db 'Z3ENV' ; this is an environment
db 1 ; class 1 environment (external)
envloc:
dw z3env ; ptr to environment
finderr:
lhld envloc ; HL pts to environment
else ; if internal environment ...
;
; Internal Environment Definition
;
envloc:
jmp finderr
db 'Z3ENV' ; this is an environment
MACLIB SYSENV.LIB
SYSENV ; define environment
finderr:
lxi h,envloc ; HL pts to environment
endif
;
; Beginning of FINDERR
;
lda fcb+1 ;check for help request
cpi '/'
jz help
lxi d,34 ;message address offset in environment
dad d ;point to location of message address
mov a,m ;get message address
inx h
mov h,m
mov l,a ;HL now points to the message buffer
ora h ;see if message buffers supported
rz ;messages not supported, abort
xchg ;save pointer to message buffer
irp errno,<0,1,2,3,4,5,6,7,8,9>
if fnderr&errno
setbyt fatal&errno,bytesf&errno,errno,1
setbyt warn&errno,bytesw&errno,errno,2
finish errno
endif
endm
;
ret
;
; Help Message
;
help:
lxi d,helpmsg
mvi c,9 ;use BDOS print
jmp bdos
helpmsg:
db 'FINDERR '
db (version/10)+'0','.',(version mod 10)+'0'
db 0dh,0ah,'Regs --'
regmsg
db '$'
