mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-28 10:52:33 +00:00
54 lines
1.4 KiB
Plaintext
54 lines
1.4 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
ALLOCATED.BUFFER.PAGE .BS 1
|
||
*--------------------------------
|
||
FNLEN .BS 1
|
||
RECORD.LENGTH .BS 2
|
||
PARM.LENM1 .BS 1
|
||
PARM.OFFSET .BS 1
|
||
ACCUM .BS 3
|
||
OVERFLOW .BS 1
|
||
COMMAND.ADDR .BS 2
|
||
BLOCKS .BS 2
|
||
*--------------------------------
|
||
MONTH .BS 1
|
||
DAY .BS 1
|
||
YEAR .BS 1
|
||
*--------------------------------
|
||
CAT.WIDTH .BS 1
|
||
ENTRY.LENGTH .BS 1
|
||
ENTRIES.PER.BLOCK .BS 1
|
||
FILE.COUNT .BS 2
|
||
ENTRY.COUNTER .BS 1
|
||
*--------------------------------
|
||
CAT.INDEX .BS 1
|
||
*--------------------------------
|
||
FILE.REFNUMS .BS 2
|
||
FILE.BUFFER.PNTRS .BS 2
|
||
*--------------------------------
|
||
EXEC.REFNUM .BS 1
|
||
EXEC.INPUT.CHAR .BS 1
|
||
*--------------------------------
|
||
WRITE.REFNUM .BS 1
|
||
WRITE.OUTPUT.CHAR .BS 1
|
||
*--------------------------------
|
||
PATHNAME.ONE.BUFFER .BS 1
|
||
TXTBUF .BS 65
|
||
*--------------------------------
|
||
* OPEN FILE NAME BUFFERS
|
||
* 3 BUFFERS, 32 BYTES EACH
|
||
* 0 -- # BYTES IN FILE NAME (bits (6-0)
|
||
* Bit 7 = DIR file READ flag
|
||
* 1 -- L value lsb
|
||
* 2 -- L value msb
|
||
* 3-31 -- file name, backwards
|
||
*--------------------------------
|
||
OPEN.FILE.NAME.BUFFERS
|
||
.BS 32*3
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/scmasm.31/sci.s.vars
|
||
LOAD usr/src/scmasm.31/scmasm.s
|
||
ASM
|