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

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

@@ -0,0 +1,47 @@
/*----------------------------------------------------------------------*\
| NAME : putfname |
| CREATED : 26-August-83 LAST MODIFIED: 12-September-83 |
| FUNCTION: Putfname writes out a drive and filename to the |
| console from the FCB passed to it. The high bits |
| (attributes) are masked off first. As an option, |
| a space may be printed inseated of the drive char. |
| INPUT : fcb -- ptr to modified FCB with filename to print, |
| where the drive code has been translated |
| into the appropriate drive char. |
| mode -- print drive char. or space flag |
| OUTPUT : No return value. |
\*----------------------------------------------------------------------*/
#include <portab.h>
#include "utildef.h"
#include "cpmfunc.h"
/* THIS REFERENCE IS IN CPMFUNC.H
EXTERN VOID c_write();
*/
VOID putfname( fcb,mode )
BYTE fcb[];
WORD mode;
{
WORD findex;
BYTE drive;
if( mode == 0 ) /* If mode = 0 then translate */
{ /* the drive code into the */
drive = get_drv( fcb ); /* appropriate drive char. */
c_write( drive ); /* If mode != 0 then print a */
} /* space for the drive char. */
else
c_write( ' ' );
c_write( ':' );
c_write( ' ' );
for( findex=1; findex < 12; findex++ )
{
if( findex == 9 )
c_write( ' ' );
c_write( (fcb[findex] & ~0x80) );
}
}