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

Fix typos in ed1.s after manual review.

Browse Source
This commit is contained in:
Sebastian Rasmussen
2019-10-24 00:06:46 +02:00
parent 73dd17d3c6
commit b909a75810
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
scans/ed1.s
View File

@@ -1,6 +1,7 @@
"** 08-rest.pdf page 8
"[handwritten page number top right of scan - 1]
" ed1
lac d1
sys write; 1f; 3
lac o17
@@ -32,6 +33,7 @@
jmp advanc
1:
<ed>; <it>; 012
advanc:
jms rline
lac linep
@@ -92,6 +94,7 @@ comand:
sad o75
jmp ceq
jmp error
ca:
jms newline
jms setfl
@@ -149,7 +152,7 @@ cp1:
lac d1
sys write; line; 2: 0
lac addr1
sad addr1
sad addr2
jmp advanc
tad d1
dac addr1
@@ -216,6 +219,7 @@ cr:
isz c1
jmp 2b
jmp 1b
cw:
jms setfl
lac i addr1
@@ -246,7 +250,7 @@ cw:
sna
jmp 3f
isz num
jmp putsc; tal1
jms putsc; tal1
isz c2
"** 08-rest.pdf page 12
"[handwritten page number top right of scan - 5]
@@ -710,7 +714,6 @@ addline: 0
jmp 1b
jmp i addline
getdsk: 0 "[the entire getdsk procedure was surrounded
and o776000 " by a box that was Xed out]:
sad diskin " --

7
src/cmd/ed1.s
View File

@@ -1,6 +1,7 @@
"** 08-rest.pdf page 8
"[handwritten page number top right of scan - 1]
" ed1
lac d1
sys write; 1f; 3 " say hello
lac o17
@@ -32,6 +33,7 @@
jmp advanc
1:
<ed>; <it>; 012
advanc:
jms rline
lac linep
@@ -92,6 +94,7 @@ comand:
sad o75 " =?
jmp ceq
jmp error
ca: " a(ppend)
jms newline
jms setfl
@@ -149,7 +152,7 @@ cp1:
lac d1
sys write; line; 2: 0
lac addr1
sad addr1
sad addr2
jmp advanc
tad d1
dac addr1
@@ -216,6 +219,7 @@ cr: " r(ead)
isz c1
jmp 2b
jmp 1b
cw: " w(rite)
jms setfl
lac i addr1
@@ -710,7 +714,6 @@ addline: 0
jmp 1b
jmp i addline
getdsk: 0 "[the entire getdsk procedure was surrounded
and o776000 " by a box that was Xed out]:
sad diskin " --