15 lines
475 B
Plaintext
15 lines
475 B
Plaintext
CARD EndProg ;required for ALLOCATE.ACT
|
|
|
|
INCLUDE "D2:ALLOCATE.ACT" ;from the Action! Tool Kit. You must type 'SET EndProg=*' from the monitor after compiling, but before running this program!
|
|
|
|
PROC Main()
|
|
DEFINE SIZE="1000"
|
|
BYTE POINTER ptr
|
|
|
|
AllocInit(EndProg) ;required before any memory allocation
|
|
|
|
ptr=Alloc(SIZE) ;allocate memory of 1000 bytes
|
|
SetBlock(ptr,SIZE,$FF) ;fill the memory block with $FF
|
|
Free(ptr,SIZE) ;free allocated memory
|
|
RETURN
|