A2osX/INC/MLI.I.txt
2023-07-10 06:57:04 +02:00

198 lines
4.6 KiB
Plaintext
Raw 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
.LIST OFF
*--------------------------------------
* PRODOS Constants
*--------------------------------------
MLI.MAXPATH .EQ 64
*--------------------------------------
* PRODOS Defines
*--------------------------------------
MLIALLOCIRQ .EQ $40
MLIDEALLOCIRQ .EQ $41
MLIATALK .EQ $42
MLIQUIT .EQ $65
MLIREADBLOCK .EQ $80
MLIWRITEBLOCK .EQ $81
MLIGETTIME .EQ $82
MLICREATE .EQ $C0
MLIDESTROY .EQ $C1
MLIRENAME .EQ $C2
MLISETFILEINFO .EQ $C3
MLIGETFILEINFO .EQ $C4
MLIONLINE .EQ $C5
MLISETPREFIX .EQ $C6
MLIGETPREFIX .EQ $C7
MLIOPEN .EQ $C8
MLINEWLINE .EQ $C9
MLIREAD .EQ $CA
MLIWRITE .EQ $CB
MLICLOSE .EQ $CC
MLIFLUSH .EQ $CD
MLISETMARK .EQ $CE
MLIGETMARK .EQ $CF
MLISETEOF .EQ $D0
MLIGETEOF .EQ $D1
MLISETBUF .EQ $D2
MLIGETBUF .EQ $D3
* ProDOS FX
MLISETFILEINFOEX .EQ $D4
MLIGETFILEINFOEX .EQ $D5
MLIACL .EQ $D6
*--------------------------------------
* 7 6 5 4 3 2 1 0
* +--+--+--+--+--+--+--+--+
* |D |RN|B |Reserved|W |R |
* +--+--+--+--+--+--+--+--+
*
* D: Destroy enable bit
* RN: Rename enable bit
* B: Backup needed bit
* W: Write enable bit
* R: Read enable bit
*
* Bit 2 = Invisible Bit (TECH NOTE #23)
*--------------------------------------
S.FI.A .EQ $03
S.FI.A.R .EQ $01
S.FI.A.W .EQ $02
S.FI.A.I .EQ $04
S.FI.A.B .EQ $20
S.FI.A.RN .EQ $40
S.FI.A.D .EQ $80
S.FI.A.FULL .EQ $C3
S.FI.T .EQ $04
S.FI.T.TXT .EQ $04
S.FI.T.BIN .EQ $06
S.FI.T.DIR .EQ $0F
S.FI.T.ASM .EQ $FA
S.FI.T.BAS .EQ $FC
S.FI.T.PIX .EQ $CB
S.FI.T.FON .EQ $CC
S.FI.T.PAK .EQ $CF
S.FI.T.SYS .EQ $FF
S.FI.AUXTYPE .EQ $05
S.FI.TBLKS .EQ $05
S.FI.ST .EQ $07
S.FI.ST.STD .EQ $01
S.FI.ST.DIR .EQ $0D
S.FI.UBLKS .EQ $08
*--------------------------------------
* DATE:
* 7 6 5 4 3 2 1 0 7 6 5 4 3 2 1 0
* +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+
* | Year | Month | Day |
* +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+
* TIME:
* 7 6 5 4 3 2 1 0 7 6 5 4 3 2 1 0
* +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+
* |0 0 0| Hour | |0 0| Minute |
* +-+-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+
*--------------------------------------
S.FI.MDATE .EQ $0A
S.FI.MTIME .EQ $0C
S.FI.CDATE .EQ $0E
S.FI.CTIME .EQ $10
*
S.FI .EQ $12
*--------------------------------------
S.FIEX.FILENAME .EQ 0
S.FIEX.T .EQ 16
S.FIEX.KEYPTR .EQ 17
S.FIEX.BLKUSED .EQ 19
S.FIEX.EOF .EQ 21
S.FIEX.CTIME .EQ 24
S.FIEX.VERSION .EQ 28
S.FIEX.MVERSION .EQ 29
S.FIEX.ACCESS .EQ 30
S.FIEX.AUXTYPE .EQ 31
S.FIEX.MTIME .EQ 33
S.FIEX.BLKPTR .EQ 37
S.FIEX.ACL .EQ 40 57.00
S.FIEX.ACL.UID .EQ 42
S.FIEX.ACL.GID .EQ 44
S.FIEX.ACL.MOD .EQ 46
*
S.FIEX .EQ 48
*--------------------------------------
TBX.MemReset .EQ 0
TBX.EnumBlk .EQ 2
TBX.EnumNext .EQ 4
*--------------------------------------
MLI .EQ $BF00
*JSPARE .EQ $BF03
DATETIME .EQ $BF06
SYSERR .EQ $BF09
*SYSDEATH .EQ $BF0C
*SERR .EQ $BF0F
DEVPTRS .EQ $BF10
*DEVPTRS0D1 .EQ $BF10
*DEVPTRS1D1 .EQ $BF12
*DEVPTRS2D1 .EQ $BF14
*DEVPTRS3D1 .EQ $BF16
*DEVPTRS4D1 .EQ $BF18
*DEVPTRS5D1 .EQ $BF1A
*DEVPTRS6D1 .EQ $BF1C
*DEVPTRS7D1 .EQ $BF1E
*DEVPTRS0D2 .EQ $BF20
*DEVPTRS1D2 .EQ $BF22
*DEVPTRS2D2 .EQ $BF24
DEVPTRS3D2 .EQ $BF26
*DEVPTRS4D2 .EQ $BF28
*DEVPTRS5D2 .EQ $BF2A
*DEVPTRS6D2 .EQ $BF2C
*DEVPTRS7D2 .EQ $BF2E
DEVNUM .EQ $BF30
DEVCNT .EQ $BF31 0 -> 13
DEVLST .EQ $BF32 -> $BF3F
*DEVLST0END .EQ $BF40 A 0 was added to ensure list ended with 0 if 14 devices in list
*PRODOSCOPYRIGHT .EQ $BF41 ;free->$BF4B
MLIENTRY .EQ $BF4B to bypass ATLK hook
MEMTABL .EQ $BF58 -> $BF6F
*GL.BUFF .EQ $BF70
*INTRUPT1 .EQ $BF80
*INTRUPT2 .EQ $BF82
*INTRUPT3 .EQ $BF84
*INTRUPT4 .EQ $BF86
DATELO .EQ $BF90
TIMELO .EQ $BF92
LEVEL .EQ $BF94
*BUBIT .EQ $BF95
*SPARE1 .EQ $BF96
MACHID .EQ $BF98
MACHID.T .EQ %11001000
*MACHID.T.II .EQ %00000000
*MACHID.T.IIp .EQ %01000000
MACHID.T.IIe .EQ %10000000
MACHID.T.IIc .EQ %10001000
*MACHID.T.III .EQ %11000000
MACHID.M .EQ %00110000
MACHID.M.128 .EQ %00110000
*MACHID.M.64 .EQ %00100000
*MACHID.M.48 .EQ %00010000
*MACHID.SPARE .EQ %00000100
MACHID.COL80 .EQ %00000010
MACHID.CLK .EQ %00000001
*SLTBYT .EQ $BF99
*PFIXPTR .EQ $BF9A
*MLIACTV .EQ $BF9B
*CMDADR .EQ $BF9C
*SAVEX .EQ $BF9E
*SAVEY .EQ $BF9F
*--------------------------------------
* code $BFA0 -> $BFF3
*--------------------------------------
*BNKBYT1 .EQ $BFF4
*BNKBYT2 .EQ $BFF5
*SYS.RTS .EQ $BFF6 code -> $BFFB
*IBAKVER .EQ $BFFC
*IVERSION .EQ $BFFD
*KBAKVER .EQ $BFFE
*KVERSION .EQ $BFFF
*--------------------------------------
MAN
SAVE inc/mli.i