0001 00010 PTR EQU 10B 0002 00100 ORG 100B 0003 00100 103710 START STC PTR,C ? 0004 00101 102310 WAIT SFS PTR ? 0005 00102 024101 JMP WAIT Loop till ready 0006 00103 102510 LIA PTR Read one char 0007 00104 102601 OTA 1 Write to S 0008 00105 102000 HLT 0 Halt so we can see the char 0009 00106 024100 JMP START A 000000 --unreferenced B 000001 --unreferenced PTR 000010 01/0001 -- 01/0003 01/0004 01/0006 START 000100 01/0003 -- 01/0009 WAIT 000101 01/0004 -- 01/0005 5 symbols 2 unreferenced symbols 9 lines assembled, 7 words generated 0 errors, 0 warnings