version 1.10, 2002/10/02 15:54:36
|
version 1.11, 2003/01/03 17:28:12
|
Line 53 End-Label
|
Line 53 End-Label
|
\ The virtual machine registers an data (stacks) go |
\ The virtual machine registers an data (stacks) go |
\ to a seperate memory region (hopefully ram) |
\ to a seperate memory region (hopefully ram) |
|
|
UNLOCK |
\ UNLOCK |
current-region vm-memory activate ( saved-region ) |
\ current-region vm-memory activate ( saved-region ) |
LOCK |
\ LOCK |
|
|
Label RP 0 , |
Label RP 0 , |
Label SP 0 , |
Label SP 0 , |
Line 304 Code ?branch
|
Line 304 Code ?branch
|
"Next" , jmp , |
"Next" , jmp , |
'~ dout |
'~ dout |
t0 , accu , |
t0 , accu , |
*accu , accu , |
*accu , IP , |
Label >branch |
|
IP , add , |
|
#2 , sub , |
|
accu , IP , |
|
"Next" , jmp , |
"Next" , jmp , |
Label "branch" >branch , |
|
end-code |
end-code |
|
|
Code branch |
Code branch |
'b dout |
'b dout |
#0 , add , |
#0 , add , |
IP , shr , |
IP , shr , |
*accu , accu , |
*accu , IP , |
IP , add , |
|
accu , IP , |
|
"Next" , jmp , |
"Next" , jmp , |
end-code |
end-code |
|
|
Line 344 Code (loop)
|
Line 337 Code (loop)
|
t3 , sub , |
t3 , sub , |
"Next" , jz , |
"Next" , jz , |
t0 , accu , |
t0 , accu , |
"branch" , jmp , |
*accu , IP , |
|
"Next" , jmp , |
end-code |
end-code |
|
|
Code xor |
Code xor |