home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / nfsrc21.zip / SETLASTK.ASM < prev    next >
Assembly Source File  |  1992-07-01  |  3KB  |  83 lines
  1. ;
  2. ; File......: SETLASTK.ASM
  3. ; Author....: Ted Means
  4. ; CIS ID....: 73067,3332
  5. ; Date......: $Date:   01 Jul 1992 01:23:06  $
  6. ; Revision..: $Revision:   1.0  $
  7. ; Log file..: $Logfile:   C:/nanfor/src/setlastk.asv  $
  8. ; 
  9. ; This is an original work by Ted Means and is placed in the
  10. ; public domain.
  11. ;
  12. ; Modification history:
  13. ; ---------------------
  14. ;
  15. ; $Log:   C:/nanfor/src/setlastk.asv  $
  16. ;  
  17. ;     Rev 1.0   01 Jul 1992 01:23:06   GLENN
  18. ;  Initial revision.
  19. ; 
  20.  
  21. ;  $DOC$
  22. ;  $FUNCNAME$
  23. ;     FT_LASTKEY()
  24. ;  $CATEGORY$
  25. ;     Keyboard/Mouse
  26. ;  $ONELINER$
  27. ;     Force LastKey() to return a programmer-defined value.
  28. ;  $SYNTAX$
  29. ;     FT_LastKey( <nKey> ) -> NIL
  30. ;  $ARGUMENTS$
  31. ;     <nKey> is the Inkey() value of the desired key.
  32. ;  $RETURNS$
  33. ;     NIL
  34. ;  $DESCRIPTION$
  35. ;     It is occasionally useful to force LastKey() to return a known value.
  36. ;     This is easily accomplishing by using the KEYBOARD command, but this
  37. ;     has undesireable side effects (the keyboard buffer is cleared, and
  38. ;     the keystroke is processed whether you needed it to be or not).  This
  39. ;     function accomplishes the same task but without the side effects.  It
  40. ;     does so by directly modifying the memory location where Clipper stores
  41. ;     the LastKey() value.
  42. ;
  43. ;     Some highly unorthodox programming techniques, not to mention rather
  44. ;     strange use of Clipper internals, was necessary to make this function
  45. ;     work.  If this makes you uncomfortable, then don't use this function,
  46. ;     you worthless crybaby.
  47. ;  $EXAMPLES$
  48. ;     keyboard chr( K_ESC )
  49. ;
  50. ;     ? lastkey()  // returns 27
  51. ;
  52. ;     FT_LastKey( K_F1 )
  53. ;
  54. ;     ? lastkey()  // now returns 28
  55. ;  $END$
  56. ;
  57.  
  58. Public   FT_LastKey
  59.  
  60. Extrn    LastKey:Far
  61. Extrn    __ParNL:Far
  62.  
  63. Segment  _NanFor   Word      "CODE"
  64.          Assume    CS:_NanFor
  65.  
  66. Proc     FT_LastKey          Far
  67.  
  68.          Mov       AX,1                      ; Specify param #1
  69.          Push      AX                        ; Put on stack
  70.          Call      __ParNL                   ; Get key value
  71.          Add       SP,2                      ; Realign stack
  72.  
  73.          Mov       CX,Seg LastKey            ; Load segment of known symbol
  74.          Mov       BX,Offset LastKey         ; Load offset of known symbol
  75.          Mov       ES,CX                     ; Load segment register
  76.          Mov       BX,[Word Ptr ES:BX + 8]   ; Get address
  77.          Mov       [Word Ptr BX],AX          ; Store key value
  78.          Mov       [Word Ptr BX + 2],DX
  79.          Ret
  80. Endp     FT_LastKey
  81. Ends     _NanFor
  82. End
  83.