home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / BEOL96 / CLS_CLEAN.ASM < prev    next >
Encoding:
Assembly Source File  |  1999-06-12  |  908 b   |  47 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5.  
  6.  
  7.  
  8.  
  9.     SECTION S_0,CODE
  10.  
  11. SECSTRT_0:
  12.     MOVEA.L    (ABSEXECBASE).W,A6    ;00: 2C780004
  13.     LEA    LAB_0003(PC),A1        ;04: 43FA0034
  14.     MOVE.L    #$0000001F,D0        ;08: 203C0000001F
  15.     JSR    -552(A6)        ;0E: 4EAEFDD8
  16.     MOVEA.L    D0,A6            ;12: 2C40
  17.     BEQ.S    LAB_0002        ;14: 6720
  18.     JSR    -60(A6)            ;16: 4EAEFFC4
  19.     MOVE.L    D0,D1            ;1A: 2200
  20.     LEA    LAB_0004(PC),A0        ;1C: 41FA0028
  21.     MOVE.L    A0,D2            ;20: 2408
  22.     MOVEQ    #4,D3            ;22: 7604
  23.     JSR    -48(A6)            ;24: 4EAEFFD0
  24.     TST.L    D0            ;28: 4A80
  25.     BMI.S    LAB_0001        ;2A: 6B04
  26.     MOVEQ    #0,D0            ;2C: 7000
  27. LAB_0000:
  28.     RTS                ;2E: 4E75
  29. LAB_0001:
  30.     JSR    -132(A6)        ;30: 4EAEFF7C
  31.     BRA.S    LAB_0000        ;34: 60F8
  32. LAB_0002:
  33.     MOVEQ    #20,D0            ;36: 7014
  34.     RTS                ;38: 4E75
  35. LAB_0003:
  36.     DC.W    $646F            ;3A
  37.     DC.W    $732E            ;3C
  38.     DC.W    $6C69            ;3E
  39.     DC.W    $6272            ;40
  40.     DC.W    $6172            ;42
  41.     DC.W    $7900            ;44
  42. LAB_0004:
  43.     SUBX    -(A0),-(A5)        ;46: 9B48
  44.     SUBX    -(A2),-(A5)        ;48: 9B4A
  45.     DC.W    $0000            ;4A
  46.     END
  47.