.nolist 
#include "ti84pce.inc" 
.list 
.org userMem-2 
.db tExtTok,tAsm84CeCmp 
.assume ADL=1 

	ld      hl,$e00105 	; fastest
        ld     (hl),h 		; 
	ld 	a,($e30018)
	cp 	$2d
	jr 	z,ssott
	ld      hl,$007200              ; inscrit la variable Ans
    	ld      (OP1+1),hl              ; dans OP1
    	ld      (OP1),hl               ; (correspond au call _AnsName)
    	call    _RclVarSym              ; Que contient Ans ?..
 	cp 	4
 	jr 	nz,yuog
 	ex 	de,hl
 	inc 	hl
 	inc 	hl
 	ld 	hl,(hl)
 	ld 	de,$42534e
 	or 	a
 	sbc 	hl,de
 	ld 	a,h
 	or 	l
 	ld 	bc,67200
 	jr 	nz,kkpp 
 	ld 	a,$3e
 	ld 	(shgm),a	
yuog:	ld 	bc,76800
kkpp:	ld 	hl,$d40000+76799
	ld 	de,$d40000+153599
nkor:	ld 	a,(hl)
	ldd
	ld 	(de),a
	dec 	de
	jp 	pe,nkor	
	ld 	a,$2d 		; 16bpp mode
	ld 	($e30018),a 	;
ssott:	ld 	hl,$d031f6	; rétabli la barre d'état
	ld 	de,$d40000	; qui était mémorisée
	ld 	bc,19200	; 
shgm:	ldir
gghh:	ld 	hl,$e40000
	ld 	de,$d031f6
	ld 	bc,69090
	ldir
	ld      hl,$e00305	; normal
    	ld     (hl),h 		;
    	ret		 	; réactive le témoin d'exécution