JOB Clear storage and boot * * Set a bunch of word marks, clear 81-99, set sentinel for clear * org 1 sw s2,s3 s2 sw c1,c2 s3 sw c3,s4 c1 cs s3&4 c2 sw 1 c3 lca s3&5,100 Clear XR's, put 4 at 100 ds 3 Junk is OK s4 sw s5,s6 s5 sw s7,reada s6 sw enda,enda s7 cw 81,81 LCA to clear XR left this reada r cs2 enda equ *&1 * * Bootstrap, or clear if word marks are set up and READA loads it * org 1 sw cs1,w2 cs1 cs w2,w2-1 Clear this instruction's word mark ds 7 CS and branch doesn't need word mark cs2 cs 0 cs3 sbr cs2&3 cs4 bce cs2,100, Done when location 100 not equal 4 dc @ 4@ Junk before D is OK cs5 cs w4,w2-1 Clear clear routine and its word marks w2 sw w3,w4 w3 sw readb,endb w4 sw 1,cs5 readb r 40 endb equ *&1 end 1