000D1 A.A = size-1 000DA start new object phase 000E1 D (characters remaining in line) = 64 000E4 B.A = size-1 000E6 A.A = adr of alloc str 000E9 D0 = adr of alloc str 000EC D0 = adr of new object (alloc str data) 000EF A.A = adr of new object 000F2 ... 000F5 adjust stack to new object 000F8 A = adr of orig str 000FB ... 000FE C = adr of checksum 00101 ... 00104 save checksum adr 00106 D1 = adr of orig str 00109 D1 = adr of orig str data 0010C count character in line 0010F go if not EOL 00112 reset D for new line (D=63) 00116 ... 00119 skip EOL character 0011C convert character to nibble 00141 store nibble into new object 00145 next nibble in new object 00148 next character in orig str 0014B decr characters remaining 0014D go if more 00150 exit if checksum in progress 00155 B.A = 3 (size of checksum - 1) 0015C ... 0015E C = adr of checksum 00160 D0 = adr of checksum data 00163 ... 00166 start of checksum phase 00169 go process checksum