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