github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-25 11:47:35 +00:00
Code Issues Releases Wiki Activity

sys: alloc comments

Browse Source
This commit is contained in:
Phil Budne
2016-04-14 10:34:54 -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

16
src/sys/s4.s
View File

@@ -18,15 +18,15 @@ alloc: 0
lac 9f+t
jmp alloc i " Return from routine
1:
lac s.nxfblk
sna
lac s.nxfblk " next block with list of free blocks
sna " any?
jms halt " OUT OF DISK
dac s.fblks
jms dskrd
lac dskbuf
dac s.nxfblk
jms copy; dskbuf+1; s.fblks+1; 9
lac d10
dac s.fblks " save as first free block #
jms dskrd " read the block
lac dskbuf " get first word (pointer to next in chain)
dac s.nxfblk " save as new "next"
jms copy; dskbuf+1; s.fblks+1; 9 " copy remaining 9 as free
lac d10 " reset free count
dac s.nfblks
jmp alloc+1