program "%Z% MODULE: dfp100a_f.src RELEASE: %R%.%L% CREATED: %G% %U%"
source  "/mdisw/cfl/sim/src/dfp100a_f.src"
descr   "dfp100a_f - List Load Patch"

# Patch for problem of IP queue kept disabled           author:  R Rehse
# after a table/list load command.  Highest             date:    96.01.05
# probability when 5K data stream is underfilled.       rev 6:   96.02.14
# Control flag bit 0x200 in ipi_flg is used to
# prevent indefinite queue holdoff.
# Uses 9830..9855

tcb mbdpmd 0 0x9828 64               ## Pre patch dump
wait time 5

tcb mbdpml 0 0x9830 0x2681 0xacba 0xfdff 0x6f7 0xa884 0x20 0x90c3 0x06f6 

# this part was revised 01.11
tcb mbdpml 0 0x9840 0xacba 0x9c10 0x2681 0xacba 0xffef 0x749d 0x3103 0xc3c0
# added this prev omitted part 01.17
tcb mbdpml 0 0x9850 0x6f6 0xacbb 0xc302
 
tcb mbdpmd 0 0x9828 64               ## Post patch dump
wait time 5

tcb mbdpmd 0 0x4708 16               ## Pre Patch dump
wait time 5
tcb mbdpml 0 0x470c 0x21e8 0x9051 0x9090
tcb mbdpmd 0 0x4708 16               ## Post patch dump
wait time 5


tcb mbdpmd 0 0x4970 20               ## Pre patch dump
wait time 5
tcb mbdpml 0 0x4972 0x8134 0xba0e 0x4ac 0xa002 0x4c99 0x998 0x74c0 
tcb mbdpml 0 0x4980 0xb805 0x8000 0xeb
tcb mbdpmd 0 0x4970 20               ## Post patch dump
wait time 5

# call revised function

tcb mbdpmd 0 0x2750 16
wait time 5
tcb mbdpml 0 0x2758 0xe3e8 0x9070 0x7490
tcb mbdpmd 0 0x2750 16
wait time 5

# change mask used to update ipi_flg in SvIPi()-- defers error bit clear  01.12

tcb mbdpmd 0 0x2878 16
wait time 5
tcb mbdpml 0 0x287e 0xfeac
tcb mbdpmd 0 0x2878 16
wait time 5

#  patches to DEP software patch level in TLM and memory
tcb mbdpml 0 0x64a 0x0f8c
tcb mbdpml 0x1000 0x8C96 0x0f10
