# File: prog_full_dark_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prep/src/prog_full_dark_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#;
#; FILE:    prog_full_dark.ips
#; PURPOSE: To send down a single 1040x1033 filtergram image.  It 
#;	   PRIME30 and it saves the first image and downlinks it at fra
#; PAGE USE:
#;	   Page 0 is where the data is written to from the camera
#;	   Page 13 is where the data is stored before downlink
#; HISTORY: Written 20-Aug-96 by M.Morrison
#;
#;
#QPROG_1FLT_FULL_DARK::
#    COPYRD2D $IPRL_1FLT_FULL_DARK $IPRL_1FLT_PARAM 3
tcblock mbipmacl 0x1D57    0x0144 0x150C 0x125B 0x0003 
#    GOTO &COMMON_CODE
tcblock mbipmacl 0x1D5B    0x0156 0x1D61 
#
#QPROG_1FLT_FULL_LTC::
#    COPYRD2D $IPRL_1FLT_FULL_LTC $IPRL_1FLT_PARAM 3
tcblock mbipmacl 0x1D5D    0x0144 0x1512 0x125B 0x0003 
#
#COMMON_CODE:
#    BRANCHEQ R3072   1 &QSR_1FLT_FRM_STORE	;in program "one_fltgr
tcblock mbipmacl 0x1D61    0x01AE 0x0C00 0x0001 0x1578 
#    BRANCHEQ R3072   5 &QSR_1FLT_FRM_DL
tcblock mbipmacl 0x1D65    0x01AE 0x0C00 0x0005 0x1591 
#    END
tcblock mbipmacl 0x1D69    0x01FC 
#
#=======================================================
#
return
#
#=======================================================
