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