Codes for Highly-Persistent, Correlated AR(1) Shocks