100 
 110 //	DEFINITIONS FROM KL8.
 120 
 130 	BAUDRAT=0064		/DECMATE, ETC. PRINTER BAUD RATE
 140 	DKILOCA=1567		/VT-8/E KEYBOARD INTERRUPT ENABLE LOCATION
 150 	INCIF2=	1637		/KEYBOARD INPUT INTERRUPT PROTECTION
 160 	INITNOR=0247		/INITIALIZING LOCATION
 170 	INTCON=	0600		/INTERRUPT HANDLER
 180 	INTDEV=	0665		/INTERRUPT DEVICE LIST
 190 	KINLOCA=1553		/KEYBOARD INTERRUPT ENABLE LOCATION
 200 	KTILOCA=4026		/KEYBOARD TEST INSTRUCTION LOCATION
 210 	LCMODE=	0006		/LOWER-CASE MODE
 220 	LICIF2=	1531		/LPT: INPUT INTERRUPT PROTECTION
 230 	LINLOCA=1561		/LPT: INPUT INTERRUPT ENABLE LOCATION
 240 	LOTLOCA=1564		/LPT: OUTPUT INTERRUPT ENABLE LOCATION
 250 	LPMODE=	0004		/LPT: BUFFERING MODE SWITCH
 260 	LPOCIF=	1427		/LPT: OUTPUT INTERRUPT PROTECTION
 270 	LPRINT=	0625		/LPT: INPUT INTERRUPT HANDLER
 280 	LPTINT=	0645		/LPT: OUTPUT INTERRUPT HANDLER
 290 	OUTCIF=	1657		/CONSOLE OUTPUT INTERRUPT PROTECTION
 300 	OUTIME=	0264		/CONSOLE OUTPUT TIME-OUT TEST
 310 	OUTINT=	0636		/CONSOLE OUTPUT INTERRUPT HANDLER
 320 	OUTTST=	0260		/CONSOLE OUTPUT FLAG TEST
 330 	OVID=	0106		/OVERLAY ID NAME FIELD
 340 	OVRWRD=	0111		/OVERLAY TYPE WORD
 350 	TIMOUT=	4056		/HARDWARE FLAG TIME-OUT
 360 	TIMTST=	4045		/HARDWARE TIME-OUT TEST
 370 	TINLOCA=1556		/TERMINAL OUTPUT INTERRUPT ENABLE LOCATION
 380 	VTINT=	0655		/VT-8/E KEYBOARD INTERRUPT HANDLER
 390 
 400 //	END OF KL8 DEFINITIONS.
 410 	EJECT
 420 /	IOT DEFINITIONS.
 430 
 440 /	CONSOLE KEYBOARD DEFINITIONS.
 450 
 460 	KIEIOT=	KEY^10+6005		/KEYBOARD INTERRUPT ENABLE PER AC[11]
 470 	KRBIOT=	KEY^10+6006		/READ KEYBOARD BUFFER, CLEAR THE FLAG
 480 	KSFIOT=	KEY^10+6001		/SKIP ON (AND CLEAR IF 6120) KEYBOARD FLAG
 490 	KTIIOT=	KEY^10+6003		/KEYBOARD TEST INSTRUCTION
 500 
 510 /	CONSOLE OUTPUT DEFINITIONS.
 520 
 530 	TCFIOT=	OUT^10+6002		/CLEAR TTY: FLAG
 540 	TFLIOT=	OUT^10+6000		/SET TTY: FLAG
 550 	TIEIOT=	OUT^10+6005		/OUTPUT INTERRUPT ENABLE PER AC[11] (FOR 6120)
 560 	TLSIOT=	OUT^10+6006		/OUTPUT CHARACTER, CLEAR FLAG
 570 	TSFIOT=	OUT^10+6001		/SKIP ON (CLEAR IF 6120) OUTPUT FLAG
 580 
 590 /	LPT: INPUT DEFINITIONS.
 600 
 610 	ISLI=	ONEWAY-1		/7777 IF LPT: INPUT, ELSE 0000
 620 	ISLIE=	NOLIE-1&ISLI		/7777 IF LIEIOT EXISTS, ELSE 0000
 630 	LINNOP=	ONEWAY^NOP		/0000 IF LPT: INPUT, ELSE 7000
 640 
 650 	LIEIOT=	LIN^10+6005&ISLIE	/LPT: INPUT INTERRUPT ENALE PER AC[11]
 660 	LIRBIOT=LIN^10+6006&ISLI	/READ LPT: INPUT, CLEAR FLAG (IF NOT 6120)
 670 	LISFIOT=LIN^10+6001&ISLI!LINNOP	/SKIP ON (CLEAR FLAG IF 6120) LPT: INPUT FLAG
 680 
 690 /	LPT: OUTPUT DEFINITIONS.
 700 
 710 	ISLOE=	NOLOE-1			/7777 IF LPEIOT EXISTS, ELSE 0000
 720 
 730 	LCFIOT=	LPT^10+6002		/CLEAR LPT: OUTPUT FLAG
 740 	LLSIOT=	LPT^10+6006		/OUTPUT LPT: CHARACTER, CLEAR FLAG (IF NOT 6120)
 750 	LPEIOT=	LPT^10+6005&ISLOE	/LPT: OUTPUT INTERRUPT ENABLE PER AC[11]
 760 	LSFIOT=	LPT^10+6001		/SKIP ON (CLEAR FLAG IF 6120) LPT: OUTPUT FLAG
 770 
 780 /	VT-8/E KEYBOARD DEFINITIONS.
 790 
 800 	DKCFIOT=DKEY^10+6000		/CLEAR VT-8/E KEYBOARD FLAG
 810 	DKIEIOT=DKEY^10+6005		/INTERRUPT ENABLE PER AC[11] ON VT-8/E, LPT:
 820 	DKSFIOT=DKEY^10+6001		/SKIP ON VT-8/E KEYBOARD FLAG
 830 	EJECT
 840 /	OVERLAY TO PRIMARY FILE CODE.
 850 
 860 /	THIS SECONDARY OVERLAY FILE MUST START WITH THE THREE ORIGIN SETTINGS
 870 /	MATCHING THE PRIMARY FILE.
 880 
 890 	*NMCH1			/FIRST FILE NAME PAIR ORIGIN
 900 
 910 	*NMCH2			/SECOND FILE NAME PAIR ORIGIN
 920 
 930 	*NMCH3			/THIRD FILE NAME PAIR ORIGIN
 940 
 950 /	THE NEXT ORIGIN MUST BE BETWEEN 0000-0077. SINCE THIS IS A SECONDARY FILE,
 960 /	IT MAY NOT BE ZERO.
 970 
 980 	*LPMODE			/LPT: BUFFERING MODE
 990 
1000 	1-LPBUFF		/LPT: BUFFERING MODE; 1=NO BUFFERING
1010 
1020 	*LCMODE			/LOWER-CASE MODE
1030 
1040 	1-LCASE^7740		/7740=FOLD LOWER-CASE TO UPPER-CASE
1050 
1060 	*BAUDRATE		/DECMATE, ETC. PRINTER BAUD RATE