A2osX/SCMASM.30/SCI.S.TABLES.txt

181 lines
4.5 KiB
Plaintext
Raw Normal View History

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