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