# File: debug_ipreg_v03.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "debug_ipreg_v03.ips"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; FILE: debug_ipreg_v03
#; PURPOSE: To dump the IP registers as a data product.  It runs a
#;	   a subroutine, not a program
#; HISTORY: Written 16-Nov-95 (taking do_dump_ipreg.ips as startin
#;	 7-Dec-95 (MDM) - Changed waiting branch to look at page 8, not
#;			  page 9 since we're using the downlink subroutine
#;			  now (not DMPMEM)
#;
#;
#QSR_DEBUG_IPREG::
#
#    BRANCHEQ $IPRL_DEBUG_SKIP 1 &DONE
tcblock mbipcmd 0x0091 0x121A   0x01AE 0x1FFE 0x0001 0x1228 
#
#    CALLQUE  $QSR_DUMP_IPREG
tcblock mbipcmd 0x0091 0x121E   0x01F8 0x11DC 
#
#    SETREG   R143 16
tcblock mbipcmd 0x0091 0x1220   0x0140 0x008F 0x0010 
#    PURGELST R136				;wait 82 msec before checking the page
tcblock mbipcmd 0x0091 0x1223   0x0190 0x0088 
#WAITING:
#    BRANCHNR 0x4000 &WAITING			;wait until the downlink in page 8
tcblock mbipcmd 0x0091 0x1225   0x01A6 0x4000 0x1225 
#
#DONE:
#    RTNQUE
tcblock mbipcmd 0x0091 0x1228   0x01FA 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
