File: TEST.PA of Disk: Disks/MyPDP/m8-backup-rka1-rkb1
(Source file text) 

	DEVC=52

	DCDIAB=DEVC^10
	DBDI=	6000+DCDIAB	/DISABLE INTERRUPTS
	DBEI=	6001+DCDIAB	/ENABLE INTERRUPTS
	DBSK=	6002+DCDIAB     /SKIP ON INPUT FLAG
	DBCI=	6003+DCDIAB	/AC CLEAR INPUT
	DBRI=	6004+DCDIAB	/READ INPUT REGISTER
	DBCO=	6005+DCDIAB	/AC CLEAR OUTPUT
	DBSO=	6006+DCDIAB	/AC SET OUTPUT
	DBRO=	6007+DCDIAB	/AC READ OUTPUT

	*200
	HLT
LOOP,	LAS CLA
	AND	(377
	DBCO		/PUT CHAR IN DBL BUFFER
	CMA
	AND	(377
	DBSO
	CLA STL RAR
	DBSO		/SET STROBE
	DBCO		/CLEAR STROBE
	DBSK
	JMP	.-1	/WAIT FOR FLAG
	DBRI
	DBCI
	JMP     LOOP	/NO
	$