************* EQUATES FOR BASIC.SYSTEM ************************

	MACHINE	M65C02
	LONGA	OFF
	LONGI	OFF

*********************************************************
* Constants for the Loader
*********************************************************
CIADR		EQU	$24	 		;00 - CI load address (after Loader)
CIDST		EQU	$9A	 		;00 - CI destination (working) address
CILEN		EQU	$24	 		;CI length in pages, including the alias page at $BD00
CIMEM		EQU	$96	 		;00 - HIMEM
CIGLB		EQU	$BE	 		;00 - Globals starting address

*********************************************************
* Globals
*********************************************************
INBUF		EQU	$200		;input buffer
CIENT		EQU	$BE00		;command interp. entry
OUT0		EQU	$BE10
IN0			EQU	$BE20
GOPRO		EQU	$BF00
DVNUM		EQU	$BF30		;Device number
MACHID		EQU	$BF98		;MachineID
SLTBYT		EQU	$BF99		;Slot 
PFIXPTR		EQU	$BF9A		;Prefix pointer
APSOFT		EQU	$E000		

*********************************************************
* Misc zero page locations
*********************************************************
CSWL		EQU	$36
CSWH		EQU	$37
KSWL		EQU	$38
KSWH		EQU	$39
ZTRACE		EQU	$F2
*********************************************************
* ZERO PAGE LOCATIONS FOR MONITOR, TEMPS, AND APPLESOFT.
*********************************************************
BASL		EQU	$28
PROMPT		EQU	$33
FROM		EQU	$3A	 
TO			EQU	$3C	 
VPTR		EQU	$3E	 
SIMPTR		EQU	$69
ARRPTR		EQU	$6B
ENDVAR		EQU	$6D
STRBOT		EQU	$6F	 
BEGPROG		EQU	$67
ENDPROG		EQU	$AF
HIMEM		EQU	$73
RNONLY		EQU	$D6
ONERRFLG	EQU	$D8
ASERR		EQU	$DE
ASLOWTR		EQU	$9B
ASLINE		EQU	$50 
***************************************************
* OTHER SYSTEM ADDRESSES 
***************************************************
MLIENTRY	EQU	$BF00	 
JSPARE		EQU	$BF03
GLBDEV		EQU	$BF30	 
MEMTABL		EQU	$BF58
GLBLEVEL	EQU	$BF94	 
GLBPFX		EQU	$BF9A	 
IVERSION	EQU	$BFFD
RAM1IN		EQU	$C08B
RAM2IN		EQU	$C083
RAMOUT		EQU	$C082
INLINE		EQU	$200
INBUF1		EQU	INLINE+1
CATBUF		EQU	INBUF1+$58
TXBUF2		EQU	INLINE+$80
CLRSCRN		EQU	$FC58			;Clear Screen
HOME		EQU	$FC58			;Home command
CLEOL		EQU	$FC9C			;Clear to End of Line
COUT1		EQU	$FDF0			;Character Output
GOCSWL		EQU	$FDED	 
GOKSWL		EQU	$FD10	 
CHIN1		EQU	$FD1B
ASFNDLIN	EQU	$D61A
PREPBAS		EQU	$D665
RUNBASIC	EQU	$D7D2
APSFTBRK	EQU	$D865			;AppleSoft Break Command
WRMSTRT		EQU	$D43F	 		;Warm Start Entry
APSFTNORM	EQU	$F273	 		;Applesoft's SETNORM routine for Video state
CLDSTRT		EQU	$E000			;Cold Start Location
GLOBALS		EQU	$BE00	 		;ORIGIN FOR CI'S GLOBALS.
RUNFLG		EQU $BE42

BELL		EQU	$87
***************************************************
* MLI COMMAND NUMBERS
*************************************************** 
CRECMD		EQU	$C0			;Create
DSTCMD		EQU	$C1			;Destroy/Delete
RNMCMD		EQU	$C2			;Rename
SFINFO		EQU	$C3			;Set File Info
GFINFO		EQU	$C4			;Get File Info
GTINFO		EQU	$C4
ONLINCMD	EQU	$C5			;On Line
ONLINE		EQU	$C5
SPREFX		EQU	$C6			;Set Prefix
SPFIX		EQU	$C6
GPREFX		EQU	$C7			;Get Prefix
GPFIX		EQU	$C7
OPNCMD		EQU	$C8			;Open File
NLINCMD		EQU	$C9
READCMD		EQU	$CA			;Read
WRITCMD		EQU	$CB			;Write
CLOSCMD		EQU	$CC			;Close
FLSHCMD		EQU	$CD			;Flush
SMRKCMD		EQU	$CE			;Set Mark
GMRKCMD		EQU	$CF			;Get Mark
SEOFCMD		EQU	$D0			;Set End of File
GEOFCMD		EQU	$D1			;Get End of File
SBUFCMD		EQU	$D2			;Set Buffer
GBUFCMD		EQU	$D3			;Get Buffer

*******************************************************
* CI COMMAND NUMBERS (Reference to SRCHTBL comments)
*******************************************************
CIRUN		EQU	$06	 		;CI'S RUN COMMAND
CIEXEC		EQU	$08	 		;CI'S EXEC COMMAND
CIOPEN		EQU	$0B	 		;CI'S OPEN COMMAND.
CIBSAVE		EQU	$0F			;CI'S BSAVE COMMAND
CIAPND		EQU	$16	 		;CI'S APPEND COMMAND
CIPRFX		EQU	$19	 		;CI'S PREFIX COMMAND. 
*******************************************************
* CI FILE TYPES
*******************************************************
TTXT		EQU	$04	 		;TEXT FILE. 
TBIN		EQU	$06	 		;GENERAL BINARY DATA/PROGRAM. 
TDIR		EQU	$0F	 		;DIRECTORY FILE. 
TADB		EQU	$19			;ASAP (PIE) Data Base file 
TAWP		EQU	$1A	 		;ASAP Word Processor file
TASP		EQU	$1B	 		;ASAP Spread Sheet file 
TS16		EQU	$B3			;GS/OS File System Applications
TPAS		EQU	$EF	 		;PASCAL.AREA
TCMD		EQU	$F0	 		;ADDITIONAL CI COMMAND CODE FILE. 
TINT		EQU	$FA	 		;INTEGER BASIC PROGRAM.
TIVR		EQU	$FB	 		;INTEGER BASIC VARIABLES.
TBAS		EQU	$FC	 		;APPLESOFT PROGRAM.
TVAR		EQU	$FD	 		;APPLESOFT VARIABLES.
TREL		EQU	$FE	 		;EDASM RELOCATABLE CODE.
TSYS		EQU	$FF	 		;CI AND MLI SYSTEM FILES.
*******************************************************
* CI ERROR CODES
*******************************************************
SYSBUFERR	EQU	$FE
ERRANGE		EQU	$02			;Range Error
NODEV		EQU	$03			;No device found Error
CIEOFERR	EQU	$05			;End of File Error
CIFNFERR	EQU	$06			;File not found Error
REALFNF		EQU	$07			;
LOCKED		EQU	$0A			;File Locked Error
ERRINVLD	EQU	$0B			;Invalid Value
MEMFUL		EQU	$0C	 		;Memory Full
ERRTYP		EQU	$0D			;File Type Mismatch
TOOBIG		EQU	$0E			;File Too Big
NOTRUN		EQU	$0F	 		;"NOT DIRECT COMMAND ERROR"
ERRSYN		EQU	$10			;Syntax Error
FNOPN		EQU	$12			;File already open Error
FILBUSY		EQU	$14			;File in use Error
FILSOPN		EQU	$15	 		;"FILES STILL OPEN" WARNING.

*******************************************************
* EQUATES AND OTHER INFO FROM $BE00 AREA ADDED HERE
*******************************************************
* COMMAND PARAMETER PBITS/FBITS BIT DEFINITIONS: 
*******************************************************
PFIX		EQU	$80	 		;PREFIX NEEDS FETCHING, FILE NAME OPTIONAL 
SLOT		EQU	$40	 		;NO PARAMTERS TO BE PROCESSED 
RRUN		EQU	$20	 		;COMMAND ONLY VALID DURING PROGRAM EXECUTION 
FNOPT		EQU	$10	 		;FILE NAME IS OPTIONAL. 
CRFLG		EQU	$08	 		;CREATE ALLOWED.
T			EQU	$04	 		;FILE TYPE  
FN2			EQU	$02	 		;FILE NAME "2" FOR RENAME. 
FN1			EQU	$01	 		;FILE NAME EXPECTED. 
PVALS		EQU $BE58		;ADDED FOR MUNGE
PTYPE		EQU $12			;ADDED FOR MUNGE
*******************************************************
* AND FOR PBITS+1/FBITS+1 DEFINTIONS:
*******************************************************
AD			EQU	$80	 		;ADDRESS
B			EQU	$40	 		;BYTE
E			EQU	$20	 		;END ADDRESS
L			EQU	$10	 		;LENGTH
LINE		EQU	$08	 		;'@' LINE NUMBER. 
SD			EQU	$04	 		;SLOT AND DRIVE NUMBERS 
F			EQU	$02	 		;FIELD
R			EQU	$01	 		;RECORD
V			EQU	$00	 		;VOLUME NUMBER IGNORED.

