� Password Routine
� by G.W.Hetherington
� (c) The Micro User
(� February 1991
2�:� Password installer
<�� "Please enter your 7 character password."'"You will be asked to confirm it before"'"it is stored. (Anything longer than 7"'"characters will be truncated.)"''": ";:�""PW$
F"� �2,5)�37," "):� �2,5)�PW$,7)
Pt� '"Is this correct (Y/N) ?";:�:G=(� � &DF):� G=78 � G=89:� G=78 � �0,7)�39," "):� �2,5)�10," "):� �2,5);:� �Th@
Z}char=0:byte=39:� loop=1 � 7:char=char+1:byte=byte+1:�"FX 162 "+�byte+" "+�(�(�PW$,char,1))):�:� ''"Password installed."''
d� Create *PW object code
nApword=&70:oswrch=&FFEE:osrdch=&FFE0:osnewl=&FFE7:osbyte=&FFF4
x� pass=0 � 2 �2:P%=&900
�J[OPT pass:LDA #&F:LDX #0:LDY #0:JSR osbyte:LDA #&C:JSR oswrch:LDX #&FF
�j.prompt INX:LDA question,X:JSR oswrch:CPX #9:BNE prompt:LDX #&FF:JMP getpw:.question EQUS "Password ?"
�H.getpw INX:JSR osrdch:STA pword,X:CPX #6:BNE getpw:LDA #&A1:LDX #&27
�u.compare INX:PHA:PHX:JSR osbyte:PLX:TYA:CMP &48,X:BNE dud:PLA:CPX #&2E:BNE compare:LDX #&FF:JSR osnewl:JSR osnewl
�2.ok INX:LDA correct,X:JSR oswrch:CPX #7:BNE ok
�F.correct EQUS "Correct!":LDX #&FF:JSR osnewl:JSR osnewl:JMP change
�1.dud PLA:LDA #7:JSR oswrch:LDX #&FF:JMP getpw
�].change INX:LDA ask,X:JSR oswrch:CPX #&16:BNE change:JSR osrdch:� #&DF:CMP #&59:BEQ alter
�JSR osnewl:JSR osnewl:RTS
�M.ask EQUS "Change Password (Y/N) ?":.alter LDX #&FF:JSR osnewl:JSR osnewl
�B.enter INX:LDA prompt2,X:JSR oswrch:CPX #&C:BNE enter:LDX #&FF
�].word INX:JSR osrdch:STA pword,X:CPX #&6:BNE word:JSR osnewl:JSR osnewl:LDA #&A2:LDX #&27
�B.store INX:PHX:LDY &48,X:JSR osbyte:PLX:CPX #&2E:BNE store:RTS

@.prompt2 EQUS "Enter word : ":]:� pass:� "SAVE PW 900 "+�~P%

� '"PW Code saved.":�
�

00000000  0d 00 0a 16 f4 20 50 61  73 73 77 6f 72 64 20 52  |..... Password R|
00000010  6f 75 74 69 6e 65 0d 00  14 19 f4 20 62 79 20 47  |outine..... by G|
00000020  2e 57 2e 48 65 74 68 65  72 69 6e 67 74 6f 6e 0d  |.W.Hetherington.|
00000030  00 1e 18 f4 20 28 63 29  20 54 68 65 20 4d 69 63  |.... (c) The Mic|
00000040  72 6f 20 55 73 65 72 0d  00 28 13 f4 20 46 65 62  |ro User..(.. Feb|
00000050  72 75 61 72 79 20 31 39  39 31 0d 00 32 1a db 3a  |ruary 1991..2..:|
00000060  f4 20 50 61 73 73 77 6f  72 64 20 69 6e 73 74 61  |. Password insta|
00000070  6c 6c 65 72 0d 00 3c af  f1 20 22 50 6c 65 61 73  |ller..<.. "Pleas|
00000080  65 20 65 6e 74 65 72 20  79 6f 75 72 20 37 20 63  |e enter your 7 c|
00000090  68 61 72 61 63 74 65 72  20 70 61 73 73 77 6f 72  |haracter passwor|
000000a0  64 2e 22 27 22 59 6f 75  20 77 69 6c 6c 20 62 65  |d."'"You will be|
000000b0  20 61 73 6b 65 64 20 74  6f 20 63 6f 6e 66 69 72  | asked to confir|
000000c0  6d 20 69 74 20 62 65 66  6f 72 65 22 27 22 69 74  |m it before"'"it|
000000d0  20 69 73 20 73 74 6f 72  65 64 2e 20 28 41 6e 79  | is stored. (Any|
000000e0  74 68 69 6e 67 20 6c 6f  6e 67 65 72 20 74 68 61  |thing longer tha|
000000f0  6e 20 37 22 27 22 63 68  61 72 61 63 74 65 72 73  |n 7"'"characters|
00000100  20 77 69 6c 6c 20 62 65  20 74 72 75 6e 63 61 74  | will be truncat|
00000110  65 64 2e 29 22 27 27 22  3a 20 22 3b 3a e8 22 22  |ed.)"''": ";:.""|
00000120  50 57 24 0d 00 46 22 f1  20 8a 32 2c 35 29 c4 33  |PW$..F". .2,5).3|
00000130  37 2c 22 20 22 29 3a f1  20 8a 32 2c 35 29 c0 50  |7," "):. .2,5).P|
00000140  57 24 2c 37 29 0d 00 50  74 f1 20 27 22 49 73 20  |W$,7)..Pt. '"Is |
00000150  74 68 69 73 20 63 6f 72  72 65 63 74 20 28 59 2f  |this correct (Y/|
00000160  4e 29 20 3f 22 3b 3a f5  3a 47 3d 28 a5 20 80 20  |N) ?";:.:G=(. . |
00000170  26 44 46 29 3a fd 20 47  3d 37 38 20 84 20 47 3d  |&DF):. G=78 . G=|
00000180  38 39 3a e7 20 47 3d 37  38 20 f1 20 8a 30 2c 37  |89:. G=78 . .0,7|
00000190  29 c4 33 39 2c 22 20 22  29 3a f1 20 8a 32 2c 35  |).39," "):. .2,5|
000001a0  29 c4 31 30 2c 22 20 22  29 3a f1 20 8a 32 2c 35  |).10," "):. .2,5|
000001b0  29 3b 3a e5 20 8d 54 68  40 0d 00 5a 7d 63 68 61  |);:. .Th@..Z}cha|
000001c0  72 3d 30 3a 62 79 74 65  3d 33 39 3a e3 20 6c 6f  |r=0:byte=39:. lo|
000001d0  6f 70 3d 31 20 b8 20 37  3a 63 68 61 72 3d 63 68  |op=1 . 7:char=ch|
000001e0  61 72 2b 31 3a 62 79 74  65 3d 62 79 74 65 2b 31  |ar+1:byte=byte+1|
000001f0  3a ff 22 46 58 20 31 36  32 20 22 2b c3 62 79 74  |:."FX 162 "+.byt|
00000200  65 2b 22 20 22 2b c3 28  97 28 c1 50 57 24 2c 63  |e+" "+.(.(.PW$,c|
00000210  68 61 72 2c 31 29 29 29  3a ed 3a f1 20 27 27 22  |har,1))):.:. ''"|
00000220  50 61 73 73 77 6f 72 64  20 69 6e 73 74 61 6c 6c  |Password install|
00000230  65 64 2e 22 27 27 0d 00  64 1c f4 20 43 72 65 61  |ed."''..d.. Crea|
00000240  74 65 20 2a 50 57 20 6f  62 6a 65 63 74 20 63 6f  |te *PW object co|
00000250  64 65 0d 00 6e 41 70 77  6f 72 64 3d 26 37 30 3a  |de..nApword=&70:|
00000260  6f 73 77 72 63 68 3d 26  46 46 45 45 3a 6f 73 72  |oswrch=&FFEE:osr|
00000270  64 63 68 3d 26 46 46 45  30 3a 6f 73 6e 65 77 6c  |dch=&FFE0:osnewl|
00000280  3d 26 46 46 45 37 3a 6f  73 62 79 74 65 3d 26 46  |=&FFE7:osbyte=&F|
00000290  46 46 34 0d 00 78 1b e3  20 70 61 73 73 3d 30 20  |FF4..x.. pass=0 |
000002a0  b8 20 32 20 88 32 3a 50  25 3d 26 39 30 30 0d 00  |. 2 .2:P%=&900..|
000002b0  82 4a 5b 4f 50 54 20 70  61 73 73 3a 4c 44 41 20  |.J[OPT pass:LDA |
000002c0  23 26 46 3a 4c 44 58 20  23 30 3a 4c 44 59 20 23  |#&F:LDX #0:LDY #|
000002d0  30 3a 4a 53 52 20 6f 73  62 79 74 65 3a 4c 44 41  |0:JSR osbyte:LDA|
000002e0  20 23 26 43 3a 4a 53 52  20 6f 73 77 72 63 68 3a  | #&C:JSR oswrch:|
000002f0  4c 44 58 20 23 26 46 46  0d 00 8c 6a 2e 70 72 6f  |LDX #&FF...j.pro|
00000300  6d 70 74 20 49 4e 58 3a  4c 44 41 20 71 75 65 73  |mpt INX:LDA ques|
00000310  74 69 6f 6e 2c 58 3a 4a  53 52 20 6f 73 77 72 63  |tion,X:JSR oswrc|
00000320  68 3a 43 50 58 20 23 39  3a 42 4e 45 20 70 72 6f  |h:CPX #9:BNE pro|
00000330  6d 70 74 3a 4c 44 58 20  23 26 46 46 3a 4a 4d 50  |mpt:LDX #&FF:JMP|
00000340  20 67 65 74 70 77 3a 2e  71 75 65 73 74 69 6f 6e  | getpw:.question|
00000350  20 45 51 55 53 20 22 50  61 73 73 77 6f 72 64 20  | EQUS "Password |
00000360  3f 22 0d 00 96 48 2e 67  65 74 70 77 20 49 4e 58  |?"...H.getpw INX|
00000370  3a 4a 53 52 20 6f 73 72  64 63 68 3a 53 54 41 20  |:JSR osrdch:STA |
00000380  70 77 6f 72 64 2c 58 3a  43 50 58 20 23 36 3a 42  |pword,X:CPX #6:B|
00000390  4e 45 20 67 65 74 70 77  3a 4c 44 41 20 23 26 41  |NE getpw:LDA #&A|
000003a0  31 3a 4c 44 58 20 23 26  32 37 0d 00 a0 75 2e 63  |1:LDX #&27...u.c|
000003b0  6f 6d 70 61 72 65 20 49  4e 58 3a 50 48 41 3a 50  |ompare INX:PHA:P|
000003c0  48 58 3a 4a 53 52 20 6f  73 62 79 74 65 3a 50 4c  |HX:JSR osbyte:PL|
000003d0  58 3a 54 59 41 3a 43 4d  50 20 26 34 38 2c 58 3a  |X:TYA:CMP &48,X:|
000003e0  42 4e 45 20 64 75 64 3a  50 4c 41 3a 43 50 58 20  |BNE dud:PLA:CPX |
000003f0  23 26 32 45 3a 42 4e 45  20 63 6f 6d 70 61 72 65  |#&2E:BNE compare|
00000400  3a 4c 44 58 20 23 26 46  46 3a 4a 53 52 20 6f 73  |:LDX #&FF:JSR os|
00000410  6e 65 77 6c 3a 4a 53 52  20 6f 73 6e 65 77 6c 0d  |newl:JSR osnewl.|
00000420  00 aa 32 2e 6f 6b 20 49  4e 58 3a 4c 44 41 20 63  |..2.ok INX:LDA c|
00000430  6f 72 72 65 63 74 2c 58  3a 4a 53 52 20 6f 73 77  |orrect,X:JSR osw|
00000440  72 63 68 3a 43 50 58 20  23 37 3a 42 4e 45 20 6f  |rch:CPX #7:BNE o|
00000450  6b 0d 00 b4 46 2e 63 6f  72 72 65 63 74 20 45 51  |k...F.correct EQ|
00000460  55 53 20 22 43 6f 72 72  65 63 74 21 22 3a 4c 44  |US "Correct!":LD|
00000470  58 20 23 26 46 46 3a 4a  53 52 20 6f 73 6e 65 77  |X #&FF:JSR osnew|
00000480  6c 3a 4a 53 52 20 6f 73  6e 65 77 6c 3a 4a 4d 50  |l:JSR osnewl:JMP|
00000490  20 63 68 61 6e 67 65 0d  00 be 31 2e 64 75 64 20  | change...1.dud |
000004a0  50 4c 41 3a 4c 44 41 20  23 37 3a 4a 53 52 20 6f  |PLA:LDA #7:JSR o|
000004b0  73 77 72 63 68 3a 4c 44  58 20 23 26 46 46 3a 4a  |swrch:LDX #&FF:J|
000004c0  4d 50 20 67 65 74 70 77  0d 00 c8 5d 2e 63 68 61  |MP getpw...].cha|
000004d0  6e 67 65 20 49 4e 58 3a  4c 44 41 20 61 73 6b 2c  |nge INX:LDA ask,|
000004e0  58 3a 4a 53 52 20 6f 73  77 72 63 68 3a 43 50 58  |X:JSR oswrch:CPX|
000004f0  20 23 26 31 36 3a 42 4e  45 20 63 68 61 6e 67 65  | #&16:BNE change|
00000500  3a 4a 53 52 20 6f 73 72  64 63 68 3a 80 20 23 26  |:JSR osrdch:. #&|
00000510  44 46 3a 43 4d 50 20 23  26 35 39 3a 42 45 51 20  |DF:CMP #&59:BEQ |
00000520  61 6c 74 65 72 0d 00 d2  1d 4a 53 52 20 6f 73 6e  |alter....JSR osn|
00000530  65 77 6c 3a 4a 53 52 20  6f 73 6e 65 77 6c 3a 52  |ewl:JSR osnewl:R|
00000540  54 53 0d 00 dc 4d 2e 61  73 6b 20 45 51 55 53 20  |TS...M.ask EQUS |
00000550  22 43 68 61 6e 67 65 20  50 61 73 73 77 6f 72 64  |"Change Password|
00000560  20 28 59 2f 4e 29 20 3f  22 3a 2e 61 6c 74 65 72  | (Y/N) ?":.alter|
00000570  20 4c 44 58 20 23 26 46  46 3a 4a 53 52 20 6f 73  | LDX #&FF:JSR os|
00000580  6e 65 77 6c 3a 4a 53 52  20 6f 73 6e 65 77 6c 0d  |newl:JSR osnewl.|
00000590  00 e6 42 2e 65 6e 74 65  72 20 49 4e 58 3a 4c 44  |..B.enter INX:LD|
000005a0  41 20 70 72 6f 6d 70 74  32 2c 58 3a 4a 53 52 20  |A prompt2,X:JSR |
000005b0  6f 73 77 72 63 68 3a 43  50 58 20 23 26 43 3a 42  |oswrch:CPX #&C:B|
000005c0  4e 45 20 65 6e 74 65 72  3a 4c 44 58 20 23 26 46  |NE enter:LDX #&F|
000005d0  46 0d 00 f0 5d 2e 77 6f  72 64 20 49 4e 58 3a 4a  |F...].word INX:J|
000005e0  53 52 20 6f 73 72 64 63  68 3a 53 54 41 20 70 77  |SR osrdch:STA pw|
000005f0  6f 72 64 2c 58 3a 43 50  58 20 23 26 36 3a 42 4e  |ord,X:CPX #&6:BN|
00000600  45 20 77 6f 72 64 3a 4a  53 52 20 6f 73 6e 65 77  |E word:JSR osnew|
00000610  6c 3a 4a 53 52 20 6f 73  6e 65 77 6c 3a 4c 44 41  |l:JSR osnewl:LDA|
00000620  20 23 26 41 32 3a 4c 44  58 20 23 26 32 37 0d 00  | #&A2:LDX #&27..|
00000630  fa 42 2e 73 74 6f 72 65  20 49 4e 58 3a 50 48 58  |.B.store INX:PHX|
00000640  3a 4c 44 59 20 26 34 38  2c 58 3a 4a 53 52 20 6f  |:LDY &48,X:JSR o|
00000650  73 62 79 74 65 3a 50 4c  58 3a 43 50 58 20 23 26  |sbyte:PLX:CPX #&|
00000660  32 45 3a 42 4e 45 20 73  74 6f 72 65 3a 52 54 53  |2E:BNE store:RTS|
00000670  0d 01 04 40 2e 70 72 6f  6d 70 74 32 20 45 51 55  |...@.prompt2 EQU|
00000680  53 20 22 45 6e 74 65 72  20 77 6f 72 64 20 3a 20  |S "Enter word : |
00000690  22 3a 5d 3a ed 20 70 61  73 73 3a ff 20 22 53 41  |":]:. pass:. "SA|
000006a0  56 45 20 50 57 20 39 30  30 20 22 2b c3 7e 50 25  |VE PW 900 "+.~P%|
000006b0  0d 01 0e 19 f1 20 27 22  50 57 20 43 6f 64 65 20  |..... '"PW Code |
000006c0  73 61 76 65 64 2e 22 3a  e0 0d ff                 |saved.":...|
000006cb