Axiom

[Ti64CLi++]

Bonjour, je voudrais créer un Axiom qui permettrait de convertir un nombre en chaine de caractères.
J'ai écris ce code, mais il ne marche pas :

Code: Select all

.nolist
#include "tokenhook.inc"
#include "Axe.inc"
.list
   .dw   0C0DEh
   .dw   EndAxiom
   .db   0
   .db   tAngle, 0
   .db   0
   .db   1
   org   00h
   B_CALL   _ZeroOP1
   B_CALL   _Mov9ToOP1
   ld   a, 6
   B_CALL   _FormERealTok
   ld   de, Temp
   ld   hl, OP3
   push   bc
   ldir
   ld   hl, Temp
   ret

Temp:
   .db   0, 0, 0, 0, 0
EndAxiom:
   .dw   hAngle
   .db   6
   .db   "ToStr("