added sysprog entities

SYSPROG/STPROC/MFS_SHELL1.txt

@@ -0,0 +1,136 @@
+Subroutine MFS_SHELL1(CODE, BFS, HANDLE, NAME, FMC, RECORD, STATUS)
+
+/*******************************
+
+
+÷ VERSION    : 1.0
+
+÷ PURPOSE    :
+
+÷ AUTHOR     :
+
+÷ CREATED    :
+
+÷ PROCEDURES :
+
+*÷ WARNINGS   :
+
+*÷ THEORY OF OPERATION :
+
+÷ REVISION HISTORY           (Most CURRENT first) :
+
+    DATE       IMPLEMENTOR     FUNCTION
+  --------     -----------     --------
+  MM-DD-YY     initials        Modification
+
+*******************************/
+
+*÷ COMMON Variables           (Terminate with '%') :
+
+*÷ LABELED COMMON Variables   (Terminate with '@') :
+
+*÷ EQUATE Variables           (Terminate with '$') :
+
+EQU RTI$        TO 'Copyright (C) 1990-2023, Revelation Technologies, Inc.'
+EQU TRUE$       TO 1
+EQU FALSE$      TO 0
+EQU YES$        TO 1
+EQU NO$         TO 0
+EQU OTHERWISE$  TO 1
+EQU NULL$       TO ""
+EQU SPACE$      TO \20\
+
+$INSERT FILE.SYSTEM.EQUATES
+$INSERT FSERRORS_HDR
+
+*÷ MESSAGES called            (Terminate with '$') :
+
+*÷ DECLARED - FUNCTIONS   called :
+
+*÷ DECLARED - SUBROUTINES called :
+
+/*******************************
+÷ INDIRECT - FUNCTIONS/SUBROUTINES called if known  (Make COMMENTS) :
+*******************************/
+
+*÷÷ PROGRAM TOP
+
+FS = DELETE(BFS,1,1,1)
+NEXTFS = FS<1,1,1>
+@FILE.ERROR = ""
+
+$INSERT FILE.SYSTEM.ONGOSUB
+
+RETURN
+
+*----------------------------------------------------------------------------
+/* Put all the operations to capture in this section.*/
+*----------------------------------------------------------------------------
+
+RETURN
+*----------------------------------------------------------------------------
+/* Media operations */
+CREATE.MEDIA:
+OPEN.MEDIA:
+READ.MEDIA:
+WRITE.MEDIA:
+CLOSE.MEDIA:
+
+*----------------------------------------------------------------------------
+/* File oriented operations */
+CLEARFILE:
+CREATE.FILE:
+DELETE.FILE:
+MOVE.FILE:
+OPEN.FILE:
+REMAKE.FILE:
+RENAME.FILE:
+
+*----------------------------------------------------------------------------
+/* Select operations */
+SELECT:
+READNEXT:
+CLEARSELECT:
+
+*----------------------------------------------------------------------------
+/* Record oriented operations */
+READ.RECORD:
+READO.RECORD:
+WRITE.RECORD:
+DELETE.RECORD:
+
+*----------------------------------------------------------------------------
+/* Lock operations */
+LOCK.RECORD:
+UNLOCK.RECORD:
+
+*----------------------------------------------------------------------------
+/* Index operations */
+CREATE.INDEX:
+UPDATE.INDEX:
+DELETE.INDEX:
+SELECT.INDEX:
+READNEXT.INDEX:
+RESERVED:
+
+*----------------------------------------------------------------------------
+/* Misc calls */
+OMNI.SCRIPT:
+RECORD.COUNT:
+
+NEXT_FS:
+
+CALL @NEXTFS(CODE, FS, HANDLE, NAME, FMC, RECORD, STATUS)
+
+RETURN
+
+*----------------------------------------------------------------------------
+/*
+Install, unlock all and flush are called directly, no need to call next FS.
+*/
+INSTALL:
+FLUSH:
+UNLOCK.ALL:
+
+STATUS = TRUE$
+RETURN