program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
tcblock mbipcmd 0x0091 0x0000   0x0100
#=======================================================
#
#
# TST00:    BRANCHEQ  R3072  1  &TST10
tcblock mbipcmd 0x0091 0x0100   0x01AE 0x0C00 0x0000 0x0110 
#           BRANCHEQ  R3072  9  &TST10
tcblock mbipcmd 0x0091 0x0104   0x01AE 0x0C00 0x0800 0x0110 
#           BRANCHEQ  R3072  10 &TST10
tcblock mbipcmd 0x0091 0x0108   0x01AE 0x0C00 0x0900 0x0110 
#           BRANCHNE  R3072  20 &TST20
tcblock mbipcmd 0x0091 0x010C   0x01B0 0x0C00 0x1300 0x0127 
# ;
# TST10:    SETREGS   R2992  6  0  0x1800  0x4000       0  0xFFFF  0xFF10
tcblock mbipcmd 0x0091 0x0110 \
  0x01B2 0x0BB0 0x0006 0x0000 0x1800 0x4000 0x0000 0xFFFF 0xFF10 
#           HRDINIT   R2992
tcblock mbipcmd 0x0091 0x0119   0x019C 0x0BB0 
#           SETREGS   R3024  5  0  0x1800  0x0514  0x4000  0x7F
tcblock mbipcmd 0x0091 0x011B \
  0x01B2 0x0BD0 0x0005 0x0000 0x1800 0x0514 0x4000 0x007F 
#           CONVRAW   R3024
tcblock mbipcmd 0x0091 0x0123   0x01B6 0x0BD0 
#           GOTO      &TST30
tcblock mbipcmd 0x0091 0x0125   0x0156 0x013C 
# ;
# TST20:    SETREGS   R2976  6  0  0x1000  0x4000       0  0xFFFF  0xFF11
tcblock mbipcmd 0x0091 0x0127 \
  0x01B2 0x0BA0 0x0006 0x0000 0x1000 0x4000 0x0000 0xFFFF 0xFF11 
#           HRDINIT   R2976
tcblock mbipcmd 0x0091 0x0130   0x019C 0x0BA0 
#           SETREGS   R3008  5  0  0x1000       0   x4000  0x7F
tcblock mbipcmd 0x0091 0x0132 \
  0x01B2 0x0BC0 0x0005 0x0000 0x1000 0x0000 0x0000 0x007F 
#           CONVRAW   R3008
tcblock mbipcmd 0x0091 0x013A   0x01B6 0x0BC0 
# ;
# TST30:    SETREGS   R73  2  2000  0
tcblock mbipcmd 0x0091 0x013C   0x01B2 0x0049 0x0002 0x27ff 0x0000 
#           START1HR  3     0x4000  R73
tcblock mbipcmd 0x0091 0x0141   0x0174 0x0003 0x4000 0x0049 
# ;
#           ENDMAC
tcblock mbipcmd 0x0091 0x0145   0x01FC
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
