home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / inp.mac < prev    next >
Text File  |  1989-02-23  |  512b  |  18 lines
  1.  
  2. ; inp(port#)        ; Added 2/84 (fas)
  3.  
  4. INP::
  5.     POP    D    ; Skip over return address
  6.     POP    B    ; Load port # into C
  7.     DB    0EDH, 068H ; Do <IN L,(C)> instruction
  8.     PUSH    B    ; Restore stack
  9.     PUSH    D
  10.     MOV    A,L    ; Data was returned in L
  11.     RLC        ; Sign extend HL
  12.     SBB    A    ;
  13.     MOV    H,A    ; That's it
  14.     RET
  15.  
  16.     END
  17.  
  18.