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 -// *-------------------------------- * 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.31/sci.s.tables LOAD usr/src/scmasm.31/scmasm.s ASM