.TITLE ISW ; ;ASSEMBLY LANGUAGE PROGRAM TO TEST ;FOR THE LETTER "H" IN THE TTY BUFFER ;AND RETURN A "1" IF THERE IS ;AN "H"; AND A "0" IF NOT. THIS ;ROUTINE CAN BE CALLED BY FORTRAN AS ;A SUBROUTINE WITH ONE ARGUMENT ;.I.E. CALL(I). ; .GLOBL ISW ; R0=%0 R1=%1 R5=%5 PC=%7 ; ISW: MOV @#177562,R0 MOV (R5)+,R1 BIC #177600,R0 CMP #110,R0 BEQ ISW1 CLR @(R5)+ RTS PC ISW1: MOV #1,@(R5)+ RTS PC ; .END >