Important Notice
The pages on this site contain documentation for very old MS-DOS software,
purely for historical purposes.
If you're looking for up-to-date documentation, particularly for programming,
you should not rely on the information found here, as it will be woefully
out of date.
Article Q49400
◄Contents► ◄Index► ◄Back►
─────────────────────────────────────────────────────────────────────────────
◄Knowledge Base Contents► ◄Knowledge Base Index►
Example of Passing Two-Dimensional Fixed-String Array to MASM - Q49400
The two programs shown below demonstrate how a Microsoft Basic program
can pass a two-dimensional fixed-length string array to assembly
language.
More Information:
The following Basic program is BTWOFIX.BAS, which passes an
uninitialized two-dimensional array of fixed-length strings to an
assembly routine that initializes the array.
Code Example
------------
DECLARE SUB TwoFix(BYVAL ASeg AS INTEGER, BYVAL AOff AS INTEGER)
DIM FixArray(1 TO 2, 1 TO 3) AS STRING * 9
CALL TwoFix(VARSEG(FixArray(1, 1)), VARPTR(FixArray(1, 1)))
FOR row% = 1 TO 2
FOR col% = 1 TO 3
PRINT FixArray(row%, col%)
NEXT
NEXT
END
The following program is ATWOFIX.ASM, which initializes a
two-dimensional array of fixed-length strings passed from Basic:
.MODEL MEDIUM, BASIC
.DATA
Fix11 DB 'String 11' ; Allocate string data.
Fix21 DB 'String 21'
Fix12 DB 'String 12'
Fix22 DB 'String 22'
Fix13 DB 'String 13'
Fix23 DB 'String 23'
.CODE
PUBLIC TwoFix
TwoFix PROC
push bp
mov bp, sp ; Set stack frame.
push es
push si
push di
mov es, [bp+8] ; Segment of string array.
mov di, [bp+6] ; Offset of string array.
mov si, OFFSET Fix11 ; Get offset to string data.
mov cx, 54 ; Length of all string data.
rep movsw ; Copy string data to array.
pop di
pop si
pop es
pop bp
ret 4
TwoFix ENDP
END
To demonstrate these programs from an .EXE program, compile and link
as follows:
BC BTWOFIX.BAS;
MASM ATWOFIX.ASM;
LINK BTWOFIX ATWOFIX;
BTWOFIX.EXE produces the following output:
String 11
String 12
String 13
String 21
String 22
String 23