File 1)	DSK:COMPIL.DEC	created: 0000 29-AUG-1974
File 2)	DSK:COMPIL.MAC	created: 0000 29-DEC-1976

1)1		TITLE	COMPIL	22B(236)	CCL CONTROL CUSP
1)	SUBTTL	WEIHER/CLEMENTS/RCC/PMH/NGP/DMN/HPW	29-AUG-74
1)		SUBTTL	PROGRAM TO COMPILE LOAD EXECUTE AND DEBUG USER PROGRAMS
1)	VCOMPIL==22
****
2)1		TITLE	COMPIL	22B(236)-2	CCL CONTROL CUSP
2)	SUBTTL	WEIHER/CLEMENTS/RCC/PMH/NGP/DMN/HPW	29-AUG-74
2)		SUBTTL	PROGRAM TO COMPILE LOAD EXECUTE AND DEBUG USER PROGRAMS
2)	FQZSIM==-1			;[IFI-HH%10-29-75]QZ-MODIFICATIONS FOR SIMULA ******
2)	VCOMPIL==22
**************
1)1	VCUSTOM==0			;NON-DEC UPDATE LEVEL
1)	;THE ORIGINAL VERSION OF
****
2)1	VCUSTOM==4			;[IFI-HH%12-29-76%PASCAL]NON-DEC UPDATE LEVEL FOR 22B(236)
2)	;THE ORIGINAL VERSION OF
**************
1)1	IFNDEF TEMP,<TEMP==1>		;TEMP=1 ALLOWS THE TMPCOR UUO TO BE USED
****
2)1	IFN FQZSIM,<
2)	IFNDEF SIMULA,<SIMULA==1>>	;ACCEPT SIMULA
2)	IFNDEF TEMP,<TEMP==1>		;TEMP=1 ALLOWS THE TMPCOR UUO TO BE USED
**************
1)3	SWBK==5			;NUMBER OF WORDS FOR SWITCHES TO PROCESSOR
1)	LODSCT==^D40+^D40*LINK10	;NUMBER OF LOADER SWITCHES PER FILE ALLOWED
****
2)3	SWBK==5+17			;[06-04-76%IFI-HH%FOR PASCAL]NUMBER OF WORDS FOR SWITCHES TO PROCESSOR
2)	LODSCT==^D40+^D40*LINK10	;NUMBER OF LOADER SWITCHES PER FILE ALLOWED
**************
1)5	IFN SNOBOL,<X SNOBOL,SNO,SNOBOL,,,,_>
****
2)5	X PASCAL,PAS,PASCAL,,,,=
2)	IFN SNOBOL,<X SNOBOL,SNO,SNOBOL,,,,_>
**************
1)5	IFN SAIL,<X SAIL,SAI,SAIL,,,SDDT,_>
****
2)5	IFN FQZSIM,<
2)	IFN SIMULA,<X SIMULA,SIM,SIMULA,,,SIMDDT,_>>
2)	IFN SAIL,<X SAIL,SAI,SAIL,,,SDDT,_>
**************
1)6	LOOK==0		;CHANNEL FOR DOING LOOKUPS FOR INFORMATION
****
2)6	IFN FQZSIM,<
2)	IFE SIMULA,<SIMSW==0>>
2)	LOOK==0		;CHANNEL FOR DOING LOOKUPS FOR INFORMATION
**************
1)12					;**;[201],GETN2+5,HPW,11/14/73
****
2)12		CAMN	T1,[SIXBIT/PAS/]	;[IFI-HH%12-21-76] FOR PASCAL
2)		TLO	FL3,LISTSW	;[IFI-HH%12-21-76] AS DEFAULT
2)					;**;[201],GETN2+5,HPW,11/14/73
**************
1)25		JRST	.+4		;NO
1)		PUSHJ	P,OUTSIX	;YES, /E
****
2)25	IFE FQZSIM,<
File 1)	DSK:COMPIL.DEC	created: 0000 29-AUG-1974
File 2)	DSK:COMPIL.MAC	created: 0000 29-DEC-1976

2)		JRST	.+4		;NO
2)	>
2)	IFN FQZSIM,<
2)		JRST	.+6
2)		CAMN	T2,[',SYS: ']		;SIMULA DEBUG?
2)		JRST	[PUSHJ	P,OUTSIX	;YES OUTPUT ',SYS:SIMLIB/S
2)		MOVE	T2,['SIMLIB']		;STA:.OCRE0/E'
2)		PUSHJ	P,OUTSIX		;SIMLIB MUST BE SEARCHED FIRST
2)		MOVE	T2,['/S/STA']		;TO DEFINE THE START ADDRESS
2)		PUSHJ	P,OUTSIX		;.OCRE0 WHERE THE FIRST
2)		MOVE	T2,[':.OCRE']		;ACTION IS TO LOAD AND
2)		PUSHJ	P,OUTSIX		;START SIMDDT
2)		MOVSI	T2,'0/E'
2)		JRST	.+1]
2)	>
2)		PUSHJ	P,OUTSIX	;YES, /E
**************
1)46		CAIN	C,"("		;[221] ALLOW "(" TO ENCLOSE SWITCH VALUES
****
2)46		CAIN	C,"/"		;[252] IFI-HH%06-04-76
2)		JRST	PROCS2		;[252] IFI-HH%06-04-76
2)		CAIN	C,"("		;[221] ALLOW "(" TO ENCLOSE SWITCH VALUES
**************
1)46	PROCS2:	IDPB	C,SWPT		;SAVE IT AWAY
****
2)46	IFN FQZSIM,<
2)		CAIN	C,"-"		;ALLOW MINUS FOR SWITCHES TO SIMULA
2)		JRST	PROCS2
2)	>
2)	PROCS2:	IDPB	C,SWPT		;SAVE IT AWAY
**************
1)50		TLNE	FL2,RELSW	;IF A REL FILE
****
2)50		TLNE	FL2,PASSW	;[IFI-HH%12-29-76] FORCE LISTING
2)		TLO	FL3,LISTSW	;[IFI-HH%12-29-76] FOR PASCAL
2)		TLNE	FL2,RELSW	;IF A REL FILE
**************
1)52		TLNN	FL2,CBLSW!BLISW	;SKIP /CREF IF COBOL OR BLISS (SPECIAL)
****
2)52		TLNE	FL2,PASSW	;[IFI-HH%12-29-76] FOR PASCAL NO SPOOLING
2)		JRST	DOCOM3		;[IFI-HH%12-29-76] LPT-FILES
2)		TLNN	FL2,CBLSW!BLISW	;SKIP /CREF IF COBOL OR BLISS (SPECIAL)
**************
1)53		TLNN	FL2,CBLSW!BLISW	;DON'T WRITE /CREF IF COBOL OR BLISS (SPECIAL)
1)		PUSHJ	P,ENTCRF	;PUT IT IN THE ###CREF FILE
****
2)53	IFE FQZSIM,<
2)		TLNN	FL2,CBLSW!BLISW	;DON'T WRITE /CREF IF COBOL OR BLISS (SPECIAL)
2)	>
2)	IFN FQZSIM,<
2)		TLNN	FL2,CBLSW!BLISW!SIMSW	;NOT FOR SIMULA EITHER
2)	>
2)		PUSHJ	P,ENTCRF	;PUT IT IN THE ###CREF FILE
**************
1)55	GETDD1:	TRNE	FL,LINKFL	;IF LINK-10
****
File 1)	DSK:COMPIL.DEC	created: 0000 29-AUG-1974
File 2)	DSK:COMPIL.MAC	created: 0000 29-DEC-1976

2)55	IFN FQZSIM,<
2)		CAIN	T2,^L<SIMSW>-22	;SIMULA DEBUG
2)		JRST	[POP	P,T2		;JUNK
2)		MOVE	T2,[',SYS: ']		;INDICATE SIMULA DEBUG WITH
2)		MOVEM	T2,EXECFL		;,SYS: IN EXECFL
2)		JRST	NODDT]
2)	>
2)	GETDD1:	TRNE	FL,LINKFL	;IF LINK-10
**************