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

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

Setup:
 CALL _homeup      ;Put up home
 CALL _ClrLCDFull  ;Clear screen 

 LD HL, $FF
 CALL fshvarfill


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

 ;TODO: reset CmdFsh mem
 LD   HL, FshCmd
 LD   DE, 0
 LD   DE, FshCmdInptSize
 CALL inputstr
 
 CALL _NewLine

Decode:
 LD   HL, FshCmdOP ; resets op to 0, TEMP
 LD   A, $00
 LD   (HL), A

 LD   HL, FshCmd
 LD   DE, FshCmdOP
 CALL fshcmddecode

Route:
 LD   HL, FshCmdOP
 JP   fshcmdroute

Fin:
 JP   Input

Err:
;TODO: Err Handler
 JP   ErrDefault

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/String.asm"
#include "includes/Byte.asm"
#include "includes/Math.asm"
#include "includes/FshVar.asm"
#include "includes/FshCmd.asm"
#include "includes/Char.asm"
#include "includes/Cursor.asm"
#include "includes/Input.asm"
#include "includes/Err.asm"

#include "cifail.notafile"

.end