/*
>>:yamsys.h 11-10-83
 *
 * TRS80 II definitions and implementation courtesy David Sternlight
 *
 * global equates for specific installation and modem ports
 * Other modem specific stuff is in yam5.c
 *
 */

#define ANSWERBACK ""
/* files have single letter ext so pip yam?????.? gets all source; no crl */
#define HELPFILE "A:YAMHELP.T"
#define PHONES "A:YAMPHONE.T"
#define MYSYSTEM "#CPMHeath/Zenith,CC,HC,PA,PL\015"
#define USQ
#define CPM
#define BDSC
#define CLKMHZ 4
#define MOMCAL 400*CLKMHZ
#define SECPBLK 16	/* standard 2k blocks on TRS80 */
/* ********* following string must be in UPPER case ********* */
#define DISKS "ABCDEFGHIJ"	/* legal disks for default selection */
#define MAXUSER 0

/* defines for TRS80 MODEL II with P&T CP/M */
#define FLAVOR "TRS80 II YAM"
#define TRSII		/* type of modem port */
#define CLEARL 040	/*Clear screen; home cursor */
#define CLEARS 040
#define TLENGTH 24
#define TERMINIT 040
#define TERMRESET 040
#define TERMREPLOT 040
#define BRKKEY 000
#define SMODEM
/* Smartmodem strings */
#ifdef SMODEM
/*
** Switches on Smartmodem 1200 should be set for Not Verbose (S2 down),
** Send Result Codes to Screen (S3 down), No Echo of Commands (S4 down)
** and Don't Auto-Answer (S5 down). All other switches as from the
** factory. Sorry, not for XYAM usage as it stands. If your system allows
** communication even if DSR is low you can also set switch 6 to allow you
** to detect loss of carrier.
*/
int nbaud;
#define SMATTN	"+++"	/* get to command mode if not already there */
#define SMHUP	"ATH\r"	/* onhook command - loss of DTR or long break works too */
#define SMRESET	"ATZ\r"	/* resets Smartmodem */
#define SMDIAL	"ATDT"	/* prefix to sending the number - touchtone mode */
#define SMSETUP	"ATE0V0\r"	/* sets up modem */
#define SMTOORG "ATD\r" /* offhook and wait for carrier in originate mode */
#define SMTOANS "ATA\r"	/* offhook and turn on carrier in answer mode */
#define NRING	3	/* Number of rings before offhook in auto-ans mode */
#endif

#define DEFBAUD 1200	/* initial baud rate setting */
#define DPORT 0xf4
#define SPORT 0xf6
#define MODOUT(x) outp(Dport, x)
char inp();		/* for fastest 8080 code */
#define MIREADY (inp(Sport)&1)	/* value != 0 if char available */
#define MICHAR (inp(Dport))		/* get char assuming miready */
#define MOREADY (inp(Sport)&4)	/* modem ready to load next char */
/* It would be nice to have parameterized macros to do the following */
#define MODATA Dport			/* modem data output port */

char bios();
#define POREADY bios(15,0)
#define LPOUT(x) bios(5,x)
#define CIREADY bios(2,0)
#define CICHAR bios(3,0)

#define COREADY TRUE
#define RXNONO	"\021\016"	/* this would put machine into graphix */
#include "bdscio.h"
#define TTYOUT(x) bios(4,x)