DCSTest.z80

.nolist
#include "ti83plus.inc"
#include "dcs7.inc"
.list
.org    $9D93
.db t2ByteTok,tAsmCmp
Start:
    ld  hl,0
    ld  (curCol),hl
    bcall(_ClrLCDFull)
Loop:
    bcall(_GetKey)
    cp  k0
    jr  z,KEY0
    cp  k1
    jr  z,KEY1
    cp  k2
    jr  z,KEY2
    cp  k3
    jr  z,KEY3
    cp  k4
    jr  z,KEY4
    cp  k5
    jr  z,KEY5
    cp  k6
    jr  z,KEY6
    cp  k7
    jr  z,KEY7
    cp  k8
    jr  z,KEY8
    cp  k9
    jr  z,KEY9
    cp  kEnter
    jr  z,Done
    jr  Loop

DispText:
    bcall(_PutS)
    jr Loop
KEY0:
    ld  hl,TEXT0
    jr DispText
KEY1:
    ld  hl,TEXT1
    jr DispText
KEY2:
    ld  hl,TEXT2
    jr DispText
KEY3:
    ld  hl,TEXT3
    jr DispText
KEY4:
    ld  hl,TEXT4
    jr DispText
KEY5:
    ld  hl,TEXT5
    jr DispText
KEY6:
    ld  hl,TEXT6
    jr DispText
KEY7:
    ld  hl,TEXT7
    jr DispText
KEY8:
    ld  hl,TEXT8
    jr DispText
KEY9:
    ld  hl,TEXT9
    jr DispText

Done:
    bcall(_HomeUp)
    ld hl,DoneText
    bcall(_PutS)
    bcall(_GetKey)
    ret

TEXT0:
    .db "0",0
TEXT1:
    .db "1",0
TEXT2:
    .db "2",0
TEXT3:
    .db "3",0
TEXT4:
    .db "4",0
TEXT5:
    .db "5",0
TEXT6:
    .db "6",0
TEXT7:
    .db "7",0
TEXT8:
    .db "8",0
TEXT9:
    .db "9",0
DoneText:
    .db "Quitting...",0