.TITLE PRDEOLN - READENDOFLINE( @FILEVAR ) .IDENT /791112/ .GLOBL $$$021 .GLOBL FB.EOL,FB.EOF,FB.ST2 .GLOBL FS.TTY ; PARMS ; 1. POINTER TO FILE BLOCK ; REGISTER USAGE ; R1: POINTER TO FILE BLOCK ; CALLS: $$$021 ; ; .PSECT $$$044:: MOV 2(SP),R1 ;POINTER TO FILE BLOCK 1$: TSTB FB.EOL(R1) ;CHECK FOR EOL BNE 2$ ;YES INDICATES END OF LINE MOV R1,-(SP) JSR PC,$$$021 ;GET NEXT CHARACTER BR 1$ 2$: TSTB FB.EOF(R1) ;TEST FOR EOF BNE 4$ BITB #FS.TTY,FB.ST2(R1);IS THIS A TERMINAL? BEQ 3$ CLRB @(R1) ;CLEAR EOLN CHAR CLRB FB.EOL(R1) BR 4$ 3$: MOV R1,-(SP) JSR PC,$$$021 ;GET NEXT CHARACTER 4$: MOV (SP)+,(SP) ;POP OFF PARAMETER RTS PC .END