Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/user-cnvt.mic
There is 1 other file named user-cnvt.mic in the archive. Click here to see a list.
! MIC FILE TO EDIT UETP TESTS AND INSERT DEFINITIONS FOR
! RUNNING ON USER STRUCTURE.
! PARAMETER A = 'A = STRUCTURE TO USE
!
! TYPE "^P" TO CONTINUE
! TYPE "^B" TO ABORT
!
!
@DEF PS:
@ERROR ?
@MOUNT STRUCTURE 'A:
@IF (ERROR) @GOTO NOSTR
@NOERROR ?
!
@TV PS:<UETP.LIB>ALGOL.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>APL.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>APLSF.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>BASIC.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>CBL74.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>RMS.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>RANCBL.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>RANFOR.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>SORT.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@TV PS:<UETP.LIB>FORTRA.VER
*I@TAKE PS:<UETP.LIB>SYS.CMD
*@TAKE 'A:<UETP.LIB>'A.CMD
*0J;X'A:<UETP.LIB>
@GOTO END
NOSTR::
END::