ack/lang/a68s/aem/getaddr.e

19 lines
285 B
Plaintext
Raw Normal View History

1988-10-04 10:56:50 +00:00
#define SZWORD EM_WSIZE
#define SZADDR EM_PSIZE
#if SZWORD==SZADDR
#define LOAD lol
#define STORE stl
#else
#define LOAD ldl
#define STORE sdl
#endif
mes 2,SZWORD,SZADDR
exp $GETADDRE
pro $GETADDRE,0
LOAD 0 ; load param (adress of variable)
ret SZADDR ; return address
end 0