&PL      PROC  &P,3                                                     CPL00010
CPLBIT   NAME                                                           CPL00020
         DO    0                                                        CPL00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  CPL00040
*                                                                    *  CPL00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  CPL00060
*                                                                    *  CPL00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  CPL00080
*                                                                    *  CPL00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  CPL00100
         ENDO                                                           CPL00110
         LCL   &X                                                       CPL00120
&X       SET   '&PL.        '(1,8)                                      CPL00130
         DO    '&P(3)'=''=0                                             CPL00140
&X           XI    &P(2)+&P(1)/256(&P(3)),&P(1)**255                    CPL00150
         GOTO  .DONE                                                    CPL00160
         ENDO                                                           CPL00170
&X           XI    &P(2)+&P(1)/256,&P(1)**255                           CPL00180
.DONE    LABEL                                                          CPL00190
         END                                                            CPL00200
