Une partie viens du tuto de squale et une autre du topic sur les debuts de orion_ (d'ailleurs quand on voit ce qu'il fait aujourd'hui !).
Voici le code :
section ".data" include "OS.h" xdef _nostub xdef _ti89 _main: link a6,#0 move.l $c8,a5 ;sauvegarde l'ecran pea.l 3840 move.l HeapAllocPtr*4(a5),a0 jsr (a0) move.l a0,d4 tst.l d4 beq nomem move.l #3840,(a7) pea.l LCD_MEM move.l d4,-(a7) move.l memcpy*4(a5),a0 jsr (a0) ;affiche "Hello, World!" en 30,0 move.w #4,-(a7) pea.l string(pc) move.w #0,-(a7) move.w #30,-(a7) move.l DrawStr*4(a5),a0 jsr (a0) ;attend qu'on appuie sur une touche move.l ngetchx*4(a5),a0 jsr (a0) ;restore l'ecran pea.l 3840 move.l d4,-(a7) pea.l LCD_MEM move.l memcpy*4(a5),a0 jsr (a0) move.l d4,(a7) move.l HeapFreePtr*4(a5),a0 jsr (a0) nomem: unlk a6 rts string: dc.b "Hello, World!",0