I've been having fun trying to re-learn ooRexx after many years of rest.
I was looking at the docs for queues and found this code:
/* */
push date() time() /* push date and time */
do 1000 /* let's pass some time */
nop /* doing nothing */
end /* end of loop */
pull a b /* pull them */
say "Pushed at " a b ", Pulled at " date() time() /* say now and then */
When I last programed Rexx, I ran OS/2 Warp on a state of the art 486
and I'm pretty sure it would have done a 1000 NOP's in no time. Now I'm
running a not the fastest Intel 64 bit core i3 and wondered how this
code would work.
I kept adding zeros until some time "passed"
1000
10000
100000
1000000
10000000
Still no time passed, at least not a full second
100000000... now some time passed, 100 million before a second passed.
I wonder how long my first, state of the art PC, an IBM PCXT 8088 with
dual floppies and a huge 10 meg HD would have taken to do nothing a
hundred million times?
Point? No point, I know everyone knows this, but I enjoyed seeing it and
noting how old some of the docs must be.
--
Jack
Add Life to your Days not Days to your Life.
http://jbstein.com