; PAT003.MAC ; NAB/SLA/1736 10-MAR-78/01-MAR-79 ; RT-11 SOFTWARE DISPATCH JANUARY 1979 (FEBRUARY 1978) ; FORTRAN IV/RT-11 V2 SEQ 9 M (SEQ 4 M) ; THIS IS PATCH NUMBER 3 ; THIS PATCH FIXES THE FOLLOWING PROBLEMS IN THE FORTRAN COMPILER: ; 1. EXTRA CHARACTERS AFTER THE END STATEMENT CAUSE THE ; COMPILER TO TRAP WITHOUT ERROR NOTIFICATION. ; 2. CHARACTERS BEYOND COLUMN 72 MAY CAUSE ERRORS. .TITLE FORTRA .PSECT PH01 F1: .=F1+660 JSR PC,PATF1A NOP .=F1+2234 JSR PC,PATF1B .PSECT PATF1 PATF1B: TST F1+152 BNE 1$ CMP R1,R4 1$: RTS PC PATF1A: TSTB @R5 BEQ NXTCHR CMPB #15,(R5)+ BNE PATF1A NXTCHR: RTS PC .END