From 73368930f08c5ad6aa22281746dbcde2858d080e Mon Sep 17 00:00:00 2001 From: "warren.toomey" Date: Mon, 5 May 2008 11:04:50 +0000 Subject: [PATCH] Allow uppercase keyboard input and the } character. --- patches/notes.txt | 3 +++ patches/upcase.patch | 29 +++++++++++++++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 patches/upcase.patch diff --git a/patches/notes.txt b/patches/notes.txt index e00b83a..b64b946 100644 --- a/patches/notes.txt +++ b/patches/notes.txt @@ -28,3 +28,6 @@ initorig.patch ecore.patch Increase the amount of memory user programs have, so that the last1120 C compiler will run. + +upcase.patch + Allow uppercase keyboard input and the } character. diff --git a/patches/upcase.patch b/patches/upcase.patch new file mode 100644 index 0000000..0b43485 --- /dev/null +++ b/patches/upcase.patch @@ -0,0 +1,29 @@ +--- rebuilt/u4.s Mon May 5 20:58:29 2008 ++++ build/u4.s Mon May 5 20:58:14 2008 +@@ -73,17 +73,19 @@ + 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. ++ / 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