Directory of image this file is from
This file as a plain text file

/ PDP-8 (8K) FORTRAN COMPILER	*** FORT.05 ***

/ OCTOBER 28, 1970

/ COPYRIGHT 1969, DIGITAL EQUIPMENT CORP. MAYNARD, MASS.
/
/ SYMBOL TABLE FOR FORTRAN COMPILER (8K- PDP-8)
/ FOR USE WITH DISK/DECTAPE MONITOR SYSTEM
/  CHANGE LOCATION 'XFINI' TO A 'JMP I LFINI' THEN
/ SAVE ON THE DISK AS FOLLOWS:
/
/	SAVE FTC0!0-7577;5363<C/R>
/	SAVE FTC1!200,1000-1577,2600,6000-16377;<C/R>
/
/ CALL FTC1 FIRST, THEN CALL FTC0 TO COMPILE
/ FOR SUBSEQUENT COMPILATIONS ONLY CALL FTC0.

	FIELD	0
	*200
INBUF,	TEXT /PDP-8 FORTRAN DEC-08-A2B1-4/

	*1000
BEGIN,	PLS		/INITIALIZATION ROUTINE
	TLS
	RFC
	CDF	00
	TAD	CM1300	/SET SYMBOL TABLE TO ZEROS (6300-7577 FIELD 1)
	DCA	INDX
	TAD	BSYMP
	DCA	TPTT
LP,	DCA I	TPTT
	ISZ	INDX
	JMP	LP
	TAD	CM60
	DCA	INDX
	TAD	BTTAB
	DCA	TPTT
	DCA I	TPTT	/ZERO OUT TEMPORARY TABLES IN FIELD 0
	ISZ	INDX
	JMP	.-2
	CDF	10
	TAD	MIN104	/ZERO EVERYTHING FROM ZERO TO 107
	DCA	INDX
	TAD	CP6
	DCA	TPTT
LPP,	DCA I	TPTT
	ISZ	INDX
	JMP	LPP
	TAD	TPT	/MOVE DATA FROM TABLE TO FIELD 0
	DCA	TPTT
REP,	CDF	00
	TAD I	TPTT
	SNA		/END OF FIELD 0 INITIALIZATION?
	JMP	DN	/YES
	DCA	LOC
	TAD I	TPTT
	CDF	10
	DCA I	LOC
	JMP	REP
DN,	TAD I	TPTT	/MOVE DATA FROM TABLE TO FIELD 1
	SNA		/END FIELD 1 INITIALIZATION
	JMP	DNN	/YES
	DCA	LOC
	TAD I	TPTT
	DCA I	LOC
	JMP	DN
DNN,	CIF	10
	JMP I	STRT
LOC,	0
INDX,	0
MIN104,	L7-ASSIGN
CP6,	L7-1
CM1300,	-1300
CM60,	-60
BTTAB,	ITTAB-1
BSYMP,	BSYM-1		/BOTTOM OF TEMPORARY SYMBOL TABLE
STRT,	FORST		/STARTING POINT AFTER INITIALIZATION
TPTT=10
TPT,	TABLE-1
TABLE,
PUNCH
	LTTYPE
15
	DOEND
45
	FTTAB
51
	ITTAB
47
	TSYM-3
50
	TSYM
55
	-25
56
	BSYM
57
	BSYM
71
	5777
74
	3000
MIKE4
	3377
POINTZ
	3377
BASE
	INBUF
BASE2
	INBUF+100
SCOUNT
	0
SCOUNT+1
	0
SCOUNT+2
	0
QONE
	0
QONE+1
	0
QONE+2
	0
QONE+3
	0
QONE+4
	0
QONE+5
	0
QONE+6
	0
0		/THIS TERMINATES FIELD ZERO INITIALIZATION
2375
	4000
2376
	4000
2377
	4000
0

/	ERROR MESSAGE TABLE AND TEXT

ELIST,	-ERR1-1;  EMSG1	/ILLEGAL CONTINUATION
	-ERR2-1;  IE	/ILLEGAL ARITHMETIC EXPRESSION
	-ERR3-1;  IE
	-ERR6-1;  IE
	-ERR9-1;  EMSG3
	-ERR10-1; EMSG4
	-ERR12-1; EMSG4
	-ERR14-1; EMSG4
	-ERR15-1; EMSG3
	-ERR16-1; EMSG5
	-ERR17-1; EMSG6
	-ERR18-1; SE	/SYNTAX ERROR
	-ERR28-1; SE
	-ERR29-1; SE
	-ERR30-1; EMSG8  /ILLEGAL VARIABLE
	-ERR31-1; SE
	-ERR35-1; SE
	-ERR37-1; CE
	-ERR38-1; EMSG9  /ILLEGAL DO NESTING
	-ERR39-1; SE
	-ERR40-1; IE
	-ERR41-1; EMSG10  /EXPRESSION TOO BIG
	-ERR42-1; IE
	-ERR43-1; EMSG11  /MIXED MODE
	-ERR44-1; EMSG9
	-ERR48-1; SE
	-ERR50-1; SE
	-ERR51-1; SE
	-ERR52-1;IE
	-ERR53-1; EMSG12  /ILLEGAL SUBSCRIPT
	-ERR54-1; EMSG13  /ILLEGAL EQUIVALENCING
	-ERR59-1; SE
	-ERR60-1; EMSG3
	0;	  EMSG14  /COMPILER MALFUNCTION

EMSG1,	TEXT /ILLEGAL CONTINUATION/
IE,	TEXT /ILLEGAL ARITHMETIC EXPRESSION/
EMSG3,	TEXT /ILLEGAL STATEMENT/
EMSG4,	TEXT /ILLEGAL CONSTANT/
EMSG5,	TEXT /ILLEGAL STATEMENT NUMBER/
EMSG6,	TEXT /SYMBOL TABLE EXCEEDED/
SE,	TEXT /SYNTAX ERROR/
EMSG8,	TEXT /ILLEGAL VARIABLE/
EMSG9,	TEXT /ILLEGAL OR EXCESSIVE DO NESTING/
EMSG10, TEXT /ARITHMETIC EXPRESSION TOO COMPLEX/
EMSG11, TEXT /MIXED MODE EXPRESSION/
EMSG12, TEXT /EXCESSIVE SUBSCRIPTS/
EMSG13,	TEXT /ILLEGAL EQUIVALENCING/
EMSG14,	TEXT /COMPILER MALFUNCTION/
CE,	TEXT /UNBALANCED QUOTES/
ITTAB=710
FTTAB=ITTAB+30
DOEND=2377
BSYM=6300
TSYM=7600

/ THE STATEMENT TYPE TABLE FOLLOWS
	*2600
STYPE,	7361	/-DO
	0000
	LDO
	6672	/-IF
	0000
	LIF
	7061	/-GO
	5361	/-TO
	LGOTO
	7477	/-CA
	6364	/-LL
	CAL
	5573	/-RE
	5353	/-TU
	LRET
	7461	/-CO
	6154	/-NT
	LCONT
	5454	/-ST
	6060	/-OP
	LSTOP
	5777	/-PA
	5255	/-US
	LPAUSE
	5573	/-RE
	7674	/-AD
	LREAD
	5056	/-WR
	6654	/-IT
	LWRIT
	7161	/-FO
	5563	/-RM
	LFRMAT
	7262	/-EN
	7400	/-D
	LLAST
	7461	/-CO
	6263	/-MM
	LCOMON
	7367	/-DI
	6273	/-ME
	LDIMEN
	7257	/-EQ
	5267	/-UI

	EQUI
	-0611	/-FI
	-1611	/-NI
	LFIN
XXSUBR,	5453	/-SU
	7556	/-BR
	LSUB
	7153	/-FU
	6175	/-NG
LFUNC
	0000	/THIS IS THE END OF LIST
AREA1,	0
AREA2,	0

/ THE PRECEDENCE TABLE FOLLOWS, NON-ZERO PREC. OPERATORS APPEAR
	-45	/ PREC('%') = 7    NOTE: '%' REPLACES '**'
	700
	-52	/ PREC('*') = 5
	500
	-57	/ PREC('/') = 5
	500
	-53	/ PREC('+') = 4
	=00
	-55	/ PREC('-') = 4
	400
	-75	/ PREC('=') = 1
	100
	-74	/ PREC('<') = 1    NOTE: '<' IMPLIES SUBSCRIPTED ASSIGNMENT
	100
	1	/THOe-IS THE END OF THE TABLE
THOU,	-1750
	-144
	-12
	-1

/ THE PERMANENT SYMBOL TABLE BEGINS HERE
	*6000
	1501	/MAIN
	1116
	0001
	0601	/FAD
	0400
	0001
	2324	/STO
	1700
	0001
	0623	/FSB
	0200
	0001
	0615	/FMP
	2000
	0001
	0604	/FDV
	2600
	0001
	1520	/MPY
	3100
	0001
	0411	/DIV
	2600
	0001
	2205	/READ
	0104
	0001
	2722	/WRITE
	1124
	0501
	1117	/IOH
	1000
	0001
	5060	/(0
	0000
	0001
	1215	/JMP
	2000
	0001
	1617	/NOP
	2000
	0001
	0516	/ENTRY
	2422
	3101
	0501	/EAP
	2000
	0001
	2001	/PAUSE
	4};+
	8501F