`a 7 I DSKINVBUFDCDCOMNHSECTODUMMDSTATDBYPATPATPAT1PAT2ISECTOANSBUFHBUFLDVSTAOLDCM @@COPYRIGHT 1981 - HOUSTON ATARI COMPUTER ENTHUSIASTSK +K(9This program will test your disks and/or disk drives. -;@,)(INSERT DISK TO TEST-d/;@,6.h S`/PLA,JSR E453,RTSn3;A(,$-@A(/67,. 3 s;A(,;A(,x6-@$@$@!%@@!DRIVE 1*6-P:C:,'AV,*6-C:,&$AV%@%@776-@$@$@%@$@%@ BMAKE DISK HANDLER CALL INPUT: SECTOR OUTPUT:DSTATS=STATUS`6-P:'AV,j%@&$AVt%@~6-?:C:,,6-F:%@,$CHECK STATUS6-F:%@,%@@6-?:C:,,++(STATUS(F:%@,):CMD=F:,(, H/W=F:%@, (, T/O=F:%@, %@*%@4%@>$'DISK FORMAT'(FORMATTING DISK'!%@@3! A'))6-F:%@,%F:%@ ,$AV$'!!"@*"B.',,(STATUS= BAD SECTORS='@3'!"A(!( ***OR MORE***5'! A !"B8'-@@='''6-@:7,,%AV$@:7%@,,B'!BU5!( BAD SECTOR=L' *''WRITE 10101010,01010101 ALTERNATE+6-Ap6-@ + B.''WRITE 01010101,10101010 ALTERNATE.6-@6-Ap. B:( TEST COMPLETE: N( PATTERN 1= 2=*N-@A(4N67,.>:,67,.>:,>N HN%@@MN 6.ON!!(STARTING FIRST WRITE PASSRN-@A@WN-%@\N AfN;@1(SECTOR= WRITE STATUS=; A pN zN N 6.N""(STARTING SECOND WRITE PASSN-@A@N-%@N AN;@1(SECTOR= WRITE STATUS=; A N N N%@@N(STARTING READ PASSN-@A@N-%@N AOD@0(SECTOR= READ STATUS=: A D B`O+ 0+(SECTOR=, UNEXPECTED DATA$O )O-%@%@.O A8OD@0(SECTOR= READ STATUS=: A D BBO+ 0+(SECTOR=, UNEXPECTED DATAGO LO VO$ D:DISKTEST