include "8255.i"

        global  stack_internal
	defseg	c_text,class=CODE
	global	_Init_8255
	seg	c_text
_Init_8255:
        mov     dptr,#ctrl8255
	mov	a,r5
	movx	@dptr,a
	ret

        global  _OutPA_8255
_OutPA_8255:
        mov     dptr,#pa8255
	mov	a,r5
	movx	@dptr,a
	ret

        global  _InPA_8255
_InPA_8255:
        mov     dptr,#pa8255
	movx	a,@dptr
	mov	r3,a
	ret

        end