💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › Emulators › ADTcheckJ… captured on 2023-01-29 at 05:13:42.

View Raw

More Information

-=-=-=-=-=-=-

ADTCK (ADT Transfer Checker) July 2000 Update

     Usually, the transfer of the Apple II ADT program from
the PC-- the transfer you do at 300 baud-- will go fine and
ADT will get BSAVED and work like it should.

     In case ADT does not seem to be working correctly, you
may want to check that the transferred program was not 
corrupted. ADTCK is a short program you can type in and run
to check that you have a good copy of ADT on your Apple II.

     Type in one of the programs listed below and save it as
ADTCK on the same disk as the ADT you've transferred. Then, 
RUN ADTCK and check the numbers you get against the checksums
listed after the program. (The program displays intermediate
sums and a final sum.)

Note: Changing the saved default parameters of ADT via an 
ADTConfig program, etc. will change the checksum and render
the checksum test invalid.


ADTCK for ADT v1.21, ADT v1.22, ADTGS (v.90), ADTgs (v.91)

 10  TEXT : HOME
 20  PRINT  CHR$ (4)"BLOAD ADT,A$4000"
 40  FOR I = 0 TO 2579
 50 Z = Z +  PEEK (16384 + I)
 55  IF I / 500 =  INT (I / 500) THEN  PRINT "CURRENT SUM= ";Z
 60  NEXT I
 70  PRINT "CHECKSUM= ";Z


Checksums

ADT v1.21        ADT v1.22      for 8-bit A2's using SSC 
76               76             
53958            53958          
101079           101079         
158919           158919         
224503           224504        
307268           307117         
313020           312869  <-- final sums


ADTGS (v.90)     ADTgs (v.91)   for Apple IIgs
76               76
39865            48588
89559            97886
142200           151354
206728           201728
289377           284376
295079           290904  <-- final sums



ADTCK for ADT.CC versions

 10  TEXT : HOME
 20  PRINT  CHR$ (4)"BLOAD ADT.CC,A$4000"
 40  FOR I = 0 TO 2566
 50 Z = Z +  PEEK (16384 + I)
 55  IF I / 500 =  INT (I / 500) THEN  PRINT "CURRENT SUM= ";Z
 60  NEXT I
 70  PRINT "CHECKSUM= ";Z


Checksums

ADT.CC (v1.21) "ADTcomm" for 8-bit A2's with non-SSC interfaces 

76
53477
100262
159238
241547
326300
331037  <-- final sum*


 posted to Csa2 is 331155.




Rubywand