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		
*--------------------------------------
				.DA	MON.COUT1			GP.OUTVECT0		
				.DA BS.NODEVERR         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 MON.KEYIN           GP.INVECT0		
				.DA	BS.NODEVERR         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 MON.COUT1           GP.VECTOUT		
				.DA MON.KEYIN           GP.VECTIN		
				.DA	BS.JMP.GP.VSYSO     GP.VDOSO		
				.DA BS.JMP.GP.VSYSI     GP.VDOSI		
				.BS 2                   GP.VSYSO		
				.BS 2                   GP.VSYSI		
				.DA #6                  GP.VDEFSLT		
				.DA #1                  GP.VDEFDRV		
				.BS 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 2                   GP.XTRNADDR		
				.BS 1                   GP.XLEN			
				.BS 1                   GP.XCNUM		
				.BS 2                   GP.AllowedBITS	
				.BS 2                   GP.FoundBITS	
				.BS 2                   GP.ParamA		
				.BS 3                   GP.ParamB		
				.BS 2                   GP.ParamE		
				.BS 2                   GP.ParamL		
				.BS 1                   GP.ParamS		
				.BS 1                   GP.ParamD		
				.BS 2                   GP.ParamF		
				.BS 2                   GP.ParamR		
				.BS 1                   GP.ParamV		
				.BS 2                   GP.ParamAT		
				.BS 1                   GP.ParamT		
				.BS 1                   GP.ParamINPR	
				.DA	BS.CMDBUF.LEN       GP.VPATH1		
				.DA	MLI.PATHBUF         GP.VPATH2		
*--------------------------------------
				sta	GP.GOSYSTEM.C		GP.GOSYSTEM
				stx	BS.CALLX
				and	#$1F
				tax
				lda BS.ParamLByte,x
				sta	GP.GOSYSTEM.P
				ldx	BS.CALLX
				jsr	MLI
				.BS 1					GP.GOSYSTEM.C
				.DA GP.GOSYSTEM.P		GP.GOSYSTEM.P
				bcs	GP.BADCALL
				rts
*--------------------------------------
				ldx	#$12				GP.BADCALL

GP.MLIERR1		cmp	BS.MLIERTBL,x
				beq	GP.MLIERR2

				dex
				bpl	GP.MLIERR1

				ldx	#$13

GP.MLIERR2		lda BS.BIERRTBL,x
				ldx	BS.CALLX
				sec

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