home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / GEGA.PRO < prev    next >
Encoding:
Prolog Source  |  1987-03-23  |  888 b   |  30 lines
  1. /***************************************************************
  2.      Turbo Prolog Toolbox
  3.      (C) Copyright 1987 Borland International.
  4. ***************************************************************/
  5.  
  6. predicates
  7.   setEGApalette(integerlist)
  8.   putinlist(integerlist,integer,integer)
  9.   setEGAregister(integer,integer)
  10. clauses
  11.   setEGApalette(L):-
  12.       X="012345678901234567",
  13.       ptr_dword(X,Segment,Offset),
  14.       putinlist(L,Segment,Offset),
  15.     bios($10,reg($1002,0,0,Offset,0,0,0,Segment),_).
  16.  
  17.   putinlist([],_,_):-!.
  18.   putinlist([Byte|T],Segment,Offset):-
  19.       membyte(Segment,Offset,Byte),
  20.       Offset2=Offset+1,
  21.     putinlist(T,Segment,Offset2).
  22.  
  23.   setEGAregister(16,Color):-!,/* EGA Reg16 defines border color*/
  24.     BX=Color*256,
  25.       bios($10,reg($1001,BX,0,0,0,0,0,0),_).
  26.  
  27.   setEGAregister(RegNo,Color):-
  28.     BX=Color*256+Regno,
  29.       bios($10,reg($1000,BX,0,0,0,0,0,0),_).
  30.