github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-05 19:09:21 +00:00
Code Issues Releases Wiki Activity

Uppercase contact names in CHATST.

Browse Source
This commit is contained in:
Björn Victor
2024-03-16 10:59:04 +01:00
committed by Lars Brinkhoff
parent 5c86460007
commit 101eb453ca
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/sysen3/chatst.57
View File

@@ -229,6 +229,20 @@ ASZIN4: .IOT TYIC,C
ASZIN3: FWRITE TYOC,[CRLF,,[An ascii string terminated by <RETURN> 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,,]