github.com/wfjm.w11
1
0
Fork 0
mirror of https://github.com/wfjm/w11.git synced 2026-04-03 05:15:12 +00:00
Code Issues Releases Wiki Activity

minor w11 shell fix; forgotten file

Browse Source
This commit is contained in:
wfjm
2019-04-24 11:33:04 +02:00
parent 08b6ddcaf7
commit f9f7000a4a
2 changed files with 32 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
tools/asm-11/lib/randzp.mac Normal file
View File

@@ -0,0 +1,28 @@
; $Id: randzp.mac 1135 2019-04-23 12:56:23Z mueller $
; Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
; 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

7
tools/tcl/rw11/shell_egd.tcl
View File

@@ -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 <W.F.J.Mueller@gsi.de>
# Copyright 2015-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
#
# 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)$} {