# File: str_setup_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "str_setup_v01.ips"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;================================================================
#; str_setup
#;
#; This module sets up the initial operating conditions for the st
#; program.
#;
#;----------------------------------------------------------------
#;
#; V-LCP and V-RCP alignment parameters
#    SETREGS  R96   2   0x0000  0x2000
tcblock mbipcmd 0x0091 0x0F00   0x01B2 0x0060 0x0002 0x0000 \
                                0x2000 
#    SETREGS  R98   2   0x0000  0x0000
tcblock mbipcmd 0x0091 0x0F05   0x01B2 0x0062 0x0002 0x0000 \
                                0x0000 
#;
#; SAVEMODE Registers
#    SETREG   R26   0                       ; Clear SAVEMODE enabl
tcblock mbipcmd 0x0091 0x0F0A   0x0140 0x001A 0x0000 
#    SETREG   R28   1                       ; Set SAVEMODE execute
tcblock mbipcmd 0x0091 0x0F0D   0x0140 0x001C 0x0001 
#;
#    SETREG   R81   0                       ; Clear bad HK board f
tcblock mbipcmd 0x0091 0x0F10   0x0140 0x0051 0x0000 
#    SETREGS  R69   2   0  0                ; Set Global offset to
tcblock mbipcmd 0x0091 0x0F13   0x01B2 0x0045 0x0002 0x0000 \
                                0x0000 
#    SETREGS  R560  2   0  0                ; Used to set DPC len 
tcblock mbipcmd 0x0091 0x0F18   0x01B2 0x0230 0x0002 0x0000 \
                                0x0000 
#    SETREGS  R1378 8   0 0 0 0 0 0 0 0 
tcblock mbipcmd 0x0091 0x0F1D   0x01B2 0x0562 0x0008 0x0000 \
                                0x0000 0x0000 0x0000 0x0000 \
                                0x0000 0x0000 0x0000 
#    SETREGS  R1386 8   0 0 0 0 0 0 0 0
tcblock mbipcmd 0x0091 0x0F28   0x01B2 0x056A 0x0008 0x0000 \
                                0x0000 0x0000 0x0000 0x0000 \
                                0x0000 0x0000 0x0000 
#    SETREGS  R1420 6   0 0 0 0 0 0
tcblock mbipcmd 0x0091 0x0F33   0x01B2 0x058C 0x0006 0x0000 \
                                0x0000 0x0000 0x0000 0x0000 \
                                0x0000 
#;
#    SETREG   R1130 1                       ; Set initialization f
tcblock mbipcmd 0x0091 0x0F3C   0x0140 0x046A 0x0001 
#    SETREG   R1134 1420
tcblock mbipcmd 0x0091 0x0F3F   0x0140 0x046E 0x058C 
#    SETREG   R1135 0
tcblock mbipcmd 0x0091 0x0F42   0x0140 0x046F 0x0000 
#    SETREG   R1138 1467
tcblock mbipcmd 0x0091 0x0F45   0x0140 0x0472 0x05BB 
#    SETREG   R1139 0
tcblock mbipcmd 0x0091 0x0F48   0x0140 0x0473 0x0000 
#    SETREG   R1212 0x0102                  ; IPRL_STR_EP60 = 0x01
tcblock mbipcmd 0x0091 0x0F4B   0x0140 0x04BC 0x0102 
#    SETREG   $IPRL_STR_CAMHDMP  1          ; Camera Header dump e
tcblock mbipcmd 0x0091 0x0F4E   0x0140 0x06A6 0x0001 
#;
#    SETREG   $IPRL_STR_STRT30  0x0140
tcblock mbipcmd 0x0091 0x0F51   0x0140 0x04F3 0x0140 
#    SETREG   R3016 0x0902
tcblock mbipcmd 0x0091 0x0F54   0x0140 0x0BC8 0x0902 
#    SETREG   R1348 0                       ; Clear ALT repts coun
tcblock mbipcmd 0x0091 0x0F57   0x0140 0x0544 0x0000 
#    SETREG   R1349 5                       ; Set ALT Repeats valu
tcblock mbipcmd 0x0091 0x0F5A   0x0140 0x0545 0x0005 
#    SETREG   R1377 0                       ; Set 5K Magnetogram s
tcblock mbipcmd 0x0091 0x0F5D   0x0140 0x0561 0x0000 
#    SETREG   R1448 0                       ; Mag DL not active
tcblock mbipcmd 0x0091 0x0F60   0x0140 0x05A8 0x0000 
#    SETREG   R1449 0                       ; Campaign not active
tcblock mbipcmd 0x0091 0x0F63   0x0140 0x05A9 0x0000 
#    SETREG   R1466 0
tcblock mbipcmd 0x0091 0x0F66   0x0140 0x05BA 0x0000 
#    SETREG   R1472 0
tcblock mbipcmd 0x0091 0x0F69   0x0140 0x05C0 0x0000 
#    SETREG   R3104 0                       ; Clear the callback a
tcblock mbipcmd 0x0091 0x0F6C   0x0140 0x0C20 0x0000 
#;
#    SETREGS  R1656 4  1  0  0  0x0D43      ; frmchk error jump
tcblock mbipcmd 0x0091 0x0F6F   0x01B2 0x0678 0x0004 0x0001 \
                                0x0000 0x0000 0x0D43 
#;
#    END
tcblock mbipcmd 0x0091 0x0F76   0x01FC 
#
#
#
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
