home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / clockon.asm < prev    next >
Assembly Source File  |  1993-10-14  |  2KB  |  83 lines
  1. ;  File......: CLOCKON.ASM
  2. ;  Author....: Andy M Leighton
  3. ;  BBS.......: The Dark Knight Returns
  4. ;  Net/Node..: 050/069
  5. ;  User Name.: Andy Leighton
  6. ;  Date......: $Date$
  7. ;  Revision..: $Rev$
  8. ;
  9. ;  This is an original work by Andy Leighton and is placed in the public
  10. ;  domain.
  11. ;
  12. ;  Modification history:
  13. ;  ---------------------
  14. ;
  15. ;  $Log$
  16. ;
  17. ;
  18. ;
  19. ;   $DOC$
  20. ;   $FUNCNAME$
  21. ;       GT_CLOCKON()
  22. ;   $CATEGORY$
  23. ;       Keyboard
  24. ;   $ONELINER$
  25. ;       Turns Caps Lock On
  26. ;   $SYNTAX$
  27. ;       GT_CLockOn()
  28. ;   $ARGUMENTS$
  29. ;       None
  30. ;   $RETURNS$
  31. ;       NIL
  32. ;   $DESCRIPTION$
  33. ;       Turns Caps Lock On.
  34. ;   $EXAMPLES$
  35. ;       GT_CLockON()
  36. ;       ? "Caps Lock Is Now Turned On"
  37. ;   $END$
  38. ;
  39.  
  40. ; This has been written using TASM
  41. ; If you are using MASM you might have to change things
  42. ; around a little
  43. ; look for comments telling you what to do
  44. ;
  45.  
  46. ;MASM   remove next line
  47.         IDEAL
  48.  
  49.  
  50. Public  GT_CLOCKON
  51.  
  52. Extrn   __Ret:Far
  53.  
  54. ;MASM change next line to
  55. ;       GtLibrary       SEGMENT WORD  "CODE"
  56. Segment GtLibrary       Word    "CODE"
  57.         Assume          CS:GtLibrary
  58.  
  59. ;MASM change next line to
  60. ;       GT_CLOCKON      PROC FAR
  61. Proc    GT_CLOCKON      Far
  62.  
  63.         PUSH    ES                         ; save for later
  64. ; set up ES:[BX] to point to the address 0x00000417
  65.         MOV     AX,40H
  66.         MOV     ES,AX
  67.         MOV     BX,17H
  68. ; turn on bit 7 of the keyboard flags
  69.         OR      BYTE PTR ES:[BX],40H
  70.         POP     ES                         ; restore ES
  71.         CALL    __Ret                      ; Setup NIL for Clipper
  72.         RET
  73.  
  74. ;MASM change next line to
  75. ;       Gt_CLOCKON      ENDP
  76. EndP    GT_CLOCKON
  77.  
  78. ;MASM change next line to
  79. ;       GtLibrary       ENDS
  80. EndS    GtLibrary
  81.  
  82.         End
  83.