;
;			START.A86
;
;This file is for making changes to MODEM9.xx which are not UART/MODEM
;specific. UART/MODEM suport is provided by the various SYS files.
;
;The user can make the following changes in this file:
;
;   	a) Set the TRUE/FALSE statements in the lookup table which
;	   begins with BAKUPBYTE and ends with EOFSEND
;   	b) Change the control characters that are used for local commands,
;	   this sequence starts with EXITCHR and ends with EXTCHR
;	c) Set STRGOK to TRUE and enter up to ten strings at location
;	   STRINGS. These strings can be logon sequences or frequently
;	   used commands that are sent to a remote computer
;
;
STRGOK	EQU	TRUE		;change to TRUE if you want to define
				;strings, such as logon sequences, for
				;transmission. Up to 10 strings may be
				;entered at location STRINGS in this file.
;
;*** Don't change the ORG locations in this file or in the files    ***
;*** SETUP and MAIN. This ORG statements provide standard locations ***
;*** for modification by overaly files or DDT.			    ***
;
	CSEG
	ORG	0100H
;
	JMP	START
;
BAKUPBYTE	DB	FALSE	;true=make .BAK file
CKSUMDFLT	DB	FALSE	;true=default to Checksum checking
				;false=default to CRC checking
TOGGLECRC	DB	TRUE	;true=allow toggling of Checksum to CRC
CONVBKSP	DB	FALSE	;true=convert backspace to rub
TOGGLEBK	DB	TRUE	;true=allow toggling of bksp to rub
ADDLF		DB	FALSE	;true=add LF after CR
TOGGLELF	DB	TRUE	;true=allow toggling of LF after CR
STRLF		DB	FALSE	;true=strip LF after CR in terminal file output
TOGSLF		DB	TRUE	;true=toggle strip LF after CR in file output
LOCONEXTCHR	DB	FALSE	;true=local command if EXTCHR precedes
				;false=not local command if EXTCHR precedes
TOGGLELOC	DB	TRUE	;true=allow toggling of LOCONEXTCHR
LSTTST		DB	TRUE	;true=allow toggling of printer on/off
				;in terminal mode. Set to false if your
				;printer can't keep up with the modem
XOFFTST	DB	FALSE		;true=allow testing of XOFF from remote
				;while transmitting a file in terminal mode
XONWAIT	DB	FALSE		;true=wait for XON after sending CR while
				;transmitting a file in terminal mode
TOGXOFF	DB	TRUE		;true=allow toggling of XOFF/XON testing
ECHWAIT	DB	FALSE		;true=wait for echo before sending next
				;character in terminal mode file output
EOFSEND	DB	FALSE		;true=send eof in terminal mode file output
NAKONLY	DB	FALSE		;true=resends a record only after a valid NAK
				;false=resends a record after any non-ACK
				;true is intended only for use with mainframes
				;that send, for example, xoff when buffer is
				;full
;
SETUPTST	DB	SETUP
SCRNTEST	DB	SCRNCLR
TRANLOGON	DB	STRGOK
DISCFLG		DB	DISCON
CARDETFLG	DB	CARDET
CLOCK		DB	CLKRATE
;
MSPEED		DB	3	;sets the display time to send a file
				;0=110 1=300 2=600 3=1200
				;4=2400 5=4800 6=9600 7=19200
BYTDLY		DB	0	;default time to send character in
				;terminal mode file transfer
				;0=0 delay, 1=0.02 sec, -- ,9=0.18 sec
CRDLY		DB	0	;default time for extra wait after CR
				;in terminal mode file transfer
				;0=0 delay, 1=0.02 sec, -- ,9=0.18 sec
BELRPT		DB	10	;bell repeat time = value*0.03 sec
NOOFCOL		DB	5	;number of directory columns, currently
				;set for 80 column screen
;
EXITCHR		DB	'\'-40H	; ^E = Exit without disconnect
LOGCHR		DB	'N'-40H	; ^O = Send logon
LSTCHR		DB	']'-40H	; ^P = Toggle printer
UNSAVECHR	DB	'D'-40H	; ^R = Close input text buffer
TRANCHR		DB	'V'-40H ; ^T = Transmit file to remote
SAVECHR		DB	'F'-40H	; ^Y = Open input text buffer
EXTCHR		DB	'^'-40H	; ^^ = Send next character
;
VERNUM:	CALL	ILPRT
	DB	CR,LF
	DB	'MODEM 9.01.05 - 24/Nov/83'
	DB	CR,LF,LF
	DB	'CP/M-86 version by Michael Mellinger and Bill Bolton'
	DB	CR,LF,LF,0
	JMP	SYSVER
;
;ALL STRINGS MUST BE 31 CHARACTERS OR LESS AND MUST BE TERMINATED WITH 0
;
STRINGS:
	DB	'STRING #0 at 240H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*1
	DB	'STRING #1 at 260H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*2
	DB	'STRING #2 at 280H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*3
	DB	'STRING #3 at 2A0H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*4
	DB	'STRING #4 at 2C0H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*5
	DB	'STRING #5 at 2E0H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*6
	DB	'STRING #6 at 300H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*7
	DB	'STRING #7 at 320H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*8
	DB	'STRING #8 at 340H',0
	RB	(OFFSET STRINGS)-(OFFSET $)+32*9
	DB	'STRING #9 at 360H',0
;
;
;PHONE NUMBER LIBRARY TABLE.
;
;EACH DB MUST BE 32 CHARACTERS LONG FOR PROPER OPERATION.
;LAST DB MUST BE DB 0. UP TO 26 NUMBERS ARE ALLOWED.
;
NUMBLIB:
;	'----5---10---15---20---25-----32'
DB	'A=Amrad           1-703-734-1387'	;'A'
DB	'B=Ben Bronson     1-312-955-4493'	;'B'
DB	'C=CBBS Pasadena   1-213-799-1632'	;'C'
DB	'D=PMMI            1-703-379-0303'	;'D'
DB	'E=Tech. CBBS      1-313-846-6127'	;'E'
DB	'F=Ron Fowler     1-313-729-1905R'	;'F'
DB	'G=Gasnet NASA     1-301-344-9156'	;'G'
DB	'H=Dave Hardy      1-313-846-6127'	;'H'
DB	'I=Wayne Hammerly  1-301-953-3753'	;'I'
DB	'J=RBBS Pasadena   1-213-356-1034'	;'J'
DB	'K=David Kozinn    1-216-334-4604'	;'K'
DB	'L=Program Store   1-202-337-4694'	;'L'
DB	'M=Kelly Smith     1-805-527-9321'	;'M'
DB	'N=SuperBrain Sys  1-617-862-0781'	;'N'
DB	'O=R.L.Plouffe     1-703-524-2549'	;'O'
DB	'P=K.Petersen     1-313-759-6569R'	;'P'
DB	'Q=Bruce Ratoff    1-201-272-1874'	;'Q'
DB	'R=Mark Pulver     1-312-789-0499'	;'R'
DB	'S=                              '	;'S'
DB	'T=                              '	;'T'
DB	'U=                              '	;'U'
DB	'V=                              '	;'V'
DB	'W=                              '	;'W'
DB	'X=                              '	;'X'
DB	'Y=                              '	;'Y'
DB	'Z=                              '	;'Z'
DB	0					; end
;	'----5---10---15---20---25-----32'
;