IMGCOPY PYADDE/FCI-HRI A/A.1 BAND=3 DAY=24013 TIME=11 12 SIZE=SAME
IMGCOPY PYADDE/FCI-HRI A/A.2 BAND=8 DAY=24013 TIME=11 12 SIZE=SAME

REM create a 1-byte destination AREA to be used later
IMGCOPY A/A.1 A/A.40 SIZE=SAME STYPE=VISR

IMGOPER A/A.2 A/A.1 A/A.3 SIZE=ALL COEF=1 -1 UNIT=BRIT SCALE=150 -150 1 255

REM the resultant A/A.3 AREA is 22,272 x 22,272 pixels
REM the highest size allowed from IMGNORM is 10,000 x 10,000 pixels
REM to get things working, we will break this AREA up into 9 quadrants
REM that are each 7,424 x 7,424 pixels

REM Upper left, center, and right qudrants
IMGCOPY A/A.3 A/A.20 LIN=0 0     I PLACE=ULEFT SIZE=7424 7424
IMGCOPY A/A.3 A/A.21 LIN=0 7424  I PLACE=ULEFT SIZE=7424 7424
IMGCOPY A/A.3 A/A.22 LIN=0 14848 I PLACE=ULEFT SIZE=7424 7424

REM Center left, center, and right qudrants
IMGCOPY A/A.3 A/A.23 LIN=7424 0     I PLACE=ULEFT SIZE=7424 7424
IMGCOPY A/A.3 A/A.24 LIN=7424 7424  I PLACE=ULEFT SIZE=7424 7424
IMGCOPY A/A.3 A/A.25 LIN=7424 14848 I PLACE=ULEFT SIZE=7424 7424

REM Center left, center, and right qudrants
IMGCOPY A/A.3 A/A.26 LIN=14848 0     I PLACE=ULEFT SIZE=7424 7424
IMGCOPY A/A.3 A/A.27 LIN=14848 7424  I PLACE=ULEFT SIZE=7424 7424
IMGCOPY A/A.3 A/A.28 LIN=14848 14848 I PLACE=ULEFT SIZE=7424 7424

REM perform IMGNORM on each of these quadrants
IMGNORM A/A.20 A/A.30 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL
IMGNORM A/A.21 A/A.31 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL
IMGNORM A/A.22 A/A.32 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL
IMGNORM A/A.23 A/A.33 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL
IMGNORM A/A.24 A/A.34 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL
IMGNORM A/A.25 A/A.35 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL
IMGNORM A/A.26 A/A.36 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL
IMGNORM A/A.27 A/A.37 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL
IMGNORM A/A.28 A/A.38 CONV=NORM SAMPL=5 UNIT=BRIT SIZE=ALL

REM remap these qudrants into one of the original copied AREA files
REM MERGE=YES done for quadrants 2, 3, and 4 so everything is in the same AREA

IMGREMAP A/A.30 A/A.40 PRO=DEST
IMGREMAP A/A.31 A/A.40 MERGE=YES
IMGREMAP A/A.32 A/A.40 MERGE=YES
IMGREMAP A/A.33 A/A.40 MERGE=YES
IMGREMAP A/A.34 A/A.40 MERGE=YES
IMGREMAP A/A.35 A/A.40 MERGE=YES
IMGREMAP A/A.36 A/A.40 MERGE=YES
IMGREMAP A/A.37 A/A.40 MERGE=YES
IMGREMAP A/A.38 A/A.40 MERGE=YES

ERASE F 1 2
EU REST X 1 3
REM Display the original subtracted band data
IMGDISP A/A.3 1 MAG=-46 LAT=0 0
SF 1;SG 1;MAP
REM Display the output from IMGNORM remapped into the original data projection
IMGDISP A/A.40 2 MAG=-46 LAT=0 0
SF 2;SG 2;MAP