Google
 

Trailing-Edge - PDP-10 Archives - AP-D480B-SB_1978 - lista.ctl
There are no other files named lista.ctl in the archive.
; ********** LISTA.CTL: LISTINGS FOR FORTRA

P0STR::
.CHKPNT P0STR
.DEA
.MOUNT FTN
.AS DEC SYS
.AS NEW BLS		; USE BLIS10 5A(206)-1
.AS DEC ASM		; USE MACRO 50A
.R SETSRC
*A FTN,*
*LIB:[31,4650]
.SET WATCH ALL
.NOERROR

MAINC::
.RUN BLS:BLIS10
*,MAIN/M/S=MAIN.BLI


GLOBC::
.RUN BLS:BLIS10
*,GLOBAL/M/S=GLOBAL


ERR3C::
.RUN ASM:MACRO
*,ERR3/C=ERR3


INOUC::
.RUN BLS:BLIS10
*,INOUT/M/S=INOUT


ERRAC::
.RUN BLS:BLIS10
*,ERROVA/M/S=ERROVA


UNENC::
.RUN BLS:BLIS10
*,UNEND/M/S=UNEND.BLI


COMMC::
;USE C.UNV AND SCNMAC.UNV FROM DEC:
.AS DEC UNV
.RUN ASM:MACRO
*,JOBD/C=JOBD
.RUN ASM:MACRO
*,COMMAN/C=COMMAN.515

OWNDC::
.RUN ASM:MACRO
*,OWNDM/C=OWNDM.MAC

.R CREF
*ERR3=ERR3
*JOBD=JOBD
*COMMAN=COMMAN
*OWNDM=OWNDM

.DEAS

;	.PRI LL:_*.LST/DISPOSE:PRESERVE