Two dimensional arrays? [Archive]

View Full Version : Two dimensional arrays?

ralfmayr

- 15th March 2010, 13:54

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

Darrel Taylor

- 15th March 2010, 19:53

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

Say it's 8x8 ...

MyArray VAR BYTE[64]

A = MyArray(i*8+k)
Indexes are 0-7.

rsocor01

- 16th March 2010, 20:08

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

Darrel Taylor

- 16th March 2010, 22:58

; -- 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


;____[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

;____[Working with 2D arrays]__________________________________________________ ___
[b]Width [color=#008000]CON 8 [i]; 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

;____[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

ralfmayr

- 19th March 2010, 10:33

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

ralfmayr

- 19th March 2010, 13:45

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

fokus_1116

- 23rd March 2010, 12:07

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 (()"

Darrel Taylor

- 23rd March 2010, 17:26

Are you using MPASM for the assembler?

It won't work with the default PM assembler.

fokus_1116

- 24th March 2010, 03:42

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

Darrel Taylor

- 24th March 2010, 04:04

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.

fokus_1116

- 24th March 2010, 04:37

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

fokus_1116

- 26th March 2010, 04:12

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...

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

Darrel Taylor

- 26th March 2010, 17:41

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