;
;	*********************************************************
;	***						      ***
;	***		Hamilton Farm Company Library	      ***
;	***		Micro-Term 	Ergo-201	      ***
;	***		Televideo 925 Emulation               ***
;	***						      ***
;	*********************************************************
;
;
;
;  Edit history:
;
; BH  17-Oct-83
;	created file
;

	OBJNAM	MT201.TDV

	SEARCH	SYS
	SEARCH	TRM
	SEARCH	TDV.UNV[7,10]

	AUTOEXTERN

	TDV	,,,OUTPUT,,MT201X	; set up header

XY::	ADMXY				; gotoxy routine

  	RADIX	16
; special output routine to compensate for 925 bug
OUTPUT:
	CMPB	D1,#0A			; linefeed?
	BNE	OUTX
	MOVW	@A5,D7
	AND	#IMI,D7
	BEQ	OUTX
	LEA	A0,OMSG
	MOV	A0,D1
	LEA	A0,T.OQX(A5)
	QINS	A0
	CLR	(A0)+
	MOV	#2,(A0)+
	MOV	D1,(A0)
	MOV	#12.+80,D1		; ^l first
OUTX:
	LCC	#8
	RTN

OMSG:	BYTE	8.+80,8A		; ^h, linefeed + bit 7
; end of special telvideo 950 routine
	PAGE

; CRT function table
	RADIX	10
	XTAB	0,ESC,'*		; clear all to nulls
	XTAB	1,'^-'@			; home
	XTAB	2,^H8D			; carriage return
	XTAB	3,11.			; cursor up
	XTAB	4,10.			; cursor down
	XTAB	5,8.			; cursor left
	XTAB	6,12.			; move cursor right
	XTAB	7,ESC,'#		; lock keyboard
	XTAB	8,ESC,'"		; unlock keyboard
	XTAB	9,ESC,'T		; erase to end of line
	XTAB	10,ESC,'Y		; erase to end of screen
	XTAB	11,ESC,')		; reduced intensity
	XTAB	12,ESC,'(		; normal intensity
	XTAB	13,ESC,'&		; enable protected fields
	XTAB	14,ESC,''		; disable protected fields
	XTAB	15,ESC,'R		; delete line
	XTAB	16,ESC,'E		; insert line
	XTAB	17,ESC,'W		; delete character
	XTAB	18,ESC,'Q		; insert character
	XTAB	21,ESC,'G,'2		; blinking field
	XTAB	22,ESC,'G,'0		; stop blinking field

; line drawing
	XTAB	23,ESC,'$		; graphics on
	XTAB	24,ESC,'%		; graphics off

; micro concepts extended TCRT calls (now moved to AMOS standard locations)
	XTAB	28,ESC,'.,'2		; cursor on (solid block)
	XTAB	29,ESC,'.,'0		; cursor off
	XTAB	30,ESC,'G,'8		; underline
	XTAB	31,ESC,'G,'0		; underline off
	XTAB	32,ESC,'G,'4		; reverse video
	XTAB	33,ESC,'G,'0		; reverse video off
	XTAB	36,ESC,'O		; turn off screen display
	XTAB	37,ESC,'N		; turn on screen display

	XTAB	38,'`     			; top left corner
	XTAB	39,'b     			; top right corner
	XTAB	40,'c     			; bottom left corner
	XTAB	41,'a      			; bottom right corner
	XTAB	42,'h   			; top intersect
	XTAB	43,'f   			; right intersect
	XTAB	44,'e    			; left intersect
	XTAB	45,'g   			; bottom intersect
	XTAB	46,'|    			; horizontal line
	XTAB	47,'~    			; vertical line
	XTAB	48,'d    			; intersection
	XTAB	49,'u           	        ; solid block (use monitor mode)
	XTAB	50,'v    	  		; slant block
	XTAB	51,ESC,31  			; cross-hatch block
	XTAB	52,'|    			; double line horizontal
	XTAB	53,'~    			; double line vertical


; micro concepts extended TCRT calls
	XTAB	128,ESC,'f		; start 25th line message
	XTAB	129,^H8D		; end 25th line message
	XTAB	130,ESC,'!,'1		; line lock line
	XTAB	131,ESC,'!,'2		; remove linelock entire screen
	XTAB	132,ESC,'f,^H8D		; turn off 25th line message

; Collison Data Center SPECIAL functions for Remote Printer Control
	XTAB	201,ESC,'c		; Begin Monitored Remote Printing
	XTAB	202,ESC,'e		; End Monitored Romote Printing
	XTAB	203,ESC,'`		; Begin Non-Monitored Remote Printing
	XTAB	204,ESC,'a		; End Non-Monitored Remote Printing
	XTAB	205,ESC,'P		; Print remote Screen

	XTAB	210,ESC,'q		; Enable Xon-Xoff protocal
	XTAB	211,ESC,'o		; Disable Xon-Xoff protocal

	XTAB	220,ESC,'b		; Screen Background - REVERSE
	XTAB	221,ESC,'d		; Screen Background - NORMAL

	XTEND

	END

.