Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50417/com22b.scm
There are no other files named com22b.scm in the archive.
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
**************