; Header File
; Created 14/10/2004; 21:11:56

alloc:
heapalloc:
 movem.l d1-d2/a0-a1,-(a7);/* [$398 (920)] 48 e7 60 c0       */
 move.l  d0,-(a7)
 movea.l 576(a5),a0;HeapAlloc
 jsr     (a0)
 addq.l  #4,a7
 movem.l (a7)+,d1-d2/a0-a1
 tst.w   d0
 rts
size:
heapsize:
 movem.l a0-a1/d1-d2,-(a7)
 move.w  d0,-(a7)
 move.l  632(a5),a0;HeapSize
 jsr     (a0)
 addq.l  #2,a7
 movem.l (a7)+,a0-a1/d1-d2
 rts
lock:
heaplock:
 movem.l d0-d2/a1,-(a7);   /* [$344 (836)]
 move.w  d0,-(a7)
 movea.l 616(a5),a0;HeapLock
 jsr     (a0)
 addq.l  #2,a7
 movem.l (a7)+,d0-d2/a1
 rts
unlock:
heapunlock:
 movem.l d0-d2/a1,-(a7);   /* [$344 (836)]
 move.w  d0,-(a7)
 movea.l 636(a5),a0;HeapUnlock
 jsr     (a0)
 addq.l  #2,a7
 movem.l (a7)+,d0-d2/a1
 rts
deref:
heapderef:
 movem.l d0-d2/a1,-(a7);   /* [$344 (836)]
 move.w  d0,-(a7)
 movea.l 600(a5),a0;HeapDeref
 jsr     (a0)
 addq.l  #2,a7
 movem.l (a7)+,d0-d2/a1
 rts
free:
heapfree:
 movem.l d0-d2/a1,-(a7);   /* [$344 (836)]
 tst.w   d0
 beq     \skip
 move.w  d0,-(a7)
 movea.l 604(a5),a0;HeapFree
 jsr     (a0)
 addq.l  #2,a7
\skip:
 movem.l (a7)+,d0-d2/a1
 rts
heaprealloc:
realloc:
 movem.l d1-d2/a0-a1,-(a7);/* [$3AC (940)] 48 e7 60 c0       */
 move.l  d0,-(a7)
 move.w  d1,-(a7)
 movea.l 628(a5),a0;HeapReAlloc
 jsr     (a0)
 addq.l  #6,a7
 movem.l (a7)+,d1-d2/a0-a1
 tst.w   d0
 rts


hex_to_dec:
;copie dans buffer la chaîne décimale de d0.l
;-> d0.l longueur de la chaîne
 movem.l d1-d2/a0-a1,-(a7)
 move.l  d0,-(a7)
 pea     \str(pc)
 pea     _buffer(pc)
 move.l  332(a5),a0;sprintf
 jsr     (a0)
 lea     12(a7),a7
 lea     _buffer(pc),a0
 move.l  a0,a1
\loop:
 tst.b   (a0)+
 bne     \loop
 subq.l  #1,a0
 sub.l   a1,a0
 move.l  a0,d0
 movem.l (a7)+,d1-d2/a0-a1
 rts
\str:
 dc.b    '%ld',0
 even