.nolist 
#define equ .equ
#define EQU .equ
#define end .end
#include "ion.inc"
 .list
#ifdef TI83P
.org   progstart-2
.db    $BB,$6D
#else
.org   progstart
#endif
 bcall(_RCLX)
 bcall(_convop1)
 cp 1
 jr nz,cp2
 ld hl,pic1
 jr dsp_pic
cp2:
 cp 2
 jr nz,cp3
 ld hl,pic2
 jr dsp_pic
cp3:
 ret


dsp_pic:
 ld de,plotsscreen
 call DispRLE
 bcall(_grbufcpy)