That is a great program. I made a liittle

That is a great program.

I made a liittle modification to SST.pas to possibly flash 49LF040B, since 8 registers had been added to write protect the blocks.

Function SSTIdChip( DevId : Byte; Var CInfo : ChipInfo ) : Boolean; Far;

Var
X : Byte; {Verify LPC memory mapping}

Begin ................

$50 : Begin {v1.47re}
Flags := 0; {sector mode}
PgSize := 128; {'page' size, program 128 bytes at a time}
Progr := AMDSecProg;
Erase := AMDSecErase;
Sectors[ 0, 0 ] := 128; {128 x 4k}
Sectors[ 0, 1 ] := 32;
Size := 512;
Name := ConstPtr( '49LF040B/3V (LPC)' );
FOMemB($FFB80002, 0);
FOMemB($FFB90002, 0);
FOMemB($FFBA0002, 0);
FOMemB($FFBB0002, 0);
FOMemB($FFBC0002, 0);
FOMemB($FFBD0002, 0);
FOMemB($FFBE0002, 0);
FOMemB($FFBF0002, 0);
{Verify LPC memory mapping}
End;