Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50530/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
**************