/*
  SBC 80/30 HARDWARE SPECIFIC CONSTANTS
*/

DECLARE LOCK LITERALLY '0D5H'; /* BUS LOCK PORT */

/*
  8253 PORT ADDRESSES.
*/

DECLARE A8253$MODE LITERALLY '0DFH';
DECLARE A8253$CTR0 LITERALLY '0DCH';
DECLARE A8253$CTR1 LITERALLY '0DDH';
DECLARE A8253$CTR2 LITERALLY '0DEH';

/*
  8253 COMMANDS.
*/

DECLARE SELECT$0 LITERALLY '00000000B',
        SELECT$1 LITERALLY '01000000B',
        SELECT$2 LITERALLY '10000000B';

DECLARE RL$LEAST LITERALLY '00010000B',
        RL$MOST  LITERALLY '00100000B',
        RL$BOTH  LITERALLY '00110000B';

DECLARE MODE$0 LITERALLY '00000000B',
        MODE$1 LITERALLY '00000010B',
        MODE$2 LITERALLY '00000100B',
        MODE$3 LITERALLY '00000110B';

/* WITH 80/30: 6.5 MICS CLOCK PERIOD, 50MSEC = 7692 PERIODS */

DECLARE INTERVAL$CNT LITERALLY '7692';

/*
  8259 I/O PORT ADDRESSES.
*/

DECLARE LOWER$8259 LITERALLY '0D8H',
        UPPER$8259 LITERALLY '0D9H',
        MASK LITERALLY '0D9H',
        REVERT LITERALLY '0D8H';

/*
  8259 COMMANDS.
*/

DECLARE EOI LITERALLY '20H',
        PAD$SIZE LITERALLY '1',
        VECTOR$FORMAT LITERALLY '16H';

/*
  8251 PORT ADDRESSES.
*/

DECLARE USART$IN LITERALLY '0ECH',
        USART$OUT LITERALLY '0ECH',
        USART$STATUS LITERALLY '0EDH',
        USART$CONTROL LITERALLY '0EDH';

/*
  8251 MODES.
*/

DECLARE B9600 LITERALLY '8',
        B110 LITERALLY '700';

DECLARE STOP$1  LITERALLY '01000000B',
        STOP$15 LITERALLY '10000000B',
        STOP$2  LITERALLY '11000000B';

DECLARE PODD  LITERALLY '00000000B',
        PEVEN LITERALLY '00100000B';

DECLARE PENB LITERALLY '00010000B';

DECLARE CL5 LITERALLY '00000000B',
        CL6 LITERALLY '00000100B',
        CL7 LITERALLY '00001000B',
        CL8 LITERALLY '00001100B';

DECLARE RATE$1X  LITERALLY '00000001B',
        RATE$16X LITERALLY '00000010B',
        RATE$64X LITERALLY '00000011B';

/*
  8251 COMMANDS.
*/

DECLARE ENTER$HUNT  LITERALLY '10000000B',
        USART$RESET LITERALLY '01000000B',
        RTS         LITERALLY '00100000B',
        ERROR$RESET LITERALLY '00010000B',
        SEND$BREAK  LITERALLY '00001000B',
        RXE         LITERALLY '00000100B',
        DTR         LITERALLY '00000010B',
        TXEN        LITERALLY '00000001B';

/*
  8251 STATUS.
*/

DECLARE DATA$SET$READY LITERALLY '10000000B',
        SYNCH$DETECT   LITERALLY '01000000B',
        FRAME$ERROR    LITERALLY '00100000B',
        OVERRUN$ERROR  LITERALLY '00010000B',
        PARITY$ERROR   LITERALLY '00001000B',
        TXE            LITERALLY '00000100B',
        RXRDY          LITERALLY '00000010B',
        TXRDY          LITERALLY '00000001B';