36 lines
645 B
NASM
36 lines
645 B
NASM
prgmcmdPRGM: .db "PRGM", 0
|
|
prgmcmdPRGMo: .dw $0100
|
|
prgmcmdPRGMm: .db "help", 0
|
|
prgmcmdPRGMu: .db "PRGM", 0
|
|
prgmcmdPRGMf:
|
|
prgmcmdPRGMfCheckArgs:
|
|
ld hl, FshCmdArgFlags
|
|
bit 0, (hl)
|
|
jr z, prgmcmdPRGMfArg0Get
|
|
bit 1, (hl)
|
|
jr z, prgmcmdPRGMfExe
|
|
ld hl, ErrUsageo
|
|
call ErrSet
|
|
call ErrCatch
|
|
prgmcmdPRGMfArg0Get:
|
|
ld hl, prgmcmdPRGMfPrompt
|
|
call printprompt
|
|
|
|
ld hl, FshCmdArg0
|
|
ld de, 8
|
|
call inputstr
|
|
call _NewLine
|
|
|
|
prgmcmdPRGMfExe:
|
|
ld hl, fshCmdArg0
|
|
ld de, prgmcmdPRGMSprgm + 1
|
|
call strcpy
|
|
|
|
ld hl, prgmcmdPRGMSprgm
|
|
call _Mov9ToOP1
|
|
|
|
jp prgmrun
|
|
|
|
prgmcmdPRGMSprgm: .db ProgObj, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
|
prgmcmdPRGMfPrompt: .db "Prgm=", 0
|