first commit - moved from local dev to git

devtools/gbe/include/app_info.lst

@@ -0,0 +1,31 @@
+' these provide information about your application
+> FUNCTION app_timestamp !v1.00
+  $F%  !build date/time in gemdos format, see xbios(23)
+  RETURN LONG{HIMEM+12}
+ENDFUNC
+' build date and time in human readable form
+' call MODE once before use to set the output format
+> FUNCTION app_build_date$ !v1.00
+  RETURN CHAR{HIMEM+130} !10 chars
+ENDFUNC
+> FUNCTION app_build_time$ !v1.00
+  RETURN CHAR{HIMEM+120} !8 chars
+ENDFUNC
+' returns "68K" or "V4E" depending on the build type at compile time
+> FUNCTION app_build_type$ !v1.00
+  RETURN CHAR{HIMEM+154} !3 chars
+ENDFUNC
+' the revision of the compiler/linker at the moment your program was compiled
+> FUNCTION compiler_revision !v1.00
+  $F%
+  RETURN LONG{HIMEM+8}
+ENDFUNC
+' these provide information about the library
+' the revision of the library at the moment your program was compiled
+> FUNCTION library_revision !v1.00
+  $F%
+  RETURN LONG{HIMEM+4}
+ENDFUNC
+> FUNCTION library_id$ !v1.00
+  RETURN MKL$(LONG{HIMEM}) !'GBE3'
+ENDFUNC

devtools/gbe/include/cache.lst

@@ -0,0 +1,7 @@
+' this will flush the cpu and data cache on all 68K CPUs and the coldfire
+' it first tries ssystem(), if that don't work it does it the hard way
+> PROCEDURE flush_cache !v1.00
+  LOCAL asm%
+  asm%=LONG{HIMEM+28}
+  ~C:asm%()
+RETURN

devtools/gbe/include/cookies.lst

@@ -0,0 +1,29 @@
+' built in cookie routine
+> FUNCTION get_cookie(id%,VAR result%) !v1.00
+  $F%  !return: false=not found/true=found
+  LOCAL asm%
+  asm%=LONG{HIMEM+24}
+  RETURN C:asm%(L:id%,L:V:result%)
+ENDFUNC
+' the library start-up code has already fetched these cookies
+' these can be used to access the stored information
+> FUNCTION cpu_cookie !v1.00
+  $F%
+  RETURN LONG{HIMEM+32}
+ENDFUNC
+> FUNCTION fpu_cookie !v1.00
+  $F%
+  RETURN LONG{HIMEM+36}
+ENDFUNC
+> FUNCTION mch_cookie !v1.00
+  $F%
+  RETURN LONG{HIMEM+40}
+ENDFUNC
+> FUNCTION snd_cookie !v1.00
+  $F%
+  RETURN LONG{HIMEM+44}
+ENDFUNC
+> FUNCTION cf_cookie !v1.00
+  $F%
+  RETURN LONG{HIMEM+48}
+ENDFUNC

devtools/gbe/include/cpu_fpu.lst

@@ -0,0 +1,9 @@
+' these are special routines that only activate options when compiled
+' allows activation of cpu and fpu enhanced options seperately
+' as opposed to the TT? function which always activates both
+> PROCEDURE cpu_on !v1.00
+  $X PATIFP  !ignored by the edtior
+RETURN
+> PROCEDURE fpu_on !v1.00
+  $X PATCHXX  !ignored by the edtior
+RETURN

devtools/gbe/include/erl.lst

@@ -0,0 +1,6 @@
+' last line an error occured at (compiled only)
+' this is used with the advanced debugging options ($Tx)
+> FUNCTION erl !v1.00
+  $F%
+  RETURN LONG{HIMEM+80}
+ENDFUNC

devtools/gbe/include/options.lst

@@ -0,0 +1,13 @@
+' these options can be turned on
+' enable licomlib/runlib compatibility
+> PROCEDURE enable_gem !v1.00
+  BYTE{HIMEM+168}=TRUE
+RETURN
+' enable VDI bezier curves
+> PROCEDURE enable_curve !v1.00
+  BYTE{HIMEM+167}=TRUE
+RETURN
+' enable expanded rgb range (0-1000)
+> PROCEDURE enable_vsetcolor !v1.00
+  BYTE{HIMEM+166}=TRUE
+RETURN

devtools/gbe/include/startup.lst

@@ -0,0 +1,15 @@
+' needs to be called at the very top of your program, very first thing!
+> PROCEDURE check_fatal !v1.00
+  IF FATAL !wrong binary for this cpu?
+    ~FORM_ALERT(1,"[3][ |Wrong CPU type detected! ][ Abort ]")
+    EDIT
+  ENDIF
+RETURN
+' only do this check if your program uses the $Mx compiler option
+' needs to be checked right away before any arrays are dimensioned
+> PROCEDURE check_err !v1.00
+  IF ERR=8 !$mx failed?
+    ~FORM_ALERT(1,"[3][ |Not enough memory! ][ Abort ]")
+    EDIT
+  ENDIF
+RETURN

devtools/gbe/include/ste_fnc.lst

@@ -0,0 +1,13 @@
+' define some handy flags
+ejoy!=BTST(STE?,0)     !machine has enhanced joysticks
+dma_snd!=BTST(STE?,1)  !machine has stereo 8-bit playback
+cpu!=BTST(STE?,2)      !cpu is =>68020
+fpu!=BTST(STE?,3)      !fpu detected
+coldfire!=BTST(STE?,4) !coldfire detected
+gbe3!=BTST(STE?,5)     !safe to access himem
+compiled!=BTST(STE?,6) !code is compiled
+cpu_on!=BTST(STE?,7)   !cpu options are active
+fpu_on!=BTST(STE?,8)   !fpu options are active
+auto!=BTST(STE?,9)     !started from \auto or no aes init
+acc!=BTST(STE?,10)     !program is a desk accessory
+mint!=BTST(STE?,11)    !mint detected via ssystem()

devtools/gbe/include/system.lst

@@ -0,0 +1,19 @@
+' the library start-up code already called these OS functions
+' these functions can be used to fetch the information stored by the library
+> FUNCTION getrez !v1.00
+  $F%
+  RETURN WORD{HIMEM+84}
+ENDFUNC
+' the library start-up creates a DTA for you, this returns its address
+> FUNCTION fgetdta !v1.00
+  $F%
+  RETURN LONG{HIMEM+20}
+ENDFUNC
+> FUNCTION graf_handle(VAR cw&,ch&,bw&,bh&) !v1.00
+  $F%
+  cw&=WORD{HIMEM+88}
+  ch&=WORD{HIMEM+90}
+  bw&=WORD{HIMEM+92}
+  bh&=WORD{HIMEM+94}
+  RETURN WORD{HIMEM+86}
+ENDFUNC

devtools/gbe/system/gfabasic.txt

@@ -0,0 +1,318 @@
+;#1
+DEFBIT	DEFWRD
+DEFBYT	DEFWRD
+DEFINT	DEFWRD
+DEFFLT	DEFWRD
+DEFSTR	DEFWRD
+$B	$
+$C	$
+$E	$
+$F	$
+$I	$
+$M	$
+$N	$
+$P	$
+$RC	$
+$S	$
+$U	$
+$X	$
+$%	$
+.	Special Commands
+;#2
+DIM?	DIM
+OPTION	OPTION BASE
+BASE	OPTION BASE
+MAT	Matrix Commands
+SET	Matrix Commands
+ONE	Matrix Commands
+CPY	Matrix Commands
+XCPY	Matrix Commands
+TRANS	Matrix Commands
+NORM	Matrix Commands
+DET	Matrix Commands
+QDET	Matrix Commands
+RANG	Matrix Commands
+INV	Matrix Commands
+NEG	Matrix Commands
+CHR$	ASC
+BIN$	STR$
+HEX$	STR$
+OCT$	STR$
+VAL?	VAL
+CVL	CVI
+CVS	CVI
+CVF	CVI
+CVD	CVI
+MKI$	CVI
+MKL$	CVI
+MKS$	CVI
+MKF$	CVI
+MKD$	CVI
+CFLOAT	CINT
+DPEEK	PEEK
+LPEEK	PEEK
+POKE	PEEK
+DPOKE	PEEK
+LPOKE	PEEK
+SPOKE	PEEK
+SDPOKE	PEEK
+SLPOKE	PEEK
+{	WORD
+}	WORD
+BYTE	WORD
+INT	WORD
+LONG	WORD
+FLOAT	WORD
+CARD	WORD
+SINGLE	WORD
+DOUBLE	WORD
+CHAR	WORD
+V:	VARPTR
+ARRPTR	VARPTR
+CLR	CLEAR
+ERASE	CLEAR
+SSORT	QSORT
+WITH	QSORT
+DELETE	INSERT
+FALSE	PI
+TRUE	PI
+DATE$	SETTIME
+TIME$	SETTIME
+TIMER	SETTIME
+_X	_C
+_Y	_C
+~	VOID
+HIMEM	BASEPAGE
+MSHRINK	MALLOC
+MFREE	MALLOC
+;#3
++	Arithmetic Operators
+-	Arithmetic Operators
+/	Arithmetic Operators
+*	Arithmetic Operators
+MOD	Arithmetic Operators
+\	Arithmetic Operators
+^	Arithmetic Operators
+>	<
+&X	Assignment Operator
+&H	Assignment Operator
+&O	Assignment Operator
+;#4
+SGN	ABS
+ODD	EVEN
+TRUNC	INT()
+FIX	INT()
+FRAC	INT()
+MAX	MIN
+LOG	EXP
+COS	SIN
+TAN	SIN
+ASIN	SIN
+ACOS	SIN
+ATN	SIN
+DEG	SIN
+RAD	SIN
+SINQ	SIN
+COSQ	SIN
+VARIAT	FACT
+COMBIN	FACT
+RND	RANDOM
+RAND	RANDOM
+RANDOMIZE	RANDOM
+INC	DEC
+SUB	ADD
+MUL	ADD
+DIV	ADD
+SUCC	PRED
+BSET	BCLR
+BCHG	BCLR
+BTST	BCLR
+SHR|	SHR
+SHR&	SHR
+SHL	SHR
+SHL|	SHR
+SHL&	SHR
+ROL	SHR
+ROL|	SHR
+ROL&	SHR
+ROR	SHR
+ROR|	SHR
+ROR&	SHR
+;#5
+LEFT$	RIGHT$
+TRIM$	LEN
+SPACE$	STRING$
+SPC	STRING$
+LSET	RSET
+;#6
+FORM	FORM INPUT
+AT	PRINT
+WRITE	PRINT
+USING	PRINT USING
+LOCATE	PRINT
+CRSLIN	CRSCOL
+POS	CRSCOL
+TAB	CRSCOL
+HTAB	CRSCOL
+VTAB	CRSCOL
+KEYGET	KEYTEST
+KEYLOOK	KEYTEST
+DATA	Data Commands
+READ	Data Commands
+RESTORE	Data Commands
+_DATA	Data Commands
+CHDRIVE	DFREE
+DIR$	DFREE
+CHDIR	DFREE
+FILES	DIR
+FSETDTA	FGETDTA
+FSNEXT	FSFIRST
+RMDIR	MKDIR
+LST:	OPEN
+AUX:	OPEN
+CON:	OPEN
+MID:	OPEN
+IKB:	OPEN
+VID:	OPEN
+PRN:	OPEN
+LPT:	OPEN
+COM:	OPEN
+STD:	OPEN
+LOF	CLOSE
+LOC	CLOSE
+EOF	CLOSE
+TOUCH	CLOSE
+RENAME	NAME
+KILL	NAME
+BSAVE	BLOAD
+BGET	BLOAD
+BPUT	BLOAD
+INP&	INP
+INP%	INP
+OUT	INP
+OUT&	INP
+OUT%	INP
+RECALL	STORE
+RELSEEK	SEEK
+AS	FIELD
+INP?	INP()
+OUT?	INP()
+INPAUX$	Serial (RS232) and MIDI Interfaces
+INPMID$	Serial (RS232) and MIDI Interfaces
+MOUSEX	MOUSE
+MOUSEY	MOUSE
+MOUSEK	MOUSE
+SHOWM	HIDEM
+STRIG	STICK
+PADX	PADT
+PADY	PADT
+LPENY	LPENX
+LPRINT	HARDCOPY
+LPOS	HARDCOPY
+WAVE	SOUND
+DMACONTROL	DMASOUND
+;#7
+THEN	IF
+ELSE	IF
+ENDIF	IF
+ON	ON GOSUB
+CASE	SELECT
+CONT	SELECT
+DEFAULT	SELECT
+ENDSELECT	SELECT
+TO	FOR
+STEP	FOR
+DOWNTO	FOR
+NEXT	FOR
+UNTIL	REPEAT
+WEND	WHILE
+LOOP	DO
+EXIT	EXIT IF
+RETURN	PROCEDURE
+GOSUB	PROCEDURE
+@	PROCEDURE
+ENDFUNC	FUNCTION
+FN	DEFFN
+BREAK	ON BREAK
+RESUME	ON ERROR
+ERR	ERROR
+ERR$	ERROR
+FATAL	ERROR
+EVERY	Interrupt Programming
+AFTER	Interrupt Programming
+!	REM
+'	REM
+:	GOTO
+PAUSE	DELAY
+END	EDIT
+STOP	EDIT
+PSAVE	SAVE
+LLIST	LIST
+SYSTEM	QUIT
+TROFF	TRON
+;#8
+VSETCOLOR	SETCOLOR
+COLOR	SETCOLOR
+OFFSET	CLIP
+LINE	PLOT
+DRAW	PLOT
+PBOX	BOX
+RBOX	BOX
+PRBOX	BOX
+PCIRCLE	CIRCLE
+ELLIPSE	CIRCLE
+PELLIPSE	CIRCLE
+POLYMARK	POLYLINE
+POLYFILL	POLYLINE
+SPUT	SGET
+PUT	GET
+;#9
+KEY	ON MENU KEY
+IBOX	ON MENU IBOX
+OBOX	ON MENU IBOX
+OFF	ON MENU GOSUB
+MENU	ON MENU GOSUB
+BUTTON	ON MENU BUTTON
+MESSAGE	ON MENU MESSAGE
+CLOSEW	OPENW
+W_INDEX	W_HAND
+TITLEW	CLEARW
+INFOW	CLEARW
+TOPW	CLEARW
+FULLW	CLEARW
+;#10
+BIOS	BIOS, XBIOS, and GEMDOS
+XBIOS	BIOS, XBIOS, and GEMDOS
+GEMDOS	BIOS, XBIOS, and GEMDOS
+L:	W:
+INTIN	CONTRL
+INTOUT	CONTRL
+PTSIN	CONTRL
+PTSOUT	CONTRL
+V_CLSWK	V_OPNWK
+V_CLSVWK	V_OPNVWK
+V_UPDWK	V_CLRWK
+VST_UNLOAD_FONTS	VST_LOAD_FONTS
+STE?	Other System-related Commands
+TT?	Other System-related Commands
+;#11
+GCONTRL	Chapter 11 - AES Libraries
+GINTIN	Chapter 11 - AES Libraries
+GINTOUT	Chapter 11 - AES Libraries
+ADDRIN	Chapter 11 - AES Libraries
+ADDROUT	Chapter 11 - AES Libraries
+GB	Chapter 11 - AES Libraries
+OB_NEXT	Object Structure
+OB_HEAD	Object Structure
+OB_TAIL	Object Structure
+OB_TYPE	Object Structure
+OB_FLAGS	Object Structure
+OB_STATE	Object Structure
+OB_SPEC	Object Structure
+OB_X	Object Structure
+OB_Y	Object Structure
+OB_W	Object Structure
+OB_H	Object Structure
+OB_ADR	Object Structure
+APPL_TRECORD	APPL_TPLAY
+;eof