home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / INP.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  3.3 KB  |  100 lines
  1. ; File......: INP.ASM
  2. ; Author....: Ted Means
  3. ; Date......: $Date:   15 Aug 1991 23:06:50  $
  4. ; Revision..: $Revision:   1.2  $
  5. ; Log file..: $Logfile:   E:/nanfor/src/inp.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:   E:/nanfor/src/inp.asv  $
  14. ;  
  15. ;     Rev 1.2   15 Aug 1991 23:06:50   GLENN
  16. ;  Forest Belt proofread/edited/cleaned up doc
  17. ;  
  18. ;     Rev 1.1   14 Jun 1991 19:54:34   GLENN
  19. ;  Minor edit to file header
  20. ;  
  21. ;     Rev 1.0   01 Apr 1991 01:03:22   GLENN
  22. ;  Nanforum Toolkit
  23. ;  
  24.  
  25.  
  26. ;  $DOC$
  27. ;  $FUNCNAME$
  28. ;      FT_INP()
  29. ;  $CATEGORY$
  30. ;      DOS/BIOS
  31. ;  $ONELINER$
  32. ;      Retrieve a byte from a specified I/O port
  33. ;  $SYNTAX$
  34. ;      FT_INP( <nPort> ) -> nValue
  35. ;  $ARGUMENTS$
  36. ;     <nPort> is the port from which to retrieve the byte.  If it is
  37. ;     invalid in any way, the function will return zero.
  38. ;  $RETURNS$
  39. ;     The byte retrieved.
  40. ;  $DESCRIPTION$
  41. ;     It may sometimes be useful to read a byte from a port without having
  42. ;     to resort to C or assembler.  This function allows you to do so.
  43. ;
  44. ;     The source code is written to adhere to Turbo Assembler's IDEAL mode.
  45. ;     To use another assembler, you will need to rearrange the PROC and
  46. ;     SEGMENT directives, and also the ENDP and ENDS directives (a very
  47. ;     minor task).
  48. ;  $EXAMPLES$
  49. ;     byte := FT_INP( 100 )   // read a byte from port 100 (064h)
  50. ;  $SEEALSO$
  51. ;     FT_OUTP()
  52. ;  $END$
  53. ;
  54.  
  55.  
  56.          IDEAL
  57.  
  58. Public   FT_Inp
  59.  
  60. Extrn    __ParInfo:Far
  61. Extrn    __ParNI:Far
  62. Extrn    __RetNI:Far
  63.  
  64. Segment  _NanFor   Word      "CODE"
  65.          Assume    CS:_NanFor
  66.  
  67. Proc     FT_Inp    Far
  68.  
  69.          Xor       AX,AX                     ; Request param count
  70.          Push      AX                        ; Put request on stack
  71.          Call      __ParInfo                 ; Get param count
  72.          Add       SP,2                      ; Realign stack
  73.          Or        AX,AX                     ; Zero params?
  74.          JZ        Exit                      ; If not, exit
  75.  
  76.          Mov       AX,1                      ; Specify first param
  77.          Push      AX                        ; Put param # on stack
  78.          Call      __ParInfo                 ; Get param type
  79.          Add       SP,2                      ; Realign stack
  80.          Test      AX,2                      ; Numeric?
  81.          JNZ       GetParam                  ; Yes, so continue
  82.          Xor       AX,AX                     ; Set return value to zero
  83.          JMP       Short Exit                ; Quit
  84.  
  85. GetParam:Mov       AX,1                      ; Specify first param
  86.          Push      AX                        ; Put param # on stack
  87.          Call      __ParNI                   ; Get value
  88.          Add       SP,2                      ; Realign stack
  89.          Mov       DX,AX                     ; Move port # to DX
  90.          In        AL,DX                     ; Get a byte from the port
  91.          Mov       AH,0                      ; Clear high byte
  92.  
  93. Exit:    Push      AX                        ; Put return value on stack
  94.          Call      __RetNI                   ; Return it to Clipper app
  95.          Add       SP,2                      ; Realign stack
  96.          Ret
  97. Endp     FT_Inp
  98. Ends     _NanFor
  99. End
  100.