Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/trap.mac
There is 1 other file named trap.mac in the archive. Click here to see a list.
A=1
C=3
TTY==1
LOC	134
EXP	CCINT
RELOC

START:	RESET
	OPEN	TTY,[   210
		     SIXBIT /TTY/
			 0]
	SETZ	C,
	CLRBFI
	OUTCHR	[14]
	OUTCHR	[12]
	AOJ	C,
	CAIG	C,12
	JRST	.-3
TRAP:	SETZM	CCINT+2
	OUTSTR	[ASCIZ/			 SORRY ! !
   
			 /]
	INCHWL	A
	CAIN	A,27
	JRST	OUT
	JRST	START+2
OUT:	OUTCHR	[14]
	EXIT	1,
	JRST	START
CCINT:	4,,TRAP
	EXP	-1,0,0
	END	START