Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50433/compil.scm
There are 2 other files named compil.scm in the archive. Click here to see a list.
File 1) DSK:COMPIL.MAC created: 0324 21-MAY-1977
File 2) MON:COMPIL.DEC created: 1309 28-JULY-1976
1)1 IFNDEF PASCAL,<PASCAL==1> ;[DLF] PASCAL COMPILER
1) IFNDEF DEBSW,<DEBSW==0> ;DEBUGGING AIDS IF NON-ZERO
****
1) IFNDEF DEBSW,<DEBSW==0> ;DEBUGGING AIDS IF NON-ZERO
**************
1) IFN PASCAL,<X PASCAL,PAS,PASCAL,,,,=>
1) >
****
2) >
**************
1)25 ALDN1A: CAIN T3,CHNPAS ;[DLF] IS THIS PASCAL?
1) JRST ALDN2 ;[DLF] USE THE SCAN-TYPE LINKAGE
1) CAIE T3,CHNFOR ;IS THIS FORTRAN?
1) JRST ALDN3 ;[DLF] NO, USE THE OLD LINKAGE
1) SKIPN T1,FORPRC ;YES, BUT SEE WHICH
1) MOVE T1,PRCNAM(T3) ;EITHER F40 OR F-10
1) CAME T1,['FORTRA'] ;F-10 IS SPECIAL
1) JRST ALDN3 ;[RD]
1) ALDN2: MOVE T2,['/RUN: '] ;AS IT USES SCAN
1) PUSHJ P,OUTSIX
1) SKIPE T2,PCDEV ;USE DEVICE IF GIVEN
1) PUSHJ P,OUTDEV
1) MOVE T2,PCNAM ;NAME WE WANT TO RUN
1) PUSHJ P,OUTSIX
1) PUSHJ P,OUCRLF
1) JRST NONAM ;[RD]
1) ALDN3: SKIPE T2,PCDEV ;GET DEVICE IF GIVEN
1) PUSHJ P,OUTDEV
****
2)25 IFN FORTRAN,<
2) CAIN T3,CHNFOR ;IS THIS FORTRAN?
2) JRST [SKIPN T1,FORPRC ;YES, BUT SEE WHICH
2) MOVE T1,PRCNAM(T3) ;EITHER F40 OR F-10
2) CAME T1,['FORTRA'] ;F-10 IS SPECIAL
2) JRST .+1 ;F40
2) MOVE T2,['/RUN: '] ;AS IT USES SCAN
2) PUSHJ P,OUTSIX
2) SKIPE T2,PCDEV ;USE DEVICE IF GIVEN
2) PUSHJ P,OUTDEV
2) MOVE T2,PCNAM ;NAME WE WANT TO RUN
2) PUSHJ P,OUTSIX
2) PUSHJ P,OUCRLF
2) JRST NONAM]>
2) SKIPE T2,PCDEV ;GET DEVICE IF GIVEN
2) PUSHJ P,OUTDEV
**************
1)55 ifn pascal,<
1) cain t2,^L<passw>-22 ;[CLH] pascal debug?
1) jrst [ pop p,t2 ;[CLH] not needed
1) move t2,['SYS:PA'] ;[CLH]
1) pushj p,outsix ;[CLH]
1) move t2,['SDDT/E'] ;[CLH]
1) pushj p,outsix ;[CLH]
1) pushj p,oucrlf ;[CLH]
1) jrst noddt] ;[CLH]
1) > ;ifn pascal
1) GETDD1: TRNE FL,LINKFL ;IF LINK-10
****
2)55 GETDD1: TRNE FL,LINKFL ;IF LINK-10
**************
1)62 IFN PASCAL,<
1) CAIN T3,CHNPAS ;USING PASCAL
1) JRST OUTSW2 ;THEN PASS SWITCHES THE SCAN WAY
1) >; END OF IFN PASCAL
1) CAIN T3,CHNFOR ;OR FORTRAN-10
****
2)62 CAIN T3,CHNFOR ;OR FORTRAN-10
**************