Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0074/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