NEW
  AUTO 3,1
*--------------------------------------
CN.    .SE 1
       .MA CMD
CN.    .SE CN.+1
CN.]2 .EQ CN.
       .AT /]2]3/
       .DA ]2
       .HS ]1
       .EM
*--------------------------------
COMMAND.TABLE
       .AT /-/
       .DA DASH
       .HS 0104
       >CMD 05F4,BLOAD
       >CMD 01F4,BRUN
       >CMD 0DF4,BSAVE
       >CMD 0000,BYE
       >CMD 9504,CATALOG
       >CMD 9504,CAT
       >CMD 0100,CLOSE
       >CMD 0D84,CREATE

*       >CMD 0104,DELETE

CN.				.SE CN.+1
CN.DELETE		.EQ CN.
				.AT /DELETE/
				.DA MLI.C1
				.HS 0104

       >CMD 0107,EXEC
       >CMD 4080,IN,#
       >CMD 0504,LOAD
       >CMD 0104,LOCK
       >CMD 0000,NOPREFIX
       >CMD 0000,NOW
       >CMD 0000,ONLINE
       >CMD 2D14,OPEN
       >CMD 4080,PR,#
       >CMD 9104,PREFIX
       >CMD 0304,RENAME
       >CMD 0D04,SAVE
       >CMD 0104,UNLOCK
       >CMD 1104,VERIFY
       >CMD 2147,WRITE
       .HS 00
*--------------------------------
*   PARAMETER NAME TABLE
*--------------------------------
PARM.NAMES
       .AS /ABELSDFRV/
NO.PARM.NAMES .EQ *-PARM.NAMES
*--------------------------------
*   BIT MASK FOR PARAMETERS IN PERMISSION BITS
*--------------------------------
*          A  B  E  L  S  D  F  R  V  @
PARM.MASKS
       .HS 80.40.20.10.04.04.02.01.00
*--------------------------------
*      XXXXXXYY where yy+1= # of bytes
*                   xxxxxx= offset from VAL.A
*                           of last byte
*--------------------------------
       .MA PAR
       .DA #VAL.]1-VAL.A+]2-1*4+]2-1
       .EM
*--------------------------------
PARM.VARIABLES
       >PAR A,2
       >PAR B,3
       >PAR E,2
       >PAR L,2
       >PAR S,1
       >PAR D,1
       >PAR F,2
       >PAR R,2
       >PAR V,1
*--------------------------------
*   FILE TYPE CODES
*--------------------------------
       .MA FT
       .AS -/]1/
       .HS ]2
       .EM
*--------------------------------
FILE.TYPES
       >FT TXT,04
       >FT BIN,06
       >FT DIR,0F
       >FT ADB,19
       >FT AWP,1A
       >FT ASP,1B
       >FT PAS,EF
       >FT CMD,F0
       >FT S-C,FA   (NORMALLY "INT")
       >FT IVR,FB
       >FT BAS,FC
       >FT VAR,FD
       >FT REL,FE
       >FT SYS,FF
LAST.FILE.TYPE .EQ *-FILE.TYPES-1
*--------------------------------
*   NAMES OF THE MONTHS
*--------------------------------
MONTH.NAMES
       .AS -/JFMAMJJASOND/
       .AS -/AEAPAUUUECOE/
       .AS -/NBRRYNLGPTVC/
*--------------------------------
NO.DATE.MSG
       .AS -/<NO DATE>/
*--------------------------------
*   MLI ERROR CODES
*--------------------------------
MLI.ERROR.CODES
       .HS 282B4041424344454647
       .HS 48494B4C4D4E505356
*--------------------------------
*   EQUIVALENT BI ERROR CODES
*--------------------------------
BI.ERROR.CODES
       .HS 0304100C0C1206068613  (86 IS A TRICK)
       .HS 09110D05020A140B0C08
*--------------------------------
SCI.MESSAGES
       .AC 0        INIT NYBBLE.FLAG
       .AC 1"ACDEFILNOPRST %"
       .AC 2"BGHKMUVWXY/():."
       .AC 3"QZ-4567890123@&"
Q.BLOCKS.ABOVE .EQ 0
       .AC / BLOCKS SHOWN ABOVE:6%/
*--------------------------------
Q.DIRHDR .EQ 1
       .AC /TYPE   NAME2BLOCKS  MODIFIED9CREATED9ENDFILE AUXTYPE%/
*--------------------------------
       .AC /RANGE ERROR%/
       .AC /NO DEVICE CONNECTED%/
       .AC /WRITE PROTECTED%/
       .AC /END OF DATA%/
       .AC /PATH NOT FOUND%/
*--------------------------------
Q.BLOCKS .EQ 7
       .AC / VOLUME BLOCKS USED:8FREE:8TOTAL:5%/
*--------------------------------
       .AC "I/O ERROR%"
       .AC /DISK FULL%/
       .AC /FILE LOCKED%/
       .AC /INVALID PARAMETER%/
       .AC /NO BUFFERS AVAILABLE%/
       .AC /FILE TYPE MISMATCH%/
       .AC /PROGRAM TOO LARGE%/
       .AC /NOT DIRECT COMMAND%/
       .AC /SYNTAX ERROR%/
       .AC /DIRECTORY FULL%/
       .AC /FILE NOT OPEN%/
       .AC /DUPLICATE FILE NAME%/
       .AC /FILE BUSY%/
       .AC /FILE(S) STILL OPEN%/
*--------------------------------
       .AC "%"
*ZZ.MESSAGES .EQ *-MESSAGES
*--------------------------------
SCI.FIRST.TABLE .EQ *
       .HS 00
       .AS -"ACDEFILNOPRST "
       .HS 8D
SCI.SECOND.TABLE .EQ *
       .HS 00
       .AS -"BGHKMUVWXY/():."
SCI.THIRD.TABLE .EQ *
       .AS -"JQZ-"
       .HS 05.06.07.08.09.0A.0B.0C.0D.0E.0F.10   (BLANK COUNTS+1)
*--------------------------------------
MAN
SAVE usr/src/scmasm.30/sci.s.tables
LOAD usr/src/scmasm.30/scmasm.s
ASM