SIMSCRIPT II.5 Programming Language

Discrete Simulation Concepts
time. A local saved variable is used in this routine to record the value of time.v, allowing an advance
in time to be detected.
preamble
the system owns a SYNCH.SET
and has a (XARR, YARR)
define XARR as a 1-dimensional array monitored on the left
define YARR as a 1-dimensional array
temporary entities
every MEMO has a VALUE and an INDEX
and belongs to the SYNCH.SET
define INDEX as an integer variable
end
main
let between.v = 'SYNCH.RTN'
.
.
start simulation
end
left routine XARR(SUBSCRIPT)
define SUBSCRIPT as an integer variable
enter with ASG.VAL
create a MEMO
let INDEX(MEMO) = SUBSCRIPT
let VALUE(MEMO) = ASG.VAL
file MEMO in SYNCH.SET
return
end
routine SYNCH.RTN
define SAV.TIME as a saved variable
if SAV.TIME ne time.v
let SAV.TIME = time.v
for each MEMO in SYNCH.SET
do
remove MEMO from SYNCH.SET
let YARR(INDEX(MEMO)) = ASG.VAL(MEMO)
destroy MEMO
loop
always
return
end
A statement such as let XARR(1) = XARR(1) + 1 does not appear to have any effect until simulation
time advances. This example merely demonstrates the principle. It may be extended as required.
237