Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0128/taptst.mac
There are 3 other files named taptst.mac in the archive. Click here to see a list.
TITLE TAPTST DUMMY TAPTST PROGRAM TO RUN COPYMT
SUBTTL BLS
SEARCH UUOSYM
.REQUE SYS:F10LIB ;HERE IS WHERE TMPWRT LIVES
T1= 1
L= 16
P= 17
PDSIZ== 20
PLIST: BLOCK PDSIZ
TAPTST: JFCL ;GUARD AGAINST CCL
RESET
SKIPA P,.+1 ;INIT PDP
IOWD PDSIZ,PLIST
OUTSTR MSG1 ;TELL USER QUE PASSE
MOVEI L,TWRABL
PUSHJ P,TMPWRT## ;WRITE THE FILE
MOVEI T1,RUNUBL
HRLI T1,1 ;CCL ENTRY
RUN T1, ;GO FIND COPYMT
OUTSTR ERMSG2 ;TELL CAN'T
EXIT
-3,,0 ;FORTRAN ARG BLK
TWRABL: EXP CWTFIL ;ERR RETURN
EXP CMTMSG ;STRING
EXP [ASCIZ/CMT/] ;TMP FILE NAME
MSG1: ASCIZ /
%TAPTST HAS BEEN SUPERSEDED BY COPYMT
%RUNNING COPYMT AUTOMATICALLY TO TEST TAPE "TAPTST"
/
CMTMSG: ASCIZ \TAPTST:/TEST/OPTION
\
EXP 0 ;MARK END FOR TMPWRT
ERMSG2: ASCIZ /
% SORRY, CAN'T FIND COPYMT TODAY
/
ERMSG1: ASCIZ \
% SORRY, CAN'T WRITE TMPFIL TO SEND TO COPYMT
\
CWTFIL: OUTSTR ERMSG1
EXIT
RUNUBL: SIXBIT /SYS/
SIXBIT /COPYMT/
SIXBIT /LOW/
EXP 0,0
EXP 0
EXP 0
END TAPTST