home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG003P.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-16  |  502 b   |  21 lines
  1.  
  2. ;************************************************************************ 
  3. ; Write_Register
  4. ; Write a value to a register
  5. ; Entry:    Register - Output port to write value to
  6. ;        Value     - Value to output
  7. ;************************************************************************
  8. Register    EQU    [BP+8]
  9. Value        EQU    [BP+6]
  10.  
  11. PUBLIC    Write_Register
  12. Write_Register PROC FAR
  13.     PUSH    BP
  14.     MOV    BP,SP
  15.     MOV    DX,Register        ;Fetch register address
  16.     MOV    AL,Value
  17.     OUT    DX,AL
  18.     POP    BP
  19.     RET    4
  20. Write_Register ENDP
  21.