Google
 

Trailing-Edge - PDP-10 Archives - k20v7c - mfg/src/ddrpi.b20
There are no other files named ddrpi.b20 in the archive.
00001	!DDRPI VERIFICATION TEST FOR UETP
00400	LET P1 = 0	!USE DDRPI
00460	DIM R$(60)	!SAVE FOR RELIAB.CMD
00500	LET FLA$ = 'CONFIG'
00600	LET BOB = 0
42160	rem	[DDRPI-HEADING]
42220	PRINT "DDRPI ROUTINES"
42280	PRINT "TYPE 'E' TO EXIT"
42340 	B$ ="<UETP.LIB>DSK"		UNLESS BOB = 1
42400 	B$ ="<UETP.RUN>DSK"	UNLESS BOB = 0
42460	BB$ = 'X'
42520	C$ = ".VER"
42580	
42640	PRINT '*****'
42700	INPUT 'DRIVE NUMBER (0-7) ====' D$\D$ = EDIT$(D$,32%)
42760	IF LEFT(D$,1) = 'H' THEN PRINT 'NUMBER OF DRIVE ON LAP PLUG OR "E" '\GOTO 42700
42820	IF LEFT(D$,1) = 'E' GOTO 52120	![EXIT]
42880	INPUT 'DRIVE TYPE (7,6,4)...... ' E$\E$ = EDIT$(E$,32%)
42940	IF LEFT(E$,1) = 'H' THEN PRINT '6 FOR RP06, 4 FOR RP04 '\GOTO 42880
43000	INPUT 'DUAL-PORTED (Y,N)..... ' F$\F$ = EDIT$(F$,32%)
43060	F$ = LEFT(F$,1)
43120	IF F$ = 'H' THEN PRINT 'BOTH PORTS BEING TESTED' \GOTO 43000
43180	INPUT 'FIRST-RH # (0-7)...... 'G$\G$ = EDIT$(G$,32%)
43240	IF LEFT(G$,1) = 'H' THEN PRINT 'RH20 NUMBER IN PORT A '\GOTO 43180
43300	IF F$ <> "Y" GOTO 43540
43360	INPUT 'SECOND-RH # (0-7)..... 'H$\H$ = EDIT$(H$,32%)
43420	IF LEFT(H$,1) = 'H' THEN PRINT 'RH20 NUMBER IN PORT B '\GOTO 43360
43480	BB$ = H$
43540	A$ = G$ + D$
43600	Q$ = B$ + BB$ + A$ + C$
43660	O$ = "DSK"+  BB$ + A$
43720	open  Q$ for output as file #10,access write 
43780	MARGIN #10, 120
43840	PRINT #10:	";Assumptions:"
43900	PRINT #10:	"!DIAMON ,DDRPI exits in <1-DIAGNOTICS> OR <2-DIAGNOSTICS>"
43960	PRINT #10:	"!"
44020	PRINT #10:	"begin1::"
44080	PRINT #10:	"@ENA"
44140	PRINT #10:	"@DEF DSK: PS:<UETP.RUN>, PS:<UETP.LIB>, PS:<1-DIAGNOSTICS>, PS:<2-DIAGNOSTICS>"
44200	PRINT #10:	"!"
44260	PRINT #10:	"begin2::"
44320	PRINT #10:	"@RUN <uetp.lib>sender"
44380	PRINT #10:	"*TYPE START"
44440	PRINT #10:	"*BLABEL BEGIN"
44500	PRINT #10:	"*TEST ";O$
44560	PRINT #10:	"*SEND Start of DDRPI test for ";O$![DSK-ID]"
44620	PRINT #10:	"*EXIT"
44680	PRINT #10:	"@REVIVE"
44740	PRINT #10:	"!"
44800	PRINT #10:	"@RUN DIAMON"
44860	PRINT #10:	"*S"
44920	PRINT #10:	"*DDRPI"
44980	PRINT #10:	"*Y"
45040	PRINT #10:	"*10"
45100	PRINT #10:	"*0"
45160	
45220	PRINT #10:	"*N"
45280	PRINT #10:	"*N"
45340	PRINT #10:	"*Y"
45400	PRINT #10:	"*Y"
45460	PRINT #10:	"*Y"
45520	IF G$ = "0"THEN LET I$ = "540"
45580	IF G$ = "1"THEN LET I$ = "544"
45640	IF G$ = "2"THEN LET I$ = "550"
45700	IF G$ = "3"THEN LET I$ = "554"
45760	IF G$ = "4"THEN LET I$ = "560"
45820	IF G$ = "5"THEN LET I$ = "564"
45880	IF G$ = "6"THEN LET I$ = "570"
45940	IF G$ = "7"THEN LET I$ = "574"
46000	PRINT #10:	""; I$	!CONTR NO.
46060	PRINT #10:	""; D$	!DRIVE UNIT"
46120	PRINT #10:	""; E$	UNLESS E$ = '7'	!TYPE
46130	IF E$ = '7' THEN PRINT #10:	"6"
46180	J$ =	"E" + G$ +D$
46240	PRINT #10:	""; J$ UNLESS J$ = 'E00'
46300	K$ = G$ + D$
46360	PRINT #10:	""; K$	!CHAN-UNIT
46420		![END-MOD]"
46430	IF E$ = '7' GOTO 47860
46480		![DELETE-RANGE]"
46540	PRINT #10:	"*DELETE"
46600	PRINT #10:	"*Y"
46660	PRINT #10:	"*N"
46720	PRINT #10:	"*Y"
46780	PRINT #10:	""; K$	!CHAN-UNIT"
46840		![END-MOD]"
46900	IF E$  <> "6" GOTO 47500	!RP04-RANGE
46960		![RP06-RANGE]
47020	PRINT #10:	"*1250"
47080	PRINT #10:	"*1450"
47140	PRINT #10:	"*0"
47200	PRINT #10:	"*22"
47260	PRINT #10:	"=^["
47320		![END-MOD]"
47380	GOTO 47920	!DDRPI-MAPOUT
47440		![RP04-RANGE]
47500	PRINT #10:	"*430"
47560	PRINT #10:	"*630"
47620	PRINT #10:	"*0"
47680	PRINT #10:	"*22"
47740	PRINT #10:	"=^["
47800		![END-MOD]
47860		![DDRPI-MAPOUT]
47920	PRINT #10:	"*mapout"
47980	PRINT #10:	"*n"
48040	PRINT #10:	"*y"
48100	PRINT #10:	"*n"
48160	PRINT #10:	"*y"
48220	PRINT #10:	"=^["
48280	PRINT #10:	"*n"
48340		![END-MOD]
48400		![DDRPI-TESTS]
48410	IF E$ = '7' GOTO 48650
48460	PRINT #10:	"@REVIVE"
48520	PRINT #10:	"*FRTEST" UNLESS K$ = '00'
48580	PRINT #10:	"*OPDTST" UNLESS K$ = '00'
48640	PRINT #10:	"*RAND"   UNLESS K$ = '00'
48650	PRINT #10:	"*WONLY"   UNLESS K$ = '00'
48700	PRINT #10:	"*RONLY"  
48760		![END-MOD]
48820	F$ = EDIT$(F$,32%)
48880	IF F$ <> 'Y' THEN GOTO 49240 !DDRPI-END
48940	LET F$ = '1'	!CLEAR FLAG
49000	LET G$ = H$ !NEW RH#
49060	PRINT #10:	"CONFIG"
49120	GOTO 45520	!DO DUAL PORT STUFF
49180		![DDRPI-END]
49240	PRINT #10:	"=^C"
49300	PRINT #10:	"@IF (NOERROR) @GOTO END::"
49360	PRINT #10:	"!"
49420	PRINT #10:	"%ERR::"
49480	PRINT #10:	"!"
49540	PRINT #10:	"!@SILENCE		!***** message: unknown ERROR in DDRPI test ";O$! [DSK-ID]"
49600	PRINT #10:	"@RUN <uetp.lib>sender"
49660	PRINT #10:	"*TYPE ERROR"
49720	PRINT #10:	"*BLABEL ERR::"
49780	PRINT #10:	"*TEST ";O$![DSK-ID]"
49840	PRINT #10:	"*SEND ERROR in DDRPI test for ";O$;"...CHECK ";O$;".LOG"
49900	PRINT #10:	"*EXIT"
49960	PRINT #10:	"@REVIVE"
50020	PRINT #10:	"@GOTO ENDERR::"
50080	PRINT #10:	"!"
50140	PRINT #10:	"ENDERR::"
50200	PRINT #10:	"@NOERROR"
50260	PRINT #10:	"@VDIR <UETP.LIB>DSK*.*"
50320	PRINT #10:	"@VDIR <1-DIAGNOSTICS>"
50380	PRINT #10:	"@VDIR <2-DIAGNOSTICS>DDR*.*"
50440	PRINT #10:	"@I LOG ALL"
50500	PRINT #10:	"@SY ALL F-S"
50560	PRINT #10:	"@INF FI"
50620	PRINT #10:	"@INF MEM"
50680	PRINT #10:	"@goto end::"
50740	PRINT #10:	"!"
50800	PRINT #10:	"@CHKPNT ADSF::"
50860	PRINT #10:	"!"
50920	PRINT #10:	"END::"
50980	PRINT #10:	"%FIN::"
51040	PRINT #10:	"!@SILENCE		!***** message: End of DDRPI test ";O$![DSK-ID]
51100	PRINT #10:	"@RUN <uetp.lib>sender"
51160	PRINT #10:	"*TYPE END"
51220	PRINT #10:	"*BLABEL END::"
51280	PRINT #10:	"*TEST ";O$![DSK-ID]"
51340	PRINT #10:	"*SEND End of DDRPI test for ";O$![DSK-ID]"
51400	PRINT #10:	"*EXIT"
51460	PRINT #10:	"@REVIVE"
51520	PRINT #10:	"@reset"
51580	PRINT #10:	"!"
51640	REM	[END-MOD]
51700	close #10
51760	O$ = "ENA "+O$
51820	LET P1 = P1 + 1
51880	LET R$(P1) = O$
51940	PRINT 'PLEASE ';O$
52000	BB$ = 'X'
52060	GOTO 42640	!DDRPI-INPUT
52120	IF FLA$ <> 'CONFIG' THEN RETURN
99999	END