Trailing-Edge
-
PDP-10 Archives
-
decuslib10-05
-
43,50337/25/compil.co1
There is 1 other file named compil.co1 in the archive. Click here to see a list.
-!COMPIL.MAC_COMPIL.MAC
-5
FQZSIM==-1 ;QZ-MODIFICATIONS FOR SIMULA *******
-9,9
VCUSTOM==1 ;NON-DEC UPDATE LEVEL
-51
IFN FQZSIM,<
IFNDEF SIMULA,<SIMULA==1>> ;ACCEPT SIMULA COMPILER
-230
IFN FQZSIM,<
IFN SIMULA,<X SIMULA,SIM,SIMULA>>
-269
IFN FQZSIM,<
IFE SIMULA,<SIMSW==0>>
-270:LOOK==0 ;CHANNEL FOR DOING LOOKUPS FOR INFORMATION
-1161,1161
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]
>
-1853
IFN FQZSIM,<
CAIN C,"-" ;ALLOW MINUS FOR SWITCHES TO SIMULA
JRST PROCS2
>
-2209,2209
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
>
-2342
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]
>
-2346,2346
TLO T2,' :' ;OBJECTS TO /D: FOR DDT
-2347: PUSHJ P,OUTSIX