&PL      PROC  &P,3                                                     SET00010
SETBIT   NAME                                                           SET00020
         DO    0                                                        SET00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SET00040
*                                                                    *  SET00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  SET00060
*                                                                    *  SET00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  SET00080
*                                                                    *  SET00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SET00100
         ENDO                                                           SET00110
         LCL   &X                                                       SET00120
&X       SET   '&PL.        '(1,8)                                      SET00130
         DO    '&P(3)'=''=0                                             SET00140
&X           OI    &P(2)+&P(1)/256(&P(3)),&P(1)**255                    SET00150
         GOTO  .DONE                                                    SET00160
         ENDO                                                           SET00170
&X           OI    &P(2)+&P(1)/256,&P(1)**255                           SET00180
.DONE    LABEL                                                          SET00190
         END                                                            SET00200
