/PDP8-E PATCHES TO U/W-FOCAL:

	BSW=7002
	KCF=6030
	SWP=7521
	FIXTAB


	FIELD 1

	*2355		/'GETC' PATCH
	BSW
	NOP


	*2637		/TELETYPE PATCH
	TAD .+4
	DCA INBUF
	KCF
	JMP XINT
	206
	ZBLOCK 2

	*2667
	KCC

/REFERENCE: FOCAL8-280

	*7200		/MULTIPLY PATCH
MP4,	0
	SNA
	JMP I MP4
	SWP
	DCA MP5
	TAD THIR
	DCA MP3
	TAD I MP4
	STL CIA
	TAD DATUMA
	DCA MP1
	TAD I MP1
	SWP

LOOP,	RAR		/30% FASTER
	SWP
	SNL
	JMP .+3
	CLL
	TAD MP2
	RAR
	SWP
	ISZ MP3
	JMP LOOP
	RAR
	DCA I MP1
	TAD MP5
	SWP
	ISZ MP1
	TAD I MP1
	DCA I MP1
	SNL
	JMP I MP4
	ISZ MP1
	ISZ I MP1
	JMP I MP4
	JMP .-3

/	ZBLOCK 6

	INBUF=57
	XINT=2647
	DATUMA=7252
	MP1=7254
	MP2=7256
	MP3=7255
	MP5=7253
	THIR=7257
	$
