*2763 D02763, CLA CLL L02764, DCA I P02776 / Clear a word, starting at 3000 ISZ P02776 / Bump pointer TAD D02763 / Reached ourself? SZA CLA D02770, JMP L02764 / No, keep going TAD P02776 / Yes, get pointer D02772, DCA 0 / Store at zero DCA P02776 / Clear a couple of words DCA D02770 / So we can fall through DCA D02772 / without mangling 0 or DCA I 0 P02776, 03000 / Where to clear next. DCA I 0 / Clear a word, fall through again $