SHARE
TWEET

step 5 forth

vikt144 Feb 3rd, 2020 1 in 208 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (
  2. Nucleus layer
  3.  
  4. !         *    {*/   */MOD}  +    { +! }     -     /     /MOD     0<  0=   0>    1+    1-  2+
  5. 2-        2/    <     =      >     >R      ?DUP   @      ABS     AND { C!  C@   CMOVE
  6. CMOVE>  COUNT   D+   D<   DEPTH  DNEGATE } DROP  DUP  { EXECUTE
  7. EXIT    FILL    I    J    MAX     MIN  }   MOD  NEGATE { NOT}     OR  OVER { PICK }
  8. R>      R@   { ROLL}  ROT   SWAP   {  U<     UM*  UM/MOD } XOR  
  9. 18 not rlize
  10.  
  11.  )
  12.  
  13. (
  14.           Compiler layer
  15.  
  16. +LOOP     ,       ."      :      ;       ABORT"    ALLOT   BEGIN  COMPILE  CONSTANT
  17. CREATE   DO     DOES>  ELSE     IF     IMMEDIATE   LEAVE  LITERAL  LOOP
  18. REPEAT  STATE   THEN  UNTIL  VARIABLE  VOCABULARY  WHILE    [
  19. [']  [COMPILE]   ]  
  20.  
  21. )
  22.  
  23.  
  24. : <     - 0< ;
  25. : =     - 0= ;
  26. : >     - 0> ;
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33. : >mark here 1 allot ;
  34.  
  35. : if compile ?branch  >mark ; immediate
  36.  
  37. : then >resolve ; immediate
  38.  
  39. : else   compile branch  >mark swap >resolve ; immediate
  40.  
  41. : <mark here ;
  42.  
  43. : begin <mark ; immediate
  44.  
  45. : until compile ?branch <resolve ; immediate
  46.  
  47. : while  compile ?branch  >mark   ; immediate
  48.                
  49. : repeat  compile branch  swap <resolve  >resolve ; immediate
  50.                
  51.  
  52.  
  53.  
  54.  
  55. : var   create 2 allot   ;
  56.  : const create , does> @ ;
  57.  
  58. var tmpregistr0
  59. var tmpregistr1
  60. var tmpregistr2
  61.  
  62. : over swap dup  tmpregistr0 ! swap tmpregistr0 @ ;  
  63. : rot  tmpregistr0 ! tmpregistr1 !  tmpregistr2 !       tmpregistr1 @  tmpregistr0 @ tmpregistr2 @ ;
  64. : ?DUP ( A -> A,A/0 )  DUP  IF DUP THEN ;
  65. : R@ R> dup >R ;
  66.  
  67. :  /   /mod swap drop ;
  68. : mod  /mod drop ;
  69.  
  70. : 2+ 1+ 1+ ;
  71. : 2- 1- 1- ;
  72. : 2/ 2 /mod swap drop ;
  73. : negate 0 swap - ;
  74. : ABS ( A --->абс A ) DUP 0< IF NEGATE THEN ;
  75.  
  76.  
  77.  
  78. : 2dup    tmpregistr0 ! tmpregistr1 !     tmpregistr1 @ tmpregistr0 @    tmpregistr1 @ tmpregistr0 @  ;
  79. : 2drop  drop drop ;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top