72 lines
976 B
NASM
72 lines
976 B
NASM
#include "includes/ti84pce.inc"
|
|
#include "includes/define.inc"
|
|
|
|
.assume ADL=1
|
|
.org userMem-2
|
|
.DB tExtTok,tAsm84CeCmp
|
|
|
|
Setup:
|
|
CALL _homeup
|
|
CALL _ClrLCDFull
|
|
|
|
LD HL, 0
|
|
CALL fshvarfill
|
|
|
|
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
|