;$VER: ND.s v1.00 (28-Jan-98)
;Code by Zebedee/A51

;Make the computer think that a disk has been inserted into the drive.
;Usage  : ND [unit]
;Example: ND 1
;Where <unit> is 0-3

	section	main,code

ProgStart
	cmp.b	#1,d0
	beq.b	.skip
	lea	Drive(pc),a1
	move.b	(a0),2(a1)
.skip	move.l	4.w,a6
	lea	DosName(pc),a1
	moveq.l	#0,d0
	jsr	-$228(a6)	;OpenLibrary(a1,d0)exec
	move.l	d0,a5
	beq.b	Quit
	move.l	d0,a6
	lea	Drive(pc),a1
	move.l	a1,d1
	jsr	-$ae(a6)	;DeviceProc(d1)dos
	move.l	d0,a4
	beq.b	ClDos
	move.l	d0,d1
	moveq.l	#$1f,d2
	moveq.l	#-1,d3
	moveq.l	#0,d4
	jsr	-$f0(a6)	;DoPkt(d1,d2,d3,d4,d5,d6)dos
	tst.l	d0
	beq.b	ClDos
	move.l	d4,d3
	move.l	a4,d1
	jsr	-$f0(a6)	;DoPkt(d1,d2,d3,d4,d5,d6)dos
ClDos	move.l	4.w,a6
	move.l	a5,a1
	jsr	-$19e(a6)	;CloseLibrary(a1)exec
Quit	moveq.l	#0,d0
	moveq.l	#0,d1
	rts

DosName	dc.b	'dos.library',0
Drive	dc.b	'DF0:',0
	end