start	move.l	$4,a6
        move.l	#dl,a1
	jsr	-408(a6)	;oldopenlib
	move.l	d0,a6
	jsr	-60(a6)
	move.l	d0,outp
	jsr	-54(a6)
	move.l	d0,inp
	move.l	outp,d1
	move.l	#txt,d2
	move.l	#txt1-txt,d3
	jsr	-48(a6)
	move.l	inp,d1
	move.l	#buf,d2
	move.l	8,d3
	jsr	-42(a6)
	move.l	#pass,a0
	move.l	#buf,a1
	move.l	#dl-pass,d0
pch	cmp.b	(a0)+,(a1)+
	bne	fault
	subq.l	#1,d0
	bne	pch
ok	rts
fault	move.l	#$f80000,a0
	jmp	(a0)	
	
inp	dc.l	0
outp	dc.l	0
buf	ds.b	80
pass	dc.b	'HUIB',$a
dl	dc.b	'dos.library',0
txt	dc.b	'Enter password:'
txt1