Trailing-Edge
-
PDP-10 Archives
-
k20v7c
-
mfg/src/messx.mod
There are no other files named messx.mod in the archive.
@DEFINE UTP: PS:<UETP.LIB> !.none
@TAKE PS:<UETP.LIB>SYS.CMD !.none
@SILENCE
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST MESSX
*SEND START OF MESSX TEST
*EXIT
@
LOOP::
@DAY
@RUN UTP:SENDER
*TYPE MAJOR
*BLABEL MESSX
*TEST MESSX
*SEND NEXT
*SEND ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
*EXIT
@PAUSE
@GOTO END
!
%ERR::
OUTERR::
@NOERROR
PAUSE
@GOTO END
%TERR:
!
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL ERROR:
*TEST MESSX
*SEND ERROR IN MESSX TEST
*EXIT
END::
%FIN::
@REVIVE
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE END
*BLABEL END:
*TEST MESSX
*SEND END OF MESSX TEST
*EXIT