home *** CD-ROM | disk | FTP | other *** search
/ telefisk.org / amiga_virus_collection_research.7z / VIRUSRESEARCH / ZAKAPIOR / POOLMEM / PGS_PATCHMEM.ASM < prev    next >
Assembly Source File  |  1999-07-14  |  2KB  |  63 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.     MOVEA.L    A6,A1            ;04: 224E
  14.     MOVEA.L    #$FFFFFF3A,A0        ;06: 207CFFFFFF3A
  15.     LEA    LAB_0003(PC),A2        ;0C: 45FA003E
  16.     MOVE.L    A2,D0            ;10: 200A
  17.     JSR    -132(A6)        ;12: 4EAEFF7C
  18.     JSR    -420(A6)        ;16: 4EAEFE5C
  19.     LEA    LAB_0001(PC),A0        ;1A: 41FA0028
  20.     MOVE.L    D0,(A0)            ;1E: 2080
  21.     MOVEA.L    A6,A1            ;20: 224E
  22.     MOVEA.L    #$FFFFFF2E,A0        ;22: 207CFFFFFF2E
  23.     LEA    LAB_0004(PC),A2        ;28: 45FA004A
  24.     MOVE.L    A2,D0            ;2C: 200A
  25.     JSR    -420(A6)        ;2E: 4EAEFE5C
  26.     LEA    LAB_0002(PC),A0        ;32: 41FA0014
  27.     MOVE.L    D0,(A0)            ;36: 2080
  28.     JSR    -138(A6)        ;38: 4EAEFF76
  29. LAB_0000:
  30.     MOVEQ    #0,D0            ;3C: 7000
  31.     JSR    -318(A6)        ;3E: 4EAEFEC2
  32.     BRA.S    LAB_0000        ;42: 60F8
  33. LAB_0001:
  34.     ORI.B    #$00,D0            ;44: 00000000
  35. LAB_0002:
  36.     ORI.B    #$00,D0            ;48: 00000000
  37. LAB_0003:
  38.     MOVEM.L    D5/A0/A3,-(A7)        ;4C: 48E70490
  39.     MOVE.L    D0,D5            ;50: 2A00
  40.     ADDI.L    #$00000044,D0        ;52: 068000000044
  41.     MOVEA.L    LAB_0001(PC),A0        ;58: 207AFFEA
  42.     JSR    (A0)            ;5C: 4E90
  43.     ADDI.L    #$00000040,D0        ;5E: 068000000040
  44.     MOVEA.L    D0,A3            ;64: 2640
  45.     ADDA.L    D5,A3            ;66: D7C5
  46.     MOVE.L    #$ABCDEF42,(A3)        ;68: 26BCABCDEF42
  47.     MOVEM.L    (A7)+,D5/A0/A3        ;6E: 4CDF0920
  48.     RTS                ;72: 4E75
  49. LAB_0004:
  50.     MOVEM.L    A0/A3,-(A7)        ;74: 48E70090
  51.     MOVEA.L    A1,A3            ;78: 2649
  52.     ADDA.L    D0,A3            ;7A: D7C0
  53.     CMPI.L    #$ABCDEF42,(A3)        ;7C: 0C93ABCDEF42
  54.     BNE.S    LAB_0005        ;82: 660C
  55.     SUBA.L    #$00000040,A1        ;84: 93FC00000040
  56.     ADDI.L    #$00000044,D0        ;8A: 068000000044
  57. LAB_0005:
  58.     MOVEA.L    LAB_0002(PC),A0        ;90: 207AFFB6
  59.     JSR    (A0)            ;94: 4E90
  60.     MOVEM.L    (A7)+,A0/A3        ;96: 4CDF0900
  61.     RTS                ;9A: 4E75
  62.     END
  63.