SMB	EQU	-1	;TDL-SMB CONFIGURATION (MC6850)
TUART	EQU	0	;CROMEMCO TU-ART CONFIG (TMS5501)
DISCO	EQU	0	;INFO 2000 DISCOMEM (8251 USART)
TEI1	EQU	0	;TEI CONFIGURATION (8251 USART)
TEI2	EQU	0	;TEI CONFIGURATION (AY 5-1013)
JADE	EQU	0	;JADE I/O BOARD (AY 5-1013)
MPUB	EQU	0	;IMSAI MPUB CONFIG (8251 USART)
BSII	EQU	0	;BITSTREAMER II (8251 USART)
SYS8	EQU	0	;AMD AmSYS 8/8 (8251 USART)
MSLICE	EQU	0	;SCION Microslice (2651 USART)
SSMIO4	EQU	0	;SSM I/O-4
PTC	EQU	0	;Proc. Tech. 3P+S (TMS6011NC)
SDS	EQU	0	;SD Systems SBC-100/200 (8251 USART)
DGS	EQU	0	;Digital Group System (8251 USART)
IMS440	EQU	0	;IMS-440 I/O BOARD (6402 UART)
MPMCON	EQU	0	;MP/M Console operation

;--THESE SHOULD WORK BUT HAVE NOT BEEN FULLY CHECKED OUT YET

PNTCPM	EQU	0	;P&T CP/M 2.2 for the TRS-80 Mod II
GODBOT	EQU	0	;Godbout Interfacer II (UART CFIG FIXED)

;--NOT YET FULLY IMPLIMENTED

HEATH	EQU	0	;HEATH H-8 CONFIGURATION (INS 8250)

;	NOTE: TUART PARITY & NUM.DATA.BITS IS NOT PROGRAMMABLE.
;	      IT IS FIXED FOR DATA.BITS=7 & PARITY=0.

;	NOTE: DISCOMEM SELECTION REQUIRES CONSOLE DEVICE OPERATE AT
;	      A FIXED BAUD RATE.  CURRENTLY SET FOR 9600 BAUD.

;--INITIALIZE UART/USART CONDITIONAL ASSEMBLY FLAGS TO ZERO

MC6850	SET	0
TMS5501 SET	0
INT8251 SET	0
JAD1013 SET	0
TEI1013 SET	0
INS8250 SET	0
SIG2651 SET	0
TMS6011 SET	0
IMS6402 SET	0

BAUDFLG SET	0	;ENABLES VARIABLE BAUD RATE (HARDWARE DEPENDANT)
CANBRK	SET	0	;ENABLES BREAK COMMAND (HARDWARE DEPENDANT)
INVSTAT SET	0	;INVERTS STATUS BITS (i.e., active low or zero)

;-- *******************************************************************


;+++++++++++++++++++++++ MP/M CONFIGURATION +++++++++++++++++++++++++++

	IF	MPMCON

;--ASSUMES MODEM PORT IS PRE-INITIALIZED FOR: 7 DATA BITS, EVEN PARITY

MPMGO	EQU	2	;THE CONSOLE NUMBER USED UNDER MP/M FOR THE MODEM
RDA	EQU	1	;DUMMY RECEIVED DATA AVAILABLE
	ENDIF

;+++++++++++++++++++++++ SMB CONFIGURATION ++++++++++++++++++++++++++++

	IF	SMB

;--PORTS 72H & 73H ARE USUALLY IDENTIFIED AS CRT PORTS

CMD	EQU	072H	;COMMAND REGISTER
STATUS	EQU	072H	;STATUS REGISTER
RXDATA	EQU	073H	;SERIAL DATA IN
TXDATA	EQU	073H	;SERIAL DATA OUT

CANBRK	SET	-1
MC6850	SET	-1
	ENDIF

;++++++++++++++++++++++++ TU-ART CONFIGURATION ++++++++++++++++++++++++

	IF	TUART

;--PORTS 20H, 21H, & 22H ARE COMPATIBLE WITH CROMEMCO SYSTEM 3

CMD	EQU	022H	;COMMAND REGISTER
STATUS	EQU	020H	;STATUS REGISTER
RXDATA	EQU	021H	;SERIAL DATA IN
TXDATA	EQU	021H	;SERIAL DATA OUT
BAUD	EQU	020H	;BAUD RATE CONTROL

;--BAUD RATE VALUES (APPLIES TO TU-ART ONLY)

BAUD10	EQU	081H	;110 BAUD (MSB=1 ==> NO.STOP.BITS=1)
BAUD15	EQU	082H	;150 BAUD
BAUD30	EQU	084H	;300 BAUD
BAUD120 EQU	088H	;1200 BAUD
BAUD240 EQU	090H	;2400 BAUD
BAUD480 EQU	0A0H	;4800 BAUD
BAUD960 EQU	0C0H	;9600 BAUD
STOPB1	EQU	080H	;ONE STOP BIT

CANBRK	SET	-1
TMS5501 SET	-1
BAUDFLG SET	-1
	ENDIF
	;PAGE

;++++++++++++++++++++++++ DISCO  CONFIGURATION ++++++++++++++++++++++++

	IF	DISCO

;--PORTS 0A4H, & 0A5H ARE IDENTIFIED WITH PORT "B"

CMD	EQU	0A5H	;COMMAND REGISTER
STATUS	EQU	0A5H	;STATUS REGISTER
RXDATA	EQU	0A4H	;SERIAL DATA IN
TXDATA	EQU	0A4H	;SERIAL DATA OUT
BAUD	EQU	0A8H	;BAUD RATE CONTROL

;--BAUD RATE VALUES

BAUD10	EQU	2 SHL 4 ;110 BAUD
BAUD15	EQU	4 SHL 4 ;150 BAUD
BAUD30	EQU	5 SHL 4 ;300 BAUD
BAUD120 EQU	7 SHL 4 ;1200 BAUD
BAUD240 EQU    10 SHL 4 ;2400 BAUD
BAUD480 EQU    12 SHL 4 ;4800 BAUD
BAUD960 EQU    14 SHL 4 ;9600 BAUD
BRSAVE	EQU	0FF00H	;BIOS SAVE LOCATION FOR BAUD RATES (BOTH A AND B)
BBRMSK	EQU	0F0H	;CHANNEL B BAUD RATE MASK

CANBRK	SET	-1
INT8251 SET	-1
BAUDFLG SET	-1
	ENDIF
	;PAGE

;+++++++++++++++++++++++ TEI1 CONFIGURATION ++++++++++++++++++++++++++++

	IF	TEI1

;--PORT 2 & 3 ARE USUALLY IDENTIFIED AS TTY PORTS

CMD	EQU	003H	;COMMAND REGISTER
STATUS	EQU	003H	;STATUS REGISTER
RXDATA	EQU	002H	;SERIAL DATA IN
TXDATA	EQU	002H	;SERIAL DATA OUT

CANBRK	SET	-1
INT8251 SET	-1
	ENDIF

;++++++++++++++++++++++++ TEI2 CONFIGURATION +++++++++++++++++++++++++++

	IF	TEI2

;--THIS DEVICE IS USUALLY USED FOR FUNCTION KEYS & BIT LIGHTS

CMD	EQU	040H	;COMMAND REGISTER
STATUS	EQU	040H	;STATUS REGISTER
RXDATA	EQU	041H	;SERIAL DATA IN
TXDATA	EQU	041H	;SERIAL DATA OUT

TEI1013 SET	-1
INVSTAT SET	-1
	ENDIF
	;PAGE

;++++++++++++++++++++++++ JADE CONFIGURATION ++++++++++++++++++++++++++

	IF	JADE

;--PORT 00 & 80 ARE USUALLY IDENTIFIED AS PORT B

CMD	EQU	080H	;COMMAND REGISTER
STATUS	EQU	080H	;STATUS REGISTER
RXDATA	EQU	000H	;SERIAL DATA IN
TXDATA	EQU	000H	;SERIA DATA OUT

JAD1013 SET	-1
	ENDIF

;+++++++++++++++++++++ HEATH H-8 CONFIGURATION ++++++++++++++++++++++++

	IF	HEATH

;--PORT ADDRESSES

CMD	EQU	333Q	;COMMAND REGISTER
STATUS	EQU	335Q	;STATUS REGISTER
RXDATA	EQU	330Q	;SERIAL DATA IN
TXDATA	EQU	330Q	;SERIAL DATA OUT
BAUDR1	EQU	330Q	;BAUD CONTROL REGISTER 1 (MDLL)
BAUDR2	EQU	331Q	;BAUD CONTROL REGISTER 2 (MDLM)

;--SPEDIAL PORT ADDRESSES

MIER	EQU	331Q
MCR	EQU	334Q

;--BAUD RATE VALUES (APPLIES TO H-8 ONLY)

BAUD10	EQU	001H	;110 BAUD
BAUD15	EQU	001H	;150 BAUD
BAUD30	EQU	001H	;300 BAUD
BAUD120 EQU	001H	;1200 BAUD
BAUD240 EQU	001H	;2400 BAUD
BAUD480 EQU	001H	;4800 BAUD
BAUD960 EQU	001H	;9600 BAUD

CANBRK	SET	-1
INS8250 SET	-1
BAUDFLG SET	-1
	ENDIF
	;PAGE

;++++++++++++++++++++++++ MPUB CONFIGURATION ++++++++++++++++++++++++++

	IF	MPUB

;--SERIAL PORT ADDRESSES

CMD	EQU	005H	;COMMAND REGISTER
STATUS	EQU	005H	;STATUS REGISTER
RXDATA	EQU	004H	;SERIAL DATA IN
TXDATA	EQU	004H	;SERIA DATA OUT

CANBRK	SET	-1
INT8251 SET	-1
	ENDIF

;++++++++++++++++++++++++ BSII	 CONFIGURATION ++++++++++++++++++++++++

	IF	BSII

BSIIBAS EQU	0	;BS II BASE ADDRESS (LEGAL VALUES 0..7)
BSIICHN EQU	2	;BS II CHANNEL OFFSET CH-A => 2, CH-B => 4, CH-C => 6

CMD	EQU	BSIIBAS+BSIICHN+1	;COMMAND REGISTER
STATUS	EQU	BSIIBAS+BSIICHN+1	;STATUS REGISTER
RXDATA	EQU	BSIIBAS+BSIICHN+0	;SERIAL DATA IN
TXDATA	EQU	BSIIBAS+BSIICHN+0	;SERIAL DATA OUT

		; BAUD RATES SWITCH SELECTABLE ON BS II BOARD

CANBRK	SET	-1
INT8251 SET	-1
	ENDIF
	;PAGE

;++++++++++++++++++++++++ MSLICE  CONFIGURATION ++++++++++++++++++++++++

	IF	MSLICE

;--SERIAL PORT ADDRESSES

CMD	EQU	003H	;COMMAND REGISTER
STATUS	EQU	001H	;STATUS REGISTER
RXDATA	EQU	000H	;SERIAL DATA IN
TXDATA	EQU	000H	;SERIAL DATA OUT
MODE	EQU	002H	;INIT & BAUD CONTROL

;--BAUD RATE VALUES

BAUD10	EQU	032H	;110 BAUD
BAUD15	EQU	034H	;150 BAUD
BAUD30	EQU	035H	;300 BAUD
BAUD120 EQU	037H	;1200 BAUD
BAUD240 EQU	03AH	;2400 BAUD
BAUD480 EQU	03CH	;4800 BAUD
BAUD960 EQU	03EH	;9600 BAUD

CANBRK	SET	-1
SIG2651 SET	-1
BAUDFLG SET	-1
	ENDIF

;+++++++++++++++++++++++ SYS8 CONFIGURATION ++++++++++++++++++++++++++++

	IF	SYS8

;--PORT DC & DD ARE ASSOCIATED WITH CONNECTOR 9

CMD	EQU	0DDH	;COMMAND REGISTER
STATUS	EQU	0DDH	;STATUS REGISTER
RXDATA	EQU	0DCH	;SERIAL DATA IN
TXDATA	EQU	0DCH	;SERIAL DATA OUT

CANBRK	SET	-1
INT8251 SET	-1
	ENDIF
	;PAGE

;++++++++++++++++++++++++ SBC100/200  CONFIGURATION ++++++++++++++++++++

	IF	SDS

;--SERIAL PORT ADDRESSES

CMD	EQU	07DH	;COMMAND REGISTER
STATUS	EQU	07DH	;STATUS REGISTER
RXDATA	EQU	07CH	;SERIAL DATA IN
TXDATA	EQU	07CH	;SERIAL DATA OUT
BAUD	EQU	078H	;CTC-0 CONTROL REGISTER
BAUD2	EQU	005H	;CTC INIT BYTE

;--BAUD RATE VALUES

BAUD10	EQU	057H	;110 BAUD
BAUD15	EQU	040H	;150 BAUD
BAUD30	EQU	020H	;300 BAUD
BAUD120 EQU	008H	;1200 BAUD
BAUD240 EQU	004H	;2400 BAUD
BAUD480 EQU	002H	;4800 BAUD
BAUD960 EQU	001H	;9600 BAUD

CANBRK	SET	-1
INT8251 SET	-1
BAUDFLG SET	-1
	ENDIF

;+++++++++++++++++++++++++++++ SSM I/O-4 +++++++++++++++++++++++++++

	IF	SSMIO4

;--PORT ADDRESSES

CMD	EQU	03H	;COMMAND REGISTER
STATUS	EQU	03H	;STATUS REGISTER
RXDATA	EQU	02H	;SERIAL DATA IN
TXDATA	EQU	02H	;SERIAL DATA OUT

CANBRK	SET	-1
TMS6601 SET	-1
	ENDIF
	;PAGE

;+++++++++++++++++++++++ PROC. TECH. CONFIGURATION ++++++++++++++++++++++++++

	IF	PTC

;--PORT ADDRESSES (AS SPECIFIED FOR SOL COMPUTER SYSTEM)

CMD	EQU	0F8H	;COMMAND REGISTER
STATUS	EQU	0F8H	;STATUS REGISTER
RXDATA	EQU	0F9H	;SERIAL DATA IN
TXDATA	EQU	0F9H	;SERIAL DATA OUT

TMS6011 SET	-1
	ENDIF

;+++++++++++++++ DIGITAL GROUP SYSTEM CONFIGURATION ++++++++++++++++++++

	IF	DGS

;--PORTS 10 & 11 ARE ASSOCIATED WITH USART # 1

CMD	EQU	011H	;COMMAND REGISTER
STATUS	EQU	011H	;STATUS REGISTER
RXDATA	EQU	010H	;SERIAL DATA IN
TXDATA	EQU	010H	;SERIAL DATA OUT

CANBRK	SET	-1
INT8251 SET	-1
	ENDIF
	;PAGE

;++++++++++++++++ INDUSTRIAL MICRO SYSTEMS ++++++++++++++++++++++++++

PORT	EQU	1	;PORT WITHIN THE IMS440 BOARD

	IF	IMS440

;--SELECT XTAL VALUE AS A FUNCTION OF <ON-BOARD OSCILLATOR>

XTAL	EQU	7680	;USED WITH ON BOARD OSCILLATOR
;XTAL	EQU	12500	;ASSUMES NO ON-BOARD OSCILLATOR

IOB	EQU	40H	;BASE ADDRESS OF THE IMS440 BOARD

CMD	EQU	IOB + 2*PORT
STATUS	EQU	IOB + 2*PORT
RXDATA	EQU	IOB + 1 + 2*PORT
TXDATA	EQU	IOB + 1 + 2*PORT

;--BAUD RATE VALUES

BAUD10	EQU	XTAL/11 	;110 BAUD
BAUD15	EQU	XTAL/15 	;150 BAUD
BAUD30	EQU	XTAL/30 	;300 BAUD
BAUD120 EQU	XTAL/120	;1200 BAUD
BAUD240 EQU	XTAL/240	;2400 BAUD
BAUD480 EQU	XTAL/480	;4800 BAUD
BAUD960 EQU	XTAL/960	;9600 BAUD

CNTVAL	EQU	IOB + 4 + PORT	;COUNT INITIALIZATION REGISTER
CNTID	EQU	036H + PORT*40H ;COUNTER IDENTITY
CNTSEL	EQU	IOB + 7 	;COUNTER CONTROL REGISTER

BAUDFLG SET	-1
IMS6402 SET	-1
	ENDIF
	;PAGE

;+++++++++++++++++++ P&T TRS-80 Mod II +++++++++++++++++++++

	IF	PNTCPM

EXX	EQU	0D9H	;Z-80 REG EXCHANGE OP-CODE
PNT	EQU	040H	;P&T JUMP VECTOR LOCATION

CHANL	EQU	1	;1 ==> PORT A, 2 ==> PORT B

CMD	EQU	0	;DUMMY VALUE
STATUS	EQU	CHANL+4 ;STATUS REGISTER
RXDATA	EQU	CHANL+0 ;SERIAL DATA IN
TXDATA	EQU	CHANL+2 ;SERIAL DATA OUT

;--UART CONFIGURED BY P&T "SETUP" FUNCTION

RDA	EQU	001H	;RECEIVED DATA AVAILABLE
TBE	EQU	004H	;TRANSMITTER BUFFER EMPTY
	ENDIF

;++++++++++++++++++ GODBOUT INTERFACER II ++++++++++++++++++++

	IF	GODBOT

CMD	EQU	011H	;COMMAND PORT
STATUS	EQU	011H	;STATUS PORT
RXDATA	EQU	010H	;RECEIVED DATA PORT
TXDATA	EQU	010H	;TRANSMITTED DATA PORT

;--UART CONFIGURATION JUMPER CONTROLLED

RDA	EQU	002H	;RECEIVED DATA AVAILABLE BIT
TBE	EQU	001H	;TRANSMITTER BUFFER EMPTY BIT
	ENDIF
	;PAGE

;++ *******************************************************************

;			UART/USART SPECIFICATIONS
;			=========================

	IF	MC6850

;--STATUS & COMMAND BIT VALUES (7 DATA BITS, EVEN PARITY, ONE STOP BIT)

RDA	EQU	001H	;RECEIVED DATA AVAILABLE
TBE	EQU	002H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	04BH	;UART RESET
INIT	EQU	049H	;UART INITIALIZATION (FOLLOWING RESET)
BREAK	EQU	069H	;TRANSMIT A BREAK (MUST BE PULSED)
	ENDIF

	IF	TMS5501

;--STATUS & COMMAND VALUES

RDA	EQU	040H	;RECEIVED DATA AVAILABLE
TBE	EQU	080H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	001H	;TU-ART RESET
INIT	EQU	000H	;UART INITIALIZATION (FOLLOWING RESET)
BREAK	EQU	002H	;TRANSMIT A BREAK (MUST BE PULSED)
	ENDIF

	IF	INT8251

;--STATUS & COMMAND VALUES

RDA	EQU	002H	;RECEIVED DATA AVAILABLE
TBE	EQU	001H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	050H	;CONTROL = ERROR.RESET, INTERNAL.RESET
INIT1	EQU	07AH	;MODE = 1-STOP, EVEN.PARITY, 7-BITS, 16X.BAUD
INIT2	EQU	027H	;CONTROL = RTS, RX.EN, DTR, TX.EN
BREAK	EQU	02AH	;CONTROL = RTS, SEND.BREAK, DTR
	ENDIF

	IF	JAD1013

;--STATUS & COMMAND VALUES

RDA	EQU	010H	;RECEIVED DATA AVAILABLE
TBE	EQU	080H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	000H	;UART RESET
INIT	EQU	028H	;7 DATA BITS, EVEN PARITY, 1 STOP BIT
	ENDIF

	IF	TEI1013

;--STATUS & COMMAND VALUES

RDA	EQU	001H	;RECEIVED DATA AVAILABLE
TBE	EQU	080H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	000H	;UART RESET
INIT	EQU	000H	;7 DATA BITS, EVEN PARITY, 1 STOP BIT
	ENDIF

	IF	INS8250

;--STATUS & COMMAND VALUES

RDA	EQU	001H	;RECEIVED DATA AVAILABLE
TBE	EQU	020H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	000H	;DUMMY VALUE
INIT	EQU	01AH	;EVEN PARITY, 1 STOP, 7 DATA BITS
DLSEL	EQU	080H	;DIVISION LATCH SELECT
BREAK	EQU	040H	;TRANSMIT A BREAK (MUST BE PULSED)
	ENDIF

	IF	SIG2651

;--STATUS & COMMAND VALUES

RDA	EQU	002H	;RECEIVED DATA AVAILABLE
TBE	EQU	001H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	037H	;UART RESET
INIT	EQU	037H	;PARTIAL INITIALIZATION
MODE1	EQU	079H	;1 STOP, EVEN_PAR, 7 D_BITS, 1X BAUD
MODE2	EQU	037H	;RX & TX CLOCK <= BRCLK, 300 BAUD
BREAK	EQU	03FH	;TRANSMIT A BREAK (MUST BE PULSED)
	ENDIF

	IF	TMS6011

;--STATUS & COMMAND VALUES

RDA	EQU	040H	;RECEIVED DATA AVAILABLE
TBE	EQU	080H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	010H	;REQUEST TO SEND
INIT	EQU	010H	;BIT CONFIGURATION SWITCH SELECTIBLE
	ENDIF

	IF	IMS6402

;--STATUS & COMMAND VALUES

RDA	EQU	001H	;RECEIVED DATA AVAILABLE
TBE	EQU	002H	;TRANSMITTER BUFFER EMPTY
RESET	EQU	000H	;DUMMY RESET
INIT	EQU	013H	;7 DATA BITS, EVEN PARITY, 1 STOP BIT
	ENDIF

;-- *******************************************************************