# File: rblr.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/rblr.src"
descr  "rblr - load LR bin test macro"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
# ; IP Program to test ROWBIN instruction
# ;
# ;
#      SETREGS   R69   2   0   0
tcblock mbipcmd 0x0091 0x0100   0x01B2 0x0045 0x0002 0x0000 \
                                0x0000 
# ;
# ;    EXTRACT R816
# ;       Source Address         0:0x00514
# ;       Destination Address    1:0x00000
# ;       X-Length                    1024
# ;       Y-Length                    1024
# ;       Row Length                  1040
# ;       Global Offset Register        69
# ;
#      SETREGS  R816  8  0:0x00514 1:0x00000 1024 1024 1040 R69
tcblock mbipcmd 0x0091 0x0105   0x01B2 0x0330 0x0008 0x0514 \
                                0x0000 0x0000 0x0800 0x0400 \
                                0x0400 0x0410 0x0045 
#      EXTRACT  R816
tcblock mbipcmd 0x0091 0x0110   0x017A 0x0330 
# ;
# ;
# ;    ROWBIN  R800
# ;       Source Address         1:0x00000
# ;       Destination Address    2:0x00000
# ;       X-Length                    1024
# ;       Y-Length                       2
# ;       Row Length                  1024
# ;       Repeat Count                 512
# ;       Shift Factor                  15
# ;       Scale Factor                   1
# ;       Global Offset Register       R69
# ;
#      SETREGS  R800  11  1:0x00000 2:0x00000 1024 2 1024 512 15 1 R69
tcblock mbipcmd 0x0091 0x0112   0x01B2 0x0320 0x000B 0x0000 \
                                0x0800 0x0000 0x1000 0x0400 \
                                0x0002 0x0400 0x0200 0x000F \
                                0x0001 0x0045 
#      ROWBIN   R800
tcblock mbipcmd 0x0091 0x0120   0x01D4 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       0xFF04
# ;
#      SETREGS   R824  6  1:0x00000 0x4000 0 0xFFFF 0xFF04
tcblock mbipcmd 0x0091 0x0122   0x01B2 0x0338 0x0006 0x0000 \
                                0x0800 0x4000 0x0000 0xFFFF \
                                0xFF04 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x012B   0x019C 0x0338 
# ;
# ;    MOVBLK
# ;       Source Address         1:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                    1048576L
# ;
#      MOVBLK  1:0x00000  8:0x00226  1048576L
tcblock mbipcmd 0x0091 0x012D   0x0164 0x0000 0x0800 0x0226 \
                                0x4000 0x0000 0x0010 
# ;
# ;
#      SETREGS   R512  2  1048576L
tcblock mbipcmd 0x0091 0x0134   0x01B2 0x0200 0x0002 0x0000 \
                                0x0010 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x0139   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x013D   0x01FC 
# ;
# ;...................................................
# ;
# ; Downlink ROWBINned image
# ;
# ;    MOVBLK
# ;       Source Address         2:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                     524288L
# ;
#      MOVBLK  2:0x00000  8:0x00226  524288L
tcblock mbipcmd 0x0091 0x013E   0x0164 0x0000 0x1000 0x0226 \
                                0x4000 0x0000 0x0008 
# ;
# ;    HRDINIT  R824
# ;       Source Address         0:0x00000
# ;       Destination Page               8
# ;       n,k parameters                 0
# ;       Data Product Code 1       0xFFFF
# ;       Data Product Code 2       0xFF97
# ;
#      SETREGS   R824  6  0:0x00000 0x4000 0 0xFFFF 0xFF97
tcblock mbipcmd 0x0091 0x0145   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF97 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x014E   0x019C 0x0338 
# ;
#      SETREGS   R512  2  524288L
tcblock mbipcmd 0x0091 0x0150   0x01B2 0x0200 0x0002 0x0000 \
                                0x0008 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x0155   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x0159   0x01FC 
# ;...................................................
# ;
# ; Linear Rebin
# ;
# ;    LRBIN  R832
# ;       Source Page           2
# ;       Destination Address   3:0x00000
# ;       List Pointer          0
# ;       List Count           64
# ;       List Address         17:0x00000
# ;       Global Offset Register       R69
# ;
#      SETREGS  R832  8  0x1000  3:0x00000  0  64  17:0x00000  R69
tcblock mbipcmd 0x0091 0x015A   0x01B2 0x0340 0x0008 0x1000 \
                                0x0000 0x1800 0x0000 0x0040 \
                                0x0000 0x8800 0x0045 
# ;
# ;    SETREG   R532  0
# RPT:
#      LRBIN     R832
tcblock mbipcmd 0x0091 0x0165   0x01D0 0x0340 
# ;    ADDREGD   R532  1
# ;    BRANCHNE  R532  64  &RPT
# ;
# ;    MOVBLK
# ;       Source Address         3:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                     262144L
# ;
#      MOVBLK  3:0x00000  8:0x00226  262144L
tcblock mbipcmd 0x0091 0x0167   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       0xFF99
# ;
#      SETREGS   R824  6  0:0x00000 0x4000 0 0xFFFF 0xFF99
tcblock mbipcmd 0x0091 0x016E   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF99 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x0177   0x019C 0x0338 
# ;
#      SETREGS   R512  2  262144L
tcblock mbipcmd 0x0091 0x0179   0x01B2 0x0200 0x0002 0x0000 \
                                0x0004 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x017E   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x0182   0x01FC 
# ;
# ; Dump LRBIN list
# ;
#     SETREGS   R824  6  0:0x00000 0x4000 0 0xFFFF 0xFF79
tcblock mbipcmd 0x0091 0x0183   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF79 
#     HRDINIT   R824
tcblock mbipcmd 0x0091 0x018C   0x019C 0x0338 
#     MOVBLK  17:0x00000  8:0x00226  400L
tcblock mbipcmd 0x0091 0x018E   0x0164 0x0000 0x8800 0x0226 \
                                0x4000 0x0190 0x0000 
#     SETREGS   R512  2  400L
tcblock mbipcmd 0x0091 0x0195   0x01B2 0x0200 0x0002 0x0190 \
                                0x0000 
#     START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x019A   0x0174 0x0003 0x4000 0x0200 
#     END
tcblock mbipcmd 0x0091 0x019E   0x01FC 
# 
# ;=============================================================
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
