job Fill core with branch over halt ctl 6611 * org 087 x1 dsa area&199 dc #2 * * Fill 200 ... 400 with b 005 . b010 . etc GMWM * start1 lca gmwm,area&200 loop1 lca halt,0&x1 lca sbr x1 sbr 4&x1,15806&x1 bce loop1,flag, Keep going until done * * write area ... area&199 onto tape 1 * wtw 1,area Assume it worked rwd 1 * * Fill area ... top of core with B *&2 . etc * cs 0 Get core size sbr x1 lca gmwm,0&x1 flag and gmwm now contain B000. lca sbr x1 loop2 lca gmwm,0&x1 lca sbr x1 sbr 4&x1,6&x1 Make branch go to *&2 bce loop2,area&1,0 * * After we read the first block, it will clobber this instruction * but the next instruction will be halt. Patch in B with a word * mark at AREA, and start at any multiple of 5. * rtw 1,0 Assume it worked h flag dcw #4 Becomes B000 gmwm dcw @}@ Becomes Halt area b area halt h end start1