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:
parent
92e8e672d3
commit
c0ebabc5a2
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user