diff --git a/tools/asm-11/lib/randzp.mac b/tools/asm-11/lib/randzp.mac new file mode 100644 index 00000000..2782b896 --- /dev/null +++ b/tools/asm-11/lib/randzp.mac @@ -0,0 +1,28 @@ +; $Id: randzp.mac 1135 2019-04-23 12:56:23Z mueller $ +; Copyright 2019- by Walter F.J. Mueller +; License disclaimer see License.txt in $RETROBASE directory +; +; pseudo random number generator +; seen in zpcae0; certainly not crypto grade quality !! +; +; Call: +; jsr pc, randzp +; +; All registers preserved +; +randzp: mov 1000$,r0 + rol r0 + rol r0 + add 1001$,r0 + mov r0,1000$ + rol r0 + rol r0 + add 1001$,r0 + rol r0 + rol r0 + mov r0,1001$ + mov 1000$,r0 + rts pc +; +1000$: .word 001233 +1001$: .word 007622 diff --git a/tools/tcl/rw11/shell_egd.tcl b/tools/tcl/rw11/shell_egd.tcl index b7d3e2d6..50462019 100644 --- a/tools/tcl/rw11/shell_egd.tcl +++ b/tools/tcl/rw11/shell_egd.tcl @@ -1,6 +1,6 @@ -# $Id: shell_egd.tcl 1056 2018-10-13 16:01:17Z mueller $ +# $Id: shell_egd.tcl 1134 2019-04-21 17:18:03Z mueller $ # -# Copyright 2015-2017 by Walter F.J. Mueller +# Copyright 2015-2019 by Walter F.J. Mueller # # This program is free software; you may redistribute and/or modify it under # the terms of the GNU General Public License as published by the Free @@ -13,6 +13,7 @@ # # Revision History: # Date Rev Version Comment +# 2019-04-21 1134 1.1.2 shell_aspec_parse: allow 8,9 in numeric address # 2017-06-09 910 1.1.1 BUGFIX: shell_pspec_map: fix mapping for addr>20000 # 2017-03-10 859 1.1 .egd: add /u option (memory access via ubmap) # 2015-12-28 720 1.0 Initial version @@ -101,7 +102,7 @@ namespace eval rw11 { # Note: put regexp patterns in {} to prevent that tcl modifies them ! switch -regexp -matchvar mvar -- $saddr { - {^([0-7]+)$} { + {^([0-9]+)$} { set paddr [list "pa" $opt_am [lindex $mvar 1]] } {^(r0|r1|r2|r3|r4|r5|r6|r7|sp|pc|ps)$} {