# File: callback_v04.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/callback_v04.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; CALL BAck Routine
#;
#QSR_CB_CALLBACK::
#    BRANCHIF   $IPRL_CB_ADDR  &CB_DONE
tcblock mbipmacl 0x0FFA    0x015A 0x0C20 0x0FFF 
#    GOTOREG    $IPRL_CB_ADDR
tcblock mbipmacl 0x0FFD    0x0158 0x0C20 
#CB_DONE:
#    RTNQUE
tcblock mbipmacl 0x0FFF    0x01FA 
#
#=======================================================
#
return
#
#=======================================================
