# File: iss_qprog_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/iss_qprog_v01_1.src"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; Program to downlink ISS data
#;
#     SETREGS  512 6 0 0 0x4000 0 0x6A00 0x0000
tcblock mbipcmd 0x0091 0x0FD0   0x01B2 0x0200 0x0006 0x0000 \
                                0x0000 0x4000 0x0000 0x6A00 \
                                0x0000 
#     SETREGS  518 2 32219 0
tcblock mbipcmd 0x0091 0x0FD9   0x01B2 0x0206 0x0002 0x7DDB \
                                0x0000 
#     HRDINIT  512
tcblock mbipcmd 0x0091 0x0FDE   0x019C 0x0200 
#     START1HR 3 0x4000 518
tcblock mbipcmd 0x0091 0x0FE0   0x0174 0x0003 0x4000 0x0206 
#     END
tcblock mbipcmd 0x0091 0x0FE4   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
