0001* set to TTY I/O number 0002 00011 SC EQU 11B 0004 00040 ORG 40B 0005 00040 106700 LOOP CLC 0 Turn off I/O interrupt system 0006 00041 060051 LDA TTYIO Load A-register with control word 0007 00042 102611 OTA SC Output control word 0008 00043 103711 STC SC,C Set control, clear flag 0009 00044 102311 WAIT SFS SC Wait for flag 0010 00045 024044 JMP WAIT Loop till ready 0011 00046 106511 LIB SC Input data word 0012 00047 106601 OTB 1 Output data word to switch register 0013 00050 024040 JMP LOOP Next char 0014*TTYIO OCT 160000B TTY input and print control word 0015 00051 140000 TTYIO OCT 140000B TTY input control word LOOP 000040 01/0005 -- 01/0013 SC 000011 01/0002 -- 01/0007 01/0008 01/0009 01/0011 TTYIO 000051 01/0015 -- 01/0006 WAIT 000044 01/0009 -- 01/0010 4 symbols 15 lines assembled, 10 words generated 0 errors, 0 warnings