* ZERO PAGE LOCATIONS
intA	EQU &2A
top	EQU &12
page	EQU &18
himem	EQU 6
lomem	EQU 0
frmem	EQU 2
exvect	EQU &50
wkpnt	EQU &52
*FILL ZERO PAGE LOCATIONS
xlo	EQU &54
xhi	EQU &55
ylo	EQU &56
yhi	EQU &57
newx	EQU &58
newy	EQU &5A
tox	EQU &5C
xstep	EQU &5E
*first	EQU &5F
last	EQU &61
flag	EQU &63
leftx	EQU &64
rightx	EQU &68
oldx	EQU &6A
colr	EQU &6F
mask	EQU &6C
bitmap EQU &6D
xshift	EQU &6E

*MLINE ZERO PAGE LOCATIONS

mtop	EQU &54
mbase1	EQU &56
mbase2	EQU &58
mflag	EQU &5A
mynew	EQU &5D
myold	EQU &5E
mwork	EQU &5F

* WORKSPACE LOCATIONS
fillc1	EQU 0
fillc2	EQU 1
filltp	EQU 2

turtpn	EQU 3
turtx	EQU 4
turty	EQU 8
turth	EQU &C

matloc	EQU &11	; UP TO 24

whlpnt	EQU &25
whlstk	EQU &26	; UP TO 5D

errloc	EQU &5E ; UP TO 5F

zpstor	EQU &60	; UP TO 7C

vlvarw	EQU &7D	; UP TO 9F (PROV)

Xcent	EQU &A0	; UP TO A4
Ycent	EQU &A5	; UP TO A9

Xgrid	EQU &AA	; UP TO AE
Ygrid	EQU &AF	; UP TO B3

vlvrw2	EQU &B4	; UP TO CB

	ORG &8000
	EXEC &D9CD

	BRK
	DW 0
	JMP svce
	DFB &82
	DFB cpyoff-&8000
	DFB 1
title0	ASC "Plus "
title	ASC "Extended BASIC"
	BRK
	ASC "v2"
cpyoff	BRK
	ASC "(C)1988 Stephen Harris"
	BRK
jhlp	JMP help
svce	PHA
	LDA &DF0,X
	BMI romoff
	PLA
	CMP #9
	BEQ jhlp
	CMP #3
	BEQ ptitle
	CMP #2
	BEQ rsvspc
	CMP #6
	BNE nosvce
	JMP brk
romoff	PLA
nosvce	RTS
ptitle	TYA
	PHA
	LDY #&FF
ptitlp	INY
	LDA title0,Y
	JSR &FFE3
	CMP #0
	BNE ptitlp
	JSR &FFE7
	JSR &FFE7
	PLA
	TAY
	LDA #3
	RTS
rsvspc	TYA
	LDY &F4
	STA &DF0,Y
	TAY
	INY
	STA &53
	LDA #0
	STA &52
	TYA
	PHA
	LDA #&E
	LDY #errloc
	STA (wkpnt),Y
	INY
	LDA #&80
	STA (wkpnt),Y
	LDY #whlpnt
	LDA #0
	STA (wkpnt),Y
	JSR ctran2
	JSR trti2
	PLA
	TAY
	LDA #2
	RTS
help	LDA (&F2),Y
	CMP #13
	BNE ehelp2
	TYA
	PHA
	JSR &FFE7
	LDY #&FF
helpl1	INY
	LDA title,Y
	JSR &FFEE
	CMP #0
	BNE helpl1
	LDA #':'
	JSR &FFEE
	JSR tstbas
	BCC hlpact
	LDY #&FF
	BNE helpl2
hlpact	LDY #(helpm2-1)-helpm1
helpl2	INY
	LDA helpm1,Y
	JSR &FFE3
	CMP #0
	BNE helpl2
	JSR &FFE7
	PLA
	TAY
ehelp2	LDA #9
	RTS
helpm1	ASC "Not "
helpm2	ASC "Active"
	BRK
brk	PHA
	TYA
	PHA
	JSR tstbas
	BCC basbrk
	JMP nbasbk
basbrk	LDA &F6
	PHA
	LDA &F7
	PHA
	LDA &FD
	STA &F6
	LDA &FE
	STA &F7
	LDA #186
	LDX #0
	LDY #&FF
	JSR &FFF4
	TXA
	TAY
	JSR &FFB9
	TAY
	PLA
	STA &F7
	PLA
	STA &F6
	TYA
	CMP #4
	BEQ rgterr
	CMP #26
	BEQ jvar
	JMP endbrk
jvar	JMP variab
rgterr	LDA #>table
	STA &39
	LDA #<table
	STA &3A
	LDY &A
	DEY
	TYA
	CLC
	ADC &B
	STA &37
	LDA &C
	ADC #0
	STA &38
	JSR gtwrd
	BCC cntbrk
	JMP endbrk
cntbrk	DEX
	TXA
	CLC
	ADC &A
	STA &A
	PLA
	PLA
	PLA
	PLA
	PLA
	PLA
	PLA
	LDX #&1C
	LDY #&1C+zpstor
stzp	LDA &54,X
	STA (wkpnt),Y
	DEY
	DEX
	BPL stzp
	JSR callrt
	JSR rstzp
	PLA
	PLA
	PLA
	PLA
	PLA
	PLA
	LDA #0
	LDX #1
	JSR &FFF4
	CPX #3
	BNE ntos3a
	PLA
ntos3a	LDY #&FF
retlp	INY
	LDA rout,Y
	STA &600,Y
	CPY #erout-rout
	BNE retlp
	TYA
	PHA
	JSR vrsion
	SEC
	SBC #&31
	CMP #3
	BNE *+4
	LDA #2
	ASL A
	TAX
	PLA
	TAY
	DEY
	DEY
	LDA romcll,X
	STA &600,Y
	INY
	INX
	LDA romcll,X
	STA &600,Y
	LDY #errloc
	LDA (wkpnt),Y
	STA &FD
	INY
	LDA (wkpnt),Y
	STA &FE
	JMP &600

rout	LDY #74
	LDA (&50),Y
	STA &F4
	STA &FE30
	JMP retbas
erout
callrt	CLI
	LDA #0
	STA &52
	LDY &F4
	LDA &DF0,Y
	STA &53
	JMP (&37)
rstzp	LDX #0
	LDY #zpstor
rstzpl	LDA (wkpnt),Y
	STA &54,X
	INY
	INX
	CPX #&1D
	BNE rstzpl
	RTS
gtwrd	LDY #0
	LDA (&39),Y
	BEQ nmatch
	CMP (&37),Y
	BNE differ
nxtchr	INY
	LDA (&39),Y
	BMI newok
	CMP (&37),Y
	BEQ nxtchr
differ	LDA (&37),Y
	CMP #&2E
	BNE dffer2
	TYA
	TAX
	INX
dfflp1	INY
	LDA (&39),Y
	BPL dfflp1
	JMP newok2
dffer2	INY
	LDA (&39),Y
	BPL dffer2
	INY
	INY
	TYA
	SEC
	ADC &39
	STA &39
	LDA &3A
	ADC #0
	STA &3A
	JMP gtwrd
newok	TYA
	TAX
newok2	INY
	LDA (&39),Y
	STA &37
	INY
	LDA (&39),Y
	STA &38
	DEY
	DEY
	CLC
	RTS
nmatch	SEC
	RTS
endbrk	LDY #errloc
	LDA &FD
	STA (wkpnt),Y
	INY
	LDA &FE
	STA (wkpnt),Y
nbasbk	PLA
	TAY
	PLA
	RTS
table
	ASC "ARC"
	DFB 132
	DW ellcom
	ASC "BYE"
	DFB 129
	DW bye
	ASC "CASE"
	DFB 151
	DW case
	ASC "CAT"
	DFB 143
	DW cat
	ASC "CENTRE"
	DFB 134
	DW centre
	ASC "CFILL"
	DFB 134
	DW cfill
	ASC "CLTRANS"
	DFB 129
	DW clrang
	ASC "CLVARS"
	DFB 129
	DW tclear
	ASC "CLWEND"
	DFB 129
	DW clwend
	ASC "CURSOR"
	DFB 133
	DW csrcom
	ASC "DFORM"
	DFB 142
	DW dform
	ASC "DISS"
	DFB 156
	DW dsscom
	ASC "DSWAP"
	DFB 143
	DW dswap
	ASC "DUMPINT"
	DFB 150
	DW idump
	ASC "DUMPVAR"
	DFB 150
	DW vdump
	ASC "DVERIFY"
	DFB 144
	DW dverfy
	ASC "ERASE"
	DFB 148
	DW erase
	ASC "FFILL"
	DFB 134
	DW fllcom
	ASC "FIND"
	DFB 130
	DW find
	ASC "FIX"
	DFB 155
	DW fixcom
	ASC "FKEY"
	DFB 147
	DW fkey
	ASC "FREE"
	DFB 129
	DW free
	ASC "GPLOT"
	DFB 136
	DW gpltcm
	ASC "GREPL"
	DFB 152
	DW grepl
	ASC "GRID"
	DFB 158
	DW grid
	ASC "LARGE"
	DFB 138
	DW enlarg
	ASC "MATRIX"
	DFB 146
	DW matrix
	ASC "MERGE"
	DFB 130
	DW merge
	ASC "MIX"
	DFB 141
	DW mix
	ASC "MPAGE"
	DFB 139
	DW mvpage
	ASC "OSCLI"
	DFB 130
	DW comcli
	ASC "PACK"
	DFB 129
	DW mline
	ASC "PARTSAVE"
	DFB 149
	DW psave
	ASC "PENDOWN"
	DFB 129
	DW pendwn
	ASC "PENUP"
	DFB 129
	DW penup
	ASC "PRENV"
	DFB 147
	DW envl
	ASC "REN"
	DFB 131
	DW rencom
	ASC "REFLECT"
	DFB 135
	DW reflct
	ASC "ROTATE"
	DFB 135
	DW rtcord
	ASC "SHEAR"
	DFB 138
	DW shear
	ASC "SREPL"
	DFB 152
	DW srepl
	ASC "SYNTAX"
	DFB 130
	DW syntax
	ASC "TAHEAD"
	DFB 137
	DW fwdcom
	ASC "TARC"
	DFB 140
	DW tellcm
	ASC "TLEFT"
	DFB 135
	DW turtlt
	ASC "TMOVE"
	DFB 134
	DW tmove
	ASC "TRIGHT"
	DFB 135
	DW turtrt
	ASC "TURTLE"
	DFB 129
	DW trtint
	ASC "VERIFY"
	DFB 130
	DW vercom
	ASC "VIEW"
	DFB 130
	DW view
	ASC "WEND"
	DFB 129
	DW wend
	ASC "WHILE"
	DFB 145
	DW while
	ASC "XHELP"
	DFB 157
	DW hlpcom
	BRK
	BRK
	BRK
msgtbl	DW msge1
	DW msge2
	DW msge3
	DW msge4
	DW msge5
	DW msge6
	DW msge7
	DW msge8
	DW msge9
	DW msge10
	DW msge11
	DW msge12
	DW msge13
	DW msge14
	DW msge15
	DW msge16
	DW msge17
	DW msge18
	DW msge19
	DW msge20
	DW msge21
	DW msge22
	DW msge23
	DW msge24
	DW msge25
	DW msge26
	DW msge27
	DW msge28
	DW msge29
	DW msge30
msge24	ASC "<string>,"
msge2	ASC "<string>"
msge1	STR ""
msge3	STR "<start>,<end>,<new>,<inc>"
msge4	STR "<type>,<X>,<Y>,<Xs>,<Ys>,(<num>,<start>,<sweep>,<angle>)"
msge5	STR "<ON/OFF>"
msge8	ASC "<k>,"
msge6	STR "<X>,<Y>"
msge7	STR "<angle>"
msge9	STR "<distance>"
msge10	STR "<Xs>,<Ys>"
msge11	STR "<address>"
msge12	STR "<type>,<Xs>,<Ys>,(<num>,<start>,<sweep>,<angle>)"
msge13	STR "<colour 1>,<colour 2>"
msge14	STR "<drive>,<num. tracks>(,E)"
msge15	STR "(<drive>)"
msge16 STR "<drive>,(<num. tracks>,<start>)"
msge17	STR "<condition>"
msge18	STR "<top l>,<top r>,<bot l>,<bot r>"
msge19	STR "(<number>)"
msge21	ASC "<filename>,"
msge20	STR "<start>,<end>"
msge22	STR "(~)"
msge23	STR "<condtion> THEN PROCa..ELSE.."
msge25	STR "<value>"
msge26	STR "<binary string>"
msge27	STR "(+)"
msge28	STR "<address>(,C)"
msge29	STR "(C/F)"
msge30	STR "<lx>,<rx>,<by>,<ty>"

romcll	DW &8B0C	;1 }
	DW &8B9B	;2 } BASIC
	DW &9005	;4 }

	DW &9B03
	DW &9B29
	DW &9D3B

	DW &8A99
	DW &8AF6
	DW &8F86

	DW &B53A
	DW &B50E
	DW &BD37

	DW &A98C
	DW &A990
	DW &A915

	DW &A997
	DW &A99B
	DW &A917

	DW &9E00
	DW &9E23
	DW &A015

	DW 0
	DW 0
	DW &A93D

	DW &AC17
	DW &ABEE
	DW &AB0A

	DW &9ED0
	DW &9EDF
	DW &A118

	DW &98B4
	DW &98E3
	DW &9C29

	DW &B1C6
	DW &B197
	DW &B019

	DW &BCAA
	DW &BC8D
	DW &BB15

	DW &88D9
	DW &8957
	DW &8DB2

	DW &AE1B
	DW &ADEC
	DW &AD36

 	CHN "ARC"