.TITLE IESCAPE ; * * * UTILITY MODULE * * * ; ALLOWS RECEIPT OF A "RETURN" OR "LINE FEED" TO INTERRUPT A PROCESS ; ALL NEW CODE: 10 JANUARY 79 ; PROGRAMMER: KEN DINWDDIE .MCALL .REGDEF,.TTINR .REGDEF JSW = 44 ; JOB STATUS WORD LOCATION .GLOBL IESC IESC: BIS #100,@#JSW ; SET BIT 6 IN JSW FOR F/B MONITROR .TTINR ; HAS A CR OR LF BEEN STRUCK ? BCC GOTONE ; YES, GO SHOW IT CLR R0 ; NO, NOT YET RTS PC GOTONE: MOV #-1,R0 ; SHOW THAT CR OR LF WAS STRUCK RTS PC .END