; PAT22C.MAC ; NAB/SLA/1736 23-AUG-79/ ; RT-11 SOFTWARE DISPATCH AUGUST 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 24 M ; COMPILER ; COMPLEX VARIABLE TO CONSTANT COMPARISON -- PATCH 22. .TITLE FORTRAN IV COMPILER .PSECT CG04S .=.+1336 JSR PC ,PAT22C .PSECT PAT017 PAT22C: CMPB CUROPR ,#70 BEQ 1$ MOV #6 ,R4 1$: RTS PC .PSECT CG04D .=.+1006 CUROPR: .END