Added sdump tool, added a coldboot option to build/Makefile, added a few
kernel comments.
This commit is contained in:
+6
-6
@@ -3,11 +3,11 @@
|
||||
|
||||
" allocate a free disk block for a file (data or indirect)
|
||||
alloc: 0
|
||||
-1
|
||||
tad s.nfblks
|
||||
-1 " Decrement the # free block numbers in the cache
|
||||
tad s.nfblks " kept at s.fblks. Jump to 1f if no free blocks left.
|
||||
spa
|
||||
jmp 1f
|
||||
dac s.nfblks
|
||||
dac s.nfblks " Update the count of free block numbers
|
||||
tad fblksp
|
||||
jms laci
|
||||
dac 9f+t
|
||||
@@ -16,7 +16,7 @@ alloc: 0
|
||||
jms dskwr
|
||||
dzm .savblk
|
||||
lac 9f+t
|
||||
jmp alloc i
|
||||
jmp alloc i " Return from routine
|
||||
1:
|
||||
lac s.nxfblk
|
||||
sna
|
||||
@@ -30,7 +30,7 @@ alloc: 0
|
||||
dac s.nfblks
|
||||
jmp alloc+1
|
||||
|
||||
" free a disk block
|
||||
" free the disk block whose number is in AC
|
||||
free: 0
|
||||
lmq
|
||||
lac s.nfblks
|
||||
@@ -53,7 +53,7 @@ free: 0
|
||||
dzm .savblk
|
||||
lac d1
|
||||
dac s.nfblks
|
||||
jmp free i
|
||||
jmp free i " Return from the routine
|
||||
t = t+1
|
||||
|
||||
" load AC indirect (without using indirect!)
|
||||
|
||||
+8
-7
@@ -5,27 +5,28 @@
|
||||
|
||||
" zero i-list
|
||||
|
||||
dzm ii
|
||||
jms copyz; dskbuf; 64
|
||||
dzm ii " Set ii to zero
|
||||
jms copyz; dskbuf; 64 " Zero the 64-word dskbuf
|
||||
1:
|
||||
lac ii
|
||||
lac ii " Zero blocks 0 to 709
|
||||
jms dskio; 07000
|
||||
isz ii
|
||||
isz ii " Move up to next block number
|
||||
-710
|
||||
tad ii
|
||||
sza
|
||||
jmp 1b
|
||||
jmp 1b " Loop back until we reach block 710
|
||||
" i.e. we don't write block 710
|
||||
|
||||
" free rest of disk
|
||||
|
||||
1:
|
||||
lac ii
|
||||
lac ii " Free blocks 710 up to 6399
|
||||
jms free
|
||||
isz ii
|
||||
-6400
|
||||
tad ii
|
||||
sza
|
||||
jmp 1b
|
||||
jmp 1b " Loop back until we reach block 6400
|
||||
|
||||
" read in tapes
|
||||
|
||||
|
||||
Reference in New Issue
Block a user