home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / PASLIBR.ZIP / FPBIOS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-15  |  8.5 KB  |  228 lines
  1. {------------------------------------------------------------}
  2. {-     FlashPac Pascal Library (Bios Unit) - V3.5        -}
  3. {-    (c) Copyright 1986-1991 - All Rights Reserved        -}
  4. {-                     SimpleSoft Inc                       -}
  5. {-                     1209 Poplar St                       -}
  6. {-                 La Crescent, MN 55947                    -}
  7. {------------------------------------------------------------}
  8.  
  9. Unit FPBios;
  10. Interface
  11. {$B-,F+}
  12. {$IFNDEF VER40}
  13. {D-}
  14. {$ENDIF}
  15.  
  16. {--------------------------------------------------------------------}
  17. Type
  18.    ByteArry17 = Array[1..17] Of Byte;
  19.  
  20. Procedure bvSetMode( Mode, Clear : Integer );
  21. Procedure bvSetCurType( StScan, SpScan : Integer );
  22. Procedure bvSetCurPos( pg, row, col : Integer );
  23.  
  24. Procedure bvGetCurPos(       pg  : Integer;
  25.                Var row : Integer;
  26.                Var col : Integer );
  27.  
  28. Procedure bvGetCurType(     pg       : Integer;
  29.             Var stscan : Integer;
  30.             Var spscan : Integer );
  31.  
  32. Procedure bvSetPage( pg : Integer );
  33.  
  34. Procedure bvScrollUp( top,    left,
  35.               bottom, right,
  36.               lines,  attr : Integer );
  37.  
  38. Procedure bvScrollDn( top,    left,
  39.               bottom, right,
  40.               lines,  attr : Integer );
  41.  
  42. Procedure bvReadCell( Var ch   : Integer;
  43.               Var attr : Integer;
  44.               pg   : Integer );
  45.  
  46. Procedure bvWrtNCell( ch, attr, count, pg : Integer );
  47.  
  48. Procedure bvWrtNChar( ch, count, pg : Integer );
  49. Procedure bvSetState0B( color : Integer );
  50. Procedure bvWrtPix( row, col, pixval, pg : Integer );
  51. Function  bvReadPix( row, col, pg : Integer ) : Integer;
  52. Procedure bvWrtTTYChar( ch, pg, color : Integer );
  53. Procedure bvGetMode( Var mode, cols, pg : Integer );
  54. Procedure bvSetPalReg( color, reg : Integer );
  55. Procedure bvSetBorder( color : Integer );
  56.  
  57. Procedure bvSetPalBorder( list : ByteArry17 );
  58.  
  59. Procedure bvSetBlink( state : Integer );
  60. Function  bvGetPalReg( reg : Integer) : Integer;
  61. Function  bvGetBorder : Integer;
  62.  
  63. Procedure bvGetPalBorder( buf : ByteArry17 );
  64.  
  65. Procedure bvSetColorReg( colorreg : Word;
  66.              green      : Integer;
  67.              blue      : Integer;
  68.              red      : Integer );
  69.  
  70. Procedure bvSetColorRegBlk(    startreg : Word;
  71.                 regcount : Integer;
  72.                 Var colortbl      );
  73.  
  74. Procedure bvSetColorPgMode( pgstate : Integer );
  75. Procedure bvSetColorRegPg( pg : Integer );
  76.  
  77. Procedure bvGetColorReg(     colorreg : Integer;
  78.              Var green    : Integer;
  79.              Var blue     : Integer;
  80.              Var red      : Integer );
  81.  
  82. Procedure bvGetColorRegBlk(    startreg : Word;
  83.                 regcount : Integer;
  84.                 Var colortbl       );
  85.  
  86. Procedure bvGetColorPgMode( Var colorpg : Integer;
  87.                 Var pgmode    : Integer );
  88.  
  89. Procedure bvSetGrayScale( startreg : Word;
  90.               regcount : Integer );
  91.  
  92. Procedure bvLoadUsrFont00(     pts,
  93.                    block    : Integer;
  94.                    chcount,
  95.                    startch    : Word;
  96.                Var fonttbl          );
  97.  
  98. Procedure bvLoadUsrFont10(     pts,
  99.                    block    : Integer;
  100.                    chcount,
  101.                    startch    : Word;
  102.                Var fonttbl          );
  103.  
  104. Procedure bvLoad8x14Font01( block : Integer );
  105. Procedure bvLoad8x14Font11( block : Integer );
  106. Procedure bvLoad8x8Font02( block : Integer );
  107. Procedure bvLoad8x8Font12( block : Integer );
  108.  
  109. Procedure bvSetBlkSpec( block : Integer );
  110.  
  111. Procedure bvLoad8x16Font04( block : Integer );
  112. Procedure bvLoad8x16Font14( block : Integer );
  113.  
  114. Procedure bvSet1FhFontPtr( Var fonttbl         );
  115.  
  116.  
  117. Procedure bvSet43hUsrFont(     rows    : Integer;
  118.                    points  : Word;
  119.                    scnrows : Integer;
  120.                Var fonttbl         );
  121.  
  122. Procedure bvSet43h8x14Font( rows, scnrows : Integer  );
  123. Procedure bvSet43h8x8Font( rows, scnrows : Integer );
  124. Procedure bvSet43h8x16Font( rows, scnrows : Integer );
  125.  
  126. Procedure bvGetFontInfo(     fontcode : Integer;
  127.              Var points   : Word;
  128.              Var scnrows  : Integer;
  129.              Var fonttbl         );
  130.  
  131. Procedure bvGetConfigInfo( Var dsptype : Integer;
  132.                Var egamem  : Integer;
  133.                Var fbits   : Integer;
  134.                Var swset   : Integer );
  135.  
  136. Procedure bvSetAltPrtSc;
  137. Function  bvSetScanLines( scancode : Integer ) : Integer;
  138. Function  bvDefPalLoad( setting : Integer ) : Integer;
  139. Function  bvVioAccess( setting : Integer ) : Integer;
  140. Function  bvGrayScaleSum( setting : Integer ) : Integer;
  141. Function  bvCurEmulation( setting : Integer ) : Integer;
  142. Procedure bvSwDsp( setting : Integer; Var buffer     );
  143. Function  bvScnRefresh( setting : Integer ) : Integer;
  144.  
  145. Procedure bvWrtTTYStr(       mode : Integer;
  146.                row    : Integer;
  147.                col    : Integer;
  148.                len    : Integer;
  149.                pg    : Integer;
  150.                attr : Integer;
  151.                Var st         );
  152.  
  153. {--------------------------------------------------------------------}
  154. {-                                                                  -}
  155. {--------------------------------------------------------------------}
  156.  
  157. Implementation
  158.  
  159. Const
  160.    Copyright1 = 'FlashPac Bios Lib (Pascal) - V3.5';
  161.    Copyright2 = '(c) Copyright 1986-1991 - All Rights Reserved';
  162.    Copyright3 = 'SimpleSoft, Inc.';
  163.    Copyright4 = '1209 Poplar St';
  164.    Copyright5 = 'La Crescent, MN 55947';
  165.    Copyright6 = '(507) 895-8237';
  166.  
  167. {$L viobios\b1000XXD }    Procedure bvSetMode;           External;
  168. {$L viobios\b100100D }    Procedure bvSetCurType;        External;
  169. {$L viobios\b100200D }    Procedure bvSetCurPos;           External;
  170. {$L viobios\b100300D }    Procedure bvGetCurPos;           External;
  171. {$L viobios\b1003X0D }    Procedure bvGetCurType;        External;
  172. {$L viobios\b100500D }    Procedure bvSetPage;           External;
  173. {$L viobios\b1006XXD }    Procedure bvScrollUp;           External;
  174.                         Procedure bvScrollDn;              External;
  175. {$L viobios\b100800D }    Procedure bvReadCell;           External;
  176. {$L viobios\b100900D }    Procedure bvWrtNCell;           External;
  177. {$L viobios\b100A00D }    Procedure bvWrtNChar;           External;
  178. {$L viobios\b100B00D }    Procedure bvSetState0B;        External;
  179. {$L viobios\b100C00D }    Procedure bvWrtPix;           External;
  180. {$L viobios\b100D00D }    Function  bvReadPix;           External;
  181. {$L viobios\b100E00D }    Procedure bvWrtTTYChar;        External;
  182. {$L viobios\b100F00D }    Procedure bvGetMode;           External;
  183. {$L viobios\b101000D }    Procedure bvSetPalReg;           External;
  184. {$L viobios\b101001D }    Procedure bvSetBorder;           External;
  185. {$L viobios\b101002D }    Procedure bvSetPalBorder;       External;
  186. {$L viobios\b101003D }    Procedure bvSetBlink;           External;
  187. {$L viobios\b101007D }    Function  bvGetPalReg;           External;
  188. {$L viobios\b101008D }    Function  bvGetBorder;           External;
  189. {$L viobios\b101009D }    Procedure bvGetPalBorder;       External;
  190. {$L viobios\b101010D }    Procedure bvSetColorReg;       External;
  191. {$L viobios\b101012D }    Procedure bvSetColorRegBlk;       External;
  192. {$L viobios\b101013D }    Procedure bvSetColorPgMode;       External;
  193.                         Procedure bvSetColorRegPg;       External;
  194. {$L viobios\b101015D }    Procedure bvGetColorReg;       External;
  195. {$L viobios\b101017D }    Procedure bvGetColorRegBlk;       External;
  196. {$L viobios\b10101AD }    Procedure bvGetColorPgMode;       External;
  197. {$L viobios\b10101BD }    Procedure bvSetGrayScale;       External;
  198. {$L viobios\b101100D }    Procedure bvLoadUsrFont00;       External;
  199.                         Procedure bvLoadUsrFont10;       External;
  200. {$L viobios\b101101D }    Procedure bvLoad8x14Font01;       External;
  201.                         Procedure bvLoad8x14Font11;       External;
  202. {$L viobios\b101102D }    Procedure bvLoad8x8Font02;       External;
  203.                         Procedure bvLoad8x8Font12;       External;
  204. {$L viobios\b101103D }    Procedure bvSetBlkSpec;        External;
  205. {$L viobios\b101104D }    Procedure bvLoad8x16Font04;       External;
  206.                         Procedure bvLoad8x16Font14;       External;
  207. {$L viobios\b101120D }    Procedure bvSet1FhFontPtr;       External;
  208. {$L viobios\b101121D }    Procedure bvSet43hUsrFont;       External;
  209. {$L viobios\b101122D }    Procedure bvSet43h8x14Font;       External;
  210. {$L viobios\b101123D }    Procedure bvSet43h8x8Font;       External;
  211. {$L viobios\b101124D }    Procedure bvSet43h8x16Font;       External;
  212. {$L viobios\b101130D }    Procedure bvGetFontInfo;       External;
  213. {$L viobios\b101210D }    Procedure bvGetConfigInfo;       External;
  214. {$L viobios\b101220D }    Procedure bvSetAltPrtSc;       External;
  215. {$L viobios\b101230D }    Function  bvSetScanLines;       External;
  216. {$L viobios\b101231D }    Function  bvDefPalLoad;        External;
  217. {$L viobios\b101232D }    Function  bvVioAccess;           External;
  218. {$L viobios\b101233D }    Function  bvGrayScaleSum;       External;
  219. {$L viobios\b101234D }    Function  bvCurEmulation;       External;
  220. {$L viobios\b101235D }    Procedure bvSwDsp;           External;
  221. {$L viobios\b101236D }    Function  bvScnRefresh;        External;
  222. {$L viobios\b1013XXD }    Procedure bvWrtTTYStr;           External;
  223.  
  224. {--------------------------------------------------------------------}
  225.  
  226. Begin
  227. end.
  228.