# File: mag30new_v02.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/mag30new_v02.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    mag30new.ips
#; PURPOSE: Make a FD mag with the new framelist (MTM tuning order
#;	   matches the P30 framelist) 
#; HISTORY: 
#;       Written 31-Mar-97 by M.Morrison/D.Mathur
#
#QPROG_MAG30NEW::
#    BRANCHGT R3072 1 &NO_INIT 					;init only on frame 1
tcblock mbipmacl 0x0BE0    0x01BA 0x0C00 0x0001 0x0BF0 
#
#    FILLBLK 0:0x0000 0x120000L 0
tcblock mbipmacl 0x0BE4    0x016C 0x0000 0x0000 0x0000 \
                                0x0012 0x0000 
#    FILLBLK 2:0x0000 0x120000L 0
tcblock mbipmacl 0x0BEA    0x016C 0x0000 0x1000 0x0000 \
                                0x0012 0x0000 
#
#    ; FILLSTD 0:0x0000 $IPRL_FILL_PAGE_WITH_0	;instruction does n
#    ; FILLSTD 2:0x0000 $IPRL_FILL_PAGE_WITH_0
#
#NO_INIT:
#    GOTO    &QPROG_MAG30					;jump to standard main program
tcblock mbipmacl 0x0BF0    0x0156 0x08E0 
#=======================================================
#
return
#
#=======================================================
