Trailing-Edge
-
PDP-10 Archives
-
decuslib10-05
-
43,50337/25/compil.cor
There is 1 other file named compil.cor in the archive. Click here to see a list.
-!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