Wie versprochen, gibt's heute die Checksumroutine v2.0 für die Listings aus dem Magazin "Amstrad/Schneider CPC International"
(1) CPC6128 Version
10 REM *** CHECKSUM 6128 ***
20 MEMORY &A4FF
30 FOR a%=&A500 TO &A607
40 READ byte$
50 POKE a%,VAL("&"+byte$)
60 NEXT
70 PRINT
80 PRINT"CHECKSUM v2"
90 CALL &A500:|ON:NEW
100 :
110 DATA 21,09,a5,01,0d,a5,c3,d1
120 DATA bc,00,00,00,00,18,a5,c3
130 DATA 2a,a5,c3,2f,a5,c3,43,a5
140 DATA 4f,ce,4f,46,c6,43,48,45
150 DATA 43,cb,00,00,cf,02,ac,c3
160 DATA a8,a5,21,27,a5,18,03,21
170 DATA 24,a5,28,06,cd,00,b9,c3
180 DATA 49,cb,11,5e,bd,01,03,00
190 DATA ed,b0,c9,4f,cd,00,b9,0d
200 DATA 28,08,0d,20,ea,dd,7e,02
210 DATA 18,04,7b,11,01,00,cd,a6
220 DATA c1,cd,64,e8,e5,4e,23,46
230 DATA 23,5e,23,56,e1,78,b1,c8
240 DATA cd,72,c4,e5,09,e3,cd,54
250 DATA e2,21,8a,ac,cd,7a,a5,e1
260 DATA 18,e2,e5,cd,ba,a5,e3,cd
270 DATA 98,a5,cd,53,f3,e3,cd,f6
280 DATA a5,cd,98,c3,e1,7e,a7,c8
290 DATA cd,98,a5,cd,98,c3,18,f5
300 DATA 3a,09,ac,d6,08,47,7e,a7
310 DATA c8,cd,1d,e2,23,10,f7,c9
320 DATA cd,24,a5,f5,c5,d5,e5,cd
330 DATA ba,a5,cd,f6,a5,e1,d1,c1
340 DATA f1,c9,eb,1b,af,47,67,6f
350 DATA 2f,32,23,a5,13,1a,d6,30
360 DATA 38,04,fe,0a,38,f6,1a,13
370 DATA a7,c8,4f,3a,23,a5,a1,fe
380 DATA 20,28,f3,79,fe,22,20,07
390 DATA 3a,23,a5,2f,32,23,a5,3a
400 DATA 23,a5,a7,79,c4,ab,ff,4f
410 DATA ad,07,6f,09,18,d8,3e,20
420 DATA cd,a0,c3,3e,5b,cd,a0,c3
430 DATA cd,44,ef,3e,5d,c3,a0,c3
(2) CPC664 Version
10 REM *** CHECKSUM 664 ***
20 MEMORY &A4FF
30 FOR a%=&A500 TO &A607
40 READ byte$
50 POKE a%,VAL("&"+byte$)
60 NEXT
70 PRINT
80 PRINT"CHECKSUM v2"
90 CALL &A500:|ON:NEW
100 :
110 DATA 21,09,a5,01,0d,a5,c3,d1
120 DATA bc,00,00,00,00,18,a5,c3
130 DATA 2a,a5,c3,2f,a5,c3,43,a5
140 DATA 4f,ce,4f,46,c6,43,48,45
150 DATA 43,cb,00,00,cf,02,ac,c3
160 DATA a8,a5,21,27,a5,18,03,21
170 DATA 24,a5,28,06,cd,00,b9,c3
180 DATA 4c,cb,11,5b,bd,01,03,00
190 DATA ed,b0,c9,4f,cd,00,b9,0d
200 DATA 28,08,0d,20,ea,dd,7e,02
210 DATA 18,04,7b,11,01,00,cd,a9
220 DATA c1,cd,69,e8,e5,4e,23,46
230 DATA 23,5e,23,56,e1,78,b1,c8
240 DATA cd,75,c4,e5,09,e3,cd,59
250 DATA e2,21,8a,ac,cd,7a,a5,e1
260 DATA 18,e2,e5,cd,ba,a5,e3,cd
270 DATA 98,a5,cd,58,f3,e3,cd,f6
280 DATA a5,cd,9b,c3,e1,7e,a7,c8
290 DATA cd,98,a5,cd,9b,c3,18,f5
300 DATA 3a,09,ac,d6,08,47,7e,a7
310 DATA c8,cd,22,e2,23,10,f7,c9
320 DATA cd,24,a5,f5,c5,d5,e5,cd
330 DATA ba,a5,cd,f6,a5,e1,d1,c1
340 DATA f1,c9,eb,1b,af,47,67,6f
350 DATA 2f,32,23,a5,13,1a,d6,30
360 DATA 38,04,fe,0a,38,f6,1a,13
370 DATA a7,c8,4f,3a,23,a5,a1,fe
380 DATA 20,28,f3,79,fe,22,20,07
390 DATA 3a,23,a5,2f,32,23,a5,3a
400 DATA 23,a5,a7,79,c4,ab,ff,4f
410 DATA ad,07,6f,09,18,d8,3e,20
420 DATA cd,a3,c3,3e,5b,cd,a3,c3
430 DATA cd,49,ef,3e,5d,c3,a3,c3
(3) CPC464 Version
10 REM *** CHECKSUM 464 ***
20 MEMORY &A4FF
30 FOR a%=&A500 TO &A607
40 READ byte$
50 POKE a%,VAL("&"+byte$)
60 NEXT
70 PRINT
80 PRINT"CHECKSUM v2"
90 CALL &A500:|ON:NEW
100 :
110 DATA 21,09,a5,01,0d,a5,c3,d1
120 DATA bc,00,00,00,00,18,a5,c3
130 DATA 2a,a5,c3,2f,a5,c3,43,a5
140 DATA 4f,ce,4f,46,c6,43,48,45
150 DATA 43,cb,00,00,cf,98,aa,c3
160 DATA a8,a5,21,27,a5,18,03,21
170 DATA 24,a5,28,06,cd,00,b9,c3
180 DATA 06,dd,11,3a,bd,01,03,00
190 DATA ed,b0,c9,4f,cd,00,b9,0d
200 DATA 28,08,0d,20,ea,dd,7e,02
210 DATA 18,04,7b,11,01,00,cd,a2
220 DATA c1,cd,a3,e7,e5,4e,23,46
230 DATA 23,5e,23,56,e1,78,b1,c8
240 DATA cd,3c,c4,e5,09,e3,cd,63
250 DATA e1,21,a4,ac,cd,7a,a5,e1
260 DATA 18,e2,e5,cd,ba,a5,e3,cd
270 DATA 98,a5,cd,96,f2,e3,cd,f6
280 DATA a5,cd,4e,c3,e1,7e,a7,c8
290 DATA cd,98,a5,cd,4e,c3,18,f5
300 DATA 3a,24,ac,d6,08,47,7e,a7
310 DATA c8,cd,45,e1,23,10,f7,c9
320 DATA cd,24,a5,f5,c5,d5,e5,cd
330 DATA ba,a5,cd,f6,a5,e1,d1,c1
340 DATA f1,c9,eb,1b,af,47,67,6f
350 DATA 2f,32,23,a5,13,1a,d6,30
360 DATA 38,04,fe,0a,38,f6,1a,13
370 DATA a7,c8,4f,3a,23,a5,a1,fe
380 DATA 20,28,f3,79,fe,22,20,07
390 DATA 3a,23,a5,2f,32,23,a5,3a
400 DATA 23,a5,a7,79,c4,8a,ff,4f
410 DATA ad,07,6f,09,18,d8,3e,20
420 DATA cd,5c,c3,3e,5b,cd,5c,c3
430 DATA cd,79,ee,3e,5d,c3,5c,c3