NEW AUTO 3,1 .LIST OFF *-------------------------------------- * BASIC.SYSTEM Defines *-------------------------------------- BS.E.RANGE .EQ $02 BS.E.NODEV .EQ $03 BS.E.WPROT .EQ $04 BS.E.ENDOFDATA .EQ $05 BS.E.PATHNFND6 .EQ $06 BS.E.PATHNFND7 .EQ $07 BS.E.IO .EQ $08 BS.E.DISKFULL .EQ $09 BS.E.LOCKED .EQ $0A BS.E.INVOPT .EQ $0B BS.E.NOBUFFER .EQ $0C BS.E.MISMATCH .EQ $0D BS.E.TOOLARGE .EQ $0E BS.E.NODIRECT .EQ $0F BS.E.SYNTAX .EQ $10 BS.E.DIRFULL .EQ $11 BS.E.FNOTOPEN .EQ $12 BS.E.DUPFILE .EQ $13 BS.E.FBUSTY .EQ $14 BS.E.FSTILLOPEN .EQ $15 *-------------------------------------- CMDBITS0.PFIX .EQ $80 Prefix needs fetching, pathname optional CMDBITS0.SLOT .EQ $40 No parameters to be processed CMDBITS0.RRUN .EQ $20 Command only valid during program CMDBITS0.FNOPT .EQ $10 Filename is optional CMDBITS0.CRFLG .EQ $08 CREATE allowed CMDBITS0.T .EQ $04 File type CMDBITS0.FN2 .EQ $02 Filename '2' for RENAME CMDBITS0.FN1 .EQ $01 Filename expected CMDBITS1.A .EQ $80 Address CMDBITS1.B .EQ $40 Byte CMDBITS1.E .EQ $20 End address CMDBITS1.L .EQ $10 Length CMDBITS1.LINE .EQ $08 '@' line number CMDBITS1.SD .EQ $04 Slot and drive numbers CMDBITS1.F .EQ $02 Field CMDBITS1.R .EQ $01 Record CMDBITS1.V .EQ $00 Volume number ignored *-------------------------------------- * BASIC.SYSTEM Global page *-------------------------------------- GP.ENTRY .EQ $BE00 GP.DOSCMD .EQ $BE03 GP.EXTRNCMD .EQ $BE06 GP.ERROUT .EQ $BE09 GP.PRINTERR .EQ $BE0C GP.ERRCODE .EQ $BE0F *-------------------------------------- GP.OUTVECT0 .EQ $BE10 GP.OUTVECT1 .EQ $BE12 GP.OUTVECT2 .EQ $BE14 GP.OUTVECT3 .EQ $BE16 GP.OUTVECT4 .EQ $BE18 GP.OUTVECT5 .EQ $BE1A GP.OUTVECT6 .EQ $BE1C GP.OUTVECT7 .EQ $BE1E GP.INVECT0 .EQ $BE20 GP.INVECT1 .EQ $BE22 GP.INVECT2 .EQ $BE24 GP.INVECT3 .EQ $BE26 GP.INVECT4 .EQ $BE28 GP.INVECT5 .EQ $BE2A GP.INVECT6 .EQ $BE2C GP.INVECT7 .EQ $BE2E *-------------------------------------- GP.VECTOUT .EQ $BE30 GP.VECTIN .EQ $BE32 GP.VDOSO .EQ $BE34 GP.VDOSI .EQ $BE36 GP.VSYSO .EQ $BE38 GP.VSYSI .EQ $BE3A *-------------------------------------- GP.VDEFSLT .EQ $BE3C GP.VDEFDRV .EQ $BE3D GP.PREGA .EQ $BE3E GP.PREGX .EQ $BE3F GP.PREGY .EQ $BE40 GP.DTRACE .EQ $BE41 GP.STATE .EQ $BE42 GP.EXECACTV .EQ $BE43 GP.IFILACTV .EQ $BE44 GP.OFILACTV .EQ $BE45 GP.PFXACTV .EQ $BE46 GP.DIRFLG .EQ $BE47 GP.EDIRFLG .EQ $BE48 GP.STRINGS .EQ $BE49 GP.TBUFPTR .EQ $BE4A GP.INPTR .EQ $BE4B GP.CHRLAST .EQ $BE4C GP.OPENCNT .EQ $BE4D GP.EXECFILE .EQ $BE4E GP.CATFLAG .EQ $BE4F *-------------------------------------- GP.XTRNADDR .EQ $BE50 GP.XLEN .EQ $BE52 GP.XCNUM .EQ $BE53 *-------------------------------------- GP.AllowedBITS .EQ $BE54 GP.FoundBITS .EQ $BE56 GP.ParamA .EQ $BE58 GP.ParamB .EQ $BE5A GP.ParamE .EQ $BE5D GP.ParamL .EQ $BE5F GP.ParamS .EQ $BE61 GP.ParamD .EQ $BE62 GP.ParamF .EQ $BE63 GP.ParamR .EQ $BE65 GP.ParamV .EQ $BE67 GP.ParamAT .EQ $BE68 GP.ParamT .EQ $BE6A GP.ParamINPR .EQ $BE6B GP.VPATH1 .EQ $BE6C GP.VPATH2 .EQ $BE6E *-------------------------------------- GP.GOSYSTEM .EQ $BE70 GP.GOSYSTEM.C .EQ $BE85 GP.GOSYSTEM.P .EQ $BE86 GP.BADCALL .EQ $BE8B GP.RTS .EQ $BE9E GP.CISPARE1 .EQ $BE9F *-------------------------------------- GP.SCREATE .EQ $BEA0 GP.SCREATEPATH .EQ $BEA1 GP.CRACCESS .EQ $BEA3 GP.CRTYPE .EQ $BEA4 GP.CRAUXTYPE .EQ $BEA5 GP.CRSTTYPE .EQ $BEA7 GP.DATETIME .EQ $BEA8 *-------------------------------------- GP.SDSTROY .EQ $BEAC GP.SDSTROYPATH .EQ $BEAD *-------------------------------------- GP.SRECNAME .EQ $BEAF GP.SRECNAMEOLD .EQ $BEB0 GP.SRECNAMENEW .EQ $BEB2 *-------------------------------------- GP.SSGINFO .EQ $BEB4 GP.SSGINFOPATH .EQ $BEB5 GP.FIACCESS .EQ $BEB7 GP.FITYPE .EQ $BEB8 GP.FIAUXTYPE .EQ $BEB9 GP.STTYPE .EQ $BEBB GP.FIBLOKS .EQ $BEBC GP.FIMDATE .EQ $BEBE GP.FICDATE .EQ $BEC2 *-------------------------------------- GP.MLIMRKEOFBUF .EQ $BEC6 GP.MLIMRKEOFBUF.REFNUM .EQ $BEC7 GP.SBUFADR .EQ $BEC8 *-------------------------------------- GP.SOPEN .EQ $BECB GP.TXTBUF .EQ $BECC GP.OSYSBUF .EQ $BECE GP.OREFNUM .EQ $BED0 *-------------------------------------- GP.SNEWLIN .EQ $BED1 GP.NEWLREF .EQ $BED2 GP.NLINEMASK .EQ $BED3 GP.NLINECHAR .EQ $BED4 *-------------------------------------- GP.MLIRW .EQ $BED5 GP.MLIRW.REFNUM .EQ $BED6 GP.MLIRW.DATAPTR .EQ $BED7 GP.MLIRW.COUNT .EQ $BED9 GP.MLIRW.TRANS .EQ $BEDB *-------------------------------------- GP.MLICF .EQ $BEDD GP.MLICF.REFNUM .EQ $BEDE *-------------------------------------- GP.CCCSPARE .EQ $BEDF *-------------------------------------- GP.GETBUFR .EQ $BEF5 GP.FREEBUFR .EQ $BEF8 GP.RSHIMEM .EQ $BEFB GP.TBOX .EQ $BEFD GP.TBOX.PrintF .EQ 0 *-------------------------------------- MAN SAVE inc/bs.i