************
* Program P_2_TST (6811)
*
* I/O Box on Cable #2 (right side of processor)
*
* Reads switches and echoes result to LEDs.
* 
* To cross assemble; as11 p_2_tst.asm port2.asm -l>p_2_tst.lst
*
* P. H. Anderson, 22 Oct 90; 15 Jan 93
**************

CODE    EQU $C000
DATA    EQU $D000
STACKTP EQU $0045

DDRC    EQU $1007
PORTB   EQU $1004       * output
PORTC   EQU $1003       * input

        ORG CODE

        LDS #STACKTP
AGN
        BSR INPORT2     * get switches in A
	BSR OUTPORT2	
	BRA AGN

        ORG CODE+$50    * for PORT2 file