1
0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-04-24 19:40:14 +00:00

changes based on scan compare

This commit is contained in:
Will Senn
2016-02-28 17:50:48 -06:00
parent f06853e09b
commit 43d1349b75
3 changed files with 8 additions and 10 deletions

View File

@@ -9,7 +9,7 @@
dac name
loop:
sys open; name; 0; 0
sys open; name: 0; 0
spa
jmp badfile
dac fi
@@ -74,7 +74,7 @@ getc: 0
lac ipt
sad eipt
jmp 1f
dac 1f
dac 2f
add o400000
dac ipt
ral
@@ -96,7 +96,7 @@ getc: 0
dac ipt
jmp getc+1
1:
lac 64
lac o4
jmp getc i
putc: 0

View File

@@ -42,7 +42,7 @@ dac dskbuf1
dzm licnt
dzm blcnt
dzm curi
jms coopyz i; usetab; 500
jms copyz i; usetab; 500
iloop:
isz curi
@@ -68,7 +68,7 @@ iloop:
1:
lac i t1
sza
jms dupchech
jms dupcheck
isz t1
isz t2
jmp 1b
@@ -108,7 +108,7 @@ iloop:
dupcheck: 0
isz blcnt
jms betwen i d709; d6400
jms betwen i; d709; d6400
jmp badadr
dac t5
lrss 4
@@ -128,8 +128,6 @@ dupcheck: 0
lac i t6
xor bit
dac i t6
xor bit
dac i t6
jmp i dupcheck
badadr:
@@ -181,7 +179,7 @@ part2:
sys write; m4; m4s
lac indircnt
jms print
dac d1
lac d1
sys write; m5; m5s
lac blcnt
jms print

View File

@@ -47,7 +47,7 @@ loop:
tad d4
dac name
lac octal
sys chowner; name: 0
sys chowner; name:0
sma
jmp loop
lac name