1
0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-13 15:27:39 +00:00

Merge pull request #164 from sebras/describe/dskres.s

Attempt to describe purpose of source code in dskres.s
This commit is contained in:
Phil Budne 2019-10-31 16:11:20 -04:00 committed by GitHub
commit 73dd17d3c6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1,26 +1,32 @@
" dskres
iof
hlt
dzm track
-640
" Copies the entire file system (except system image and
" swap area) from side 0 of the disk onto same location
" on side 1.
"
" I.e. copies the first 6400 blocks from side 0 to side 1.
iof " disable interrupts
hlt " halt the computer!
dzm track " start copying from block address 0
-640 " transfer 640 chunks of 10 blocks each
dac c1
1:
lac track
lac track " read chunk of blocks starting at block "track" on side 0
jms dskrd0
lac track
lac track " write chunk of blocks starting at block "track" on side 1
jms dskwr1
lac track
lac track " proceed to next chunk (of 10 blocks)
tad d10
dac track
isz c1
jmp 1b
isz c1 " increment chunks transferred, if there are chunks remaining
jmp 1b " ...loop and transfer the next chunk
hlt
sys exit
hlt " ...otherwise halt the computer!
sys exit " call exit system call
track: 0
c1: 0
d10: 10
track: 0 " block address of chunk to transfer
c1: 0 " number of chunks remaining
d10: 10