9100A-017
7-23
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. The user will be prompted
! 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") ! go until end of file
! *****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_v " - Data $" +
patt_str
! *****headinq comment for each cycle*****
write_it [1] = mid (writecyc [9], 1, 29) + addr_v ", data $" +
pa attr_str
! *****pick apart old cycle, slip in new stuff*****
preamble = mid (writecyc [10], 1, 7) + addr_v " $" +
patt_str
! *****write cycle to character location*****
write_it [2] = pr mid (writecyc [10], 32, 36)
write_it [3] = pr mid (writecyc [11], 32, 36)
write_it [4] = writecyc [12]
preamble = mid (writecyc [13], 1, 7) + addr_v " $XX"
write_it [5] = pr 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_v
" - Attribute $" + attr_str
preamble = mid (writecyc [14], 1, 7) + addr_v
" $" + attr_str
! *****write cycle to the attribute location*****
write_it [6] = pr mid (writecyc [14], 32, 36)
write_it [7] = pr mid (writecyc [15], 32, 36)
write_it [8] = writecyc [16]
preamble = mid (writecyc [17], 1, 7) + addr_v " $XX"
write_it [9] = pr 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
Summary of Contents for 9100A Series
Page 6: ...vi ...
Page 8: ...viii ...
Page 10: ...x ...
Page 14: ...9100A 017 1 4 ...
Page 24: ...9100A 017 3 6 ...
Page 44: ...9100A 017 5 4 ...
Page 58: ...9100A 017 6 14 ...
Page 83: ...A 1 Appendix A New TL 1 Commands ...
Page 84: ...9100A 017 A 2 ...
Page 87: ...clockfreq 3 For More Information The Overview Of TL 1 section of the Programmer s Manual ...
Page 88: ...clockfreq 4 ...
Page 91: ...drivepoll 3 For More Information The Overview Of TL 1 section of the Programmer s Manual ...
Page 92: ...drivepoll 4 ...
Page 104: ...vectordrive 4 ...
Page 107: ...vectorload 3 For More Information The Overview Of TL 1 section of the Programmer s Manual ...
Page 108: ...vectorload 4 ...
Page 116: ...9100A 017 C 2 ...
Page 117: ...9100A 017 C 3 ...
Page 118: ...9100A 017 C 4 ...