seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-26 09:54:20 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 3.1 SOURCE/D6/FILEOPEN.C Normal file
View File

@@ -0,0 +1,46 @@
/*----------------------------------------------------------------------*\
| NAME : fileopen |
| CREATED : 19-August-83 LAST MODIFIED: 12-September-83 |
| FUNCTION: Fileopen opens a files specified in the passed FCB, |
| checking for errors. If a password error is detected|
| user is prompted, and open is retried once. After |
| that BDOS extended or physical error is returned. |
| INPUT : fcb -- ptr to FCB for file to open. |
| OUTPUT : Returns BDOS extended or physical error code. |
\*----------------------------------------------------------------------*/
#include <portab.h>
#include "utildef.h"
#include "cpmfunc.h"
/* THESE REFERENCES ARE IN CPMFUNC.H
EXTERN WORD f_dmaget();
EXTERN VOID f_dmaset();
EXTERN WORD f_open();
EXTERN VOID c_writestr();
*/
EXTERN VOID cpmerr();
EXTERN BYTE *err10;
WORD fileopen( fcb )
BYTE fcb[];
{
WORD ret_code;
f_dmaset( &fcb[16] ); /* set DMA to password */
f_open( fcb );
ret_code = _EXTERR;
if( (ret_code & 0x00ff) == 0x00ff ) /* logical error */
if( (ret_code >> 8) == 7 ) /* if password error, */
{
crlf();
cpmerr( err10,0 );
putfname( fcb,0 );
}
ret_code = ret_code >> 8; /* error, return extend-*/
return( ret_code );
}