&PL      PROC  &P,3                                                     TST00010
TSTBIT   NAME                                                           TST00020
         DO    0                                                        TST00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  TST00040
*                                                                    *  TST00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  TST00060
*                                                                    *  TST00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  TST00080
*                                                                    *  TST00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  TST00100
         ENDO                                                           TST00110
         LCL   &X                                                       TST00120
&X       SET   '&PL.        '(1,8)                                      TST00130
         DO    '&P(3)'=''=0                                             TST00140
&X           TM    &P(2)+&P(1)/256(&P(3)),&P(1)**255                    TST00150
         GOTO  .DONE                                                    TST00160
         ENDO                                                           TST00170
&X           TM    &P(2)+&P(1)/256,&P(1)**255                           TST00180
.DONE    LABEL                                                          TST00190
         END                                                            TST00200
