Table of Contents
Advertisement
program build
! ****************************************************************************
!
The build program is used to generate textfiles that may he coerced into
!
vector files.
It is necessary to have a textfile "WRITECYCLE" which
!
contains a description of a single write cycle.
!
to enter the text file name which contains the address and data information
!
and the text file name to which the file is to he written to.
!
!
Last updated: 4/21/89
! ****************************************************************************
declare
global string array [1:17] writecyc
global numeric in_text
global numeric out_text
global numeric t2o
string old_file
string new_file
end declare
! ****************************************************************************
!
The build_vector routine.
! ****************************************************************************
function build_vector
declare
string array [1:9] write_it
global string array [1:17] writecyc
global numeric in_text
global numeric out_text
string addr_val_str
string patt_str
string attr_str
global numeric t2o
end declare
loop while (poll channel in_text, event "input")
! *****get address, attribute, character*****
input on in_text, using "##### ## ##\nl", addr_val_str, attr_str, patt_str
print on t2o, "\1B[3;1f\1B[KWrite At $" + addr_val_str + " - Data $" +
patt_str
! *****headinq comment for each cycle*****
write_it [1] = mid (writecyc [9], 1, 29) + addr_val_str + ", data $" +
patt_str + attr_str
! *****pick apart old cycle, slip in new stuff*****
preamble = mid (writecyc [10], 1, 7) + addr_val_str + "
patt_str
! *****write cycle to character location*****
write_it [2] = preamble + mid (writecyc [10], 32, 36)
write_it [3] = preamble + mid (writecyc [11], 32, 36)
write_it [4] = writecyc [12]
preamble = mid (writecyc [13], 1, 7) + addr_val_str + "
write_it [5] = preamble + mid (writecyc [13], 32, 36)
! ****increment the address by one*****
addr_val_str = str (((val (addr_val_str,16)) + 1), 16)
print on t2o, "\1B[4;1f\1B[KWrite At $" + addr_val_str +
" - Attribute $" + attr_str
preamble = mid (writecyc [14], 1, 7) + addr_val_str +
"
! *****write cycle to the attribute location*****
write_it [6] = preamble + mid (writecyc [14], 32, 36)
write_it [7] = preamble + mid (writecyc [15], 32, 36)
write_it [8] = writecyc [16]
preamble = mid (writecyc [17], 1, 7) + addr_val_str + "
write_it [9] = preamble + mid (writecyc [17], 32, 36)
! *****write whole cycle cycle*****
for vec_out = 1 to 9
print on out_text, write_it [vec_out]
next
end loop
end build_vector
$" + attr_str
9100A-017
The user will be prompted
! go until end of file
$" +
$XX"
$XX"
7-23
Advertisement
Table of Contents
