mirror of https://github.com/A2osX/A2osX.git
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.30/sci.s.vars
|
|||
|
|
LOAD usr/src/scmasm.30/scmasm.s
|
|||
|
|
ASM
|