home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STMAGAZIN / STMAGAZIN.MSA / VIRUSWAC.HT / OUTBOOT.S next >
Text File  |  1986-02-06  |  1KB  |  64 lines
  1. section text
  2.  
  3. pea    msg1        ; start mit meldung
  4.     move.w    #9,-(a7)
  5.     trap    #1
  6.     addq.l    #6,a7
  7.     move.w    #7,-(a7)
  8.     trap    #1
  9.     addq.l    #2,a7
  10.     
  11.     clr.w    -(a7)        ; lese Bootsektor
  12.     clr.w    -(a7)
  13.     move.w    #1,-(a7)
  14.     pea    buffer(pc)
  15.     move.w    #2,-(a7)
  16.     move.w    #4,-(a7)
  17.     trap    #13
  18.     lea    14(a7),a7
  19.     
  20.     lea    buffer(pc),a0    ; eigener Code Übertragen
  21.     move.w    #$6038,(a0)
  22.     lea    $3a(a0),a0
  23.     lea    mycode(pc),a1
  24.     move.w    #endcod-mycode,d0
  25.     lsr.w    #1,d0
  26. loop:    move.w    (a1)+,(a0)+
  27.     dbra    d0,loop
  28.     
  29.     move.w    #1,-(a7)    ; Protobt : Bootsektor generieren
  30.     move.w    #-1,-(a7)
  31.     move.l    #-1,-(a7)
  32.     pea    buffer(pc)
  33.     move.w    #18,-(a7)
  34.     trap    #14
  35.     lea    14(a7),a7
  36.     
  37.     clr.w    -(a7)        ; und schreiben
  38.     clr.w    -(a7)
  39.     move.w    #1,-(a7)
  40.     pea    buffer(pc)
  41.     move.w    #3,-(a7)
  42.     move.w    #4,-(a7)
  43.     trap    #13
  44.     lea    14(a7),a7
  45.     
  46.     clr.w    -(a7)
  47.     trap    #1
  48.     
  49. mycode: pea    msg(pc)
  50.     move.w    #9,-(a7)
  51.     trap    #1
  52.     addq.l    #6,a7
  53.     rts
  54. msg:    dc.b    7,'>>Diskette ohne Virus<< ST-Magazin 1988',13,10,7,0
  55. endcod:
  56.     section data
  57. msg1:    dc.b    'Bootsektor vor Viren schützen! ',189,'`88 by M.Bernards',13,10
  58.     dc.b    'Insert Disk in Drive A: and press any key ',0
  59.  
  60.     section bss
  61.     even
  62. buffer    ds.w    256
  63.