/[james]/archive/adfssector/BBCheckSum
ViewVC logotype

Annotation of /archive/adfssector/BBCheckSum

Parent Directory Parent Directory | Revision Log Revision Log


Revision 22 - (hide annotations) (download)
Thu Mar 13 12:01:06 2003 UTC (21 years, 7 months ago) by james
File size: 297 byte(s)
Initial import.

1 james 22 REM > BBCheckSum
2    
3     DIM B% 1024
4    
5     INPUT"Boot block: "f$
6     OSCLI"Load "+f$+" "+STR$~B%
7    
8     checksum% = 0
9     carry% = 0
10    
11     FOR z% = 0 TO 510
12     checksum% = checksum% + B%?z% + carry%
13     IF (checksum% > &FF) THEN carry% = 1 ELSE carry% = 0
14     checksum% = checksum% AND &FF
15     NEXT
16    
17     PRINT"Checksum = &"+STR$~checksum%

  ViewVC Help
Powered by ViewVC 1.1.26