home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / frasr192.exe / TPLUS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1994-11-28  |  11.9 KB  |  501 lines
  1. /* TPLUS.C, (C) 1991 The Yankee Programmer
  2.    All Rights Reserved.
  3.  
  4.    This code may be distributed only when bundled with the Fractint
  5.    source code.
  6.  
  7.    Mark C. Peterson
  8.    The Yankee Programmer
  9.    405-C Queen Street, Suite #181
  10.    Southington, CT 06489
  11.    (203) 276-9721
  12.  
  13. */
  14.  
  15. #include <stdio.h>
  16. #ifndef XFRACT
  17. #include <conio.h>
  18. #include <string.h>
  19. #include <dos.h>
  20.  
  21. /* #include "port.h" */ /* in prototyp.h */
  22. #else
  23. #include "fractint.h"
  24. #endif
  25. #include "prototyp.h"
  26. #include "tplus.h"
  27.  
  28. struct TPWrite far WriteOffsets = {
  29.       0,       1,    2,     3,      0x400,   0x401,      0x402,
  30.       0x403,   0x800,    0x801,     0x802,   0x803,   0xc00,      0xc01,
  31.       0xc02,   0xc03
  32. };
  33.  
  34. struct TPRead far ReadOffsets = {
  35.       0,        2,     3,      0x400,   0x401,      0x402,
  36.       0x403,   0x800,    0x801,     0x802,   0x803,   0xc00,      0xc01,
  37.       0xc02,   0xc03
  38. };
  39.  
  40. struct _BOARD far TPlus;
  41. int TPlusErr = 0;
  42.  
  43. #ifndef XFRACT
  44.  
  45. void WriteTPWord(unsigned Register, unsigned Number) {
  46.    OUTPORTB(TPlus.Write.INDIRECT, Register);
  47.    OUTPORTW(TPlus.Write.WBL, Number);
  48. }
  49.  
  50. void WriteTPByte(unsigned Register, unsigned Number) {
  51.    OUTPORTB(TPlus.Write.INDIRECT, Register);
  52.    OUTPORTB(TPlus.Write.WBL, Number);
  53. }
  54.  
  55. unsigned ReadTPWord(unsigned Register) {
  56.    OUTPORTB(TPlus.Write.INDIRECT, Register);
  57.    return(INPORTW(TPlus.Read.RBL));
  58. }
  59.  
  60. BYTE ReadTPByte(unsigned Register) {
  61.    OUTPORTB(TPlus.Write.INDIRECT, Register);
  62.    return((BYTE)INPORTB(TPlus.Read.RBL));
  63. }
  64.  
  65. void DisableMemory(void) {
  66.    unsigned Mode1;
  67.  
  68.    Mode1 = INPORTB(TPlus.Read.MODE1);
  69.    Mode1 &= 0xfe;
  70.    OUTPORTB(TPlus.Write.MODE1, Mode1);
  71. }
  72.  
  73. void EnableMemory(void) {
  74.    unsigned Mode1;
  75.  
  76.    Mode1 = INPORTB(TPlus.Read.MODE1);
  77.    Mode1 |= 1;
  78.    OUTPORTB(TPlus.Write.MODE1, Mode1);
  79. }
  80.  
  81. struct TPLUS_IO {
  82.    unsigned Cmd;
  83.    int Initx, Finalx, Inity, Finaly, Destx, Desty;
  84.    unsigned long Color;
  85.    unsigned RegsOffset, RegsSegment, RegListOffset, RegListSegment,
  86.         BoardNumber, StructSize;
  87. } far TPlusIO;
  88.  
  89. /* TARGAP.SYS Commands */
  90. #define READALL    0
  91. #define WRITEALL   0
  92. #define NUMBOARDS  3
  93. #define FILLBLOCK  4
  94. #define GRABFIELD  4
  95. #define RESET       5
  96. #define GRABFRAME  5
  97. #define WAITFORVB  6
  98. #define SETBOARD   8
  99. #define IOBASE       9
  100.  
  101. /* DOS IO Commands */
  102. #define DOS_READ   0x4402
  103. #define DOS_WRITE  0x4403
  104.  
  105. int hTPlus = -1;
  106. unsigned NumTPlus = 0;
  107.  
  108. int TargapSys(int Command, unsigned DOS) {
  109.    struct TPLUS_IO far *IOPtr;
  110.    unsigned far *RegPtr;
  111.    union REGS r;
  112.    struct SREGS s;
  113.  
  114.    if(hTPlus != -1) {
  115.       r.x.ax = DOS;
  116.       r.x.bx = hTPlus;
  117.       r.x.cx = sizeof(TPlusIO);
  118.       IOPtr = &TPlusIO;
  119.       RegPtr = TPlus.Reg;
  120.       r.x.dx = FP_OFF(IOPtr);
  121.       s.ds = FP_SEG(IOPtr);
  122.       TPlusIO.Cmd = Command;
  123.       TPlusIO.StructSize = sizeof(TPlus.Reg);
  124.       TPlusIO.RegsOffset = FP_OFF(RegPtr);
  125.       TPlusIO.RegsSegment = FP_SEG(RegPtr);
  126.       intdosx(&r, &r, &s);
  127.       return(!r.x.cflag);
  128.    }
  129.    return(0);
  130. }
  131.  
  132. int _SetBoard(int BoardNumber) {
  133.    TPlusIO.BoardNumber = BoardNumber;
  134.    return(TargapSys(SETBOARD, DOS_WRITE));
  135. }
  136.  
  137. int TPlusLUT(BYTE far *LUTData, unsigned Index, unsigned Number,
  138.              unsigned DosFlag)
  139. {
  140.    struct TPLUS_IO far *IOPtr;
  141.    union REGS r;
  142.    struct SREGS s;
  143.  
  144.    if(hTPlus != -1) {
  145.       r.x.ax = DosFlag;
  146.       r.x.bx = hTPlus;
  147.       r.x.cx = sizeof(TPlusIO);
  148.       IOPtr = &TPlusIO;
  149.       r.x.dx = FP_OFF(IOPtr);
  150.       s.ds = FP_SEG(IOPtr);
  151.       TPlusIO.Cmd = 9;
  152.       TPlusIO.StructSize = sizeof(TPlus.Reg);
  153.       TPlusIO.RegsOffset = FP_OFF(LUTData);
  154.       TPlusIO.RegsSegment = FP_SEG(LUTData);
  155.       TPlusIO.BoardNumber = Number;
  156.       TPlusIO.RegListOffset = Index;
  157.       intdosx(&r, &r, &s);
  158.       return(!r.x.cflag);
  159.    }
  160.    return(0);
  161. }
  162.  
  163. int SetVGA_LUT(void) {
  164.    char PathName[80];
  165.    FILE *Data = NULL;
  166.    BYTE LUTData[256 * 3];
  167.  
  168.    findpath("tplus.dat", PathName);
  169.    if(PathName[0]) {
  170.       if((Data = fopen(PathName, "rb")) != NULL) {
  171.      if(!fseek(Data, 16L << 8, SEEK_SET)) {
  172.         if(fread(LUTData, 1, sizeof(LUTData), Data) == sizeof(LUTData)) {
  173.            fclose(Data);
  174.            return(TPlusLUT(LUTData, 0, sizeof(LUTData), DOS_WRITE));
  175.         }
  176.      }
  177.       }
  178.    }
  179.    if(Data != NULL)
  180.       fclose(Data);
  181.    return(0);
  182. }
  183.  
  184. int SetColorDepth(int Depth) {
  185.    if(TPlus.Reg[HIRES] && Depth == 4)
  186.       Depth = 2;
  187.    switch(Depth) {
  188.       case 1:
  189.      if(TPlus.Reg[XDOTS] > 512) {
  190.         TPlus.Reg[PERM] = 1;
  191.         TPlus.Reg[BYCAP] = 3;
  192.         TPlus.RowBytes = 10;
  193.      }
  194.      else {
  195.         TPlus.Reg[PERM] = 0;
  196.         TPlus.Reg[BYCAP] = 1;
  197.         TPlus.RowBytes = 9;
  198.      }
  199.      TPlus.Reg[BUFFPORTSRC] = 0;
  200.      TPlus.Reg[CM1] = 0;
  201.      TPlus.Reg[CM2] = 0;
  202.      TPlus.Reg[DEPTH] = 1;
  203.      TPlus.Reg[LIVE8] = 1;
  204.      TPlus.Reg[DISPMODE] = 0;
  205.      TPlus.Reg[LIVEPORTSRC] = 1;
  206.      TPlus.Reg[LUTBYPASS] = 0;
  207.      break;
  208.       case 2:
  209.      if(TPlus.Reg[XDOTS] > 512) {
  210.         TPlus.Reg[PERM] = 3;
  211.         TPlus.Reg[BYCAP] = 15;
  212.         TPlus.Reg[CM2] = 1;
  213.         TPlus.RowBytes = 11;
  214.      }
  215.      else {
  216.         TPlus.Reg[PERM] = 1;
  217.         TPlus.Reg[BYCAP] = 3;
  218.         TPlus.Reg[CM2] = 0;
  219.         TPlus.RowBytes = 10;
  220.      }
  221.      TPlus.Reg[BUFFPORTSRC] = 1;
  222.      TPlus.Reg[CM1] = 0;
  223.      TPlus.Reg[DEPTH] = 2;
  224.      TPlus.Reg[LIVE8] = 0;
  225.      TPlus.Reg[DISPMODE] = 0;
  226.      TPlus.Reg[LIVEPORTSRC] = 1;
  227.      TPlus.Reg[LUTBYPASS] = 1;
  228.      break;
  229.       case 3:
  230.       case 4:
  231.      TPlus.Reg[PERM] = (Depth == 3) ? 2 : 3;
  232.      TPlus.Reg[BYCAP] = 0xf;
  233.      TPlus.Reg[BUFFPORTSRC] = 3;
  234.      TPlus.Reg[CM1] = 1;
  235.      TPlus.Reg[CM2] = 1;
  236.      TPlus.Reg[DEPTH] = 4;
  237.      TPlus.Reg[LIVE8] = 0;
  238.      TPlus.Reg[DISPMODE] = 0;
  239.      TPlus.Reg[LIVEPORTSRC] = 1;
  240.      TPlus.Reg[LUTBYPASS] = 1;
  241.      TPlus.RowBytes = 11;
  242.      break;
  243.       default:
  244.      return(0);
  245.    }
  246.    TPlus.Plot = WriteTPlusBankedPixel;
  247.    TPlus.GetColor = ReadTPlusBankedPixel;
  248.    TPlus.Reg[LIVEMIXSRC] = 0;
  249.    TPlus.Reg[CM3] = 1;
  250.    TPlus.RowsPerBank = 16 - TPlus.RowBytes;
  251.    if(TargapSys(WRITEALL, DOS_WRITE)) {
  252.       if(Depth == 1)
  253.      SetVGA_LUT();
  254.       if(TPlus.ClearScreen)
  255.      ClearTPlusScreen();
  256.       TargapSys(READALL, DOS_READ);
  257.       return(Depth);
  258.    }
  259.    return(0);
  260. }
  261.  
  262. int SetBoard(int BoardNumber) {
  263.    unsigned ioBase, n;
  264.    unsigned long MemBase;
  265.  
  266.    if(TPlus.ThisBoard != -1)
  267.       DisableMemory();
  268.    if(!_SetBoard(BoardNumber))
  269.       return(0);
  270.    if(!TargapSys(READALL, DOS_READ))
  271.       return(0);
  272.    TPlus.VerPan       = TPlus.Reg[VPAN];
  273.    TPlus.HorPan       = TPlus.Reg[HPAN];
  274.    TPlus.Top          = TPlus.Reg[TOP];
  275.    TPlus.Bottom       = TPlus.Reg[BOT];
  276.    TPlus.Bank64k      = 0xffff;         /* Force a bank switch */
  277.  
  278.    MemBase      = TPlus.Reg[MEM_BASE];
  279.    MemBase += (TPlus.Reg[MEM_MAP] != 3) ? 8 : 0;
  280.    TPlus.Screen = (BYTE far *)(MemBase << 28);
  281.  
  282.    if(!TargapSys(IOBASE, DOS_READ))
  283.       return(0);
  284.    ioBase = TPlusIO.BoardNumber;
  285.    TPlus.Read = ReadOffsets;
  286.    TPlus.Write = WriteOffsets;
  287.    for(n = 0; n < sizeof(TPlus.Read) / sizeof(unsigned); n++)
  288.       ((unsigned far *)&(TPlus.Read))[n] += ioBase;
  289.    for(n = 0; n < sizeof(TPlus.Write) / sizeof(unsigned); n++)
  290.       ((unsigned far *)&(TPlus.Write))[n] += ioBase;
  291.  
  292.    EnableMemory();
  293.    return(1);
  294. }
  295.  
  296. int ResetBoard(int BoardNumber) {
  297.    int CurrBoard, Status = 0;
  298.  
  299.    CurrBoard = TPlus.ThisBoard;
  300.    if(_SetBoard(BoardNumber))
  301.       Status = TargapSys(RESET, DOS_WRITE);
  302.    if(CurrBoard > 0)
  303.       _SetBoard(CurrBoard);
  304.    return(Status);
  305. }
  306.  
  307. #include <fcntl.h>
  308. #include <io.h>
  309.  
  310. int CheckForTPlus(void) {
  311.    unsigned n;
  312.  
  313.    if((hTPlus = open("TARGPLUS", O_RDWR | O_BINARY )) != -1) {
  314.       if(!TargapSys(NUMBOARDS, DOS_READ))
  315.      return(0);
  316.       NumTPlus = TPlusIO.BoardNumber;
  317.       TPlus.ThisBoard = -1;
  318.       TPlus.ClearScreen = 1;
  319.       for(n = 0; n < NumTPlus; n++)
  320.      if(!ResetBoard(n))
  321.         return(0);
  322.       if(SetBoard(0))
  323.      return(1);
  324.    }
  325.    return(0);
  326. }
  327.  
  328. int SetTPlusMode(int Mode, int NotIntFlag, int Depth, int Zoom) {
  329.    unsigned n;
  330.    char PathName[80];
  331.    FILE *Data = NULL;
  332.    unsigned NewRegs[128];
  333.  
  334.    findpath("tplus.dat", PathName);
  335.    if(PathName[0]) {
  336.       if((Data = fopen(PathName, "rb")) != NULL) {
  337.      if(!fseek(Data, (long)Mode << 8, SEEK_SET)) {
  338.         if(fread(NewRegs, 1, 256, Data) == 256) {
  339.            fclose(Data);
  340.            NewRegs[PE] = TPlus.Reg[PE];
  341.            NewRegs[OVLE] = TPlus.Reg[OVLE];
  342.            NewRegs[RGB] = TPlus.Reg[RGB];
  343.            NewRegs[SVIDEO] = TPlus.Reg[SVIDEO];
  344.            NewRegs[DAC567DATA] = TPlus.Reg[DAC567DATA];
  345.            NewRegs[VGASRC] = TPlus.Reg[VGASRC];
  346.            for(n = 0; n < 128; n++)
  347.           TPlus.Reg[n] = NewRegs[n];
  348.            if(TPlus.Reg[VTOP + 1] == 0xffff)
  349.           TPlus.Reg[NOT_INT] = 0;
  350.            else if(TPlus.Reg[VTOP] == 0xffff && !NotIntFlag) {
  351.           TPlusErr = 1;
  352.           return(0);
  353.            }
  354.            else
  355.           TPlus.Reg[NOT_INT] = NotIntFlag;
  356.            TPlus.xdots = TPlus.Reg[XDOTS];
  357.            TPlus.ydots = TPlus.Reg[YDOTS];
  358.            if(Zoom) {
  359.           TPlus.Reg[ZOOM] = Zoom;
  360.           TPlus.xdots >>= Zoom;
  361.           TPlus.ydots >>= Zoom;
  362.            }
  363.            return(SetColorDepth(Depth));
  364.         }
  365.      }
  366.       }
  367.    }
  368.    if(Data != NULL)
  369.       fclose(Data);
  370.    return(0);
  371. }
  372.  
  373. int FillTPlusRegion(unsigned x, unsigned y, unsigned xdots, unsigned ydots,
  374.            unsigned long Color) {
  375.    int Status = 0;
  376.  
  377.    TPlusIO.Initx = x;
  378.    TPlusIO.Inity = TPlus.Reg[YDOTS] - (y + ydots) - 2;
  379.    TPlusIO.Finalx = x + xdots - 1;
  380.    TPlusIO.Finaly = TPlus.Reg[YDOTS] - y - 1;
  381.    TPlusIO.Color = Color;
  382.    Status = TargapSys(FILLBLOCK, DOS_WRITE);
  383.    EnableMemory();
  384.    return(Status);
  385. }
  386.  
  387. void BlankScreen(unsigned long Color) {
  388.    unsigned BufferPort;
  389.  
  390.    OUTPORTW(TPlus.Write.COLOR0, ((unsigned*)&Color)[0]);
  391.    OUTPORTB(TPlus.Write.COLOR2, ((unsigned*)&Color)[1]);
  392.    OUTPORTB(TPlus.Write.COLOR3, 0xff);
  393.    BufferPort = ReadTPByte(0xe9);
  394.    BufferPort |= 3;
  395.    WriteTPByte(0xe9, BufferPort);
  396. }
  397.  
  398. void UnBlankScreen(void) {
  399.    unsigned BufferPort;
  400.  
  401.    BufferPort = ReadTPByte(0xe9);
  402.    BufferPort &= 0xfe;
  403.    WriteTPByte(0xe9, BufferPort);
  404. }
  405.  
  406. void EnableOverlayCapture(void) {
  407.    unsigned Mode2;
  408.  
  409.    Mode2 = INPORTB(TPlus.Read.MODE2);
  410.    Mode2 |= (1 << 6);
  411.    Mode2 &= (0xff ^ (3 << 4));
  412.    Mode2 |= (1 << 5);
  413.    OUTPORTB(TPlus.Write.MODE2, Mode2);
  414. }
  415.  
  416. void DisableOverlayCapture(void) {
  417.    unsigned Mode2;
  418.  
  419.    Mode2 = INPORTB(TPlus.Read.MODE2);
  420.    Mode2 &= (0xff ^ (7 << 4));
  421.    OUTPORTB(TPlus.Write.MODE2, Mode2);
  422. }
  423.  
  424. void ClearTPlusScreen(void) {
  425.    BlankScreen(0L);
  426.    EnableOverlayCapture();
  427.    TargapSys(WAITFORVB, DOS_READ);
  428.    TargapSys(WAITFORVB, DOS_READ);
  429.    TargapSys(WAITFORVB, DOS_READ);
  430.    DisableOverlayCapture();
  431.    UnBlankScreen();
  432. }
  433.  
  434. static struct {
  435.    unsigned xdots, ydots, Template, Zoom, Depth;
  436. } far ModeTable[] = {
  437.    512, 400, 0,  0, 4,
  438.    512, 476, 1,  0, 4,
  439.    512, 486, 2,  0, 4,
  440.    512, 576, 3,  0, 4,
  441.    640, 480, 4,  0, 2,
  442.    648, 486, 5,  0, 2,
  443.    720, 486, 6,  0, 2,
  444.    720, 576, 7,  0, 2,
  445.    756, 486, 8,  0, 2,
  446.    768, 576, 9,  0, 2,
  447.    800, 600, 10, 0, 2,
  448.    1024,768, 11, 0, 2,
  449.    640, 400, 13, 0, 2,
  450.    320, 200, 13, 1, 2,
  451.    512, 496, 14, 0, 4,
  452.    640, 496, 15, 0, 2,
  453. };
  454.  
  455. static unsigned TableSize = (sizeof(ModeTable) / sizeof(ModeTable[0]));
  456.  
  457. int MatchTPlusMode(unsigned xdots, unsigned ydots, unsigned MaxColorRes,
  458.            unsigned PixelZoom, unsigned NonInterlaced) {
  459.    unsigned n, Depth;
  460.  
  461.    for(n = 0; n < TableSize; n++) {
  462.       if(ModeTable[n].xdots == xdots && ModeTable[n].ydots == ydots)
  463.      break;
  464.    }
  465.    if(n < TableSize) {
  466.       if(ModeTable[n].Zoom)
  467.      PixelZoom += ModeTable[n].Zoom;
  468.       if(PixelZoom > 4)
  469.      PixelZoom = 4;
  470.       switch(MaxColorRes) {
  471.      case 24:
  472.         Depth = 4;
  473.         break;
  474.      case 16:
  475.         Depth = 2;
  476.         break;
  477.      case 8:
  478.      default:
  479.         Depth = 1;
  480.         break;
  481.       }
  482.       if(ModeTable[n].Depth < Depth)
  483.      Depth = ModeTable[n].Depth;
  484.       return(SetTPlusMode(ModeTable[n].Template, NonInterlaced, Depth,
  485.          PixelZoom));
  486.    }
  487.    return(0);
  488. }
  489.  
  490. void TPlusZoom(int Zoom) {
  491.    unsigned Mode2;
  492.  
  493.    Zoom &= 3;
  494.    Mode2 = INPORTB(TPlus.Read.MODE2);
  495.    Mode2 &= (0xff ^ (3 << 2));
  496.    Mode2 |= (Zoom << 2);
  497.    OUTPORTB(TPlus.Write.MODE2, Mode2);
  498. }
  499.  
  500. #endif
  501.