;
;			UKM7
;This program was originally written in 1977 by Ward Christensen.
;Ward's comments were removed, Terminal File and Batch Mode were
;added in 1980 by Mark Zeiger and James Mills. The original CRC
;checks were added by Paul Hansknecht in June 1981.
;Improved terminal file facilities, menus and a general tidy
;up of a very untidy program, removal of all modem dependent
;features, many bugs and adaptation for the UK CP/M Users
;Group Library by David Back. 4 May 1983.
;Version 1.5 includes many additional facilities, including a
;printer buffer, active toggling of terminal and secondary
;options, faster CRC's etc. David Back. 21 February 1984
;
;The file exchange protocols are compatible with the MODEMX
;series of programs in the US CP/M UG Library.
;UKM7 is compatible with CP/M 1.4 and CP/M 2.2.
;
FALSE	EQU	0
TRUE	EQU	0FFH

	ORG 100H
;********* SYSTEM DEPENDENT OVERLAY **************
;**** This is a general purpose overlay applicable to many systems ****
	JMP	300H	;absolute start of program

MODCTLP	EQU	0ECH	;MODEM CONTROL PORT
MODDATP	EQU	0EDH	;MODEM DATA PORT FOR SEND
MODDRCV	EQU	0EDH	;MODEM DATA PORT FOR RECEIVE
MSNDB	EQU	1	;MODEM SEND BIT (XMIT BUFF EMPTY)
MSNDR	EQU	1	;MODEM SEND READY
MRCVB	EQU	2	;MODEM RECEIVE BIT (DAV)
MRCVR	EQU	2	;MODEM RECEIVE READY
BAUD	EQU	2	;enter 1 for 1X, or 2 for 16X, or 3 for 64X
;It is important not to alter the addresses of labels below
OLID:		DB 1		;overlay identifier
TWIDTH:		DB 70		;max. terminal columns
FASTCLK:	DB  TRUE	;4 MHz or greater processor speed
BAKUPBYTE:	DB  TRUE	;true=make .BAK file
XPRFLG:		DB  TRUE	;true=menu initially off
SAVCCP:		DB  TRUE	;true=do not overwrite CCP
SAVEFLG:	DB TRUE		;true=terminal filesave initially on
ECHOFLG:	DB FALSE	;true=terminal echo initially on
INITFLG:	DB FALSE	;true=modem port already initialised
ANSBAK:		DB TRUE		;true=answerback on ^E
INMODCTLP:	IN	MODCTLP	;get port status
		RET
		DB	0	;space for memory mapped I/O's
OUTCTLP:	OUT	MODCTLP	;control
		RET
		DB	0
OUTMODDATP:	OUT	MODDATP	;send data
		RET
		DB	0
ANISND:		ANI	MSNDB	;bit to test for send ready
		RET
CPISND:		CPI	MSNDR	;value of send bit when ready
		RET
INMODDATP:	IN	MODDRCV	;get data
		RET
		DB	0
ANIRCV:		ANI	MRCVB	;bit to test for receive ready
		RET
CPIRCV:		CPI	MRCVR	;value of receive bit when ready
		RET
LOGMSSG:	DB 'David;Back;Shepperton Middx',CR,LF,0
	ORG 150H	;do not alter this org
;The routine below should work in most systems which use an 8251 USART
;Modem port must be initialised for 8 data bits and no parity
INITMOD:LXI	D,CPMS	;finish signon message
	MVI	C,9
	CALL	BDOS
	LDA	INMODCTLP+1
	CALL	HEXPRT
	LXI	D,DPMS
	MVI	C,9
	CALL	BDOS
	LDA	OUTMODDATP+1
	CALL	HEXPRT
	LXI	D,HMS
	MVI	C,9
	CALL	BDOS
	LDA	INITFLG
	ORA	A	;return if already initialsed
	RNZ
	MVI	A,0EH
	CALL	OUTCTLP	;force command instruction
	PUSH	PSW
	POP	PSW
	MVI	A,40H
	CALL	OUTCTLP	;internal reset
	PUSH	PSW
	POP	PSW
	MVI	A,6CH OR (BAUD AND 3)
	CALL	OUTCTLP	;8 bits no parity
	PUSH	PSW
	POP	PSW
	MVI	A,37H	;modem connected
	CALL	OUTCTLP
	CALL	INMODDATP
	CALL	INMODDATP ;clear buffers
	RET
;necessary because location of HEXO is not fixed
HEXPRT:	PUSH	PSW
	RAR
	RAR
	RAR
	RAR
	CALL	NIB
	POP	PSW
NIB:	ANI	0FH
	CPI	10
	JC	NU
	ADI	7
NU:	ADI	'0'
	MOV	E,A
	MVI	C,2
	CALL	BDOS
	RET
CPMS:	DB 'Control port=0$'
DPMS:	DB 'H  Data port=0$'
HMS:	DB 'H',CR,LF,'$'
;********** END OF OVERLAY AREA ************

DBUFSIZ	EQU	2	;S & R BUFFER SIZE IN KBYTES
			;2K is the normally accepted optimum
RING	EQU	8	;print ring buffer size, K bytes
ERRLIM	EQU 10		;NUMBER OF TIMES TO RETRY
			;SEND/RECEIVE ERRORS BEFORE QUIT
COMPUT EQU 'C'-40H	; ^C = Computer mode
DMENU EQU 'D'-40H	; ^D = display terminal menu
EXITCHR	EQU 'E'-40H	; ^E = exit terminal mode
TRANCHR	EQU 'T'-40H	; ^T = TRANSFER FILE
SAVECHR	EQU 'Y'-40H	; ^Y = memory save toggle
PRNCHR	EQU 'P'-40H	; ^P = printer toggle
EXTCHR	EQU '^'-40H	;SEND NEXT CHAR LITERALLY
SAVON	EQU 12H		;^R Terminal filesave on
SAVOFF	EQU 14H		;^T Terminal filesave off
;
;PROGRAM FOLLOWING IS NOT SYSTEM DEPENDENT,
;PLEASE DO NOT INTRODUCE ANY SYSTEM DEPENDENT FEATURES BELOW
;
XOFF	EQU 'S'-40H	; ^S = XOFF CHARACTER
XON	EQU 'Q'-40H	; ^Q = XON CHARACTER
CAN	EQU 'X'-40H	; ^X = CANCEL SEND/RECEIVE
EOFCHAR	EQU 'Z'-40H	; ^Z = END OF FILE
ENQ	EQU 5		; ^E Auto ID
SOH	EQU 1		; START OF HEADER
EOT	EQU 4		; END OF TEXT
ACK	EQU 6		; ACKNOWLEDGE
NAK	EQU 15H		; NOT ACKNOWLEDGE
CRC	EQU 'C'		;USED TO RQST CRC INSTEAD OF CKSUM
BDNMCH	EQU 75H		; BAD NAME MATCH
LF	EQU 10		; LINEFEED
CR	EQU 13		; CARRIAGE RETURN
BELL	EQU 7		; BELL CHARACTER
WRCON	EQU 2
LIST	EQU 5		;printer o/p
PRINT	EQU 9		;string o/p to console
OPEN	EQU 15
CLOSE	EQU 16
SRCHF	EQU 17
SRCHN	EQU 18
ERASE	EQU 19
READ	EQU 20
WRITE	EQU 21
MAKE	EQU 22
REN	EQU 23
STDMA	EQU 26
FILSIZ	EQU 35
BDOS	EQU 5
FCB	EQU 5CH
FCBEXT	EQU FCB+12
FCBRNO	EQU FCB+32

	ORG 300H	;do not alter this org
	LXI	H,0
	DAD	SP	;GET CP/M'S STACK
	SHLD	STAK	;SAVE IT
	LXI	SP,STAK ;LOCAL STACK
	CALL	INITADR	;INITIALIZE BIOS ADDRESSES
	CALL	INITCRC	;initialise crc table
	CALL	ILPRT
	DB 'UK MODEM7 D.R. Back Version 1.5',CR,LF,0
	CALL	INITMOD	;INITIALISE MODEM PORTS
	LXI	H,80H
	LXI	D,CMDBUF+1
	MVI	B,80H
	CALL	MOVE	;default buffer to cmdbuf
	MVI	A,TRUE
	STA	NFILFLG
	CALL	PROCOPT	;PROCESS CONTROL OPTIONS
RESTART:LDA	OPTION	;GET MAIN OPTION
	CPI	' '	;NO OPTION SPEC'D?
	JZ	MENU
	CPI	'M'	;MENU
	JZ	MENU2
	CALL	MOVEFCB	;MOVE 2ND HALF FCB TO FIRST HALF
	CALL	INMODDATP ;GOBBLE UP GARBAGE..
	CALL	INMODDATP ;..CHARACTERS ON LINE
	LDA	OPTION	;PROCESS MAIN OPTION
	CPI	'T'	;TERMINAL MODE?
	JZ	DSKSAVE
	CPI	'S'	;SEND A FILE?
	JZ	SENDFIL
	CPI	'R'	;RECEIVE A FILE?
	JZ	RCVFIL
MENU:	LXI	SP,STAK	;RESTORE STACK
	LXI	H,RESTSN  ;RESTORE SECTOR NUMBERS..
	LXI	D,SECNOB ;..FOR NEW FILE TRANSFER.
	MVI	B,SECNOE-SECNOB
	CALL	MOVE
	LXI	H,RESTROPT ;RESTORE OPTION TABLE
	LXI	D,OPTBL
	MVI	B,OPTBE-OPTBL
	CALL	MOVE
	LDA	LSTFLG
	STA	LSTRET	;save print toggle
	MVI	A,0
	STA	LSTFLG	;printer off
	STA	MFFLG1	;RESET MFACCESS ROUTINE..
	CMA		;..AND MULTI TRANS IN CASE..
	STA	FSTFLG	;..OF ABORT.
MENU1:	LDA	XPRFLG	;TEST IF MENU SHOULD BE SHOWN
	ORA	A
	JNZ	XPRT
MENU2:	CALL	ILPRT
	DB CR,LF
	DB 'SYNTAX: primaryoption[secondaryoptions] [d:][filename] [ afn]'
	DB CR,LF,CR,LF
	DB '            PRIMARY OPTIONS:',CR,LF
	DB ' S     Send binary files, afn list',CR,LF
	DB ' R     Receive binary files, drive:',CR,LF
	DB ' T     Terminal mode. Terminal filename optional',CR,LF
	DB ' DEL   Delete Terminal file',CR,LF
	DB ' DIR   Directory list, afn optional',CR,LF
	DB ' CPM   Exit to CP/M.',CR,LF
	DB ' X     Expert, toggle menus on/off',CR,LF
	DB ' M     Menu display',CR,LF,CR,LF
	DB '            SECONDARY OPTIONS: (for primary options S and R)'
	DB CR,LF
	DB ' N     Non batch mode, send or receive file'
	DB CR,LF
	DB ' Q     Quiet mode, remote system Send/Receive',CR,LF
	DB 'S,R,V  Monitor data Sent, Received or View file',CR,LF
	DB ' T     Go to Terminal mode after file transfers',CR,LF,0
XPRT:	CALL	ILPRT
	DB CR,LF,0
	MVI	C,25	;CURRENT DISK FUNCTION
	CALL	BDOS
	ADI	41H	;MAKE ASCII
	CALL	CTYPE
	CALL	ILPRT
	DB ' ==>>',0
	LXI	D,CMDBUF ;ENTER COMMAND
	CALL	INBUFF
	CALL	CRLF
	LXI	D,CMDBUF+2 ;POINT TO COMMAND
	CALL	ILCOMP
	DB 'CPM',0
	JNC	EXIT
	CALL	ILCOMP
	DB 'DIR',0
	JNC	DIR
	CALL	ILCOMP
	DB 'DEL',0
	JNC	NEWFILE
	LXI	D,CMDBUF
	LXI	H,FCB
	CALL	CPMLINE	;LOAD FCB
	CALL	PROCOPT
	JMP	RESTART

DIR:	CALL	DIRLST
	JMP	XPRT

EXIT:	LDA	NFILFLG
	CPI	TRUE
	CNZ	TFILWR	;write and close terminal file
	LXI	D,80H
	MVI	C,STDMA
	CALL	BDOS
	LHLD	STAK
	SPHL
	LDA	SAVCCP
	ORA	A
	JZ	0	;WARM BOOT
	RET		;to CCP

NEWFILE:LDA	NFILFLG
	CPI	TRUE
	JZ	MENU1	;IF NO FILE, DON'T ERASE
	LXI	D,FCB3
	MVI	C,ERASE
	CALL	BDOSRT
	MVI	A,TRUE	;DO NOT ALLOW TERMINAL..
	STA	NFILFLG	;..SAVE SINCE NO FILE..
	JMP	MENU1
;======================================
;TERMINAL ROUTINE ALLOWING MEMORY SAVE
DSKSAVE:LDA	FCB+1	;FIRST CHAR OF FILENAME
	CPI	' '	;FILE SPEC'D
	LHLD	HLSAVE
	JZ	TERM1
	LDA	NFILFLG
	CPI	TRUE
	CNZ	TFILWR	;write & close existing file
	CALL	TFLERAS
	CALL	MOVE2	;move FCB to FCB3
	LXI	D,FCB3
	MVI	C,MAKE
	CALL	BDOS
	INR	A
	JNZ	TERM0
	CALL	ILPRT
	DB 'Can''t make file',CR,LF,0
	JMP	TERM1
TERM0:	LXI	H,BOTTRAM
	SHLD	HLSAVE
	MVI	A,FALSE
	STA	NFILFLG
	STA	CTRLR	;cancel any previous ^R
TERM1:	LDA	LSTRET
	STA	LSTFLG	;restore printer toggle
	LDA	XPRFLG
	ORA	A
	JNZ	TERM3
TERM2:	LDA	NFILFLG
	CPI	TRUE
	JZ	NOTFIL
	PUSH	H
	LXI	H,FCB3
	LXI	D,TFILE
	MOV	A,M
	ORA	A
	JNZ	PUTDRV
	MVI	A,' '
	STAX	D
	INX	D
	JMP	NAME1
PUTDRV:	ADI	40H
	STAX	D
	INX	D
	MVI	A,':'
NAME1:	STAX	D
	INX	D
	INX	H
	MVI	B,8
	CALL	MOVE
	INX	D
	MVI	B,3
	CALL	MOVE
	POP	H
	CALL	ILPRT
	DB CR,LF,' ^Y    Terminal file '
TFILE:	DB '               toggle save on/off  '':'' =on',0
NOTFIL:	CALL	ILPRT
	DB CR,LF
	DB ' ^P    Printer, toggle on/off',CR,LF
	DB ' ^T    Transfer (Send) ASCII file without checks',CR,LF
	DB ' ^X    Abort transfer initiated above',CR,LF
	DB ' ^C    Computer mode, toggle echo on/off',CR,LF
	DB ' ^^    Send following character literally',CR,LF
	DB ' ^E    Exit to command menu',CR,LF
	DB ' ^D    Display terminal menu',CR,LF,0
TERM3:	LDA	NFILFLG
	ORA	A
	JNZ	TERM
	LDA	SAVEFLG
	ORA	A
	JZ	TERM
	MVI	A,':'	;indicate filesave is on
	CALL	TYPE	;dont print or inc col count
TERM:	CALL	STAT	;o/p to print & check keypress
	JZ	TERML	;NO, CHECK LINE
	CALL	KEYIN	;GET CHAR FROM KBD
	MOV	B,A
	LDA	EXACFL
	ORA	A
	MVI	A,FALSE
	STA	EXACFL
	MOV	A,B
	JNZ	NOTOG
	CPI	EXITCHR	;^E?
	JZ	MENU	;YES, RETURN TO MENU
	CPI	COMPUT	;^C Computer mode with echo
	JNZ	NOECH
	LDA	ECHOFLG
	CMA
	STA	ECHOFLG
	JMP	TERML
NOECH:	CPI	DMENU	;^D display terminal menu
	JZ	TERM2
	CPI	EXTCHR	;literal
	JZ	EXTFLG
	CPI	TRANCHR	;TEST FOR TRANSFER REQUEST (^T)
	CZ	TRANSFER ;SEND-A-FILE
	JZ	TERM3	;LOOP
	CPI	PRNCHR
	JNZ	NOTLST
	LDA	LSTFLG
	CMA
	STA	LSTFLG
	JMP	TERML
NOTLST:	CPI	SAVECHR
	JNZ	NOTOG
	LDA	NFILFLG	;DO NOT ALLOW SAVE IF..
	CPI	TRUE	;..THIS FLAG IS SET.
	JZ	TERML
	LDA	SAVEFLG
	CMA
	STA	SAVEFLG
	JMP	TERM3
EXTFLG:	MVI	A,TRUE
	STA	EXACFL
	JMP	TERML
NOTOG:	MOV	B,A
	LDA	ECHOFLG
	ORA	A
	MOV	A,B
	JZ	TSEND
	CPI	LF
	JZ	TERML	;ignore LF
	CALL	OUTMODDATP
	CALL	CTYPE	;local echo
	PUSH	PSW
	CALL	MSAVE	;local save in terminal file
	POP	PSW
	CPI	CR
	JNZ	TERML
	MVI	A,LF
	CALL	CHRSND	;send to remote
	CALL	CTYPE	;append LF
	CALL	MSAVE
	JMP	TERML
TSEND:	CALL	OUTMODDATP
TERML:	CALL	INMODCTLP
	CALL	ANIRCV
	CALL	CPIRCV
	JNZ	TERM
	CALL	INMODDATP
	ANI	7FH	;strip parity
	JZ	TERM	;ignore null
	CPI	ENQ	;auto logon
	JNZ	NOLOG
	LDA	ANSBAK
	ORA	A
	JZ	TERM
	LXI	D,LOGMSSG
NXCHAR:	LDAX	D
	INX	D
	ORA	A
	JZ	TERM
	CALL	CHRSND	;send to remote
	MOV	B,A
	LDA	ECHOFLG
	ORA	A
	MOV	A,B
	JNZ	CHRSAV
	PUSH	D
	MVI	D,0	;init count
	CALL	INMODEM	;wait 100ms for echo
	DCR	D
	POP	D
	JNZ	NXCHAR
CHRSAV:	CALL	CTYPE
	CALL	MSAVE
	JMP	NXCHAR
NOLOG:	CPI	SAVON	;auto filesave on
	JNZ	TRYT
	LDA	SAVEFLG
	ORA	A
	JNZ	TERM	;save already on
	MVI	A,TRUE
	STA	SAVEFLG	;turn on save
	STA	CTRLR	;remember
	JMP	TERM3
TRYT:	CPI	SAVOFF	;auto save off
	JNZ	ONWRD
	LDA	CTRLR
	ORA	A
	JZ	TERM	;turn save off only
	MVI	A,FALSE	;if it was turned on
	STA	SAVEFLG	;by ^R from remote
	STA	CTRLR
	JMP	TERM
ONWRD:	MOV	B,A
	LDA	ECHOFLG
	ORA	A
	MOV	A,B
	JZ	TERM5
	CPI	LF
	JZ	TERM	;ignore LF
	CALL	OUTMODDATP	;echo to distant terminal
	CPI	CR
	JNZ	TERM5
	CALL	CTYPE
	CALL	MSAVE	;save in terminal file
	MVI	A,LF
	CALL	CHRSND	;send LF
TERM5:	CALL	CTYPE
	CALL	MSAVE	;save in terminal file
	JMP	TERM
CTRLR:	DB FALSE
LASTB1:	DB 0
LASTB2:	DB 0
;=========================================
;SEND A CP/M FILE
SENDFIL:LDA	BATCHFLG ;CHECK IF MULTIPLE FILE..
	ORA	A	;..MODE IS SET.
	JZ	SENDC1
	MVI	A,TRUE	;INDICATE BATCH SEND
	STA	SENDFLG
	LDA	FSTFLG	;IF FIRST TIME THRU..
	ORA	A	;..SCAN THE COMMAND LINE..
	CNZ	TNMBUF	;..FOR MULTIPLE NAMES.
	CALL	SENDFN	;SENDS FILE NAME TO RECEIVER
	JNC	SENDC2	;CARRY SET MEANS NO MORE FILES.
	MVI	A,0	;STOP BATCH..
	STA	BATCHFLG ;..MODE OPTION.
	MVI	A,EOT	;FINAL XFER END
	CALL	SEND
	JMP	DONE
SENDC1:	LDA	FCB+1
	CPI	' '
	JZ	BLKFILE
	CALL	AMBGTS	;test for ambiguous filename
SENDC2:	CALL	CNREC	;GET NUMBER OF RECORDS
	CALL	OPENFIL
	MVI	E,80
	CALL	WAITNAK	;if a 'C' is received instead of NAK
SENDLP:	CALL	RDSECT	;then CRC mode is enabled
	JC	SENDEOF
	CALL	INCRSNO
	XRA	A
	STA	ERRCT
SENDRPT:CALL	SENDHDR
	CALL	SENDSEC
	LDA	CRCFLG
	ORA	A
	CZ	SENDCRC
	CNZ	SENDCKS
	CALL	GETACK
	JC	SENDRPT
	JMP	SENDLP
SENDEOF:MVI	A,EOT
	CALL	SEND
	CALL	GETACK
	JC	SENDEOF
	JMP	DONE
;===============================
;RECEIVE A FILE
RCVFIL:	XRA	A	;default to CRC mode
	STA	CRCFLG
RCV1FIL:LDA	BATCHFLG ;CHECK IF MULT..
	ORA	A	;..FILE MODE.
	JZ	RCVC1
	MVI	A,FALSE	;FLAG WHERE TO RETURN..
	STA	SENDFLG	;..FOR NEXT FILE TRANS.
	CALL	GETFN	;GET THE FILE NAME.
	JNC	RCVC2	;CARRY SET MEANS NO MORE FILES.
	MVI	A,0	;STOP BATCH..
	STA	BATCHFLG ;..MODE OPTION.
	JMP	DONE
RCVC1:	LDA	FCB+1	;MAKE SURE FILE IS NAMED
	CPI	' '
	JZ	BLKFILE
	JMP	RCVC3
RCVC2:	CALL	CKCPM2
	CALL	CKBAKUP
RCVC3:	CALL	ERASFIL
	CALL	MAKEFIL
	LDA	QFLG
	ORA	A
	JZ	RCVFST
RCVC4:	CALL	ILPRT	;first comment
	DB 'File open, ready to receive',CR,LF,0
RCVFST:	LDA	CRCFLG
	ORA	A
	MVI	A,NAK
	JNZ	RCV2FIL
	MVI	A,CRC	;indicate to Tx that CRC is wanted
RCV2FIL:CALL	SEND	;by sending a 'C' instead of NAK
	LDA	QFLG
	ORA	A
	JZ	RCVLP
	LDA	CRCFLG
	ORA	A
	JNZ	RCVNAKM		;if in CRC mode
	CALL	ILPRT		;then say so
	DB	'CRC in effect',cr,lf,0
	JMP	RCVLP
RCVNAKM:CALL	ILPRT		;else say checksum mode
	DB	'Checksum in effect',cr,lf,0
RCVLP:	CALL	RCVSECT
	JC	RCVEOT
	CALL	WRSECT	;sends CAN if error
	CALL	INCRSNO
	CALL	SENDACK
	JMP	RCVLP
RCVEOT:	CALL	WRBLOCK	;sends CAN if error
	CALL	SENDACK
	CALL	CLOSFIL
	JMP	DONE
;===================================
BLKFILE:CALL	ILPRT	;fatal error
	DB CR,LF,'No file specified',CR,LF,BELL,0
	JMP	MENU
;===============================
DONE:	LDA	BATCHFLG
	ORA	A
	JZ	DONETB
	LDA	QFLG
	ORA	A
	JZ	NMSTRNS
	LXI	H,FCB+1	;PUT FILE NAME IN..
	LXI	D,FTRNMSG ;..SPACES IN MESSAGE..
	MVI	B,8	;..BELOW.
	CALL	MOVE
	INX	D	;PUT FILE TYPE AFTER..
	MVI	B,3	;..SKIPPING ONE SPACE..
	CALL	MOVE	;..BELOW.	
	CALL	ILPRT	;final comment
	DB CR,LF
FTRNMSG:DB '              transferred',CR,LF,CR,LF,0	;13 SPACES
NMSTRNS:LDA	FCB	;SAVE DRIVE NO.
	STA	DISKNO
	LXI	H,FCB	;BLANK OUT FILE CONTROL BLOCKS
	CALL	INITFCBS
	LDA	DISKNO	;PUT DRIVE NUMBER BACK
	STA	FCB
	LXI	H,RESTSN ;RESTORE SECTOR NUMBERS..
	LXI	D,SECNOB ;..FOR NEW FILE TRANSFER.
	MVI	B,SECNOE-SECNOB ;ROUTINE ALSO DONE IN MENU.
	CALL	MOVE
	LDA	SENDFLG	;GOES TO EITHER SEND OR..
	ORA	A	;..RECEIVE FILE, DEPENDING..
	JNZ	SENDFIL	;..UPON WHICH ROUTINE SET..
	JMP	RCV1FIL	;..THE FLAG IN MULTI-FILE MODE.

DONETB:	MVI	A,TRUE	;INDICATE NO FILES BEING..
	STA	FSTFLG	;RESET MULTIFILE TRANS
	LDA	QFLG
	ORA	A
	JZ	DONETA
	CALL	ILPRT	;final comment
	DB CR,LF,'All transfers completed'
	DB CR,LF,BELL,0
DONETA:	LXI	SP,STAK	;restore stack
	MVI	A,CRC
	STA	CRCFLG	;turn off CRC option
	MVI	A,0FFH
	STA	FIRSTME	;set first-time flag
	LDA	TERMFLG	;SEE IF RETURN TO..
	ORA	A	;..TERMINAL MODE..
	JNZ	MENU	;..AFTER X'FER.
	CALL	CRLF
	MVI	A,'T'
	STA	OPTION
	MVI	A,' '
	STA	FCB+1	;too late to specify filename
	CALL	INMODDATP
	CALL	INMODDATP;clear usart
	JMP	DSKSAVE
;============================= SUBROUTINES ===============
MSAVE:	PUSH	PSW
	LDA	NFILFLG
	CPI	TRUE
	JZ	NOSAVE	;CANT SAVE IF NO FILE
	LDA	SAVEFLG
	CPI	FALSE
	JZ	NOSAVE
	POP	PSW
	CPI	EOFCHAR	;dont save EOF's in file
	RZ		;CP/M doesn't like them
	LHLD	HLSAVE
	MOV	M,A
	INX	H
	SHLD	HLSAVE	;MENU COMMAND DESTROYS HL-REG..
	CPI	LF
	JNZ	NOCOLON	;TYPE ":" AFTER EACH LINE FEED..
	MVI	A,':'	;..WHEN MEMORY SAVE ACTIVE.
	CALL	TYPE	;dont increment col count
NOCOLON:LDA	SAVCCP
	ORA	A
	JZ	SUB1
	LDA	7
	SBI	8	;..PAGE BELOW CCP ..
	JMP	SUB1A
SUB1:	LDA	7
SUB1A:	DCR	A	;..OR BDOS HAS BEEN..
	CMP	H	;..REACHED AND DISKSAVE IS NEEDED.
	CZ	INTDSKSV
	RET
NOSAVE:	POP	PSW
	RET
;==================================
PROCOPT:LXI	D,FCB+1
	LDAX	D
	STA	OPTION	;primary option
OPTLP:	INX	D
	LDAX	D
	CPI	' '
	JZ	CKPRI
	LXI	H,OPTBL
	MVI	B,OPTBE-OPTBL
OPTCK:	CMP	M
	JNZ	OPTNO
	MVI	M,0	;INSERT SECONDARY OPTION
	JMP	OPTLP
OPTNO:	INX	H
	DCR	B
	JNZ	OPTCK
	JMP	BDOPT
CKPRI:	LDA	FCB+1	;CHECK ON THE PRIMARY OPTION
	CPI	'X'
	JZ	EXPRT
	CPI	' '
	RZ
	CPI	'M'
	RZ
	CPI	'T'
	RZ
	CPI	'S'
	JZ	CKFILE
	CPI	'R'
	JNZ	BDOPT
	LDA	BATCHFLG ;IF MULT FILE MODE, THEN..
	ORA	A	 ;..RECV OPT MUST NOT BE NAMED
	JZ	CKFILE
	LDA	FCB+17
	CPI	' '
	RZ
BDOPT:	CALL	ILPRT	;fatal error
	DB '++Bad Syntax++',CR,LF,0
	JMP	MENU
EXPRT:	LDA	XPRFLG
	CMA
	STA	XPRFLG
	JMP	MENU
CKFILE:	LDA	FCB+17	;IF OPTION THAT NEEDS FILE NAME,..
	CPI	' '	;..THEN CHECK TO SEE IF NAME..
	RNZ		;..EXISTS.
	JMP	BDOPT
;==================================
TFILWR:	LHLD	HLSAVE
	CALL	NUMRECS	;DISK WRITE ROUTINE AS USED IN..
	CALL	WRTDSK	;..IN THE INTDSKSV ROUTINE.
	LXI	D,FCB3
	MVI	C,CLOSE
	CALL	BDOS
	MVI	A,TRUE
	STA	NFILFLG
	RET
;================================
INTDSKSV:
	MVI	A,XOFF	;SEND A CTRL-S TO STOP..
	CALL	OUTMODDATP ;..REMOTE COMPUTER OUTPUT.
	MVI	D,0	;D IS THE BUFFER COUNT
	CALL	INMODEM	;GET LAST BYTES SENT..
	STA	LASTB1 ;..AFTER CTRL-S.
	CALL	INMODEM	;ADD MORE CALLS TO INMODEM..
	STA	LASTB2 ;..AND STA LASTBYT# IF YOU ARE..
			;..LOSING BYTES WHEN MEMORY IS FULL.
	PUSH	D
	CALL	NUM1REC
	CALL	WRTDSK	;WRITE THE RECORDS
	POP	D
	LXI	H,BOTTRAM
	INR	D
	DCR	D	;TEST BUFFER COUNT FOR ZERO
	JZ	CTRLQ
	LDA	LASTB1 ;GET THE LAST BYTES THAT WERE..
	MOV	M,A	;..SAVED AND PUT THEM IN..
	INX	H	;..BOTTRAM.
	CALL	CTYPE
	DCR	D
	JZ	CTRLQ
	LDA	LASTB2
	MOV	M,A
	INX	H
	CALL	CTYPE
CTRLQ:	SHLD	HLSAVE
	MVI	A,XON	;SEND START CHARACTER..
	CALL	OUTMODDATP ;..TO REMOTE COMPUTER.
	RET
;======================================
;SUBROUTINE LOOPS UNTIL THE MODEM RECEIVES A CHARACTER OR 100ms
;RETURNS BYTE COUNT IN D OR ZERO FOR TIMEOUT
;if ^S is received it waits until ^Q is received
INMODEM:LDA	FASTCLK
	ORA	A
	LXI	B,1250
	JZ	CHKMOD
	LXI	B,2500
CHKMOD:	CALL	INMODCTLP
	CALL	ANIRCV
	CALL	CPIRCV
	JZ	GETBYTE
	DCX	B
	MOV	A,B
	ORA	C
	JNZ	CHKMOD
	RET
GETBYTE:CALL	INMODDATP
	ANI	7FH	;clear parity
	CPI	XOFF
	JNZ	TWAIT4
	PUSH	H
	CALL	ILPRT
	DB CR,LF,'XOFF received, type ^Q to force continuation',CR,LF,0
TWAIT1:	CALL	INMODCTLP
	CALL	ANIRCV
	CALL	CPIRCV
	JZ	TWAIT2
	CALL	STAT	;local key?
	JZ	TWAIT1
	CALL	KEYIN	;get char
	CPI	XON
	JZ	TWAIT3
	JMP	TWAIT1
TWAIT2:	CALL	INMODDATP
	ANI	7FH
	CPI	XON	;remote XON?
	JNZ	TWAIT1
	CALL	ILPRT
	DB 'XON received',CR,LF,0
TWAIT3:	POP	H
	JMP	INMODEM
TWAIT4:	INR	D
	RET
;================================
NUMRECS:MVI	M,EOFCHAR
	INX	H
	LXI	D,127
	DAD	D
NUM1REC:LXI	D,-(BOTTRAM)
	DAD	D
	MOV	A,L	;DIVIDE HL BY 128..
	ORA	A
	RAL		;..TO GET THE..
	MOV	L,H	;..NUMBER OF SECTORS
	MVI	H,0
	PUSH	PSW
	DAD	H
	POP	PSW
	MVI	A,0
	ADC	L
	MOV	L,A	;RETNS WITH NUMBER OF..
	RET		;..128 BYTE RECORDS IN HL.
;======================================
WRTDSK:	LXI	D,BOTTRAM
NEXTWRT:MVI	C,STDMA
	CALL	BDOSRT
	PUSH	D
	LXI	D,FCB3
	MVI	C,WRITE
	CALL	BDOSRT
	POP	D
	INR	A
	JZ	WRTERR
	XCHG
	PUSH	D
	LXI	D,128
	DAD	D
	POP	D
	XCHG
	DCX	H
	MOV	A,H
	ORA	L
	JNZ	NEXTWRT
	CALL	RSDMA	;for CP/M 1.4
	RET
WRTERR:	CALL	ILPRT
	DB 'Terminal file write error',CR,LF,0
	RET
;==========================
BDOSRT:	PUSH	B
	PUSH	D
	PUSH	H
	CALL	BDOS
	POP	H
	POP	D
	POP	B
	RET
;============================
MOVE2:	LXI	H,FCB3
	CALL	INITFCBS
	LXI	H,FCB
	LXI	D,FCB3
	MVI	B,12
	CALL	MOVE
	RET
;=============================
;FILE TRANSFER ROUTINE - CALLED WITH 
;CONTROL-T FROM TERMINAL ROUTINE.
;TRANSFER MAY BE CANCELLED WHILE SENDING BY USING CONTROL-X.
TRANSFER:
	SHLD	HLSAVE
	PUSH	D
	PUSH	B
	PUSH	PSW
	LXI	H,FCB4
	CALL	INITFCBS ;INITIALIZES FCBS POINTED..
	LXI	H,FCB+16 ;..TO BY HL REG.
	CALL	INITFCBS
GET:	CALL	ILPRT
	DB CR,LF,'Enter file name to be transferred -  C/R TO QUIT: ',0
	LXI	D,CMDBUF
	CALL	INBUFF
	CALL	CRLF
	LDA	CMDBUF+2 ;WAS FILE ENTERED
	CPI	20H
	JZ	TRANCAN
	LXI	D,CMDBUF
	LXI	H,FCB4
	CALL	CPMLINE
	LXI	D,FCB4
	MVI	C,OPEN
	CALL	BDOS
	CPI	0FFH	;RETURN WITH 0FFH MEANS
	JNZ	CONTIN	;FILE DOES NOT EXIST
	CALL	ILPRT
	DB '++File does not exist++',CR,LF,0
TRANS2L:CALL ILPRT
	DB 'Type "^X" to cancel transfer',CR,LF
	DB 'Type "A" to re-enter name: ',BELL,0
	CALL	KEYIN
	CALL	UCASE
	CALL	CTYPE	;ECHO RESPONSE
	CALL	CRLF
	CPI	'A'
	JZ	GET
	CPI	CAN
	JZ	TRANCAN
	JMP	TRANS2L
CONTIN:	LXI	D,80H
	MVI	C,STDMA
	CALL	BDOS
	LDA	ECHOFLG	;computer mode ?
	ORA	A
	JZ	READMR
	MVI	A,SAVON	;activate remote save
	CALL	CHRSND	;computer mode only
READMR:	LXI	D,FCB4
	MVI	C,READ
	CALL	BDOS
	ORA	A
	JNZ	RETNS
	CALL	SEND80C
	CPI	EOFCHAR	;END OF FILE
	JZ	RETNS
	CPI	CAN	;CANCELLATION?
	JZ	TRANC1
	JMP	READMR
RETNS:	LDA	ECHOFLG
	ORA	A
	JZ	RETN1
	MVI	A,SAVOFF
	CALL	CHRSND	;deactivate remote save
RETN1:	CALL	ILPRT
	DB CR,LF,'++File transfer completed++',CR,LF,BELL,0
	JMP	RETURN
TRANC1:	LDA	ECHOFLG
	ORA	A
	JZ	TRANCAN
	MVI	A,SAVOFF
	CALL	CHRSND	;deactivate remote save
TRANCAN:CALL	ILPRT
	DB CR,LF,'++ Transfer cancelled ++',CR,LF,BELL,0
RETURN:	POP	PSW
	POP	B
	POP	D
	LHLD	HLSAVE
	RET
;=============================
INITFCBS:		;ENTRY AT +2 WILL LEAVE..
	MVI	M,0	;..DRIVE NO. INTACT.
	INX	H	;WILL INITIALIZE AN FCB..
	MVI	B,11	;..POINTED TO BY HL-REG. FILLS 1ST POS
LOOP10:	MVI	M,' '	;..WITH 0, NEXT 11 WITH..
	INX	H	;..WITH BLANKS, AND LAST..
	DCR	B	;..21 WITH NULLS.
	JNZ	LOOP10
	MVI	B,21
LOOP11:	MVI	M,0
	INX	H
	DCR	B
	JNZ	LOOP11
	RET
;===========================
CHRSND:	PUSH	PSW
REDY:	CALL	INMODCTLP
	CALL	ANISND
	CALL	CPISND
	JNZ	REDY
	POP	PSW
	CALL	OUTMODDATP
	RET
;===============================
;used by ^T transfer
SEND80C:MVI	B,80H
	LXI	H,80H
SEND81:	MOV	A,M	;get next char
	ANI	7FH	;remove top bit
	CPI	EOFCHAR	;end of file?
	RZ
	CALL	FILTER	;ignore non printing ASCII
	JC	SEND85
	MOV	C,A
	LDA	ECHOFLG
	ORA	A
	MOV	A,C
	JNZ	SEND83
	CPI	LF	;ignore lf's in terminal mode
	JZ	SEND85
	MOV	A,C
	CALL	CHRSND	;send to remote
	CPI	CR
	JZ	SEND82
	PUSH	B
	MVI	D,0
	CALL	INMODEM	;wait 100ms for echo
	POP	B
	JZ	SEND85	;zero indicates no echo
	JMP	SEND84
SEND83:	CALL	CHRSND
	PUSH	PSW
	PUSH	B
	LXI	B,1	;zero delay
	CALL	CHKMOD	;check for XOFF from remote
	POP	B
	POP	PSW
SEND84:	CALL	CTYPE	;local console
	PUSH	B
	PUSH	H
	CALL	MSAVE	;save to memory
	POP	H
	POP	B
	JMP	SEND85
SEND82:	PUSH	B
	MVI	D,0
	CALL	INMODEM	;wait 100ms for echo
	POP	B
	JZ	SEND85	;loop until timeout
	PUSH	B
	CALL	CTYPE
	PUSH	PSW	;save inmodem flag
	PUSH	H
	CALL	MSAVE
	POP	H
	POP	PSW
	POP	B
	JMP	SEND82
SEND85:	CALL	STAT	;TEST TO SEE IF
	ORA	A	;CANCELLATION REQUESTED
	JZ	SKIP12
	CALL	KEYIN
	CPI	CAN	;cancel?
	RZ
	CPI	SAVECHR	;memory save toggle
	JNZ	SEND86
	LDA	NFILFLG
	CPI	TRUE	;cant save if no file
	JZ	SEND86
	LDA	SAVEFLG
	CMA
	STA	SAVEFLG
SEND86:	CPI	PRNCHR
	JNZ	SKIP12
	LDA	LSTFLG
	CMA
	STA	LSTFLG	;print toggle
SKIP12:	INX	H
	DCR	B
	JNZ	SEND81
	RET
;=================================-
;send filename
SENDFN:	LDA	QFLG
	ORA	A
	JZ	SWNAK
	CALL	ILPRT	;first comment
	DB 'Awaiting name NAK',CR,LF,0
SWNAK:	MVI	E,80	;80 second timeout
	CALL	WAITNLP
	MVI	A,ACK	;GOT NAK, SEND ACK
	CALL	SEND
	LXI	H,FILECT
	DCR	M
	JM	NOMRNM
	LHLD	NBSAVE	;GET FILE NAME..
	LXI	D,FCB	;..IN FCB
	MVI	B,12
	CALL	MOVE
	SHLD	NBSAVE
	CALL	SENDNM	;SEND IT
	ORA	A	;CLEAR CARRY
	RET
NOMRNM:	MVI	A,EOT
	CALL	SEND
	STC
	RET
;======================================
SENDNM:	PUSH	H
SEND1NM:MVI	D,11	;COUNT CHARS IN NAME
	MVI	C,0	;INIT CHECKSUM
	LXI	H,FCB+1	;ADDRESS NAME
NAMLPS:	MOV	A,M	;SEND NAME
	ANI	7FH	;STRIP HIGH ORDER BIT SO CP/M 2..
	CALL	SEND	;..WON'T SEND R/O FILE DESIGNATION.
	LDA	SSEEFLG
	ORA	A
	JZ	ACKLP	;already typed by SEND
	LDA	QFLG	;SHOW NAME IF..
	ORA	A	;..QFLG NOT SET.
	MOV	A,M
	CNZ	TYPE	;first comment
ACKLP:	PUSH	B	;SAVE CKSUM
	MVI	B,1	;WAIT FOR RECEIVER..
	CALL	RECV	;..TO ACKNOWLEDGE..
	POP	B	;..GETTING LETTER.
	JC	SCKSER
	CPI	ACK
	JNZ	ACKLP
	INX	H	;NEXT CHAR
	DCR	D
	JNZ	NAMLPS
	MVI	A,EOFCHAR ;TELL RECEIVER END OF NAME
	CALL	SEND
	LDA	QFLG
	ORA	A
	CNZ	CRLF	;first comment
	MOV	D,C	;SAVE CHECKSUM
	MVI	B,1
	CALL	RECV	;GET CHECKSUM..
	CMP	D	;..FROM RECEIVER.
	JZ	NAMEOK
SCKSER:	MVI	A,BDNMCH ;BAD NAME-TELL RECEIVER
	CALL	SEND
	LDA	QFLG
	ORA	A
	JZ	SKCSER1
	CALL	ILPRT	;error message
	DB 'Checksum error',CR,LF,0
SKCSER1:MVI	E,80	;DO HANDSHAKING OVER
	CALL	WAITNLP	;DON'T PRINT "AWAITING NAK" MSG
	MVI	A,ACK
	CALL	SEND
	JMP	SEND1NM
NAMEOK:	MVI	A,ACK	;GOOD NAME-TELL RECEIVER
	CALL	SEND
	POP	H
	RET	
;============================
;get filename
GETFN:	LXI	H,FCB
	CALL	INITFCBS+2 ;DOES NOT INITIALIZE DRIVE
	LDA	QFLG
	ORA	A
	JZ	GNAMELP
	CALL	ILPRT	;first comment
	DB 'Awaiting file name',CR,LF,0
GNAMELP:CALL	HSNAK
	JC	GNAMELP
	CALL	GETNM	;GET THE NAME
	CPI	EOT	;IF EOT, THEN NO MORE FILES
	JZ	NOMRNG
	ORA	A	;CLEAR CARRY
	RET
NOMRNG:	STC
	RET
;================================
GETNM:	PUSH	H
GETNM1:	MVI	C,0	;INIT CHECKSUM
	LXI	H,FCB+1
NAMELPG:MVI	B,5
	CALL	RECV	;GET CHAR
	JNC	GETNM3
	LDA	QFLG
	ORA	A
	JZ	GETNM2
	CALL	ILPRT	;error message
	DB 'Time out receiving filename',CR,LF,0
GETNM2:	JMP	GCKSER
GETNM3:	CPI	EOT	;IF EOT, THEN NO MORE FILES
	JZ	GNRET
	CPI	EOFCHAR	;GOT END OF NAME
	JZ	ENDNAME
	MOV	M,A	;PUT NAME IN FCB
	LDA	RSEEFLG
	ORA	A
	JZ	GETNM4	;already typed by RECV
	LDA	QFLG	;TYPE IT IF NO QFLG
	ORA	A
	MOV	A,M
	CNZ	CTYPE	;first comment
GETNM4:	PUSH	B	;SAVE CKSUM
	MVI	A,ACK	;ACK GETTING LETTER
	CALL	SEND
	POP	B
	INX	H	;GET NEXT CHAR
	MOV	A,L	;DON'T LET NOISE...
	CPI	7FH	;..CAUSE OVERFLOW..
	JZ	GCKSER	;..INTO PROGRAM AREA.
	JMP	NAMELPG
ENDNAME:LDA	QFLG
	ORA	A
	CNZ	CRLF	;first comment
	MOV	A,C	;SEND CHECKSUM
	CALL	SEND
	MVI	B,1
	CALL	RECV	;CHECKSUM GOOD?
	CPI	ACK	;YES IF ACK SENT..
	JZ	GNRET	;..ELSE DO OVER.
GCKSER:	LXI	H,FCB	;CLEAR FCB (EXCEPT DRIVE)..
	CALL	INITFCBS+2 ;..SINCE IT MIGHT BE DAMAGED..
	LDA	QFLG	;..BY TOO MANY CHARS.
	ORA	A
	JZ	GCK1SER
	CALL	ILPRT	;error message
	DB 'Checksum error',CR,LF,0
GCK1SER:CALL	HSNAK	;DO HANDSHAKING OVER
	JC	GCK1SER
	JMP	GETNM1
GNRET:	POP	H
	RET
;==============================
HSNAK:	MVI	A,NAK	;SEND NAK UNTIL..
	CALL	SEND	;..RECEIVING ACK.
	CALL	CKABORT	;DON'T GET HUNG UP HERE
	MVI	B,2	;WAIT 2 SECONDS..
	CALL	RECV	;..IN RECEIVE.
	CPI	ACK	;IF ACK,RETURN WITH..
	RZ		;..CARRY CLEAR.
	STC
	RET
;============================
TNMBUF:	MVI	A,FALSE	;CALL FROM SENDFIL ONLY ONCE.
	STA	FSTFLG
	STA	FILECT
	CALL	SCAN
	LXI	H,NAMEBUF
	SHLD	NBSAVE	;SAVE ADDR OF 1ST NAME
TNLP1:	CALL	TRTOBUF
	LXI	H,FCB
	LXI	D,FCBBUF
	CALL	CPMLINE	;PARSE NAME TO CP/M FORMAT
TNLP2:	CALL	MFNAME	;SEARCH FOR NAMES (* FORMAT)
	JC	NEXTNM
	LDA	FCB+10	;IF CP/M 2 $SYS FILE..
	ANI	80H	;..DON'T SEND
	JNZ	TNLP2
	LHLD	NBSAVE	;GET NAME
	LXI	D,FCB	;MOVE IT TO FCB
	XCHG
	MVI	B,12
	CALL	MOVE
	XCHG
	SHLD	NBSAVE	;ADDR OF NEXT NAME
	LXI	H,FILECT	;COUNT FILES FOUND
	INR	M
	JMP	TNLP2
;
NEXTNM:	LXI	H,NAMECT ;COUNT NAMES FOUND
	DCR	M
	JNZ	TNLP1
	LXI	H,NAMEBUF ;SAVE START OF BUFFER
	SHLD	NBSAVE
	LDA	FILECT
	ORA	A
	JZ	NOBFILE
	CPI	65	;NO MORE THAN 64 TRANSFERS
	RC
	MVI	A,64	;ONLY X'FER FIRST 64
	STA	FILECT
	RET
NOBFILE:CALL	ILPRT	;fatal error
	DB 'No file',CR,LF,0
	JMP	MENU
;==============================================-
;SCANS CMDBUF COUNTING NAMES AND PUTTING DELIMITER (SPACE)
;AFTER LAST NAME
SCAN:	PUSH	H
	LXI	H,NAMECT
	MVI	M,0
	LXI	H,CMDBUF+1 ;FIND END OF CMD LINE..
	MOV	C,M	;..AND PUT SPACE THERE.
	MVI	B,0
	LXI	H,CMDBUF+2
	DAD	B
	MVI	M,20H
	LXI	H,CMDBUF+1
	MOV	B,M
	INR	B
	INR	B
	CALL	EAT	;eat spaces
	JZ	DNSCAN
SCAN1LP:INX	H
	DCR	B
	JZ	DNSCAN
	MOV	A,M
	CPI	20H
	JNZ	SCAN1LP
	CALL	EAT
	JZ	DNSCAN
	SHLD	BGNMS	;SAVE START OF NAMES IN CMDBUF
	INR	B
	DCX	H
SCAN3LP:INX	H
	DCR	B
	JZ	DNSCAN
	MOV	A,M
	CPI	20H
	JNZ	SCAN3LP
	LDA	NAMECT	;COUNTS NAMES
	INR	A
	STA	NAMECT
	CALL	EAT
	JZ	DNSCAN
	JMP	SCAN3LP
;
DNSCAN:	MVI	M,20H	;SPACE AFTER LAST CHAR
	POP	H
	RET
;==================================
;Space eater
EAT:	INX	H
	DCR	B
	RZ
	MOV	A,M
	CPI	' '
	JZ	EAT
	RET
;==========================================
;PLACES NEXT NAME IN BUFFER SO CPMLINE MAY PARSE IT
TRTOBUF:LHLD	BGNMS
	MVI	B,0
	LXI	D,FCBBUF+2
TBLP:	MOV	A,M
	CPI	20H
	JZ	TRBFEND
	STAX	D
	INX	H
	INX	D
	INR	B	;COUNT CHARS IN NAME
	JMP	TBLP
;
TRBFEND:INX	H
	MOV	A,M	;EAT EXTRA SPACES
	CPI	20H
	JZ	TRBFEND
	SHLD	BGNMS
	LXI	H,FCBBUF+1 ;PUT # CHARS BEFORE NAME
	MOV	M,B
	RET
;====================================
;IN CP/M V.2, IF FILE IS R/O OR SYS, IT IS CHANGED TO 'BAK'.
CKCPM2:	MVI	C,12
	CALL	BDOS
	ORA	A	;RETURN 0 MEANS CP/M 1
	RZ
	MVI	C,STDMA
	LXI	D,80H
	CALL	BDOS
	MVI	C,SRCHF	;SEARCH FOR FILE
	LXI	D,FCB
	CALL	BDOS
	CPI	0FFH
	RZ
	ADD	A
	ADD	A	;MULT A-REG BY..
	ADD	A
	ADD	A	;..32 TO FIND..
	ADD	A	;..NAME IN DMA.
	LXI	H,80H
	ADD	L
	MOV	L,A	;HL POINTS TO DIR NAME
	LXI	D,9
	DAD	D	;POINT TO R/O ATTRIB BYTE
	MOV	A,M
	ANI	80H	;TEST MSB
	JNZ	MKCHG	;IF SET, MAKE CHANGE
	INX	H	;CHECK SYSTEM ATTRIB BYTE
	MOV	A,M
	ANI	80H
	RZ		;NOT $SYS OR $R/O
	DCX	H
MKCHG:	LXI	D,-8
	DAD	D	;POINT HL TO FILENAME + 1
	LXI	D,FCB+1	;MOVE DIR NAME TO FCB..
	MVI	B,11	;..WITHOUT CHANGING DRIVE.
	CALL	MOVE
	LXI	H,FCB+9	;R/O ATTRIB
	MOV	A,M
	ANI	7FH	;STRIP R/O ATTRIB
	MOV	M,A
	INX	H	;SYS ATTRIB
	MOV	A,M
	ANI	7FH
	MOV	M,A
	LXI	D,FCB
	MVI	C,30	;SET NEW ATTRIBS IN DIR
	CALL	BDOS

;MAY BE CALLED BY CKBAKUP BELOW. ITS RETURN DONE HERE
PLANCHG:LXI	H,FCB	;CHANGE NAME TO TYPE "BAK"
	LXI	D,6CH
	MVI	B,9	;MOVE DRIVE AND NAME (NOT TYPE)
	CALL	MOVE
	LXI	H,75H	;START OF TYPE IN FCB2
	MVI	M,'B'
	INX	H
	MVI	M,'A'
	INX	H
	MVI	M,'K'
	LXI	D,6CH
	MVI	C,ERASE	;ERASE ANY PREV BACKUPS
	CALL	BDOS
	LXI	H,6CH	;FCB2 DR FIELD SHOULD..
	MVI	M,0	;..0 FOR RENAME.
	LXI	D,FCB
	MVI	C,REN
	CALL	BDOS
	RET

CKBAKUP:LDA	BAKUPBYTE
	ORA	A
	RZ
	MVI	C,SRCHF
	LXI	D,FCB
	CALL	BDOS
	INR	A
	RZ	;FILE NOT FOUND
	JMP	PLANCHG	;IN "CKCPM2" - RET DONE THERE
;====================================
;receive a sector
RCVSECT:XRA	A
	STA	ERRCT
RCVRPT:	CALL	VORQ
	JZ	RCVSQ
	CALL	CRLF	;clear col count
	CALL	ILPRT	;comment message
	DB 'Awaiting # ',0
	PUSH	H	;SAVE IT
	LHLD	SECNO	;GET SECTOR NUMBER
	INX	H	;BUMP IT
	CALL	DECOUT	;PRINT SECTOR NUMBER IN DECIMAL
	CALL	ILPRT
	DB	' (', 0
	CALL	DHXOUT	;16 BIT HEX CONVERSION & OUTPUT
	CALL	ILPRT
	DB	'H)',0
	POP	H	;RESTORE IT
;	If CRC is in effect, there is only a 7 second wait
;	for the first SOH.  If the SOH is not received within
;	this time, then a NAK is sent which tells the sender
;	to use checksum checking instead of CRC.  This allows
;	automatic compatability with versions of MODEM that
;	do not implement Cyclic Redundancy Checking(CRC).
RCVSQ:	LDA	FIRSTME	;first SOH...
	ORA	A	;...been received?
	JZ	RCVSQ2	;yes, go get next SOH
	XRA	A	;turn off...
	STA	FIRSTME	;...first soh recvd switch
	LDA	CRCFLG	;CRC in...
	ORA	A	;...effect?
	JNZ	RCVSQ2	;no, do long wait for first SOH
	MVI	B,7	;wait for upto 7 seconds
	CALL	RECV	;get a character from modem
	JNC	RCVSQ3	;got a char, go see if SOH
	LDA	QFLG
	ORA	A
	JZ	CRCM
	CALL	ILPRT	;first comment
	DB CR,LF,'++Switching to CHECKSUM MODE++',CR,LF,0
CRCM:	MVI	A,'C'	;turn off...
	STA	CRCFLG	;...CRC mode.
	MVI	A,NAK	;send NAK to tell sender checksum
	CALL	SEND	;...is in effect & to start sending.
	JMP	RCVSECT	;go start receiving sector
;
RCVSQ2:	MVI	B,7	;10 IN ORIG PROG
	CALL	RECV
	JC	RCVSTOT
RCVSQ3:	CPI	SOH
	JZ	RCVSOH
	ORA	A	;IGNORE NULLS
	JZ	RCVSQ
	CPI	EOT
	STC
	RZ
	MOV	B,A
	LDA	QFLG
	ORA	A
	JZ	RCVSERR
	MOV	A,B
	CALL	CRLF
	CALL	HEXO
	CALL	ILPRT	;error message
	DB 'H recv''d, not SOH',CR,LF,0
RCVSERR: MVI	B,1
	CALL	RECV
	JNC	RCVSERR
	MVI	A,NAK
	CALL	SEND
	LDA	ERRCT
	INR	A
	STA	ERRCT
	CPI	ERRLIM
	JC	RCVRPT
	LDA	QFLG
	ORA	A
	JZ	RCVSABT
	CALL	CKQUIT
	JZ	RCVSECT
RCVSABT:CALL	CLOSFIL
	CALL	ERXIT	;fatal error
	DB CR,LF,'++Unable to receive block - Aborting++$'
RCVSTOT:LDA	QFLG
	ORA	A
	JZ	RCVSERR
	CALL	ILPRT	;error message
	DB CR,LF,'++  Timeout ++ ',0
RCVPRN:	LDA	ERRCT
	CALL	HEXO
	CALL	CRLF
	JMP	RCVSERR
RCVSOH:	MVI	B,1
	CALL	RECV
	JC	RCVSTOT
	MOV	D,A
	MVI	B,1
	CALL	RECV
	JC	RCVSTOT
	CMA
	CMP	D
	JZ	RCVDATA
	LDA	QFLG
	ORA	A
	JZ	RCVSERR
	CALL	ILPRT	;error message
	DB CR,LF,'++  Bad sector # in Hdr',CR,LF,0
	JMP	RCVSERR
RCVDATA:MOV	A,D
	STA	RCVSNO
	MVI	A,1
	STA	DATAFLG
	MVI	C,0	;clear checksum
	CALL	CLRCRC	;clear crc counter
	LXI	H,80H
RCVCHR:	MVI	B,1
	CALL	RECV
	JC	RCVSTOT
	MOV	M,A
	INR	L
	JNZ	RCVCHR
	XRA	A
	STA	DATAFLG
	LDA	CRCFLG
	ORA	A
	JZ	RCVCRC
	MOV	D,C
	MVI	B,1
	CALL	RECV
	JC	RCVSTOT
	CMP	D
	JNZ	RCVCERR
CHKSNUM:LDA	RCVSNO
	MOV	B,A
	LDA	SECNO
	CMP	B
	JZ	RECVACK
	INR	A
	CMP	B
	JNZ	ABORT
	RET
RCVCRC:	MVI	E,2	;nr of crc bytes
RCV2CRC:MVI	B,1
	CALL	RECV
	JC	RCVSTOT
	DCR	E
	JNZ	RCV2CRC
	CALL	CHKCRC
	ORA	A
	JZ	CHKSNUM
	LDA	QFLG
	ORA	A
	JZ	RCVSERR
	CALL	ILPRT	;error message
	DB CR,LF,'++CRC error++',0
	JMP	RCVPRN
RCVCERR:LDA	QFLG
	ORA	A
	JZ	RCVSERR
	CALL	ILPRT	;error message
	DB '++Cksum error++ ',0
	JMP	RCVPRN
RECVACK:CALL	SENDACK
	JMP	RCVSECT
;===============================
SENDACK:MVI	A,ACK
	CALL	SEND
	RET
;===========================
;send header
SENDHDR:CALL	VORQ
	JZ	SENDHNM
	CALL	CRLF	;clear col count
	CALL	ILPRT	;comment message
	DB 'Send # ',0
	PUSH	H
	LHLD	SECNO	;GET SECTOR NUMBER
	CALL	DECOUT	;PRINT IT IN DECIMAL
	CALL	ILPRT
	DB	'  (',0
	CALL	DHXOUT	;16 BIT HEX CONVERSION & OUTPUT
	CALL	ILPRT
	DB	'H)',0
	POP	H
SENDHNM:MVI	A,SOH
	CALL	SEND
	LDA	SECNO
	CALL	SEND
	LDA	SECNO
	CMA
	CALL	SEND
	RET
;========================
SENDSEC:MVI	A,1
	STA	DATAFLG
	MVI	C,0
	CALL	CLRCRC
	LXI	H,80H
SENDC:	MOV	A,M
	CALL	SEND
	INR	L
	JNZ	SENDC
	XRA	A
	STA	DATAFLG
	RET
;===============================
SENDCKS:MOV	A,C
	CALL	SEND
	RET
;==============================
SENDCRC:PUSH	H
	LHLD	CRCVAL
	MOV	A,H
	CALL	SEND
	MOV	A,L
	CALL	SEND
	POP	H
	XRA	A
	RET
;===============================
GETACK:	MVI	B,7	;10 IN ORIG PROG
	CALL	RECVDG
	JC	GETATOT
	CPI	ACK
	RZ
	MOV	B,A
	LDA	QFLG
	ORA	A
	JZ	ACKERR
	MOV	A,B
	CALL	CRLF
	CALL	HEXO
	CALL	ILPRT	;error message
	DB 'H Recv''d, not ACK',CR,LF,0
ACKERR:	LDA	ERRCT
	INR	A
	STA	ERRCT
	CPI	ERRLIM
	RC
	LDA	QFLG
	ORA	A
	JZ	CSABORT
	CALL	CKQUIT
	STC
	RZ
CSABORT:CALL	ERXIT	;fatal error
	DB CR,LF,'Can''t send sector -- Aborting$'
GETATOT:LDA	QFLG
	ORA	A
	JZ	ACKERR
	CALL	ILPRT	;error message
	DB CR,LF,'Timeout on ACK',CR,LF,0
	JMP	ACKERR
;================================
CKABORT:LDA	QFLG
	ORA	A
	RZ	
	CALL	STAT
	RZ
	CALL	KEYIN
	CPI	CAN
	JZ	ABORT	;local abort
	RET
ERXIT:	POP	D	;print message and abort
	MVI	C,PRINT
	CALL	BDOS	;does not update col count
	CALL	CRLF	;reset col count
ABORT:	LXI	SP,STAK
ABORTL:	MVI	B,1
	CALL	RECV	;wait until sender finishes
	JNC	ABORTL
	MVI	A,CAN
	CALL	SEND
ABORTW:	MVI	B,1
	CALL	RECV	;wait until sender finishes
	JNC	ABORTW
	MVI	A,' '	;send a space to clear out ^X
	CALL	SEND
	CALL	ILPRT
	DB CR,LF,'Routine cancelled',CR,LF,BELL,0
	LXI	H,RESTROPT
	LXI	D,OPTBL
	MVI	B,OPTBE-OPTBL-2
	CALL	MOVE	;clear options except T
	XRA	A
	STA	BATCHFLG;clear N option
	JMP	DONETA
;===================================
INCRSNO:PUSH	H
	LHLD	SECNO	;GET SECTOR NUMBER
	INX	H	;BUMP IT
	SHLD	SECNO	;STORE IT
	POP	H
	RET
;===============================
AMBGTS:	LXI	H,FCB+1
	MVI	C,11
AMBIG:	MOV	A,M
	INX	H
	CPI	'?'	;test for ambiguous name
	JNZ	NOTAMB
	CALL	ILPRT	;fatal error
	DB 'Ambiguous filename not allowed',CR,LF,0
	JMP	MENU
NOTAMB:	DCR	C
	JNZ	AMBIG
	RET
;=============================
ERASFIL:LDA	BATCHFLG ;DON'T ASK FOR ERASE..
	ORA	A	;..IN MULTI-FILE MODE,..
	JNZ	NOASK
	LDA	QFLG
	ORA	A
	JZ	NOASK	;dont hang up in Q mode
TFLERAS:CALL	AMBGTS	;ambiguous name ?
	LXI	D,FCB
	MVI	C,SRCHF	;see if file exists already
	CALL	BDOS
	INR	A
	RZ
	CALL	ILPRT
	DB 'File exists -- Type ''Y'' to erase: ',BELL,0
	CALL	KEYIN
	PUSH	PSW
	CALL	CTYPE
	POP	PSW
	CALL	UCASE
	CPI	'Y'
	CALL	CRLF
	JNZ	MENU
NOASK:	LXI	D,FCB
	MVI	C,ERASE
	CALL	BDOS
	RET
;===========================
MAKEFIL:LXI	D,FCB
	MVI	C,MAKE
	CALL	BDOS
	INR	A
	RNZ
	CALL	ERXIT	;fatal error
	DB 'Error - Can''t make file',CR,LF
	DB 'Directory must be full$'
;==================================
CNREC:	MVI	C,12
	CALL	BDOS
	ORA	A	;0 means CP/M 1
	JZ	CNREC14
	MVI	C,FILSIZ ;COMPUTE FILE SIZE FUNCTION IN CP/M 2.x
	LXI	D,FCB	;POINT TO FILE CONTROL BLOCK
	CALL	BDOS
	LHLD	FCB+33	;GET RECORD COUNT
	SHLD	RCNT	;STORE IT
	LXI	H,0	;ZERO HL
	SHLD	FCB+33	;RESET RANDOM RECORD IN FCB
	RET
CNREC14:MVI	A,'?'	;MATCH ALL EXTENTS
	STA	FCBEXT
	MVI	A,0FFH
	STA	MAXEXT	;INIT MAX EXT NO.
	MVI	C,SRCHF	;GET 'SEARCH FIRST' FNC
	LXI	D,FCB
	CALL	BDOS	;READ FIRST
	INR	A	;WERE THERE ANY?
	JNZ	SOME	;GOT SOME
	CALL	ERXIT	;fatal error
	DB '++File not found++$'
;POINT TO DIRECTORY ENTRY
SOME:	DCR	A	;UNDO PREV 'INR A'
	ANI	3	;MAKE MODULUS 4
	ADD	A	;MULTIPLY...
	ADD	A	;..BY 32 BECAUSE
	ADD	A	;..EACH DIRECTORY
	ADD	A	;..ENTRY IS 32
	ADD	A	;..BYTES LONG
	LXI	H,80H ;POINT TO BUFFER
	ADD	L	;POINT TO ENTRY
	ADI	15	;OFFSET TO RECORD COUNT
	MOV	L,A	;HL NOW POINTS TO REC COUNT
	MOV	B,M	;GET RECORD COUNT
	DCX	H
	DCX	H	;BACK DOWN TO EXTENT NUMBER
	DCX	H
	LDA	MAXEXT	;COMPARE WITH CURRENT MAX.
	ORA	A	;IF NO MAX YET
	JM	BIGGER	;THEN SAVE RECORD COUNT ANYWAY
	CMP	M
	JNC	MOREDIR
BIGGER:	MOV	A,B	;SAVE NEW RECORD COUNT
	STA	RCNT
	MOV	A,M	;SAVE NEW MAX. EXTENT NO.
	STA	MAXEXT
MOREDIR:MVI	C,SRCHN	;SEARCH NEXT
	LXI	D,FCB
	CALL	BDOS	;READ DIR ENTRY
	INR	A	;CHECK FOR END (0FFH)
	JNZ	SOME	;NOT END OF DIR...PROCESS EXTENT
	LDA	MAXEXT	;HIT END...GET HIGHEST EXTENT NO. SEEN
	MOV	L,A	;WHICH GIVES EXTENT COUNT -1
	MVI	H,0
	MOV	D,H
	LDA	RCNT	;GET RECORD COUNT OF MAX EXTENT SEEN
	MOV	E,A	;SAVE IT IN DE
	DAD	H
	DAD	H	;MULTIPLY # OF EXTENTS -1
	DAD	H	; TIMES 128
	DAD	H
	DAD	H
	DAD	H
	DAD	H
	DAD	D	;ADD IN SIZE OF LAST EXTENT
	SHLD	RCNT	;SAVE TOTAL RECORD COUNT
	RET
;==================================
OPENFIL:XRA	A
	STA	FCBEXT
	LXI	D,FCB
	MVI	C,OPEN
	CALL	BDOS
	INR	A
	JNZ	OPENOK
	CALL	ERXIT	;fatal error
	DB 'Can''t open file$'
OPENOK:	CALL	VORQ
	RZ
	CALL	ILPRT	;comment message
	DB 'File open, size: ',0
	LHLD	RCNT	;GET RECORD COUNT
	CALL	DECOUT	;PRINT NUMBER OF SECTORS IN DECIMAL
	CALL	ILPRT	;PRINT
	DB	' (',0
	CALL	DHXOUT
	CALL	ILPRT
	DB	'H) sectors',CR,LF,0
	RET
;=============================
CLOSFIL:LXI	D,FCB
	MVI	C,CLOSE
	CALL	BDOS
	INR	A
	RNZ
	CALL	ERXIT	;fatal error
	DB 'Can''t close file$'
;================================
RDSECT:	LDA	SECINBF
	DCR	A
	STA	SECINBF
	JM	RDBLOCK
	LHLD	SECPTR
	LXI	D,80H
	CALL	MOVE128
	SHLD	SECPTR
	RET
RDBLOCK:LDA	EOFLG
	CPI	1
	STC
	RZ
	MVI	C,0
	LXI	D,DBUF
RDSECLP:PUSH	B
	PUSH	D
	MVI	C,STDMA
	CALL	BDOS
	LXI	D,FCB
	MVI	C,READ
	CALL	BDOS
	POP	D
	POP	B
	ORA	A
	JNZ	REOF
	LXI	H,80H
	DAD	D
	XCHG
	INR	C
	MOV	A,C
	CPI	DBUFSIZ*8 ;BUFFER SIZE IN 128 BYTE SECTORS
	JZ	RDBFULL
	JMP	RDSECLP
REOF:	MVI	A,1
	STA	EOFLG
	MOV	A,C
RDBFULL:STA	SECINBF
	LXI	H,DBUF
	SHLD	SECPTR
	LXI	D,80H
	MVI	C,STDMA
	CALL	BDOS
	JMP	RDSECT
;==================================
WRSECT:	LHLD	SECPTR
	XCHG
	LXI	H,80H
	CALL	MOVE128
	XCHG
	SHLD	SECPTR
	LDA	SECINBF
	INR	A
	STA	SECINBF
	CPI	DBUFSIZ*8 ;BUFFER SIZE IN 128 BYTE SECTORS
	RNZ
WRBLOCK:LDA	SECINBF
	ORA	A
	RZ
	MOV	C,A
	LXI	D,DBUF
DKWRLP:	PUSH	H
	PUSH	D
	PUSH	B
	MVI	C,STDMA
	CALL	BDOS
	LXI	D,FCB
	MVI	C,WRITE
	CALL	BDOS
	POP	B
	POP	D
	POP	H
	ORA	A
	JNZ	WRERR
	LXI	H,80H
	DAD	D
	XCHG
	DCR	C
	JNZ	DKWRLP
	XRA	A
	STA	SECINBF
	LXI	H,DBUF
	SHLD	SECPTR
RSDMA:	LXI	D,80H	;required by CP/M 1.4
	MVI	C,STDMA
	CALL	BDOS
	RET
WRERR:	CALL	RSDMA
	MVI	A,CAN
	CALL	SEND
	CALL	ERXIT	;fatal error
	DB 'Error writing file$'
;===========================================
;RECV: Receive a character
;Timeout time is in B, in seconds. Entry via 'RECVDG' deletes garbage
;characters on the line. For example, having just sent a sector, calling
;RECVDG will delete any line noise induced characters LONG before the
;ACK/NAK would be received.
RECVDG:	CALL	INMODDATP
	CALL	INMODDATP
RECV:	PUSH	D
	LDA	FASTCLK
	ORA	A
	JZ	MSEC
	MOV	A,B
	ADD	A
	MOV	B,A
MSEC:	LXI	D,15000	;60% OF ORIG 50000
	CALL	CKABORT
MWTI:	CALL	STAT	;check keyboard
	ORA	A
	JZ	MWTJ
	CALL	KEYIN	;get char
	CALL	UCASE
	CALL	FLGTGL	;toggle appropriate flag
MWTJ:	CALL	INMODCTLP
	CALL	ANIRCV
	CALL	CPIRCV	;wait for modem char
	JZ	MCHAR
	DCR	E
	JNZ	MWTI
	DCR	D
	JNZ	MWTI
	DCR	B
	JNZ	MSEC
	POP	D
	STC
	RET
MCHAR:	CALL	INMODDATP
	POP	D
	PUSH	PSW
	CALL	UPDCRC	;calc crc
	ADD	C	
	MOV	C,A
	LDA	RSEEFLG
	ORA	A
	JZ	MONIN
	LDA	VSEEFLG
	ORA	A
	JNZ	NOMONIN
	LDA	DATAFLG
	ORA	A
	JZ	NOMONIN
MONIN:	POP	PSW
	PUSH	PSW
	CALL	SHOW
NOMONIN:POP	PSW
	ORA	A
	RET
;==============================
;set/reset secondary options
FLGTGL:	PUSH	B
	PUSH	D
	PUSH	H
	LXI	H,OPTBL	;flag
	LXI	D,RESTROPT
	MVI	C,5	;do Q,R,S,V,T but NOT N
	MOV	B,A
DOCMP:	LDAX	D	;get reference
	CMP	B
	JNZ	DOCMP1
	MOV	A,B
	CMP	M	;current setting
	MOV	M,A	;clear flag
	JNZ	DOCMP1
	XRA	A
	MOV	M,A	;set flag
DOCMP1:	INX	D
	INX	H
	DCR	C
	JNZ	DOCMP
	POP	H
	POP	D
	POP	B
	RET
;=================================
SEND:	PUSH	PSW
	LDA	SSEEFLG
	ORA	A
	JZ	MONOUT
	LDA	VSEEFLG
	ORA	A
	JNZ	NOMONOT
	LDA	DATAFLG
	ORA	A
	JZ	NOMONOT
MONOUT:	POP	PSW
	PUSH	PSW
	CALL	SHOW
NOMONOT:POP	PSW
	PUSH	PSW
	CALL	UPDCRC	;calc crc
	ADD	C
	MOV	C,A
	POP	PSW
	CALL	CHRSND	;send to remote
	CALL	STAT	;check for keypress
	ORA	A
	RZ
	CALL	KEYIN	;get char
	CALL	UCASE
	CALL	FLGTGL	;toggle appropriate flag
	RET
;==================================
WAITNAK:LDA	QFLG
	ORA	A
	JZ	WAITNLP
	CALL	ILPRT	;first comment
	DB 'Awaiting initial NAK',CR,LF,0
WAITNLP:CALL	CKABORT
	MVI	B,1
	CALL	RECV
	CPI	NAK
	RZ
	CPI	CRC	;crc request?
	JZ	WAITCRC	;yes, go set crc flag
	DCR	E
	JZ	ABORT
	JMP	WAITNLP
WAITCRC:XRA	A
	STA	CRCFLG
	LDA	QFLG
	ORA	A
	RZ
	CALL	ILPRT	;first comment
	DB 'CRC request received',CR,LF,0
	RET
;===============================
;return zero = no message display
;use ahead of comment messages except first and final
VORQ:	LDA	VSEEFLG
	ORA	A
	RZ
	LDA	QFLG
	ORA	A
	RET
;==================================
INITADR:LHLD	1
	LXI	D,3
	DAD	D
	SHLD	VSTAT+1
	DAD	D
	SHLD	VKEYIN+1
	DAD	D
	SHLD	VTYPE+1
	LXI	D,33
	DAD	D
	SHLD	LISTST+1
	RET
;=================================
MOVEFCB:LXI	H,FCB+16
	LXI	D,FCB
	MVI	B,16
	CALL	MOVE
	XRA	A
	STA	FCBRNO
	STA	FCBEXT
	RET
;=========================
CMPDEHL:MOV	A,E
	CMP	L
	RNZ
	MOV	A,D
	CMP	H
	RET
;=============================
;carry set for non printing ASCII chars + VT & FF
FILTER:	CPI	8	;BS
	RC		;Byte is less than 08H
	CPI	LF+1	;
	CMC		;invert carry flag
	RNC		;get rid of VT & HT, invert BS & LF carry flag
	CPI	CR	;
	RC		;Byte is less than 0D
	RZ		;byte = LF,CR or BS, no carry
	CPI	' '	;CPI space
	RC		;Byte is between 0E & 0F, reject
	CPI	7FH	;Del char
	CMC		;printable chars to no carry, DEL to carry
	RET
;==============================
;put C into print buffer, if buffer full byte is lost
LISTOUT:MOV	A,C
	ANI	7FH	;remove top bit
	CALL	FILTER	;ignore non printing chars
	RC
LSTBUF:	LHLD	BUFEND
	XCHG
	LHLD	BUFRIN
	INX	H
	CALL	CMPDEHL
	JNZ	LBUFF1	;test for end of buffer
	LHLD	BUFBEG	;reset to start
LBUFF1:	XCHG
	LHLD	BUFROUT
	CALL	CMPDEHL
	RZ		;buffer full
	XCHG
	SHLD	BUFRIN
	MOV	M,C	;save byte in buffer
	RET
;==========================
;Check printer status, if busy return, else print one char
LISTST:	CALL	$-$
	ORA	A
	RZ		;see if printer is busy
	LHLD	BUFRIN
	XCHG
	LHLD	BUFROUT
	CALL	CMPDEHL
	RZ		;return if buffer empty
	INX	H
	PUSH	H
	LHLD	BUFEND
	XCHG
	POP	H
	CALL	CMPDEHL
	JNZ	PRBUF2
	LHLD	BUFBEG	;reset to start
PRBUF2:	SHLD	BUFROUT
	MOV	E,M
	MVI	C,LIST	;CP/M print function
	CALL	BDOS
	RET
;=============================
CONO:	MOV	C,A
	CPI	9
	JNZ	CONSOP
TAB:	MVI	A,' '
	CALL	CONSOP	;expand tabs
	LDA	COLCNT
	ANI	7
	JNZ	TAB
	RET
CONSOP:	MOV	C,A
	LDA	LSTFLG
	ORA	A
	CNZ	LISTOUT	;no tabs left by now
	MOV	A,C
	CALL	TYPE
	MOV	C,A
	LXI	H,COLCNT
	CPI	7FH
	RZ
	INR	M
	CPI	' '
	RNC
	DCR	M
	MOV	A,M
	ORA	A
	RZ
	MOV	A,C
	CPI	8
	JNZ	TRYCR
	DCR	M
	RET
TRYCR:	CPI	CR
	RNZ
	MVI	M,0
	RET
;=============================
SHOW:	CPI	LF
	JZ	CTYPE
	CPI	CR
	JZ	CTYPE
	PUSH	PSW
	PUSH	H
	LXI	H,TWIDTH
	LDA	COLCNT	;check terminal width
	CMP	M
	CNC	CRLF	;force CR,LF
	POP	H
	POP	PSW
	CPI	9
	JZ	CTYPE
	CPI	' '
	JC	SHOWHEX
	CPI	7FH
	JC	CTYPE
SHOWHEX:PUSH	PSW
	MVI	A,'('
	CALL	CTYPE
	POP	PSW
	CALL	HEXO
	MVI	A,')'
CTYPE:	PUSH	PSW
	PUSH	B
	PUSH	D
	PUSH	H
	ANI	7FH	;ensure parity bits are suppressed
	CALL	CONO	;type with tabs expanded
	POP	H
	POP	D
	POP	B
	POP	PSW
	RET
;=============================
CRLF:	PUSH	PSW
	MVI	A,CR
	CALL	CTYPE
	MVI	A,LF
	CALL	CTYPE
	POP	PSW
	RET
;==========================
TYPE:	PUSH	PSW
	PUSH	B
	PUSH	D
	PUSH	H
	ANI	7FH	;ensure parity bits are suppressed
	MOV	C,A
VTYPE:	CALL	$-$
	POP	H
	POP	D
	POP	B
	POP	PSW
	RET
;=========================
STAT:	PUSH	B
	PUSH	D
	PUSH	H
	CALL	LISTST	;o/p next char to printer
VSTAT:	CALL	$-$	;get keyboard status
	POP	H
	POP	D
	POP	B
	ORA	A
	RET
;===============================
KEYIN:	PUSH	B
	PUSH	D
	PUSH	H
VKEYIN:	CALL	$-$
	POP	H
	POP	D
	POP	B
	RET
;===========================
UCASE:	CPI	61H	;CHANGES LOWER CASE CHARACTER..
	RC		;..IN A-REG TO UPPER CASE.
	CPI	7BH
	RNC
	ANI	5FH
	RET
;============================
DECOUT:	PUSH	PSW
	PUSH	B
	PUSH	D
	PUSH	H
	LXI	B,-10
	LXI	D,-1
DECOU2:	DAD	B
	INX	D
	JC	DECOU2
	LXI	B,10
	DAD	B
	XCHG
	MOV	A,H
	ORA	L
	CNZ	DECOUT
	MOV	A,E
	ADI	'0'
	CALL	CTYPE
	POP	H
	POP	D
	POP	B
	POP	PSW
	RET
;======================================
; - double precision hex output routine.
DHXOUT:	PUSH	H
	PUSH	PSW
	MOV	A,H	;GET MS BYTE
	ORA	A
	CNZ	HEXO	;suppress high order if zero
	MOV	A,L	;GET LS BYTE
	CALL	HEXO	;OUTPUT LOW ORDER BYTE
	POP	PSW
	POP	H
	RET
;===============================
HEXO:	PUSH	PSW
	RAR
	RAR
	RAR
	RAR
	CALL	NIBBL
	POP	PSW
NIBBL:	ANI	0FH
	CPI	10
	JC	ISNUM
	ADI	7
ISNUM:	ADI	'0'
	JMP	CTYPE
;=====================================
;RETNS W/ ZERO SET IF RETRY ASKED. IF MULTI-FILE MODE, THEN
;NO QUESTIONS ASKED, JUST QUIT
CKQUIT:	LDA	BATCHFLG
	ORA	A
	JZ	CKQTASK	;ASK FOR RETRY
	INR	A	;RESET ZERO FLG
	RET
CKQTASK:XRA	A
	STA	ERRCT
	CALL	ILPRT
	DB 'Multiple errors encountered.',CR,LF
	DB 'Type Q to quit, R to retry:  ',BELL,0
	CALL	KEYIN
	PUSH	PSW
	CALL	CTYPE
	CALL	CRLF
	POP	PSW
	CALL	UCASE
	CPI	'R'
	RZ
	CPI	'Q'
	JNZ	CKQUIT
	ORA	A
	RET
;==============================
ILPRT:	XTHL
ILPLP:	MOV	A,M
	ORA	A
	JZ	ILPRET
	CALL	TYPE
	INX	H
	JMP	ILPLP
ILPRET:	XTHL
	RET
;=========================
MOVE128:MVI	B,128
MOVE:	MOV	A,M
	STAX	D
	INX	H
	INX	D
	DCR	B
	JNZ	MOVE
	RET
;==================================
;Cyclic Redundancy Check Subroutines.
;The generator is X^16 + X^12 + X^5 +1 as
;recommended by CCITT
;Generate table for fast CRC calculation
INITCRC:LXI	H,CRCTBL
	MVI	C,0
GLOOP:	XCHG
	LXI	H,0
	MOV	A,C
	PUSH	B
	MVI	B,8
	XRA	H
	MOV	H,A
LLOOP:	DAD	H
	JNC	LSKIP
	MVI	A,10H
	XRA	H
	MOV	H,A
	MVI	A,21H
	XRA	L
	MOV	L,A
LSKIP:	DCR	B
	JNZ	LLOOP
	POP	B
	XCHG
	MOV	M,D
	INR	H
	MOV	M,E
	DCR	H
	INX	H
	INR	C
	JNZ	GLOOP
	RET
;=================================
;Reset CRC Accumulator for a new message.
CLRCRC:	PUSH	H
	LXI	H,0
	SHLD	CRCVAL
	POP	H
	RET
;====================================
;Update CRC Accumulator using byte in (A).
UPDCRC:	PUSH	PSW
	PUSH	B
	PUSH	D
	PUSH	H
	LHLD	CRCVAL
	XCHG
	MVI	B,0
	XRA	D
	MOV	C,A
	LXI	H,CRCTBL
	DAD	B
	MOV	A,M
	XRA	E
	MOV	D,A
	INR	H
	MOV	E,M
	XCHG
	SHLD	CRCVAL
	POP	H
	POP	D
	POP	B
	POP	PSW
	RET
;==================================
; Check CRC bytes of received message.
CHKCRC:	PUSH	H
	LHLD	CRCVAL
	MOV	A,H
	ORA	L
	POP	H
	RZ
	MVI	A,0FFH
	RET
;
CRCVAL:	DW	0
;======================================
;INBUFF    - DUPLICATES READ BUFFER ROUTINE
;SAME AS CP/M FUNCTION 10, BUT DOES
;NOT USE CTRL-C (REASON FOR ROUTINE).
;DOES ALLOW CONTROLS U, R, E, AND H (BACKSPACE).
INBUFF:	PUSH PSW
	PUSH H
	PUSH B
	PUSH D		;DE REGISTERS MUST BE PUSHED LAST
ISTART:	CALL ICLEAR	;CLEAR THE BUFFER AREA
	POP D		;GET ADDRESS OF BUFFER ON RETRIES
	PUSH D		;RESTORE STACK
	XRA A
	INX D		;ADDRESS COUNT FIELD
	STAX D		;INITIALIZE WITH A ZERO IN COUNT BYTE
	INX D
	XCHG		;ADDRESS FIRST BUFFER BYTE WITH HL
INBUFA:	CALL CONIN
	CPI 0DH		;IS IT A RETURN?
	JZ INBUFR	;IF SO, THEN RETURN
	CPI 7FH		;IS IT A DELETE?
	JZ DELETE
	CPI 8		;CTRL-H WILL BACKSPACE..
	JZ DELETE	;..OVER DELETED CHAR.
	CPI 'U'-40H	;IS IT A CTRL-U
	JZ INBUFO	;OUTPUT # CR LF AND START OVER
	CPI 'R'-40H	;CTRL-R RETYPES LINE
	JZ RETYPE
	CPI 'E'-40H
	JZ PCRLF
	CPI 20H		;NO CONTROL CHARACTERS OTHER..
	JC INBUFA	;..THAN ABOVE ALLOWED.
	MOV B,A		;SAVE INPUTTED CHARACTER
	XCHG		;SAVE HL IN DE
	POP H		;GET ADDRESS OF BUFFER IN HL
	PUSH H		;RESTORE STACK
	INX H		;ADDRESS COUNT BYTE
	INR M		;INCREASE COUNT BYTE
	DCX H		;ADDRESS MAXIMUM
	MOV A,M		;PUT MAXIMUM IN A
	INX H		;ADDRESS COUNT
	CMP M		;COMPARE COUNT TO MAXIMUM
	JC ALERT	;IF MAXIMUM, RING BELL AND WAIT FOR CR
	XCHG		;RESTORE BUFFER POINTER TO HL
	MOV M,B		;PUT INPUTTED CHARACTER IN BUFFER
	MOV A,B		;OUTPUT IT
	CALL TYPE
	INX H		;BUMP POINTER
	JMP INBUFA	;GET NEXT CHARACTER

DELETE:	XCHG		;SAVE BUFFER POINTER IN DE
	POP H		;ADDRESS BEGINNING OF BUFFER
	PUSH H		;RESTORE STACK
	INX H		;ADDRESS COUNT FIELD
	MOV B,A		;SAVE DELETE CHAR - 7FH OR 08H
	MOV A,M
	SUI 1		;DECREASE COUNT
	MOV M,A
	JC NODEL	;DON'T DELETE PAST BEGINING OF BUFFER.
	XCHG		;RESTORE BUFFER POINTER TO HL
	DCX H		;POINT TO LAST BYTE INPUTTED
	MOV A,B		;GET BACK EITHER 7FH OR 08H
	MOV B,M		;GET CHARACTER BEING DELETED
	MVI M,20H	;RESTORE BLANK
	CPI 8
	JZ BKSPC
	CPI 7FH
	JZ BKSPC0
	JMP INBUFA	;GET NEXT CHARACTER
NODEL:	INR M		;DON'T LEAVE COUNT NEGATIVE
	XCHG		;RESTORE POINTER TO HL
	JMP INBUFA
BKSPC0:	MVI A,08H
BKSPC:	CALL TYPE	;TRUE ERASE IF 08H
	MVI A,20H
	CALL TYPE
	MVI A,8
	CALL TYPE
	JMP INBUFA

INBUFO:	MVI A,'#'
	CALL TYPE
	CALL CRLF
	JMP ISTART

RETYPE:	POP D
	PUSH D
	INX D		;POINT TO CURRENT NUMBER..
	LDAX D		;..OF CHARACTERS.
	MOV B,A
	MVI A,'#'
	CALL TYPE
	CALL CRLF
	MOV A,B		;TEST IF ZERO INPUT
	ORA A
	JZ INBUFA
CTLRLP:	INX D
	LDAX D
	CALL TYPE
	DCR B
	JNZ CTLRLP
	JMP INBUFA
	
ALERT:	MVI A,7
	CALL TYPE
	DCR M
	XCHG
	JMP INBUFA

PCRLF:	CALL CRLF
	JMP INBUFA

INBUFR:	CALL CRLF
	POP D
	POP B
	POP H
	POP PSW
	RET

ICLEAR:	POP D		;ACCOUNTS FOR CALL
	POP H		;ADDRESS BUFFER IN HL
	PUSH H		;RESTORE..
	PUSH D		;..STACK
	MOV B,M		;SAVE MAXIMUM IN B
	INX H		;POINT TO FIRST..
	INX H		;..BUFFER BYTE.
	MVI A,20H
CLEARL:	MOV M,A
	INX H
	DCR B
	JNZ CLEARL
	RET

CONIN:	PUSH H
	PUSH D
	PUSH B
CONINLP:CALL STAT
	JZ CONINLP
	CALL KEYIN
	CALL UCASE
	POP B
	POP D
	POP H
	RET
;==========================================
;LOADS A COMMAND LINE ADDRESSED BY DE REGISTERS (MAX # CHARACTERS IN LINE
;IN DE, NUMBER OF CHARS IN LINE IN DE+1, LINE STARTS IN DE+2) INTO FCB
;ADDRESSED BY HL REGISTERS. THE FCB SHOULD BE AT LEAST 33 BYTES IN LENGTH.
;THE COMMAND LINE BUFFER MUST HAVE A MAXIMUM LENGTH OF AT LEAST ONE MORE
;THAN THE GREATEST NUMBER OF CHARACTERS THAT WILL BE NEEDED.

CPMLINE:PUSH PSW
	PUSH B
	PUSH D
	PUSH H
	CALL INIT	;FILLS FCBS WITH BLANKS AND NULLS
	XCHG		;GET START OF COMMAND LINE IN HL.
	INX H		;ADDRESS # BYTES IN CMD LINE.
	MOV E,M		;LOAD DE PAIR WITH # BYTES.
	MVI D,0
	INX H
	DAD D		;POINT TO BYTE AFTER LAST CHAR..
	MVI M,0DH	;..IN CMD LINE AND STORE DELIMITER.
	POP H		;RESTORE HL AND DE.
	POP D
	PUSH D
	PUSH H
	INX D		;ADDRESS START OF COMMAND.
	INX D
	CALL CDRIVE
	MVI C,8		;TRANSFER FIRST FILENAME TO FCB.
	CALL TRANS
	CPI 0DH
	JZ CDONE
	CPI 20H		;IF SPACE, THEN START OF..
	JZ NAME2	;..SECOND FILENAME.
	POP H		;FILETYPE MUST BE AFTER..
	PUSH H		;..EIGHTH BYTE OF NAME.
	LXI B,9
	DAD B
	MVI C,3		;TRANSFER TYPE OF FIRST FILE
	CALL TRANS
	CPI 0DH
	JZ CDONE
NAME2:	LDAX D		;EAT MULTIPLE SPACES..
	CPI 20H		;..BETWEEN NAMES.
	JNZ NAME2C
	INX D
	JMP NAME2
	LDAX D
	CPI 0DH		;TEST IF FIRST NAME..
	JZ CDONE	;..ONLY AND THEN SPACE.
NAME2C:	POP H		;SECOND NAME STARTS IN 16TH BYTE.
	PUSH H		;POINT HL TO THIS BYTE.
	LXI B,16
	DAD B
	CALL CDRIVE
	MVI C,8
	CALL TRANS
	CPI 0DH
	JZ CDONE
	POP H		;SECOND TYPE STARTS IN 25TH BYTE.
	PUSH H
	LXI B,25
	DAD B
	MVI C,3
	CALL TRANS
CDONE:	POP H
	PUSH H
	INX H		;POINT TO FIRST CHAR OF FIRST NAME IN FCB.
	CALL CSCAN	;CHECK FOR * (AMBIGUOUS NAMES).
	POP H
	PUSH H
	LXI B,17	;POINT TO FIRST CHAR OF SECOND NAME IN FCB.
	DAD B
	CALL CSCAN
	POP H
	POP D
	POP B
	POP PSW
	RET

INIT:	PUSH H		;INITIALIZES FCB WITH 1 NULL (FOR FIRST DRIVE),..
	PUSH B		;..11 BLANKS, 4 NULLS, 1 NULL (FOR 2ND DRIVE),..
	MVI M,0		;..11 BLANKS, AND 4 NULLS.
	INX H
	MVI B,11
	MVI A,20H
	CALL INITFILL
	MVI B,5
	MVI A,0
	CALL INITFILL
	MVI B,11
	MVI A,20H
	CALL INITFILL
	MVI B,4
	MVI A,0
	CALL INITFILL
	POP B
	POP H
	RET

INITFILL:
	MOV M,A
	INX H
	DCR B
	JNZ INITFILL
	RET

CDRIVE:	INX D		;CHECK 2ND BYTE OF FILENAME. IF IT..
	LDAX D		;..IS A ":", THEN DRIVE WAS SPECIFIED.
	DCX D
	CPI ':'
	JNZ DEFDR	;ELSE ZERO FOR DEFAULT DRIVE ('INIT' PUT ZERO)
	LDAX D
	ANI 5FH
	SUI 40H		;CALCULATE DRIVE (A=1, B=2,...)..
	MOV M,A		;..AND PLACE IT IN FCB.
	INX D		;ADDRESS FIRST BYTE OF..
	INX D		;..IN CMD LINE,..
DEFDR:	INX H		;..AND NAME FIELD IN FCB.
	RET

TRANS:	LDAX D		;TRANSFER FROM CMD LINE TO FCB..
	INX D		;..UP TO NUMBER OF CHARS SPECIFIED..
	CPI 0DH		;..BY C-REG. KEEP SCANNING FIELD..
	RZ		;..WITHOUT TRANSFER UNTIL A DELIMITING..
	CPI '.'		;..FIELD CHAR SUCH AS '.', BLANK, OR..
	RZ		;..C/R (FOR END OF CMD LINE).
	CPI 20H
	RZ
	DCR C
	JM TRANS	;ONCE C-REG IS LESS THAN ZERO, KEEP READING..
	MOV M,A		;..CMD LINE BUT DO NOT TRANSFER TO FCB.
	INX H
	JMP TRANS

CSCAN:	MVI B,8		;SCAN FILE NAME ADDRESSED BY HL.
TSTNAM:	MOV A,M
	CPI '*'		;IF '*' FOUND, FILL IN REST OF FIELD..
	JZ FILL1	;..WITH '?' FOR AMBIGUOUS NAME.
	INX H
	DCR B
	JNZ TSTNAM
	JMP TSTTYP
FILL1:	CALL FILL

TSTTYP:	MVI B,3		;SCAN AND FILL TYPE FIELD FOR NAME..
TSTLTYP:MOV A,M		;..SPECIFIED ABOVE.
	CPI '*'
	JZ FILL2
	INX H
	DCR B
	RZ
	JMP TSTLTYP
FILL2:	CALL FILL
	RET

FILL:	MVI M,'?'	;ROUTINE TRANSFERS '?'.
	INX H
	DCR B
	JNZ FILL
	RET
;======================================
;IN-LINE COMPARE. COMPARES STRING ADDRESSED BY DE-REG TO STRING
;AFTER CALL (ENDS WITH ZERO). RETURN WITH CARRY SET MEANS STRINGS
;NOT THE SAME. ALL REGISTERS EXCEPT A-REG ARE UNAFFECTED.
ILCOMP:	XTHL		;POINT HL TO 1ST CHAR.
	PUSH D
ILCMPL:	MOV A,M		;HL POINTS TO IN-LINE STRING.
	ORA A		;END OF STRING IF ZERO.
	JZ SAME
	LDAX D
	CMP M
	JNZ NOTSAME
	INX H
	INX D
	JMP ILCMPL
NOTSAME:MVI A,0		;IF NOT SAME, FINISH THRU..
NSLP:	INX H		;..STRING SO RETURN WILL..
	CMP M		;..GO TO INSTRUCTION AFTER..
	JNZ NSLP	;..STRING AND NOT REMAINDER OF STRING.
	STC
SAME:	POP D
	INX H		;AVOIDS A NOP INSTRUCTION..
	XTHL		;..WHEN RETURNING.
	RET
;==================================
;MULTI-FILE ACCESS SUBROUTINE.  ALLOWS PROCESSING
;OF MULTIPLE FILES (E.G. *.ASM) FROM DISK.  THIS
;ROUTINE BUILDS THE PROPER NAME IN THE FCB EACH
;TIME IT IS CALLED.
;THE FCB WILL BE SET UP WITH THE NEXT NAME, READY TO
;DO NORMAL PROCESSING (OPEN, READ, ETC.) WHEN ROUTINE IS CALLED.
;CARRY IS SET IF NO MORE NAMES CAN BE FOUND
MFNAME:	PUSH B
	PUSH D
	PUSH H
	MVI C,STDMA
	LXI D,80H
	CALL BDOS
	POP H
	POP D
	POP B
	XRA A
	STA FCBEXT
	LDA MFFLG1
	ORA A
	JNZ MFN01
	MVI A,1
	STA MFFLG1
	LXI H,FCB
	LXI D,MFREQ
	LXI B,12
	CALL MOVER
	LDA FCB
	STA MFCUR ;SAVE DISK IN CURR FCB
	LXI H,MFREQ
	LXI D,FCB
	LXI B,12
	CALL MOVER
	PUSH B
	PUSH D
	PUSH H
	MVI C,SRCHF
	LXI D,FCB
	CALL BDOS
	POP H
	POP D
	POP B
	JMP MFN02
MFN01:	LXI H,MFCUR
	LXI D,FCB
	LXI B,12
	CALL MOVER
	PUSH B
	PUSH D
	PUSH H
	MVI C,SRCHF
	LXI D,FCB
	CALL BDOS
	POP H
	POP D
	POP B
	LXI H,MFREQ
	LXI D,FCB
	LXI B,12
	CALL MOVER
	PUSH B
	PUSH D
	PUSH H
	MVI C,SRCHN
	LXI D,FCB
	CALL BDOS
	POP H
	POP D
	POP B
MFN02:	INR A
	STC
	JNZ MFFIX1
	STA MFFLG1
	RET
MFFIX1:	DCR A
	ANI 3
	ADD A
	ADD A
	ADD A
	ADD A
	ADD A
	ADI 81H
	MOV L,A
	MVI H,0
	PUSH H ;SAVE NAME POINTER
	LXI D,MFCUR+1
	LXI B,11
	CALL MOVER
	POP H
	LXI D,FCB+1
	LXI B,11
	CALL MOVER
	XRA A
	STA FCBEXT
	STA FCBRNO
	RET
;
;MULTI-FILE ACCESS WORK AREA
;
MFFLG1:	DB	0	;1ST TIME SW
MFREQ:	DS	12	;REQ NAME
MFCUR:	DS	12	;CURR NAME
;=====================================
;MOVE SUBROUTINE
MOVER:	MOV	A,M
	STAX	D
	INX	H
	INX	D
	DCX	B
	MOV	A,B
	ORA	C
	JNZ	MOVER
	RET
;================================
DIRLST:	LXI D,CMDBUF	;PUT COMMAND LINE IN FCB
	LXI H,5CH
	CALL CPMLINE
	LXI H,SRCHFCB
	CALL INITFCBS
	LDA 6CH		;GET DRIVE #
	STA SRCHFCB
	LDA 6DH
	CPI 20H		;IF BLANK GET ALL NAMES
	PUSH PSW
	CZ QSTMARK
	POP PSW
	CNZ MOVENAME	;ELSE MOVE NAME INTO FCB
	CALL DRIVE
	LXI D,80H
	MVI C,STDMA
	CALL BDOS
	XRA A
	STA DNAMECT	;CR AFTER 4 NAMES
	LXI D,SRCHFCB
	MVI C,SRCHF	;DO FIRST SEARCH
	CALL BDOS
	CPI 0FFH
	JZ NOFILE
DIRLP:	CALL GETADD
	LXI D,15	;OFFSET FOR RECORD COUNT
	DAD D
	MOV A,M
	ORA A
	JZ NEXTSR	;NO LIST IF FILE IS ZERO LENGTH
	LXI D,-5
	DAD D		;POINT TO $SYS ATTRIB BYTE
	MOV A,M
	ANI 80H
	JNZ NEXTSR	;NO LIST IF $SYS FILE
	LXI D,-10
	DAD D		;POINT TO BEGINNING OF NAME
	INX H		;POINT TO FIRST LETTER
	LXI D,PRNTNAME
	MVI B,8
	CALL MOVE
	INX D
	MVI B,3
	CALL MOVE
	CALL ILPRT
PRNTNAME:
	DB '            ',' : ',0   ;12 SPACES
	LDA DNAMECT
	INR A
	STA DNAMECT
	ANI 03H
	ORA A
	CZ CRLF
NEXTSR:	LXI D,SRCHFCB
	MVI C,SRCHN	;DO NEXT SEARCH
	CALL BDOS
	CPI 0FFH
	JZ DIRDONE
	JMP DIRLP
NOFILE:	CALL ILPRT
	DB 'NOT FOUND',0
DIRDONE:CALL CRLF
	RET

QSTMARK:MVI A,'?'	;IF BLANK IN FCB, PUT IN 11 ?'s
	MVI B,11
	LXI H,SRCHFCB+1
QSTLP:	MOV M,A
	INX H
	DCR B
	JNZ QSTLP
	RET

MOVENAME:
	LXI H,6DH
	LXI D,SRCHFCB+1
	MVI B,11
	CALL MOVE		;MOVE IN CP/M PROGRAM
	RET

GETADD:	ANI 03H			;GET MOD4 FOR CP/M 1.4
	ADD A
	ADD A
	ADD A			;ADD 32
	ADD A
	ADD A
	MOV E,A
	MVI D,0
	LXI H,80H		;ADD DMA OFFSET
	DAD D
	RET

DRIVE:	LDA SRCHFCB		;IF NO DRIVE, CAL
	ORA A			;LOGGED IN DRIVE
	JZ CALCDR
	ADI 40H
	JMP PRNTHD
CALCDR:	MVI C,25
	CALL BDOS
	ADI 41H
PRNTHD:	STA DRNAME
	CALL ILPRT
	DB CR,LF,'DRIVE '
DRNAME:	DB ' ',CR,LF,0
	RET

SRCHFCB:DS 33
DNAMECT:DS 1
;================================
NFILFLG:DB FALSE	;Terminal file open flag

OPTION:	DB 0	;primary option
OPTBL	EQU $
QFLG:	DB 'Q'	;secondary option flags
RSEEFLG:DB 'R'
SSEEFLG:DB 'S'
VSEEFLG:DB 'V'
TERMFLG:DB 'T'
BATCHFLG:DB 'N'	;0=Non-batch
OPTBE	EQU $

RESTROPT:	;MUST BE IN SAME ORDER AS TABLE ABOVE
	DB 'Q','R','S','V','T','N'
CRCFLG:	DB 'C'	;use CRC instead of cksum

RESTSN:	DB 0,0,0,0,0
	DW DBUF
	DB 0,0,0,0,0,0,0

SECNOB	EQU $
RCVSNO:		DB 0
SECNO:		DW 0	;sector no.
ERRCT:		DB 0
EOFLG:		DB 0	;end of file flag
SECPTR:		DW DBUF
SECINBF:	DB 0
MAXEXT:		DB 0
RCNT:		DW 0	;no. of records to send
DATAFLG:	DB 0
EXACFL:		DB 0	;literalise next char flag
COLCNT:		DB 0	;column counter
SECNOE	EQU $

FSTFLG:	DB	TRUE	;multiple file transmit flag
FIRSTME:DB	0FFH	;first SOH received switch(it is zero after 1st SOH)
LSTFLG:	DB	FALSE	;true=print echo on
LSTRET:	DB	FALSE	;print toggle save
BUFBEG:	DW	PRTBUF	;start of prtbuf
BUFRIN:	DW	PRTBUF	;i/p pointer
BUFROUT:DW	PRTBUF	;o/p pointer
BUFEND:	DW	PRTBUF+(RING*1024)	;end of prtbuf
CMDBUF:	DB	80H,0
	DS	80H
HLSAVE:	DS	2		;memory pointer, terminal mode
DISKNO:	DS	1
SENDFLG:DS	1
NBSAVE:	DS	2
BGNMS:	DS	2
FILECT:	DS	1
NAMECT:	DS	1

	DS	64
STAK:	DS	2
FCB3:	DS	33		;terminal file fcb
FCB4:	DS	33		;file transfer fcb
FCBBUF:	DS	15
DBUF:	DS	DBUFSIZ*1024	;FILE BUFFER FOR SEND & RECIEVE MODES
NAMEBUF:DS	64*12		;BUFFER FOR FILE NAMES IN BATCH MODE.
	ORG $ + 100H AND 0FF00H	;must be on page boundary
CRCTBL:	DS	512		;crc lookup table
PRTBUF:	DS	RING*1024	;print buffer
BOTTRAM:DS	1		;MEMORY BUFFER FOR TERMINAL FILE
		END	100H