Topspeed_JPI/TS/MODBASE/BYTEFIDD.DEF

DEFINITION MODULE ByteFiddler;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/bytefidd.dev   1.4   30 Dec 1990 17:59:02   coleb  $
 *
 *)


  FROM SYSTEM IMPORT ADDRESS, WORD, BYTE;

  PROCEDURE BitRangeToInt(TheSet : BITSET; LowBit,
      HighBit : CARDINAL; VAR answer : CARDINAL);

  PROCEDURE BytesToWord(lobyte, hibyte : CARDINAL)
      : CARDINAL;

  PROCEDURE CardinalToDate(TheInt : CARDINAL; VAR
      month, day, year : CARDINAL);

  PROCEDURE CardinalToTime(TheCardinal : CARDINAL;
      VAR hours, minutes, seconds : CARDINAL);

  PROCEDURE DateToCardinal(month, day, year :
      CARDINAL) : CARDINAL;

  PROCEDURE HighByte( TheCard: CARDINAL ): CHAR;

  PROCEDURE HighCard( TheLong: LONGINT ):
      CARDINAL;

  PROCEDURE LowByte( TheCard: CARDINAL ): CHAR;

  PROCEDURE LowCard( TheLong: LONGINT ): CARDINAL;

  PROCEDURE PeekChar( TheAdr: ADDRESS ): CHAR;

  PROCEDURE PokeChar( TheChar: CHAR; TheAdr:
      ADDRESS );

  PROCEDURE swap(VAR TheWord : WORD);

  PROCEDURE Size( VAR AnyObject: ARRAY OF BYTE ):
      CARDINAL;

  PROCEDURE TimeToCardinal(hours, minutes, seconds
      : CARDINAL) : CARDINAL;

  PROCEDURE Init();

END ByteFiddler.