# File: /mdisw/cfl/dev/src/mk_vel2_patch.src
# Created: 11-Jul-1996 19:12:09.00
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/mk_vel2_patch_v01.src"
descr "mk_vel2_patch - Load something to address 00003614"
 
# *********** Fixing Pixel:    13844  X: 532  Y  13****************
tcb mbdpml 0x2000 0x0000 \
      0x16f6 0x16f6 0x16f6 0x16f6 0x16f6 0x16f7 0x16f7 0x16f7

tcb mbdpml 0 0x547a 0xa390	## patch to remove increment
tcb mbiptbl 8 0xb614 0x8002  0      0 0x2000 8
wait time 60			## allow IP interrupt
tcb mbdpml 0 0x547a 0xa340	## patch back to original
 
##--------------------------------------------------------------
 
 
# *********** Fixing Pixel:    31596  X: 876  Y  30****************
tcb mbdpml 0x2000 0x0000 \
      0xfd85 0xfd86 0xfd86 0xfd87 0xfd87 0xfd88 0xfd89 0xfd89

tcb mbdpml 0 0x547a 0xa390	## patch to remove increment
tcb mbiptbl 8 0xfb6c 0x8002  0      0 0x2000 8
wait time 60			## allow IP interrupt
tcb mbdpml 0 0x547a 0xa340	## patch back to original
