Two dimensional arrays?

Is there a possibility to define 2 dimensional arrays in PBP, e.g. data(i,k) ?
Regards,
Ralf

Not directly, but you can do the same thing programmatically.

Say it's 8x8 ...

Code:

MyArray VAR BYTE[64] A = MyArray(i*8+k)

Indexes are 0-7.

Hi,

Well, I was thinking about starting a thread in the "PBP Wish List" about two dimensional arrays in PBP, but Darrel's approach would do just the same. Is is a clever way of mapping a two-dimensional space into a one-dimensional one. This is probably the way how other computer languages internally handle a multi-dimensional array.

Robert

Ok, Everyone break out their Butterfly Nets. :)

Code:

; -- Working with 2D arrays --- Width CON 8 ; Number of bytes in a Row Length CON 10 ; Number of Rows in the array ;--------------------------------------------------------------------------- ArraySize CON Width * Length ; Total size of the array MyArray VAR BYTE[ArraySize] ; The Array Idx VAR BYTE ; Index, points to 1D array locations Xidx VAR BYTE ; 2D column Index Yidx VAR BYTE ; 2D row Index ArrayData VAR BYTE ; holding register for array data ;----[Get a value from the 2D array]---------------------------------------- Get2D: Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize ArrayData = MyArray(Idx) ; retrieve value from the array RETURN ;----[Put a value in the 2D array]------------------------------------------ Put2D: Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize MyArray(Idx) = ArrayData ; store the value in the array RETURN ;----[Set entire array to 0's]---------------------------------------------- Clear2D: FOR Idx = 0 TO ArraySize-1 MyArray(Idx) = 0 NEXT Idx RETURN ;----[Turn the Subroutines into Functions]---------------------------------- ASM #Get2D macro X, Y MOVE?BB X, _Xidx ; copy users X value to Xidx MOVE?BB Y, _Yidx ; copy users Y value to Yidx L?CALL _Get2D ; call the Get subroutine endm ; value is returned in ArrayData #define Get2D(X, Y) #Get2D X, Y ; allows paretheses in macro ;----------------------- #Put2D macro X, Y ; value should be in ArrayData MOVE?BB X, _Xidx ; copy users X value to Xidx MOVE?BB Y, _Yidx ; copy users Y value to Yidx L?CALL _Put2D ; call the Put subroutine endm #define Put2D(X, Y) #Put2D X, Y ; allows paretheses in macro ;----------------------- #Clear2D macro L?CALL _Clear2D ; call the Clear subroutine endm #define Clear2D() #Clear2D ENDASM 

Code:

;____[The Main Program]_____________________________________________________ X VAR BYTE SYSTEM Y VAR BYTE SYSTEM Main: @ Clear2D ; clear the array FOR Y = 0 TO Length-1 ; fill the array with data FOR X = 0 TO Width-1 ArrayData = X ; value to put in array @ Put2D(X,Y) NEXT X NEXT Y FOR Y = 0 TO Length-1 ; Read data back and send to serial port FOR X = 0 TO Width-1 @ Get2D(X,Y) HSEROUT [HEX2 ArrayData,", "] NEXT X HSEROUT [13,10] NEXT Y HSEROUT [13,10] PAUSE 3000 GOTO Main

Code:

[color=#0000FF][b][i];____[Working with 2D arrays]_____________________________________________________ Width CON 8 ; Number of bytes in a Row Length CON 10 ; Number of Rows in the array ;--------------------------------------------------------------------------- ArraySize CON Width * Length ; Total size of the array MyArray VAR BYTE[ArraySize] ; The Array Idx VAR BYTE ; Index, points to 1D array locations Xidx VAR BYTE ; 2D column Index Yidx VAR BYTE ; 2D row Index ArrayData VAR BYTE ; holding register for array data ;----[Get a value from the 2D array]---------------------------------------- Get2D: Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize ArrayData = MyArray(Idx) ; retrieve value from the array RETURN ;----[Put a value in the 2D array]------------------------------------------ Put2D: Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize MyArray(Idx)=ArrayData ; store the value in the array RETURN ;----[Set entire array to 0's]---------------------------------------------- Clear2D: FOR Idx = 0 TO ArraySize-1 MyArray(Idx)=0 NEXT Idx RETURN ;----[Turn the Subroutines into Functions]---------------------------------- ASM #Get2D macro X, Y MOVE?BB X, _Xidx ; copy users X value to Xidx MOVE?BB Y, _Yidx ; copy users Y value to Yidx L?CALL _Get2D ; call the Get subroutine endm ; value is returned in ArrayData #define Get2D(X, Y) #Get2D X, Y ; allows paretheses in macro ;----------------------- #Put2D macro X, Y ; value should be in ArrayData MOVE?BB X, _Xidx ; copy users X value to Xidx MOVE?BB Y, _Yidx ; copy users Y value to Yidx L?CALL _Put2D ; call the Put subroutine endm #define Put2D(X, Y) #Put2D X, Y ; allows paretheses in macro ;----------------------- #Clear2D macro L?CALL _Clear2D ; call the Clear subroutine endm #define Clear2D() #Clear2D ENDASM

Code:

;____[The Main Program]_____________________________________________________ X VAR BYTE SYSTEM Y VAR BYTE SYSTEM Main: @ Clear2D ; clear the array FOR Y = 0 TO Length-1 ; fill the array with data FOR X = 0 TO Width-1 ArrayData = X ; value to put in array @ Put2D(X,Y) NEXT X NEXT Y FOR Y = 0 TO Length-1 ; Read data back and send to serial port FOR X = 0 TO Width-1 @ Get2D(X,Y) HSEROUT [HEX2 ArrayData,", "] NEXT X HSEROUT [13,10] NEXT Y HSEROUT [13,10] PAUSE 3000 GOTO Main

Hi Darrel,
great idea, i will test this.
BTW:
1. What is maximum size of an array (i use 18F6722)? I would need two array's
with a width of 10 bytes and a length of max 256!
2. The length of the array should be dynamically, means that after configuring
the SW via RS232, the controller will be reseted and the array length will be redefined.
But this is not possible in runtime, or? Only at compile-time !?
Regards,
Ralf

Silly question, i only have 3936 bytes in a 6722....

dear darrel,

may i know the ASM part is for? is that if i using PBP language ni need the ASM part? and when i compile the it have error on "@ Put2D (X,Y)" "Illegal character (()"

Are you using MPASM for the assembler?

It won't work with the default PM assembler.

i using mplab and PICBASIC-PRO2.4.....and where i should i put the ASM file..

;----[Turn the Subroutines into Functions]----------------------------------
ASM
#Get2D macro X, Y
MOVE?BB X, _Xidx ; copy users X value to Xidx
MOVE?BB Y, _Yidx ; copy users Y value to Yidx
L?CALL _Get2D ; call the Get subroutine
endm ; value is returned in ArrayData
#define Get2D(X, Y) #Get2D X, Y ; allows paretheses in macro
;-----------------------
#Put2D macro X, Y ; value should be in ArrayData
MOVE?BB X, _Xidx ; copy users X value to Xidx
MOVE?BB Y, _Yidx ; copy users Y value to Yidx
L?CALL _Put2D ; call the Put subroutine
endm
#define Put2D(X, Y) #Put2D X, Y ; allows paretheses in macro
;-----------------------
#Clear2D macro
L?CALL _Clear2D ; call the Clear subroutine
endm
#define Clear2D() #Clear2D
ENDASM

Quote:

Originally Posted by fokus_1116

i using mplab and PICBASIC-PRO2.4.....and where i should i put the ASM file..

Exactly where it was.
It's part of the program.

However, it's likely that it won't work with PBP 2.40.
And I'm not about to look and see why.

Buy the upgrade.
2.40 is at least 10 years old.

thank for fast reply....now it can work..thank....

dear sir,

i dont why i use the array code that you post early compile no error..but when download to the pic16f873a it like stuck at somewhere at the initial array..below is my code...

Code:

INCLUDE "modedefs.bas" @ __config _HS_OSC & _WDT_OFF & _LVP_OFF & _CP_OFF ;---------------------------------------------------------------- DEFINE OSC 20 DEFINE LCD_DREG PORTA 'LCD Data line DEFINE LCD_DBIT 0 DEFINE LCD_RSREG PORTB 'RS bit DEFINE LCD_RSBIT 5 DEFINE LCD_EREG PORTB 'E bit DEFINE LCD_EBIT 4 DEFINE LCD_RWREG PORTB 'RW bit DEFINE LCD_RWBIT 6 DEFINE LCD_BITS 4 DEFINE LCD_LINES 2 DEFINE LCD_CHARS 20 DEFINE LCD_COMMANDUS 2000 DEFINE LCD_DATAUS 50 LCDOUT $FE,1,"8" pause 500 ;--------------------------------------------------------------- VinTXD VAR PORTC.7 'AD0 TXD VDIP2 connect RX VinRXD VAR PORTC.6 'AD1 RXD VDIP2 connect TX FlowIn VAR PORTC.0 'AD2 RTS T VAR PORTC.0 'push button D VAR PORTC.1 ' PUSH BUTTON FOR DISPLAY LCDOUT $FE,1,"9" pause 500 ;---------------------------------------------------------------- ; -- Working with 2D arrays --- Width CON 8 ; Number of bytes in a Row Length CON 12 ; Number of Rows in the array ;--------------------------------------------------------------------------- ArraySize CON Width * Length ; Total size of the array MyArray VAR BYTE[ArraySize] ; The Array Idx VAR BYTE ; Index, points to 1D array locations Xidx VAR BYTE ; 2D column Index Yidx VAR BYTE ; 2D row Index ArrayData VAR BYTE ; holding register for array data ;----[Get a value from the 2D array]---------------------------------------- Get2D: Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize ArrayData = MyArray(Idx) ; retrieve value from the array RETURN ;----[Put a value in the 2D array]------------------------------------------ Put2D: Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize MyArray(Idx) = ArrayData ; store the value in the array RETURN ;----[Set entire array to 0's]---------------------------------------------- Clear2D: FOR Idx = 0 TO ArraySize-1 MyArray(Idx) = 0 NEXT Idx RETURN ASM #Get2D macro X, Y MOVE?BB X, _Xidx ; copy users X value to Xidx MOVE?BB Y, _Yidx ; copy users Y value to Yidx // L?CALL _Get2D ; call the Get subroutine endm ; value is returned in ArrayData #define Get2D(X, Y) #Get2D X, Y ; allows paretheses in macro #Put2D macro X, Y ; value should be in ArrayData MOVE?BB X, _Xidx ; copy users X value to Xidx MOVE?BB Y, _Yidx ; copy users Y value to Yidx L?CALL _Put2D ; call the Put subroutine endm #define Put2D(X, Y) #Put2D X, Y ; allows paretheses in macro #Clear2D macro L?CALL _Clear2D ; call the Clear subroutine endm #define Clear2D() #Clear2D ENDASM ;---------------------------------------------------------------- ;a var BYTE[12] FILE1 VAR BYTE[12] FILE2 VAR BYTE[12] FILE3 VAR BYTE[12] ;X VAR BYTE LCDOUT $FE,1,"20" pause 500 CRET VAR BYTE CRET = $0D ;---------------------------------------------------------------- StartDisk: pause 3000 HIGH VinRXD SEROUT2 VinRXD,84,["ECS",13] LCDOUT $FE,1, "1" pause 2500 PAUSEUS 1000 HIGH VinRXD PAUSEUS 3000 SEROUT2 VinRXD,84,["IPA",13] LCDOUT $FE,1, "2" pause 2500 HIGH VinRXD PAUSEUS 1000 SEROUT2 VinRXD,84,["A:",13] LCDOUT $FE,1, "3" pause 2500 HIGH VinRXD PAUSEUS 1000 SEROUT2 VinRXD,84,["DIR",13] LCDOUT $FE,1, "4" 'pause 2500 PAUSEUS 1000 ;------------------------------------------------------------ X VAR BYTE SYSTEM Y VAR BYTE SYSTEM LCDOUT $FE,1,"11" pause 500 ;---------------------------------------------------------------- ;------------------------------------------------------------ WAIT1 IF FLOWIN = 1 THEN WAIT1 LCDOUT $FE,1, "5" @ Clear2D ; clear the array FOR Y = 0 TO Length-1 SERIN2 VinTXD,84,[WAIT(CRET),STR FILE1\12 \CRET] ; fill the array with data FOR X = 0 TO Width-1 ArrayData =FILE1[X] ; value to put in array @ Put2D(X,Y) NEXT X NEXT Y ;-------------------------------------------------------------------------------- PAUSE 1000 FOR Y = 0 TO Length-1 FOR X = 0 TO Width-1 @ Get2D(X,Y) NEXT X LCDOUT $FE,1,ArrayData pause 500 NEXT Y goto StartDisk

I think you just need to jump over the subroutines with a GOTO.