; Program:   ZBYE
; Author:    Jay Denebeim
; Assembler: M80
version	equ	11
rev	equ	'C'
;
;                                 ZCPR Bye RCP
;
;  This program implements BYE as an RCP under ZCPR3.  It handles all modem
; IO by replacing the console routines.  All other functions are passed to
; the ZCPR CCP for execution.  Where BYE normally uses equates, I.E. password
; connection, carrier lost commands, etc., ZBYE passes command lines to ZCPR.
; This should reduce the bugs introduced by tons of conditional assemblies
; that has plagued the recent versions of BYE.  It has also allowed room to
; do more functions than BYE normally has done in the past.  Please folks,
; lets keep the conditional assemblies down to a minimum.
;
;  There are several new features in this program:
;	  Since its an RCP BYE can remain resident while the SYSOP is using
;	the computer locally.  Under this Version it allows the operator
;	to answer the phone quicker if a call comes in. Version 1.1 will
;	answer the phone while in this mode, and allow the operator to accept
;	the call while in another program.
;	  A chat mode has been implemented, this allows either single way, or
;	two way communication between the sysop and the caller.
;	  It will also allow changes of the Maximum drive and user area
;	without disabling the modem IO.
;
;  The function key descriptions:
;	^L - Toggle Local only IO.  This toggles the modem IO on and off.
;	^O - Toggle Open access.  This switches the wheel, maxdrive, and
;		maxuser bytes of ZCPR3.  NOTE: this is the location your
;		BBS, XMODEM, and whatever else should check.  Its no longer
;		in the BYE header.  Also, be sure to watch the user while
;		he's on in this mode, either disable the modem, or be ready
;		with the ^N.
;	^N - Nerdkey, Hang up on the bozo
;	^Q - Query the user, (CHAT mode), end with ^C.  This is a very
;		rudimentrary chat.  If local only, he can't type back,
;		but if not, its two way.  Be sure to announce yourself
;		'cause ZBYE doesn't anounce when its going into chat mode.
;		the only editing commands implimented are expansion of
;		<cr> to <cr><lf>.
;
;  At this time this program requires a smartmodem or equivilent.  The reason
; for this is the answer in local mode.  If someone wants to write a
; dumb modem answer routine to replace (conditionally) the smartmodem
; answer routine, go ahead.  Don't forget that most of us don't have
; ring-indicators.
;
;  To install this program, install your terminal dependent code following
; the .8080 psudo-op.  ZBYE was set up to use MBYE overlays, these are either
; very similar, or identical to BYE2.x or 3.x overlays.  Remember that
; EQUates can't have :'s in front of them for M80, so you'll probably have
; to do a global replace of :^IEQU with ^IEQU.  I'd really appreciate it if
; you would send me a copy of your overlay when you finish it.
;	  You will also have to change the terminal dependent cursor
; functions to match your own system.
;
;  This program is the first in a series of ZCPR RCPM software.  Look for
; ZBBS, ZXMODEM, ZDIR, and ZCHAT.  Look for them at an RCPM near you.
;
;  Copyright 1984, by Jay Denebeim.  This program is released to the public
; domain.  It can be freely given, but under no circumstances will this
; software be charged for, except a copying fee not to exceed the price of
; the media copied to.
;
;  I hope you enjoy using this program as much as I enjoyed writing it.
;  If you make any modifications to this program, or have any suggestions,
; please feel free to contact me.
;  Thanks a bunch,
;  Jay Denebeim
;  2408 Elderberry Ct #3
;  Lexington, KY  40509
;  (606) 269-6527 (voice)	<- NOTE: This is a new number.
;  (606) 266-4532 (data)
;
;-----------------------------------------------------------------------
;
; Revision History:
;
; 1.1C		*** Release Version ***		Third public release.
;	While modifing LUX4.0 to 4.1, I was reminded that time outs are
;	very similar to carrier losses.  So, the carrier loss interupt
;	also means time out.  To the program running under ZBYE, the reason
;	for the loss of user isn't important.	Jay Denebeim 02/15/85
;
; 1.1B	Made Wheel on status line follow what the wheel was actually
;	set to.  Input Timed out msg was in the wrong place, and was erased
;	when bye ran again.			Jay Denebeim 02/02/85
;
; 1.1A		*** Release Version ***		Second public release.
;	Cleaned up the comments, and stripped out the modem dependent
;	routines.				Jay Denebeim 01/11/85
; 1.0G	Changed carrier lost routine to restart # 30 so that programs
;	could do their own thing on CLOSS.  Added check for wheel change
;	so the sysop drives would follow the wheel.
;						Jay Denebeim 01/11/85
; 1.0F	Moved BYE initialization routines into low memory.  This freed
;	up some memory, and allowed another bit to implement another
;	routine.  This routine runs a set of programs before hanging
;	the modem up				Jay Denebeim 01/10/85
; 1.0E	Moved local char status, and bye mode bytes into low memory
;	so they will be available for other programs.
;						Jay Denebeim 01/09/85
; 1.0D	If wrong characters typed during local mode answer, the caller
;		would get hung up on.		Jay Denebeim 01/09/85
; 1.0C	Reduced the size of the program.  RCP was overflowing.
;						Jay Denebeim 01/08/85
; 1.0B	Answer phone while in local mode.	Jay Denebeim 01/07/85
; 1.0A	First public release.  by - Jay Denebeim  12/23/84
;
;-----------------------------------------------------------------------
;
;
; Equates for this program
;
	MACLIB	A:Z3BASE.LIB
;
no	equ	0
yes	equ	not no
cr	equ	0dh
lf	equ	0ah
;
bdos	equ	5
bios	equ	0
;
obye	equ	yes	; Emulate BYE3.x ?
mhz	equ	40	; CPU speed times 10
closs	equ	1	; Number of seconds to wait after loss of carrier
clrou	equ	30h	; Routine to call on loss of carrier
jump	equ	0c3h	; 8080/Z80 jump instruction
timeout	equ	yes	;yes, auto logout for sleepy callers
tomins	equ	2	;minutes to auto logout
tmins	equ	((tomins*mhz)+5)/10	;(don't change this one...)
;
cdrive	equ	'B'-'@'	; Callers Maximum Drive
cuser	equ	9	; Callers Maximum User Area
;
lclst	equ	003bh	; Local Console generated character flag
bymode	equ	003fh	; Bye control byte
bymmio	equ	80h
bymcio	equ	40h
bymica	equ	20h
bymncc	equ	10h
bymclc	equ	08h
bymnor	equ	04h
bymaoc	equ	02h
bymphu	equ	01h
;   The BYE mode byte is bit mapped and has the following attributes:
;	7 = Modem IO enable
;	6 = Console IO enable
;	5 = Ignore Carrier
;	4 = Next Caller Commands Running
;	3 = Carrier Lost Commands Running
;	2 = Normal Mode Commands Running
;	1 = Alert Operator on Call
;	0 = Pre-Hangup Commands Running
;
mspeed	equ	003ch	;baud rate pointer
;
;-----------------------------------------------------------------------
;
bp110	equ	0	;110 bps - baud rate pointers for MSPEED
bp300	equ	1	;300 bps
bp450	equ	2	;450 bps
bp600	equ	3	;600 bps
bp710	equ	4	;710 bps
bp1200	equ	5	;1200 bps
bp9600	equ	8	;9600 bps
bp19200	equ	9	;19200 bps
;
;-----------------------------------------------------------------------
;
;  Global Macros
;
cmdln	macro	cmd
	local	cmdst,msg,cmdend
cmdst:	dw	z3cl+msg-cmdst
	db	z3cls,0
msg:	db	cmd
	db	0
cmdend:
	endm
;
;-----------------------------------------------------------------------
;
;
;  Terminal Dependent macros
;    You will probably have to change the data below.
;
curpos	macro	x,y,last	; Position Cursor to X,Y (0 offset)
	db	1bh,'=',' '+y,' '+x+(80h and last)
	endm
;
enab25	macro	last		; Enable 25th line
	db	1bh,'C','7'+(80h and last)
	endm
;
disab25	macro	last		; Disable 25th line
	db	1bh,'B','7'+(80h and last)
	endm
;
pucu	macro	last		; Push cursor
	db	1bh,'B','6'+(80h and last)
	endm
;
pocu	macro	last		; Pop cursor
	db	1bh,'C','6'+(80h and last)
	endm
;
cls	macro	last		; Clear Screen
	db	1ah+(80h and last)
	endm
;
curof	macro	last		; Cursor off
	db	1bh,'C','4'+(80h and last)
	endm
;
curon	macro	last		; Cursor on
	db	1bh,'B','4'+(80h and last)
	endm
;
; Lets get this show on the road
;
	.z80
	aseg
	org	100h
;
; Lets see if BYE is already resident.
;
	ld	hl,rcp		; Point to RCP area
	ld	de,bybeg	; Point to RCP's name
	ld	bc,5		; Length of name
chbye1:	ld	a,(de)		; Get next char
	cpi			; Is it the same?
	jr	nz,nbye		; Nope, re-locate the RCP
	jp	po,ybye		; If done, its there
	inc	de		; Point to next char
	jr	chbye1		; Do it again
;
nbye:	xor	a
	ld	(lclst),a	; Clear out local status
	ld	(bymode),a	; and Bye's operating mode
	ld	hl,bybeg
	ld	de,rcp
	ld	bc,byend-bybeg
	ldir			; Re-Locate BYE
	ld	a,jump		; load A with JUMP instruction
	ld	(clrou),a	; and put in restart
	ld	hl,lostit	; do the same
	ld	(clrou+1),hl	; with original closs command line
	call	byeini
	ld	c,9
	ld	de,test2
	call	5
	jp	ybye
test2:	defb	'Making BYE$'
;
ybye:	ld	hl,bye
	ld	de,z3cl
	ld	bc,byelen
	ldir			; Load 'BYE' into command line
;
	jp	0
;
bye:	cmdln	'BYE'
byelen	equ	$-bye
;
byeini:	ld	a,(z3env+2ch)	; store away, sysop's Highest drive
	ld	(sdrive),a
	ld	a,(z3env+2dh)	; and user area.
	ld	(suser),a
	ld	a,(fstprv)	; Store first letter of private
	ld	(prvlet),a	; commands
	call	newbio
	call	clrbuf
	call	modini
	ld	a,bymmio+bymcio+bymica+bymclc
	ld	(bymode),a
	ret
;
; Initialize the modem
;
modini:	call	mdinit		; Initialize serial port
	ld	b,3
	call	ldelay		; delay .3 sec
	call	mdansw		; raise dtr
	call	delay
	call	set1200		; 1200 baud
	call	delay
	ld	a,bymmio+bymica
	ld	(bymode),a	; enable modem io
	call	prinlo		; reset modem
	db	'ATZ',cr+80h
	ld	b,5
	call	delay		; wait .5 sec
	call	prinlo		; set our way
	db	'ATS0=0V0E0X1M0',cr+80h
	ld	b,5		; wait up to approx .5 sec for answer
mdini1:	push	bc
	call	const		; char avail?
	pop	bc
	or	a
	jr	nz,mdini2	; yes, process
	dec	b
	jr	z,modini	; sompins wrong, do again
	call	delay
	jr	mdini1
mdini2:	call	conin		; get that char
	cp	'0'
	ret	z		; modem initialized
	ld	b,5		; wait another .5 if garbage
	jr	mdini1
;
;
bybeg:
	.phase	rcp
	defb	'ZBYE '		; RCP's name for ZCPR
	defb	3		; Command name length
fstcmd:	defb	'BYE'
	defw	start
fstprv:	defb	'OFF'
	defw	byeoff
	defb	0
;
start:	
	call	retsave
	ld	hl,bymode
	bit	0,(hl)
	jr	nz,prophu	; Process pre-hangup commands
	bit	1,(hl)
	jp	nz,prolcl	; Process a local exit
	bit	2,(hl)
	jp	nz,pronor	; Process a normal exit
	bit	3,(hl)
	jp	nz,proclc	; Carrier lost commands finished
	bit	4,(hl)
	jp	nz,proncc	; Next caller commands finished
	call	prinpl
	db	'Invalid BYE mode!  BYE terminating',7,cr,lf+80h
	jr	byeof1
;
byeoff:	call	retsave
byeof1:	call	oldbio
	ld	a,0
	ld	(rcp),a		; Disable RCP recognision
	ld	(fstcmd),a	; and for the CCP
	ld	hl,bymode
	res	7,(hl)		; Turn off modem IO
	call	prinlc
	enab25	no
	cls	yes		; enable 25th line and clear screen
	call	prinpl
	db	'Bye is gone',cr,lf+80h
	jp	exit
;
; Local storage initialized by loader
sdrive:	db	0
suser:	db	0
prvlet:	db	0
;
; Process pre-hangup commands
;
prophu:	ld	a,bymcio+bymmio+bymnor	;con enab, modem enab, normal caller
	ld	(bymode),a
;
	ld	hl,gbcmd	; Load next command string
	ld	de,z3cl
	ld	bc,gblen
	ldir
	jp	exit
;
gbcmd:	cmdln	'BYE'
gblen	equ	$-gbcmd
;
; Process a local exit, actually a modified normal answer, but must check
;	for carrier present.
;
prolcl:	call	mdcarck
	jr	z,prolc1	; If no carrier, just get ready for next call
	ld	a,0ffh		; set flag
	ld	(prlct1),a
	jr	prolc2		; get ready for next caller
;
prlct1:	ds	1
;
; Process a normal exit.  This routine runs any programs to end the
;	session, says Bye, hangs up the modem, turns off the modem IO, 
;	then runs the routines to get ready for the next caller.
;
pronor:	call	prinpl
	db	'Goodbye, call again soon!',cr,lf+80h
;
prolc1:	call	go25
	call	prinlc
	curpos	60,24,yes
	ld	b,13
	call	tab
	call	no25
;
; If carrier lost, no point in printing msg
;
proclc:	call	mdinit
prolc2:	ld	a,bymcio+bymncc	;con enab, nxt calr mode
	ld	(bymode),a
;
	call	clrbuf
	call	ressec
;
	ld	hl,nccmd	; Load next command string
	ld	de,z3cl
	ld	bc,nclen
	ldir
	jp	exit
;
nccmd:	cmdln	'A0:;LDR RCPM.NDR;PATH A0:;BYE'
nclen	equ	$-nccmd
;
; Ready for next caller.  Set secure mode, then wait for arrival.
;
proncc:	call	go25
	call	prinlc
	curof	no
	curpos	40,24,yes
	ld	b,19
	call	tab
	call	prinpl
	pocu	no
	disab25	no
	cls	yes		; Turn off the cursor and clear screen
	call	setsec
	ld	a,bymcio+bymphu
	ld	(bymode),a
	ld	a,(prlct1)	; ending local mode ?
	cp	0ffh
	push	af
	xor	a
	ld	(prlct1),a	; zero it anyway
	pop	af
	jr	z,pronc2
	call	nxtcal
pronc1:	call	modans
	call	mdcarck		; No Carrier?
	jr	z,pronc1	; Then loop
pronc2:	call	go25
	call	prinlc
	curon	no
	curpos	60,24,no
	db	'Connected   ',cr+80h
	ld	b,40
	call	tab
	call	no25
	ld	hl,bymode
	set	7,(hl)		; Make sure modem is on
	res	5,(hl)		; and carrier significant
	call	prinpl
	db	'Welcome to ZBoard',cr,lf
	db	'You are now running under ZBYE version '
	db	'0'+(version/10), '.', '0'+(version mod 10), rev, cr, lf+80h
;
	ld	hl,nmcmd	; Load normal entry command string
	ld	de,z3cl
	ld	bc,nmlen
	ldir
	jp	exit
;
nmcmd:	cmdln	'A0:;TEST;RBBS'
nmlen	equ	$-nmcmd
;
; Set ZCPR into a secure mode
;
setsec:	call	usrdru
	xor	a
	ld	(z3whl),a	; Clear the wheel
	ld	(fstprv),a	; And private commands
	ret
;
; Set highest drive and user area for caller.
;
usrdru:	ld	a,cdrive	; Set Caller's highest drive
	ld	(z3env+2ch),a
	ld	a,cuser
	ld	(z3env+2dh),a	; and user area.
	push	af
	push	hl
	call	go25
	call	prinlc
	curpos	40,24,no
	dc	'     '
	call	no25		; Update Status line
	pop	hl
	pop	af
	ret
;
; Set ZCPR into sysop mode
;
ressec:	call	sysdru
	xor	a
	cpl
	ld	(z3whl),a	; Set the wheel
	ld	a,(prvlet)	; and private commands
	ld	(fstprv),a
	ret
;
; Set highest drive and user area for SysOp.
;
sysdru:	ld	a,(sdrive)	; Set Sysop's highest drive
	ld	(z3env+2ch),a
	ld	a,(suser)
	ld	(z3env+2dh),a	; and user area.
	call	go25
	call	prinlc
	curpos	40,24,no
	dc	'Wheel'
	call	no25		; Update Status line
	ret
;
; Clear ZCPR's internal buffers
;
clrbuf:	xor	a
;
	 if	z3env
	ld	hl,z3env+80h	; Clear TCAP area
	ld	de,z3env+81h
	ld	bc,7eh		; TCAP length-1 (always?)
	ld	(hl),a
	ldir
	 endif	;z3env
;
	 if	shstk
	ld	hl,shstk	; Clear Shell Stack
	ld	de,shstk+1
	ld	bc,shstks*shsize-1
	ld	(hl),a
	ldir
	 endif	;shstk
;
	 if	z3msg
	ld	hl,z3msg	; Clear Message Buffers
	ld	de,z3msg+1
	ld	bc,4eh		; Message buffer length -1
	ld	(hl),a
	ldir
	 endif	;z3msg
;
	ret
;
; Answer modem and wait for carrier.  Set baud as appropriate.
;
modans:	call	conin
	push	af
	ld	a,(lclst)
	or	a		; Was it a local char?
	jr	z,mdans2	; nope
	pop	af
	cp	'C'-'@'		; Control C from console?
	jr	nz,modans	; Nope
	ld	hl,bymode
	bit	1,(hl)		; if in local bye active mode
	jr	nz,modans	; then forget the console
	res	7,(hl)		; inhibit modem IO
	set	1,(hl)		; go into local bye active mode
	res	0,(hl)		; make sure not in pre-hangup
	call	ressec
	call	go25
	call	prinlc
	curon	no
	curpos	60,24,no
	dc	'Local'
	ld	b,7
	call	tab
	call	no25
	jp	exit
;
mdans2:	pop	af
	ld	hl,bymode	; We're probably going to set a mode soon
	cp	'2'		; Is it a RING?
	jr	z,mdans1
	cp	'1'		; How 'bout connect 300?
	jp	z,mdans3
	cp	'5'		; connect 1200?
	jp	z,mdans4
	cp	'3'		; No Carrier
	ret	z
	jr	modans		; clean up stack
;
mdans1:	res	6,(hl)		; turn off local xmitter
	push	hl
	call	prinlo
	db	'ATA',cr+80h	; answer the phone
	pop	hl
	set	6,(hl)		; turn on local
	jr	modans
;
mdans3:	call	set300
	call	delay
	res	5,(hl)		; Carrier enabled
	ld	hl,mspeed
	ld	(hl),bp300
	jr	mdans5
;
mdans4:	call	set1200
	call	delay
	res	5,(hl)		; Carrier enabled
	ld	hl,mspeed
	ld	(hl),bp1200
;
mdans5:	ld	b,10		; Check carrier for 1.0 seconds
mdans6:	call	carok
	jr	z,mdans7
	call	delay
	djnz	mdans6
	ret
mdans7:	ld	hl,bymode
	call	nxtcal
	set	5,(hl)
	ret
;
;  Get ready for next caller
;
nxtcal:	 if	timeout
	xor	a		; Clear timeout
	ld	(tocnt),a
	ld	(tocnt+1),a
	ld	a,tmins
	ld	(toval),a
	 endif	;timeout
;
	call	mdinit		; drop DTR
	ld	b,3
	call	ldelay		; wait awhile
	call	mdansw		; raise it
	call	delay
	call	set1200
	call	delay
	ld	hl,bymode
	res	6,(hl)		; talk to modem only
	set	7,(hl)
	set	5,(hl)		; ignore carrier
	push	hl
	call	prinlo
	db	'AT',cr+80h	; sync modem speed
	pop	hl
	set	6,(hl)		; turn dual io back on
	ld	b,5
nx1:	push	bc
	call	const		; char avail?
	pop	bc
	or	a
	jr	nz,nx2		; yes, process
	dec	b
	jr	z,nxtcal	; sompins wrong, do again
	call	delay
	jr	nx1
nx2:	push	bc
	call	conin		; get that char
	pop	bc
	cp	'0'
	ret	z		; modem initialized
	ld	b,5		; wait another .5 if garbage
	jr	nx1
;
;	Check for call coming in during local mode.  If so, answer it.
;
chkcal:	ld	a,(chkt1)
	or	a
	ret	nz		; return if already doing function
	ld	a,(hl)		; Get BYMODE
	ld	(chkt1),a	; indicate function running
	push	af
	res	6,(hl)		; Turn off console
	set	7,(hl)		; Turn on modem
	set	5,(hl)		; Ignore Carrier
	call	bconst		; char avail from modem?
	jp	z,chkca1	; Nope, continue.
	call	bconin		; Get modem char
	cp	'2'		; RING?
	jp	nz,chkca1	; Nope, must be garbage
	ld	hl,bymode
	set	1,(hl)
	call	mdans1		; Answer the phone
	call	mdcarck		; Got carrier?
	jp	z,chkca1	; Nope
	ld	hl,bymode
	res	6,(hl)
	push	hl
	call	prinpl
	db	cr,lf,'Asking SYSOP if you can get on.',cr,lf+80h
	call	mdcarck		; Hung up?
	jp	z,chkca1	; Oh well
chkca2:	call	oconst
	jr	z,chkca3
	call	conin
	jr	chkca2		; Eat console characters if any
chkca3:	call	go25
	call	prinlc
	curpos	0,24,no
	dc	'Caller, let on ?'
	call	oconin
	ld	(chkt1),a
	call	no25
	call	mdcarck		; Still with us?
	pop	hl
	jr	z,chkca1	; Nope, his loss
	set	7,(hl)
	res	6,(hl)		; Set for remote IO
	ld	a,(chkt1)
	and	'Y'
	cp	'Y'
	jr	z,letliv	; If Y or y let him on
	call	prinpl
	db	'Sorry, try again later',cr,lf+80h
	call	nxtcal
	jr	chkca1
letliv:	call	prinpl
	db	'He will let you on soon, please hold',cr,lf+80h
chkca1:	xor	a
	ld	(chkt1),a	; zero out storage
	pop	af		; Get original BYMODE
	ld	(bymode),a
	ret
chkt1:	ds	1
;
; Check for carrier available.  If not there, return with zero flag set.
;
carok:	push	hl		; Do we care?
	ld	hl,bymode
	bit	5,(hl)
	pop	hl
	ret	nz		; Nope
	push	bc
	ld	b,closs*10
carok1:	call	mdcarck		; Got carrier?
	jr	nz,carok2	; Yup, great
	call	delay		; nope, wait awhile
	djnz	carok1		; try again
carok2:	pop	bc
	ret
;
; Carrier lost.  Drop Dead.
;
lostit:	ld	a,(toflg)
	or	a
	jr	nz,lstit1	; Check for timed out

	call	go25
	call	prinlc
	curpos	60,24,no
	dc	'Carrier Lost'
	call	no25		; Update status line
;
	ld	a,bymcio+bymclc
	ld	(bymode),a
	ld	hl,clcmd	; this is what we want to do
	ld	de,z3cl		; point to zcpr's command line
	ld	bc,cllen
	ldir
lstit1:	xor	a
	ld	(toflg),a	; Clear timeout flag
	jp	0		; Gotta exit this way
;
clcmd:	cmdln	'BYE'
cllen	equ	$-clcmd
;
; Must be too late at night.  He's asleep.
; Input timed out.
;
timout:	ld	a,0ffh
	ld	(toflg),a	; Flag the timeout
	call	prinpl
	db	'Input timed out',7,cr,lf+80h
	call	go25
	call	prinlc
	curpos	60,24,no
	dc	'Timed Out   '
	call	no25		; Update status line
;
	ld	a,bymcio+bymclc
	ld	(bymode),a
	ld	hl,tocmd	; this is what we want to do
	ld	de,z3cl		; point to zcpr's command line
	ld	bc,tolng
	ldir
	rst	clrou		; Do a CLOSS restart
;
tocmd:	cmdln	'BYE'
tolng	equ	$-tocmd
toflg:	defb	0
;
;  Routines which process local function keys.
;
;    Here are the descriptions
;	^L - Toggle Local IO
;	^O - Toggle Open access
;	^N - Nerdkey, Hang up on the bozo
;	^Q - Query the user, (CHAT mode)
;
fkeys:	ld	hl,bymode	; BYE in inactive state?
	bit	1,(hl)
	ret	nz		; Yes, return
	cp	'L'-'@'		; Control-L ?
	jr	z,toglcl	; if so, toggle local mode
	cp	'O'-'@'		; Control-O ?
	jr	z,togope	; Yes? Toggle security
	cp	'N'-'@'		; Control-N ?
	jp	z,twitem	; Goodbye bozo
	cp	'Q'-'@'		; Control-Q
	jp	z,bychat	; Go into Chat Mode
	ret			; Not a BYE function Key
;
;  Toggle Local IO Mode
;
toglcl:	bit	7,(hl)
	jr	z,toglc1	; If set, reset it.
	res	7,(hl)
	call	go25
	call	prinlc
	curpos	51,24,no
	dc	'Disabled'
	call	no25		; Update Status line
	jr	endfun
toglc1:	set	7,(hl)
	call	go25
	call	prinlc
	curpos	51,24,yes
	ld	b,8
	call	tab
	call	no25		; Update Status line
	jr	endfun
;
;  Toggle Security
;
togope:	ld	a,(fstprv)
	or	a		; Secure?
	jr	z,togop1	; If so, remove it
	call	setsec		; Turn on security
	jr	endfun
togop1:	call	ressec		; Turn it off
	jr	endfun
;
;  Hang up on the bum.
;
twitem:	call	go25
	call	prinlc
	curon	no
	curpos	60,24,no
	dc	'Twited Off  '
	call	no25
	jp	proclc		; Same as Carrier loss
;
;  End Function Key routines
;
endfun:	xor	a		; No character entered
	ret
;
;  Bye's Chat Mode
;
bychat:	call	conin		; pitch out the ^Q
	call	go25
	call	prinlc
	curpos	46,24,no
	dc	'Chat'
	call	no25
bycha2:	call	conin		; end on control c
	cp	'C'-'@'
	jr	z,bycha3
bycha1:	push	af
	push	hl
	push	bc
	ld	c,a
	call	conout
	pop	bc
	pop	hl
	pop	af
	push	af
	bit	7,(hl)
	call	z,mconout	; print it to modem if not enabled
	pop	af
	cp	'M'-'@'
	jr	nz,bycha2	; Loop if not a carriage return
	ld	a,'J'-'@'
	jr	bycha1		; And append linefeed if there
bycha3:	call	go25
	call	prinlc
	curpos	46,24,no
	dc	'    '
	call	no25
	jr	endfun
;
retsave:
	pop	de		; Get return address
	pop	hl		; Get ZCPR3's return address
	ld	(z3ret),hl	; Save it
	push	hl
	push	de
	ret
;
exit:
z3ret	equ	$+1		; point to code to modify
	ld	hl,0		; ZCPR's return address
	jp	(hl)		; Go there
;
prinlc:	ld	a,(bymode)	; Get current Mode
	ld	(pritmp),a	; Save it
	res	7,a		; turn off modem IO
	set	6,a		; turn on lcl IO
	ld	(bymode),a
	ex	(sp),ix		; print the string
	call	print
	ex	(sp),ix
	ld	a,(pritmp)	; restore mode
	ld	(bymode),a
	ret
pritmp:	db	0
;
prinpl:	ex	(sp),ix		; Get string starting address
	call	print		; Print it
	ex	(sp),ix		; Since we're pointing to next code location
	ret			; Go there!
;
prinlo:	ex	(sp),ix		; Get string starting address
	call	print		; Print it
	call	delay		; My modem is too d**n slow
	ex	(sp),ix		; Since we're pointing to next code location
	ret			; Go there!
;
print:	ld	a,(ix+0)	; Get next char
	bit	7,a		; Check for Carry
	push	af
	res	7,a		; Mask Carry Bit
	ld	c,a
	call	conout		; Print it
	inc	ix		; point to next char
	pop	af
	ret	nz
	jr	print
;
; Print number of spaces contained in B register.
;
tab:	push	bc
	ld	c,' '
	call	oconout
	pop	bc
	djnz	tab
	ret
;
; Set up 25th Line
;
go25:	call	prinlc
	enab25	no
	pucu	yes
	ret
;
; Return from 25 Line
;
no25:	call	prinlc
	pocu	no
	disab25	yes
	ret
;
;.1 sec delay routine
;
delay:	push	bc
	ld	bc,4167*(mhz/10)+417*(mhz mod 10) ; constant * MHz10x
;
delay1:	dec	bc
	ld	a,b
	or	c
	jr	nz,delay1
	pop	bc
	ret
;
;.001 sec delay routine
;
sdelay:	push	bc
	ld	bc,42*(mhz/10)+4*(mhz mod 10) ; constant * MHz10x
	jr	delay1
;
;
; Long delay routine, B contains # of .1 sec delays
;
ldelay:	call	delay
	dec	b
	jr	nz,ldelay
	ret
;
newbio:	ld	hl,(bios+1)	; Point to bios start
	ld	l,0
	ld	de,tolst	; Point to storage table
	ld	bc,tolen-tolst	; table length
	ldir			; Save old jump table
	ld	hl,tnlst	; Point to new jump table
	ld	de,(bios+1)
	ld	e,0
	ld	bc,tnlen-tnlst
	ldir			; We are now running under BYE
	ret
;
oldbio:	ld	hl,tolst	; Put things back the way they were
	ld	de,(bios+1)
	ld	e,0
	ld	bc,tolen-tolst
	ldir
	ret
;
tolst:
ocboot:		jp	0
owboot:		jp	0	; This will hold the BIOS routines
oconst:		jp	0	;  BYE will modify
oconin:		jp	0
oconout:	jp	0
olist:		jp	0
opunch:		jp	0
oreader:	jp	0
tolen:
;
tnlst:
cboot:
		 if	obye	; Emulate Old BYE?
		jp	fakeit
		 else
		jp	0
		 endif
wboot:		jp	owboot	; Here is the new jump table
const:		jp	bconst
conin:		jp	bconin
conout:		jp	bconout
list:		jp	mconout
punch:		jp	bconout
reader:		jp	bconin
tnlen:
;
;  Structure to look like the old byes
;
	 if obye
fakeit:	ds	15
	dw	oconout
	db	'BYE'
	 endif
;
;  Routines patched in by BYE
;
bconst:	ld	a,(z3whl)
	ld	hl,owheel	; check for wheel change
	cp	(hl)
	jr	z,bcst3
	ld	(owheel),a
	or	a		; wheel set?
	call	z,usrdru	; then set remote dru
	call	nz,sysdru	; else set sysop dru
bcst3:	ld	hl,bymode	; local console enabled?
	bit	6,(hl)
	jr	z,bcst1		; nope, don't check
	push	hl		; used later
	bit	1,(hl)		; In local mode ?
	call	nz,chkcal	; check for a caller
	ld	a,(lchar)	; got an uneaten one?
	or	a
	jr	nz,bcst2	; Yup, still have it
	call	oconst		; check con status
	or	a
	pop	hl
	ld	(lchar),a	; flag local char
	ld	(lclst),a
	jr	z,bcst1		; no char
	push	hl
	call	oconin		; get local char
	call	fkeys		; check and process local function keys
bcst2:	pop	hl
	ld	(lchar),a	; store away char
	ret
;
bcst1:	bit	7,(hl)		; Modem enabled?
	ret	z		; Nope, don't bother
	call	carok		; Check for carrier
	jp	z,clrou		; Fool dropped carrier on us
	call	mdinst		; Check for modem status
	ret	nz		; Everything's hunkey dory
;
	 if	timeout
	push	hl
	ld	hl,bymode
	bit	5,(hl)		; Paying attention to carrier
	jr	nz,ndata
	ld	hl,tocnt	;No data, incr. timeout counter
	inc	(hl)
	jr	nz,ndata	;don't timeout yet
	inc	hl
	inc	(hl)		;next byte of counter
	jr	nz,ndata
	ld	hl,toval	;1 "minute", no data
	dec	(hl)
	jr	nz,ndata	;still not timed out...
	jp	timout		;finally... timed out...
;
ndata:
	xor	a		;no character for sure
	pop	hl
	 endif	; Timeout
	ret
;
toval:	ds	1
tocnt:	ds	2
lchar:	db	0
owheel:	db	0
;
bconin:	call	bconst		; Wait for char avail
	or	a
	jr	z,bconin
;
	 if	timeout
	xor	a		; Clear timeout
	ld	(tocnt),a
	ld	(tocnt+1),a
	ld	a,tmins
	ld	(toval),a
	 endif	;timeout
;
	ld	hl,bymode	; local con enabled?
	bit	6,(hl)
	jr	z,bcin1		; Nope, skip
	ld	a,(lchar)	; Get local status
	or	a
	jr	z,bcin1		; it was not local
	push	af
	xor	a		; clear local character
	ld	(lchar),a	; hit.
	pop	af
	ret
bcin1:	jp	mdinp
;
bconout:
	ld	hl,bymode	; local con enabled?
	bit	7,(hl)		; remote con enabled?
	jr	z,bcou1		; nope, skip
	push	hl
	push	bc		; in case of trashed char
	call	carok		; Check for carrier
	jp	z,clrou		; Fool dropped carrier on us
	call	mconout
	pop	bc
	pop	hl
;
bcou1:	bit	6,(hl)
	ret	z		; nope, done
	call	oconout		; print it
	ret
;
;  Modem Conout routine
;
mconout:
	call	mdoutst
	jr	z,mconout	; wait till we can do it
	ld	a,c
	call	mdoutp		; do it
	ret
;
	.8080
;--------------------- Insert MBYE modem routines here -----------------------
;
; NOTE: Be sure to remove the ':'s before the EQU statements, M80 chokes on 'em
;
;-------------------- End of computer dependent routines ---------------------
	.z80
;
	 if2
	 if	$ ge (rcp+rcps*128)
	.printx ->This RCP is too large, don't try to run it.<-
	 endif
	 endif
;
	.dephase
byend:
	end
s must return status
; flags, so please be careful to set the flags as directed.
;
; NOTE: set NORING EQU YES in the main MBYE program if you have an SIO
; chip. Normally, the SIO doesn't allow monitoring of the RI status.
; The DART, however, does have RI has a standard function. If you have
; a DART, set NORING EQU NO (unless you are using a Smartmodem). (Also
; set DART EQU YES below.)
;
; This version is for the Zilog SIO chip that is hooked up to an extern-
; al modem.  A Z80-CTC or 8116 can be used as baud rate generator. If
; you have a KAYPRO, XEROX 820-II, or another "BigBoard"-based system,
; set the KAYPRO equate true and the rest is automatic.
;
;-----------------------------------------------------------------------
;
; 02/21/84  Removed exclaimation mark from comment      - Kim Levitt oops!
; 02/20/84  Added comments for XEROX 820-II & BigBoards,
;	    code for DARTs and modified SIOs to read RI - Kim Levitt
; 02/02/84  Fixed and renamed to work with MBYE 3.0	- Kim Levitt
;	    (Also added conditional equates 8116, CTC and KAYPRO.)
; 11/27/83  Altered and renamed to work with BYE3	- Irv Hoff
; 08/04/83  Updated for use with ByeII version 1.6	- Paul Traina
; 07/19/83  Improved operation of modem initialization.	- Paul Traina
; 04/18/83  Added option to use 300/1200 Smartmodem.	- Don Brown
; 04/14/83  Added option for alt. CTC baud set format.	- Paul Traina
; 02/21/83  Initial version.				- Steve Fox
;
;-----------------------------------------------------------------------
;
KAYPRO	EQU	YES		;yes, if Kaypro, Xerox 820 or BigBoard
;
	 IF	KAYPRO
CTC	EQU	NO
C8116	EQU	YES		;BigBoards use the 8116 baud rate clock
	 ENDIF
;
	 IF	NOT KAYPRO
CTC	EQU	YES
C8116	EQU	NO		;most other systems use CTC
	 ENDIF
;
; Set base ports for SIO/DART & baud rate clock
;
	 IF	KAYPRO
DART	EQU	NO		;BigBoards use a true SIO
BASEP	EQU	04H		;Base port for SIO
BASEC	EQU	00H		;Base port for 8116
	 ENDIF
;
	 IF	NOT KAYPRO
DART	EQU	NO		;Yes, if DART used and not SIO
BASEP	EQU	20H		;Set Base port for SIO (data port)
BASEC	EQU	32H		;Set Base port for CTC
	 ENDIF
;
; The following define the port addresses to use.
;
DPORT	EQU	BASEP		;Data port
SPORT	EQU	BASEP+2		;Status/Control port
BPORT	EQU	BASEC		;Baud rate port
;
;
; The following are SPORT commands (output these to SPORT)
;
; WR0:
RESCHN	EQU	00011000B	;Reset channel
RESSTA	EQU	00010000B	;Reset ext/status
RESERR	EQU	00110000B	;Error reset
;
WRREG1	EQU	00000000B	;WR1 - No interrupts
WRREG3	EQU	11000001B	;WR3 - Rx 8 bits/char, Rx enable
WRREG4	EQU	01000100B	;WR4 - 16x, 1 stop bit, no parity
;
; WR5:
DTROFF	EQU	01101000B	;DTR off, Tx 8 bits, Tx enable, RTS off
DTRON	EQU	11101010B	;DTR on, Tx 8 bits, Tx enable, RTS on
;
;
; The following are SPORT status masks
;
; RR0:
DAV	EQU	00000001B	;Data available
TBMT	EQU	00000100B	;Transmit buffer empty
DCD	EQU	00001000B	;Data carrier detect
RI	EQU	00010000B	;Ring Indicator (DARTs only)
;
;(Normally, only DARTs can detect Ring Indicator...... HOWEVER,
; with special wiring to SYNC pin, SIOs can detect RI on this bit
; in asynchronous receive mode, wheras it is normally used only
; in synchronous mode. If you have this hardware mod done, your
; SIO will in effect function as a DART and this "SYNC/HUNT" bit
; in read reg. 0 will function as a RI status bit.) (Connect
; SYNCA pin 11 of SIO to pin 22 of RS-232C connector, not sure if
; any intermediate circut is necessary, though, so DON'T TRY IT
; UNLESS YOU KNOW WHAT YOU'RE DOING and really NEED ring detect,
; a