mirror of
https://github.com/wfjm/w11.git
synced 2026-01-31 22:22:12 +00:00
mcode: use call/return; fix (lp11|pc11)write; add scmd
- tools/mcode - *.mac: use call/return - (lp11|pc11)write: check line count after last char is accepted - pc11copy: kw11-p: use 100 kHz/13.; ensure last puncher interrupt - *.scmd: add SimH startup files when reasonable - tools/simh/setup_w11a_(max|min).scmd: enable pclk
This commit is contained in:
wfjm
@@ -1,13 +1,15 @@
|
||||
; $Id: pc11copy.mac 1174 2019-06-29 18:00:47Z mueller $
|
||||
; $Id: pc11copy.mac 1277 2022-08-12 15:00:20Z mueller $
|
||||
; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
; Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
; Copyright 2019-2022 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
;
|
||||
; Revision History:
|
||||
; Date Rev Version Comment
|
||||
; 2022-08-10 1276 1.2 kw11-p: use 100 kHz/13.; ensure last puncher irupt
|
||||
; 2019-04-25 1138 1.1 add kw11-l/p stress
|
||||
; 2019-04-21 1134 1.0 Initial version
|
||||
;
|
||||
; copy input to output tape
|
||||
; Copy input to output tape
|
||||
; Interrupt stress test with KW11-P (four interrupt sources in parallel)
|
||||
;
|
||||
; definitions ----------------------------------------------
|
||||
;
|
||||
@@ -17,7 +19,7 @@
|
||||
.include |lib/defs_pc.mac|
|
||||
|
||||
bsize = 256. ; elasticity ring buffer size
|
||||
kpwait = 997. ; kp wait (in cycles, intentionally prime)
|
||||
kpwait = 17. ; kp wait (in 100kHz, intentionally prime)
|
||||
cbsize = 250. ; kp-per-kl trace buffer size (for last 5 sec)
|
||||
;
|
||||
; vector area ----------------------------------------------
|
||||
@@ -85,7 +87,7 @@ start1: mov #stack,sp ; setup stack
|
||||
spl 7
|
||||
mov #kl.ie,@#kl.csr ; start kw11-l
|
||||
mov #kpwait,@#kp.csb ; load kw11-p counter
|
||||
mov #<kp.ie!kp.rep!kp.rex!kp.run>,@#kp.csr ; kw11-p: ext down repeat
|
||||
mov #<kp.ie!kp.rep!kp.rhk!kp.run>,@#kp.csr ; kw11-p: 100k down repeat
|
||||
mov #<pr.ie!pr.ena>,@#pr.csr ; start reader
|
||||
spl 0 ; allow interrupts
|
||||
3$: wait ; and idle
|
||||
@@ -119,7 +121,15 @@ vh.ptr: tst @#pr.csr ; at eof ?
|
||||
200$: bic #pr.ie,@#pr.csr ; stop reader
|
||||
rti
|
||||
|
||||
300$: jmp stop
|
||||
; eof detected. ensure program halts after the final puncher interupt is taken
|
||||
; do a wait loop while puncher active, puncher will end program (Simh compat)
|
||||
300$: cmp (sp)+,(sp)+ ; drop vector
|
||||
spl 0 ; allow interrupts
|
||||
310$: bit #pp.ie,@#pp.csr ; puncher still active ?
|
||||
beq 320$ ; if not stop
|
||||
wait ; if yes wait
|
||||
br 310$
|
||||
320$: jmp stop
|
||||
|
||||
rerr: halt ; reader error halt
|
||||
br rerr
|
||||
@@ -128,6 +138,8 @@ rerr: halt ; reader error halt
|
||||
;
|
||||
vh.ptp: tst @#pp.csr ; punch error
|
||||
bmi perr ; if mi yes, error halt
|
||||
tstb r3 ; eof seen ?
|
||||
bne 200$ ; if yes, all done
|
||||
tstb @#pp.csr ; ready ?
|
||||
bpl perr ; if pl no, error halt
|
||||
tst r2 ; test buffer count
|
||||
@@ -143,11 +155,12 @@ vh.ptp: tst @#pp.csr ; punch error
|
||||
mov #<pr.ie!pr.ena>,@#pr.csr ; if not, start reader
|
||||
2$: rti
|
||||
|
||||
100$: bic #pp.ie,@#pp.csr ; stop punch
|
||||
tstb r3 ; eof seen ?
|
||||
bne 200$ ; if yes, all done
|
||||
rti
|
||||
|
||||
; eof detected. ensure that final puncher interrupt is taken (Simh compat)
|
||||
100$: tstb r3 ; eof seen ?
|
||||
bne 110$ ; if yes, go for final interrupt
|
||||
bic #pp.ie,@#pp.csr ; otherwise stop punch
|
||||
110$: rti
|
||||
|
||||
200$: jmp stop
|
||||
|
||||
perr: halt ; puncher error halt
|
||||
|
||||
15
tools/mcode/pc11/pc11copy.scmd
Normal file
15
tools/mcode/pc11/pc11copy.scmd
Normal file
@@ -0,0 +1,15 @@
|
||||
; $Id: pc11copy.scmd 1275 2022-08-10 08:10:40Z mueller $
|
||||
;
|
||||
; Setup file for pc11copy
|
||||
;
|
||||
! make pc11copy.lda
|
||||
;
|
||||
do ../../simh/setup_w11a_mcode.scmd
|
||||
;
|
||||
; attach PC11, ensure new file written
|
||||
! rm -f simh_pc11copy.dat
|
||||
att ptr simh_pc11write.dat
|
||||
att ptp simh_pc11copy.dat
|
||||
;
|
||||
load pc11copy.lda
|
||||
cont
|
||||
@@ -1,9 +1,10 @@
|
||||
; $Id: pc11read.mac 1174 2019-06-29 18:00:47Z mueller $
|
||||
; $Id: pc11read.mac 1275 2022-08-10 08:10:40Z mueller $
|
||||
; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
; Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
; Copyright 2019-2022 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
;
|
||||
; Revision History:
|
||||
; Date Rev Version Comment
|
||||
; 2022-08-09 1275 1.0.1 use call/return
|
||||
; 2019-04-21 1134 1.0 Initial version
|
||||
;
|
||||
; write test tape
|
||||
@@ -79,7 +80,7 @@ vh.ptr: tst @#pr.csr ; reader error
|
||||
cmp r1,#bend ; end of buffer ?
|
||||
blo 100$
|
||||
mov #bnum+3,r1 ; if yes, increment number
|
||||
jsr pc,incnum
|
||||
call incnum
|
||||
inc r0 ; inc line counter
|
||||
mov #bnum,r1 ; ready for next line
|
||||
100$: inc @#pr.csr ; go for next char
|
||||
@@ -103,7 +104,7 @@ incnum: mov #4,r5 ; max 4 digits
|
||||
movb #'0,(r1) ; if yes, restore 0
|
||||
dec r1 ; and go for next digit
|
||||
sob r5,1$
|
||||
100$: rts pc
|
||||
100$: return
|
||||
;
|
||||
; data area ------------------------------------------------
|
||||
;
|
||||
|
||||
14
tools/mcode/pc11/pc11read.scmd
Normal file
14
tools/mcode/pc11/pc11read.scmd
Normal file
@@ -0,0 +1,14 @@
|
||||
; $Id: pc11read.scmd 1275 2022-08-10 08:10:40Z mueller $
|
||||
;
|
||||
; Setup file for pc11read
|
||||
;
|
||||
! make pc11read.lda
|
||||
;
|
||||
do ../../simh/setup_w11a_mcode.scmd
|
||||
;
|
||||
; attach PC11
|
||||
att ptr simh_pc11write.dat
|
||||
det ptp
|
||||
;
|
||||
load pc11read.lda
|
||||
cont
|
||||
@@ -1,9 +1,11 @@
|
||||
; $Id: pc11write.mac 1174 2019-06-29 18:00:47Z mueller $
|
||||
; $Id: pc11write.mac 1276 2022-08-12 10:25:13Z mueller $
|
||||
; SPDX-License-Identifier: GPL-3.0-or-later
|
||||
; Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
; Copyright 2019-2022 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
;
|
||||
; Revision History:
|
||||
; Date Rev Version Comment
|
||||
; 2022-08-10 1276 1.0.2 check line count after last char is accepted
|
||||
; 2022-08-09 1275 1.0.1 use call/return
|
||||
; 2019-04-21 1134 1.0 Initial version
|
||||
;
|
||||
; write test tape
|
||||
@@ -65,17 +67,18 @@ start1: mov #stack,sp ; setup stack
|
||||
br 3$
|
||||
;
|
||||
; puncher interrupt handler -----------------------
|
||||
; the line count stop is checked after the last char is accepted by PC11
|
||||
;
|
||||
vh.ptp: tst @#pp.csr ; punch error
|
||||
bmi perr ; if mi yes, error halt
|
||||
cmp r0,#lcnt ; enough lines send ?
|
||||
beq 200$
|
||||
movb (r1)+,@#pp.buf ; send byte
|
||||
cmp r1,#bend ; end of buffer ?
|
||||
blo 100$
|
||||
mov #bnum+3,r1 ; if yes, increment number
|
||||
jsr pc,incnum
|
||||
call incnum
|
||||
inc r0 ; inc line counter
|
||||
cmp r0,#lcnt ; enough lines send ?
|
||||
beq 200$
|
||||
mov #bnum,r1 ; ready for next line
|
||||
100$: rti
|
||||
|
||||
@@ -93,7 +96,7 @@ incnum: mov #4,r5 ; max 4 digits
|
||||
movb #'0,(r1) ; if yes, restore 0
|
||||
dec r1 ; and go for next digit
|
||||
sob r5,1$
|
||||
100$: rts pc
|
||||
100$: return
|
||||
;
|
||||
; data area ------------------------------------------------
|
||||
;
|
||||
|
||||
15
tools/mcode/pc11/pc11write.scmd
Normal file
15
tools/mcode/pc11/pc11write.scmd
Normal file
@@ -0,0 +1,15 @@
|
||||
; $Id: pc11write.scmd 1275 2022-08-10 08:10:40Z mueller $
|
||||
;
|
||||
; Setup file for pc11write
|
||||
;
|
||||
! make pc11write.lda
|
||||
;
|
||||
do ../../simh/setup_w11a_mcode.scmd
|
||||
;
|
||||
; attach PC11, ensure fresh file
|
||||
! rm -f simh_pc11write.dat
|
||||
det ptr
|
||||
att ptp simh_pc11write.dat
|
||||
;
|
||||
load pc11write.lda
|
||||
cont
|
||||
Reference in New Issue
Block a user