mirror of
https://github.com/livingcomputermuseum/UniBone.git
synced 2026-02-01 14:23:06 +00:00
84 lines
1.7 KiB
Batchfile
84 lines
1.7 KiB
Batchfile
|
|
# "demo" test of parallel DMA/INTR
|
|
# runs multiarb.mac
|
|
#
|
|
# Execute this with active PDP-11 CPU and in halted state
|
|
d # active PDP-11 CPU, devices
|
|
# tm # HALTed
|
|
|
|
en dl11 # work with simulated DL11
|
|
sd dl11
|
|
p rb 300 # "type" slowly
|
|
p # show params
|
|
|
|
pwr
|
|
#.wait 1000 # wait for CPU to start
|
|
|
|
m i # emulate memory
|
|
|
|
### Enable KW11 clock
|
|
en kw11
|
|
sd kw11
|
|
p freq 100
|
|
|
|
|
|
### Enable 2 RL drives
|
|
en rl # enable RL11 controller
|
|
sd rl
|
|
p il 4 # use BR4
|
|
|
|
en rl0 # enable drive #0
|
|
sd rl0 # select
|
|
p emulation_speed 10 # 10x speed. Load disk in 5 seconds
|
|
# set type to "rl02"
|
|
p runstopbutton 0 # released: "LOAD"
|
|
p powerswitch 1 # power on, now in "load" state
|
|
p image scratch0.rl02 # mount image file with test pattern
|
|
p runstopbutton 1 # press RUN/STOP, will start
|
|
#.end
|
|
|
|
en rl1 # enable drive #1
|
|
sd rl1 # select
|
|
p emulation_speed 10 # 10x speed. Load disk in 5 seconds
|
|
# set type to "rl02"
|
|
p runstopbutton 0 # released: "LOAD"
|
|
p powerswitch 1 # power on, now in "load" state
|
|
p image scratch1.rl02 # mount image file with test pattern
|
|
p runstopbutton 1 # press RUN/STOP, will start
|
|
|
|
|
|
### Enable 2 RK05 drives
|
|
en rk # enable RK11 controller
|
|
|
|
en rk0 # enable drive #0
|
|
sd rk0 # select
|
|
p image scratch0.rk
|
|
|
|
en rk1 # enable drive #1
|
|
sd rk1 # select
|
|
p image scratch1.rk
|
|
|
|
### Enable 2 MSCP drives
|
|
en uda0 # enable drive #0
|
|
sd uda0 # select
|
|
# set type to "RA80"
|
|
p type RA80
|
|
p image scratch0.ra80 # mount image file with test pattern
|
|
|
|
en uda1 # enable drive #1
|
|
sd uda1 # select
|
|
p type RA80
|
|
p image scratch1.ra80
|
|
|
|
##########################################
|
|
m ll multiarb.lst # load test program
|
|
.print Now starting test program at 1000 via PDP-11 console
|
|
|
|
dl11 rcv 1000 L\x201000\r
|
|
# dl11 rcv 500 S\r
|
|
|
|
|
|
.wait 5000
|
|
dbg c
|
|
.print Debug logs cleared.
|