10 ! PROGRAM TO CONVERT RP03 REGISTERS TO ACTUAL BLOCK #
20 ! AND THEN BACK TO AED CYL, HEAD AND SECTOR
21 ! WILL READ DATA FROM RP0ER.RPT, RP1ER.RPT AND RP2ER.RPT
22 DIM A$[6],B$[62]V,SS(5),CS(55)
23 OPEN #4, "COMPDP.TMP/WR"
24 OPEN #3, "DP0ER.RPT/RO" : IF END #3 GOTO 250
25 PRINT #4 "ERROR REPORT FOR DP0   ";DDAT$();" AT ";TIM$()
26 LX=0 : FOR I=1 TO 5 : SS(I)=0 : NEXT I
28 FOR I=1 TO 52 : CS(I)=0 : NEXT I
29 DA=0 : CA=0
30 INPUT LINE #3,B$
31 IF POS(B$,"LOGGED")>0 THEN  PRINT #4 : PRINT #4, SEG$(B$,11,34);SEG$(B$,41,60)
32 IF SBS$(B$,9,4)="RPCA" THEN CA=OCT(SBS$(B$,25,6))
33 IF SBS$(B$,9,4)="RPDA" THEN DA=OCT(SBS$(B$,25,6))
34 IF SBS$(B$,9,8)="VOLUME L" THEN  PRINT #4 SBS$(B$,9,30)
35 IF SBS$(B$,9,4)="RPDS" THEN  PRINT #4 SBS$(B$,9,40)
36 IF SBS$(B$,9,4)="RPER" THEN  PRINT #4 SBS$(B$,9,42)
38 IF SBS$(B$,9,4)="RPM1" THEN  PRINT #4 SBS$(B$,9,40)
39 IF SBS$(B$,12,4)="K NA" THEN  PRINT #4 "TASK NAME, UIC          ";SBS$(B$,33,6);"  ";
40 IF SBS$(B$,12,4)="K UI" THEN  PRINT #4 SBS$(B$,33,7)
41 IF SBS$(B$,1,9)="ERROR DIA" THEN  INPUT LINE #3,B$ : PRINT #4, SBS$(B$,1,13);"  ";
42 IF SBS$(B$,1,4)="RETR" THEN  PRINT #4 SBS$(B$,1,30)
43 IF SBS$(B$,1,4)="VECT" THEN  GOTO 50
45 GOTO 30
50 SU=INT(DA/256)		: ! CALCULATE SURFACE (0 = FIRST SURFACE)
55 SO=INT((DA-SU*256)/16)	: ! CALCULATE CURRENT SECTOR
60 SE=DA-SU*256-SO*16		: ! CALCULATE ERROR SECTOR (0=FIRST SECTOR)
70 PRINT #4 "RP CYL","OCT. = ";OCT$(CA)," DEC. = ";CA
80 PRINT #4 "RP SUR","OCT. = ";OCT$(SU)," DEC. = ";SU
90 PRINT #4 "RP SEC","OCT. = ";OCT$(SE)," DEC. = ";SE
100 BN=CA*200+SU*10+SE
110 PRINT #4 "BLOCK #","OCT. = ";OCT$(BN/8);OCT$(BN-8*INT(BN/8)),
120 PRINT #4 " DEC. = ";BN
130 CY=INT(BN/160)
140 SU=INT((BN-CY*160)/32)
141 SS(SU+1)=SS(SU+1)+1		: ! COUNT A SURFACE ERROR
143 CS(INT(CY/16+1))=CS(INT(CY/16+1))+1	: ! COUNT A CYLINDER ERROR
150 SE=BN-CY*160-SU*32
170 PRINT #4 "SM CYL","OCT. = ";OCT$(CY)," DEC. = ";CY
180 PRINT #4 "SM SUR","OCT. = ";OCT$(SU)," DEC. = ";SU
190 PRINT #4 "SM SEC","OCT. = ";OCT$(SE)," DEC. = ";SE
195 LX=LX+1 : IF LX=4 THEN  PRINT #4 : PRINT #4 : PRINT #4 : LX=0
200 GOTO 29
250 CLOSE  3
251 PRINT #4 : PRINT #4, CHR$(12);"SURFACE","# OF ERRORS"
253 FOR I=1 TO 5
254 PRINT #4, I-1,SS(I)
255 SS(I)=0
256 NEXT I
257 PRINT #4 : PRINT #4, "CYLINDER","# OF ERRORS"
259 FOR I=1 TO 52
260 PRINT #4, FRMT$(I*16-16,4);" > ";FRMT$(I*16-1,4),CS(I)
262 NEXT I
263 OPEN #3, "DP1ER.RPT/RO"
270 IF END #3 THEN 300
280 PRINT #4, CHR$(12)
282 PRINT #4 "ERROR REPORT FOR DP1   ";DDAT$();" AT ";TIM$()
290 GOTO 26
300 CLOSE 3
301 PRINT #4 : PRINT #4, CHR$(12);"SURFACE","# OF ERRORS"
303 FOR I=1 TO 5
304 PRINT #4, I-1,SS(I)
305 SS(I)=0
306 NEXT I
307 PRINT #4 : PRINT #4, "CYLINDER","# OF ERRORS"
309 FOR I=1 TO 52
311 PRINT #4, FRMT$(I*16-16,4);" > ";FRMT$(I*16-1,4),CS(I)
312 NEXT I
315 OPEN #3, "DP2ER.RPT/RO"
320 IF END #3 THEN 350
330 PRINT #4 CHR$(12)
332 PRINT #4 "ERROR REPORT FOR DP2   ";DDAT$();" AT ";TIM$()
340 GOTO 26
350 CLOSE 3
351 PRINT #4 : PRINT #4, CHR$(12);"SURFACE","# OF ERRORS"
353 FOR I=1 TO 5
354 PRINT #4, I-1,SS(I)
355 SS(I)=0
356 NEXT I
357 PRINT #4 : PRINT #4, "CYLINDER","# OF ERRORS"
359 FOR I=1 TO 52
361 PRINT #4, FRMT$(I*16-16,4);" > ";FRMT$(I*16-1,4),CS(I)
362 NEXT I
363 CLOSE 
364 EXIT