Listing of file='M/DD010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 268, program filename = 'M/DD010A'
0010 REM . M/DD010A, 00-00 (6/28/75), 12002
0100 DIM Q6$64
0110 O1,O2=0
: GOSUB 1410
0130 GOSUB '245("ENTER NO. OF UNIT(S) TO BE TESTED (1,2)",1,0)
: IF Q9>0THEN 170
0150 GOSUB 1940
: GOTO 130
0170 IF Q9>2THEN 150
: H=Q9
: GOSUB 830
: FOR I=1TO H
: GOSUB 990
: GOSUB 1060
: GOSUB 1160
: NEXT I
: IF O2=0THEN 270
: O2=O2-4
0270 FOR I=1TO 200
: NEXT I
: GOSUB 1410
: GOSUB '248(4,0,0)
: PRINT "--------------------------------"
: GOSUB '248(6,8,0)
: PRINT "1. SYSTEM DIAGNOSTIC"
: GOSUB '248(7,8,0)
: PRINT "2. BURN-IN DIAGNOSTIC"
0360 GOSUB '245("CHOOSE THE TYPE OF DIAGNOSTIC (1,2)",1,0)
: IF Q9=1THEN 410
: IF Q9=2THEN 430
: GOSUB 1940
: GOTO 360
0410 O6=1
: GOTO 440
0430 O6=2
0440 GOSUB 1410
: GOSUB '248(4,0,0)
: PRINT "--------------------------------"
: GOSUB '248(6,6,0)
: PRINT "UNIT 1 = ";
: ON O1GOTO 510,530,550,570
: GOTO 610
0510 PRINT "2230-1"
: GOTO 580
0530 PRINT "2230-2"
: GOTO 580
0550 PRINT "2230-3"
: GOTO 580
0570 PRINT "2260"
0580 IF O2=0THEN 680
: GOSUB '248(7,6,0)
: PRINT "UNIT 2 = ";
0610 ON O2GOTO 630,650,670
: STOP "SYSTEM ERROR"
0630 PRINT "SINGLE DRIVE"
: GOTO 680
0650 PRINT "DUAL DRIVE"
: GOTO 680
0670 PRINT "TRIPLE DRIVE"
0680 ON O6GOTO 690,720
0690 GOSUB '248(9,6,0)
: PRINT "TYPE = ";"SYSTEM DIAG."
: GOTO 740
0720 GOSUB '248(9,6,0)
: PRINT "TYPE = ";"BURN-IN DIAG."
0740 GOSUB '245("ENTER 0 TO ACCEPT, 1 TO RE-ENTER",1,0)
: IF Q9=0THEN 790
: IF Q9=1THEN 110
: GOSUB 1940
: GOTO 740
0790 CONVERT O1TO STR(D9$(1),3,1),(#)
: CONVERT O2TO STR(D9$(1),4,1),(#)
: CONVERT O6TO STR(D9$(1),5,1),(#)
: LOAD DC T#6,"M/START"
0830 GOSUB '248(4,0,2)
: PRINT "-----------------------------------------------"
: GOSUB '248(6,4,0)
: PRINT "1. 2230-1"
: GOSUB '248(7,4,0)
: PRINT "2. 2230-2"
: GOSUB '248(8,4,0)
: PRINT "3. 2230-3"
: GOSUB '248(9,4,0)
0920 PRINT "4. 2260"
: GOSUB '248(6,28,0)
: PRINT "5. SINGLE DRIVE"
: GOSUB '248(7,28,0)
: PRINT "6. DUAL DRIVE"
: GOSUB '248(8,28,0)
: PRINT "7. TRIPLE DRIVE"
: RETURN
0990 GOSUB '245("ENTER THE UNIT-NUMBER TO CHOOSE DISK(S)",1,0)
: IF Q9>0THEN 1030
1010 GOSUB 1940
: GOTO 990
1030 IF Q9>7THEN 1010
: H1=Q9
: RETURN
1060 IF H1>4THEN 1100
: IF O1<>0THEN 1130
: O1=H1
: RETURN
1100 IF O2<>0THEN 1130
: O2=H1
: RETURN
1130 GOSUB 1940
: GOSUB 990
: GOTO 1060
1160 ON H1GOTO 1180,1210,1240,1270,1300,1330,1360
: STOP "SYSTEM ERROR"
1180 V1=6
: V2=6
: GOTO 1380
1210 V1=7
: V2=6
: GOTO 1380
1240 V1=8
: V2=6
: GOTO 1380
1270 V1=9
: V2=6
: GOTO 1380
1300 V1=6
: V2=30
: GOTO 1380
1330 V1=7
: V2=30
: GOTO 1380
1360 V1=8
: V2=30
1380 GOSUB '248(V1,V2,0)
: PRINT "*"
: RETURN
1410 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - DISK"
: RETURN
1430 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"
1460 Q6=3
: GOTO 2070
1480 DEFFN'254
: GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
: W4$=Q6$
: GOSUB '248(0,0,4)
: Q6$=W4$
: RETURN
1540 DEFFN'242(W0,Q6$)
: IF W0<=0THEN 2230
: IF W0=1THEN 1580
: STR(Q6$,2)=STR(Q6$,1,W0-1)
1580 PRINT Q6$;
: RETURN
1600 DEFFN'243(Q6$,Q0)
: GOSUB 1970
1620 SELECT CO 205
: Q6$=" "
: INPUT Q6$
: IF Q0=0THEN 2040
: IF LEN(Q6$)<=Q0THEN 2040
: GOSUB 1940
1680 DEFFN'244(Q0)
: GOSUB 2020
: GOSUB 1990
: GOTO 1620
1720 DEFFN'245(Q6$,Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1970
1750 GOSUB '242(ABS(Q2)+2,HEX(09))
: PRINT "/"
: GOSUB 2020
: SELECT CO 205
: Q9,W0=-1E-99
: INPUT Q9
: IF W0=Q9THEN 1840
: IF Q9>=0THEN 1900
: IF Q2<=0THEN 1900
1840 GOSUB 1940
1850 DEFFN'246(Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 2020
: GOSUB 1990
: GOTO 1750
1900 IF ABS(Q9)>=10^ABS(Q2)THEN 1840
: W0=ABS(Q9*10^Q3)
: IF INT(W0)<>W0THEN 1840
: GOTO 1460
1940 GOSUB 1460
: PRINT "RE-ENTER"
: RETURN
1970 GOSUB 2230
: PRINT HEX(010A);STR(Q6$,1);
1990 GOSUB 2230
: GOSUB '242(Q0+2,"-")
: PRINT TAB(64)
2020 PRINT HEX(010A0A)
: RETURN
2040 PRINT HEX(0A);TAB(64)
: GOTO 2230
2060 Q6=0
2070 Q7=0
: Q8=1
2090 DEFFN'248(Q6,Q7,Q8)
: GOSUB 2230
: IF Q8<1THEN 2200
: GOSUB 2200
: SELECT PRINT 205
: Q6$=" "
: PRINT STR(Q6$,Q7+1)
: IF Q8<2THEN 2200
: FOR W0=2TO Q8
: PRINT HEX(0A);STR(Q6$,1)
: NEXT W0
2200 PRINT HEX(01)
: GOSUB '242(Q7,HEX(09))
: GOSUB '242(Q6,HEX(0A))
2230 SELECT PRINT 005(64),CO 005
: RETURN