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 seek,need 4 249cs cs 199 253 cs 254rtw rtw 0-0,1 262 ber bsp2 267 cs 0 Get core size 271 sbr x1 into x1 275 mn cs,cs2nd4 282bsp1 bsp 0-0 287 cs enter9,332 294bsp2 bsp 0-0 299 b rtw 305seek dcw @F/P@ 332 dc @ @ 333 dcw @}@ end