home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / util / misc / 019 / keybuf.scr < prev    next >
Encoding:
Text File  |  1992-11-17  |  311 b   |  35 lines
  1. N KEYBUF.COM
  2. A 100
  3. mov ax,40
  4. mov ds,ax
  5. push cs
  6. pop ax
  7. cmp ax,1030
  8. jnb 137
  9. sub ax,40
  10. mov cx,4
  11. shl ax,cl
  12. mov bx,ax
  13. add bx,100
  14. cli
  15. mov [80],ax
  16. mov [82],bx
  17. mov [1A],ax
  18. mov [1C],ax
  19. sti
  20. cs:
  21. mov es,[2c]
  22. mov ah,49
  23. int 21
  24. mov dx,100
  25. int 27
  26. mov dl,07
  27. mov ah,02
  28. int 21
  29. int 20
  30.  
  31. rcx
  32. 3f
  33. w
  34. q
  35.