.TITLE GetPassword
$EFNDEF
$DSCDEF
        .PSECT data,rd,wrt,noexe,quad
IOSB:
 iostat: .WORD
 iochars:.WORD
 ioterm: .WORD
 iotrmsz:.WORD
timeout:  .LONG 20 ; seconds
Chan:     .WORD
.ALIGN QUAD
Password: .ASCID /Password/
Prompt:   .ASCID /Password: /
Value:    .ASCID /12345678901234567890123456789012/
Blank:    .ASCID //
Term:     .ASCID /SYS$COMMAND/

        .PSECT code,rd,nowrt,exe
        .ENTRY start,^M<R2,R3,R4,R5,R6,R7,R8>
        PUSHAB Blank
        PUSHAB Password
        CALLS #2,G^LIB$SET_SYMBOL
        $ASSIGN_S devnam=Term chan=chan
        MOVAB               Value,R2
        MOVAB  @DSC$A_POINTER(R2),R3
        MOVZWL   DSC$W_LENGTH(R2),R4
        MOVAB              Prompt,R2
        MOVAB  @DSC$A_POINTER(R2),R5
        MOVZWL   DSC$W_LENGTH(R2),R6

        $QIOW_S efn=#EFN$C_ENF chan=Chan iosb=IOSB -
          func=#IO$_READPROMPT!IO$M_TIMED!IO$M_NOECHO!IO$M_PURGE -
          p1=(R3) p2=R4 p3=timeout p5=R5 p6=R6

        BLBC R0,Bad
        MOVZWL iostat,R0
        BLBC R0,Bad
        MOVW iochars,Value
        PUSHAB Value
        PUSHAB Password
        CALLS #2,G^LIB$SET_SYMBOL
Bad:    RET
        .END Start