github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-26 12:12:37 +00:00
Code Issues Releases Wiki Activity

Merge pull request #127 from sebras/typos/salv.s

Browse Source 
Fix typos in salv.s after manual review
This commit is contained in:
Phil Budne
2019-10-20 19:15:48 -04:00
committed by GitHub
parent 12bd16bf9e 9f5681ddab
commit bb5cb340ab
2 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
scans/salv.s
View File

@@ -65,7 +65,7 @@ iloop:
" ** 11-45-91.pdf page 26
lac iflags
and 040
and o40
sza
jmp iloop
law idskps
@@ -94,7 +94,7 @@ iloop:
sna
jmp 3f
jms dskrd i
jms copy i; dskbuf: 0; idskbuf: 64
jms copy i; dskbuf: 0; ldskbuf; 64
isz indircnt
law ldskbuf
dac t3
@@ -155,7 +155,7 @@ dup:
sys write; dupmes; 3
jmp i dupcheck
dupmes:
< d>;<up><a 012
< d>;<up>;<a 012
print: 0
lmq
@@ -209,7 +209,7 @@ part2:
tad usetabp
dac t2
cla
lrss 4
llss 4
tad alsscom
dac 2f
lac d1
@@ -219,13 +219,17 @@ part2:
and bit
sza
jmp 1b
lac t1
jms free i
isz blcnt
jmp 1b
part3:
lac blcnt
jms print
lac d1
sys write; m7; m7s
sys exit
d1: 1
d2: 2
@@ -248,7 +252,6 @@ d6400: 6400
m3:
040;<fi>;<le>;<s 012
m3s = .-m3
m4:
" ** 11-45-91.pdf page 29
040;<la>;<rg>;<e 012
@@ -290,6 +293,7 @@ betwen: 0
dskrd: 0
free: 0
ldskbuf: .=.+64
linode: .=.+12
iflags = linode

16
src/cmd/salv.s
View File

@@ -65,7 +65,7 @@ iloop:
" ** 11-45-91.pdf page 26
lac iflags
and 040
and o40
sza
jmp iloop
law idskps
@@ -94,7 +94,7 @@ iloop:
sna
jmp 3f
jms dskrd i
jms copy i; dskbuf: 0; idskbuf: 64
jms copy i; dskbuf: 0; ldskbuf: 64
isz indircnt
law ldskbuf
dac t3
@@ -155,7 +155,7 @@ dup:
sys write; dupmes; 3
jmp i dupcheck
dupmes:
< d>;<up><a 012
< d>;<up>;<a 012
print: 0
lmq
@@ -209,7 +209,7 @@ part2:
tad usetabp
dac t2
cla
lrss 4
llss 4
tad alsscom
dac 2f
lac d1
@@ -219,13 +219,17 @@ part2:
and bit
sza
jmp 1b
lac t1
jms free i
isz blcnt
jmp 1b
part3:
lac blcnt
jms print
lac d1
sys write; m7; m7s
sys exit
d1: 1
d2: 2
@@ -248,7 +252,6 @@ d6400: 6400
m3:
040;<fi>;<le>;<s 012
m3s = .-m3
m4:
" ** 11-45-91.pdf page 29
040;<la>;<rg>;<e 012
@@ -290,6 +293,7 @@ betwen: 0
dskrd: 0
free: 0
ldskbuf: .=.+64
linode: .=.+12
iflags = linode