var k
var l
var temp1
var temp2

sti                         
bphws esp,"r"   
mov temp1,esp
run                       
sti                         
eoe lab3                
eob lab3               
bphws esp,"r"      
mov temp2,esp
esto                      



lab3:                   

mov k,esp          
add k,40              
mov l,[k]              
cmp l,400000      
je lab4                  
esto                      
          

lab4:                  

eob lab5            
mov k,eip           
add k,3d            
bp k                  
esto                   

lab5:                 
esto                   
ubp k
bphwc temp1
bphwc temp2
ret