100 /VT-8/E P?S/8 FOCAL OVERLAY
 110 
 120 	XLIST	1
 130 	ON=	0
 140 	IFNDEF	OFF	<OFF=	1>
 150 	XLIST	ON;	IFZERO	1	<
 160 	OVERLAY TO P?S/8 FOCAL TO INTERFACE VT-8/E.
 170 
 180 	LAST	EDIT:	16-NOV-1982	03:00:00	CJL
 190 
 200 	MAY BE ASSEMBLED WITH '/J' SWITCH SET.
 210 					>	XLIST	ON
 220 
 230 /	ASSEMBLY INSTRUCTIONS:
 240 
 250 /	SETTING	VTON=	1	ENABLES DEFAULT OUTPUT TO SCREEN (O S).
 260 
 270 /	SETTING VTON=	0	ENABLES OUTPUT TO TTY: (O T).
 280 
 290 /	SETTING	VTIN=	1	ENABLES DEFAULT INPUT FROM VT-8/E'S KEYBOARD (O V).
 300 
 310 /	SETTING VTIN=	0	ENABLES DEFAULT INPUT FROM TTY: (O K).
 320 
 330 /	VKCODE IS DEVICE CODE OF VT-8/E KEYBOARD (DEFAULT IS 43).
 340 
 350 /	VTCODE IS DEVICE CODE OF VT-8/E VIDEO INTERFACE (DEFAULT IS 45).
 360 
 370 /	DEFAULT PARAMETERS ARE:
 380 
 390 /	VTON=	1		/USE VT-8/E OUTPUT
 400 
 410 /	VTIN=	1		/USE VT-8/E INPUT
 420 
 430 /	OPTIONS IN EFFECT FOR THIS ASSEMBLY ARE:
 440 
 450 	XLIST	OFF
 460 	IFNZRO	VTON					<
 470 	XLIST	ON;IFZERO 1	<
 480 	VTON=	1		/O S IS DEFAULT
 490 
 500 				>	XLIST	OFF	>
 510 	IFZERO	VTON					<
 520 	XLIST	ON;IFZERO 1	<
 530 	VTON=	0		/O T IS DEFAULT
 540 
 550 				>	XLIST	OFF	>
 560 	IFNZRO	VTIN					<
 570 	XLIST	ON;IFZERO 1	<
 580 	VTIN=	1		/O V IS DEFAULT
 590 
 600 				>	XLIST	OFF	>
 610 	IFZERO	VTIN					<
 620 	XLIST	ON;IFZERO 1	<
 630 	VTIN=	0		/O K IS DEFAULT
 640 
 650 				>	XLIST	OFF	>
 660 	XLIST	ON
 670 	XLIST	OFF
 680 	IFNDEF	VTON	<VTON=	1>
 690 	IFNDEF	VTIN	<VTIN=	1>
 700 	IFNDEF	VKCODE	<VKCODE=43>
 710 	IFNDEF	VTCODE	<VTCODE=45>
 720 
 730 	NOPUNCH
 740 
 750 	*VKCODE
 760 
 770 	XLIST	ON
 780 	VKCODE			/VT-8/E KEYBOARD DEVICE CODE
 790 
 800 	XLIST	OFF
 810 
 820 	*VTCODE
 830 
 840 	XLIST	ON
 850 	VTCODE			/VT-8/E VIDEO DEVICE CODE
 860 	XLIST	OFF
 870 
 880 	*200			/RESTORE ORIGIN
 890 
 900 	ENPUNCH
 910 
 920 	XLIST	ON
 930 	EJECT
 940 /	THIS IS AN OVERLAY TO P?S/8 FOCAL PROVIDING FULL SUPPORT OF VT-8/E
 950 /	FEATURES:
 960 
 970 /		A)	FIN()		INPUT CHARACTER FUNCTION
 980 
 990 /		B)	FOUT(A)		OUTPUT CHARACTER FUNCTION
1000 
1010 /		C)	FDIS(X,Y,T) :
1020 
1030 /			1.	FDIS()		CLEAR ALL GRAPHICS
1040 
1050 /			2.	FDIS(X,Y)	INSERT POINT AT X,Y
1060 
1070 /			3.	FDIS(X,Y,0)	DELETE POINT AT X,Y
1080 
1090 /			4.	FDIS(X,Y,1)	TEST POINT AT X,Y
1100 
1110 /						RETURN -1 IF PRESENT
1120 
1130 /						RETURN 0 IF NOT PRESENT
1140 
1150 /						X IS IN THE RANGE -94,94
1160 
1170 /						Y IS IN THE RANGE -100,99
1180 
1190 /		D)	OPTION (O) COMMANDS:
1200 
1210 /			1.	O C	CLEAR ALL VT-8/E OUTPUT
1220 
1230 /			2.	O D	CLEAR ALL GRAPHICS
1240 
1250 /			3.	O E	ERASE ALL TEXT
1260 
1270 /			4.	O N	NORMAL MODE OUTPUT
1280 
1290 /			5.	O A	BLINK MODE OUTPUT
1300 
1310 /			6.	O B	BOLD MODE OUTPUT
1320 
1330 /			7.	O I	CURSOR MODE OUTPUT
1340 
1350 /			8.	O K	TELETYPE INPUT
1360 
1370 /			9.	O V	VT-8/E INPUT
1380 
1390 /			10.	O O	CURSOR ON
1400 
1410 /			11.	O F	CURSOR OFF
1420 
1430 /			12.	O S	VT-8/E SCREEN OUTPUT
1440 
1450 /			13.	O T	TELETYPE OUTPUT
1460 
1470 /			14.	O W	WAIT FOR INPUT WHILE DISPLAYING GRAPHICS ONLY
1480 	EJECT
1490 /	DEFINITIONS:
1500 
1510 	BEOLOD=	7401		/<EOF> ROUTINE IN LOADER
1520 	BFLPTR=	7555		/BIN LOADER'S FILE POINTER
1530 	BOTTOM=	0035		/LIMIT LOCATION
1540 	CHAR=	0066		/INPUT BUFFER
1550 	CHRFLD=	0030		/CHARACTER BUFFER FIELD
1560 	CODFLD=	0010		/FIELD 1 FOR CODE
1570 	COMGO=	1163		/COMMAND ADDRESS LIST
1580 	COMLST=	0774		/COMMAND LIST
1590 	CSTAR=	0225		/WHERE STAR/POINT IS
1600 	DCAC=	DCA	.	/CURRENT PAGE DCA
1610 	DKCC=	VKCODE^10+6002	/CLEAR VT-8/E KEYBOARD FLAG
1620 	DKIE=	VKCODE^10+6005	/INTERRUPT ENABLE/DISABLE VT-8/E KEYBOARD
1630 	DKRB=	VKCODE^10+6006	/READ VT-8/E KEYBOARD BUFFER
1640 	DKSF=	VKCODE^10+6001	/SKIP ON VT-8/E KEYBOARD FLAG
1650 	DPBL=	VTCODE^10+6007	/RING THE BELL