Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50323/intrut.mac
There are 2 other files named intrut.mac in the archive. Click here to see a list.
00100		TITLE INTRUT INTERCEPT ROUTINE
00150	        ENTRY	STOPKC
00200		LOC	134	;.JBINT
00300		EXP	INTBLK	;POINTS TO INTERRUPT BLOCK
00350		RELOC	;BACK TO ORDER
00400	INTBLK::XWD	4,INTRUT	;GO TO INTRUT ON INTERCEPT
00500		XWD	0,-1	;TAKE ALL
00600		0
00700		0
00800	INTRUT::HRRZI	RUNBLK	;SET UP TO RUN
00810	;	SETZM	INTBLK+2
00890		CLOSE	2,0	;CLOSE THE LPT
00900		RUN	;AND RUN LOGOUT
00910		HALT
01000	RUNBLK:	SIXBIT/SYS/
01100		SIXBIT/LOGOUT/
01200		0
01300		0
01400		0
01500		0
01550		HALT
01555	STOPKC:	MOVEM	,SAV0	;SAVE 0
01560		MOVEI	,INTBLK	;GET ADR OF INTBLK
01565		MOVEM	,134	;STORE IN INTERRUPT ADDRESS
01570		MOVE	,SAV0	;RESTORE
01575		JSP	16,@%ALGDR##+1
01579		Z	[0]	;????
01580		1,,3
01585		SOJE	1
01590		JRST	2(15)
01595		1,,0
01597	SAV0:	Z	;SAVE AREA FOR REG 0
01600		END