gistfile1.txt

.sub main :main                                                                                                           
    .local pmc task, sayer, dummy                                                                                         
    sayer = get_global 'sayer'                                                                                            
    dummy = new ['Integer']                                                                                               
    task = new ['Task']
    setattribute task, 'code', sayer                                                                                      
    setattribute task, 'data', dummy                                                                                      
    schedule task
    wait task  
.end

.sub sayer
    .param pmc proxy                                                                                                      
    .local pmc interp, task, result_sub, result_task, dummy                                                               
    
    interp = getinterp                                                                                                    
    dummy = new ['Integer']                                                                                               
    result_sub = get_global 'result_sub'
    
again:                                                                                                                    
    result_task = new ['Task']                                                                                            
    setattribute result_task, 'code', result_sub                                                                          
    setattribute result_task, 'data', dummy                                                                               
    interp.'schedule_proxied'(result_task, proxy)                                                                         
    
    result_task = new ['Task']                                                                                            
    setattribute result_task, 'code', result_sub                                                                          
    interp.'schedule_proxied'(result_task, proxy)                                                                         
    
    goto again
.end
    
.sub result_sub
    .param pmc dummy                                                                                                      
    .local pmc dummy2                                                                                                     
.end