mirror of
https://github.com/DoctorWkt/unix-jun72.git
synced 2026-01-11 23:53:34 +00:00
656be7063b
We may want to move the location of the various files at some point, but I wanted to make sure it got into the svn.
31 lines
779 B
ArmAsm
31 lines
779 B
ArmAsm
/ UNIX bootstrap ROM, based on BOOT PROCEDURES (VII) 11/3/71
|
|
|
|
. = 73700
|
|
|
|
/ 173700 -- load bos from 1700000 of rf0 (RF11)
|
|
|
|
mov $177472,r0
|
|
mov $3,-(r0) / rf11.dae.ta[6:5] = 3
|
|
mov $140000,-(r0) / rf11.dar = 140000
|
|
mov $54000,-(r0) / rf11.cma = 54000
|
|
mov $-2000,-(r0) / rf11.wc = -2000 (1K words)
|
|
mov $5,-(r0) / rf11.dcs = read,go
|
|
tstb (r0) / done?
|
|
bge .-2 / no, loop
|
|
jmp *$54000 / jump to bos
|
|
|
|
/ 173740 -- load from tap0 (TC11 DECtape)
|
|
|
|
mov $177350,r0
|
|
clr -(r0) / tc11.tcba = 0
|
|
mov r0,-(r0) / tc11.tcwc = 177346 (282. bytes)
|
|
mov $3,-(r0) / tc11.tccm = rnum,do
|
|
tstb (r0) / done?
|
|
bge .-2 / no, loop
|
|
tst *$177350 / block 0?
|
|
bne . / no, loop forever
|
|
movb $5,(r0) / tc11.tccm = rdata,do
|
|
tstb (r0) / done?
|
|
bge .-2 / no, loop
|
|
clr pc / jump to location 0
|