; Turbo
; by Randy Gluvna
; gluvna@home.com
; http://members.home.com/gluvna

#INCLUDE "TI82.H"

.ORG START_ADDR

.DB "Turbo",0

        ROM_CALL(CLEARLCD)
        LD HL,$0000
        LD (CURSOR_ROW),HL
        LD HL,STRING_TITLE
        SET 3,(IY+05)
        ROM_CALL(D_ZT_STR)
        LD HL,$0001
        LD (CURSOR_ROW),HL
        LD HL,STRING_AUTHOR
        RES 3,(IY+05)
        ROM_CALL(D_ZT_STR)
        LD HL,$0003
        LD (CURSOR_ROW),HL
        LD HL,STRING_MENU
        ROM_CALL(D_ZT_STR)
WAIT:
        CALL GET_KEY
        CP 55
        RET Z
        CP 34
        JR Z,NORMAL
        CP 26
        JR Z,MEDIUM
        CP 18
        JR Z,FAST
        CP 35
        JR Z,FASTEST
        JR WAIT
NORMAL:
        LD A,%00000110
        JR SET_SPEED
MEDIUM:
        LD A,%00000100
        JR SET_SPEED
FAST:
        LD A,%00000010
        JR SET_SPEED
FASTEST:
        LD A,%00000000
        JR SET_SPEED
SET_SPEED:
        OUT (4),A
        RET

STRING_TITLE:
        .DB "     Turbo      ",0
STRING_AUTHOR:
        .DB "by Randy Gluvna",0
STRING_MENU:
        .DB "1: Normal       "
        .DB "2: Medium       "
        .DB "3: Fast         "
        .DB "4: Fastest      ",0

.END