Added sdump tool, added a coldboot option to build/Makefile, added a few

kernel comments.
This commit is contained in:
Warren Toomey
2016-03-11 16:00:10 +10:00
parent c62890ab56
commit bfeb833141
4 changed files with 28 additions and 17 deletions
+6 -6
View File
@@ -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
View File
@@ -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