mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
86 lines
1.4 KiB
86 lines
1.4 KiB
;
|
|
; Program: IFSTAT
|
|
; Author: Richard Conn
|
|
; Version: 1.0
|
|
; Date: 22 Apr 84
|
|
; Previous Versions: None
|
|
;
|
|
version equ 10
|
|
|
|
;
|
|
; IFSTAT is used to display the current IF level.
|
|
;
|
|
|
|
;
|
|
; Equates for Key Values
|
|
;
|
|
z3env SET 0f400h ;address of ZCPR3 environment
|
|
fcb equ 5ch
|
|
cr equ 0dh
|
|
lf equ 0ah
|
|
|
|
;
|
|
; External Z3LIB and SYSLIB Routines
|
|
;
|
|
ext z3init,iftest,eprint,cout
|
|
|
|
;
|
|
; Environment Definition
|
|
;
|
|
if z3env ne 0
|
|
;
|
|
; External ZCPR3 Environment Descriptor
|
|
;
|
|
jmp start
|
|
db 'Z3ENV' ;This is a ZCPR3 Utility
|
|
db 1 ;External Environment Descriptor
|
|
z3eadr:
|
|
dw z3env
|
|
start:
|
|
lhld z3eadr ;pt to ZCPR3 environment
|
|
;
|
|
else
|
|
;
|
|
; Internal ZCPR3 Environment Descriptor
|
|
;
|
|
MACLIB Z3BASE.LIB
|
|
MACLIB SYSENV.LIB
|
|
z3eadr:
|
|
jmp start
|
|
SYSENV
|
|
start:
|
|
lxi h,z3eadr ;pt to ZCPR3 environment
|
|
endif
|
|
|
|
;
|
|
; Start of Program -- Initialize ZCPR3 Environment
|
|
;
|
|
call z3init ;initialize the ZCPR3 Environment
|
|
lda fcb+1 ;check for help
|
|
cpi '/'
|
|
jz prhelp
|
|
call iftest ;get number of current IF
|
|
jnz prnum ;print number
|
|
call eprint
|
|
db ' No Active IF',0
|
|
ret
|
|
prnum:
|
|
call eprint
|
|
db ' Current IF Level: ',0
|
|
adi '0' ;convert to ASCII
|
|
jmp cout
|
|
|
|
;
|
|
; Print Help Message
|
|
;
|
|
prhelp:
|
|
call eprint
|
|
db 'IFSTAT, Version '
|
|
db (version/10)+'0','.',(version mod 10)+'0'
|
|
db ' - Display Current IF Level'
|
|
db cr,lf,'Syntax: IFSTAT'
|
|
db 0
|
|
ret
|
|
|
|
end
|
|
|