# File: irbin.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/irbin.src"
descr  "irbin - load IR bin test macro"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
# ; IP Program to test IRBIN instruction
# ;
# ;
#      SETREGS   R69   2   0   0
tcblock mbipcmd 0x0091 0x0100   0x01B2 0x0045 0x0002 0x0000 \
                                0x0000 
# ;
# ;    EXTRACT R816
# ;       Source Address         0:0x41618
# ;       Destination Address    1:0x00000
# ;       X-Length                     256
# ;       Y-Length                     256
# ;       Row Length                  1040
# ;       Global Offset Register        69
# ;
#      SETREGS  R816  8  0:0x41618 1:0x00000 256 256 1040 R69
tcblock mbipcmd 0x0091 0x0105   0x01B2 0x0330 0x0008 0x1618 \
                                0x0004 0x0000 0x0800 0x0100 \
                                0x0100 0x0410 0x0045 
#      EXTRACT  R816
tcblock mbipcmd 0x0091 0x0110   0x017A 0x0330 
# ;
# ;
# ;    IRBIN  R800
# ;       Source Page              0x0800
# ;       Destination Address      2:0x00000
# ;       List Pointer                     0
# ;       List Count                      32
# ;       List Address            17:0x00000
# ;       Global Offset Register         R69
# ;
#      SETREGS  R800  8  0x0800 2:0x00000 0   32  17:0x00000 R69
tcblock mbipcmd 0x0091 0x0112   0x01B2 0x0320 0x0008 0x0800 \
                                0x0000 0x1000 0x0000 0x0020 \
                                0x0000 0x8800 0x0045 
#      IRBIN    R800
tcblock mbipcmd 0x0091 0x011D   0x01A4 0x0320 
# ;
# ;....................................................
# ;
# ; Downlink Raw Image
# ;
# ;    HRDINIT  R824
# ;       Source Address         1:0x00000
# ;       Destination Page               8
# ;       n,k parameters                 0
# ;       Data Product Code 1       0xFFFF
# ;       Data Product Code 2       0xFF06
# ;
#      SETREGS   R824  6  0:0x00000 0x4000 0 0xFFFF 0xFF06
tcblock mbipcmd 0x0091 0x011F   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF06 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x0128   0x019C 0x0338 
# ;
# ;    MOVBLK
# ;       Source Address         1:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                      65536L
# ;
#      MOVBLK  1:0x00000  8:0x00226   65536L
tcblock mbipcmd 0x0091 0x012A   0x0164 0x0000 0x0800 0x0226 \
                                0x4000 0x0000 0x0001 
# ;
# ;
#      SETREGS   R512  2   65536L
tcblock mbipcmd 0x0091 0x0131   0x01B2 0x0200 0x0002 0x0000 \
                                0x0001 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x0136   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x013A   0x01FC 
# ;
# ;...................................................
# ;
# ; Downlink IRBINned image
# ;
# ;    MOVBLK
# ;       Source Address         2:0x00000
# ;       Destination Adress     8:0x00226
# ;       Count                       4096L
# ;
#      MOVBLK  2:0x00000  8:0x00226    4096L
tcblock mbipcmd 0x0091 0x013B   0x0164 0x0000 0x1000 0x0226 \
                                0x4000 0x1000 0x0000 
# ;
# ;    HRDINIT  R824
# ;       Source Address         0:0x00000
# ;       Destination Page               8
# ;       n,k parameters                 0
# ;       Data Product Code 1       0xFFFF
# ;       Data Product Code 2       0xFF9D
# ;
#      SETREGS   R824  6  0:0x00000 0x4000 0 0xFFFF 0xFF9D
tcblock mbipcmd 0x0091 0x0142   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF9D 
#      HRDINIT   R824
tcblock mbipcmd 0x0091 0x014B   0x019C 0x0338 
# ;
#      SETREGS   R512  2    4096L
tcblock mbipcmd 0x0091 0x014D   0x01B2 0x0200 0x0002 0x1000 \
                                0x0000 
# ;
# ;    START1HR
# ;       Command                        3
# ;       Page Number                    8
# ;       Register                     512
# ;
#      START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x0152   0x0174 0x0003 0x4000 0x0200 
# ;
#      END
tcblock mbipcmd 0x0091 0x0156   0x01FC 
# ;...................................................
# ;
# ; Dump IRBIN list
# ;
#     SETREGS   R824  6  0:0x00000 0x4000 0 0xFFFF 0xFF7D
tcblock mbipcmd 0x0091 0x0157   0x01B2 0x0338 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0xFFFF \
                                0xFF7D 
#     HRDINIT   R824
tcblock mbipcmd 0x0091 0x0160   0x019C 0x0338 
#     MOVBLK  17:0x00000  8:0x00226  6328L
tcblock mbipcmd 0x0091 0x0162   0x0164 0x0000 0x8800 0x0226 \
                                0x4000 0x18B8 0x0000 
#     SETREGS   R512  2  6328L
tcblock mbipcmd 0x0091 0x0169   0x01B2 0x0200 0x0002 0x18B8 \
                                0x0000 
#     START1HR  3  0x4000 R512
tcblock mbipcmd 0x0091 0x016E   0x0174 0x0003 0x4000 0x0200 
#     END
tcblock mbipcmd 0x0091 0x0172   0x01FC 
# 
# ;=============================================================
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
