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