[openfirmware] r1082 - cpu/x86/pc/olpc

[svn at openfirmware.info]

Author: wmb
Date: 2009-01-23 22:17:41 +0100 (Fri, 23 Jan 2009)
New Revision: 1082

Added:
   cpu/x86/pc/olpc/whichcsum.fth
Log:
OLPC - checked in "whichcsum.fth", a diagnostic that's not
included in the ROM build.


Added: cpu/x86/pc/olpc/whichcsum.fth
===================================================================
--- cpu/x86/pc/olpc/whichcsum.fth	                        (rev 0)
+++ cpu/x86/pc/olpc/whichcsum.fth	2009-01-23 21:17:41 UTC (rev 1082)
@@ -0,0 +1,21 @@
+\ This is a diagnostic used when checksum-test is enabled in resume.bth
+\ Usage: which-all .s   (ignore the first two numbers)
+code which-all  ( -- .. )
+   si push  di push  sp dx mov
+   \ Checksum memory from 1M to top (excluding framebuffer)
+   h# 0010.0000 #  si  mov
+   resume-data h# 10 - #)  di  mov   \ Save checksum base address
+   begin
+      bx bx xor
+      h# 10.0000 2 rshift #  cx  mov  \ Word count for 1MB
+      begin  ax lods  ax bx add  loopa
+      ax  0 [di]  cmp
+      <>  if
+         si push
+      then   
+      4 [di]  di  lea
+    \  h# ec0.0000 # si cmp
+      h# 300.0000 # si cmp
+   = until
+   0 [dx] di mov  4 [dx] si mov
+c;