This is the test piece. I had to track down a really weird problem, when I use szCopy to copy on buffer to another, it worked OK but any further calls to GlobalFree() (mfree macro) would instantly GP fault. Did not directly make sense so after wasting too much time on it, I changed the szCopy to bcopy and BINGO, it worked correctly.
The loadfile macro calls a library module that will load any file, binary or character, into a buffer of the correct size. Seems it must be used with a BYTE copy that specifies the length rather than relying on a terminating ascii zero.
; «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
include \masm32\include64\masm64rt.inc
.code
; «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
entry_point proc
LOCAL pMem :QWORD ; source memory pointer
LOCAL flen :QWORD ; file length of source
LOCAL hMem :QWORD ; extra buffer pointer
LOCAL lcnt :QWORD ; line count of source
LOCAL nlen :QWORD ; new length of modified buffer
mov pMem, loadfile("win64.inc") ; load source file
mov flen, rcx ; get the returned file length
conout " File Length = ",str$(flen),lf
mov hMem, alloc(flen) ; allocate a buffer the same size as pMem
rcall bcopy,pMem,hMem,flen ; copy pMem to hMem at flen byte count
conout " Bytes copied to hMem = ",str$(flen),lf
mov lcnt, rvcall(get_line_count,hMem) ; get the line count
conout " Line count in hMem = ",str$(lcnt),lf
rcall szRemove,hMem,pMem,chr$(10) ; strip the ascii 10s
mov nlen, len(pMem) ; get the new length
conout " New length in pMem = ",str$(nlen),lf
mfree pMem ; free both memory blocks
mfree hMem
conout chr$(13,10)
waitkey " Thats all folks, press a key ...."
.exit
entry_point endp
; «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
NOSTACKFRAME
get_line_count proc
sub rcx, 1 ; set up address for following loop
xor rax, rax ; zero the line counter
@@:
add rcx, 1
cmp BYTE PTR [rcx], 0
je @F ; exit on zero
cmp BYTE PTR [rcx], 13
jne @B
add rax, 1 ; increment counter if line end
jmp @B
@@:
ret ; return line count in rax
get_line_count endp
NOSTACKFRAME
; «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
end
