Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-25 18:29:36 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93

Browse Source
This commit is contained in:
Rémy GIBERT 2019-04-10 06:51:25 +01:00
parent dc1fbce88f
commit dbf5c5b49d
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

18
BIN/USERADD.S.txt
View File

@ -7,6 +7,7 @@ NEW
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/LIBCRYPT.I
*--------------------------------------
* Zero Page Segment, up to 32 bytes
*--------------------------------------
@ -103,7 +104,18 @@ CS.RUN.ROOT sec
bcs .9
jsr CS.RUN.GetStr
clc
bcs .9
>PUSHEA.G PW+S.PW.PASSWD
>PUSHW ZPStrPtr
>LIBCALL hLIBCRYPT,LIBCRYPT.MD5
>LEA.G PW+S.PW.PASSWD
>SYSCALL puts
lda #0
sec
.9 rts
*--------------------------------------
CS.RUN.GetStr stz ZPStrLen
@ -185,8 +197,8 @@ CS.END
* Initialized DATA
*--------------------------------------
MSG.USAGE .AZ "Usage : USERADD username\r\n"
MSG.ROOTPWD1 .AZ "Please enter ROOT password : "
MSG.ROOTPWD2 .AZ "Please retype ROOT password : "
MSG.ROOTPWD1 .AZ "\r\nPlease enter ROOT password : "
MSG.ROOTPWD2 .AZ "\r\nPlease retype ROOT password : "
MSG.BS .DA #C.BS,#C.SPACE,#C.BS,#0
*--------------------------------------
LIBCRYPT .AZ "libcrypt"