# File: align.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/align.src"
descr  "align  - load align test macro"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
# ; IP Program to test ROWBIN instruction
# ;
# ; Set Offset Registers to 0,0
#      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                     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 0x0105   0x01B2 0x0330 0x0008 0x0514 \
                                0x0000 0x0000 0x0800 0x0200 \
                                0x0200 0x0410 0x0045 
#      EXTRACT  R816
tcblock mbipcmd 0x0091 0x0110   0x017A 0x0330 
# ;
# ;
# ;    XALIGN  R800
# ;       Source Address         1:0x00000
# ;       Destination Address    2:0x00000
# ;       X-Length                     512
# ;       d-Factor                    4096
# ;       Row Length                   512
# ;       Repeat Count                 512
# ;
#      SETREGS  R800  8  1:0x00000 2:00000 512 4096 512  512
tcblock mbipcmd 0x0091 0x0112   0x01B2 0x0320 0x0008 0x0000 \
                                0x0800 0x0000 0x1000 0x0200 \
                                0x1000 0x0200 0x0200 
#      XALIGN   R800
tcblock mbipcmd 0x0091 0x011D   0x01DA 0x0320 
# ;
# ;
# ;    YALIGN  R800
# ;       Source Address         2:0x00000
# ;       Destination Address    3:0x00000
# ;       Y-Length                     512
# ;       d-Factor                    3072
# ;       Row Length                   512
# ;       Repeat Count                  64
# ;
#      SETREGS  R808  8  2:0x00000 3:00000 512 3072 512  64
tcblock mbipcmd 0x0091 0x011F   0x01B2 0x0328 0x0008 0x0000 \
                                0x1000 0x0000 0x1800 0x0200 \
                                0x0C00 0x0200 0x0040 
# ;
#      YALIGN   R808
tcblock mbipcmd 0x0091 0x012A   0x01DC 0x0328 
#      YALIGN   R808
tcblock mbipcmd 0x0091 0x012C   0x01DC 0x0328 
#      YALIGN   R808
tcblock mbipcmd 0x0091 0x012E   0x01DC 0x0328 
# ;
#      SETREG   R815 63
tcblock mbipcmd 0x0091 0x0130   0x0140 0x032F 0x003F 
#      YALIGN   R808
tcblock mbipcmd 0x0091 0x0133   0x01DC 0x0328 
# ;
#      SETREG   R815 65
tcblock mbipcmd 0x0091 0x0135   0x0140 0x032F 0x0041 
#      YALIGN   R808
tcblock mbipcmd 0x0091 0x0138   0x01DC 0x0328 
# ;
#      SETREG   R815 64
tcblock mbipcmd 0x0091 0x013A   0x0140 0x032F 0x0040 
#      YALIGN   R808
tcblock mbipcmd 0x0091 0x013D   0x01DC 0x0328 
#      YALIGN   R808
tcblock mbipcmd 0x0091 0x013F   0x01DC 0x0328 
# ;
#      SETREG   R815 63
tcblock mbipcmd 0x0091 0x0141   0x0140 0x032F 0x003F 
#      YALIGN   R808
tcblock mbipcmd 0x0091 0x0144   0x01DC 0x0328 
# ;
#      SETREG   R815  1
tcblock mbipcmd 0x0091 0x0146   0x0140 0x032F 0x0001 
# ;    YALIGN   R808
# ;
# ;....................................................
# ;
# ; 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 0x0149   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF08 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x0152   0x019C 0x0338 
# ;
# ;    MOVBLK
# ;       Source Address         1:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                     262144L
# ;
#      MOVBLK  1:0x00000  8:0x00226   262144L
tcblock mbipcmd 0x0091 0x0154   0x0164 0x0000 0x0800 0x0226 \
                                0x4000 0x0000 0x0004 
# ;
# ;
#      SETREGS   R512  2   262144L
tcblock mbipcmd 0x0091 0x015B   0x01B2 0x0200 0x0002 0x0000 \
                                0x0004 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x0160   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x0164   0x01FC 
# ;
# ;...................................................
# ;
# ; Downlink XALIGNed image
# ;
# ;    MOVBLK
# ;       Source Address         2:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                     262144L
# ;
#      MOVBLK  2:0x00000  8:0x00226  262144L
tcblock mbipcmd 0x0091 0x0165   0x0164 0x0000 0x1000 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 0x016C   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF98 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x0175   0x019C 0x0338 
# ;
#      SETREGS   R512  2  262144L
tcblock mbipcmd 0x0091 0x0177   0x01B2 0x0200 0x0002 0x0000 \
                                0x0004 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x017C   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x0180   0x01FC 
# ;
# ;...................................................
# ;
# ; Downlink YALIGNed image
# ;
# ;    MOVBLK
# ;       Source Address         3:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                     262144L
# ;
#      MOVBLK  3:0x00000  8:0x00226  262144L
tcblock mbipcmd 0x0091 0x0181   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 0x0188   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF98 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x0191   0x019C 0x0338 
# ;
#      SETREGS   R512  2  262144L
tcblock mbipcmd 0x0091 0x0193   0x01B2 0x0200 0x0002 0x0000 \
                                0x0004 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x0198   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x019C   0x01FC 
# ;=============================================================
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
