#include "includes/ti84pce.inc"
#include "includes/define.inc"

 .assume ADL=1
 .org userMem-2
 .DB tExtTok,tAsm84CeCmp

Setup:
 CALL _homeup
 CALL _ClrLCDFull

 CALL fshvarreset

Input:
 LD   C, $00
 CALL fshcmdfill

 XOR  A
 LD   (CurCol), A
 LD   HL, PS1
 CALL _PutS 

 LD   HL, FshCmd
 LD   DE, FshCmdInptSize
 CALL inputstr

 CALL _NewLine

Decode:
 LD   HL, FshCmd
 LD   DE, FshCmdOP
 CALL fshcmddecode

Route:
 LD   HL, FshCmdOP
 JP   fshcmdroute

Fin:
 JP   Input

Err:
 JP   ErrRoute

Cleanup:
 SET  graphdraw,(IY+graphflags)
 CALL _ClrLCDFull

Exit:
 RES  donePrgm,(iy+doneFlags)
 RET

PS1: .DB "FSH> ",0
FshFlags: .DB %00000000
; 0: Debug Flag
; 1: Error Flag
; 2: Program Flag

#include "includes/Math.asm"
#include "includes/Byte.asm"
#include "includes/Char.asm"
#include "includes/Cursor.asm"

#include "includes/FshCmd.asm"
#include "includes/Err.asm"
#include "includes/String.asm"

#include "includes/FshVar.asm"

#include "includes/Input.asm"
.end