github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-28 04:58:08 +00:00
Code Issues Releases Wiki Activity

Add page comments to check.s.

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

8
scans/check.s
View File

@@ -1,3 +1,4 @@
"** 06-5-12.pdf page 25
" check
lac d1
@@ -60,6 +61,7 @@ iloop:
lac iflags
and o40
sza
"** 06-5-12.pdf page 26
jmp iloop
law idskps
dac t1
@@ -121,6 +123,7 @@ dupcheck: 0
lac d1
2: alss 0
dac bit
"** 06-5-12.pdf page 27
lac i t6
and bit
sza
@@ -182,6 +185,7 @@ part2:
lac d1
sys write; m5; m5s
lac blcnt
"** 06-5-12.pdf page 28
jms print
lac d1
sys write; m6; m6s
@@ -243,6 +247,7 @@ part3:
cla
llss 4
tad alsscom
"** 06-5-12.pdf page 29
dac 2f
lac d1
2: alss 0
@@ -304,6 +309,7 @@ t1: 0
t2: 0
t3: 0
t4: 0
"** 06-5-12.pdf page 30
t5: 0
t6: 0
@@ -321,4 +327,4 @@ linode: .=.+12
iflags = linode
idskps = iflags+1
usetab: .=.+500
prbuf: .=.+6
prbuf: .=.+6

6
src/cmd/check.s
View File

@@ -1,3 +1,4 @@
"** 06-5-12.pdf page 25
" check
lac d1
@@ -60,6 +61,7 @@ iloop:
lac iflags
and o40
sza
"** 06-5-12.pdf page 26
jmp iloop
law idskps
dac t1
@@ -121,6 +123,7 @@ dupcheck: 0
lac d1
2: alss 0
dac bit
"** 06-5-12.pdf page 27
lac i t6
and bit
sza
@@ -182,6 +185,7 @@ part2:
lac d1
sys write; m5; m5s
lac blcnt
"** 06-5-12.pdf page 28
jms print
lac d1
sys write; m6; m6s
@@ -243,6 +247,7 @@ part3:
cla
llss 4
tad alsscom
"** 06-5-12.pdf page 29
dac 2f
lac d1
2: alss 0
@@ -304,6 +309,7 @@ t1: 0
t2: 0
t3: 0
t4: 0
"** 06-5-12.pdf page 30
t5: 0
t6: 0