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

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

@@ -0,0 +1,27 @@
/*----------------------------------------------------------------------*\
| NAME : tabinit |
| CREATED : 23-August-83 LAST MODIFIED: 19-September-83 |
| FUNCTION: Tabinit initializes a tab position array used to |
| determine how many spaces to replace the tab with. |
| INPUT : tabstop -- ptr to tab stop array |
| max_len -- length of tabstop array |
| OUTPUT : Tabstop array initialized: 1 at tab stop colums and |
| zero elsewhere. |
| No return value. |
\*----------------------------------------------------------------------*/
#include <portab.h>
VOID tabinit( tabstop,max_len,tabpos )
WORD tabstop[];
WORD max_len;
WORD tabpos;
{
WORD col;
tabstop[0] = 0; /* using 1 index addr. */
for( col=1; col < max_len; col++ ) /* tabstop[0] not used */
tabstop[col] = ( (col % tabpos) == 1 );
}