kEnter .EQU 05h ; Touche Enter #define equ .equ ; Pour les fichiers .inc de Ti #define EQU .equ .NOLIST .INCLUDE "ti83asm.inc" .INCLUDE "tokens.inc" .LIST .ORG 9327h ; Adr pour tous les programmmes pour TI83 ld hl,debut call aff CALL enter ld hl,marche call aff CALL enter ld hl,alphabet call aff ld hl,accent call aff ld hl,grec call aff CALL enter call _clrlcdfull ld hl,fait call aff ld hl,nom call aff ld hl,email call aff RET aff: call _newline call _puts RET enter: EI PUSH HL eloop: CALL _GETKEY ; attend une touche CP kEnter ; touche entree ? JR NZ, eloop ; non POP HL RET debut: .DB "Des accents ?",0 nom: .DB "G–r¨me Billois (Neuro)",0 marche: .DB "C'est possible avec l'ASM !",0 alphabet: .DB "les minuscules:" .DB "abcdefghijklmnopqrstuuwxyz" .DB 0 accent: .DB "les accents: –—˜™",0 grec: .DB "et les lettres grecs: »¼½¾¿ ",0 fait: .DB "Petit programme de:",0 email: .DB "gbillois@mail.fc-net.fr",0 .END