A2osX/BASIC.FX/BASIC.S.A.txt

NEW
  AUTO 3,1
*--------------------------------------
BS.ResetCSWKSW	pha
				phx
				
				ldx #3
				
.1				lda GP.VECTOUT,x
				sta	ZP.CSW,x
				dex
				bpl .1
				
				plx
				pla
				rts
*--------------------------------------
BS.SetState0	ldx	#$00
				jsr	BS.SetState

				lda ZP.KSW+1
				cmp	GP.VDOSI+1
				beq	BS.SetCSWKSW2VDOS

				lda ZP.CSW+1
				cmp	GP.VDOSO+1
				beq	BS.SetCSWKSW2VDOS

				bne	BS.SaveCSWKSW
*--------------------------------------
BS.IO.OUT		cmp	X9F65
				bne	L9A54

				stx	GP.PREGX
				tsx
				lda $103,x
				cmp	#$12				From AS rom: TRACE
				bne	L9A6E

				lda $104,x
				cmp	#$D8				jsr from $D810, then JSR MON.COUT
				bne	L9A6E

				ldx	#$04
				jsr	BS.SetState
				lda X9F65
				ldx	GP.PREGX
				jmp	BS.JMP.GP.VSYSO

L9A54			cmp	GP.CHRLAST
				sta	GP.CHRLAST
				bne	L9A74

				cmp	#$8D
				bne	L9A74

				lda ZP.CH
				bne	L9A69

				lda BS.CMDBUF
				cmp	#$3F

L9A69			lda #$8D
				bcs	L9A74

				rts

L9A6E			ldx	GP.PREGX
				lda X9F65

L9A74			jsr	BS.ResetCSWKSW
				jsr	MON.COUT
				cmp	#$8D
				bne	BS.SaveCSWKSW

				lda AS.TRCFLG
				cmp	#$A5
				beq	L9A8B

				sta	GP.DTRACE
				lda #$A5
				sta	AS.TRCFLG

L9A8B			lda #$8D

BS.SaveCSWKSW	pha
				phx
				
				ldx #3

.1				lda ZP.CSW,x
				sta	GP.VECTOUT,x
				dex
				bpl .1
				
				plx
				pla

BS.SetCSWKSW2VDOS
				pha
				phx

				ldx #3
				
.1				lda GP.VDOSO,x
				sta	ZP.CSW,x
				dex
				bpl .1
				
				plx
				pla
				rts
*--------------------------------------
BS.IO.IN		bit	GP.EXECACTV
				bpl	.1

				jsr	BS.SaveAXY
				jmp	BS.IO.IN.EXEC

.1				jsr	BS.ResetCSWKSW

				jsr	MON.KEYIN0
				cmp	#$8D
				beq .5
				
				cmp #$FF
				bne BS.SaveCSWKSW
*		lda ZP.PROMPT
*		>DEBUG
			txa
			beq BS.IO.IN.BS

			lda #$88
			jsr MON.COUT

			lda #$A0
			jsr MON.COUT

			bra BS.IO.IN.BS

.5				jsr	BS.SaveAXY
				sta	IO.LINEBUF,x

BS.CheckDOSCMD	jsr	BS.DOSCMD
				bit	GP.XCNUM
				bmi	L9AE8

				bcs	BS.ERROUT

				ldy	GP.PREGY
				ldx	#$00

BS.IO.IN.BS		lda #$88
				bra	BS.SaveCSWKSW

L9AE8			jsr	BS.RestoreAXY
				bra	BS.SaveCSWKSW
*--------------------------------------
BS.NODEVERR		lda #$03

BS.ERROUT		sta	GP.ERRCODE
				sta	AS.ERRNUM
				lda GP.STATE
				cmp	#$01
				php
				lda #$0F
				sta	MLI.LEVEL
				
				stz	GP.IFILACTV
				stz	GP.OFILACTV
				stz	GP.PFXACTV
				stz	GP.MLICF.REFNUM

				jsr BS.MLIClose
				bcs	L9B27

				jsr	LA004
				bcs	L9B27

				stz	MLI.LEVEL
				stz	GP.MLICF.REFNUM
				lda #MLI.C.FLUSH
				jsr GP.GOSYSTEM

L9B27			plp
				ldx	#$04
				bit	AS.ERRFLG
				bcs	L9B30

				ldx	#$00

L9B30			php
				jsr	BS.SetState
				jsr	BS.SetCSWKSW2VDOS
				lda GP.ERRCODE
				plp
				bmi	L9B4D

				php
				jsr	GP.PRINTERR
				jsr	LB36B
				plp
				bcs	L9B53

				jsr	BS.CROUT
				jmp	AS.RESTART1

L9B4D			ldx	AS.REMSTK
				dex
				dex
				txs
				tax

L9B53			lda #$03
				jmp	AS.BITERRFLG
*--------------------------------------
L9B58			stz	AS.ERRNUM
				lda #$A3
				sta	X9F65
				jsr	AS.NORMAL
				jsr	BS.ResetCSWKSW
				jsr	BS.WriteTBUF
				jsr	BS.SetState0
				jsr	BS.RestoreAXY
				jmp	BS.IO.IN
*--------------------------------------
BS.IO.IN0		jsr	BS.SaveAXY
				bit	GP.PFXACTV
				bpl	L9B7E

				jmp	BS.IO.IN.CAT

L9B7E			bit	GP.IFILACTV
				bpl	L9B86
				jmp	BS.IO.IN.FILE

L9B86			bit	GP.EXECACTV
				bmi	BS.IO.IN.EXEC

				lda ZP.PROMPT
				cmp	#"]"
				beq	L9B58

				jsr	BS.ResetCSWKSW

L9B94			lda GP.PREGA
				ldy	GP.PREGY
				jsr	MON.KEYIN0
				cmp	#$88
				bne	L9BAC

				lda ZP.PROMPT
				cmp	#">"
				beq	L9BAA

				txa
				beq	L9B94

L9BAA			lda #$88
L9BAC			jmp	BS.SaveCSWKSW
*--------------------------------------
BS.IO.IN.EXEC	sta	(ZP.BASL),y
				lda ZP.PROMPT
				cmp	#">"
				beq	L9BF2

				lda IO.KBD
				bpl	L9BCD

				cmp	#$83
				bne	L9BCD

				jsr	LB36B
				lda GP.STATE
				bne	L9C01

				sta	IO.KSTROBE
				beq	L9C01

L9BCD			jsr	BS.Setup4readEFBytesAt200
				jsr	L9C6C
				bcs	L9BFA

				jsr	BS.SaveAXY
				bcc	L9BDE

L9BDA			dex
				lda IO.LINEBUF,x

L9BDE			ora	#$80
				sta	IO.LINEBUF,x
				txa
				bne	L9BDA

				jsr	BS.ResetCSWKSW
				jsr	BS.CheckDOSCMD
				bit	GP.XCNUM
				bpl	L9BCD

L9BF1			rts

L9BF2			jsr	BS.Setup4readEFBytesAt200
				jsr	BS.ReadOneByte
				bcc	L9BF1

L9BFA			jsr	LB2B5
				cmp	#$05
				bne	L9C13

L9C01			ldx	#$00
				ldy	ZP.CH
				bne	L9C0E

				lda #"]"
				sta	ZP.PROMPT
				lda #$88
				rts

L9C0E			lda (ZP.BASL),y
				jmp	(ZP.KSW)

L9C13			jmp	BS.ERROUT
*--------------------------------------
BS.IO.IN.FILE	lda ZP.PROMPT
				cmp	#"]"
				bne	L9C1F
				jmp	L9B58

L9C1F			lda GP.PREGA
				sta	(ZP.BASL),y
				lda IO.KBD
				bpl	L9C31

				cmp	#$83
				bne	L9C31

				bit	IO.KSTROBE
				rts

L9C31			lda ZP.PROMPT
				bit	GP.DIRFLG
				bmi	L9C95

				cmp	#">"
				beq	L9C42

				jsr	L9C67
				bcs	L9C13

				rts

L9C42			jsr	BS.ReadOneByte
				bcs	L9C13

				rts
*--------------------------------------
BS.ReadOneByte	lda GP.MLIRW.COUNT
				sta	GP.ParamL
				lda #$01
				sta	GP.MLIRW.COUNT
				lda #MLI.C.READ
				jsr GP.GOSYSTEM
				bcs	L9C66

				lda GP.ParamL
				sta	GP.MLIRW.COUNT
				ldx	GP.MLIRW.DATAPTR
				lda IO.LINEBUF,x

L9C66			rts
*--------------------------------------
L9C67			lda GP.PREGA
				sta	(ZP.BASL),y

L9C6C			lda #MLI.C.READ
				jsr GP.GOSYSTEM
				bcs	L9C66

				lda GP.MLIRW.TRANS
				beq	L9C8E

				clc
				adc	GP.MLIRW.DATAPTR
				tax
				lda IO.LINEBUF-1,x
				and	#$7F
				cmp	#$0D
				bne	L9C8E

				lda GP.FoundBITS+1
				and	#$10
				bne	L9C8E

				dex

L9C8E			lda #$8D
				ldy	GP.PREGY
				clc
				rts
*--------------------------------------
L9C95			cmp	#$BE
				beq	L9C8E

				lda GP.PREGA
				sta	(ZP.BASL),y
				lda #$4F
				sta	BS.CATWIDTH
				lda #MLI.C.GETMARK
				jsr GP.GOSYSTEM
				bcs	L9D1F

				lda GP.SBUFADR
				ora	GP.SBUFADR+1
				bne	L9CDF

				lda #$02
				sta	GP.CATFLAG
				jsr	BS.ReadDirEnt
				bcs	L9D1F

				jsr BS.GetFTableIdx
				
				lda XBC12
				sta	XBC5A,x
				lda XBC13
				sta	XBC5B,x
				jsr	LB128

L9CD3			lda #$A2
				sta	IO.LINEBUF
				lda #$8D
				sta	IO.LINEBUF,x
				clc
				rts

L9CDF			lda GP.CATFLAG
				beq	L9D22

				bmi	L9CF9

				ldx	#$00
				dec	GP.CATFLAG
				beq	L9CD3

				jsr	BS.LINEBUFCLR80
				ldx	#$10
				jsr	BS.PRINTERRMSGX

L9CF5			ldx	#$50
				bne	L9CD3

L9CF9			cmp	#$FF
				bne	L9D1C

				dec	GP.CATFLAG
				
				stz	GP.MLIRW.COUNT
				stz	GP.MLIRW.COUNT+1

				lda #MLI.C.READ
				jsr GP.GOSYSTEM
				jsr	LB157
				pha
				lda GP.MLIRW.REFNUM
				sta	GP.MLIMRKEOFBUF.REFNUM
				pla
				bcc	L9CF5

				bcs	L9D1F

L9D1C			lda #$05
				sec

L9D1F			jmp	BS.ERROUT

L9D22			lda #$FF
				sta	XBC16

				jsr BS.GetFTableIdx

				lda XBC5A,x
				sta	XBC12
				lda XBC5B,x
				sta	XBC13
				lda GP.SBUFADR+1
				and	#$01
				tax
				lda GP.SBUFADR
				sec

L9D45			inc XBC16
				sbc	XBC12
				bcs	L9D45

				dex
				beq	L9D45

				jsr	LB241
				bcc	L9D65

				cmp	#$02
				beq	L9D5D

				cmp	#$05
				bne	L9D1F

L9D5D			dec GP.CATFLAG
				ldx	#$00
				jmp	L9CD3

L9D65			jsr	LA4D2
				jmp	L9CF5
*--------------------------------------
BS.IO.IN.CAT	cmp	#$DD
				bne	L9D72

				jmp	L9B58

L9D72			lda GP.PREGA
				sta	(ZP.BASL),y
				
				stz	GP.PFXACTV
				ldx	BS.CMDBUF.LEN

L9D7F			lda BS.CMDBUF.LEN,x
				sta	IO.LINEBUF-1,x
				dex
				bne	L9D7F

				ldx	BS.CMDBUF.LEN
				lda #$8D
				rts
*--------------------------------------
BS.Setup4readEFBytesAt200
				lda XBBFE
				sta	GP.MLIRW.REFNUM
				lda #$02
				sta	GP.MLIRW.DATAPTR+1
				lda #$EF
				sta	GP.MLIRW.COUNT
				
				stz	GP.MLIRW.COUNT+1
				stz	GP.MLIRW.DATAPTR
				rts
*--------------------------------------
BS.VSYSO		jsr	BS.SaveAXY
				cmp	#$84
				bne	L9DC5

				jsr	BS.WriteTBUF
			stz	GP.INPTR
			stz	GP.IFILACTV
			stz	GP.OFILACTV
			stz	GP.PFXACTV
				ldx	#$08
				jsr	BS.SetState
				jmp	BS.RestoreAXY

L9DC5			ldx	#$04
				jsr	BS.SetState
				jsr	BS.RestoreAXY
				jmp	BS.JMP.GP.VSYSO
*--------------------------------------
BS.IO.OUT.CAT	jsr	BS.SaveAXY
				ldx	GP.INPTR
				sta	IO.LINEBUF,x
				cmp	#$8D
				beq	L9DEB

				inc	GP.INPTR
				bne	L9DE7

				lda #$10

L9DE4			jmp	BS.ERROUT

L9DE7			ldx	GP.PREGX
				rts

L9DEB			inx
				dex
				beq	L9DFA

				jsr	BS.ResetCSWKSW
				jsr	BS.DOSCMD
				bcs	L9DE4

				jsr	BS.SaveCSWKSW

L9DFA			ldx	#$04
				jsr	BS.SetState
				jmp	BS.RestoreAXY

L9E02			sty	GP.PREGY
				ldy	ZP.PROMPT
				beq	L9E15

				dey
				beq	L9E15

				dey
				beq	L9E15

				ldy	GP.PREGY
				jmp	L9A74

L9E15			ldy	GP.TBUFPTR
				and	#$7F
				sta	(AS.HIMEM),y
				ldy	GP.PREGY
				inc	GP.TBUFPTR
				bne	L9E2F

				jsr	BS.SaveAXY
				jsr	BS.WriteTBUF256
				bcs	L9DE4

				jsr	BS.RestoreAXY

L9E2F			rts
*--------------------------------------
BS.IO.OUT.TRACE	pha
				stx	GP.PREGX
				tsx
				lda $104,x
				cmp	#$12
				bne	L9E46

				lda $105,x
				cmp	#$D8
				bne	L9E46

				pla
				bcs	L9EBA

L9E46			pla
				ldx	GP.PREGX
				bit	GP.OFILACTV
				bpl	L9E70

				cmp	#$DD
				bne	L9E5A

				cmp	ZP.PROMPT
				beq	L9E8A

L9E5A			cmp	#$8D
				bne	L9E02

				lda ZP.PROMPT
				cmp	#$FF
				lda #$8D
				bcc	L9E02

				jsr	BS.WriteTBUF
				sta	GP.OFILACTV
				lda #$8D
				bne	L9EA3

L9E70			pha
				lda GP.IFILACTV
				ora	GP.PFXACTV
				bpl	L9E81

				lda ZP.PROMPT
				ora	#$04
				cmp	#$84
				beq	L9EA6

L9E81			pla
				cmp	#$DD
				bne	L9EA3

				cmp	ZP.PROMPT
				bne	L9EA3

L9E8A			jsr	BS.SaveAXY
				lda GP.OPENCNT
				beq	L9EA0

				jsr	BS.WriteTBUF
				sta	GP.OFILACTV
				jsr	BS.ResetCSWKSW
				lda #$15
				jsr	GP.PRINTERR

L9EA0			jsr	BS.RestoreAXY
L9EA3			jmp	L9A74

L9EA6			pla
				cmp	#$8D
				bne	L9EAE

				cmp	GP.CHRLAST

L9EAE			sta	GP.CHRLAST
				bne	L9EB5

				sta	ZP.PROMPT

L9EB5			rts

L9EB6			inc AS.TXTPTR+1
				bne	L9EBE

L9EBA			inc AS.TXTPTR
				beq	L9EB6

L9EBE			ldx	#$FF
				stx	ZP.PROMPT
				ldx	AS.REMSTK
				txs
				bit	GP.DTRACE
				bmi	L9F3D

L9ECA			ldy	#$00
				lda (AS.TXTPTR),y
				bmi	L9EF5

				beq	L9EF2

L9ED2			dec GP.STRINGS
				bne	L9EF0

				lda AS.STRINGSTART+1
				sbc	AS.ARRAYEND+1
				cmp	#$03
				bcs	L9EE9

				jsr	BS.WriteTBUF
				jsr	BS.KW.01
				lda AS.STRINGSTART+1
				sbc	AS.ARRAYEND+1

L9EE9			sta	GP.STRINGS
				ldy	#$00
				lda (AS.TXTPTR),y

L9EF0			cmp	#$3A
L9EF2			jmp	AS.EXECSTMT

L9EF5			sta	ZP.PROMPT
				tay
				lda BS.AS.KW-$80,y
				bmi	L9EF2

				sta	X9F00+1

X9F00			bne	BS.AS.KW0			SELF MODIFIED
BS.AS.KW0
BS.AS.KW.IF
BS.AS.KW.PRINT
				stz	ZP.PROMPT
				stz	GP.CHRLAST
				lda #BS.VSYSO
				sta	GP.VSYSO
				lda /BS.VSYSO
				sta	GP.VSYSO+1
				bne	L9F32

BS.AS.KW.LIST	lda #$01
				.HS 2C					BIT ABS
BS.AS.KW.CALL	lda #$02
				sta	ZP.PROMPT
				bne	L9F32

BS.AS.KW.LET	tya
				jmp	L9ED2

BS.AS.KW.TRACE	sty	GP.DTRACE
				bne	L9F2E

BS.AS.KW.NOTRACE
				sta	GP.DTRACE
				dey

L9F2E			lda #$4A
				sta	AS.TRCFLG

L9F32			tya
				jmp	AS.EXECSTMT

BS.AS.KW.RESUME	stz	AS.ERRNUM
				tya
				bne	L9EF0

L9F3D			jsr	BS.ResetCSWKSW
				lda #$A3
				jsr	MON.COUT
				ldx	AS.CURLINE
				lda AS.CURLINE+1
				jsr	AS.INTPRINTAX
				lda #$A0
				jsr	MON.COUT
				jsr	BS.SaveCSWKSW
				sec
				jmp	L9ECA
BS.AS.KW.FLASH
				lda #$E3
				bne	L9F5E
BS.AS.KW.NORMAL
BS.AS.KW.INVERSE
				lda #$A3

L9F5E			sta	X9F65
				tya
				bne	L9EF0

X9F65			.DA #$A3
*--------------------------------------
BS.SaveAXY		sta	GP.PREGA
				stx	GP.PREGX
				sty	GP.PREGY
				rts
*--------------------------------------
BS.RestoreAXY	lda GP.PREGA
				ldx	GP.PREGX
				ldy	GP.PREGY
				rts
*--------------------------------------
BS.SetState		stx	GP.STATE
				ldy	#$00

.1				lda BS.SYSIOVECTS,x
				sta	GP.VSYSO,y
				inx
				iny
				cpy	#$04
				bne	.1

				rts
*--------------------------------------
BS.PRINTERR		tay
				ldx	BS.ERRCODES-1,y

BS.PRINTERRX	jsr	BS.PRINTERRMSGX
				ldx	GP.INPTR
				stx	BS.CATWIDTH
				jsr	BS.CROUT
				lda #$87
				jsr	BS.COUT

BS.LINEBUFOUT	ldx	#$00

.1				lda IO.LINEBUF+1,x
				jsr	BS.COUT
				inx
				cpx	BS.CATWIDTH
				bcc	.1

BS.CROUT		lda #$8D
BS.COUT			jmp	MON.COUT
*--------------------------------------
BS.PRINTERRMSGX	ldy	#$00
				clc
				sty	GP.INPTR

L9FBA			jsr	L9FD6
				bne	L9FC4

				jsr	L9FD6
				ora	#$10

L9FC4			tay
				lda BS.TBL6,y
				beq	L9FD5

				ldy	GP.INPTR
				sta	IO.LINEBUF+1,y
				inc	GP.INPTR
				bne	L9FBA

L9FD5			rts
*--------------------------------------
L9FD6			lda BS.TBL7,x
				bcs	L9FED

				beq	L9FE3

				lsr
				lsr
				lsr
				lsr
				sec
				rts

L9FE3			inx
				lda BS.TBL7,x
				sta	GP.INPTR
				inx
				bne	L9FD6

L9FED			inx
				and	#$0F
				clc
				rts
*--------------------------------------
BS.WriteTBUF256	lda #$00
				ldy	#$01
				bne	BS.WriteTBUFAY

BS.WriteTBUF	jsr	LA004
				bcc	LA020

				tay
				pla
				pla
				tya
				jmp	BS.ERROUT
*--------------------------------------
LA004			ldy	#$00
				lda GP.TBUFPTR
				beq	LA01F

BS.WriteTBUFAY	sta GP.MLIRW.COUNT
				sty	GP.MLIRW.COUNT+1
				lda #MLI.C.WRITE
				jsr GP.GOSYSTEM
				
				stz	GP.TBUFPTR

				bcs	LA020

LA01F			clc
LA020			rts
*--------------------------------------
LA021			jsr	BS.KW.01
				bcs	LA047

				lda AS.PGRMSTART+1
				sta	BS.TXTTAB+1
				lda AS.PGRMSTART
				sta	BS.TXTTAB
				lda AS.HIMEM+1
				sta	XBBD8
				lda #$03
				sta	XBBD9
				lda AS.STRINGSTART+1
				sta	BS.MEMSIZE+1
				
				lda	#$00
				sta	BS.MEMSIZE
				jsr	LA089				Z

LA047			rts

BS.KW.01		stz	BS.TXTTAB
				lda #$03
				sta	XBBD9
				lda AS.HIMEM+1
				sta	XBBD8
				lda AS.STRINGSTART+1
				sta	BS.TXTTAB+1
				sec
				sbc	AS.ARRAYEND+1
				cmp	#$07
				bcc	LA07D

				sbc	#$03
				sta	XBBD9
				lda AS.ARRAYEND+1
				adc	#$00
				sta	XBBD8
				lda AS.HIMEM+1
				sbc	AS.STRINGSTART+1
				adc	#$01
				cmp	XBBD9
				bcs	LA07D

				sta	XBBD9

LA07D			lda AS.HIMEM+1
				sta	BS.MEMSIZE+1
				lda AS.HIMEM
				sta	BS.MEMSIZE
				sta	AS.STRINGSTART

LA089			clc
				beq	LA08D

				sec

LA08D			lda BS.MEMSIZE+1
				sta	AS.STRINGSTART+1
				sbc	#$00
				sta	XBBDA
				adc	#$00
				sta	XBBDB
				lda AS.ARRAYEND+1
				adc	#$01
				sta	XBBDD

LA0A3			lda AS.VARSTART
				sbc	#$06
				sta	ZP.A2L
				lda AS.VARSTART+1
				sbc	#$00
				sta	ZP.A2H
				lda AS.ARRAYSTART
				sta	XBBDC
				lda XBBDA
				cmp	BS.TXTTAB+1
				bcc	LA0FA

				sbc	XBBD9
				sta	XBBD7
				lda AS.STRINGSTART+1
				sbc	XBBDA
				sbc	XBBD7
				eor	#$FF
				adc	#$02
				cmp	XBBD7
				bcc	LA0D6

				lda XBBD7

LA0D6			cmp	BS.TXTTAB+1
				bcs	LA0E0

				lda BS.TXTTAB+1
				sbc	#$00

LA0E0			sta	XBBDA
				jsr	LA199
				ldx	AS.ARRAYSTART+1
				jsr	LA0FB
				bcs	LA0F8

				jsr	LA131
				lda XBBDA
				sta	XBBDB
				bcc	LA0A3

LA0F8			lda #$0C
LA0FA			rts

LA0FB			clc

LA0FC			lda ZP.A2L
				adc	#$07
				sta	ZP.A2L
				bcc	LA106

				inc	ZP.A2H

LA106			eor	AS.ARRAYSTART
				bne	LA10E

				cpx	ZP.A2H
				beq	LA12F

LA10E			ldy	#$00
				lda (ZP.A2L),y
				iny
				eor	(ZP.A2L),y
				bpl	LA0FB

				lda (ZP.A2L),y
				bpl	LA0FB

				ldy	#$04
				lda (ZP.A2L),y
				cmp	XBBDA
				bcc	LA0FC

				cmp	XBBDB
				bcs	LA0FB

				jsr	LA1BC
				bcc	LA0FC

				rts

LA12F			clc
				rts

LA131			jsr	LA160
				bcs	LA12F

LA136			ldy	#$02
				lda (ZP.A2L),y
				cmp	XBBDA
				bcc	LA14A

				cmp	XBBDB
				bcs	LA14A

				jsr	LA1BC
				bcc	LA14B

				rts

LA14A			clc
LA14B			lda #$03
				adc	ZP.A2L
				sta	ZP.A2L
				bcc	LA155

				inc	ZP.A2H

LA155			cmp	XBBDC
				bne	LA136

				cpx	ZP.A2H
				bne	LA136

				beq	LA131

LA160			clc
				lda XBBDC
				sta	ZP.A2L
				stx	ZP.A2H
				eor	AS.ARRAYEND
				bne	LA170

				cpx	AS.ARRAYEND+1
				beq	LA198

LA170			ldy	#$02
				lda (ZP.A2L),y
				adc	ZP.A2L
				sta	XBBDC
				iny
				lda (ZP.A2L),y
				adc	ZP.A2H
				tax
				ldy	#$00
				lda (ZP.A2L),y
				iny
				eor	(ZP.A2L),y
				bpl	LA160

				ldy	#$04
				lda (ZP.A2L),y
				asl
				adc	#$05
				adc	ZP.A2L
				sta	ZP.A2L
				bcc	LA198

				inc	ZP.A2H

				clc
LA198			rts

LA199			lda XBBD7
				sta	ZP.PCH
				lda XBBD8
				sta	ZP.A1H
				ldy	#$00
				sty	ZP.PCL
				sty	ZP.A1L
				ldx	XBBD9
				inx

LA1AD			lda (ZP.PCL),y
				sta	(ZP.A1L),y
				iny
				bne	LA1AD

				inc	ZP.A1H
				inc	ZP.PCH
				dex
				bne	LA1AD

				rts

LA1BC			cmp	XBBD7
				bcc	LA1C8

				sbc	XBBD7
				clc
				adc	XBBD8

LA1C8			sta	ZP.PCH
				dey
				lda (ZP.A2L),y
				sta	ZP.PCL
				dey
				sec
				lda AS.STRINGSTART
				sbc	(ZP.A2L),y
				sta	AS.STRINGSTART
				iny
				sta	(ZP.A2L),y
				lda AS.STRINGSTART+1
				sbc	#$00
				sta	AS.STRINGSTART+1
				iny
				sta	(ZP.A2L),y
				dey
				dey
				lda (ZP.A2L),y
				beq	LA1F2

				tay

LA1EA			dey
				lda (ZP.PCL),y
				sta	(AS.STRINGSTART),y
				tya
				bne	LA1EA

LA1F2			clc
				lda XBBDD
				sbc	AS.STRINGSTART+1
				rts

LA1F9			lda #$04
LA1FB			sta	XBBB5
				jsr	BS.KW.01
				bcs	LA24E

				lda AS.STRINGSTART+1
				sbc	AS.ARRAYEND+1
				cmp	XBBB5
				lda #$0C
				bcc	LA24E

				lda AS.STRINGSTART+1
				sta	ZP.PCH
				sbc	XBBB5
				sta	ZP.A1H
				sta	AS.STRINGSTART+1
				lda AS.STRINGSTART
				sta	ZP.PCL
				sta	ZP.A1L
				lda AS.HIMEM
				sbc	ZP.PCL
				sta	XBBED
				lda AS.HIMEM+1
				sbc	ZP.PCH
				sta	XBBEE
				jsr	LA35F
				lda #$00
				sec
				sbc	XBBB5
				sta	XBBE2
				jsr	LA3A3
				lda AS.HIMEM+1
				sta	XBBB7
				sec
				sbc	XBBB5
				sta	AS.HIMEM+1
				clc
				adc	#$04
				sta	XBBE3
				rts

LA24E			sec
				rts

LA250			jsr	BS.KW.01
				bcs	LA29D

				lda AS.HIMEM+1
				sbc	#$00
				sta	ZP.PCH
				adc	#$03
				sta	ZP.A1H
				lda AS.STRINGSTART
				sta	ZP.PCL
				sta	ZP.A1L
				lda AS.HIMEM
				sec
				sbc	AS.STRINGSTART
				sta	XBBED
				lda AS.HIMEM+1
				sbc	AS.STRINGSTART+1
				sta	XBBEE
				jsr	LA383
				lda #$04
				sta	XBBE2
				clc
				adc	AS.HIMEM+1
				sta	AS.HIMEM+1
				jsr	LA3A3
				lda XBBE3
				cmp	AS.HIMEM+1
				beq	LA2B7

				pha
				ldx	GP.OPENCNT
				beq	LA29B

				lda AS.HIMEM+1

LA293			cmp	XBBEE,x
				beq	LA29E

				dex
				bne	LA293

LA29B			pla
				sec
LA29D			rts

LA29E			pla

LA29F			sta	GP.SBUFADR+1
				sta	XBBEE,x
				
				stz	GP.SBUFADR
				lda XBBF6,x
				sta	GP.MLIMRKEOFBUF.REFNUM
				lda #MLI.C.SETBUF
				jsr GP.GOSYSTEM
				bcs	LA29D

LA2B7			clc
				rts
*--------------------------------------
MAN
SAVE usr/src/basic.fx/basic.s.a
LOAD usr/src/basic.fx/basic.s
ASM