########## GENERALIZED 1401 ERROR ROUTINE, 1401 SOURCE                          
  010          DCW  @UNDEFINED ERROR@                                           
  020ERRORU    DCW  #3                                                          
  030*                                                                          
  040* ENTER ERROR MESSAGES HERE, FOLLOWED BY ADDRESS OF NEXT                   
  050* INSTRUCTION FOLLOWING B ERROR                                            
  060*                                                                          
  070ERROR     SBR  ERRORX&3                                                    
  080          SBR  ERRORU                                                      
  090          MLC  X3,ERROR3&6                                                 
  100          SBR  X3,ERROR&3                                                  
  110ERRORL    C    15997&X3                                                    
  120          SBR  X3                                                          
  130          C    0&X3,ERRORU                                                 
  140          BU   ERRORL                                                      
  150          MLC  15997&X3,260                                                
  160ERROR3    SBR  X3,0                                                        
  170          W                                                                
  180ERRORX    CS   *,260                                                       
  190*                                                                          
               END