Fix typos in ed1.s after manual review.

This commit is contained in:
Sebastian Rasmussen
2019-11-02 02:14:14 +01:00
parent 73dd17d3c6
commit b909a75810
2 changed files with 11 additions and 5 deletions
+6 -3
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 " --