6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-10-18 07:24:16 +00:00
Code Issues Projects Releases Wiki Activity

Comments for install script

Browse Source
This commit is contained in:
dschmenk 2024-01-23 19:48:02 -08:00
parent 6c6d6e664d
commit 547bdcc2ad
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/scripts/hdinstall.4th
View File

@ -1,19 +1,19 @@
SRC" plasma.4th" SRC" plasma.4th"
SRC" conio.4th" SRC" conio.4th"
: RESUME ; : RESUME> ; ( PLACE HOLDER TO RESUME EXECUTION )
: ?EXEC : ?EXEC ( F -- )
NOT IF NOT IF ( SKIP CODE IN BETWEEN ?EXEC AND RESUME> )
1 >R 1 >R
BEGIN BEGIN
BL WORD FIND IF BL WORD FIND IF
CASE CASE
' RESUME OF ' RESUME> OF
R> 1- ?DUP 0= IF R> 1- ?DUP 0= IF ( EXIT IF FINAL RESUME> )
DROP EXIT DROP EXIT
THEN THEN
>R >R
ENDOF ENDOF
' ?EXEC OF ' ?EXEC OF ( CHECK FOR NESTED ?EXEC )
R> 1+ >R R> 1+ >R
ENDOF ENDOF
ENDCASE ENDCASE
@ -24,13 +24,13 @@ SRC" conio.4th"
THEN THEN
; ;
: INPUTSTR" : INPUTSTR" ( STR -- )
COMPILE ." COMPILE ."
DUP 1+ 255 ACCEPT SWAP C! DUP 1+ 255 ACCEPT SWAP C!
; ;
: STRING CREATE 256 ALLOT DOES> ; : STRING CREATE 256 ALLOT DOES> ; ( JUST ALLOCATE THE BIGGEST STRING POSSIBLE )
: CONFIRM" : CONFIRM" ( -- F )
COMPILE ." COMPILE ."
." (Y/N)" ." (Y/N)"
KEY CR TOUPPER CHAR Y = KEY CR TOUPPER CHAR Y =
@ -43,9 +43,9 @@ HOME
12 SPACES INVERSETEXT 12 SPACES INVERSETEXT
." PLASMA HD INSTALL" ." PLASMA HD INSTALL"
NORMALTEXT CR CR NORMALTEXT CR CR
0 1 40 23 VIEWPORT
DEST INPUTSTR" Enter destination " DEST INPUTSTR" Enter destination "
DEST C@ 0= ?ABORT" Destination required" DEST C@ 0= ?ABORT" Destination required"
0 1 40 23 VIEWPORT
." Copying system files to " DEST (.") CR ." Copying system files to " DEST (.") CR
FILELIST " -R PLVM16 CMD128 SYS " STRCPY DEST STRCAT FILELIST " -R PLVM16 CMD128 SYS " STRCPY DEST STRCAT
@ -55,7 +55,7 @@ CONFIRM" Copy demos?"
?EXEC ?EXEC
FILELIST " -R DEMOS " STRCPY DEST STRCAT FILELIST " -R DEMOS " STRCPY DEST STRCAT
" COPY" SWAP LOADMOD " COPY" SWAP LOADMOD
RESUME RESUME>
CONFIRM" Copy build tools?" CONFIRM" Copy build tools?"
?EXEC ?EXEC
@ -66,12 +66,14 @@ CONFIRM" Copy build tools?"
" COPY" SWAP LOADMOD " COPY" SWAP LOADMOD
FILELIST " -R BLD/INC " STRCPY DEST STRCAT FILELIST " -R BLD/INC " STRCPY DEST STRCAT
" COPY" SWAP LOADMOD " COPY" SWAP LOADMOD
CONFIRM" Copy sample code?" CONFIRM" Copy sample code?"
?EXEC ?EXEC
FILELIST " -R BLD/SAMPLES " STRCPY DEST STRCAT FILELIST " -R BLD/SAMPLES " STRCPY DEST STRCAT
" COPY" SWAP LOADMOD " COPY" SWAP LOADMOD
RESUME RESUME>
RESUME
RESUME>
." Done" CR ." Done" CR
0 0 40 24 VIEWPORT 0 0 40 24 VIEWPORT