home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MISC / X-10.LBR / X-10IO.MZC / X-10IO.MAC
Text File  |  2000-06-30  |  768b  |  39 lines
  1. ;*************************************************************************
  2.  
  3.        GLOBAL  XOUT_A
  4.  
  5. XOUT_A:
  6.        POP     BC
  7.        POP     HL
  8.        PUSH    HL
  9.        PUSH    BC
  10.  
  11. XOUT:  IN      A,(02H)
  12.        AND     80H
  13.        JR      NZ,XOUT
  14.        LD      A,L
  15.        OUT     (03H),A
  16.        RET
  17.  
  18.        DEFS    32-($-XOUT_A)
  19.  
  20. ;*************************************************************************
  21.  
  22.        GLOBAL  XINP_A
  23.  
  24. XINP_A:
  25.        IN      A,(02H)
  26.        AND     01H
  27.        JR      NZ,XINP_A
  28.        IN      A,(03H)
  29.        LD      L,A
  30.        LD      H,0
  31.        RET
  32.  
  33.        DEFS    32-($-XINP_A)
  34.  
  35. ;*************************************************************************
  36.  
  37.  END 
  38.  
  39.