home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / myreq.lha / faxvirus.s next >
Encoding:
Text File  |  1994-06-05  |  1.6 KB  |  102 lines
  1.  
  2.     section    lard,code
  3.  
  4. start:    IncDir    "DH0:Include/"
  5.     include    "sc:MyReq.ii"
  6.     
  7.     move.w    #FANCY_ON,My_Fancy
  8.  
  9.     bsr    _OpenMyReqs
  10.     beq    Error
  11.  
  12.     lea    test_text,a2
  13.     bsr    setup_alert
  14.  
  15.     move.w    #0,attempts
  16.  
  17. .loop    lea    scan_text,a2
  18.     bsr    setup_alert
  19.  
  20.     move.l    #$c0000,d0
  21. .loop2    lsr.l    #1,d7
  22.     sub.l    #1,d0
  23.     bne    .loop2
  24.  
  25.     bsr    finish_alert
  26.  
  27.     add.w    #1,attempts
  28.     cmp.w    #4,attempts
  29.     beq    Slagging
  30.  
  31.     lea    Error_text,a2
  32.     bsr    setup_alert
  33.  
  34.     cmp.l    #MY_OK,d7
  35.     beq    .loop
  36.  
  37. CloseInt    Bsr    _CloseMyReqs
  38.  
  39. Error    Moveq    #0,D0
  40.     Rts
  41.  
  42. Slagging:    lea    oktext,a0
  43.     bsr    _SetOkMsg
  44.  
  45.     lea    slag_text,a2
  46.     bsr    setup_alert
  47.  
  48.     bra    CloseInt
  49.  
  50.     *-------------------------------*
  51.  
  52. attempts:    dc.w    0
  53.  
  54.     *-------------------------------*
  55.  
  56. oktext:    dc.b    "STUPIDSTUPID"
  57.     
  58. test_text:    dc.b    3
  59.     dc.b    "No Fax Virus By Torch/LSD",0
  60.     dc.b    0
  61.     dc.b    "Version 1.0",0
  62.     dc.b    0
  63.     dc.b    "This program kills the FAX VIRUS",0
  64.     dc.b    "and all mutant strains",0
  65.     dc.b    0
  66.     dc.b    "Connect your FAX to Amiga via",0
  67.     dc.b    "serial cable (see documentation",0
  68.     dc.b    "for wiring details)",0
  69.  
  70. Error_text:    dc.b    2
  71.     dc.b    "NO FAX VIRUS - Version 1.0",0
  72.     dc.b    "Cannot connect to FAX",0
  73.     dc.b    "Check connections and try again",0
  74.  
  75. scan_text:    dc.b    0
  76.     dc.b    "NO FAX VIRUS - Version 1.0",0
  77.     dc.b    0
  78.     dc.b    "Connecting with FAX",0
  79.  
  80. slag_text:    dc.b    3
  81.     dc.b    "Fax Virus?",0
  82.     dc.b    0
  83.     dc.b    "If you think a fax can catch a ",0
  84.     dc.b    "virus and beleive you can connect",0
  85.     dc.b    "it to an Amiga via the serial",0
  86.     dc.b    "port you must be more stupid",0
  87.     dc.b    "than me for writing this!!",0
  88.     dc.b    0
  89.     dc.b    0
  90.     dc.b    0
  91.  
  92. ;junk:    incbin    "dh0:storage/propacker/mod.heatbeat"
  93.     
  94.     *-------------------------------*
  95.  
  96.     include    "sc:myreq.i"
  97.  
  98.  
  99.     end
  100.         
  101.  
  102.