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