70 lines
981 B
NASM
70 lines
981 B
NASM
#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 A, $00
|
|
CALL commandfill
|
|
|
|
LD HL, PS1
|
|
CALL printprompt
|
|
|
|
LD HL, FshCmd
|
|
LD DE, FshCmdInptSize
|
|
CALL inputstr
|
|
|
|
CALL _NewLine
|
|
|
|
Decode:
|
|
LD HL, FshCmd
|
|
LD DE, FshCmdOP
|
|
CALL commanddecode
|
|
|
|
Route:
|
|
LD HL, FshCmdOP
|
|
JP commandroute
|
|
|
|
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/Print.asm"
|
|
|
|
#include "includes/Command.asm"
|
|
#include "includes/Err.asm"
|
|
#include "includes/String.asm"
|
|
|
|
#include "includes/FshVar.asm"
|
|
|
|
#include "includes/Input.asm"
|
|
.end
|