perm filename COMPIL.COR[SIM,SYS] blob sn#460007 filedate 1979-07-20 generic text, type T, neo UTF8
-!COMPIL.MAC←COMPIL.MAC
-4
FQZSIM==-1			;QZ-MODIFICATIONS FOR SIMULA *******
-50
IFN FQZSIM,<
IFNDEF SIMULA,<SIMULA==1>>	;ACCEPT SIMULA COMPILER
-263
IFN FQZSIM,<
IFN SIMULA,<X SIMULA,SIM,SIMULA,,,,=>>
-302
IFN FQZSIM,<
IFE SIMULA,<SIMSW==0>>
-303:LOOK==0		;CHANNEL FOR DOING LOOKUPS FOR INFORMATION
-1207,1207
IFE FQZSIM,<
	JRST	.+4		;NO
	>
IFN FQZSIM,<
	JRST	.+6
	CAMN	T2,[',SYS: ']	;SIMULA DEBUG?
	JRST	[PUSHJ	P,OUTSIX	;YES OUTPUT ',SYS:SIMLIB/S
		 MOVE	T2,['SIMLIB']	; /STA:.OCRE0/E'
		 PUSHJ	P,OUTSIX	; SIMLIB MUST BE SEARCHED FIRST
		 MOVE	T2,['/S/STA']	; TO DEFINE THE START ADDRESS
		 PUSHJ	P,OUTSIX	; .OCRE0 WHERE THE FIRST 
		 MOVE	T2,[':.OCRE']	; ACTION IS TO LOAD AND
		 PUSHJ	P,OUTSIX	; START SIMDDT
		 MOVSI	T2,'0/E'
		 JRST	.+1]
	>
-1969
IFN FQZSIM,<
	CAIN	C,"-"		;ALLOW MINUS FOR SWITCHES TO SIMULA
	JRST	PROCS2
	>
-2336,2336
IFE FQZSIM,<
	TLNN	FL2,CBLSW!BLISW	;DON'T WRITE /CREF IF COBOL OR BLISS (SPECIAL)
	>
	IFN FQZSIM,<
	TLNN	FL2,CBLSW!BLISW!SIMSW	;NOT FOR SIMULA EITHER
	>
-2490
	IFN	FQZSIM,<
	CAIN	T2,↑L<SIMSW>-22	;SIMULA DEBUG?
	JRST	[POP	P,T2		;JUNK
		 MOVE	T2,[',SYS: ']	;INDICATE SIMULA DEBUG WITH
		 MOVEM	T2,EXECFL	;,SYS: IN EXECFL
		 JRST	NODDT]
	>
-3532:	PUSHJ	P,TMPOUT	;ENDS CREATE OR MAKE COMMAND