25c25
< \ $FreeBSD: head/sys/boot/forth/loader.4th 50477 1999-08-28 01:08:13Z peter $
---
> \ $FreeBSD: head/sys/boot/forth/loader.4th 53672 1999-11-24 17:56:40Z dcs $
40a41,64
> \ ***** check-password
> \
> \ If a password was defined, execute autoboot and ask for
> \ password if autoboot returns.
>
> : check-password
> password .addr @ if
> 0 autoboot
> false >r
> begin
> bell emit bell emit
> ." Password: "
> password .len @ read-password
> dup password .len @ = if
> 2dup password .addr @ password .len @
> compare 0= if r> drop true >r then
> then
> drop free drop
> r@
> until
> r> drop
> then
> ;
>