home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol10n19.zip / CAPSLK.SCR < prev    next >
Text File  |  1991-10-15  |  667b  |  72 lines
  1. NCAPSLOCK.COM
  2. A100
  3. JMP    0147
  4. NOP
  5. NOP
  6. JB    0167
  7. DB    6D
  8. STI
  9. PUSH    ES
  10. PUSH    DI
  11. PUSH    AX
  12. PUSH    CX
  13. PUSHF
  14. MOV    AX,0000
  15. MOV    ES,AX
  16. MOV    DI,0417
  17. ES:
  18. MOV    AH,[DI]
  19. TEST    AH,03
  20. JZ    013D
  21. IN    AL,60
  22. CMP    AL,10
  23. JS    013D
  24. CMP    AL,1A
  25. JS    0137
  26. CMP    AL,1E
  27. JS    013D
  28. CMP    AL,27
  29. JS    0137
  30. CMP    AL,2C
  31. JS    013D
  32. CMP    AL,33
  33. JNS    013D
  34. AND    AH,BF
  35. ES:
  36. MOV    [DI],AH
  37. POPF
  38. POP    CX
  39. POP    AX
  40. POP    DI
  41. POP    ES
  42. CS:
  43. JMP    FAR [0103]
  44. MOV    AX,0000
  45. MOV    ES,AX
  46. MOV    DI,0024
  47. ES:
  48. MOV    AX,[DI]
  49. ES:
  50. MOV    BX,[DI+02]
  51. MOV    SI,0103
  52. MOV    [SI],AX
  53. MOV    [SI+02],BX
  54. MOV    AX,0000
  55. MOV    ES,AX
  56. MOV    BX,DS
  57. CLI
  58. MOV    DI,0024
  59. MOV    AX,0107
  60. ES:
  61. MOV    [DI],AX
  62. ES:
  63. MOV    [DI+02],BX
  64. STI
  65. MOV    DX,0147
  66. INT    27
  67.  
  68. RCX
  69. 79
  70. W
  71. Q
  72.