home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / CEXPRESS.ZIP / SCREEN.ASM / SETSHAPE.ASM < prev    next >
Assembly Source File  |  1989-05-03  |  499b  |  22 lines
  1. ;void  set_cursor_shape();
  2.  
  3.     EXTRN  _memory_model:byte
  4.     EXTRN  _start_line:byte
  5.     EXTRN  _stop_line:byte
  6.  
  7. _TEXT    SEGMENT BYTE PUBLIC 'CODE'
  8.     ASSUME CS:_TEXT
  9.     PUBLIC _set_cursor_shape
  10. _set_cursor_shape proc near
  11.     mov  ch,_start_line    ;Topline value to CH
  12.     mov  cl,_stop_line    ;Bottomline to CL
  13.     mov  ah,1        ;func to set cursor shape
  14.     int  10h        ;set the shape
  15.     cmp  _memory_model,0    ;quit
  16.     jle  quit        ;
  17.     db   0CBh        ;RET far
  18. quit:    ret            ;RET near
  19. _set_cursor_shape endp
  20. _TEXT    ENDS
  21.     END
  22.