home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / CURSOR.ZIP / OUTPUT.ASM < prev    next >
Assembly Source File  |  1988-05-29  |  596b  |  45 lines
  1. .286
  2. .model large
  3. .code
  4. large_cursor    proc    far
  5.  
  6.     push dx
  7.  
  8.     mov dx,03d4H    ;get crtc addr (03B4H = monochrome addr)
  9.     mov al,0AH    ;request cursor_start
  10.     cli
  11.     out dx,al    ;output request
  12.  
  13.     inc dx        ;get crtc data
  14.     mov al,02H    ;load data
  15.     out dx,al    ;output it
  16.  
  17.     dec dx        ;crtc addr
  18.     mov al,0BH    ;request cursor end
  19.     out dx,al    ;output request
  20.  
  21.     inc dx        ;get crtc data
  22.     mov al,0CH    ;load data
  23.     out dx,al    ;output
  24.  
  25.     sti
  26.  
  27.     xor ax,ax    ;return code 0
  28.  
  29.     pop dx    
  30.  
  31. exit:
  32.  
  33.     ret           ;far return
  34.  
  35. large_cursor endp
  36.  
  37. PUBLIC large_cursor        ;make routine available
  38.  
  39. end
  40.  
  41.  
  42.  
  43.      
  44. 
  45.