;#SECTION "MAIN", CODE

	org	userMem - 2
	db	0BBh, 6Dh
Start:
	ld	hl, TokenHook
	ld	de, 8000h
	ld	bc, FinHook - TokenHook + 1
	ldir
	ld	hl, 8000h
	ld	a, 1
	B_CALL	4F99h
	ret

TokenHook:
	db	83h
	push	af
	bit	0, (iy + 21h)
	ret	z
	pop	af
	push	hl
	ld	hl, 24h
	or	a
	sbc	hl, de
	pop	hl
	jr	z, TokRound
	push	hl
	ld	hl, 4Ah
	or	a
	sbc	hl, de
	pop	hl
	jr	z, TokDeriv
	push	hl
	ld	hl, 06h
	or	a
	sbc	hl, de
	pop	hl
	jr	z, TokFrac
	push	hl
	ld	hl, 04h
	or	a
	sbc	hl, de
	pop	hl
	jr	z, TokDec
	push	hl
	ld	hl, 48h
	or	a
	sbc	hl, de
	pop	hl
	jr	z, TokIntegral
	push	hl
	ld	hl, 03BAh
	or	a
	sbc	hl, de
	pop	hl
	jr	z, TokLcm
	push	hl
	ld	hl, 03BCh
	or	a
	sbc	hl, de
	pop	hl
	jr	z, TokGcd
	push	hl
	ld	hl, 0450h
	or	a
	sbc	hl, de
	pop	hl
	jr	z, TokGet
	push	hl
	ld	hl, 05FAh
	or	a
	sbc	hl, bc
	pop	hl
	ret	nz
	ld	hl, 8000h + (NameRemainToken - TokenHook - 1)
	ret

TokGet:
	ld	hl, 8000h + (NameGetToken - TokenHook - 1)
	ret

TokDec:
	ld	hl, 8000h + (NameDecToken - TokenHook - 1)
	ret

TokFrac:
	ld	hl, 8000h + (NameFracToken - TokenHook - 1)
	ret

TokGcd:
	ld	hl, 8000h + (NameGcdToken - TokenHook - 1)
	ret

TokIntegral:
	ld	hl, 8000h + (NameIntegrToken - TokenHook - 1)
	ret

TokLcm:
	ld	hl, 8000h + (NameLcmToken - TokenHook - 1)
	ret

TokDeriv:
	ld	hl, 8000h + (NameDerivToken - TokenHook - 1)
	ret

TokRound:
	ld	hl, 8000h + (NameRoundToken - TokenHook - 1)
	ret

NameGetToken:
	db	9
	db	"#include "
NameDerivToken:
	db	11
	db	"d\x96rivation("
NameRoundToken:
	db	7
	db	"arondi("
NameDecToken:
	db	6
	db	"\x05ToDec"
NameFracToken:
	db	7
	db	"\x05ToFrac"
NameGcdToken:
	db	5
	db	"pgcd("
NameIntegrToken:
	db	9
	db	"integral("
NameLcmToken:
	db	5
	db	"ppcm("
NameRemainToken:
	db	6
	db	"reste("
FinHook:
;#IMPORT "TOKENS"
;#IMPORT "HooksEqu"