MemoryFill()
Verfasst: 18.09.2004 12:11
Weil es ->hier gerade aktuell war:
Aus meinem Nähkästchen...
Aus meinem Nähkästchen...
Code: Alles auswählen
; Sep.2004 Sylvia, GermanForum
Procedure MemoryFillL(Wert,Elemente,*Addr)
; Füllt einen Speicherbereich mit LongWerten
CLD ; Aufsteigend
MOV EAX, Wert
MOV ECX, Elemente
MOV EDI, *Addr ; ab Adresse
!REP STOSD ; Repeat dwordTransfer
EndProcedure
Procedure MemoryFillB(Wert,Elemente,*Addr)
; Füllt einen Speicherbereich mit ByteWerten
CLD ; Aufsteigend
MOV EAX, Wert
MOV ECX, Elemente
MOV EDI, *Addr ; ab Adresse
!REP STOSB ; Repeat ByteTransfer
EndProcedure
*Buffer=AllocateMemory(10000*4) ; = 0- 9999 Longs
; = 0-39999 Bytes
MemoryFillL(100,10000,*Buffer)
Debug PeekL(*Buffer+9999*4)
MemoryFillB(Asc("A"),10000,*Buffer)
Debug PeekB(*Buffer+9999)