.TITLE ICTRLZ ; This FORTRAN callable integer function test wether ^Z has ; been typed or not and sets the function value to zero if ; ^Z has not been typed and to -1 if it is typed. .GLOBL ICTRLZ .MCALL .TTINR,.PRINT .PSECT USER$I ICTRLZ: MOV @#44,-(SP) BIS #10120,@#44 .TTINR BCS NO CMPB R0,#26. BNE NO .PRINT #ECHO MOV #-1.,R0 BR RET NO: CLR R0 RET: MOV (SP)+,@#44 RTS PC ECHO: .ASCIZ <15><12>/^Z/ .EVEN .END