+/bin

+mkdir -p bin

+

+if [ ! -f "../bin/EXPRMNTL.8xv" ];then

+  md bin

+;This is used in gvardata

+tokenhook_optout  = 0

+<!--

+If you see this, you are probably viewing it as plaintext, and that should be

+fine, but it looks prettier when it is rendered as Markdown.

+You can see this document here:

+    https://github.com/Zeda/Grammer2/blob/master/docs/readme.md

+

+-->

+Version.......2.51.0.0    (I will probably forget to change this :( )

+Last Update...15 February 2020

+| clrPart <sub>R►Pr(</sub>        | This will clear the particle buffer.

+| runPart <sub>R►PΘ(</sub>        | This will recalculate the particle positions and draw them. If you want to change the particle buffer, just add a pointer argument. `Get("EBUF→A:R▶Pθ(A-2`

+| addPart <sub>P►Rx(</sub>        | This will add a particle to the buffer. Just use the pixel coordinate position. For example: `P▶Rx(2,2`

+| partType <sub>P▶Ry(</sub>       | This will change the particle effect. `0` is normal sand, `1` is boiling, `2` lets you put in a basic custom rule set. If you want it to check Down, then Left/Right, then Up, use the following pattern: `0000 1000 0110 0001`<sub>2</sub>. That makes it first check down, and if it cannot go down, it then checks left or right, and if it cannot go left or right, it tests up. In decimal, that is 2145, so you would do: `P▶Ry(2,2145`. To make things easier, though, you can just use a string. This will achieve the same effect: `P▶Ry(2,"D,LR,U`. **Note** that you do need the actual string, not a pointer.

+| addPart(' <sub>P►Rx('</sub>     | This will convert a rectangular region of the screen to particles. The inputs are `P▶Rx('Y,X,Height,Width`. This scans the area for pixels that are turned on and adds them to the current particle buffer.

+| $ <sub>▶DMS</sub> | Found in the angle menu, this is the "module" token. Modules allow you to extend Grammer's functionality. Grammer comes with a default module which must be included to use some functions (like the `Menu` command). Currently, you can have up to five other modules. For example, if you have a module packaged as an appvar called `MyModule`: `"5MyModule→▶DMS`. In order to execute a function `MyFunc(` from one of the modules, use : `▶DMSMyFunc`. If you have the token hook enabled (from Grammer's main menu), it looks a little cleaner: `"5MyModule→$` and `$MyFunc`, respectively.

+| ins <sub>augment</sub>     | This is used to insert data into a var. The syntax is: `augment(#ofbytes,Offset,"VarName`. For example, to insert 4 bytes at the beginning of appvar `Hello`: `augment(4,0,"UHello`.

+p1_FindGVarData:

+  ld hl,FindGVarData

+  ld (prev_page_call_address),hl

+  jp prev_page_call

+

+  ld a,(font_ptr_page)

+  or a

+  jr z,+_

+  set 6,h

+  res 7,h

+  inc a

+  ld a,(font_ptr_page)

+  or a

+  jr z,+_

+  set 6,h

+  res 7,h

+  inc a

+  ld hl,0706h

+  ld b,h

+  dec e

+  ld a,(de)

+  ld a,(font_ptr_page)

+  or a

+  jr z,+_

+  set 6,h

+  res 7,h

+  inc a

+#define char_TI_TOK

+  ex de,hl

+  ld a,b

+  or a

+  jr z,+_

+  ld b,0

+  add hl,bc

+  ld c,10

+  adc hl,bc

+  jp p,+_

+  ld h,$40

+  inc a

+_:

+  ld (ThetaPrimeVar),a

+  inc hl

+  inc hl

+  ld b,h

+  ld c,l

+

+  ld a,b

+  jr nc,GetVarInfoVarFound

+  ld hl,4

+  add hl,de

+  xor a

+  ld (hl),a

+  dec hl

+  ld (hl),a

+  dec hl

+  ld (hl),a

+#include "startmenu.z80"

+;This is used in gvardata

+tokenhook_optout  = 0

+ .db "Grammer v2.51.0.0",0

+

+;now reset the tokenhook opt-out

+  call p1_FindGVarData

+  or a

+  ret nz

+  res tokenhook_optout,(hl)

+

+;now set the tokenhook opt-out

+  call p1_FindGVarData

+  or a

+  ret nz

+  set tokenhook_optout,(hl)

+_:

+readbyte = -_-RAMCodeStart+ramCode

+  ld c,6

+  in b,(c)

+  out (6),a

+  ld d,(hl)

+  inc l

+  call z,IncHLMem1

+  out (c),b

+  ret

+setup_parserhook:

+  call SetUpData

+  call FindGVarData

+  call readbyte

+  ;D is the flags

+  bit tokenhook_optout,d

+  call z,p0_tokenhook_on

+  in a,(6)

+  ld hl,GrammerHook

+  bcall(_SetParserHook)

+  ret

+p0_tokenhook_on:

+  ld hl,tokenhook_on

+  ld (next_page_call_address),hl

+  ld hl,tokenHookPtr+2

+  dec b

+  ld a,b

+  jp next_page_call

+

+

+

+StartMenu:

+  call setup_parserhook

+  xor a

+  ld b,a

+  or d

+  dec a

+  jr z,TokenSearchLoop

+  ld hl,TokenTable_2

+  ld a,(hl)

+  and $FE

+;  ld a,e

+;  cp (hl)

+  cp e

+ .db $02,0,1,$F2           ;►DMS (turns into "$")

+ .db $04,0,6,$05,"Float"   ;►Dec

+ .db $06,0,8,5,"lFactor"   ;►Frac

+ .db $28,0,4,"ins "        ;augment(

+ .db $32,0,4,"max "        ;max(

+ .db $34,0,4,"min "        ;min(

+ .db $36,0,7,"clrPart"     ;R►Pr

+ .db $38,0,7,"runPart"     ;R►PΘ

+ .db $3A,0,8,"addPart "    ;P►Rx

+ .db $3C,0,9,"partType "   ;P►Ry

+ .db $44,0,5,"misc "       ;solve(

+ .db $58,0,1,5Fh           ;i (turns into "_")

+ .db $BE,0,5,"call "       ;prgm

+ .db $E6,0,5,"Mode "       ;Fix

+ .db $EC,0,9,"setUpInt "   ;Func

+ .db $EE,0,8,"StackOp "    ;Param

+ .db 0                     ;End of Table 0

+ .db $26,1,5,"Text "       ;Text(

+ .db $38,1,5,"Rect "       ;Line(

+ .db $3C,1,5,"Tile "       ;Pt-On(

+ .db $3E,1,7,"Sprite "     ;Pt-Off(

+ .db $40,1,8,"TileMap "    ;Pt-Change(

+ .db $48,1,9,"Contrast "   ;Shade(

+ .db $4E,1,9,"shiftBuf "   ;Tangent(

+ .db $62,1,7,"WriteB "     ;int(

+ .db $70,1,4,"Inv "        ;not(

+ .db $72,1,7,"WriteW "     ;iPart(

+ .db $7C,1,4,"jmp "        ;ln(

+; .db $7E,1,2,"2^"         ;e^(

+ .db $A6,1,4,"For "        ;For(

+; .db $AA,1,6,"retPnt"      ;Return

+ .db $B4,1,7,"GetInc "     ;IS>(

+ .db $B6,1,7,"GetDec "     ;DS<(

+ .db $BC,1,7,"setBuf "     ;Disp

+ .db $BE,1,7,"DispBuf"     ;DispGraph

+ .db $C0,1,8,"setFont "    ;Output(

+ .db $CE,1,8,"MakeVar "    ;Send(

+ .db $D0,1,8,"FindVar "    ;Get(

+

+TokenTable_2:

+ .db $B4,3,6,"Local "      ;►Nom(

+ .db $BE,3,8,"randInt "    ;randInt(

+ .db $C2,3,4,"del "        ;sub(

+ .db $C8,3,6,"inStr "      ;inString(

+ .db $F4,3,5,"Play "       ;conj(

+ .db $FE,3,5,"eval "       ;expr(

+ .db $01,4,7,"Search "     ;length(   ;use 01 instead of 00 (00 indicates the end of the table)

+ .db $40,4,7,"StackE "     ;Pmt_End

+ .db $42,4,7,"StackS "     ;Pmt_Bgn

+ .db $72,4,4,"gbuf"        ;G-T

+ .db $7A,4,5,"Arch "       ;Archive

+ .db $7C,4,7,"UnArch "     ;UnArchive

+ .db $7E,4,4,"Asm "        ;Asm(

+ .db $82,4,7,"AsmHex "     ;AsmPrgm

+ .db 0                     ;End of Table 1