mirror of https://github.com/A2osX/A2osX.git
181 lines
4.5 KiB
Plaintext
181 lines
4.5 KiB
Plaintext
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.31/sci.s.tables
|
||
LOAD usr/src/scmasm.31/scmasm.s
|
||
ASM
|