PR#3
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
				.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
*--------------------------------------
S.FILEINFO.ACCESS		.EQ $03
S.FILEINFO.ACCESS.R			.EQ $01
S.FILEINFO.ACCESS.W			.EQ $02
S.FILEINFO.ACCESS.B			.EQ $20
S.FILEINFO.ACCESS.RN		.EQ $40
S.FILEINFO.ACCESS.D			.EQ $80
S.FILEINFO.ACCESS.FULL		.EQ $C3
S.FILEINFO.TYPE			.EQ $04
S.FILEINFO.TYPE.TXT			.EQ $04
S.FILEINFO.TYPE.DIR			.EQ $0F
S.FILEINFO.TYPE.SYS			.EQ $FF
S.FILEINFO.AUXTYPE		.EQ $05
S.FILEINFO.TOTALBLOCKS	.EQ $05
S.FILEINFO.STORETYPE	.EQ $07
S.FILEINFO.STORETYPE.STD	.EQ $01
S.FILEINFO.STORETYPE.DIR	.EQ $0D
S.FILEINFO.BLOCKSUSED	.EQ $08
S.FILEINFO.MODDATE		.EQ $0A
S.FILEINFO.MODTIME		.EQ $0C
S.FILEINFO.CREATEDATE	.EQ $0E
S.FILEINFO.CREATETIME	.EQ $10
*
S.FILEINFO				.EQ $12
*--------------------------------------
*$00 - No Error
*$01 - Bad Call Number
*$04 - Bad Parameter Count
*$25 - Interrupt Table Full
*$27 - I/O Error
*$28 - No Device Connected
*$2B - Write Protected
*$2E - Disk Switched
*$40 - Invalid Pathname
*$42 - Maximum Number of Files Open
*$43 - Invalid Reference Number
*$44 - Directory Not Found
*$45 - Volume Not Found
*$46 - File Not Found
*$47 - Duplicate File Name
*$48 - Volume Full
*$49 - Directory Full
*$4A - Incompatible File Format
*$4B - Unsupported Storage Type
*$4C - End of File, No More Data
*$4D - Beyond EOF
*$4E - File Access Error, File Locked
*$50 - File Already Open
*$51 - Directory Structure Damaged
*$53 - Invalid Parameter
*$55 - Too Many Volumes
*$56 - Bad Buffer Address
*$57 - Duplicate Volume
*$5A - File Structure Damaged
*--------------------------------------
MLI.ERR.BADCALL	.EQ $01
MLI.ERR.BADCNT	.EQ $04
MLI.ERR.IRQFULL	.EQ $25
MLI.ERR.IO		.EQ $27
MLI.ERR.NODEV	.EQ $28
MLI.ERR.WRTPROT	.EQ $2B
MLI.ERR.DSKSWIT	.EQ $2E
MLI.ERR.INVPATH	.EQ $40
MLI.ERR.FCBFULL	.EQ $42
MLI.ERR.BADREF	.EQ $43
MLI.ERR.PNOTFND	.EQ $44
MLI.ERR.VNOTFND	.EQ $45
MLI.ERR.FNOTFND	.EQ $46
MLI.ERR.DUPFILE	.EQ $47
MLI.ERR.OVERRUN	.EQ $48
MLI.ERR.VOLFULL	.EQ $49
MLI.ERR.EOF		.EQ $4C
*--------------------------------------
MLI				.EQ	$BF00
JSPARE			.EQ $BF03
DATETIME		.EQ $BF06
SYSERR			.EQ $BF09
SYSDEATH		.EQ $BF0C
SERR			.EQ $BF0F
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
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
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.TYPE			.EQ %11001000
MACHID.TYPE.II		.EQ %00000000
MACHID.TYPE.IIp		.EQ %01000000
MACHID.TYPE.IIe		.EQ %10000000
MACHID.TYPE.IIc		.EQ %10001000
MACHID.TYPE.III		.EQ %11000000
MACHID.RAM			.EQ %00110000
MACHID.RAM.128		.EQ %00110000
MACHID.RAM.64		.EQ %00100000
MACHID.RAM.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/PRODOS.I
