DispStr1

#include "ti83plus.inc"
.db t2ByteTok,tAsmCmp
.org $9D95
    bcall(_ClrLCDFull)
    ld hl,Str1Name
    rst rMov9ToOP1
    rst rFindSym
    ret c           ;exit if the string doesn't exist
    ex de,hl
    ld c,(hl)       ;Get the size of the string
    inc hl          ;
    ld b,(hl)       ;
    inc hl          ;

loop:
    ld a,(hl)
    ld e,(hl)       ;Load the token into DE. First assume a 1-byte token
    ld d,0
    bcall(_IsA2ByteTok);Check if first token is 2 bytes z=two bytes
    jr nz,_
    inc hl      ;Need to fetch next byte into D
    dec bc      ;Need to remove 1 from the number of bytes left
    ld d,(hl)
_:
    push hl
    push bc
    bcall(_PutTokString)
    pop bc
    pop hl
    cpi         ;Increments HL, decrements BC
    jp pe,loop  ;Loops until BC is 0
    ret
Str1Name:
    .db StrngObj,tVarStrng,tStr1,0