From 599ab8ece89aa41c20fd59cf38b881e4ceef9888 Mon Sep 17 00:00:00 2001
From: ketmar <ketmar@ketmar.no-ip.org>
Date: Thu, 23 Jul 2020 06:18:09 +0000
Subject: [PATCH] dsforth: added "D-RANDSEED@"

FossilOrigin-Name: 55183f8d95d7ef70bdb69b0080f4754496af045b863705e7a1ebb5017ddfe044
---
 dsforth/math_misc.zas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/dsforth/math_misc.zas b/dsforth/math_misc.zas
index f688603..304f12e 100644
--- a/dsforth/math_misc.zas
+++ b/dsforth/math_misc.zas
@@ -274,6 +274,14 @@ rndSeed1 equ $-2
   ret
 
 
+$FORTH_CODE_WORD D-RANDSEED@
+;; k8 -- set 16-bit random seed
+;; ( -- lo hi )
+  ld    hl,(rndSeed0)
+  ld    de,(rndSeed1)
+  jp    i_pushde
+$FORTH_END_CODE_WORD D-RANDSEED@
+
 $FORTH_CODE_WORD RANDSEED!
 ;; k8 -- set 16-bit random seed
 ;; ( n -- )
-- 
2.11.4.GIT