home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / MAXONC3_6OF8.DMS / in.adf / LIBSRC.LHA / LIBSRC / destruct.asm < prev    next >
Encoding:
Assembly Source File  |  1994-05-14  |  649 b   |  40 lines
  1. *    Maxon C++ Library:
  2. *    Modul "destruct.asm"
  3. *    Jens Gelhar 14.05.94
  4.  
  5.  
  6.     xref    sym_handlers
  7.  
  8.  
  9.     section    s1,CODE
  10.  
  11.     xdef    lib_destruct_a0
  12. lib_destruct_a0:
  13.     ; Destruktor-Eintrag a0 vom Handler-Stack entfernen und ausführen
  14.     movem.l    d0/d1/a0/a1,-(a7)
  15.     move.l    (a0)+,sym_handlers
  16.     move.l    (a0)+,a1
  17.     move.l    (a0)+,-(a7)
  18.     jsr    (a1)
  19.     addq.l    #4,a7
  20.     movem.l    (a7)+,d0/d1/a0/a1
  21.     rts
  22.  
  23.  
  24.     section s2,CODE
  25.  
  26.     xdef    lib_destruct
  27. lib_destruct:
  28.     ; wie oben, aber der Zeiger wird hier auf dem Stack übergeben
  29.     movem.l    d0/d1/a0/a1,-(a7)
  30.     move.l    5*4(a7),a0
  31.     move.l    (a0)+,sym_handlers
  32.     move.l    (a0)+,a1
  33.     move.l    (a0)+,-(a7)
  34.     jsr    (a1)
  35.     addq.l    #4,a7
  36.     movem.l    (a7)+,d0/d1/a0/a1
  37.     rts
  38.  
  39.     end
  40.