include 'include/ez80.inc'
include 'include/tiformat.inc'
include 'include/ti84pceg.inc'
format ti executable 'HS'

_Program:
    call InstallStartHook
    ret


_hook_start_addr:
    virtual at ti.pixelShadow2
_hook_start:
    db $83
    ld (ti.plotSScreen),a
    cp ti.kPrgm       ; was Prgms pressed?
    ret nz
    ;check if edit is open
    ;call ti.NewContext0
    ld hl, ShellPrgm
    ld de,ti.saveSScreen
    ld bc,7
    ldir
    ld hl,ti.saveSScreen
    ld (ti.rclQueue),hl
    ld (ti.rclQueueEnd),de
    set 7, (iy+0Eh)
    set 2, (iy+33h)
    ;call ti.SendKPress
    jp ti.JForceCmd
    ret
NotEnoughMemory:
    ld hl, String_Mem
    call ti.PutS
    ret
NotInEditor:
    ld hl, String_Editor
    call ti.PutS
    ret
ShellPrgm:
    db ti.tProg, "VYSION"
String_Mem:
    db "Not enough memory...", 0
String_Editor:
    db "Not in editor...", 0
load code: $-_hook_start from _hook_start
end virtual
db code