; Replacement for _AddAppIconA

      xdef  _AddAppIconA
      xref  _WorkbenchBase
      xref  _LVOAddAppIconA

      SECTION AddAppIconA,CODE

_AddAppIconA
      movem.l  a2-a4/a6,-(a7)
      move.l   _WorkbenchBase(a4),a6
      movem.l  20(a7),d0-d1/a0-a4
      jsr      _LVOAddAppIconA(a6)
      movem.l  (a7)+,a2-a4/a6
      rts

      END