39 lines
		
	
	
	
		
			1.2 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			39 lines
		
	
	
	
		
			1.2 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| /* $Header$ */
 | |
| /*
 | |
|  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 | |
|  * See the copyright notice in the ACK home directory, in the file "Copyright".
 | |
|  */
 | |
| /*   I N T E R M E D I A T E   C O D E
 | |
|  *
 | |
|  *    L O W   L E V E L   I / O   R O U T I N E S
 | |
|  */
 | |
| 
 | |
| 
 | |
| extern int	table1();		/* (  )
 | |
| 					 * Read an instruction from the
 | |
| 					 * Compact Assembly Language input
 | |
| 					 * file (in 'neutral state').
 | |
| 					 */
 | |
| extern int	table2();		/* ( )
 | |
| 					 * Read an instruction argument.
 | |
| 					 */
 | |
| extern int	table3();		/* ( int )
 | |
| 					 * Read 'Common Table' item.
 | |
| 					 */
 | |
| extern short	get_int();		/* ( )				*/
 | |
| extern offset	get_off();		/* ( )				*/
 | |
| extern char	readchar();		/* ( )				*/
 | |
| extern		file_init();		/* (FILE *f, short state, long length)
 | |
| 					 * Input file initialization. All
 | |
| 					 * following read operations will read
 | |
| 					 * from the given file f. Also checks
 | |
| 					 * the magic number and sets global
 | |
| 					 * variable 'linecount' to 0.
 | |
| 					 * If the state is ARCHIVE, length
 | |
| 					 * specifies the length of the module.
 | |
| 					 */
 | |
| extern		arch_init();		/* (FILE *arch)
 | |
| 					 * Same as file_init,but opens an
 | |
| 					 * archive file. So it checks the
 | |
| 					 * magic number for archives.
 | |
| 					 */
 |