# File: RCP012e.src
#
program "@(#) MODULE: set_exlist.src RELEASE: 0.1 CREATED: 11/05/96 15:28:00"
source "/tracesw/cfl/cdh_test/src/set_exlist.src"
descr " RCP012e - Patch to put IMax, IMin Values into IMXV and IMNV"

# Copy IMax Row, Column and Value to built-ins (FRAME)
# 
# 5055	8152  8B 1E 6128    mov     bx,word ptr DGROUP:_SeqReg
# 5059	8156  89 47 4C	    mov     word ptr [bx+76],ax
# 5063	8159  89 57 4E	    mov     word ptr [bx+78],dx
# 5068	815C  A1 69B2	    mov     ax,word ptr DGROUP:_DHCRes+8
# 5072	815F  89 47 50	    mov     word ptr [bx+80],ax
# 
# 
# Copy IMin Row, Column and Value to built-ins (FRAME)
#
# 5105	8184  8B 1E 6128    mov     bx,word ptr DGROUP:_SeqReg
# 5109	8188  89 47 52	    mov     word ptr [bx+82],ax
# 5113	818B  89 57 54	    mov     word ptr [bx+84],dx
# 5118	818E  A1 69B8	    mov     ax,word ptr DGROUP:_DHCRes+14
# 5122	8191  89 47 56	    mov     word ptr [bx+86],ax
# 
# 
# Copy IMax Row, Column and Value to built-ins (UPDIMAX)
# 
# 6927	8AF4  8B 1E 6128    mov     bx,word ptr DGROUP:_SeqReg
# 6931	8AF8  89 47 4C	    mov     word ptr [bx+76],ax
# 6935	8AFB  89 57 4E	    mov     word ptr [bx+78],dx
# 6939	8AFE  A1 69B2  	    mov     ax,word ptr DGROUP:_DHCRes+8
# 6943	8B01  89 47 50	    mov     word ptr [bx+80],ax
# 
# 
/ICDPML4, SEG=0x40, OFFSET=0x8152, NUMBYTES=8, \
    WORD1=0x1E8B, WORD2=0x6128, WORD3=0x4789, WORD4=0x894C
/ICDPML4, SEG=0x40, OFFSET=0x815A, NUMBYTES=8, \
    WORD1=0x4E57, WORD2=0xB2A1, WORD3=0x8969, WORD4=0x5047
/ICDPML1, SEG=0x40, OFFSET=0x8162, NUMBYTES=2, WORD=0x02EB

/ICDPML1, SEG=0x40, OFFSET=0x818A, NUMBYTES=2, WORD=0x906A
/ICDPML4, SEG=0x40, OFFSET=0x818C, NUMBYTES=8, \
    WORD1=0x1E8B, WORD2=0x6128, WORD3=0x4789, WORD4=0x8952
/ICDPML4, SEG=0x40, OFFSET=0x8194, NUMBYTES=8, \
    WORD1=0x5457, WORD2=0xB8A1, WORD3=0x8969, WORD4=0x5647
/ICDPML1, SEG=0x40, OFFSET=0x819C, NUMBYTES=2, WORD=0x01EB

/ICDPML4, SEG=0x40, OFFSET=0x8AF4, NUMBYTES=8, \
    WORD1=0x1E8B, WORD2=0x6128, WORD3=0x4789, WORD4=0x894C
/ICDPML4, SEG=0x40, OFFSET=0x8AFC, NUMBYTES=8, \
    WORD1=0x4E57, WORD2=0xB2A1, WORD3=0x8969, WORD4=0x5047
/ICDPML1, SEG=0x40, OFFSET=0x8B04, NUMBYTES=2, WORD=0x02EB

# Update version number
/icdpmlm, seg=0x0040, offset=0x01d6, numbytes=2, word1=0x2e02
/icdpmlm, seg=0x1000, offset=0x0282, numbytes=2, word1=0x012e

return
