Arraywrite Maxlength modification

[pedja089]

From manual:
Maxlength must be less than 256
But I need limit array to 1000 bytes, so I decide to play with pbppi18l.lib

Find

ARRAYWRITETO movf R6, F		; Check for no space left in array
	bcf	STATUS, C	; Preset for timed out (C clear)
	bz	arraywritedone	; No space left
	decf	R6, F		; Count down the characters left
	bra	ARRAYWRITE

And replace with

ARRAYWRITETO movf R6, F ; Check for no space left in array
	bcf     STATUS, C     ; Preset for timed out (C clear)
	BTFSC   STATUS, Z
	DECF	R6+1, F       
	BTFSC   R6+1,7
	bra     arraywritedone ; No space left
	decf    R6, F          ; Count down the characters left
	bra     ARRAYWRITE

Now Maxlength can be up to 32767
Probably need little more testing.

[pedja089]

Also now you can use R6 system variable to determine array length:

ArrayMaxLen con 1000
TxBuffer var byte[ArrayMaxLen]
ArrayLen var word
Arraywrite TxBuffer, ArrayMaxLen, ArrayOverMax,[".........","etc"]
ArrayLen = ArrayMaxLen - R6