home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / QFOS2.ZIP / QF.ASM < prev    next >
Assembly Source File  |  1990-12-06  |  450b  |  33 lines
  1. ; qf.asm
  2. ;
  3. ; Change memory refresh rate
  4. ;
  5. ; Definition file:
  6. ;    SEGMENTS
  7. ;      QF_TEXT IOPL
  8. ;    EXPORTS
  9. ;      QFSET 1
  10. ;
  11. ; -- C declaration
  12. ; void far pascal QFSET(int refresh);
  13.  
  14. .model large,pascal
  15.  
  16. .code
  17.  
  18. QFSET proc qf:word
  19.         cli            ; don't allow interrupts now!
  20.         mov al,74h
  21.         out 43h,al
  22.         jmp $+2            ; prefetch flush per IBM
  23.         mov ax,qf
  24.         out 41h,al
  25.         jmp $+2
  26.         mov al,0
  27.         out 41h,al
  28.         sti
  29.         ret
  30. QFSET endp
  31.  
  32. end
  33.