Topspeed_JPI/TS-V3/INCLUDE/BIOS.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  BIOS.DEF - Modula-2 interface to BIOS.H                                 *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE bios;
   18  
   19  CONST
   20  
   21  (* Serial Port Initializers                                *)
   22  
   23    _COM_INIT             = 0; (* init serial port           *)
   24    _COM_SEND             = 1; (* send character             *)
   25    _COM_RECEIVE          = 2; (* receive character          *)
   26    _COM_STATUS           = 3; (* get serial port status     *)
   27  
   28  (* character size initializers                             *)
   29    _COM_CHR7             = BITSET(2); (* 7 bits characters  *)
*****                            ^ undeclared identifier
*****                                    ^ not supported yet
   30    _COM_CHR8             = BITSET(3); (* 8 bits characters  *)
*****                            ^ undeclared identifier
*****                                    ^ not supported yet
   31  
   32  (* stop bit values                                         *)
   33    _COM_STOP1            = BITSET(0); (* 1 stop bit         *)
*****                            ^ undeclared identifier
*****                                    ^ not supported yet
   34    _COM_STOP2            = BITSET(4); (* 2 stop bits        *)
*****                            ^ undeclared identifier
*****                                    ^ not supported yet
   35  
   36  (* parity initializers                                     *)
   37    _COM_NOPARITY         = BITSET(0); (* no parity          *)
*****                            ^ undeclared identifier
*****                                    ^ not supported yet
   38    _COM_ODDPARITY        = BITSET(8); (* odd parity         *)
*****                            ^ undeclared identifier
*****                                    ^ not supported yet
   39    _COM_EVENPARITY       = BITSET(24);(* even parity        *)
*****                            ^ undeclared identifier
*****                                     ^ not supported yet
   40  
   41  (* baud rate initializers                                  *)
   42    _COM_110              = BITSET(0);   (* 110 Baud         *)
*****                            ^ undeclared identifier
*****                                    ^ not supported yet
   43    _COM_150              = BITSET(32);  (* 150 Baud         *)
*****                            ^ undeclared identifier
*****                                     ^ not supported yet
   44    _COM_300              = BITSET(64);  (* 300 Baud         *)
*****                            ^ undeclared identifier
*****                                     ^ not supported yet
   45    _COM_600              = BITSET(96);  (* 600 Baud         *)
*****                            ^ undeclared identifier
*****                                     ^ not supported yet
   46    _COM_1200             = BITSET(128); (* 1200 Baud        *)
*****                            ^ undeclared identifier
*****                                      ^ not supported yet
   47    _COM_2400             = BITSET(160); (* 2400 Baud        *)
*****                            ^ undeclared identifier
*****                                      ^ not supported yet
   48    _COM_4800             = BITSET(192); (* 4800 Baud        *)
*****                            ^ undeclared identifier
*****                                      ^ not supported yet
   49    _COM_9600             = BITSET(224); (* 9600 Baud        *)
*****                            ^ undeclared identifier
*****                                      ^ not supported yet
   50  
   51  (* constants for BIOS disk support                         *)
   52  
   53  (* disk services                                           *)
   54    _DISK_RESET           = 0; (* reset disk controller      *)
   55    _DISK_STATUS          = 1; (* get disk status            *)
   56    _DISK_READ            = 2; (* read disk sectors          *)
   57    _DISK_WRITE           = 3; (* write disk sectors         *)
   58    _DISK_VERIFY          = 4; (* verify disk sectors        *)
   59    _DISK_FORMAT          = 5; (* format disk track          *)
   60  
   61  (* constants for BIOS keyboard support                     *)
   62    _KEYBRD_READ          = 0; (* read next character from keyboard *)
   63    _KEYBRD_READY         = 1; (* check for keystroke        *)
   64    _KEYBRD_SHIFTSTATUS   = 2; (* get current shift key status *)
   65  
   66  (* constants for BIOS printer support                      *)
   67    _PRINTER_WRITE        = 0; (* write character to printer *)
   68    _PRINTER_INIT         = 1; (* initialize printer         *)
   69    _PRINTER_STATUS       = 2; (* get printer status         *)
   70  
   71  (* constants for BIOS time of day support                  *)
   72    _TIME_GETCLOCK        = 0; (* get current clock count    *)
   73    _TIME_SETCLOCK        = 1; (* set current clock count    *)
   74  
   75  TYPE
   76    diskinfo_t = RECORD
   77                   drive    : CARDINAL;
   78                   head     : CARDINAL;
   79                   track    : CARDINAL;
   80                   sector   : CARDINAL;
   81                   nsectors : CARDINAL;
   82                   buffer   : ADDRESS;
*****                              ^ undeclared identifier
   83                 END;
*****                 ^ not supported yet
   84  
   85  PROCEDURE bioscom(cmd:CARDINAL;byte:BYTE;port:CARDINAL):CARDINAL;
*****                                      ^ undeclared identifier
   86  PROCEDURE biosdisk(cmd,drive,head,track,sector,nsecs:CARDINAL;buf:ADDRESS):CARDINAL;
*****                                                                    ^ undeclared identifier
   87  PROCEDURE biosequip():BITSET;
*****                        ^ undeclared identifier
   88  PROCEDURE bioskey(cmd:CARDINAL):CARDINAL;
   89  PROCEDURE biosmemory():CARDINAL;
   90  PROCEDURE biosprint(cmd:CARDINAL;byte:BYTE;port:CARDINAL):CARDINAL;
*****                                        ^ undeclared identifier
   91  PROCEDURE biostime(cmd:CARDINAL;newtime:LONGCARD);
*****                                          ^ undeclared identifier
   92  
   93  PROCEDURE _bios_equiplist():CARDINAL;
   94  PROCEDURE _bios_keybrd(cmd:CARDINAL):CARDINAL;
   95  PROCEDURE _bios_memsize():CARDINAL;
   96  PROCEDURE _bios_printer(cmd,port,data:CARDINAL):CARDINAL;
   97  PROCEDURE _bios_serialcom(cmd,port,data:CARDINAL):CARDINAL;
   98  PROCEDURE _bios_timeofday(cmd:CARDINAL;VAR time:LONGCARD):CARDINAL;
*****                                                  ^ undeclared identifier
   99  PROCEDURE _bios_disk(cmd:CARDINAL;VAR info:diskinfo_t):CARDINAL;
  100  
  101  END bios.
*****      ^ not supported yet

   39 errors