antoine-source/graforth/graforth.s

*
* GraForth
*
* (c) 1981, Paul Lutus
* (s) 2020, LoGo
*

	xc
	xc
	mx	%11
	typ	bin
	org	$6000
	lst	off

*----------------------------

WNDLFT	=	$20
WNDWDTH	=	$21
WNDTOP	=	$22
WNDBTM	=	$23
CH	=	$24
CV	=	$25
INVFLG	=	$32
CSWL	=	$36
CSWH	=	$37
KSWL	=	$38
KSWH	=	$39
SOFTEV	EQU	$03F2
PWREDUP	EQU	$03F4
AMPERV	EQU	$03F5
IRQLOC	EQU	$03FE
KBD	EQU	$C000
KBDSTROBE	EQU	$C010
SPKR	EQU	$C030
TXTCLR	EQU	$C050
TXTSET	EQU	$C051
MIXCLR	EQU	$C052
TXTPAGE1	EQU	$C054
HIRES	EQU	$C057
BUTN2	EQU	$C063
LCBANK2	EQU	$C083
INIT	EQU	$FB2F
VTABZ	EQU	$FC24
HOME	EQU	$FC58
RDKEY	EQU	$FD0C
RDCHAR	EQU	$FD35
PRBYTE	EQU	$FDDA
COUT	EQU	$FDED
SETKBD	EQU	$FE89
SETVID	EQU	$FE93
MON	EQU	$FF65

*----------------------------

L0800	=	$0800
L2000	=	$2000	; This is HGR1
L9000	=	$9000	; EDITOR 1 LOAD ADDRESS
LB600	=	$B600	; EDITOR 2 LOAD ADDRESS
L9A00	=	$9A00	; HIMEM 48K
LC000	=	$C000	; HIMEM 64K

*----------------------------

L6000	JMP	L609C
	JMP	L6421
	JMP	L6A9B

L6009	STA	$B7
	LDX	$CA
	BMI	L602A
	BNE	L601A
	LSR
L6012	STA	$B8
	STA	$B9
L6016	LDY	#$00
	BEQ	L6036
L601A	DEX
	BNE	L6022
	LSR	$92
	JMP	L6012

L6022	STA	$B9
	LSR
	STA	$B8
	JMP	L6016

L602A	STA	$B8
	LSR	$92
L602E	LSR
	INX
	BNE	L602E
	STA	$B9
	LDY	#$02
L6036	LDA	L6082,Y
	STA	L606C
	LDA	L6082+1,Y
	STA	L606D
	LDX	#$FF
	TYA
	BEQ	L6048
	INX
L6048	STX	$BB
	LDY	$B7
L604C	LDX	$92
L604E	CPY	$B9
	BNE	L6057
	BVS	L6057
	LDA	SPKR
L6057	DEY
	BNE	L605F
	LDA	SPKR
	LDY	$B7
L605F	SEC
	DEX
	BNE	L607A
	LDA	$BA
	SBC	$B7
	STA	$BA
	CLV
	BCS	L604C
L606C	NOP
L606D	NOP
	BIT	KBD
	BMI	L6079
	BIT	$BB
	DEC	$B8
	BNE	L604C
L6079	RTS

L607A	LDA	#$03
L607C	SBC	#$01
	BNE	L607C
	BEQ	L604E
L6082	DEC	$B9
	NOP
	NOP
L6086	LDA	$03D2
	CMP	#>LC000
	BCC	L6097
	LDA	LCBANK2
	LDA	LCBANK2
	LDA	#>LC000
	BNE	L6099
L6097	LDA	#>L9A00
L6099	STA	$AD
	RTS

L609C	LDX	$03EA
	LDA	$03D2
	CLC
	ADC	#$09
	STA	L60F9+2
	ADC	#$03
	STA	L6105+2
	STA	L617F+2
	ADC	#$01
	STA	L617C+2
	STA	L610D+2
	LDY	#$00
	STY	$D8
	LDA	#$4C
	STA	AMPERV
	JSR	L60F4
	LDA	#<L6000
	STA	SOFTEV
	STA	AMPERV+1
	STA	$03F0
	STA	IRQLOC
	LDA	#>L6000
	STA	SOFTEV+1
	STA	AMPERV+2
	STA	$03F1
	STA	IRQLOC+1
	EOR	#$A5
	STA	PWREDUP
	LDA	#$0B
	INY
	JSR	L60F4
	LDA	#$61
	INY
	JSR	L60F4
	JMP	L6248

L60F4	CPX	#$60
	BNE	L60F9
	RTS

L60F9	STA	$DEE1,Y	;	LOGO
	RTS

L60FD	LDX	$03EA
	CPX	#$60
	BNE	L6105
	RTS

L6105	STA	$E123
	RTS

L6109	DB	$10
L610A	DB	$05

L610B	LDY	#$10
L610D	LDA	$E25C
L6110	STA	L610A
	STY	L6109
	JSR	L6086
	LDA	#$23
	JSR	L60FD
	LDA	$A6
	PHA
	JSR	L6421
	LDA	#$00
	STA	$C7
	PLA
	BPL	L613C
	LDA	L6109
	CMP	#$10
	BNE	L613C
	LDA	L610A
	CMP	#$05
	BNE	L613C
	JMP	L62AE

L613C	LDA	#$87
	STA	$A8
	JSR	COUT
	LDY	#$00
	BIT	$A3
	BPL	L614B
	LDY	#$04
L614B	LDA	L6195,Y
	BEQ	L615B
	BMI	L6155
	TAY
	BNE	L614B
L6155	JSR	COUT
	INY
	BNE	L614B
L615B	INY
	LDA	L6195,Y
	BEQ	L6172
	CMP	L6109
	BNE	L615B
L6166	INY
	LDA	L6195,Y
	BPL	L6172
	JSR	COUT
	JMP	L6166

L6172	LDA	L6109
	CMP	#$10
	BNE	L618C
	LDX	L610A
L617C	LDY	$E23F,X
L617F	LDA	$E171,Y
	INY
	PHA
	ORA	#$80
	JSR	COUT
	PLA
	BPL	L617F
L618C	JSR	L7F2C
	JSR	L6A9B
	JMP	L6248

L6195	ASC	8D
	ASC	"Run"
	HEX	0D
	ASC	8D
	ASC	"Compile Error: "
	DB	$00
	DB	$10
	ASC	"DOS: "
	DB	$11
	ASC	"Program Too Long"
	DB	$12
	ASC	"If-Then, While-Repeat"
	DB	$13
	ASC	""A2":"A2" Not Equal To "A2";"A2""
	DB	$00

L61EE	LDY	#$00
L61F0	LDA	L61FC,Y
	BEQ	L61FB
	JSR	COUT
	INY
	BNE	L61F0
L61FB	RTS

L61FC	ASC	"GraFORTH ][ (C) P. Lutus 1981"8D00
L621B	BIT	L6247
	BMI	L6230
	DEC	L6247
	LDY	#$00
L6225	LDA	L6231,Y
	BEQ	L6230
	JSR	COUT
	INY
	BNE	L6225
L6230	RTS

L6231	ASC	8D
	ASC	84
	ASC	"BLOADCHR.SYS,A$800"8D00
L6247	DB	$00

L6248	JSR	L6086
	JSR	L7ADF
	JSR	L621B
	LDA	#$FF
	JSR	L7785
	LDA	#$00
	JSR	L788F
	LDA	#$00
	STA	$AC
	STA	L754D
	STA	$CA
	STA	L7C50
	STA	$C7
	STA	L7705
	STA	$C0
	STA	$A6
	STA	$9C
	STA	$9D
	STA	L6B77
	STA	CH
	STA	L7FBC
	STA	$A4
	TAX
	JSR	L7F53
	JSR	L79BB
	JSR	L7FB0
	LDA	#$23
	JSR	L60FD
	LDA	#$03
	JSR	L76BC
	JSR	L7348
	JSR	L7867
	JSR	L7ACE
	JSR	L61EE
	JSR	L6F81
	LDX	#$FF
	TXS
	LDA	#$FF
	STA	$33
	LDA	#$80
	STA	$D9
	STA	$76
L62AE	BIT	$A6
	BMI	L62B5
	JSR	L6510
L62B5	JSR	L6303
	LDA	$A2
	BEQ	L62C4
	LDY	#$13
	JSR	L610D
	JMP	L62AE

L62C4	BIT	$A8
	BMI	L62AE
	JSR	L634C
	JMP	L62AE

L62CE	LDA	L7C50
	BEQ	L6302
	LDY	#$00
	STY	$A5
L62D7	LDY	$A5
	CPY	$9C
	BEQ	L6302
	LDA	#$8D
	JSR	COUT
	LDA	#$DB	;	[
	JSR	COUT
	JSR	L7F2C
	LDA	$1E00,Y
	INY
	LDX	$1E00,Y
	INY
	STY	$A5
	JSR	L7BF3
	JSR	L7F2C
	LDA	#$DD	;	]
	JSR	COUT
	JMP	L62D7
L6302	RTS

L6303	LDA	#$00
	STA	$A2
	STA	$A1
	STA	$A8
	JSR	L636F
	JSR	L62CE
L6311	JSR	L6545
	LDY	#$FF
L6316	INY
	LDA	$0200,Y
	CMP	#$A0
	BEQ	L6316
	CMP	#$8D
	BEQ	L6311
	STY	$A7
	LDA	#$00
	STA	$A0
	JSR	L6334
	BIT	$A8
	BMI	L6333
	LDA	$A2
	BNE	L6311
L6333	RTS

L6334	BIT	$A0
	BMI	L6342
	BIT	$A8
	BMI	L6342
	JSR	L63CB
	JMP	L6334

L6342	LDA	$A2
	BEQ	L6347
	RTS

L6347	LDA	#$60
	JMP	L6A8B

L634C	LDA	#$00
	STA	$A3
	JSR	L6356
	JMP	($008E)

L6356	LDA	L6FC9
	CLC
	ADC	#$02
	STA	$8E
	LDA	L6FC9+1
	ADC	#$00
	STA	$8F
L6365	CMP	$AD
	BCC	L636E
	LDY	#$11
	JMP	L610D
L636E	RTS

L636F	JSR	L6356
	LDY	#$00
	TYA
	STA	($8E),Y
	RTS

L6378	LDY	$A7
	LDA	$0200,Y
	CMP	#$8D
	BEQ	L6385
	CMP	#$A0
	BNE	L6388
L6385	JSR	L63FB
L6388	LDA	L6FC9
	STA	$9A
	LDA	L6FC9+1
	STA	$9B
	BNE	L63A5
L6394	LDY	#$00
	LDA	($9A),Y
	TAX
	INY
	LDA	($9A),Y
	INY
	CMP	#$00
	BEQ	L63CA
	STA	$9B
	STX	$9A
L63A5	LDY	#$02
	LDX	$A7
L63A9	LDA	($9A),Y
	BPL	L63B6
	CMP	$0200,X
	BNE	L6394
	INX
	INY
	BNE	L63A9
L63B6	CPY	#$02
	BEQ	L6394
	LDA	$0200,X
	CMP	#$8D
	BEQ	L63C7
	CMP	#$A0
	BNE	L6394
	BEQ	L63C9
L63C7	DEC	$A0
L63C9	CLC
L63CA	RTS

L63CB	JSR	L6378
	LDA	($9A),Y
	PHA
	TYA
	CLC
	ADC	$9A
	STA	$9A
	BCC	L63DB
	INC	$9B
L63DB	PLA
	CMP	#$0A
	BNE	L63F4
	JSR	L63E6
	JMP	L63FB

L63E6	LDA	#$FF
	STA	$A3
	JMP	($009A)

L63ED	LDA	$9A
	LDX	$9B
	JMP	L6A80

L63F4	LDA	#$00
	STA	$A3
	JSR	L63ED
L63FB	LDY	$A7
	BIT	$A0
	BMI	L641E
	DEY
L6402	INY
	LDA	$0200,Y
	CMP	#$8D
	BEQ	L641C
	CMP	#$A0
	BNE	L6402
L640E	INY
	LDA	$0200,Y
	CMP	#$8D
	BEQ	L641C
	CMP	#$A0
	BEQ	L640E
	BNE	L641E
L641C	DEC	$A0
L641E	STY	$A7
	RTS

*----------------------------

L6421	JSR	L6427
	JMP	L6560

L6427	LDA	#<L6C0C
	STA	CSWL
	LDA	#>L6C0C
	STA	CSWH
	LDA	#<L6AD5
	STA	KSWL
	LDA	#>L6AD5
	STA	KSWH
	JMP	$03EA

L643A	JSR	L636F
	JSR	L6A8F
	JSR	L6A8F
	JSR	L7233
	LDY	#$00
	STY	$94
	STY	L7224
L644D	LDA	L64C6,Y
	JSR	COUT
	INY
	CMP	#$BA	;	:
	BNE	L644D
	JSR	L7065
	LDY	#$00
L645D	LDA	L64D7,Y
	JSR	COUT
	INY
	CMP	#$BA	;	:
	BNE	L645D
	JSR	L6A9B
	LDA	#$00
	STA	L6247
	LDA	$0200
	CMP	#$D9	;	Y
	BNE	L647A
	DEC	L7224
L647A	LDY	#$FF
L647C	INY
	LDA	L64E7,Y
	CMP	#$BF	;	?
	BNE	L648A
	JSR	L64F7
	JMP	L647C

L648A	CMP	#$BE	;	>
	BEQ	L64A5
	CMP	#$BC	;	<
	BNE	L649F
	LDA	#$60
	JSR	PRBYTE
	LDA	#$00
	JSR	PRBYTE
	JMP	L647C

L649F	JSR	COUT
	JMP	L647C

L64A5	SEC
	LDA	$8E
	SBC	#$00
	TAY
	LDA	$8F
	SBC	#$60
	JSR	PRBYTE
	TYA
	JSR	PRBYTE
	LDA	#$8D
	JSR	COUT
	LDA	#$00
	STA	L7224
	DEC	L6247
	JMP	L636F

L64C6	ASC	8D
	ASC	"Save File Name :"
L64D7	ASC	8D
	ASC	"Autorun (Y/N) :"
L64E7	ASC	8D84
	ASC	"BSAVE?,A$<,L$>"
L64F7	TYA
	PHA
	LDY	#$00
L64FB	LDA	($8C),Y
	BEQ	L650D
	CMP	#$8D
	BEQ	L650D
	CMP	$94
	BEQ	L650D
	JSR	COUT
	INY
	BNE	L64FB
L650D	PLA
	TAY
	RTS

L6510	LDA	L7224
	BNE	L6516
	RTS

L6516	LDA	L6FC9
	STA	$8C
	LDA	L6FC9+1
	STA	$8D
	LDY	#$00
	STY	$A3
	LDA	($8C),Y
	PHA
	INY
	LDA	($8C),Y
	STA	$8D
	PLA
	STA	$8C
L652F	INY
	LDA	($8C),Y
	BMI	L652F
	TYA
	CLC
	ADC	$8C
	STA	$8C
	BCC	L653E
	INC	$8D
L653E	LDA	#$00
	STA	$AC
	JMP	($008C)

L6545	BIT	$A6
	BMI	L6556
	LDY	#$00
L654B	LDA	L6559,Y
	JSR	COUT
	INY
	CMP	#$A0
	BNE	L654B
L6556	JMP	L6A9B

L6559	ASC	8D
	ASC	"Ready "
L6560	LDA	$03EA
	CMP	#$60
	BNE	L6568
	RTS

L6568	LDY	#$00
	STY	$A6
	LDA	CV
	PHA
L656F	LDA	L6580,Y
	BEQ	L657A
	JSR	COUT
	INY
	BNE	L656F
L657A	PLA
	STA	CV
	JMP	L6CC3

L6580	ASC	8D
	ASC	84
	ASC	"CLOSE"8D00
L6589	LDA	$8E
	SEC
	SBC	#$05
	STA	$8C
	LDA	$8F
	SBC	#$00
	STA	$8D
	LDA	$8C
	SEC
	SBC	L6FC9
	LDA	$8D
	SBC	L6FC9+1
	BCC	L65BC
	LDY	#$02
	LDA	($8C),Y
	CMP	#$72
	BNE	L65BC
	LDA	$8C
	STA	$8E
	LDA	$8D
	STA	$8F
	INY
	INY
	LDA	($8C),Y
	TAX
	DEY
	LDA	($8C),Y
	RTS

L65BC	LDA	#$00
	LDX	#$00
	RTS

L65C1	LDX	#$FF
	BNE	L65C7
L65C5	LDX	#$00
L65C7	LDA	#$8D
	JSR	COUT
	LDY	$A7
L65CE	LDA	$0200,Y
	CMP	#$8D
	BEQ	L65DF
	CMP	#$A0
	BEQ	L65DF
	JSR	COUT
	INY
	BNE	L65CE
L65DF	LDY	#$00
L65E1	LDA	L661C,Y
	CPX	#$00
	BEQ	L65EB
	LDA	L6629,Y
L65EB	JSR	COUT
	INY
	CMP	#$A8
	BNE	L65E1
	LDY	#$00
L65F5	LDA	L6635,Y
	JSR	COUT
	INY
	CMP	#$A0
	BNE	L65F5
	BIT	$C7
	BMI	L6608
	BIT	$A6
	BPL	L6619
L6608	DEC	$A8
	LDY	#$00
	STY	$A6
	STY	$C7
	LDA	CH
	PHA
	JSR	L6560
	PLA
	STA	CH
L6619	JMP	L6A9B

L661C	ASC	" Not Unique ("
L6629	ASC	" Not Found ("
L6635	ASC	"Return) "

L663D	INC	$8C	; not called?
	BNE	L6643
	INC	$8D
L6643	RTS

L6644	LDA	$F1
	LSR
	TAX
	LDA	L68C8,X
	STA	$0314
	LDA	L6908,X
	STA	$0311
	LDA	L68E8,X
	STA	$0310
	STA	$0315
	LDA	$F2
	LSR
	TAX
	LDA	L68C8,X
	STA	$031E
	LDA	L6908,X
	STA	$0318
	LDA	L68E8,X
	STA	$0316
	STA	$0320
	LDA	$F3
	LSR
	TAX
	LDA	L68C8,X
	STA	$0325
	LDA	L6908,X
	STA	$0322
	LDA	L68E8,X
	STA	$0321
	STA	$0326
	RTS

L6690	LDA	$C6
	BIT	L77A6
	BPL	L6699
	EOR	#$01
L6699	JSR	L789A
	LDA	#$00
L669E	STA	$B4
	TAY
L66A1	LDA	$1700,Y
	CMP	#$01
	BEQ	L66AD
	LDA	$1900,Y
	BEQ	L66E6
L66AD	LDA	#$FF
	JSR	L66F6
	LDY	$B4
	LDA	$1900,Y
	CMP	#$01
	BEQ	L66CB
	LDX	#$F0
L66BD	LDA	$1900,Y
	STA	$00,X
	INY
	INX
	BNE	L66BD
	LDA	#$00
	JSR	L6714
L66CB	LDY	$B4
	LDX	#$10
L66CF	LDA	$1800,Y
	STA	$1700,Y
	LDA	$1900,Y
	STA	$1800,Y
	INY
	DEX
	BNE	L66CF
	LDY	$B4
	LDA	#$00
	STA	$1900,Y
L66E6	LDA	$B4
	CLC
	ADC	#$10
	BCS	L66F0
	JMP	L669E

L66F0	LDX	$C6
	LDA	$C054,X
	RTS

L66F6	LDX	$1700,Y
	BNE	L66FC
	RTS

L66FC	PHA
	LDA	#$00
L66FF	STA	$1700,Y
	LDX	#$F0
L6704	LDA	$1700,Y
	STA	$00,X
	INY
	INX
	BNE	L6704
	PLA
	BIT	L754D
	BPL	L6714
	RTS

L6714	LDX	$BF
	CPX	#$51
	BEQ	L6744
	EOR	INVFLG
	BPL	L6744
	JSR	L672B
	JSR	L6744
	LDA	$BF
	LDX	$C3
	JMP	L79BF

L672B	LDA	#$49
	STA	L7A7C
	STA	L7843
	LDA	#$FF
	STA	L7A7D
	STA	L7844
	LDA	#$31
	STA	L7A7E
	STA	L7845
	RTS

L6744	JSR	L6644
	LDX	#$0A
	LDA	#$00
L674B	STA	$DA,X
	DEX
	BPL	L674B
	LDA	$F9
	ASL
	ASL
	STA	$DA
	LDA	$FA
	ASL
	ASL
	STA	$DF
	LDA	$FB
	ASL
	ASL
	STA	$E4
	LDA	#$0B	; All are low buffer pointer
	STA	L686D+1
	JSR	L6822
	LDA	#$16
	STA	L686D+1
	JSR	L681F
	LDA	#$21
	STA	L686D+1
	JSR	L681F
	JSR	L6813
	LDA	$FC
	JSR	L76BC
	LDA	#$00
	STA	L686D+1
	LDY	$B4
	LDA	$FD
	STA	$B5
	LDA	$FE
	BNE	L6792
L6791	RTS

L6792	STA	$B6
L6794	LDY	#$00
	LDA	($B5),Y
	CMP	#$FF
	BEQ	L6791
	STA	$9F
	AND	#$07
	BEQ	L67A5
	JSR	L76BC
L67A5	LDY	#$03
L67A7	LDA	($B5),Y
	CLC
	ADC	|$00F3,Y
	STA	$02FF,Y
	DEY
	BNE	L67A7
	LDA	#$00
	STA	$BC
	LDY	#$02
	LDA	$FB
	BNE	L67BE
	DEY
L67BE	STY	$BB
	JSR	L682A
	LDA	$E5
	LDY	$E7
	BEQ	L67CC
	JSR	L68AC
L67CC	CLC
	ADC	$F7
	STA	$80
	LDA	$E6
	LDY	$E7
	BEQ	L67DA
	JSR	L68AC
L67DA	CLC
	ADC	$F8
	STA	$82
	BIT	L754D
	BPL	L67F4
	BIT	$9F
	BPL	L67EE
	JSR	L7492
	JMP	L6806

L67EE	JSR	L748F
	JMP	L6806

L67F4	BIT	$9F
	BPL	L67FE
	JSR	L78FD
	JMP	L6806

L67FE	LDA	$80
	STA	$84
	LDA	$82
	STA	$86
L6806	LDA	$B5
	CLC
	ADC	#$04
	STA	$B5
	BCC	L6794
	INC	$B6
	BNE	L6794
L6813	LDY	#$0A
L6815	LDA	|$00E5,Y
	STA	|$00DA,Y
	DEY
	BPL	L6815
	RTS

L681F	JSR	L6813
L6822	LDA	#$08
	STA	$BC
L6826	LDA	#$02
	STA	$BB
L682A	LDA	#$02
	STA	$BE
	LDA	#$00
	STA	$B9
L6832	JSR	L6850
	DEC	$BE
	BPL	L6832
	LDA	$BC
	ORA	$BB
	TAX
	LDA	$B9
	STA	$E5,X
	DEC	$BB
	BPL	L682A
	LDA	$BC
	SEC
	SBC	#$04
	STA	$BC
	BPL	L6826
L684F	RTS

L6850	LDX	#$00
	LDA	$BE
	ASL
	ASL
	ORA	$BB
	TAY
	LDA	|$00DA,Y
	BEQ	L684F
	BPL	L6866
	EOR	#$FF
	CLC
	ADC	#$01
	INX
L6866	STA	$B7
	LDA	$BC
	ORA	$BE
	TAY
L686D	LDA	$0300,Y
	BEQ	L684F
	BPL	L687A
	EOR	#$FF
	CLC
	ADC	#$01
	INX
L687A	STA	$B8
	CMP	#$7F
	BNE	L6884
	LDA	$B7
	BNE	L689E
L6884	LDA	$B7
	CMP	#$7F
	BNE	L688E
	LDA	$B8
	BNE	L689E
L688E	DEC	$B8
	LDY	#$07
	LDA	#$00
L6894	LSR	$B7
	BCC	L689A
	ADC	$B8
L689A	LSR
	DEY
	BNE	L6894
L689E	DEX
	BNE	L68A6
	EOR	#$FF
	CLC
	ADC	#$01
L68A6	CLC
	ADC	$B9
	STA	$B9
	RTS

L68AC	LDX	#$00
	STA	$B9
	JSR	L68BE
	STA	$B7
	TYA
	JSR	L68BE
	STA	$B8
	JMP	L688E

L68BE	CMP	#$80
	BCC	L68C7
	INX
	EOR	#$FF
	ADC	#$00
L68C7	RTS

L68C8	HEX	00060C13191F252B31363C41474C5155
	HEX	5A5E62666A6D707375787A7B7D7E7E7F
L68E8	HEX	7F7F7E7E7D7B7A787573706D6A66625E
	HEX	5A55514C47413C36312B251F19130C06
L6908	HEX	00FAF4EDE7E1DBD5CFCAC4BFB9B4AFAB
	HEX	A6A29E9A9693908D8B88868583828281
	HEX	81818282838586888B8D9093969A9EA2
	HEX	A6ABAFB4B9BFC4CACFD5DBE1E7EDF4FA
	HEX	FF060C12181F252B30363C41474C5155
	HEX	5A5E62666A6D707376787A7C7D7E7F7F
	HEX	7F7F7F7E7D7C7A787673706D6A66625E
	HEX	5A55514C47413C36302B251F18120C06

L6988	LDY	#$02
	LDX	#$00
L698C	LDA	|$0095,Y
	BPL	L69A3
	INX
	SEC
	LDA	#$00
	SBC	|$0094,Y
	STA	|$0094,Y
	LDA	#$00
	SBC	|$0095,Y
	STA	|$0095,Y
L69A3	DEY
	DEY
	BPL	L698C
	STX	$9E
	RTS

L69AA	DEC	$9E
	BNE	L69BB
	SEC
	LDA	#$00
	SBC	$96
	STA	$96
	LDA	#$00
	SBC	$97
	STA	$97
L69BB	RTS

L69BC	LDY	#$10
	LDA	#$00
	STA	$98
	STA	$99
L69C4	ASL	$98
	ROL	$99
	ASL	$94
	ROL	$95
	BCC	L69DB
	CLC
	LDA	$98
	ADC	$96
	STA	$98
	LDA	$99
	ADC	$97
	STA	$99
L69DB	DEY
	BNE	L69C4
	LDA	$98
	STA	$96
	LDA	$99
	STA	$97
	RTS

L69E7	LDY	#$10
	LDA	#$00
	STA	$98
	STA	$99
L69EF	ASL	$96
	ROL	$97
	ROL	$98
	ROL	$99
	SEC
	LDA	$98
	SBC	$94
	TAX
	LDA	$99
	SBC	$95
	BCC	L6A09
	STA	$99
	STX	$98
	INC	$96
L6A09	DEY
	BNE	L69EF
	RTS

L6A0D	LDY	$A4
	STA	$032C,Y
	TXA
	INY
	STA	$032C,Y
	INY
	STY	$A4
	RTS

L6A1B	LDY	$A4
	DEY
	LDX	$032C,Y
	STX	$8D
	DEY
	LDA	$032C,Y
	STA	$8C
	STY	$A4
	RTS

L6A2C	LDY	$9C
	BNE	L6A32
	INY
	INY
L6A32	DEY
	LDX	$1E00,Y
	DEY
	LDA	$1E00,Y
	STY	$9C
	RTS

L6A3D	LDY	$9C
	STA	$1E00,Y
	INY
	TXA
	STA	$1E00,Y
	INY
	BNE	L6A4C
	DEY
	DEY
L6A4C	STY	$9C
	RTS

L6A4F	LDY	$9D
	BNE	L6A55
	INY
	INY
L6A55	DEY
	LDX	$1F00,Y
	DEY
	LDA	$1F00,Y
	STY	$9D
	RTS

L6A60	LDY	$9D
	STA	$1F00,Y
	INY
	TXA
	STA	$1F00,Y
	INY
	BNE	L6A6F
	DEY
	DEY
L6A6F	STY	$9D
	RTS

L6A72	PHA
	LDA	#$4C
	JSR	L6A8B
	PLA
	JSR	L6A8B
	TXA
	JMP	L6A8B

L6A80	PHA
	LDA	#$20
	JSR	L6A8B
	PLA
	JSR	L6A8B
	TXA
L6A8B	LDY	#$00
	STA	($8E),Y
L6A8F	INC	$8E
	BNE	L6A9A
	INC	$8F
	LDA	$8F
	JMP	L6365
L6A9A	RTS

*----------------------------

L6A9B	LDX	#$01
L6A9D	TXA
	BEQ	L6AA1
	DEX
L6AA1	JSR	RDCHAR
	CMP	#$95
	BNE	L6AAC
	LDA	($28),Y
	ORA	#$80
L6AAC	STA	$0200,X
	CMP	#$8D
	BNE	L6AC3
	BIT	$A6
	BMI	L6AC0
	BIT	$C7
	BMI	L6AC0
	PHA
	JSR	L6D6E
	PLA
L6AC0	JMP	L6ACD

L6AC3	JSR	L6ACD
	CMP	#$88
	BEQ	L6A9D
	INX
	BNE	L6AA1
L6ACD	BIT	$C7
	BMI	L6AD4
	JMP	COUT
L6AD4	RTS

*----------------------------

L6AD5	STY	$5B
	STX	$5A
	STA	$C4
	STA	($28),Y
	LDA	INVFLG
	STA	$B2
	JSR	L6CC3
	JSR	L6AF9
	STA	$A9
	LDA	$B2
	STA	INVFLG
	LDA	$C4
	JSR	L6D8A
	LDA	$A9
	LDX	$5A
	LDY	$5B
	RTS

L6AF9	JSR	L6BDD
	CMP	#$89
	BNE	L6B06
	JSR	L6BB5
	JMP	L6AF9

L6B06	CMP	#$8F
	BNE	L6B23
	JSR	L6BDD
	JSR	L6B79
	LDX	#$04
L6B12	CMP	L6B6D,X
	BEQ	L6B1A
	DEX
	BNE	L6B12
L6B1A	LDA	L6B72,X
	STA	L6B77
	JMP	L6AF9

L6B23	LDX	L6B77
	CPX	#$80
	BNE	L6B39
	CMP	#$9B
	BNE	L6B39
	BIT	L6B78
	BMI	L6B3C
	DEC	L6B78
	JMP	L6AF9

L6B39	JSR	L6B42
L6B3C	LDY	#$00
	STY	L6B78
	RTS

L6B42	CPX	#$00
	BPL	L6B49
	JSR	L6BA0
L6B49	JSR	L6B8B
	CPX	#$20
	BNE	L6B53
	JMP	L6B79

L6B53	CPX	#$40
	BNE	L6B5A
	JMP	L6B80

L6B5A	CPX	#$C0
	BNE	L6B63
	BIT	BUTN2
	BMI	L6B80
L6B63	CPX	#$80
	BNE	L6B6C
	BIT	L6B78
	BPL	L6B80
L6B6C	RTS

L6B6D	ASC	00
	ASC	"ULSE"
L6B72	HEX	002040C080

L6B77	DB	$00
L6B78	DB	$00

L6B79	CMP	#$E0
	BCC	L6B7F
	SBC	#$20
L6B7F	RTS

L6B80	CMP	#$C0
	BCC	L6B8A
	CMP	#$E0
	BCS	L6B8A
	ADC	#$20
L6B8A	RTS

L6B8B	LDY	#$02
L6B8D	CMP	L6B9A,Y
	BEQ	L6B96
	DEY
	BPL	L6B8D
	RTS

L6B96	LDA	L6B9D,Y
	RTS

L6B9A	HEX	9E9D80
L6B9D	ASC	"[_\"

L6BA0	LDY	#$02
L6BA2	CMP	L6BAF,Y
	BEQ	L6BAB
	DEY
	BPL	L6BA2
	RTS

L6BAB	LDA	L6BB2,Y
	RTS

L6BAF	ASC	"^]@"
L6BB2	ASC	"NMP"

L6BB5	LDA	$B2
	STA	INVFLG
	LDA	CH
	PHA
	LDA	WNDWDTH
	STA	CH
	DEC	CH
L6BC2	DEC	CH
	JSR	L6DFB
	INC	CH
	JSR	L6D8A
	DEC	CH
	PLA
	CMP	CH
	BEQ	L6BD6
	PHA
	BNE	L6BC2
L6BD6	LDA	#$A0
	STA	$C4
	JMP	L6D8A

L6BDD	BIT	$C7
	BPL	L6BF2
	JMP	L718A

L6BE4	LDA	#$40
L6BE6	BIT	KBD
	BMI	L6BF9
	SBC	#$01
	BCS	L6BE6
	DEY
	BNE	L6BE4
L6BF2	JSR	L6C00
	LDY	#$00
	BEQ	L6BE4
L6BF9	LDA	KBD
	BIT	KBDSTROBE
	RTS

L6C00	LDA	INVFLG
	EOR	#$FF
	STA	INVFLG
	JSR	L6DFB
	JMP	L6D8A

L6C0C	PHA
	STY	$5B
	STX	$5A
	BIT	L7AC8
	BMI	L6C19
	JSR	L6B79
L6C19	JSR	L6C22
	LDX	$5A
	LDY	$5B
	PLA
	RTS

L6C22	CMP	#$A0
	BCS	L6C5D
	CMP	#$80
	BCC	L6C5D
	CMP	#$8C
	BNE	L6C31
	JMP	L6D41

L6C31	CMP	#$8D
	BNE	L6C4B
	LDA	KBD
	BPL	L6C80
	CMP	#$93
	BNE	L6C80
	BIT	KBDSTROBE
L6C41	LDA	KBD
	BPL	L6C41
	STA	KBDSTROBE
	BMI	L6C80
L6C4B	CMP	#$88
	BEQ	L6C69
	CMP	#$87
	BNE	L6C56
	JMP	L73F2

L6C56	CMP	#$8B
	BNE	L6C68
	JMP	L6CE9

L6C5D	JSR	L6D8A
	INC	CH
	LDA	CH
	CMP	WNDWDTH
	BCS	L6C80
L6C68	RTS

L6C69	DEC	CH
	BMI	L6C6E
	RTS

L6C6E	LDA	WNDWDTH
	STA	CH
	DEC	CH
	LDA	WNDTOP
	CMP	CV
	BCS	L6C7F
	DEC	CV
	JMP	L6CC3
L6C7F	RTS

L6C80	LDA	#$00
	STA	CH
	INC	CV
	LDA	CV
	CMP	WNDBTM
	BCC	L6CC5
	LDA	WNDTOP
	PHA
L6C8F	PLA
	PHA
	CLC
	ADC	#$01
	JSR	L6CC5
	LDA	$28
	STA	$26
	LDA	$29
	STA	$27
	PLA
	PHA
	STA	CV
	JSR	L6CC5
	PLA
	CLC
	ADC	#$01
	CMP	WNDBTM
	BCS	L6CBC
	PHA
	LDY	WNDWDTH
	DEY
L6CB2	LDA	($26),Y
	JSR	L6D8C
	DEY
	BPL	L6CB2
	BMI	L6C8F
L6CBC	LDA	#$00
	STA	CH
	JMP	L6D6E

L6CC3	LDA	CV
L6CC5	PHA
	JSR	VTABZ
	PLA
	BIT	L7AC8
	BPL	L6CE8
	ASL
	ASL
	ASL
	TAY
	CLC
	LDA	$1A00,Y
	ADC	$20
	STA	$50
	STA	$52
	LDA	$1B00,Y
	ORA	#$20
	STA	$51
	EOR	#$60
	STA	$53
L6CE8	RTS

L6CE9	DEC	CV
	LDA	CV
	BMI	L6CF4
	CMP	WNDTOP
	BCC	L6CF4
	RTS

L6CF4	LDY	WNDBTM
	DEY
	TYA
	PHA
L6CF9	PLA
	PHA
	SEC
	SBC	#$01
	JSR	L6CC5
	LDA	$28
	STA	$26
	LDA	$29
	STA	$27
	PLA
	PHA
	STA	CV
	JSR	L6CC5
	PLA
	CMP	WNDTOP
	BEQ	L6D26
	SEC
	SBC	#$01
	PHA
	LDY	WNDWDTH
	DEY
L6D1C	LDA	($26),Y
	JSR	L6D8C
	DEY
	BPL	L6D1C
	BMI	L6CF9
L6D26	LDA	#$00
	STA	CH
	JMP	L6D6E

L6D2D	LDX	#$0F
L6D2F	TXA
	ASL
	ASL
	ASL
	ASL
	TAY
	LDA	#$00
	STA	$1700,Y
	STA	$1800,Y
	DEX
	BPL	L6D2F
	RTS

L6D41	JSR	L6D2D
	LDA	WNDTOP
	STA	CV
	LDA	#$00
	STA	CH
L6D4C	LDA	CH
	PHA
	LDA	CV
	PHA
L6D52	JSR	L6CC5
	JSR	L6D78
	LDA	#$00
	STA	CH
	INC	CV
	LDA	CV
	CMP	WNDBTM
	BCC	L6D52
	PLA
	STA	CV
	JSR	L6CC5
	PLA
	STA	CH
	RTS

L6D6E	LDA	CH
	PHA
	JSR	L6D78
	PLA
	STA	CH
	RTS

L6D78	LDA	CH
	CMP	WNDWDTH
	BCS	L6D89
	LDA	#$A0
	LDY	CH
	JSR	L6D9B
	INC	CH
	BNE	L6D78
L6D89	RTS

L6D8A	LDY	CH
L6D8C	BIT	INVFLG
	BMI	L6D94
	ORA	#$80
	BMI	L6D96
L6D94	AND	#$7F
L6D96	CMP	($28),Y
	BNE	L6D9B
	RTS

L6D9B	STA	($28),Y
	BIT	L7AC8
	BMI	L6DA3
L6DA2	RTS

L6DA3	AND	#$7F
	SEC
	SBC	#$20
	BCC	L6DA2
	STA	$58
	LDA	#$00
	ASL	$58
	ROL
	ASL	$58
	ROL
	ASL	$58
	ROL
	TAX
	LDA	$C1
	CLC
	ADC	$58
	STA	L6DDA+1
	STA	L6E48+1
	TXA
	ADC	$C2
	STA	L6DDA+2
	STA	L6E48+2
	LDA	L7FBC
	BNE	L6E00
	LDA	$51
	PHA
	LDA	$53
	PHA
	LDX	#$00
	CLC
L6DDA	LDA	L0800,X
	EOR	INVFLG
	STA	($50),Y
	STA	($52),Y
	LDA	$51
	ADC	#$04
	STA	$51
	LDA	$53
	ADC	#$04
	STA	$53
	INX
	CPX	#$08
	BCC	L6DDA
	PLA
	STA	$53
	PLA
	STA	$51
	RTS

L6DFB	LDY	CH
	LDA	($28),Y
	RTS

L6E00	TYA
	PHA
	LDA	$84
	PHA
	LDA	$86
	PHA
	LDA	$80
	PHA
	LDA	$82
	PHA
	TYA
	JSR	L6E20
	LDA	$96
	STA	$BB
	LDA	CV
	JSR	L6E20
	LDA	$96
	JMP	L6E30

L6E20	STA	$96
	LDA	L7FBC
	STA	$94
	LDA	#$00
	STA	$97
	STA	$95
	JMP	L69BC

L6E30	ASL
	ASL
	ASL
	STA	$BC
	LDA	$BB
	ASL
	STA	$58
	ASL
	CLC
	ADC	$58
	ADC	$BB
	STA	$BB
	STA	$58
	LDX	#$00
L6E46	STX	$B7
L6E48	LDA	L0800,X
	EOR	INVFLG
	STA	$B9
	LDA	#$07
	STA	$B8
L6E53	LDA	#$C0
	LSR	$B9
	BCS	L6E5B
	LDA	#$40
L6E5B	STA	$C0
	LDA	$BC
	STA	$86
	CLC
	ADC	L7FBC
	STA	$82
	LDA	$58
	STA	$84
	CLC
	ADC	L7FBC
	STA	$80
	LDA	$BF
	CMP	#$11
	BEQ	L6E7B
	BIT	$C0
	BPL	L6E7E
L6E7B	JSR	L77D8
L6E7E	CLC
	LDA	$58
	ADC	L7FBC
	STA	$58
	DEC	$B8
	BNE	L6E53
	LDA	$BB
	STA	$58
	CLC
	LDA	$BC
	ADC	L7FBC
	STA	$BC
	LDX	$B7
	INX
	CPX	#$08
	BNE	L6E46
	LDA	#$00
	STA	$C0
	PLA
	STA	$82
	PLA
	STA	$80
	PLA
	STA	$86
	PLA
	STA	$84
	PLA
	TAY
	RTS

L6EB0	DA	$0000	; END OF FORTH CMDS
	ASL
	JMP	L6F22

L6EB6	LDY	#$00
	STY	$96
	STY	$97
	STY	$9E
	STY	L6FD5
	DEY
L6EC2	INY
	LDA	($8C),Y
	CMP	#$AD	;	-
	BNE	L6ECD
	DEC	$9E
	BNE	L6EC2
L6ECD	CMP	#$A4	;	$
	BEQ	L6EC2
	CMP	#$B0
	BCC	L6F08
	CMP	#$BA
	BCC	L6EDF
	SBC	#$07
	CMP	#$BA
	BCC	L6F08
L6EDF	SEC
	SBC	#$B0
	CMP	L6F6B
	BCS	L6F08
	DEC	L6FD5
	PHA
	LDA	L6F6B
	STA	$94
	LDA	#$00
	STA	$95
	TYA
	PHA
	JSR	L69BC
	PLA
	TAY
	PLA
	CLC
	ADC	$96
	STA	$96
	BCC	L6F05
	INC	$97
L6F05	JMP	L6EC2

L6F08	BIT	$9E
	BPL	L6F19
	SEC
	LDA	#$00
	SBC	$96
	STA	$96
	LDA	#$00
	SBC	$97
	STA	$97
L6F19	LDA	$96
	STA	$94
	LDA	$97
	STA	$95
	RTS

L6F22	LDA	#$00
	CLC
	ADC	$A7
	STA	$8C
	LDA	#$02
	ADC	#$00
	STA	$8D
	JSR	L6EB6
	BIT	L6FD5
	BMI	L6F3A
	JMP	L65C1

L6F3A	LDA	#$02
	STA	$92
	LDA	#$00
	STA	$93
	LDA	#$02
	STA	$A1
	JMP	L725F

L6F49	DA	L6EB0
	ASC	"GETNUM"
	JSR	L6A2C
	STX	$8D
	STA	$8C
	JSR	L6EB6
	LDA	$94
	LDX	$95
	JMP	L6A3D

L6F62	DA	L6F49
	ASC	"BASE"
	JSR	L7289
L6F6B	DA	$000A

L6F6D	DA	L6F62
	ASC	"DECIMAL"
	ASL
	JSR	L6F81
	LDA	#<L6F81
	LDX	#>L6F81
	JMP	L6A80

L6F81	LDA	#$0A
L6F83	STA	L6F6B
	RTS

L6F87	DA	L6F6D
	ASC	"BINARY"
	ASL
	JSR	L6F9A
	LDA	#<L6F9A
	LDX	#>L6F9A
	JMP	L6A80

L6F9A	LDA	#$02
	BNE	L6F83

L6F9E	DA	L6F87
	ASC	"HEX"
	ASL
	JSR	L6FAE
	LDA	#<L6FAE
	LDX	#>L6FAE
	JMP	L6A80

L6FAE	LDA	#$10
	BNE	L6F83

L6FB2	DA	L6F9E
	ASC	"SAVEPRG"
L6FBB	JMP	L643A

L6FBE	DA	L6FB2
	ASC	"PRGTOP"
	JSR	L7289
L6FC9	DA	L832F

L6FCB	DA	L6FBE
	ASC	"VALID"
	JSR	L7289
L6FD5	DA	$00FD

L6FD7	DA	L6FCB
	ASC	"EDIT"
	CLC
	LDA	$AD
	LDY	#"1"
	LDX	#>L9000
	CMP	#$C0
	BCC	L6FEC
	LDY	#"2"	; EDITOR 2
	LDX	#>LB600	; AT $B600
L6FEC	STX	$89
	STY	L7025+$10
	LDA	#<LB600
	STA	$88
	TAY
	LDA	($88),Y	; MARKER IS A9 4C
	CMP	#$A9	;	)
	BNE	L7003
	INY
	LDA	($88),Y
	CMP	#$4C
	BEQ	L7021
L7003	LDY	#$FF
L7005	INY
	LDA	L7024,Y
	BEQ	L7021
	CMP	#$BF	;	?
	BNE	L701B
	TXA
	JSR	PRBYTE
	LDA	#$00
	JSR	PRBYTE
	JMP	L7005

L701B	JSR	COUT
	JMP	L7005
L7021	JMP	($0088)

L7024	ASC	8D
L7025	ASC	84
	ASC	"BLOADOBJ.EDITOR1,A$?"8D00

L703C	DA	L6FD7
	ASC	"WRITELN"
	JSR	L6A2C
	STA	$8C
	STX	$8D
	LDY	#$00
L704E	LDA	($8C),Y
	BEQ	L705C
	CMP	#$8D
	BEQ	L705C
	JSR	COUT
	INY
	BNE	L704E
L705C	RTS

L705D	DA	L703C
	ASC	"READLN"
L7065	JSR	L6A9B
	JSR	L6A2C
	STA	$8C
	STX	$8D
	LDY	#$00
L7071	LDA	$0200,Y
	STA	($8C),Y
	INY
	CMP	#$8D
	BNE	L7071
	RTS

L707C	DA	L705D
	ASC	"CLOSE"
	JMP	L6560

L7086	DA	L707C
	ASC	"MOVMEM"
	JSR	L6A2C
	STA	$98
	STX	$99
	JSR	L6A2C
	STA	$96
	STX	$97
	JSR	L6A2C
	STA	$94
	STX	$95
	LDX	$98
	LDY	#$00
L70A7	TXA
	BNE	L70B0
	LDA	$99
	BEQ	L70BE
	DEC	$99
L70B0	DEX
	LDA	($94),Y
	STA	($96),Y
	INY
	BNE	L70A7
	INC	$95
	INC	$97
	BNE	L70A7
L70BE	RTS

L70BF	DA	L7086
	ASC	"("
	ASL
	LDX	$A7
L70C5	INX
	LDA	$0200,X
	CMP	#$8D
	BEQ	L70D9
	CMP	#$A0
	BNE	L70C5
	LDA	$0201,X
	CMP	#$A9	;	)
	BNE	L70C5
	INX
L70D9	STX	$A7
	RTS

L70DC	DA	L70BF
	ASC	"CASE:"
	ASL
	LDA	#$FA
	LDX	#$70
	JSR	L6A80
	LDA	#$4C
	JSR	L6A8B
	LDA	$8E
	LDX	$8F
	JSR	L6A0D
	JMP	L7D6F

L70FA	TSX
	PLA
	STA	$8C
	PLA
	STA	$8D
	TXS
	JSR	L6A2C
	STA	$94
	ASL
	CLC
	ADC	$94
	ADC	#$06
	TAY
	LDA	($8C),Y
	TAX
	DEY
	LDA	($8C),Y
	STA	$8C
	STX	$8D
	JMP	($008C)

L711B	DA	L70DC
	ASC	":"
	ASL
	LDA	$A2
	BEQ	L713C
	LDA	#$4C
	JSR	L6A8B
	LDA	$8E
	LDX	$8F
	JSR	L6A0D
	LDA	#$70
	JSR	L6A8B
	LDA	#$71
	JSR	L6A8B
	JSR	L73CE
L713C	JSR	L63FB
	BIT	$A0
	BMI	L714B
	JSR	L636F
	JSR	L73B0
	INC	$A2
L714B	RTS

L714C	DA	L711B
	ASC	";"
	ASL
	LDA	#$60
	JSR	L6A8B
	DEC	$A2
	BPL	L715C
	JMP	L7170

L715C	BEQ	L716D
	JSR	L6A1B
	LDY	#$00
	LDA	$8E
	STA	($8C),Y
	INY
	LDA	$8F
	STA	($8C),Y
	RTS
L716D	JMP	L73CE

L7170	LDY	#$13
	JMP	L610D

L7175	DA	L714C
	ASC	"MEMRD"
L717C	JSR	L6A2C
	STA	$C8
	STX	$C9
	LDA	#$FF
	STA	$C7
	STA	$A6
	RTS

L718A	LDY	#$00
	LDA	($C8),Y
	BEQ	L7197
	INC	$C8
	BNE	L7196
	INC	$C9
L7196	RTS

L7197	STA	$C7
	STA	$A6
	LDA	#$8D
	RTS

L719E	DA	L7175
	ASC	"READ"
L71A4	PLA
	STA	$8C
	PLA
	STA	$8D
	DEC	$A6
	LDA	#$22
	JSR	L60FD
	LDA	#$8D
	STA	$A9
	LDX	#$00
L71B7	LDA	L71F4,X
	BEQ	L71DB
	JSR	COUT
	INX
	CMP	#$A0
	BNE	L71B7
	LDY	#$01
L71C6	LDA	($8C),Y
	BEQ	L71D4
	CMP	$A9
	BEQ	L71D4
	JSR	COUT
	INY
	BNE	L71C6
L71D4	LDA	#$AC
	STA	$A9
	BNE	L71B7
L71DA	INY
L71DB	LDA	($8C),Y
	BNE	L71DA
	TYA
	CLC
	ADC	$8C
	STA	$8C
	TAX
	BCC	L71EA
	INC	$8D
L71EA	LDA	$8D
	PHA
	TXA
	PHA
	LDA	#$23
	JMP	L60FD

L71F4	ASC	8D84
	ASC	"OPEN "
	ASC	8D
	ASC	84
	ASC	"READ "8D00

L7204	DA	L719E
	ASC	"ABORT"
	JMP	L6248

L720E	DA	L7204
	ASC	"AUTORUN"
L7217	JSR	L6A2C
	LDX	#$00
	TAY
	BEQ	L7220
	DEX
L7220	STX	L7224
	RTS

L7224	DB	$FF

L7225	DA	L720E
	ASC	"RUN"
	JMP	L6516

L722D	DA	L7225
	ASC	"PAD"
L7232	CLC
L7233	LDA	#$2C
	LDX	#$03
	JMP	L6A3D

L723A	DA	L722D
	ASC	"STRING"
	ASL
	JSR	L63FB
	BIT	$A0
	BPL	L724B
	RTS

L724B	LDA	#$04
	STA	$A1
	JSR	L6589
	STX	$93
	STA	$92
L7256	JSR	L73B0
	JSR	L725F
	JMP	L73CE

L725F	LDY	$A1
	LDX	L7283+1,Y
	LDA	L7283,Y
	JSR	L6A80
	LDY	#$00
	LDA	$94
	STA	($8E),Y
	INY
	LDA	$95
	STA	($8E),Y
	LDA	$8E
	CLC
	ADC	$92
	STA	$8E
	LDA	$8F
	ADC	$93
	STA	$8F
	RTS

L7283	DA	L7289
	DA	L72CD
	DA	L72B2

L7289	PLA
	TAY
	PLA
	TAX
	INY
	BNE	L7291
	INX
L7291	STY	$8C
	STX	$8D
	BIT	$AC
	BMI	L72A4
	LDY	#$01
	LDA	($8C),Y
	TAX
	DEY
	LDA	($8C),Y
	JMP	L6A3D

L72A4	JSR	L6A2C
	LDY	#$00
	STY	$AC
	STA	($8C),Y
	INY
	TXA
	STA	($8C),Y
	RTS

L72B2	PLA
	TAY
	PLA
	TAX
	INY
	BNE	L72BA
	INX
L72BA	STY	$8C
	STX	$8D
	JSR	L6A2C
	CLC
	ADC	$8C
	PHA
	TXA
	ADC	$8D
	TAX
	PLA
	JMP	L6A3D

L72CD	PLA
	STA	$8C
	CLC
	ADC	#$02
	TAY
	PLA
	STA	$8D
	ADC	#$00
	PHA
	TYA
	PHA
	LDY	#$02
	LDA	($8C),Y
	TAX
	DEY
	LDA	($8C),Y
	JMP	L6A3D

L72E7	DA	L723A
	ASC	""A2""
	ASL
	LDX	$A7
	INX
L72EE	INX
	LDA	$0200,X
	CMP	#$8D
	BEQ	L7313
	CMP	#$A0
	BNE	L730C
	LDY	$0201,X
	CPY	#$A2	;	"
	BNE	L730C
	LDY	$0202,X
	CPY	#$A0
	BEQ	L7312
	CPY	#$8D
	BEQ	L7312
L730C	JSR	L6A8B
	JMP	L72EE

L7312	INX
L7313	STX	$A7
	LDA	#$00
	JMP	L6A8B

L731A	DA	L72E7
	ASC	"ASSIGN"
L7322	PLA
	CLC
	ADC	#$01
	STA	$8C
	PLA
	ADC	#$00
	STA	$8D
	JSR	L6A2C
	STA	$94
	STX	$95
	LDY	#$FF
L7336	INY
	LDA	($8C),Y
	STA	($94),Y
	BNE	L7336
	BEQ	L7375

L733F	DA	L731A
	ASC	"NORMAL"
	CLC
L7348	LDA	#$00
	STA	INVFLG
	RTS

L734D	DA	L733F
	ASC	"INVERSE"
	CLC
	LDA	#$FF
	STA	INVFLG
	RTS

L735C	DA	L734D
	ASC	"PRINT"
L7363	PLA
	STA	$8C
	PLA
	STA	$8D
	LDY	#$01
L736B	LDA	($8C),Y
	BEQ	L7375
	JSR	COUT
	INY
	BNE	L736B
L7375	INY
	TYA
	CLC
	ADC	$8C
	STA	$8C
	BCC	L7380
	INC	$8D
L7380	JMP	($008C)

L7383	DA	L735C
	ASC	"VARIABLE"
	ASL
	LDA	#$00
	STA	$9F
	JSR	L63FB
	BIT	$A0
	BMI	L73AF
	JSR	L6589
	STA	$96
	STX	$97
	LDA	#$02
	STA	$92
	LDA	#$00
	STA	$93
	LDA	$9F
	STA	$A1
	JMP	L7256
L73AF	RTS

L73B0	JSR	L6378
	BCS	L73B8
	JSR	L65C5
L73B8	LDX	$A7
L73BA	LDA	$0200,X
	BEQ	L73CD
	CMP	#$A0
	BEQ	L73CD
	CMP	#$8D
	BEQ	L73CD
	JSR	L6A8B
	INX
	BNE	L73BA
L73CD	RTS

L73CE	LDY	#$00
	LDA	$8E
	PHA
	LDA	$8F
	PHA
	LDA	L6FC9
	JSR	L6A8B
	LDA	L6FC9+1
	JSR	L6A8B
	PLA
	STA	L6FC9+1
	PLA
	STA	L6FC9
	RTS

L73EB	DA	L7383
	ASC	"BELL"
	CLC
L73F2	LDA	$CA
	PHA
	LDA	#$FF
	STA	$CA
	LDA	#$40
	JSR	L7407
	LDA	#$50
	JSR	L7407
	PLA
	STA	$CA
	RTS

L7407	PHA
	LDA	#$10
	STA	$92
	PLA
	JMP	L6009

L7410	DA	L73EB
	ASC	"VOICE"
	JSR	L6A2C
	STA	$CA
	RTS

L741D	DA	L7410
	ASC	"NOTE"
	JSR	L6A2C
	STA	$92
	JSR	L6A2C
	BEQ	L7434
	LDX	$92
	BEQ	L7434
	JMP	L6009
L7434	RTS

L7435	DA	L741D
	ASC	"PLOTTER"
	JSR	L6A2C
	STA	L754E
	JSR	L6A2C
	STA	L754A
	STX	L754B
	JSR	L6A2C
	STA	L7548
	STX	L7549
	JSR	L6A2C
	STA	L754C
	LDA	L754E
	BNE	L7465
	STA	L754D
	RTS

L7465	LDA	#$FF
	STA	L754D
	JSR	L753C
	JSR	L7529
	LDA	#$C4
	JSR	COUT
	LDA	#$C6
	JSR	COUT
	JSR	L751F
	LDA	#$00
	STA	$80
	STA	$82
	BEQ	L748F
L7485	JSR	L6A2C
	STA	$82
	JSR	L6A2C
	STA	$80
L748F	LDA	#$00
	DB	$2C
L7492	LDA	#$FF
	STA	L754F
	LDA	L6F6B
	PHA
	LDA	#$0A
	STA	L6F6B
	JSR	L753C
	JSR	L750B
	JSR	L7529
	LDA	#$D0	;	P
	JSR	COUT
	LDA	#$C1	;	A
	JSR	COUT
	LDX	#$00
	JSR	L74E6
	JSR	L7BF3
	LDA	#$AC	;	,
	JSR	COUT
	LDX	#$02
	JSR	L74E6
	LDA	#$CC
	SEC
	SBC	$96
	PHA
	LDA	#$1F
	SBC	$97
	TAX
	PLA
	JSR	L7BF3
	JSR	L751F
	PLA
	STA	L6F6B
	LDA	$80
	STA	$84
	LDA	$82
	STA	$86
	JMP	L6427

L74E6	LDA	$80,X
	STA	$96
	LDA	L754E
	STA	$94
	LDY	#$00
	STY	$97
	STY	$95
	JSR	L69BC
	LDA	$96
	CLC
	ADC	L7548,X
	STA	$96
	PHA
	LDA	$97
	ADC	L7549,X
	STA	$97
	TAX
	PLA
	RTS

L750B	JSR	L7529
	LDA	#$D0	;	P
	JSR	COUT
	LDA	#$C4	;	D
	BIT	L754F
	BMI	L751C
	LDA	#$D5	;	U
L751C	JSR	COUT
L751F	LDA	#$BB	;	;
	JSR	COUT
	LDA	#$8D
	JMP	COUT

L7529	LDY	#$00
L752B	LDA	L7537,Y
	BEQ	L7536
	JSR	COUT
	INY
	BNE	L752B
L7536	RTS

L7537	ASC	"WT%"9A00

L753C	LDA	L754C
	ORA	#>LC000
	STA	CSWH
	LDA	#<LC000
	STA	CSWL
	RTS

L7548	DB	$00
L7549	DB	$00
L754A	DB	$00
L754B	DB	$00
L754C	DB	$00
L754D	DB	$00
L754E	DB	$00
L754F	DB	$00

L7550	DA	L7435
	ASC	"OFF"
	CLC
	LDY	$B3
	LDA	#$01
	STA	$1900,Y
	RTS

L755E	DA	L7550
	ASC	"XROT"
	CLC
	LDA	#$01
	JMP	L760D

L756A	DA	L755E
	ASC	"YROT"
	CLC
	LDA	#$02
	JMP	L760D

L7576	DA	L756A
	ASC	"ZROT"
	CLC
	LDA	#$03
	JMP	L760D

L7582	DA	L7576
	ASC	"XTRAN"
	CLC
	LDA	#$04
	JMP	L760D

L758F	DA	L7582
	ASC	"YTRAN"
	CLC
	LDA	#$05
	BNE	L760D

L759B	DA	L758F
	ASC	"ZTRAN"
	CLC
	LDA	#$06
	BNE	L760D

L75A7	DA	L759B
	ASC	"XPOS"
	CLC
	LDA	#$07
	BNE	L760D

L75B2	DA	L75A7
	ASC	"YPOS"
	CLC
	LDA	#$08
	BNE	L760D

L75BD	DA	L75B2
	ASC	"SCALX"
	CLC
	LDA	#$09
	BNE	L760D

L75C9	DA	L75BD
	ASC	"SCALY"
	CLC
	LDA	#$0A
	BNE	L760D

L75D5	DA	L75C9
	ASC	"SCALZ"
	CLC
	LDA	#$0B
	BNE	L760D

L75E1	DA	L75D5
	ASC	"SCALE"
	CLC
	LDA	#$09
	ADC	$B3
	STA	$58
	JSR	L6A2C
	LDY	$58
	LDX	#$02
L75F6	STA	$1900,Y
	INY
	DEX
	BNE	L75F6
	JMP	L7619

L7600	DA	L75E1
	ASC	"OBJCOLOR"
	CLC
	LDA	#$0C
L760D	ADC	$B3
	STA	$58
	JSR	L6A2C
	LDY	$58
	STA	$1900,Y
L7619	LDX	$B3
	LDA	#$FF
	STA	$1900,X
	LDA	L7705
	BEQ	L7628
	JMP	L6690
L7628	RTS

L7629	DA	L7600
	ASC	"OBJERASE"
	CLC
	LDY	#$00
	STY	$B3
L7638	TYA
	AND	#$0F
	TAX
	LDA	L765F,X
	STA	$1700,Y
	STA	$1800,Y
	STA	$1900,Y
	INY
	BNE	L7638
	LDY	#$2B
L764D	STA	$0300,Y
	DEY
	BPL	L764D
	LDA	#$7F
	STA	$030B
	STA	$031B
	STA	$032B
	RTS

L765F	DB	$00
	DB	$00
	DB	$00
	DB	$00
	DB	$00
	DB	$00
	DB	$00
	DB	$80
	DB	$60
	DB	$10
	DB	$10
	DB	$00
	DB	$03
	DB	$00
	DB	$00
	DB	$00

L766F	DA	L7629
	ASC	"OBJADR"
	JSR	L6A2C
	LDY	$B3
	STA	$190D,Y
	TXA
	STA	$190E,Y
	JMP	L7619

L7686	DA	L766F
	ASC	"OBJECT"
	JSR	L6A2C
	ASL
	ASL
	ASL
	ASL
	STA	$B3
	JMP	L7619

L769A	DA	L7686
	ASC	"SIN"
	JSR	L6A2C
	AND	#$7F
	TAY
	LDA	L68C8,Y
	LDX	#$00
	CPY	#$41
	BCC	L76AF
	DEX
L76AF	JMP	L6A3D

L76B2	DA	L769A
	ASC	"COLOR"
	JSR	L6A2C
L76BC	AND	#$07
	TAY
	LDA	L76E4,Y
	STA	$B1
	LDA	L76DC,Y
	STA	$AE
	LDA	L76EC,Y
	LDX	#$27
	JSR	L76D4
	LSR
	LDX	#$26
L76D4	STA	$03A8,X
	DEX
	DEX
	BPL	L76D4
	RTS

L76DC	HEX	FFFFFF00FFFFFF00
L76E4	HEX	0000000080808080
L76EC	HEX	0055AAFF0055AAFF

L76F4	DA	L76B2
	ASC	"AUTODRAW"
	JSR	L6A2C
	STA	L7705
	RTS

L7705	DB	$00

L7706	DA	L76F4
	ASC	"UNDRAW"
	CLC
	LDY	$B3
L7711	LDA	$1700,Y
	BNE	L7717
	RTS

L7717	LDA	#$00
L7719	STA	$1700,Y
	JSR	L7896
	JSR	L7735
	JMP	L7896

L7725	DA	L7706
	ASC	"UNBLK"
	JSR	L7896
	JSR	L7735
	JSR	L7896
L7735	LDA	L7F77
	STA	$58
	LDA	L7F76
	STA	$59
	LDA	CV
	STA	$B7
L7743	LDA	$B7
	ASL
	ASL
	ASL
	TAY
	LDA	$1A00,Y
	ADC	CH
	STA	L775F+1
	LDA	$1B00,Y
	ADC	$C5
	STA	L775F+2
	LDX	#$08
L775B	LDY	$59
	LDA	INVFLG
L775F	STA	$2000,Y
	DEY
	BPL	L775F
	LDA	L775F+2
	CLC
	ADC	#$04
	STA	L775F+2
	DEX
	BNE	L775B
	INC	$B7
	DEC	$58
	BNE	L7743
	RTS

L7778	DA	L7725
	ASC	"SEQUENCE"
	JSR	L6A2C
L7785	LDX	#$00
	LDY	#$18
	CMP	#$00
	BEQ	L7790
	DEX
	LDY	#$17
L7790	STX	L77A6
	STY	L66FF+2
	STY	L66A1+2
	STY	L7711+2
	STY	L7719+2
	STY	L6704+2
	STY	L66F6+2
	RTS

L77A6	DB	$FF

L77A7	DA	L7778
	ASC	"DRAW"
	JMP	L6690

L77B0	DA	L77A7
	ASC	"EMPTY"
	JSR	L672B
	JSR	L77CA
	LDA	$BF
	LDX	$C3
	JMP	L79BF

L77C4	DA	L77B0
	ASC	"FILL"
L77CA	JSR	L6A2C
	STA	$82
	JSR	L6A2C
	STA	$80
	LDA	#$FF
	STA	$C0
L77D8	LDX	#$E6	; INC ZP
	LDA	$84
	STA	$92
	CMP	$80
	BCC	L77E4
	LDX	#$C6	; DEC ZP
L77E4	STX	L781A
	LDX	#$E6	; INC ZP
	LDA	$86
	CMP	$82
	BCC	L77F1
	LDX	#$C6	; DEC ZP
L77F1	STX	L7822
L77F4	LDA	$92
	STA	$84
	LDX	$86
	LDA	$1A00,X
	STA	$54
	STA	$56
	LDA	$1B00,X
	ORA	#$20
	STA	$55
	EOR	#$60
	STA	$57
L780C	LDA	$C3
	AND	$AE
	BPL	L7817
	LDA	$84
	LSR
	BCS	L781A
L7817	JSR	L782B
L781A	INC	$84
	LDA	$84
	CMP	$80
	BNE	L780C
L7822	INC	$86
	LDA	$86
	CMP	$82
	BNE	L77F4
	RTS

L782B	CLC
	LDX	$84
	LDY	$1C00,X
	LDA	$1D00,X
	BIT	$AE
	BPL	L783C
	ASL
	ORA	$1D00,X
L783C	AND	$03A8,Y
	BIT	$C0
	BPL	L784A
L7843	NOP
L7844	NOP
L7845	ORA	($54),Y
	JMP	L784E

L784A	EOR	#$FF
	AND	($54),Y
L784E	AND	#$7F
	ORA	$B1
	STA	($54),Y
	STA	($56),Y
	BCC	L785E
	CLC
	INY
	LDA	#$01
	BNE	L783C
L785E	RTS

L785F	DA	L77C4
	ASC	"ERASE"
	CLC
L7867	LDA	#>L2000
	STA	L7872+2
	LDX	#$40
	LDA	INVFLG
	LDY	#$00
L7872	STA	L6000,Y
	INY
	BNE	L7872
	INC	L7872+2
	DEX
	BNE	L7872
	JSR	HOME
	JMP	L6D2D

L7884	DA	L785F
	ASC	"SCREEN"
	JSR	L6A2C
L788F	JSR	L789A
	LDA	$C054,X
	RTS

L7896	LDA	$C6
	EOR	#$01
L789A	AND	#$01
	STA	$C6
	TAX
	LDA	L78A5,X
	STA	$C5
	RTS

L78A5	HEX	2040

L78A7	DA	L7884
	ASC	"UNLINE"
	CLC
	LDA	#$FF
	BNE	L78BD

L78B4	DA	L78A7
	ASC	"LINE"
	CLC
	LDA	#$00
L78BD	PHA
	JSR	L6A2C
	STA	$82
	JSR	L6A2C
	STA	$80
	PLA
	BIT	L754D
	BPL	L78D1
	JMP	L7492

L78D1	LDX	$BF
	CPX	#$51
	BEQ	L78E8
	EOR	INVFLG
	BPL	L78E8
	JSR	L672B
	JSR	L78E8
	LDA	$BF
	LDX	$C3
	JMP	L79BF

L78E8	JSR	L7896
	LDA	$86
	PHA
	LDA	$84
	PHA
	JSR	L78FD
	PLA
	STA	$84
	PLA
	STA	$86
	JSR	L7896
L78FD	LDY	#$E6	;	INC	ZP
	SEC
	LDA	$82
	SBC	$86
	BCS	L790C
	EOR	#$FF
	ADC	#$01
	LDY	#$C6	;	DEC	ZP
L790C	STA	$8A
	LDX	#$E8	;	INX
	SEC
	LDA	$80
	SBC	$84
	BCS	L791D
	EOR	#$FF
	ADC	#$01
	LDX	#$CA	;	DEX
L791D	STA	$88
	CMP	$8A
	BCC	L796E
	CMP	#$00
	BNE	L7928
	RTS

L7928	STY	L7943
	STX	L7955
	JSR	L7A56
	LDX	$84
	STX	$AA
	LDA	$88
	LSR
L7938	SEC
	SBC	$8A
	STA	$A9
	BCS	L7955
	ADC	$88
	STA	$A9
L7943	INC	$86
	LDY	$86
	LDA	$1A00,Y
	STA	$54
	LDA	$1B00,Y
	ORA	$C5
	STA	$55
	STX	$AA
L7955	INX
	LDA	$AE
	AND	$C3
	BPL	L7962
	TXA
	EOR	$AA
	ROR
	BCC	L7965
L7962	JSR	L7A6A
L7965	LDA	$A9
	CPX	$80
	BNE	L7938
	STX	$84
	RTS

L796E	STY	L7985
	STX	L7984
	LDX	$84
	LDA	$8A
	LSR
L7979	SEC
	SBC	$88
	STA	$A9
	BCS	L7985
	ADC	$8A
	STA	$A9
L7984	DEX
L7985	INC	$86
	LDY	$86
	LDA	$1A00,Y
	STA	$54
	LDA	$1B00,Y
	ORA	$C5
	STA	$55
	JSR	L7A6A
	LDA	$A9
	LDY	$82
	CPY	$86
	BNE	L7979
	STX	$84
	RTS

L79A3	DA	L78B4
	ASC	"EXMODE"
	CLC
	LDA	#$51
	LDX	#$FF
	BNE	L79BF

L79B2	DA	L79A3
	ASC	"ORMODE"
	CLC
L79BB	LDA	#$11
	LDX	#$00
L79BF	STX	$C3
	STA	$BF
	STA	L7A7E
	STA	L7845
	LDA	#$EA	;	NOP
	STA	L7A7C
	STA	L7A7D
	STA	L7843
	STA	L7844
	RTS

L79D8	DA	L79B2
	ASC	"GPEEK"
	JSR	L7A48
	LDX	$84
	LDY	$1C00,X
	LDA	$1D00,X
	AND	($54),Y
	LDX	#$00
	JMP	L6A3D

L79F1	DA	L79D8
	ASC	"UNPLOT"
	CLC
	LDA	#$FF
	BNE	L7A07

L79FE	DA	L79F1
	ASC	"PLOT"
	CLC
	LDA	#$00
L7A07	BIT	L754D
L7A0A	BPL	L7A0F
	JMP	L7485

L7A0F	PHA
	JSR	L6A2C
	STA	$86
	STA	$82
	JSR	L6A2C
	STA	$84
	STA	$80
	PLA
	LDX	$BF
	CPX	#$51
	BEQ	L7A36
	EOR	INVFLG
	BPL	L7A36
	JSR	L672B
	JSR	L7A36
	LDA	$BF
	LDX	$C3
	JMP	L79BF

L7A36	JSR	L7896
	JSR	L7A65
	JSR	L7896
	JMP	L7A65

L7A42	DA	L79FE
	ASC	"POSN"
L7A48	JSR	L6A2C
	STA	$82
	STA	$86
	JSR	L6A2C
	STA	$80
	STA	$84
L7A56	LDX	$86
	LDA	$1A00,X
	STA	$54
	LDA	$1B00,X
	ORA	$C5
	STA	$55
	RTS

L7A65	JSR	L7A56
	LDX	$84
L7A6A	CLC
	LDY	$1C00,X
	LDA	$1D00,X
	BIT	$AE
	BPL	L7A79
	ASL
	ORA	$1D00,X
L7A79	AND	$03A8,Y
L7A7C	NOP
L7A7D	NOP
L7A7E	ORA	($54),Y
	AND	#$7F
	ORA	$B1
	STA	($54),Y
	BCC	L7A8E
	CLC
	INY
	LDA	#$01
	BNE	L7A79
L7A8E	RTS

L7A8F	DA	L7A42
	ASC	"WINDOW"
	JSR	L6A2C
	STA	WNDBTM
	JSR	L6A2C
	STA	WNDTOP
	STA	CV
	JSR	L6A2C
	STA	WNDWDTH
	JSR	L6A2C
	STA	WNDLFT
	JMP	L6CC3

L7AB0	DA	L7A8F
	ASC	"TEXT"
	CLC
	LDA	TXTSET
	LDA	TXTPAGE1
	LDA	#$00
	STA	L7AC8
	JSR	L6421
	JMP	L7FB0

L7AC8	DB	$FF

L7AC9	DA	L7AB0
	ASC	"GR"
	CLC
L7ACE	LDA	HIRES
	LDA	MIXCLR
	LDA	TXTCLR
	LDA	#$FF
	STA	L7AC8
	JMP	L6421

L7ADF	CLC
	LDX	#$00
L7AE2	JSR	L7B0A
	JSR	L7AEC
	INX
	BNE	L7AE2
	RTS

L7AEC	LDY	#$FF
	TXA
	SEC
L7AF0	INY
	SBC	#$07
	BCS	L7AF0
	PHA
	TYA
	STA	$1C00,X
	PLA
	TAY
	LDA	L7B03-$F9,Y	; or $7A0A+$F9 because 7 above
	STA	$1D00,X
	RTS

L7B03	HEX	010204081020C0

L7B0A	TXA
	CMP	#$C0
	BCC	L7B11
	SBC	#$C0
L7B11	TAY
	AND	#$C0
	STA	$1A00,X
	LSR
	LSR
	ORA	$1A00,X
	STA	$1A00,X
	TYA
	LSR
	LSR
	LSR
	LSR
	AND	#$03
	STA	$1B00,X
	ROR	$1A00,X
	TYA
	AND	#$07
	ASL
	ASL
	ORA	$1B00,X
	STA	$1B00,X
	RTS

L7B38	DA	L7AC9
	ASC	"FORGET"
	ASL
	JSR	L63FB
	BIT	$A0
	BMI	L7B64
	JSR	L6378
	BCS	L7B64
	LDA	$9A
	STA	L7B65+1
	LDA	$9B
	STA	L7B67+1
	LDX	#$00
L7B59	LDA	L7B65,X
	JSR	L6A8B
	INX
	CPX	#$0D
	BNE	L7B59
L7B64	RTS

L7B65	LDA	#<L82CB
L7B67	LDX	#>L82CB
	STA	L6FC9
	STX	L6FC9+1
	JSR	L636F

L7B72	DA	L7B38
	ASC	"LIST"
	CLC
	LDA	#$00
	BEQ	L7B87

L7B7D	DA	L7B72
	ASC	"$LIST"
	CLC
	LDA	#$FF
L7B87	STA	$9F
	LDA	L6FC9
	STA	$8C
	LDA	L6FC9+1
	STA	$8D
L7B93	LDA	#$14
	STA	$BA
L7B97	LDY	#$00
	LDA	($8C),Y
	TAX
	INY
	LDA	($8C),Y
	BEQ	L7BDC
	STA	$8D
	TXA
	STA	$8C
	LDY	#$02
	LDA	#$8D
	JSR	COUT
	BIT	$9F
	BPL	L7BC3
	LDA	#$A4	;	$
	JSR	COUT
	LDA	$8D
	JSR	PRBYTE
	LDA	$8C
	JSR	PRBYTE
	JSR	L7F2C
L7BC3	LDA	($8C),Y
	BPL	L7BCD
	JSR	COUT
	INY
	BNE	L7BC3
L7BCD	DEC	$BA
	BNE	L7B97
	LDY	CH
	LDA	($28),Y
	JSR	L6AD5
	CMP	#$83
	BNE	L7B93
L7BDC	RTS

L7BDD	DA	L7B7D
	ASC	"ABS."
	JSR	L6A2C
	STX	$95
	STA	$94
	JMP	L7C06

L7BED	DA	L7BDD
	ASC	"."
	JSR	L6A2C
L7BF3	PHA
	TXA
	PHA
	BPL	L7BFD
	LDA	#$AD	;	-
	JSR	COUT
L7BFD	PLA
	STA	$95
	PLA
	STA	$94
	JSR	L6988
L7C06	LDX	#$00
L7C08	JSR	L7C28
	CLC
	ADC	#$B0
	CMP	#$BA
	BCC	L7C14
	ADC	#$06
L7C14	STA	$02F0,X
	INX
	LDA	$94
	ORA	$95
	BNE	L7C08
L7C1E	LDA	$02EF,X
	JSR	COUT
	DEX
	BNE	L7C1E
	RTS

L7C28	LDY	#$10
	LDA	#$00
L7C2C	ASL	$94
	ROL	$95
	ROL
	CMP	L6F6B
	BCC	L7C3B
	SBC	L6F6B
	INC	$94
L7C3B	DEY
	BNE	L7C2C
	RTS

L7C3F	DA	L7BED
	ASC	"STACK"
	CLC
	LDA	L7C50
	EOR	#$FF
	STA	L7C50
	RTS

L7C50	DB	$00

L7C51	DA	L7C3F
	ASC	"+"
	JSR	L7EFA
	LDY	$9C
	CLC
	LDA	$1DFE,Y
	ADC	$1E00,Y
	STA	$1DFE,Y
	LDA	$1DFF,Y
	ADC	$1E01,Y
	STA	$1DFF,Y
	RTS

L7C6D	DA	L7C51
	ASC	"-"
	JSR	L7EFA
	LDY	$9C
	SEC
	LDA	$1DFE,Y
	SBC	$1E00,Y
	STA	$1DFE,Y
	LDA	$1DFF,Y
	SBC	$1E01,Y
	STA	$1DFF,Y
	RTS

L7C89	DA	L7C6D
	ASC	"*"
	JSR	L7C9F
	JSR	L6988
	JSR	L69BC
	JSR	L69AA
	LDX	$97
	LDA	$96
	JMP	L6A3D

L7C9F	LDA	$9C
	SEC
	SBC	#$04
	STA	$9C
	TAY
	LDA	$1E00,Y
	STA	$96
	LDA	$1E01,Y
	STA	$97
	LDA	$1E02,Y
	STA	$94
	LDA	$1E03,Y
	STA	$95
	RTS

L7CBC	DA	L7C89
	ASC	"/"
	JSR	L7CC5
	JMP	L6A3D

L7CC5	JSR	L7C9F
	JSR	L6988
	JSR	L69E7
	JSR	L69AA
	LDX	$97
	LDA	$96
	RTS

L7CD6	DA	L7CBC
	ASC	"MOD"
	JSR	L7CC5
	LDX	$99
	LDA	$98
	JMP	L6A3D

L7CE5	DA	L7CD6
	ASC	"BYE"
	JSR	INIT
	JSR	SETVID
	JSR	SETKBD
	JSR	$03EA
	LDA	#<MON
	STA	SOFTEV
	LDA	#>MON
	STA	SOFTEV+1
	STA	INVFLG
	EOR	#$A5
	STA	PWREDUP
	JMP	MON

L7D0A	DA	L7CE5
	ASC	"PICK"
	JSR	L6A2C
	SEC
	SBC	#$01
	ASL
	STA	$94
	LDA	$9C
	STA	$96
	SEC
	SBC	$94
	STA	$9C
	JSR	L6A2C
	LDY	$96
	STY	$9C
	JMP	L6A3D

L7D2C	DA	L7D0A
	ASC	"OVER"
	CLC
	LDY	$9C
	LDA	$1DFC,Y
	LDX	$1DFD,Y
	JMP	L6A3D

L7D3E	DA	L7D2C
	ASC	"DUP"
	CLC
	LDY	$9C
	LDA	$1DFE,Y
	STA	$1E00,Y
	LDA	$1DFF,Y
	STA	$1E01,Y
	INY
	INY
	STY	$9C
	RTS

L7D57	DA	L7D3E
	ASC	"IF"
	ASL
L7D5C	LDA	#<L7DE1
	LDX	#>L7DE1
	JSR	L6A80
	LDA	#$4C
	JSR	L6A8B
	LDA	$8E
	LDX	$8F
	JSR	L6A0D
L7D6F	LDA	#$79
	JSR	L6A8B
	LDA	#$7D
	JMP	L6A8B

	LDY	#$12
	JMP	L610D

L7D7E	DA	L7D57
	ASC	"ELSE"
	ASL
	LDA	#$4C
	JSR	L6A8B
	LDA	$8E
	PHA
	LDA	$8F
	PHA
	JSR	L7D6F
	JSR	L6A1B
	LDY	#$00
	LDA	$8E
	STA	($8C),Y
	INY
	LDA	$8F
	STA	($8C),Y
	PLA
	TAX
	PLA
	JMP	L6A0D

L7DA7	DA	L7D7E
	ASC	"THEN"
	ASL
	JSR	L6A1B
	LDY	#$00
	LDA	$8E
	STA	($8C),Y
	INY
	LDA	$8F
	STA	($8C),Y
	RTS

L7DBD	DA	L7DA7
	ASC	"BEGIN"
	ASL
L7DC5	LDA	$8E
	LDX	$8F
	JMP	L6A0D

L7DCC	DA	L7DBD
	ASC	"UNTIL"
	ASL
	LDA	#<L7DE1
	LDX	#>L7DE1
	JSR	L6A80
L7DDB	JSR	L6A1B
	JMP	L6A72

L7DE1	JSR	L7EFA
	LDA	$1E01,Y
	ORA	$1E00,Y
	BEQ	L7DFB
L7DEC	TSX
	LDA	$0101,X
	CLC
	ADC	#$03
	STA	$0101,X
	BCC	L7DFB
	INC	$0102,X
L7DFB	RTS

L7DFC	DA	L7DCC
	ASC	"WHILE"
	ASL
	JMP	L7D5C

L7E07	DA	L7DFC
	ASC	"REPEAT"
	ASL
	JSR	L6A1B
	LDY	#$00
	LDA	$8E
	CLC
	ADC	#$03
	STA	($8C),Y
	INY
	LDA	$8F
	ADC	#$00
	STA	($8C),Y
	JSR	L6A1B
	JMP	L6A72

L7E29	DA	L7E07
	ASC	"DO"
	ASL
	LDA	#<L7E38
	LDX	#>L7E38
	JSR	L6A80
	JMP	L7DC5

L7E38	JSR	L7F08
	JSR	L7EAE
	JMP	L7EAE

L7E41	DA	L7E29
	ASC	"LOOP"
	ASL
	LDA	#<L7E52
	LDX	#>L7E52
	JSR	L6A80
	JMP	L7DDB

L7E52	LDA	#$01
	LDX	#$00
	BEQ	L7E5B
L7E58	JSR	L6A2C
L7E5B	STX	$92
	LDY	$9D
	CLC
	ADC	$1EFE,Y
	STA	$1EFE,Y
	TXA
	ADC	$1EFF,Y
	STA	$1EFF,Y
	SEC
	LDA	$1EFE,Y
	SBC	$1EFC,Y
	STA	$88
	LDA	$1EFF,Y
	SBC	$1EFD,Y
	ORA	$88
	BEQ	L7E8C
	ROR
	EOR	$1EFF,Y
	EOR	$1EFD,Y
	EOR	$92
	BMI	L7E8C
	RTS

L7E8C	LDA	$9D
	SEC
	SBC	#$04
	STA	$9D
	JMP	L7DEC

L7E96	DA	L7E41
	ASC	"+LOOP"
	ASL
	LDA	#<L7E58
	LDX	#>L7E58
	JSR	L6A80
	JMP	L7DDB

L7EA8	DA	L7E96
	ASC	"PUSH"
L7EAE	JSR	L6A2C
	JMP	L6A60

L7EB4	DA	L7EA8
	ASC	"PULL"
	JSR	L6A4F
	JMP	L6A3D

L7EC0	DA	L7EB4
	ASC	"K"
	CLC
	LDA	$9D
	SBC	#$07
	JMP	L7EDC

L7ECB	DA	L7EC0
	ASC	"J"
	CLC
	LDA	$9D
	SBC	#$03
	JMP	L7EDC

L7ED6	DA	L7ECB
	ASC	"I"
	CLC
	LDA	$9D
L7EDC	TAY
	LDX	$1EFF,Y
	LDA	$1EFE,Y
	JMP	L6A3D

L7EE6	DA	L7ED6
	ASC	"POP"
	CLC
	LDY	$9D
	DEY
	DEY
	STY	$9D
	RTS

L7EF3	DA	L7EE6
	ASC	"DROP"
	CLC
L7EFA	LDY	$9C
	DEY
	DEY
	STY	$9C
	RTS

L7F01	DA	L7EF3
	ASC	"SWAP"
	CLC
L7F08	LDY	$9C
	LDX	$1DFD,Y
	LDA	$1DFF,Y
	STA	$1DFD,Y
	TXA
	STA	$1DFF,Y
	LDX	$1DFC,Y
	LDA	$1DFE,Y
	STA	$1DFC,Y
	TXA
	STA	$1DFE,Y
	RTS

L7F25	DA	L7F01
	ASC	"SPCE"
	CLC
L7F2C	LDA	#$A0
	JMP	COUT

L7F31	DA	L7F25
	ASC	"CR"
L7F35	CLC
	LDA	#$8D
	JMP	COUT

L7F3B	DA	L7F31
	ASC	"CHRSET"
	JSR	L7289
	DA	L0800

L7F48	DA	L7F3B
	ASC	"CHRADR"
	JSR	L6A2C
L7F53	CPX	#$00
	BNE	L7F5B
	LDA	#<L0800
	LDX	#>L0800
L7F5B	STA	$C1
	STX	$C2
	RTS

L7F60	DA	L7F48
	ASC	"BLKSIZE"
	JSR	L6A2C
	STA	L7F77
	JSR	L6A2C
	STA	L7F76
	RTS

L7F76	DB	$01
L7F77	DB	$01

L7F78	DA	L7F60
	ASC	"CHRSIZE"
	JSR	L6A2C
	PHA
	STA	L7FBC
	JSR	L7FB0
	PLA
	BEQ	L7FAF
	LDA	#$24
	JSR	L7F9D
	STA	WNDWDTH
	LDA	#$18
	JSR	L7F9D
	STA	WNDBTM
	RTS

L7F9D	STA	$96
	LDA	L7FBC
	STA	$94
	LDA	#$00
	STA	$97
	STA	$95
	JSR	L69E7
	LDA	$96
L7FAF	RTS

L7FB0	JSR	$FB3C
	LDA	#$00
	STA	CV
	STA	CH
	JMP	L6CC3

L7FBC	DB	$00

L7FBD	DA	L7F78
	ASC	"PUTBLK"
	JSR	L6A2C
	CLC
	ADC	#$A0
	STA	L8004
	LDA	CV
	PHA
	LDA	CH
	STA	L8005
	PHA
	LDA	L7F77
	STA	L8006
L7FDD	LDX	L7F76
	LDA	L8005
	STA	CH
L7FE5	LDA	L8004
	JSR	L6C0C
	INC	L8004
	DEX
	BNE	L7FE5
	INC	CV
	JSR	L6CC3
	DEC	L8006
	BNE	L7FDD
	PLA
	STA	CH
	PLA
	STA	CV
	JMP	L6CC3

L8004	DB	$00
L8005	DB	$00
L8006	DB	$00

L8007	DA	L7FBD
	ASC	"PUTC"
	JSR	L6A2C
	JMP	COUT

L8013	DA	L8007
	ASC	"CLRKEY"
	CLC
	STA	KBDSTROBE
	RTS

L8020	DA	L8013
	ASC	"GETKEY"
	CLC
	LDA	KBD
	LDX	#$00
	JMP	L6A3D

L8031	DA	L8020
	ASC	"GETC"
L8037	JSR	RDKEY
	LDX	#$00
	JMP	L6A3D

L803F	DA	L8031
	ASC	"HTAB"
	JSR	L6A2C
	STA	CH
	RTS

L804B	DA	L803F
	ASC	"VTAB"
	JSR	L6A2C
	STA	CV
	JMP	L6CC3

L8059	DA	L804B
	ASC	"PEEK"
	JSR	L6A2C
	STA	L8068+1
	STX	L8068+2
L8068	LDA	L8068
	LDX	#$00
	JMP	L6A3D

L8070	DA	L8059
	ASC	"'"
	PLA
	CLC
	ADC	#$03
	TAY
	PLA
	ADC	#$00
	TAX
	PHA
	TYA
	PHA
	BNE	L8082
	DEX
L8082	DEY
	STY	$8C
	STX	$8D
	LDY	#$01
	LDA	($8C),Y
	TAX
	DEY
	LDA	($8C),Y
	JMP	L6A3D

L8092	DA	L8070
	ASC	","
	ASL
	JSR	L6589
	JMP	L6A8B

L809C	DA	L8092
	ASC	"PEEKW"
	JSR	L6A2C
	STA	$8C
	STX	$8D
	LDY	#$01
	LDA	($8C),Y
	TAX
	DEY
	LDA	($8C),Y
	JMP	L6A3D

L80B5	DA	L809C
	ASC	"AND"
	CLC
	LDX	#$02
	LDY	$9C
L80BF	LDA	$1DFD,Y
	AND	$1DFF,Y
	STA	$1DFD,Y
	DEY
	DEX
	BNE	L80BF
	STY	$9C
	RTS

L80CF	DA	L80B5
	ASC	"OR"
	CLC
	LDX	#$02
	LDY	$9C
L80D8	LDA	$1DFD,Y
	ORA	$1DFF,Y
	STA	$1DFD,Y
	DEY
	DEX
	BNE	L80D8
	STY	$9C
	RTS

L80E8	DA	L80CF
	ASC	"CLEOL"
	JMP	L6D6E

L80F2	DA	L80E8
	ASC	"CLEOP"
	JMP	L6D4C

L80FC	DA	L80F2
	ASC	"HOME"
	CLC
	LDA	#$8C
	JMP	COUT

L8108	DA	L80FC
	ASC	"<="
	JSR	L811E
	BCC	L8119
	ORA	$9E
	BEQ	L8119
L8115	TXA
	JMP	L6A3D

L8119	LDA	#$01
	JMP	L6A3D

L811E	JSR	L6A2C
	JSR	L6A2C
	LDY	$9C
	LDA	$1E01,Y
	EOR	$1E03,Y
	AND	#$80
	STA	$88
	SEC
	LDA	$1E00,Y
	SBC	$1E02,Y
	STA	$9E
	LDA	$1E01,Y
	SBC	$1E03,Y
	ROR
	EOR	$88
	ROL
	LDX	#$00
	RTS

L8146	DA	L8108
	ASC	">="
	JSR	L811E
	BCS	L8152
	JMP	L8115
L8152	JMP	L8119

L8155	DA	L8146
	ASC	"<"
	JSR	L811E
	BCC	L8160
	JMP	L8115
L8160	JMP	L8119

L8163	DA	L8155
	ASC	">"
	JSR	L811E
	ORA	$9E
	BEQ	L816F
	BCS	L8172
L816F	JMP	L8115
L8172	JMP	L8119

L8175	DA	L8163
	ASC	"="
L8178	JSR	L811E
	ORA	$9E
	BNE	L8182
	JMP	L8119
L8182	JMP	L8115

L8185	DA	L8175
	ASC	"<>"
	JSR	L811E
	ORA	$9E
	BEQ	L8193
	JMP	L8119
L8193	JMP	L8115

L8196	DA	L8185
	ASC	"POKE"
	CLC
	JSR	L6A2C
	STA	L81A9+1
	STX	L81A9+2
	JSR	L6A2C
L81A9	STA	L6908+$3F
	RTS

L81AD	DA	L8196
	ASC	"->"
	CLC
	DEC	$AC
	RTS

L81B5	DA	L81AD
	ASC	"POKEW"
	CLC
	JSR	L6A2C
	STA	$8C
	STX	$8D
	JSR	L6A2C
	LDY	#$00
	STA	($8C),Y
	INY
	TXA
	STA	($8C),Y
	RTS

L81D0	DA	L81B5
	ASC	"MAX"
	JSR	L811E
	ROR
	EOR	#$80
	ROL
	JMP	L81E7

L81DF	DA	L81D0
	ASC	"MIN"
	JSR	L811E
L81E7	BCC	L81EB
	INY
	INY
L81EB	LDA	$1E00,Y
	LDX	$1E01,Y
	JMP	L6A3D

L81F4	DA	L81DF
	ASC	"RNDB"
	JSR	L820E
	LDX	#$00
	JMP	L6A3D

L8202	DA	L81F4
	ASC	"RND"
	CLC
	JSR	L820E
	JMP	L6A3D

L820E	LDA	L8223
	PHA
	CLC
	ADC	L8224
	STA	L8223
	TAX
	PLA
	ADC	L8222
	STA	L8222
	RTS

L8222	DB	$E9
L8223	DB	$0F
L8224	DB	$DB

L8225	DA	L8202
	ASC	"AREG"
	JSR	L7289
L822E	DA	$0000

L8230	DA	L8225
	ASC	"XREG"
	JSR	L7289
L8239	DA	$0000

L823B	DA	L8230
	ASC	"YREG"
	JSR	L7289
L8244	DA	$0000

L8246	DA	L823B
	ASC	"PREG"
	JSR	L7289
L824F	DA	$0000

L8251	DA	L8246
	ASC	"CALL"
	JSR	L6A2C
	STA	$8C
	STX	$8D
	LDA	L824F
	PHA
	LDA	L822E
	LDX	L8239
	LDY	L8244
	PLP
	JSR	L827E
	PHP
	STA	L822E
	STX	L8239
	STY	L8244
	PLA
	STA	L824F
	RTS
L827E	JMP	($008C)

L8281	DA	L8251
	ASC	"SGN"
	JSR	L6A2C
	CPX	#$00
	BMI	L829D
	STX	$94
	ORA	$94
	BNE	L8296
	JMP	L6A3D

L8296	LDA	#$01
	LDX	#$00
	JMP	L6A3D

L829D	LDA	#$FF
	TAX
	JMP	L6A3D

L82A3	DA	L8281
	ASC	"ABS"
	CLC
	LDY	$9C
	LDA	$1DFF,Y
	BMI	L82B7
	RTS

L82B1	DA	L82A3
	ASC	"CHS"
	CLC
L82B7	LDY	$9C
	LDA	#$00
	SEC
	SBC	$1DFE,Y
	STA	$1DFE,Y
	LDA	#$00
	SBC	$1DFF,Y
	STA	$1DFF,Y
	RTS

L82CB	DA	L82B1
	ASC	"IT"
	JSR	L7232
	JSR	L7322
	ASC	"FORGET IT ABORT"00
	JSR	L72CD
	DA	$0000
	JSR	L7217
	JSR	L7F35
	JSR	L7363
	ASC	"Demonstration (Y/N) : "00
	JSR	L8037
	JSR	L72CD
	DA	$00D9
	JSR	L8178
	JSR	L7DE1
	JMP	L8328

L831B	JSR	L71A4
	ASC	"HEADER"00
	JMP	L832E

L8328	JSR	L7232
	JSR	L717C
L832E	RTS

L832F	DA	L82CB
	DB	$00
	DA	L6FBB
	DB	$00

	DS	\

*----------------------------