Listing of file='WDMD030A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 384, program filename = 'WDMD030A'
0010 REM . WDMD030A, 00-00 (6/28/75), 12002
0100 DIM C$(16),A$40,Q0$42,W1$1,N$8,N1$8,L$2,L$(1)2,A$(2),A1$(2,2),X(2),X1(2,2
),H$2,H1$1,Y2$5,Y3$5
: ON ERRORE1$,E2$GOTO 1130
: A9=0
: ON O9GOTO 150,180,140,200,220,140
0140 STOP "SYSTEM ERROR"
0150 SELECT DISK 310
0160 A9=1
: GOTO 230
0180 SELECT DISK 320
: GOTO 160
0200 SELECT DISK 310
: GOTO 230
0220 SELECT DISK 320
0230 PRINT HEX(03);"MOUNT OLD SCRATCH DISK IN THE SAME DRIVE, NEW ONE IN THE O
THER"
: INPUT "KEY EXEC TO RESUME",Z
: GOSUB 980
: IF O8=1THEN 280
: GOSUB '100
0280 PRINT "MOVE ";
: E=0
: IF A9=0THEN 350
: MOVE FR
: V4=1
: GOSUB 1160
: GOTO 380
0350 MOVE RF
: V4=0
: GOSUB 1160
0380 GOSUB '40(24,424,800,V4)
: ON O9GOTO 410,430,400,450,470,400
0400 STOP "SYSTEM ERROR"
0410 SELECT #1310
: GOTO 480
0430 SELECT #1320
: GOTO 480
0450 SELECT #1B10
: GOTO 480
0470 SELECT #1B20
0480 IF E>0THEN 500
: PRINT "OK"
0500 PRINT "COPY ";
: E=0
: IF A9=0THEN 527
: COPY #4,RF(0,24)
: GOTO 530
0527 COPY #3,FR(0,24)
0530 GOSUB '40(24,424,800,V4)
: IF E>0THEN 560
: PRINT "OK"
0560 FOR I=1TO 200
: NEXT I
: PRINT HEX(03);
: IF E0=0THEN 610
: E9$(P9)="NG"
0610 SELECT PRINT 005(64)
: PRINT HEX(01);TAB(64);HEX(01);"MOUNT PROGRAM DISK"
: INPUT "KEY EXEC TO RESUME",Z$
: LOAD DC T#6,"S/START"
0650 DEFFN'40(V1,V2,V3,V4)
: DATA LOAD BA T#1,(0,L$)C$()
: GOSUB '61(STR(C$(1),1,1))
: IF V1<>VAL(STR(C$(1),2,1))THEN 930
: GOSUB '61(STR(C$(1),3,2))
: IF V4=0THEN 720
: AND (STR(C$(1),3,1),7F)
0720 GOSUB '62(STR(C$(1),3,2))
: IF V2<>V0THEN 930
: IF V4=0THEN 760
: AND (STR(C$(1),5,1),7F)
0760 GOSUB '62(STR(C$(1),5,2))
: IF V3<>V0-1THEN 930
: FOR I=1TO 10
: IF STR(C$(1),6+I,1)<>HEX(00)THEN 930
: NEXT I
: RETURN
0820 DEFFN'61(W1$)
: AND (W1$,80)
: IF V4=0THEN 870
: IF W1$<>HEX(80)THEN 930
: RETURN
0870 IF W1$>HEX(00)THEN 930
: RETURN
0890 DEFFN'62(L$)
: V0=VAL(STR(L$,1,1))*256+VAL(STR(L$,2,1))
: RETURN
0920 IF E>OTHEN 960
0930 PRINT "ERROR"
: E=E+1
: E0=E0+1
0960 RETURN
0970 STOP "SYS ERROR"
0980 PRINT HEX(0A0A);
: PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - DISK INST"
: RETURN
1010 DEFFN'100
: ON O8GOTO 1040,1060,1080
: STOP "SYSTEM ERROR"
1040 SELECT PRINT 005
: RETURN
1060 SELECT PRINT 215
: RETURN
1080 SELECT PRINT 211
: RETURN
1100 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"
1130 E9$(P9)="NG"
: PRINT "ERROR ";E1$;" AT STMT #";E2$
: GOTO 610
1160 ON O9GOTO 1180,1200,1170,1220,1240,1170
1170 STOP "SYSTEM ERROR"
1180 SELECT #1B10
: RETURN
1200 SELECT #1B20
: RETURN
1220 SELECT #1310
: RETURN
1240 SELECT #1320
: RETURN