1 *2763 2 02763 7300 D02763, CLA CLL 3 02764 3776 L02764, DCA I P02776 / Clear a word, starting at 3000 4 02765 2376 ISZ P02776 / Bump pointer 5 02766 1363 TAD D02763 / Reached ourself? 6 02767 7640 SZA CLA 7 02770 5364 D02770, JMP L02764 / No, keep going 8 02771 1376 TAD P02776 / Yes, get pointer 9 02772 3000 D02772, DCA 0 / Store at zero 10 02773 3376 DCA P02776 / Clear a couple of words 11 02774 3370 DCA D02770 / So we can fall through 12 02775 3372 DCA D02772 / without mangling 0 or DCA I 0 13 02776 3000 P02776, 03000 / Where to clear next. 14 02777 3400 DCA I 0 / Clear a word, fall through again 15 $ D02763 2763 D02770 2770 D02772 2772 L02764 2764 P02776 2776