sha1.idel

idel虚拟机源码

\ Mostly generated by examples/borednet/sha1.py
\ Compute the SHA-1 hash of a string of 2 million "a"s.

ints: H
0 0 0 0 0
;ints

ints: W
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
;ints

ints: hbits  0  ;ints
ints: lbits  0  ;ints

ints: SHA1-IV
0x67452301
0xEFCDAB89
0x98BADCFE
0x10325476
0xC3D2E1F0
;ints

bss-data: A-buf 200


def 0 1 main
  SHA1-init
  A-buf 97 200 memset
  10000 hash-the-As
  SHA1-final
  dump-H
  0 ;

def 0 0 dump-H  
  H 5 dump-loop  '\n' emit ;

def 1 0 hash-the-As
  { n -- n if
           A-buf 200 SHA1-update
           n 1 - hash-the-As
         then } ;

def 0 0 SHA1-init
  0 hbits !  0 lbits !
  H SHA1-IV 20 wordcpy ;

def 2 0 SHA1-update
  { pdata data-len --
    lbits @  3 >>>  63 and
    data-len 29 >>>  hbits +!
    data-len 3 <<
    { mlen low-bits --
      low-bits lbits +!
      lbits @  low-bits < if  1 hbits +!  then
      64 mlen -  data-len  { x y -- x y u< if x else y then }
      { use --
        W mlen +  pdata  use  memcpy
        pdata use +  data-len use -  mlen use +  SHA1-update-loop } } } ;

def 3 0 SHA1-update-loop
  { data data-len mlen --
    mlen 64 = if
      SHA1-transform
      64 data-len { x y -- x y u< if x else y then }