; PAT08.MAC ; NAB/1736/SLA 30-JUL-79/31-JUL-79 ; RT-11 SOFTWARE DISPATCH JUNE 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 9 M ; COMPILER ; REGISTER ALLOCATION -- PATCH 8. .TITLE REGALO .IDENT \006A\ .PSECT REGD2 T: .=T+112 U: .PSECT REGI2 S: .=S+10606 .WORD 1454 .=S+11370 JSR PC ,PAT NOP .=S+11404 R: .=S+11614 JSR PC ,PAT1 BCS S+11572 .=S+12070 JSR PC ,PAT2 .=S+12244 .WORD 111500 .WORD 006300 .WORD 005760 .PSECT PATREG PAT: TSTB @R5 BEQ 1$ BICB R(R0) ,1(R5) 1$: RTS PC PAT1: ADD R3 ,R0 TST @R0 BPL 2$ CMP R0 ,U BMI 2$ CLC RTS PC 2$: SEC RTS PC PAT2: TSTB @R1 BEQ 3$ BICB R(R0) ,1(R1) 3$: RTS PC .END