rendered paste body0001 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