mirror of
https://github.com/DoctorWkt/unix-jun72.git
synced 2026-02-01 14:32:40 +00:00
b5a8011b93
these. Modified patches/core/v2_as.patch so that we no longer need sys1.s, and changed tools/assemv2 to no longer create sys1.s.
35 lines
1.6 KiB
Diff
35 lines
1.6 KiB
Diff
--- rebuilt/u4.s Wed May 7 01:50:25 2008
|
|
+++ build/u4.s Wed May 7 09:50:17 2008
|
|
@@ -73,17 +73,24 @@
|
|
inc *$tks / set the reader enable bit
|
|
bic $!177,r1 / clear upper 9 bits of the character (strip off
|
|
/ 8th bit of char)
|
|
- cmp r1,$'a-40 / is character upper case A,..., upper case Z.
|
|
+ / cr to lf conversion May 7 2008
|
|
+ cmp r1,$15 / if we receive a cr
|
|
+ bne 0f
|
|
+ mov $12,r1 / convert it into an lf
|
|
+0:
|
|
+ / uppercase to lowercase conversion removed May 5 2008
|
|
+ / cmp r1,$'a-40 / is character upper case A,..., upper case Z.
|
|
/ note that
|
|
- blt 1f / lower case a is represented by 141, upper case by
|
|
- cmp r1,$'z-40 / 101; and lower case z by 172, upper
|
|
+ / blt 1f / lower case a is represented by 141, upper case by
|
|
+ / cmp r1,$'z-40 / 101; and lower case z by 172, upper
|
|
/ case Z by 132.
|
|
- bgt 1f / if not upper case, branch
|
|
- add $40,r1 / if upper case, calculate the representation of its
|
|
+ / bgt 1f / if not upper case, branch
|
|
+ / add $40,r1 / if upper case, calculate the representation of its
|
|
/ lower case counter part
|
|
1:
|
|
- cmp r1,$175 / char = "}"? Note: may be quit char (fs)
|
|
- beq 2f / yes 2f
|
|
+ / deletion of } characters removed May 5 2008
|
|
+ / cmp r1,$175 / char = "}"? Note: may be quit char (fs)
|
|
+ / beq 2f / yes 2f
|
|
cmp r1,$177 / char = "del" ?
|
|
beq 2f / yes, 2f
|
|
jsr r0,putc; 0 / put char in r1 on clist entry
|