home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 83 / asm / source / char.z80 next >
Encoding:
Text File  |  2001-07-01  |  1.6 KB  |  93 lines
  1. kEnter .EQU  05h                                ; Touche Enter 
  2.  
  3. #define equ     .equ                            ; Pour les fichiers .inc de Ti
  4. #define EQU    .equ
  5.  
  6. .NOLIST
  7. .INCLUDE "ti83asm.inc"                  
  8. .INCLUDE "tokens.inc"
  9. .LIST
  10.  
  11. .ORG     9327h                                  ; Adr pour tous les programmmes pour TI83 
  12.  
  13.  
  14.     ld      hl,debut
  15.     call    aff
  16.  
  17.     CALL    enter
  18.   
  19.     ld      hl,marche
  20.     call    aff
  21.  
  22.     CALL    enter
  23.  
  24.     ld      hl,alphabet
  25.     call    aff
  26.  
  27.     ld      hl,accent
  28.     call    aff
  29.  
  30.     ld      hl,grec
  31.     call    aff
  32.  
  33.     CALL    enter
  34.     call    _clrlcdfull
  35.  
  36.     ld      hl,fait
  37.     call    aff
  38.  
  39.     ld      hl,nom
  40.     call    aff
  41.  
  42.     ld      hl,email
  43.     call    aff
  44.  
  45.  
  46.     RET
  47.  
  48. aff:
  49.       call    _newline
  50.       call    _puts
  51.       RET
  52.  
  53. enter:
  54.     EI
  55.     PUSH    HL
  56.  
  57. eloop:
  58.     CALL    _GETKEY                             ; attend une touche
  59.     CP      kEnter                              ; touche entree ?
  60.     JR      NZ, eloop                ; non
  61.     POP     HL
  62.     RET
  63.  
  64.  
  65.  
  66. debut:
  67.         .DB             "Des accents ?",0        
  68.  
  69. nom:
  70.         .DB             "Gûr¿me Billois (Neuro)",0
  71.  
  72. marche:
  73.         .DB             "C'est possible avec l'ASM !",0
  74.  
  75. alphabet:
  76.         .DB             "les minuscules:"
  77.         .DB             "abcdefghijklmnopqrstuuwxyz"
  78.         .DB             0
  79.  
  80. accent:
  81.         .DB             "les accents: ûùÿÖ",0
  82.  
  83. grec:
  84.         .DB             "et les lettres grecs: ╗╝╜╛┐ ",0
  85.  
  86. fait:
  87.         .DB             "Petit programme de:",0
  88.  
  89. email:
  90.         .DB             "gbillois@mail.fc-net.fr",0
  91.  
  92. .END
  93.