ASCII : 255 caractères

 


Voici un programme affichant tous les caractères de la ti. Si vous ne comprenez pas le programme, revenez-y après avoir lu les tut3/5/13.

ti83 :

.NOLIST
#define end .end
#define END .end
#define equ .equ
#define EQU .equ
#include "ti83asm.inc"
.LIST
#define charsav 8265h
.org $9327
    xor a
    ld a,16d
initdisp:
    call _clrlcdfull
    call _homeup
    ld b,16d
    ld hl,0000h
displine:
    ld (currow),hl
    call _putmap ; affiche le caractères correspondant à la valeur ds le registre a
    inc h
    inc a
    cp 242d
    jr z,quit
    djnz displine ; dec b et si b diffèrent de zéro alors jp label
    jr upline
upline:
    ld (charsav),a
    ld h,$00
    ld b,16d
    ld a,07d
    inc l
    cp l
    ld a,(charsav)
    jr nz,displine
    call _getkey
    ld a,(charsav)
    jr initdisp
quit:
    call _newline
    ret
.end
END