Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/user-bld.mic
There is 1 other file named user-bld.mic in the archive. Click here to see a list.
!	Mic file for copying necssarry files to User structure
!	for running UETP
!
!	Parameters A = User Structure = 'A:
!
!	Type "^P" to proceed
!	Type "^A" to abort
!
=^B
!
@ENA
@PHOTO
*'A.BLD
!
@ENA
@day
@DEF FROM: PS:
@DEF TO: 'A:
!
!
@OPR
*MOUNT STRUCTURE 'A:
*WAIT 2
*WAIT 1
*EXIT
!
@MOUNT STRUCTURE TO:
@DLUSER
*STRUCTURE TO:
*LOAD FROM:<UETP.LIB>USER.TXT
*EXIT
@NOERROR
!
@COPY FROM:<FIELD-IMAGE>*.* TO:<FIELD-IMAGE>
@COPY FROM:<NEW-SUBSYS>*.* TO:<NEW-SUBSYS>
@COPY FROM:<SUBSYS>*.* TO:<SUBSYS>
@COPY FROM:<UETP.LIB>*.* TO:<UETP.LIB>
@COPY FROM:<SYSTEM>EXEC.EXE TO:<SYSTEM>
!
@DAY
!
@POP
!
!	TYPE: "DO PS:<UETP.LIB>USER-CNVT.MIC 'A"
!
@KMIC