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

cosmetics

Browse Source
This commit is contained in:
wfjm
2019-04-26 10:54:22 +02:00
parent 4c5bcf5521
commit ee23d18f87
3 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tools/asm-11/lib/defs_kwl.mac
View File

@@ -1,4 +1,4 @@
; $Id: defs_kwl.mac 1134 2019-04-21 17:18:03Z mueller $
; $Id: defs_kwl.mac 1138 2019-04-26 08:14:56Z mueller $
; Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
; License disclaimer see License.txt in $RETROBASE directory
;
@@ -15,5 +15,5 @@
;
; symbol definitions for kl.csr
;
kl.don=000200
kl.mon=000200
kl.ie =000100

5
tools/mcode/sys/blink.mac
View File

@@ -1,4 +1,4 @@
; $Id: blink.mac 1135 2019-04-23 12:56:23Z mueller $
; $Id: blink.mac 1138 2019-04-26 08:14:56Z mueller $
; Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
; License disclaimer see License.txt in $RETROBASE directory
;
@@ -91,7 +91,7 @@ nultsk: mov curspd,r5 ; load speed
jsr pc,randzp ; get random number
mov r0,r1
clr r0
div #nstyle,r0 ; do rand % %nstyle
div #nstyle,r0 ; calculate: rand % nstyle
mov r1,cursty ; reminder is new style index
asl r1 ; index to offset
jsr pc,@initbl(r1) ; call initializer
@@ -224,7 +224,6 @@ hdlrr: jsr pc,randzp
; code imports
;
.include |lib/randzp.mac|
;
; data area ------------------------------------------------
;

4
tools/tbench/w11a_pcnt/test_pcnt_codes.tcl
View File

@@ -1,4 +1,4 @@
# $Id: test_pcnt_codes.tcl 1134 2019-04-21 17:18:03Z mueller $
# $Id: test_pcnt_codes.tcl 1138 2019-04-26 08:14:56Z mueller $
#
# Copyright 2018- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# License disclaimer see License.txt in $RETROBASE directory
@@ -461,7 +461,7 @@ start: spl 7 ; lock out interrupts
;
mov #3,r1 ; setup interrupt counter
mov #20.,@#kp.csb ; load kw11-p counter
mov #<kp.ie+kp.rep+kp.rex+kp.run>,@#kp.csr ; setup: extevt dn rep
mov #<kp.ie!kp.rep!kp.rex!kp.run>,@#kp.csr ; setup: extevt dn rep
spl 0 ; allow interrupts
mov #70.,r0; ; timeout after 70 instructions
1$: sob r0,1$ ; wait some time