35 lines
1 KiB
C
35 lines
1 KiB
C
|
/* 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.
|
||
|
|
*/
|