[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$FDL_ROUTINES;
{   © Copyright 2005 Hewlett-Packard Development Company, L.P.                 }
{                                                                              }
{   Confidential computer software.  Valid license from HP and/or              }
{   its subsidiaries required for possession, use, or copying.                 }
{                                                                              }
{   Consistent with FAR 12.211 and 12.212, Commercial Computer Software,       }
{   Computer Software Documentation, and Technical Data for Commercial         }
{   Items are licensed to the U.S. Government under vendor's standard          }
{   commercial license.                                                        }
{                                                                              }
{   Neither HP nor any of its subsidiaries shall be liable for technical       }
{   or editorial errors or omissions contained herein.  The information        }
{   in this document is provided "as is" without warranty of any kind and      }
{   is subject to change without notice.  The warranties for HP products       }
{   are set forth in the express limited warranty statements accompanying      }
{   such products.  Nothing herein should be construed as constituting an      }
{   additional warranty.                                                       }
{                                                                              }

[HIDDEN] TYPE	(**** Pre-declared data types ****)
	$BYTE = [BYTE] -128..127;
	$WORD = [WORD] -32768..32767;
	$QUAD = [QUAD,UNSAFE] RECORD
		L0:UNSIGNED; L1:INTEGER; END;
	$OCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2:UNSIGNED; L3:INTEGER; END;
	$UBYTE = [BYTE] 0..255;
	$UWORD = [WORD] 0..65535;
	$UQUAD = [QUAD,UNSAFE] RECORD
		L0,L1:UNSIGNED; END;
	$UOCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2,L3:UNSIGNED; END;
	$PACKED_DEC = [BIT(4),UNSAFE] 0..15;
	$DEFTYP = [UNSAFE] INTEGER;
	$DEFPTR = [UNSAFE] ^$DEFTYP;
	$BOOL = [BIT(1),UNSAFE] BOOLEAN;
	$BIT  = [BIT(1),UNSAFE] BOOLEAN;
	$BIT2 = [BIT(2),UNSAFE] 0..3;
	$BIT3 = [BIT(3),UNSAFE] 0..7;
	$BIT4 = [BIT(4),UNSAFE] 0..15;
	$BIT5 = [BIT(5),UNSAFE] 0..31;
	$BIT6 = [BIT(6),UNSAFE] 0..63;
	$BIT7 = [BIT(7),UNSAFE] 0..127;
	$BIT8 = [BIT(8),UNSAFE] 0..255;
	$BIT9 = [BIT(9),UNSAFE] 0..511;
	$BIT10 = [BIT(10),UNSAFE] 0..1023;
	$BIT11 = [BIT(11),UNSAFE] 0..2047;
	$BIT12 = [BIT(12),UNSAFE] 0..4095;
	$BIT13 = [BIT(13),UNSAFE] 0..8191;
	$BIT14 = [BIT(14),UNSAFE] 0..16383;
	$BIT15 = [BIT(15),UNSAFE] 0..32767;
	$BIT16 = [BIT(16),UNSAFE] 0..65535;
	$BIT17 = [BIT(17),UNSAFE] 0..131071;
	$BIT18 = [BIT(18),UNSAFE] 0..262143;
	$BIT19 = [BIT(19),UNSAFE] 0..524287;
	$BIT20 = [BIT(20),UNSAFE] 0..1048575;
	$BIT21 = [BIT(21),UNSAFE] 0..2097151;
	$BIT22 = [BIT(22),UNSAFE] 0..4194303;
	$BIT23 = [BIT(23),UNSAFE] 0..8388607;
	$BIT24 = [BIT(24),UNSAFE] 0..16777215;
	$BIT25 = [BIT(25),UNSAFE] 0..33554431;
	$BIT26 = [BIT(26),UNSAFE] 0..67108863;
	$BIT27 = [BIT(27),UNSAFE] 0..134217727;
	$BIT28 = [BIT(28),UNSAFE] 0..268435455;
	$BIT29 = [BIT(29),UNSAFE] 0..536870911;
	$BIT30 = [BIT(30),UNSAFE] 0..1073741823;
	$BIT31 = [BIT(31),UNSAFE] 0..2147483647;
	$BIT32 = [BIT(32),UNSAFE] UNSIGNED;
 
 
(* MODULE FDL$ROUTINES ;                                                    *)
 
(* [HIDDEN] TYPE	(**** Pre-declared data types ***??                 *)
(* 	$BYTE = [BYTE] -128..127;                                           *)
(* 	$WORD = [WORD] -32768..32767;                                       *)
(* 	$QUAD = [QUAD,UNSAFE] RECORD                                        *)
(* 		L0:UNSIGNED; L1:INTEGER; END;                               *)
(* 	$OCTA = [OCTA,UNSAFE] RECORD                                        *)
(* 		L0,L1,L2:UNSIGNED; L3:INTEGER; END;                         *)
(* 	$UBYTE = [BYTE] 0..255;                                             *)
(* 	$UWORD = [WORD] 0..65535;                                           *)
(* 	$UQUAD = [QUAD,UNSAFE] RECORD                                       *)
(* 		L0,L1:UNSIGNED; END;                                        *)
(* 	$UOCTA = [OCTA,UNSAFE] RECORD                                       *)
(* 		L0,L1,L2,L3:UNSIGNED; END;                                  *)
(* 	$UOCTAQUAD = [OCTA(2),UNSAFE] RECORD                                *)
(* 		L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END;                      *)
(* 	$PACKED_DEC = [BIT(4),UNSAFE] 0..15;                                *)
(* 	$DEFTYP = [UNSAFE] INTEGER;                                         *)
(* 	$DEFPTR = [UNSAFE] ^$DEFTYP;                                        *)
(* 	$BOOL = [BIT(1),UNSAFE] BOOLEAN;                                    *)
(* 	$BIT2 = [BIT(2),UNSAFE] 0..3;                                       *)
(* 	$BIT3 = [BIT(3),UNSAFE] 0..7;                                       *)
(* 	$BIT4 = [BIT(4),UNSAFE] 0..15;                                      *)
(* 	$BIT5 = [BIT(5),UNSAFE] 0..31;                                      *)
(* 	$BIT6 = [BIT(6),UNSAFE] 0..63;                                      *)
(* 	$BIT7 = [BIT(7),UNSAFE] 0..127;                                     *)
(* 	$BIT8 = [BIT(8),UNSAFE] 0..255;                                     *)
(* 	$BIT9 = [BIT(9),UNSAFE] 0..511;                                     *)
(* 	$BIT10 = [BIT(10),UNSAFE] 0..1023;                                  *)
(* 	$BIT11 = [BIT(11),UNSAFE] 0..2047;                                  *)
(* 	$BIT12 = [BIT(12),UNSAFE] 0..4095;                                  *)
(* 	$BIT13 = [BIT(13),UNSAFE] 0..8191;                                  *)
(* 	$BIT14 = [BIT(14),UNSAFE] 0..16383;                                 *)
(* 	$BIT15 = [BIT(15),UNSAFE] 0..32767;                                 *)
(* 	$BIT16 = [BIT(16),UNSAFE] 0..65535;                                 *)
(* 	$BIT17 = [BIT(17),UNSAFE] 0..131071;                                *)
(* 	$BIT18 = [BIT(18),UNSAFE] 0..262143;                                *)
(* 	$BIT19 = [BIT(19),UNSAFE] 0..524287;                                *)
(* 	$BIT20 = [BIT(20),UNSAFE] 0..1048575;                               *)
(* 	$BIT21 = [BIT(21),UNSAFE] 0..2097151;                               *)
(* 	$BIT22 = [BIT(22),UNSAFE] 0..4194303;                               *)
(* 	$BIT23 = [BIT(23),UNSAFE] 0..8388607;                               *)
(* 	$BIT24 = [BIT(24),UNSAFE] 0..16777215;                              *)
(* 	$BIT25 = [BIT(25),UNSAFE] 0..33554431;                              *)
(* 	$BIT26 = [BIT(26),UNSAFE] 0..67108863;                              *)
(* 	$BIT27 = [BIT(27),UNSAFE] 0..134217727;                             *)
(* 	$BIT28 = [BIT(28),UNSAFE] 0..268435455;                             *)
(* 	$BIT29 = [BIT(29),UNSAFE] 0..536870911;                             *)
(* 	$BIT30 = [BIT(30),UNSAFE] 0..1073741823;                            *)
(* 	$BIT31 = [BIT(31),UNSAFE] 0..2147483647;                            *)
(* 	$BIT32 = [BIT(32),UNSAFE] UNSIGNED;                                 *)
 
(*** MODULE FDL$ROUTINES IDENT X-2 ***)
 
[HIDDEN] TYPE	(**** SDL-Generated type names ****)
	FDL$ROUTINES$$TYP1 = [UNSAFE] ARRAY [1..3] OF UNSIGNED;
 
 
(*                                                                          *)
(* File Definition Language (FDL) Routines                                  *)
(*                                                                          *)
(* Note - FDL routines accept only class S string descriptors               *)
(*                                                                          *)
(*                                                                          *)
(* FDL$CREATE - Create a file                                               *)
(*                                                                          *)
(* status = FDL$CREATE (fdl_desc [,filename] [,default_name]                *)
(*                      [,result_name] [,fid_block] [,flags]                *)
(*                      [,stmnt_num] [,retlen] [,sts] [,stv]                *)
(*			[,dflt-fdl-spc]                                     *)
(*                                                                          *)
(*  fdl_desc     - Name of file or string containg FDL statements           *)
(*  filename     - Name of file to be created                               *)
(*  default_name - Default name string                                      *)
(*  result_name  - Receives resultant file name                             *)
(*  fid_block    - Receives file ID of created file                         *)
(*  flags        - Flags controlling operation                              *)
(*  stmt_num     - Receives number of statement in error                    *)
(*  retlen       - Receives length of result_name                           *)
(*  sts          - Receives RMS STS value                                   *)
(*  stv          - Receives RMS STV value                                   *)
(*  dflt-fdl-spc - Name of file or string containing default FDL statements *)
 
[ASYNCHRONOUS] FUNCTION FDL$CREATE (
	FDL_DESC : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	FILENAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0;
	DEFAULT_NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0;
	VAR RESULT_NAME : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;
	VAR FID_BLOCK : [VOLATILE] FDL$ROUTINES$$TYP1 := %IMMED 0;
	FLAGS : UNSIGNED := %IMMED 0;
	VAR STMNT_NUM : [VOLATILE] UNSIGNED := %IMMED 0;
	VAR RETLEN : [VOLATILE] UNSIGNED := %IMMED 0;
	VAR STS : [VOLATILE] UNSIGNED := %IMMED 0;
	VAR STV : [VOLATILE] UNSIGNED := %IMMED 0;
	DFLT_FDL_SPEC : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* FDL$GENERATE - Generate an FDL specification from a file                 *)
(*                                                                          *)
(* status = FDL$GENERATE (flags, fab_pointer, rab_pointer                   *)
(*                       [,fdl_file_dst] [,fdl_file_resnam]                 *)
(*			 [,fdl_str_dst] [,bad_blk_addr] [,retlen])          *)
(*                                                                          *)
(*  flags           - Flags controlling operation                           *)
(*  fab_pointer     - Address of FAB block                                  *)
(*  rab_pointer     - Address of RAB block                                  *)
(*  fdl_file_dst    - Name of FDL file to be created                        *)
(*  fdl_file_resnam - Receives resultant name of FDL file                   *)
(*  fdl_str_dst     - Receives FDL string                                   *)
(*  bad_blk_addr    - Receives address of invalid RMS block                 *)
(*  retlen          - Receives length of fdl_file_resnam or fdl_str_dst     *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION FDL$GENERATE (
	FLAGS : UNSIGNED;
	FAB_POINTER : $DEFPTR;
	RAB_POINTER : $DEFPTR;
	FDL_FILE_DST : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0;
	VAR FDL_FILE_RESNAM : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;
	VAR FDL_STR_DST : [CLASS_S,VOLATILE] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0;
	VAR BAD_BLK_ADDR : [VOLATILE] $DEFPTR := %IMMED 0;
	VAR RETLEN : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* FDL$PARSE - Parse an FDL specification                                   *)
(*                                                                          *)
(* status = FDL$PARSE (fdl_spec, fdl_fab_pointer, fdl_rab_pointer           *)
(*                     [,flags] [,dflt_fdl_spec] [,stmt_num])               *)
(*                                                                          *)
(*  fdl_spec        - Name of FDL file or FDL string to be parsed           *)
(*  fdl_fab_pointer - Receives address of created FAB                       *)
(*  fdl_rab_pointer - Receives address of created RAB                       *)
(*  flags           - Flags controlling operation                           *)
(*  dflt_fdl_spec   - Name of default FDL file or default FDL string        *)
(*  stmt_num        - Receives number of statement in error                 *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION FDL$PARSE (
	FDL_SPEC : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR;
	VAR FDL_FAB_POINTER : [VOLATILE] $DEFPTR;
	VAR FDL_RAB_POINTER : [VOLATILE] $DEFPTR;
	FLAGS : UNSIGNED := %IMMED 0;
	DFLT_FDL_SPC : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0;
	VAR STMNT_NUM : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL;
 
(*                                                                          *)
(* FDL$RELEASE - Release FDL context                                        *)
(*                                                                          *)
(* status = FDL$RELEASE ([fab_pointer] [,rab_pointer] [,flags]              *)
(*                       [,badblk_addr])                                    *)
(*                                                                          *)
(*  fab_pointer - Address of FAB to be deallocated                          *)
(*  rab_pointer - Address of RAB to be deallocated                          *)
(*  flags       - Flags controlling operation                               *)
(*  badblk_addr - Recives address of invalid RMS block                      *)
(*                                                                          *)
 
[ASYNCHRONOUS] FUNCTION FDL$RELEASE (
	FAB_POINTER : $DEFPTR := %IMMED 0;
	RAB_POINTER : $DEFPTR := %IMMED 0;
	FLAGS : UNSIGNED := %IMMED 0;
	VAR BADBLK_ADDR : [VOLATILE] $DEFPTR := %IMMED 0) : INTEGER; EXTERNAL;
 
(* END.                                                                     *)
 
END.