summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorH. Peter Anvin <hpa@zytor.com>2021-01-24 21:26:48 -0800
committerH. Peter Anvin <hpa@zytor.com>2021-01-24 21:26:48 -0800
commit23ee16de9940e6e727644698cd0c8f114971171a (patch)
tree58aafb1d3740db8d87474b15aa038a3ea36a01d9
parent0fbaafa97f224c97cb78ec274ef36d0490b45881 (diff)
downloadabc80-1m-sram-23ee16de9940e6e727644698cd0c8f114971171a.tar.gz
abc80-1m-sram-23ee16de9940e6e727644698cd0c8f114971171a.tar.xz
abc80-1m-sram-23ee16de9940e6e727644698cd0c8f114971171a.zip
sw: check in checksum.bas
-rw-r--r--sw/checksum.bas9
1 files changed, 9 insertions, 0 deletions
diff --git a/sw/checksum.bas b/sw/checksum.bas
new file mode 100644
index 0000000..540f057
--- /dev/null
+++ b/sw/checksum.bas
@@ -0,0 +1,9 @@
+1000 REM ?NxGruJz{HP_La]K_HLc]Jzt?FtNkRLX[NQWNU^LaWGL@?EKKD}GICKH|Zzr
+1010 B%=CALL(13388%-PEEK(13161%),81%)
+1020 POKE B%,1%,41%,0%,9%,235%,42%,28%,254%,14%,5%,9%,126%,35%,214%,63%,56%
+1030 POKE B%+16%,247%,79%,126%,35%,203%,57%,143%,203%,57%,143%,18%,19%,126%
+1040 POKE B%+29%,35%,203%,57%,143%,203%,57%,143%,18%,19%,121%,214%,1%
+1050 Z%=CALL(B%)
+1060 DEF FNC%(S%,L%)=CALL(B%+59%,S%*1024%+L%*4%)
+1070 S0%=FNC%(0%,16%)
+1080 PRINT "Checksum:" S0%