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

181 lines
4.5 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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