movem.l a0-a1/a5/d0-d2,-(a7)
 move.l  200,a5
 move.l  572(a5),a0;HeapAvail
 jsr     (a0)
 move.l  d0,-(a7)
 moveq   #0,d0
 move.w  #748,d0
 move.l  d0,-(a7)
 move.l  2636(a5),a0;XR_stringPtr
 jsr     (a0)
 move.l  a0,-(a7)
 pea     heap_avail_str(pc)
 pea     buffer(pc)
 move.l  332(a5),a0
 jsr     (a0)
 move.w  #4,-(a7)
 pea     buffer(pc)
 move.w  #0,-(a7); ordonnée
 move.w  #0,-(a7); abcisse
 move.l  1700(a5),a0
 jsr     (a0)
 lea     30(a7),a7
 movem.l (a7)+,a0-a1/a5/d0-d2
 rts
heap_avail_str:
 dc.b    '%s : %ld',0
buffer:
 ds.b     40
 even