SIGP     TITLE 'Signal processor test case'                                     
                                                                                
* This file was put into the public domain 2015-11-12                           
* by John P. Hartmann.  You can use it for anything you like,                   
* as long as this notice remains.                                               
                                                                                
 punch '* *Testcase sigp'                                                       
 punch '* numcpu 1'                                                             
 punch '* sysclear'                                                             
 punch '* archmode z'                                                           
sigp start 0                                                                    
 using sigp,0                                                                   
 org sigp+x'1a0' Restart                                                        
 dc x'0000 0001 8000 0000',ad(go)                                               
 org sigp+x'1d0' Program                                                        
 dc x'0002 0001 8000 0000',ad(x'deaddead')                                      
 org sigp+x'200'                                                                
go equ *                                                                        
 stap cpu                                                                       
 lh 2,cpu                                                                       
 sigp 0,2,5 Stop                                                                
 lpswe stop                                                                     
stop dc x'0002 0000',f'0',ad(0)                                                 
cpu ds h                                                                        
 ltorg                                                                          
 punch '* runtest .1'                                                           
 punch '* psw'                                                                  
 punch '* runtest start .1'                                                     
 punch '* psw'                                                                  
 punch '* *Done'                                                                
 end                                                                            
