home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / outp.mac < prev    next >
Text File  |  1989-02-23  |  384b  |  16 lines
  1.  
  2. ; outp(port#,data)    ; added 2/84 (fas)
  3.  
  4. OUTP::
  5.     POP    D    ; Skip over return address
  6.     POP    H    ; Load data in L
  7.     POP    B    ; Load port # in C
  8.     DB    0EDH, 069H ; Do    <OUT (C),L>  instruction
  9.     PUSH    B    ; Restore stack
  10.     PUSH    H
  11.     PUSH    D
  12.     RET
  13.  
  14.     END
  15.  
  16.