mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-28 04:58:08 +00:00
Merge pull request #10 from decuser/master
changes based on scan compare
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -47,7 +47,7 @@ loop:
|
||||
tad d4
|
||||
dac name
|
||||
lac octal
|
||||
sys chowner; name: 0
|
||||
sys chowner; name:0
|
||||
sma
|
||||
jmp loop
|
||||
lac name
|
||||
|
||||
Reference in New Issue
Block a user