# File: ld_changes.src
#
# Loads new versions of structure program and register list initialization
# routine.  It also reloads the tables and lists. The square-root lookup 
# table for line-depth has bben modified and a new VWBIN list is loaded. 
# 
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/ld_changes.src"
descr "ld_changes - load structure program changes."

display "Executing procedure  ld_changes."

perf scitbls_v06

# Update LOI-c DPC
tcblock mbipldin 0x01b2  440 2 0x0703 0x7004   ##   3

# Dump VWBIN List
tcb mbipldin 0x1b2 3576 6 0xe200 0x6002  0x0000 0x7004 0x8000 0 
tcb mbipldin 0x152 0x1e38
wait time 10

# Dump Square Root #2 List
tcb mbipldin 0x1b2 3576 6 0xe100 0x3003  0x0000  0x8008 0x8000 0 
tcb mbipldin 0x152 0x1e38
wait time 10

perf mkstr+11_v01
perf str_rlinit_v09_1

display "Finished procedure ld_changes"
return
