# File: hr_m1_ipreg_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/hr_m1_ipreg_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    hr_m1_ipreg.ips
#; PURPOSE: Make a high resolution magnetogram and downlink the IP
#;	   and the HR magnetogram (for use with "cam_vc2_obs")
#; HISTORY: 18-Jul-96 by M.Morrison (replaced prog_hr_mag.ips)
#
#QPROG_HR_M1_IPREG::
#
#    BRANCHNE  R3072 8 &SKIP_REG_DMP
tcblock mbipmacl 0x1A5C    0x01B0 0x0C00 0x0008 0x1A62 
#    CALLQUE  $QSR_DUMP_IPREG             	                ;downli
tcblock mbipmacl 0x1A60    0x01F8 0x108B 
#SKIP_REG_DMP:
#
#    BRANCHEQ R3072 10 &DONE                                     ;
tcblock mbipmacl 0x1A62    0x01AE 0x0C00 0x000A 0x1A71 
#                                                                ;
#                                                                ;
#                                                                ;
#
#    CALLQUE  $QSR_HR_MVL30                                      ;
tcblock mbipmacl 0x1A66    0x01F8 0x1663 
#    BRANCHLT R3072 9 &DONE                                      ;
tcblock mbipmacl 0x1A68    0x01B8 0x0C00 0x0009 0x1A71 
#
#    ;---- Downlink the magnetogram
#    SETREG   $IPRL_DL_PARAM 0x8800
tcblock mbipmacl 0x1A6C    0x0140 0x11D0 0x8800 
#    CALLQUE  $QSR_DL_1PAGE                                      ;
tcblock mbipmacl 0x1A6F    0x01F8 0x0DA0 
#
#DONE:
#    END
tcblock mbipmacl 0x1A71    0x01FC 
#=======================================================
#
return
#
#=======================================================
