; PAT19.MAC ; NAB/SLA/1736 23-AUG-79/ ; RT-11 SOFTWARE DISPATCH AUGUST 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 21 M ; OTS ; NON-PLAS VIRTUAL ARRAY INITIALIZATION -- PATCH 19. .TITLE $VINTN .IDENT \03\ .PSECT OTS$I S=. .=S+152 JSR PC ,PAT19 NOP .=S+254 PAT19: .GLOBL $VIRSZ MOV ZSRIV$ ,R2 DEC R2 MOV R2 ,@#177640 RTS PC ZSRIV$: .WORD 1600+$VIRSZ .END