; 30.8.90/bp
; Version für DevPac Assembler CODE_C heißt CODE in Chipmem
; Das obj-File muß als "Pointer.obj" ins obj-Verzeichnis!
;   GenIm2 -l -oobj/Pointer.obj Pointer.asm
;
	IDNT	Pointer
	SECTION __MERGED,DATA
; Als NEAR-Variablen importieren!
; Diese Daten könnten auch mit im ChipRAM liegen, aber wir wollen
;     a) demonstrieren, wie es geht,
; und b) nicht unnötig ChipRAM verschwenden!
;
	XDEF	Pointer_height,Pointer_hotx,Pointer_hoty
Pointer_height:
	DC.W	16
Pointer_hotx:
	DC.W	-7
Pointer_hoty:
	DC.W	-7

	SECTION text,CODE_C
	XDEF	Pointer_Image
; Als FAR-Variable importieren! oder einfach XREF in ASSEMBLE
Pointer_Image:
	DC.W 0,0
	DC.W	%0000010000100000,%0000001111000000
	DC.W	%0000110000110000,%0000000110000000
	DC.W	%0001100000011000,%0000000110000000
	DC.W	%0011000000001100,%0000000110000000
	DC.W	%0110000000000110,%0000000110000000
	DC.W	%1100000000000011,%0000001111000000
	DC.W	%0000000000000000,%1000011001100001
	DC.W	%0000000110000000,%1111110000111111
	DC.W	%0000000110000000,%1111110000111111
	DC.W	%0000000000000000,%1000011001100001
	DC.W	%1100000000000011,%0000001111000000
	DC.W	%0110000000000110,%0000000110000000
	DC.W	%0011000000001100,%0000000110000000
	DC.W	%0001100000011000,%0000000110000000
	DC.W	%0000110000110000,%0000000110000000
	DC.W	%0000010000100000,%0000001111000000
	DC.W 0,0

	END