# File: do_std_fmt_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/do_std_fmt_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#;NAME:	do_std_fmt.ips
#;HISTORY:
#;	Written 20-Jul-96 by M.Morrison
#;	22-Jul-96 (MDM) - Broke out PCONT stuff to allow compression
#;			- Corrected the compression stuff
#;
#;						INPUT		OUTPUT
#;		velocity scaled (8 m/sec)	page 7		page 13
#;		linedepth			page 6		page 4/6
#;		continuum observable		page 5		page 4/5
#;		continuum filtergram		page 19		page 4/19
#;		magnetogram			page 17		page 18
#;		prime30 velocity		page 11		page 15
#;		prime30 continuum observable	page 11		page 18/11
#
#QSR_STD_CFMT_VEL::		;---- Crop the velocity
#    COPYRD2D $IPRL_STD_FMT_VEL $IPRL_CROP_PARAM 4
tcblock mbipmacl 0x1818    0x0144 0x14C7 0x146A 0x0004 
#    GOTO &SIMPLE_CROP
tcblock mbipmacl 0x181C    0x0156 0x186C 
#
#QSR_STD_CFMT_LDEP::		;---- Crop and sqrt-compress the line-depth
#    COPYRD2D $IPRL_STD_FMT_LDEP $IPRL_CROP_PARAM 4
tcblock mbipmacl 0x181E    0x0144 0x14CB 0x146A 0x0004 
#    GOTO &CROP_AND_COMP
tcblock mbipmacl 0x1822    0x0156 0x186F 
#
#QSR_STD_CFMT_CONT::		;---- Crop and sqrt-compress the continuum o
#    COPYRD2D $IPRL_STD_FMT_CONT $IPRL_CROP_PARAM 4
tcblock mbipmacl 0x1824    0x0144 0x14CF 0x146A 0x0004 
#    GOTO &CROP_AND_COMP
tcblock mbipmacl 0x1828    0x0156 0x186F 
#
#QSR_STD_CFMT_CONTF::		;---- Crop and sqrt-compress the continuum 
#    COPYRD2D $IPRL_STD_FMT_CONTF $IPRL_CROP_PARAM 4
tcblock mbipmacl 0x182A    0x0144 0x14D3 0x146A 0x0004 
#    GOTO &CROP_AND_COMP
tcblock mbipmacl 0x182E    0x0156 0x186F 
#
#QSR_STD_CFMT_MAG::		;---- Crop the magnetogram
#    COPYRD2D $IPRL_STD_FMT_MAG $IPRL_CROP_PARAM 4
tcblock mbipmacl 0x1830    0x0144 0x14D7 0x146A 0x0004 
#    GOTO &SIMPLE_CROP
tcblock mbipmacl 0x1834    0x0156 0x186C 
#
#QSR_STD_CFMT_PCONT::		;---- Crop the prime30 continuum
#    COPYRD2D $IPRL_STD_FMT_PCONT $IPRL_CROP_PARAM 4
tcblock mbipmacl 0x1836    0x0144 0x14DB 0x146A 0x0004 
#    GOTO &CROP_AND_COMP
tcblock mbipmacl 0x183A    0x0156 0x186F 
#
#QSR_STD_CFMT_PVEL::		;---- Crop the prime30 velocity
#    COPYRD2D $IPRL_STD_FMT_PVEL $IPRL_CROP_PARAM 4
tcblock mbipmacl 0x183C    0x0144 0x14DF 0x146A 0x0004 
#    GOTO &SIMPLE_CROP
tcblock mbipmacl 0x1840    0x0156 0x186C 
#
#;--------------------------------- Extract routines
#
#QSR_STD_EFMT_VEL::		;---- Crop the velocity
#    COPYRD2D $IPRL_STD_FMT_VEL $IPRL_EXTRACT_INST 4
tcblock mbipmacl 0x1842    0x0144 0x14C7 0x116B 0x0004 
#    GOTO &SIMPLE_EXTRACT
tcblock mbipmacl 0x1846    0x0156 0x187E 
#
#QSR_STD_EFMT_LDEP::		;---- Crop and sqrt-compress the line-depth
#    COPYRD2D $IPRL_STD_FMT_LDEP $IPRL_EXTRACT_INST 4
tcblock mbipmacl 0x1848    0x0144 0x14CB 0x116B 0x0004 
#    GOTO &EXTRACT_AND_COMP
tcblock mbipmacl 0x184C    0x0156 0x1881 
#
#QSR_STD_EFMT_CONT::		;---- Crop and sqrt-compress the continuum o
#    COPYRD2D $IPRL_STD_FMT_CONT $IPRL_EXTRACT_INST 4
tcblock mbipmacl 0x184E    0x0144 0x14CF 0x116B 0x0004 
#    GOTO &EXTRACT_AND_COMP
tcblock mbipmacl 0x1852    0x0156 0x1881 
#
#QSR_STD_EFMT_CONTF::		;---- Crop and sqrt-compress the continuum 
#    COPYRD2D $IPRL_STD_FMT_CONTF $IPRL_EXTRACT_INST 4
tcblock mbipmacl 0x1854    0x0144 0x14D3 0x116B 0x0004 
#    GOTO &EXTRACT_AND_COMP
tcblock mbipmacl 0x1858    0x0156 0x1881 
#
#QSR_STD_EFMT_MAG::		;---- Crop the magnetogram
#    COPYRD2D $IPRL_STD_FMT_MAG $IPRL_EXTRACT_INST 4
tcblock mbipmacl 0x185A    0x0144 0x14D7 0x116B 0x0004 
#    GOTO &SIMPLE_EXTRACT
tcblock mbipmacl 0x185E    0x0156 0x187E 
#
#QSR_STD_EFMT_PCONT::		;---- Crop the prime30 continuum
#    COPYRD2D $IPRL_STD_FMT_PCONT $IPRL_EXTRACT_INST 4
tcblock mbipmacl 0x1860    0x0144 0x14DB 0x116B 0x0004 
#    GOTO &CROP_AND_COMP
tcblock mbipmacl 0x1864    0x0156 0x186F 
#
#QSR_STD_EFMT_PVEL::		;---- Crop the prime30 velocity
#    COPYRD2D $IPRL_STD_FMT_PVEL $IPRL_EXTRACT_INST 4
tcblock mbipmacl 0x1866    0x0144 0x14DF 0x116B 0x0004 
#    GOTO &SIMPLE_EXTRACT
tcblock mbipmacl 0x186A    0x0156 0x187E 
#
#;--------------------------------- Actual routines
#
#SIMPLE_CROP:
#    CALLQUE  $QSR_FMT_CROP
tcblock mbipmacl 0x186C    0x01F8 0x17DC 
#    RTNQUE
tcblock mbipmacl 0x186E    0x01FA 
#
#CROP_AND_COMP:
#    CALLQUE  $QSR_FMT_CROP
tcblock mbipmacl 0x186F    0x01F8 0x17DC 
#    COPYRD2D $IPRL_CROP_PARAM+2 $IPRL_SQRT_PARAM 3
tcblock mbipmacl 0x1871    0x0144 0x146C 0x13B5 0x0003 
#    COPYREG  $IPRL_CROP_PARAM   $IPRL_SQRT_PARAM+2
tcblock mbipmacl 0x1875    0x0142 0x146A 0x13B7 
#    COPYREG  $IPRL_CROP_PARAM+1 $IPRL_SQRT_PARAM+3
tcblock mbipmacl 0x1878    0x0142 0x146B 0x13B8 
#    CALLQUE  $QSR_SQRT_COMP
tcblock mbipmacl 0x187B    0x01F8 0x12C2 
#    RTNQUE
tcblock mbipmacl 0x187D    0x01FA 
#
#SIMPLE_EXTRACT:
#    CALLQUE  $QSR_FMT_EXTRACT
tcblock mbipmacl 0x187E    0x01F8 0x10E8 
#    RTNQUE
tcblock mbipmacl 0x1880    0x01FA 
#
#EXTRACT_AND_COMP:
#    CALLQUE  $QSR_FMT_EXTRACT
tcblock mbipmacl 0x1881    0x01F8 0x10E8 
#    COPYRD2D $IPRL_EXTRACT_INST+2 $IPRL_SQRT_PARAM 3
tcblock mbipmacl 0x1883    0x0144 0x116D 0x13B5 0x0003 
#    COPYREG  $IPRL_EXTRACT_INST   $IPRL_SQRT_PARAM+2
tcblock mbipmacl 0x1887    0x0142 0x116B 0x13B7 
#    COPYREG  $IPRL_EXTRACT_INST+1 $IPRL_SQRT_PARAM+3
tcblock mbipmacl 0x188A    0x0142 0x116C 0x13B8 
#    CALLQUE  $QSR_SQRT_COMP
tcblock mbipmacl 0x188D    0x01F8 0x12C2 
#    RTNQUE
tcblock mbipmacl 0x188F    0x01FA 
#=======================================================
#
return
#
#=======================================================
