# File: /mdisw_sim/cfl/dev/src/mk_vel2_patch.src
# Created: 15-Aug-1996 13:44:29.00
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw_sim/cfl/dev/src/mk_vel2_patch.src"
descr "mk_vel2_patch - Load something to address 00003690"
 
# *********** Fixing Pixel:    13968  X: 656  Y  13****************
# ---- Set the registers (SETREGS)
tcb mbipldin    0x01B2 7008            8 \
0x1704 0x1704 0x1705 0x1705 0x1705 0x1705 0x1705 0x1705
 
# ---- Copy from reg to data (SAVERLST) (top of page 19)
tcb mbipldin    0x014a 7008            8 0x8000 0x8810 
 
# ---- Set Registers for DAT2LST command
tcb mbipldin    0x01B2 7000 6 \
        0x8000 0x8810 0xb690 0x8003           8  0
 
# ---- Copy from data to list page (DAT2LST)
tcb mbipldin    0x01C4 7000
