Changeset 3367

Timestamp:

Oct 13, 2012 3:40:00 AM (7 months ago)

Author:

wmb

Message:

x86 kernel - added bscan code word used by new substring variant.

File:

• cpu/x86/kerncode.fth (modified) (1 diff)

cpu/x86/kerncode.fth

@@ -656 +656 @@
    dx di mov
    2 # cx shl  cx push
+c;
+
+\ Find the first occurence of bvalue, returning the residual string
+code bscan  ( adr1 len1 char -- adr' len' )
+   si dx mov
+   cld
+   bx pop                  \ bx: char
+   cx pop                  \ cx: count
+   si pop                  \ si: adr
+   cx cx or  0<>  if
+      begin
+         al lods
+         bl al cmp
+      loopne
+      =  if                
+         si dec si push    ( adr' )
+         cx inc cx push    ( adr' len' )
+         dx si mov
+         next
+      then
+   then
+   si push                 ( adr' )
+   cx push                 ( adr' len' )
+   dx si mov
 c;