home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 240_01 / ciao.c < prev    next >
Text File  |  1987-07-31  |  30KB  |  995 lines
  1. /*
  2. **   ciao.c
  3. **   sept 10, 1986, by david c. oshel, ames, iowa
  4. **
  5. **  ----->  COMPILE USING UNSIGNED CHAR
  6. **
  7. **   Console input and output for the 101% IBM PC clone.  This is the first
  8. **   module in my CIAO.LIB library.
  9. **
  10. **   These are FAST primitives to read from and write to the IBM video RAM.
  11. **   Ignores the ROM-BIOS except to set text mode and/or to read or set the 
  12. **   machine cursor (see just below).
  13. **
  14. **   The module is self-initializing.  Vid_init(n) is only required to set
  15. **   a particular mode, e.g., vid_init(3) to set 80x25 color text.  The
  16. **   requested mode is only set if the hardware supports it, and only
  17. **   monochrome mode 7 and cga modes 2 or 3 are valid.  No graphics modes.
  18. **
  19. **   Global functions which ALTER THE CONTENTS OF THE SCREEN test the 
  20. **   initialized flag.  In general, static, ROM-BIOS and cursor functions 
  21. **   do NOT test the flag.  If the flag is still zero, vid_init executes.
  22. **
  23. **   The machine cursor and the video RAM write location ("soft cursor")
  24. **   are independent, but are synchronized by default.  See setsynch fn.
  25. **
  26. **   Compiler is Microsoft C ver. 4.00, but this particular module should be 
  27. **   fairly portable to another compiler (such as Microsoft C ver. 3.00). 
  28. **
  29. */
  30.  
  31.  
  32. /*=======================================================================*
  33.      There are 16 public Video Attribute Registers:  vid[0] ... vid[15]
  34.  
  35.      The Clairol routine (CLAIROL.OBJ) recognizes four major message
  36.      levels, associated with vid[0], vid[1], vid[2], vid[3].  This is
  37.      the popout window that allows user access to the first four video
  38.      registers (only).
  39.  
  40.      Programmers have access to all 16 registers at all times, using
  41.      the CLAIROL.H header file.
  42.  
  43.      Clairol           VidReg   ^ commands that set the attribute
  44.      -------------------------------------------------------------------
  45.      Normal            vid[0]   wputs("^0"); wputs("^");
  46.      Bold              vid[1]   wputs("^1"); 
  47.      Emphasis          vid[2]   wputs("^2"); 
  48.      Attention!        vid[3]   wputs("^3"); 
  49.  
  50.                        vid[4]   wputs("^4");
  51.                        .
  52.                        .
  53.                        .
  54.                        vid[ 9]  wputs("^9");
  55.                        vid[10]  wputs("^Ω"); keystroke is ALT 234
  56.                        vid[11]  wputs("^δ");      "       ALT 235
  57.                        vid[12]  wputs("^∞");      "       ALT 236
  58.                        vid[13]  wputs("^φ");      "       ALT 237
  59.                        vid[14]  wputs("^ε");      "       ALT 238
  60.                        vid[15]  wputs("^∩");      "       ALT 239
  61.  
  62.  
  63.      The DEFAULT contents of these registers is as follows:
  64.  
  65.      Contents      *Color/Graphics Adapt.   Monochrome Adapter
  66.      -----------------------------------------------------------------
  67.      Normal         brite white on blue     normal
  68.      Bold           brite yellow on black   bright normal
  69.      Emphasis       brite blue on white     reverse
  70.      Attention      blink br. white on red  blinking reverse
  71.  
  72.      vid[ 4]       *red, 4                  underline
  73.      vid[ 5]        magenta, 5              bright underline    
  74.      vid[ 6]        dark yellow, 6          blinking normal
  75.      vid[ 7]        ordinary white, 7       blinking underline
  76.      vid[ 8]        dark grey, 8            blinking bright normal 
  77.      vid[ 9]        brite blue, 9           blinking bright underline
  78.      vid[10]        brite green, 0x0a       normal
  79.      vid[11]        brite cyan, 0x0b        normal
  80.      vid[12]        brite red, 0x0c         normal
  81.      vid[13]        brite magenta, 0x0d     normal
  82.      vid[14]        brite yellow, 0x0e      normal
  83.      vid[15]        brite white, 0x0f       normal
  84.  
  85.      *The default background is black for registers vid[4]..vid[15], and
  86.       blink is off.
  87.  
  88.  *=======================================================================*/
  89.  
  90.  
  91.  
  92. #define LINT_ARGS
  93.  
  94. #include <alloc.h>     /* _fmalloc(), _ffree()  */
  95. #include <conio.h>      /* direct console: putch(), getch(), etc */
  96.  
  97. #include "ciao.h"
  98.  
  99. /* these defines are for ciao.c alone; they are local, not for ciao.h
  100. */
  101.  
  102.  
  103. #define SCRLIM 4000                         /* 80x25 chars & attrs in screen */
  104. #define TOPX 0                              /* 80x25 screen margin defaults  */
  105. #define TOPY 0
  106. #define BTMX 79
  107. #define BTMY 24
  108. #define GOXY (2*(col+(row*80)))             /* yields absolute screen address */
  109. #define SPC ' '                             /* blank char, for clreol(), etc. */
  110.  
  111. /* monochrome monitor attributes :----------------*/
  112.  
  113. #define INV '\000'   /* invisible                 */
  114. #define UNL '\001'   /* underline                 */
  115. #define NRM '\007'   /* normal                    */
  116. #define BRU '\011'   /* bright underline          */
  117. #define BRN '\017'   /* bright normal             */
  118. #define RVR '\160'   /* reverse                   */
  119. #define BLU '\201'   /* blinking underline        */
  120. #define BLN '\207'   /* blinking normal           */
  121. #define BBU '\211'   /* blinking bright underline */
  122. #define BBN '\217'   /* blinking bright normal    */
  123. #define BLR '\360'   /* blinking reverse          */
  124.  
  125.  
  126. /*
  127. ** globals
  128. */
  129.  
  130.  
  131. int vid[16] =  /* vid_init() changes this table if cga */
  132. {
  133.     NRM, BRN, RVR, BLR, 
  134.     UNL, BRU, BLN, BLU, 
  135.     BBN, BBU, NRM, NRM,
  136.     NRM, NRM, NRM, NRM
  137. };
  138.  
  139. int vid_mode = 7;                  /* monochrome is default */
  140. int rasterh  = 12, rasterl  = 13;  /* monochrome cursor default raster lines */
  141.  
  142.  
  143. /*
  144. ** locals
  145. */
  146.  
  147. static int Initialized = 0;        /* are all the critical pointers set? */ 
  148.  
  149. static union REGS old_vid;
  150.  
  151. static int vid_seg  = 0xB000,      /* monochrome screen RAM base address */
  152.            vid_attr = 7,           /* HEAVILY USED HEREIN */
  153.            vid_page = 0,           /* "active" page is default (unused?) */ 
  154.            vid_wide = 80;          /* unused */
  155.  
  156. static char far *scribble;         /* transfer depot for RAM read/write */
  157. static char far *hidescreen;       /* pointer to invisible screen buffer */
  158.  
  159. static int activescreen = 0xB000, 
  160.            row = 0,
  161.            col = 0; 
  162.  
  163. static union REGS xy;              /* holds machine cursor address for set */
  164.  
  165. static int synchronized = 1;       /* default to hard & soft cursors alike */
  166.  
  167. static int lm = TOPX,
  168.            rm = BTMX,
  169.            tm = TOPY,
  170.            bm = BTMY;              /* default window margins */
  171.  
  172.  
  173.  
  174. /* H_pfill().  Pattern fill routine, hardwired to active screen, scribble.
  175. **
  176. ** Called by rptchar(), scrollup(), scrolldn().  Use with discretion
  177. ** because there is NO error checking!
  178. **
  179. ** Assumes scribble is already set, plus any number of other hardwired
  180. ** characteristics.  Generalizing this for any size of pattern source buffer
  181. ** and any size of destination fill buffer might be useful.
  182. **
  183. ** Movedata is very efficient.  I suspect it just sets up registers and
  184. ** then executes a single 8086 machine instruction to do the block move.  
  185. ** The result is instantaneous, at least to the proverbial naked orb.
  186. */
  187.  
  188. static void H_pfill( base, cnt ) int base, cnt;  
  189. {
  190.      static int width = 2;  /* hardwired pattern (scribble) size */
  191.  
  192.      cnt *= width;    /* translate number of pattern objects 
  193.                       ** to number of destination bytes 
  194.                       */
  195.  
  196.      /* SET PATTERN IN DEST BUFFER:  Write pattern at least once.
  197.      */
  198.      movedata( FP_SEG(scribble), FP_OFF(scribble), /* from */ 
  199.                activescreen, base,                 /* to   */
  200.                width);
  201.  
  202.      cnt -= width;                           /* one object already moved */
  203.      if (cnt > 0)                            /* shall we continue? */
  204.      {
  205.         /* ULTRAFAST PATTERN FILL:  A source byte moved to the destination
  206.         ** on iteration N extends the source pattern for iteration N+1.
  207.         */
  208.         movedata( activescreen, base,           /* srce (!)  */
  209.                   activescreen, base + width,   /* dest (!!) */
  210.                   cnt);
  211.      }
  212. }
  213.  
  214. static void set