# File: /mdisw/cfl/dev/src/mk_ff_patch.src
# Created:  2-May-1996 22:21:08.00
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/mk_ff_patch.src"
descr "mk_ff_patch - Load something to address 00078000"
 
# ---- Set the registers (SETREGS)
tcb mbipldin    0x01B2 7008            8 \
 0x0000  0x0000  0x0000  0x4783  0x469a  0x474a  0x4798  0x47bf
 
# ---- Copy from reg to data (SAVERLST)
tcb mbipldin    0x014a 7008            8 0x8000 0x8810 
 
# ---- Set Registers for DAT2LST command
tcb mbipldin    0x01B2 7000 6 \
        0x8000 0x8810  0x8000  0x5007           8  0
 
# ---- Copy from data to list page (DAT2LST)
tcb mbipldin    0x01C4 7000
 
##--------------------------------------------------------------
 
 
# ---- Set the registers (SETREGS)
tcb mbipldin    0x01B2 7008            8 \
 0x0000  0x0000  0x0000  0x45c2  0x45d7  0x45c5  0x45bd  0x45d9
 
# ---- Copy from reg to data (SAVERLST)
tcb mbipldin    0x014a 7008            8 0x8000 0x8810 
 
# ---- Set Registers for DAT2LST command
tcb mbipldin    0x01B2 7000 6 \
        0x8000 0x8810  0x8000  0x5008           8  0
 
# ---- Copy from data to list page (DAT2LST)
tcb mbipldin    0x01C4 7000
 
##--------------------------------------------------------------
 
 
# ---- Set the registers (SETREGS)
tcb mbipldin    0x01B2 7008            8 \
 0x0000  0x0000  0x0000  0x457d  0x4565  0x44e4  0x44f1  0x45d2
 
# ---- Copy from reg to data (SAVERLST)
tcb mbipldin    0x014a 7008            8 0x8000 0x8810 
 
# ---- Set Registers for DAT2LST command
tcb mbipldin    0x01B2 7000 6 \
        0x8000 0x8810  0x4000  0x5009           8  0
 
# ---- Copy from data to list page (DAT2LST)
tcb mbipldin    0x01C4 7000
