home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / sclib1.lbr / OUTP.MZC / OUTP.MAC
Encoding:
Text File  |  1993-10-25  |  384 b   |  18 lines
  1.  
  2. ; outp(port#,data)    ; added 2/84 (fas)
  3.  
  4. OUTP::
  5.     INX    SP    ; Skip over return address
  6.     INX    SP
  7.     POP    H    ; Load data in L
  8.     POP    B    ; Load port # in C
  9.     DB    0EDH, 069H ; Do    <OUT (C),L>  instruction
  10.     PUSH    B    ; Restore stack
  11.     PUSH    H
  12.     DCX    SP
  13.     DCX    SP    ; All gone
  14.     RET
  15.  
  16.     END
  17.  
  18.