From 101eb453caf3c12894c4298dd281a562bba8f906 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Victor?= Date: Sat, 16 Mar 2024 10:59:04 +0100 Subject: [PATCH] Uppercase contact names in CHATST. --- src/sysen3/chatst.57 | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/src/sysen3/chatst.57 b/src/sysen3/chatst.57 index 7668eb43..a62625a5 100644 --- a/src/sysen3/chatst.57 +++ b/src/sysen3/chatst.57 @@ -229,6 +229,20 @@ ASZIN4: .IOT TYIC,C ASZIN3: FWRITE TYOC,[CRLF,,[An ascii string terminated by please: ]] JRST ASZIN0 + +;; Convert asciz string pointed to by b to uppercase, in place. +;; Useful for contact names. +UPCASE: PUSHAE P,[A,B] +UPCAS1: ILDB A,B + JUMPE A,UPCAZ + CAIL A,141 + CAILE A,172 + JRST UPCAS1 + SUBI A,40 + DPB A,B + JRST UPCAS1 +UPCAZ: POPAE P,[B,A] + POPJ P, ;SEND LSN ALSN: PUSHJ P,CLBF @@ -237,6 +251,7 @@ ALSN: PUSHJ P,CLBF FWRITE TYOC,[[ Contact name: ]] MOVE B,[440800,,%CPKDT+BF] PUSHJ P,ASZIN + PUSHJ P,UPCASE DPB A,[$CPKNB BF] PUSHJ P,SEND ;JUST SEND, WILL GET INTERRUPT IF RFC MATCHES POPJ P, @@ -256,6 +271,7 @@ ABRD: PUSHJ P,CLBF FWRITE TYOC,[[ Contact name: ]] MOVE B,[440800,,%CPKDT+BF+8.] PUSHJ P,ASZIN + PUSHJ P,UPCASE addi a,32. ;+bitmask length DPB A,[$CPKNB BF] move a,[bf,,brdpkt] ;Save pkt @@ -378,6 +394,7 @@ ARFC: PUSHJ P,CLBF FWRITE TYOC,[[ Contact name: ]] MOVE B,[440800,,%CPKDT+BF] PUSHJ P,ASZIN + PUSHJ P,UPCASE DPB A,[$CPKNB BF] ARFC0: PUSHJ P,SEND FWRITE TYOC,[[ Sending...],CRLF,,]