# File: sclsum.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/sclsum.src"
descr  "sclsum  - load scale sum test macro"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
# ; IP Program to test SCALESUM instruction
# ;
# ;
# ;    EXTRACT R816
# ;       Source Address         0:0x00514
# ;       Destination Address    1:0x00000
# ;       X-Length                     512
# ;       Y-Length                     512 
# ;       Row Length                  1040
# ;       Global Offset Register        69
# ;
#      SETREGS  R816  8  0:0x00514 1:0x00000  512  512 1040 R69
tcblock mbipcmd 0x0091 0x0100   0x01B2 0x0330 0x0008 0x0514 \
                                0x0000 0x0000 0x0800 0x0200 \
                                0x0200 0x0410 0x0045 
#      EXTRACT  R816
tcblock mbipcmd 0x0091 0x010B   0x017A 0x0330 
# ;
# ;    MOVBLK    R824 
# ;       Source Address         1:0x00000
# ;       Destination Address    2:0x00000
# ;       Count                     262144L
# ;
#      MOVBLK    1:0x00000   2:0x00000  262144L
tcblock mbipcmd 0x0091 0x010D   0x0164 0x0000 0x0800 0x0000 \
                                0x1000 0x0000 0x0004 
# ;
# ;
# ;    SCALESUM  R800
# ;       Source 1 Address       1:0x00000
# ;       Siurce 2 Address       2:0x00000
# ;       Destinations Address   3:0x00000
# ;       Count                     262144L
# ;       Scale Factor 1                 1
# ;       Scale Factor 2                 1
# ;       Shift Count                   15
# ;
#      SETREGS  R800 11 1:0x00000 2:0x00000 3:0x00000 262144L  1  1  15
tcblock mbipcmd 0x0091 0x0114   0x01B2 0x0320 0x000B 0x0000 \
                                0x0800 0x0000 0x1000 0x0000 \
                                0x1800 0x0000 0x0004 0x0001 \
                                0x0001 0x000F 
#      SCALESUM R800
tcblock mbipcmd 0x0091 0x0122   0x01E0 0x0320 
# ;
# ;....................................................
# ;
# ; Downlink Raw Image
# ;
# ;    HRDINIT  R824
# ;       Source Address         0:0x00000
# ;       Destination Page               8
# ;       n,k parameters                 0
# ;       Data Product Code 1       0xFFFF
# ;       Data Product Code 2       0xFF08
# ;
#      SETREGS   R824  6  0:0x00000 0x4000 0 0xFFFF 0xFF08
tcblock mbipcmd 0x0091 0x0124   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF08 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x012D   0x019C 0x0338 
# ;
# ;    MOVBLK
# ;       Source Address         1:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                     262144L
# ;
#      MOVBLK  1:0x00000  8:0x00226   262144L
tcblock mbipcmd 0x0091 0x012F   0x0164 0x0000 0x0800 0x0226 \
                                0x4000 0x0000 0x0004 
# ;
# ;
#      SETREGS   R512  2   262144L
tcblock mbipcmd 0x0091 0x0136   0x01B2 0x0200 0x0002 0x0000 \
                                0x0004 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x013B   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x013F   0x01FC 
# ;
# ;...................................................
# ;
# ; Downlink SCALESUMmed image
# ;
# ;    MOVBLK
# ;       Source Address         3:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                     262144L
# ;
#      MOVBLK  3:0x00000  8:0x00226  262144L
tcblock mbipcmd 0x0091 0x0140   0x0164 0x0000 0x1800 0x0226 \
                                0x4000 0x0000 0x0004 
# ;
# ;    HRDINIT  R824
# ;       Source Address         0:0x00000
# ;       Destination Page               8
# ;       n,k parameters                 0
# ;       Data Product Code 1       0xFFFF
# ;       Data Product Code 2       0xFF98
# ;
#      SETREGS   R824  6  0:0x00000 0x4000 0 0xFFFF 0xFF98
tcblock mbipcmd 0x0091 0x0147   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF98 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x0150   0x019C 0x0338 
# ;
#      SETREGS   R512  2  262144L
tcblock mbipcmd 0x0091 0x0152   0x01B2 0x0200 0x0002 0x0000 \
                                0x0004 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x0157   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x015B   0x01FC 
# ;
# ;=============================================================
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
