# File: callque_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/callque_v01_1.src"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; FILE:    callque.ips
#; PURPOSE: To allow a main program which can call subroutines so 
#;	   a control file can use the IP subroutines.
#; METHOD:  The control file will patch the address in the queue m
#;	   and then execute the callque program.
#; SAMPLE:
#;		tcblock mbipmacl 0x0FF1   0x????
#;		tcblock mbipldin 0x152 0x0FF0
#;	   where 0x0FF0 is the location of the callque program and
#;	   ???? is the address of the subroutine to be called.
#; HISTORY: Written 10-Jan-96 by M.Morrison
#;
#QPROG_CALLQUE::
#    CALLQUE 0x0000		;contents to be patched by ground control fil
tcblock mbipcmd 0x0091 0x0FF0   0x01F8 0x0000 
#    END
tcblock mbipcmd 0x0091 0x0FF2   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
