CD Actual 15/CDACTUAL15.iso/cdactual/program/pascal/FLASHPAC.ZIP/CHA_1.DOC

Text File | 1991-03-15 | 15.2 KB | 588 lines

..pgno01
..foot60AA-##
..head02L──────────────────────────────────────────────────────────────────────
..head04L──────────────────────────────────────────────────────────────────────
..head03LSUMMARY OF FUNCTIONS


           GENERAL TYPE DEFINITIONS

typedef      char        CHAR;     signed     8 bits
typedef unsigned char        BYTE;     unsigned     8 bits

typedef      int        INT;      signed    16 bits
typedef unsigned int        UINT;     unsigned    16 bits

typedef signed     short int  INT2;     signed    16 bits
typedef unsigned short int  UINT2;    unsigned    16 bits
typedef unsigned int        WORD;     unsigned    16 bits
typedef long            INT4;     signed    32 bits
typedef unsigned long        UINT4;    unsigned    32 bits
typedef float            REAL4;    signed    32 bits
typedef double            REAL8;    signed    64 bits



               DEFINES FUNCTIONS

#define PTR     far *
#define FAR     far
#define NEAR     near
#define VOID     void
#define FPENTRY  pascal far



                    VIDEO RELATED FUNCTIONS

Global Variables
   BYTE pascal CheckSnow;
   BYTE pascal TextAttr;

   INT2 pascal VioMode;
   INT2 pascal VioPage;
   INT2 pascal VioCols;
   INT2 pascal VioCursor;
   INT2 pascal VioBaseSeg;

   INT2 pascal WindMin;
   INT2 pascal WindMax;

   INT2 pascal InsMode;


functions
   VOID FPENTRY BorderColor( INT Color );
   VOID FPENTRY ClrWin( INT x1, INT y1,
            INT x2, INT y2, INT Attr );
   VOID FPENTRY ColorMsg( INT x,    INT      y,
              INT Attr, CHAR PTR Message );
   VOID FPENTRY DspMsg( INT x, INT y, CHAR PTR Message );

   VOID FPENTRY EditSt( INT     Row,
            INT     StCol,
            INT     SpCol,
            INT     Len,
            INT     CharCase,
            INT     FillCh,
            INT     AutoSkip,
            UINT     ErrTone,
            UINT     ErrDur,
            CHAR PTR VCSet,
            CHAR PTR TCSet,
            INT  PTR ChOfs,
            INT  PTR TE,
            CHAR PTR St    );

   VOID FPENTRY FillColAttr( INT x,    INT y,
                 INT NRows, INT Attr );

   VOID FPENTRY FillColCell( INT x,    INT y,
                 INT NRows, INT Cell );

   VOID FPENTRY FillColChar( INT x,    INT y,
                 INT NRows, CHAR Ch );

   VOID FPENTRY FillFrameAttr( INT x1, INT y1,
                   INT x2, INT y2,
                   INT Attr );

   VOID FPENTRY FillFrameCell( INT x1, INT y1,
                   INT x2, INT y2,
                   INT2 Cell );

   VOID FPENTRY FillFrameChar( INT x1, INT y1,
                   INT x2, INT y2,
                   CHAR Ch );

   VOID FPENTRY FillRowAttr( INT x,     INT y,
                 INT NBytes, INT Attr );

   VOID FPENTRY FillRowCell( INT x,     INT y,
                 INT NWords, INT2 Cell );

   VOID FPENTRY FillRowChar( INT x,     INT y,
                 INT NBytes, CHAR Ch );

   VOID FPENTRY FrameWin( CHAR UL,  CHAR UR,
              CHAR LL,  CHAR LR,
              CHAR Hor, CHAR Ver,
              INT  Attr );

   INT2 FPENTRY GetCursorSize( VOID );

   VOID FPENTRY GetFrameAttr( INT x1, INT y1,
                  INT x2, INT y2,
                  CHAR PTR Buffer );

   VOID FPENTRY GetFrameCell( INT x1, INT y1,
                  INT x2, INT y2,
                  CHAR PTR Buffer );

   VOID FPENTRY GetFrameChar( INT x1, INT y1,
                  INT x2, INT y2,
                  CHAR PTR Buffer );

   VOID FPENTRY GetScrn( INT x,      INT      y,
             INT NWords, CHAR PTR Buffer );

   INT    FPENTRY GetVideoCols( VOID );

   VOID FPENTRY GetVideoInfo( INT PTR BaseSeg,
                  INT PTR Cols,
                  INT PTR Pg,
                  INT PTR Mode );

   INT    FPENTRY GetVideoMode( VOID );
   INT    FPENTRY GetVideoPage( VOID );
   VOID FPENTRY GotoxyAbs( INT x, INT y );
   VOID FPENTRY HideCursor( VOID );
   VOID FPENTRY InitVideo( INT Mode );

   VOID FPENTRY PutFrameAttr( INT x1, INT y1,
                  INT x2, INT y2,
                  CHAR PTR Buffer );

   VOID FPENTRY PutFrameCell( INT x1, INT y1,
                  INT x2, INT y2,
                  CHAR PTR Buffer );

   VOID FPENTRY PutFrameChar( INT x1, INT y1,
                  INT x2, INT y2,
                  CHAR PTR Buffer );

   VOID FPENTRY PutScrn( INT x,      INT      y,
             INT NWords, CHAR PTR Buffer );
   INT    FPENTRY RvsAttr( INT Attr );

   VOID FPENTRY ScrollDown( INT x1,   INT y1,
                INT x2,   INT y2,
                INT Attr, INT NRows );

   VOID FPENTRY ScrollLeft( INT x1,   INT y1,
                INT x2,   INT y2,
                INT Attr, INT NCols );

   VOID FPENTRY ScrollRight( INT x1,   INT y1,
                 INT x2,   INT y2,
                 INT Attr, INT NCols );

   VOID FPENTRY ScrollUp( INT x1,   INT y1,
              INT x2,   INT y2,
              INT Attr, INT NRows );

   VOID FPENTRY SetCursorSize( INT StScan, INT SpScan );
   VOID FPENTRY SetVideoPage( INT PageNo );
   VOID FPENTRY ShowCursor( VOID );
   VOID FPENTRY VioInit( VOID );
   INT    FPENTRY WhereXAbs( VOID );
   INT    FPENTRY WhereYAbs( VOID );

   VOID FPENTRY WindowFP( INT x1, INT y1,
              INT x2, INT y2 );

   VOID FPENTRY WriteSt( CHAR PTR String );
   VOID FPENTRY WriteStln( CHAR PTR String );



                  KEYBOARD FUNCTIONS

functions
   VOID FPENTRY BiosKbdClr( VOID );
   INT2 FPENTRY BiosKbdGetElmt( VOID );
   INT2 FPENTRY BiosKbdHit( VOID );
   VOID FPENTRY BiosKbdRead( CHAR PTR Ch );
   INT2 FPENTRY BiosKbdStat( VOID );
   VOID FPENTRY DosKbdClr( VOID );
   INT2 FPENTRY DosKbdGetElmt( VOID );
   INT2 FPENTRY DosKbdHit( VOID );
   VOID FPENTRY DosKbdRead( CHAR PTR Ch );

   INT2 FPENTRY GetKey( VOID );


                   PRINTER FUNCTIONS

functions
   VOID FPENTRY BiosPrtChar( CHAR Ch, INT2 PrtNo );
   INT2 FPENTRY BiosPrtInit( INT2 PrtNo ) : Integer;
   INT2 FPENTRY BiosPrtStat( INT2 PrtNo ) : Integer;
   VOID FPENTRY DosPrtChar( CHAR Ch );




        DISK AND FILE FUNCTIONS

Type Definitions
   typedef struct TFindRec
      {
      BYTE    Attr;
      UINT2   Time;
      UINT2   Date;
      UINT4   Size;
      BYTE    Name[13];
      } TFindRec;

Global Variables
   BYTE pascal CErrDevice[10];
   INT2 pascal DosErrNo;
   INT2 pascal CErrCode;
   INT2 pascal CErrType;
   INT2 pascal CErrDrive;

functions
   VOID FPENTRY CloseFile( INT2 Handle );
   VOID FPENTRY CreateFile( CHAR *Path,
                INT2 Attr,
                INT2 *Handle );

   VOID FPENTRY DosFindFirst( CHAR     *Path,
                  INT2    Attr,
                  TFindRec    FindRec );

   VOID FPENTRY DosFindNext( TFindRec FindRec );
   UINT4 FSeek( INT Handle, INT Orgin, INT4 Offset );
   INT2 FPENTRY GetDrive( VOID );
   VOID FPENTRY GetDTA( UINT2 Segment, Offset );
   INT4 FPENTRY GetFileSize( INT Handle );
   INT2 FPENTRY GetNDrvs( VOID );
   VOID FPENTRY OpenFile( CHAR *Path,
              INT2 Attr,
              INT2 *Handle );

   VOID FPENTRY ReadFile( INT2     Handle,
              INT2     NBytes,
              CHAR    *Buffer,
              UINT2 *RBytes );

   VOID FPENTRY ResetDisk( VOID );
   VOID FPENTRY RestInt24( VOID );
   VOID FPENTRY SetDTA( UINT2 Segment, UINT2 Offset );
   VOID FPENTRY SetInt24( VOID );

   VOID FPENTRY WriteFile( INT2   Handle,
               INT2   NBytes,
               CHAR  *Buffer,
               UINT2 *WBytes );



               MOUSE FUNCTIONS
Global Variables
   INT2 pascal NEvents;
   INT2 pascal MTextMode;

functions
   INT2 FPENTRY MButtonPress( INT2   Button,
                  INT2  *ButPress,
                  INT2  *x,
                  INT2  *y    );

   INT2 FPENTRY MButtonRel( INT2   Button,
                INT2  *ButPress,
                INT2  *x,
                INT2  *y  );

   VOID FPENTRY MGetPos( INT2 *Button,
             INT2 *x,
             INT2 *y );

   VOID FPENTRY MGetSpeed( INT2 *HorCnt, INt2 *VerCnt );

   VOID FPENTRY MGraphCursor( INT2  XHotSpot,
                  INT2  YHotSpot,
                  UINT2 CMaskSeg,
                  UINT2 CMaskOfs );

   VOID FPENTRY MHideCursor( VOID );
   VOID FPENTRY MInitEventHandler( INT2 EventMask );

   VOID FPENTRY MPollQue( INT2 *Event, INT2 *ButStat,
              INT2 *x,     INT2 *y        );

   INT2 FPENTRY MResetMouse( INT2 NBut );

   VOID FPENTRY MRetQue( INT2 *Event, INT2 *ButStat
             INT2 *x,     INT2 *y       );

   VOID MRetQue( INT PTR Event, INT PTR ButStat,
         INT PTR x,    INT PTR y    );

   VOID FPENTRY MSetPos( INT2 x, INT2 y );
   VOID FPENTRY MSetSpeed( INT2 HorCnt, INT2 VerCnt );
   VOID FPENTRY MSetXRange( INT2 Min, INT2 Max );
   VOID FPENTRY MSetYRange( INT2 Min, INT2 Max );
   VOID FPENTRY MShowCursor( VOID );

   VOID FPENTRY MTextCursor( INT2 CType,
                 INT2 SMask,
                 INT2 CMask );



               MISC DOS FUNCTIONS

functions
   VOID FPENTRY Beep( UINT2 Freq, UINT2 Dur );

   VOID FPENTRY GetTime( INT2 PTR Hour,
             INT2 PTR Minute,
             INT2 PTR Second,
             INT2 PTR Sec100 );



             BIOS VIDEO FUNCTIONS

functions
   VOID  FPENTRY bvSetMode( INT2 Mode, INT2 Clear );

   VOID  FPENTRY bvSetCurType( INT2 StScan,
                   INT2 SpScan );

   VOID  FPENTRY bvSetCurPos( INT2 pg,
                  INT2 row,
                  INT2 col );

   VOID  FPENTRY bvGetCurPos( INT2     pg,
                  INT2 PTR row,
                  INT2 PTR col );

   VOID  FPENTRY bvGetCurType( INT2    pg,
                   INT2 PTR stscan,
                   INT2 PTR spscan );

   VOID  FPENTRY bvSetPage( INT2 pg );

   VOID  FPENTRY bvScrollDn( INT2 top,      INT2 left,
                 INT2 bottom, INT2 right,
                 INT2 lines,  INT2 attr );

   VOID  FPENTRY bvScrollUp( INT2 top,      INT2 left,
                 INT2 bottom, INT2 right,
                 INT2 lines,  INT2 attr );

   VOID  FPENTRY bvReadCell( INT2 PTR ch,
                 INT2 PTR attr,
                 INT2     pg );

   VOID  FPENTRY bvWrtNCell( INT2 ch,     INT2 attr,
                 INT2 count, INT2 pg   );

   VOID  FPENTRY bvWrtNChar( INT2 ch,
                 INT2 count,
                 INT2 pg );

   VOID  FPENTRY bvSetState0B( INT2 color );

   VOID  FPENTRY bvWrtPix( INT2 row,    INT2 col,
               INT2 pixval, INT2 pg );

   INT2  FPENTRY bvReadPix( INT2 row, INT2 col, INT2 pg );
   VOID  FPENTRY bvWrtTTYChar( INT2 ch,
                   INT2 pg,
                   INT2 color );

   VOID  FPENTRY bvGetMode( INT2 PTR mode,
                INT2 PTR cols,
                INT2 PTR pg );

   VOID  FPENTRY bvSetPalReg( INT2 color, INT2 reg );
   VOID  FPENTRY bvSetBorder( INT2 color );
   VOID  FPENTRY bvSetPalBorder( CHAR list[17] );
   VOID  FPENTRY bvSetBlink( INT2 state );
   INT2  FPENTRY bvGetPalReg( INT2 reg );
   INT2  FPENTRY bvGetBorder( VOID );
   VOID  FPENTRY bvGetPalBorder( CHAR buf[17] );

   VOID  FPENTRY bvSetColorReg( UINT2 colorreg,
                INT2 green,
                INT2  blue,
                INT2 red );

   VOID  FPENTRY bvSetColorRegBlk( UINT2 startreg,
                   INT2  regcount,
                   BYTE  colortbl[][3] );

   VOID  FPENTRY bvSetColorPgMode( INT2 pgstate );
   VOID  FPENTRY bvSetColorRegPg( INT2 pg );

   VOID  FPENTRY bvGetColorReg( INT2 colorreg,
                INT2 PTR green,
                INT2 PTR blue,
                INT2 PTR red );

   VOID  FPENTRY bvGetColorRegBlk( UINT2 startreg,
                   INT2  regcount,
                   BYTE   colortbl[][3] );

   VOID  FPENTRY bvGetColorPgMode( INT2 PTR colorpg,
                   INT2 PTR pgmode );

   VOID  FPENTRY bvSetGrayScale( UINT2 startreg,
                 INT2  regcount );

   VOID  FPENTRY bvLoadUsrFont00( INT2        pts,
                  INT2        block,
                  UINT2     chcount,
                  UINT2     startch,
                  VOID PTR  fonttbl );

   VOID  FPENTRY bvLoadUsrFont10( INT2        pts,
                  INT2        block,
                  UINT2     chcount,
                  UINT2     startch,
                  VOID PTR  fonttbl );

   VOID  FPENTRY bvLoad8x14Font01( INT2  block );
   VOID  FPENTRY bvLoad8x14Font11( INT2  block );
   VOID  FPENTRY bvLoad8x8Font02( INT2    block );
   VOID  FPENTRY bvLoad8x8Font12( INT2    block );
   VOID  FPENTRY bvSetBlkSpec( INT2  block );
   VOID  FPENTRY bvLoad8x16Font04( INT2  block );
   VOID  FPENTRY bvLoad8x16Font14( INT2  block );
   VOID  FPENTRY bvSet1FhFontPtr( VOID PTR fonttbl );

   VOID  FPENTRY bvSet43hUsrFont( INT2        rows,
                  UINT2     points,
                  INT2        scnrows,
                  VOID PTR  fonttbl );

   VOID  FPENTRY bvSet43h8x14Font( INT2 rows,
                   INT2 scnrows );

   VOID  FPENTRY bvSet43h8x8Font( INT2 rows,
                  INT2 scnrows );

   VOID  FPENTRY bvSet43h8x16Font( INT2 rows,
                   INT2 scnrows );

   VOID  FPENTRY bvGetFontInfo( INT2      fontcode,
                UINT2 PTR points,
                INT2  PTR scnrows,
                VOID  PTR fonttbl );

   VOID  FPENTRY bvGetConfigInfo( INT2 PTR dsptype,
                  INT2 PTR egamem,
                  INT2 PTR fbits,
                  INT2 PTR swset );

   VOID  FPENTRY bvSetAltPrtSc( VOID );
   INT2  FPENTRY bvSetScanLines( INT2 scancode );
   INT2  FPENTRY bvDefPalLoad( INT2 setting );
   INT2  FPENTRY bvVioAccess( INT2 setting );
   INT2  FPENTRY bvGrayScaleSum( INT2 setting );
   INT2  FPENTRY bvCurEmulation( INT2 setting );
   VOID  FPENTRY bvSwDsp( INT2 setting, CHAR PTR buffer );
   INT2  FPENTRY bvScnRefresh( INT2 setting );

   VOID  FPENTRY bvWrtTTYStr( INT2     mode,
                  INT2     row,
                  INT2     col,
                  INT2     len,
                  INT2     pg,
                  INT2     attr,
                  CHAR PTR st );



             BIOS VIDEO FUNCTIONS

functions
   VOID FPENTRY dDiskReset( VOID );
   INT2 FPENTRY dSelectDisk( INT2 Drive );
   INT2 FPENTRY dGetCurrentDisk();
   VOID FPENTRY dSetDta( UINT2 Segment, UINT2 Offset );

   INT    FPENTRY dGetDriveData( INT2   Drive,
                   UINT2  *Sectors,
                   UINT2  *MediaSeg,
                   UINT2  *MediaOfs,
                   UINT2  *SectorSize,
                   UINT2  *Clusters  );

   VOID FPENTRY dSetInt( UINT2 Int,
             UINT2 Segment,
             UINT2 Offset );

   VOID FPENTRY dCreateNewPsp( UINT2 Segment );

   VOID FPENTRY dGetDate( INT2 PTR Month,
              INT2 PTR Day,
              INT2 PTR Year,
              INT2 PTR DayOfWk );

   INT    FPENTRY dSetDate( INT Month, INT Day, INT Year );

   VOID FPENTRY dGetTime( INT2 PTR Hour,
              INT2 PTR Minute,
              INT2 PTR Seconds,
              INT2 PTR Hundredths );

   VOID FPENTRY dSetTime( INT2 Hour,    INT2 Minute,
              INT2 Seconds, INT2 Hundredths );

   VOID FPENTRY dSetVerifyFlag( INT2 VerifyOpt );

   VOID FPENTRY dGetDta( UINT2 PTR Segment,
             UINT2 PTR Offset );

   VOID FPENTRY dGetVersion( INT2 PTR Major,
                 INT2 PTR Minor );

   INT    FPENTRY dGetBreakStatus( VOID );
   VOID FPENTRY dSetBreakFlag( INT flag );

   VOID FPENTRY dGetBusyFlag( UINT2 PTR dSeg,
                  UINT2 PTR dOfs );

   VOID FPENTRY dGetIntVec( UINT2 dInt,
                UINT2 PTR dSeg,
                UINT2 PTR dOfs );

   INT    FPENTRY dGetDrvAllocInfo( UINT       Drive,
                  UINT PTR Sectors,
                  UINT PTR AvailClusters,
                  UINT PTR BytesInSector,
                  UINT PTR TotalClusters );

   INT    FPENTRY dMkDir( CHAR PTR Path );
   INT    FPENTRY dRmDir( CHAR PTR Path );
   INT    FPENTRY dChDir( CHAR PTR Path );

   INT    FPENTRY dCreateFile( CHAR PTR Path,
                 INT2     Attr,
                 INT2 PTR Handle );

   INT    FPENTRY dOpenFile( CHAR PTR Path,
               INT2     Mode,
               INT2 PTR Handle );

   INT    FPENTRY dCloseFile( CHAR PTR Path,
                INT2     Mode,
                INT2 PTR Handle );

   INT    FPENTRY dReadFile( INT         Handle,
               UINT2     NBytes,
               VOID  PTR Buffer,
               UINT2 PTR BytesRead );

   INT    FPENTRY dWriteFile( INT      Handle,
                UINT     NBytes,
                VOID PTR Buffer,
                UINT PTR BytesWritten );

   INT    FPENTRY dDelFile( CHAR PTR FileSpec );

   INT    FPENTRY dSetFilePos( INT2     Handle,
                 INT      Method,
                 INT4 PTR Ofs );

   INT    FPENTRY dGetFileAttr( CHAR PTR FileSpec,
                  INT2 PTR Attr );

   INT    FPENTRY dSetFileAttr( CHAR PTR FileSpec,
                  INT2     Attr );