/DECUS 8-333 8K PALD PATCHES
/MODIFICATIONS TO LIMIT FIELD 1
BOT=6747
TOP=7403
/BLTO
*3722
BLTO, 0
	ISZ BLTADR
	ISZ BLTAD2
	TAD I BLTADR
	CDF 10
	DCA I BLTAD2
	CDF 00
	ISZ BLTCNT
	JMP BLTO+1
	JMP I BLTO
BLTCNT, BOT-7577
/3735-3770 USED
*3771
BLTADR, BOT
BLTAD2, BOT-200
/SDECOD
*4202
	TAD P7377
/4200-4354 USED
*4355
P7377,	7377
*437
	TAD MTOP
*577
MTOP,	-TOP+200
/SEARCH
*150
P7376,	7376
$
/This is not currently installed, as it is meant for 8-333, and
/we have 8-367b instead.