2024-01-07 12:44:01 +00:00
|
|
|
|
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
|
2024-01-09 21:52:03 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
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
|
|
|
|
|
|
*--------------------------------------
|
2024-01-07 12:44:01 +00:00
|
|
|
|
GP.GETBUFR .EQ $BEF5
|
|
|
|
|
|
GP.FREEBUFR .EQ $BEF8
|
2024-01-09 21:52:03 +00:00
|
|
|
|
GP.RSHIMEM .EQ $BEFB
|
2024-01-17 21:04:13 +00:00
|
|
|
|
GP.TBOX .EQ $BEFD
|
|
|
|
|
|
GP.TBOX.PrintF .EQ 0
|
2024-01-07 12:44:01 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE inc/bs.i
|
