|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2816 (0xb00) Types: TextFile Names: »AM86EXTR.PSC«
└─⟦57f0389e8⟧ Bits:30005761 SW1611 Access Manager v. 1.0 └─ ⟦this⟧ »AM86EXTR.PSC«
(* VERSION 1.0 September 14, 1982 0933 Copyright (c) 1982 Digital Research, Inc. THESE DECLARATIONS ASSUME THAT THE FOLLOWING TYPE SPECIFICATION HAS BEEN MADE: TYPE BYTEPTR = ^BYTE; *) EXTERNAL FUNCTION SETUP (NBUFS,NKEYS,NNSEC,NDATF:INTEGER):INTEGER; EXTERNAL FUNCTION INTUSR (PROGID,ERROPT,TIMOUT:INTEGER):INTEGER; EXTERNAL FUNCTION OPNIDX (KEY:INTEGER; VAR IDXNAME:STRING; KEYLEN,KEYTYP,DUPFLG:INTEGER):INTEGER; EXTERNAL FUNCTION OPRIDX (KEY:INTEGER; VAR IDXNAME:STRING; KEYLEN,KEYTYP,DUPFLG:INTEGER):INTEGER; EXTERNAL FUNCTION CLSIDX (KEY:INTEGER):INTEGER; EXTERNAL FUNCTION SAVIDX (KEY:INTEGER):INTEGER; EXTERNAL FUNCTION ERAIDX (KEY:INTEGER):INTEGER; EXTERNAL FUNCTION ADDKEY (KEY,DFILE,DLOCK:INTEGER;VAR KEYVAL:STRING; DRN:INTEGER):INTEGER; EXTERNAL FUNCTION DELKEY (KEY,DFILE,DLOCK:INTEGER;VAR KEYVAL:STRING; DRN:INTEGER):INTEGER; EXTERNAL FUNCTION UPDPTR (KEY,DFILE,DLOCK:INTEGER;VAR KEYVAL:STRING; DRN:INTEGER):INTEGER; EXTERNAL FUNCTION GETKEY (KEY,DFILE,DLOCK:INTEGER;VAR KEYVAL:STRING):INTEGER; EXTERNAL FUNCTION SERKEY (KEY,DFILE,DLOCK:INTEGER; VAR KEYVAL,IDXVAL:STRING):INTEGER; EXTERNAL FUNCTION AFTKEY (KEY,DFILE,DLOCK:INTEGER; VAR KEYVAL,IDXVAL:STRING):INTEGER; EXTERNAL FUNCTION BEFKEY (KEY,DFILE,DLOCK:INTEGER; VAR KEYVAL,IDXVAL:STRING):INTEGER; EXTERNAL FUNCTION NXTKEY (KEY,DFILE,DLOCK:INTEGER; VAR IDXVAL:STRING):INTEGER; EXTERNAL FUNCTION PRVKEY (KEY,DFILE,DLOCK:INTEGER; VAR IDXVAL:STRING):INTEGER; EXTERNAL FUNCTION FRSKEY (KEY,DFILE,DLOCK:INTEGER; VAR IDXVAL:STRING):INTEGER; EXTERNAL FUNCTION LASKEY (KEY,DFILE,DLOCK:INTEGER; VAR IDXVAL:STRING):INTEGER; EXTERNAL FUNCTION NOKEYS (KEY:INTEGER):INTEGER; EXTERNAL FUNCTION NMNODS (KEY:INTEGER):INTEGER; EXTERNAL FUNCTION ERRCOD:INTEGER; EXTERNAL FUNCTION LOKCOD:INTEGER; EXTERNAL PROCEDURE SETDAT (DRN:INTEGER); EXTERNAL FUNCTION DATVAL:INTEGER; EXTERNAL FUNCTION OPNDAT (DFILE,DLOCK:INTEGER; VAR FILNAME:STRING; RECLEN:INTEGER):INTEGER; EXTERNAL FUNCTION OPRDAT (DFILE,DLOCK:INTEGER; VAR FILNAME:STRING; RECLEN:INTEGER):INTEGER; EXTERNAL FUNCTION CLSDAT (DFILE:INTEGER):INTEGER; EXTERNAL FUNCTION SAVDAT (DFILE:INTEGER):INTEGER; EXTERNAL FUNCTION ERADAT (DFILE,DLOCK:INTEGER):INTEGER; EXTERNAL FUNCTION NEWREC (DFILE,DLOCK:INTEGER):INTEGER; EXTERNAL FUNCTION RETREC (DFILE,DLOCK,DRN:INTEGER):INTEGER; EXTERNAL FUNCTION GETDFS (DFILE:INTEGER):INTEGER; EXTERNAL FUNCTION GETDFU (DFILE:INTEGER):INTEGER; EXTERNAL FUNCTION READAT (DFILE,DRN:INTEGER; BUFFER:BYTEPTR):INTEGER; EXTERNAL FUNCTION WRTDAT (DFILE,DRN:INTEGER; BUFFER:BYTEPTR):INTEGER; EXTERNAL FUNCTION SETLOK (DFILE,DLOCK,DRN:INTEGER):INTEGER; EXTERNAL FUNCTION FRELOK (DFILE,DLOCK,DRN:INTEGER):INTEGER; «eof»