update

Former-commit-id: bdede6ed1b6f578f2ef046c338caf02d0b29d453 [formerly 7187de361b53e9c8ec121df379b762f2db736ea2] Former-commit-id: 447d58460fbbfd05ffe08428a1288e392637561d
2017-03-25 19:37:42 +00:00
parent d9c268e3a4
commit 0afb9e732c
1580 changed files with 453021 additions and 6 deletions
--- a/_embed/public/ace/demo/kitchen-sink/docs/forth.frt
+++ b/_embed/public/ace/demo/kitchen-sink/docs/forth.frt
@@ -0,0 +1,41 @@
+: HELLO  ( -- )  CR ." Hello, world!" ; 
+
+HELLO <cr>
+Hello, world!
+
+: [CHAR]   CHAR  POSTPONE LITERAL ; IMMEDIATE
+
+0 value ii        0 value jj
+0 value KeyAddr   0 value KeyLen
+create SArray   256 allot   \ state array of 256 bytes
+: KeyArray      KeyLen mod   KeyAddr ;
+
+: get_byte      + c@ ;
+: set_byte      + c! ;
+: as_byte       255 and ;
+: reset_ij      0 TO ii   0 TO jj ;
+: i_update      1 +   as_byte TO ii ;
+: j_update      ii SArray get_byte +   as_byte TO jj ;
+: swap_s_ij
+    jj SArray get_byte
+       ii SArray get_byte  jj SArray set_byte
+    ii SArray set_byte
+;
+
+: rc4_init ( KeyAddr KeyLen -- )
+    256 min TO KeyLen   TO KeyAddr
+    256 0 DO   i i SArray set_byte   LOOP
+    reset_ij
+    BEGIN
+        ii KeyArray get_byte   jj +  j_update
+        swap_s_ij
+        ii 255 < WHILE
+        ii i_update
+    REPEAT
+    reset_ij
+;
+: rc4_byte
+    ii i_update   jj j_update
+    swap_s_ij
+    ii SArray get_byte   jj SArray get_byte +   as_byte SArray get_byte  xor
+;