Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/lib/memory.ver
There is 1 other file named memory.ver in the archive. Click here to see a list.
;<UETP.LIB>MEMORY.VER.2, 10-May-79 11:51:41, EDIT BY EIBEN
;Assumptions:
; Area <DIAGNOSTICS> filled with necessary files
; ...and access allowed
@def dsk: DSK:<DIAGNOSTICS>,DSK:<uetp.lib>
@def out: ps:<diagnostics>
@run <uetp.lib>sender
*type start
*blabel BEGIN:
*test memory
*SEND
*exit
@take sys.cmd
@goto begin2:
%ERR::
@RUN <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST memory
*SEND ERROR on TAKE SYS.CMD
*EXIT
@goto ENDERR:
begin2::
@revive
MEMORY::
!here we start SMMON and via that DSKDA
@RUN smmon
@GOTO MEM1:
%ERR::
@SILENCE ! ***** MESSAGE: ERROR ON 'RUN'-COMMAND IN MEMORY.SUP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MEMORY:
*TEST MEMORY
*SEND ERROR ON 'RUN'-COMMAND IN MEMORY.SUP
*EXIT
@REVIVE
@GOTO ENDERR:
MEM1::
*dskda
*0
@GOTO END:
%ERR::
%TERR::
@SILENCE ! ***** MESSAGE: TIME-OUT ERROR MEMORY
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST MEMORY
*SEND TIME-OUT ERROR MEMORY
*EXIT
@REVIVE
@GOTO ENDERR:
%ERR::
@SILENCE ! ***** MESSAGE: UNKNOWN ERROR IN MEMORY.SUP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST MEMORY
*SEND UNKNOWN ERROR IN MEMORY.SUP
*EXIT
@REVIVE
@GOTO ENDERR:
ENDERR::
@INF DIS <DIAGNOSTICS>
@VDIR <DIAGNOSTICS>
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
END::
%FIN::
@silence !***** message: END OF MEMORY TEST
@RUN <uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST MEMORY
*SEND
*EXIT
@revive