SVGA

 BBS: Inland Empire Archive
Date: 11-11-92 (17:11)             Number: 389
From: MATT HART                    Refer#: NONE
  To: ERIC B. FORD                  Recvd: NO  
Subj: SVGA                           Conf: (2) Quik_Bas

 EBF> Using those BIOS calls and stuff to access SVGA you posted a
 EBF> while back, how do I change the pallette?  Thanks.

    DEFINT A-Z
    TYPE RegTypeX
        ax    AS INTEGER
        bx    AS INTEGER
        cx    AS INTEGER
        dx    AS INTEGER
        bp    AS INTEGER
        si    AS INTEGER
        di    AS INTEGER
        flags AS INTEGER
        ds    AS INTEGER
        es    AS INTEGER
    END TYPE

    PalNum = 1 : PalColor = 2
    Call TandyPalette (PalNum,PalColor)

SUB TandyPalette (P,C)
    DIM InRegs as RegTypeX
    InRegs.AX = &H0B00
    InRegs.BX = P*256 + C
    CALL InterruptX (&H10, InRegs, InRegs)
END SUB

---
 * Origin: Midnight Micro!  V.32/REL  (918)451-3306 (1:170/600)