*
* $Id: chpas.s,v 1.1.1.1 1996/03/08 15:44:22 mclareni Exp $
*
* $Log: chpas.s,v $
* Revision 1.1.1.1  1996/03/08 15:44:22  mclareni
* Cspack
*
*
#if defined(CERNLIB_IBMVM)
         PRINT GEN
CHPAS    EDCPROL
         BALR 12,0
         USING *,12                      R12 <-- REGISTRO BASE
         L     2,0(,1)                   GET ADDR OF PARM 1
         MVC   USR,0(2)
         L     2,4(,1)                   GET ADDR OF PARM 2
         MVC   PASSW,0(2)
         SR    1,1                       INDEX
         L     4,=F'1'                   INCREMENT
         L     5,=F'7'                   LIMIT
         LA    15,USR                    STRING ADDR
         LA    6,USR-1                   POINTER (I NEED IT FOR CLI)
LOOP1    EQU   *
         A     6,=F'1'                   UPDATE POINTER
         CLI   0(6),0                    FIRST NULL ?
         BE    MORBLAN
         BXLE  1,4,LOOP1
         B     NEXTP
MORBLAN  IC    4,=C' '
         STC   4,0(6)                    PUT A BLANC
NEXTP    SR    1,1                       INDEX
         L     4,=F'1'                   INCREMENT
         L     5,=F'7'                   LIMIT
         LA    15,PASSW                  STRING ADDR
         LA    6,PASSW-1                 POINTER (I NEED IT FOR CLI)
LOOP2    EQU   *
         A     6,=F'1'                   UPDATE POINTER
         CLI   0(6),0                    FIRST NULL ?
         BE    MORNUL
         BXLE  1,4,LOOP2
         B     CONT
MORNUL   IC    4,=C' '
         STC   4,0(6)
*********************************************************************
CONT     LA    2,EXTRACT                                            2
         LA    3,4
         DC    X'83',X'23',XL2'0180'     DIAGNOSE X'180'            2
*********************************************************************
         CLI   0(15),C'Y'
         BNE   PASNOK
         SR    15,15
         B     FIN
PASNOK   L     15,=F'1'
FIN      EDCEPIL
         LTORG *
         DS    0D
EXTRACT  DC    CL8'SETUSER '
USR      DC    CL8'        '
         DC    CL8'VERIFYPW'
PASSW    DC    CL8'        '
         DS    CL8
         END   CHPAS
#endif