/	PASSWORD
/	LOAD PASSWD=2000/8/9/P

	*2000
	XLIST

	NOP
L,	CLA
	TAD PK
	DCA L
RTRY,	TAD (BUF-1
	DCA 13
	JMS TXT
	15
	12
	"#
	JMS KBD
	TLS
	JMS TXT
	15
	12
	"P
	"A
	"S
	"S
	"W
	"O
	"R
	"D
	":
	JMS KBD
	JMP LD
	TAD (223
	DCA I 13
	TAD (232
	DCA I 13
	CIF 10
	JMS 7700
	10
	TAD (21
	CIF 10
	JMS 200
	3
ARG1,	FNAM
	0
	JMS ERR
	TAD ARG1
	DCA ARG2
	JMS 7607
	4200
	BUF
ARG2,	7777
	JMS ERR
	CLA IAC
PKC,	CIF 10
	JMS 200
	4
	FNAM
	1
	JMS ERR
PK,	JMP 7605
ERR,	0
	CLA CLL CMA RTL
	TAD ERR
	DCA 13
	TAD 13
	DCA 14
	TAD PKC
	DCA I 13
	TAD PKC+1
	DCA I 13
	TAD (7
	DCA I 13
	CLA CLL IAC RAL
	DCA I 13
	JMP I 14
TXT,	0
	TAD I TXT
	SPA
	JMP I TXT
	TLS
	TSF
	JMP .-1
	CLA
	ISZ TXT
	JMP TXT+1
KBD,	0
	CLA
	TAD I KBD
	ISZ KBD
	DCA SW
KBC,	KSF
	JMP .-1
	KRB
	AND (177
SW,	HLT
	TSF
	JMP .-1
LD,	TAD (-177
	SNA
	JMP RTRY
	TAD (177-15
	SNA
	JMP KBE
	TAD (15
	DCA I 13
	JMP KBC
KBE,	TAD (15
	DCA I 13
	TAD (12
	DCA I 13
	JMP I KBD
	XLIST
FNAM,	FILENAME PASSWD.SX

	PAGE

BUF,	ZBLOCK 200

	$