Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

00100 margin 66
102 ONERROR GOTO 107
106 GOTO 110
107 RESUME 140
00110 PRINT "TRACK DESCRIPTOR GENERATOR"
00120 PRINT 'BY BOB ST. HILAIRE DTN 231-4589'
125 GOTO 150
00130 PRINT
00140 PRINT "&
     TDBLD is  a multiple stage  process  beginning at the sector &
 boundry and then  offsetting into  the  corrupted  area. At this &
 point a  DS of 108 (16) bits  words  is built with the center of &
 the defect in the center of the DS. This  is  due to defect skip &
 ping beginning 54 words prior to the defect. This  program  will &
 bring you within  one sector of the defect To zone in on the de- &
 fect within the sector try a DS (1-4) which will  encompass  the &
 entire sector. Note that a defect that falls onto a header field &
 will result in a HCRC."
00150 PRINT
00160 INPUT 'SECTOR OR DISP' S
00170 IF S >44 THEN LET DISP = S\ GOTO 220
00180 LET S = S -1
00190 IF S < 0 THEN LET S = 0
00200 GOSUB 340
00210 PRINT 'DISP 1 = ' ;DISP
00220 LET DISPl = DISP
00230 INPUT 'NEXT SECTOR  ' s
00240 IF S >44 THEN LET DISP = S\ GOTO 290
00250 LET S = S - 1
00260 IF S < 0 THEN LET S = 0
00270 IF s = 0 THEN 500
00280 GOSUB 340
00290 IF DISP < DISPL THEN LET DISPL = (DISPL - DISP) \GOTO 480
00300 IF DISP > DISPL THEN LET DISP = (DISP - DISPL) 
00310 PRINT 'DISP 1 ';DISPL
00320 PRINT 'DISP 2 ';DISP + 108
00330 GOTO 500
00340 INPUT 'ECC BIT      ' E
00350  LET DISP = 109 + (394 * S)
00360 if E = -1 THEN INPUT   'DS WORD	   ';E\GOTO 420
00370 IF E = 4640 THEN INPUT 'DS WORD      ';E\GOTO 420
00380 IF E  = 0 THEN GOTO 450
00390 LET E = INT(E / 16) + 40
00400 PRINT "ECC OFFSET = ";E
00410 GOTO 460
00420!RANGE
00430  IF E > 3 THEN LET E = 340\ GOTO 460
00440 IF E > 0 THEN LET E = (108*E) - 46
00450 IF E = 0 THEN LET E = 4
00460 LET DISP = DISP + E
00470 RETURN
00480 PRINT 'DISP 1 ';DISP
00490 PRINT 'DISP 2 ';DISPL 
00500 END