home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CONTRSRC.ZIP / SRC / TFLTDV.C < prev    next >
Encoding:
C/C++ Source or Header  |  1994-11-20  |  20.9 KB  |  708 lines
  1. /*      TFL-TDV Wired Party 94 Contribution
  2.  *
  3.  * This demo uses the MIDAS Sound System and the PDFIK data file maker
  4.  * Greetz go to the autors of these kool libs ....
  5.  *
  6.  * Copyright 1994 TFL-TDV Crew
  7.  *
  8.  * nb: TFL means -= The FLamoots =-
  9.  *     TDV means -= The Dark Vision =-
  10.  *
  11.  * call our WHQ: -= Pleasure Access BBS =- +32-2-3461996 SysOp: Green Kawa
  12.  * 
  13.  * contact Type One : llardin@is2.vub.ac.be
  14.  * contact MorFlame : 100346.535@compuserve.com
  15.  *
  16.  * C Main written by Type One :-)
  17. */
  18.  
  19. #include <stdio.h>
  20. #include <stdlib.h>
  21. #include <string.h>
  22. #include <conio.h>
  23. #include <process.h>
  24. #include "midas.h"
  25.  
  26. #define false 0
  27. #define true 1
  28. typedef struct {                        /* define type used for buffering */ 
  29.         int base;
  30.         int flag;
  31. } screen;                                
  32.  
  33. screen          page1,page2,page3;                    /* 3 entities */
  34. screen          *StartAdr,*WorkAdr,*NextAdr,*SwapTmp; /* 3 pointers */
  35. int             Triple;                 /* triple buffering flag */
  36.  
  37. int MichFlag ;
  38.  
  39. ushort          scrSync;                /* screen synchronization value */
  40. unsigned char   OldMode;                /* Old GFX Mode */
  41. unsigned char   Panning;                /* Panning value */
  42. unsigned char   RealPan;                /* effective Panning value */
  43. int             RealAdr;                /* effective screen Start adr. */
  44. int             FlipOfs;                /* flipping adr. */
  45. int             ShiftOfs;               /* Scroll offset */
  46. unsigned char   FlipPan;                /* flipping panning */
  47. unsigned char   VBFlag;                 /* Flag */
  48. int             LineCounter = 0;
  49.  
  50. /************ DataBase parameters *************/
  51. long            OfsinDta=0; /*67874; */         /* offset in DataBase (32 bits) */
  52. char            Datafile[]="tfltdv.dat"; /*"tfltdv.exe";*/ /* name of DataBase */
  53.  
  54. char            ModName[]="darkflam.mod";
  55. char            Docu[] =
  56. "Usage:\tCONTRAST\t[options]\n\n"
  57. "Options:\n"
  58. "\t-sx\tForce Sound Device x (1 = GUS, 2 = PAS, 3 = WSS, 4 = SB,\n"
  59. "\t\t5 = No Sound)\n"
  60. "\t-pxxx\tForce I/O port xxx (hex) for Sound Device\n"
  61. "\t-ix\tForce IRQ x for Sound Device\n"
  62. "\t-dx\tForce DMA channel x for Sound Device\n"
  63. "\t-mxxxxx\tSet mixing rate to xxxxx Hz\n"
  64. "\t-e\tDisable EMS usage\n"
  65. "\t-t\tDisable ProTracker BPM tempos\n"
  66. "\t-u\tEnable Surround\n"
  67. "\t-oxxx\tForce output mode (8 = 8-bit, 1 = 16-bit, s = stereo, m = mono\n"
  68. "\t     \t                   h, n, l = high / normal / low quality)\n"
  69. "\t-wx\t7-Mode parameters (0 = No VGA compatible, 1 = VGA compatible)\n"
  70. "\t-gxx\tnumber of the starting part (1-17)\n";
  71.  
  72.  
  73. char            EndText[] =
  74. "You have watched -= CONTRAST =-, our contribution to the WIRED Party 94 \n\n"
  75. "It wouldn't be possible without the work of the following guyz : \n"
  76. "MorFlame, Type One, Bismark, Sam, Fred, Zoltan, Gopi, Green Kawa, Karma \n"
  77. "Special thxx to Youvi for his Robot pic, to Aldo for the OVNI scan :-), \n"
  78. "to NikoPol & NemRod/Channel38 for the 3D objects and for coding ideas !!!!! \n\n"
  79. "If ya want to contact the TFL-TDV crew, just post your mail to : \n"
  80. "llardin@is2.vub.ac.be (Type One) or 100346.535@compuserve.com (MorFlame) \n\n"
  81. "on BBS just try: STARPORT BBS (mail to Type One) \n"
  82. "                              (mail to MorFlame) \n"
  83. "                 GENESIS BBS  (mail to Type One) \n"
  84. "                              (mail to MorFlame) \n"
  85. "                 PA BBS       (mail to Type One) \n"
  86. "                              (mail to MorFlame TDV) \n\n"
  87. "You can reach us via Pleasure Access BBS (our WHQ): +32-2-3461996 \n\n"
  88. "If ya haven't any Net access, just use the Snail Mail : \n"
  89. "Laurent Lardinois (Type One) , 271 ch. de St Job 1180 Bruxelles - Belgium\n";
  90.  
  91. uchar           vol;
  92. char            oldPIC;                 /* save default int Mask */
  93.  
  94. /****************************************************************************\
  95. *
  96. * Some globals and externals demos vars/proc
  97. *
  98. \****************************************************************************/
  99.  
  100. int             SyncFlag;               /* Synchro bit */
  101. int             FrameCounter;           /* screen synchro WORD */
  102. int             ExitDemo;               /* exit demo FLAG */
  103. int             SpaceBar;               /* Space Bar flag */
  104. int             CPUtime;                /* CPU time FLAG */
  105. int             FadeON;                 /* set _TmpPal flag !!! */
  106. int             VGAcompatible;          /* VGA-compatible flag !!! */
  107. unsigned int    NumPart;                /* Num of Part */ 
  108. extern          char TmpPal;            /* tmp-pal */
  109.  
  110. extern ModulePlayer *MP;                /* current modplayer */
  111. mpInformation       ReplayInfo;         /* playing infos */
  112.  
  113.  
  114. /* Prototypes */
  115.  
  116. extern          void DoSinusTbl(void);  /* calculate a sinus table */
  117. extern          void Amorce(void);      /* init random generator */
  118. extern          int  GetRandom(void);   /* randomizer */
  119. extern          void MCH_Detect(void);  /* VGA+386 Detection */
  120. extern          void WaitVBL(void);     /* Wait VR */
  121.  
  122. /************** Zake by Fred ***************/
  123.  
  124. /* Rotative Zoomer - Type One / GFX: Type One */
  125. extern          void StartZoom(int debpos,int debrow,int finpos,int finrow);  
  126.  
  127. /* bitmap Distorter - Type One / GFX: Zoltan */
  128. extern          void StartDistort(int debpos,int debrow,int finpos,int finrow);
  129.  
  130. /* single Plasma - Type One / GFX: Type One */
  131. extern          void StartPlasma(int debpos,int debrow,int finpos,int finrow);
  132.  
  133. /* double Plasma - Type One / GFX: Type One */
  134. extern          void StartDouble(int debpos,int debrow,int finpos,int finrow);
  135.  
  136. /* bitmap Transformation - Type One / GFX: Zoltan */
  137. extern          void StartTransf(int debpos,int debrow,int finpos,int finrow); 
  138.  
  139. /* Multi-fire - Type One */
  140. extern          void StartMulFire(int debpos,int debrow,int finpos,int finrow);
  141.  
  142. /* IceBerg - Waves effect - Type One / GFX: Zoltan */
  143. extern          void StartIce(int debpos,int debrow,int finpos,int finrow);
  144.  
  145. /* Ik heb een OVNI gezien !!! - Type One / Scan: Aldo */
  146. extern          void StartSnul(int debpos,int debrow,int finpos,int finrow); 
  147.  
  148. /* Contrast Title - Type One / GFX: Zoltan & Fred */
  149. extern          void StartTitle(int debpos,int debrow,int finpos,int finrow);
  150.  
  151. /* Elephant - Fred */
  152. extern          void StartEleph(int debpos,int debrow,int finpos,int finrow);
  153.  
  154. /* Snake - Fred */
  155. extern          void StartSnake(int debpos,int debrow,int finpos,int finrow);
  156.  
  157. /* Sam 's Part */
  158. extern          void MyPart (int debpos,int debrow,int finpos,int finrow);
  159.  
  160. /* StarWars scroller - Bismarck */
  161. extern          void StartStar(int debpos,int debrow,int finpos,int finrow);
  162.  
  163.  
  164. /* Shade lines - Bismarck */
  165. extern          void StartShade(int debpos,int debrow,int finpos, int finrow);
  166.    
  167. /* Doom Mapping - Morflame / GFX: Zoltan */
  168. extern          void Morflame1(int debpos,int debrow,int finpos,int finrow);
  169.  
  170. /* eyes effects - Karma */
  171. extern          void KARMA(int debpos,int debrow,int finpos,int finrow); 
  172.  
  173. /* 3D dots objects - morphing - Gopi */
  174. extern          void GOPI(int debpos,int debrow,int finpos,int finrow); 
  175.  
  176. extern          void PutWarning(void);       /* Only-ASM - Type One */
  177. extern          void EndWarning(void);       /* Fade it ... - Type One */
  178. extern          void PutANSI(void);          /* Put ANSI PA BBS - Type One */
  179.  
  180. void preVR(void);
  181. void immVR(void);
  182. void inVR(void);
  183. void brol(void);
  184.  
  185. /****************************************************************************\
  186. *
  187. *  Main Code : just detect the HardWare, set the delays and call the ASM parts
  188. *
  189. \****************************************************************************/
  190.  
  191. int main(int argc, char *argv[])
  192. {
  193.     mpModule    *mod;  /* on y trouve le master volume !!! */
  194.     int         error,i;
  195.     char        *p;
  196.  
  197.     /* argv[0] is the program name , the
  198.        rest are options which MIDAS should handle */
  199.  
  200.     if (!strcmp(argv[1],"/?")) { 
  201.        puts(Docu); 
  202.        exit(EXIT_SUCCESS);
  203.     } 
  204.  
  205.     NumPart = 1;        /* Part 1 by default */
  206.     p = argv[0];
  207.     for(i = 1; (i < argc) && p; i++) {
  208.        for(p = argv[i]; (*p) && (*p != 'g'); p++); /* scan for GOTO parameter */
  209.        if (*p) {
  210.           sscanf((p+1),"%u", &NumPart);
  211.           p = NULL;
  212.        }
  213.     }
  214.     if ( (NumPart >17) || (NumPart == 0) ) {    /* exit if wrong param */
  215.        exit(EXIT_SUCCESS);
  216.     }
  217.  
  218.     VGAcompatible = 0;  /* No VGA-compatible by default */ 
  219.     p = argv[0];
  220.     for(i = 1; (i < argc) && p; i++) {
  221.        for(p = argv[i]; (*p) && (*p != 'w'); p++); /* scan for 7-mode parameters */
  222.        if (*p) {
  223.           if (*(p+1) == '1') VGAcompatible = 1;
  224.           p = NULL;
  225.        }
  226.     }
  227.  
  228.     MCH_Detect();  /* Check if we have the right CPU/GFX else Exit ... */
  229.  
  230.  
  231.     asm {
  232.         mov ah,0fh /* Save the current Video mode */
  233.         int 10h
  234.         mov OldMode,al
  235.         mov ax,13h  /* Set standard mode 13h 320x200x256 chained */ 
  236.         int 10h    
  237.     }    
  238.  
  239.  
  240.  
  241. /*****************************************************************************\
  242. * 
  243. *   Precalculations ......
  244. *
  245. \*****************************************************************************/
  246.  
  247.     PutWarning();     /* put G.Lagaffe on the screen */
  248.     Amorce();         /* Init Random number generator */
  249.     DoSinusTbl();     /* calculate 1024 sinus*256 (WORD) */
  250.  
  251.     Panning = 0;      /* Default */
  252.     ShiftOfs = 0;
  253.     RealPan = 0;
  254.     RealAdr = 0;
  255.     VBFlag = 0;
  256.     FlipOfs = 0;
  257.     FlipPan = 0;
  258.     StartAdr = &page1;
  259.     WorkAdr = &page2;
  260.     NextAdr = &page3;
  261.     StartAdr->flag = false;
  262.     StartAdr->base = 0;
  263.     WorkAdr->flag = false;
  264.     NextAdr->flag = false;  
  265.     Triple = false;
  266.     FadeON = false;
  267.  
  268.     MichFlag = false ;
  269.  
  270. /*****************************************************************************\
  271. *
  272. *   MIDAS settings ....
  273. *
  274. \*****************************************************************************/
  275.  
  276.     /* get Timer screen synchronization value: */
  277.     if ( (error = tmrGetScrSync(&scrSync)) != OK )
  278.         midasError(errorMsg[error]);
  279.  
  280.     midasSetDefaults();                 /* set MIDAS defaults */
  281.     midasParseEnvironment();            /* parse MIDAS environment string */
  282.     midasParseOptions(argc-1, &argv[1]);    /* let MIDAS parse all options */
  283.     midasInit();                        /* initialize MIDAS Sound System */
  284.     mod = midasPlayModule(ModName, 0);  /* load module and start playing */
  285.  
  286.     /* Synchronize Timer to screen. preVR() will be called before
  287.        Vertical Retrace, immVR() just after Vertical Retrace starts and
  288.        inVR() some time later during Vertical Retrace. */
  289.  
  290.     FrameCounter = 0;  /* start counter */
  291.     SyncFlag = 0;
  292.     if ( (error = tmrSyncScr(scrSync, &preVR, &immVR, &inVR)) != OK )
  293.         midasError(errorMsg[error]);
  294.  
  295. /****************************************************************************\
  296. *
  297. * DEMO-Manager : just call the different Pure-ASM parts of the demo !!!!   
  298. *
  299. \****************************************************************************/
  300.  
  301.     asm {
  302.         cli
  303.         in  al,021h /* get int mask */
  304.         mov oldPIC,al
  305.         or  al,02h  /* mask keyboard int **/
  306.         out 021h,al
  307.         sti 
  308.     }
  309.  
  310.     /* Fade Off G.Lagaffe */
  311.     EndWarning();
  312.  
  313.      
  314.     SpaceBar = 0; /* Don't skip the screen by default */
  315.     if (NumPart > 1) SpaceBar = 1; /* skip if we want it !!! */
  316.     
  317.     ExitDemo = 0; /* Don't exit the demo by default !!!! :-) */
  318.     CPUtime = 0;  /* Don't show CPU time by default ... */
  319.  
  320.     /* allocate some mem for player infos (4 voices) */
  321.     ReplayInfo.chans = (mpChanInfo *)malloc(4*sizeof(mpChanInfo));
  322.  
  323.  
  324.     /* Bismarck's SHADELINES */
  325.     if (NumPart == 1) {
  326.        if (SpaceBar) MP->SetPosition(0x00);
  327.        SpaceBar = 0;
  328.        if (!ExitDemo) StartShade(0x00,0x00,0x00,0x02);  
  329.        NumPart++;
  330.     }
  331.  
  332.     /* CONTRAST title */
  333.     if (NumPart == 2) { 
  334.        if (SpaceBar) MP->SetPosition(0x03);
  335.        SpaceBar = 0;
  336.        if (!ExitDemo) StartTitle(0x03,0x03,0x04,0x3c); 
  337.        NumPart++;
  338.     }
  339.  
  340.     /* Do the multi-fire effect */
  341.     if (NumPart == 3) {
  342.        if (SpaceBar) MP->SetPosition(0x05);
  343.        SpaceBar = 0;
  344.        if (!ExitDemo)
  345.        {
  346.           FlipOfs = 80;       /* alternate 80 bytes between each VBL */
  347.           FlipPan = 2;        /* alternate 1 pix between each VBL */
  348.           StartMulFire(0x05,0x1a,0x07,0x2e);  /* Type One's fast+small code */
  349.           FlipPan = 0;
  350.           FlipOfs = 0;         
  351.        }
  352.        NumPart++;
  353.     }
  354.  
  355.     /* Do the rotative Zoom !!!!! */
  356.     if (NumPart == 4) {
  357.        if (SpaceBar) MP->SetPosition(0x09);
  358.        SpaceBar = 0;
  359.        if (!ExitDemo) StartZoom(0x08,0x13,0x11,0x29); /* Type One's fast+small code */
  360.        NumPart++;
  361.     }
  362.  
  363.     /* Do the bitmap Distort !!!! */
  364.     if (NumPart == 5) { 
  365.        if (SpaceBar) MP->SetPosition(0x12);
  366.        SpaceBar = 0;
  367.        if (!ExitDemo) StartDistort(0x12,0x00,0x15,0x30); /* Type One's fast+small code */
  368.        NumPart++;
  369.     }
  370.  
  371.     /* Do the double Plasma !!!! */
  372.     if (NumPart == 6) {
  373.        if (SpaceBar) MP->SetPosition(0x16);
  374.        SpaceBar = 0;
  375.        if (!ExitDemo)
  376.        { 
  377.           FlipOfs=80;                  /* alternate 80 bytes between each VBL */
  378.           StartDouble(0x16,0x00,0x18,0x10); /* Type One's fast+small code */
  379.           FlipOfs=0;
  380.        }
  381.        NumPart++;
  382.     }
  383.  
  384.     /* Sam's Unlimited bobs */
  385.     if (NumPart == 7) {
  386.        if (SpaceBar) MP->SetPosition(0x18);
  387.        SpaceBar = 0;
  388.        if (!ExitDemo) MyPart (0x18,0x3a,0x1e,0x19) ;
  389.        NumPart++;
  390.     }
  391.  
  392.     /* Put the Elephant pic */
  393.     if (NumPart == 8) {
  394.        if (SpaceBar) MP->SetPosition(0x1f);
  395.        SpaceBar = 0;
  396.        if (!ExitDemo) StartEleph(0x1f,0x14,0x20,0x40);
  397.        NumPart++;
  398.     }
  399.  
  400.     /* Gopi's Dots objects */
  401.     if (NumPart == 9) {
  402.        if (SpaceBar) MP->SetPosition(0x21);
  403.        SpaceBar = 0;
  404.        if (!ExitDemo) GOPI(0x20,0x56,0x26,0x00);
  405.        NumPart++;
  406.     }
  407.  
  408.     /* Do the IceBerg (= Waves) effect !!!! */
  409.     if (NumPart == 10) {
  410.        if (SpaceBar) MP->SetPosition(0x28);
  411.        SpaceBar = 0;
  412.        if (!ExitDemo) StartIce(0x28,0x00,0x40,0x30); /* Type One's incredible code */
  413.        NumPart++;
  414.     }
  415.  
  416.     /* Morflame's Doom mapping */
  417.     if (NumPart == 11) {
  418.        if (SpaceBar) MP->SetPosition(0x42);
  419.        SpaceBar = 0;
  420.        if (!ExitDemo) Morflame1(0x42,0x00,0x48,0x18);
  421.        NumPart++;
  422.     }
  423.  
  424.     /* Do the Snul Flash !!!! */
  425.     if (NumPart == 12) {
  426.        if (SpaceBar) MP->SetPosition(0x48);
  427.        SpaceBar = 0;
  428.        if (!ExitDemo) StartSnul(0x48,0x28,0x4a,0x04); /* Type One's ridiculous code */
  429.        NumPart++;
  430.     }
  431.  
  432.     /* Do the single Plasma !!!! */
  433.     if (NumPart == 13) {
  434.        if (SpaceBar) MP->SetPosition(0x4a);
  435.        SpaceBar = 0;
  436.        if (!ExitDemo) StartPlasma(0x4a,0x24,0x4c,0x24); /* Type One's fast+small code */
  437.        NumPart++;
  438.     } 
  439.  
  440.     /* Do the bitmap Transformation !!!! */
  441.     if (NumPart == 14) {
  442.        if (SpaceBar) MP->SetPosition(0x4d);
  443.        SpaceBar = 0;
  444.        if (!ExitDemo) StartTransf(0x4d,0x02,0x4f,0x0c); /* Type One's fast+small code */
  445.        NumPart++;
  446.     }   
  447.  
  448.     /* Karma's eyes effects ... */
  449.     if (NumPart == 15) {
  450.        if (SpaceBar) MP->SetPosition(0x50);
  451.        SpaceBar = 0;
  452.        if (!ExitDemo) KARMA(0x4f,0x30,0x52,0x12); 
  453.        NumPart++;
  454.     } 
  455.  
  456.     /* Put the Snake pic */
  457.     if (NumPart == 16) {
  458.        if (SpaceBar) MP->SetPosition(0x53);
  459.        SpaceBar = 0;
  460.        if (!ExitDemo) StartSnake(0x52,0x36,0x53,0x3f);
  461.        NumPart++;
  462.     }
  463.  
  464.     /* Bismarck's StarWar scroller */
  465.     if (NumPart == 17) {
  466.        if (SpaceBar) MP->SetPosition(0x55);
  467.        SpaceBar = 0;
  468.        if (!ExitDemo) StartStar(0x55,0x00,0xff,0x00); /* Bismarck's StarWar scroller */
  469.        NumPart++;
  470.     }
  471.  
  472.     /* Clear Screen in case of .... */
  473.     asm {
  474.         push es
  475.         push di
  476.         push dx
  477.         push cx
  478.         push ax 
  479.         mov  dx,3c4h
  480.         mov  ax,0f02h
  481.         out  dx,ax
  482.         mov  ax,0a000h
  483.         mov  es,ax
  484.         xor  di,di
  485.         cld
  486.         xor  ax,ax
  487.         mov  cx,32768  /* lame 286 asm :-( */
  488.         rep  stosw
  489.  
  490.         push ds
  491.         pop  es
  492.         xor  ax,ax     /* Black Pal ! */
  493.         mov  di,OFFSET TmpPal
  494.         mov  cx,384
  495.         rep  stosw
  496.  
  497.         push si
  498.         mov  dx,3c8h
  499.         xor  al,al
  500.         out  dx,al
  501.         inc  dl
  502.         mov  si,OFFSET TmpPal
  503.         mov  cx,768
  504.         rep  outsb
  505.         pop  si
  506.  
  507.         pop  ax
  508.         pop  cx
  509.         pop  dx
  510.         pop  di
  511.         pop  es
  512.     }
  513.     
  514.     /* Fade master volume */
  515.     for( vol = (mod->masterVol); vol > 0; vol --) {
  516.          WaitVBL();
  517.          WaitVBL();
  518.          MP->SetMasterVolume(vol);      
  519.     }
  520.     WaitVBL();
  521.     WaitVBL();
  522.     MP->SetMasterVolume(0);
  523.  
  524.  
  525.  
  526. /****************************************************************************\
  527. * END of Da little demo :-)
  528. \****************************************************************************/
  529.  
  530.     /* stop timer screen synchronization: */
  531.     tmrStopScrSync();   
  532.  
  533.     FlipOfs = 0;
  534.     FlipPan = 0;
  535.     Panning = 8;
  536.     WorkAdr->flag = false;
  537.     StartAdr->base = 0;
  538.     preVR();
  539.     immVR();
  540.  
  541.     midasStopModule(mod);               /* stop playing */
  542.     midasClose();                       /* uninitialize MIDAS */
  543.  
  544.     PutANSI();                          /* Put PA BBS Ansi */
  545.  
  546.     asm {                               /* back to TEXT mode ! */
  547.         cli
  548.         mov al,oldPIC /* restore default int Mask */
  549.         out 021h,al
  550.         sti
  551.         xor ah,ah
  552.         mov al,OldMode
  553.         int 10h
  554.     } 
  555.  
  556.     puts(EndText);                      /* Contact us !!! */
  557.  
  558.     return 0;
  559. }
  560.  
  561.  
  562. /****************************************************************************\
  563. *
  564. * Function:     void preVR(void)
  565. *
  566. * Description:  Function that is called before Vertical Retrace. Sets the
  567. *               new screen start address
  568. *
  569. \****************************************************************************/
  570.  
  571. void preVR(void)
  572. {
  573.  
  574. /*  asm {
  575.     push ax
  576.     push dx
  577.     mov  dx,3c8h
  578.     xor  al,al
  579.     out  dx,al
  580.     inc  dl
  581.     mov  al,63
  582.     out  dx,al
  583.     out  dx,al
  584.     out  dx,al
  585.     pop  dx
  586.     pop  ax
  587.    }
  588. */
  589.  
  590.  
  591.   if (!MichFlag) {
  592.  
  593.     if (WorkAdr->flag) {           /* if working buffer completed */
  594.        SwapTmp = StartAdr;         /* swap the screen buffers */
  595.        StartAdr = WorkAdr;         /* show our new frame */
  596.        WorkAdr->flag = false;      /* back to false */
  597.        if (Triple) {               /* swap with 3rd buf if triple-buffering */
  598.           WorkAdr = NextAdr;
  599.           NextAdr = SwapTmp;
  600.           NextAdr->flag = false;
  601.        }
  602.        else WorkAdr = SwapTmp;
  603.        SyncFlag = 1;               /* turn on synchro bit */
  604.     }
  605.  
  606.     RealAdr = StartAdr->base + ShiftOfs;
  607.     if (VBFlag) RealAdr += FlipOfs;/* Calculate effective adr. */
  608.  
  609.     asm {
  610.       mov dx,3D4h
  611.       mov bx,RealAdr
  612.       mov al,0Ch
  613.       mov ah,bh                    /* MSB of screen start adr. */
  614.       out dx,ax
  615.       inc al
  616.       mov ah,bl                    /* LSB of screen start adr. */
  617.       out dx,ax
  618.     } 
  619.  
  620.   }
  621.  
  622.   FrameCounter++;                /* inc the Video synchro counter */
  623. /*
  624.   asm {
  625.     push ax
  626.     push dx
  627.     mov  dx,3c8h
  628.     xor  al,al
  629.     out  dx,al
  630.     inc  dl
  631.     out  dx,al
  632.     out  dx,al
  633.     out  dx,al
  634.     pop  dx
  635.     pop  ax
  636.    }
  637. */
  638.  
  639.  
  640. }
  641.  
  642.  
  643.  
  644. /****************************************************************************\
  645. *
  646. * Function:     void immVR(void)
  647. *
  648. * Description:  Function that is called immediately when Vertical Retrace
  649. *               starts. Sets the new Horizontal Pixel Panning value
  650. *
  651. \****************************************************************************/
  652.  
  653. void immVR(void)
  654. {
  655.  
  656.    RealPan = Panning;                  /* calculate effective panning val. */
  657.    if (VBFlag) RealPan = (RealPan + FlipPan) & 7;
  658.  
  659.    asm {
  660.      mov dx,3C0h
  661.      mov al,33h                        /* New horizontal panning */
  662.      out dx,al
  663.      inc dl
  664.      in  al,dx
  665.      and al,0f8h                       /* 4 bits used */
  666.      or  al,RealPan
  667.      dec dl
  668.      out dx,al
  669.    }
  670.  
  671.    LineCounter = 0;
  672.  
  673. }
  674.  
  675.  
  676.  
  677.  
  678. /****************************************************************************\
  679. *
  680. * Function:     void inVR(void)
  681. *
  682. * Description:  Function that is called some time during Vertical Retrace.
  683. *               Calculates new Horizontal Pixel Panning and screen start
  684. *               address values
  685. *
  686. \****************************************************************************/
  687.  
  688. void inVR(void)
  689. {
  690.  
  691.   VBFlag ^= 1;                          /* XOR 1 */
  692.  
  693.   if(FadeON) {                          /* set new pal ??? */
  694.     asm {
  695.       mov si,OFFSET TmpPal
  696.       mov dx,3c8h
  697.       xor al,al
  698.       out dx,al 
  699.       inc dl
  700.       mov cx,768
  701.       rep outsb
  702.     }
  703.   }
  704.  
  705. }
  706.  
  707.  
  708.