&PL      PROC  &P,3                                                     CLR00010
CLRBIT   NAME                                                           CLR00020
         DO    0                                                        CLR00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  CLR00040
*                                                                    *  CLR00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  CLR00060
*                                                                    *  CLR00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  CLR00080
*                                                                    *  CLR00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  CLR00100
         ENDO                                                           CLR00110
         LCL   &X                                                       CLR00120
&X       SET   '&PL.        '(1,8)                                      CLR00130
         DO    '&P(3)'=''=0                                             CLR00140
&X           NI    &P(2)+&P(1)/256(&P(3)),(&P(1)**255)--255             CLR00150
         GOTO  .DONE                                                    CLR00160
         ENDO                                                           CLR00170
&X           NI    &P(2)+&P(1)/256,(&P(1)**255)--255                    CLR00180
.DONE    LABEL                                                          CLR00190
         END                                                            CLR00200
