A2osX/BASIC.FX/BASIC.S.GP..txt

NEW
  AUTO 3,1
*--------------------------------------
				jmp	BS.ENTRY			GP.ENTRY		
				jmp	BS.DOSCMD           GP.DOSCMD		
				jmp	GP.RTS              GP.EXTRNCMD		
				jmp	BS.ERROUT           GP.ERROUT		
				jmp	BS.PRINTERR         GP.PRINTERR		
				.BS 1                   GP.ERRCODE		
*--------------------------------------
GP.OUTVECT0		.DA	MON.COUT1
GP.OUTVECT1		.DA BS.NODEVERR
GP.OUTVECT2		.DA BS.NODEVERR
GP.OUTVECT3		.DA BS.NODEVERR
GP.OUTVECT4		.DA BS.NODEVERR
GP.OUTVECT5		.DA BS.NODEVERR
GP.OUTVECT6		.DA BS.NODEVERR
GP.OUTVECT7		.DA BS.NODEVERR
GP.INVECT0		.DA MON.KEYIN
GP.INVECT1		.DA	BS.NODEVERR
GP.INVECT2		.DA BS.NODEVERR
GP.INVECT3		.DA BS.NODEVERR
GP.INVECT4		.DA BS.NODEVERR
GP.INVECT5		.DA BS.NODEVERR
GP.INVECT6		.DA BS.NODEVERR
GP.INVECT7		.DA BS.NODEVERR
GP.VECTOUT		.DA MON.COUT1
GP.VECTIN		.DA MON.KEYIN
GP.VDOSO		.DA	BS.JMP.GP.VSYSO
GP.VDOSI		.DA BS.JMP.GP.VSYSI
GP.VSYSO		.BS 2
GP.VSYSI		.BS 2
GP.VDEFSLT		.DA #6
GP.VDEFDRV		.DA #1
GP.PREGA		.BS 1
GP.PREGX		.BS 1
GP.PREGY		.BS 1
GP.DTRACE		.BS 1
GP.STATE		.BS 1
GP.EXECACTV		.BS 1
GP.IFILACTV		.BS 1
GP.OFILACTV		.BS 1
GP.PFXACTV		.BS 1
GP.DIRFLG		.BS 1
GP.EDIRFLG		.BS 1
GP.STRINGS		.BS 1
GP.TBUFPTR		.BS 1
GP.INPTR		.BS 1
GP.CHRLAST		.BS 1
GP.OPENCNT		.BS 1
GP.EXECFILE		.BS 1
GP.CATFLAG		.BS 1
GP.XTRNADDR		.BS 2
GP.XLEN			.BS 1
GP.XCNUM		.BS 1
GP.AllowedBITS	.BS 2
GP.FoundBITS	.BS 2
GP.ParamA		.BS 2
GP.ParamB		.BS 3
GP.ParamE		.BS 2
GP.ParamL		.BS 2
GP.ParamS		.BS 1
GP.ParamD		.BS 1
GP.ParamF		.BS 2
GP.ParamR		.BS 2
GP.ParamV		.BS 1
GP.ParamAT		.BS 2
GP.ParamT		.BS 1
GP.ParamINPR	.BS 1
GP.VPATH1		.DA	BS.CMDBUF.LEN
GP.VPATH2		.DA	MLI.PATHBUF
*--------------------------------------
GP.GOSYSTEM		sta	GP.GOSYSTEM.C
				stx	BS.CALLX
				and	#$1F
				tax
				lda BS.ParamLByte,x
				sta	GP.GOSYSTEM.P
				ldx	BS.CALLX
				jsr	MLI
GP.GOSYSTEM.C	.BS 1
GP.GOSYSTEM.P	.DA GP.GOSYSTEM.P
				bcs	GP.BADCALL
				rts
*--------------------------------------
GP.BADCALL		ldx	#$12

.1				cmp	BS.MLIERTBL,x
				beq	.2

				dex
				bpl	.1

				ldx	#$13

.2				lda BS.BIERRTBL,x
				ldx	BS.CALLX
				sec

GP.RTS			rts
*--------------------------------------
GP.CISPARE1		.BS 1
*--------------------------------------
GP.SCREATE		.DA #7
GP.SCREATEPATH	.DA BS.CMDBUF.LEN
GP.CRACCESS		.DA #$C3
GP.CRTYPE		.BS 1 
GP.CRAUXTYPE	.BS 2
GP.CRSTTYPE		.BS 1
GP.DATETIME		.BS 4
*--------------------------------------
GP.SDSTROY		.DA #1
GP.SDSTROYPATH	.DA BS.CMDBUF.LEN
*--------------------------------------
GP.SRECNAME		.DA #2
GP.SRECNAMEOLD	.DA BS.CMDBUF.LEN
GP.SRECNAMENEW	.DA	MLI.PATHBUF
*--------------------------------------
GP.SSGINFO		.BS 1
GP.SSGINFOPATH	.DA BS.CMDBUF.LEN
GP.FIACCESS		.BS 1
GP.FITYPE		.BS 1
GP.FIAUXTYPE	.BS 2
GP.STTYPE		.BS 1
GP.FIBLOKS		.BS 2
GP.FIMDATE		.BS 4
GP.FICDATE		.BS 4
*--------------------------------------
GP.MLIMRKEOFBUF	.DA #2
GP.MLIMRKEOFBUF.REFNUM
				.BS 1
GP.SBUFADR		.BS 3
*--------------------------------------
GP.SOPEN		.DA #3	
GP.TXTBUF		.DA BS.CMDBUF.LEN
GP.OSYSBUF		.BS 2
GP.OREFNUM		.BS 1
*--------------------------------------
GP.SNEWLIN		.DA #3
GP.NEWLREF		.BS 1
GP.NLINEMASK	.DA #$7F
GP.NLINECHAR	.DA #13
*--------------------------------------
GP.MLIRW		.DA #4
GP.MLIRW.REFNUM	.BS 1
GP.MLIRW.DATAPTR	.BS 2
GP.MLIRW.COUNT	.BS 2
GP.MLIRW.TRANS	.BS 2
*--------------------------------------
GP.MLICF		.DA #1
GP.MLICF.REFNUM	.BS 1
*--------------------------------------
GP.CCCSPARE		.BS 1
*--------------------------------------
GP.COPYRIGHT	.AS -"COPYRIGHT APPLE, 1983"
				jmp	BS.GETBUFR			GP.GETBUFR
				jmp	BS.FREEBUFR			GP.FREEBUFR
GP.RSHIMEM		.BS 5
*--------------------------------------
MAN
SAVE usr/src/basic.fx/basic.s.gp
LOAD usr/src/basic.fx/basic.s
ASM