;*************************************************************************

       GLOBAL  XOUT_A

XOUT_A:
       POP     BC
       POP     HL
       PUSH    HL
       PUSH    BC

XOUT:  IN      A,(02H)
       AND     80H
       JR      NZ,XOUT
       LD      A,L
       OUT     (03H),A
       RET

       DEFS    32-($-XOUT_A)

;*************************************************************************

       GLOBAL  XINP_A

XINP_A:
       IN      A,(02H)
       AND     01H
       JR      NZ,XINP_A
       IN      A,(03H)
       LD      L,A
       LD      H,0
       RET

       DEFS    32-($-XINP_A)

;*************************************************************************

 END