OU:TTICH.MAC;2/AU:72./-BF=IN:[11,10]TTICH.VGN;1
\
-2,2
	.IDENT	/V03.08X/
-/DD160/+2,,
;
;	JGD	01-JAN-83	TREAT A 'BS' AS A RUBOUT IF TERMTYPE=#77
;				THIS IS IF TERMINAL HAS NO RUBOUT KEY
;				SUCH AS AN 'APPLE'
;
%
-/ICH2A::/+1,,/; JGD/
	CMPB	U.TTYP-U.TSTA(R5),#77 ;;; IS IT TERMINAL TYPE #77?
	BNE	45$		;;; NO - SKIP NEXT TEST
	CMPB	R2,#CH.BSP	;;; IS IT A BACKSPACE?
	BEQ	70$		;;; Y - JUMP
45$:				;;; REF LABLE
/