File 1)	DSKS:CPMBAS.M80[10,13560,SYS,K35COL,CPM,UTCC]	created: 1632 08-Dec-1983
File 2)	DSKS:CPMBAS.OLD[10,13560,SYS,K35COL,CPM,UTCC]	created: 1616 22-Nov-1983

1)1	;UTK016 9 november 1983 17:15 John Bray, UTK
1)	; set ibm parity for UTCC, warning on, FIX CURSOR ADDRESSING(again,sigh)
1)	; and ttab:'s for several machines.
1)	;UTK015 9 november 1983 17:25 John Bray, UTK
1)	; fix brain's scrend db for assembler bug.
1)	;UTK014 4 November 1983 15:07 by John Bray, UTK
1)	; Fix the conchr routine to know null is 'nothing there' flag.
1)	;STEVENS::DSKB:NEWCPM.M80[10,40,CPMKER], 19-Oct-83 16:40, Nick Bush
****
2)1	;STEVENS::DSKB:NEWCPM.M80[10,40,CPMKER], 19-Oct-83 16:40, Nick Bush
**************
1)49		jz	rskp		; Null means nothing there.	[UTK014]
1)		mov e,a			; Move the char for comparison.
****
2)49		mov e,a			; Move the char for comparison.
**************
1)53	; those machines which use other than vt52, et.al.'s <esc>'Y' [UTK016]
1)	;	as a cursor lead in need to have that translated to
1)	;	their native cursor lead-in sequences, e.g.: <esc>'=', etc.
1)	;	or they CANNOT do ANY cursor addressing, EVER,  other than that
1)	;	hardwired into kermit itself.  we do that here.		[UTK016]
1)	;	(fixed second time, very sigh)
1)	IF (osbrn1 or apple OR trs80 OR kpii);				[UTK016]
1)		cpi	'Y'		; if cursor lead-in handle it.  [UTK016]
1)		jnz	vt52a		; if not, go on.		[UTK016]
1)		lxi	d,CURLDN	; point to our cursor lead-in.  [UTK016]
1)		call	prtstr		; have cpm print it.		[UTK016]
1)		ret			; and back for another one.	[UTK016]
1)	vt52a:								;[UTK016]
1)	ENDIF				;(osbrn1 or apple OR trs80 OR kpii)[UTK016]
1)	IF NOT (robin OR rainbo OR gener OR dmII OR osi OR cpm3)
****
2)53	IF NOT (robin OR rainbo OR gener OR dmII OR osi OR cpm3)
**************
1)91	scrend:	db	esc,'Y',27H,20H,'$'	; Place for prompt.	[UTK015]
1)	ttab:					; Table start location.
****
2)91	scrend:	db	esc,'Y',27H,' $'	; Place for prompt.
2)	ttab:					; Table start location.
**************
1)92	curldn:	db	esc,'=$'			; Cursor lead-in     [UTK016]
1)	ttab:					; Table start location.
****
2)92	ttab:					; Table start location.
**************
1)92	td:	db	08H,'$',0,0		; Cursor left.		[UTK016]
1)	te:	db	subt,'$',0,0		; Clear screen.		[UTK016]
1)	tf:	db	esc,'F$',0		; No translation.
1)	tg:	db	esc,'G$',0
****
2)92	td:	db	esc,'D$',0		; No translation.
2)	te:	db	esc,'E$',0
2)	tf:	db	esc,'F$',0
2)	tg:	db	esc,'G$',0
**************
1)93	curldn:	db	esc,'=$'			; Cursor lead-in     [UTK016]
File 1)	DSKS:CPMBAS.M80[10,13560,SYS,K35COL,CPM,UTCC]	created: 1632 08-Dec-1983
File 2)	DSKS:CPMBAS.OLD[10,13560,SYS,K35COL,CPM,UTCC]	created: 1616 22-Nov-1983

1)	ttab:					; Table start location.
****
2)93	ttab:					; Table start location.
**************
1)96	curldn:	db	esc,'=$'		; Cursor lead-in     [UTK016]
1)	ttab:					; Table start location.
1)	ta:	db	0BH,'$',0,0		; Cursor up.		[UTK016]
1)	tb:	db	0AH,'$',0,0		; Cursor down.		[UTK016]
1)	tc:	db	0CH,'$',0,0		; Cursor right.		[UTK016]
1)	td:	db	08H,'$',0,0		; Cursor left		[UTK016]
1)	te:	db	esc,':$',0		; Clear display
****
2)96	ttab:					; Table start location.
2)	ta:	db	0BH,'$',0		; Cursor up.
2)	tb:	db	0AH,'$',0		; Cursor down.
2)	tc:	db	0CH,'$',0		; Cursor right.
2)	td:	db	08H,'$',0		; Cursor left
2)	te:	db	esc,':$',0		; Clear display
**************
1)96	th:	db	1EH,'$',0,0		; Cursor home.		[UTK016]
1)	ti:	db	0BH,'$',0,0		; Reverse linefeed.	[UTK016]
1)	tj:	db	esc,'Y$',0		; Clear to end of screen.
****
2)96	th:	db	1EH,'$',0		; Cursor home.
2)	ti:	db	0BH,'$',0		; Reverse linefeed.
2)	tj:	db	esc,'Y$',0		; Clear to end of screen.
**************
1)98	curldn:	db	esc,'=$'		; Cursor lead-in     [UTK016]
1)	ttab:					; Table start location.
1)	ta:	db	0BH,'$',0,0		; Cursor up.		[UTK016]
1)	tb:	db	0AH,'$',0,0		; Cursor down.		[UTK016]
1)	tc:	db	0CH,'$',0,0		; Cursor right.		[UTK016]
1)	td:	db	08H,'$',0,0		; Cursor left		[UTK016]
1)	te:	db	subt,'$',0,0		; Clear display		[UTK016]
1)	tf:	db	esc,'G$',0		; Enter Graphics Mode
1)	tg:	db	esc,'G$',0		; Exit Graphics mode
1)	th:	db	1EH,'$',0,0		; Cursor home.		[UTK016]
1)	ti:	db	0BH,'$',0,0		; Reverse linefeed.	[UTK016]
1)	tj:	db	esc,'Y$',0		; Clear to end of screen.
****
2)98	ttab:					; Table start location.
2)	ta:	db	0BH,'$',0		; Cursor up.
2)	tb:	db	0AH,'$',0		; Cursor down.
2)	tc:	db	0CH,'$',0		; Cursor right.
2)	td:	db	08H,'$',0		; Cursor left
2)	te:	db	subt,'$',0		; Clear display
2)	tf:	db	esc,'G$',0		; Enter Graphics Mode
2)	tg:	db	esc,'G$',0		; Exit Graphics mode
2)	th:	db	1EH,'$',0		; Cursor home.
2)	ti:	db	0BH,'$',0		; Reverse linefeed.
2)	tj:	db	esc,'Y$',0		; Clear to end of screen.
**************
1)103	flwflg:	db	1		; File warning flag (default off).[on][UTK016]
1)	ENDIF				;NOT brain
****
2)103	flwflg:	db	0		; File warning flag (default off).
File 1)	DSKS:CPMBAS.M80[10,13560,SYS,K35COL,CPM,UTCC]	created: 1632 08-Dec-1983
File 2)	DSKS:CPMBAS.OLD[10,13560,SYS,K35COL,CPM,UTCC]	created: 1616 22-Nov-1983

2)	ENDIF				;NOT brain
**************