Trailing-Edge
-
PDP-10 Archives
-
bb-m836c-bm_tops20_v6_1_tools
-
tools/rmtcon/rmtcon.ctl
There are 3 other files named rmtcon.ctl in the archive. Click here to see a list.
! RMTCON.CTL To build RMTCON
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
! Files needed to build RMTCON !
! !
! .MAC files !
! RMTCNM.MAC !
! RMTCNP.MAC !
! RMTCNT.MAC !
! !
! .REL files !
! KCSUB.REL !
! KCNO10.REL !
! !
! .UNV files !
! KCUNV.UNV !
! MONSYM.UNV !
! !
! .KCM files !
! RELOC.KCM !
! STOR.KCM !
! !
! Misc files !
! RMTCON.RNO !
! RMTCON.HLP !
! !
! Submit RMTCON.CTL !
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@EXP
@IF (ERROR) @GOTO SKIP
@MACRO
*rmtcnT,rmtcnT/C=rmtcnT,RELOC.KCM,STOR.KCM ! .REL,.CRF = .MAC
*rmtcnP,rmtcnP/c=rmtcnP
*rmtcnM,rmtcnM/C=rmtcnM
@R CREF
*rmtcnT=rmtcnT ! .LST = .CRF
*rmtcnM=rmtcnM
*rmtcnP=rmtcnP
@
LINK::
!LINKING
!
! .SAV,.MAP = .REL (if omit .SAV, default out = .EXE)
! .SAV is more compact because zeros are compressed out but takes longer
! to load because zeros have to be put back in.
! rmtcnT has .REQ rmtcnP & M
! Use LINK to produce .EXE files, and DLINK to produce .SAV files
! This is because LINK doesnt know how to handle compressed zero pointers.
!@RUN DLINK
!*rmtcon.SAV/SAV,rmtcon/MAP:end=rmtcnT,KCSUB.REL,KCNO10.REL/GO
@LINK
*RMTCON.EXE/SAVE=RMTCNT.REL,KCSUB.REL,KCNO10.REL/GO
@
!CONVERT produce .A10 file so the PDP11 front end can read in & pass to PDP10
!@CONVRT ; in = .SAV, out = .A10
!*rmtcon
@APPEND rmtcnP.LST,rmtcnM.LST rmtcnT.LST
@RENAME rmtcnT.LST rmtcon.LST
!@DELETE *.REL
!NI SERVICES FUNCTIONAL SPEC
!
! This portion of the file is used to generate the MEM file (RMTCON.MEM) from
! the file RMTCON.RNO. When done, the temporary files used for table of
! contents are deleted.
!
! The first line is necessary because RMTCON.RNO has .REQ RMTCON.RNT
! & since it doesnt exist yet, it would result in an error.
!
! IN OUT
! -- ---
@COPY NUL: RMTCON.RNT
@DSR ; .RNO .BTC & .MEM
*RMTCON/CONTENTS
@TOC ; .BTC .RNT
*RMTCON
*Y
*N
*99
*99
*N
*Y
@DSR ; .RNT .MEM
*RMTCON
@RENAME RMTCON.MEM RMTCND.TXT ; .TXT reqd by release engineering
@DELETE RMTCON.BTC,RMTCON.RNT
@DECDOC ; in = .LST, out = .DOC
rmtcon
@exp ; go thru 2'nd time to build .SEQ file
@START
rmtcon/S=rmtcnD.TXT,rmtcon.DOC,rmtcon.LST
SKIP::@
@