SmallMenuTest

.nolist
#include    "ti83plus.inc"
#define    ProgStart    $9D95
.list
.org    ProgStart - 2
    .db t2byteTok, tAsmCmp
    SET TextWrite, (IY + SGrFlags)
InputMolairVolume:
    CALL InputScherm
    LD IX, InputVensterDrieKeuzes
    CALL InputKeuzes
    LD HL, $1118
    LD (PenCol), HL
    LD HL, InputTextMolairVolume
    b_call(_VPutS)
    CALL SmallMenu
    .DB 3
    .DB "    1:22.4    ", 0
    .DB "    2:24.5   ", 0
    .DB " 3:Ander ", 0
    LD A, B
    CP 3
    JR Z, InputMolairVolumeGetal
    CP 2
    JR Z, InputMolairVolume245
InputMolairVolume245:
InputMolairVolumeGetal:
    RET

InputScherm:
    LD HL, InputVensterBovenkant
    LD DE, PlotSScreen + 16*12
    LD B, 12
InputSchermBovenkantDisplay:
    LD A, (DE)
    OR (HL)
    LD (DE), A
    INC DE
    INC HL
    DJNZ InputSchermBovenkantDisplay
    LD C, 15
InputSchermMiddenDisplay2:
    LD B, 12
    LD HL, InputVensterMidden
    LD IX, InputVensterMiddenSchoon
InputSchermMiddenDisplay:
    LD A, (DE)
    AND (IX)
    OR (HL)
    LD (DE), A
    INC HL
    INC DE
    INC IX
    DJNZ InputSchermMiddenDisplay
    DEC C
    JR NZ, InputSchermMIddenDisplay2
    LD B, 24
InputSchermOnderDisplay:
    LD A, (DE)
    OR (HL)
    LD (DE), A
    INC HL
    INC DE
    DJNZ InputSchermOnderDisplay
    RET

InputKeuzes:
    LD HL, InputVensterOnder
    LD DE, PlotSScreen + 288
    LD B, 12
InputDrieKeuzesFirstLoop:
    LD A, (DE)
    OR (HL)
    LD (DE), A
    INC DE
    INC HL
    DJNZ InputDrieKeuzesFirstLoop
    LD C, 7
InputDrieKeuzesSecondLoop2:
    LD B, 12
    PUSH IX
    POP HL
InputDrieKeuzesSecondLoop1:
    LD A, (DE)
    OR (HL)
    LD (DE), A
    INC DE
    INC HL
    DJNZ InputDrieKeuzesSecondLoop1
    DEC C
    JR NZ, InputDrieKeuzesSecondLoop2
    b_call(_GrBufCpy)
    RET

SmallMenu:
    LD B, 1
    POP HL
    LD C, (HL)
    INC HL
SmallMenuDraw:
    PUSH HL
    POP IX
    LD DE, $1905
    LD (PenCol), DE
    LD A, C
    CP 2
    LD A, B
    JR NZ, SmallMenuNiet2Keuzes
    CP 1
    CALL Z, TextInverseOn
    CALL NZ, TextInverseOff
    b_call(_VPutS)
    LD DE, $1931
    LD (PenCol), DE
    LD A, B
    CP 2
    CALL Z, TextInverseOn
    CALL NZ, TextInverseOff
    b_call(_VPutS)
    JR SmallMenuContinue
SmallMenuNiet2Keuzes:
    CP 1
    CALL Z, TextInverseOn
    CALL NZ, TextInverseOff
    b_call(_VPutS)
    LD DE, $1922
    LD (PenCol), DE
    LD A, B
    CP 2
    CALL Z, TextInverseOn
    CALL NZ, TextInverseOff
    b_call(_VPutS)
    LD DE, $193E
    LD (PenCol), DE
    LD A, B
    CP 3
    CALL Z, TextInverseOn
    CALL NZ, TextInverseOff
    b_call(_VPutS)
SmallMenuContinue:
    PUSH BC
    PUSH HL
    b_call(_GrBufCpy)
    POP HL
    POP BC
SmallMenuGetKey:
    PUSH HL
    b_call(_getKey)
    CP kEnter
    RET Z
    POP HL
    CP kRight
    JR Z, InclineMenuSmall
    CP kLeft
    JR Z, DeclineMenuSmall
    JR SmallMenuGetKey

InclineMenuSmall:
    LD A, B
    CP C
    JR NZ, InclineMenuSmallContinue
    LD B, 0
InclineMenuSmallContinue:
    INC B
    PUSH IX
    POP HL
    JP SmallMenuDraw
DeclineMenuSmall:
    DEC B
    JR NZ, DeclineMenuSmallContinue
    LD B, C
DeclineMenuSmallContinue:
    PUSH IX
    POP HL
    JP SmallMenuDraw

TextInverseOn:
    SET TextInverse, (IY + TextFlags)
    RET
TextInverseOff:
    RES TextInverse, (IY + TextFlags)
    RET

InputVensterBovenkant:
    .DB %00001111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11110000
InputVensterMiddenSchoon:
    .DB %11111000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00111111
InputVensterMidden:
    .Db %00001000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %00110000
InputVensterOnder:
    .DB %00001111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11110000
InputVensterSchaduw:
    .DB %00000111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11111111, %11110000
InputVensterTweeKeuzes:
    .DB %00000000, %00000000, %00000000, %00000000, %00000000, %00000000, %10000000, %00000000, %00000000, %00000000, %00000000, %00000000
InputVensterDrieKeuzes:
    .DB %00000000, %00000000, %00000000, %00000000, %01000000, %00000000, %00000000, %00000100, %00000000, %00000000, %00000000, %00000000
InputTextMolairVolume:            .DB "Molair volume:", 0
.end
.end