1
0
mirror of https://github.com/DoctorWkt/unix-jun72.git synced 2026-01-19 09:37:57 +00:00

more ocr corrections; got cold load to write rf disk

This commit is contained in:
brad@heeltoe.com 2008-05-01 20:00:15 +00:00
parent 92e8e672d3
commit c0ebabc5a2
3 changed files with 4 additions and 3 deletions

View File

@ -48,6 +48,7 @@ ecore = core+20000 / specifies end of user's core (4096 words)
/ 4;4 init by copy
/ unkni;0 " error
/ fpsym;0 " illg in tr
. = orig+14
unkni;0 / trace and trap (see Sec. B.1 page )
unkni;0 / trap
panic;0 / pwr

View File

@ -12,11 +12,11 @@
cmp r1,$34. / first drum address not in i list
bgt 1b / if block 34 has been freed, zero i list
/ zero 1 list
/ zero i list
1:
dec r0 / r0=33.,...,1
jsr r0,c1ear / zero block 'r1' on fixed head disk
jsr r0,clear / zero block 'r1' on fixed head disk
tst r1
bgt 1b / if blocks 33,...,1 have all been zeroed, done.
.endif

View File

@ -1,4 +1,4 @@
bic $13000,r3 / clear all bits except 9 and 10
bic $!3000,r3 / clear all bits except 9 and 10
bic $3000,(r1) / clear only bits 9 and 10
rol r3
rol r3