.TITLE	INITIALIZE EDITOR
	.IODEV	1,2,3,4,5,6,7,-14,-15
	.GLOBL	SEMA,SAVE1,SAVE2,SAVE3,RESTO,IOTTY,SAV23
	.GLOBL	RESTOR,COUNT,SUPER,PS,EDITOR,G.MOVE,SEM1
INITAL	LAC*	(SEMA
	JMS*	PS
	LAC*	(SAVE1
	JMS*	EDITOR
R1	LAC*	(SEMA
	JMS*	PS
	LAC*	(SAVE1
	JMS*	RESTOR
	LAW	-12
	JMS*	G.MOVE
	TAD	SAV23
	TAD	IOTTY
	JMS*	RESTO
	JMS*	EDITOR
	LAW	-1
	TAD*	SEM1
	DAC*	SEM1
	LAC	SEMA
	JMS*	PS
	LAC	SAVE2
	JMS*	RESTOR
	JMP	R2
	LAC	SEMA
	JMS*	PS
	LAC	SAVE3
	JMS*	RESTOR
R2	CLC
	DAC	COUNT
	JMP*	SUPER
COUNT	0
	.END