tty.s

	              	00001	TTY=120
	              	00002	
	              	00003	AC0==0
	              	00004	AC1==1
	              	00005	AC2==1
	              	00006	PDP==17
	              	00007	
	              	00008	INTERNAL PUTC,PUTS
	              	00009	
	              	00010	PUTC:
000000'	712300 000020 	00011		CONSZ	TTY,20		; wait until not busy
000001'	254000 000000'	00012		 JRST	.-1
000002'	712140 000001 	00013		DATAO	TTY,AC1		; transfer character
	              	00014	;	CAIE	AC1,12		; return unless LF
	              	00015	;	 POPJ	PDP,
	              	00016	;	MOVEI	AC1,15		; put CR and two DEL
	              	00017	;	PUSHJ	PDP,PUTC
	              	00018	;	MOVEI	AC1,177
	              	00019	;	PUSHJ	PDP,PUTC
	              	00020	;	PUSHJ	PDP,PUTC
000003'	263740 000000 	00021		POPJ	PDP,
	              	00022	
	              	00023	PUTS:
000004'	134040 000001 	00024		ILDB	AC1,AC2
000005'	336000 000001 	00025		SKIPN	AC1
000006'	263740 000000 	00026		 POPJ	PDP,
000007'	260740 000000'	00027		PUSHJ	PDP,PUTC
000010'	254000 000004'	00028		JRST	PUTS

SYMBOL TABLE

AC0               000000  
AC1               000001  
AC2               000001  
PDP               000017  
PUTC              000000' INT
PUTS              000004' INT
TTY               000120