#include "ti83plus.inc"
.org $9D93
.db t2ByteTok,tAsmCmp
    ld (8000h),sp ; This stores the stack pointer to spsave... for later dark ritual.
    bcall(_RclAns)
    dec a
    ret nz ;quit if answer is non-list
    ex de,hl
    ld b,(hl)
    inc hl
    cp (hl)
    ret nz
    inc hl ; grabbed list size in b
    ld a,b ;our list needs to be either 4 or 6 elements
    cp 4
    jr z,Pass
    cp 6
    ret nz
Pass:
    ld ix,cX ;apparently I do need ix here because my HL DE BCs are used a lot
loopbtimes:
    push bc
    rst 20h ;rMov9ToOP1
    push hl
    bcall(_ConvOP1)
    pop hl
    ld (ix),a
    inc ix
    pop bc
    djnz loopbtimes
    ;bcall(_ClrLCDFull)
    call Resetrect
    ld hl,StringData
    rst 20h
    rst 10h ;rFindSym
    ret c ;quit if string is not found
    ex de,hl
    ld c,(hl) ;grab string size
    inc hl
    ld b,(hl)
    inc hl
loop:
    ld a,(hl)   ;Need to check if it is a two-byte token, later
    push af   ;Save A for later
    push hl
    push bc
    bcall(_Get_Tok_Strng)
    ld hl,op3-1    ;point to the byte *before* the output characters.
    push hl
    inc hl
    ld a,(hl)
    cp 1bh ;check if string is Exponent E. E = original 8 delay
    pop hl
    jr nz,notDelay1 ;skip if not
    ld a,8
    ld (Delay),a
    pop bc
    pop hl
    pop af
    jr +_
NotDelay1:
    push hl
    inc hl
    ld a,(hl)
    cp 11h ;check if string is  -1. -1 = 16 Delay
    pop hl
    jr nz,notDelay2 ;skip if not
    ld a,16
    ld (Delay),a
    pop bc
    pop hl
    pop af
    jr +_
NotDelay2:
    push hl
    inc hl
    ld a,(hl)
    cp 12h ;check if string is ^2. ^2 = slowest 32
    pop hl
    jr nz,notDelay3 ;skip if not
    ld a,32
    ld (Delay),a
    pop bc
    pop hl
    pop af
    jr +_
NotDelay3:
    push hl
    inc hl
    ld a,(hl)
    cp 14h ;check if string is degree sign. deg = newline
    pop hl
    jr nz,notdegree ;skip if not degree sign
    call Resetcur
    pop bc
    pop hl
    pop af
    jr +_
notdegree:
    push hl
    inc hl
    ld a,(hl)
    cp 15h ;check if string is radian sign. rad = resetrect
    pop hl
    jr nz,tokenloop ;skip if not radian sign
    call NextPageKey
    call Resetrect
    pop bc
    pop hl
    pop af
    jr +_
tokenloop:
    push hl     ;save HL
    push bc    ;and BC
    call CheckXPos
    pop bc
    pop hl
    inc hl   ;Need to increment first to get to the character since we started one byte behind
    ld a,(hl)
    bcall(_VPutMap)
    push bc
    ei
    ld a,(Delay)
    ld b,a
    ld a,(843Fh)
    ld c,a
    ld a,(SkipKey)
    cp c
    jr nz,PauseTime
    srl b
PauseTime:
    call Waith
    djnz PauseTime
    pop bc
    dec c
    jr nz,tokenloop
    pop bc
    pop hl
    pop af
    bcall(_IsA2ByteTok) ;Check if it was a 2 byte token
    jr nz,+_
    inc hl  ;increment hl for next calc since token was 2 bytes
    dec bc  ;decrement bc since token was 2 bytes
_:
    cpi
    jp pe,loop  ; pe is used to test if BC reached 0.
    call NextPageKey
    ret
Waith:
    ei
    halt
    bit onInterrupt,(iy+onFlags)
    ret z
HardExit:
    ld sp,(8000h)
    ret
NextPageKey:
    ld a,(NPKey)
    ld c,a
Sub1:
    call Waith
    ld a,(843Fh)
    cp c
    jr nz,Sub1
    ret
CheckXPos:
    ld (hl),1 ; Put size byte. This string should always be 1 byte long.
    bcall(_SStringLength) ;This destroys all but HL
    ld a,(penCol)
    add a,b ; Grab the future penCol position
    ld b,a
    dec b
    dec b
    ld a,(mX)
    cp b
    ret nc
Resetcur:
    ld a,(cX)
    inc a ;if pencol > mX, change the cursor position
    inc a ;to next line before writing
    ld (penCol),a
    ld a,(penRow)
    add a,6
    ld (penRow),a
    ld b,a ;check the YPos
    ld a,(mY)
    sub 6
    cp b ; test if penRow > mY
    ret nc ; skip if penRow <= mY
    call NextPageKey
    call Resetrect
    ret
Resetrect:
    push hl;Long push list yeah but I'll remove some
    push de;when I see that I don't need to save them
    push bc;later on when I code more
    push af;
    ld a,(cX)
    ld l,a ;start setting rect boundary
    ld a,(cY)
    ld h,a
    ld a,(cX)
    inc a
    inc a
    ld (penCol),a ;set cursor column
    dec a
    dec a
    ld d,a
    ld a,(width)
    ld b,a
    ld a,d
    add a,b
    dec a
    ld e,a
    dec a
    dec a
    ld (mX),a ;set max c-length for x
    ld a,(cY)
    inc a
    ld (penRow),a ;set cursor row
    dec a
    ld d,a
    ld a,(height)
    ld b,a
    ld a,d
    add a,b
    dec a
    ld d,a
    dec a
    dec a
    ld (mY),a ;set max c-length for y
    bcall(_DrawRectBorderClear) ; y u destroi all me registers
    pop af
    pop bc
    pop de
    pop hl
    ret
StringData:
    .db StrngObj,tVarStrng,tStr1,0
cX:
    .db 0
cY:
    .db 0
width:
    .db 0
height:
    .db 0
NPKey:
    .db 36h
SkipKey:
    .db 30h
mX:
    .db 0
mY:
    .db 0
Delay:
    .db 8