Arraywrite Maxlength modification

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

Find

Code:

---

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

Code:

---

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:D
Probably need little more testing.

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