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