github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-04-27 04:36:41 +00:00
Code Issues Releases Wiki Activity

Add page comments to dmabs.s

Browse Source
This commit is contained in:
Sebastian Rasmussen
2019-11-01 02:35:43 +01:00
parent 73dd17d3c6
commit 6e410e9d9f
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
scans/dmabs.s
View File

@@ -1,3 +1,4 @@
"** 07-13-19.pdf page 23
" dmabs
lac o17
@@ -60,6 +61,7 @@ dump2:
dump3:
-1
tad bufp
"** 07-13-19.pdf page 24
dac 8
-64
dac c1
@@ -121,6 +123,7 @@ dump4:
done:
lac tracmd
jms put
"** 07-13-19.pdf page 25
cla
jms put
lac oldsum
@@ -182,6 +185,7 @@ boot:
2:
jms get1-boot+org
dac cmd-boot+org
"** 07-13-19.pdf page 26
jms get1-boot+org
cma
dac cnt-boot+org
@@ -243,6 +247,7 @@ punout: <pp>;<to>;<ut>;040040
o17: 017
fi: 0
"** 07-13-19.pdf page 27
fo: 0
count: 0
oldsum: 0
@@ -253,4 +258,4 @@ initcmd: dac 0
c1: 0
buf:
iot = 0700000
iot = 0700000

5
src/cmd/dmabs.s
View File

@@ -1,3 +1,4 @@
"** 07-13-19.pdf page 23
" dmabs
" takes a list of files on command line and punches out each
@@ -74,6 +75,7 @@ dump2: " (label not used)
dump3: " block loop
-1 " reset i8 to buffer
tad bufp
"** 07-13-19.pdf page 24
dac 8
-64 " get count
dac c1
@@ -135,6 +137,7 @@ dump4: " end of block
done: " here at end of input file
lac tracmd " get transfer command (jmp)
jms put " write to tape
"** 07-13-19.pdf page 25
cla " write a zero word
jms put
lac oldsum " get checksum
@@ -196,6 +199,7 @@ boot:
2:
jms get1-boot+org " get command word from tape
dac cmd-boot+org
"** 07-13-19.pdf page 26
jms get1-boot+org " get count from tape
cma
dac cnt-boot+org " store complemented (incremented below)
@@ -257,6 +261,7 @@ punout: <pp>;<to>;<ut>;040040
o17: 017
fi: 0
"** 07-13-19.pdf page 27
fo: 0
count: 0
oldsum: 0