home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / sclib2.lbr / INP.MZC / INP.MAC
Encoding:
Text File  |  1993-10-25  |  384 b   |  20 lines
  1.  
  2. ; inp(port#)        ; Added 2/84 (fas)
  3.  
  4. INP::
  5.     INX    SP    ; Skip over return address
  6.     INX    SP
  7.     POP    B    ; Load port # into C
  8.     DB    0EDH, 068H ; Do <IN L,(C)> instruction
  9.     PUSH    B    ; Restore stack
  10.     DCX    SP
  11.     DCX    SP
  12.     MOV    A,L    ; Data was returned in L
  13.     RLC        ; Sign extend HL
  14.     SBB    A    ;
  15.     MOV    H,A    ; That's it
  16.     RET
  17.  
  18.     END
  19.  
  20.