;
; PROGRAM: ECHO
; AUTHOR: RICHARD CONN
; VERSION: 1.3
; DATE: 17 AUG 83
; PREVIOUS VERSIONS: 1.2 (21 JUN 83), 1.1 (6 JAN 83), 1.0 (10 DEC 82)
;
VERS EQU 13
;
; This program is Copyright (c) 1982, 1983 by Richard Conn
; All Rights Reserved
;
; ZCPR2 and its utilities, including this one, are released
; to the public domain. Anyone who wishes to USE them may do so with
; no strings attached. The author assumes no responsibility or
; liability for the use of ZCPR2 and its utilities.
;
; The author, Richard Conn, has sole rights to this program.
; ZCPR2 and its utilities may not be sold without the express,
; written permission of the author.
;
;
; ECHO is used to echo the command line to the screen. It is invoked
; in the following ways:
; ECHO <-- print Help Message
; ECHO // <-- print Help Message
; ECHO text <-- print text
; ECHO /po text <-- print text on printer
;
; This seems like a trivial program, but it buys the user one key thing:
; for ZCPR2 use, a message may be stored in the multiple command line buffer
; by using ECHO, so that programs like STARTUP can print a welcome message
; after they have run. For STARTUP in particular, a sample command line
; would be:
;
; ioloader;ld ld;tinit;echo WELCOME TO ZCPR II
;
; This line runs IOLOADER, which loads the redirectable I/O devices,
; followed by LD LD, which loads a named directory into memory, and TINIT,
; which initializes a TVI 950 terminal (function keys, user line, etc).
; When all is done, TINIT will have cleared the screen and ECHO will have
; printed its message.
;
; A second noted use for ECHO is in performing miscellaneous printer
; functions. The /P option allows the user to send any text to the printer,
; and this text can include control characters. This can be used to set
; printer controls for those printers which respond to commands from the
; user. If the letter following the P is an N, then NO new line is printed
; following the text (otherwise, the text is followed by a CRLF).
;
; Finally, a third noted use for ECHO is to set attributes of the
; user's terminal if he has a programmable terminal. By passing control
; characters, ECHO allows any control sequence to be sent to a terminal.
;
;
; Externals
;
ext crlf ; new line on console
ext lcrlf ; new line on printer
ext print ; print string pted to by return address
ext cout ; output to console
ext lout ; output to printer
;
;******************************************************************
;
; SINSFORM -- ZCPR2 Utility Standard General Purpose Initialization Format
;
; This data block precisely defines the data format for
; initial features of a ZCPR2 system which are required for proper
; initialization of the ZCPR2-Specific Routines in SYSLIB.
;
;
; EXTERNAL PATH DATA
;
EPAVAIL:
DB 0FFH ; IS EXTERNAL PATH AVAILABLE? (0=NO, 0FFH=YES)
EPADR:
DW 40H ; ADDRESS OF EXTERNAL PATH IF AVAILABLE
;
; INTERNAL PATH DATA
;
INTPATH:
DB 0,0 ; DISK, USER FOR FIRST PATH ELEMENT
; DISK = 1 FOR A, '$' FOR CURRENT
; USER = NUMBER, '$' FOR CURRENT
DB 0,0
DB 0,0
DB 0,0
DB 0,0
DB 0,0
DB 0,0
DB 0,0 ; DISK, USER FOR 8TH PATH ELEMENT
DB 0 ; END OF PATH
;
; MULTIPLE COMMAND LINE BUFFER DATA
;
MCAVAIL:
DB 0FFH ; IS MULTIPLE COMMAND LINE BUFFER AVAILABLE?
MCADR:
DW 0FF00H ; ADDRESS OF MULTIPLE COMMAND LINE BUFFER IF AVAILABLE
;
; DISK/USER LIMITS
;
MDISK:
DB 4 ; MAXIMUM NUMBER OF DISKS
MUSER:
DB 31 ; MAXIMUM USER NUMBER
;
; FLAGS TO PERMIT LOG IN FOR DIFFERENT USER AREA OR DISK
;
DOK:
DB 0FFH ; ALLOW DISK CHANGE? (0=NO, 0FFH=YES)
UOK:
DB 0FFH ; ALLOW USER CHANGE? (0=NO, 0FFH=YES)
;
; PRIVILEGED USER DATA
;
PUSER:
DB 10 ; BEGINNING OF PRIVILEGED USER AREAS
PPASS:
DB 'chdir',0 ; PASSWORD FOR MOVING INTO PRIV USER AREAS
DS 41-($-PPASS) ; 40 CHARS MAX IN BUFFER + 1 for ending NULL
;
; CURRENT USER/DISK INDICATOR
;
CINDIC:
DB '$' ; USUAL VALUE (FOR PATH EXPRESSIONS)
;
; DMA ADDRESS FOR DISK TRANSFERS
;
DMADR:
DW 80H ; TBUFF AREA
;
; NAMED DIRECTORY INFORMATION
;
NDRADR:
DW 00000H ; ADDRESS OF MEMORY-RESIDENT NAMED DIRECTORY
NDNAMES:
DB 64 ; MAX NUMBER OF DIRECTORY NAMES
DNFILE:
DB 'NAMES ' ; NAME OF DISK NAME FILE
DB 'DIR' ; TYPE OF DISK NAME FILE
;
; REQUIREMENTS FLAGS
;
EPREQD:
DB 000H ; EXTERNAL PATH?
MCREQD:
DB 000H ; MULTIPLE COMMAND LINE?
MXREQD:
DB 000H ; MAX USER/DISK?
UDREQD:
DB 000H ; ALLOW USER/DISK CHANGE?
PUREQD:
DB 000H ; PRIVILEGED USER?
CDREQD:
DB 000H ; CURRENT INDIC AND DMA?
NDREQD:
DB 000H ; NAMED DIRECTORIES?
Z2CLASS:
DB 0 ; CLASS 0
DB 'ZCPR2'
DS 10 ; RESERVED
;
; END OF SINSFORM -- STANDARD DEFAULT PARAMETER DATA
;
;******************************************************************
;
;
; Start of Program
;
start:
xra a
sta pflag ; clear print flag
sta nflag ; clear new line flag
lxi h,tbuff ; place zero at end of command line
mov a,m ; get char count
inx h ; pt to first char
push h ; save ptr
add l ; HL=HL+A
mov l,a
mov a,h
aci 0
mov h,a
mvi m,0 ; store ending zero
pop h ; pt to first char
call sblank ; skip to first non-blank
ora a ; EOL means print Help Message
jz phelp
cpi '/' ; slash means print Help Message also
jnz echo ; if not slash, print buffer contents
inx h ; pt to next character
mov a,m ; get next char
cpi 'P' ; printer?
jnz phelp
mvi a,0ffh ; set print flag
sta pflag
inx h ; pt to after the P
mov a,m ; get option letter
cpi 'N' ; new line?
jnz echo
inx h ; pt to after option letter
mvi a,0ffh ; set new line flag
sta nflag
jmp echo ; perform function
;
; Print Help Message
;
phelp:
call print
db 'ECHO Version '
db (vers/10)+'0','.',(vers mod 10)+'0'
db cr,lf,' ECHO prints the command line on the user''s console'
db cr,lf,'or printer. It is invoked by the following forms:'
db cr,lf
db cr,lf,' ECHO or ECHO // <-- Print this Help'
db cr,lf,' ECHO text <-- Print text'
db cr,lf,' ECHO /po text <-- Print text on LST:'
db cr,lf
db cr,lf,' In the last form, the significant text begins'
db cr,lf,'immediately after the option letter. If this option'
db cr,lf,'letter is N, then the text is NOT followed by a new'
db cr,lf,'line. With no option letter, the text is followed by'
db cr,lf,'a carriage return/line feed pair. This way, ECHO /P'
db cr,lf,'simply outputs a new line to the printer.'
db cr,lf,' ECHO performs NO control character interpretation'
db cr,lf,'(such as tab expansion).'
db cr,lf,0
ret
;
; Echo Command Line
;
echo:
lda pflag ; printing?
ora a ; 0=no
cz crlf ; new line
call pstr ; simply print string starting at HL
lda pflag ; printing?
ora a ; 0=no
rz
lda nflag ; new line?
ora a ; 0=yes (reverse logic)
cz lcrlf ; new line
ret
;
; Print string (with no interpretation) pointed to by HL
;
pstr:
mov a,m ; get next char
ora a ; done?
rz
inx h ; pt to next
mov b,a ; save char
lda pflag ; con or lst?
ora a ; 0=con
jz pstrc
mov a,b ; get char
call lout ; list
jmp pstr
pstrc:
mov a,b ; get char
call cout ; console
jmp pstr
;
; Skip to Non-Blank
;
sblank:
mov a,m ; get char
inx h ; pt to next
cpi ' ' ; skip if space
jz sblank
dcx h ; back up to non-space
ret
;
; Buffers
;
pflag: ds 1 ; print flag
nflag: ds 1 ; new line flag
