home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBO_C / TCLIB.ZIP / VIDASM.C < prev   
Encoding:
Text File  |  1987-06-03  |  1.3 KB  |  67 lines
  1. /* These routines are for Turbo-C and provide some basic but
  2.    valuable screen access to the IBM PC/AT and Compatibles.
  3.    Unfortunately these cannot be used when in the Turbo-C
  4.    development environment.
  5.  
  6.    by Mike Elkins - Mike's C Board (619)-722-8724 1200/2400
  7.      */
  8.  
  9. cls()         /* Clear the screen  */
  10. {
  11.  
  12.     asm  mov   ax,0600h
  13.     asm  mov   bh,7
  14.     asm  mov   cx,0
  15.     asm  mov   dx,184fh
  16.     asm  int   10h
  17.  
  18. }
  19.  
  20. del_cur()  /* Make cursor disappear */
  21. {
  22.  
  23.     asm  mov   ah,01
  24.     asm  mov   ch,26h
  25.     asm  mov   cl,7
  26.     asm  int   10h
  27. }
  28.  
  29. restor_cur()  /* Put cursor back on screen */
  30. {
  31.     unsigned    st, en;
  32.  
  33.     if (get_mode() == 7)
  34.         st = 12, en = 13;
  35.     else
  36.         st = 6, en = 7;
  37.  
  38.     asm  mov   ah,01
  39.     asm  mov   bh,0
  40.     asm  mov   ch,st
  41.     asm  mov   cl,en
  42.     asm  int   10h
  43. }
  44.  
  45. get_mode()   /* Check for Monocrome or graphics  */
  46. {
  47.  
  48.     asm  mov   ah,15
  49.     asm  mov   bh,0
  50.     asm  mov   ch,0
  51.     asm  mov   cl,0
  52.     asm  int   10h
  53.     asm  xor   ah,ah
  54. }
  55.  
  56. gotoxy(x, y)
  57. int x, y;
  58. {
  59.  
  60.     asm  mov   ah,02
  61.     asm  mov   bh,0
  62.     asm  mov   dh,x
  63.     asm  mov   dl,y
  64.     asm  int   10h
  65. }
  66.  
  67.          Mike Johnson...........1-918-493-21372400 N81N         Met Chem...........