home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / MKEY07.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  3KB  |  123 lines
  1.     page    66,132
  2. ;******************************** MKEY07.ASM *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;-----------------------------------------
  13.     PUBLIC    CAPS_ON,NUMLOCK_ON,SCROLL_ON,INSERT_OFF
  14.     PUBLIC    CAPS_OFF,NUMLOCK_OFF,SCROLL_OFF
  15. comment 
  16. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  17. CAPS_ON - Turn the keyboard CAPS LOCK key on
  18. ;
  19. ; inputs:  none
  20. ; output:  none
  21. ;* * * * * * * * * * * * * *
  22. 
  23. CAPS_ON    PROC    FAR
  24.     push    ax
  25.     MOV     AX,40FFh
  26.     JMP     keyboard_set
  27. CAPS_ON    ENDP
  28. comment 
  29. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  30. NUMLOCK_ON - Turn the keyboard NUM LOCK key on
  31. ;
  32. ; inputs:  none
  33. ; output:  none
  34. ;* * * * * * * * * * * * * *
  35. 
  36.  
  37. NUMLOCK_ON    PROC    FAR
  38.     push    ax
  39.     MOV     AX,20FFh
  40.     JMP     keyboard_set
  41. NUMLOCK_ON    ENDP
  42. comment 
  43. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  44. SCROLL_ON - Turn the keyboard SCROLL LOCK key on
  45. ;
  46. ; inputs: none
  47. ; output: none
  48. ;* * * * * * * * * * * * * *
  49. 
  50.  
  51. SCROLL_ON    PROC    FAR
  52.     push    ax
  53.     MOV     AX,10FFh
  54.     JMP     keyboard_set
  55. SCROLL_ON    ENDP
  56. comment 
  57. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  58. INSERT_OFF - Turn the keyboard INS key off
  59. ;
  60. ; inputs: none
  61. ; output: none
  62. ;* * * * * * * * * * * * * *
  63. 
  64.  
  65. INSERT_OFF    PROC    FAR
  66.     push    ax
  67.     MOV     AX,007Fh
  68.     JMP     keyboard_set
  69. INSERT_OFF    ENDP
  70. comment 
  71. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  72. CAPS_OFF - Turn the keyboard CAPS LOCK key off
  73. ;
  74. ; inputs: none
  75. ; output: none
  76. ;* * * * * * * * * * * * * *
  77. 
  78.  
  79. CAPS_OFF        PROC    FAR
  80.     push    ax
  81.     MOV     AX,00BFh
  82.     JMP     keyboard_set
  83. CAPS_OFF ENDP
  84. comment 
  85. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  86. NUMLOCK_OFF - Turn the keyboard NUM LOCK key off
  87. ;
  88. ; inputs: none
  89. ; output: none
  90. ;* * * * * * * * * * * * * *
  91. 
  92.  
  93. NUMLOCK_OFF    PROC    FAR
  94.     push    ax
  95.     MOV     AX,00DFh
  96.     JMP     keyboard_set
  97. NUMLOCK_OFF    ENDP
  98. comment 
  99. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  100. SCROLL_OFF - Turn the keyboard SCROLL LOCK key off
  101. ;
  102. ; inputs: none
  103. ; output: none
  104. ;* * * * * * * * * * * * * *
  105. 
  106.  
  107. SCROLL_OFF    PROC    FAR
  108.     push    ax
  109.     MOV     AX,00EFh
  110. keyboard_set:
  111.     apush   bx,es
  112.     XOR     BX,BX
  113.     MOV     ES,BX
  114.     OR      BYTE PTR ES:[417h],AH
  115.     AND     BYTE PTR ES:[417h],AL
  116.     apop    es,bx
  117.     pop        ax
  118.     RETF
  119. SCROLL_OFF    ENDP
  120.  
  121. LIBSEG    ENDS
  122.     end
  123.