; LNED1.M68  (18) 7-Sept-84  Patch to LINEED.LIT  1.5A(108)  571-431-140-110
; By Irv Bromberg, Medic/OS Consultants, 78 Wildginger Way, Toronto, Ontario,
; CANADA  M3H 5X1
; Patch #1:
; To correct cursor right bug which caused the following LINEED commands to
; malfunction:  ^L or -->, ^Gn, ^W, ^X, ^N.
; Original LINEED did not work properly on ADDS Viewpoint, Cybernex MDL-100
; or Hewlett-Packard or any other terminal that does not use CTRL-L for
; cursor right.  LINEED sends CTRL-L to move the cursor right, this patch
; fixes this by sending the contents of the input buffer from the
; current cursor position to the new cursor position thereby avoiding the
; need to know how to move the cursor right on any CRT type.

; Patch #2:
; This patch changes handling of RETURN or CTRL-M so that insert
; character mode is always turned off after the line is entered.

COPY PATCH

OVER	1,5,1,108.,0
NVER	1,5,1,108.,2	; this file does 2 new different patches

OHASH	571,431,140,110
NHASH	017,434,127,622

T.ICC	=22

Worksp	=A0
TCB	=A5

NewPos	=D0	; new cursor position in line
Char	=D1
Count	=D3

BS	=10

.=1142
	WORD	RETURN-.		; change branch for processing ^M

.=2436
	JMP	L3034
	NOP				; clean-up so garbage not left here
	NOP
	NOP
L2450:					; queue up backspaces to move left

.=2460
L2460:	TRMBFQ
L2462:

.=2472
L2472:

.=3034
L3034:	; original PRGEND

	MOV	NewPos,Count		; has position changed?
	SUB	T.ICC(TCB),Count
	JEQ	L2472			; no
	JMI	L2450			; yes, move left
	LEA	A6,0(Worksp)[~NewPos]	; new cursor right routine
	MOV	A6,D1			; D1 now has new cursor position
	SUB	Count,D1		; subtract count to calculate
	JMP	L2460			; original cursor position
	; jump to queue up input line from original pos'n to new pos'n

RETURN:	; modified ^M processing routine
	BCLR	#4,@A1			; clear insert character mode
Loop:	TSTB	0(Worksp)[~D0]		; find end of entry line
	JEQ	L2462
	ADD	#1,D0
	BR	Loop

	END

.