job Record 8 loads the core dump routine from record 9 ctl 6611 * * This phase is needed because record 9 loads at 1, but the * phase loader loads at 20&x1. * X1 cannot be set such that 20&x1 is 1. * sfx 8 enter9 equ 12 x1 equ 089 cs2nd4 equ 702 need 4 equ 925 unit 4 equ 941 Tape unit number org 221 221enter mn unit 4,rtw&3 Get 228 mn unit 4,bsp2&3 Unit 235 mn unit 4,bsp1&3 Number 242 mcw @F/P@,need 4 249cs cs 199 253 cs 254 sbr x1 Save core size in x1 258rtw rtw 0-0,1 266 ber bsp2 271 mn cs,cs2nd4 Set to clear 200-299 in phase 4 278bsp1 bsp 0-0 Position before dump routine 283 cs enter9,332 290bsp2 bsp 0-0 295 b rtw 299 ltorg* 302 dcw @}@ end