This is an example of the pcode with the program gets turned into to make
it run as fast as possible. Removing line,offset numbers would add alot
more speed but then debugging would be were hard unless we built a lookup
table to tell us where each line/offset started!!!
THEN, we'd just check pcodeptr and work out the line number from that!!

Table: lineno,offset,pcodepos,*prev

XST::update Table for the line/offset numbers!!!!


>320<!1831504!

Error:End Of Program:(line 5:offset 0)
L 0 z                :line 0
n 5 z p 0            :Num 5, push to parameter 0
n 4 z p 1            :Num 4, push to parameter 1
c 7 0 z              :Call sysproc 70-RESERVE
L 1 z L 2 z          :line 1,2

( n 5 z p 0          :PushIT, Num 5, push to parameter 0
c 7 4 z ) 2 p 0      :Call sysproc 74-START, pop, push to parameter 0 [HERE]

( n 3 2 0 z p 0      :PushIT, Num 32, push to parameter 0
c 1 3 z ) 2 p 1      :Call sysproc 13-RND, pop, push to parameter 1 [HERE]
c 6 2 z              :Call sysproc 62-DOKE
L 3 z L 4 z          :line 3,4
( ( n 5 z p 0        :pushpushIT, Num 5, push to parameter 0
c 7 4 z ) 2 p 0      :Call sysproc 74-START, Pop, push to parameter 0
c 5 9 z ) 2          :Call sysproc 59-DEEK, Pop
k A d k A c L 5 z    :Print IT
FREE counter 0
