glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sys: alloc comments

Browse Source
This commit is contained in:
Phil Budne
2016-04-17 13:26:11 -04:00
parent ce6b5c4887
commit 032dc37705
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/sys/s4.s
+8 -8
View File
@@ -18,15 +18,15 @@ alloc: 0
lac 9f+t lac 9f+t
jmp alloc i " Return from routine jmp alloc i " Return from routine
1: 1:
lac s.nxfblk lac s.nxfblk " next block with list of free blocks
sna sna " any?
jms halt " OUT OF DISK jms halt " OUT OF DISK
dac s.fblks dac s.fblks " save as first free block #
jms dskrd jms dskrd " read the block
lac dskbuf lac dskbuf " get first word (pointer to next in chain)
dac s.nxfblk dac s.nxfblk " save as new "next"
jms copy; dskbuf+1; s.fblks+1; 9 jms copy; dskbuf+1; s.fblks+1; 9 " copy remaining 9 as free
lac d10 lac d10 " reset free count
dac s.nfblks dac s.nfblks
jmp alloc+1 jmp alloc+1