	.title	iasfix
	.list	meb
;	file containing fixes to VTL to make it work correctly under
;	reese ias
;
;	F. borger	Sep 20, 1985
;
;
	.mcall	qiow$, dir$
OUTLUN=5			;don't use 6 you dummy
OUTEFN=5
ESC=33
;
IASSET::dir$	#getall		;get all characteristics
	dir$	#setcha		;set the ones we change
	dir$	#setsw		;set sw10 characteristics
	rts	pc
;
;
IASRES::dir$	#setall		;reset all characteristics
	dir$	#detach		;detach terminal
	rts	pc
;
;
SETBF:	.BYTE	TC.ESQ,1		; ENABLE ESCAPE SEQUENCES
	.BYTE	TC.ANS,1		;MUST BE ANSII ON IAS **HWG**
	SETBL = .-SETBF
	.EVEN
;
;
SVT100:	.ASCII 	<ESC>%<%		; SET VT100 TO ANSI MODE
	.ASCIZ	<ESC>%[?7l%		;CLEAR AUTO-WRAP BIT FOR SW10**HWG**
;	.ASCIZ	<ESC>%[c%		; VT100 GET OPTIONS PRESENT
	SVTLEN=.-SVT100
	.even
;
GBCBFR:	.BLKW	16.			;TERMINAL PARAMETERS IAS **HWG**
;
;
;	DIRECTIVE PARAMETER BLOCKS
;
;
GETALL:	QIOW$	SF.GAC,OUTLUN,OUTEFN,,TIOSB,,<GBCBFR>	;get all charac.
;
;
SETALL:	QIOW$	SF.SAC,OUTLUN,OUTEFN,,TIOSB,,<GBCBFR>	;set all charac.
;
;
SETCHA:	QIOW$	SF.SMC,OUTLUN,OUTEFN,,TIOSB,,<SETBF,SETBL>  ; SET TTY CHAR
;
;
SETSW:	QIOW$	IO.WVB,OUTLUN,OUTEFN,,TIOSB,,<SVT100,SVTLEN,0> ;set vt100
	.end
