note: Lozenge (CW, 12-4-8) typed as ')'. Unclear chars have '?' below {{{ 1 2 3 4 5 6 7 8 {{{ 12345678901234567890123456789012345678901234567890123456789012345678901234567890 {{{ ,008013N0000,020027,031035,039,043,050,054,058074,0771001 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 {{{ Above just sets WM for next card, then read+Branch to that card {{{ C038079B035/L073116,110106,105B101/I99,036A076038)036B001/0991,001/001116I000992 1 1 1 1 1 1 1 1 1 1 1 1 1 1 {{{ 001 Compare (36-38) to (77-79) (I99 to 099) {{{ 008 BU 35 {{{ 013 LCA 073,116 (copies /0991,001/001116 to 101-116 {{{ 020 SW 110,106 1 1 1 {{{ 027 SW 105 1 {{{ 031 B 101 {{{ 035 CS 3999 {{{ 039 SW 036 {{{ 043 A 076,038 ADD I00 (3900) to (36-38) {{{ 050 CW 036 {{{ 054 B 001 {{{ When loop clearing memory exits (008 BU 035 falls through), the code to {{{ relocate and set WM (@13) executes, then the relocated code, to clear 1-99, {{{ read a card, SW @ 1, then CS 116 and B 001 Thus leading to the next card {{{ ,0080121001 001 SW 008,012 {{{ 008 R 001 NEXT CARD {{{ ,0600671001 001 SW 060,067 {{{ 008 R 001 {{{ ,0740781060 001 SW 074,078 {{{ 008 R 060 {{{ REMAINING CARDS ARE OF FORM {{{ L019tgt1060ddddddd A007080M080007B001007 {{{ 1 1 1 1 1 1 1 {{{ WHERE tgt is (left end of) target address, ddddddd is data for that address {{{ L019|001060,001 A007080M080007B001007 {{{ 1 1 1 1 1 1 1 {{{ The addition (1000 @ 5-7 to 007 @ 78-80) yields |107 (1007), copied back to {{{ the LCA to move 12-19 (,001 ) to (1000-1007) {{{ 1000 SW 001 {{{ L019|0410601 A007080M080007B001007 {{{ 1004 R {{{