NEW PREFIX AUTO 4,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 *-------------------------------------- S.FI.A .EQ $03 S.FI.A.R .EQ $01 S.FI.A.W .EQ $02 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.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 S.FI.MDATE .EQ $0A S.FI.MTIME .EQ $0C S.FI.CDATE .EQ $0E S.FI.CTIME .EQ $10 * S.FI .EQ $12 *-------------------------------------- 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 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.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