;**********************************************************************
.IF 0
INIT_IO 	PROC
.ENDIF
;**********************************************************************
INIT_IO: 
		clr	P1
		ld	P1CONH,#015H
		ld	P1CONL,#57H
		ld	P1INT,#01H

		ld	P1EDGEH,#0FFH
		ld	P1EDGEL,#03CH

		clr	P2
		ld	P2CONH,#05H
		ld	P2CONL,#55H
		ld	P2PUR,#00H

		clr	P3
		ld	P3CONH,#29H
		ld	P3CONL,#49H
		ld	P3INT,#0H
		ld	P3EDGEH,#0FH
		ld	P3EDGEL,#0EFH
		ld	P3PUR,#05H

		clr	P4
		ld	P4CONH,#05H
		ld	P4CONM,#55H
		ld	P4CONL,#09H

		ld	P4PUR,#0F9H

		clr	P5
		ld	P5CONH,#55H
		ld	P5CONL,#29H
	
		ld	P4n5INT,#00H
		;ld	P4n5INT,#00110000B

		ret
;**********************************************************************