home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / nfsrc21.zip / OUTP.ASM < prev    next >
Assembly Source File  |  1992-09-28  |  4KB  |  116 lines
  1. ; File......: OUTP.ASM
  2. ; Author....: Ted Means
  3. ; Date......: $Date:   28 Sep 1992 00:49:46  $
  4. ; Revision..: $Revision:   1.3  $
  5. ; Log file..: $Logfile:   C:/nanfor/src/outp.asv  $
  6. ; 
  7. ; This function is an original work by Ted Means and is placed in the
  8. ; public domain.
  9. ;
  10. ; Modification history:
  11. ; ---------------------
  12. ;
  13. ; $Log:   C:/nanfor/src/outp.asv  $
  14. ;  
  15. ;     Rev 1.3   28 Sep 1992 00:49:46   GLENN
  16. ;  Ted Means corrected a small bug.
  17. ;  
  18. ;     Rev 1.2   15 Aug 1991 23:07:08   GLENN
  19. ;  Forest Belt proofread/edited/cleaned up doc
  20. ;  
  21. ;     Rev 1.1   14 Jun 1991 19:54:52   GLENN
  22. ;  Minor edit to file header
  23. ;  
  24. ;     Rev 1.0   01 Apr 1991 01:03:46   GLENN
  25. ;  Nanforum Toolkit
  26. ;  
  27.  
  28.  
  29. ;  $DOC$
  30. ;  $FUNCNAME$
  31. ;      FT_OUTP()
  32. ;  $CATEGORY$
  33. ;      DOS/BIOS
  34. ;  $ONELINER$
  35. ;      Write a byte to a specified I/O port
  36. ;  $SYNTAX$
  37. ;     FT_OUTP( <nPort>, <nValue> ) -> lResult
  38. ;  $ARGUMENTS$
  39. ;      <nPort> is the port from which to retrieve the byte.
  40. ;
  41. ;      <nValue> is the value between 0 and 255 to write to the port.
  42. ;  $RETURNS$
  43. ;     .T. if all parameters were valid and the byte was written to
  44. ;         the port.
  45. ;     .F. if invalid parameters were passed.
  46. ;  $DESCRIPTION$
  47. ;     It may sometimes be useful to write a byte to a port without having
  48. ;     to resort to C or assembler.  This function allows you to do so.
  49. ;
  50. ;     The source code is written to adhere to Turbo Assembler's IDEAL mode.
  51. ;     To use another assembler, you will need to rearrange the PROC and
  52. ;     SEGMENT directives, and also the ENDP and ENDS directives (a very
  53. ;     minor task).
  54. ;  $EXAMPLES$
  55. ;     lOk := FT_OUTP( 100, 0 )   // send a Chr(0) to port 100 (064h)
  56. ;  $SEEALSO$
  57. ;     FT_INP()
  58. ;  $END$
  59. ;
  60.  
  61.  
  62.          IDEAL
  63.  
  64. Public   FT_OUTP
  65.  
  66. Extrn    __ParInfo:Far
  67. Extrn    __ParNI:Far
  68. Extrn    __RetL:Far
  69.  
  70. Segment  _NanFor   Word      "CODE"
  71.          Assume    CS:_NanFor
  72.  
  73. Proc     FT_OUTP   Far
  74.  
  75.          Xor       AX,AX                     ; Request param count
  76.          Push      AX                        ; Put request on stack
  77.          Call      __ParInfo                 ; Get param count
  78.          Add       SP,2                      ; Realign stack
  79.          Cmp       AX,2                      ; At least two params?
  80.          JNB       GetTypes                  ; If so, continue
  81. BadParam:Xor       AX,AX                     ; Set return value to false
  82.          Jmp       Short Exit                ; Quit
  83.  
  84. GetTypes:Mov       CX,2                      ; Specify param count
  85. Top:     Push      CX                        ; Put param # on stack
  86.          Call      __ParInfo                 ; Get param type
  87.          Pop       CX                        ; Realign stack and restore CX
  88.          Test      AX,2                      ; Numeric?
  89.          JZ        BadParam                  ; No, so abort
  90.          Loop      Top                       ; Go to top of loop
  91.  
  92.          Mov       AX,1                      ; Specify first param
  93.          Push      AX                        ; Put param # on stack
  94.          Call      __ParNI                   ; Get value
  95.          Add       SP,2                      ; Realign stack
  96.          Cmp       AX,255                    ; Value valid?
  97.          JA        BadParam                  ; No, so abort
  98.          Push      AX                        ; Save value for later
  99.  
  100.          Mov       AX,2                      ; Specify first param
  101.          Push      AX                        ; Put param # on stack
  102.          Call      __ParNI                   ; Get value
  103.          Add       SP,2                      ; Realign stack
  104.          Pop       DX
  105.          Out       DX,AL                     ; Write a byte to the port
  106.          Mov       AX,1                      ; Set return value to true
  107.  
  108. Exit:    Push      AX                        ; Put return value on stack
  109.          Call      __RetL                    ; Return it to Clipper app
  110.          Add       SP,2                      ; Realign stack
  111.          Ret
  112. Endp     FT_OUTP
  113. Ends     _NanFor
  114. End
  115. 
  116.