.xdef _ti92plus .xdef _nostub .include "kernel.h" __main: pea.l 3840*2+8 RC HeapAllocPtr movea.l %a0,%a2 move.l %a0,%d0 addq.l #7,%d0 andi.b #~7,%d0 move.l %d0,%d1 addi.l #3840,%d1 bsr GribOn RC ngetchx move.l %a2,(%sp) RC HeapFreePtr addq.l #4,%sp rts