           5                 SUBROUTINE 21  COSINE                                     
               E00AV    STD  ARTHX           BEGIN COSINE                               
                        SLT   0008             ARGUMENT                                 
                        STU  ARTHF           ALARM IF PWR                               
                        RSM   8002             OVERSCALE                                
                        ALO  AV1             COSX EQUALS                                
                        BMI  AV2              ONE IF PWR                                
                        SLO  AV3              UNDERSCALE                                            
                        BMI         AV4                                                   
                        SRT   0004                                                       
                        ALO  AV5                                                         
                        STL  AV6                                                         
                        RAU  ARTHF           FORM                                         
                        MPY  AV7    AV6       FRACTIONAL                                  
               AV6      HLT  AV6    AV23      AND INTGRL                                  
               AV23     STL  ARTHG             PARTS                                      
                        RAU   8003                                                       
                        MPY  AV8             FORM S AS                                  
                        STL  ARTHE            ONE MINUS                                 
                        RSM  ARTHG            TWICE ABVAL                               
                        SML   8001            OF FRACTNL                                
                        ALO  AV9                PART                                    
                        RAU   8002                                                       
                        STU  ARTHF                                                       
                        MPY   8001           FORM SINE                                 
                        STU  ARTHG                                                       
                        RAU  AV16             POLYNOMIAL                                
                        MPY  ARTHG           APPROXIMATOR                               
                        RAU   8003                                                       
                        AUP  AV15                                                        
                        MPY  ARTHG                                                       
                        RAU   8003                                                       
                        AUP  AV14                                                        
                        MPY  ARTHG                                                       
                        RAU   8003                                                       
                        AUP  AV13                                                        
                        MPY  ARTHG                                                       
                        SRT   0001                                                       
                        RAU   8003                                                       
                        AUP  AV12            EQUALS ONE                                 
                        MPY  ARTHF                                                       
                        SCT   0000                                                       
                        BOV  AV19                                                        
                        STL  ARTHF                                                       
                        RAL   8003           ROUND                                      
                        SRT   0002           AND                                        
                        STL  ARTHG           ADJUST                                     
                        RSU  ARTHF            POWER                                     
                        SRT   0002                                                       
                        BMI         AV25                                                  
                        SUP   8003                                                       
                        ALO  AV8    AV24                                                  
               AV24     AUP  ARTHG                                                       
                        SLT   0002  AV22                                                  
               AV22     STU  ARTHF           DETERMINE                                   
                        RAU  ARTHE            SIGN OF                                    
                        NZU         AV20       RESULT                                   
                        RSL  ARTHF  ARTHX                                               
               AV20     RAL  ARTHF  ARTHX                                               
               AV25     SUP   8003                                                       
                        SLO  AV8    AV24                                                   
               AV2      RAL  ARTHE           OVERSCALE                                     
                        LDD  ARTHX   3211      DISPLAY                                     
               AV4      RAL  AV21   ARTHX    COSX IS ONE                                   
               AV19     RAL   8002           COSX IS ZERO                                  
                        SLO   8001  ARTHX                                                  
               AV17     RAU  AV21   AV22     COSX IS PLUS                                  
               AV1       57   0000   0000     OR MINUS 1                                   
               AV3       11   0000   0000                                                  
               AV5      SRD   0011  AV23                                                   
               AV7       31   8309   8862                                                  
               AV8       50   0000   0000                                                  
               AV9       99   9999   9999                                                  
               AV12      15   7079   6318                                                  
               AV13   -  64   5963   7111                                                  
               AV14      07   9689   6793                                                  
               AV15   -  00   4673   7656                                                  
               AV16      00   0151   4842                                                  
               AV21      10   0000   0050                                                  
           5                 LAST CARD SUBROUTINE 21                                        
