fatal: out of memory (pbpw.exe)

[Sphere]

I get this error when I compile this. fatal: out of memory (pbpw.exe)
My system has a 4 gig of memory.

high PORTB.2 'CHIP SELECT
shiftout PORTB.1,PORTB.0,0,[%00000001,10,%11111111,%10000001,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,_
                                      11,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,_
                                      12,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,_
                                      13,%11111111,%00000000,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,_
                                      14,%11111111,%00000000,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,_
                                      15,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,_
                                      16,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,_
                                      17,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,%00000001]
LOW  PORTB.2 'CHIP SELECT

Any ideas. Sphere.

[HenrikOlsson]

Hi,
Splitting that major SHIFTOUT statement into multiple made it work here.

High PORTB.2 'CHIP SELECT
  Shiftout PORTB.1,PORTB.0,0,[%00000001,10,%11111111,%10000001,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000]
 
  Shiftout PortB.1,PortB.0,0,[11,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000]
 
  Shiftout PortB.1,PortB.0,0,[12,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000]
 
  Shiftout PortB.1,PortB.0,0,[13,%11111111,%00000000,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000]
 
  Shiftout PortB.1,PortB.0,0,[14,%11111111,%00000000,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000]
 
  Shiftout PortB.1,PortB.0,0,[15,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000]
 
  Shiftout PortB.1,PortB.0,0,[16,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000]
 
  Shiftout PortB.1,PortB.0,0,[17,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, %00000000,%00000001]
LOW  PORTB.2 'CHIP SELECT

Since there seems to be a lot of repeating zeros in each "packet" you might be able to replace that with a subroutine, something like:

i VAR BYTE
ZeroCount VAR BYTE
 
High PORTB.2 'CHIP SELECT
 
Shiftout PORTB.1,PORTB.0,0,[%00000001,10,%11111111,%10000001,%11111111,%11111111]
ZeroCount = 46 : GOSUB ShiftThoseZerosOut
 
Shiftout PortB.1,PortB.0,0,[11,%11111111,%00111100,%11111111,%11111111]
ZeroCount = 46 : GOSUB ShiftThoseZerosOut
 
Shiftout PortB.1,PortB.0,0,[12,%11111111,%00111100,%11111111,%11111111]
ZeroCount = 46 : GOSUB ShiftThoseZerosOut
 
Shiftout PortB.1,PortB.0,0,[13,%11111111,%00000000,%11111111,%11111111]
ZeroCount = 46 : GOSUB ShiftThoseZerosOut
 
Shiftout PortB.1,PortB.0,0,[14,%11111111,%00000000,%11111111,%11111111]
ZeroCount = 46 : GOSUB ShiftThoseZerosOut
 
Shiftout PortB.1,PortB.0,0,[15,%11111111,%00111100,%11111111,%11111111]
ZeroCount = 46 : GOSUB ShiftThoseZerosOut
 
Shiftout PortB.1,PortB.0,0,[16,%11111111,%00111100,%11111111,%11111111]
ZeroCount = 46 : GOSUB ShiftThoseZerosOut
 
Shiftout PortB.1,PortB.0,0,[17,%11111111,%00111100,%11111111,%11111111]
ZeroCount = 45 : GOSUB ShiftThoseZerosOut
 
Shiftout PortB.1,PortB.0,0,[%00000001]
 
LOW  PORTB.2 'CHIP SELECT
 
 
 
ShiftThoseZerosOut:
 
For i = 1 to ZeroCount
  shiftout PORTB.1,PORTB.0,0,[0]
NEXT
RETURN

I may not have the number of zeros correct but you get the idea, the size of the code shrunk to 1/4 in size.

/Henrik.

EDIT: I'm getting sick of this editor. Everything looks fine when i click Preview post then when I post it looks completely different and I have to go back and add linefeeds etc. And the code window that looked perfect in the preview, with horizontal scroll now looks like crap. Aaarg....what am I doing wrong.

[Sphere]

I already tried your solution and it works but I just wondered why you couldn't do it the way I posted. The reason why you see a lot of zeros in my code is that im testing a new glcd that is only line addressable so you have update the full width of the display + it also allows multi line updating of the display witch it what I posted. I was just trying to maximise the speed of the screen update.

Thanks for the reply Sphere.

[HenrikOlsson]

Hi,
Which PIC are you using? If it has a MSSP module you can use that to speed up the communcations conciderably. There's no commands available to use it, like with HSEROUT, but once it's setup it's pretty trivial. There's an example on MELABS site that shows you how to work it.

/Henrik.

[Sphere]

The pic im using is a PIC18LF46K22 and it does have an MSSP module. Just a question on using the MSSP in terms of speed, are we talking 2x 3x 4x speed increase. I can currently completely fill the screen in less than a second.

Sphere.

[mister_e]

If it's to output screen to a GLCD or whatever else, I would ever use multiple shiftout but a LookupTable (in the codespace OR EEPROM) + Shiftout Loop (or MSSP), way more code efficient, more flexible too.

[Jerson]

I suspect this to be more of a compiler issue rather than anything to do with the code itself. I imagine some internal compiler table being overflowed that can cause this problem. I may be wrong.

[mister_e]

Code Parser going to lalaland

[HenrikOlsson]

The pic im using is a PIC18LF46K22 and it does have an MSSP module. Just a question on using the MSSP in terms of speed, are we talking 2x 3x 4x speed increase. I can currently completely fill the screen in less than a second.

Hi, it's my understanding that SHIFTOUT runs at 50kHz with a 4MHz oscillator and then scales linearly with increased oscillator speed, but I'm not 100% sure on that. The MSSP module can run at Fosc/4 which at 4Mhz is 20 times faster than SHIFTOUT.

Now, the code must be able to keep up with the increased speed, and must be able to feed the MSSP module with data to shift out. Basically you have only 8 instructioncyles to get the next byte and then load it to the MSSP module as soon as there's room in its output register. If you're not able to do it in 8 cycles the overall thruput will drop - obviously.

So, just because the "clock" runs 20times fater than SHIFTOUT I don't think you should expect a 20 times increase, somewhere around 5-10 sounds more realistic.

/Henrik.

[Sphere]

Thanks all for the replies. Now where's that darn lookup table gone.

Cheers Sphere.

[mister_e]

something like that should give some hints

        goto init
        ASM
        ifdef BSR
PIC_TYPE = 2 ; 2=PIC18
        else
PIC_TYPE = 1 ; 1=PIC16
        endif
        
;%00000001,10,%11111111,%10000001,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000, %00000000]
tbl10   dt 1,10, b'11111111',b'10000001',b'11111111',b'11111111', 0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0   
        dt 0,0
             
;11,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000]
tbl11   dt 11, b'11111111',b'00111100',b'11111111',b'11111111',0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0   
        dt 0
 
;12,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, 
;%00000000]
tbl12   dt 12,b'11111111',b'00111100',b'11111111',b'11111111', 0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0  
        dt 0

;13,%11111111,%00000000,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000]
tbl13   dt 13, b'11111111',0,b'11111111',b'11111111',0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0  
        dt 0

;14,%11111111,%00000000,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, 
;%00000000]
tbl14   dt 14, b'11111111',0,b'11111111',b'11111111',0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0  
        dt 0

;15,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, 
;%00000000]
tbl15  dt 15, b'11111111',b'00111100',b'11111111',b'11111111',0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0  
        dt 0

;16,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000, 
;%00000000]
tbl16   dt 16, b'11111111',b'00111100',b'11111111',b'11111111',0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0  
        dt 0

;17,%11111111,%00111100,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,
;%00000000,%00000001]
tbl17   dt 17, b'11111111',b'00111100',b'11111111',b'11111111',0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0
        dt 0,0,0,0,0,0,0,0,0,0  
        dt 0,1
        
tblend = $ - PIC_TYPE

        endasm
init:
        PIC_TYPE    CON EXT
        tbl10       CON EXT 
        tbl11       CON EXT 
        tbl12       CON EXT 
        tbl13       CON EXT 
        tbl14       CON EXT 
        tbl15       CON EXT 
        tbl16       CON EXT 
        tbl17       CON EXT 
        tblend      CON EXT 
        addr        VAR WORD
        dta         VAR BYTE
        cntr        VAR BYTE
        
        CLEAR
        TRISC = 0
        TRISB = 0
        PAUSE 50
        
MAIN:   
        HIGH PORTB.2 'CHIP SELECT
        FOR addr=tbl10 TO tblend STEP PIC_TYPE
                READCODE addr, dta
                SHIFTOUT portb.1, portb.0,0,[dta]
                cntr=cntr+1
                HSEROUT ["%",BIN8 dta,", "]
                IF cntr=10 THEN
                        HSEROUT [13,10]
                        cntr=0
                        ENDIF
                NEXT
        LOW  PORTB.2 'CHIP SELECT
        HSEROUT [13,10,"----- done ------<", 13,10,_
                dec ((tblend-tbl10)/PIC_TYPE), " Byte sent>"]
                
HERE:   GOTO HERE

there's still room for improvement.